From cac0406a6b15dc19f19fde42f68cdb18824abf3d Mon Sep 17 00:00:00 2001 From: Fabrice Le Fessant Date: Sun, 5 Feb 2023 23:35:34 +0100 Subject: [PATCH] Add for NIST tests --- .autofonce | 16 +- tests/autofonce.env | 15 + tests/cobol85/nistrun.src/run_DB.at | 168 +---- tests/cobol85/nistrun.src/run_IC.at | 242 ++----- tests/cobol85/nistrun.src/run_IF.at | 342 +++------- tests/cobol85/nistrun.src/run_IX.at | 373 +++-------- tests/cobol85/nistrun.src/run_NC.at | 963 ++++++---------------------- tests/cobol85/nistrun.src/run_OB.at | 88 +-- tests/cobol85/nistrun.src/run_RL.at | 400 +++--------- tests/cobol85/nistrun.src/run_RW.at | 36 +- tests/cobol85/nistrun.src/run_SG.at | 462 +------------ tests/cobol85/nistrun.src/run_SM.at | 216 +++---- tests/cobol85/nistrun.src/run_SQ.at | 694 +++++--------------- tests/cobol85/nistrun.src/run_ST.at | 610 +++--------------- 14 files changed, 905 insertions(+), 3720 deletions(-) create mode 100644 tests/autofonce.env diff --git a/.autofonce b/.autofonce index d9842703c..7e5014f51 100644 --- a/.autofonce +++ b/.autofonce @@ -26,21 +26,7 @@ env = "testsuite" [envs] # env_name = """...""" # env_name = " 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 +AT_CHECK([$COMPILE85 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 @@ -97,10 +97,6 @@ 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 @@ -119,10 +115,10 @@ OBNC1M.CBL:764: interrupt from keyboard (signal) AT_CLEANUP AT_SETUP([OBNC2M]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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': @@ -140,50 +136,27 @@ 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 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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 @@ -204,22 +177,16 @@ 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 +# promoted on 2023-02-05T23:28 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 +AT_CHECK([$COMPILE85 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 @@ -240,27 +207,14 @@ 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 +AT_CHECK([$COMPILE85 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], [], []) @@ -268,10 +222,10 @@ AT_CLEANUP AT_SETUP([OBSQ5A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:28 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 +AT_CHECK([$COMPILE85 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 @@ -292,16 +246,10 @@ 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 +AT_CHECK([$COMPILE85 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 @@ -315,12 +263,6 @@ 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], [], []) diff --git a/tests/cobol85/nistrun.src/run_RL.at b/tests/cobol85/nistrun.src/run_RL.at index c31eedd9a..c4efcb446 100644 --- a/tests/cobol85/nistrun.src/run_RL.at +++ b/tests/cobol85/nistrun.src/run_RL.at @@ -1,14 +1,10 @@ # This first test generates file XXXXX021 used by some other tests AT_SETUP([RL101A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 RL101A.CBL], [0], [], [RL101A.CBL:68: warning: LABEL RECORDS is obsolete in COBOL 85 ]) AT_CHECK([./RL101A], [0], [], []) @@ -16,18 +12,14 @@ AT_CLEANUP # modifies XXXXX021 AT_SETUP([RL102A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:28 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([$COMPILE85 RL101A.CBL], [0], [], [RL101A.CBL:68: warning: LABEL RECORDS is obsolete in COBOL 85 ]) 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 +AT_CHECK([$COMPILE85 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 @@ -41,10 +33,6 @@ 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], [], []) @@ -53,18 +41,14 @@ AT_CLEANUP # modifies XXXXX021 AT_SETUP([RL103A]) -# promoted on 2023-02-04T15:45 +# promoted on 2023-02-05T23:28 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([$COMPILE85 RL101A.CBL], [0], [], [RL101A.CBL:68: warning: LABEL RECORDS is obsolete in COBOL 85 ]) 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 +AT_CHECK([$COMPILE85 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 @@ -78,18 +62,10 @@ 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([$COMPILE85 RL103A.SUB], [0], [], [RL103A.SUB:58: warning: LABEL RECORDS is obsolete in COBOL 85 ]) AT_CHECK([./RL103A], [0], [], []) @@ -97,15 +73,11 @@ AT_CLEANUP AT_SETUP([RL104A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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], [], []) @@ -114,58 +86,43 @@ AT_CLEANUP # modifies XXXXX021 AT_SETUP([RL105A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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], [], []) @@ -173,46 +130,28 @@ AT_CLEANUP # This first test generates file XXXXX061 used by some other tests AT_SETUP([RL108A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 RL108A.CBL], [0], [], [RL108A.CBL:64: warning: LABEL RECORDS is obsolete in COBOL 85 ]) AT_CHECK([./RL108A], [0], [], []) AT_CLEANUP AT_SETUP([RL109A]) -# promoted on 2023-02-04T15:45 +# promoted on 2023-02-05T23:28 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([$COMPILE85 RL101A.CBL], [0], [], [RL101A.CBL:68: warning: LABEL RECORDS is obsolete in COBOL 85 ]) 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([$COMPILE85 RL108A.CBL], [0], [], [RL108A.CBL:64: warning: LABEL RECORDS is obsolete in COBOL 85 ]) 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 +AT_CHECK([$COMPILE85 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 @@ -226,10 +165,6 @@ 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], [], []) @@ -237,33 +172,18 @@ AT_CLEANUP AT_SETUP([RL110A]) -# promoted on 2023-02-04T15:45 +# promoted on 2023-02-05T23:28 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([$COMPILE85 RL101A.CBL], [0], [], [RL101A.CBL:68: warning: LABEL RECORDS is obsolete in COBOL 85 ]) 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([$COMPILE85 RL108A.CBL], [0], [], [RL108A.CBL:64: warning: LABEL RECORDS is obsolete in COBOL 85 ]) 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([$COMPILE85 RL110A.SUB], [0], [], [RL110A.SUB:58: warning: LABEL RECORDS is obsolete in COBOL 85 ]) AT_CHECK([./RL110A], [0], [], []) @@ -271,183 +191,135 @@ AT_CLEANUP AT_SETUP([RL111A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:28 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([$COMPILE85 RL101A.CBL], [0], [], [RL101A.CBL:68: warning: LABEL RECORDS is obsolete in COBOL 85 ]) 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([$COMPILE85 RL201A.CBL], [0], [], [RL201A.CBL:54: warning: LABEL RECORDS is obsolete in COBOL 85 ]) AT_CHECK([./RL201A], [0], [], []) AT_CLEANUP AT_SETUP([RL202A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:28 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([$COMPILE85 RL101A.CBL], [0], [], [RL101A.CBL:68: warning: LABEL RECORDS is obsolete in COBOL 85 ]) 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 +AT_CHECK([$COMPILE85 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 @@ -461,10 +333,6 @@ 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], [], []) @@ -472,22 +340,14 @@ AT_CLEANUP AT_SETUP([RL203A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:28 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([$COMPILE85 RL101A.CBL], [0], [], [RL101A.CBL:68: warning: LABEL RECORDS is obsolete in COBOL 85 ]) 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([$COMPILE85 RL203A.SUB], [0], [], [RL203A.SUB:57: warning: LABEL RECORDS is obsolete in COBOL 85 ]) AT_CHECK([./RL203A], [0], [], []) @@ -495,66 +355,47 @@ AT_CLEANUP AT_SETUP([RL204A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:26 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': +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:26 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([$COMPILE85 RL206A.CBL], [0], [], [RL206A.CBL:54: warning: LABEL RECORDS is obsolete in COBOL 85 ]) AT_CHECK([./RL206A], [0], [], []) AT_CLEANUP AT_SETUP([RL207A]) -# promoted on 2023-02-04T15:57 +# promoted on 2023-02-05T23:28 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([$COMPILE85 RL101A.CBL], [0], [], [RL101A.CBL:68: warning: LABEL RECORDS is obsolete in COBOL 85 ]) 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 +AT_CHECK([$COMPILE85 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 @@ -568,33 +409,18 @@ 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([$COMPILE85 RL203A.SUB], [0], [], [RL203A.SUB:57: warning: LABEL RECORDS is obsolete in COBOL 85 ]) 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([$COMPILE85 RL206A.CBL], [0], [], [RL206A.CBL:54: warning: LABEL RECORDS is obsolete in COBOL 85 ]) 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 +AT_CHECK([$COMPILE85 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 @@ -608,14 +434,6 @@ 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], [], []) @@ -623,18 +441,14 @@ AT_CLEANUP AT_SETUP([RL208A]) -# promoted on 2023-02-04T15:57 +# promoted on 2023-02-05T23:28 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([$COMPILE85 RL101A.CBL], [0], [], [RL101A.CBL:68: warning: LABEL RECORDS is obsolete in COBOL 85 ]) 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 +AT_CHECK([$COMPILE85 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 @@ -648,37 +462,18 @@ 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([$COMPILE85 RL203A.SUB], [0], [], [RL203A.SUB:57: warning: LABEL RECORDS is obsolete in COBOL 85 ]) 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([$COMPILE85 RL206A.CBL], [0], [], [RL206A.CBL:54: warning: LABEL RECORDS is obsolete in COBOL 85 ]) 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([$COMPILE85 RL208A.SUB], [0], [], [RL208A.SUB:57: warning: LABEL RECORDS is obsolete in COBOL 85 ]) AT_CHECK([./RL208A], [0], [], []) @@ -686,76 +481,51 @@ AT_CLEANUP AT_SETUP([RL209A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 RL209A.CBL], [0], [], [RL209A.CBL:57: warning: LABEL RECORDS is obsolete in COBOL 85 ]) AT_CHECK([./RL209A], [0], [], []) AT_CLEANUP AT_SETUP([RL210A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 RL210A.CBL], [0], [], [RL210A.CBL:54: warning: LABEL RECORDS is obsolete in COBOL 85 ]) AT_CHECK([./RL210A], [0], [], []) AT_CLEANUP AT_SETUP([RL211A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 RL211A.CBL], [0], [], [RL211A.CBL:54: warning: LABEL RECORDS is obsolete in COBOL 85 ]) AT_CHECK([./RL211A], [0], [], []) AT_CLEANUP AT_SETUP([RL212A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 RL212A.CBL], [0], [], [RL212A.CBL:54: warning: LABEL RECORDS is obsolete in COBOL 85 ]) AT_CHECK([./RL212A], [0], [], []) AT_CLEANUP AT_SETUP([RL213A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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], [], []) @@ -764,7 +534,7 @@ 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([$COMPILE85 RL301M.CBL], [0], [], []) # AT_CHECK([./RL301M], [0], [], []) AT_CLEANUP @@ -772,7 +542,7 @@ 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 +AT_CHECK([$COMPILE85 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 @@ -786,6 +556,6 @@ 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([$COMPILE85 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 index d54710684..cf252f6c0 100644 --- a/tests/cobol85/nistrun.src/run_RW.at +++ b/tests/cobol85/nistrun.src/run_RW.at @@ -1,79 +1,63 @@ AT_SETUP([RW101A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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], [], []) @@ -83,7 +67,7 @@ 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 +AT_CHECK([$COMPILE85 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 ]) @@ -94,7 +78,7 @@ 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 +AT_CHECK([$COMPILE85 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 ]) diff --git a/tests/cobol85/nistrun.src/run_SG.at b/tests/cobol85/nistrun.src/run_SG.at index 4a2ccbe67..3043e4d84 100644 --- a/tests/cobol85/nistrun.src/run_SG.at +++ b/tests/cobol85/nistrun.src/run_SG.at @@ -1,9 +1,9 @@ AT_SETUP([SG101A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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 @@ -213,27 +213,16 @@ 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 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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 @@ -345,74 +334,6 @@ 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], [], []) @@ -420,10 +341,10 @@ AT_CHECK([./SG102A], [0], [], []) AT_CLEANUP AT_SETUP([SG103A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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 @@ -453,53 +374,16 @@ 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 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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 @@ -524,74 +408,16 @@ 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 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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 @@ -620,74 +446,16 @@ 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 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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 @@ -712,74 +480,16 @@ 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 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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 @@ -932,24 +642,16 @@ 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 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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 @@ -974,22 +676,8 @@ 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 @@ -1001,10 +689,10 @@ AT_CHECK([./SG202A], [0], [], []) AT_CLEANUP AT_SETUP([SG203A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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 @@ -1131,89 +819,7 @@ 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], [], []) @@ -1221,10 +827,10 @@ AT_CHECK([./SG203A], [0], [], []) AT_CLEANUP AT_SETUP([SG204A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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 @@ -1256,28 +862,6 @@ 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], [], []) @@ -1287,7 +871,7 @@ 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': +AT_CHECK([$COMPILE85 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 @@ -1300,7 +884,7 @@ 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 +AT_CHECK([$COMPILE85 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': @@ -1319,7 +903,7 @@ 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 +AT_CHECK([$COMPILE85 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': diff --git a/tests/cobol85/nistrun.src/run_SM.at b/tests/cobol85/nistrun.src/run_SM.at index 236c726dc..3cf59e7c5 100644 --- a/tests/cobol85/nistrun.src/run_SM.at +++ b/tests/cobol85/nistrun.src/run_SM.at @@ -1,15 +1,13 @@ # Generates XXXXX01 AT_SETUP([SM101A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:33 AT_KEYWORDS([SM]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) 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([$COMPILE85 SM101A.CBL], [0], [], [copy/K1FDA:1: warning: LABEL RECORDS is obsolete in COBOL 85 +copy/K1FDA:2: warning: DATA RECORDS is obsolete in COBOL 85 ]) AT_CHECK([./SM101A], [0], [], []) @@ -17,27 +15,18 @@ AT_CLEANUP AT_SETUP([SM102A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:34 AT_KEYWORDS([SM]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) 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([$COMPILE85 SM101A.CBL], [0], [], [copy/K1FDA:1: warning: LABEL RECORDS is obsolete in COBOL 85 +copy/K1FDA:2: warning: DATA RECORDS is obsolete in COBOL 85 ]) 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 +AT_CHECK([$COMPILE85 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], [], []) @@ -45,48 +34,34 @@ AT_CLEANUP AT_SETUP([SM103A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 AT_KEYWORDS([SM]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) 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 +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:34 AT_KEYWORDS([SM]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) 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([$COMPILE85 SM101A.CBL], [0], [], [copy/K1FDA:1: warning: LABEL RECORDS is obsolete in COBOL 85 +copy/K1FDA:2: warning: DATA RECORDS is obsolete in COBOL 85 ]) 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 +AT_CHECK([$COMPILE85 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], [], []) @@ -94,57 +69,49 @@ AT_CLEANUP AT_SETUP([SM105A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:33 AT_KEYWORDS([SM]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) 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 +AT_CHECK([$COMPILE85 SM105A.CBL], [0], [], [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 +# promoted on 2023-02-05T23:26 AT_KEYWORDS([SM]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) 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([$COMPILE85 SM106A.CBL], [0], [], []) AT_CHECK([./SM106A], [0], [], []) AT_CLEANUP AT_SETUP([SM107A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 AT_KEYWORDS([SM]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) 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([$COMPILE85 SM107A.CBL], [0], [], []) AT_CHECK([./SM107A], [0], [], []) AT_CLEANUP AT_SETUP([SM201A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:33 AT_KEYWORDS([SM]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) 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([$COMPILE85 SM201A.CBL], [0], [], [copy/K1FDA:1: warning: LABEL RECORDS is obsolete in COBOL 85 +copy/K1FDA:2: warning: DATA RECORDS is obsolete in COBOL 85 ]) AT_CHECK([./SM201A], [0], [], []) @@ -152,15 +119,13 @@ 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 +# promoted on 2023-02-05T23:33 AT_KEYWORDS([SM]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) 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([$COMPILE85 SM101A.CBL], [0], [], [copy/K1FDA:1: warning: LABEL RECORDS is obsolete in COBOL 85 +copy/K1FDA:2: warning: DATA RECORDS is obsolete in COBOL 85 ]) AT_CHECK([./SM101A], [0], [], []) AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM202A.SUB .], [0], [], []) @@ -171,53 +136,36 @@ AT_CLEANUP AT_SETUP([SM203A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 AT_KEYWORDS([SM]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [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 +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:34 AT_KEYWORDS([SM]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) 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([$COMPILE85 SM101A.CBL], [0], [], [copy/K1FDA:1: warning: LABEL RECORDS is obsolete in COBOL 85 +copy/K1FDA:2: warning: DATA RECORDS is obsolete in COBOL 85 ]) 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 +AT_CHECK([$COMPILE85 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 +AT_CHECK([$COMPILE85 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], [], []) @@ -225,78 +173,64 @@ AT_CLEANUP AT_SETUP([SM205A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:33 AT_KEYWORDS([SM]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) 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 +AT_CHECK([$COMPILE85 SM205A.CBL], [0], [], [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 +# promoted on 2023-02-05T23:26 AT_KEYWORDS([SM]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) 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': +AT_CHECK([$COMPILE85 -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 +# promoted on 2023-02-05T23:33 AT_KEYWORDS([SM]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) 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([$COMPILE85 SM207A.CBL], [0], [], [SM207A.CBL:338: warning: copybook not found in library '../copyalt', library-name ignored ]) AT_CHECK([./SM207A], [0], [], []) AT_CLEANUP AT_SETUP([SM208A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 AT_KEYWORDS([SM]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) 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([$COMPILE85 SM208A.CBL], [0], [], []) AT_CHECK([./SM208A], [0], [], []) AT_CLEANUP AT_SETUP([SM301M]) AT_KEYWORDS([SM]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) 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([$COMPILE85 SM301M.CBL], [0], [], []) AT_CHECK([./SM301M], [0], [ ], []) @@ -305,8 +239,10 @@ AT_CLEANUP AT_SETUP([SM401M]) AT_KEYWORDS([SM]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) 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([$COMPILE85 SM401M.CBL], [0], [], []) AT_CHECK([./SM401M], [0], [COW SHEEP PIG HORSE LAMB DOG CAT ], []) diff --git a/tests/cobol85/nistrun.src/run_SQ.at b/tests/cobol85/nistrun.src/run_SQ.at index 36c897add..ad9ba18ad 100644 --- a/tests/cobol85/nistrun.src/run_SQ.at +++ b/tests/cobol85/nistrun.src/run_SQ.at @@ -1,203 +1,148 @@ AT_SETUP([SQ101M]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ101M.CBL], [0], [], []) AT_CHECK([./SQ101M], [0], [], []) AT_CLEANUP AT_SETUP([SQ102A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ102A.CBL], [0], [], []) AT_CHECK([./SQ102A], [0], [], []) AT_CLEANUP AT_SETUP([SQ103A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ103A.CBL], [0], [], []) AT_CHECK([./SQ103A], [0], [], []) AT_CLEANUP AT_SETUP([SQ104A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ104A.CBL], [0], [], []) AT_CHECK([./SQ104A], [0], [], []) AT_CLEANUP AT_SETUP([SQ105A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ105A.CBL], [0], [], [SQ105A.CBL:71: warning: DATA RECORDS is obsolete in COBOL 85 ]) AT_CHECK([./SQ105A], [0], [], []) AT_CLEANUP AT_SETUP([SQ106A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ106A.CBL], [0], [], []) AT_CHECK([./SQ106A], [0], [], []) AT_CLEANUP AT_SETUP([SQ107A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ107A.CBL], [0], [], []) AT_CHECK([./SQ107A], [0], [], []) AT_CLEANUP AT_SETUP([SQ108A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ108A.CBL], [0], [], []) AT_CHECK([./SQ108A], [0], [], []) AT_CLEANUP AT_SETUP([SQ109M]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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': +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:26 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': +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:26 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' +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:26 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': +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ113A.CBL], [0], [], []) AT_CHECK([./SQ113A], [0], [], []) AT_CLEANUP AT_SETUP([SQ114A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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': +AT_CHECK([$COMPILE85 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 @@ -215,10 +160,6 @@ 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], [], []) @@ -226,41 +167,33 @@ AT_CLEANUP AT_SETUP([SQ115A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ115A.CBL], [0], [], []) AT_CHECK([./SQ115A], [0], [], []) AT_CLEANUP AT_SETUP([SQ116A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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': +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:26 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': +AT_CHECK([$COMPILE85 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 @@ -281,118 +214,86 @@ 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 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ121A.CBL], [0], [], []) AT_CHECK([./SQ121A], [0], [], []) AT_CLEANUP AT_SETUP([SQ122A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ122A.CBL], [0], [], []) AT_CHECK([./SQ122A], [0], [], []) AT_CLEANUP AT_SETUP([SQ123A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ123A.CBL], [0], [], []) AT_CHECK([./SQ123A], [0], [], []) AT_CLEANUP AT_SETUP([SQ124A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ124A.CBL], [0], [], []) AT_CHECK([./SQ124A], [0], [], []) AT_CLEANUP AT_SETUP([SQ125A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ125A.CBL], [0], [], []) AT_CHECK([./SQ125A], [0], [], []) AT_CLEANUP AT_SETUP([SQ126A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ126A.CBL], [0], [], []) AT_CHECK([./SQ126A], [0], [], []) AT_CLEANUP AT_SETUP([SQ127A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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': +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:26 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 +AT_CHECK([$COMPILE85 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 @@ -407,433 +308,306 @@ 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 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ129A.CBL], [0], [], []) AT_CHECK([./SQ129A], [0], [], []) AT_CLEANUP AT_SETUP([SQ130A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ130A.CBL], [0], [], []) AT_CHECK([./SQ130A], [0], [], []) AT_CLEANUP AT_SETUP([SQ131A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ131A.CBL], [0], [], []) AT_CHECK([./SQ131A], [0], [], []) AT_CLEANUP AT_SETUP([SQ132A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ132A.CBL], [0], [], []) AT_CHECK([./SQ132A], [0], [], []) AT_CLEANUP AT_SETUP([SQ133A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ133A.CBL], [0], [], []) AT_CHECK([./SQ133A], [0], [], []) AT_CLEANUP AT_SETUP([SQ134A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ134A.CBL], [0], [], []) AT_CHECK([./SQ134A], [0], [], []) AT_CLEANUP AT_SETUP([SQ135A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ135A.CBL], [0], [], []) AT_CHECK([./SQ135A], [0], [], []) AT_CLEANUP AT_SETUP([SQ136A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ136A.CBL], [0], [], []) AT_CHECK([./SQ136A], [0], [], []) AT_CLEANUP AT_SETUP([SQ137A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ137A.CBL], [0], [], []) AT_CHECK([./SQ137A], [0], [], []) AT_CLEANUP AT_SETUP([SQ138A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ138A.CBL], [0], [], []) AT_CHECK([./SQ138A], [0], [], []) AT_CLEANUP AT_SETUP([SQ139A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ139A.CBL], [0], [], []) AT_CHECK([./SQ139A], [0], [], []) AT_CLEANUP AT_SETUP([SQ140A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ140A.CBL], [0], [], []) AT_CHECK([./SQ140A], [0], [], []) AT_CLEANUP AT_SETUP([SQ141A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ141A.CBL], [0], [], []) AT_CHECK([./SQ141A], [0], [], []) AT_CLEANUP AT_SETUP([SQ142A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ142A.CBL], [0], [], []) AT_CHECK([./SQ142A], [0], [], []) AT_CLEANUP AT_SETUP([SQ143A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ143A.CBL], [0], [], []) AT_CHECK([./SQ143A], [0], [], []) AT_CLEANUP AT_SETUP([SQ144A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ144A.CBL], [0], [], []) AT_CHECK([./SQ144A], [0], [], []) AT_CLEANUP AT_SETUP([SQ146A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ146A.CBL], [0], [], []) AT_CHECK([./SQ146A], [0], [], []) AT_CLEANUP AT_SETUP([SQ147A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ147A.CBL], [0], [], []) AT_CHECK([./SQ147A], [0], [], []) AT_CLEANUP AT_SETUP([SQ148A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ148A.CBL], [0], [], []) AT_CHECK([./SQ148A], [0], [], []) AT_CLEANUP AT_SETUP([SQ149A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ149A.CBL], [0], [], []) AT_CHECK([./SQ149A], [0], [], []) AT_CLEANUP AT_SETUP([SQ150A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ150A.CBL], [0], [], []) AT_CHECK([./SQ150A], [0], [], []) AT_CLEANUP AT_SETUP([SQ151A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ151A.CBL], [0], [], []) AT_CHECK([./SQ151A], [0], [], []) AT_CLEANUP AT_SETUP([SQ152A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ152A.CBL], [0], [], []) AT_CHECK([./SQ152A], [0], [], []) AT_CLEANUP AT_SETUP([SQ153A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ153A.CBL], [0], [], []) AT_CHECK([./SQ153A], [0], [], []) AT_CLEANUP AT_SETUP([SQ154A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ154A.CBL], [0], [], []) AT_CHECK([./SQ154A], [0], [], []) AT_CLEANUP AT_SETUP([SQ155A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ155A.CBL], [0], [], []) AT_CHECK([./SQ155A], [0], [], []) AT_CLEANUP AT_SETUP([SQ156A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ156A.CBL], [0], [], []) AT_CHECK([./SQ156A], [0], [], []) AT_CLEANUP AT_SETUP([SQ201M]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ201M.CBL], [0], [], []) AT_CHECK([./SQ201M], [0], [], []) AT_CLEANUP AT_SETUP([SQ202A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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': +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:26 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': +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:26 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': +AT_CHECK([$COMPILE85 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 @@ -850,140 +624,85 @@ 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 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ205A.CBL], [0], [], []) AT_CHECK([./SQ205A], [0], [], []) AT_CLEANUP AT_SETUP([SQ206A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ206A.CBL], [0], [], []) AT_CHECK([./SQ206A], [0], [], []) AT_CLEANUP AT_SETUP([SQ207M]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ207M.CBL], [0], [], []) AT_CHECK([./SQ207M], [0], [], []) AT_CLEANUP AT_SETUP([SQ208M]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ208M.CBL], [0], [], []) AT_CHECK([./SQ208M], [0], [], []) AT_CLEANUP AT_SETUP([SQ209M]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ209M.CBL], [0], [], []) AT_CHECK([./SQ209M], [0], [], []) AT_CLEANUP AT_SETUP([SQ210M]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ210M.CBL], [0], [], []) AT_CHECK([./SQ210M], [0], [], []) AT_CLEANUP AT_SETUP([SQ211A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ211A.CBL], [0], [], []) AT_CHECK([./SQ211A], [0], [], []) AT_CLEANUP AT_SETUP([SQ212A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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' +AT_CHECK([$COMPILE85 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], [], []) @@ -991,149 +710,102 @@ AT_CLEANUP AT_SETUP([SQ213A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ213A.CBL], [0], [], []) AT_CHECK([./SQ213A], [0], [], []) AT_CLEANUP AT_SETUP([SQ214A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ214A.CBL], [0], [], []) AT_CHECK([./SQ214A], [0], [], []) AT_CLEANUP AT_SETUP([SQ215A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ215A.CBL], [0], [], []) AT_CHECK([./SQ215A], [0], [], []) AT_CLEANUP AT_SETUP([SQ216A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ216A.CBL], [0], [], []) AT_CHECK([./SQ216A], [0], [], []) AT_CLEANUP AT_SETUP([SQ217A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ217A.CBL], [0], [], []) AT_CHECK([./SQ217A], [0], [], []) AT_CLEANUP AT_SETUP([SQ218A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ218A.CBL], [0], [], [SQ218A.CBL:43: warning: RECORD DELIMITER STANDARD-1 ignored ]) AT_CHECK([./SQ218A], [0], [], []) AT_CLEANUP AT_SETUP([SQ219A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ219A.CBL], [0], [], [SQ219A.CBL:44: warning: RECORD DELIMITER STANDARD-1 ignored ]) AT_CHECK([./SQ219A], [0], [], []) AT_CLEANUP AT_SETUP([SQ220A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ220A.CBL], [0], [], []) AT_CHECK([./SQ220A], [0], [], []) AT_CLEANUP AT_SETUP([SQ221A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ221A.CBL], [0], [], []) AT_CHECK([./SQ221A], [0], [], []) AT_CLEANUP AT_SETUP([SQ222A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ222A.CBL], [0], [], []) AT_CHECK([./SQ222A], [0], [], []) AT_CLEANUP AT_SETUP([SQ223A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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': +AT_CHECK([$COMPILE85 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 @@ -1154,20 +826,16 @@ 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 +# promoted on 2023-02-05T23:26 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': +AT_CHECK([$COMPILE85 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 @@ -1176,47 +844,35 @@ 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 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ225A.CBL], [0], [], []) AT_CHECK([./SQ225A], [0], [], []) AT_CLEANUP AT_SETUP([SQ226A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ226A.CBL], [0], [], []) AT_CHECK([./SQ226A], [0], [], []) AT_CLEANUP AT_SETUP([SQ227A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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': +AT_CHECK([$COMPILE85 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 @@ -1225,10 +881,6 @@ 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], [], []) @@ -1236,18 +888,14 @@ AT_CLEANUP AT_SETUP([SQ228A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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': +AT_CHECK([$COMPILE85 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], [], []) @@ -1255,27 +903,19 @@ AT_CLEANUP AT_SETUP([SQ229A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ229A.CBL], [0], [], []) AT_CHECK([./SQ229A], [0], [], []) AT_CLEANUP AT_SETUP([SQ230A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:26 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([$COMPILE85 SQ230A.CBL], [0], [], []) AT_CHECK([./SQ230A], [0], [], []) AT_CLEANUP @@ -1285,7 +925,7 @@ 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 +AT_CHECK([$COMPILE85 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 @@ -1300,7 +940,7 @@ 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 +AT_CHECK([$COMPILE85 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 ]) @@ -1311,7 +951,7 @@ 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 +AT_CHECK([$COMPILE85 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 diff --git a/tests/cobol85/nistrun.src/run_ST.at b/tests/cobol85/nistrun.src/run_ST.at index 56853700f..85ab10983 100644 --- a/tests/cobol85/nistrun.src/run_ST.at +++ b/tests/cobol85/nistrun.src/run_ST.at @@ -4,7 +4,7 @@ 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 +AT_CHECK([$COMPILE85 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 ]) @@ -17,7 +17,7 @@ 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 +AT_CHECK([$COMPILE85 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 @@ -28,10 +28,10 @@ AT_CHECK([./ST102A], [0], [], []) AT_CLEANUP AT_SETUP([ST103A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:20 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 +AT_CHECK([$COMPILE85 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 @@ -39,15 +39,8 @@ 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 +AT_CHECK([$COMPILE85 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], [], []) @@ -55,32 +48,25 @@ AT_CLEANUP AT_SETUP([ST104A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:19 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 +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:28 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 +AT_CHECK([$COMPILE85 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], [], []) @@ -88,47 +74,28 @@ AT_CLEANUP # regenerates XXXXX001 AT_SETUP([ST106A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:28 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 +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:28 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 +AT_CHECK([$COMPILE85 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([$COMPILE85 ST107A.SUB], [0], [], [ST107A.SUB:39: warning: LABEL RECORDS is obsolete in COBOL 85 ]) AT_CHECK([./ST107A], [0], [], []) @@ -136,88 +103,26 @@ AT_CLEANUP AT_SETUP([ST108A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:20 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 +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:19 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 +AT_CHECK([$COMPILE85 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], [], []) @@ -227,7 +132,7 @@ 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 +AT_CHECK([$COMPILE85 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 @@ -238,10 +143,10 @@ AT_CHECK([./ST110A], [0], [], []) AT_CLEANUP AT_SETUP([ST111A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:20 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 +AT_CHECK([$COMPILE85 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 @@ -249,15 +154,8 @@ 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 +AT_CHECK([$COMPILE85 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], [], []) @@ -265,18 +163,11 @@ AT_CLEANUP AT_SETUP([ST112M]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:20 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 +AT_CHECK([$COMPILE85 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], [], []) @@ -285,29 +176,22 @@ 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([$COMPILE85 ST113M.SUB], [0], [], []) AT_CHECK([./ST113M], [0], [], []) AT_CLEANUP AT_SETUP([ST114M]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:20 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 +AT_CHECK([$COMPILE85 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 +AT_CHECK([$COMPILE85 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], [], []) @@ -315,15 +199,11 @@ AT_CLEANUP AT_SETUP([ST115A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:19 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 +AT_CHECK([$COMPILE85 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], [], []) @@ -333,7 +213,7 @@ 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 +AT_CHECK([$COMPILE85 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 @@ -344,10 +224,10 @@ AT_CHECK([./ST116A], [0], [], []) AT_CLEANUP AT_SETUP([ST117A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:19 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 +AT_CHECK([$COMPILE85 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 @@ -355,12 +235,8 @@ 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 +AT_CHECK([$COMPILE85 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], [], []) @@ -368,104 +244,27 @@ AT_CLEANUP AT_SETUP([ST118A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:20 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 +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:20 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 +AT_CHECK([$COMPILE85 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], [], []) @@ -475,7 +274,7 @@ 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 +AT_CHECK([$COMPILE85 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 @@ -486,10 +285,10 @@ AT_CHECK([./ST120A], [0], [], []) AT_CLEANUP AT_SETUP([ST121A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:20 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 +AT_CHECK([$COMPILE85 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 @@ -497,15 +296,8 @@ 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 +AT_CHECK([$COMPILE85 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], [], []) @@ -513,15 +305,11 @@ AT_CLEANUP AT_SETUP([ST122A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:19 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 +AT_CHECK([$COMPILE85 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], [], []) @@ -531,7 +319,7 @@ 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 +AT_CHECK([$COMPILE85 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 @@ -542,10 +330,10 @@ AT_CHECK([./ST123A], [0], [], []) AT_CLEANUP AT_SETUP([ST124A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:20 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 +AT_CHECK([$COMPILE85 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 @@ -553,15 +341,8 @@ 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 +AT_CHECK([$COMPILE85 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], [], []) @@ -572,7 +353,7 @@ 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 +AT_CHECK([$COMPILE85 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 ]) @@ -581,16 +362,16 @@ AT_CHECK([./ST125A], [0], [], []) AT_CLEANUP AT_SETUP([ST126A]) -# promoted on 2023-02-04T15:45 +# promoted on 2023-02-05T23:20 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 +AT_CHECK([$COMPILE85 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 +AT_CHECK([$COMPILE85 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 @@ -598,40 +379,15 @@ 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 +AT_CHECK([$COMPILE85 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 +AT_CHECK([$COMPILE85 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], [], []) @@ -639,216 +395,78 @@ AT_CLEANUP AT_SETUP([ST127A]) -# promoted on 2023-02-04T15:44 +# promoted on 2023-02-05T23:20 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 +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:20 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 +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:20 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 +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:20 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 +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:20 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 +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:20 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 +AT_CHECK([$COMPILE85 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 @@ -857,45 +475,28 @@ 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 +# promoted on 2023-02-05T23:20 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 +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:19 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 +AT_CHECK([$COMPILE85 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 @@ -904,24 +505,16 @@ 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 +# promoted on 2023-02-05T23:19 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 +AT_CHECK([$COMPILE85 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 @@ -960,23 +553,16 @@ 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 +# promoted on 2023-02-05T23:19 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 +AT_CHECK([$COMPILE85 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 @@ -995,23 +581,16 @@ 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 +# promoted on 2023-02-05T23:19 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 +AT_CHECK([$COMPILE85 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 @@ -1030,38 +609,27 @@ 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 +# promoted on 2023-02-05T23:19 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 +AT_CHECK([$COMPILE85 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 +# promoted on 2023-02-05T23:19 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 +AT_CHECK([$COMPILE85 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 @@ -1088,22 +656,6 @@ 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], [], []) @@ -1112,6 +664,6 @@ 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([$COMPILE85 ST301M.CBL], [0], [], []) # AT_CHECK([./ST301M], [0], [], []) AT_CLEANUP