From e8b97480ccda8366e9a2c886517b4a1b7ad3be0c Mon Sep 17 00:00:00 2001 From: Fabrice Le Fessant Date: Fri, 3 Feb 2023 21:37:12 +0100 Subject: [PATCH] Provide Autoconf syntax for NIST testsuite Using this suite, it is possible to parallelize its evaluation (for example with `autofonce run -t tests/cobol85/nist.at` with v0.5 or `autofonce run -t nist` with v0.6) --- .autofonce | 46 + tests/cobol85/nist.at | 63 + tests/cobol85/nistrun.src/run_DB.at | 484 ++++++ tests/cobol85/nistrun.src/run_IC.at | 750 ++++++++ tests/cobol85/nistrun.src/run_IF.at | 610 +++++++ tests/cobol85/nistrun.src/run_IX.at | 883 ++++++++++ tests/cobol85/nistrun.src/run_NC.at | 2491 +++++++++++++++++++++++++++ tests/cobol85/nistrun.src/run_OB.at | 327 ++++ tests/cobol85/nistrun.src/run_RL.at | 791 +++++++++ tests/cobol85/nistrun.src/run_RW.at | 102 ++ tests/cobol85/nistrun.src/run_SG.at | 1334 ++++++++++++++ tests/cobol85/nistrun.src/run_SM.at | 313 ++++ tests/cobol85/nistrun.src/run_SQ.at | 1324 ++++++++++++++ tests/cobol85/nistrun.src/run_ST.at | 1117 ++++++++++++ 14 files changed, 10635 insertions(+) create mode 100644 .autofonce create mode 100644 tests/cobol85/nist.at create mode 100644 tests/cobol85/nistrun.src/run_DB.at create mode 100644 tests/cobol85/nistrun.src/run_IC.at create mode 100644 tests/cobol85/nistrun.src/run_IF.at create mode 100644 tests/cobol85/nistrun.src/run_IX.at create mode 100644 tests/cobol85/nistrun.src/run_NC.at create mode 100644 tests/cobol85/nistrun.src/run_OB.at create mode 100644 tests/cobol85/nistrun.src/run_RL.at create mode 100644 tests/cobol85/nistrun.src/run_RW.at create mode 100644 tests/cobol85/nistrun.src/run_SG.at create mode 100644 tests/cobol85/nistrun.src/run_SM.at create mode 100644 tests/cobol85/nistrun.src/run_SQ.at create mode 100644 tests/cobol85/nistrun.src/run_ST.at diff --git a/.autofonce b/.autofonce new file mode 100644 index 000000000..d9842703c --- /dev/null +++ b/.autofonce @@ -0,0 +1,46 @@ +[project] +# name to use to infer config +name = "gnucobol" + +# files used to locate the project top directory +# and to set the AUTOFONCE_SOURCE_DIR +source_anchors = [ "tests/testsuite.at", "!" ] + +# files used to locate the project build directory +# where the _autofonce/ directory will be created +# and to set the AUTOFONCE_BUILD_DIR +# use "!" to trigger an error if build dir is mandatory +build_anchors = [ "cobc/cobc", "!" ] + +[testsuites] +# alias = "path-from-topdir" +[testsuites.testsuite] +file = "tests/testsuite.at" +path = [ "tests/testsuite.src"] +env = "testsuite" +[testsuites.nist] +file = "tests/cobol85/nist.at" +path = [ "tests/cobol85/nistrun.src"] +env = "testsuite" + +[envs] +# env_name = """...""" +# env_name = ". + +AT_COPYRIGHT([Test cases from NIST]) + +### GnuCOBOL Test Suite + +AT_INIT([GnuCOBOL NIST Tests]) +AT_COLOR_TESTS + +AT_TESTED([cobc cobcrun]) + +## General tests of used binaries +AT_BANNER([NC Tests]) +m4_include([run_NC.at]) + +AT_BANNER([SM Tests]) +m4_include([run_SM.at]) + +AT_BANNER([IC Tests]) +m4_include([run_IC.at]) + +AT_BANNER([SQ Tests]) +m4_include([run_SQ.at]) + +AT_BANNER([RL Tests]) +m4_include([run_RL.at]) + +AT_BANNER([ST Tests]) +m4_include([run_ST.at]) + +AT_BANNER([SG Tests]) +m4_include([run_SG.at]) + +AT_BANNER([OB Tests]) +m4_include([run_OB.at]) + +AT_BANNER([IF Tests]) +m4_include([run_IF.at]) + +AT_BANNER([RW Tests]) +m4_include([run_RW.at]) + +AT_BANNER([DB Tests]) +m4_include([run_DB.at]) + +AT_BANNER([IX Tests]) +m4_include([run_IX.at]) diff --git a/tests/cobol85/nistrun.src/run_DB.at b/tests/cobol85/nistrun.src/run_DB.at new file mode 100644 index 000000000..62aa5a2c6 --- /dev/null +++ b/tests/cobol85/nistrun.src/run_DB.at @@ -0,0 +1,484 @@ + + + +AT_SETUP([DB101A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([DB]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -x DB101A.CBL], [0], [], [DB101A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +DB101A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +DB101A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +DB101A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +DB101A.CBL:64: warning: LABEL RECORDS is obsolete in COBOL 85 +DB101A.CBL:65: warning: DATA RECORDS is obsolete in COBOL 85 +DB101A.CBL: in section 'START-UP': +DB101A.CBL:222: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB101A.CBL: in section 'FALL-THROUGH-AND-SERIES': +DB101A.CBL:231: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB101A.CBL: in section 'GO-TO': +DB101A.CBL:236: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB101A.CBL: in section 'ALTER-PARAGRAPH': +DB101A.CBL:241: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB101A.CBL: in section 'LOOP-ITERATION': +DB101A.CBL:246: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB101A.CBL: in section 'PERFORM-THRU': +DB101A.CBL:251: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB101A.CBL: in section 'CCVS1': +DB101A.CBL: in paragraph 'ALTER-TEST-INIT': +DB101A.CBL:533: warning: ALTER is obsolete in COBOL 85 +DB101A.CBL: in section 'CCVS-EXIT': +DB101A.CBL: in paragraph 'CCVS-999999': +DB101A.CBL:822: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +DB101A.CBL:269: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./DB101A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([DB102A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([DB]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB102A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 DB102A.CBL], [0], [], [DB102A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +DB102A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +DB102A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +DB102A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +DB102A.CBL:58: warning: LABEL RECORDS is obsolete in COBOL 85 +DB102A.CBL:59: warning: DATA RECORDS is obsolete in COBOL 85 +DB102A.CBL: in section 'START-UP': +DB102A.CBL:216: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB102A.CBL: in section 'FALL-THROUGH-AND-SERIES': +DB102A.CBL:225: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB102A.CBL: in section 'GO-TO': +DB102A.CBL:230: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB102A.CBL: in section 'ALTER-PARAGRAPH': +DB102A.CBL:235: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB102A.CBL: in section 'LOOP-ITERATION': +DB102A.CBL:240: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB102A.CBL: in section 'PERFORM-THRU': +DB102A.CBL:245: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB102A.CBL: in section 'CCVS1': +DB102A.CBL: in paragraph 'ALTER-TEST-INIT': +DB102A.CBL:466: warning: ALTER is obsolete in COBOL 85 +DB102A.CBL: in section 'CCVS-EXIT': +DB102A.CBL: in paragraph 'CCVS-999999': +DB102A.CBL:682: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +DB102A.CBL:257: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./DB102A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([DB103M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([DB]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB103M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 DB103M.CBL], [0], [], [DB103M.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +DB103M.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +DB103M.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +DB103M.CBL:20: warning: SECURITY is obsolete in COBOL 85 +DB103M.CBL:56: warning: LABEL RECORDS is obsolete in COBOL 85 +DB103M.CBL:57: warning: DATA RECORDS is obsolete in COBOL 85 +DB103M.CBL: in section 'START-UP': +DB103M.CBL:214: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB103M.CBL: in section 'FALL-THROUGH-AND-SERIES': +DB103M.CBL:223: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB103M.CBL: in section 'GO-TO': +DB103M.CBL:228: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB103M.CBL: in section 'ALTER-PARAGRAPH': +DB103M.CBL:233: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB103M.CBL: in section 'LOOP-ITERATION': +DB103M.CBL:238: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB103M.CBL: in section 'PERFORM-THRU': +DB103M.CBL:243: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB103M.CBL: in section 'CCVS1': +DB103M.CBL: in paragraph 'ALTER-TEST-INIT': +DB103M.CBL:464: warning: ALTER is obsolete in COBOL 85 +DB103M.CBL: in section 'CCVS-EXIT': +DB103M.CBL: in paragraph 'CCVS-999999': +DB103M.CBL:680: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +DB103M.CBL:255: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./DB103M], [0], [], []) + +AT_CLEANUP +# Reexecution with runtime DEBUG off ./DB103M + + +AT_SETUP([DB104A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([DB]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB104A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -x DB104A.CBL], [0], [], [DB104A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +DB104A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +DB104A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +DB104A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +DB104A.CBL:74: warning: LABEL RECORDS is obsolete in COBOL 85 +DB104A.CBL:75: warning: DATA RECORDS is obsolete in COBOL 85 +DB104A.CBL:82: warning: LABEL RECORDS is obsolete in COBOL 85 +DB104A.CBL: in section 'SORT-IN-PROC': +DB104A.CBL:282: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB104A.CBL: in section 'SORT-OUT-PROC': +DB104A.CBL:290: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB104A.CBL: in section 'USE-PROC': +DB104A.CBL:295: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB104A.CBL: in section 'CCVS1': +DB104A.CBL: in paragraph 'BEGIN-FILE-GENERATION': +DB104A.CBL:413: warning: value size exceeds data size +DB104A.CBL:413: note: value size is 6 +DB104A.CBL:124: note: 'XPROGRAM-NAME' defined here as PIC X(5) +DB104A.CBL: in paragraph 'BEGIN-TESTS': +DB104A.CBL:444: warning: GO TO paragraph 'AFTER-SORT' which is defined in another SECTION +DB104A.CBL:724: note: 'AFTER-SORT IN END-OF-SORT' defined here +DB104A.CBL: in section 'CCVS-EXIT': +DB104A.CBL: in paragraph 'CCVS-999999': +DB104A.CBL:728: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +DB104A.CBL:311: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./DB104A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([DB105A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([DB]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB105A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 DB105A.CBL], [0], [], [DB105A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +DB105A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +DB105A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +DB105A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +DB105A.CBL:93: warning: LABEL RECORDS is obsolete in COBOL 85 +DB105A.CBL:94: warning: DATA RECORDS is obsolete in COBOL 85 +DB105A.CBL: in section 'DEBUG-ALL-PROCS': +DB105A.CBL:512: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB105A.CBL: in section 'CCVS1': +DB105A.CBL: in paragraph 'DE-LETE': +DB105A.CBL:546: warning: value size exceeds data size +DB105A.CBL:546: note: value size is 20 +DB105A.CBL:412: note: 'RE-MARK' defined here as PIC XXX +DB105A.CBL: in section 'PROC-021-GO--PASS-4': +DB105A.CBL: in paragraph 'PROC-025-ALTER-TEST-1': +DB105A.CBL:742: warning: ALTER is obsolete in COBOL 85 +DB105A.CBL: in paragraph 'PROC-030-ALTER-TEST-3': +DB105A.CBL:762: warning: ALTER is obsolete in COBOL 85 +DB105A.CBL: in paragraph 'PROC-032-ALTER-I': +DB105A.CBL:781: warning: ALTER is obsolete in COBOL 85 +DB105A.CBL: in paragraph 'PROC-040-PFM-TEST-1': +DB105A.CBL:805: warning: NEXT SENTENCE is archaic in COBOL 85 +DB105A.CBL: in paragraph 'PROC-045-PFM-B': +DB105A.CBL:836: warning: NEXT SENTENCE is archaic in COBOL 85 +DB105A.CBL: in paragraph 'PROC-047-PFM-TEST-3': +DB105A.CBL:848: warning: NEXT SENTENCE is archaic in COBOL 85 +DB105A.CBL: in paragraph 'PROC-055-PFM-TEST-4': +DB105A.CBL:863: warning: NEXT SENTENCE is archaic in COBOL 85 +DB105A.CBL: in paragraph 'PROC-061-PFM-TEST-5': +DB105A.CBL:878: warning: NEXT SENTENCE is archaic in COBOL 85 +DB105A.CBL: in section 'PROC-211-PFM-A-15': +DB105A.CBL: in paragraph 'PROC-000-PFM-C-15': +DB105A.CBL:1163: warning: value size exceeds data size +DB105A.CBL:1163: note: value size is 21 +DB105A.CBL:412: note: 'RE-MARK' defined here as PIC XXX +DB105A.CBL: in paragraph 'PROC-000-PFM-D-15': +DB105A.CBL:1168: warning: value size exceeds data size +DB105A.CBL:1168: note: value size is 26 +DB105A.CBL:412: note: 'RE-MARK' defined here as PIC XXX +DB105A.CBL: in section 'PROC-000-PFM-J-15': +DB105A.CBL: in paragraph 'PROC-000-PFM-K-15': +DB105A.CBL:1187: warning: value size exceeds data size +DB105A.CBL:1187: note: value size is 25 +DB105A.CBL:412: note: 'RE-MARK' defined here as PIC XXX +DB105A.CBL: in section 'PROC-001-BEGIN-TESTS': +DB105A.CBL: in paragraph 'PROC-017-GO--TEST-3': +DB105A.CBL:699: warning: GO TO SECTION 'PROC-018-GO--PASS-3' +DB105A.CBL: in paragraph 'PROC-000-GO--TEST-3A': +DB105A.CBL:703: warning: GO TO paragraph 'PROC-019-GO--WRITE-3' which is defined in another SECTION +DB105A.CBL:709: note: 'PROC-019-GO--WRITE-3 IN PROC-018-GO--PASS-3' defined here +DB105A.CBL: in paragraph 'PROC-000-GO--DELETE-3': +DB105A.CBL:707: warning: GO TO paragraph 'PROC-019-GO--WRITE-3' which is defined in another SECTION +DB105A.CBL:709: note: 'PROC-019-GO--WRITE-3 IN PROC-018-GO--PASS-3' defined here +DB105A.CBL: in section 'PROC-018-GO--PASS-3': +DB105A.CBL: in paragraph 'PROC-020-GO--TEST-4': +DB105A.CBL:715: warning: GO TO SECTION 'PROC-021-GO--PASS-4' +DB105A.CBL:716: warning: GO TO paragraph 'PROC-000-GO--NUC-FAIL-4' which is defined in another SECTION +DB105A.CBL:728: note: 'PROC-000-GO--NUC-FAIL-4 IN PROC-021-GO--PASS-4' defined here +DB105A.CBL:718: warning: GO TO paragraph 'PROC-000-GO--NUC-FAIL-4' which is defined in another SECTION +DB105A.CBL:728: note: 'PROC-000-GO--NUC-FAIL-4 IN PROC-021-GO--PASS-4' defined here +DB105A.CBL: in paragraph 'PROC-000-GO--DELETE-4': +DB105A.CBL:722: warning: GO TO paragraph 'PROC-023-GO--WRITE-4' which is defined in another SECTION +DB105A.CBL:733: note: 'PROC-023-GO--WRITE-4 IN PROC-021-GO--PASS-4' defined here +DB105A.CBL: in section 'PROC-211-PFM-A-15': +DB105A.CBL: in paragraph 'PROC-212-PFM-TEST-15': +DB105A.CBL:1152: warning: GO TO paragraph 'PROC-218-PFM-WRITE-15' which is defined in another SECTION +DB105A.CBL:1192: note: 'PROC-218-PFM-WRITE-15 IN PROC-000-PFM-J-15' defined here +DB105A.CBL: in paragraph 'PROC-000-PFM-DELETE-15': +DB105A.CBL:1156: warning: GO TO paragraph 'PROC-218-PFM-WRITE-15' which is defined in another SECTION +DB105A.CBL:1192: note: 'PROC-218-PFM-WRITE-15 IN PROC-000-PFM-J-15' defined here +DB105A.CBL: in paragraph 'PROC-000-PFM-C-15': +DB105A.CBL:1164: warning: GO TO paragraph 'PROC-218-PFM-WRITE-15' which is defined in another SECTION +DB105A.CBL:1192: note: 'PROC-218-PFM-WRITE-15 IN PROC-000-PFM-J-15' defined here +DB105A.CBL: in paragraph 'PROC-000-PFM-D-15': +DB105A.CBL:1169: warning: GO TO paragraph 'PROC-218-PFM-WRITE-15' which is defined in another SECTION +DB105A.CBL:1192: note: 'PROC-218-PFM-WRITE-15 IN PROC-000-PFM-J-15' defined here +DB105A.CBL: in paragraph 'PROC-215-PFM-E-15': +DB105A.CBL:1172: warning: GO TO paragraph 'PROC-216-PFM-L-15' which is defined in another SECTION +DB105A.CBL:1189: note: 'PROC-216-PFM-L-15 IN PROC-000-PFM-J-15' defined here +DB105A.CBL: in section 'PROC-213-PFM-G-15': +DB105A.CBL: in paragraph 'PROC-214-PFM-H-15': +DB105A.CBL:1179: warning: GO TO paragraph 'PROC-215-PFM-E-15' which is defined in another SECTION +DB105A.CBL:1170: note: 'PROC-215-PFM-E-15 IN PROC-211-PFM-A-15' defined here +DB105A.CBL: in paragraph 'PROC-000-PFM-I-15': +DB105A.CBL:1182: warning: GO TO paragraph 'PROC-000-PFM-D-15' which is defined in another SECTION +DB105A.CBL:1165: note: 'PROC-000-PFM-D-15 IN PROC-211-PFM-A-15' defined here +DB105A.CBL: in section 'PROC-000-PFM-J-15': +DB105A.CBL: in paragraph 'PROC-216-PFM-L-15': +DB105A.CBL:1191: warning: GO TO paragraph 'PROC-217-PFM-B-15' which is defined in another SECTION +DB105A.CBL:1157: note: 'PROC-217-PFM-B-15 IN PROC-211-PFM-A-15' defined here +DB105A.CBL: in paragraph 'PROC-227-PFM-WRITE-LAST': +DB105A.CBL:1219: warning: GO TO SECTION 'CCVS-EXIT' +DB105A.CBL: in paragraph 'STACK-EMPTY': +DB105A.CBL:1242: warning: GO TO SECTION 'CCVS-EXIT' +DB105A.CBL: in section 'OTHER-PROCEDURES': +DB105A.CBL: in paragraph 'PROC-000-PFM-D': +DB105A.CBL:1374: warning: GO TO paragraph 'PROC-055-PFM-TEST-4' which is defined in another SECTION +DB105A.CBL:859: note: 'PROC-055-PFM-TEST-4 IN PROC-021-GO--PASS-4' defined here +DB105A.CBL: in paragraph 'PROC-000-PFM-I': +DB105A.CBL:1394: warning: GO TO paragraph 'PROC-060-PFM-WRITE-4' which is defined in another SECTION +DB105A.CBL:870: note: 'PROC-060-PFM-WRITE-4 IN PROC-021-GO--PASS-4' defined here +DB105A.CBL: in paragraph 'PROC-000-PFM-K': +DB105A.CBL:1405: warning: GO TO paragraph 'PROC-064-PFM-WRITE-5' which is defined in another SECTION +DB105A.CBL:885: note: 'PROC-064-PFM-WRITE-5 IN PROC-021-GO--PASS-4' defined here +DB105A.CBL: in paragraph 'PROC-000-PFM-M': +DB105A.CBL:1415: warning: GO TO paragraph 'PROC-064-PFM-WRITE-5' which is defined in another SECTION +DB105A.CBL:885: note: 'PROC-064-PFM-WRITE-5 IN PROC-021-GO--PASS-4' defined here +DB105A.CBL: in section 'PROC-000-PFM-Q': +DB105A.CBL: in paragraph 'PROC-000-PFM-R': +DB105A.CBL:1429: warning: GO TO paragraph 'PROC-069-PFM-WRITE-6' which is defined in another SECTION +DB105A.CBL:896: note: 'PROC-069-PFM-WRITE-6 IN PROC-021-GO--PASS-4' defined here +DB105A.CBL: in section 'CCVS-EXIT': +DB105A.CBL: in paragraph 'CCVS-999999': +DB105A.CBL:1452: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +DB105A.CBL:536: note: 'CLOSE-FILES IN CCVS1' defined here +DB105A.CBL:975: warning: PROC-118-PFM-B-10 and PROC-120-PFM-D-10 are not in the same SECTION +DB105A.CBL:981: warning: PROC-117-PFM-A-10 and PROC-120-PFM-D-10 are not in the same SECTION +DB105A.CBL:1015: warning: PROC-140-PFM-B-11 and PROC-140-PFM-D-11 are not in the same SECTION +DB105A.CBL:1021: warning: PROC-139-PFM-A-11 and PROC-140-PFM-D-11 are not in the same SECTION +DB105A.CBL:1151: warning: PROC-213-PFM-G-15 and PROC-217-PFM-B-15 are not in the same SECTION +DB105A.CBL:1151: warning: PROC-217-PFM-B-15 is defined before PROC-213-PFM-G-15 +DB105A.CBL:1176: note: 'PROC-213-PFM-G-15' defined here +DB105A.CBL:1157: note: 'PROC-217-PFM-B-15' defined here +]) +AT_CHECK([./DB105A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([DB201A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([DB]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB201A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -x DB201A.CBL], [0], [], [DB201A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +DB201A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +DB201A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +DB201A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +DB201A.CBL:64: warning: LABEL RECORDS is obsolete in COBOL 85 +DB201A.CBL:65: warning: DATA RECORDS is obsolete in COBOL 85 +DB201A.CBL: in section 'GO-TO-DEPENDING-PROC-1': +DB201A.CBL:233: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB201A.CBL: in section 'GO-TO-DEPENDING-PROC-2': +DB201A.CBL:244: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB201A.CBL: in section 'GO-TO-DEPENDING-PROC-3': +DB201A.CBL:257: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB201A.CBL: in section 'PERFORM-PROC-1': +DB201A.CBL:261: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB201A.CBL: in section 'TABLE-PROC-1': +DB201A.CBL:267: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB201A.CBL: in section 'QUAL-PROC-1': +DB201A.CBL:279: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB201A.CBL: in section 'QUAL-SUBC-PROC-1': +DB201A.CBL:284: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB201A.CBL: in section 'CCVS-EXIT': +DB201A.CBL: in paragraph 'CCVS-999999': +DB201A.CBL:1513: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +DB201A.CBL:297: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./DB201A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([DB202A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([DB]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB202A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -x DB202A.CBL], [0], [], [DB202A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +DB202A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +DB202A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +DB202A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +DB202A.CBL:58: warning: LABEL RECORDS is obsolete in COBOL 85 +DB202A.CBL:59: warning: DATA RECORDS is obsolete in COBOL 85 +DB202A.CBL:66: warning: LABEL RECORDS is obsolete in COBOL 85 +DB202A.CBL: in section 'FILENAME-PROC': +DB202A.CBL:254: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB202A.CBL: in section 'WRITE-PROC': +DB202A.CBL:264: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB202A.CBL: in section 'CCVS-EXIT': +DB202A.CBL: in paragraph 'CCVS-999999': +DB202A.CBL:827: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +DB202A.CBL:277: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./DB202A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([DB203A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([DB]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB203A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -x DB203A.CBL], [0], [], [DB203A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +DB203A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +DB203A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +DB203A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +DB203A.CBL:67: warning: LABEL RECORDS is obsolete in COBOL 85 +DB203A.CBL:68: warning: DATA RECORDS is obsolete in COBOL 85 +DB203A.CBL:75: warning: LABEL RECORDS is obsolete in COBOL 85 +DB203A.CBL: in section 'FILENAME-PROC': +DB203A.CBL:271: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB203A.CBL: in section 'CCVS-EXIT': +DB203A.CBL: in paragraph 'CCVS-999999': +DB203A.CBL:795: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +DB203A.CBL:287: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./DB203A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([DB204A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([DB]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB204A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -x DB204A.CBL], [0], [], [DB204A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +DB204A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +DB204A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +DB204A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +DB204A.CBL:63: warning: LABEL RECORDS is obsolete in COBOL 85 +DB204A.CBL:64: warning: DATA RECORDS is obsolete in COBOL 85 +DB204A.CBL:71: warning: LABEL RECORDS is obsolete in COBOL 85 +DB204A.CBL:77: warning: LABEL RECORDS is obsolete in COBOL 85 +DB204A.CBL:83: warning: LABEL RECORDS is obsolete in COBOL 85 +DB204A.CBL: in section 'MERGE-PROC': +DB204A.CBL:273: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB204A.CBL: in section 'CREATE-INPUT-FILES': +DB204A.CBL: in paragraph 'WRITE-FILES': +DB204A.CBL:415: warning: GO TO SECTION 'BEGIN-DB204A-TESTS' +DB204A.CBL: in section 'BEGIN-DB204A-TESTS': +DB204A.CBL: in paragraph 'MERGE-TEST': +DB204A.CBL:450: warning: GO TO SECTION 'END-OF-DB204A' +DB204A.CBL: in paragraph 'MERGE-TEST-DELETE': +DB204A.CBL:456: warning: GO TO SECTION 'END-OF-DB204A' +DB204A.CBL: in paragraph 'MERGE-TEST-C': +DB204A.CBL:492: warning: GO TO SECTION 'END-OF-DB204A' +DB204A.CBL: in section 'CCVS-EXIT': +DB204A.CBL: in paragraph 'CCVS-999999': +DB204A.CBL:508: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +DB204A.CBL:289: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./DB204A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([DB205A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([DB]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB205A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 DB205A.CBL], [0], [], [DB205A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +DB205A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +DB205A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +DB205A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +DB205A.CBL:38: warning: LABEL RECORDS is obsolete in COBOL 85 +DB205A.CBL:39: warning: DATA RECORDS is obsolete in COBOL 85 +DB205A.CBL:172: warning: COMMUNICATION SECTION is obsolete in COBOL 85 +DB205A.CBL:172: warning: COMMUNICATION SECTION is not implemented +DB205A.CBL: in section 'DEBUG-PROCEDURE': +DB205A.CBL:188: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB205A.CBL: in section 'BEGIN-DB205A-TESTS': +DB205A.CBL: in paragraph 'ACCEPT-TEST-1': +DB205A.CBL:394: warning: ACCEPT MESSAGE COUNT is not implemented +DB205A.CBL: in section 'CCVS-EXIT': +DB205A.CBL: in paragraph 'CCVS-999999': +DB205A.CBL:594: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +DB205A.CBL:204: note: 'CLOSE-FILES IN CCVS1' defined here +]) + +AT_CLEANUP + +AT_SETUP([DB301M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([DB]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB301M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 DB301M.CBL], [0], [], [DB301M.CBL: in section 'BUGGING-2': +DB301M.CBL:33: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +]) +AT_CHECK([./DB301M], [0], [THIS IS A DUMMY PROCEDURE +], []) + +AT_CLEANUP + + +AT_SETUP([DB302M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([DB]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB302M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 DB302M.CBL], [0], [], [DB302M.CBL: in section 'BUGGING': +DB302M.CBL:33: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +]) +AT_CHECK([./DB302M], [0], [THIS IS A DUMMY PROCEDURE +], []) + +AT_CLEANUP + + +AT_SETUP([DB303M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([DB]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB303M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 DB303M.CBL], [0], [], [DB303M.CBL: in section 'BUGGING-2': +DB303M.CBL:33: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB303M.CBL: in section 'BUGGING-3': +DB303M.CBL:41: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +]) +AT_CHECK([./DB303M], [0], [THIS IS A DUMMY PROCEDURE +], []) + +AT_CLEANUP + + +AT_SETUP([DB304M]) +# promoted on 2023-02-04T01:16 +AT_KEYWORDS([DB]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB304M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -Wobsolete DB304M.CBL], [0], [], [DB304M.CBL:15: warning: COMMUNICATION SECTION is obsolete in COBOL 85 +DB304M.CBL:15: warning: COMMUNICATION SECTION is not implemented +DB304M.CBL: in section 'BUGGING': +DB304M.CBL:28: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +]) +AT_CHECK([./DB304M], [0], [THIS IS A DUMMY PROCEDURE +], []) + +AT_CLEANUP + + +AT_SETUP([DB305M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([DB]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB305M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 DB305M.CBL], [0], [], [DB305M.CBL: in section 'BUGGING': +DB305M.CBL:33: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +]) +AT_CHECK([./DB305M], [0], [THIS IS A DUMMY PROCEDURE +], []) + +AT_CLEANUP diff --git a/tests/cobol85/nistrun.src/run_IC.at b/tests/cobol85/nistrun.src/run_IC.at new file mode 100644 index 000000000..efe6f7a8b --- /dev/null +++ b/tests/cobol85/nistrun.src/run_IC.at @@ -0,0 +1,750 @@ + +AT_SETUP([IC102A]) +# promoted on 2023-02-03T10:18 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC102A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC102A.CBL], [0], [], []) + +AT_CLEANUP + + + + + +AT_SETUP([IC104A]) +# promoted on 2023-02-03T10:18 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC104A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC104A.CBL], [0], [], []) + +AT_CLEANUP + + + + + +AT_SETUP([IC105A]) +# promoted on 2023-02-03T10:18 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC105A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC105A.CBL], [0], [], []) + +AT_CLEANUP + + + + + +AT_SETUP([IC107A]) +# promoted on 2023-02-03T10:18 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC107A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC107A.CBL], [0], [], []) + +AT_CLEANUP + + + + + +AT_SETUP([IC109A]) +# promoted on 2023-02-03T10:18 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC109A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC109A.CBL], [0], [], []) + +AT_CLEANUP + + + + + +AT_SETUP([IC110A]) +# promoted on 2023-02-03T10:18 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC110A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC110A.CBL], [0], [], []) + +AT_CLEANUP + + + + + +AT_SETUP([IC111A]) +# promoted on 2023-02-03T10:18 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC111A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC111A.CBL], [0], [], []) + +AT_CLEANUP + + + + + +AT_SETUP([IC113A]) +# promoted on 2023-02-03T10:18 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC113A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC113A.CBL], [0], [], []) + +AT_CLEANUP + + + + + +AT_SETUP([IC115A]) +# promoted on 2023-02-03T10:18 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC115A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC115A.CBL], [0], [], [IC115A.CBL:54: warning: LABEL RECORDS is obsolete in COBOL 85 +IC115A.CBL:55: warning: DATA RECORDS is obsolete in COBOL 85 +IC115A.CBL: in section 'SECT-IC115-0001': +IC115A.CBL: in paragraph 'INIT-PARAGRAPH': +IC115A.CBL:125: warning: GO TO SECTION 'SECT-IC115-0002' +IC115A.CBL:125: warning: GO TO SECTION 'SECT-IC115-0003' +IC115A.CBL:125: warning: GO TO SECTION 'SECT-IC115-0004' +IC115A.CBL:126: warning: GO TO SECTION 'SECT-IC115-0005' +IC115A.CBL:126: warning: GO TO SECTION 'SECT-IC115-0006' +]) + +AT_CLEANUP + + + + +AT_SETUP([IC117M]) +# promoted on 2023-02-03T10:18 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC117M.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC117M.CBL], [0], [], []) + +AT_CLEANUP + + + + + +AT_SETUP([IC118M]) +# promoted on 2023-02-03T10:18 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC118M.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC118M.CBL], [0], [], []) + +AT_CLEANUP + + + + + +AT_SETUP([IC202A]) +# promoted on 2023-02-03T10:18 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC202A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC202A.CBL], [0], [], []) + +AT_CLEANUP + + + + + +AT_SETUP([IC204A]) +# promoted on 2023-02-03T10:18 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC204A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC204A.CBL], [0], [], []) + +AT_CLEANUP + + + + + +AT_SETUP([IC205A]) +# promoted on 2023-02-03T10:18 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC205A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC205A.CBL], [0], [], []) + +AT_CLEANUP + + + + + +AT_SETUP([IC206A]) +# promoted on 2023-02-03T10:18 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC206A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC206A.CBL], [0], [], []) + +AT_CLEANUP + + + + + +AT_SETUP([IC208A]) +# promoted on 2023-02-03T10:18 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC208A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC208A.CBL], [0], [], []) + +AT_CLEANUP + + + + + +AT_SETUP([IC210A]) +# promoted on 2023-02-03T10:18 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC210A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC210A.CBL], [0], [], []) + +AT_CLEANUP + + + + + +AT_SETUP([IC211A]) +# promoted on 2023-02-03T10:18 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC211A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC211A.CBL], [0], [], []) + +AT_CLEANUP + + + + + +AT_SETUP([IC212A]) +# promoted on 2023-02-03T10:18 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC212A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC212A.CBL], [0], [], []) + +AT_CLEANUP + + + + + +AT_SETUP([IC214A]) +# promoted on 2023-02-03T10:18 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC214A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC214A.CBL], [0], [], []) + +AT_CLEANUP + + + + + +AT_SETUP([IC215A]) +# promoted on 2023-02-03T10:18 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC215A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC215A.CBL], [0], [], []) + +AT_CLEANUP + + + + + +AT_SETUP([IC217A]) +# promoted on 2023-02-03T10:18 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC217A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC217A.CBL], [0], [], []) + +AT_CLEANUP + + + + + +AT_SETUP([IC101A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC102A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC102A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC101A.CBL], [0], [], [IC101A.CBL: in section 'SECT-IC101-0001': +IC101A.CBL: in paragraph 'CALL-END-ROUTINE': +IC101A.CBL:377: warning: GO TO SECTION 'CCVS-EXIT' +IC101A.CBL: in section 'CCVS-EXIT': +IC101A.CBL: in paragraph 'CCVS-999999': +IC101A.CBL:380: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IC101A.CBL:201: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IC101A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([IC103A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC104A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC104A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC105A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC105A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC103A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC103A.CBL], [0], [], [IC103A.CBL: in section 'SECT-IC103-0001': +IC103A.CBL: in paragraph 'EXIT-WRITE-004': +IC103A.CBL:382: warning: GO TO SECTION 'SECT-IC103-0002' +IC103A.CBL: in section 'SECT-IC103-0002': +IC103A.CBL: in paragraph 'CALL-DELETE-06': +IC103A.CBL:416: warning: GO TO SECTION 'CCVS-EXIT' +IC103A.CBL: in paragraph 'CALL-WRITE-06-06': +IC103A.CBL:492: warning: GO TO SECTION 'CCVS-EXIT' +IC103A.CBL: in section 'CCVS-EXIT': +IC103A.CBL: in paragraph 'CCVS-999999': +IC103A.CBL:495: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IC103A.CBL:205: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IC103A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([IC106A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC107A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC107A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC106A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC106A.CBL], [0], [], [IC106A.CBL: in section 'SEC-IC106-0001': +IC106A.CBL: in paragraph 'LINK-END-ROUTINE': +IC106A.CBL:525: warning: GO TO SECTION 'CCVS-EXIT' +IC106A.CBL: in section 'CCVS-EXIT': +IC106A.CBL: in paragraph 'CCVS-999999': +IC106A.CBL:528: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IC106A.CBL:208: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IC106A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([IC108A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC109A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC109A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC110A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC110A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC108A.CBL .], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC111A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC111A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC108A.CBL], [0], [], [IC108A.CBL: in section 'SECTION-IC108-0001': +IC108A.CBL: in paragraph 'LINK-WRITE-07-03': +IC108A.CBL:439: warning: GO TO SECTION 'CCVS-EXIT' +IC108A.CBL: in section 'CCVS-EXIT': +IC108A.CBL: in paragraph 'CCVS-999999': +IC108A.CBL:442: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IC108A.CBL:203: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IC108A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([IC112A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC113A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC113A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC112A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC112A.CBL], [0], [], [IC112A.CBL:62: warning: LABEL RECORDS is obsolete in COBOL 85 +IC112A.CBL:63: warning: DATA RECORDS is obsolete in COBOL 85 +IC112A.CBL: in section 'CCVS-EXIT': +IC112A.CBL: in paragraph 'CCVS-999999': +IC112A.CBL:520: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IC112A.CBL:271: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IC112A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([IC114A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC115A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC115A.CBL], [0], [], [IC115A.CBL:54: warning: LABEL RECORDS is obsolete in COBOL 85 +IC115A.CBL:55: warning: DATA RECORDS is obsolete in COBOL 85 +IC115A.CBL: in section 'SECT-IC115-0001': +IC115A.CBL: in paragraph 'INIT-PARAGRAPH': +IC115A.CBL:125: warning: GO TO SECTION 'SECT-IC115-0002' +IC115A.CBL:125: warning: GO TO SECTION 'SECT-IC115-0003' +IC115A.CBL:125: warning: GO TO SECTION 'SECT-IC115-0004' +IC115A.CBL:126: warning: GO TO SECTION 'SECT-IC115-0005' +IC115A.CBL:126: warning: GO TO SECTION 'SECT-IC115-0006' +]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC114A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC114A.CBL], [0], [], [IC114A.CBL: in section 'CCVS-EXIT': +IC114A.CBL: in paragraph 'CCVS-999999': +IC114A.CBL:444: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IC114A.CBL:223: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IC114A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([IC116M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC117M.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC117M.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC116M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC116M.CBL], [0], [], [IC116M.CBL: in section 'CCVS-EXIT': +IC116M.CBL: in paragraph 'CCVS-999999': +IC116M.CBL:341: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IC116M.CBL:212: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC118M.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC118M.CBL], [0], [], []) +AT_CHECK([./IC116M], [0], [ +IC117M CALLED +IC118M CALLED +RETURNED TO IC117M +], []) + +AT_CLEANUP + + +AT_SETUP([IC201A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC202A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC202A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC201A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC201A.CBL], [0], [], [IC201A.CBL: in section 'SECT-IC201-0001': +IC201A.CBL: in paragraph 'CALL-TEST-02-01': +IC201A.CBL:385: warning: duplicate USING BY REFERENCE item 'DN1' +IC201A.CBL: in paragraph 'CALL-TEST-02-02': +IC201A.CBL:427: warning: duplicate USING BY REFERENCE item 'DN2' +IC201A.CBL: in paragraph 'CALL-TEST-02-03': +IC201A.CBL:471: warning: duplicate USING BY REFERENCE item 'DN1' +IC201A.CBL:471: warning: duplicate USING BY REFERENCE item 'DN2' +IC201A.CBL: in section 'SECT-IC201-0002': +IC201A.CBL: in paragraph 'CHECK-TEST-01': +IC201A.CBL:596: warning: NEXT SENTENCE is archaic in COBOL 85 +IC201A.CBL: in section 'SECT-IC201-0001': +IC201A.CBL: in paragraph 'EXIT-IC201': +IC201A.CBL:590: warning: GO TO SECTION 'CCVS-EXIT' +IC201A.CBL: in section 'CCVS-EXIT': +IC201A.CBL: in paragraph 'CCVS-999999': +IC201A.CBL:617: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IC201A.CBL:203: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IC201A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([IC203A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC204A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC204A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC203A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC203A.CBL], [0], [], [IC203A.CBL: in section 'CCVS-EXIT': +IC203A.CBL: in paragraph 'CCVS-999999': +IC203A.CBL:681: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IC203A.CBL:205: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC205A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC205A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC206A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC206A.CBL], [0], [], []) +AT_CHECK([./IC203A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([IC207A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC208A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC208A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC207A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC207A.CBL], [0], [], [IC207A.CBL: in section 'SECT-IC207-0001': +IC207A.CBL: in paragraph 'EXIT-IC207': +IC207A.CBL:474: warning: GO TO SECTION 'CCVS-EXIT' +IC207A.CBL: in section 'CCVS-EXIT': +IC207A.CBL: in paragraph 'CCVS-999999': +IC207A.CBL:477: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IC207A.CBL:205: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IC207A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([IC209A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC210A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC210A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC209A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC209A.CBL], [0], [], [IC209A.CBL: in section 'CCVS-EXIT': +IC209A.CBL: in paragraph 'CCVS-999999': +IC209A.CBL:350: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IC209A.CBL:193: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC211A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC211A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC212A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC212A.CBL], [0], [], []) +AT_CHECK([./IC209A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([IC213A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC214A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC214A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC213A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC213A.CBL], [0], [], [IC213A.CBL: in section 'CCVS-EXIT': +IC213A.CBL: in paragraph 'CCVS-999999': +IC213A.CBL:339: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IC213A.CBL:191: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC215A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC215A.CBL], [0], [], []) +AT_CHECK([./IC213A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([IC216A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC217A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 IC217A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC216A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC216A.CBL], [0], [], [IC216A.CBL: in section 'CCVS1': +IC216A.CBL: in paragraph 'CALL-FAIL-1': +IC216A.CBL:312: warning: alphanumeric value is expected +IC216A.CBL:79: note: 'CORRECT-A' defined here as PIC X(20) +IC216A.CBL: in section 'CCVS-EXIT': +IC216A.CBL: in paragraph 'CCVS-999999': +IC216A.CBL:331: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IC216A.CBL:197: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IC216A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([IC222A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC222A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC222A.CBL], [0], [], [IC222A.CBL: in section 'CCVS-EXIT': +IC222A.CBL: in paragraph 'CCVS-999999': +IC222A.CBL:1015: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IC222A.CBL:264: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IC222A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IC223A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC223A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC223A.CBL], [0], [], [IC223A.CBL: in section 'SECT-IC223A-001': +IC223A.CBL: in paragraph 'CALL-TEST-02-01': +IC223A.CBL:401: warning: duplicate USING BY REFERENCE item 'DN1' +IC223A.CBL: in paragraph 'CALL-TEST-02-02': +IC223A.CBL:444: warning: duplicate USING BY REFERENCE item 'DN2' +IC223A.CBL: in paragraph 'CALL-TEST-02-03': +IC223A.CBL:489: warning: duplicate USING BY REFERENCE item 'DN1' +IC223A.CBL:489: warning: duplicate USING BY REFERENCE item 'DN2' +IC223A.CBL: in section 'SECT-IC223A-002': +IC223A.CBL: in paragraph 'CHECK-TEST-01': +IC223A.CBL:619: warning: NEXT SENTENCE is archaic in COBOL 85 +IC223A.CBL: in section 'SECT-IC223A-001': +IC223A.CBL: in paragraph 'EXIT-IC223A': +IC223A.CBL:613: warning: GO TO SECTION 'CCVS-EXIT' +IC223A.CBL: in section 'CCVS-EXIT': +IC223A.CBL: in paragraph 'CCVS-999999': +IC223A.CBL:640: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IC223A.CBL:215: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IC223A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IC224A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC224A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC224A.CBL], [0], [], [IC224A.CBL: in section 'SECT-IC224A-001': +IC224A.CBL: in paragraph 'EXIT-IC224A': +IC224A.CBL:523: warning: GO TO SECTION 'CCVS-EXIT' +IC224A.CBL: in section 'CCVS-EXIT': +IC224A.CBL: in paragraph 'CCVS-999999': +IC224A.CBL:572: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IC224A.CBL:221: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IC224A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IC225A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC225A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC225A.CBL], [0], [], [IC225A.CBL: in section 'SECT-IC225A-001': +IC225A.CBL: in paragraph 'CALL-TEST-02-01-0': +IC225A.CBL:527: warning: duplicate USING BY REFERENCE item 'DN1' +IC225A.CBL: in paragraph 'CALL-TEST-02-03-0': +IC225A.CBL:650: warning: duplicate USING BY REFERENCE item 'DN2' +IC225A.CBL: in paragraph 'EXIT-IC225A': +IC225A.CBL:914: warning: GO TO SECTION 'CCVS-EXIT' +IC225A.CBL: in section 'CCVS-EXIT': +IC225A.CBL: in paragraph 'CCVS-999999': +IC225A.CBL:929: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IC225A.CBL:215: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IC225A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IC226A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC226A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC226A.CBL], [0], [], [IC226A.CBL: in section 'SECT-IC226A-001': +IC226A.CBL: in paragraph 'EXT-DELETE-01-01': +IC226A.CBL:333: warning: GO TO SECTION 'CCVS-EXIT' +IC226A.CBL: in section 'CCVS-EXIT': +IC226A.CBL: in paragraph 'CCVS-999999': +IC226A.CBL:384: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IC226A.CBL:212: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IC226A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IC227A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC227A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC227A.CBL], [0], [], [IC227A.CBL: in section 'CCVS-EXIT': +IC227A.CBL: in paragraph 'CCVS-999999': +IC227A.CBL:967: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IC227A.CBL:262: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IC227A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IC228A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC228A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC228A.CBL], [0], [], [IC228A.CBL: in section 'SECT-IC228A-001': +IC228A.CBL: in paragraph 'GLO-DELETE-01-01': +IC228A.CBL:335: warning: GO TO SECTION 'CCVS-EXIT' +IC228A.CBL: in section 'CCVS-EXIT': +IC228A.CBL: in paragraph 'CCVS-999999': +IC228A.CBL:386: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IC228A.CBL:215: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IC228A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IC233A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC233A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC233A.CBL], [0], [], [IC233A.CBL: in section 'SECT-IC233A-1R-001': +IC233A.CBL: in paragraph 'USE-TEST-0': +IC233A.CBL:386: warning: GO TO SECTION 'CCVS-EXIT' +IC233A.CBL: in section 'CCVS-EXIT': +IC233A.CBL: in paragraph 'CCVS-999999': +IC233A.CBL:398: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IC233A.CBL:273: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IC233A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IC234A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC234A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC234A.CBL], [0], [], [IC234A.CBL: in section 'CCVS-EXIT': +IC234A.CBL: in paragraph 'CCVS-999999': +IC234A.CBL:363: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IC234A.CBL:229: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IC234A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([IC235A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC235A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC235A.CBL], [0], [], [IC235A.CBL: in section 'SECT-IC235-0002': +IC235A.CBL: in paragraph 'CALL-INIT-06': +IC235A.CBL:421: warning: alphanumeric value is expected +IC235A.CBL:65: note: 'ELEM-NON-01' defined here as PIC XX +IC235A.CBL:422: warning: alphanumeric value is expected +IC235A.CBL:67: note: 'SUBSCRIPTED-DATA' defined here as PIC XX +IC235A.CBL: in section 'SECT-IC235-0001': +IC235A.CBL: in paragraph 'EXIT-WRITE-004': +IC235A.CBL:395: warning: GO TO SECTION 'SECT-IC235-0002' +IC235A.CBL: in section 'SECT-IC235-0002': +IC235A.CBL: in paragraph 'CALL-DELETE-06': +IC235A.CBL:431: warning: GO TO SECTION 'CCVS-EXIT' +IC235A.CBL: in paragraph 'CALL-WRITE-06-08': +IC235A.CBL:534: warning: GO TO SECTION 'CCVS-EXIT' +IC235A.CBL: in section 'CCVS-EXIT': +IC235A.CBL: in paragraph 'CCVS-999999': +IC235A.CBL:537: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IC235A.CBL:218: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IC235A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([IC237A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC237A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC237A.CBL], [0], [], [IC237A.CBL: in section 'CCVS-EXIT': +IC237A.CBL: in paragraph 'CCVS-999999': +IC237A.CBL:323: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IC237A.CBL:195: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IC237A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IC401M]) +AT_KEYWORDS([IC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC401M.CBL .],[0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC401M.CBL], [0], [], []) +# AT_CHECK([./IC401M], [0], [], []) +AT_CLEANUP diff --git a/tests/cobol85/nistrun.src/run_IF.at b/tests/cobol85/nistrun.src/run_IF.at new file mode 100644 index 000000000..00b4ac0c6 --- /dev/null +++ b/tests/cobol85/nistrun.src/run_IF.at @@ -0,0 +1,610 @@ + +AT_SETUP([IF101A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF101A.CBL], [0], [], [IF101A.CBL: in section 'CCVS-EXIT': +IF101A.CBL: in paragraph 'CCVS-999999': +IF101A.CBL:906: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF101A.CBL:225: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF101A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF102A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF102A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF102A.CBL], [0], [], [IF102A.CBL: in section 'CCVS-EXIT': +IF102A.CBL: in paragraph 'CCVS-999999': +IF102A.CBL:617: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF102A.CBL:222: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF102A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF103A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF103A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF103A.CBL], [0], [], [IF103A.CBL: in section 'CCVS-EXIT': +IF103A.CBL: in paragraph 'CCVS-999999': +IF103A.CBL:840: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF103A.CBL:225: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF103A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF104A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF104A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF104A.CBL], [0], [], [IF104A.CBL: in section 'CCVS-EXIT': +IF104A.CBL: in paragraph 'CCVS-999999': +IF104A.CBL:927: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF104A.CBL:224: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF104A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF105A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF105A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF105A.CBL], [0], [], [IF105A.CBL: in section 'CCVS-EXIT': +IF105A.CBL: in paragraph 'CCVS-999999': +IF105A.CBL:487: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF105A.CBL:222: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF105A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF106A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF106A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF106A.CBL], [0], [], [IF106A.CBL: in section 'CCVS-EXIT': +IF106A.CBL: in paragraph 'CCVS-999999': +IF106A.CBL:1005: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF106A.CBL:224: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF106A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF107A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF107A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF107A.CBL], [0], [], [IF107A.CBL:52: warning: redefinition of 'WS-SECOND' +IF107A.CBL:37: note: 'WS-SECOND' previously defined here +IF107A.CBL: in section 'CCVS-EXIT': +IF107A.CBL: in paragraph 'CCVS-999999': +IF107A.CBL:379: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF107A.CBL:214: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF107A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF108A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF108A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF108A.CBL], [0], [], [IF108A.CBL: in section 'CCVS-EXIT': +IF108A.CBL: in paragraph 'CCVS-999999': +IF108A.CBL:489: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF108A.CBL:191: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF108A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF109A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF109A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF109A.CBL], [0], [], [IF109A.CBL: in section 'CCVS-EXIT': +IF109A.CBL: in paragraph 'CCVS-999999': +IF109A.CBL:451: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF109A.CBL:191: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF109A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF110A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF110A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF110A.CBL], [0], [], [IF110A.CBL: in section 'CCVS-EXIT': +IF110A.CBL: in paragraph 'CCVS-999999': +IF110A.CBL:500: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF110A.CBL:220: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF110A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF111A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF111A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF111A.CBL], [0], [], [IF111A.CBL: in section 'CCVS-EXIT': +IF111A.CBL: in paragraph 'CCVS-999999': +IF111A.CBL:731: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF111A.CBL:195: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF111A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF112A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF112A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF112A.CBL], [0], [], [IF112A.CBL: in section 'CCVS-EXIT': +IF112A.CBL: in paragraph 'CCVS-999999': +IF112A.CBL:452: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF112A.CBL:190: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF112A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF113A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF113A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF113A.CBL], [0], [], [IF113A.CBL: in section 'CCVS-EXIT': +IF113A.CBL: in paragraph 'CCVS-999999': +IF113A.CBL:451: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF113A.CBL:191: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF113A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF114A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF114A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF114A.CBL], [0], [], [IF114A.CBL: in section 'SECT-IF114A': +IF114A.CBL: in paragraph 'F-INTPART-INFO': +IF114A.CBL:313: warning: value size exceeds data size +IF114A.CBL:313: note: value size is 21 +IF114A.CBL:48: note: 'FEATURE' defined here as PIC X(20) +IF114A.CBL: in section 'CCVS-EXIT': +IF114A.CBL: in paragraph 'CCVS-999999': +IF114A.CBL:732: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF114A.CBL:195: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF114A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF115A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF115A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF115A.CBL], [0], [], [IF115A.CBL: in section 'SECT-IF115A': +IF115A.CBL: in paragraph 'F-LENGTH-TEST-01': +IF115A.CBL:315: warning: alphanumeric value is expected +IF115A.CBL:69: note: 'CORRECT-X' defined here as a group of length 70 +IF115A.CBL: in paragraph 'F-LENGTH-TEST-02': +IF115A.CBL:328: warning: expression '20' EQUALS '20' is always TRUE +IF115A.CBL: in paragraph 'F-LENGTH-TEST-03': +IF115A.CBL:343: warning: expression '4' EQUALS '4' is always TRUE +IF115A.CBL:346: warning: alphanumeric value is expected +IF115A.CBL:69: note: 'CORRECT-X' defined here as a group of length 70 +IF115A.CBL: in paragraph 'F-LENGTH-TEST-04': +IF115A.CBL:364: warning: alphanumeric value is expected +IF115A.CBL:69: note: 'CORRECT-X' defined here as a group of length 70 +IF115A.CBL: in paragraph 'F-LENGTH-TEST-05': +IF115A.CBL:382: warning: alphanumeric value is expected +IF115A.CBL:69: note: 'CORRECT-X' defined here as a group of length 70 +IF115A.CBL: in paragraph 'F-LENGTH-TEST-06': +IF115A.CBL:400: warning: alphanumeric value is expected +IF115A.CBL:69: note: 'CORRECT-X' defined here as a group of length 70 +IF115A.CBL: in section 'CCVS-EXIT': +IF115A.CBL: in paragraph 'CCVS-999999': +IF115A.CBL:450: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF115A.CBL:188: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF115A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF116A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF116A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF116A.CBL], [0], [], [IF116A.CBL: in section 'CCVS-EXIT': +IF116A.CBL: in paragraph 'CCVS-999999': +IF116A.CBL:889: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF116A.CBL:225: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF116A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF117A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF117A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF117A.CBL], [0], [], [IF117A.CBL: in section 'CCVS-EXIT': +IF117A.CBL: in paragraph 'CCVS-999999': +IF117A.CBL:1037: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF117A.CBL:225: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF117A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF118A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF118A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF118A.CBL], [0], [], [IF118A.CBL: in section 'CCVS-EXIT': +IF118A.CBL: in paragraph 'CCVS-999999': +IF118A.CBL:544: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF118A.CBL:190: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF118A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF119A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF119A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF119A.CBL], [0], [], [IF119A.CBL: in section 'CCVS-EXIT': +IF119A.CBL: in paragraph 'CCVS-999999': +IF119A.CBL:797: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF119A.CBL:235: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF119A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF120A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF120A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF120A.CBL], [0], [], [IF120A.CBL: in section 'CCVS-EXIT': +IF120A.CBL: in paragraph 'CCVS-999999': +IF120A.CBL:684: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF120A.CBL:232: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF120A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF121A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF121A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF121A.CBL], [0], [], [IF121A.CBL: in section 'CCVS-EXIT': +IF121A.CBL: in paragraph 'CCVS-999999': +IF121A.CBL:680: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF121A.CBL:232: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF121A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF122A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF122A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF122A.CBL], [0], [], [IF122A.CBL: in section 'CCVS-EXIT': +IF122A.CBL: in paragraph 'CCVS-999999': +IF122A.CBL:680: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF122A.CBL:231: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF122A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF123A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF123A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF123A.CBL], [0], [], [IF123A.CBL: in section 'CCVS-EXIT': +IF123A.CBL: in paragraph 'CCVS-999999': +IF123A.CBL:797: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF123A.CBL:238: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF123A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF124A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF124A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF124A.CBL], [0], [], [IF124A.CBL: in section 'CCVS-EXIT': +IF124A.CBL: in paragraph 'CCVS-999999': +IF124A.CBL:761: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF124A.CBL:219: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF124A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF125A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF125A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF125A.CBL], [0], [], [IF125A.CBL: in section 'SECT-IF125A': +IF125A.CBL: in paragraph 'F-NUMVAL-TEST-12': +IF125A.CBL:518: warning: literal '.428991' has more decimals than 'TEMP' +IF125A.CBL:519: warning: literal '.429009' has more decimals than 'TEMP' +IF125A.CBL: in section 'CCVS-EXIT': +IF125A.CBL: in paragraph 'CCVS-999999': +IF125A.CBL:686: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF125A.CBL:194: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF125A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF126A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF126A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF126A.CBL], [0], [], [IF126A.CBL: in section 'SECT-IF126A': +IF126A.CBL: in paragraph 'F-NUMVALC-TEST-04': +IF126A.CBL:380: warning: literal '.428991' has more decimals than 'TEMP' +IF126A.CBL:381: warning: literal '.429009' has more decimals than 'TEMP' +IF126A.CBL: in section 'CCVS-EXIT': +IF126A.CBL: in paragraph 'CCVS-999999': +IF126A.CBL:886: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF126A.CBL:207: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF126A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF127A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF127A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF127A.CBL], [0], [], [IF127A.CBL: in section 'CCVS-EXIT': +IF127A.CBL: in paragraph 'CCVS-999999': +IF127A.CBL:505: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF127A.CBL:221: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF127A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF128A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF128A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF128A.CBL], [0], [], [IF128A.CBL: in section 'CCVS-EXIT': +IF128A.CBL: in paragraph 'CCVS-999999': +IF128A.CBL:647: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF128A.CBL:229: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF128A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF129A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF129A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF129A.CBL], [0], [], [IF129A.CBL: in section 'CCVS-EXIT': +IF129A.CBL: in paragraph 'CCVS-999999': +IF129A.CBL:632: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF129A.CBL:201: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF129A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF130A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF130A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF130A.CBL], [0], [], [IF130A.CBL: in section 'SECT-IF130A': +IF130A.CBL: in paragraph 'F-PRES-VAL-INFO': +IF130A.CBL:357: warning: value size exceeds data size +IF130A.CBL:357: note: value size is 22 +IF130A.CBL:58: note: 'FEATURE' defined here as PIC X(20) +IF130A.CBL: in section 'CCVS-EXIT': +IF130A.CBL: in paragraph 'CCVS-999999': +IF130A.CBL:818: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF130A.CBL:233: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF130A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF131A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF131A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF131A.CBL], [0], [], [IF131A.CBL: in section 'CCVS-EXIT': +IF131A.CBL: in paragraph 'CCVS-999999': +IF131A.CBL:512: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF131A.CBL:219: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF131A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF132A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF132A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF132A.CBL], [0], [], [IF132A.CBL: in section 'CCVS-EXIT': +IF132A.CBL: in paragraph 'CCVS-999999': +IF132A.CBL:633: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF132A.CBL:231: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF132A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF133A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF133A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF133A.CBL], [0], [], [IF133A.CBL: in section 'CCVS-EXIT': +IF133A.CBL: in paragraph 'CCVS-999999': +IF133A.CBL:678: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF133A.CBL:220: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF133A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF134A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF134A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF134A.CBL], [0], [], [IF134A.CBL: in section 'CCVS-EXIT': +IF134A.CBL: in paragraph 'CCVS-999999': +IF134A.CBL:546: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF134A.CBL:190: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF134A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF135A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF135A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF135A.CBL], [0], [], [IF135A.CBL: in section 'CCVS-EXIT': +IF135A.CBL: in paragraph 'CCVS-999999': +IF135A.CBL:1036: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF135A.CBL:224: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF135A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF136A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF136A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF136A.CBL], [0], [], [IF136A.CBL: in section 'CCVS-EXIT': +IF136A.CBL: in paragraph 'CCVS-999999': +IF136A.CBL:904: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF136A.CBL:224: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF136A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF137A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF137A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF137A.CBL], [0], [], [IF137A.CBL: in section 'CCVS-EXIT': +IF137A.CBL: in paragraph 'CCVS-999999': +IF137A.CBL:725: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF137A.CBL:229: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF137A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF138A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF138A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF138A.CBL], [0], [], [IF138A.CBL: in section 'CCVS-EXIT': +IF138A.CBL: in paragraph 'CCVS-999999': +IF138A.CBL:659: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF138A.CBL:231: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF138A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF139A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF139A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF139A.CBL], [0], [], [IF139A.CBL: in section 'CCVS-EXIT': +IF139A.CBL: in paragraph 'CCVS-999999': +IF139A.CBL:992: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF139A.CBL:224: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF139A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF140A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF140A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF140A.CBL], [0], [], [IF140A.CBL: in section 'CCVS-EXIT': +IF140A.CBL: in paragraph 'CCVS-999999': +IF140A.CBL:543: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF140A.CBL:190: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF140A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF141A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF141A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF141A.CBL], [0], [], [IF141A.CBL: in section 'CCVS-EXIT': +IF141A.CBL: in paragraph 'CCVS-999999': +IF141A.CBL:692: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF141A.CBL:227: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF141A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF142A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF142A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF142A.CBL], [0], [], [IF142A.CBL: in section 'CCVS-EXIT': +IF142A.CBL: in paragraph 'CCVS-999999': +IF142A.CBL:367: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IF142A.CBL:203: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IF142A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF401M]) +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF401M.CBL .],[0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF401M.CBL], [0], [], []) +AT_CHECK([./IF401M], [0], [], []) +AT_CLEANUP + +AT_SETUP([IF402M]) +# promoted on 2023-02-04T01:16 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF402M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF402M.CBL], [0], [], [IF402M.CBL: in paragraph 'IF402M-LENGTH': +IF402M.CBL:36: warning: expression '3' EQUALS '3' is always TRUE +]) +AT_CHECK([./IF402M], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF403M]) +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF403M.CBL .],[0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF403M.CBL], [0], [], []) +AT_CHECK([./IF403M], [0], [], []) +AT_CLEANUP diff --git a/tests/cobol85/nistrun.src/run_IX.at b/tests/cobol85/nistrun.src/run_IX.at new file mode 100644 index 000000000..c36595374 --- /dev/null +++ b/tests/cobol85/nistrun.src/run_IX.at @@ -0,0 +1,883 @@ + +AT_SETUP([IX101A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX101A.CBL], [0], [], [IX101A.CBL: in section 'CCVS-EXIT': +IX101A.CBL: in paragraph 'CCVS-999999': +IX101A.CBL:459: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX101A.CBL:286: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX101A], [0], [], []) + +AT_CLEANUP + +# We need to create files XXXXX* from IX101A +AT_SETUP([IX102A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX101A.CBL], [0], [], [IX101A.CBL: in section 'CCVS-EXIT': +IX101A.CBL: in paragraph 'CCVS-999999': +IX101A.CBL:459: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX101A.CBL:286: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX101A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX102A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX102A.SUB], [0], [], [IX102A.SUB: in section 'SECT-IX-02-001': +IX102A.SUB: in paragraph 'READ-TEST-F2-01': +IX102A.SUB:436: warning: value size exceeds data size +IX102A.SUB:436: note: value size is 21 +IX102A.SUB:171: note: 'COMPUTED-A' defined here as PIC X(20) +IX102A.SUB: in paragraph 'REWRITE-TEST-F2-01': +IX102A.SUB:517: warning: value size exceeds data size +IX102A.SUB:517: note: value size is 21 +IX102A.SUB:171: note: 'COMPUTED-A' defined here as PIC X(20) +IX102A.SUB: in paragraph 'REWRITE-TEST-F2-03': +IX102A.SUB:564: warning: value size exceeds data size +IX102A.SUB:564: note: value size is 22 +IX102A.SUB:171: note: 'COMPUTED-A' defined here as PIC X(20) +IX102A.SUB: in paragraph 'READ-TEST-F2-05': +IX102A.SUB:583: warning: value size exceeds data size +IX102A.SUB:583: note: value size is 21 +IX102A.SUB:171: note: 'COMPUTED-A' defined here as PIC X(20) +IX102A.SUB: in section 'CCVS-EXIT': +IX102A.SUB: in paragraph 'CCVS-999999': +IX102A.SUB:653: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX102A.SUB:310: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX102A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([IX103A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX103A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX103A.SUB], [0], [], [IX103A.SUB: in section 'CCVS-EXIT': +IX103A.SUB: in paragraph 'CCVS-999999': +IX103A.SUB:709: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX103A.SUB:317: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX103A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IX104A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX104A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX104A.CBL], [0], [], [IX104A.CBL: in section 'CCVS-EXIT': +IX104A.CBL: in paragraph 'CCVS-999999': +IX104A.CBL:681: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX104A.CBL:345: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX104A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IX105A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX105A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX105A.CBL], [0], [], [IX105A.CBL: in section 'SECT-RC-02-001': +IX105A.CBL: in paragraph 'WRITE-DELETE-GF-03': +IX105A.CBL:750: warning: GO TO SECTION 'CCVS-EXIT' +IX105A.CBL: in section 'CCVS-EXIT': +IX105A.CBL: in paragraph 'CCVS-999999': +IX105A.CBL:869: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX105A.CBL:330: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX105A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IX106A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX106A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX106A.CBL], [0], [], [IX106A.CBL: in section 'SECT-0004-RIS101': +IX106A.CBL: in paragraph 'DELETE-TEST-GF-01': +IX106A.CBL:1013: warning: alphanumeric value is expected +IX106A.CBL:128: note: 'IX-FS1-KEY-11-13' defined here as PIC X(3) +IX106A.CBL: in section 'SECT-0003-RIS101': +IX106A.CBL: in paragraph 'READ-TEST-F2-01-02': +IX106A.CBL:944: warning: GO TO paragraph 'TEST-FINISH-EXIT' which is defined in another SECTION +IX106A.CBL:1177: note: 'TEST-FINISH-EXIT IN SECT-TEST-005-RIS101' defined here +IX106A.CBL:957: warning: GO TO paragraph 'TEST-FINISH-EXIT' which is defined in another SECTION +IX106A.CBL:1177: note: 'TEST-FINISH-EXIT IN SECT-TEST-005-RIS101' defined here +IX106A.CBL:958: warning: GO TO paragraph 'TEST-FINISH-EXIT' which is defined in another SECTION +IX106A.CBL:1177: note: 'TEST-FINISH-EXIT IN SECT-TEST-005-RIS101' defined here +IX106A.CBL:971: warning: GO TO paragraph 'TEST-FINISH-EXIT' which is defined in another SECTION +IX106A.CBL:1177: note: 'TEST-FINISH-EXIT IN SECT-TEST-005-RIS101' defined here +IX106A.CBL: in paragraph 'READ-TEST-F2-02': +IX106A.CBL:981: warning: GO TO paragraph 'TEST-FINISH-EXIT' which is defined in another SECTION +IX106A.CBL:1177: note: 'TEST-FINISH-EXIT IN SECT-TEST-005-RIS101' defined here +IX106A.CBL: in section 'CCVS-EXIT': +IX106A.CBL: in paragraph 'CCVS-999999': +IX106A.CBL:1181: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX106A.CBL:604: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX106A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IX107A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX107A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX107A.CBL], [0], [], [IX107A.CBL: in section 'SECT-IX107A-001': +IX107A.CBL: in paragraph 'READ-INIT-F1-02': +IX107A.CBL:551: warning: value size exceeds data size +IX107A.CBL:551: note: value size is 24 +IX107A.CBL:200: note: 'FEATURE' defined here as PIC X(20) +IX107A.CBL: in section 'SECT-IX107A-002': +IX107A.CBL: in paragraph 'READ-INIT-F2-08': +IX107A.CBL:776: warning: value size exceeds data size +IX107A.CBL:776: note: value size is 29 +IX107A.CBL:200: note: 'FEATURE' defined here as PIC X(20) +IX107A.CBL: in paragraph 'READ-INIT-F2-09': +IX107A.CBL:815: warning: value size exceeds data size +IX107A.CBL:815: note: value size is 21 +IX107A.CBL:200: note: 'FEATURE' defined here as PIC X(20) +IX107A.CBL: in paragraph 'READ-INIT-F2-10': +IX107A.CBL:847: warning: value size exceeds data size +IX107A.CBL:847: note: value size is 24 +IX107A.CBL:200: note: 'FEATURE' defined here as PIC X(20) +IX107A.CBL: in section 'CCVS-EXIT': +IX107A.CBL: in paragraph 'CCVS-999999': +IX107A.CBL:929: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX107A.CBL:354: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX107A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IX108A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX108A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX108A.CBL], [0], [], [IX108A.CBL: in section 'SECT-IX-04-001': +IX108A.CBL: in paragraph 'WRITE-INIT-GF-01': +IX108A.CBL:486: warning: value size exceeds data size +IX108A.CBL:486: note: value size is 22 +IX108A.CBL:194: note: 'FEATURE' defined here as PIC X(20) +IX108A.CBL: in paragraph 'READ-INIT-F1-02': +IX108A.CBL:626: warning: value size exceeds data size +IX108A.CBL:626: note: value size is 22 +IX108A.CBL:194: note: 'FEATURE' defined here as PIC X(20) +IX108A.CBL: in paragraph 'READ-INIT-F1-03': +IX108A.CBL:669: warning: value size exceeds data size +IX108A.CBL:669: note: value size is 27 +IX108A.CBL:194: note: 'FEATURE' defined here as PIC X(20) +IX108A.CBL: in paragraph 'READ-INIT-F2-02': +IX108A.CBL:773: warning: value size exceeds data size +IX108A.CBL:773: note: value size is 22 +IX108A.CBL:194: note: 'FEATURE' defined here as PIC X(20) +IX108A.CBL: in paragraph 'READ-INIT-F2-03': +IX108A.CBL:818: warning: value size exceeds data size +IX108A.CBL:818: note: value size is 27 +IX108A.CBL:194: note: 'FEATURE' defined here as PIC X(20) +IX108A.CBL: in paragraph 'DELETE-INIT-GF-02': +IX108A.CBL:935: warning: value size exceeds data size +IX108A.CBL:935: note: value size is 22 +IX108A.CBL:194: note: 'FEATURE' defined here as PIC X(20) +IX108A.CBL: in paragraph 'DELETE-INIT-GF-03': +IX108A.CBL:986: warning: value size exceeds data size +IX108A.CBL:986: note: value size is 27 +IX108A.CBL:194: note: 'FEATURE' defined here as PIC X(20) +IX108A.CBL: in paragraph 'REWRITE-INIT-GF-02': +IX108A.CBL:1111: warning: value size exceeds data size +IX108A.CBL:1111: note: value size is 23 +IX108A.CBL:194: note: 'FEATURE' defined here as PIC X(20) +IX108A.CBL: in paragraph 'REWRITE-INIT-GF-03': +IX108A.CBL:1163: warning: value size exceeds data size +IX108A.CBL:1163: note: value size is 28 +IX108A.CBL:194: note: 'FEATURE' defined here as PIC X(20) +IX108A.CBL: in paragraph 'RWR-SEQ-INIT-GF-02': +IX108A.CBL:1293: warning: value size exceeds data size +IX108A.CBL:1293: note: value size is 23 +IX108A.CBL:194: note: 'FEATURE' defined here as PIC X(20) +IX108A.CBL: in paragraph 'RWR-SEQ-INIT-GF-03': +IX108A.CBL:1343: warning: value size exceeds data size +IX108A.CBL:1343: note: value size is 28 +IX108A.CBL:194: note: 'FEATURE' defined here as PIC X(20) +IX108A.CBL: in paragraph 'WRITE-TEST-GF-01-1': +IX108A.CBL:529: warning: GO TO SECTION 'CCVS-EXIT' +IX108A.CBL: in paragraph 'WRITE-TEST-GF-01-2-1': +IX108A.CBL:549: warning: GO TO SECTION 'CCVS-EXIT' +IX108A.CBL:557: warning: GO TO SECTION 'CCVS-EXIT' +IX108A.CBL: in section 'CCVS-EXIT': +IX108A.CBL: in paragraph 'CCVS-999999': +IX108A.CBL:1407: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX108A.CBL:369: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX108A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IX109A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX109A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX109A.CBL], [0], [], [IX109A.CBL: in section 'CCVS-EXIT': +IX109A.CBL: in paragraph 'CCVS-999999': +IX109A.CBL:1010: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX109A.CBL:468: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX109A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IX110A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX110A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX110A.SUB], [0], [], [IX110A.SUB: in section 'CCVS-EXIT': +IX110A.SUB: in paragraph 'CCVS-999999': +IX110A.SUB:573: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX110A.SUB:337: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX110A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IX111A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX111A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX111A.SUB], [0], [], [IX111A.SUB: in section 'SECT-IX111-0001': +IX111A.SUB: in paragraph 'INPUT-PROCESS': +IX111A.SUB:230: warning: value size exceeds data size +IX111A.SUB:230: note: value size is 64 +IX111A.SUB:88: note: 'RE-MARK' defined here as PIC X(61) +IX111A.SUB: in section 'CCVS-EXIT': +IX111A.SUB: in paragraph 'CCVS-999999': +IX111A.SUB:442: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX111A.SUB:327: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX111A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IX112A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX112A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX112A.CBL], [0], [], [IX112A.CBL: in section 'CCVS-EXIT': +IX112A.CBL: in paragraph 'CCVS-999999': +IX112A.CBL:814: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX112A.CBL:455: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX112A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([IX113A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX113A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX113A.CBL], [0], [], [IX113A.CBL: in section 'CCVS-EXIT': +IX113A.CBL: in paragraph 'CCVS-999999': +IX113A.CBL:708: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX113A.CBL:454: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX113A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IX114A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX114A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX114A.SUB], [0], [], [IX114A.SUB: in section 'CCVS-EXIT': +IX114A.SUB: in paragraph 'CCVS-999999': +IX114A.SUB:659: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX114A.SUB:450: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX114A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IX115A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX115A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX115A.SUB], [0], [], [IX115A.SUB: in section 'CCVS-EXIT': +IX115A.SUB: in paragraph 'CCVS-999999': +IX115A.SUB:660: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX115A.SUB:451: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX115A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IX116A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX116A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX116A.SUB], [0], [], [IX116A.SUB: in section 'CCVS-EXIT': +IX116A.SUB: in paragraph 'CCVS-999999': +IX116A.SUB:660: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX116A.SUB:451: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX116A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IX117A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX117A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX117A.SUB], [0], [], [IX117A.SUB: in section 'CCVS-EXIT': +IX117A.SUB: in paragraph 'CCVS-999999': +IX117A.SUB:659: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX117A.SUB:450: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX117A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IX118A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX118A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX118A.SUB], [0], [], [IX118A.SUB: in section 'CCVS-EXIT': +IX118A.SUB: in paragraph 'CCVS-999999': +IX118A.SUB:661: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX118A.SUB:450: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX118A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IX119A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX IX119A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX101A.CBL], [0], [], [IX101A.CBL: in section 'CCVS-EXIT': +IX101A.CBL: in paragraph 'CCVS-999999': +IX101A.CBL:459: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX101A.CBL:286: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX101A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX119A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX119A.SUB], [0], [], [IX119A.SUB: in section 'SECT-IX119A-0003': +IX119A.SUB: in paragraph 'RWR-INIT-GF-01-0': +IX119A.SUB:616: warning: alphanumeric value is expected +IX119A.SUB:72: note: 'IX-FS3-KEY' defined here as PIC X(29) +IX119A.SUB: in section 'CCVS-EXIT': +IX119A.SUB: in paragraph 'CCVS-999999': +IX119A.SUB:670: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX119A.SUB:454: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX119A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([IX120A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX101A.CBL], [0], [], [IX101A.CBL: in section 'CCVS-EXIT': +IX101A.CBL: in paragraph 'CCVS-999999': +IX101A.CBL:459: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX101A.CBL:286: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX101A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX120A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX120A.SUB], [0], [], [IX120A.SUB: in section 'CCVS-EXIT': +IX120A.SUB: in paragraph 'CCVS-999999': +IX120A.SUB:644: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX120A.SUB:453: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX120A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([IX121A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX121A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX121A.CBL], [0], [], [IX121A.CBL: in section 'CCVS-EXIT': +IX121A.CBL: in paragraph 'CCVS-999999': +IX121A.CBL:700: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX121A.CBL:459: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX121A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([IX201A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX201A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX201A.CBL], [0], [], [IX201A.CBL: in section 'CCVS-EXIT': +IX201A.CBL: in paragraph 'CCVS-999999': +IX201A.CBL:458: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX201A.CBL:287: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX201A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IX202A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX101A.CBL], [0], [], [IX101A.CBL: in section 'CCVS-EXIT': +IX101A.CBL: in paragraph 'CCVS-999999': +IX101A.CBL:459: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX101A.CBL:286: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX101A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX202A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX202A.SUB], [0], [], [IX202A.SUB: in section 'SECT-IX-02-001': +IX202A.SUB: in paragraph 'READ-TEST-F2-01-R': +IX202A.SUB:426: warning: value size exceeds data size +IX202A.SUB:426: note: value size is 21 +IX202A.SUB:163: note: 'COMPUTED-A' defined here as PIC X(20) +IX202A.SUB: in paragraph 'RWRT-TEST-GF-01-R': +IX202A.SUB:498: warning: value size exceeds data size +IX202A.SUB:498: note: value size is 21 +IX202A.SUB:163: note: 'COMPUTED-A' defined here as PIC X(20) +IX202A.SUB: in paragraph 'RWRT-TEST-GF-02-1': +IX202A.SUB:541: warning: value size exceeds data size +IX202A.SUB:541: note: value size is 22 +IX202A.SUB:163: note: 'COMPUTED-A' defined here as PIC X(20) +IX202A.SUB: in paragraph 'READ-TEST-F2-02-R': +IX202A.SUB:559: warning: value size exceeds data size +IX202A.SUB:559: note: value size is 21 +IX202A.SUB:163: note: 'COMPUTED-A' defined here as PIC X(20) +IX202A.SUB: in section 'CCVS-EXIT': +IX202A.SUB: in paragraph 'CCVS-999999': +IX202A.SUB:616: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX202A.SUB:302: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX202A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([IX203A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX101A.CBL], [0], [], [IX101A.CBL: in section 'CCVS-EXIT': +IX101A.CBL: in paragraph 'CCVS-999999': +IX101A.CBL:459: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX101A.CBL:286: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX101A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX203A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX203A.SUB], [0], [], [IX203A.SUB: in section 'SECT-IX-03-001': +IX203A.SUB: in paragraph 'CCVS-999999': +IX203A.SUB:687: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX203A.SUB:302: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX203A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([IX204A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX204A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX204A.CBL], [0], [], [IX204A.CBL: in section 'CCVS-EXIT': +IX204A.CBL: in paragraph 'CCVS-999999': +IX204A.CBL:691: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX204A.CBL:355: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX204A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IX205A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX205A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX205A.CBL], [0], [], [IX205A.CBL: in section 'SECT-IX-01-001': +IX205A.CBL: in paragraph 'READ-TEST-F1-01-3': +IX205A.CBL:530: warning: NEXT SENTENCE is archaic in COBOL 85 +IX205A.CBL: in paragraph 'READ-INIT-F2-02': +IX205A.CBL:544: warning: value size exceeds data size +IX205A.CBL:544: note: value size is 21 +IX205A.CBL:196: note: 'FEATURE' defined here as PIC X(20) +IX205A.CBL: in paragraph 'READ-TEST-F1-02-5': +IX205A.CBL:567: warning: NEXT SENTENCE is archaic in COBOL 85 +IX205A.CBL: in paragraph 'READ-INIT-GF-03': +IX205A.CBL:582: warning: value size exceeds data size +IX205A.CBL:582: note: value size is 21 +IX205A.CBL:196: note: 'FEATURE' defined here as PIC X(20) +IX205A.CBL: in paragraph 'READ-TEST-F1-03': +IX205A.CBL:617: warning: NEXT SENTENCE is archaic in COBOL 85 +IX205A.CBL: in paragraph 'READ-INIT-GF-04': +IX205A.CBL:631: warning: value size exceeds data size +IX205A.CBL:631: note: value size is 22 +IX205A.CBL:196: note: 'FEATURE' defined here as PIC X(20) +IX205A.CBL: in paragraph 'READ-TEST-F1-04': +IX205A.CBL:666: warning: NEXT SENTENCE is archaic in COBOL 85 +IX205A.CBL: in section 'SECT-IX-01-002': +IX205A.CBL: in paragraph 'READ-TEST-F1-05-3': +IX205A.CBL:747: warning: NEXT SENTENCE is archaic in COBOL 85 +IX205A.CBL: in paragraph 'READ-TEST-F1-06-5': +IX205A.CBL:786: warning: NEXT SENTENCE is archaic in COBOL 85 +IX205A.CBL: in paragraph 'READ-TEST-F1-07-7': +IX205A.CBL:836: warning: NEXT SENTENCE is archaic in COBOL 85 +IX205A.CBL: in section 'CCVS-EXIT': +IX205A.CBL: in paragraph 'CCVS-999999': +IX205A.CBL:924: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX205A.CBL:350: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX205A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IX206A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX206A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX206A.CBL], [0], [], [IX206A.CBL: in section 'SECT-IX-01-001': +IX206A.CBL: in paragraph 'READ-TEST-F2-02-5': +IX206A.CBL:561: warning: NEXT SENTENCE is archaic in COBOL 85 +IX206A.CBL: in paragraph 'READ-TEST-F2-03-7': +IX206A.CBL:612: warning: NEXT SENTENCE is archaic in COBOL 85 +IX206A.CBL: in section 'SECT-IX-01-002': +IX206A.CBL: in paragraph 'READ-TEST-F1-04-3': +IX206A.CBL:694: warning: NEXT SENTENCE is archaic in COBOL 85 +IX206A.CBL: in paragraph 'READ-TEST-F2-05-6': +IX206A.CBL:747: warning: NEXT SENTENCE is archaic in COBOL 85 +IX206A.CBL: in section 'CCVS-EXIT': +IX206A.CBL: in paragraph 'CCVS-999999': +IX206A.CBL:837: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX206A.CBL:345: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX206A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IX207A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX207A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX207A.CBL], [0], [], [IX207A.CBL: in section 'CCVS-EXIT': +IX207A.CBL: in paragraph 'CCVS-999999': +IX207A.CBL:1026: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX207A.CBL:394: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX207A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IX208A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX208A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX208A.CBL], [0], [], [IX208A.CBL: in section 'SECT-IX208A-0001': +IX208A.CBL: in paragraph 'READ-TEST-F1-04': +IX208A.CBL:688: warning: NEXT SENTENCE is archaic in COBOL 85 +IX208A.CBL: in paragraph 'START-TEST-GF-07-1': +IX208A.CBL:1067: warning: value size exceeds data size +IX208A.CBL:1067: note: value size is 22 +IX208A.CBL:212: note: 'FEATURE' defined here as PIC X(20) +IX208A.CBL: in paragraph 'START-TEST-GF-11-1': +IX208A.CBL:1176: warning: value size exceeds data size +IX208A.CBL:1176: note: value size is 26 +IX208A.CBL:212: note: 'FEATURE' defined here as PIC X(20) +IX208A.CBL: in paragraph 'START-TEST-GF-12-1': +IX208A.CBL:1204: warning: value size exceeds data size +IX208A.CBL:1204: note: value size is 21 +IX208A.CBL:212: note: 'FEATURE' defined here as PIC X(20) +IX208A.CBL: in paragraph 'START-TEST-GF-13-1': +IX208A.CBL:1232: warning: value size exceeds data size +IX208A.CBL:1232: note: value size is 23 +IX208A.CBL:212: note: 'FEATURE' defined here as PIC X(20) +IX208A.CBL: in paragraph 'START-TEST-GF-15-1': +IX208A.CBL:1295: warning: value size exceeds data size +IX208A.CBL:1295: note: value size is 21 +IX208A.CBL:212: note: 'FEATURE' defined here as PIC X(20) +IX208A.CBL: in section 'CCVS-EXIT': +IX208A.CBL: in paragraph 'CCVS-999999': +IX208A.CBL:1470: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX208A.CBL:374: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX208A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IX209A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX209A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX209A.CBL], [0], [], [IX209A.CBL: in section 'SECT-0001-IX209A': +IX209A.CBL: in paragraph 'READ-TEST-F1-01-R1': +IX209A.CBL:819: warning: NEXT SENTENCE is archaic in COBOL 85 +IX209A.CBL: in section 'CCVS-EXIT': +IX209A.CBL: in paragraph 'CCVS-999999': +IX209A.CBL:2811: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX209A.CBL:631: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX209A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IX210A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX210A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX210A.CBL], [0], [], [IX210A.CBL: in section 'SECT-0001-IX210A': +IX210A.CBL: in paragraph 'READ-TEST-F1-R1': +IX210A.CBL:826: warning: NEXT SENTENCE is archaic in COBOL 85 +IX210A.CBL: in section 'CCVS-EXIT': +IX210A.CBL: in paragraph 'CCVS-999999': +IX210A.CBL:2285: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX210A.CBL:641: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX210A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IX211A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX211A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX211A.CBL], [0], [], [IX211A.CBL: in section 'SECT-0001-IX211A': +IX211A.CBL: in paragraph 'READ-TEST-F1-01-1': +IX211A.CBL:766: warning: NEXT SENTENCE is archaic in COBOL 85 +IX211A.CBL: in paragraph 'READ-END-004': +IX211A.CBL:1036: warning: GO TO SECTION 'CCVS-EXIT' +IX211A.CBL: in section 'CCVS-EXIT': +IX211A.CBL: in paragraph 'CCVS-999999': +IX211A.CBL:1077: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX211A.CBL:579: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX211A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IX212A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX212A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX212A.CBL], [0], [], [IX212A.CBL: in section 'CCVS-EXIT': +IX212A.CBL: in paragraph 'CCVS-999999': +IX212A.CBL:1005: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX212A.CBL:263: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX212A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IX213A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX213A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX213A.CBL], [0], [], [IX213A.CBL: in section 'CCVS-EXIT': +IX213A.CBL: in paragraph 'CCVS-999999': +IX213A.CBL:971: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX213A.CBL:262: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX213A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IX214A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX214A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX214A.CBL], [0], [], [IX214A.CBL: in section 'SECT-0001-IX214A': +IX214A.CBL: in paragraph 'WRITE-INT-GF-01': +IX214A.CBL:761: warning: value size exceeds data size +IX214A.CBL:761: note: value size is 6 +IX214A.CBL:467: note: 'XPROGRAM-NAME' defined here as PIC X(5) +IX214A.CBL: in paragraph 'READ-TEST-F1-01-R1': +IX214A.CBL:832: warning: NEXT SENTENCE is archaic in COBOL 85 +IX214A.CBL: in paragraph 'START-TEST-GF-10': +IX214A.CBL:1350: warning: value size exceeds data size +IX214A.CBL:1350: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-11': +IX214A.CBL:1371: warning: value size exceeds data size +IX214A.CBL:1371: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-12': +IX214A.CBL:1390: warning: value size exceeds data size +IX214A.CBL:1390: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-13': +IX214A.CBL:1410: warning: value size exceeds data size +IX214A.CBL:1410: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-14': +IX214A.CBL:1430: warning: value size exceeds data size +IX214A.CBL:1430: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-15': +IX214A.CBL:1449: warning: value size exceeds data size +IX214A.CBL:1449: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-16': +IX214A.CBL:1469: warning: value size exceeds data size +IX214A.CBL:1469: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-17': +IX214A.CBL:1489: warning: value size exceeds data size +IX214A.CBL:1489: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-18': +IX214A.CBL:1509: warning: value size exceeds data size +IX214A.CBL:1509: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-18A': +IX214A.CBL:1528: warning: value size exceeds data size +IX214A.CBL:1528: note: value size is 21 +IX214A.CBL:490: note: 'FEATURE' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-28': +IX214A.CBL:2023: warning: value size exceeds data size +IX214A.CBL:2023: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-29': +IX214A.CBL:2043: warning: value size exceeds data size +IX214A.CBL:2043: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-30': +IX214A.CBL:2062: warning: value size exceeds data size +IX214A.CBL:2062: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-31': +IX214A.CBL:2082: warning: value size exceeds data size +IX214A.CBL:2082: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-32': +IX214A.CBL:2102: warning: value size exceeds data size +IX214A.CBL:2102: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-33': +IX214A.CBL:2122: warning: value size exceeds data size +IX214A.CBL:2122: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-34': +IX214A.CBL:2142: warning: value size exceeds data size +IX214A.CBL:2142: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-35': +IX214A.CBL:2162: warning: value size exceeds data size +IX214A.CBL:2162: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-36': +IX214A.CBL:2182: warning: value size exceeds data size +IX214A.CBL:2182: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-WRITE-GF-37': +IX214A.CBL:2257: warning: GO TO SECTION 'CCVS-EXIT' +IX214A.CBL: in section 'CCVS-EXIT': +IX214A.CBL: in paragraph 'CCVS-999999': +IX214A.CBL:2310: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX214A.CBL:644: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX214A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IX215A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX215A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX215A.CBL], [0], [], [IX215A.CBL: in section 'SECT-0001-IX215A': +IX215A.CBL: in paragraph 'READ-TEST-F1-01-R1': +IX215A.CBL:868: warning: NEXT SENTENCE is archaic in COBOL 85 +IX215A.CBL: in paragraph 'READ-TEST-F1-02-R1': +IX215A.CBL:1504: warning: NEXT SENTENCE is archaic in COBOL 85 +IX215A.CBL: in paragraph 'READ-TEST-F1-O3-R1': +IX215A.CBL:2121: warning: NEXT SENTENCE is archaic in COBOL 85 +IX215A.CBL: in section 'CCVS-EXIT': +IX215A.CBL: in paragraph 'CCVS-999999': +IX215A.CBL:2751: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX215A.CBL:681: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX215A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IX216A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX216A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX216A.CBL], [0], [], [IX216A.CBL: in section 'SECT-IX-04-001': +IX216A.CBL: in paragraph 'WRITE-TEST-GF-07': +IX216A.CBL:610: warning: alphanumeric value is expected +IX216A.CBL:121: note: 'IX-FS2-STATUS' defined here as PIC XX +IX216A.CBL: in section 'CCVS-EXIT': +IX216A.CBL: in paragraph 'CCVS-999999': +IX216A.CBL:744: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX216A.CBL:364: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX216A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IX217A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX217A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX217A.CBL], [0], [], [IX217A.CBL: in section 'CCVS-EXIT': +IX217A.CBL: in paragraph 'CCVS-999999': +IX217A.CBL:681: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX217A.CBL:335: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX217A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IX218A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX218A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX218A.CBL], [0], [], [IX218A.CBL: in section 'SECT-IX-01-001': +IX218A.CBL: in paragraph 'REA-FAIL-GF-04': +IX218A.CBL:547: warning: value size exceeds data size +IX218A.CBL:547: note: value size is 63 +IX218A.CBL:136: note: 'RE-MARK' defined here as PIC X(61) +IX218A.CBL: in section 'CCVS-EXIT': +IX218A.CBL: in paragraph 'CCVS-999999': +IX218A.CBL:562: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +IX218A.CBL:288: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./IX218A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IX301M]) +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX301M.CBL .],[0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX301M.CBL], [0], [], []) +# AT_CHECK([./IX301M], [0], [], []) +AT_CLEANUP + +AT_SETUP([IX302M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX302M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX302M.CBL], [0], [], [IX302M.CBL:30: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +IX302M.CBL:36: warning: LABEL RECORDS is obsolete in COBOL 85 +IX302M.CBL:42: warning: VALUE OF is obsolete in COBOL 85 +IX302M.CBL:45: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./IX302M], [0], [THIS IS A DUMMY PARAGRAPH +], []) + +AT_CLEANUP + + +AT_SETUP([IX401M]) +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX401M.CBL .],[0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX401M.CBL], [0], [], []) +# AT_CHECK([./IX401M], [0], [], []) +AT_CLEANUP diff --git a/tests/cobol85/nistrun.src/run_NC.at b/tests/cobol85/nistrun.src/run_NC.at new file mode 100644 index 000000000..d8991a02d --- /dev/null +++ b/tests/cobol85/nistrun.src/run_NC.at @@ -0,0 +1,2491 @@ + +AT_SETUP([NC101A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC101A.CBL NC101A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC101A.CBL], [0], [], [NC101A.CBL: in section 'SECT-NC101A-001': +NC101A.CBL: in paragraph 'MPY-DELETE-F1-29-1': +NC101A.CBL:1823: warning: GO TO SECTION 'CCVS-EXIT' +NC101A.CBL: in section 'CCVS-EXIT': +NC101A.CBL: in paragraph 'CCVS-999999': +NC101A.CBL:1865: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC101A.CBL:324: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC101A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC102A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC102A.CBL NC102A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC102A.CBL], [0], [], [NC102A.CBL: in section 'SECT-NC102A-001': +NC102A.CBL: in paragraph 'GO--TEST-F1-2': +NC102A.CBL:475: warning: GO TO SECTION 'GO--PASS-F1-2' +NC102A.CBL:478: warning: GO TO paragraph 'GO--WRITE-F1-2' which is defined in another SECTION +NC102A.CBL:485: note: 'GO--WRITE-F1-2 IN GO--PASS-F1-2' defined here +NC102A.CBL: in paragraph 'GO--DELETE-F1-2': +NC102A.CBL:481: warning: GO TO paragraph 'GO--WRITE-F1-2' which is defined in another SECTION +NC102A.CBL:485: note: 'GO--WRITE-F1-2 IN GO--PASS-F1-2' defined here +NC102A.CBL: in section 'GO--PASS-F1-2': +NC102A.CBL: in paragraph 'GO--TEST-F2-2': +NC102A.CBL:495: warning: GO TO SECTION 'GO--PASS-F2-2' +NC102A.CBL:496: warning: GO TO paragraph 'GO--FAIL-F2-2' which is defined in another SECTION +NC102A.CBL:507: note: 'GO--FAIL-F2-2 IN GO--PASS-F2-2' defined here +NC102A.CBL:498: warning: GO TO paragraph 'GO--FAIL-F2-2' which is defined in another SECTION +NC102A.CBL:507: note: 'GO--FAIL-F2-2 IN GO--PASS-F2-2' defined here +NC102A.CBL: in paragraph 'GO--DELETE-F2-2': +NC102A.CBL:501: warning: GO TO paragraph 'GO--WRITE-F2-2' which is defined in another SECTION +NC102A.CBL:511: note: 'GO--WRITE-F2-2 IN GO--PASS-F2-2' defined here +NC102A.CBL: in section 'GO--PASS-F2-2': +NC102A.CBL: in paragraph 'GO--TEST-F2-6': +NC102A.CBL:625: warning: GO TO SECTION 'GO--PASS-F2-6' +NC102A.CBL:627: warning: GO TO paragraph 'GO--FAIL-F2-6' which is defined in another SECTION +NC102A.CBL:636: note: 'GO--FAIL-F2-6 IN GO--PASS-F2-6' defined here +NC102A.CBL: in paragraph 'GO--DELETE-F2-6': +NC102A.CBL:630: warning: GO TO paragraph 'GO--WRITE-F2-6' which is defined in another SECTION +NC102A.CBL:640: note: 'GO--WRITE-F2-6 IN GO--PASS-F2-6' defined here +NC102A.CBL: in section 'PFM-A-F1-10': +NC102A.CBL: in paragraph 'PFM-TEST-F1-10': +NC102A.CBL:1070: warning: GO TO paragraph 'PFM-WRITE-F1-10' which is defined in another SECTION +NC102A.CBL:1105: note: 'PFM-WRITE-F1-10 IN PFM-J-F1-10' defined here +NC102A.CBL: in paragraph 'PFM-DELETE-F1-10': +NC102A.CBL:1073: warning: GO TO paragraph 'PFM-WRITE-F1-10' which is defined in another SECTION +NC102A.CBL:1105: note: 'PFM-WRITE-F1-10 IN PFM-J-F1-10' defined here +NC102A.CBL: in paragraph 'PFM-C-F1-10': +NC102A.CBL:1079: warning: GO TO paragraph 'PFM-WRITE-F1-10' which is defined in another SECTION +NC102A.CBL:1105: note: 'PFM-WRITE-F1-10 IN PFM-J-F1-10' defined here +NC102A.CBL: in paragraph 'PFM-D-F1-10': +NC102A.CBL:1083: warning: GO TO paragraph 'PFM-WRITE-F1-10' which is defined in another SECTION +NC102A.CBL:1105: note: 'PFM-WRITE-F1-10 IN PFM-J-F1-10' defined here +NC102A.CBL: in paragraph 'PFM-E-F1-10': +NC102A.CBL:1085: warning: GO TO paragraph 'PFM-L-F1-10' which is defined in another SECTION +NC102A.CBL:1103: note: 'PFM-L-F1-10 IN PFM-J-F1-10' defined here +NC102A.CBL: in section 'PFM-G-F1-10': +NC102A.CBL: in paragraph 'PFM-H-F1-10': +NC102A.CBL:1090: warning: GO TO paragraph 'PFM-E-F1-10' which is defined in another SECTION +NC102A.CBL:1084: note: 'PFM-E-F1-10 IN PFM-A-F1-10' defined here +NC102A.CBL: in paragraph 'PFM-I-F1-10': +NC102A.CBL:1092: warning: GO TO paragraph 'PFM-D-F1-10' which is defined in another SECTION +NC102A.CBL:1080: note: 'PFM-D-F1-10 IN PFM-A-F1-10' defined here +NC102A.CBL: in section 'PFM-J-F1-10': +NC102A.CBL: in paragraph 'PFM-L-F1-10': +NC102A.CBL:1104: warning: GO TO paragraph 'PFM-B-F1-10' which is defined in another SECTION +NC102A.CBL:1074: note: 'PFM-B-F1-10 IN PFM-A-F1-10' defined here +NC102A.CBL: in paragraph 'PFM-WRITE-F3-4': +NC102A.CBL:1363: warning: GO TO SECTION 'CCVS-EXIT' +NC102A.CBL: in paragraph 'PFM-D': +NC102A.CBL:1430: warning: GO TO paragraph 'PFM-TEST-F1-3' which is defined in another SECTION +NC102A.CBL:777: note: 'PFM-TEST-F1-3 IN GO--PASS-F2-6' defined here +NC102A.CBL: in paragraph 'PFM-K': +NC102A.CBL:1455: warning: GO TO paragraph 'PFM-WRITE-F1-4' which is defined in another SECTION +NC102A.CBL:824: note: 'PFM-WRITE-F1-4 IN GO--PASS-F2-6' defined here +NC102A.CBL: in paragraph 'PFM-M': +NC102A.CBL:1463: warning: GO TO paragraph 'PFM-WRITE-F1-4' which is defined in another SECTION +NC102A.CBL:824: note: 'PFM-WRITE-F1-4 IN GO--PASS-F2-6' defined here +NC102A.CBL: in section 'PFM-Q': +NC102A.CBL: in paragraph 'PFM-R': +NC102A.CBL:1475: warning: GO TO paragraph 'PFM-WRITE-F1-5' which is defined in another SECTION +NC102A.CBL:836: note: 'PFM-WRITE-F1-5 IN GO--PASS-F2-6' defined here +NC102A.CBL: in section 'CCVS-EXIT': +NC102A.CBL: in paragraph 'CCVS-999999': +NC102A.CBL:1501: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC102A.CBL:278: note: 'CLOSE-FILES IN CCVS1' defined here +NC102A.CBL:912: warning: PFM-B-F1-7 and PFM-D-F1-7 are not in the same SECTION +NC102A.CBL:916: warning: PFM-A-F1-7 and PFM-D-F1-7 are not in the same SECTION +NC102A.CBL:947: warning: PFM-B-F2-4 and PFM-D-F2-4 are not in the same SECTION +NC102A.CBL:951: warning: PFM-A-F2-4 and PFM-D-F2-4 are not in the same SECTION +NC102A.CBL:953: warning: PFM-B-F2-4 and PFM-D-F2-4 are not in the same SECTION +NC102A.CBL:1066: warning: PFM-G-F1-10 and PFM-B-F1-10 are not in the same SECTION +NC102A.CBL:1066: warning: PFM-B-F1-10 is defined before PFM-G-F1-10 +NC102A.CBL:1088: note: 'PFM-G-F1-10' defined here +NC102A.CBL:1074: note: 'PFM-B-F1-10' defined here +]) +AT_CHECK([./NC102A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC103A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC103A.CBL NC103A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC103A.CBL], [0], [], [NC103A.CBL: in section 'SECT-NC103A-001': +NC103A.CBL: in paragraph 'IF--INIT-GF-14': +NC103A.CBL:690: warning: alphanumeric value is expected +NC103A.CBL:271: note: 'IF-D20' defined here as a group of length 10 +NC103A.CBL:691: warning: alphanumeric value is expected +NC103A.CBL:276: note: 'IF-D21' defined here as a group of length 10 +NC103A.CBL: in paragraph 'IF--INIT-GF-32': +NC103A.CBL:952: warning: alphanumeric value is expected +NC103A.CBL:271: note: 'IF-D20' defined here as a group of length 10 +NC103A.CBL:953: warning: alphanumeric value is expected +NC103A.CBL:276: note: 'IF-D21' defined here as a group of length 10 +NC103A.CBL: in paragraph 'IF--INIT-GF-40': +NC103A.CBL:1071: warning: alphanumeric value is expected +NC103A.CBL:271: note: 'IF-D20' defined here as a group of length 10 +NC103A.CBL:1072: warning: alphanumeric value is expected +NC103A.CBL:276: note: 'IF-D21' defined here as a group of length 10 +NC103A.CBL: in paragraph 'IF--INIT-GF-44': +NC103A.CBL:1130: warning: alphanumeric value is expected +NC103A.CBL:271: note: 'IF-D20' defined here as a group of length 10 +NC103A.CBL:1131: warning: alphanumeric value is expected +NC103A.CBL:276: note: 'IF-D21' defined here as a group of length 10 +NC103A.CBL: in paragraph 'IF--INIT-GF-48': +NC103A.CBL:1189: warning: alphanumeric value is expected +NC103A.CBL:271: note: 'IF-D20' defined here as a group of length 10 +NC103A.CBL:1190: warning: alphanumeric value is expected +NC103A.CBL:276: note: 'IF-D21' defined here as a group of length 10 +NC103A.CBL: in paragraph 'IF--INIT-GF-66': +NC103A.CBL:1466: warning: alphanumeric value is expected +NC103A.CBL:240: note: 'TWOS-XN-00002' defined here as PIC XX +NC103A.CBL: in paragraph 'IF--TEST-GF-71': +NC103A.CBL:1556: warning: literal '88.9' has more decimals than 'A99-DS-02V00' +NC103A.CBL:1556: warning: NEXT SENTENCE is archaic in COBOL 85 +NC103A.CBL: in paragraph 'IF--TEST-GF-72': +NC103A.CBL:1573: warning: NEXT SENTENCE is archaic in COBOL 85 +NC103A.CBL: in paragraph 'IF--TEST-GF-73': +NC103A.CBL:1591: warning: NEXT SENTENCE is archaic in COBOL 85 +NC103A.CBL: in paragraph 'IF--TEST-GF-74': +NC103A.CBL:1609: warning: NEXT SENTENCE is archaic in COBOL 85 +NC103A.CBL: in paragraph 'IF--TEST-GF-76': +NC103A.CBL:1646: warning: NEXT SENTENCE is archaic in COBOL 85 +NC103A.CBL: in paragraph 'IF--TEST-GF-77': +NC103A.CBL:1662: warning: NEXT SENTENCE is archaic in COBOL 85 +NC103A.CBL: in paragraph 'IF--TEST-GF-78': +NC103A.CBL:1676: warning: literal '1.0000000001' has more decimals than 'A01ONE-DS-P0801' +NC103A.CBL: in paragraph 'IF--TEST-GF-97': +NC103A.CBL:2026: warning: literal 'AA' is alphanumeric but 'A02TWOS-DU-02V00' is numeric +NC103A.CBL:2028: warning: literal 'AA' is alphanumeric but 'A02TWOS-DU-02V00' is numeric +NC103A.CBL: in section 'CCVS-EXIT': +NC103A.CBL: in paragraph 'CCVS-999999': +NC103A.CBL:2137: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC103A.CBL:379: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC103A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC104A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC104A.CBL NC104A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC104A.CBL], [0], [], [NC104A.CBL:42: warning: LABEL RECORDS is obsolete in COBOL 85 +NC104A.CBL:43: warning: DATA RECORDS is obsolete in COBOL 85 +NC104A.CBL: in section 'NUMERIC-OPERAND-LIMITS-TESTS': +NC104A.CBL: in paragraph 'MOVE-INIT-DELETE-F1-57-1': +NC104A.CBL:1622: warning: value size exceeds data size +NC104A.CBL:1622: note: value size is 32 +NC104A.CBL:171: note: 'PAR-NAME' defined here as a group of length 22 +NC104A.CBL: in paragraph 'MOVE-TEST-F1-60-0': +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2547: note: value size is 21 +NC104A.CBL:101: note: 'ANDATA1' defined here as PIC X +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2547: note: value size is 21 +NC104A.CBL:102: note: 'ANDATA2' defined here as PIC XX +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2547: note: value size is 21 +NC104A.CBL:103: note: 'ANDATA3' defined here as PIC XXX +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2548: note: value size is 21 +NC104A.CBL:104: note: 'ANDATA4' defined here as PIC X(4) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2548: note: value size is 21 +NC104A.CBL:105: note: 'ANDATA5' defined here as PIC X(5) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2548: note: value size is 21 +NC104A.CBL:106: note: 'ANDATA6' defined here as PIC X(6) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2548: note: value size is 21 +NC104A.CBL:107: note: 'ANDATA7' defined here as PIC X(7) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2548: note: value size is 21 +NC104A.CBL:108: note: 'ANDATA8' defined here as PIC X(8) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2548: note: value size is 21 +NC104A.CBL:109: note: 'ANDATA9' defined here as PIC X(9) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2549: note: value size is 21 +NC104A.CBL:110: note: 'ANDATA10' defined here as PIC X(10) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2549: note: value size is 21 +NC104A.CBL:111: note: 'ANDATA11' defined here as PIC X(11) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2549: note: value size is 21 +NC104A.CBL:112: note: 'ANDATA12' defined here as PIC X(12) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2549: note: value size is 21 +NC104A.CBL:113: note: 'ANDATA13' defined here as PIC X(13) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2549: note: value size is 21 +NC104A.CBL:114: note: 'ANDATA14' defined here as PIC X(14) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2550: note: value size is 21 +NC104A.CBL:115: note: 'ANDATA15' defined here as PIC X(15) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2550: note: value size is 21 +NC104A.CBL:116: note: 'ANDATA16' defined here as PIC X(16) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2550: note: value size is 21 +NC104A.CBL:117: note: 'ANDATA17' defined here as PIC X(17) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2550: note: value size is 21 +NC104A.CBL:118: note: 'ANDATA18' defined here as PIC X(18) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2550: note: value size is 21 +NC104A.CBL:119: note: 'ANDATA19' defined here as PIC X(19) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2551: note: value size is 21 +NC104A.CBL:120: note: 'ANDATA20' defined here as PIC X(20) +NC104A.CBL: in section 'CCVS-EXIT': +NC104A.CBL: in paragraph 'CCVS-999999': +NC104A.CBL:2849: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC104A.CBL:314: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC104A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC105A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC105A.CBL NC105A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC105A.CBL], [0], [], [NC105A.CBL:41: warning: LABEL RECORDS is obsolete in COBOL 85 +NC105A.CBL:42: warning: DATA RECORDS is obsolete in COBOL 85 +NC105A.CBL:69: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC105A.CBL:71: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC105A.CBL: in section 'SECT-NC105A-001': +NC105A.CBL: in paragraph 'MOVE-TEST-F1-1-0': +NC105A.CBL:488: warning: value size exceeds data size +NC105A.CBL:488: note: value is 12345 +NC105A.CBL:184: note: 'MOVE40' defined here as PIC 9999V9 +NC105A.CBL: in paragraph 'MOVE-TEST-F1-2-0': +NC105A.CBL:508: warning: value size exceeds data size +NC105A.CBL:508: note: value is 12345 +NC105A.CBL:164: note: 'MOVE5' defined here as PIC 99V999 +NC105A.CBL: in paragraph 'MOVE-TEST-F1-4-0': +NC105A.CBL:547: warning: value size exceeds data size +NC105A.CBL:547: note: value size is 5 +NC105A.CBL:168: note: 'MOVE20' defined here as PIC X(4) +NC105A.CBL: in paragraph 'MOVE-INIT-F1-37': +NC105A.CBL:1262: warning: alphanumeric value is expected +NC105A.CBL:93: note: 'GRP-NUMERIC' defined here as a group of length 10 +NC105A.CBL: in paragraph 'MOVE-INIT-F1-38': +NC105A.CBL:1281: warning: alphanumeric value is expected +NC105A.CBL:93: note: 'GRP-NUMERIC' defined here as a group of length 10 +NC105A.CBL: in paragraph 'MOVE-TEST-F1-46-0': +NC105A.CBL:1460: warning: value size exceeds data size +NC105A.CBL:1460: note: value size is 28 +NC105A.CBL:110: note: 'WRK-DU-10V00' defined here as PIC 9(10) +NC105A.CBL: in paragraph 'MOVE-TEST-F1-79-0': +NC105A.CBL:2115: warning: value size exceeds data size +NC105A.CBL:2115: note: value size is 10 +NC105A.CBL:120: note: 'AE-0002' defined here as PIC XX0XXBXXX +NC105A.CBL: in paragraph 'MOVE-TEST-F1-82-0': +NC105A.CBL:2170: warning: alphanumeric value is expected +NC105A.CBL:109: note: 'GRP-WRK-DU-10V00' defined here as a group of length 10 +NC105A.CBL: in paragraph 'MOVE-TEST-F1-83-0': +NC105A.CBL:2188: warning: alphanumeric value is expected +NC105A.CBL:112: note: 'WRK-XN-00049' defined here as PIC X(49) +NC105A.CBL: in paragraph 'MOVE-TEST-F1-84-0': +NC105A.CBL:2210: warning: alphanumeric value is expected +NC105A.CBL:120: note: 'AE-0002' defined here as PIC XX0XXBXXX +NC105A.CBL: in paragraph 'MOVE-TEST-F1-88-1': +NC105A.CBL:2289: warning: alphanumeric value is expected +NC105A.CBL:255: note: 'CORRECT-A' defined here as PIC X(20) +NC105A.CBL: in paragraph 'MOVE-TEST-F1-89-1': +NC105A.CBL:2306: warning: alphanumeric value is expected +NC105A.CBL:255: note: 'CORRECT-A' defined here as PIC X(20) +NC105A.CBL: in paragraph 'MOVE-TEST-F1-90-1': +NC105A.CBL:2323: warning: alphanumeric value is expected +NC105A.CBL:255: note: 'CORRECT-A' defined here as PIC X(20) +NC105A.CBL: in paragraph 'MOVE-TEST-F1-110-0': +NC105A.CBL:2655: warning: alphanumeric value is expected +NC105A.CBL:215: note: 'MOVE71' defined here as PIC X(20) +NC105A.CBL: in paragraph 'EDIT-WRITE-F1-129': +NC105A.CBL:3062: warning: GO TO SECTION 'CCVS-EXIT' +NC105A.CBL: in section 'CCVS-EXIT': +NC105A.CBL: in paragraph 'CCVS-999999': +NC105A.CBL:3115: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC105A.CBL:373: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC105A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC106A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC106A.CBL NC106A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC106A.CBL], [0], [], [NC106A.CBL:208: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC106A.CBL: in section 'SECT-NC106A-001': +NC106A.CBL: in paragraph 'SUB-DELETE-F1-39': +NC106A.CBL:2489: warning: GO TO SECTION 'CCVS-EXIT' +NC106A.CBL: in section 'CCVS-EXIT': +NC106A.CBL: in paragraph 'CCVS-999999': +NC106A.CBL:2531: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC106A.CBL:425: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC106A], [0], [], []) + +AT_CLEANUP + +# more testing in report.pl +AT_SETUP([NC107A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC107A.CBL NC107A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC107A.CBL], [0], [], [NC107A.CBL:75: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC107A.CBL:183: warning: size of 'REDEF11' larger than size of 'REDEF10' +NC107A.CBL:187: warning: size of 'REDEF12' larger than size of 'REDEF10' +NC107A.CBL: in section 'SEP-TEST-5': +NC107A.CBL: in paragraph 'JUST-TEST-02-2-0': +NC107A.CBL:1008: warning: value size exceeds data size +NC107A.CBL:1008: note: value size is 9 +NC107A.CBL:268: note: 'XJ-00005' defined here as PIC X(5) +NC107A.CBL: in paragraph 'RDF-TEST-7': +NC107A.CBL:1589: warning: alphanumeric value is expected +NC107A.CBL:313: note: 'CORRECT-A' defined here as PIC X(20) +NC107A.CBL: in paragraph 'RDF-TEST-10': +NC107A.CBL:1640: warning: alphanumeric value is expected +NC107A.CBL:313: note: 'CORRECT-A' defined here as PIC X(20) +NC107A.CBL: in paragraph 'VALUE-INIT-1': +NC107A.CBL:1791: warning: value size exceeds data size +NC107A.CBL:1791: note: value size is 22 +NC107A.CBL:284: note: 'FEATURE' defined here as PIC X(20) +NC107A.CBL: in section 'NUM-EXIT-SECT': +NC107A.CBL: in paragraph 'COMPARE-TEST-5': +NC107A.CBL:1980: warning: alphanumeric value is expected +NC107A.CBL:313: note: 'CORRECT-A' defined here as PIC X(20) +NC107A.CBL: in section 'SEP-TEST-5': +NC107A.CBL: in paragraph 'NUM-WRITE-4': +NC107A.CBL:1946: warning: GO TO paragraph 'NUM-EXIT' which is defined in another SECTION +NC107A.CBL:1966: note: 'NUM-EXIT IN NUM-EXIT-SECT' defined here +NC107A.CBL: in section '0000000000000000000000001': +NC107A.CBL: in paragraph '00000000000000000000000001': +NC107A.CBL:1949: warning: GO TO paragraph 'NUM-ERROR' which is defined in another SECTION +NC107A.CBL:1959: note: 'NUM-ERROR IN NUM-EXIT-SECT' defined here +NC107A.CBL: in paragraph '000000000000000000000000001': +NC107A.CBL:1952: warning: GO TO paragraph 'NUM-ERROR' which is defined in another SECTION +NC107A.CBL:1959: note: 'NUM-ERROR IN NUM-EXIT-SECT' defined here +NC107A.CBL: in section '0000000000000000000000000001': +NC107A.CBL: in paragraph '00000000000000000000000000001': +NC107A.CBL:1955: warning: GO TO paragraph 'NUM-ERROR' which is defined in another SECTION +NC107A.CBL:1959: note: 'NUM-ERROR IN NUM-EXIT-SECT' defined here +NC107A.CBL: in paragraph '000000000000000000000000000001': +NC107A.CBL:1957: warning: GO TO paragraph 'NUM-ERROR' which is defined in another SECTION +NC107A.CBL:1959: note: 'NUM-ERROR IN NUM-EXIT-SECT' defined here +NC107A.CBL: in section 'CCVS-EXIT': +NC107A.CBL: in paragraph 'CCVS-999999': +NC107A.CBL:2031: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC107A.CBL:431: note: 'CLOSE-FILES IN CCVS1' defined here +NC107A.CBL:1912: warning: 000000000000000000000000001 and 00000000000000000000000000001 are not in the same SECTION +]) +AT_CHECK([./NC107A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC108M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC108M.CBL NC108M.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC108M.CBL], [0], [], [NC108M.CBL:85: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC108M.CBL:117: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC108M.CBL:121: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC108M.CBL:125: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC108M.CBL:129: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC108M.CBL: in section 'CCVS-EXIT': +NC108M.CBL: in paragraph 'CCVS-999999': +NC108M.CBL:775: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC108M.CBL:283: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC108M], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC109M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC109M.CBL NC109M.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC109M.CBL], [0], [], [NC109M.CBL: in section 'SECT-NC109M-001': +NC109M.CBL: in paragraph 'DISP-TEST-GF-4': +NC109M.CBL:740: warning: alphanumeric value is expected +NC109M.CBL:96: note: 'DIS-PLAYER' defined here as a group of length 119 +NC109M.CBL: in paragraph 'DISP-WRITE-GF-14': +NC109M.CBL:926: warning: GO TO SECTION 'CCVS-EXIT' +NC109M.CBL: in section 'CCVS-EXIT': +NC109M.CBL: in paragraph 'CCVS-999999': +NC109M.CBL:962: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC109M.CBL:332: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC109M.DAT NC109M.DAT], [0], [], []) +AT_CHECK([./NC109M < NC109M.DAT], [0], [ +ALPHABETIC + + +ALPHABETIC LITERAL + + +0123456789 + + +9876543210 + + +A1B2C3D4E5 + + +12345 ///// ALPHANUMERIC LITERAL + + +ALPHABETIC0123456789A1B2C3D4E5 SERIES + + +0 " + + +REDEFINE-INFO + + +*001*002*003*004*005*006*007*008*009*010*011*012*013*014*015*016*017*018*019*020*021*022*023*024*025*026*027*028*029*030*031*032*033*034*035*036*037*038*039*040*041*042*043*044*045*046*047*048*049*050 + + +UTSRQPONMLKJIHGFEDCBA + + +ABCDEFGHIJKLMNOPQRSTU + + +QUOTE " ASTERISK * NUMERIC LITERALS 21 35 IDENTIFIER DATA A B C D E 0102030405 (TOTAL 21 OPERANDS) END OF DATA + + +ABCD + +], []) + +AT_CLEANUP + + +AT_SETUP([NC110M]) +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC110M.CBL NC110M.CBL],[0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC110M.CBL], [0], [], []) +AT_CHECK([./NC110M], [0], +[ + FOR OFFICIAL USE ONLY + OFFICIAL COBOL COMPILER TEST SYSTEM. + TEST RESULTS SET- NC110M + + FOR OFFICIAL USE ONLY +COPYRIGHT 1985 + + FEATURE RESULTS AND + TESTED REMARKS + + --------------------------------------------------------- + GO TO THIS TEST PASSES UNLESS FAIL APPEARS BELOW. + PERFORM THIS TEST FAILS UNLESS PASS APPEARS BELOW. + PASS + --------------------------------------------------------- + + END OF TEST - NC110M + CHECK FOR ERRORS + + FOR OFFICIAL USE ONLY +COPYRIGHT 1985 + NTIS DISTRIBUTION COBOL 1985 +], []) +AT_CLEANUP + + +AT_SETUP([NC111A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC111A.CBL NC111A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC111A.CBL], [0], [], [NC111A.CBL: in section 'CCVS-EXIT': +NC111A.CBL: in paragraph 'CCVS-999999': +NC111A.CBL:476: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC111A.CBL:203: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC111A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC112A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC112A.CBL NC112A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC112A.CBL], [0], [], [NC112A.CBL: in section 'SECT-NC112A-001': +NC112A.CBL: in paragraph 'ADD-TEST-F1-1-1': +NC112A.CBL:345: warning: alphanumeric value is expected +NC112A.CBL:87: note: 'CORRECT-A' defined here as PIC X(20) +NC112A.CBL: in paragraph 'ADD-TEST-F1-2-1': +NC112A.CBL:384: warning: alphanumeric value is expected +NC112A.CBL:87: note: 'CORRECT-A' defined here as PIC X(20) +NC112A.CBL: in paragraph 'ADD-TEST-F2-1-1': +NC112A.CBL:421: warning: alphanumeric value is expected +NC112A.CBL:87: note: 'CORRECT-A' defined here as PIC X(20) +NC112A.CBL: in paragraph 'ADD-TEST-F2-2-1': +NC112A.CBL:459: warning: alphanumeric value is expected +NC112A.CBL:87: note: 'CORRECT-A' defined here as PIC X(20) +NC112A.CBL: in paragraph 'SUB-TEST-F1-1-1': +NC112A.CBL:565: warning: alphanumeric value is expected +NC112A.CBL:87: note: 'CORRECT-A' defined here as PIC X(20) +NC112A.CBL: in paragraph 'SUB-TEST-F2-1-1': +NC112A.CBL:605: warning: alphanumeric value is expected +NC112A.CBL:87: note: 'CORRECT-A' defined here as PIC X(20) +NC112A.CBL: in paragraph 'SUB-TEST-F2-3': +NC112A.CBL:664: warning: alphanumeric value is expected +NC112A.CBL:87: note: 'CORRECT-A' defined here as PIC X(20) +NC112A.CBL: in paragraph 'SUB-TEST-F1-2-1': +NC112A.CBL:694: warning: alphanumeric value is expected +NC112A.CBL:87: note: 'CORRECT-A' defined here as PIC X(20) +NC112A.CBL: in paragraph 'SUB-TEST-F2-4-1': +NC112A.CBL:723: warning: alphanumeric value is expected +NC112A.CBL:87: note: 'CORRECT-A' defined here as PIC X(20) +NC112A.CBL: in section 'CCVS-EXIT': +NC112A.CBL: in paragraph 'CCVS-999999': +NC112A.CBL:1025: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC112A.CBL:205: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC112A], [0], [], []) + +AT_CLEANUP + +# more testing in report.pl +AT_SETUP([NC113M]) +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC113M.CBL NC113M.CBL],[0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC113M.CBL], [0], [], []) +AT_CHECK([./NC113M], [0], [], []) +AT_CLEANUP + +AT_SETUP([NC114M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC114M.CBL NC114M.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -x -t NC114M.lst NC114M.CBL], [0], [], [NC114M.CBL: in section 'SECT-NC114-1': +NC114M.CBL: in paragraph 'ALPHA-EDIT-TEST-4': +NC114M.CBL:354: warning: NEXT SENTENCE is archaic in COBOL 85 +NC114M.CBL: in paragraph 'ELEM-MOVE-FAIL-17': +NC114M.CBL:429: warning: value size exceeds data size +NC114M.CBL:429: note: value size is 24 +NC114M.CBL:111: note: 'CORRECT-A' defined here as PIC X(20) +NC114M.CBL: in section 'CCVS-EXIT': +NC114M.CBL: in paragraph 'CCVS-999999': +NC114M.CBL:497: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC114M.CBL:229: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC114M], [0], [], []) + +AT_CLEANUP + +AT_SETUP([NC115A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC115A.CBL NC115A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC115A.CBL], [0], [], [NC115A.CBL: in section 'SECT-NC115A-001': +NC115A.CBL: in paragraph 'INSP-DELETE-F3-8': +NC115A.CBL:1066: warning: GO TO paragraph 'CCVS-999999' which is defined in another SECTION +NC115A.CBL:1101: note: 'CCVS-999999 IN CCVS-EXIT' defined here +NC115A.CBL: in section 'CCVS-EXIT': +NC115A.CBL: in paragraph 'CCVS-999999': +NC115A.CBL:1102: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC115A.CBL:246: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC115A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC116A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC116A.CBL NC116A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC116A.CBL], [0], [], [NC116A.CBL: in section 'SECT-NC116A-001': +NC116A.CBL: in paragraph 'SIG-INIT-GF-1': +NC116A.CBL:417: warning: value size exceeds data size +NC116A.CBL:417: note: value size is 21 +NC116A.CBL:155: note: 'FEATURE' defined here as PIC X(20) +NC116A.CBL: in paragraph 'SIG-INIT-GF-17': +NC116A.CBL:1444: warning: value size exceeds data size +NC116A.CBL:1444: note: value size is 37 +NC116A.CBL:155: note: 'FEATURE' defined here as PIC X(20) +NC116A.CBL: in paragraph 'SIG-INIT-GF-18': +NC116A.CBL:1467: warning: value size exceeds data size +NC116A.CBL:1467: note: value size is 37 +NC116A.CBL:155: note: 'FEATURE' defined here as PIC X(20) +NC116A.CBL: in section 'CCVS-EXIT': +NC116A.CBL: in paragraph 'CCVS-999999': +NC116A.CBL:1491: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC116A.CBL:302: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC116A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC117A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC117A.CBL NC117A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC117A.CBL], [0], [], [NC117A.CBL: in section 'CCVS-EXIT': +NC117A.CBL: in paragraph 'CCVS-999999': +NC117A.CBL:1206: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC117A.CBL:290: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC117A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC118A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC118A.CBL NC118A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC118A.CBL], [0], [], [NC118A.CBL:135: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC118A.CBL: in section 'SECT-NC118A-001': +NC118A.CBL: in paragraph 'SIG-TEST-GF-19-2': +NC118A.CBL:946: warning: alphanumeric value is expected +NC118A.CBL:222: note: 'COMPUTED-A' defined here as PIC X(20) +NC118A.CBL: in paragraph 'SIG-TEST-GF-20-2': +NC118A.CBL:986: warning: alphanumeric value is expected +NC118A.CBL:222: note: 'COMPUTED-A' defined here as PIC X(20) +NC118A.CBL: in section 'CCVS-EXIT': +NC118A.CBL: in paragraph 'CCVS-999999': +NC118A.CBL:1035: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC118A.CBL:354: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC118A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC119A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC119A.CBL NC119A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC119A.CBL], [0], [], [NC119A.CBL:135: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC119A.CBL: in section 'SECT-NC119A-001': +NC119A.CBL: in paragraph 'SUB-TEST-GF-25-2': +NC119A.CBL:1121: warning: alphanumeric value is expected +NC119A.CBL:222: note: 'COMPUTED-A' defined here as PIC X(20) +NC119A.CBL: in paragraph 'SUB-INIT-GF-26': +NC119A.CBL:1138: warning: value size exceeds data size +NC119A.CBL:1138: note: value is 1 +NC119A.CBL:200: note: 'EVEN-NAME2' defined here as PIC SV9(18) +NC119A.CBL: in paragraph 'SUB-TEST-GF-26-2': +NC119A.CBL:1162: warning: alphanumeric value is expected +NC119A.CBL:222: note: 'COMPUTED-A' defined here as PIC X(20) +NC119A.CBL: in section 'CCVS-EXIT': +NC119A.CBL: in paragraph 'CCVS-999999': +NC119A.CBL:1174: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC119A.CBL:354: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC119A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC120A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC120A.CBL NC120A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC120A.CBL], [0], [], [NC120A.CBL: in section 'CCVS-EXIT': +NC120A.CBL: in paragraph 'CCVS-999999': +NC120A.CBL:1145: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC120A.CBL:285: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC120A], [0], [], []) + +AT_CLEANUP + +# more testing in report.pl +AT_SETUP([NC121M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC121M.CBL NC121M.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC121M.CBL], [0], [], [NC121M.CBL: in section 'SECT-NC121M-001': +NC121M.CBL: in paragraph 'IND-WRITE-GF-37': +NC121M.CBL:1279: warning: GO TO paragraph 'CCVS-999999' which is defined in another SECTION +NC121M.CBL:1285: note: 'CCVS-999999 IN CCVS-EXIT' defined here +NC121M.CBL: in section 'CCVS-EXIT': +NC121M.CBL: in paragraph 'CCVS-999999': +NC121M.CBL:1286: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC121M.CBL:222: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC121M], [0], [ +LITERAL-01 +0123456789 +], []) + +AT_CLEANUP + + +AT_SETUP([NC122A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC122A.CBL NC122A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC122A.CBL], [0], [], [NC122A.CBL: in section 'CCVS1': +NC122A.CBL: in paragraph 'IND-DELETE-GF-18': +NC122A.CBL:1001: warning: GO TO paragraph 'CCVS-999999' which is defined in another SECTION +NC122A.CBL:1035: note: 'CCVS-999999 IN CCVS-EXIT' defined here +NC122A.CBL: in section 'CCVS-EXIT': +NC122A.CBL: in paragraph 'CCVS-999999': +NC122A.CBL:1036: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC122A.CBL:237: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC122A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC123A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC123A.CBL NC123A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC123A.CBL], [0], [], [NC123A.CBL: in section 'CCVS1': +NC123A.CBL: in paragraph 'IND-INIT-GF-17': +NC123A.CBL:755: warning: value size exceeds data size +NC123A.CBL:755: note: value size is 22 +NC123A.CBL:69: note: 'FEATURE' defined here as PIC X(20) +NC123A.CBL: in paragraph 'IND-INIT-GF-20': +NC123A.CBL:837: warning: value size exceeds data size +NC123A.CBL:837: note: value size is 22 +NC123A.CBL:69: note: 'FEATURE' defined here as PIC X(20) +NC123A.CBL: in section 'CCVS-EXIT': +NC123A.CBL: in paragraph 'CCVS-999999': +NC123A.CBL:1127: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC123A.CBL:216: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC123A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC124A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC124A.CBL NC124A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC124A.CBL], [0], [], [NC124A.CBL: in section 'CCVS-EXIT': +NC124A.CBL: in paragraph 'CCVS-999999': +NC124A.CBL:2352: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC124A.CBL:260: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC124A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC125A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC125A.CBL NC125A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC125A.CBL], [0], [], [NC125A.CBL: in section 'CCVS-EXIT': +NC125A.CBL: in paragraph 'CCVS-999999': +NC125A.CBL:748: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC125A.CBL:278: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC125A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC126A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC126A.CBL NC126A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC126A.CBL], [0], [], [NC126A.CBL: in section 'SECT-NC126A-001': +NC126A.CBL: in paragraph 'LEV-INIT-GF-3-1': +NC126A.CBL:1881: warning: value size exceeds data size +NC126A.CBL:1881: note: value is 12345678902 +NC126A.CBL:45: note: 'GP-2' defined here as PIC 9(9).99 +NC126A.CBL:1884: warning: value size exceeds data size +NC126A.CBL:1884: note: value is 6645143 +NC126A.CBL:51: note: 'GP-5' defined here as PIC $$$,$99.99 +NC126A.CBL:1894: warning: value size exceeds data size +NC126A.CBL:1894: note: value is 12345678902 +NC126A.CBL:71: note: 'GP-15' defined here as PIC 9(10) +NC126A.CBL: in paragraph 'LEV-WRITE-GF-3-50': +NC126A.CBL:2579: warning: GO TO SECTION 'CCVS-EXIT' +NC126A.CBL: in section 'CCVS-EXIT': +NC126A.CBL: in paragraph 'CCVS-999999': +NC126A.CBL:2634: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC126A.CBL:413: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC126A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC127A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC127A.CBL NC127A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC127A.CBL], [0], [], [NC127A.CBL: in section 'CCVS-EXIT': +NC127A.CBL: in paragraph 'CCVS-999999': +NC127A.CBL:347: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC127A.CBL:195: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC127A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC131A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC131A.CBL NC131A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC131A.CBL], [0], [], [NC131A.CBL: in section 'CCVS-EXIT': +NC131A.CBL: in paragraph 'CCVS-999999': +NC131A.CBL:466: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC131A.CBL:205: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC131A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC132A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC132A.CBL NC132A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC132A.CBL], [0], [], [NC132A.CBL: in section 'CCVS-EXIT': +NC132A.CBL: in paragraph 'CCVS-999999': +NC132A.CBL:792: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC132A.CBL:212: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC132A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC133A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC133A.CBL NC133A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC133A.CBL], [0], [], [NC133A.CBL: in section 'SECT-TH133A-001': +NC133A.CBL: in paragraph 'IDX-TEST-2': +NC133A.CBL:360: warning: alphanumeric value is expected +NC133A.CBL:97: note: 'CORRECT-A' defined here as PIC X(20) +NC133A.CBL: in paragraph 'IDX-TEST-3': +NC133A.CBL:375: warning: alphanumeric value is expected +NC133A.CBL:97: note: 'CORRECT-A' defined here as PIC X(20) +NC133A.CBL: in paragraph 'IDX-TEST-4': +NC133A.CBL:389: warning: alphanumeric value is expected +NC133A.CBL:97: note: 'CORRECT-A' defined here as PIC X(20) +NC133A.CBL: in paragraph 'IDX-TEST-5': +NC133A.CBL:404: warning: alphanumeric value is expected +NC133A.CBL:97: note: 'CORRECT-A' defined here as PIC X(20) +NC133A.CBL: in paragraph 'IDX-TEST-6': +NC133A.CBL:420: warning: alphanumeric value is expected +NC133A.CBL:97: note: 'CORRECT-A' defined here as PIC X(20) +NC133A.CBL: in paragraph 'IDX-TEST-7': +NC133A.CBL:434: warning: alphanumeric value is expected +NC133A.CBL:97: note: 'CORRECT-A' defined here as PIC X(20) +NC133A.CBL: in paragraph 'IDX-TEST-8': +NC133A.CBL:450: warning: alphanumeric value is expected +NC133A.CBL:97: note: 'CORRECT-A' defined here as PIC X(20) +NC133A.CBL: in paragraph 'IDX-TEST-9': +NC133A.CBL:466: warning: alphanumeric value is expected +NC133A.CBL:97: note: 'CORRECT-A' defined here as PIC X(20) +NC133A.CBL: in paragraph 'IDX-TEST-11': +NC133A.CBL:499: warning: alphanumeric value is expected +NC133A.CBL:97: note: 'CORRECT-A' defined here as PIC X(20) +NC133A.CBL: in paragraph 'IDX-TEST-12': +NC133A.CBL:513: warning: alphanumeric value is expected +NC133A.CBL:97: note: 'CORRECT-A' defined here as PIC X(20) +NC133A.CBL: in paragraph 'IDX-TEST-13': +NC133A.CBL:527: warning: alphanumeric value is expected +NC133A.CBL:97: note: 'CORRECT-A' defined here as PIC X(20) +NC133A.CBL: in paragraph 'IDX-TEST-14': +NC133A.CBL:541: warning: alphanumeric value is expected +NC133A.CBL:97: note: 'CORRECT-A' defined here as PIC X(20) +NC133A.CBL: in paragraph 'IDX-TEST-15': +NC133A.CBL:555: warning: alphanumeric value is expected +NC133A.CBL:97: note: 'CORRECT-A' defined here as PIC X(20) +NC133A.CBL: in paragraph 'IDX-INIT-A': +NC133A.CBL:337: warning: GO TO SECTION 'CCVS-EXIT' +NC133A.CBL: in section 'CCVS-EXIT': +NC133A.CBL: in paragraph 'CCVS-999999': +NC133A.CBL:711: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC133A.CBL:215: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC133A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC134A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC134A.CBL NC134A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC134A.CBL], [0], [], [NC134A.CBL: in section 'CCVS-EXIT': +NC134A.CBL: in paragraph 'CCVS-999999': +NC134A.CBL:711: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC134A.CBL:248: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC134A], [0], [], []) + +AT_CLEANUP + +# more testing in report.pl +AT_SETUP([NC135A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC135A.CBL NC135A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC135A.CBL], [0], [], [NC135A.CBL: in section 'SECTION-NAME-2': +NC135A.CBL: in paragraph 'INDEX-TEST-1': +NC135A.CBL:362: warning: alphanumeric value is expected +NC135A.CBL:95: note: 'CORRECT-A' defined here as PIC X(20) +NC135A.CBL: in section 'CCVS-EXIT': +NC135A.CBL: in paragraph 'CCVS-999999': +NC135A.CBL:519: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC135A.CBL:213: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC135A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC136A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC136A.CBL NC136A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC136A.CBL], [0], [], [NC136A.CBL: in section 'CCVS-EXIT': +NC136A.CBL: in paragraph 'CCVS-999999': +NC136A.CBL:487: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC136A.CBL:226: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC136A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC137A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC137A.CBL NC137A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC137A.CBL], [0], [], [NC137A.CBL: in section 'CCVS-EXIT': +NC137A.CBL: in paragraph 'CCVS-999999': +NC137A.CBL:501: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC137A.CBL:225: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC137A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC138A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC138A.CBL NC138A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC138A.CBL], [0], [], [NC138A.CBL:51: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC138A.CBL: in section 'SECT-NC138A-0001': +NC138A.CBL: in paragraph 'MOVE-VALUE': +NC138A.CBL:338: warning: GO TO SECTION 'SECT-TH109-0002' +NC138A.CBL: in section 'SECT-TH109-0002': +NC138A.CBL: in paragraph 'SEP-TEST-007-07': +NC138A.CBL:580: warning: GO TO SECTION 'CCVS-EXIT' +NC138A.CBL: in paragraph 'SEP-DELETE-007': +NC138A.CBL:589: warning: GO TO SECTION 'CCVS-EXIT' +NC138A.CBL: in section 'CCVS-EXIT': +NC138A.CBL: in paragraph 'CCVS-999999': +NC138A.CBL:652: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC138A.CBL:220: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC138A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC139A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC139A.CBL NC139A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC139A.CBL], [0], [], [NC139A.CBL: in section 'SECT-TH110-0002': +NC139A.CBL: in paragraph 'IND-TEST-005-05': +NC139A.CBL:561: warning: GO TO SECTION 'CCVS-EXIT' +NC139A.CBL: in paragraph 'IND-TEST-006-05': +NC139A.CBL:595: warning: GO TO SECTION 'CCVS-EXIT' +NC139A.CBL: in paragraph 'IND-DELETE-006': +NC139A.CBL:599: warning: GO TO SECTION 'CCVS-EXIT' +NC139A.CBL: in section 'CCVS-EXIT': +NC139A.CBL: in paragraph 'CCVS-999999': +NC139A.CBL:615: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC139A.CBL:231: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC139A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC140A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC140A.CBL NC140A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC140A.CBL], [0], [], [NC140A.CBL: in section 'SECT-NC140A-0001': +NC140A.CBL: in paragraph 'MOVE-VALUE': +NC140A.CBL:346: warning: GO TO SECTION 'SECT-TH111-0002' +NC140A.CBL: in section 'SECT-TH111-0002': +NC140A.CBL: in paragraph 'SET-TEST-004-23': +NC140A.CBL:722: warning: GO TO SECTION 'CCVS-EXIT' +NC140A.CBL: in paragraph 'SET-DELETE-004': +NC140A.CBL:726: warning: GO TO SECTION 'CCVS-EXIT' +NC140A.CBL: in section 'CCVS-EXIT': +NC140A.CBL: in paragraph 'CCVS-999999': +NC140A.CBL:747: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC140A.CBL:220: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC140A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC141A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC141A.CBL NC141A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC141A.CBL], [0], [], [NC141A.CBL: in section 'CCVS-EXIT': +NC141A.CBL: in paragraph 'CCVS-999999': +NC141A.CBL:505: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC141A.CBL:200: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC141A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC170A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC170A.CBL NC170A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC170A.CBL], [0], [], [NC170A.CBL: in section 'SECT-NC170A-001': +NC170A.CBL: in paragraph 'MPY-DELETE-F2-32-1': +NC170A.CBL:1972: warning: GO TO SECTION 'CCVS-EXIT' +NC170A.CBL: in section 'CCVS-EXIT': +NC170A.CBL: in paragraph 'CCVS-999999': +NC170A.CBL:2013: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC170A.CBL:323: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC170A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC171A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC171A.CBL NC171A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC171A.CBL], [0], [], [NC171A.CBL: in section 'SECT-NC171A-001': +NC171A.CBL: in paragraph 'DIV-DELETE-F1-30-1': +NC171A.CBL:2228: warning: GO TO SECTION 'CCVS-EXIT' +NC171A.CBL: in section 'CCVS-EXIT': +NC171A.CBL: in paragraph 'CCVS-999999': +NC171A.CBL:2266: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC171A.CBL:323: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC171A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC172A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC172A.CBL NC172A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC172A.CBL], [0], [], [NC172A.CBL: in section 'SECT-NC172A-001': +NC172A.CBL: in paragraph 'DIV-DELETE-F2-30-1': +NC172A.CBL:2172: warning: GO TO SECTION 'CCVS-EXIT' +NC172A.CBL: in section 'CCVS-EXIT': +NC172A.CBL: in paragraph 'CCVS-999999': +NC172A.CBL:2213: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC172A.CBL:323: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC172A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC173A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC173A.CBL NC173A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC173A.CBL], [0], [], [NC173A.CBL: in section 'SECT-NC173A-001': +NC173A.CBL: in paragraph 'DIV-INIT-F3-26': +NC173A.CBL:1743: warning: alphanumeric value is expected +NC173A.CBL:53: note: 'WRK-XN-00001' defined here as PIC X +NC173A.CBL: in paragraph 'DIV-DELETE-F3-31': +NC173A.CBL:2174: warning: GO TO SECTION 'CCVS-EXIT' +NC173A.CBL: in section 'CCVS-EXIT': +NC173A.CBL: in paragraph 'CCVS-999999': +NC173A.CBL:2216: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC173A.CBL:322: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC173A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC174A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC174A.CBL NC174A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC174A.CBL], [0], [], [NC174A.CBL: in section 'SECT-NC174A-001': +NC174A.CBL: in paragraph 'NEXT-TEST-GF-1': +NC174A.CBL:532: warning: NEXT SENTENCE is archaic in COBOL 85 +NC174A.CBL:534: warning: NEXT SENTENCE is archaic in COBOL 85 +NC174A.CBL: in paragraph 'RELAT-CHECK-GF-1': +NC174A.CBL:789: warning: alphanumeric value is expected +NC174A.CBL:295: note: 'CORRECT-A' defined here as PIC X(20) +NC174A.CBL: in paragraph 'RELAT-CHECK-GF-2': +NC174A.CBL:813: warning: alphanumeric value is expected +NC174A.CBL:295: note: 'CORRECT-A' defined here as PIC X(20) +NC174A.CBL: in paragraph 'RELAT-CHECK-GF-3': +NC174A.CBL:838: warning: alphanumeric value is expected +NC174A.CBL:295: note: 'CORRECT-A' defined here as PIC X(20) +NC174A.CBL: in paragraph 'RELAT-CHECK-GF-5': +NC174A.CBL:888: warning: alphanumeric value is expected +NC174A.CBL:295: note: 'CORRECT-A' defined here as PIC X(20) +NC174A.CBL: in paragraph 'RELAT-CHECK-GF-6': +NC174A.CBL:914: warning: alphanumeric value is expected +NC174A.CBL:295: note: 'CORRECT-A' defined here as PIC X(20) +NC174A.CBL: in paragraph 'RELAT-TEST-GF-13': +NC174A.CBL:1017: warning: 'DATA-99999' may not be GREATER THAN 99999 +NC174A.CBL: in paragraph 'CLASS-TEST-GF-35': +NC174A.CBL:1549: warning: value size exceeds data size +NC174A.CBL:1549: note: value size is 23 +NC174A.CBL:295: note: 'CORRECT-A' defined here as PIC X(20) +NC174A.CBL: in paragraph 'CLASS-DELETE-GF-52': +NC174A.CBL:1905: warning: GO TO SECTION 'CCVS-EXIT' +NC174A.CBL: in section 'CCVS-EXIT': +NC174A.CBL: in paragraph 'CCVS-999999': +NC174A.CBL:1919: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC174A.CBL:413: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC174A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC175A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC175A.CBL NC175A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC175A.CBL], [0], [], [NC175A.CBL:159: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC175A.CBL: in section 'SECT-NC175A-001': +NC175A.CBL: in paragraph 'SUB-TEST-F2-16-2': +NC175A.CBL:884: warning: alphanumeric value is expected +NC175A.CBL:244: note: 'COMPUTED-A' defined here as PIC X(20) +NC175A.CBL: in paragraph 'SUB-TEST-F2-17-2': +NC175A.CBL:916: warning: alphanumeric value is expected +NC175A.CBL:244: note: 'COMPUTED-A' defined here as PIC X(20) +NC175A.CBL: in paragraph 'SUB-DELETE-F2-39': +NC175A.CBL:2035: warning: GO TO SECTION 'CCVS-EXIT' +NC175A.CBL: in section 'CCVS-EXIT': +NC175A.CBL: in paragraph 'CCVS-999999': +NC175A.CBL:2077: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC175A.CBL:376: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC175A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC176A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC176A.CBL NC176A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC176A.CBL], [0], [], [NC176A.CBL:182: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC176A.CBL: in section 'SECT-NC176A-001': +NC176A.CBL: in paragraph 'ADD-INIT-DELETE': +NC176A.CBL:1029: warning: value size exceeds data size +NC176A.CBL:1029: note: value size is 23 +NC176A.CBL:256: note: 'PAR-NAME' defined here as a group of length 22 +NC176A.CBL: in paragraph 'ADD-DELETE-F1-58': +NC176A.CBL:2373: warning: GO TO SECTION 'CCVS-EXIT' +NC176A.CBL: in section 'CCVS-EXIT': +NC176A.CBL: in paragraph 'CCVS-999999': +NC176A.CBL:2415: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC176A.CBL:399: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC176A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC177A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC177A.CBL NC177A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC177A.CBL], [0], [], [NC177A.CBL:137: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC177A.CBL: in section 'SECT-NC177A-001': +NC177A.CBL: in paragraph 'ADD-TEST-F2-15-2': +NC177A.CBL:815: warning: alphanumeric value is expected +NC177A.CBL:222: note: 'COMPUTED-A' defined here as PIC X(20) +NC177A.CBL: in paragraph 'ADD-TEST-F2-16-2': +NC177A.CBL:846: warning: alphanumeric value is expected +NC177A.CBL:222: note: 'COMPUTED-A' defined here as PIC X(20) +NC177A.CBL: in section 'CCVS-EXIT': +NC177A.CBL: in paragraph 'CCVS-999999': +NC177A.CBL:2135: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC177A.CBL:354: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC177A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC201A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC201A.CBL NC201A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC201A.CBL], [0], [], [NC201A.CBL:185: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC201A.CBL: in section 'SECT-NC201A-001': +NC201A.CBL: in paragraph 'PFM-TEST-F4-8': +NC201A.CBL:1031: warning: GO TO SECTION 'PFM-PART-A' +NC201A.CBL: in paragraph 'PFM-DELETE-F4-8': +NC201A.CBL:1034: warning: GO TO paragraph 'PFM-WRITE-F4-8' which is defined in another SECTION +NC201A.CBL:1072: note: 'PFM-WRITE-F4-8 IN PFM-PART-B' defined here +NC201A.CBL: in section 'CCVS-EXIT': +NC201A.CBL: in paragraph 'CCVS-999999': +NC201A.CBL:2118: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC201A.CBL:494: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC201A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC202A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC202A.CBL NC202A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC202A.CBL], [0], [], [NC202A.CBL: in section 'SECT-NC202A-001': +NC202A.CBL: in paragraph 'ADD-FAIL-F3-3-2': +NC202A.CBL:625: warning: alphanumeric value is expected +NC202A.CBL:303: note: 'CORRECT-A' defined here as PIC X(20) +NC202A.CBL: in paragraph 'ADD-FAIL-F3-6': +NC202A.CBL:753: warning: alphanumeric value is expected +NC202A.CBL:303: note: 'CORRECT-A' defined here as PIC X(20) +NC202A.CBL: in paragraph 'ADD-INIT-F3-7': +NC202A.CBL:765: warning: alphanumeric value is expected +NC202A.CBL:188: note: 'CORR-DATA-2' defined here as a group of length 12 +NC202A.CBL: in paragraph 'ADD-INIT-F3-8': +NC202A.CBL:865: warning: alphanumeric value is expected +NC202A.CBL:188: note: 'CORR-DATA-2' defined here as a group of length 12 +NC202A.CBL: in paragraph 'ADD-TEST-F3-8-1': +NC202A.CBL:870: warning: alphanumeric value is expected +NC202A.CBL:53: note: 'WRK-AN-00001' defined here as PIC X +NC202A.CBL: in paragraph 'ADD-INIT-F3-9-1': +NC202A.CBL:908: warning: alphanumeric value is expected +NC202A.CBL:181: note: 'CORR-DATA-1' defined here as a group of length 12 +NC202A.CBL: in section 'CCVS-EXIT': +NC202A.CBL: in paragraph 'CCVS-999999': +NC202A.CBL:2217: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC202A.CBL:421: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC202A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC203A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC203A.CBL NC203A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC203A.CBL], [0], [], [NC203A.CBL:99: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC203A.CBL:102: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC203A.CBL:104: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC203A.CBL:105: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC203A.CBL:107: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC203A.CBL:109: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC203A.CBL:137: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC203A.CBL: in section 'SECT-NC203A-001': +NC203A.CBL: in paragraph 'DIV-FAIL-F4-8-1': +NC203A.CBL:738: warning: alphanumeric value is expected +NC203A.CBL:184: note: 'CORRECT-A' defined here as PIC X(20) +NC203A.CBL: in paragraph 'DIV-DELETE-F4-20': +NC203A.CBL:1647: warning: GO TO SECTION 'CCVS-EXIT' +NC203A.CBL: in section 'CCVS-EXIT': +NC203A.CBL: in paragraph 'CCVS-999999': +NC203A.CBL:1691: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC203A.CBL:302: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC203A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC204M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC204M.CBL NC204M.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC204M.DAT NC204M.DAT], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC204M.CBL], [0], [], [NC204M.CBL: in section 'AC-CEPT': +NC204M.CBL: in paragraph 'ACCEPT-EXIT': +NC204M.CBL:1162: warning: GO TO SECTION 'CCVS-EXIT' +NC204M.CBL: in section 'CCVS-EXIT': +NC204M.CBL: in paragraph 'CCVS-999999': +NC204M.CBL:1205: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC204M.CBL:385: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC204M < NC204M.DAT], [0], [ +ALPHABETIC + + +ALPHABETIC LITERAL + + +0123456789 + + +9876543210 + + +A1B2C3D4E5 + + +A1B2C3D4E5 ALPHANUMERIC LITERAL + + +ALPHABETIC0123456789A1B2C3D4E5 SERIES + + +0 " + + +REDEFINE-INFO + + +D001*002*003*004*005*006*007*008*009*010*011*012*013*014*015*016*017*018*019*020*021*022*023*024*025*026*027*028*029*030*031*032*033*034*035*036*037*038*039*040*041*042*043*044*045*046*047*048*049*050 + + +ABCDEFGHIJKLMNOPQRSTUVWXYZ +0123456789 +ABCDEFGHIJKLMNOPQRSTUVWXYZ+-<>=l,:.()/* 0123456789 + + +UTSRQPONMLKJIHGFEDCBA + + +ABCDEFGHIJKLMNOPQRSTU + + +QUOTE " ASTERISK * NUMERIC LITERALS 21 1325 IDENTIFIER DATA A B C D E 1 2 3 4 5 (TOTAL 21 OPERANDS) END OF DATA + + +9876543210 + +ALPHABETIC0123456789A1B2C3D4E5 SERIES +], []) + +AT_CLEANUP + + +AT_SETUP([NC205A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC205A.CBL NC205A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC205A.CBL], [0], [], [NC205A.CBL: in section 'SECT-NC205A-001': +NC205A.CBL: in paragraph 'CON-TEST-GF-3': +NC205A.CBL:462: warning: suggest parentheses around OR within AND +NC205A.CBL: in paragraph 'CON-FAIL-GF-5': +NC205A.CBL:623: warning: alphanumeric value is expected +NC205A.CBL:173: note: 'CORRECT-A' defined here as PIC X(20) +NC205A.CBL: in paragraph 'CON-INIT-GF-10': +NC205A.CBL:783: warning: value size exceeds data size +NC205A.CBL:783: note: value size is 24 +NC205A.CBL:144: note: 'FEATURE' defined here as PIC X(20) +NC205A.CBL: in section 'CCVS-EXIT': +NC205A.CBL: in paragraph 'CCVS-999999': +NC205A.CBL:802: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC205A.CBL:291: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC205A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC206A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC206A.CBL NC206A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC206A.CBL], [0], [], [NC206A.CBL: in section 'SECT-NC206A-001': +NC206A.CBL: in paragraph 'SUB-FAIL-F1-1': +NC206A.CBL:1620: warning: alphanumeric value is expected +NC206A.CBL:248: note: 'CORRECT-A' defined here as PIC X(20) +NC206A.CBL: in paragraph 'SUB-INIT-F1-2': +NC206A.CBL:1629: warning: alphanumeric value is expected +NC206A.CBL:213: note: 'CX' defined here as a group of length 1 +NC206A.CBL: in paragraph 'SUB-INIT-F1-3': +NC206A.CBL:1650: warning: alphanumeric value is expected +NC206A.CBL:213: note: 'CX' defined here as a group of length 1 +NC206A.CBL: in paragraph 'SUB-INIT-F1-4': +NC206A.CBL:1673: warning: alphanumeric value is expected +NC206A.CBL:213: note: 'CX' defined here as a group of length 1 +NC206A.CBL:1674: warning: alphanumeric value is expected +NC206A.CBL:210: note: 'AX-1' defined here as a group of length 2 +NC206A.CBL: in section 'CCVS-EXIT': +NC206A.CBL: in paragraph 'CCVS-999999': +NC206A.CBL:1693: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC206A.CBL:366: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC206A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC207A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC207A.CBL NC207A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC207A.CBL], [0], [], [NC207A.CBL: in section 'CCVS-EXIT': +NC207A.CBL: in paragraph 'CCVS-999999': +NC207A.CBL:2721: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC207A.CBL:465: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC207A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC208A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC208A.CBL NC208A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC208A.CBL], [0], [], [NC208A.CBL: in section 'MOVE-CORR-ROUTINE': +NC208A.CBL: in paragraph 'MOV-FAIL-F1-1-1': +NC208A.CBL:899: warning: alphanumeric value is expected +NC208A.CBL:329: note: 'CORRECT-A' defined here as PIC X(20) +NC208A.CBL: in paragraph 'MOV-INIT-F1-3': +NC208A.CBL:1021: warning: alphanumeric value is expected +NC208A.CBL:199: note: 'CORR-DATA-3' defined here as a group of length 12 +NC208A.CBL: in paragraph 'MOV-TEST-F1-3': +NC208A.CBL:1025: warning: NEXT SENTENCE is archaic in COBOL 85 +NC208A.CBL:1028: warning: NEXT SENTENCE is archaic in COBOL 85 +NC208A.CBL: in section 'QUAL-SECTION-1': +NC208A.CBL: in paragraph 'PAR-TEST-F2-4': +NC208A.CBL:633: warning: GO TO paragraph 'PAR-4B' which is defined in another SECTION +NC208A.CBL:673: note: 'PAR-4B IN QUAL-SECTION-2' defined here +NC208A.CBL: in paragraph 'PAR-4-EXIT': +NC208A.CBL:655: warning: GO TO paragraph 'QUAL-EXIT' which is defined in another SECTION +NC208A.CBL:676: note: 'QUAL-EXIT IN QUAL-SECTION-2' defined here +NC208A.CBL: in section 'QUAL-SECTION-2': +NC208A.CBL: in paragraph 'PAR-3B': +NC208A.CBL:663: warning: GO TO paragraph 'PAR-3C' which is defined in another SECTION +NC208A.CBL:614: note: 'PAR-3C IN QUAL-SECTION-1' defined here +NC208A.CBL: in paragraph 'PAR-3C': +NC208A.CBL:667: warning: GO TO paragraph 'PAR-INIT-F2-4' which is defined in another SECTION +NC208A.CBL:629: note: 'PAR-INIT-F2-4 IN QUAL-SECTION-1' defined here +NC208A.CBL: in paragraph 'PAR-4B': +NC208A.CBL:675: warning: GO TO paragraph 'PAR-4C' which is defined in another SECTION +NC208A.CBL:641: note: 'PAR-4C IN QUAL-SECTION-1' defined here +NC208A.CBL: in section 'CCVS-EXIT': +NC208A.CBL: in paragraph 'CCVS-999999': +NC208A.CBL:1128: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC208A.CBL:447: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC208A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC209A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC209A.CBL NC209A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC209A.CBL], [0], [], [NC209A.CBL: in section 'SECT-NC209A-001': +NC209A.CBL: in paragraph 'MOV-INIT-F2-3': +NC209A.CBL:573: warning: no CORRESPONDING items found +NC209A.CBL: in section 'CCVS-EXIT': +NC209A.CBL: in paragraph 'CCVS-999999': +NC209A.CBL:964: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC209A.CBL:289: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC209A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC210A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC210A.CBL NC210A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC210A.CBL], [0], [], [NC210A.CBL: in section 'CCVS-EXIT': +NC210A.CBL: in paragraph 'CCVS-999999': +NC210A.CBL:737: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC210A.CBL:288: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC210A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC211A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC211A.CBL NC211A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC211A.CBL], [0], [], [NC211A.CBL:192: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC211A.CBL: in section 'SECT-NC211A-001': +NC211A.CBL: in paragraph 'CC--TEST-GF-15': +NC211A.CBL:852: warning: suggest parentheses around OR within AND +NC211A.CBL: in paragraph 'CC--TEST-GF-16': +NC211A.CBL:874: warning: suggest parentheses around AND within OR +NC211A.CBL: in paragraph 'CC--TEST-GF-21': +NC211A.CBL:997: warning: NEXT SENTENCE is archaic in COBOL 85 +NC211A.CBL: in paragraph 'CC--TEST-GF-22': +NC211A.CBL:1018: warning: NEXT SENTENCE is archaic in COBOL 85 +NC211A.CBL: in paragraph 'CC--TEST-GF-32': +NC211A.CBL:1309: warning: literal '6.00000000000000001' has more decimals than 'SIX' +NC211A.CBL:1309: warning: expression is always TRUE +NC211A.CBL: in paragraph 'CC--TEST-GF-38': +NC211A.CBL:1485: warning: suggest parentheses around OR within AND +NC211A.CBL: in paragraph 'CC--INIT-GF-42': +NC211A.CBL:1601: warning: alphanumeric value is expected +NC211A.CBL:135: note: 'CLASS-1' defined here as PIC X(5) +NC211A.CBL:1602: warning: alphanumeric value is expected +NC211A.CBL:136: note: 'CLASS-2' defined here as PIC X(5) +NC211A.CBL:1603: warning: alphanumeric value is expected +NC211A.CBL:137: note: 'CLASS-3' defined here as PIC X(5) +NC211A.CBL: in paragraph 'CC--TEST-GF-47': +NC211A.CBL:1751: warning: suggest parentheses around AND within OR +NC211A.CBL: in paragraph 'CC--TEST-GF-48': +NC211A.CBL:1785: warning: literal '2.5' has more decimals than 'FOUR' +NC211A.CBL:1785: warning: suggest parentheses around OR within AND +NC211A.CBL:1785: warning: suggest parentheses around OR within AND +NC211A.CBL:1785: warning: suggest parentheses around AND within OR +NC211A.CBL: in section 'CCVS-EXIT': +NC211A.CBL: in paragraph 'CCVS-999999': +NC211A.CBL:1888: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC211A.CBL:474: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC211A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC214M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC214M.CBL NC214M.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC214M.CBL], [0], [], [NC214M.CBL: in section 'SECT-NC214M-001': +NC214M.CBL: in paragraph 'ACC-TEST-F2-4': +NC214M.CBL:398: warning: value size exceeds data size +NC214M.CBL:398: note: value size is 37 +NC214M.CBL:118: note: 'CORRECT-A' defined here as PIC X(20) +NC214M.CBL: in section 'CCVS-EXIT': +NC214M.CBL: in paragraph 'CCVS-999999': +NC214M.CBL:407: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC214M.CBL:236: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC214M], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC215A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC215A.CBL NC215A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC215A.CBL], [0], [], [NC215A.CBL: in section 'SECT-NC215A-001': +NC215A.CBL: in paragraph 'SEQ-FAIL-GF-2': +NC215A.CBL:366: warning: value size exceeds data size +NC215A.CBL:366: note: value size is 21 +NC215A.CBL:92: note: 'COMPUTED-A' defined here as PIC X(20) +NC215A.CBL: in section 'CCVS-EXIT': +NC215A.CBL: in paragraph 'CCVS-999999': +NC215A.CBL:481: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC215A.CBL:224: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC215A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC216A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC216A.CBL NC216A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC216A.CBL], [0], [], [NC216A.CBL: in section 'SECT-NC216A-001': +NC216A.CBL: in paragraph 'INS-DELETE-F3-20': +NC216A.CBL:1394: warning: GO TO paragraph 'CCVS-999999' which is defined in another SECTION +NC216A.CBL:2224: note: 'CCVS-999999 IN CCVS-EXIT' defined here +NC216A.CBL: in paragraph 'INS-DELETE-F4-42': +NC216A.CBL:2206: warning: GO TO SECTION 'CCVS-EXIT' +NC216A.CBL: in section 'CCVS-EXIT': +NC216A.CBL: in paragraph 'CCVS-999999': +NC216A.CBL:2225: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC216A.CBL:326: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC216A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC217A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC217A.CBL NC217A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC217A.CBL], [0], [], [NC217A.CBL: in section 'SECT-NC217A-001': +NC217A.CBL: in paragraph 'STR-DELETE-GF-30': +NC217A.CBL:2091: warning: GO TO SECTION 'CCVS-EXIT' +NC217A.CBL: in section 'CCVS-EXIT': +NC217A.CBL: in paragraph 'CCVS-999999': +NC217A.CBL:2185: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC217A.CBL:234: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC217A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC218A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC218A.CBL NC218A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC218A.CBL], [0], [], [NC218A.CBL: in section 'SECT-NC218A-001': +NC218A.CBL: in paragraph 'UST-FAIL-GF-18-6': +NC218A.CBL:1970: warning: alphanumeric value is expected +NC218A.CBL:121: note: 'CORRECT-A' defined here as PIC X(20) +NC218A.CBL: in paragraph 'UST-DELETE-GF-30': +NC218A.CBL:3000: warning: GO TO SECTION 'CCVS-EXIT' +NC218A.CBL: in section 'CCVS-EXIT': +NC218A.CBL: in paragraph 'CCVS-999999': +NC218A.CBL:3075: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC218A.CBL:239: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC218A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC219A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC219A.CBL NC219A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC219A.CBL], [0], [], [NC219A.CBL: in section 'CCVS-EXIT': +NC219A.CBL: in paragraph 'CCVS-999999': +NC219A.CBL:589: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC219A.CBL:236: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC219A], [0], [], []) + +AT_CLEANUP + +# more testing in report.pl +AT_SETUP([NC220M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC220M.CBL NC220M.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC220M.CBL], [0], [], [NC220M.CBL: in section 'SECT-NC220M-001': +NC220M.CBL: in paragraph 'PFM-WRITE-F4-4': +NC220M.CBL:1025: warning: GO TO paragraph 'CCVS-999999' which is defined in another SECTION +NC220M.CBL:1034: note: 'CCVS-999999 IN CCVS-EXIT' defined here +NC220M.CBL: in section 'CCVS-EXIT': +NC220M.CBL: in paragraph 'CCVS-999999': +NC220M.CBL:1035: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC220M.CBL:237: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC220M], [0], [ +LITERAL-02 +9876543210 +], []) + +AT_CLEANUP + + +AT_SETUP([NC221A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC221A.CBL NC221A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC221A.CBL], [0], [], [NC221A.CBL: in section 'CCVS1': +NC221A.CBL: in paragraph 'INS-DELETE-F3-12': +NC221A.CBL:910: warning: GO TO paragraph 'CCVS-999999' which is defined in another SECTION +NC221A.CBL:958: note: 'CCVS-999999 IN CCVS-EXIT' defined here +NC221A.CBL: in section 'CCVS-EXIT': +NC221A.CBL: in paragraph 'CCVS-999999': +NC221A.CBL:959: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC221A.CBL:254: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC221A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC222A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC222A.CBL NC222A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC222A.CBL], [0], [], [NC222A.CBL: in section 'CCVS1': +NC222A.CBL: in paragraph 'MOV-DELETE-F2-4': +NC222A.CBL:510: warning: GO TO paragraph 'CCVS-999999' which is defined in another SECTION +NC222A.CBL:549: note: 'CCVS-999999 IN CCVS-EXIT' defined here +NC222A.CBL: in section 'CCVS-EXIT': +NC222A.CBL: in paragraph 'CCVS-999999': +NC222A.CBL:550: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC222A.CBL:220: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC222A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC223A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC223A.CBL NC223A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC223A.CBL], [0], [], [NC223A.CBL: in section 'SECT-NC223A-001': +NC223A.CBL: in paragraph 'INI-DELETE-GF-9': +NC223A.CBL:2058: warning: GO TO SECTION 'CCVS-EXIT' +NC223A.CBL: in section 'CCVS-EXIT': +NC223A.CBL: in paragraph 'CCVS-999999': +NC223A.CBL:2288: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC223A.CBL:205: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC223A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC224A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC224A.CBL NC224A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC224A.CBL], [0], [], [NC224A.CBL: in section 'SECT-NC224A-001': +NC224A.CBL: in paragraph 'REF-INIT-GF-1': +NC224A.CBL:320: warning: value size exceeds data size +NC224A.CBL:320: note: value size is 22 +NC224A.CBL:63: note: 'FEATURE' defined here as PIC X(20) +NC224A.CBL: in paragraph 'REF-DELETE-GF-6': +NC224A.CBL:623: warning: GO TO SECTION 'CCVS-EXIT' +NC224A.CBL: in section 'CCVS-EXIT': +NC224A.CBL: in paragraph 'CCVS-999999': +NC224A.CBL:645: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC224A.CBL:210: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC224A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC225A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC225A.CBL NC225A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC225A.CBL], [0], [], [NC225A.CBL: in section 'SECT-NC225A-001-1': +NC225A.CBL: in paragraph 'EVA-INIT-GF-17': +NC225A.CBL:1037: warning: alphanumeric value is expected +NC225A.CBL:47: note: 'WRK-XN-00001-1' defined here as PIC X +NC225A.CBL: in paragraph 'EVA-INIT-GF-29': +NC225A.CBL:1496: warning: alphanumeric value is expected +NC225A.CBL:47: note: 'WRK-XN-00001-1' defined here as PIC X +NC225A.CBL: in paragraph 'EVA-DELETE-GF-35': +NC225A.CBL:1894: warning: GO TO SECTION 'CCVS-EXIT' +NC225A.CBL: in section 'CCVS-EXIT': +NC225A.CBL: in paragraph 'CCVS-999999': +NC225A.CBL:1922: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC225A.CBL:223: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC225A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC231A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC231A.CBL NC231A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC231A.CBL], [0], [], [NC231A.CBL: in section 'SECT-NC231A-001': +NC231A.CBL: in paragraph 'CHECK-ENTRIES': +NC231A.CBL:416: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL: in paragraph 'LEVEL-1-TEST-2': +NC231A.CBL:441: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL: in paragraph 'LEVEL-1-TEST-3': +NC231A.CBL:453: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL: in paragraph 'LEVEL-2-TEST-1': +NC231A.CBL:481: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL: in paragraph 'LEVEL-2-TEST-2': +NC231A.CBL:497: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL: in paragraph 'LEVEL-2-TEST-3': +NC231A.CBL:512: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL: in paragraph 'LEVEL-3-TEST-2': +NC231A.CBL:575: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL: in paragraph 'LEVEL-3-TEST-3': +NC231A.CBL:590: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL: in paragraph 'LEVEL-3-TEST-4': +NC231A.CBL:607: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL: in paragraph 'MULT-SEARCH-TEST-1': +NC231A.CBL:631: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL:634: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL: in paragraph 'MULT-SEARCH-TEST-2': +NC231A.CBL:671: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL:674: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL:677: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL: in paragraph 'MULT-SEARCH-7-TEST-3': +NC231A.CBL:742: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL:746: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL:750: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL:754: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL:758: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL:762: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL:766: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL: in paragraph 'SPECIAL-2-LEVEL-SEARCH': +NC231A.CBL:884: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL: in paragraph 'SPECIAL-3-LEVEL-SEARCH': +NC231A.CBL:929: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL:934: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL: in section 'CCVS-EXIT': +NC231A.CBL: in paragraph 'CCVS-999999': +NC231A.CBL:1108: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC231A.CBL:281: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC231A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC232A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC232A.CBL NC232A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC232A.CBL], [0], [], [NC232A.CBL: in section 'SECT-NC232A-001': +NC232A.CBL: in paragraph 'CHECK-ENTRIES': +NC232A.CBL:392: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL: in paragraph 'TH1-TEST-F1-2': +NC232A.CBL:419: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL: in paragraph 'TH1-TEST-F1-3': +NC232A.CBL:440: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL: in paragraph 'TH2-TEST-F1-1': +NC232A.CBL:486: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL: in paragraph 'TH2-TEST-F1-2': +NC232A.CBL:511: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL: in paragraph 'TH2-TEST-F1-3': +NC232A.CBL:535: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL: in paragraph 'TH3-TEST-F1-2': +NC232A.CBL:622: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL: in paragraph 'TH3-TEST-F1-3': +NC232A.CBL:646: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL: in paragraph 'TH3-TEST-F1-4': +NC232A.CBL:673: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL: in paragraph 'SCH-TEST-F1-1': +NC232A.CBL:706: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL:709: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL: in paragraph 'SCH-TEST-F1-2': +NC232A.CBL:754: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL:760: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL:766: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL: in paragraph 'SPC-TEST-F1-2': +NC232A.CBL:840: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL: in paragraph 'SPC-TEST-F1-3': +NC232A.CBL:877: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL:883: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL: in section 'CCVS-EXIT': +NC232A.CBL: in paragraph 'CCVS-999999': +NC232A.CBL:921: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC232A.CBL:247: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC232A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC233A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC233A.CBL NC233A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC233A.CBL], [0], [], [NC233A.CBL: in section 'SECT-NC233A-001': +NC233A.CBL: in paragraph 'CHECK-ENTRIES': +NC233A.CBL:457: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL: in paragraph 'LEVEL-1-TEST-2': +NC233A.CBL:481: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL: in paragraph 'LEVEL-1-TEST-3': +NC233A.CBL:492: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL: in paragraph 'LEVEL-2-TEST-1': +NC233A.CBL:517: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL: in paragraph 'LEVEL-2-TEST-2': +NC233A.CBL:531: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL: in paragraph 'LEVEL-2-TEST-3': +NC233A.CBL:544: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL: in paragraph 'LEVEL-3-TEST-2': +NC233A.CBL:603: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL: in paragraph 'LEVEL-3-TEST-3': +NC233A.CBL:617: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL: in paragraph 'LEVEL-3-TEST-4': +NC233A.CBL:633: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL: in paragraph 'MULT-SEARCH-TEST-1': +NC233A.CBL:656: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL:658: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL: in paragraph 'MULT-SEARCH-7-TEST-3': +NC233A.CBL:730: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL:735: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL:741: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL:747: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL:753: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL:759: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL:765: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL: in section 'CCVS-EXIT': +NC233A.CBL: in paragraph 'CCVS-999999': +NC233A.CBL:879: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC233A.CBL:315: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC233A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC234A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC234A.CBL NC234A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC234A.CBL], [0], [], [NC234A.CBL: in section 'SECT-NC234A-001': +NC234A.CBL: in paragraph 'TH1-TEST-F1-2': +NC234A.CBL:418: warning: NEXT SENTENCE is archaic in COBOL 85 +NC234A.CBL: in paragraph 'TH1-TEST-F1-3': +NC234A.CBL:439: warning: NEXT SENTENCE is archaic in COBOL 85 +NC234A.CBL: in paragraph 'TH2-TEST-F1-1': +NC234A.CBL:483: warning: NEXT SENTENCE is archaic in COBOL 85 +NC234A.CBL: in paragraph 'TH2-TEST-F1-2': +NC234A.CBL:508: warning: NEXT SENTENCE is archaic in COBOL 85 +NC234A.CBL: in paragraph 'TH2-TEST-F1-3': +NC234A.CBL:531: warning: NEXT SENTENCE is archaic in COBOL 85 +NC234A.CBL: in paragraph 'TH3-TEST-F1-2': +NC234A.CBL:615: warning: NEXT SENTENCE is archaic in COBOL 85 +NC234A.CBL: in paragraph 'TH3-TEST-F1-3': +NC234A.CBL:639: warning: NEXT SENTENCE is archaic in COBOL 85 +NC234A.CBL: in paragraph 'TH3-TEST-F1-4': +NC234A.CBL:666: warning: NEXT SENTENCE is archaic in COBOL 85 +NC234A.CBL: in paragraph 'MLT-TEST-F1-1': +NC234A.CBL:699: warning: NEXT SENTENCE is archaic in COBOL 85 +NC234A.CBL:703: warning: NEXT SENTENCE is archaic in COBOL 85 +NC234A.CBL: in paragraph 'MLT-TEST-F1-2': +NC234A.CBL:746: warning: NEXT SENTENCE is archaic in COBOL 85 +NC234A.CBL:749: warning: NEXT SENTENCE is archaic in COBOL 85 +NC234A.CBL:753: warning: NEXT SENTENCE is archaic in COBOL 85 +NC234A.CBL: in paragraph 'SP2-TEST-F1-1': +NC234A.CBL:827: warning: NEXT SENTENCE is archaic in COBOL 85 +NC234A.CBL: in paragraph 'SP3-TEST-F1-1': +NC234A.CBL:866: warning: NEXT SENTENCE is archaic in COBOL 85 +NC234A.CBL:873: warning: NEXT SENTENCE is archaic in COBOL 85 +NC234A.CBL: in section 'CCVS-EXIT': +NC234A.CBL: in paragraph 'CCVS-999999': +NC234A.CBL:920: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC234A.CBL:254: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC234A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC235A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC235A.CBL NC235A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC235A.CBL], [0], [], [NC235A.CBL: in section 'SECT-NC235A-001': +NC235A.CBL: in paragraph 'IDX-TEST-F2-1': +NC235A.CBL:340: warning: NEXT SENTENCE is archaic in COBOL 85 +NC235A.CBL: in paragraph 'IDX-WRITE-F2-13': +NC235A.CBL:615: warning: GO TO SECTION 'CCVS-EXIT' +NC235A.CBL: in section 'CCVS-EXIT': +NC235A.CBL: in paragraph 'CCVS-999999': +NC235A.CBL:624: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC235A.CBL:212: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC235A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC236A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC236A.CBL NC236A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC236A.CBL], [0], [], [NC236A.CBL: in section 'CCVS-EXIT': +NC236A.CBL: in paragraph 'CCVS-999999': +NC236A.CBL:582: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC236A.CBL:213: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC236A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC237A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC237A.CBL NC237A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC237A.CBL], [0], [], [NC237A.CBL: in section 'CCVS-EXIT': +NC237A.CBL: in paragraph 'CCVS-999999': +NC237A.CBL:659: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC237A.CBL:227: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC237A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC238A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC238A.CBL NC238A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC238A.CBL], [0], [], [NC238A.CBL: in section 'SECT-NC238A-001': +NC238A.CBL: in paragraph 'SCH-TEST-F2-6': +NC238A.CBL:536: warning: alphanumeric value is expected +NC238A.CBL:57: note: 'LEVEL-HOLD' defined here as PIC X(4) +NC238A.CBL: in paragraph 'SCH-TEST-F2-7': +NC238A.CBL:562: warning: alphanumeric value is expected +NC238A.CBL:57: note: 'LEVEL-HOLD' defined here as PIC X(4) +NC238A.CBL: in paragraph 'SCH-TEST-F2-10': +NC238A.CBL:639: warning: alphanumeric value is expected +NC238A.CBL:57: note: 'LEVEL-HOLD' defined here as PIC X(4) +NC238A.CBL: in section 'CCVS-EXIT': +NC238A.CBL: in paragraph 'CCVS-999999': +NC238A.CBL:656: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC238A.CBL:258: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC238A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC239A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC239A.CBL NC239A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC239A.CBL], [0], [], [NC239A.CBL: in section 'CCVS-EXIT': +NC239A.CBL: in paragraph 'CCVS-999999': +NC239A.CBL:526: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC239A.CBL:227: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC239A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC240A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC240A.CBL NC240A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC240A.CBL], [0], [], [NC240A.CBL: in section 'CCVS-EXIT': +NC240A.CBL: in paragraph 'CCVS-999999': +NC240A.CBL:691: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC240A.CBL:233: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC240A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC241A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC241A.CBL NC241A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC241A.CBL], [0], [], [NC241A.CBL: in section 'CCVS-EXIT': +NC241A.CBL: in paragraph 'CCVS-999999': +NC241A.CBL:669: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC241A.CBL:233: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC241A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC242A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC242A.CBL NC242A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC242A.CBL], [0], [], [NC242A.CBL: in section 'SECT-NC242A-001': +NC242A.CBL: in paragraph 'TH7-DELETE-1': +NC242A.CBL:521: warning: GO TO paragraph 'CCVS-999999' which is defined in another SECTION +NC242A.CBL:572: note: 'CCVS-999999 IN CCVS-EXIT' defined here +NC242A.CBL: in section 'CCVS-EXIT': +NC242A.CBL: in paragraph 'CCVS-999999': +NC242A.CBL:573: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC242A.CBL:264: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC242A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC243A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC243A.CBL NC243A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC243A.CBL], [0], [], [NC243A.CBL: in section 'SECT-NC243A-001': +NC243A.CBL: in paragraph 'TH7-DELETE-1': +NC243A.CBL:604: warning: GO TO SECTION 'CCVS-EXIT' +NC243A.CBL: in section 'CCVS-EXIT': +NC243A.CBL: in paragraph 'CCVS-999999': +NC243A.CBL:700: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC243A.CBL:261: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC243A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC244A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC244A.CBL NC244A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC244A.CBL], [0], [], [NC244A.CBL: in section 'TABLE-CHECKING': +NC244A.CBL: in paragraph 'IDX-DELETE-F2-5': +NC244A.CBL:472: warning: value size exceeds data size +NC244A.CBL:472: note: value size is 21 +NC244A.CBL:69: note: 'FEATURE' defined here as PIC X(20) +NC244A.CBL:478: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC244A.CBL:216: note: 'CLOSE-FILES IN CCVS1' defined here +NC244A.CBL: in section 'CCVS-EXIT': +NC244A.CBL: in paragraph 'CCVS-999999': +NC244A.CBL:509: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC244A.CBL:216: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC244A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC245A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC245A.CBL NC245A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC245A.CBL], [0], [], [NC245A.CBL: in section 'SECT-NC245A-001': +NC245A.CBL: in paragraph 'BUILD-TABLE': +NC245A.CBL:348: warning: GO TO SECTION 'SECT-TH219-0002' +NC245A.CBL: in section 'SECT-TH219-0002': +NC245A.CBL: in paragraph 'SEP-TEST-012-04': +NC245A.CBL:514: warning: GO TO SECTION 'CCVS-EXIT' +NC245A.CBL: in section 'CCVS-EXIT': +NC245A.CBL: in paragraph 'CCVS-999999': +NC245A.CBL:535: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC245A.CBL:219: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC245A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC246A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC246A.CBL NC246A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC246A.CBL], [0], [], [NC246A.CBL: in section 'SECT-NC246A-001': +NC246A.CBL: in paragraph 'QUAL-DELETE-12': +NC246A.CBL:1226: warning: GO TO SECTION 'CCVS-EXIT' +NC246A.CBL: in paragraph 'QUAL-TEST-12': +NC246A.CBL:1301: warning: GO TO SECTION 'CCVS-EXIT' +NC246A.CBL: in section 'CCVS-EXIT': +NC246A.CBL: in paragraph 'CCVS-999999': +NC246A.CBL:1318: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC246A.CBL:449: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC246A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC247A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC247A.CBL NC247A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC247A.CBL], [0], [], [NC247A.CBL: in section 'CCVS-EXIT': +NC247A.CBL: in paragraph 'CCVS-999999': +NC247A.CBL:862: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC247A.CBL:223: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC247A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC248A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC248A.CBL NC248A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC248A.CBL], [0], [], [NC248A.CBL: in section 'CCVS-EXIT': +NC248A.CBL: in paragraph 'CCVS-999999': +NC248A.CBL:619: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC248A.CBL:221: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC248A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC250A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC250A.CBL NC250A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC250A.CBL], [0], [], [NC250A.CBL:182: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC250A.CBL: in section 'SECT-NC201A-001': +NC250A.CBL: in paragraph 'IF--TEST-19': +NC250A.CBL:787: warning: unsigned 'IF-D16' may not be LESS THAN ZERO +NC250A.CBL: in paragraph 'IF--INIT-80': +NC250A.CBL:1415: warning: alphanumeric value is expected +NC250A.CBL:319: note: 'TABLE-80' defined here as a group of length 3 +NC250A.CBL: in paragraph 'IF-TEST-122': +NC250A.CBL:1912: warning: NEXT SENTENCE is archaic in COBOL 85 +NC250A.CBL: in paragraph 'IF-TEST-124': +NC250A.CBL:1960: warning: value size exceeds data size +NC250A.CBL:1960: note: value size is 21 +NC250A.CBL:359: note: 'COMPUTED-A' defined here as PIC X(20) +NC250A.CBL: in section 'CCVS-EXIT': +NC250A.CBL: in paragraph 'CCVS-999999': +NC250A.CBL:1971: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC250A.CBL:491: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC250A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC251A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC251A.CBL NC251A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC251A.CBL], [0], [], [NC251A.CBL:101: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC251A.CBL:104: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC251A.CBL:106: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC251A.CBL:107: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC251A.CBL:109: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC251A.CBL:111: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC251A.CBL:135: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC251A.CBL: in section 'SECT-NC251A-001': +NC251A.CBL: in paragraph 'DIV-DELETE-F5-20': +NC251A.CBL:1350: warning: GO TO SECTION 'CCVS-EXIT' +NC251A.CBL: in paragraph 'DIV-DELETE-F5-21': +NC251A.CBL:1393: warning: GO TO SECTION 'CCVS-EXIT' +NC251A.CBL: in section 'CCVS-EXIT': +NC251A.CBL: in paragraph 'CCVS-999999': +NC251A.CBL:1415: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC251A.CBL:300: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC251A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC252A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC252A.CBL NC252A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC252A.CBL], [0], [], [NC252A.CBL:229: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC252A.CBL:193: warning: size of 'REDEF11' larger than size of 'REDEF10' +NC252A.CBL:206: warning: size of 'REDEF12' larger than size of 'REDEF10' +NC252A.CBL:217: warning: size of 'GRP-REDEF125' larger than size of 'REDEF10' +NC252A.CBL: in section 'SECT-NC252A-001': +NC252A.CBL: in paragraph 'RDF-TEST-1': +NC252A.CBL:511: warning: alphanumeric value is expected +NC252A.CBL:282: note: 'CORRECT-A' defined here as PIC X(20) +NC252A.CBL: in paragraph 'RDF-TEST-2': +NC252A.CBL:528: warning: alphanumeric value is expected +NC252A.CBL:282: note: 'CORRECT-A' defined here as PIC X(20) +NC252A.CBL: in paragraph 'RDF-TEST-7': +NC252A.CBL:600: warning: alphanumeric value is expected +NC252A.CBL:282: note: 'CORRECT-A' defined here as PIC X(20) +NC252A.CBL: in paragraph 'RDF-TEST-10': +NC252A.CBL:647: warning: alphanumeric value is expected +NC252A.CBL:282: note: 'CORRECT-A' defined here as PIC X(20) +NC252A.CBL: in paragraph 'RENAM-TEST-4': +NC252A.CBL:787: warning: alphanumeric value is expected +NC252A.CBL:282: note: 'CORRECT-A' defined here as PIC X(20) +NC252A.CBL: in paragraph 'RENAM-TEST-13': +NC252A.CBL:930: warning: value size exceeds data size +NC252A.CBL:930: note: value size is 9 +NC252A.CBL:173: note: 'RENAME-10' defined here as a group of length 8 +NC252A.CBL: in paragraph 'RENAM-TEST-14': +NC252A.CBL:947: warning: alphanumeric value is expected +NC252A.CBL:173: note: 'RENAME-10' defined here as a group of length 8 +NC252A.CBL: in paragraph 'RENAM-TEST-18': +NC252A.CBL:1012: warning: value size exceeds data size +NC252A.CBL:1012: note: value size is 16 +NC252A.CBL:158: note: 'RENAME-5' defined here as a group of length 11 +NC252A.CBL: in section 'COMPUTING': +NC252A.CBL: in paragraph 'COMP-TEST-1': +NC252A.CBL:1047: warning: literal '654.20038' has more decimals than 'COMPUTE-1' +NC252A.CBL:1048: warning: literal '654.17422' has more decimals than 'COMPUTE-1' +NC252A.CBL: in paragraph 'COMP-TEST-2': +NC252A.CBL:1062: warning: literal '2233.94468' has more decimals than 'COMPUTE-2' +NC252A.CBL:1063: warning: literal '2233.85532' has more decimals than 'COMPUTE-2' +NC252A.CBL: in paragraph 'COMP-TEST-3': +NC252A.CBL:1077: warning: literal '52.39105' has more decimals than 'COMPUTE-3' +NC252A.CBL:1078: warning: literal '52.38895' has more decimals than 'COMPUTE-3' +NC252A.CBL: in paragraph 'COMP-TEST-5': +NC252A.CBL:1106: warning: literal '400.71801' has more decimals than 'COMPUTE-5' +NC252A.CBL:1107: warning: literal '400.70199' has more decimals than 'COMPUTE-5' +NC252A.CBL: in paragraph 'COMP-TEST-6': +NC252A.CBL:1121: warning: literal '62.40125' has more decimals than 'COMPUTE-6' +NC252A.CBL:1122: warning: literal '62.39875' has more decimals than 'COMPUTE-6' +NC252A.CBL: in paragraph 'COMP-TEST-9': +NC252A.CBL:1164: warning: literal '2621.05242' has more decimals than 'COMPUTE-9' +NC252A.CBL:1165: warning: literal '2620.94758' has more decimals than 'COMPUTE-9' +NC252A.CBL: in paragraph 'COMP-TEST-11': +NC252A.CBL:1192: warning: literal '2.00002' has more decimals than 'COMPUTE-10' +NC252A.CBL:1193: warning: literal '-2.00002' has more decimals than 'COMPUTE-10' +NC252A.CBL:1193: warning: unsigned 'COMPUTE-10' may not be LESS THAN -2.00002 +NC252A.CBL: in paragraph 'COMP-TEST-12': +NC252A.CBL:1207: warning: literal '718.51437' has more decimals than 'COMPUTE-11' +NC252A.CBL:1208: warning: literal '718.48563' has more decimals than 'COMPUTE-11' +NC252A.CBL: in paragraph 'COMP-TEST-13': +NC252A.CBL:1222: warning: literal '6.09012' has more decimals than 'COMPUTE-12' +NC252A.CBL:1223: warning: literal '6.08988' has more decimals than 'COMPUTE-12' +NC252A.CBL: in section 'COMPUTE-ROUTINE': +NC252A.CBL: in paragraph 'COMP-TEST-14': +NC252A.CBL:1248: warning: alphanumeric value is expected +NC252A.CBL:282: note: 'CORRECT-A' defined here as PIC X(20) +NC252A.CBL: in paragraph 'COMP-TEST-16': +NC252A.CBL:1273: warning: literal '-20.00040' has more decimals than 'W-11' +NC252A.CBL:1274: warning: literal '-19.99960' has more decimals than 'W-11' +NC252A.CBL: in paragraph 'COMP-TEST-23': +NC252A.CBL:1379: warning: alphanumeric value is expected +NC252A.CBL:72: note: 'XRAY' defined here as PIC X +NC252A.CBL: in paragraph 'COMP-TEST-25': +NC252A.CBL:1410: warning: literal '2.20004' has more decimals than 'W-11' +NC252A.CBL:1411: warning: literal '2.19996' has more decimals than 'W-11' +NC252A.CBL: in paragraph 'COMP-TEST-26': +NC252A.CBL:1426: warning: literal '2.50005' has more decimals than 'W-11' +NC252A.CBL:1427: warning: literal '2.49995' has more decimals than 'W-11' +NC252A.CBL: in paragraph 'COMP-TEST-43': +NC252A.CBL:1640: warning: literal '10.0002' has more decimals than 'WHOLE-FIELD' +NC252A.CBL:1641: warning: literal '9.9998' has more decimals than 'WHOLE-FIELD' +NC252A.CBL: in paragraph 'COMP-TEST-045-2': +NC252A.CBL:1687: warning: literal '10.9002180' has more decimals than 'WRK-DS-04V01-0005' +NC252A.CBL:1688: warning: literal '10.8997820' has more decimals than 'WRK-DS-04V01-0005' +NC252A.CBL: in paragraph 'COMP-TEST-045-3': +NC252A.CBL:1695: warning: literal '10.87521750' has more decimals than 'WRK-DS-03V04-0003F-0014' +NC252A.CBL:1696: warning: literal '10.87479250' has more decimals than 'WRK-DS-03V04-0003F-0014' +NC252A.CBL: in section 'CCVS-EXIT': +NC252A.CBL: in paragraph 'CCVS-999999': +NC252A.CBL:1710: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC252A.CBL:400: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC252A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC253A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC253A.CBL NC253A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC253A.CBL], [0], [], [NC253A.CBL: in section 'SECT-NC253A-001': +NC253A.CBL: in paragraph 'SUB-FAIL-F3-4': +NC253A.CBL:689: warning: alphanumeric value is expected +NC253A.CBL:304: note: 'CORRECT-A' defined here as PIC X(20) +NC253A.CBL: in paragraph 'SUB-INIT-F3-5': +NC253A.CBL:697: warning: alphanumeric value is expected +NC253A.CBL:182: note: 'CORR-DATA-1' defined here as a group of length 12 +NC253A.CBL:698: warning: alphanumeric value is expected +NC253A.CBL:218: note: 'CORR-DATA-6' defined here as a group of length 12 +NC253A.CBL: in paragraph 'SUB-FAIL-F3-5': +NC253A.CBL:709: warning: alphanumeric value is expected +NC253A.CBL:304: note: 'CORRECT-A' defined here as PIC X(20) +NC253A.CBL: in paragraph 'SUB-FAIL-F3-6': +NC253A.CBL:728: warning: alphanumeric value is expected +NC253A.CBL:304: note: 'CORRECT-A' defined here as PIC X(20) +NC253A.CBL: in paragraph 'SUB-INIT-F3-7': +NC253A.CBL:736: warning: alphanumeric value is expected +NC253A.CBL:210: note: 'CORR-DATA-5' defined here as a group of length 14 +NC253A.CBL:737: warning: alphanumeric value is expected +NC253A.CBL:182: note: 'CORR-DATA-1' defined here as a group of length 12 +NC253A.CBL: in section 'CCVS-EXIT': +NC253A.CBL: in paragraph 'CCVS-999999': +NC253A.CBL:1976: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC253A.CBL:422: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC253A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([NC254A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC254A.CBL NC254A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC254A.CBL], [0], [], [NC254A.CBL: in section 'SECT-NC254A-001': +NC254A.CBL: in paragraph 'NEXT-TEST-GF-1': +NC254A.CBL:530: warning: NEXT SENTENCE is archaic in COBOL 85 +NC254A.CBL:532: warning: NEXT SENTENCE is archaic in COBOL 85 +NC254A.CBL: in section 'CCVS-EXIT': +NC254A.CBL: in paragraph 'CCVS-999999': +NC254A.CBL:661: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +NC254A.CBL:411: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./NC254A], [0], [], []) + +AT_CLEANUP + +# more testing in report.pl +AT_SETUP([NC302M]) +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC302M.CBL NC302M.CBL],[0], [], []) +AT_DATA([NC302M.DAT], [ +]) +AT_CHECK([$COMPILE -std=cobol85 -x -Wobsolete NC302M.CBL], [0], [], +[NC302M.CBL:6: warning: AUTHOR is obsolete in COBOL 85 +NC302M.CBL:8: warning: INSTALLATION is obsolete in COBOL 85 +NC302M.CBL:10: warning: DATE-WRITTEN is obsolete in COBOL 85 +NC302M.CBL:12: warning: SECURITY is obsolete in COBOL 85 +NC302M.CBL:22: warning: MEMORY SIZE is obsolete in COBOL 85 +NC302M.CBL: in paragraph 'NC302M-ALTER': +NC302M.CBL:34: warning: ALTER is obsolete in COBOL 85 +NC302M.CBL: in paragraph 'NC302M-STOP': +NC302M.CBL:47: warning: STOP literal is obsolete in COBOL 85 +]) +AT_CHECK([echo | ./NC302M < NC302M.DAT], [0], +[DUMMY PROCEDURE +FNC302 +], []) +AT_CLEANUP + +AT_SETUP([NC303M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC303M.CBL NC303M.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC303M.CBL], [0], [], [NC303M.CBL:6: warning: DATE-COMPILED is obsolete in COBOL 85 +NC303M.CBL: in paragraph 'NC303M-CONTROL': +NC303M.CBL:19: warning: ALTER is obsolete in COBOL 85 +NC303M.CBL: in paragraph 'NC303M-GOTO': +NC303M.CBL:25: warning: GO TO without procedure-name is obsolete in COBOL 85 +NC303M.CBL: in paragraph 'NC303M-GOTO-2': +NC303M.CBL:29: warning: GO TO without procedure-name is obsolete in COBOL 85 +]) +AT_CHECK([./NC303M], [0], [], []) + +AT_CLEANUP + +# execution fails, OK +AT_SETUP([NC401M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC401M.CBL NC401M.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC401M.CBL], [0], [], [NC401M.CBL:8: warning: DATE-COMPILED is obsolete in COBOL 85 +NC401M.CBL: in paragraph 'NC401M-CONTROL': +NC401M.CBL:169: warning: ALTER is obsolete in COBOL 85 +NC401M.CBL: in paragraph 'NC401M-SIGCOND': +NC401M.CBL:209: warning: unsigned 'BOX-A' may not be LESS THAN ZERO +NC401M.CBL: in paragraph 'NC401M-GOTO': +NC401M.CBL:263: warning: GO TO without procedure-name is obsolete in COBOL 85 +NC401M.CBL: in paragraph 'NC401M-GOTO-2': +NC401M.CBL:267: warning: GO TO without procedure-name is obsolete in COBOL 85 +NC401M.CBL: in paragraph 'NC401M-SEARCH': +NC401M.CBL:309: warning: NEXT SENTENCE is archaic in COBOL 85 +]) +AT_CHECK([./NC401M], [1], [], [libcob: NC401M.CBL:167: error: file does not exist (status = 35) for file TFIL ('XXXXX001') on OPEN +]) + +AT_CLEANUP + + + + + diff --git a/tests/cobol85/nistrun.src/run_OB.at b/tests/cobol85/nistrun.src/run_OB.at new file mode 100644 index 000000000..a39a67546 --- /dev/null +++ b/tests/cobol85/nistrun.src/run_OB.at @@ -0,0 +1,327 @@ + +AT_SETUP([OBIC2A]) +# promoted on 2023-02-03T11:48 +AT_KEYWORDS([OB]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/lib/OBIC2A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 OBIC2A.CBL], [0], [], [OBIC2A.CBL:45: warning: DATA RECORDS is obsolete in COBOL 85 +OBIC2A.CBL: in section 'SECT-IC219-0001': +OBIC2A.CBL:130: warning: section segments is obsolete in COBOL 85 +OBIC2A.CBL: in section 'SECT-IC219-0002': +OBIC2A.CBL:144: warning: section segments is obsolete in COBOL 85 +OBIC2A.CBL: in section 'SECT-IC219-0003': +OBIC2A.CBL:199: warning: section segments is obsolete in COBOL 85 +]) + +AT_CLEANUP + + + + +AT_SETUP([OBIC3A]) +# promoted on 2023-02-03T11:44 +AT_KEYWORDS([OB]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/lib/OBIC3A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 OBIC3A.CBL], [0], [], []) + +AT_CLEANUP + + + + +AT_SETUP([OBIC1A]) +# promoted on 2023-02-03T16:40 +AT_KEYWORDS([OB]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/lib/OBIC2A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 OBIC2A.CBL], [0], [], [OBIC2A.CBL:45: warning: DATA RECORDS is obsolete in COBOL 85 +OBIC2A.CBL: in section 'SECT-IC219-0001': +OBIC2A.CBL:130: warning: section segments is obsolete in COBOL 85 +OBIC2A.CBL: in section 'SECT-IC219-0002': +OBIC2A.CBL:144: warning: section segments is obsolete in COBOL 85 +OBIC2A.CBL: in section 'SECT-IC219-0003': +OBIC2A.CBL:199: warning: section segments is obsolete in COBOL 85 +]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/lib/OBIC3A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE -std=cobol85 OBIC3A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBIC1A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 OBIC1A.CBL], [0], [], []) +AT_CHECK([./OBIC1A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([OBNC1M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([OB OBNC1M]) +AT_CHECK([printf '\n\n\n\n\n\n\n\n\003' > OBNC1M.DAT], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBNC1M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 OBNC1M.CBL], [0], [], [OBNC1M.CBL:5: warning: AUTHOR is obsolete in COBOL 85 +OBNC1M.CBL:7: warning: INSTALLATION is obsolete in COBOL 85 +OBNC1M.CBL:15: warning: DATE-WRITTEN is obsolete in COBOL 85 +OBNC1M.CBL:19: warning: SECURITY is obsolete in COBOL 85 +OBNC1M.CBL:95: warning: MEMORY SIZE is obsolete in COBOL 85 +OBNC1M.CBL: in section 'SECT-NC107A-001': +OBNC1M.CBL: in paragraph 'NUM-TEST-1': +OBNC1M.CBL:535: warning: ALTER is obsolete in COBOL 85 +OBNC1M.CBL: in paragraph 'ALTER-TEST-1': +OBNC1M.CBL:553: warning: ALTER is obsolete in COBOL 85 +OBNC1M.CBL: in paragraph 'ALTER-TEST-2': +OBNC1M.CBL:569: warning: ALTER is obsolete in COBOL 85 +OBNC1M.CBL: in paragraph 'ALTER-TEST-3': +OBNC1M.CBL:586: warning: ALTER is obsolete in COBOL 85 +OBNC1M.CBL: in paragraph 'ALTER-I': +OBNC1M.CBL:602: warning: ALTER is obsolete in COBOL 85 +OBNC1M.CBL: in paragraph 'GO--TEST-1': +OBNC1M.CBL:611: warning: ALTER is obsolete in COBOL 85 +OBNC1M.CBL: in paragraph 'GO--A': +OBNC1M.CBL:619: warning: GO TO without procedure-name is obsolete in COBOL 85 +OBNC1M.CBL: in section 'SECT-NC180M-001': +OBNC1M.CBL: in paragraph 'STOP-TEST-GF-1': +OBNC1M.CBL:644: warning: STOP literal is obsolete in COBOL 85 +OBNC1M.CBL: in paragraph 'STOP-TEST-GF-2': +OBNC1M.CBL:664: warning: STOP literal is obsolete in COBOL 85 +OBNC1M.CBL: in paragraph 'STOP-TEST-GF-3': +OBNC1M.CBL:677: warning: STOP literal is obsolete in COBOL 85 +OBNC1M.CBL: in paragraph 'STOP-TEST-GF-4': +OBNC1M.CBL:689: warning: STOP literal is obsolete in COBOL 85 +OBNC1M.CBL: in paragraph 'STOP-TEST-GF-5': +OBNC1M.CBL:702: warning: STOP literal is obsolete in COBOL 85 +OBNC1M.CBL: in paragraph 'STOP-WRITE-GF-5': +OBNC1M.CBL:713: warning: value size exceeds data size +OBNC1M.CBL:716: note: value size is 160 +OBNC1M.CBL:103: note: 'PRINT-REC' defined here as PIC X(132) +OBNC1M.CBL: in paragraph 'STOP-TEST-GF-6': +OBNC1M.CBL:720: warning: STOP literal is obsolete in COBOL 85 +OBNC1M.CBL: in paragraph 'STOP-TEST-GF-7': +OBNC1M.CBL:732: warning: STOP literal is obsolete in COBOL 85 +OBNC1M.CBL: in paragraph 'STOP-TEST-GF-8': +OBNC1M.CBL:744: warning: STOP literal is obsolete in COBOL 85 +OBNC1M.CBL: in paragraph 'STOP-TEST-GF-9': +OBNC1M.CBL:764: warning: STOP literal is obsolete in COBOL 85 +OBNC1M.CBL: in section 'CCVS-EXIT': +OBNC1M.CBL: in paragraph 'CCVS-999999': +OBNC1M.CBL:780: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +OBNC1M.CBL:396: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./OBNC1M < OBNC1M.DAT], [130], [OPERATOR PLEASE EXECUTE RUN CONTINUATION +A +* +" + * 5 * 10 * 15 * 20 * 25 * 30 * 35 * 40 * 45 * 50 * 55 * 60 * 65 * 70 * 75 * 80 * 85 * 90 * 95 *100 *105 *110 *115 *120 *125 *130 *135 *140 *145 *150 *155 *160 +7 +123456789987654321 +0 +OPERATOR KILL OBNC1 +], [ +OBNC1M.CBL:764: interrupt from keyboard (signal) + +]) + +AT_CLEANUP + +AT_SETUP([OBNC2M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([OB]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBNC2M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 OBNC2M.CBL], [0], [], [OBNC2M.CBL:25: warning: DATE-COMPILED is obsolete in COBOL 85 +OBNC2M.CBL:175: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +OBNC2M.CBL: in section 'SECT-OBNC2M-001': +OBNC2M.CBL: in paragraph 'GO--TEST-1': +OBNC2M.CBL:592: warning: ALTER is obsolete in COBOL 85 +OBNC2M.CBL: in paragraph 'GO--A': +OBNC2M.CBL:600: warning: GO TO without procedure-name is obsolete in COBOL 85 +OBNC2M.CBL: in paragraph 'ALTER-TEST-1': +OBNC2M.CBL:612: warning: ALTER is obsolete in COBOL 85 +OBNC2M.CBL: in paragraph 'ALTER-TESTTT-2': +OBNC2M.CBL:679: warning: ALTER is obsolete in COBOL 85 +OBNC2M.CBL: in paragraph 'ALTER-TEST-3': +OBNC2M.CBL:703: warning: ALTER is obsolete in COBOL 85 +OBNC2M.CBL: in section 'QUAL-SECTION-1': +OBNC2M.CBL: in paragraph 'PARA-TEST-5': +OBNC2M.CBL:875: warning: ALTER is obsolete in COBOL 85 +OBNC2M.CBL: in paragraph 'PARA-TEST-6': +OBNC2M.CBL:893: warning: ALTER is obsolete in COBOL 85 +OBNC2M.CBL: in paragraph 'PARA-6A': +OBNC2M.CBL:896: warning: GO TO paragraph 'PARA-6B' which is defined in another SECTION +OBNC2M.CBL:916: note: 'PARA-6B IN QUAL-SECTION-2' defined here +OBNC2M.CBL: in paragraph 'PARA-6-LAST': +OBNC2M.CBL:908: warning: GO TO SECTION 'CCVS-EXIT' +OBNC2M.CBL: in section 'QUAL-SECTION-2': +OBNC2M.CBL: in paragraph 'PARA-5C': +OBNC2M.CBL:915: warning: GO TO paragraph 'PARA-5D' which is defined in another SECTION +OBNC2M.CBL:884: note: 'PARA-5D IN QUAL-SECTION-1' defined here +OBNC2M.CBL: in paragraph 'PARA-6C': +OBNC2M.CBL:920: warning: GO TO paragraph 'PARA-6-EXIT' which is defined in another SECTION +OBNC2M.CBL:905: note: 'PARA-6-EXIT IN QUAL-SECTION-1' defined here +OBNC2M.CBL: in paragraph 'PARA-6D': +OBNC2M.CBL:922: warning: GO TO paragraph 'PARA-6D' which is defined in another SECTION +OBNC2M.CBL:903: note: 'PARA-6D IN QUAL-SECTION-1' defined here +OBNC2M.CBL: in section 'CCVS-EXIT': +OBNC2M.CBL: in paragraph 'CCVS-999999': +OBNC2M.CBL:927: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +OBNC2M.CBL:484: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./OBNC2M], [0], [], []) + +AT_CLEANUP + +AT_SETUP([OBSQ1A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([OB]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBSQ1A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 OBSQ1A.CBL], [0], [], [OBSQ1A.CBL:65: warning: DATA RECORDS is obsolete in COBOL 85 +OBSQ1A.CBL:65: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ1A.CBL: in section 'CCVS-EXIT': +OBSQ1A.CBL: in paragraph 'CCVS-999999': +OBSQ1A.CBL:567: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +OBSQ1A.CBL:261: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./OBSQ1A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([OBSQ3A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([OB]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBSQ3A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 OBSQ3A.CBL], [0], [], [OBSQ3A.CBL:62: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +OBSQ3A.CBL:65: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +OBSQ3A.CBL:72: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:76: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:80: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:85: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:90: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:94: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:98: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:102: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL: in section 'SECT-OBSQ3A-0001': +OBSQ3A.CBL: in paragraph 'SEQ-INIT-002': +OBSQ3A.CBL:427: warning: OPEN WITH NO REWIND is not implemented +OBSQ3A.CBL: in paragraph 'SEQ-INIT-003': +OBSQ3A.CBL:451: warning: OPEN WITH NO REWIND is not implemented +OBSQ3A.CBL: in paragraph 'SEQ-INIT-004': +OBSQ3A.CBL:475: warning: OPEN WITH NO REWIND is not implemented +OBSQ3A.CBL: in paragraph 'BUILD-RECORD': +OBSQ3A.CBL:594: warning: value size exceeds data size +OBSQ3A.CBL:594: note: value size is 6 +OBSQ3A.CBL:138: note: 'XPROGRAM-NAME' defined here as PIC X(5) +OBSQ3A.CBL: in paragraph 'TERMINATE-OBSQ3A': +OBSQ3A.CBL:591: warning: GO TO SECTION 'CCVS-EXIT' +OBSQ3A.CBL: in section 'CCVS-EXIT': +OBSQ3A.CBL: in paragraph 'CCVS-999999': +OBSQ3A.CBL:602: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +OBSQ3A.CBL:296: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./OBSQ3A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([OBSQ4A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([OB]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBSQ3A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 OBSQ3A.CBL], [0], [], [OBSQ3A.CBL:62: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +OBSQ3A.CBL:65: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +OBSQ3A.CBL:72: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:76: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:80: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:85: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:90: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:94: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:98: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:102: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL: in section 'SECT-OBSQ3A-0001': +OBSQ3A.CBL: in paragraph 'SEQ-INIT-002': +OBSQ3A.CBL:427: warning: OPEN WITH NO REWIND is not implemented +OBSQ3A.CBL: in paragraph 'SEQ-INIT-003': +OBSQ3A.CBL:451: warning: OPEN WITH NO REWIND is not implemented +OBSQ3A.CBL: in paragraph 'SEQ-INIT-004': +OBSQ3A.CBL:475: warning: OPEN WITH NO REWIND is not implemented +OBSQ3A.CBL: in paragraph 'BUILD-RECORD': +OBSQ3A.CBL:594: warning: value size exceeds data size +OBSQ3A.CBL:594: note: value size is 6 +OBSQ3A.CBL:138: note: 'XPROGRAM-NAME' defined here as PIC X(5) +OBSQ3A.CBL: in paragraph 'TERMINATE-OBSQ3A': +OBSQ3A.CBL:591: warning: GO TO SECTION 'CCVS-EXIT' +OBSQ3A.CBL: in section 'CCVS-EXIT': +OBSQ3A.CBL: in paragraph 'CCVS-999999': +OBSQ3A.CBL:602: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +OBSQ3A.CBL:296: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./OBSQ3A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBSQ4A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 OBSQ4A.SUB], [0], [], [OBSQ4A.SUB:42: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +OBSQ4A.SUB:49: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ4A.SUB:53: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ4A.SUB:57: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ4A.SUB:62: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ4A.SUB: in section 'SECT-OBSQ4A-0001': +OBSQ4A.SUB: in paragraph 'OBSQ4A-END-ROUTINE': +OBSQ4A.SUB:526: warning: GO TO SECTION 'CCVS-EXIT' +OBSQ4A.SUB: in section 'CCVS-EXIT': +OBSQ4A.SUB: in paragraph 'CCVS-999999': +OBSQ4A.SUB:529: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +OBSQ4A.SUB:257: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./OBSQ4A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([OBSQ5A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([OB]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBSQ3A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 OBSQ3A.CBL], [0], [], [OBSQ3A.CBL:62: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +OBSQ3A.CBL:65: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +OBSQ3A.CBL:72: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:76: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:80: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:85: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:90: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:94: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:98: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:102: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL: in section 'SECT-OBSQ3A-0001': +OBSQ3A.CBL: in paragraph 'SEQ-INIT-002': +OBSQ3A.CBL:427: warning: OPEN WITH NO REWIND is not implemented +OBSQ3A.CBL: in paragraph 'SEQ-INIT-003': +OBSQ3A.CBL:451: warning: OPEN WITH NO REWIND is not implemented +OBSQ3A.CBL: in paragraph 'SEQ-INIT-004': +OBSQ3A.CBL:475: warning: OPEN WITH NO REWIND is not implemented +OBSQ3A.CBL: in paragraph 'BUILD-RECORD': +OBSQ3A.CBL:594: warning: value size exceeds data size +OBSQ3A.CBL:594: note: value size is 6 +OBSQ3A.CBL:138: note: 'XPROGRAM-NAME' defined here as PIC X(5) +OBSQ3A.CBL: in paragraph 'TERMINATE-OBSQ3A': +OBSQ3A.CBL:591: warning: GO TO SECTION 'CCVS-EXIT' +OBSQ3A.CBL: in section 'CCVS-EXIT': +OBSQ3A.CBL: in paragraph 'CCVS-999999': +OBSQ3A.CBL:602: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +OBSQ3A.CBL:296: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./OBSQ3A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBSQ5A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 OBSQ5A.SUB], [0], [], [OBSQ5A.SUB:44: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +OBSQ5A.SUB:47: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +OBSQ5A.SUB:54: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ5A.SUB:59: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ5A.SUB:63: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ5A.SUB:67: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ5A.SUB:71: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ5A.SUB: in section 'SECT-OBSQ5A-0001': +OBSQ5A.SUB: in paragraph 'SEQ-INIT-003': +OBSQ5A.SUB:452: warning: OPEN WITH NO REWIND is not implemented +OBSQ5A.SUB: in paragraph 'SEQ-INIT-004': +OBSQ5A.SUB:494: warning: OPEN WITH NO REWIND is not implemented +OBSQ5A.SUB: in paragraph 'SEQ-INIT-005': +OBSQ5A.SUB:536: warning: OPEN WITH NO REWIND is not implemented +OBSQ5A.SUB: in paragraph 'OBSQ5A-END-ROUTINE': +OBSQ5A.SUB:578: warning: GO TO SECTION 'CCVS-EXIT' +OBSQ5A.SUB: in section 'CCVS-EXIT': +OBSQ5A.SUB: in paragraph 'CCVS-999999': +OBSQ5A.SUB:581: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +OBSQ5A.SUB:267: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./OBSQ5A], [0], [], []) + +AT_CLEANUP diff --git a/tests/cobol85/nistrun.src/run_RL.at b/tests/cobol85/nistrun.src/run_RL.at new file mode 100644 index 000000000..c31eedd9a --- /dev/null +++ b/tests/cobol85/nistrun.src/run_RL.at @@ -0,0 +1,791 @@ + +# This first test generates file XXXXX021 used by some other tests +AT_SETUP([RL101A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL101A.CBL], [0], [], [RL101A.CBL:68: warning: LABEL RECORDS is obsolete in COBOL 85 +RL101A.CBL: in section 'CCVS-EXIT': +RL101A.CBL: in paragraph 'CCVS-999999': +RL101A.CBL:450: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL101A.CBL:283: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL101A], [0], [], []) + +AT_CLEANUP + +# modifies XXXXX021 +AT_SETUP([RL102A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL101A.CBL], [0], [], [RL101A.CBL:68: warning: LABEL RECORDS is obsolete in COBOL 85 +RL101A.CBL: in section 'CCVS-EXIT': +RL101A.CBL: in paragraph 'CCVS-999999': +RL101A.CBL:450: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL101A.CBL:283: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL101A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL102A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL102A.SUB], [0], [], [RL102A.SUB:57: warning: LABEL RECORDS is obsolete in COBOL 85 +RL102A.SUB: in section 'SECT-RL102-001': +RL102A.SUB: in paragraph 'REL-TEST-003-R': +RL102A.SUB:400: warning: value size exceeds data size +RL102A.SUB:400: note: value size is 21 +RL102A.SUB:141: note: 'COMPUTED-A' defined here as PIC X(20) +RL102A.SUB: in paragraph 'REL-TEST-004-R': +RL102A.SUB:477: warning: value size exceeds data size +RL102A.SUB:477: note: value size is 21 +RL102A.SUB:141: note: 'COMPUTED-A' defined here as PIC X(20) +RL102A.SUB: in paragraph 'REL-TEST-004-3': +RL102A.SUB:520: warning: value size exceeds data size +RL102A.SUB:520: note: value size is 22 +RL102A.SUB:141: note: 'COMPUTED-A' defined here as PIC X(20) +RL102A.SUB: in section 'CCVS-EXIT': +RL102A.SUB: in paragraph 'CCVS-999999': +RL102A.SUB:610: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL102A.SUB:280: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL102A], [0], [], []) + +AT_CLEANUP + + +# modifies XXXXX021 +AT_SETUP([RL103A]) +# promoted on 2023-02-04T15:45 +AT_KEYWORDS([RL RL103A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL101A.CBL], [0], [], [RL101A.CBL:68: warning: LABEL RECORDS is obsolete in COBOL 85 +RL101A.CBL: in section 'CCVS-EXIT': +RL101A.CBL: in paragraph 'CCVS-999999': +RL101A.CBL:450: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL101A.CBL:283: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL101A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL102A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL102A.SUB], [0], [], [RL102A.SUB:57: warning: LABEL RECORDS is obsolete in COBOL 85 +RL102A.SUB: in section 'SECT-RL102-001': +RL102A.SUB: in paragraph 'REL-TEST-003-R': +RL102A.SUB:400: warning: value size exceeds data size +RL102A.SUB:400: note: value size is 21 +RL102A.SUB:141: note: 'COMPUTED-A' defined here as PIC X(20) +RL102A.SUB: in paragraph 'REL-TEST-004-R': +RL102A.SUB:477: warning: value size exceeds data size +RL102A.SUB:477: note: value size is 21 +RL102A.SUB:141: note: 'COMPUTED-A' defined here as PIC X(20) +RL102A.SUB: in paragraph 'REL-TEST-004-3': +RL102A.SUB:520: warning: value size exceeds data size +RL102A.SUB:520: note: value size is 22 +RL102A.SUB:141: note: 'COMPUTED-A' defined here as PIC X(20) +RL102A.SUB: in section 'CCVS-EXIT': +RL102A.SUB: in paragraph 'CCVS-999999': +RL102A.SUB:610: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL102A.SUB:280: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL102A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL103A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL103A.SUB], [0], [], [RL103A.SUB:58: warning: LABEL RECORDS is obsolete in COBOL 85 +RL103A.SUB: in section 'CCVS-EXIT': +RL103A.SUB: in paragraph 'CCVS-999999': +RL103A.SUB:609: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL103A.SUB:279: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL103A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([RL104A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL104A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL104A.CBL], [0], [], [RL104A.CBL:66: warning: LABEL RECORDS is obsolete in COBOL 85 +RL104A.CBL:68: warning: DATA RECORDS is obsolete in COBOL 85 +RL104A.CBL: in section 'CCVS-EXIT': +RL104A.CBL: in paragraph 'CCVS-999999': +RL104A.CBL:632: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL104A.CBL:322: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL104A], [0], [], []) + +AT_CLEANUP + + +# modifies XXXXX021 +AT_SETUP([RL105A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL105A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL105A.CBL], [0], [], [RL105A.CBL:70: warning: LABEL RECORDS is obsolete in COBOL 85 +RL105A.CBL:71: warning: DATA RECORDS is obsolete in COBOL 85 +RL105A.CBL:76: warning: LABEL RECORDS is obsolete in COBOL 85 +RL105A.CBL:77: warning: DATA RECORDS is obsolete in COBOL 85 +RL105A.CBL:81: warning: LABEL RECORDS is obsolete in COBOL 85 +RL105A.CBL:82: warning: DATA RECORDS is obsolete in COBOL 85 +RL105A.CBL: in section 'CCVS-EXIT': +RL105A.CBL: in paragraph 'CCVS-999999': +RL105A.CBL:616: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL105A.CBL:310: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL105A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([RL106A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL106A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL106A.CBL], [0], [], [RL106A.CBL:72: warning: LABEL RECORDS is obsolete in COBOL 85 +RL106A.CBL:73: warning: DATA RECORDS is obsolete in COBOL 85 +RL106A.CBL:84: warning: LABEL RECORDS is obsolete in COBOL 85 +RL106A.CBL:85: warning: DATA RECORDS is obsolete in COBOL 85 +RL106A.CBL:97: warning: LABEL RECORDS is obsolete in COBOL 85 +RL106A.CBL:98: warning: DATA RECORDS is obsolete in COBOL 85 +RL106A.CBL: in section 'SECT-RC106-001': +RL106A.CBL: in paragraph 'REL-DELETE-15': +RL106A.CBL:697: warning: GO TO SECTION 'CCVS-EXIT' +RL106A.CBL: in section 'CCVS-EXIT': +RL106A.CBL: in paragraph 'CCVS-999999': +RL106A.CBL:798: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL106A.CBL:335: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL106A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([RL107A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL107A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL107A.CBL], [0], [], [RL107A.CBL:73: warning: LABEL RECORDS is obsolete in COBOL 85 +RL107A.CBL:74: warning: DATA RECORDS is obsolete in COBOL 85 +RL107A.CBL:82: warning: LABEL RECORDS is obsolete in COBOL 85 +RL107A.CBL:83: warning: DATA RECORDS is obsolete in COBOL 85 +RL107A.CBL: in section 'CCVS-EXIT': +RL107A.CBL: in paragraph 'CCVS-999999': +RL107A.CBL:779: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL107A.CBL:308: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL107A], [0], [], []) + +AT_CLEANUP + +# This first test generates file XXXXX061 used by some other tests +AT_SETUP([RL108A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL108A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL108A.CBL], [0], [], [RL108A.CBL:64: warning: LABEL RECORDS is obsolete in COBOL 85 +RL108A.CBL: in section 'SECT-RL108A-001': +RL108A.CBL: in paragraph 'REL-DELETE-002': +RL108A.CBL:439: warning: GO TO SECTION 'CCVS-EXIT' +RL108A.CBL: in section 'CCVS-EXIT': +RL108A.CBL: in paragraph 'CCVS-999999': +RL108A.CBL:455: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL108A.CBL:278: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL108A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([RL109A]) +# promoted on 2023-02-04T15:45 +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL101A.CBL], [0], [], [RL101A.CBL:68: warning: LABEL RECORDS is obsolete in COBOL 85 +RL101A.CBL: in section 'CCVS-EXIT': +RL101A.CBL: in paragraph 'CCVS-999999': +RL101A.CBL:450: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL101A.CBL:283: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL101A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL108A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL108A.CBL], [0], [], [RL108A.CBL:64: warning: LABEL RECORDS is obsolete in COBOL 85 +RL108A.CBL: in section 'SECT-RL108A-001': +RL108A.CBL: in paragraph 'REL-DELETE-002': +RL108A.CBL:439: warning: GO TO SECTION 'CCVS-EXIT' +RL108A.CBL: in section 'CCVS-EXIT': +RL108A.CBL: in paragraph 'CCVS-999999': +RL108A.CBL:455: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL108A.CBL:278: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL108A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL109A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL109A.SUB], [0], [], [RL109A.SUB:73: warning: LABEL RECORDS is obsolete in COBOL 85 +RL109A.SUB: in section 'SECT-RL109A-001': +RL109A.SUB: in paragraph 'REL-TEST-003-R': +RL109A.SUB:415: warning: value size exceeds data size +RL109A.SUB:415: note: value size is 21 +RL109A.SUB:157: note: 'COMPUTED-A' defined here as PIC X(20) +RL109A.SUB: in paragraph 'REL-TEST-004-R': +RL109A.SUB:497: warning: value size exceeds data size +RL109A.SUB:497: note: value size is 21 +RL109A.SUB:157: note: 'COMPUTED-A' defined here as PIC X(20) +RL109A.SUB: in paragraph 'REL-TEST-004-3': +RL109A.SUB:544: warning: value size exceeds data size +RL109A.SUB:544: note: value size is 22 +RL109A.SUB:157: note: 'COMPUTED-A' defined here as PIC X(20) +RL109A.SUB: in section 'CCVS-EXIT': +RL109A.SUB: in paragraph 'CCVS-999999': +RL109A.SUB:638: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL109A.SUB:296: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL109A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([RL110A]) +# promoted on 2023-02-04T15:45 +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL101A.CBL], [0], [], [RL101A.CBL:68: warning: LABEL RECORDS is obsolete in COBOL 85 +RL101A.CBL: in section 'CCVS-EXIT': +RL101A.CBL: in paragraph 'CCVS-999999': +RL101A.CBL:450: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL101A.CBL:283: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL101A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL108A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL108A.CBL], [0], [], [RL108A.CBL:64: warning: LABEL RECORDS is obsolete in COBOL 85 +RL108A.CBL: in section 'SECT-RL108A-001': +RL108A.CBL: in paragraph 'REL-DELETE-002': +RL108A.CBL:439: warning: GO TO SECTION 'CCVS-EXIT' +RL108A.CBL: in section 'CCVS-EXIT': +RL108A.CBL: in paragraph 'CCVS-999999': +RL108A.CBL:455: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL108A.CBL:278: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL108A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL110A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL110A.SUB], [0], [], [RL110A.SUB:58: warning: LABEL RECORDS is obsolete in COBOL 85 +RL110A.SUB: in section 'CCVS-EXIT': +RL110A.SUB: in paragraph 'CCVS-999999': +RL110A.SUB:615: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL110A.SUB:279: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL110A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([RL111A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL111A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL111A.CBL], [0], [], [RL111A.CBL:68: warning: LABEL RECORDS is obsolete in COBOL 85 +RL111A.CBL:70: warning: DATA RECORDS is obsolete in COBOL 85 +RL111A.CBL:77: warning: LABEL RECORDS is obsolete in COBOL 85 +RL111A.CBL:79: warning: DATA RECORDS is obsolete in COBOL 85 +RL111A.CBL: in section 'CCVS-EXIT': +RL111A.CBL: in paragraph 'CCVS-999999': +RL111A.CBL:1080: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL111A.CBL:462: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL111A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([RL112A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL112A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL112A.CBL], [0], [], [RL112A.CBL:66: warning: LABEL RECORDS is obsolete in COBOL 85 +RL112A.CBL:68: warning: DATA RECORDS is obsolete in COBOL 85 +RL112A.CBL: in section 'CCVS-EXIT': +RL112A.CBL: in paragraph 'CCVS-999999': +RL112A.CBL:635: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL112A.CBL:322: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL112A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([RL113A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL113A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL113A.CBL], [0], [], [RL113A.CBL:66: warning: LABEL RECORDS is obsolete in COBOL 85 +RL113A.CBL:68: warning: DATA RECORDS is obsolete in COBOL 85 +RL113A.CBL: in section 'CCVS-EXIT': +RL113A.CBL: in paragraph 'CCVS-999999': +RL113A.CBL:805: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL113A.CBL:490: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL113A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([RL114A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL114A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL114A.CBL], [0], [], [RL114A.CBL:66: warning: LABEL RECORDS is obsolete in COBOL 85 +RL114A.CBL:68: warning: DATA RECORDS is obsolete in COBOL 85 +RL114A.CBL: in section 'CCVS-EXIT': +RL114A.CBL: in paragraph 'CCVS-999999': +RL114A.CBL:817: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL114A.CBL:503: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL114A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([RL115A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL115A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL115A.CBL], [0], [], [RL115A.CBL:66: warning: LABEL RECORDS is obsolete in COBOL 85 +RL115A.CBL:68: warning: DATA RECORDS is obsolete in COBOL 85 +RL115A.CBL: in section 'CCVS-EXIT': +RL115A.CBL: in paragraph 'CCVS-999999': +RL115A.CBL:712: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL115A.CBL:397: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL115A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([RL116A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL116A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL116A.CBL], [0], [], [RL116A.CBL:73: warning: LABEL RECORDS is obsolete in COBOL 85 +RL116A.CBL:75: warning: DATA RECORDS is obsolete in COBOL 85 +RL116A.CBL:82: warning: LABEL RECORDS is obsolete in COBOL 85 +RL116A.CBL:84: warning: DATA RECORDS is obsolete in COBOL 85 +RL116A.CBL: in section 'CCVS-EXIT': +RL116A.CBL: in paragraph 'CCVS-999999': +RL116A.CBL:602: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL116A.CBL:412: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL116A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([RL117A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL117A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL117A.CBL], [0], [], [RL117A.CBL:63: warning: LABEL RECORDS is obsolete in COBOL 85 +RL117A.CBL:65: warning: DATA RECORDS is obsolete in COBOL 85 +RL117A.CBL:72: warning: LABEL RECORDS is obsolete in COBOL 85 +RL117A.CBL:74: warning: DATA RECORDS is obsolete in COBOL 85 +RL117A.CBL: in section 'CCVS-EXIT': +RL117A.CBL: in paragraph 'CCVS-999999': +RL117A.CBL:592: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL117A.CBL:309: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL117A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([RL118A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL118A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL118A.CBL], [0], [], [RL118A.CBL:60: warning: LABEL RECORDS is obsolete in COBOL 85 +RL118A.CBL:62: warning: DATA RECORDS is obsolete in COBOL 85 +RL118A.CBL:69: warning: LABEL RECORDS is obsolete in COBOL 85 +RL118A.CBL:71: warning: DATA RECORDS is obsolete in COBOL 85 +RL118A.CBL: in section 'CCVS-EXIT': +RL118A.CBL: in paragraph 'CCVS-999999': +RL118A.CBL:542: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL118A.CBL:306: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL118A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([RL119A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL119A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL119A.CBL], [0], [], [RL119A.CBL:60: warning: LABEL RECORDS is obsolete in COBOL 85 +RL119A.CBL:62: warning: DATA RECORDS is obsolete in COBOL 85 +RL119A.CBL: in section 'CCVS-EXIT': +RL119A.CBL: in paragraph 'CCVS-999999': +RL119A.CBL:538: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL119A.CBL:404: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL119A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([RL201A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL101A.CBL], [0], [], [RL101A.CBL:68: warning: LABEL RECORDS is obsolete in COBOL 85 +RL101A.CBL: in section 'CCVS-EXIT': +RL101A.CBL: in paragraph 'CCVS-999999': +RL101A.CBL:450: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL101A.CBL:283: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL101A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL201A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL201A.CBL], [0], [], [RL201A.CBL:54: warning: LABEL RECORDS is obsolete in COBOL 85 +RL201A.CBL: in section 'CCVS-EXIT': +RL201A.CBL: in paragraph 'CCVS-999999': +RL201A.CBL:437: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL201A.CBL:268: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL201A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([RL202A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL101A.CBL], [0], [], [RL101A.CBL:68: warning: LABEL RECORDS is obsolete in COBOL 85 +RL101A.CBL: in section 'CCVS-EXIT': +RL101A.CBL: in paragraph 'CCVS-999999': +RL101A.CBL:450: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL101A.CBL:283: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL101A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL202A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL202A.SUB], [0], [], [RL202A.SUB:57: warning: LABEL RECORDS is obsolete in COBOL 85 +RL202A.SUB: in section 'SECT-RL202-001': +RL202A.SUB: in paragraph 'REL-TEST-003-R': +RL202A.SUB:400: warning: value size exceeds data size +RL202A.SUB:400: note: value size is 21 +RL202A.SUB:141: note: 'COMPUTED-A' defined here as PIC X(20) +RL202A.SUB: in paragraph 'REL-TEST-004-R': +RL202A.SUB:477: warning: value size exceeds data size +RL202A.SUB:477: note: value size is 21 +RL202A.SUB:141: note: 'COMPUTED-A' defined here as PIC X(20) +RL202A.SUB: in paragraph 'REL-TEST-004-3': +RL202A.SUB:520: warning: value size exceeds data size +RL202A.SUB:520: note: value size is 22 +RL202A.SUB:141: note: 'COMPUTED-A' defined here as PIC X(20) +RL202A.SUB: in section 'CCVS-EXIT': +RL202A.SUB: in paragraph 'CCVS-999999': +RL202A.SUB:610: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL202A.SUB:280: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL202A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([RL203A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL101A.CBL], [0], [], [RL101A.CBL:68: warning: LABEL RECORDS is obsolete in COBOL 85 +RL101A.CBL: in section 'CCVS-EXIT': +RL101A.CBL: in paragraph 'CCVS-999999': +RL101A.CBL:450: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL101A.CBL:283: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL101A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL203A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL203A.SUB], [0], [], [RL203A.SUB:57: warning: LABEL RECORDS is obsolete in COBOL 85 +RL203A.SUB: in section 'CCVS-EXIT': +RL203A.SUB: in paragraph 'CCVS-999999': +RL203A.SUB:607: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL203A.SUB:278: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL203A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([RL204A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL204A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL204A.CBL], [0], [], [RL204A.CBL:70: warning: LABEL RECORDS is obsolete in COBOL 85 +RL204A.CBL:72: warning: DATA RECORDS is obsolete in COBOL 85 +RL204A.CBL: in section 'CCVS-EXIT': +RL204A.CBL: in paragraph 'CCVS-999999': +RL204A.CBL:637: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL204A.CBL:326: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL204A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([RL205A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL205A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL205A.CBL], [0], [], [RL205A.CBL: in section 'SECT-RL205-0001': +RL205A.CBL: in paragraph 'REL-TEST-002-R4': +RL205A.CBL:724: warning: NEXT SENTENCE is archaic in COBOL 85 +RL205A.CBL: in section 'CCVS-EXIT': +RL205A.CBL: in paragraph 'CCVS-999999': +RL205A.CBL:2398: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL205A.CBL:396: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL205A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([RL206A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL206A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL206A.CBL], [0], [], [RL206A.CBL:54: warning: LABEL RECORDS is obsolete in COBOL 85 +RL206A.CBL: in section 'SECT-RL206A-001': +RL206A.CBL: in paragraph 'REL-WRITE-002': +RL206A.CBL:456: warning: GO TO SECTION 'CCVS-EXIT' +RL206A.CBL: in section 'CCVS-EXIT': +RL206A.CBL: in paragraph 'CCVS-999999': +RL206A.CBL:556: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL206A.CBL:275: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL206A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([RL207A]) +# promoted on 2023-02-04T15:57 +AT_KEYWORDS([RL RL207A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL101A.CBL], [0], [], [RL101A.CBL:68: warning: LABEL RECORDS is obsolete in COBOL 85 +RL101A.CBL: in section 'CCVS-EXIT': +RL101A.CBL: in paragraph 'CCVS-999999': +RL101A.CBL:450: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL101A.CBL:283: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL101A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL202A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL202A.SUB], [0], [], [RL202A.SUB:57: warning: LABEL RECORDS is obsolete in COBOL 85 +RL202A.SUB: in section 'SECT-RL202-001': +RL202A.SUB: in paragraph 'REL-TEST-003-R': +RL202A.SUB:400: warning: value size exceeds data size +RL202A.SUB:400: note: value size is 21 +RL202A.SUB:141: note: 'COMPUTED-A' defined here as PIC X(20) +RL202A.SUB: in paragraph 'REL-TEST-004-R': +RL202A.SUB:477: warning: value size exceeds data size +RL202A.SUB:477: note: value size is 21 +RL202A.SUB:141: note: 'COMPUTED-A' defined here as PIC X(20) +RL202A.SUB: in paragraph 'REL-TEST-004-3': +RL202A.SUB:520: warning: value size exceeds data size +RL202A.SUB:520: note: value size is 22 +RL202A.SUB:141: note: 'COMPUTED-A' defined here as PIC X(20) +RL202A.SUB: in section 'CCVS-EXIT': +RL202A.SUB: in paragraph 'CCVS-999999': +RL202A.SUB:610: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL202A.SUB:280: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL202A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL203A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL203A.SUB], [0], [], [RL203A.SUB:57: warning: LABEL RECORDS is obsolete in COBOL 85 +RL203A.SUB: in section 'CCVS-EXIT': +RL203A.SUB: in paragraph 'CCVS-999999': +RL203A.SUB:607: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL203A.SUB:278: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL203A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL206A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL206A.CBL], [0], [], [RL206A.CBL:54: warning: LABEL RECORDS is obsolete in COBOL 85 +RL206A.CBL: in section 'SECT-RL206A-001': +RL206A.CBL: in paragraph 'REL-WRITE-002': +RL206A.CBL:456: warning: GO TO SECTION 'CCVS-EXIT' +RL206A.CBL: in section 'CCVS-EXIT': +RL206A.CBL: in paragraph 'CCVS-999999': +RL206A.CBL:556: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL206A.CBL:275: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL206A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL207A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL207A.SUB], [0], [], [RL207A.SUB:58: warning: LABEL RECORDS is obsolete in COBOL 85 +RL207A.SUB: in section 'SECT-RL207A-001': +RL207A.SUB: in paragraph 'REL-TEST-003-R': +RL207A.SUB:428: warning: value size exceeds data size +RL207A.SUB:428: note: value size is 21 +RL207A.SUB:168: note: 'COMPUTED-A' defined here as PIC X(20) +RL207A.SUB: in paragraph 'REL-TEST-004-R': +RL207A.SUB:505: warning: value size exceeds data size +RL207A.SUB:505: note: value size is 21 +RL207A.SUB:168: note: 'COMPUTED-A' defined here as PIC X(20) +RL207A.SUB: in paragraph 'REL-TEST-004-3': +RL207A.SUB:548: warning: value size exceeds data size +RL207A.SUB:548: note: value size is 22 +RL207A.SUB:168: note: 'COMPUTED-A' defined here as PIC X(20) +RL207A.SUB: in paragraph 'REL-TEST-011-1': +RL207A.SUB:939: warning: GO TO SECTION 'CCVS-EXIT' +RL207A.SUB: in paragraph 'REL-INIT-012': +RL207A.SUB:988: warning: GO TO SECTION 'CCVS-EXIT' +RL207A.SUB: in section 'CCVS-EXIT': +RL207A.SUB: in paragraph 'CCVS-999999': +RL207A.SUB:1057: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL207A.SUB:307: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL207A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([RL208A]) +# promoted on 2023-02-04T15:57 +AT_KEYWORDS([RL RL208A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL101A.CBL], [0], [], [RL101A.CBL:68: warning: LABEL RECORDS is obsolete in COBOL 85 +RL101A.CBL: in section 'CCVS-EXIT': +RL101A.CBL: in paragraph 'CCVS-999999': +RL101A.CBL:450: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL101A.CBL:283: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL101A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL202A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL202A.SUB], [0], [], [RL202A.SUB:57: warning: LABEL RECORDS is obsolete in COBOL 85 +RL202A.SUB: in section 'SECT-RL202-001': +RL202A.SUB: in paragraph 'REL-TEST-003-R': +RL202A.SUB:400: warning: value size exceeds data size +RL202A.SUB:400: note: value size is 21 +RL202A.SUB:141: note: 'COMPUTED-A' defined here as PIC X(20) +RL202A.SUB: in paragraph 'REL-TEST-004-R': +RL202A.SUB:477: warning: value size exceeds data size +RL202A.SUB:477: note: value size is 21 +RL202A.SUB:141: note: 'COMPUTED-A' defined here as PIC X(20) +RL202A.SUB: in paragraph 'REL-TEST-004-3': +RL202A.SUB:520: warning: value size exceeds data size +RL202A.SUB:520: note: value size is 22 +RL202A.SUB:141: note: 'COMPUTED-A' defined here as PIC X(20) +RL202A.SUB: in section 'CCVS-EXIT': +RL202A.SUB: in paragraph 'CCVS-999999': +RL202A.SUB:610: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL202A.SUB:280: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL202A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL203A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL203A.SUB], [0], [], [RL203A.SUB:57: warning: LABEL RECORDS is obsolete in COBOL 85 +RL203A.SUB: in section 'CCVS-EXIT': +RL203A.SUB: in paragraph 'CCVS-999999': +RL203A.SUB:607: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL203A.SUB:278: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL203A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL206A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL206A.CBL], [0], [], [RL206A.CBL:54: warning: LABEL RECORDS is obsolete in COBOL 85 +RL206A.CBL: in section 'SECT-RL206A-001': +RL206A.CBL: in paragraph 'REL-WRITE-002': +RL206A.CBL:456: warning: GO TO SECTION 'CCVS-EXIT' +RL206A.CBL: in section 'CCVS-EXIT': +RL206A.CBL: in paragraph 'CCVS-999999': +RL206A.CBL:556: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL206A.CBL:275: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL206A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL208A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL208A.SUB], [0], [], [RL208A.SUB:57: warning: LABEL RECORDS is obsolete in COBOL 85 +RL208A.SUB: in section 'CCVS-EXIT': +RL208A.SUB: in paragraph 'CCVS-999999': +RL208A.SUB:608: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL208A.SUB:280: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL208A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([RL209A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL209A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL209A.CBL], [0], [], [RL209A.CBL:57: warning: LABEL RECORDS is obsolete in COBOL 85 +RL209A.CBL: in section 'CCVS-EXIT': +RL209A.CBL: in paragraph 'CCVS-999999': +RL209A.CBL:453: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL209A.CBL:273: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL209A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([RL210A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL210A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL210A.CBL], [0], [], [RL210A.CBL:54: warning: LABEL RECORDS is obsolete in COBOL 85 +RL210A.CBL: in section 'CCVS-EXIT': +RL210A.CBL: in paragraph 'CCVS-999999': +RL210A.CBL:480: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL210A.CBL:274: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL210A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([RL211A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL211A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL211A.CBL], [0], [], [RL211A.CBL:54: warning: LABEL RECORDS is obsolete in COBOL 85 +RL211A.CBL: in section 'CCVS-EXIT': +RL211A.CBL: in paragraph 'CCVS-999999': +RL211A.CBL:546: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL211A.CBL:278: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL211A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([RL212A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL212A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL212A.CBL], [0], [], [RL212A.CBL:54: warning: LABEL RECORDS is obsolete in COBOL 85 +RL212A.CBL: in section 'CCVS-EXIT': +RL212A.CBL: in paragraph 'CCVS-999999': +RL212A.CBL:437: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL212A.CBL:268: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL212A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([RL213A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL213A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL213A.SUB], [0], [], [RL213A.SUB:58: warning: LABEL RECORDS is obsolete in COBOL 85 +RL213A.SUB:64: warning: LABEL RECORDS is obsolete in COBOL 85 +RL213A.SUB: in section 'SECT-RL213A-001': +RL213A.SUB: in paragraph 'REL-DELETE-001': +RL213A.SUB:402: warning: GO TO SECTION 'CCVS-EXIT' +RL213A.SUB: in paragraph 'REL-DELETE-002': +RL213A.SUB:428: warning: GO TO SECTION 'CCVS-EXIT' +RL213A.SUB: in section 'CCVS-EXIT': +RL213A.SUB: in paragraph 'CCVS-999999': +RL213A.SUB:463: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RL213A.SUB:278: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RL213A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([RL301M]) +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL301M.CBL .],[0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL301M.CBL], [0], [], []) +# AT_CHECK([./RL301M], [0], [], []) +AT_CLEANUP + +AT_SETUP([RL302M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL302M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL302M.CBL], [0], [], [RL302M.CBL:30: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +RL302M.CBL:36: warning: LABEL RECORDS is obsolete in COBOL 85 +RL302M.CBL:41: warning: VALUE OF is obsolete in COBOL 85 +RL302M.CBL:43: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL302M], [0], [THIS IS A DUMMY PARAGRAPH +], []) + +AT_CLEANUP + + +AT_SETUP([RL401M]) +AT_KEYWORDS([RL]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL401M.CBL .],[0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL401M.CBL], [0], [], []) +# AT_CHECK([./RL401M], [0], [], []) +AT_CLEANUP diff --git a/tests/cobol85/nistrun.src/run_RW.at b/tests/cobol85/nistrun.src/run_RW.at new file mode 100644 index 000000000..d54710684 --- /dev/null +++ b/tests/cobol85/nistrun.src/run_RW.at @@ -0,0 +1,102 @@ + +AT_SETUP([RW101A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RW]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RW/RW101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RW101A.CBL], [0], [], [RW101A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +RW101A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +RW101A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +RW101A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +RW101A.CBL:84: warning: LABEL RECORDS is obsolete in COBOL 85 +RW101A.CBL:85: warning: DATA RECORDS is obsolete in COBOL 85 +RW101A.CBL:89: warning: LABEL RECORDS is obsolete in COBOL 85 +RW101A.CBL: in section 'CCVS-EXIT': +RW101A.CBL: in paragraph 'CCVS-999999': +RW101A.CBL:545: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RW101A.CBL:241: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RW101A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([RW102A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RW]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RW/RW102A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RW102A.CBL], [0], [], [RW102A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +RW102A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +RW102A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +RW102A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +RW102A.CBL:76: warning: LABEL RECORDS is obsolete in COBOL 85 +RW102A.CBL:77: warning: DATA RECORDS is obsolete in COBOL 85 +RW102A.CBL:81: warning: LABEL RECORDS is obsolete in COBOL 85 +RW102A.CBL: in section 'CCVS-EXIT': +RW102A.CBL: in paragraph 'CCVS-999999': +RW102A.CBL:443: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RW102A.CBL:234: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RW102A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([RW103A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RW]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RW/RW103A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RW103A.CBL], [0], [], [RW103A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +RW103A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +RW103A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +RW103A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +RW103A.CBL:89: warning: LABEL RECORDS is obsolete in COBOL 85 +RW103A.CBL:90: warning: DATA RECORDS is obsolete in COBOL 85 +RW103A.CBL:94: warning: LABEL RECORDS is obsolete in COBOL 85 +RW103A.CBL: in section 'CCVS-EXIT': +RW103A.CBL: in paragraph 'CCVS-999999': +RW103A.CBL:707: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RW103A.CBL:264: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RW103A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([RW104A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RW]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RW/RW104A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RW104A.CBL], [0], [], [RW104A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +RW104A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +RW104A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +RW104A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +RW104A.CBL:86: warning: LABEL RECORDS is obsolete in COBOL 85 +RW104A.CBL:87: warning: DATA RECORDS is obsolete in COBOL 85 +RW104A.CBL:91: warning: LABEL RECORDS is obsolete in COBOL 85 +RW104A.CBL: in section 'CCVS-EXIT': +RW104A.CBL: in paragraph 'CCVS-999999': +RW104A.CBL:722: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +RW104A.CBL:267: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./RW104A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([RW301M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RW]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RW/RW301M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RW301M.CBL], [0], [], [RW301M.CBL:26: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +RW301M.CBL:31: warning: LABEL RECORDS is obsolete in COBOL 85 +RW301M.CBL:35: warning: VALUE OF is obsolete in COBOL 85 +]) + +AT_CLEANUP + +AT_SETUP([RW302M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([RW]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RW/RW302M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RW302M.CBL], [0], [], [RW302M.CBL:27: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +RW302M.CBL:34: warning: LABEL RECORDS is obsolete in COBOL 85 +RW302M.CBL:39: warning: VALUE OF is obsolete in COBOL 85 +]) + +AT_CLEANUP diff --git a/tests/cobol85/nistrun.src/run_SG.at b/tests/cobol85/nistrun.src/run_SG.at new file mode 100644 index 000000000..4a2ccbe67 --- /dev/null +++ b/tests/cobol85/nistrun.src/run_SG.at @@ -0,0 +1,1334 @@ + +AT_SETUP([SG101A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SG]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SG101A.CBL], [0], [], [SG101A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +SG101A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +SG101A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +SG101A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +SG101A.CBL:42: warning: LABEL RECORDS is obsolete in COBOL 85 +SG101A.CBL:43: warning: DATA RECORDS is obsolete in COBOL 85 +SG101A.CBL: in section 'SECT-SG-01-001': +SG101A.CBL:276: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '00': +SG101A.CBL:280: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '01': +SG101A.CBL:1785: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '02': +SG101A.CBL:1788: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '03': +SG101A.CBL:1791: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '04': +SG101A.CBL:1794: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '05': +SG101A.CBL:1797: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '06': +SG101A.CBL:1800: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '07': +SG101A.CBL:1803: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '08': +SG101A.CBL:1806: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '09': +SG101A.CBL:1809: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '10': +SG101A.CBL:1812: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '11': +SG101A.CBL:1815: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '12': +SG101A.CBL:1818: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '13': +SG101A.CBL:1821: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '14': +SG101A.CBL:1824: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '15': +SG101A.CBL:1827: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '16': +SG101A.CBL:1830: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '17': +SG101A.CBL:1833: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '18': +SG101A.CBL:1836: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '19': +SG101A.CBL:1839: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '20': +SG101A.CBL:1842: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '21': +SG101A.CBL:1845: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '22': +SG101A.CBL:1848: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '23': +SG101A.CBL:1851: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '24': +SG101A.CBL:1854: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '25': +SG101A.CBL:1857: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '26': +SG101A.CBL:1860: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '27': +SG101A.CBL:1863: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '28': +SG101A.CBL:1866: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '29': +SG101A.CBL:1869: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '30': +SG101A.CBL:1872: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '31': +SG101A.CBL:1875: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '32': +SG101A.CBL:1878: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '33': +SG101A.CBL:1881: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '34': +SG101A.CBL:1884: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '35': +SG101A.CBL:1887: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '36': +SG101A.CBL:1890: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '37': +SG101A.CBL:1893: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '38': +SG101A.CBL:1896: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '39': +SG101A.CBL:1899: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '40': +SG101A.CBL:1902: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '41': +SG101A.CBL:1905: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '42': +SG101A.CBL:1908: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '43': +SG101A.CBL:1911: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '44': +SG101A.CBL:1914: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '45': +SG101A.CBL:1917: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '46': +SG101A.CBL:1920: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '47': +SG101A.CBL:1923: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '48': +SG101A.CBL:1926: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '49': +SG101A.CBL:1929: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section 'SECOND-HALF': +SG101A.CBL:1932: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '50': +SG101A.CBL:2698: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '51': +SG101A.CBL:2701: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '52': +SG101A.CBL:2704: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '53': +SG101A.CBL:2707: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '54': +SG101A.CBL:2710: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '55': +SG101A.CBL:2713: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '56': +SG101A.CBL:2716: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '57': +SG101A.CBL:2719: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '58': +SG101A.CBL:2722: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '59': +SG101A.CBL:2725: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '60': +SG101A.CBL:2728: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '61': +SG101A.CBL:2731: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '62': +SG101A.CBL:2734: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '63': +SG101A.CBL:2737: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '64': +SG101A.CBL:2740: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '65': +SG101A.CBL:2743: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '66': +SG101A.CBL:2746: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '67': +SG101A.CBL:2749: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '68': +SG101A.CBL:2752: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '69': +SG101A.CBL:2755: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '70': +SG101A.CBL:2758: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '71': +SG101A.CBL:2761: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '72': +SG101A.CBL:2764: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '73': +SG101A.CBL:2767: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '74': +SG101A.CBL:2770: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '75': +SG101A.CBL:2773: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '76': +SG101A.CBL:2776: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '77': +SG101A.CBL:2779: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '78': +SG101A.CBL:2782: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '79': +SG101A.CBL:2785: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '80': +SG101A.CBL:2788: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '81': +SG101A.CBL:2791: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '82': +SG101A.CBL:2794: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '83': +SG101A.CBL:2797: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '84': +SG101A.CBL:2800: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '85': +SG101A.CBL:2803: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '86': +SG101A.CBL:2806: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '87': +SG101A.CBL:2809: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '88': +SG101A.CBL:2812: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '89': +SG101A.CBL:2815: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '90': +SG101A.CBL:2818: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '91': +SG101A.CBL:2821: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '92': +SG101A.CBL:2824: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '93': +SG101A.CBL:2827: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '94': +SG101A.CBL:2830: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '95': +SG101A.CBL:2833: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '96': +SG101A.CBL:2836: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '97': +SG101A.CBL:2839: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '98': +SG101A.CBL:2842: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '99': +SG101A.CBL:2845: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section 'SECT-SG-01-001': +SG101A.CBL: in paragraph 'SG-01-001': +SG101A.CBL:279: warning: GO TO paragraph 'SEG-TEST-1' which is defined in another SECTION +SG101A.CBL:284: note: 'SEG-TEST-1 IN RUN-THE-TESTS' defined here +SG101A.CBL: in section 'RUN-THE-TESTS': +SG101A.CBL: in paragraph 'SEG-WRITE-100': +SG101A.CBL:1784: warning: GO TO SECTION 'SECOND-HALF' +SG101A.CBL: in section 'SECOND-HALF': +SG101A.CBL: in paragraph 'SEG-WRITE-151': +SG101A.CBL:2697: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SG101A.CBL:178: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SG101A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SG102A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SG]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG102A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SG102A.CBL], [0], [], [SG102A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +SG102A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +SG102A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +SG102A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +SG102A.CBL:41: warning: LABEL RECORDS is obsolete in COBOL 85 +SG102A.CBL:42: warning: DATA RECORDS is obsolete in COBOL 85 +SG102A.CBL: in section 'SECT-SG-02-001': +SG102A.CBL:173: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-1': +SG102A.CBL:282: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'TEST-1C': +SG102A.CBL:291: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL: in section 'SEG-TEST2': +SG102A.CBL:296: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'SEG-TEST-2': +SG102A.CBL:300: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL:302: warning: alphanumeric value is expected +SG102A.CBL:49: note: 'RANGE-X' defined here as PIC X +SG102A.CBL:305: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-6-1': +SG102A.CBL:321: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'TEST-6A': +SG102A.CBL:323: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-6-2': +SG102A.CBL:324: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-6-3': +SG102A.CBL:327: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-6-4': +SG102A.CBL:332: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'TEST-6D': +SG102A.CBL:334: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-6-5': +SG102A.CBL:335: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'TEST-6E': +SG102A.CBL:338: warning: alphanumeric value is expected +SG102A.CBL:49: note: 'RANGE-X' defined here as PIC X +SG102A.CBL: in section 'START-TESTING': +SG102A.CBL:341: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'SEG-TEST-1': +SG102A.CBL:346: warning: alphanumeric value is expected +SG102A.CBL:49: note: 'RANGE-X' defined here as PIC X +SG102A.CBL:348: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-8-BRANCH': +SG102A.CBL:368: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-6-6': +SG102A.CBL:371: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-6-7': +SG102A.CBL:376: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'TEST-6G': +SG102A.CBL:378: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-6-8': +SG102A.CBL:380: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-6-9': +SG102A.CBL:385: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST22': +SG102A.CBL:388: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'PARA-2-22': +SG102A.CBL:395: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-4': +SG102A.CBL:398: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'TEST-4C': +SG102A.CBL:409: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL: in section 'SEG-TEST5': +SG102A.CBL:413: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in section 'SEG-TEST7': +SG102A.CBL:439: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'SEG-TEST-7': +SG102A.CBL:446: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-7-1': +SG102A.CBL:463: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-7-2': +SG102A.CBL:466: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'TEST-7B': +SG102A.CBL:468: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-7-3': +SG102A.CBL:469: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-7-4': +SG102A.CBL:479: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'TEST-7F': +SG102A.CBL:483: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL: in section 'SEG-TEST3': +SG102A.CBL:486: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'SEG-TEST-3': +SG102A.CBL:490: warning: alphanumeric value is expected +SG102A.CBL:49: note: 'RANGE-X' defined here as PIC X +SG102A.CBL:494: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL:495: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-3': +SG102A.CBL:506: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in section 'SEG-TEST4': +SG102A.CBL:529: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'SEG-TEST-4': +SG102A.CBL:534: warning: alphanumeric value is expected +SG102A.CBL:49: note: 'RANGE-X' defined here as PIC X +SG102A.CBL: in section 'SEG-TEST6': +SG102A.CBL:550: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in section 'SEG-TEST8': +SG102A.CBL:572: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'SEG-TEST-8': +SG102A.CBL:574: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL: in section 'SEG-TEST-8A': +SG102A.CBL:580: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-5': +SG102A.CBL:588: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'TEST-5B': +SG102A.CBL:592: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL:593: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL: in section 'SEG': +SG102A.CBL:598: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'SEG-99B': +SG102A.CBL:602: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL:603: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL: in section 'SECT-SG-02-001': +SG102A.CBL: in paragraph 'SG-02-001': +SG102A.CBL:176: warning: GO TO paragraph 'SEG-TEST-1' which is defined in another SECTION +SG102A.CBL:342: note: 'SEG-TEST-1 IN START-TESTING' defined here +SG102A.CBL: in section 'SEG-TEST2': +SG102A.CBL: in paragraph 'TEST-2-WRITE': +SG102A.CBL:320: warning: GO TO paragraph 'SEG-TEST-3' which is defined in another SECTION +SG102A.CBL:487: note: 'SEG-TEST-3 IN SEG-TEST3' defined here +SG102A.CBL: in section 'TEST-6-2': +SG102A.CBL: in paragraph 'TEST-6B': +SG102A.CBL:326: warning: GO TO paragraph 'TEST-6E' which is defined in another SECTION +SG102A.CBL:336: note: 'TEST-6E IN TEST-6-5' defined here +SG102A.CBL: in section 'TEST-6-5': +SG102A.CBL: in paragraph 'TEST-6E': +SG102A.CBL:340: warning: GO TO SECTION 'TEST-6-2' +SG102A.CBL: in section 'START-TESTING': +SG102A.CBL: in paragraph 'TEST-1-WRITE': +SG102A.CBL:367: warning: GO TO paragraph 'SEG-TEST-2' which is defined in another SECTION +SG102A.CBL:297: note: 'SEG-TEST-2 IN SEG-TEST2' defined here +SG102A.CBL: in section 'TEST-8-BRANCH': +SG102A.CBL: in paragraph 'PARA-8': +SG102A.CBL:370: warning: GO TO SECTION 'SEG-TEST8' +SG102A.CBL: in section 'TEST-6-7': +SG102A.CBL: in paragraph 'TEST-6G': +SG102A.CBL:379: warning: GO TO SECTION 'TEST-6-2' +SG102A.CBL: in section 'SEG-TEST5': +SG102A.CBL: in paragraph 'TEST-5-WRITE': +SG102A.CBL:438: warning: GO TO paragraph 'SEG-TEST-6' which is defined in another SECTION +SG102A.CBL:551: note: 'SEG-TEST-6 IN SEG-TEST6' defined here +SG102A.CBL: in section 'SEG-TEST7': +SG102A.CBL: in paragraph 'TEST-7-WRITE': +SG102A.CBL:462: warning: GO TO SECTION 'TEST-8-BRANCH' +SG102A.CBL: in section 'TEST-7-1': +SG102A.CBL: in paragraph 'TEST-7A': +SG102A.CBL:465: warning: GO TO paragraph 'TEST-7B' which is defined in another SECTION +SG102A.CBL:467: note: 'TEST-7B IN TEST-7-2' defined here +SG102A.CBL: in section 'SEG-TEST3': +SG102A.CBL: in paragraph 'SEG-TEST-3': +SG102A.CBL:498: warning: GO TO paragraph 'TEST-3X' which is defined in another SECTION +SG102A.CBL:507: note: 'TEST-3X IN TEST-3' defined here +SG102A.CBL: in paragraph 'TEST-3-WRITE': +SG102A.CBL:505: warning: GO TO paragraph 'SEG-TEST-4' which is defined in another SECTION +SG102A.CBL:530: note: 'SEG-TEST-4 IN SEG-TEST4' defined here +SG102A.CBL: in section 'TEST-3': +SG102A.CBL: in paragraph 'TEST-3B': +SG102A.CBL:514: warning: GO TO paragraph 'TEST-3-WRITE' which is defined in another SECTION +SG102A.CBL:502: note: 'TEST-3-WRITE IN SEG-TEST3' defined here +SG102A.CBL:518: warning: GO TO paragraph 'TEST-3-WRITE' which is defined in another SECTION +SG102A.CBL:502: note: 'TEST-3-WRITE IN SEG-TEST3' defined here +SG102A.CBL: in section 'SEG-TEST4': +SG102A.CBL: in paragraph 'TEST-4-WRITE': +SG102A.CBL:549: warning: GO TO paragraph 'SEG-TEST-5' which is defined in another SECTION +SG102A.CBL:414: note: 'SEG-TEST-5 IN SEG-TEST5' defined here +SG102A.CBL: in section 'SEG-TEST6': +SG102A.CBL: in paragraph 'TEST-6-WRITE': +SG102A.CBL:570: warning: GO TO paragraph 'SEG-TEST-7' which is defined in another SECTION +SG102A.CBL:440: note: 'SEG-TEST-7 IN SEG-TEST7' defined here +SG102A.CBL: in section 'SEG-TEST8': +SG102A.CBL: in paragraph 'SEG-TEST-8': +SG102A.CBL:578: warning: GO TO paragraph 'TEST-8-WRITE' which is defined in another SECTION +SG102A.CBL:583: note: 'TEST-8-WRITE IN SEG-TEST-8A' defined here +SG102A.CBL:579: warning: GO TO SECTION 'TEST-8-BRANCH' +SG102A.CBL: in section 'SEG-TEST-8A': +SG102A.CBL: in paragraph 'TEST-8-WRITE': +SG102A.CBL:587: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SG102A.CBL:184: note: 'CLOSE-FILES IN CCVS1' defined here +SG102A.CBL: in section 'SEG': +SG102A.CBL: in paragraph 'SEG-99B': +SG102A.CBL:557: warning: TEST-6A and TEST-6I are not in the same SECTION +]) +AT_CHECK([./SG102A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SG103A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SG]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG103A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SG103A.CBL], [0], [], [SG103A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +SG103A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +SG103A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +SG103A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +SG103A.CBL:40: warning: LABEL RECORDS is obsolete in COBOL 85 +SG103A.CBL:41: warning: DATA RECORDS is obsolete in COBOL 85 +SG103A.CBL: in section 'SECT-SG-03-001': +SG103A.CBL:291: warning: section segments is obsolete in COBOL 85 +SG103A.CBL: in section 'SEC20': +SG103A.CBL:296: warning: section segments is obsolete in COBOL 85 +SG103A.CBL: in section 'SEC51': +SG103A.CBL:381: warning: section segments is obsolete in COBOL 85 +SG103A.CBL: in paragraph 'P5103': +SG103A.CBL:399: warning: ALTER is obsolete in COBOL 85 +SG103A.CBL: in section 'SEC60': +SG103A.CBL:443: warning: section segments is obsolete in COBOL 85 +SG103A.CBL: in section 'SEC80': +SG103A.CBL:447: warning: section segments is obsolete in COBOL 85 +SG103A.CBL: in paragraph 'P8002': +SG103A.CBL:451: warning: ALTER is obsolete in COBOL 85 +SG103A.CBL: in section 'SEC93': +SG103A.CBL:458: warning: section segments is obsolete in COBOL 85 +SG103A.CBL: in section 'SEC95': +SG103A.CBL:468: warning: section segments is obsolete in COBOL 85 +SG103A.CBL: in paragraph 'P9501': +SG103A.CBL:471: warning: ALTER is obsolete in COBOL 85 +SG103A.CBL: in section 'SEC99': +SG103A.CBL:472: warning: section segments is obsolete in COBOL 85 +SG103A.CBL: in paragraph 'P9902': +SG103A.CBL:476: warning: ALTER is obsolete in COBOL 85 +SG103A.CBL: in section 'SEC00': +SG103A.CBL: in paragraph 'P0001': +SG103A.CBL:185: warning: GO TO paragraph 'P0003' which is defined in another SECTION +SG103A.CBL:294: note: 'P0003 IN SECT-SG-03-001' defined here +SG103A.CBL: in section 'SEC20': +SG103A.CBL: in paragraph 'TEST-2': +SG103A.CBL:318: warning: GO TO paragraph 'P6001' which is defined in another SECTION +SG103A.CBL:444: note: 'P6001 IN SEC60' defined here +SG103A.CBL: in section 'SEC51': +SG103A.CBL: in paragraph 'TEST-5-WRITE': +SG103A.CBL:396: warning: GO TO paragraph 'TEST-5' which is defined in another SECTION +SG103A.CBL:372: note: 'TEST-5 IN SEC20' defined here +SG103A.CBL: in paragraph 'P5106': +SG103A.CBL:408: warning: GO TO paragraph 'TEST-5' which is defined in another SECTION +SG103A.CBL:372: note: 'TEST-5 IN SEC20' defined here +SG103A.CBL: in paragraph 'TEST-7': +SG103A.CBL:424: warning: GO TO paragraph 'P9901' which is defined in another SECTION +SG103A.CBL:473: note: 'P9901 IN SEC99' defined here +SG103A.CBL: in paragraph 'PARA-7A': +SG103A.CBL:426: warning: GO TO paragraph 'P9901' which is defined in another SECTION +SG103A.CBL:473: note: 'P9901 IN SEC99' defined here +SG103A.CBL: in paragraph 'WRAP-UP': +SG103A.CBL:442: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SG103A.CBL:193: note: 'CLOSE-FILES IN CCVS1' defined here +SG103A.CBL: in section 'SEC60': +SG103A.CBL: in paragraph 'P6001': +SG103A.CBL:446: warning: GO TO paragraph 'GO-TO-RETURN' which is defined in another SECTION +SG103A.CBL:319: note: 'GO-TO-RETURN IN SEC20' defined here +SG103A.CBL: in section 'SEC99': +SG103A.CBL: in paragraph 'P9902': +SG103A.CBL:479: warning: GO TO paragraph 'PARA-7A' which is defined in another SECTION +SG103A.CBL:425: note: 'PARA-7A IN SEC51' defined here +SG103A.CBL:480: warning: GO TO paragraph 'PARA-7B' which is defined in another SECTION +SG103A.CBL:427: note: 'PARA-7B IN SEC51' defined here +SG103A.CBL: in paragraph 'P9903': +SG103A.CBL:483: warning: GO TO paragraph 'PARA-7B' which is defined in another SECTION +SG103A.CBL:427: note: 'PARA-7B IN SEC51' defined here +]) +AT_CHECK([./SG103A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SG104A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SG]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG104A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SG104A.CBL], [0], [], [SG104A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +SG104A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +SG104A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +SG104A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +SG104A.CBL:60: warning: LABEL RECORDS is obsolete in COBOL 85 +SG104A.CBL:61: warning: DATA RECORDS is obsolete in COBOL 85 +SG104A.CBL:65: warning: DATA RECORDS is obsolete in COBOL 85 +SG104A.CBL: in section 'SORT-PARA': +SG104A.CBL:203: warning: section segments is obsolete in COBOL 85 +SG104A.CBL: in section 'INPROC': +SG104A.CBL:217: warning: section segments is obsolete in COBOL 85 +SG104A.CBL: in paragraph 'BUILD-FILE': +SG104A.CBL:238: warning: ignoring sign +SG104A.CBL: in paragraph 'BUILD-RECORD': +SG104A.CBL:251: warning: ignoring sign +SG104A.CBL: in section 'OUTPROC': +SG104A.CBL:259: warning: section segments is obsolete in COBOL 85 +SG104A.CBL: in section 'B-IS-LESS-THAN-SPACE': +SG104A.CBL:267: warning: section segments is obsolete in COBOL 85 +SG104A.CBL: in section 'SPACE-IS-LESS-THAN-B': +SG104A.CBL:372: warning: section segments is obsolete in COBOL 85 +SG104A.CBL: in section 'CONTINUE-TESTING': +SG104A.CBL:473: warning: section segments is obsolete in COBOL 85 +SG104A.CBL: in section 'OUTPROC-EXIT': +SG104A.CBL:588: warning: section segments is obsolete in COBOL 85 +SG104A.CBL: in section 'OUTPROC': +SG104A.CBL: in paragraph 'OPEN-FILES': +SG104A.CBL:266: warning: GO TO SECTION 'SPACE-IS-LESS-THAN-B' +SG104A.CBL: in section 'B-IS-LESS-THAN-SPACE': +SG104A.CBL: in paragraph 'SORT-TEST-1': +SG104A.CBL:275: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG104A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG104A.CBL: in paragraph 'SORT-TEST-2': +SG104A.CBL:286: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG104A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG104A.CBL: in paragraph 'SORT-TEST-3': +SG104A.CBL:297: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG104A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG104A.CBL: in paragraph 'SORT-TEST-4': +SG104A.CBL:308: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG104A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG104A.CBL: in paragraph 'SORT-TEST-5': +SG104A.CBL:319: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG104A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG104A.CBL: in paragraph 'SORT-TEST-6': +SG104A.CBL:330: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG104A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG104A.CBL: in paragraph 'SORT-TEST-7': +SG104A.CBL:341: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG104A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG104A.CBL: in paragraph 'SORT-TEST-8': +SG104A.CBL:352: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG104A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG104A.CBL: in paragraph 'SORT-REMARK-A': +SG104A.CBL:371: warning: GO TO SECTION 'CONTINUE-TESTING' +SG104A.CBL: in section 'SPACE-IS-LESS-THAN-B': +SG104A.CBL: in paragraph 'SORT-TEST-9': +SG104A.CBL:386: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG104A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG104A.CBL: in paragraph 'SORT-TEST-10': +SG104A.CBL:397: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG104A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG104A.CBL: in paragraph 'SORT-TEST-11': +SG104A.CBL:408: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG104A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG104A.CBL: in paragraph 'SORT-TEST-12': +SG104A.CBL:419: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG104A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG104A.CBL: in paragraph 'SORT-TEST-13': +SG104A.CBL:430: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG104A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG104A.CBL: in paragraph 'SORT-TEST-14': +SG104A.CBL:441: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG104A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG104A.CBL: in paragraph 'SORT-TEST-15': +SG104A.CBL:452: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG104A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG104A.CBL: in paragraph 'SORT-TEST-16': +SG104A.CBL:463: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG104A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG104A.CBL: in section 'CONTINUE-TESTING': +SG104A.CBL: in paragraph 'SORT-WRITE-17': +SG104A.CBL:483: warning: GO TO SECTION 'OUTPROC-EXIT' +]) +AT_CHECK([./SG104A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SG105A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SG]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG105A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SG105A.CBL], [0], [], [SG105A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +SG105A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +SG105A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +SG105A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +SG105A.CBL:60: warning: LABEL RECORDS is obsolete in COBOL 85 +SG105A.CBL:61: warning: DATA RECORDS is obsolete in COBOL 85 +SG105A.CBL:65: warning: DATA RECORDS is obsolete in COBOL 85 +SG105A.CBL: in section 'SORT-PARA': +SG105A.CBL:203: warning: section segments is obsolete in COBOL 85 +SG105A.CBL: in section 'INPROC': +SG105A.CBL:217: warning: section segments is obsolete in COBOL 85 +SG105A.CBL: in paragraph 'BUILD-FILE': +SG105A.CBL:238: warning: ignoring sign +SG105A.CBL: in paragraph 'BUILD-RECORD': +SG105A.CBL:251: warning: ignoring sign +SG105A.CBL: in section 'OUTPROC': +SG105A.CBL:259: warning: section segments is obsolete in COBOL 85 +SG105A.CBL: in section 'B-IS-LESS-THAN-SPACE': +SG105A.CBL:267: warning: section segments is obsolete in COBOL 85 +SG105A.CBL: in section 'SPACE-IS-LESS-THAN-B': +SG105A.CBL:372: warning: section segments is obsolete in COBOL 85 +SG105A.CBL: in paragraph 'SORT-FAIL-15': +SG105A.CBL:458: warning: value size exceeds data size +SG105A.CBL:458: note: value is 6000000000000000 +SG105A.CBL:116: note: 'CORRECT-18V0' defined here as PIC -9(18) +SG105A.CBL: in section 'CONTINUE-TESTING': +SG105A.CBL:473: warning: section segments is obsolete in COBOL 85 +SG105A.CBL: in section 'OUTPROC-EXIT': +SG105A.CBL:588: warning: section segments is obsolete in COBOL 85 +SG105A.CBL: in section 'OUTPROC': +SG105A.CBL: in paragraph 'OPEN-FILES': +SG105A.CBL:266: warning: GO TO SECTION 'SPACE-IS-LESS-THAN-B' +SG105A.CBL: in section 'B-IS-LESS-THAN-SPACE': +SG105A.CBL: in paragraph 'SORT-TEST-1': +SG105A.CBL:275: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG105A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG105A.CBL: in paragraph 'SORT-TEST-2': +SG105A.CBL:286: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG105A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG105A.CBL: in paragraph 'SORT-TEST-3': +SG105A.CBL:297: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG105A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG105A.CBL: in paragraph 'SORT-TEST-4': +SG105A.CBL:308: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG105A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG105A.CBL: in paragraph 'SORT-TEST-5': +SG105A.CBL:319: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG105A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG105A.CBL: in paragraph 'SORT-TEST-6': +SG105A.CBL:330: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG105A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG105A.CBL: in paragraph 'SORT-TEST-7': +SG105A.CBL:341: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG105A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG105A.CBL: in paragraph 'SORT-TEST-8': +SG105A.CBL:352: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG105A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG105A.CBL: in paragraph 'SORT-REMARK-A': +SG105A.CBL:371: warning: GO TO SECTION 'CONTINUE-TESTING' +SG105A.CBL: in section 'SPACE-IS-LESS-THAN-B': +SG105A.CBL: in paragraph 'SORT-TEST-9': +SG105A.CBL:386: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG105A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG105A.CBL: in paragraph 'SORT-TEST-10': +SG105A.CBL:397: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG105A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG105A.CBL: in paragraph 'SORT-TEST-11': +SG105A.CBL:408: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG105A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG105A.CBL: in paragraph 'SORT-TEST-12': +SG105A.CBL:419: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG105A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG105A.CBL: in paragraph 'SORT-TEST-13': +SG105A.CBL:430: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG105A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG105A.CBL: in paragraph 'SORT-TEST-14': +SG105A.CBL:441: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG105A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG105A.CBL: in paragraph 'SORT-TEST-15': +SG105A.CBL:452: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG105A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG105A.CBL: in paragraph 'SORT-TEST-16': +SG105A.CBL:463: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG105A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG105A.CBL: in section 'CONTINUE-TESTING': +SG105A.CBL: in paragraph 'SORT-WRITE-17': +SG105A.CBL:483: warning: GO TO SECTION 'OUTPROC-EXIT' +]) +AT_CHECK([./SG105A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SG106A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SG]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG106A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SG106A.CBL], [0], [], [SG106A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +SG106A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +SG106A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +SG106A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +SG106A.CBL:60: warning: LABEL RECORDS is obsolete in COBOL 85 +SG106A.CBL:61: warning: DATA RECORDS is obsolete in COBOL 85 +SG106A.CBL:65: warning: DATA RECORDS is obsolete in COBOL 85 +SG106A.CBL: in section 'SORT-PARA': +SG106A.CBL:203: warning: section segments is obsolete in COBOL 85 +SG106A.CBL: in section 'INPROC': +SG106A.CBL:217: warning: section segments is obsolete in COBOL 85 +SG106A.CBL: in paragraph 'BUILD-FILE': +SG106A.CBL:238: warning: ignoring sign +SG106A.CBL: in paragraph 'BUILD-RECORD': +SG106A.CBL:251: warning: ignoring sign +SG106A.CBL: in section 'OUTPROC': +SG106A.CBL:259: warning: section segments is obsolete in COBOL 85 +SG106A.CBL: in section 'B-IS-LESS-THAN-SPACE': +SG106A.CBL:267: warning: section segments is obsolete in COBOL 85 +SG106A.CBL: in section 'SPACE-IS-LESS-THAN-B': +SG106A.CBL:372: warning: section segments is obsolete in COBOL 85 +SG106A.CBL: in section 'CONTINUE-TESTING': +SG106A.CBL:473: warning: section segments is obsolete in COBOL 85 +SG106A.CBL: in section 'OUTPROC-EXIT': +SG106A.CBL:588: warning: section segments is obsolete in COBOL 85 +SG106A.CBL: in section 'OUTPROC': +SG106A.CBL: in paragraph 'OPEN-FILES': +SG106A.CBL:266: warning: GO TO SECTION 'SPACE-IS-LESS-THAN-B' +SG106A.CBL: in section 'B-IS-LESS-THAN-SPACE': +SG106A.CBL: in paragraph 'SORT-TEST-1': +SG106A.CBL:275: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG106A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG106A.CBL: in paragraph 'SORT-TEST-2': +SG106A.CBL:286: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG106A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG106A.CBL: in paragraph 'SORT-TEST-3': +SG106A.CBL:297: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG106A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG106A.CBL: in paragraph 'SORT-TEST-4': +SG106A.CBL:308: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG106A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG106A.CBL: in paragraph 'SORT-TEST-5': +SG106A.CBL:319: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG106A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG106A.CBL: in paragraph 'SORT-TEST-6': +SG106A.CBL:330: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG106A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG106A.CBL: in paragraph 'SORT-TEST-7': +SG106A.CBL:341: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG106A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG106A.CBL: in paragraph 'SORT-TEST-8': +SG106A.CBL:352: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG106A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG106A.CBL: in paragraph 'SORT-REMARK-A': +SG106A.CBL:371: warning: GO TO SECTION 'CONTINUE-TESTING' +SG106A.CBL: in section 'SPACE-IS-LESS-THAN-B': +SG106A.CBL: in paragraph 'SORT-TEST-9': +SG106A.CBL:386: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG106A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG106A.CBL: in paragraph 'SORT-TEST-10': +SG106A.CBL:397: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG106A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG106A.CBL: in paragraph 'SORT-TEST-11': +SG106A.CBL:408: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG106A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG106A.CBL: in paragraph 'SORT-TEST-12': +SG106A.CBL:419: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG106A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG106A.CBL: in paragraph 'SORT-TEST-13': +SG106A.CBL:430: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG106A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG106A.CBL: in paragraph 'SORT-TEST-14': +SG106A.CBL:441: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG106A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG106A.CBL: in paragraph 'SORT-TEST-15': +SG106A.CBL:452: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG106A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG106A.CBL: in paragraph 'SORT-TEST-16': +SG106A.CBL:463: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +SG106A.CBL:484: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +SG106A.CBL: in section 'CONTINUE-TESTING': +SG106A.CBL: in paragraph 'SORT-WRITE-17': +SG106A.CBL:483: warning: GO TO SECTION 'OUTPROC-EXIT' +]) +AT_CHECK([./SG106A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SG201A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SG]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG201A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SG201A.CBL], [0], [], [SG201A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +SG201A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +SG201A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +SG201A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +SG201A.CBL:37: warning: SEGMENT LIMIT is obsolete in COBOL 85 +SG201A.CBL:46: warning: LABEL RECORDS is obsolete in COBOL 85 +SG201A.CBL:47: warning: DATA RECORDS is obsolete in COBOL 85 +SG201A.CBL: in section 'HOUSEKEEPING': +SG201A.CBL:175: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in section 'SECOND-HALF': +SG201A.CBL:1504: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in section '00': +SG201A.CBL:1596: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in section '01': +SG201A.CBL:1599: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in section '02': +SG201A.CBL:1602: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in section '03': +SG201A.CBL:1605: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in section '04': +SG201A.CBL:1608: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in section '05': +SG201A.CBL:1611: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in section '06': +SG201A.CBL:1614: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in section '30': +SG201A.CBL:1617: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-30C': +SG201A.CBL:1625: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '31': +SG201A.CBL:1628: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-31C': +SG201A.CBL:1636: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '32': +SG201A.CBL:1639: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-32C': +SG201A.CBL:1647: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '33': +SG201A.CBL:1650: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-33C': +SG201A.CBL:1658: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '34': +SG201A.CBL:1661: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-34C': +SG201A.CBL:1669: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '35': +SG201A.CBL:1672: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-35C': +SG201A.CBL:1680: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '36': +SG201A.CBL:1683: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-36C': +SG201A.CBL:1691: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '37': +SG201A.CBL:1694: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-37C': +SG201A.CBL:1702: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '38': +SG201A.CBL:1705: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-38C': +SG201A.CBL:1713: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '39': +SG201A.CBL:1716: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-39C': +SG201A.CBL:1724: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '40': +SG201A.CBL:1727: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-40C': +SG201A.CBL:1735: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '41': +SG201A.CBL:1738: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-41C': +SG201A.CBL:1746: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '42': +SG201A.CBL:1749: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-42C': +SG201A.CBL:1757: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '43': +SG201A.CBL:1760: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-43C': +SG201A.CBL:1768: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '44': +SG201A.CBL:1771: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-44C': +SG201A.CBL:1779: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '45': +SG201A.CBL:1782: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-45C': +SG201A.CBL:1790: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '46': +SG201A.CBL:1793: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-46C': +SG201A.CBL:1801: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '47': +SG201A.CBL:1804: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-47C': +SG201A.CBL:1812: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '48': +SG201A.CBL:1815: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-48C': +SG201A.CBL:1823: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '49': +SG201A.CBL:1826: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-49C': +SG201A.CBL:1834: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '50': +SG201A.CBL:1837: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-50B': +SG201A.CBL:1843: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '51': +SG201A.CBL:1846: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-51B': +SG201A.CBL:1852: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '52': +SG201A.CBL:1855: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-52B': +SG201A.CBL:1861: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '53': +SG201A.CBL:1864: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-53B': +SG201A.CBL:1870: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '54': +SG201A.CBL:1873: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-54B': +SG201A.CBL:1879: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '55': +SG201A.CBL:1882: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-55B': +SG201A.CBL:1888: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '56': +SG201A.CBL:1891: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-56B': +SG201A.CBL:1897: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '57': +SG201A.CBL:1900: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-57B': +SG201A.CBL:1906: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '58': +SG201A.CBL:1909: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-58B': +SG201A.CBL:1915: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '59': +SG201A.CBL:1918: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-59B': +SG201A.CBL:1924: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '60': +SG201A.CBL:1927: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-60B': +SG201A.CBL:1933: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '99': +SG201A.CBL:1936: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-99A': +SG201A.CBL:1940: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section 'HOUSEKEEPING': +SG201A.CBL: in paragraph 'PARAGRAPH-1': +SG201A.CBL:178: warning: GO TO paragraph 'SEG-TEST-1' which is defined in another SECTION +SG201A.CBL:285: note: 'SEG-TEST-1 IN RUN-THE-TESTS' defined here +SG201A.CBL: in section 'SECOND-HALF': +SG201A.CBL: in paragraph 'SEG-WRITE-79': +SG201A.CBL:1595: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SG201A.CBL:186: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SG201A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SG202A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SG]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG202A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SG202A.CBL], [0], [], [SG202A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +SG202A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +SG202A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +SG202A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +SG202A.CBL:35: warning: SEGMENT LIMIT is obsolete in COBOL 85 +SG202A.CBL:44: warning: LABEL RECORDS is obsolete in COBOL 85 +SG202A.CBL:45: warning: DATA RECORDS is obsolete in COBOL 85 +SG202A.CBL: in section 'SECT-SG-02-001': +SG202A.CBL:293: warning: section segments is obsolete in COBOL 85 +SG202A.CBL: in paragraph 'TEST-2': +SG202A.CBL:329: warning: ALTER is obsolete in COBOL 85 +SG202A.CBL: in section 'SEC28': +SG202A.CBL:383: warning: section segments is obsolete in COBOL 85 +SG202A.CBL: in section 'SEC39': +SG202A.CBL:399: warning: section segments is obsolete in COBOL 85 +SG202A.CBL: in paragraph 'P3902': +SG202A.CBL:403: warning: ALTER is obsolete in COBOL 85 +SG202A.CBL: in paragraph 'P3903': +SG202A.CBL:407: warning: ALTER is obsolete in COBOL 85 +SG202A.CBL: in section 'SEC40': +SG202A.CBL:411: warning: section segments is obsolete in COBOL 85 +SG202A.CBL: in section 'SEC45': +SG202A.CBL:421: warning: section segments is obsolete in COBOL 85 +SG202A.CBL: in section 'SEC48': +SG202A.CBL:426: warning: section segments is obsolete in COBOL 85 +SG202A.CBL: in section 'SEC00': +SG202A.CBL: in paragraph 'PARAGRAPH-NAME-1': +SG202A.CBL:187: warning: GO TO paragraph 'P0010' which is defined in another SECTION +SG202A.CBL:300: note: 'P0010 IN SECT-SG-02-001' defined here +SG202A.CBL: in section 'SECT-SG-02-001': +SG202A.CBL: in paragraph 'P0004': +SG202A.CBL:299: warning: GO TO paragraph 'P4801' which is defined in another SECTION +SG202A.CBL:427: note: 'P4801 IN SEC48' defined here +SG202A.CBL: in section 'SEC28': +SG202A.CBL: in paragraph 'CLOSE-ROUTINE': +SG202A.CBL:398: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SG202A.CBL:195: note: 'CLOSE-FILES IN CCVS1' defined here +SG202A.CBL: in section 'SEC45': +SG202A.CBL: in paragraph 'P4502': +SG202A.CBL:425: warning: GO TO paragraph 'P0003' which is defined in another SECTION +SG202A.CBL:295: note: 'P0003 IN SECT-SG-02-001' defined here +SG202A.CBL:347: warning: P4501 and P0003 are not in the same SECTION +SG202A.CBL:347: warning: P0003 is defined before P4501 +SG202A.CBL:422: note: 'P4501' defined here +SG202A.CBL:295: note: 'P0003' defined here +SG202A.CBL:365: warning: P0004 and P4802 are not in the same SECTION +]) +AT_CHECK([./SG202A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SG203A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SG]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG203A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SG203A.CBL], [0], [], [SG203A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +SG203A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +SG203A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +SG203A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +SG203A.CBL:33: warning: SEGMENT LIMIT is obsolete in COBOL 85 +SG203A.CBL:42: warning: LABEL RECORDS is obsolete in COBOL 85 +SG203A.CBL:43: warning: DATA RECORDS is obsolete in COBOL 85 +SG203A.CBL: in section 'SECT-SG-03-001': +SG203A.CBL:172: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '50': +SG203A.CBL:281: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '29': +SG203A.CBL:284: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '67': +SG203A.CBL:288: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '30': +SG203A.CBL:305: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '51': +SG203A.CBL:308: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '52': +SG203A.CBL:311: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '31': +SG203A.CBL:314: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '53': +SG203A.CBL:330: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '99': +SG203A.CBL:333: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'WRITE-99': +SG203A.CBL:351: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in section '54': +SG203A.CBL:353: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-54A': +SG203A.CBL:357: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-54B': +SG203A.CBL:360: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in section '32': +SG203A.CBL:362: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-32A': +SG203A.CBL:366: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in section '33': +SG203A.CBL:372: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '34': +SG203A.CBL:375: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-34A': +SG203A.CBL:379: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in section '55': +SG203A.CBL:381: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '56': +SG203A.CBL:398: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-56': +SG203A.CBL:400: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in section '57': +SG203A.CBL:418: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-57': +SG203A.CBL:421: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in section '59': +SG203A.CBL:430: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '01': +SG203A.CBL:437: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '02': +SG203A.CBL:454: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '35': +SG203A.CBL:473: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-35': +SG203A.CBL:475: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in section '36': +SG203A.CBL:494: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-36A': +SG203A.CBL:498: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in section '85': +SG203A.CBL:518: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '98': +SG203A.CBL:522: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '58': +SG203A.CBL:526: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-58D': +SG203A.CBL:538: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in section '37': +SG203A.CBL:541: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '38': +SG203A.CBL:559: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '03': +SG203A.CBL:577: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '39': +SG203A.CBL:597: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-39D': +SG203A.CBL:607: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in section '04': +SG203A.CBL:610: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '40': +SG203A.CBL:628: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '68': +SG203A.CBL:657: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-68A': +SG203A.CBL:661: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in section '41': +SG203A.CBL:686: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-41A': +SG203A.CBL:691: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in section 'TEST-16': +SG203A.CBL:708: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-41D': +SG203A.CBL:716: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in section 'TEST-16A': +SG203A.CBL:723: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '45': +SG203A.CBL:726: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '45A': +SG203A.CBL:739: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '45B': +SG203A.CBL:742: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-45C': +SG203A.CBL:744: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-45E': +SG203A.CBL:750: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in section '46': +SG203A.CBL:759: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section 'TEST-18': +SG203A.CBL:771: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-47': +SG203A.CBL:775: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in section '05': +SG203A.CBL:777: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-05': +SG203A.CBL:779: warning: GO TO without procedure-name is obsolete in COBOL 85 +SG203A.CBL: in section '69': +SG203A.CBL:784: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section 'SECT-SG-03-001': +SG203A.CBL: in paragraph 'INIT-SG203': +SG203A.CBL:175: warning: GO TO SECTION '50' +SG203A.CBL: in section '53': +SG203A.CBL: in paragraph 'PARA-53': +SG203A.CBL:332: warning: GO TO paragraph 'PARA-54' which is defined in another SECTION +SG203A.CBL:354: note: 'PARA-54 IN 54' defined here +SG203A.CBL: in section '99': +SG203A.CBL: in paragraph 'WRITE-99': +SG203A.CBL:352: warning: GO TO paragraph 'PARA-34' which is defined in another SECTION +SG203A.CBL:376: note: 'PARA-34 IN 34' defined here +SG203A.CBL: in section '54': +SG203A.CBL: in paragraph 'PARA-54B': +SG203A.CBL:361: warning: GO TO paragraph 'PARA-99' which is defined in another SECTION +SG203A.CBL:334: note: 'PARA-99 IN 99' defined here +SG203A.CBL: in section '34': +SG203A.CBL: in paragraph 'PARA-34A': +SG203A.CBL:380: warning: GO TO paragraph 'PARA-32' which is defined in another SECTION +SG203A.CBL:363: note: 'PARA-32 IN 32' defined here +SG203A.CBL: in section '56': +SG203A.CBL: in paragraph 'PARA-56': +SG203A.CBL:402: warning: GO TO paragraph 'PARA-32C' which is defined in another SECTION +SG203A.CBL:370: note: 'PARA-32C IN 32' defined here +SG203A.CBL: in section '35': +SG203A.CBL: in paragraph 'PARA-35': +SG203A.CBL:477: warning: GO TO paragraph 'PARA-32' which is defined in another SECTION +SG203A.CBL:363: note: 'PARA-32 IN 32' defined here +SG203A.CBL: in section '36': +SG203A.CBL: in paragraph 'PARA-36A': +SG203A.CBL:500: warning: GO TO SECTION '85' +SG203A.CBL: in paragraph 'WRITE-36': +SG203A.CBL:517: warning: GO TO paragraph 'PARA-58' which is defined in another SECTION +SG203A.CBL:527: note: 'PARA-58 IN 58' defined here +SG203A.CBL: in section '85': +SG203A.CBL: in paragraph 'PARA-85': +SG203A.CBL:521: warning: GO TO SECTION '36' +SG203A.CBL: in section '98': +SG203A.CBL: in paragraph 'PARA-98': +SG203A.CBL:525: warning: GO TO paragraph 'PARA-37' which is defined in another SECTION +SG203A.CBL:542: note: 'PARA-37 IN 37' defined here +SG203A.CBL: in section '40': +SG203A.CBL: in paragraph 'PARA-40': +SG203A.CBL:630: warning: GO TO paragraph 'PARA-68' which is defined in another SECTION +SG203A.CBL:658: note: 'PARA-68 IN 68' defined here +SG203A.CBL: in paragraph 'PARA-40A': +SG203A.CBL:632: warning: GO TO paragraph 'PARA-68' which is defined in another SECTION +SG203A.CBL:658: note: 'PARA-68 IN 68' defined here +SG203A.CBL: in paragraph 'WRITE-40': +SG203A.CBL:650: warning: GO TO paragraph 'PARA-68C' which is defined in another SECTION +SG203A.CBL:672: note: 'PARA-68C IN 68' defined here +SG203A.CBL: in section '68': +SG203A.CBL: in paragraph 'PARA-68A': +SG203A.CBL:665: warning: GO TO paragraph 'PARA-40A' which is defined in another SECTION +SG203A.CBL:631: note: 'PARA-40A IN 40' defined here +SG203A.CBL:666: warning: GO TO paragraph 'PARA-40B' which is defined in another SECTION +SG203A.CBL:633: note: 'PARA-40B IN 40' defined here +SG203A.CBL: in paragraph 'PARA-68B': +SG203A.CBL:671: warning: GO TO paragraph 'PARA-40B' which is defined in another SECTION +SG203A.CBL:633: note: 'PARA-40B IN 40' defined here +SG203A.CBL: in section '41': +SG203A.CBL: in paragraph 'WRITE-41': +SG203A.CBL:707: warning: GO TO SECTION '45' +SG203A.CBL: in section '45': +SG203A.CBL: in paragraph 'PARA-45A': +SG203A.CBL:735: warning: GO TO SECTION '45A' +SG203A.CBL: in paragraph 'DELETE-45': +SG203A.CBL:738: warning: GO TO paragraph 'WRITE-46' which is defined in another SECTION +SG203A.CBL:767: note: 'WRITE-46 IN 46' defined here +SG203A.CBL: in section '45A': +SG203A.CBL: in paragraph 'PARA-45B': +SG203A.CBL:741: warning: GO TO paragraph 'PARA-45D' which is defined in another SECTION +SG203A.CBL:745: note: 'PARA-45D IN 45B' defined here +SG203A.CBL: in section 'TEST-18': +SG203A.CBL: in paragraph 'PARA-47': +SG203A.CBL:776: warning: GO TO SECTION '05' +SG203A.CBL: in section '05': +SG203A.CBL: in paragraph 'PARA-05A': +SG203A.CBL:783: warning: GO TO paragraph 'WRITE-69' which is defined in another SECTION +SG203A.CBL:787: note: 'WRITE-69 IN 69' defined here +SG203A.CBL: in section '69': +SG203A.CBL: in paragraph 'WRITE-69': +SG203A.CBL:792: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SG203A.CBL:183: note: 'CLOSE-FILES IN CCVS1' defined here +SG203A.CBL:335: warning: PARA-32 and PARA-33 are not in the same SECTION +]) +AT_CHECK([./SG203A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SG204A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SG]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG204A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SG204A.CBL], [0], [], [SG204A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +SG204A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +SG204A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +SG204A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +SG204A.CBL:70: warning: LABEL RECORDS is obsolete in COBOL 85 +SG204A.CBL:71: warning: DATA RECORDS is obsolete in COBOL 85 +SG204A.CBL:75: warning: LABEL RECORDS is obsolete in COBOL 85 +SG204A.CBL:79: warning: VALUE OF is obsolete in COBOL 85 +SG204A.CBL:81: warning: DATA RECORDS is obsolete in COBOL 85 +SG204A.CBL:85: warning: LABEL RECORDS is obsolete in COBOL 85 +SG204A.CBL:89: warning: VALUE OF is obsolete in COBOL 85 +SG204A.CBL:91: warning: DATA RECORDS is obsolete in COBOL 85 +SG204A.CBL:100: warning: LABEL RECORDS is obsolete in COBOL 85 +SG204A.CBL:104: warning: VALUE OF is obsolete in COBOL 85 +SG204A.CBL:105: warning: DATA RECORDS is obsolete in COBOL 85 +SG204A.CBL:115: warning: DATA RECORDS is obsolete in COBOL 85 +SG204A.CBL:123: warning: DATA RECORDS is obsolete in COBOL 85 +SG204A.CBL:132: warning: DATA RECORDS is obsolete in COBOL 85 +SG204A.CBL: in section 'SRT-1': +SG204A.CBL:419: warning: section segments is obsolete in COBOL 85 +SG204A.CBL: in section 'SRT-2': +SG204A.CBL:428: warning: section segments is obsolete in COBOL 85 +SG204A.CBL: in section 'SRT-2-INPUT': +SG204A.CBL:438: warning: section segments is obsolete in COBOL 85 +SG204A.CBL: in section 'SRT3-INPUT': +SG204A.CBL:588: warning: section segments is obsolete in COBOL 85 +SG204A.CBL: in section 'SRT3-OUTPUT-1': +SG204A.CBL:728: warning: section segments is obsolete in COBOL 85 +SG204A.CBL: in section 'SRT3-OUTPUT-2': +SG204A.CBL:835: warning: section segments is obsolete in COBOL 85 +SG204A.CBL: in section 'END-CCVS': +SG204A.CBL:875: warning: section segments is obsolete in COBOL 85 +SG204A.CBL: in section 'CCVS1': +SG204A.CBL: in paragraph 'P3-CREATE-F1': +SG204A.CBL:400: warning: GO TO paragraph 'FIRST-SORT' which is defined in another SECTION +SG204A.CBL:420: note: 'FIRST-SORT IN SRT-1' defined here +SG204A.CBL: in section 'SRT-2': +SG204A.CBL: in paragraph 'SECOND-SORT': +SG204A.CBL:437: warning: GO TO SECTION 'SRT-3' +SG204A.CBL: in section 'SRT-3': +SG204A.CBL: in paragraph 'END-FIRST-PROGRAM': +SG204A.CBL:587: warning: GO TO SECTION 'CCVS-EXIT' +SG204A.CBL: in section 'SRT3-OUTPUT-1': +SG204A.CBL: in paragraph 'CLOSE-3': +SG204A.CBL:834: warning: GO TO paragraph 'EXIT-3' which is defined in another SECTION +SG204A.CBL:873: note: 'EXIT-3 IN SRT3-OUTPUT-2' defined here +SG204A.CBL: in section 'SRT3-OUTPUT-2': +SG204A.CBL: in paragraph 'TERMINAL-3': +SG204A.CBL:849: warning: GO TO paragraph 'CLOSE-3' which is defined in another SECTION +SG204A.CBL:833: note: 'CLOSE-3 IN SRT3-OUTPUT-1' defined here +SG204A.CBL: in section 'CCVS-EXIT': +SG204A.CBL: in paragraph 'CCVS-999999': +SG204A.CBL:878: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SG204A.CBL:292: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SG204A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SG302M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SG]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG302M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SG302M.CBL], [0], [], [SG302M.CBL: in section 'BEANO': +SG302M.CBL:16: warning: section segments is obsolete in COBOL 85 +]) +AT_CHECK([./SG302M], [0], [THIS IS A DUMMY PARAGRAPH +], []) + +AT_CLEANUP + + +AT_SETUP([SG303M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SG]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG303M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SG303M.CBL], [0], [], [SG303M.CBL:12: warning: SEGMENT LIMIT is obsolete in COBOL 85 +SG303M.CBL: in section 'NUMBER1': +SG303M.CBL:17: warning: section segments is obsolete in COBOL 85 +SG303M.CBL: in section 'NUMBER2': +SG303M.CBL:23: warning: section segments is obsolete in COBOL 85 +SG303M.CBL: in section 'NUMBER3': +SG303M.CBL:29: warning: section segments is obsolete in COBOL 85 +]) +AT_CHECK([./SG303M], [0], [THIS IS A DUMMY PARAGRAPH +THIS IS A DUMMY PARAGRAPH TOO! +], []) + +AT_CLEANUP + + +AT_SETUP([SG401M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SG]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG401M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SG401M.CBL], [0], [], [SG401M.CBL:12: warning: SEGMENT LIMIT is obsolete in COBOL 85 +SG401M.CBL: in section 'NUMBER1': +SG401M.CBL:19: warning: section segments is obsolete in COBOL 85 +SG401M.CBL: in section 'NUMBER2': +SG401M.CBL:24: warning: section segments is obsolete in COBOL 85 +SG401M.CBL: in section 'NUMBER3': +SG401M.CBL:29: warning: section segments is obsolete in COBOL 85 +]) +AT_CHECK([./SG401M], [0], [THIS IS A DUMMY PARAGRAPH +THIS IS A DUMMY PARAGRAPH TOO! +], []) + +AT_CLEANUP diff --git a/tests/cobol85/nistrun.src/run_SM.at b/tests/cobol85/nistrun.src/run_SM.at new file mode 100644 index 000000000..236c726dc --- /dev/null +++ b/tests/cobol85/nistrun.src/run_SM.at @@ -0,0 +1,313 @@ + +# Generates XXXXX01 +AT_SETUP([SM101A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SM]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM101A.CBL SM101A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy SM101A.CBL], [0], [], [/home/lefessan/GIT/COBOL/gnucobol/_build/tests/cobol85/copy/K1FDA:1: warning: LABEL RECORDS is obsolete in COBOL 85 +/home/lefessan/GIT/COBOL/gnucobol/_build/tests/cobol85/copy/K1FDA:2: warning: DATA RECORDS is obsolete in COBOL 85 +SM101A.CBL: in section 'CCVS-EXIT': +SM101A.CBL: in paragraph 'CCVS-999999': +SM101A.CBL:567: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SM101A.CBL:279: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SM101A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([SM102A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SM]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM101A.CBL SM101A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy SM101A.CBL], [0], [], [/home/lefessan/GIT/COBOL/gnucobol/_build/tests/cobol85/copy/K1FDA:1: warning: LABEL RECORDS is obsolete in COBOL 85 +/home/lefessan/GIT/COBOL/gnucobol/_build/tests/cobol85/copy/K1FDA:2: warning: DATA RECORDS is obsolete in COBOL 85 +SM101A.CBL: in section 'CCVS-EXIT': +SM101A.CBL: in paragraph 'CCVS-999999': +SM101A.CBL:567: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SM101A.CBL:279: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SM101A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM102A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy SM102A.SUB], [0], [], [SM102A.SUB:45: warning: LABEL RECORDS is obsolete in COBOL 85 +SM102A.SUB:46: warning: DATA RECORDS is obsolete in COBOL 85 +SM102A.SUB: in section 'FD-TEST': +SM102A.SUB: in paragraph 'COPY-WRITE-11': +SM102A.SUB:375: warning: GO TO SECTION 'CCVS-EXIT' +SM102A.SUB: in section 'CCVS-EXIT': +SM102A.SUB: in paragraph 'CCVS-999999': +SM102A.SUB:386: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SM102A.SUB:200: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SM102A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([SM103A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SM]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM103A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy SM103A.CBL], [0], [], [SM103A.CBL:32: warning: SECURITY is obsolete in COBOL 85 +SM103A.CBL:108: warning: LABEL RECORDS is obsolete in COBOL 85 +SM103A.CBL:109: warning: DATA RECORDS is obsolete in COBOL 85 +SM103A.CBL:115: warning: LABEL RECORDS is obsolete in COBOL 85 +SM103A.CBL:116: warning: DATA RECORDS is obsolete in COBOL 85 +SM103A.CBL: in section 'BUILD': +SM103A.CBL: in paragraph 'COPY-DELETE-4': +SM103A.CBL:489: warning: GO TO SECTION 'CCVS-EXIT' +SM103A.CBL: in section 'CCVS-EXIT': +SM103A.CBL: in paragraph 'CCVS-999999': +SM103A.CBL:543: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SM103A.CBL:292: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SM103A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SM104A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SM]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM101A.CBL SM101A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy SM101A.CBL], [0], [], [/home/lefessan/GIT/COBOL/gnucobol/_build/tests/cobol85/copy/K1FDA:1: warning: LABEL RECORDS is obsolete in COBOL 85 +/home/lefessan/GIT/COBOL/gnucobol/_build/tests/cobol85/copy/K1FDA:2: warning: DATA RECORDS is obsolete in COBOL 85 +SM101A.CBL: in section 'CCVS-EXIT': +SM101A.CBL: in paragraph 'CCVS-999999': +SM101A.CBL:567: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SM101A.CBL:279: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SM101A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM104A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy SM104A.SUB], [0], [], [SM104A.SUB:48: warning: LABEL RECORDS is obsolete in COBOL 85 +SM104A.SUB:49: warning: DATA RECORDS is obsolete in COBOL 85 +SM104A.SUB: in section 'ENVIRONMENT-TEST': +SM104A.SUB: in paragraph 'COPY-WRITE-7': +SM104A.SUB:431: warning: GO TO SECTION 'CCVS-EXIT' +SM104A.SUB: in section 'CCVS-EXIT': +SM104A.SUB: in paragraph 'CCVS-999999': +SM104A.SUB:442: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SM104A.SUB:204: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SM104A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([SM105A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SM]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM105A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy SM105A.CBL], [0], [], [/home/lefessan/GIT/COBOL/gnucobol/_build/tests/cobol85/copy/K5SDA:1: warning: DATA RECORDS is obsolete in COBOL 85 +SM105A.CBL:76: warning: LABEL RECORDS is obsolete in COBOL 85 +SM105A.CBL:77: warning: DATA RECORDS is obsolete in COBOL 85 +SM105A.CBL: in section 'SORT-INIT': +SM105A.CBL: in paragraph 'I-2': +SM105A.CBL:354: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SM105A.CBL:239: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SM105A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SM106A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SM]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM106A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy SM106A.CBL], [0], [], [/home/lefessan/GIT/COBOL/gnucobol/_build/tests/cobol85/copy/K6SCA: in section 'CCVS-EXIT': +/home/lefessan/GIT/COBOL/gnucobol/_build/tests/cobol85/copy/K6SCA: in paragraph 'CCVS-999999': +/home/lefessan/GIT/COBOL/gnucobol/_build/tests/cobol85/copy/K6SCA:288: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +/home/lefessan/GIT/COBOL/gnucobol/_build/tests/cobol85/copy/K6SCA:165: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SM106A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SM107A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SM]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM107A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy SM107A.CBL], [0], [], [SM107A.CBL: in section 'CCVS-EXIT': +SM107A.CBL: in paragraph 'CCVS-999999': +SM107A.CBL:310: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SM107A.CBL:191: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SM107A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SM201A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SM]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM201A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy SM201A.CBL], [0], [], [/home/lefessan/GIT/COBOL/gnucobol/_build/tests/cobol85/copy/K1FDA:1: warning: LABEL RECORDS is obsolete in COBOL 85 +/home/lefessan/GIT/COBOL/gnucobol/_build/tests/cobol85/copy/K1FDA:2: warning: DATA RECORDS is obsolete in COBOL 85 +SM201A.CBL: in section 'CCVS-EXIT': +SM201A.CBL: in paragraph 'CCVS-999999': +SM201A.CBL:632: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SM201A.CBL:317: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SM201A], [0], [], []) + +AT_CLEANUP + +# TODO: This one fails with non-empty stderr at compile time, ignore for now +AT_SETUP([SM202A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SM]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM101A.CBL SM101A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy SM101A.CBL], [0], [], [/home/lefessan/GIT/COBOL/gnucobol/_build/tests/cobol85/copy/K1FDA:1: warning: LABEL RECORDS is obsolete in COBOL 85 +/home/lefessan/GIT/COBOL/gnucobol/_build/tests/cobol85/copy/K1FDA:2: warning: DATA RECORDS is obsolete in COBOL 85 +SM101A.CBL: in section 'CCVS-EXIT': +SM101A.CBL: in paragraph 'CCVS-999999': +SM101A.CBL:567: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SM101A.CBL:279: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SM101A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM202A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -Wno-obsolete -std=cobol85 -I ${abs_builddir}/cobol85/copy SM202A.SUB], [0], []) +AT_CHECK([./SM202A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([SM203A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SM]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM203A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy SM203A.CBL], [0], [], [SM203A.CBL:75: warning: LABEL RECORDS is obsolete in COBOL 85 +SM203A.CBL:76: warning: DATA RECORDS is obsolete in COBOL 85 +SM203A.CBL: in section 'CCVS-EXIT': +SM203A.CBL: in paragraph 'CCVS-999999': +SM203A.CBL:372: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SM203A.CBL:237: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SM203A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SM204A]) +# promoted on 2023-02-04T15:45 +AT_KEYWORDS([SM]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM101A.CBL SM101A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy SM101A.CBL], [0], [], [/home/lefessan/GIT/COBOL/gnucobol/_build/tests/cobol85/copy/K1FDA:1: warning: LABEL RECORDS is obsolete in COBOL 85 +/home/lefessan/GIT/COBOL/gnucobol/_build/tests/cobol85/copy/K1FDA:2: warning: DATA RECORDS is obsolete in COBOL 85 +SM101A.CBL: in section 'CCVS-EXIT': +SM101A.CBL: in paragraph 'CCVS-999999': +SM101A.CBL:567: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SM101A.CBL:279: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SM101A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM203A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy SM203A.CBL], [0], [], [SM203A.CBL:75: warning: LABEL RECORDS is obsolete in COBOL 85 +SM203A.CBL:76: warning: DATA RECORDS is obsolete in COBOL 85 +SM203A.CBL: in section 'CCVS-EXIT': +SM203A.CBL: in paragraph 'CCVS-999999': +SM203A.CBL:372: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SM203A.CBL:237: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SM203A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM204A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy SM204A.SUB], [0], [], [SM204A.SUB:48: warning: LABEL RECORDS is obsolete in COBOL 85 +SM204A.SUB:49: warning: DATA RECORDS is obsolete in COBOL 85 +SM204A.SUB: in section 'INITIALIZATION': +SM204A.SUB: in paragraph 'COPY-WRITE-5': +SM204A.SUB:378: warning: GO TO SECTION 'CCVS-EXIT' +SM204A.SUB: in paragraph 'BAD-FILE': +SM204A.SUB:387: warning: GO TO SECTION 'CCVS-EXIT' +SM204A.SUB: in section 'CCVS-EXIT': +SM204A.SUB: in paragraph 'CCVS-999999': +SM204A.SUB:390: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SM204A.SUB:203: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SM204A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([SM205A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SM]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM205A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy SM205A.CBL], [0], [], [/home/lefessan/GIT/COBOL/gnucobol/_build/tests/cobol85/copy/K5SDB:1: warning: DATA RECORDS is obsolete in COBOL 85 +SM205A.CBL:81: warning: LABEL RECORDS is obsolete in COBOL 85 +SM205A.CBL:82: warning: DATA RECORDS is obsolete in COBOL 85 +SM205A.CBL: in section 'SORT-INIT': +SM205A.CBL: in paragraph 'I-2': +SM205A.CBL:361: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SM205A.CBL:246: note: 'CLOSE-FILES IN CCVS1' defined here +SM205A.CBL: in section 'OUTP2': +SM205A.CBL: in paragraph 'COPY-WRITE-9': +SM205A.CBL:545: warning: GO TO paragraph 'LIB2E-EXIT' which is defined in another SECTION +SM205A.CBL:613: note: 'LIB2E-EXIT IN OUTP3' defined here +]) +AT_CHECK([./SM205A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SM206A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SM]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM206A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy -x -fdebugging-line -debug SM206A.CBL], [0], [], [SM206A.CBL: in section 'SECT-SM206-0002': +SM206A.CBL: in paragraph 'PST-WRITE-006': +SM206A.CBL:550: warning: value size exceeds data size +SM206A.CBL:550: note: value size is 21 +SM206A.CBL:76: note: 'FEATURE' defined here as PIC X(20) +SM206A.CBL: in paragraph 'PST-DELETE-11': +SM206A.CBL:667: warning: GO TO SECTION 'CCVS-EXIT' +SM206A.CBL: in section 'CCVS-EXIT': +SM206A.CBL: in paragraph 'CCVS-999999': +SM206A.CBL:709: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SM206A.CBL:223: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SM206A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SM207A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SM]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM207A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy SM207A.CBL], [0], [], [SM207A.CBL: in section 'CCVS-EXIT': +SM207A.CBL: in paragraph 'CCVS-999999': +SM207A.CBL:360: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SM207A.CBL:202: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SM207A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SM208A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SM]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM208A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy SM208A.CBL], [0], [], [SM208A.CBL: in section 'SECT-SM208A-001': +SM208A.CBL: in paragraph 'REP-DELETE-9': +SM208A.CBL:626: warning: GO TO SECTION 'CCVS-EXIT' +SM208A.CBL: in section 'CCVS-EXIT': +SM208A.CBL: in paragraph 'CCVS-999999': +SM208A.CBL:640: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SM208A.CBL:218: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SM208A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SM301M]) +AT_KEYWORDS([SM]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM301M.CBL .],[0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy SM301M.CBL], [0], [], []) +AT_CHECK([./SM301M], [0], +[ +], []) +AT_CLEANUP + +AT_SETUP([SM401M]) + +AT_KEYWORDS([SM]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM401M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy SM401M.CBL], [0], [], []) +AT_CHECK([./SM401M], [0], [COW SHEEP PIG HORSE LAMB DOG CAT +], []) + +AT_CLEANUP diff --git a/tests/cobol85/nistrun.src/run_SQ.at b/tests/cobol85/nistrun.src/run_SQ.at new file mode 100644 index 000000000..36c897add --- /dev/null +++ b/tests/cobol85/nistrun.src/run_SQ.at @@ -0,0 +1,1324 @@ + +AT_SETUP([SQ101M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ101M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ101M.CBL], [0], [], [SQ101M.CBL: in section 'SECT-SQ101-0001': +SQ101M.CBL: in paragraph 'SQ-END-ROUTINE': +SQ101M.CBL:1819: warning: GO TO SECTION 'CCVS-EXIT' +SQ101M.CBL: in section 'CCVS-EXIT': +SQ101M.CBL: in paragraph 'CCVS-999999': +SQ101M.CBL:1834: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ101M.CBL:417: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ101M], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ102A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ102A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ102A.CBL], [0], [], [SQ102A.CBL: in section 'CCVS-EXIT': +SQ102A.CBL: in paragraph 'CCVS-999999': +SQ102A.CBL:793: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ102A.CBL:304: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ102A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ103A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ103A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ103A.CBL], [0], [], [SQ103A.CBL: in section 'CCVS-EXIT': +SQ103A.CBL: in paragraph 'CCVS-999999': +SQ103A.CBL:1007: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ103A.CBL:329: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ103A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ104A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ104A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ104A.CBL], [0], [], [SQ104A.CBL: in section 'CCVS-EXIT': +SQ104A.CBL: in paragraph 'CCVS-999999': +SQ104A.CBL:796: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ104A.CBL:307: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ104A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ105A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ105A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ105A.CBL], [0], [], [SQ105A.CBL:71: warning: DATA RECORDS is obsolete in COBOL 85 +SQ105A.CBL: in section 'CCVS-EXIT': +SQ105A.CBL: in paragraph 'CCVS-999999': +SQ105A.CBL:1126: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ105A.CBL:345: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ105A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ106A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ106A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ106A.CBL], [0], [], [SQ106A.CBL: in section 'CCVS-EXIT': +SQ106A.CBL: in paragraph 'CCVS-999999': +SQ106A.CBL:2611: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ106A.CBL:348: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ106A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ107A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ107A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ107A.CBL], [0], [], [SQ107A.CBL: in section 'CCVS-EXIT': +SQ107A.CBL: in paragraph 'CCVS-999999': +SQ107A.CBL:659: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ107A.CBL:268: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ107A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ108A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ108A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ108A.CBL], [0], [], [SQ108A.CBL: in section 'CCVS-EXIT': +SQ108A.CBL: in paragraph 'CCVS-999999': +SQ108A.CBL:750: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ108A.CBL:262: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ108A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ109M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ109M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ109M.CBL], [0], [], [SQ109M.CBL: in section 'SECT-SQ109-0001': +SQ109M.CBL: in paragraph 'READ-INIT-GF-01': +SQ109M.CBL:430: warning: value size exceeds data size +SQ109M.CBL:430: note: value size is 24 +SQ109M.CBL:115: note: 'FEATURE' defined here as PIC X(20) +SQ109M.CBL: in section 'CCVS-EXIT': +SQ109M.CBL: in paragraph 'CCVS-999999': +SQ109M.CBL:565: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ109M.CBL:250: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ109M], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ110M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ110M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ110M.CBL], [0], [], [SQ110M.CBL: in section 'SECT-SQ110M-0001': +SQ110M.CBL: in paragraph 'READ-INIT-GF-01': +SQ110M.CBL:428: warning: value size exceeds data size +SQ110M.CBL:428: note: value size is 24 +SQ110M.CBL:117: note: 'FEATURE' defined here as PIC X(20) +SQ110M.CBL: in section 'CCVS-EXIT': +SQ110M.CBL: in paragraph 'CCVS-999999': +SQ110M.CBL:564: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ110M.CBL:252: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ110M], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ111A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ111A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ111A.CBL], [0], [], [SQ111A.CBL:55: note: ignoring CODE-SET 'TAPE-CHARACTER-SET' +SQ111A.CBL: in section 'SECT-SQ111A-0001': +SQ111A.CBL: in paragraph 'WRITE-TEST-GF-01': +SQ111A.CBL:378: warning: value size exceeds data size +SQ111A.CBL:378: note: value size is 31 +SQ111A.CBL:60: note: 'SQ-FS1-FILLER' defined here as PIC X(30) +SQ111A.CBL: in section 'CCVS-EXIT': +SQ111A.CBL: in paragraph 'CCVS-999999': +SQ111A.CBL:442: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ111A.CBL:262: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ111A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ112A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ112A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ112A.CBL], [0], [], [SQ112A.CBL: in section 'SECT-SQ112A-0003': +SQ112A.CBL: in paragraph 'READ-INIT-GF-03': +SQ112A.CBL:501: warning: value size exceeds data size +SQ112A.CBL:501: note: value size is 24 +SQ112A.CBL:120: note: 'FEATURE' defined here as PIC X(20) +SQ112A.CBL: in section 'CCVS-EXIT': +SQ112A.CBL: in paragraph 'CCVS-999999': +SQ112A.CBL:637: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ112A.CBL:255: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ112A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ113A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ113A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ113A.CBL], [0], [], [SQ113A.CBL: in section 'CCVS-EXIT': +SQ113A.CBL: in paragraph 'CCVS-999999': +SQ113A.CBL:974: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ113A.CBL:319: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ113A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ114A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ114A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ114A.CBL], [0], [], [SQ114A.CBL: in section 'SECT-SQ102-0001': +SQ114A.CBL: in paragraph 'OPEN-WRITE-GF-01': +SQ114A.CBL:418: warning: value size exceeds data size +SQ114A.CBL:418: note: value size is 21 +SQ114A.CBL:144: note: 'FEATURE' defined here as PIC X(20) +SQ114A.CBL: in paragraph 'READ-INIT-GF-01': +SQ114A.CBL:483: warning: value size exceeds data size +SQ114A.CBL:483: note: value size is 24 +SQ114A.CBL:144: note: 'FEATURE' defined here as PIC X(20) +SQ114A.CBL: in section 'SECT-SQ104-0001': +SQ114A.CBL: in paragraph 'READ-INIT-GF-07': +SQ114A.CBL:710: warning: value size exceeds data size +SQ114A.CBL:710: note: value size is 24 +SQ114A.CBL:144: note: 'FEATURE' defined here as PIC X(20) +SQ114A.CBL: in paragraph 'OPEN-WRITE-GF-03': +SQ114A.CBL:871: warning: value size exceeds data size +SQ114A.CBL:871: note: value size is 23 +SQ114A.CBL:144: note: 'FEATURE' defined here as PIC X(20) +SQ114A.CBL: in section 'CCVS-EXIT': +SQ114A.CBL: in paragraph 'CCVS-999999': +SQ114A.CBL:909: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ114A.CBL:279: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ114A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([SQ115A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ115A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ115A.CBL], [0], [], [SQ115A.CBL: in section 'CCVS-EXIT': +SQ115A.CBL: in paragraph 'CCVS-999999': +SQ115A.CBL:535: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ115A.CBL:250: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ115A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ116A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ116A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ116A.CBL], [0], [], [SQ116A.CBL: in section 'SECT-SQ116A-0001': +SQ116A.CBL: in paragraph 'REWRITE-WRITE-GF-03': +SQ116A.CBL:663: warning: value size exceeds data size +SQ116A.CBL:663: note: value size is 21 +SQ116A.CBL:129: note: 'FEATURE' defined here as PIC X(20) +SQ116A.CBL: in section 'CCVS-EXIT': +SQ116A.CBL: in paragraph 'CCVS-999999': +SQ116A.CBL:908: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ116A.CBL:264: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ116A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ117A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ117A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ117A.CBL], [0], [], [SQ117A.CBL: in section 'SECT-SQ117A-0001': +SQ117A.CBL: in paragraph 'WRITE-INIT-GF-03': +SQ117A.CBL:522: warning: value size exceeds data size +SQ117A.CBL:522: note: value size is 22 +SQ117A.CBL:126: note: 'FEATURE' defined here as PIC X(20) +SQ117A.CBL: in paragraph 'WRITE-WRITE-GF-04': +SQ117A.CBL:610: warning: value size exceeds data size +SQ117A.CBL:610: note: value size is 28 +SQ117A.CBL:126: note: 'FEATURE' defined here as PIC X(20) +SQ117A.CBL: in paragraph 'WRITE-WRITE-GF-05': +SQ117A.CBL:652: warning: value size exceeds data size +SQ117A.CBL:652: note: value size is 28 +SQ117A.CBL:126: note: 'FEATURE' defined here as PIC X(20) +SQ117A.CBL: in paragraph 'WRITE-WRITE-GF-06': +SQ117A.CBL:694: warning: value size exceeds data size +SQ117A.CBL:694: note: value size is 28 +SQ117A.CBL:126: note: 'FEATURE' defined here as PIC X(20) +SQ117A.CBL: in paragraph 'WRITE-WRITE-GF-07': +SQ117A.CBL:737: warning: value size exceeds data size +SQ117A.CBL:737: note: value size is 23 +SQ117A.CBL:126: note: 'FEATURE' defined here as PIC X(20) +SQ117A.CBL: in section 'CCVS-EXIT': +SQ117A.CBL: in paragraph 'CCVS-999999': +SQ117A.CBL:768: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ117A.CBL:261: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ117A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ121A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ121A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ121A.CBL], [0], [], [SQ121A.CBL: in section 'CCVS-EXIT': +SQ121A.CBL: in paragraph 'CCVS-999999': +SQ121A.CBL:559: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ121A.CBL:272: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ121A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ122A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ122A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ122A.CBL], [0], [], [SQ122A.CBL: in section 'CCVS-EXIT': +SQ122A.CBL: in paragraph 'CCVS-999999': +SQ122A.CBL:752: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ122A.CBL:408: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ122A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([SQ123A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ123A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ123A.CBL], [0], [], [SQ123A.CBL: in section 'CCVS-EXIT': +SQ123A.CBL: in paragraph 'CCVS-999999': +SQ123A.CBL:856: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ123A.CBL:439: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ123A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ124A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ124A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ124A.CBL], [0], [], [SQ124A.CBL: in section 'CCVS-EXIT': +SQ124A.CBL: in paragraph 'CCVS-999999': +SQ124A.CBL:1144: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ124A.CBL:345: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ124A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ125A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ125A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ125A.CBL], [0], [], [SQ125A.CBL: in section 'CCVS-EXIT': +SQ125A.CBL: in paragraph 'CCVS-999999': +SQ125A.CBL:596: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ125A.CBL:402: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ125A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([SQ126A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ126A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ126A.CBL], [0], [], [SQ126A.CBL: in section 'CCVS-EXIT': +SQ126A.CBL: in paragraph 'CCVS-999999': +SQ126A.CBL:686: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ126A.CBL:300: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ126A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ127A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ127A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ127A.CBL], [0], [], [SQ127A.CBL: in section 'SECT-SQ127A-0001': +SQ127A.CBL: in paragraph 'READ-INIT-GF-02': +SQ127A.CBL:433: warning: value size exceeds data size +SQ127A.CBL:433: note: value size is 24 +SQ127A.CBL:124: note: 'FEATURE' defined here as PIC X(20) +SQ127A.CBL: in section 'CCVS-EXIT': +SQ127A.CBL: in paragraph 'CCVS-999999': +SQ127A.CBL:569: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ127A.CBL:259: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ127A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ128A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ128A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ128A.CBL], [0], [], [SQ128A.CBL:39: warning: DATA RECORDS is obsolete in COBOL 85 +SQ128A.CBL:43: warning: DATA RECORDS is obsolete in COBOL 85 +SQ128A.CBL:46: warning: LABEL RECORDS is obsolete in COBOL 85 +SQ128A.CBL:48: warning: DATA RECORDS is obsolete in COBOL 85 +SQ128A.CBL: in section 'SECT-SQ128A-0001': +SQ128A.CBL: in paragraph 'OPEN-INIT-GF-01': +SQ128A.CBL:346: warning: value size exceeds data size +SQ128A.CBL:346: note: value size is 6 +SQ128A.CBL:82: note: 'XPROGRAM-NAME' defined here as PIC X(5) +SQ128A.CBL:346: warning: value size exceeds data size +SQ128A.CBL:347: note: value size is 6 +SQ128A.CBL:82: note: 'XPROGRAM-NAME' defined here as PIC X(5) +SQ128A.CBL:346: warning: value size exceeds data size +SQ128A.CBL:348: note: value size is 6 +SQ128A.CBL:82: note: 'XPROGRAM-NAME' defined here as PIC X(5) +SQ128A.CBL: in section 'CCVS-EXIT': +SQ128A.CBL: in paragraph 'CCVS-999999': +SQ128A.CBL:502: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ128A.CBL:240: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ128A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ129A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ129A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ129A.CBL], [0], [], [SQ129A.CBL: in section 'CCVS-EXIT': +SQ129A.CBL: in paragraph 'CCVS-999999': +SQ129A.CBL:577: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ129A.CBL:411: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ129A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ130A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ130A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ130A.CBL], [0], [], [SQ130A.CBL: in section 'CCVS-EXIT': +SQ130A.CBL: in paragraph 'CCVS-999999': +SQ130A.CBL:476: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ130A.CBL:292: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ130A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ131A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ131A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ131A.CBL], [0], [], [SQ131A.CBL: in section 'CCVS-EXIT': +SQ131A.CBL: in paragraph 'CCVS-999999': +SQ131A.CBL:535: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ131A.CBL:305: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ131A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([SQ132A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ132A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ132A.CBL], [0], [], [SQ132A.CBL: in section 'CCVS-EXIT': +SQ132A.CBL: in paragraph 'CCVS-999999': +SQ132A.CBL:578: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ132A.CBL:403: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ132A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ133A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ133A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ133A.CBL], [0], [], [SQ133A.CBL: in section 'CCVS-EXIT': +SQ133A.CBL: in paragraph 'CCVS-999999': +SQ133A.CBL:1065: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ133A.CBL:463: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ133A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([SQ134A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ134A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ134A.CBL], [0], [], [SQ134A.CBL: in section 'CCVS-EXIT': +SQ134A.CBL: in paragraph 'CCVS-999999': +SQ134A.CBL:1042: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ134A.CBL:505: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ134A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([SQ135A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ135A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ135A.CBL], [0], [], [SQ135A.CBL: in section 'CCVS-EXIT': +SQ135A.CBL: in paragraph 'CCVS-999999': +SQ135A.CBL:591: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ135A.CBL:394: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ135A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ136A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ136A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ136A.CBL], [0], [], [SQ136A.CBL: in section 'CCVS-EXIT': +SQ136A.CBL: in paragraph 'CCVS-999999': +SQ136A.CBL:765: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ136A.CBL:444: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ136A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([SQ137A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ137A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ137A.CBL], [0], [], [SQ137A.CBL: in section 'CCVS-EXIT': +SQ137A.CBL: in paragraph 'CCVS-999999': +SQ137A.CBL:787: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ137A.CBL:444: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ137A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([SQ138A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ138A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ138A.CBL], [0], [], [SQ138A.CBL: in section 'CCVS-EXIT': +SQ138A.CBL: in paragraph 'CCVS-999999': +SQ138A.CBL:783: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ138A.CBL:444: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ138A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([SQ139A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ139A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ139A.CBL], [0], [], [SQ139A.CBL: in section 'CCVS-EXIT': +SQ139A.CBL: in paragraph 'CCVS-999999': +SQ139A.CBL:602: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ139A.CBL:408: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ139A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([SQ140A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ140A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ140A.CBL], [0], [], [SQ140A.CBL: in section 'CCVS-EXIT': +SQ140A.CBL: in paragraph 'CCVS-999999': +SQ140A.CBL:610: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ140A.CBL:408: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ140A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([SQ141A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ141A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ141A.CBL], [0], [], [SQ141A.CBL: in section 'CCVS-EXIT': +SQ141A.CBL: in paragraph 'CCVS-999999': +SQ141A.CBL:577: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ141A.CBL:401: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ141A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ142A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ142A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ142A.CBL], [0], [], [SQ142A.CBL: in section 'CCVS-EXIT': +SQ142A.CBL: in paragraph 'CCVS-999999': +SQ142A.CBL:580: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ142A.CBL:401: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ142A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ143A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ143A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ143A.CBL], [0], [], [SQ143A.CBL: in section 'CCVS-EXIT': +SQ143A.CBL: in paragraph 'CCVS-999999': +SQ143A.CBL:475: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ143A.CBL:288: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ143A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ144A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ144A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ144A.CBL], [0], [], [SQ144A.CBL: in section 'CCVS-EXIT': +SQ144A.CBL: in paragraph 'CCVS-999999': +SQ144A.CBL:721: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ144A.CBL:448: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ144A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([SQ146A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ146A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ146A.CBL], [0], [], [SQ146A.CBL: in section 'CCVS-EXIT': +SQ146A.CBL: in paragraph 'CCVS-999999': +SQ146A.CBL:506: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ146A.CBL:290: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ146A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ147A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ147A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ147A.CBL], [0], [], [SQ147A.CBL: in section 'CCVS-EXIT': +SQ147A.CBL: in paragraph 'CCVS-999999': +SQ147A.CBL:609: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ147A.CBL:410: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ147A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ148A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ148A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ148A.CBL], [0], [], [SQ148A.CBL: in section 'CCVS-EXIT': +SQ148A.CBL: in paragraph 'CCVS-999999': +SQ148A.CBL:648: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ148A.CBL:443: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ148A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ149A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ149A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ149A.CBL], [0], [], [SQ149A.CBL: in section 'CCVS-EXIT': +SQ149A.CBL: in paragraph 'CCVS-999999': +SQ149A.CBL:501: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ149A.CBL:289: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ149A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ150A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ150A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ150A.CBL], [0], [], [SQ150A.CBL: in section 'CCVS-EXIT': +SQ150A.CBL: in paragraph 'CCVS-999999': +SQ150A.CBL:508: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ150A.CBL:288: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ150A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([SQ151A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ151A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ151A.CBL], [0], [], [SQ151A.CBL: in section 'CCVS-EXIT': +SQ151A.CBL: in paragraph 'CCVS-999999': +SQ151A.CBL:594: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ151A.CBL:397: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ151A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ152A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ152A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ152A.CBL], [0], [], [SQ152A.CBL: in section 'CCVS-EXIT': +SQ152A.CBL: in paragraph 'CCVS-999999': +SQ152A.CBL:603: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ152A.CBL:397: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ152A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ153A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ153A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ153A.CBL], [0], [], [SQ153A.CBL: in section 'CCVS-EXIT': +SQ153A.CBL: in paragraph 'CCVS-999999': +SQ153A.CBL:592: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ153A.CBL:387: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ153A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ154A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ154A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ154A.CBL], [0], [], [SQ154A.CBL: in section 'CCVS-EXIT': +SQ154A.CBL: in paragraph 'CCVS-999999': +SQ154A.CBL:499: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ154A.CBL:289: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ154A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ155A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ155A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ155A.CBL], [0], [], [SQ155A.CBL: in section 'CCVS-EXIT': +SQ155A.CBL: in paragraph 'CCVS-999999': +SQ155A.CBL:512: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ155A.CBL:288: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ155A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ156A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ156A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ156A.CBL], [0], [], [SQ156A.CBL: in section 'CCVS-EXIT': +SQ156A.CBL: in paragraph 'CCVS-999999': +SQ156A.CBL:512: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ156A.CBL:288: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ156A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ201M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ201M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ201M.CBL], [0], [], [SQ201M.CBL: in section 'SECT-SQ201M-0001': +SQ201M.CBL: in paragraph 'SQ201M-END-ROUTINE': +SQ201M.CBL:644: warning: GO TO SECTION 'CCVS-EXIT' +SQ201M.CBL: in section 'CCVS-EXIT': +SQ201M.CBL: in paragraph 'CCVS-999999': +SQ201M.CBL:729: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ201M.CBL:213: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ201M], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ202A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ202A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ202A.CBL], [0], [], [SQ202A.CBL: in section 'SECTION-SQ202A-0001': +SQ202A.CBL: in paragraph 'WRI-INIT-001': +SQ202A.CBL:330: warning: value size exceeds data size +SQ202A.CBL:330: note: value size is 6 +SQ202A.CBL:70: note: 'XPROGRAM-NAME' defined here as PIC X(5) +SQ202A.CBL: in section 'CCVS-EXIT': +SQ202A.CBL: in paragraph 'CCVS-999999': +SQ202A.CBL:399: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ202A.CBL:228: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ202A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ203A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ203A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ203A.SUB], [0], [], [SQ203A.SUB: in section 'SECT-SQ203A-0001': +SQ203A.SUB: in paragraph 'READ-INIT-GF-04': +SQ203A.SUB:467: warning: value size exceeds data size +SQ203A.SUB:467: note: value size is 6 +SQ203A.SUB:106: note: 'XPROGRAM-NAME' defined here as PIC X(5) +SQ203A.SUB: in section 'CCVS-EXIT': +SQ203A.SUB: in paragraph 'CCVS-999999': +SQ203A.SUB:501: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ203A.SUB:271: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ203A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ204A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ204A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ204A.CBL], [0], [], [SQ204A.CBL: in section 'SECT-SQ204A-0001': +SQ204A.CBL: in paragraph 'WRITE-INIT-GF-01': +SQ204A.CBL:348: warning: value size exceeds data size +SQ204A.CBL:348: note: value size is 6 +SQ204A.CBL:84: note: 'XPROGRAM-NAME' defined here as PIC X(5) +SQ204A.CBL: in paragraph 'WRITE-TEST-GF-01-2': +SQ204A.CBL:386: warning: value size exceeds data size +SQ204A.CBL:386: note: value size is 21 +SQ204A.CBL:122: note: 'COMPUTED-A' defined here as PIC X(20) +SQ204A.CBL: in paragraph 'WRITE-INIT-GF-02': +SQ204A.CBL:457: warning: value size exceeds data size +SQ204A.CBL:457: note: value size is 6 +SQ204A.CBL:84: note: 'XPROGRAM-NAME' defined here as PIC X(5) +SQ204A.CBL: in paragraph 'WRITE-TEST-GF-02-2': +SQ204A.CBL:495: warning: value size exceeds data size +SQ204A.CBL:495: note: value size is 21 +SQ204A.CBL:122: note: 'COMPUTED-A' defined here as PIC X(20) +SQ204A.CBL: in section 'CCVS-EXIT': +SQ204A.CBL: in paragraph 'CCVS-999999': +SQ204A.CBL:567: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ204A.CBL:242: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ204A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ205A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ205A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ205A.CBL], [0], [], [SQ205A.CBL: in section 'CCVS-EXIT': +SQ205A.CBL: in paragraph 'CCVS-999999': +SQ205A.CBL:521: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ205A.CBL:269: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ205A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ206A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ206A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ206A.CBL], [0], [], [SQ206A.CBL: in section 'CCVS-EXIT': +SQ206A.CBL: in paragraph 'CCVS-999999': +SQ206A.CBL:637: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ206A.CBL:255: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ206A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ207M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ207M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ207M.CBL], [0], [], [SQ207M.CBL: in section 'SECT-SQ207M-0001': +SQ207M.CBL: in paragraph 'SQ207M-END-ROUTINE': +SQ207M.CBL:386: warning: GO TO SECTION 'CCVS-EXIT' +SQ207M.CBL: in section 'CCVS-EXIT': +SQ207M.CBL: in paragraph 'CCVS-999999': +SQ207M.CBL:392: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ207M.CBL:214: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ207M], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ208M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ208M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ208M.CBL], [0], [], [SQ208M.CBL: in section 'SECT-SQ208M-0001': +SQ208M.CBL: in paragraph 'SQ208M-END-ROUTINE': +SQ208M.CBL:563: warning: GO TO SECTION 'CCVS-EXIT' +SQ208M.CBL: in section 'CCVS-EXIT': +SQ208M.CBL: in paragraph 'CCVS-999999': +SQ208M.CBL:616: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ208M.CBL:281: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ208M], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ209M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ209M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ209M.CBL], [0], [], [SQ209M.CBL: in section 'SECT-SQ209M-0001': +SQ209M.CBL: in paragraph 'SQ209M-END-ROUTINE': +SQ209M.CBL:392: warning: GO TO SECTION 'CCVS-EXIT' +SQ209M.CBL: in section 'CCVS-EXIT': +SQ209M.CBL: in paragraph 'CCVS-999999': +SQ209M.CBL:411: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ209M.CBL:230: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ209M], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ210M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ210M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ210M.CBL], [0], [], [SQ210M.CBL: in section 'SECT-SQ210M-0001': +SQ210M.CBL: in paragraph 'SQ210M-END-ROUTINE': +SQ210M.CBL:318: warning: GO TO SECTION 'CCVS-EXIT' +SQ210M.CBL: in section 'CCVS-EXIT': +SQ210M.CBL: in paragraph 'CCVS-999999': +SQ210M.CBL:326: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ210M.CBL:193: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ210M], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ211A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ211A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ211A.CBL], [0], [], [SQ211A.CBL: in section 'SECT-SQ211A-0001': +SQ211A.CBL: in paragraph 'WRITE-OPEN-01': +SQ211A.CBL:474: warning: GO TO SECTION 'CCVS-EXIT' +SQ211A.CBL: in paragraph 'WRITE-TEST-01-01': +SQ211A.CBL:495: warning: GO TO SECTION 'CCVS-EXIT' +SQ211A.CBL: in paragraph 'CLOSE-TEST-01': +SQ211A.CBL:516: warning: GO TO SECTION 'CCVS-EXIT' +SQ211A.CBL: in section 'CCVS-EXIT': +SQ211A.CBL: in paragraph 'CCVS-999999': +SQ211A.CBL:550: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ211A.CBL:291: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ211A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ212A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ212A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ212A.CBL], [0], [], [SQ212A.CBL:79: warning: redefinition of 'REC-FILLER' +SQ212A.CBL:78: note: 'REC-FILLER' previously defined here +SQ212A.CBL: in section 'SECT-SQ212A-0002': +SQ212A.CBL: in paragraph 'WRITE-INIT-GF-01': +SQ212A.CBL:513: warning: value size exceeds data size +SQ212A.CBL:513: note: value size is 21 +SQ212A.CBL:147: note: 'FEATURE' defined here as PIC X(20) +SQ212A.CBL: in section 'CCVS-EXIT': +SQ212A.CBL: in paragraph 'CCVS-999999': +SQ212A.CBL:704: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ212A.CBL:403: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ212A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([SQ213A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ213A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ213A.CBL], [0], [], [SQ213A.CBL: in section 'CCVS-EXIT': +SQ213A.CBL: in paragraph 'CCVS-999999': +SQ213A.CBL:590: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ213A.CBL:263: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ213A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ214A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ214A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ214A.CBL], [0], [], [SQ214A.CBL: in section 'CCVS-EXIT': +SQ214A.CBL: in paragraph 'CCVS-999999': +SQ214A.CBL:521: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ214A.CBL:269: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ214A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ215A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ215A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ215A.CBL], [0], [], [SQ215A.CBL: in section 'SECT-SQ215A-0001': +SQ215A.CBL: in paragraph 'WRITE-OPEN-01': +SQ215A.CBL:580: warning: GO TO SECTION 'CCVS-EXIT' +SQ215A.CBL: in paragraph 'WRITE-TEST-01-01': +SQ215A.CBL:601: warning: GO TO SECTION 'CCVS-EXIT' +SQ215A.CBL: in paragraph 'CLOSE-TEST-01': +SQ215A.CBL:622: warning: GO TO SECTION 'CCVS-EXIT' +SQ215A.CBL: in section 'CCVS-EXIT': +SQ215A.CBL: in paragraph 'CCVS-999999': +SQ215A.CBL:644: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ215A.CBL:397: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ215A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ216A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ216A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ216A.CBL], [0], [], [SQ216A.CBL: in section 'CCVS-EXIT': +SQ216A.CBL: in paragraph 'CCVS-999999': +SQ216A.CBL:559: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ216A.CBL:247: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ216A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ217A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ217A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ217A.CBL], [0], [], [SQ217A.CBL: in section 'CCVS-EXIT': +SQ217A.CBL: in paragraph 'CCVS-999999': +SQ217A.CBL:560: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ217A.CBL:248: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ217A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ218A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ218A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ218A.CBL], [0], [], [SQ218A.CBL:43: warning: RECORD DELIMITER STANDARD-1 ignored +SQ218A.CBL: in section 'CCVS-EXIT': +SQ218A.CBL: in paragraph 'CCVS-999999': +SQ218A.CBL:649: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ218A.CBL:258: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ218A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ219A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ219A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ219A.CBL], [0], [], [SQ219A.CBL:44: warning: RECORD DELIMITER STANDARD-1 ignored +SQ219A.CBL: in section 'CCVS-EXIT': +SQ219A.CBL: in paragraph 'CCVS-999999': +SQ219A.CBL:652: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ219A.CBL:261: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ219A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ220A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ220A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ220A.CBL], [0], [], [SQ220A.CBL: in section 'CCVS-EXIT': +SQ220A.CBL: in paragraph 'CCVS-999999': +SQ220A.CBL:671: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ220A.CBL:261: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ220A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ221A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ221A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ221A.CBL], [0], [], [SQ221A.CBL: in section 'CCVS-EXIT': +SQ221A.CBL: in paragraph 'CCVS-999999': +SQ221A.CBL:668: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ221A.CBL:258: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ221A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ222A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ222A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ222A.CBL], [0], [], [SQ222A.CBL: in section 'CCVS-EXIT': +SQ222A.CBL: in paragraph 'CCVS-999999': +SQ222A.CBL:652: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ222A.CBL:256: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ222A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ223A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ223A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ223A.CBL], [0], [], [SQ223A.CBL: in section 'SECT-SQ223A-0001': +SQ223A.CBL: in paragraph 'READ-FAIL-F1-01': +SQ223A.CBL:423: warning: value size exceeds data size +SQ223A.CBL:423: note: value size is 84 +SQ223A.CBL:131: note: 'RE-MARK' defined here as PIC X(61) +SQ223A.CBL: in paragraph 'READ-FAIL-F1-02': +SQ223A.CBL:467: warning: value size exceeds data size +SQ223A.CBL:467: note: value size is 84 +SQ223A.CBL:131: note: 'RE-MARK' defined here as PIC X(61) +SQ223A.CBL: in paragraph 'READ-FAIL-F1-03': +SQ223A.CBL:512: warning: value size exceeds data size +SQ223A.CBL:512: note: value size is 84 +SQ223A.CBL:131: note: 'RE-MARK' defined here as PIC X(61) +SQ223A.CBL: in paragraph 'READ-FAIL-F1-04': +SQ223A.CBL:534: warning: value size exceeds data size +SQ223A.CBL:534: note: value size is 84 +SQ223A.CBL:131: note: 'RE-MARK' defined here as PIC X(61) +SQ223A.CBL: in paragraph 'READ-PASS-F1-05': +SQ223A.CBL:553: warning: value size exceeds data size +SQ223A.CBL:553: note: value size is 84 +SQ223A.CBL:131: note: 'RE-MARK' defined here as PIC X(61) +SQ223A.CBL: in section 'CCVS-EXIT': +SQ223A.CBL: in paragraph 'CCVS-999999': +SQ223A.CBL:662: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ223A.CBL:256: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ223A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ224A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ224A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ224A.CBL], [0], [], [SQ224A.CBL: in section 'SECT-SQ224A-0001': +SQ224A.CBL: in paragraph 'READ-FAIL-F1-01': +SQ224A.CBL:416: warning: value size exceeds data size +SQ224A.CBL:416: note: value size is 81 +SQ224A.CBL:139: note: 'RE-MARK' defined here as PIC X(61) +SQ224A.CBL: in paragraph 'READ-FAIL-F1-02': +SQ224A.CBL:482: warning: value size exceeds data size +SQ224A.CBL:482: note: value size is 81 +SQ224A.CBL:139: note: 'RE-MARK' defined here as PIC X(61) +SQ224A.CBL: in section 'CCVS-EXIT': +SQ224A.CBL: in paragraph 'CCVS-999999': +SQ224A.CBL:523: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ224A.CBL:259: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ224A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ225A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ225A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ225A.CBL], [0], [], [SQ225A.CBL: in section 'CCVS-EXIT': +SQ225A.CBL: in paragraph 'CCVS-999999': +SQ225A.CBL:604: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ225A.CBL:418: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ225A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ226A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ226A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ226A.CBL], [0], [], [SQ226A.CBL: in section 'CCVS-EXIT': +SQ226A.CBL: in paragraph 'CCVS-999999': +SQ226A.CBL:1602: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ226A.CBL:505: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ226A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([SQ227A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ227A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ227A.CBL], [0], [], [SQ227A.CBL: in section 'SECT-SQ227A-0002': +SQ227A.CBL: in paragraph 'SEQ-INIT-06': +SQ227A.CBL:1029: warning: value size exceeds data size +SQ227A.CBL:1029: note: value size is 26 +SQ227A.CBL:195: note: 'FEATURE' defined here as PIC X(24) +SQ227A.CBL: in paragraph 'SEQ-TEST-RW-06-01': +SQ227A.CBL:1056: warning: value size exceeds data size +SQ227A.CBL:1058: note: value size is 73 +SQ227A.CBL:199: note: 'RE-MARK' defined here as PIC X(61) +SQ227A.CBL: in section 'CCVS-EXIT': +SQ227A.CBL: in paragraph 'CCVS-999999': +SQ227A.CBL:1064: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ227A.CBL:502: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ227A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([SQ228A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ228A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ228A.CBL], [0], [], [SQ228A.CBL: in section 'SECT-SQ228A-0002': +SQ228A.CBL: in paragraph 'SEQ-INIT-06': +SQ228A.CBL:702: warning: value size exceeds data size +SQ228A.CBL:702: note: value size is 26 +SQ228A.CBL:190: note: 'FEATURE' defined here as PIC X(24) +SQ228A.CBL: in section 'CCVS-EXIT': +SQ228A.CBL: in paragraph 'CCVS-999999': +SQ228A.CBL:735: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ228A.CBL:472: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ228A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([SQ229A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ229A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ229A.CBL], [0], [], [SQ229A.CBL: in section 'CCVS-EXIT': +SQ229A.CBL: in paragraph 'CCVS-999999': +SQ229A.CBL:605: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ229A.CBL:397: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ229A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([SQ230A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ230A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ230A.CBL], [0], [], [SQ230A.CBL: in section 'CCVS-EXIT': +SQ230A.CBL: in paragraph 'CCVS-999999': +SQ230A.CBL:508: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +SQ230A.CBL:288: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./SQ230A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([SQ302M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ302M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ302M.CBL], [0], [], [SQ302M.CBL:29: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +SQ302M.CBL:35: warning: LABEL RECORDS is obsolete in COBOL 85 +SQ302M.CBL:40: warning: VALUE OF is obsolete in COBOL 85 +SQ302M.CBL:42: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./SQ302M], [0], [THIS IS A DUMMY PARAGRAPH +], []) + +AT_CLEANUP + + +AT_SETUP([SQ303M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ303M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ303M.CBL], [0], [], [SQ303M.CBL:26: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +SQ303M.CBL: in paragraph 'SQ303M-CONTROL': +SQ303M.CBL:42: warning: OPEN REVERSED is not implemented +]) + +AT_CLEANUP + +AT_SETUP([SQ401M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ401M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ401M.CBL], [0], [], [SQ401M.CBL:26: warning: RECORD DELIMITER STANDARD-1 ignored +SQ401M.CBL:44: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +SQ401M.CBL:59: warning: LABEL RECORDS is obsolete in COBOL 85 +SQ401M.CBL:62: warning: VALUE OF is obsolete in COBOL 85 +SQ401M.CBL: in paragraph 'SQ401M-OPENREV': +SQ401M.CBL:109: warning: OPEN REVERSED is not implemented +SQ401M.CBL: in paragraph 'SQ401M-OPENNOREW': +SQ401M.CBL:114: warning: OPEN WITH NO REWIND is not implemented +]) + +AT_CLEANUP diff --git a/tests/cobol85/nistrun.src/run_ST.at b/tests/cobol85/nistrun.src/run_ST.at new file mode 100644 index 000000000..56853700f --- /dev/null +++ b/tests/cobol85/nistrun.src/run_ST.at @@ -0,0 +1,1117 @@ + +# Generates XXXXX001 +AT_SETUP([ST101A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST101A.CBL], [0], [], [ST101A.CBL:41: warning: DATA RECORDS is obsolete in COBOL 85 +ST101A.CBL:53: warning: LABEL RECORDS is obsolete in COBOL 85 +ST101A.CBL:54: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST101A], [0], [], []) + +AT_CLEANUP + +# Generates XXXXX002 +AT_SETUP([ST102A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST102A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST102A.SUB], [0], [], [ST102A.SUB:39: warning: DATA RECORDS is obsolete in COBOL 85 +ST102A.SUB:50: warning: LABEL RECORDS is obsolete in COBOL 85 +ST102A.SUB:51: warning: DATA RECORDS is obsolete in COBOL 85 +ST102A.SUB:55: warning: LABEL RECORDS is obsolete in COBOL 85 +ST102A.SUB:56: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST102A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST103A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST102A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST102A.SUB], [0], [], [ST102A.SUB:39: warning: DATA RECORDS is obsolete in COBOL 85 +ST102A.SUB:50: warning: LABEL RECORDS is obsolete in COBOL 85 +ST102A.SUB:51: warning: DATA RECORDS is obsolete in COBOL 85 +ST102A.SUB:55: warning: LABEL RECORDS is obsolete in COBOL 85 +ST102A.SUB:56: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST102A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST103A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST103A.SUB], [0], [], [ST103A.SUB:40: warning: LABEL RECORDS is obsolete in COBOL 85 +ST103A.SUB:41: warning: DATA RECORDS is obsolete in COBOL 85 +ST103A.SUB: in section 'SECT-ST103-0001': +ST103A.SUB: in paragraph 'SORT-WRITE-9': +ST103A.SUB:451: warning: GO TO SECTION 'CCVS-EXIT' +ST103A.SUB: in section 'CCVS-EXIT': +ST103A.SUB: in paragraph 'CCVS-999999': +ST103A.SUB:466: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +ST103A.SUB:195: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./ST103A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([ST104A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST104A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST104A.CBL], [0], [], [ST104A.CBL:39: warning: LABEL RECORDS is obsolete in COBOL 85 +ST104A.CBL:40: warning: DATA RECORDS is obsolete in COBOL 85 +ST104A.CBL: in section 'CCVS-EXIT': +ST104A.CBL: in paragraph 'CCVS-999999': +ST104A.CBL:345: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +ST104A.CBL:197: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./ST104A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST105A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST105A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST105A.SUB], [0], [], [ST105A.SUB:59: warning: LABEL RECORDS is obsolete in COBOL 85 +ST105A.SUB:60: warning: DATA RECORDS is obsolete in COBOL 85 +ST105A.SUB:64: warning: LABEL RECORDS is obsolete in COBOL 85 +ST105A.SUB:65: warning: DATA RECORDS is obsolete in COBOL 85 +ST105A.SUB:69: warning: DATA RECORDS is obsolete in COBOL 85 +ST105A.SUB: in section 'OUTPROC': +ST105A.SUB: in paragraph 'SORT-TEST-1': +ST105A.SUB:362: warning: GO TO SECTION 'OUTPROC-EXIT' +]) +AT_CHECK([./ST105A], [0], [], []) + +AT_CLEANUP + +# regenerates XXXXX001 +AT_SETUP([ST106A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST106A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST106A.CBL], [0], [], [ST106A.CBL:72: warning: LABEL RECORDS is obsolete in COBOL 85 +ST106A.CBL:74: warning: DATA RECORDS is obsolete in COBOL 85 +ST106A.CBL:79: warning: DATA RECORDS is obsolete in COBOL 85 +ST106A.CBL: in section 'INPROC': +ST106A.CBL: in paragraph 'BUILD-FILE-WRITE': +ST106A.CBL:390: warning: GO TO SECTION 'INPROC-EXIT' +]) +AT_CHECK([./ST106A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST107A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST106A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST106A.CBL], [0], [], [ST106A.CBL:72: warning: LABEL RECORDS is obsolete in COBOL 85 +ST106A.CBL:74: warning: DATA RECORDS is obsolete in COBOL 85 +ST106A.CBL:79: warning: DATA RECORDS is obsolete in COBOL 85 +ST106A.CBL: in section 'INPROC': +ST106A.CBL: in paragraph 'BUILD-FILE-WRITE': +ST106A.CBL:390: warning: GO TO SECTION 'INPROC-EXIT' +]) +AT_CHECK([./ST106A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST107A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST107A.SUB], [0], [], [ST107A.SUB:39: warning: LABEL RECORDS is obsolete in COBOL 85 +ST107A.SUB: in section 'CCVS1': +ST107A.SUB: in paragraph 'ST107-0001-01': +ST107A.SUB:320: warning: GO TO SECTION 'ZERO-IS-LESS-THAN-SPACE' +ST107A.SUB: in section 'SPACE-IS-LESS-THAN-ZERO': +ST107A.SUB: in paragraph 'DUMMY-3-AND-4': +ST107A.SUB:377: warning: GO TO SECTION 'CONTINUE-TESTING' +ST107A.SUB: in section 'CONTINUE-TESTING': +ST107A.SUB: in paragraph 'SORT-WRITE-8': +ST107A.SUB:504: warning: GO TO SECTION 'CCVS-EXIT' +ST107A.SUB: in section 'CCVS-EXIT': +ST107A.SUB: in paragraph 'CCVS-999999': +ST107A.SUB:515: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +ST107A.SUB:206: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./ST107A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([ST108A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST108A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST108A.CBL], [0], [], [ST108A.CBL:61: warning: DATA RECORDS is obsolete in COBOL 85 +ST108A.CBL: in section 'INPROC': +ST108A.CBL: in paragraph 'BUILD-FILE': +ST108A.CBL:253: warning: ignoring sign +ST108A.CBL: in paragraph 'BUILD-RECORD': +ST108A.CBL:266: warning: ignoring sign +ST108A.CBL: in section 'OUTPROC': +ST108A.CBL: in paragraph 'OPEN-FILES': +ST108A.CBL:281: warning: GO TO SECTION 'SPACE-IS-LESS-THAN-B' +ST108A.CBL: in section 'B-IS-LESS-THAN-SPACE': +ST108A.CBL: in paragraph 'SORT-TEST-1': +ST108A.CBL:290: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST108A.CBL:499: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST108A.CBL: in paragraph 'SORT-TEST-2': +ST108A.CBL:301: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST108A.CBL:499: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST108A.CBL: in paragraph 'SORT-TEST-3': +ST108A.CBL:312: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST108A.CBL:499: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST108A.CBL: in paragraph 'SORT-TEST-4': +ST108A.CBL:323: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST108A.CBL:499: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST108A.CBL: in paragraph 'SORT-TEST-5': +ST108A.CBL:334: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST108A.CBL:499: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST108A.CBL: in paragraph 'SORT-TEST-6': +ST108A.CBL:345: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST108A.CBL:499: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST108A.CBL: in paragraph 'SORT-TEST-7': +ST108A.CBL:356: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST108A.CBL:499: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST108A.CBL: in paragraph 'SORT-TEST-8': +ST108A.CBL:367: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST108A.CBL:499: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST108A.CBL: in paragraph 'SORT-REMARK-A': +ST108A.CBL:386: warning: GO TO SECTION 'CONTINUE-TESTING' +ST108A.CBL: in section 'SPACE-IS-LESS-THAN-B': +ST108A.CBL: in paragraph 'SORT-TEST-9': +ST108A.CBL:401: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST108A.CBL:499: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST108A.CBL: in paragraph 'SORT-TEST-10': +ST108A.CBL:412: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST108A.CBL:499: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST108A.CBL: in paragraph 'SORT-TEST-11': +ST108A.CBL:423: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST108A.CBL:499: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST108A.CBL: in paragraph 'SORT-TEST-12': +ST108A.CBL:434: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST108A.CBL:499: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST108A.CBL: in paragraph 'SORT-TEST-13': +ST108A.CBL:445: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST108A.CBL:499: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST108A.CBL: in paragraph 'SORT-TEST-14': +ST108A.CBL:456: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST108A.CBL:499: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST108A.CBL: in paragraph 'SORT-TEST-15': +ST108A.CBL:467: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST108A.CBL:499: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST108A.CBL: in paragraph 'SORT-TEST-16': +ST108A.CBL:478: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST108A.CBL:499: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST108A.CBL: in section 'CONTINUE-TESTING': +ST108A.CBL: in paragraph 'SORT-WRITE-17': +ST108A.CBL:498: warning: GO TO SECTION 'OUTPROC-EXIT' +]) +AT_CHECK([./ST108A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST109A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST109A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST109A.CBL], [0], [], [ST109A.CBL:52: warning: LABEL RECORDS is obsolete in COBOL 85 +ST109A.CBL:56: warning: DATA RECORDS is obsolete in COBOL 85 +ST109A.CBL: in section 'CCVS-EXIT': +ST109A.CBL: in paragraph 'CCVS-999999': +ST109A.CBL:361: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +ST109A.CBL:228: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./ST109A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST110A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST110A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST110A.SUB], [0], [], [ST110A.SUB:43: warning: LABEL RECORDS is obsolete in COBOL 85 +ST110A.SUB:47: warning: DATA RECORDS is obsolete in COBOL 85 +ST110A.SUB:56: warning: LABEL RECORDS is obsolete in COBOL 85 +ST110A.SUB:60: warning: DATA RECORDS is obsolete in COBOL 85 +ST110A.SUB:72: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST110A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST111A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST102A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST102A.SUB], [0], [], [ST102A.SUB:39: warning: DATA RECORDS is obsolete in COBOL 85 +ST102A.SUB:50: warning: LABEL RECORDS is obsolete in COBOL 85 +ST102A.SUB:51: warning: DATA RECORDS is obsolete in COBOL 85 +ST102A.SUB:55: warning: LABEL RECORDS is obsolete in COBOL 85 +ST102A.SUB:56: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST102A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST111A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST111A.SUB], [0], [], [ST111A.SUB:52: warning: LABEL RECORDS is obsolete in COBOL 85 +ST111A.SUB:56: warning: DATA RECORDS is obsolete in COBOL 85 +ST111A.SUB: in section 'SECT-ST111-0001': +ST111A.SUB: in paragraph 'SORT-WRITE-7': +ST111A.SUB:452: warning: GO TO SECTION 'CCVS-EXIT' +ST111A.SUB: in section 'CCVS-EXIT': +ST111A.SUB: in paragraph 'CCVS-999999': +ST111A.SUB:490: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +ST111A.SUB:241: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./ST111A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([ST112M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST112M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST112M.CBL], [0], [], [ST112M.CBL:39: warning: LABEL RECORDS is obsolete in COBOL 85 +ST112M.CBL:40: warning: DATA RECORDS is obsolete in COBOL 85 +ST112M.CBL: in section 'SECT-ST112M-001': +ST112M.CBL: in paragraph 'ST112M-002-01': +ST112M.CBL:374: warning: GO TO SECTION 'CCVS-EXIT' +ST112M.CBL: in section 'CCVS-EXIT': +ST112M.CBL: in paragraph 'CCVS-999999': +ST112M.CBL:379: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +ST112M.CBL:196: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./ST112M], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST113M]) +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST113M.SUB .],[0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST113M.SUB], [0], [], []) +AT_CHECK([./ST113M], [0], [], []) +AT_CLEANUP + +AT_SETUP([ST114M]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST101A.CBL], [0], [], [ST101A.CBL:41: warning: DATA RECORDS is obsolete in COBOL 85 +ST101A.CBL:53: warning: LABEL RECORDS is obsolete in COBOL 85 +ST101A.CBL:54: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST101A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST114M.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST114M.SUB], [0], [], [ST114M.SUB:39: warning: LABEL RECORDS is obsolete in COBOL 85 +ST114M.SUB:40: warning: DATA RECORDS is obsolete in COBOL 85 +ST114M.SUB: in section 'SECT-ST114-0001': +ST114M.SUB: in paragraph 'SORT-WRITE-10': +ST114M.SUB:438: warning: GO TO SECTION 'CCVS-EXIT' +ST114M.SUB: in section 'CCVS-EXIT': +ST114M.SUB: in paragraph 'CCVS-999999': +ST114M.SUB:460: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +ST114M.SUB:205: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./ST114M], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([ST115A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST115A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST115A.CBL], [0], [], [ST115A.CBL:83: warning: LABEL RECORDS is obsolete in COBOL 85 +ST115A.CBL:86: warning: DATA RECORDS is obsolete in COBOL 85 +ST115A.CBL: in section 'CCVS-EXIT': +ST115A.CBL: in paragraph 'CCVS-999999': +ST115A.CBL:487: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +ST115A.CBL:320: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./ST115A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST116A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST116A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST116A.SUB], [0], [], [ST116A.SUB:106: warning: LABEL RECORDS is obsolete in COBOL 85 +ST116A.SUB:109: warning: DATA RECORDS is obsolete in COBOL 85 +ST116A.SUB:127: warning: LABEL RECORDS is obsolete in COBOL 85 +ST116A.SUB:130: warning: DATA RECORDS is obsolete in COBOL 85 +ST116A.SUB:149: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST116A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST117A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST102A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST102A.SUB], [0], [], [ST102A.SUB:39: warning: DATA RECORDS is obsolete in COBOL 85 +ST102A.SUB:50: warning: LABEL RECORDS is obsolete in COBOL 85 +ST102A.SUB:51: warning: DATA RECORDS is obsolete in COBOL 85 +ST102A.SUB:55: warning: LABEL RECORDS is obsolete in COBOL 85 +ST102A.SUB:56: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST102A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST117A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST117A.SUB], [0], [], [ST117A.SUB:101: warning: LABEL RECORDS is obsolete in COBOL 85 +ST117A.SUB:104: warning: DATA RECORDS is obsolete in COBOL 85 +ST117A.SUB: in section 'CCVS-EXIT': +ST117A.SUB: in paragraph 'CCVS-999999': +ST117A.SUB:517: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +ST117A.SUB:339: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./ST117A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([ST118A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST118A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST118A.CBL], [0], [], [ST118A.CBL:71: warning: DATA RECORDS is obsolete in COBOL 85 +ST118A.CBL: in section 'INPROC': +ST118A.CBL: in paragraph 'BUILD-FILE': +ST118A.CBL:263: warning: ignoring sign +ST118A.CBL: in paragraph 'BUILD-RECORD': +ST118A.CBL:276: warning: ignoring sign +ST118A.CBL: in section 'OUTPROC': +ST118A.CBL: in paragraph 'OPEN-FILES': +ST118A.CBL:291: warning: GO TO SECTION 'SPACE-IS-LESS-THAN-B' +ST118A.CBL: in section 'B-IS-LESS-THAN-SPACE': +ST118A.CBL: in paragraph 'SORT-TEST-1': +ST118A.CBL:300: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST118A.CBL:509: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST118A.CBL: in paragraph 'SORT-TEST-2': +ST118A.CBL:311: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST118A.CBL:509: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST118A.CBL: in paragraph 'SORT-TEST-3': +ST118A.CBL:322: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST118A.CBL:509: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST118A.CBL: in paragraph 'SORT-TEST-4': +ST118A.CBL:333: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST118A.CBL:509: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST118A.CBL: in paragraph 'SORT-TEST-5': +ST118A.CBL:344: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST118A.CBL:509: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST118A.CBL: in paragraph 'SORT-TEST-6': +ST118A.CBL:355: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST118A.CBL:509: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST118A.CBL: in paragraph 'SORT-TEST-7': +ST118A.CBL:366: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST118A.CBL:509: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST118A.CBL: in paragraph 'SORT-TEST-8': +ST118A.CBL:377: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST118A.CBL:509: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST118A.CBL: in paragraph 'SORT-REMARK-A': +ST118A.CBL:396: warning: GO TO SECTION 'CONTINUE-TESTING' +ST118A.CBL: in section 'SPACE-IS-LESS-THAN-B': +ST118A.CBL: in paragraph 'SORT-TEST-9': +ST118A.CBL:411: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST118A.CBL:509: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST118A.CBL: in paragraph 'SORT-TEST-10': +ST118A.CBL:422: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST118A.CBL:509: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST118A.CBL: in paragraph 'SORT-TEST-11': +ST118A.CBL:433: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST118A.CBL:509: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST118A.CBL: in paragraph 'SORT-TEST-12': +ST118A.CBL:444: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST118A.CBL:509: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST118A.CBL: in paragraph 'SORT-TEST-13': +ST118A.CBL:455: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST118A.CBL:509: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST118A.CBL: in paragraph 'SORT-TEST-14': +ST118A.CBL:466: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST118A.CBL:509: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST118A.CBL: in paragraph 'SORT-TEST-15': +ST118A.CBL:477: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST118A.CBL:509: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST118A.CBL: in paragraph 'SORT-TEST-16': +ST118A.CBL:488: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST118A.CBL:509: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST118A.CBL: in section 'CONTINUE-TESTING': +ST118A.CBL: in paragraph 'SORT-WRITE-17': +ST118A.CBL:508: warning: GO TO SECTION 'OUTPROC-EXIT' +]) +AT_CHECK([./ST118A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST119A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST119A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST119A.CBL], [0], [], [ST119A.CBL:41: warning: DATA RECORDS is obsolete in COBOL 85 +ST119A.CBL:53: warning: LABEL RECORDS is obsolete in COBOL 85 +ST119A.CBL:54: warning: DATA RECORDS is obsolete in COBOL 85 +ST119A.CBL: in section 'INTERNAL-OUTPUT-PROC-CODE': +ST119A.CBL: in paragraph 'INT-INIT-2': +ST119A.CBL:379: warning: GO TO paragraph 'INTERNAL-CODE-2' which is defined in another SECTION +ST119A.CBL:830: note: 'INTERNAL-CODE-2 IN INTERNAL-INPUT-PROC-CODE' defined here +ST119A.CBL: in paragraph 'INT-DELETE-2-1': +ST119A.CBL:386: warning: GO TO paragraph 'INT-INIT-3' which is defined in another SECTION +ST119A.CBL:414: note: 'INT-INIT-3 IN INTERNAL-INPUT-PROC-CODE' defined here +ST119A.CBL: in section 'INTERNAL-INPUT-PROC-CODE': +ST119A.CBL: in paragraph 'I-2': +ST119A.CBL:480: warning: GO TO SECTION 'CCVS-EXIT' +ST119A.CBL: in paragraph 'INTERNAL-CODE-2': +ST119A.CBL:832: warning: GO TO paragraph 'INT-TEST-2-1' which is defined in another SECTION +ST119A.CBL:387: note: 'INT-TEST-2-1 IN INTERNAL-OUTPUT-PROC-CODE' defined here +ST119A.CBL: in paragraph 'BAD-FILE': +ST119A.CBL:847: warning: GO TO SECTION 'CCVS-EXIT' +ST119A.CBL: in section 'CCVS-EXIT': +ST119A.CBL: in paragraph 'CCVS-9999': +ST119A.CBL:992: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +ST119A.CBL:224: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./ST119A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST120A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST120A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST120A.SUB], [0], [], [ST120A.SUB:39: warning: DATA RECORDS is obsolete in COBOL 85 +ST120A.SUB:50: warning: LABEL RECORDS is obsolete in COBOL 85 +ST120A.SUB:51: warning: DATA RECORDS is obsolete in COBOL 85 +ST120A.SUB:55: warning: LABEL RECORDS is obsolete in COBOL 85 +ST120A.SUB:56: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST120A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST121A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST102A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST102A.SUB], [0], [], [ST102A.SUB:39: warning: DATA RECORDS is obsolete in COBOL 85 +ST102A.SUB:50: warning: LABEL RECORDS is obsolete in COBOL 85 +ST102A.SUB:51: warning: DATA RECORDS is obsolete in COBOL 85 +ST102A.SUB:55: warning: LABEL RECORDS is obsolete in COBOL 85 +ST102A.SUB:56: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST102A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST121A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST121A.SUB], [0], [], [ST121A.SUB:40: warning: LABEL RECORDS is obsolete in COBOL 85 +ST121A.SUB:41: warning: DATA RECORDS is obsolete in COBOL 85 +ST121A.SUB: in section 'SECT-ST119A-0001': +ST121A.SUB: in paragraph 'SORT-WRITE-9': +ST121A.SUB:451: warning: GO TO SECTION 'CCVS-EXIT' +ST121A.SUB: in section 'CCVS-EXIT': +ST121A.SUB: in paragraph 'CCVS-999999': +ST121A.SUB:466: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +ST121A.SUB:195: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./ST121A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([ST122A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST122A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST122A.CBL], [0], [], [ST122A.CBL:61: warning: LABEL RECORDS is obsolete in COBOL 85 +ST122A.CBL:65: warning: DATA RECORDS is obsolete in COBOL 85 +ST122A.CBL: in section 'CCVS-EXIT': +ST122A.CBL: in paragraph 'CCVS-999999': +ST122A.CBL:370: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +ST122A.CBL:237: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./ST122A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST123A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST123A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST123A.SUB], [0], [], [ST123A.SUB:59: warning: LABEL RECORDS is obsolete in COBOL 85 +ST123A.SUB:63: warning: DATA RECORDS is obsolete in COBOL 85 +ST123A.SUB:72: warning: LABEL RECORDS is obsolete in COBOL 85 +ST123A.SUB:76: warning: DATA RECORDS is obsolete in COBOL 85 +ST123A.SUB:88: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST123A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST124A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST102A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST102A.SUB], [0], [], [ST102A.SUB:39: warning: DATA RECORDS is obsolete in COBOL 85 +ST102A.SUB:50: warning: LABEL RECORDS is obsolete in COBOL 85 +ST102A.SUB:51: warning: DATA RECORDS is obsolete in COBOL 85 +ST102A.SUB:55: warning: LABEL RECORDS is obsolete in COBOL 85 +ST102A.SUB:56: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST102A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST124A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST124A.SUB], [0], [], [ST124A.SUB:65: warning: LABEL RECORDS is obsolete in COBOL 85 +ST124A.SUB:69: warning: DATA RECORDS is obsolete in COBOL 85 +ST124A.SUB: in section 'SECT-ST111-0001': +ST124A.SUB: in paragraph 'SORT-WRITE-7': +ST124A.SUB:465: warning: GO TO SECTION 'CCVS-EXIT' +ST124A.SUB: in section 'CCVS-EXIT': +ST124A.SUB: in paragraph 'CCVS-999999': +ST124A.SUB:503: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +ST124A.SUB:254: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./ST124A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([ST125A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST125A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST125A.CBL], [0], [], [ST125A.CBL:81: warning: LABEL RECORDS is obsolete in COBOL 85 +ST125A.CBL:86: warning: LABEL RECORDS is obsolete in COBOL 85 +ST125A.CBL:91: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST125A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST126A]) +# promoted on 2023-02-04T15:45 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST101A.CBL], [0], [], [ST101A.CBL:41: warning: DATA RECORDS is obsolete in COBOL 85 +ST101A.CBL:53: warning: LABEL RECORDS is obsolete in COBOL 85 +ST101A.CBL:54: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST101A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST102A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST102A.SUB], [0], [], [ST102A.SUB:39: warning: DATA RECORDS is obsolete in COBOL 85 +ST102A.SUB:50: warning: LABEL RECORDS is obsolete in COBOL 85 +ST102A.SUB:51: warning: DATA RECORDS is obsolete in COBOL 85 +ST102A.SUB:55: warning: LABEL RECORDS is obsolete in COBOL 85 +ST102A.SUB:56: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST102A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST125A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST125A.CBL], [0], [], [ST125A.CBL:81: warning: LABEL RECORDS is obsolete in COBOL 85 +ST125A.CBL:86: warning: LABEL RECORDS is obsolete in COBOL 85 +ST125A.CBL:91: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST125A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST126A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST126A.SUB], [0], [], [ST126A.SUB:52: warning: LABEL RECORDS is obsolete in COBOL 85 +ST126A.SUB:59: warning: LABEL RECORDS is obsolete in COBOL 85 +ST126A.SUB:66: warning: LABEL RECORDS is obsolete in COBOL 85 +ST126A.SUB: in section 'CCVS1': +ST126A.SUB: in paragraph 'ST126A-001-01': +ST126A.SUB:350: warning: GO TO SECTION 'ZERO-IS-LESS-THAN-SPACE' +ST126A.SUB: in section 'SPACE-IS-LESS-THAN-ZERO': +ST126A.SUB: in paragraph 'DUMMY-3-AND-4': +ST126A.SUB:407: warning: GO TO SECTION 'CONTINUE-TESTING' +ST126A.SUB: in section 'CONTINUE-TESTING': +ST126A.SUB: in paragraph 'ST126A-001-02': +ST126A.SUB:549: warning: GO TO SECTION 'ZERO-IS-LESS-THAN-SPACE-2' +ST126A.SUB: in section 'SPACE-IS-LESS-THAN-ZERO-2': +ST126A.SUB: in paragraph 'DUMMY-3-AND-4-2': +ST126A.SUB:606: warning: GO TO SECTION 'CONTINUE-TESTING-2' +ST126A.SUB: in section 'CONTINUE-TESTING-2': +ST126A.SUB: in paragraph 'ST126A-001-03': +ST126A.SUB:748: warning: GO TO SECTION 'ZERO-IS-LESS-THAN-SPACE-3' +ST126A.SUB: in section 'SPACE-IS-LESS-THAN-ZERO-3': +ST126A.SUB: in paragraph 'DUMMY-3-AND-4-3': +ST126A.SUB:805: warning: GO TO SECTION 'CONTINUE-TESTING-3' +ST126A.SUB: in section 'CONTINUE-TESTING-3': +ST126A.SUB: in paragraph 'SORT-WRITE-8-3': +ST126A.SUB:932: warning: GO TO SECTION 'CCVS-EXIT' +ST126A.SUB: in section 'CCVS-EXIT': +ST126A.SUB: in paragraph 'CCVS-999999': +ST126A.SUB:943: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +ST126A.SUB:233: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./ST126A], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([ST127A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST127A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST127A.CBL], [0], [], [ST127A.CBL:74: warning: DATA RECORDS is obsolete in COBOL 85 +ST127A.CBL: in section 'INPROC': +ST127A.CBL: in paragraph 'BUILD-FILE': +ST127A.CBL:311: warning: ignoring sign +ST127A.CBL: in paragraph 'BUILD-RECORD': +ST127A.CBL:332: warning: ignoring sign +ST127A.CBL: in section 'OUTPROC': +ST127A.CBL: in paragraph 'OPEN-FILES': +ST127A.CBL:348: warning: GO TO SECTION 'SPACE-IS-LESS-THAN-B' +ST127A.CBL: in section 'B-IS-LESS-THAN-SPACE': +ST127A.CBL: in paragraph 'SORT-TEST-1': +ST127A.CBL:357: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST127A.CBL:570: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST127A.CBL: in paragraph 'SORT-TEST-2': +ST127A.CBL:368: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST127A.CBL:570: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST127A.CBL: in paragraph 'SORT-TEST-3': +ST127A.CBL:379: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST127A.CBL:570: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST127A.CBL: in paragraph 'SORT-TEST-4': +ST127A.CBL:390: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST127A.CBL:570: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST127A.CBL: in paragraph 'SORT-TEST-5': +ST127A.CBL:401: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST127A.CBL:570: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST127A.CBL: in paragraph 'SORT-TEST-6': +ST127A.CBL:412: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST127A.CBL:570: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST127A.CBL: in paragraph 'SORT-TEST-7': +ST127A.CBL:423: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST127A.CBL:570: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST127A.CBL: in paragraph 'SORT-TEST-8': +ST127A.CBL:434: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST127A.CBL:570: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST127A.CBL: in paragraph 'SORT-REMARK-A': +ST127A.CBL:453: warning: GO TO SECTION 'CONTINUE-TESTING' +ST127A.CBL: in section 'SPACE-IS-LESS-THAN-B': +ST127A.CBL: in paragraph 'SORT-TEST-9': +ST127A.CBL:468: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST127A.CBL:570: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST127A.CBL: in paragraph 'SORT-TEST-10': +ST127A.CBL:482: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST127A.CBL:570: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST127A.CBL: in paragraph 'SORT-TEST-11': +ST127A.CBL:493: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST127A.CBL:570: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST127A.CBL: in paragraph 'SORT-TEST-12': +ST127A.CBL:504: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST127A.CBL:570: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST127A.CBL: in paragraph 'SORT-TEST-13': +ST127A.CBL:516: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST127A.CBL:570: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST127A.CBL: in paragraph 'SORT-TEST-14': +ST127A.CBL:527: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST127A.CBL:570: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST127A.CBL: in paragraph 'SORT-TEST-15': +ST127A.CBL:538: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST127A.CBL:570: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST127A.CBL: in paragraph 'SORT-TEST-16': +ST127A.CBL:549: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST127A.CBL:570: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST127A.CBL: in section 'CONTINUE-TESTING': +ST127A.CBL: in paragraph 'SORT-WRITE-17': +ST127A.CBL:569: warning: GO TO SECTION 'OUTPROC-EXIT' +ST127A.CBL: in section 'RETURN-DUPLICATE-RECORDS': +ST127A.CBL: in paragraph 'SORT-TEST-18-1': +ST127A.CBL:700: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST127A.CBL:570: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST127A.CBL: in paragraph 'SORT-TEST-19-1': +ST127A.CBL:722: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST127A.CBL:570: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST127A.CBL: in paragraph 'SORT-TEST-20-1': +ST127A.CBL:744: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST127A.CBL:570: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST127A.CBL: in paragraph 'SORT-TEST-21-1': +ST127A.CBL:766: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST127A.CBL:570: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST127A.CBL: in paragraph 'SORT-TEST-22-1': +ST127A.CBL:788: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST127A.CBL:570: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST127A.CBL: in paragraph 'SORT-TEST-23-1': +ST127A.CBL:810: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST127A.CBL:570: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST127A.CBL: in paragraph 'SORT-TEST-24-1': +ST127A.CBL:832: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST127A.CBL:570: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST127A.CBL: in paragraph 'SORT-TEST-25-1': +ST127A.CBL:854: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST127A.CBL:570: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +ST127A.CBL: in paragraph 'SORT-TEST-26-1': +ST127A.CBL:876: warning: GO TO paragraph 'RETURN-ERROR' which is defined in another SECTION +ST127A.CBL:570: note: 'RETURN-ERROR IN CONTINUE-TESTING' defined here +]) +AT_CHECK([./ST127A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST131A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST131A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST131A.CBL], [0], [], [ST131A.CBL:93: warning: DATA RECORDS is obsolete in COBOL 85 +ST131A.CBL:101: warning: DATA RECORDS is obsolete in COBOL 85 +ST131A.CBL:110: warning: DATA RECORDS is obsolete in COBOL 85 +ST131A.CBL: in section 'CCVS1': +ST131A.CBL: in paragraph 'P3-CREATE-F1': +ST131A.CBL:460: warning: GO TO paragraph 'FIRST-SORT' which is defined in another SECTION +ST131A.CBL:480: note: 'FIRST-SORT IN SRT-1' defined here +ST131A.CBL: in section 'SRT-2': +ST131A.CBL: in paragraph 'SECOND-SORT': +ST131A.CBL:497: warning: GO TO SECTION 'SRT-3' +ST131A.CBL: in section 'SRT-3': +ST131A.CBL: in paragraph 'END-FIRST-PROGRAM': +ST131A.CBL:647: warning: GO TO SECTION 'CCVS-EXIT' +ST131A.CBL: in section 'SRT3-OUTPUT-1': +ST131A.CBL: in paragraph 'CLOSE-3': +ST131A.CBL:896: warning: GO TO paragraph 'EXIT-3' which is defined in another SECTION +ST131A.CBL:935: note: 'EXIT-3 IN SRT3-OUTPUT-2' defined here +ST131A.CBL: in section 'SRT3-OUTPUT-2': +ST131A.CBL: in paragraph 'TERMINAL-3': +ST131A.CBL:911: warning: GO TO paragraph 'CLOSE-3' which is defined in another SECTION +ST131A.CBL:895: note: 'CLOSE-3 IN SRT3-OUTPUT-1' defined here +ST131A.CBL: in section 'CCVS-EXIT': +ST131A.CBL: in paragraph 'CCVS-999999': +ST131A.CBL:940: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +ST131A.CBL:340: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./ST131A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST132A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST132A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST132A.CBL], [0], [], [ST132A.CBL:62: warning: LABEL RECORDS is obsolete in COBOL 85 +ST132A.CBL:63: warning: DATA RECORDS is obsolete in COBOL 85 +ST132A.CBL:67: warning: DATA RECORDS is obsolete in COBOL 85 +ST132A.CBL:75: warning: DATA RECORDS is obsolete in COBOL 85 +ST132A.CBL: in section 'SRT-4': +ST132A.CBL: in paragraph 'FOURTH-SORT': +ST132A.CBL:425: warning: GO TO SECTION 'SRT-5' +ST132A.CBL: in section 'SRT-5': +ST132A.CBL: in paragraph 'FIFTH-SORT': +ST132A.CBL:581: warning: GO TO SECTION 'SRT-6' +ST132A.CBL: in section 'SRT-6': +ST132A.CBL: in paragraph 'STOP-RUN': +ST132A.CBL:694: warning: GO TO SECTION 'CCVS-EXIT' +ST132A.CBL: in section 'CCVS-EXIT': +ST132A.CBL: in paragraph 'CCVS-999999': +ST132A.CBL:735: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +ST132A.CBL:309: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./ST132A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST133A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST133A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST133A.CBL], [0], [], [ST133A.CBL:83: warning: LABEL RECORDS is obsolete in COBOL 85 +ST133A.CBL:84: warning: DATA RECORDS is obsolete in COBOL 85 +ST133A.CBL:89: warning: LABEL RECORDS is obsolete in COBOL 85 +ST133A.CBL:90: warning: DATA RECORDS is obsolete in COBOL 85 +ST133A.CBL:95: warning: DATA RECORDS is obsolete in COBOL 85 +ST133A.CBL: in section 'MAINLINE': +ST133A.CBL: in paragraph 'SECOND-SORT-PARA': +ST133A.CBL:455: warning: GO TO SECTION 'CCVS-EXIT' +ST133A.CBL: in section 'CCVS-EXIT': +ST133A.CBL: in paragraph 'CCVS-999999': +ST133A.CBL:893: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +ST133A.CBL:314: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./ST133A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST134A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST134A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST134A.CBL], [0], [], [ST134A.CBL:63: warning: DATA RECORDS is obsolete in COBOL 85 +ST134A.CBL:69: warning: LABEL RECORDS is obsolete in COBOL 85 +ST134A.CBL:70: warning: DATA RECORDS is obsolete in COBOL 85 +ST134A.CBL:76: warning: LABEL RECORDS is obsolete in COBOL 85 +ST134A.CBL:77: warning: DATA RECORDS is obsolete in COBOL 85 +ST134A.CBL: in section 'MAIN-LINE': +ST134A.CBL: in paragraph 'AFTER-SORT-PARA': +ST134A.CBL:420: warning: GO TO SECTION 'CLOSE-AND-STOP' +ST134A.CBL: in section 'CLOSE-AND-STOP': +ST134A.CBL: in paragraph 'CLOSE-AND-STOP-PARA': +ST134A.CBL:518: warning: GO TO SECTION 'CCVS-EXIT' +ST134A.CBL: in section 'CCVS-EXIT': +ST134A.CBL: in paragraph 'CCVS-999999': +ST134A.CBL:605: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +ST134A.CBL:300: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./ST134A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST135A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST135A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST135A.CBL], [0], [], [ST135A.CBL:67: warning: LABEL RECORDS is obsolete in COBOL 85 +ST135A.CBL:68: warning: DATA RECORDS is obsolete in COBOL 85 +ST135A.CBL:74: warning: LABEL RECORDS is obsolete in COBOL 85 +ST135A.CBL:75: warning: DATA RECORDS is obsolete in COBOL 85 +ST135A.CBL:81: warning: LABEL RECORDS is obsolete in COBOL 85 +ST135A.CBL:82: warning: DATA RECORDS is obsolete in COBOL 85 +ST135A.CBL:86: warning: LABEL RECORDS is obsolete in COBOL 85 +ST135A.CBL:87: warning: DATA RECORDS is obsolete in COBOL 85 +ST135A.CBL:90: warning: DATA RECORDS is obsolete in COBOL 85 +ST135A.CBL: in section 'BUILD-AND-SORT-AND-CHECK': +ST135A.CBL: in paragraph 'CLOSE-SORT-FILES': +ST135A.CBL:525: warning: GO TO SECTION 'CCVS-EXIT' +ST135A.CBL: in section 'CCVS-EXIT': +ST135A.CBL: in paragraph 'CCVS-999999': +ST135A.CBL:571: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +ST135A.CBL:255: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./ST135A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST136A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST136A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST136A.CBL], [0], [], [ST136A.CBL:47: warning: LABEL RECORDS is obsolete in COBOL 85 +ST136A.CBL:48: warning: DATA RECORDS is obsolete in COBOL 85 +ST136A.CBL:54: warning: DATA RECORDS is obsolete in COBOL 85 +ST136A.CBL: in section 'SORT-PARA': +ST136A.CBL: in paragraph 'SORT-PARAGRAPH': +ST136A.CBL:350: warning: GO TO SECTION 'SORT-TESTS' +ST136A.CBL: in section 'SORT-TESTS': +ST136A.CBL: in paragraph 'CLOSE-SORT-FILES': +ST136A.CBL:513: warning: GO TO SECTION 'CCVS-EXIT' +ST136A.CBL: in section 'CCVS-EXIT': +ST136A.CBL: in paragraph 'CCVS-999999': +ST136A.CBL:547: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +ST136A.CBL:234: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./ST136A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST137A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST137A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST137A.CBL], [0], [], [ST137A.CBL:118: warning: LABEL RECORDS is obsolete in COBOL 85 +ST137A.CBL:137: warning: LABEL RECORDS is obsolete in COBOL 85 +ST137A.CBL:140: warning: DATA RECORDS is obsolete in COBOL 85 +ST137A.CBL:158: warning: DATA RECORDS is obsolete in COBOL 85 +ST137A.CBL: in section 'SECT-ST216-DEC': +ST137A.CBL: in paragraph 'SRT-WRITE-DEC': +ST137A.CBL:397: warning: value size exceeds data size +ST137A.CBL:397: note: value size is 21 +ST137A.CBL:253: note: 'FEATURE' defined here as PIC X(20) +ST137A.CBL: in section 'SECT-ST216-0001': +ST137A.CBL: in paragraph 'SRT-WRITE-006': +ST137A.CBL:691: warning: GO TO paragraph 'CCVS-999999' which is defined in another SECTION +ST137A.CBL:705: note: 'CCVS-999999 IN CCVS-EXIT' defined here +ST137A.CBL: in section 'CCVS-EXIT': +ST137A.CBL: in paragraph 'CCVS-999999': +ST137A.CBL:706: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +ST137A.CBL:416: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./ST137A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST139A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST139A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST139A.CBL], [0], [], [ST139A.CBL:142: warning: LABEL RECORDS is obsolete in COBOL 85 +ST139A.CBL:157: warning: LABEL RECORDS is obsolete in COBOL 85 +ST139A.CBL:160: warning: DATA RECORDS is obsolete in COBOL 85 +ST139A.CBL:174: warning: LABEL RECORDS is obsolete in COBOL 85 +ST139A.CBL:177: warning: DATA RECORDS is obsolete in COBOL 85 +ST139A.CBL:195: warning: DATA RECORDS is obsolete in COBOL 85 +ST139A.CBL: in section 'SECT-ST209-DEC': +ST139A.CBL: in paragraph 'MRG-WRITE-DEC': +ST139A.CBL:430: warning: value size exceeds data size +ST139A.CBL:430: note: value size is 21 +ST139A.CBL:286: note: 'FEATURE' defined here as PIC X(20) +ST139A.CBL: in section 'SECT-ST209-0001': +ST139A.CBL: in paragraph 'MRG-WRITE-003': +ST139A.CBL:657: warning: value size exceeds data size +ST139A.CBL:657: note: value size is 21 +ST139A.CBL:286: note: 'FEATURE' defined here as PIC X(20) +ST139A.CBL: in paragraph 'MRG-WRITE-004': +ST139A.CBL:677: warning: value size exceeds data size +ST139A.CBL:677: note: value size is 21 +ST139A.CBL:286: note: 'FEATURE' defined here as PIC X(20) +ST139A.CBL: in paragraph 'MRG-WRITE-005': +ST139A.CBL:697: warning: value size exceeds data size +ST139A.CBL:697: note: value size is 21 +ST139A.CBL:286: note: 'FEATURE' defined here as PIC X(20) +ST139A.CBL: in paragraph 'MRG-WRITE-006': +ST139A.CBL:717: warning: value size exceeds data size +ST139A.CBL:717: note: value size is 21 +ST139A.CBL:286: note: 'FEATURE' defined here as PIC X(20) +ST139A.CBL: in paragraph 'MRG-WRITE-007': +ST139A.CBL:737: warning: value size exceeds data size +ST139A.CBL:737: note: value size is 21 +ST139A.CBL:286: note: 'FEATURE' defined here as PIC X(20) +ST139A.CBL: in paragraph 'MRG-WRITE-008': +ST139A.CBL:757: warning: value size exceeds data size +ST139A.CBL:757: note: value size is 21 +ST139A.CBL:286: note: 'FEATURE' defined here as PIC X(20) +ST139A.CBL: in paragraph 'MRG-FAIL-010': +ST139A.CBL:787: warning: alphanumeric value is expected +ST139A.CBL:320: note: 'CR-18V0' defined here as a group of length 20 +ST139A.CBL: in paragraph 'MRG-WRITE-010': +ST139A.CBL:793: warning: GO TO paragraph 'CCVS-999999' which is defined in another SECTION +ST139A.CBL:807: note: 'CCVS-999999 IN CCVS-EXIT' defined here +ST139A.CBL: in section 'CCVS-EXIT': +ST139A.CBL: in paragraph 'CCVS-999999': +ST139A.CBL:808: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +ST139A.CBL:449: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./ST139A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST140A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST140A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST140A.CBL], [0], [], [ST140A.CBL:148: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +ST140A.CBL:155: warning: LABEL RECORDS is obsolete in COBOL 85 +ST140A.CBL:158: warning: DATA RECORDS is obsolete in COBOL 85 +ST140A.CBL:175: warning: LABEL RECORDS is obsolete in COBOL 85 +ST140A.CBL:178: warning: DATA RECORDS is obsolete in COBOL 85 +ST140A.CBL:192: warning: LABEL RECORDS is obsolete in COBOL 85 +ST140A.CBL:195: warning: DATA RECORDS is obsolete in COBOL 85 +ST140A.CBL:209: warning: LABEL RECORDS is obsolete in COBOL 85 +ST140A.CBL:212: warning: DATA RECORDS is obsolete in COBOL 85 +ST140A.CBL:227: warning: DATA RECORDS is obsolete in COBOL 85 +ST140A.CBL: in section 'SECT-ST210-DEC': +ST140A.CBL: in paragraph 'SRT-WRITE-DEC': +ST140A.CBL:462: warning: value size exceeds data size +ST140A.CBL:462: note: value size is 21 +ST140A.CBL:318: note: 'FEATURE' defined here as PIC X(20) +ST140A.CBL: in section 'SECT-ST210-0001': +ST140A.CBL: in paragraph 'SRT-FAIL-010': +ST140A.CBL:848: warning: alphanumeric value is expected +ST140A.CBL:352: note: 'CR-18V0' defined here as a group of length 20 +ST140A.CBL: in paragraph 'SRT-WRITE-010': +ST140A.CBL:854: warning: GO TO paragraph 'CCVS-999999' which is defined in another SECTION +ST140A.CBL:878: note: 'CCVS-999999 IN CCVS-EXIT' defined here +ST140A.CBL: in section 'CCVS-EXIT': +ST140A.CBL: in paragraph 'CCVS-999999': +ST140A.CBL:879: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +ST140A.CBL:481: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./ST140A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST144A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST144A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST144A.CBL], [0], [], [ST144A.CBL:150: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +ST144A.CBL:157: warning: LABEL RECORDS is obsolete in COBOL 85 +ST144A.CBL:160: warning: DATA RECORDS is obsolete in COBOL 85 +ST144A.CBL:177: warning: LABEL RECORDS is obsolete in COBOL 85 +ST144A.CBL:180: warning: DATA RECORDS is obsolete in COBOL 85 +ST144A.CBL:194: warning: LABEL RECORDS is obsolete in COBOL 85 +ST144A.CBL:197: warning: DATA RECORDS is obsolete in COBOL 85 +ST144A.CBL:211: warning: LABEL RECORDS is obsolete in COBOL 85 +ST144A.CBL:214: warning: DATA RECORDS is obsolete in COBOL 85 +ST144A.CBL:229: warning: DATA RECORDS is obsolete in COBOL 85 +ST144A.CBL: in section 'SECT-ST214-DEC': +ST144A.CBL: in paragraph 'SRT-WRITE-DEC': +ST144A.CBL:464: warning: value size exceeds data size +ST144A.CBL:464: note: value size is 21 +ST144A.CBL:320: note: 'FEATURE' defined here as PIC X(20) +ST144A.CBL: in section 'SECT-ST214-0001': +ST144A.CBL: in paragraph 'SRT-FAIL-010': +ST144A.CBL:849: warning: alphanumeric value is expected +ST144A.CBL:354: note: 'CR-18V0' defined here as a group of length 20 +ST144A.CBL: in paragraph 'SRT-WRITE-010': +ST144A.CBL:855: warning: GO TO paragraph 'CCVS-999999' which is defined in another SECTION +ST144A.CBL:879: note: 'CCVS-999999 IN CCVS-EXIT' defined here +ST144A.CBL: in section 'CCVS-EXIT': +ST144A.CBL: in paragraph 'CCVS-999999': +ST144A.CBL:880: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +ST144A.CBL:483: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./ST144A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST146A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST146A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST146A.CBL], [0], [], [ST146A.CBL:65: warning: LABEL RECORDS is obsolete in COBOL 85 +ST146A.CBL:70: warning: LABEL RECORDS is obsolete in COBOL 85 +ST146A.CBL: in section 'CCVS-EXIT': +ST146A.CBL: in paragraph 'CCVS-999999': +ST146A.CBL:469: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +ST146A.CBL:316: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./ST146A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST147A]) +# promoted on 2023-02-04T15:44 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST147A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST147A.CBL], [0], [], [ST147A.CBL:165: warning: LABEL RECORDS is obsolete in COBOL 85 +ST147A.CBL:180: warning: LABEL RECORDS is obsolete in COBOL 85 +ST147A.CBL:183: warning: DATA RECORDS is obsolete in COBOL 85 +ST147A.CBL:197: warning: LABEL RECORDS is obsolete in COBOL 85 +ST147A.CBL:200: warning: DATA RECORDS is obsolete in COBOL 85 +ST147A.CBL:214: warning: LABEL RECORDS is obsolete in COBOL 85 +ST147A.CBL:217: warning: DATA RECORDS is obsolete in COBOL 85 +ST147A.CBL:231: warning: LABEL RECORDS is obsolete in COBOL 85 +ST147A.CBL:234: warning: DATA RECORDS is obsolete in COBOL 85 +ST147A.CBL:249: warning: DATA RECORDS is obsolete in COBOL 85 +ST147A.CBL: in section 'SECT-ST209-DEC': +ST147A.CBL: in paragraph 'MRG-WRITE-DEC': +ST147A.CBL:484: warning: value size exceeds data size +ST147A.CBL:484: note: value size is 21 +ST147A.CBL:340: note: 'FEATURE' defined here as PIC X(20) +ST147A.CBL: in section 'SECT-ST417-001': +ST147A.CBL: in paragraph 'MRG-FAIL-010': +ST147A.CBL:842: warning: alphanumeric value is expected +ST147A.CBL:374: note: 'CR-18V0' defined here as a group of length 20 +ST147A.CBL: in section 'READ-SQ-FS3': +ST147A.CBL: in paragraph 'MRG-FAIL-018': +ST147A.CBL:1010: warning: alphanumeric value is expected +ST147A.CBL:374: note: 'CR-18V0' defined here as a group of length 20 +ST147A.CBL: in section 'READ-SQ-FS4': +ST147A.CBL: in paragraph 'MRG-FAIL-026': +ST147A.CBL:1178: warning: alphanumeric value is expected +ST147A.CBL:374: note: 'CR-18V0' defined here as a group of length 20 +ST147A.CBL: in section 'SECT-ST417-001': +ST147A.CBL: in paragraph 'MRG-WRITE-010': +ST147A.CBL:848: warning: GO TO paragraph 'MRG-TEST-011' which is defined in another SECTION +ST147A.CBL:863: note: 'MRG-TEST-011 IN READ-SQ-FS3' defined here +ST147A.CBL: in section 'READ-SQ-FS3': +ST147A.CBL: in paragraph 'MRG-WRITE-018': +ST147A.CBL:1016: warning: GO TO paragraph 'MRG-TEST-019' which is defined in another SECTION +ST147A.CBL:1031: note: 'MRG-TEST-019 IN READ-SQ-FS4' defined here +ST147A.CBL: in section 'READ-SQ-FS4': +ST147A.CBL: in paragraph 'MRG-WRITE-026': +ST147A.CBL:1184: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +ST147A.CBL:503: note: 'CLOSE-FILES IN CCVS1' defined here +ST147A.CBL: in section 'CCVS-EXIT': +ST147A.CBL: in paragraph 'CCVS-999999': +ST147A.CBL:1201: warning: GO TO paragraph 'CLOSE-FILES' which is defined in another SECTION +ST147A.CBL:503: note: 'CLOSE-FILES IN CCVS1' defined here +]) +AT_CHECK([./ST147A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST301M]) +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST301M.CBL .],[0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST301M.CBL], [0], [], []) +# AT_CHECK([./ST301M], [0], [], []) +AT_CLEANUP