diff --git a/tests/cobol85/nist.at b/tests/cobol85/nist.at index 73f603038..38e5e380b 100644 --- a/tests/cobol85/nist.at +++ b/tests/cobol85/nist.at @@ -1,5 +1,5 @@ -## Copyright (C) 2003-2012, 2014-2023 Free Software Foundation, Inc. -## Written by Keisuke Nishida, Roger While, Simon Sobisch +## Copyright (C) 2023 Free Software Foundation, Inc. +## Written by Fabrice LE FESSANT ## ## This file is part of GnuCOBOL. ## @@ -16,10 +16,7 @@ ## You should have received a copy of the GNU General Public License ## along with GnuCOBOL. If not, see . -AT_COPYRIGHT([Test cases Copyright (C) 2023 Free Software Foundation, Inc. - -Written by Keisuke Nishida, Roger While, Simon Sobisch, Edward Hart, -Ron Norman, Brian Tiffin, Dave Pitts]) +AT_COPYRIGHT([Test cases from NIST]) ### GnuCOBOL Test Suite diff --git a/tests/cobol85/testsuite.src/run_DB.at b/tests/cobol85/testsuite.src/run_DB.at index 4833a88af..8faa5beda 100644 --- a/tests/cobol85/testsuite.src/run_DB.at +++ b/tests/cobol85/testsuite.src/run_DB.at @@ -1,133 +1,205 @@ -AT_SETUP([DB / DB101A]) +AT_SETUP([DB101A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([DB]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB101A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x DB101A.CBL], [0]) -AT_CHECK([./DB101A], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -x DB101A.CBL], [0], [], []) +AT_CHECK([./DB101A], [0], [], []) + AT_CLEANUP -AT_SETUP([DB / DB102A]) +AT_SETUP([DB102A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([DB]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB102A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug DB102A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB102A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 DB102A.CBL], [0], [], []) AT_CHECK([./DB102A], [0], [], []) + AT_CLEANUP -AT_SETUP([DB / DB103M]) +AT_SETUP([DB103M]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([DB]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB103M.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug DB103M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB103M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 DB103M.CBL], [0], [], []) AT_CHECK([./DB103M], [0], [], []) + AT_CLEANUP # Reexecution with runtime DEBUG off ./DB103M -AT_SETUP([DB / DB104A]) +AT_SETUP([DB104A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([DB]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB104A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x DB104A.CBL], [0]) -AT_CHECK([./DB104A], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB104A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -x DB104A.CBL], [0], [], [DB104A.CBL: in section 'CCVS1': +DB104A.CBL: in paragraph 'BEGIN-FILE-GENERATION': +DB104A.CBL:413: warning: value size exceeds data size +DB104A.CBL:413: note: value size is 6 +DB104A.CBL:124: note: 'XPROGRAM-NAME' defined here as PIC X(5) +]) +AT_CHECK([./DB104A], [0], [], []) + AT_CLEANUP -AT_SETUP([DB / DB105A]) +AT_SETUP([DB105A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([DB]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB105A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug DB105A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB105A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 DB105A.CBL], [0], [], [DB105A.CBL: in section 'CCVS1': +DB105A.CBL: in paragraph 'DE-LETE': +DB105A.CBL:546: warning: value size exceeds data size +DB105A.CBL:546: note: value size is 20 +DB105A.CBL:412: note: 'RE-MARK' defined here as PIC XXX +DB105A.CBL: in section 'PROC-021-GO--PASS-4': +DB105A.CBL: in paragraph 'PROC-040-PFM-TEST-1': +DB105A.CBL:805: warning: NEXT SENTENCE is archaic in COBOL 85 +DB105A.CBL: in paragraph 'PROC-045-PFM-B': +DB105A.CBL:836: warning: NEXT SENTENCE is archaic in COBOL 85 +DB105A.CBL: in paragraph 'PROC-047-PFM-TEST-3': +DB105A.CBL:848: warning: NEXT SENTENCE is archaic in COBOL 85 +DB105A.CBL: in paragraph 'PROC-055-PFM-TEST-4': +DB105A.CBL:863: warning: NEXT SENTENCE is archaic in COBOL 85 +DB105A.CBL: in paragraph 'PROC-061-PFM-TEST-5': +DB105A.CBL:878: warning: NEXT SENTENCE is archaic in COBOL 85 +DB105A.CBL: in section 'PROC-211-PFM-A-15': +DB105A.CBL: in paragraph 'PROC-000-PFM-C-15': +DB105A.CBL:1163: warning: value size exceeds data size +DB105A.CBL:1163: note: value size is 21 +DB105A.CBL:412: note: 'RE-MARK' defined here as PIC XXX +DB105A.CBL: in paragraph 'PROC-000-PFM-D-15': +DB105A.CBL:1168: warning: value size exceeds data size +DB105A.CBL:1168: note: value size is 26 +DB105A.CBL:412: note: 'RE-MARK' defined here as PIC XXX +DB105A.CBL: in section 'PROC-000-PFM-J-15': +DB105A.CBL: in paragraph 'PROC-000-PFM-K-15': +DB105A.CBL:1187: warning: value size exceeds data size +DB105A.CBL:1187: note: value size is 25 +DB105A.CBL:412: note: 'RE-MARK' defined here as PIC XXX +DB105A.CBL: in section 'CCVS-EXIT': +DB105A.CBL: in paragraph 'CCVS-999999': +DB105A.CBL:975: warning: PROC-118-PFM-B-10 and PROC-120-PFM-D-10 are not in the same SECTION +DB105A.CBL:981: warning: PROC-117-PFM-A-10 and PROC-120-PFM-D-10 are not in the same SECTION +DB105A.CBL:1015: warning: PROC-140-PFM-B-11 and PROC-140-PFM-D-11 are not in the same SECTION +DB105A.CBL:1021: warning: PROC-139-PFM-A-11 and PROC-140-PFM-D-11 are not in the same SECTION +DB105A.CBL:1151: warning: PROC-213-PFM-G-15 and PROC-217-PFM-B-15 are not in the same SECTION +DB105A.CBL:1151: warning: PROC-217-PFM-B-15 is defined before PROC-213-PFM-G-15 +DB105A.CBL:1176: note: 'PROC-213-PFM-G-15' defined here +DB105A.CBL:1157: note: 'PROC-217-PFM-B-15' defined here +]) AT_CHECK([./DB105A], [0], [], []) + AT_CLEANUP -AT_SETUP([DB / DB201A]) +AT_SETUP([DB201A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([DB]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB201A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x DB201A.CBL], [0]) -AT_CHECK([./DB201A], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB201A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -x DB201A.CBL], [0], [], []) +AT_CHECK([./DB201A], [0], [], []) + AT_CLEANUP -AT_SETUP([DB / DB202A]) +AT_SETUP([DB202A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([DB]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB202A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x DB202A.CBL], [0]) -AT_CHECK([./DB202A], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB202A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -x DB202A.CBL], [0], [], []) +AT_CHECK([./DB202A], [0], [], []) + AT_CLEANUP -AT_SETUP([DB / DB203A]) +AT_SETUP([DB203A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([DB]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB203A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x DB203A.CBL], [0]) -AT_CHECK([./DB203A], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB203A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -x DB203A.CBL], [0], [], []) +AT_CHECK([./DB203A], [0], [], []) + AT_CLEANUP -AT_SETUP([DB / DB204A]) +AT_SETUP([DB204A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([DB]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB204A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x DB204A.CBL], [0]) -AT_CHECK([./DB204A], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB204A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -x DB204A.CBL], [0], [], []) +AT_CHECK([./DB204A], [0], [], []) + AT_CLEANUP -AT_SETUP([DB / DB205A]) +AT_SETUP([DB205A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([DB]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB205A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug DB205A.CBL], [0]) -# AT_CHECK([./DB205A], [0], [], []) -AT_CLEANUP +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB205A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 DB205A.CBL], [0], [], [DB205A.CBL:172: warning: COMMUNICATION SECTION is not implemented +DB205A.CBL: in section 'BEGIN-DB205A-TESTS': +DB205A.CBL: in paragraph 'ACCEPT-TEST-1': +DB205A.CBL:394: warning: ACCEPT MESSAGE COUNT is not implemented +]) -AT_SETUP([DB / DB301M]) +AT_CLEANUP +AT_SETUP([DB301M]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([DB]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB301M.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug DB301M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB301M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 DB301M.CBL], [0], [], []) AT_CHECK([./DB301M], [0], [THIS IS A DUMMY PROCEDURE ], []) AT_CLEANUP -AT_SETUP([DB / DB302M]) - +AT_SETUP([DB302M]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([DB]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB302M.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug DB302M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB302M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 DB302M.CBL], [0], [], []) AT_CHECK([./DB302M], [0], [THIS IS A DUMMY PROCEDURE ], []) AT_CLEANUP -AT_SETUP([DB / DB303M]) - +AT_SETUP([DB303M]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([DB]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB303M.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug DB303M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB303M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 DB303M.CBL], [0], [], []) AT_CHECK([./DB303M], [0], [THIS IS A DUMMY PROCEDURE ], []) AT_CLEANUP -AT_SETUP([DB / DB304M]) - +AT_SETUP([DB304M]) +# promoted on 2023-02-04T01:16 AT_KEYWORDS([DB]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB304M.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug -Wobsolete DB304M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB304M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -Wobsolete DB304M.CBL], [0], [], [DB304M.CBL:15: warning: COMMUNICATION SECTION is obsolete in COBOL 85 +DB304M.CBL:15: warning: COMMUNICATION SECTION is not implemented +DB304M.CBL: in section 'BUGGING': +DB304M.CBL:28: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +]) AT_CHECK([./DB304M], [0], [THIS IS A DUMMY PROCEDURE ], []) AT_CLEANUP -AT_SETUP([DB / DB305M]) - +AT_SETUP([DB305M]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([DB]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB305M.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug DB305M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB305M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 DB305M.CBL], [0], [], []) AT_CHECK([./DB305M], [0], [THIS IS A DUMMY PROCEDURE ], []) diff --git a/tests/cobol85/testsuite.src/run_IC.at b/tests/cobol85/testsuite.src/run_IC.at index 063621289..9b3b5d88c 100644 --- a/tests/cobol85/testsuite.src/run_IC.at +++ b/tests/cobol85/testsuite.src/run_IC.at @@ -1,8 +1,8 @@ -AT_SETUP([IC / IC102A]) +AT_SETUP([IC102A]) # promoted on 2023-02-03T10:18 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC102A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC102A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC102A.CBL], [0], [], []) AT_CLEANUP @@ -11,10 +11,10 @@ AT_CLEANUP -AT_SETUP([IC / IC104A]) +AT_SETUP([IC104A]) # promoted on 2023-02-03T10:18 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC104A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC104A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC104A.CBL], [0], [], []) AT_CLEANUP @@ -23,10 +23,10 @@ AT_CLEANUP -AT_SETUP([IC / IC105A]) +AT_SETUP([IC105A]) # promoted on 2023-02-03T10:18 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC105A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC105A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC105A.CBL], [0], [], []) AT_CLEANUP @@ -35,10 +35,10 @@ AT_CLEANUP -AT_SETUP([IC / IC107A]) +AT_SETUP([IC107A]) # promoted on 2023-02-03T10:18 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC107A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC107A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC107A.CBL], [0], [], []) AT_CLEANUP @@ -47,10 +47,10 @@ AT_CLEANUP -AT_SETUP([IC / IC109A]) +AT_SETUP([IC109A]) # promoted on 2023-02-03T10:18 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC109A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC109A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC109A.CBL], [0], [], []) AT_CLEANUP @@ -59,10 +59,10 @@ AT_CLEANUP -AT_SETUP([IC / IC110A]) +AT_SETUP([IC110A]) # promoted on 2023-02-03T10:18 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC110A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC110A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC110A.CBL], [0], [], []) AT_CLEANUP @@ -71,10 +71,10 @@ AT_CLEANUP -AT_SETUP([IC / IC111A]) +AT_SETUP([IC111A]) # promoted on 2023-02-03T10:18 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC111A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC111A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC111A.CBL], [0], [], []) AT_CLEANUP @@ -83,10 +83,10 @@ AT_CLEANUP -AT_SETUP([IC / IC113A]) +AT_SETUP([IC113A]) # promoted on 2023-02-03T10:18 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC113A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC113A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC113A.CBL], [0], [], []) AT_CLEANUP @@ -95,10 +95,10 @@ AT_CLEANUP -AT_SETUP([IC / IC115A]) +AT_SETUP([IC115A]) # promoted on 2023-02-03T10:18 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC115A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC115A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC115A.CBL], [0], [], [IC115A.CBL:54: warning: LABEL RECORDS is obsolete in COBOL 85 IC115A.CBL:55: warning: DATA RECORDS is obsolete in COBOL 85 IC115A.CBL: in section 'SECT-IC115-0001': @@ -115,10 +115,10 @@ AT_CLEANUP -AT_SETUP([IC / IC117M]) +AT_SETUP([IC117M]) # promoted on 2023-02-03T10:18 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC117M.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC117M.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC117M.CBL], [0], [], []) AT_CLEANUP @@ -127,10 +127,10 @@ AT_CLEANUP -AT_SETUP([IC / IC118M]) +AT_SETUP([IC118M]) # promoted on 2023-02-03T10:18 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC118M.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC118M.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC118M.CBL], [0], [], []) AT_CLEANUP @@ -139,10 +139,10 @@ AT_CLEANUP -AT_SETUP([IC / IC202A]) +AT_SETUP([IC202A]) # promoted on 2023-02-03T10:18 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC202A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC202A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC202A.CBL], [0], [], []) AT_CLEANUP @@ -151,10 +151,10 @@ AT_CLEANUP -AT_SETUP([IC / IC204A]) +AT_SETUP([IC204A]) # promoted on 2023-02-03T10:18 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC204A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC204A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC204A.CBL], [0], [], []) AT_CLEANUP @@ -163,10 +163,10 @@ AT_CLEANUP -AT_SETUP([IC / IC205A]) +AT_SETUP([IC205A]) # promoted on 2023-02-03T10:18 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC205A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC205A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC205A.CBL], [0], [], []) AT_CLEANUP @@ -175,10 +175,10 @@ AT_CLEANUP -AT_SETUP([IC / IC206A]) +AT_SETUP([IC206A]) # promoted on 2023-02-03T10:18 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC206A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC206A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC206A.CBL], [0], [], []) AT_CLEANUP @@ -187,10 +187,10 @@ AT_CLEANUP -AT_SETUP([IC / IC208A]) +AT_SETUP([IC208A]) # promoted on 2023-02-03T10:18 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC208A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC208A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC208A.CBL], [0], [], []) AT_CLEANUP @@ -199,10 +199,10 @@ AT_CLEANUP -AT_SETUP([IC / IC210A]) +AT_SETUP([IC210A]) # promoted on 2023-02-03T10:18 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC210A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC210A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC210A.CBL], [0], [], []) AT_CLEANUP @@ -211,10 +211,10 @@ AT_CLEANUP -AT_SETUP([IC / IC211A]) +AT_SETUP([IC211A]) # promoted on 2023-02-03T10:18 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC211A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC211A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC211A.CBL], [0], [], []) AT_CLEANUP @@ -223,10 +223,10 @@ AT_CLEANUP -AT_SETUP([IC / IC212A]) +AT_SETUP([IC212A]) # promoted on 2023-02-03T10:18 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC212A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC212A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC212A.CBL], [0], [], []) AT_CLEANUP @@ -235,10 +235,10 @@ AT_CLEANUP -AT_SETUP([IC / IC214A]) +AT_SETUP([IC214A]) # promoted on 2023-02-03T10:18 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC214A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC214A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC214A.CBL], [0], [], []) AT_CLEANUP @@ -247,10 +247,10 @@ AT_CLEANUP -AT_SETUP([IC / IC215A]) +AT_SETUP([IC215A]) # promoted on 2023-02-03T10:18 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC215A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC215A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC215A.CBL], [0], [], []) AT_CLEANUP @@ -259,10 +259,10 @@ AT_CLEANUP -AT_SETUP([IC / IC217A]) +AT_SETUP([IC217A]) # promoted on 2023-02-03T10:18 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC217A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC217A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC217A.CBL], [0], [], []) AT_CLEANUP @@ -271,76 +271,76 @@ AT_CLEANUP -AT_SETUP([IC / IC101A]) -# promoted on 2023-02-03T10:23 +AT_SETUP([IC101A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC102A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC102A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC102A.CBL], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC101A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -debug IC101A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC101A.CBL], [0], [], []) AT_CHECK([./IC101A], [0], [], []) AT_CLEANUP -AT_SETUP([IC / IC103A]) -# promoted on 2023-02-03T10:59 +AT_SETUP([IC103A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC104A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC104A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC104A.CBL], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC105A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC105A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC105A.CBL], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC103A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -debug IC103A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC103A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC103A.CBL], [0], [], []) AT_CHECK([./IC103A], [0], [], []) AT_CLEANUP -AT_SETUP([IC / IC106A]) -# promoted on 2023-02-03T10:23 +AT_SETUP([IC106A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC107A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC107A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC107A.CBL], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC106A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -debug IC106A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC106A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC106A.CBL], [0], [], []) AT_CHECK([./IC106A], [0], [], []) AT_CLEANUP -AT_SETUP([IC / IC108A]) -# promoted on 2023-02-03T11:00 +AT_SETUP([IC108A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC109A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC109A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC109A.CBL], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC110A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC110A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC110A.CBL], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC108A.CBL .], [0]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC111A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC108A.CBL .], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC111A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC111A.CBL], [0], [], []) -AT_CHECK([$COMPILE -std=cobol85 -debug IC108A.CBL], [0]) +AT_CHECK([$COMPILE -std=cobol85 IC108A.CBL], [0], [], []) AT_CHECK([./IC108A], [0], [], []) AT_CLEANUP -AT_SETUP([IC / IC112A]) -# promoted on 2023-02-03T10:23 +AT_SETUP([IC112A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC113A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC113A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC113A.CBL], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC112A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -debug IC112A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC112A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC112A.CBL], [0], [], []) AT_CHECK([./IC112A], [0], [], []) AT_CLEANUP -AT_SETUP([IC / IC114A]) -# promoted on 2023-02-03T10:23 +AT_SETUP([IC114A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC115A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC115A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC115A.CBL], [0], [], [IC115A.CBL:54: warning: LABEL RECORDS is obsolete in COBOL 85 IC115A.CBL:55: warning: DATA RECORDS is obsolete in COBOL 85 IC115A.CBL: in section 'SECT-IC115-0001': @@ -351,21 +351,21 @@ IC115A.CBL:125: warning: GO TO SECTION 'SECT-IC115-0004' IC115A.CBL:126: warning: GO TO SECTION 'SECT-IC115-0005' IC115A.CBL:126: warning: GO TO SECTION 'SECT-IC115-0006' ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC114A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -debug IC114A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC114A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC114A.CBL], [0], [], []) AT_CHECK([./IC114A], [0], [], []) AT_CLEANUP -AT_SETUP([IC / IC116M]) -# promoted on 2023-02-03T11:01 +AT_SETUP([IC116M]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC117M.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC117M.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC117M.CBL], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC116M.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -debug IC116M.CBL], [0]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC118M.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC116M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC116M.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC118M.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC118M.CBL], [0], [], []) AT_CHECK([./IC116M], [0], [ IC117M CALLED @@ -376,175 +376,229 @@ RETURNED TO IC117M AT_CLEANUP -AT_SETUP([IC / IC201A]) -# promoted on 2023-02-03T10:23 +AT_SETUP([IC201A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC202A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC202A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC202A.CBL], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC201A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -debug IC201A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC201A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC201A.CBL], [0], [], [IC201A.CBL: in section 'SECT-IC201-0001': +IC201A.CBL: in paragraph 'CALL-TEST-02-01': +IC201A.CBL:385: warning: duplicate USING BY REFERENCE item 'DN1' +IC201A.CBL: in paragraph 'CALL-TEST-02-02': +IC201A.CBL:427: warning: duplicate USING BY REFERENCE item 'DN2' +IC201A.CBL: in paragraph 'CALL-TEST-02-03': +IC201A.CBL:471: warning: duplicate USING BY REFERENCE item 'DN1' +IC201A.CBL:471: warning: duplicate USING BY REFERENCE item 'DN2' +IC201A.CBL: in section 'SECT-IC201-0002': +IC201A.CBL: in paragraph 'CHECK-TEST-01': +IC201A.CBL:596: warning: NEXT SENTENCE is archaic in COBOL 85 +]) AT_CHECK([./IC201A], [0], [], []) AT_CLEANUP -AT_SETUP([IC / IC203A]) -# promoted on 2023-02-03T11:02 +AT_SETUP([IC203A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC204A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC204A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC204A.CBL], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC203A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -debug IC203A.CBL], [0]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC205A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC203A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC203A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC205A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC205A.CBL], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC206A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC206A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC206A.CBL], [0], [], []) AT_CHECK([./IC203A], [0], [], []) AT_CLEANUP -AT_SETUP([IC / IC207A]) -# promoted on 2023-02-03T10:23 +AT_SETUP([IC207A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC208A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC208A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC208A.CBL], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC207A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -debug IC207A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC207A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC207A.CBL], [0], [], []) AT_CHECK([./IC207A], [0], [], []) AT_CLEANUP -AT_SETUP([IC / IC209A]) -# promoted on 2023-02-03T11:02 +AT_SETUP([IC209A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC210A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC210A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC210A.CBL], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC209A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -debug IC209A.CBL], [0]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC211A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC209A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC209A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC211A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC211A.CBL], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC212A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC212A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC212A.CBL], [0], [], []) AT_CHECK([./IC209A], [0], [], []) AT_CLEANUP -AT_SETUP([IC / IC213A]) -# promoted on 2023-02-03T11:01 +AT_SETUP([IC213A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC214A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC214A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC214A.CBL], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC213A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -debug IC213A.CBL], [0]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC215A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC213A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC213A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC215A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC215A.CBL], [0], [], []) AT_CHECK([./IC213A], [0], [], []) AT_CLEANUP -AT_SETUP([IC / IC216A]) -# promoted on 2023-02-03T10:23 +AT_SETUP([IC216A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC217A.CBL .], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC217A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 IC217A.CBL], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC216A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -debug IC216A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC216A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC216A.CBL], [0], [], [IC216A.CBL: in section 'CCVS1': +IC216A.CBL: in paragraph 'CALL-FAIL-1': +IC216A.CBL:312: warning: alphanumeric value is expected +IC216A.CBL:79: note: 'CORRECT-A' defined here as PIC X(20) +]) AT_CHECK([./IC216A], [0], [], []) AT_CLEANUP -AT_SETUP([IC / IC222A]) +AT_SETUP([IC222A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC222A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -debug IC222A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC222A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC222A.CBL], [0], [], []) AT_CHECK([./IC222A], [0], [], []) + AT_CLEANUP -AT_SETUP([IC / IC223A]) +AT_SETUP([IC223A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC223A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -debug IC223A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC223A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC223A.CBL], [0], [], [IC223A.CBL: in section 'SECT-IC223A-001': +IC223A.CBL: in paragraph 'CALL-TEST-02-01': +IC223A.CBL:401: warning: duplicate USING BY REFERENCE item 'DN1' +IC223A.CBL: in paragraph 'CALL-TEST-02-02': +IC223A.CBL:444: warning: duplicate USING BY REFERENCE item 'DN2' +IC223A.CBL: in paragraph 'CALL-TEST-02-03': +IC223A.CBL:489: warning: duplicate USING BY REFERENCE item 'DN1' +IC223A.CBL:489: warning: duplicate USING BY REFERENCE item 'DN2' +IC223A.CBL: in section 'SECT-IC223A-002': +IC223A.CBL: in paragraph 'CHECK-TEST-01': +IC223A.CBL:619: warning: NEXT SENTENCE is archaic in COBOL 85 +]) AT_CHECK([./IC223A], [0], [], []) + AT_CLEANUP -AT_SETUP([IC / IC224A]) +AT_SETUP([IC224A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC224A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -debug IC224A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC224A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC224A.CBL], [0], [], []) AT_CHECK([./IC224A], [0], [], []) + AT_CLEANUP -AT_SETUP([IC / IC225A]) +AT_SETUP([IC225A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC225A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -debug IC225A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC225A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC225A.CBL], [0], [], [IC225A.CBL: in section 'SECT-IC225A-001': +IC225A.CBL: in paragraph 'CALL-TEST-02-01-0': +IC225A.CBL:527: warning: duplicate USING BY REFERENCE item 'DN1' +IC225A.CBL: in paragraph 'CALL-TEST-02-03-0': +IC225A.CBL:650: warning: duplicate USING BY REFERENCE item 'DN2' +]) AT_CHECK([./IC225A], [0], [], []) + AT_CLEANUP -AT_SETUP([IC / IC226A]) +AT_SETUP([IC226A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC226A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -debug IC226A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC226A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC226A.CBL], [0], [], []) AT_CHECK([./IC226A], [0], [], []) + AT_CLEANUP -AT_SETUP([IC / IC227A]) +AT_SETUP([IC227A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC227A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -debug IC227A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC227A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC227A.CBL], [0], [], []) AT_CHECK([./IC227A], [0], [], []) + AT_CLEANUP -AT_SETUP([IC / IC228A]) +AT_SETUP([IC228A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC228A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -debug IC228A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC228A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC228A.CBL], [0], [], []) AT_CHECK([./IC228A], [0], [], []) + AT_CLEANUP -AT_SETUP([IC / IC233A]) +AT_SETUP([IC233A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC233A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -debug IC233A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC233A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC233A.CBL], [0], [], []) AT_CHECK([./IC233A], [0], [], []) + AT_CLEANUP -AT_SETUP([IC / IC234A]) -# promoted on 2023-02-03T11:28 +AT_SETUP([IC234A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC234A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -debug IC234A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC234A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC234A.CBL], [0], [], []) AT_CHECK([./IC234A], [0], [], []) AT_CLEANUP -AT_SETUP([IC / IC235A]) -# promoted on 2023-02-03T01:44 - +AT_SETUP([IC235A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC235A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -debug IC235A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC235A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC235A.CBL], [0], [], [IC235A.CBL: in section 'SECT-IC235-0002': +IC235A.CBL: in paragraph 'CALL-INIT-06': +IC235A.CBL:421: warning: alphanumeric value is expected +IC235A.CBL:65: note: 'ELEM-NON-01' defined here as PIC XX +IC235A.CBL:422: warning: alphanumeric value is expected +IC235A.CBL:67: note: 'SUBSCRIPTED-DATA' defined here as PIC XX +]) AT_CHECK([./IC235A], [0], [], []) AT_CLEANUP -AT_SETUP([IC / IC237A]) +AT_SETUP([IC237A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC237A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -debug IC237A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC237A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC237A.CBL], [0], [], []) AT_CHECK([./IC237A], [0], [], []) + AT_CLEANUP -AT_SETUP([IC / IC401M]) +AT_SETUP([IC401M]) AT_KEYWORDS([IC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC401M.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -debug IC401M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC401M.CBL .],[0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IC401M.CBL], [0], [], []) # AT_CHECK([./IC401M], [0], [], []) AT_CLEANUP diff --git a/tests/cobol85/testsuite.src/run_IF.at b/tests/cobol85/testsuite.src/run_IF.at index 135795611..aeda4a0f2 100644 --- a/tests/cobol85/testsuite.src/run_IF.at +++ b/tests/cobol85/testsuite.src/run_IF.at @@ -1,315 +1,442 @@ -AT_SETUP([IF / IF101A]) +AT_SETUP([IF101A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF101A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF101A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF101A.CBL], [0], [], []) AT_CHECK([./IF101A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF102A]) +AT_SETUP([IF102A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF102A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF102A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF102A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF102A.CBL], [0], [], []) AT_CHECK([./IF102A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF103A]) +AT_SETUP([IF103A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF103A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF103A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF103A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF103A.CBL], [0], [], []) AT_CHECK([./IF103A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF104A]) +AT_SETUP([IF104A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF104A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF104A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF104A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF104A.CBL], [0], [], []) AT_CHECK([./IF104A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF105A]) +AT_SETUP([IF105A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF105A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF105A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF105A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF105A.CBL], [0], [], []) AT_CHECK([./IF105A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF106A]) +AT_SETUP([IF106A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF106A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF106A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF106A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF106A.CBL], [0], [], []) AT_CHECK([./IF106A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF107A]) +AT_SETUP([IF107A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF107A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF107A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF107A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF107A.CBL], [0], [], [IF107A.CBL:52: warning: redefinition of 'WS-SECOND' +IF107A.CBL:37: note: 'WS-SECOND' previously defined here +]) AT_CHECK([./IF107A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF108A]) +AT_SETUP([IF108A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF108A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF108A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF108A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF108A.CBL], [0], [], []) AT_CHECK([./IF108A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF109A]) +AT_SETUP([IF109A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF109A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF109A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF109A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF109A.CBL], [0], [], []) AT_CHECK([./IF109A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF110A]) +AT_SETUP([IF110A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF110A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF110A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF110A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF110A.CBL], [0], [], []) AT_CHECK([./IF110A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF111A]) +AT_SETUP([IF111A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF111A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF111A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF111A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF111A.CBL], [0], [], []) AT_CHECK([./IF111A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF112A]) +AT_SETUP([IF112A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF112A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF112A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF112A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF112A.CBL], [0], [], []) AT_CHECK([./IF112A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF113A]) +AT_SETUP([IF113A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF113A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF113A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF113A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF113A.CBL], [0], [], []) AT_CHECK([./IF113A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF114A]) +AT_SETUP([IF114A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF114A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF114A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF114A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF114A.CBL], [0], [], [IF114A.CBL: in section 'SECT-IF114A': +IF114A.CBL: in paragraph 'F-INTPART-INFO': +IF114A.CBL:313: warning: value size exceeds data size +IF114A.CBL:313: note: value size is 21 +IF114A.CBL:48: note: 'FEATURE' defined here as PIC X(20) +]) AT_CHECK([./IF114A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF115A]) -AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF115A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF115A.CBL], [0]) +AT_SETUP([IF115A]) +# promoted on 2023-02-04T01:19 +AT_KEYWORDS([IF]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF115A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF115A.CBL], [0], [], [IF115A.CBL: in section 'SECT-IF115A': +IF115A.CBL: in paragraph 'F-LENGTH-TEST-01': +IF115A.CBL:315: warning: alphanumeric value is expected +IF115A.CBL:69: note: 'CORRECT-X' defined here as a group of length 70 +IF115A.CBL: in paragraph 'F-LENGTH-TEST-02': +IF115A.CBL:328: warning: expression '20' EQUALS '20' is always TRUE +IF115A.CBL: in paragraph 'F-LENGTH-TEST-03': +IF115A.CBL:343: warning: expression '4' EQUALS '4' is always TRUE +IF115A.CBL:346: warning: alphanumeric value is expected +IF115A.CBL:69: note: 'CORRECT-X' defined here as a group of length 70 +IF115A.CBL: in paragraph 'F-LENGTH-TEST-04': +IF115A.CBL:364: warning: alphanumeric value is expected +IF115A.CBL:69: note: 'CORRECT-X' defined here as a group of length 70 +IF115A.CBL: in paragraph 'F-LENGTH-TEST-05': +IF115A.CBL:382: warning: alphanumeric value is expected +IF115A.CBL:69: note: 'CORRECT-X' defined here as a group of length 70 +IF115A.CBL: in paragraph 'F-LENGTH-TEST-06': +IF115A.CBL:400: warning: alphanumeric value is expected +IF115A.CBL:69: note: 'CORRECT-X' defined here as a group of length 70 +]) AT_CHECK([./IF115A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF116A]) +AT_SETUP([IF116A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF116A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF116A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF116A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF116A.CBL], [0], [], []) AT_CHECK([./IF116A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF117A]) +AT_SETUP([IF117A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF117A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF117A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF117A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF117A.CBL], [0], [], []) AT_CHECK([./IF117A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF118A]) +AT_SETUP([IF118A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF118A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF118A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF118A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF118A.CBL], [0], [], []) AT_CHECK([./IF118A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF119A]) +AT_SETUP([IF119A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF119A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF119A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF119A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF119A.CBL], [0], [], []) AT_CHECK([./IF119A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF120A]) +AT_SETUP([IF120A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF120A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF120A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF120A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF120A.CBL], [0], [], []) AT_CHECK([./IF120A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF121A]) +AT_SETUP([IF121A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF121A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF121A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF121A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF121A.CBL], [0], [], []) AT_CHECK([./IF121A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF122A]) +AT_SETUP([IF122A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF122A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF122A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF122A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF122A.CBL], [0], [], []) AT_CHECK([./IF122A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF123A]) +AT_SETUP([IF123A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF123A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF123A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF123A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF123A.CBL], [0], [], []) AT_CHECK([./IF123A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF124A]) +AT_SETUP([IF124A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF124A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF124A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF124A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF124A.CBL], [0], [], []) AT_CHECK([./IF124A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF125A]) +AT_SETUP([IF125A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF125A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF125A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF125A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF125A.CBL], [0], [], [IF125A.CBL: in section 'SECT-IF125A': +IF125A.CBL: in paragraph 'F-NUMVAL-TEST-12': +IF125A.CBL:518: warning: literal '.428991' has more decimals than 'TEMP' +IF125A.CBL:519: warning: literal '.429009' has more decimals than 'TEMP' +]) AT_CHECK([./IF125A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF126A]) +AT_SETUP([IF126A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF126A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF126A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF126A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF126A.CBL], [0], [], [IF126A.CBL: in section 'SECT-IF126A': +IF126A.CBL: in paragraph 'F-NUMVALC-TEST-04': +IF126A.CBL:380: warning: literal '.428991' has more decimals than 'TEMP' +IF126A.CBL:381: warning: literal '.429009' has more decimals than 'TEMP' +]) AT_CHECK([./IF126A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF127A]) +AT_SETUP([IF127A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF127A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF127A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF127A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF127A.CBL], [0], [], []) AT_CHECK([./IF127A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF128A]) +AT_SETUP([IF128A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF128A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF128A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF128A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF128A.CBL], [0], [], []) AT_CHECK([./IF128A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF129A]) +AT_SETUP([IF129A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF129A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF129A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF129A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF129A.CBL], [0], [], []) AT_CHECK([./IF129A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF130A]) +AT_SETUP([IF130A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF130A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF130A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF130A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF130A.CBL], [0], [], [IF130A.CBL: in section 'SECT-IF130A': +IF130A.CBL: in paragraph 'F-PRES-VAL-INFO': +IF130A.CBL:357: warning: value size exceeds data size +IF130A.CBL:357: note: value size is 22 +IF130A.CBL:58: note: 'FEATURE' defined here as PIC X(20) +]) AT_CHECK([./IF130A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF131A]) +AT_SETUP([IF131A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF131A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF131A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF131A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF131A.CBL], [0], [], []) AT_CHECK([./IF131A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF132A]) +AT_SETUP([IF132A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF132A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF132A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF132A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF132A.CBL], [0], [], []) AT_CHECK([./IF132A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF133A]) +AT_SETUP([IF133A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF133A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF133A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF133A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF133A.CBL], [0], [], []) AT_CHECK([./IF133A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF134A]) +AT_SETUP([IF134A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF134A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF134A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF134A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF134A.CBL], [0], [], []) AT_CHECK([./IF134A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF135A]) +AT_SETUP([IF135A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF135A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF135A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF135A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF135A.CBL], [0], [], []) AT_CHECK([./IF135A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF136A]) +AT_SETUP([IF136A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF136A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF136A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF136A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF136A.CBL], [0], [], []) AT_CHECK([./IF136A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF137A]) +AT_SETUP([IF137A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF137A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF137A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF137A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF137A.CBL], [0], [], []) AT_CHECK([./IF137A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF138A]) +AT_SETUP([IF138A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF138A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF138A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF138A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF138A.CBL], [0], [], []) AT_CHECK([./IF138A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF139A]) +AT_SETUP([IF139A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF139A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF139A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF139A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF139A.CBL], [0], [], []) AT_CHECK([./IF139A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF140A]) +AT_SETUP([IF140A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF140A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF140A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF140A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF140A.CBL], [0], [], []) AT_CHECK([./IF140A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF141A]) +AT_SETUP([IF141A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF141A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF141A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF141A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF141A.CBL], [0], [], []) AT_CHECK([./IF141A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF142A]) +AT_SETUP([IF142A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF142A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF142A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF142A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF142A.CBL], [0], [], []) AT_CHECK([./IF142A], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF401M]) +AT_SETUP([IF401M]) AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF401M.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF401M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF401M.CBL .],[0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF401M.CBL], [0], [], []) AT_CHECK([./IF401M], [0], [], []) AT_CLEANUP -AT_SETUP([IF / IF402M]) +AT_SETUP([IF402M]) +# promoted on 2023-02-04T01:16 AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF402M.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF402M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF402M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF402M.CBL], [0], [], [IF402M.CBL: in paragraph 'IF402M-LENGTH': +IF402M.CBL:36: warning: expression '3' EQUALS '3' is always TRUE +]) AT_CHECK([./IF402M], [0], [], []) + AT_CLEANUP -AT_SETUP([IF / IF403M]) +AT_SETUP([IF403M]) AT_KEYWORDS([IF]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF403M.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IF403M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF403M.CBL .],[0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IF403M.CBL], [0], [], []) AT_CHECK([./IF403M], [0], [], []) AT_CLEANUP diff --git a/tests/cobol85/testsuite.src/run_IX.at b/tests/cobol85/testsuite.src/run_IX.at index f7669a48f..164612075 100644 --- a/tests/cobol85/testsuite.src/run_IX.at +++ b/tests/cobol85/testsuite.src/run_IX.at @@ -1,335 +1,678 @@ -AT_SETUP([IX / IX101A]) +AT_SETUP([IX101A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX101A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX101A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX101A.CBL], [0], [], []) AT_CHECK([./IX101A], [0], [], []) + AT_CLEANUP # We need to create files XXXXX* from IX101A -AT_SETUP([IX / IX102A]) -# promoted on 2023-02-03T11:24 +AT_SETUP([IX102A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX101A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX101A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX101A.CBL], [0], [], []) AT_CHECK([./IX101A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX102A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX102A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX102A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX102A.SUB], [0], [], [IX102A.SUB: in section 'SECT-IX-02-001': +IX102A.SUB: in paragraph 'READ-TEST-F2-01': +IX102A.SUB:436: warning: value size exceeds data size +IX102A.SUB:436: note: value size is 21 +IX102A.SUB:171: note: 'COMPUTED-A' defined here as PIC X(20) +IX102A.SUB: in paragraph 'REWRITE-TEST-F2-01': +IX102A.SUB:517: warning: value size exceeds data size +IX102A.SUB:517: note: value size is 21 +IX102A.SUB:171: note: 'COMPUTED-A' defined here as PIC X(20) +IX102A.SUB: in paragraph 'REWRITE-TEST-F2-03': +IX102A.SUB:564: warning: value size exceeds data size +IX102A.SUB:564: note: value size is 22 +IX102A.SUB:171: note: 'COMPUTED-A' defined here as PIC X(20) +IX102A.SUB: in paragraph 'READ-TEST-F2-05': +IX102A.SUB:583: warning: value size exceeds data size +IX102A.SUB:583: note: value size is 21 +IX102A.SUB:171: note: 'COMPUTED-A' defined here as PIC X(20) +]) AT_CHECK([./IX102A], [0], [], []) AT_CLEANUP -AT_SETUP([IX / IX103A]) +AT_SETUP([IX103A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX103A.SUB .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX103A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX103A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX103A.SUB], [0], [], []) AT_CHECK([./IX103A], [0], [], []) + AT_CLEANUP -AT_SETUP([IX / IX104A]) +AT_SETUP([IX104A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX104A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX104A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX104A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX104A.CBL], [0], [], []) AT_CHECK([./IX104A], [0], [], []) + AT_CLEANUP -AT_SETUP([IX / IX105A]) +AT_SETUP([IX105A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX105A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX105A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX105A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX105A.CBL], [0], [], []) AT_CHECK([./IX105A], [0], [], []) + AT_CLEANUP -AT_SETUP([IX / IX106A]) +AT_SETUP([IX106A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX106A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX106A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX106A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX106A.CBL], [0], [], [IX106A.CBL: in section 'SECT-0004-RIS101': +IX106A.CBL: in paragraph 'DELETE-TEST-GF-01': +IX106A.CBL:1013: warning: alphanumeric value is expected +IX106A.CBL:128: note: 'IX-FS1-KEY-11-13' defined here as PIC X(3) +]) AT_CHECK([./IX106A], [0], [], []) + AT_CLEANUP -AT_SETUP([IX / IX107A]) -AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX107A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX107A.CBL], [0]) +AT_SETUP([IX107A]) +# promoted on 2023-02-04T01:19 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX107A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX107A.CBL], [0], [], [IX107A.CBL: in section 'SECT-IX107A-001': +IX107A.CBL: in paragraph 'READ-INIT-F1-02': +IX107A.CBL:551: warning: value size exceeds data size +IX107A.CBL:551: note: value size is 24 +IX107A.CBL:200: note: 'FEATURE' defined here as PIC X(20) +IX107A.CBL: in section 'SECT-IX107A-002': +IX107A.CBL: in paragraph 'READ-INIT-F2-08': +IX107A.CBL:776: warning: value size exceeds data size +IX107A.CBL:776: note: value size is 29 +IX107A.CBL:200: note: 'FEATURE' defined here as PIC X(20) +IX107A.CBL: in paragraph 'READ-INIT-F2-09': +IX107A.CBL:815: warning: value size exceeds data size +IX107A.CBL:815: note: value size is 21 +IX107A.CBL:200: note: 'FEATURE' defined here as PIC X(20) +IX107A.CBL: in paragraph 'READ-INIT-F2-10': +IX107A.CBL:847: warning: value size exceeds data size +IX107A.CBL:847: note: value size is 24 +IX107A.CBL:200: note: 'FEATURE' defined here as PIC X(20) +]) AT_CHECK([./IX107A], [0], [], []) + AT_CLEANUP -AT_SETUP([IX / IX108A]) -AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX108A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX108A.CBL], [0]) +AT_SETUP([IX108A]) +# promoted on 2023-02-04T01:23 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX108A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX108A.CBL], [0], [], [IX108A.CBL: in section 'SECT-IX-04-001': +IX108A.CBL: in paragraph 'WRITE-INIT-GF-01': +IX108A.CBL:486: warning: value size exceeds data size +IX108A.CBL:486: note: value size is 22 +IX108A.CBL:194: note: 'FEATURE' defined here as PIC X(20) +IX108A.CBL: in paragraph 'READ-INIT-F1-02': +IX108A.CBL:626: warning: value size exceeds data size +IX108A.CBL:626: note: value size is 22 +IX108A.CBL:194: note: 'FEATURE' defined here as PIC X(20) +IX108A.CBL: in paragraph 'READ-INIT-F1-03': +IX108A.CBL:669: warning: value size exceeds data size +IX108A.CBL:669: note: value size is 27 +IX108A.CBL:194: note: 'FEATURE' defined here as PIC X(20) +IX108A.CBL: in paragraph 'READ-INIT-F2-02': +IX108A.CBL:773: warning: value size exceeds data size +IX108A.CBL:773: note: value size is 22 +IX108A.CBL:194: note: 'FEATURE' defined here as PIC X(20) +IX108A.CBL: in paragraph 'READ-INIT-F2-03': +IX108A.CBL:818: warning: value size exceeds data size +IX108A.CBL:818: note: value size is 27 +IX108A.CBL:194: note: 'FEATURE' defined here as PIC X(20) +IX108A.CBL: in paragraph 'DELETE-INIT-GF-02': +IX108A.CBL:935: warning: value size exceeds data size +IX108A.CBL:935: note: value size is 22 +IX108A.CBL:194: note: 'FEATURE' defined here as PIC X(20) +IX108A.CBL: in paragraph 'DELETE-INIT-GF-03': +IX108A.CBL:986: warning: value size exceeds data size +IX108A.CBL:986: note: value size is 27 +IX108A.CBL:194: note: 'FEATURE' defined here as PIC X(20) +IX108A.CBL: in paragraph 'REWRITE-INIT-GF-02': +IX108A.CBL:1111: warning: value size exceeds data size +IX108A.CBL:1111: note: value size is 23 +IX108A.CBL:194: note: 'FEATURE' defined here as PIC X(20) +IX108A.CBL: in paragraph 'REWRITE-INIT-GF-03': +IX108A.CBL:1163: warning: value size exceeds data size +IX108A.CBL:1163: note: value size is 28 +IX108A.CBL:194: note: 'FEATURE' defined here as PIC X(20) +IX108A.CBL: in paragraph 'RWR-SEQ-INIT-GF-02': +IX108A.CBL:1293: warning: value size exceeds data size +IX108A.CBL:1293: note: value size is 23 +IX108A.CBL:194: note: 'FEATURE' defined here as PIC X(20) +IX108A.CBL: in paragraph 'RWR-SEQ-INIT-GF-03': +IX108A.CBL:1343: warning: value size exceeds data size +IX108A.CBL:1343: note: value size is 28 +IX108A.CBL:194: note: 'FEATURE' defined here as PIC X(20) +]) AT_CHECK([./IX108A], [0], [], []) + AT_CLEANUP -AT_SETUP([IX / IX109A]) +AT_SETUP([IX109A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX109A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX109A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX109A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX109A.CBL], [0], [], []) AT_CHECK([./IX109A], [0], [], []) + AT_CLEANUP -AT_SETUP([IX / IX110A]) +AT_SETUP([IX110A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX110A.SUB .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX110A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX110A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX110A.SUB], [0], [], []) AT_CHECK([./IX110A], [0], [], []) + AT_CLEANUP -AT_SETUP([IX / IX111A]) +AT_SETUP([IX111A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX111A.SUB .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX111A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX111A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX111A.SUB], [0], [], [IX111A.SUB: in section 'SECT-IX111-0001': +IX111A.SUB: in paragraph 'INPUT-PROCESS': +IX111A.SUB:230: warning: value size exceeds data size +IX111A.SUB:230: note: value size is 64 +IX111A.SUB:88: note: 'RE-MARK' defined here as PIC X(61) +]) AT_CHECK([./IX111A], [0], [], []) + AT_CLEANUP -AT_SETUP([IX / IX112A]) -# promoted on 2023-02-03T11:28 +AT_SETUP([IX112A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX112A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX112A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX112A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX112A.CBL], [0], [], []) AT_CHECK([./IX112A], [0], [], []) AT_CLEANUP -AT_SETUP([IX / IX113A]) +AT_SETUP([IX113A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX113A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX113A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX113A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX113A.CBL], [0], [], []) AT_CHECK([./IX113A], [0], [], []) + AT_CLEANUP -AT_SETUP([IX / IX114A]) +AT_SETUP([IX114A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX114A.SUB .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX114A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX114A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX114A.SUB], [0], [], []) AT_CHECK([./IX114A], [0], [], []) + AT_CLEANUP -AT_SETUP([IX / IX115A]) +AT_SETUP([IX115A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX115A.SUB .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX115A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX115A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX115A.SUB], [0], [], []) AT_CHECK([./IX115A], [0], [], []) + AT_CLEANUP -AT_SETUP([IX / IX116A]) +AT_SETUP([IX116A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX116A.SUB .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX116A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX116A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX116A.SUB], [0], [], []) AT_CHECK([./IX116A], [0], [], []) + AT_CLEANUP -AT_SETUP([IX / IX117A]) +AT_SETUP([IX117A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX117A.SUB .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX117A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX117A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX117A.SUB], [0], [], []) AT_CHECK([./IX117A], [0], [], []) + AT_CLEANUP -AT_SETUP([IX / IX118A]) +AT_SETUP([IX118A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX118A.SUB .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX118A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX118A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX118A.SUB], [0], [], []) AT_CHECK([./IX118A], [0], [], []) + AT_CLEANUP -AT_SETUP([IX / IX119A]) -# promoted on 2023-02-03T11:35 +AT_SETUP([IX119A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([IX IX119A]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX101A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX101A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX101A.CBL], [0], [], []) AT_CHECK([./IX101A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX119A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX119A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX119A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX119A.SUB], [0], [], [IX119A.SUB: in section 'SECT-IX119A-0003': +IX119A.SUB: in paragraph 'RWR-INIT-GF-01-0': +IX119A.SUB:616: warning: alphanumeric value is expected +IX119A.SUB:72: note: 'IX-FS3-KEY' defined here as PIC X(29) +]) AT_CHECK([./IX119A], [0], [], []) AT_CLEANUP -AT_SETUP([IX / IX120A]) -# promoted on 2023-02-03T16:40 +AT_SETUP([IX120A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX101A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX101A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX101A.CBL], [0], [], []) AT_CHECK([./IX101A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX120A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX120A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX120A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX120A.SUB], [0], [], []) AT_CHECK([./IX120A], [0], [], []) AT_CLEANUP -AT_SETUP([IX / IX121A]) -# promoted on 2023-02-03T11:28 +AT_SETUP([IX121A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX121A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX121A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX121A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX121A.CBL], [0], [], []) AT_CHECK([./IX121A], [0], [], []) AT_CLEANUP -AT_SETUP([IX / IX201A]) +AT_SETUP([IX201A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX201A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX201A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX201A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX201A.CBL], [0], [], []) AT_CHECK([./IX201A], [0], [], []) + AT_CLEANUP -AT_SETUP([IX / IX202A]) -# promoted on 2023-02-03T16:40 +AT_SETUP([IX202A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX101A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX101A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX101A.CBL], [0], [], []) AT_CHECK([./IX101A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX202A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX202A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX202A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX202A.SUB], [0], [], [IX202A.SUB: in section 'SECT-IX-02-001': +IX202A.SUB: in paragraph 'READ-TEST-F2-01-R': +IX202A.SUB:426: warning: value size exceeds data size +IX202A.SUB:426: note: value size is 21 +IX202A.SUB:163: note: 'COMPUTED-A' defined here as PIC X(20) +IX202A.SUB: in paragraph 'RWRT-TEST-GF-01-R': +IX202A.SUB:498: warning: value size exceeds data size +IX202A.SUB:498: note: value size is 21 +IX202A.SUB:163: note: 'COMPUTED-A' defined here as PIC X(20) +IX202A.SUB: in paragraph 'RWRT-TEST-GF-02-1': +IX202A.SUB:541: warning: value size exceeds data size +IX202A.SUB:541: note: value size is 22 +IX202A.SUB:163: note: 'COMPUTED-A' defined here as PIC X(20) +IX202A.SUB: in paragraph 'READ-TEST-F2-02-R': +IX202A.SUB:559: warning: value size exceeds data size +IX202A.SUB:559: note: value size is 21 +IX202A.SUB:163: note: 'COMPUTED-A' defined here as PIC X(20) +]) AT_CHECK([./IX202A], [0], [], []) AT_CLEANUP -AT_SETUP([IX / IX203A]) -# promoted on 2023-02-03T16:40 +AT_SETUP([IX203A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX101A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX101A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX101A.CBL], [0], [], []) AT_CHECK([./IX101A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX203A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX203A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX203A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX203A.SUB], [0], [], []) AT_CHECK([./IX203A], [0], [], []) AT_CLEANUP -AT_SETUP([IX / IX204A]) +AT_SETUP([IX204A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX204A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX204A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX204A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX204A.CBL], [0], [], []) AT_CHECK([./IX204A], [0], [], []) + AT_CLEANUP -AT_SETUP([IX / IX205A]) -AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX205A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX205A.CBL], [0]) +AT_SETUP([IX205A]) +# promoted on 2023-02-04T01:19 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX205A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX205A.CBL], [0], [], [IX205A.CBL: in section 'SECT-IX-01-001': +IX205A.CBL: in paragraph 'READ-TEST-F1-01-3': +IX205A.CBL:530: warning: NEXT SENTENCE is archaic in COBOL 85 +IX205A.CBL: in paragraph 'READ-INIT-F2-02': +IX205A.CBL:544: warning: value size exceeds data size +IX205A.CBL:544: note: value size is 21 +IX205A.CBL:196: note: 'FEATURE' defined here as PIC X(20) +IX205A.CBL: in paragraph 'READ-TEST-F1-02-5': +IX205A.CBL:567: warning: NEXT SENTENCE is archaic in COBOL 85 +IX205A.CBL: in paragraph 'READ-INIT-GF-03': +IX205A.CBL:582: warning: value size exceeds data size +IX205A.CBL:582: note: value size is 21 +IX205A.CBL:196: note: 'FEATURE' defined here as PIC X(20) +IX205A.CBL: in paragraph 'READ-TEST-F1-03': +IX205A.CBL:617: warning: NEXT SENTENCE is archaic in COBOL 85 +IX205A.CBL: in paragraph 'READ-INIT-GF-04': +IX205A.CBL:631: warning: value size exceeds data size +IX205A.CBL:631: note: value size is 22 +IX205A.CBL:196: note: 'FEATURE' defined here as PIC X(20) +IX205A.CBL: in paragraph 'READ-TEST-F1-04': +IX205A.CBL:666: warning: NEXT SENTENCE is archaic in COBOL 85 +IX205A.CBL: in section 'SECT-IX-01-002': +IX205A.CBL: in paragraph 'READ-TEST-F1-05-3': +IX205A.CBL:747: warning: NEXT SENTENCE is archaic in COBOL 85 +IX205A.CBL: in paragraph 'READ-TEST-F1-06-5': +IX205A.CBL:786: warning: NEXT SENTENCE is archaic in COBOL 85 +IX205A.CBL: in paragraph 'READ-TEST-F1-07-7': +IX205A.CBL:836: warning: NEXT SENTENCE is archaic in COBOL 85 +]) AT_CHECK([./IX205A], [0], [], []) + AT_CLEANUP -AT_SETUP([IX / IX206A]) +AT_SETUP([IX206A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX206A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX206A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX206A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX206A.CBL], [0], [], [IX206A.CBL: in section 'SECT-IX-01-001': +IX206A.CBL: in paragraph 'READ-TEST-F2-02-5': +IX206A.CBL:561: warning: NEXT SENTENCE is archaic in COBOL 85 +IX206A.CBL: in paragraph 'READ-TEST-F2-03-7': +IX206A.CBL:612: warning: NEXT SENTENCE is archaic in COBOL 85 +IX206A.CBL: in section 'SECT-IX-01-002': +IX206A.CBL: in paragraph 'READ-TEST-F1-04-3': +IX206A.CBL:694: warning: NEXT SENTENCE is archaic in COBOL 85 +IX206A.CBL: in paragraph 'READ-TEST-F2-05-6': +IX206A.CBL:747: warning: NEXT SENTENCE is archaic in COBOL 85 +]) AT_CHECK([./IX206A], [0], [], []) + AT_CLEANUP -AT_SETUP([IX / IX207A]) +AT_SETUP([IX207A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX207A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX207A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX207A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX207A.CBL], [0], [], []) AT_CHECK([./IX207A], [0], [], []) + AT_CLEANUP -AT_SETUP([IX / IX208A]) -AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX208A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX208A.CBL], [0]) +AT_SETUP([IX208A]) +# promoted on 2023-02-04T01:19 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX208A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX208A.CBL], [0], [], [IX208A.CBL: in section 'SECT-IX208A-0001': +IX208A.CBL: in paragraph 'READ-TEST-F1-04': +IX208A.CBL:688: warning: NEXT SENTENCE is archaic in COBOL 85 +IX208A.CBL: in paragraph 'START-TEST-GF-07-1': +IX208A.CBL:1067: warning: value size exceeds data size +IX208A.CBL:1067: note: value size is 22 +IX208A.CBL:212: note: 'FEATURE' defined here as PIC X(20) +IX208A.CBL: in paragraph 'START-TEST-GF-11-1': +IX208A.CBL:1176: warning: value size exceeds data size +IX208A.CBL:1176: note: value size is 26 +IX208A.CBL:212: note: 'FEATURE' defined here as PIC X(20) +IX208A.CBL: in paragraph 'START-TEST-GF-12-1': +IX208A.CBL:1204: warning: value size exceeds data size +IX208A.CBL:1204: note: value size is 21 +IX208A.CBL:212: note: 'FEATURE' defined here as PIC X(20) +IX208A.CBL: in paragraph 'START-TEST-GF-13-1': +IX208A.CBL:1232: warning: value size exceeds data size +IX208A.CBL:1232: note: value size is 23 +IX208A.CBL:212: note: 'FEATURE' defined here as PIC X(20) +IX208A.CBL: in paragraph 'START-TEST-GF-15-1': +IX208A.CBL:1295: warning: value size exceeds data size +IX208A.CBL:1295: note: value size is 21 +IX208A.CBL:212: note: 'FEATURE' defined here as PIC X(20) +]) AT_CHECK([./IX208A], [0], [], []) + AT_CLEANUP -AT_SETUP([IX / IX209A]) +AT_SETUP([IX209A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX209A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX209A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX209A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX209A.CBL], [0], [], [IX209A.CBL: in section 'SECT-0001-IX209A': +IX209A.CBL: in paragraph 'READ-TEST-F1-01-R1': +IX209A.CBL:819: warning: NEXT SENTENCE is archaic in COBOL 85 +]) AT_CHECK([./IX209A], [0], [], []) + AT_CLEANUP -AT_SETUP([IX / IX210A]) +AT_SETUP([IX210A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX210A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX210A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX210A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX210A.CBL], [0], [], [IX210A.CBL: in section 'SECT-0001-IX210A': +IX210A.CBL: in paragraph 'READ-TEST-F1-R1': +IX210A.CBL:826: warning: NEXT SENTENCE is archaic in COBOL 85 +]) AT_CHECK([./IX210A], [0], [], []) + AT_CLEANUP -AT_SETUP([IX / IX211A]) +AT_SETUP([IX211A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX211A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX211A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX211A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX211A.CBL], [0], [], [IX211A.CBL: in section 'SECT-0001-IX211A': +IX211A.CBL: in paragraph 'READ-TEST-F1-01-1': +IX211A.CBL:766: warning: NEXT SENTENCE is archaic in COBOL 85 +]) AT_CHECK([./IX211A], [0], [], []) + AT_CLEANUP -AT_SETUP([IX / IX212A]) +AT_SETUP([IX212A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX212A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX212A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX212A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX212A.CBL], [0], [], []) AT_CHECK([./IX212A], [0], [], []) + AT_CLEANUP -AT_SETUP([IX / IX213A]) +AT_SETUP([IX213A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX213A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX213A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX213A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX213A.CBL], [0], [], []) AT_CHECK([./IX213A], [0], [], []) + AT_CLEANUP -AT_SETUP([IX / IX214A]) -AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX214A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX214A.CBL], [0]) +AT_SETUP([IX214A]) +# promoted on 2023-02-04T01:23 +AT_KEYWORDS([IX]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX214A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX214A.CBL], [0], [], [IX214A.CBL: in section 'SECT-0001-IX214A': +IX214A.CBL: in paragraph 'WRITE-INT-GF-01': +IX214A.CBL:761: warning: value size exceeds data size +IX214A.CBL:761: note: value size is 6 +IX214A.CBL:467: note: 'XPROGRAM-NAME' defined here as PIC X(5) +IX214A.CBL: in paragraph 'READ-TEST-F1-01-R1': +IX214A.CBL:832: warning: NEXT SENTENCE is archaic in COBOL 85 +IX214A.CBL: in paragraph 'START-TEST-GF-10': +IX214A.CBL:1350: warning: value size exceeds data size +IX214A.CBL:1350: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-11': +IX214A.CBL:1371: warning: value size exceeds data size +IX214A.CBL:1371: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-12': +IX214A.CBL:1390: warning: value size exceeds data size +IX214A.CBL:1390: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-13': +IX214A.CBL:1410: warning: value size exceeds data size +IX214A.CBL:1410: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-14': +IX214A.CBL:1430: warning: value size exceeds data size +IX214A.CBL:1430: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-15': +IX214A.CBL:1449: warning: value size exceeds data size +IX214A.CBL:1449: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-16': +IX214A.CBL:1469: warning: value size exceeds data size +IX214A.CBL:1469: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-17': +IX214A.CBL:1489: warning: value size exceeds data size +IX214A.CBL:1489: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-18': +IX214A.CBL:1509: warning: value size exceeds data size +IX214A.CBL:1509: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-18A': +IX214A.CBL:1528: warning: value size exceeds data size +IX214A.CBL:1528: note: value size is 21 +IX214A.CBL:490: note: 'FEATURE' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-28': +IX214A.CBL:2023: warning: value size exceeds data size +IX214A.CBL:2023: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-29': +IX214A.CBL:2043: warning: value size exceeds data size +IX214A.CBL:2043: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-30': +IX214A.CBL:2062: warning: value size exceeds data size +IX214A.CBL:2062: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-31': +IX214A.CBL:2082: warning: value size exceeds data size +IX214A.CBL:2082: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-32': +IX214A.CBL:2102: warning: value size exceeds data size +IX214A.CBL:2102: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-33': +IX214A.CBL:2122: warning: value size exceeds data size +IX214A.CBL:2122: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-34': +IX214A.CBL:2142: warning: value size exceeds data size +IX214A.CBL:2142: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-35': +IX214A.CBL:2162: warning: value size exceeds data size +IX214A.CBL:2162: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +IX214A.CBL: in paragraph 'START-TEST-GF-36': +IX214A.CBL:2182: warning: value size exceeds data size +IX214A.CBL:2182: note: value size is 21 +IX214A.CBL:519: note: 'CORRECT-A' defined here as PIC X(20) +]) AT_CHECK([./IX214A], [0], [], []) + AT_CLEANUP -AT_SETUP([IX / IX215A]) +AT_SETUP([IX215A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX215A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX215A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX215A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX215A.CBL], [0], [], [IX215A.CBL: in section 'SECT-0001-IX215A': +IX215A.CBL: in paragraph 'READ-TEST-F1-01-R1': +IX215A.CBL:868: warning: NEXT SENTENCE is archaic in COBOL 85 +IX215A.CBL: in paragraph 'READ-TEST-F1-02-R1': +IX215A.CBL:1504: warning: NEXT SENTENCE is archaic in COBOL 85 +IX215A.CBL: in paragraph 'READ-TEST-F1-O3-R1': +IX215A.CBL:2121: warning: NEXT SENTENCE is archaic in COBOL 85 +]) AT_CHECK([./IX215A], [0], [], []) + AT_CLEANUP -AT_SETUP([IX / IX216A]) +AT_SETUP([IX216A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX216A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX216A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX216A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX216A.CBL], [0], [], [IX216A.CBL: in section 'SECT-IX-04-001': +IX216A.CBL: in paragraph 'WRITE-TEST-GF-07': +IX216A.CBL:610: warning: alphanumeric value is expected +IX216A.CBL:121: note: 'IX-FS2-STATUS' defined here as PIC XX +]) AT_CHECK([./IX216A], [0], [], []) + AT_CLEANUP -AT_SETUP([IX / IX217A]) +AT_SETUP([IX217A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX217A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX217A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX217A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX217A.CBL], [0], [], []) AT_CHECK([./IX217A], [0], [], []) + AT_CLEANUP -AT_SETUP([IX / IX218A]) +AT_SETUP([IX218A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX218A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX218A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX218A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX218A.CBL], [0], [], [IX218A.CBL: in section 'SECT-IX-01-001': +IX218A.CBL: in paragraph 'REA-FAIL-GF-04': +IX218A.CBL:547: warning: value size exceeds data size +IX218A.CBL:547: note: value size is 63 +IX218A.CBL:136: note: 'RE-MARK' defined here as PIC X(61) +]) AT_CHECK([./IX218A], [0], [], []) + AT_CLEANUP -AT_SETUP([IX / IX301M]) +AT_SETUP([IX301M]) AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX301M.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX301M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX301M.CBL .],[0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX301M.CBL], [0], [], []) # AT_CHECK([./IX301M], [0], [], []) AT_CLEANUP -AT_SETUP([IX / IX302M]) - +AT_SETUP([IX302M]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX302M.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX302M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX302M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX302M.CBL], [0], [], []) AT_CHECK([./IX302M], [0], [THIS IS A DUMMY PARAGRAPH ], []) AT_CLEANUP -AT_SETUP([IX / IX401M]) +AT_SETUP([IX401M]) AT_KEYWORDS([IX]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX401M.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug IX401M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX401M.CBL .],[0], [], []) +AT_CHECK([$COMPILE -std=cobol85 IX401M.CBL], [0], [], []) # AT_CHECK([./IX401M], [0], [], []) AT_CLEANUP diff --git a/tests/cobol85/testsuite.src/run_NC.at b/tests/cobol85/testsuite.src/run_NC.at index 451f14b12..c2b0556b6 100644 --- a/tests/cobol85/testsuite.src/run_NC.at +++ b/tests/cobol85/testsuite.src/run_NC.at @@ -1,75 +1,300 @@ -AT_SETUP([NC / NC101A]) +AT_SETUP([NC101A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC101A.CBL NC101A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC101A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC101A.CBL NC101A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC101A.CBL], [0], [], []) AT_CHECK([./NC101A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC102A]) +AT_SETUP([NC102A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC102A.CBL NC102A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC102A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC102A.CBL NC102A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC102A.CBL], [0], [], [NC102A.CBL: in section 'CCVS-EXIT': +NC102A.CBL: in paragraph 'CCVS-999999': +NC102A.CBL:912: warning: PFM-B-F1-7 and PFM-D-F1-7 are not in the same SECTION +NC102A.CBL:916: warning: PFM-A-F1-7 and PFM-D-F1-7 are not in the same SECTION +NC102A.CBL:947: warning: PFM-B-F2-4 and PFM-D-F2-4 are not in the same SECTION +NC102A.CBL:951: warning: PFM-A-F2-4 and PFM-D-F2-4 are not in the same SECTION +NC102A.CBL:953: warning: PFM-B-F2-4 and PFM-D-F2-4 are not in the same SECTION +NC102A.CBL:1066: warning: PFM-G-F1-10 and PFM-B-F1-10 are not in the same SECTION +NC102A.CBL:1066: warning: PFM-B-F1-10 is defined before PFM-G-F1-10 +NC102A.CBL:1088: note: 'PFM-G-F1-10' defined here +NC102A.CBL:1074: note: 'PFM-B-F1-10' defined here +]) AT_CHECK([./NC102A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC103A]) -AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC103A.CBL NC103A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC103A.CBL], [0]) +AT_SETUP([NC103A]) +# promoted on 2023-02-04T01:19 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC103A.CBL NC103A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC103A.CBL], [0], [], [NC103A.CBL: in section 'SECT-NC103A-001': +NC103A.CBL: in paragraph 'IF--INIT-GF-14': +NC103A.CBL:690: warning: alphanumeric value is expected +NC103A.CBL:271: note: 'IF-D20' defined here as a group of length 10 +NC103A.CBL:691: warning: alphanumeric value is expected +NC103A.CBL:276: note: 'IF-D21' defined here as a group of length 10 +NC103A.CBL: in paragraph 'IF--INIT-GF-32': +NC103A.CBL:952: warning: alphanumeric value is expected +NC103A.CBL:271: note: 'IF-D20' defined here as a group of length 10 +NC103A.CBL:953: warning: alphanumeric value is expected +NC103A.CBL:276: note: 'IF-D21' defined here as a group of length 10 +NC103A.CBL: in paragraph 'IF--INIT-GF-40': +NC103A.CBL:1071: warning: alphanumeric value is expected +NC103A.CBL:271: note: 'IF-D20' defined here as a group of length 10 +NC103A.CBL:1072: warning: alphanumeric value is expected +NC103A.CBL:276: note: 'IF-D21' defined here as a group of length 10 +NC103A.CBL: in paragraph 'IF--INIT-GF-44': +NC103A.CBL:1130: warning: alphanumeric value is expected +NC103A.CBL:271: note: 'IF-D20' defined here as a group of length 10 +NC103A.CBL:1131: warning: alphanumeric value is expected +NC103A.CBL:276: note: 'IF-D21' defined here as a group of length 10 +NC103A.CBL: in paragraph 'IF--INIT-GF-48': +NC103A.CBL:1189: warning: alphanumeric value is expected +NC103A.CBL:271: note: 'IF-D20' defined here as a group of length 10 +NC103A.CBL:1190: warning: alphanumeric value is expected +NC103A.CBL:276: note: 'IF-D21' defined here as a group of length 10 +NC103A.CBL: in paragraph 'IF--INIT-GF-66': +NC103A.CBL:1466: warning: alphanumeric value is expected +NC103A.CBL:240: note: 'TWOS-XN-00002' defined here as PIC XX +NC103A.CBL: in paragraph 'IF--TEST-GF-71': +NC103A.CBL:1556: warning: literal '88.9' has more decimals than 'A99-DS-02V00' +NC103A.CBL:1556: warning: NEXT SENTENCE is archaic in COBOL 85 +NC103A.CBL: in paragraph 'IF--TEST-GF-72': +NC103A.CBL:1573: warning: NEXT SENTENCE is archaic in COBOL 85 +NC103A.CBL: in paragraph 'IF--TEST-GF-73': +NC103A.CBL:1591: warning: NEXT SENTENCE is archaic in COBOL 85 +NC103A.CBL: in paragraph 'IF--TEST-GF-74': +NC103A.CBL:1609: warning: NEXT SENTENCE is archaic in COBOL 85 +NC103A.CBL: in paragraph 'IF--TEST-GF-76': +NC103A.CBL:1646: warning: NEXT SENTENCE is archaic in COBOL 85 +NC103A.CBL: in paragraph 'IF--TEST-GF-77': +NC103A.CBL:1662: warning: NEXT SENTENCE is archaic in COBOL 85 +NC103A.CBL: in paragraph 'IF--TEST-GF-78': +NC103A.CBL:1676: warning: literal '1.0000000001' has more decimals than 'A01ONE-DS-P0801' +NC103A.CBL: in paragraph 'IF--TEST-GF-97': +NC103A.CBL:2026: warning: literal 'AA' is alphanumeric but 'A02TWOS-DU-02V00' is numeric +NC103A.CBL:2028: warning: literal 'AA' is alphanumeric but 'A02TWOS-DU-02V00' is numeric +]) AT_CHECK([./NC103A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC104A]) -AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC104A.CBL NC104A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC104A.CBL], [0]) +AT_SETUP([NC104A]) +# promoted on 2023-02-04T01:25 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC104A.CBL NC104A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC104A.CBL], [0], [], [NC104A.CBL: in section 'NUMERIC-OPERAND-LIMITS-TESTS': +NC104A.CBL: in paragraph 'MOVE-INIT-DELETE-F1-57-1': +NC104A.CBL:1622: warning: value size exceeds data size +NC104A.CBL:1622: note: value size is 32 +NC104A.CBL:171: note: 'PAR-NAME' defined here as a group of length 22 +NC104A.CBL: in paragraph 'MOVE-TEST-F1-60-0': +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2547: note: value size is 21 +NC104A.CBL:101: note: 'ANDATA1' defined here as PIC X +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2547: note: value size is 21 +NC104A.CBL:102: note: 'ANDATA2' defined here as PIC XX +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2547: note: value size is 21 +NC104A.CBL:103: note: 'ANDATA3' defined here as PIC XXX +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2548: note: value size is 21 +NC104A.CBL:104: note: 'ANDATA4' defined here as PIC X(4) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2548: note: value size is 21 +NC104A.CBL:105: note: 'ANDATA5' defined here as PIC X(5) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2548: note: value size is 21 +NC104A.CBL:106: note: 'ANDATA6' defined here as PIC X(6) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2548: note: value size is 21 +NC104A.CBL:107: note: 'ANDATA7' defined here as PIC X(7) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2548: note: value size is 21 +NC104A.CBL:108: note: 'ANDATA8' defined here as PIC X(8) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2548: note: value size is 21 +NC104A.CBL:109: note: 'ANDATA9' defined here as PIC X(9) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2549: note: value size is 21 +NC104A.CBL:110: note: 'ANDATA10' defined here as PIC X(10) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2549: note: value size is 21 +NC104A.CBL:111: note: 'ANDATA11' defined here as PIC X(11) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2549: note: value size is 21 +NC104A.CBL:112: note: 'ANDATA12' defined here as PIC X(12) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2549: note: value size is 21 +NC104A.CBL:113: note: 'ANDATA13' defined here as PIC X(13) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2549: note: value size is 21 +NC104A.CBL:114: note: 'ANDATA14' defined here as PIC X(14) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2550: note: value size is 21 +NC104A.CBL:115: note: 'ANDATA15' defined here as PIC X(15) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2550: note: value size is 21 +NC104A.CBL:116: note: 'ANDATA16' defined here as PIC X(16) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2550: note: value size is 21 +NC104A.CBL:117: note: 'ANDATA17' defined here as PIC X(17) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2550: note: value size is 21 +NC104A.CBL:118: note: 'ANDATA18' defined here as PIC X(18) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2550: note: value size is 21 +NC104A.CBL:119: note: 'ANDATA19' defined here as PIC X(19) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2551: note: value size is 21 +NC104A.CBL:120: note: 'ANDATA20' defined here as PIC X(20) +]) AT_CHECK([./NC104A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC105A]) -AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC105A.CBL NC105A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC105A.CBL], [0]) +AT_SETUP([NC105A]) +# promoted on 2023-02-04T01:25 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC105A.CBL NC105A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC105A.CBL], [0], [], [NC105A.CBL:69: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC105A.CBL:71: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC105A.CBL: in section 'SECT-NC105A-001': +NC105A.CBL: in paragraph 'MOVE-TEST-F1-1-0': +NC105A.CBL:488: warning: value size exceeds data size +NC105A.CBL:488: note: value is 12345 +NC105A.CBL:184: note: 'MOVE40' defined here as PIC 9999V9 +NC105A.CBL: in paragraph 'MOVE-TEST-F1-2-0': +NC105A.CBL:508: warning: value size exceeds data size +NC105A.CBL:508: note: value is 12345 +NC105A.CBL:164: note: 'MOVE5' defined here as PIC 99V999 +NC105A.CBL: in paragraph 'MOVE-TEST-F1-4-0': +NC105A.CBL:547: warning: value size exceeds data size +NC105A.CBL:547: note: value size is 5 +NC105A.CBL:168: note: 'MOVE20' defined here as PIC X(4) +NC105A.CBL: in paragraph 'MOVE-INIT-F1-37': +NC105A.CBL:1262: warning: alphanumeric value is expected +NC105A.CBL:93: note: 'GRP-NUMERIC' defined here as a group of length 10 +NC105A.CBL: in paragraph 'MOVE-INIT-F1-38': +NC105A.CBL:1281: warning: alphanumeric value is expected +NC105A.CBL:93: note: 'GRP-NUMERIC' defined here as a group of length 10 +NC105A.CBL: in paragraph 'MOVE-TEST-F1-46-0': +NC105A.CBL:1460: warning: value size exceeds data size +NC105A.CBL:1460: note: value size is 28 +NC105A.CBL:110: note: 'WRK-DU-10V00' defined here as PIC 9(10) +NC105A.CBL: in paragraph 'MOVE-TEST-F1-79-0': +NC105A.CBL:2115: warning: value size exceeds data size +NC105A.CBL:2115: note: value size is 10 +NC105A.CBL:120: note: 'AE-0002' defined here as PIC XX0XXBXXX +NC105A.CBL: in paragraph 'MOVE-TEST-F1-82-0': +NC105A.CBL:2170: warning: alphanumeric value is expected +NC105A.CBL:109: note: 'GRP-WRK-DU-10V00' defined here as a group of length 10 +NC105A.CBL: in paragraph 'MOVE-TEST-F1-83-0': +NC105A.CBL:2188: warning: alphanumeric value is expected +NC105A.CBL:112: note: 'WRK-XN-00049' defined here as PIC X(49) +NC105A.CBL: in paragraph 'MOVE-TEST-F1-84-0': +NC105A.CBL:2210: warning: alphanumeric value is expected +NC105A.CBL:120: note: 'AE-0002' defined here as PIC XX0XXBXXX +NC105A.CBL: in paragraph 'MOVE-TEST-F1-88-1': +NC105A.CBL:2289: warning: alphanumeric value is expected +NC105A.CBL:255: note: 'CORRECT-A' defined here as PIC X(20) +NC105A.CBL: in paragraph 'MOVE-TEST-F1-89-1': +NC105A.CBL:2306: warning: alphanumeric value is expected +NC105A.CBL:255: note: 'CORRECT-A' defined here as PIC X(20) +NC105A.CBL: in paragraph 'MOVE-TEST-F1-90-1': +NC105A.CBL:2323: warning: alphanumeric value is expected +NC105A.CBL:255: note: 'CORRECT-A' defined here as PIC X(20) +NC105A.CBL: in paragraph 'MOVE-TEST-F1-110-0': +NC105A.CBL:2655: warning: alphanumeric value is expected +NC105A.CBL:215: note: 'MOVE71' defined here as PIC X(20) +]) AT_CHECK([./NC105A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC106A]) +AT_SETUP([NC106A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC106A.CBL NC106A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC106A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC106A.CBL NC106A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC106A.CBL], [0], [], [NC106A.CBL:208: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +]) AT_CHECK([./NC106A], [0], [], []) + AT_CLEANUP # more testing in report.pl -AT_SETUP([NC / NC107A]) -AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC107A.CBL NC107A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC107A.CBL], [0]) +AT_SETUP([NC107A]) +# promoted on 2023-02-04T01:19 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC107A.CBL NC107A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC107A.CBL], [0], [], [NC107A.CBL:75: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC107A.CBL:183: warning: size of 'REDEF11' larger than size of 'REDEF10' +NC107A.CBL:187: warning: size of 'REDEF12' larger than size of 'REDEF10' +NC107A.CBL: in section 'SEP-TEST-5': +NC107A.CBL: in paragraph 'JUST-TEST-02-2-0': +NC107A.CBL:1008: warning: value size exceeds data size +NC107A.CBL:1008: note: value size is 9 +NC107A.CBL:268: note: 'XJ-00005' defined here as PIC X(5) +NC107A.CBL: in paragraph 'RDF-TEST-7': +NC107A.CBL:1589: warning: alphanumeric value is expected +NC107A.CBL:313: note: 'CORRECT-A' defined here as PIC X(20) +NC107A.CBL: in paragraph 'RDF-TEST-10': +NC107A.CBL:1640: warning: alphanumeric value is expected +NC107A.CBL:313: note: 'CORRECT-A' defined here as PIC X(20) +NC107A.CBL: in paragraph 'VALUE-INIT-1': +NC107A.CBL:1791: warning: value size exceeds data size +NC107A.CBL:1791: note: value size is 22 +NC107A.CBL:284: note: 'FEATURE' defined here as PIC X(20) +NC107A.CBL: in section 'NUM-EXIT-SECT': +NC107A.CBL: in paragraph 'COMPARE-TEST-5': +NC107A.CBL:1980: warning: alphanumeric value is expected +NC107A.CBL:313: note: 'CORRECT-A' defined here as PIC X(20) +NC107A.CBL: in section 'CCVS-EXIT': +NC107A.CBL: in paragraph 'CCVS-999999': +NC107A.CBL:1912: warning: 000000000000000000000000001 and 00000000000000000000000000001 are not in the same SECTION +]) AT_CHECK([./NC107A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC108M]) +AT_SETUP([NC108M]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC108M.CBL NC108M.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC108M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC108M.CBL NC108M.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC108M.CBL], [0], [], [NC108M.CBL:85: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC108M.CBL:117: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC108M.CBL:121: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC108M.CBL:125: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC108M.CBL:129: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +]) AT_CHECK([./NC108M], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC109M]) +AT_SETUP([NC109M]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC109M.CBL NC109M.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC109M.CBL], [0]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC109M.DAT NC109M.DAT],[0]) -AT_CHECK([./NC109M < NC109M.DAT], [0], -[ +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC109M.CBL NC109M.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC109M.CBL], [0], [], [NC109M.CBL: in section 'SECT-NC109M-001': +NC109M.CBL: in paragraph 'DISP-TEST-GF-4': +NC109M.CBL:740: warning: alphanumeric value is expected +NC109M.CBL:96: note: 'DIS-PLAYER' defined here as a group of length 119 +]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC109M.DAT NC109M.DAT], [0], [], []) +AT_CHECK([./NC109M < NC109M.DAT], [0], [ ALPHABETIC @@ -112,13 +337,14 @@ QUOTE " ASTERISK * NUMERIC LITERALS 21 35 IDENTIFIER DATA A B C D E 0102030405 ( ABCD ], []) + AT_CLEANUP -AT_SETUP([NC / NC110M]) +AT_SETUP([NC110M]) AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC110M.CBL NC110M.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC110M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC110M.CBL NC110M.CBL],[0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC110M.CBL], [0], [], []) AT_CHECK([./NC110M], [0], [ FOR OFFICIAL USE ONLY @@ -147,327 +373,617 @@ COPYRIGHT 1985 AT_CLEANUP -AT_SETUP([NC / NC111A]) +AT_SETUP([NC111A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC111A.CBL NC111A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC111A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC111A.CBL NC111A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC111A.CBL], [0], [], []) AT_CHECK([./NC111A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC112A]) -AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC112A.CBL NC112A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC112A.CBL], [0]) +AT_SETUP([NC112A]) +# promoted on 2023-02-04T01:19 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC112A.CBL NC112A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC112A.CBL], [0], [], [NC112A.CBL: in section 'SECT-NC112A-001': +NC112A.CBL: in paragraph 'ADD-TEST-F1-1-1': +NC112A.CBL:345: warning: alphanumeric value is expected +NC112A.CBL:87: note: 'CORRECT-A' defined here as PIC X(20) +NC112A.CBL: in paragraph 'ADD-TEST-F1-2-1': +NC112A.CBL:384: warning: alphanumeric value is expected +NC112A.CBL:87: note: 'CORRECT-A' defined here as PIC X(20) +NC112A.CBL: in paragraph 'ADD-TEST-F2-1-1': +NC112A.CBL:421: warning: alphanumeric value is expected +NC112A.CBL:87: note: 'CORRECT-A' defined here as PIC X(20) +NC112A.CBL: in paragraph 'ADD-TEST-F2-2-1': +NC112A.CBL:459: warning: alphanumeric value is expected +NC112A.CBL:87: note: 'CORRECT-A' defined here as PIC X(20) +NC112A.CBL: in paragraph 'SUB-TEST-F1-1-1': +NC112A.CBL:565: warning: alphanumeric value is expected +NC112A.CBL:87: note: 'CORRECT-A' defined here as PIC X(20) +NC112A.CBL: in paragraph 'SUB-TEST-F2-1-1': +NC112A.CBL:605: warning: alphanumeric value is expected +NC112A.CBL:87: note: 'CORRECT-A' defined here as PIC X(20) +NC112A.CBL: in paragraph 'SUB-TEST-F2-3': +NC112A.CBL:664: warning: alphanumeric value is expected +NC112A.CBL:87: note: 'CORRECT-A' defined here as PIC X(20) +NC112A.CBL: in paragraph 'SUB-TEST-F1-2-1': +NC112A.CBL:694: warning: alphanumeric value is expected +NC112A.CBL:87: note: 'CORRECT-A' defined here as PIC X(20) +NC112A.CBL: in paragraph 'SUB-TEST-F2-4-1': +NC112A.CBL:723: warning: alphanumeric value is expected +NC112A.CBL:87: note: 'CORRECT-A' defined here as PIC X(20) +]) AT_CHECK([./NC112A], [0], [], []) + AT_CLEANUP # more testing in report.pl -AT_SETUP([NC / NC113M]) +AT_SETUP([NC113M]) AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC113M.CBL NC113M.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC113M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC113M.CBL NC113M.CBL],[0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC113M.CBL], [0], [], []) AT_CHECK([./NC113M], [0], [], []) AT_CLEANUP -AT_SETUP([NC / NC114M]) +AT_SETUP([NC114M]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC114M.CBL NC114M.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -t NC114M.lst -debug NC114M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC114M.CBL NC114M.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -x -t NC114M.lst NC114M.CBL], [0], [], [NC114M.CBL: in section 'SECT-NC114-1': +NC114M.CBL: in paragraph 'ALPHA-EDIT-TEST-4': +NC114M.CBL:354: warning: NEXT SENTENCE is archaic in COBOL 85 +NC114M.CBL: in paragraph 'ELEM-MOVE-FAIL-17': +NC114M.CBL:429: warning: value size exceeds data size +NC114M.CBL:429: note: value size is 24 +NC114M.CBL:111: note: 'CORRECT-A' defined here as PIC X(20) +]) AT_CHECK([./NC114M], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC115A]) +AT_SETUP([NC115A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC115A.CBL NC115A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC115A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC115A.CBL NC115A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC115A.CBL], [0], [], []) AT_CHECK([./NC115A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC116A]) +AT_SETUP([NC116A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC116A.CBL NC116A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC116A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC116A.CBL NC116A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC116A.CBL], [0], [], [NC116A.CBL: in section 'SECT-NC116A-001': +NC116A.CBL: in paragraph 'SIG-INIT-GF-1': +NC116A.CBL:417: warning: value size exceeds data size +NC116A.CBL:417: note: value size is 21 +NC116A.CBL:155: note: 'FEATURE' defined here as PIC X(20) +NC116A.CBL: in paragraph 'SIG-INIT-GF-17': +NC116A.CBL:1444: warning: value size exceeds data size +NC116A.CBL:1444: note: value size is 37 +NC116A.CBL:155: note: 'FEATURE' defined here as PIC X(20) +NC116A.CBL: in paragraph 'SIG-INIT-GF-18': +NC116A.CBL:1467: warning: value size exceeds data size +NC116A.CBL:1467: note: value size is 37 +NC116A.CBL:155: note: 'FEATURE' defined here as PIC X(20) +]) AT_CHECK([./NC116A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC117A]) +AT_SETUP([NC117A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC117A.CBL NC117A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC117A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC117A.CBL NC117A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC117A.CBL], [0], [], []) AT_CHECK([./NC117A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC118A]) +AT_SETUP([NC118A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC118A.CBL NC118A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC118A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC118A.CBL NC118A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC118A.CBL], [0], [], [NC118A.CBL:135: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC118A.CBL: in section 'SECT-NC118A-001': +NC118A.CBL: in paragraph 'SIG-TEST-GF-19-2': +NC118A.CBL:946: warning: alphanumeric value is expected +NC118A.CBL:222: note: 'COMPUTED-A' defined here as PIC X(20) +NC118A.CBL: in paragraph 'SIG-TEST-GF-20-2': +NC118A.CBL:986: warning: alphanumeric value is expected +NC118A.CBL:222: note: 'COMPUTED-A' defined here as PIC X(20) +]) AT_CHECK([./NC118A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC119A]) +AT_SETUP([NC119A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC119A.CBL NC119A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC119A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC119A.CBL NC119A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC119A.CBL], [0], [], [NC119A.CBL:135: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC119A.CBL: in section 'SECT-NC119A-001': +NC119A.CBL: in paragraph 'SUB-TEST-GF-25-2': +NC119A.CBL:1121: warning: alphanumeric value is expected +NC119A.CBL:222: note: 'COMPUTED-A' defined here as PIC X(20) +NC119A.CBL: in paragraph 'SUB-INIT-GF-26': +NC119A.CBL:1138: warning: value size exceeds data size +NC119A.CBL:1138: note: value is 1 +NC119A.CBL:200: note: 'EVEN-NAME2' defined here as PIC SV9(18) +NC119A.CBL: in paragraph 'SUB-TEST-GF-26-2': +NC119A.CBL:1162: warning: alphanumeric value is expected +NC119A.CBL:222: note: 'COMPUTED-A' defined here as PIC X(20) +]) AT_CHECK([./NC119A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC120A]) +AT_SETUP([NC120A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC120A.CBL NC120A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC120A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC120A.CBL NC120A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC120A.CBL], [0], [], []) AT_CHECK([./NC120A], [0], [], []) + AT_CLEANUP # more testing in report.pl -AT_SETUP([NC / NC121M]) +AT_SETUP([NC121M]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC121M.CBL NC121M.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC121M.CBL], [0]) -AT_CHECK([./NC121M], [0], -[ +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC121M.CBL NC121M.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC121M.CBL], [0], [], []) +AT_CHECK([./NC121M], [0], [ LITERAL-01 0123456789 ], []) + AT_CLEANUP -AT_SETUP([NC / NC122A]) +AT_SETUP([NC122A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC122A.CBL NC122A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC122A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC122A.CBL NC122A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC122A.CBL], [0], [], []) AT_CHECK([./NC122A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC123A]) +AT_SETUP([NC123A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC123A.CBL NC123A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC123A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC123A.CBL NC123A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC123A.CBL], [0], [], [NC123A.CBL: in section 'CCVS1': +NC123A.CBL: in paragraph 'IND-INIT-GF-17': +NC123A.CBL:755: warning: value size exceeds data size +NC123A.CBL:755: note: value size is 22 +NC123A.CBL:69: note: 'FEATURE' defined here as PIC X(20) +NC123A.CBL: in paragraph 'IND-INIT-GF-20': +NC123A.CBL:837: warning: value size exceeds data size +NC123A.CBL:837: note: value size is 22 +NC123A.CBL:69: note: 'FEATURE' defined here as PIC X(20) +]) AT_CHECK([./NC123A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC124A]) +AT_SETUP([NC124A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC124A.CBL NC124A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC124A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC124A.CBL NC124A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC124A.CBL], [0], [], []) AT_CHECK([./NC124A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC125A]) +AT_SETUP([NC125A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC125A.CBL NC125A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC125A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC125A.CBL NC125A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC125A.CBL], [0], [], []) AT_CHECK([./NC125A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC126A]) +AT_SETUP([NC126A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC126A.CBL NC126A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC126A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC126A.CBL NC126A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC126A.CBL], [0], [], [NC126A.CBL: in section 'SECT-NC126A-001': +NC126A.CBL: in paragraph 'LEV-INIT-GF-3-1': +NC126A.CBL:1881: warning: value size exceeds data size +NC126A.CBL:1881: note: value is 12345678902 +NC126A.CBL:45: note: 'GP-2' defined here as PIC 9(9).99 +NC126A.CBL:1884: warning: value size exceeds data size +NC126A.CBL:1884: note: value is 6645143 +NC126A.CBL:51: note: 'GP-5' defined here as PIC $$$,$99.99 +NC126A.CBL:1894: warning: value size exceeds data size +NC126A.CBL:1894: note: value is 12345678902 +NC126A.CBL:71: note: 'GP-15' defined here as PIC 9(10) +]) AT_CHECK([./NC126A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC127A]) +AT_SETUP([NC127A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC127A.CBL NC127A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC127A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC127A.CBL NC127A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC127A.CBL], [0], [], []) AT_CHECK([./NC127A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC131A]) +AT_SETUP([NC131A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC131A.CBL NC131A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC131A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC131A.CBL NC131A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC131A.CBL], [0], [], []) AT_CHECK([./NC131A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC132A]) +AT_SETUP([NC132A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC132A.CBL NC132A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC132A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC132A.CBL NC132A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC132A.CBL], [0], [], []) AT_CHECK([./NC132A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC133A]) -AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC133A.CBL NC133A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC133A.CBL], [0]) +AT_SETUP([NC133A]) +# promoted on 2023-02-04T01:23 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC133A.CBL NC133A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC133A.CBL], [0], [], [NC133A.CBL: in section 'SECT-TH133A-001': +NC133A.CBL: in paragraph 'IDX-TEST-2': +NC133A.CBL:360: warning: alphanumeric value is expected +NC133A.CBL:97: note: 'CORRECT-A' defined here as PIC X(20) +NC133A.CBL: in paragraph 'IDX-TEST-3': +NC133A.CBL:375: warning: alphanumeric value is expected +NC133A.CBL:97: note: 'CORRECT-A' defined here as PIC X(20) +NC133A.CBL: in paragraph 'IDX-TEST-4': +NC133A.CBL:389: warning: alphanumeric value is expected +NC133A.CBL:97: note: 'CORRECT-A' defined here as PIC X(20) +NC133A.CBL: in paragraph 'IDX-TEST-5': +NC133A.CBL:404: warning: alphanumeric value is expected +NC133A.CBL:97: note: 'CORRECT-A' defined here as PIC X(20) +NC133A.CBL: in paragraph 'IDX-TEST-6': +NC133A.CBL:420: warning: alphanumeric value is expected +NC133A.CBL:97: note: 'CORRECT-A' defined here as PIC X(20) +NC133A.CBL: in paragraph 'IDX-TEST-7': +NC133A.CBL:434: warning: alphanumeric value is expected +NC133A.CBL:97: note: 'CORRECT-A' defined here as PIC X(20) +NC133A.CBL: in paragraph 'IDX-TEST-8': +NC133A.CBL:450: warning: alphanumeric value is expected +NC133A.CBL:97: note: 'CORRECT-A' defined here as PIC X(20) +NC133A.CBL: in paragraph 'IDX-TEST-9': +NC133A.CBL:466: warning: alphanumeric value is expected +NC133A.CBL:97: note: 'CORRECT-A' defined here as PIC X(20) +NC133A.CBL: in paragraph 'IDX-TEST-11': +NC133A.CBL:499: warning: alphanumeric value is expected +NC133A.CBL:97: note: 'CORRECT-A' defined here as PIC X(20) +NC133A.CBL: in paragraph 'IDX-TEST-12': +NC133A.CBL:513: warning: alphanumeric value is expected +NC133A.CBL:97: note: 'CORRECT-A' defined here as PIC X(20) +NC133A.CBL: in paragraph 'IDX-TEST-13': +NC133A.CBL:527: warning: alphanumeric value is expected +NC133A.CBL:97: note: 'CORRECT-A' defined here as PIC X(20) +NC133A.CBL: in paragraph 'IDX-TEST-14': +NC133A.CBL:541: warning: alphanumeric value is expected +NC133A.CBL:97: note: 'CORRECT-A' defined here as PIC X(20) +NC133A.CBL: in paragraph 'IDX-TEST-15': +NC133A.CBL:555: warning: alphanumeric value is expected +NC133A.CBL:97: note: 'CORRECT-A' defined here as PIC X(20) +]) AT_CHECK([./NC133A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC134A]) +AT_SETUP([NC134A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC134A.CBL NC134A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC134A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC134A.CBL NC134A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC134A.CBL], [0], [], []) AT_CHECK([./NC134A], [0], [], []) + AT_CLEANUP # more testing in report.pl -AT_SETUP([NC / NC135A]) -AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC135A.CBL NC135A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC135A.CBL], [0]) +AT_SETUP([NC135A]) +# promoted on 2023-02-04T01:19 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC135A.CBL NC135A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC135A.CBL], [0], [], [NC135A.CBL: in section 'SECTION-NAME-2': +NC135A.CBL: in paragraph 'INDEX-TEST-1': +NC135A.CBL:362: warning: alphanumeric value is expected +NC135A.CBL:95: note: 'CORRECT-A' defined here as PIC X(20) +]) AT_CHECK([./NC135A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC136A]) +AT_SETUP([NC136A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC136A.CBL NC136A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC136A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC136A.CBL NC136A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC136A.CBL], [0], [], []) AT_CHECK([./NC136A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC137A]) +AT_SETUP([NC137A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC137A.CBL NC137A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC137A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC137A.CBL NC137A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC137A.CBL], [0], [], []) AT_CHECK([./NC137A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC138A]) +AT_SETUP([NC138A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC138A.CBL NC138A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC138A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC138A.CBL NC138A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC138A.CBL], [0], [], [NC138A.CBL:51: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +]) AT_CHECK([./NC138A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC139A]) +AT_SETUP([NC139A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC139A.CBL NC139A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC139A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC139A.CBL NC139A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC139A.CBL], [0], [], []) AT_CHECK([./NC139A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC140A]) +AT_SETUP([NC140A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC140A.CBL NC140A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC140A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC140A.CBL NC140A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC140A.CBL], [0], [], []) AT_CHECK([./NC140A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC141A]) +AT_SETUP([NC141A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC141A.CBL NC141A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC141A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC141A.CBL NC141A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC141A.CBL], [0], [], []) AT_CHECK([./NC141A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC170A]) +AT_SETUP([NC170A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC170A.CBL NC170A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC170A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC170A.CBL NC170A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC170A.CBL], [0], [], []) AT_CHECK([./NC170A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC171A]) +AT_SETUP([NC171A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC171A.CBL NC171A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC171A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC171A.CBL NC171A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC171A.CBL], [0], [], []) AT_CHECK([./NC171A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC172A]) +AT_SETUP([NC172A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC172A.CBL NC172A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC172A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC172A.CBL NC172A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC172A.CBL], [0], [], []) AT_CHECK([./NC172A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC173A]) +AT_SETUP([NC173A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC173A.CBL NC173A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC173A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC173A.CBL NC173A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC173A.CBL], [0], [], [NC173A.CBL: in section 'SECT-NC173A-001': +NC173A.CBL: in paragraph 'DIV-INIT-F3-26': +NC173A.CBL:1743: warning: alphanumeric value is expected +NC173A.CBL:53: note: 'WRK-XN-00001' defined here as PIC X +]) AT_CHECK([./NC173A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC174A]) -AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC174A.CBL NC174A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC174A.CBL], [0]) +AT_SETUP([NC174A]) +# promoted on 2023-02-04T01:23 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC174A.CBL NC174A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC174A.CBL], [0], [], [NC174A.CBL: in section 'SECT-NC174A-001': +NC174A.CBL: in paragraph 'NEXT-TEST-GF-1': +NC174A.CBL:532: warning: NEXT SENTENCE is archaic in COBOL 85 +NC174A.CBL:534: warning: NEXT SENTENCE is archaic in COBOL 85 +NC174A.CBL: in paragraph 'RELAT-CHECK-GF-1': +NC174A.CBL:789: warning: alphanumeric value is expected +NC174A.CBL:295: note: 'CORRECT-A' defined here as PIC X(20) +NC174A.CBL: in paragraph 'RELAT-CHECK-GF-2': +NC174A.CBL:813: warning: alphanumeric value is expected +NC174A.CBL:295: note: 'CORRECT-A' defined here as PIC X(20) +NC174A.CBL: in paragraph 'RELAT-CHECK-GF-3': +NC174A.CBL:838: warning: alphanumeric value is expected +NC174A.CBL:295: note: 'CORRECT-A' defined here as PIC X(20) +NC174A.CBL: in paragraph 'RELAT-CHECK-GF-5': +NC174A.CBL:888: warning: alphanumeric value is expected +NC174A.CBL:295: note: 'CORRECT-A' defined here as PIC X(20) +NC174A.CBL: in paragraph 'RELAT-CHECK-GF-6': +NC174A.CBL:914: warning: alphanumeric value is expected +NC174A.CBL:295: note: 'CORRECT-A' defined here as PIC X(20) +NC174A.CBL: in paragraph 'RELAT-TEST-GF-13': +NC174A.CBL:1017: warning: 'DATA-99999' may not be GREATER THAN 99999 +NC174A.CBL: in paragraph 'CLASS-TEST-GF-35': +NC174A.CBL:1549: warning: value size exceeds data size +NC174A.CBL:1549: note: value size is 23 +NC174A.CBL:295: note: 'CORRECT-A' defined here as PIC X(20) +]) AT_CHECK([./NC174A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC175A]) +AT_SETUP([NC175A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC175A.CBL NC175A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC175A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC175A.CBL NC175A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC175A.CBL], [0], [], [NC175A.CBL:159: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC175A.CBL: in section 'SECT-NC175A-001': +NC175A.CBL: in paragraph 'SUB-TEST-F2-16-2': +NC175A.CBL:884: warning: alphanumeric value is expected +NC175A.CBL:244: note: 'COMPUTED-A' defined here as PIC X(20) +NC175A.CBL: in paragraph 'SUB-TEST-F2-17-2': +NC175A.CBL:916: warning: alphanumeric value is expected +NC175A.CBL:244: note: 'COMPUTED-A' defined here as PIC X(20) +]) AT_CHECK([./NC175A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC176A]) +AT_SETUP([NC176A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC176A.CBL NC176A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC176A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC176A.CBL NC176A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC176A.CBL], [0], [], [NC176A.CBL:182: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC176A.CBL: in section 'SECT-NC176A-001': +NC176A.CBL: in paragraph 'ADD-INIT-DELETE': +NC176A.CBL:1029: warning: value size exceeds data size +NC176A.CBL:1029: note: value size is 23 +NC176A.CBL:256: note: 'PAR-NAME' defined here as a group of length 22 +]) AT_CHECK([./NC176A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC177A]) +AT_SETUP([NC177A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC177A.CBL NC177A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC177A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC177A.CBL NC177A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC177A.CBL], [0], [], [NC177A.CBL:137: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC177A.CBL: in section 'SECT-NC177A-001': +NC177A.CBL: in paragraph 'ADD-TEST-F2-15-2': +NC177A.CBL:815: warning: alphanumeric value is expected +NC177A.CBL:222: note: 'COMPUTED-A' defined here as PIC X(20) +NC177A.CBL: in paragraph 'ADD-TEST-F2-16-2': +NC177A.CBL:846: warning: alphanumeric value is expected +NC177A.CBL:222: note: 'COMPUTED-A' defined here as PIC X(20) +]) AT_CHECK([./NC177A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC201A]) +AT_SETUP([NC201A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC201A.CBL NC201A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC201A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC201A.CBL NC201A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC201A.CBL], [0], [], [NC201A.CBL:185: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +]) AT_CHECK([./NC201A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC202A]) -AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC202A.CBL NC202A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC202A.CBL], [0]) +AT_SETUP([NC202A]) +# promoted on 2023-02-04T01:19 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC202A.CBL NC202A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC202A.CBL], [0], [], [NC202A.CBL: in section 'SECT-NC202A-001': +NC202A.CBL: in paragraph 'ADD-FAIL-F3-3-2': +NC202A.CBL:625: warning: alphanumeric value is expected +NC202A.CBL:303: note: 'CORRECT-A' defined here as PIC X(20) +NC202A.CBL: in paragraph 'ADD-FAIL-F3-6': +NC202A.CBL:753: warning: alphanumeric value is expected +NC202A.CBL:303: note: 'CORRECT-A' defined here as PIC X(20) +NC202A.CBL: in paragraph 'ADD-INIT-F3-7': +NC202A.CBL:765: warning: alphanumeric value is expected +NC202A.CBL:188: note: 'CORR-DATA-2' defined here as a group of length 12 +NC202A.CBL: in paragraph 'ADD-INIT-F3-8': +NC202A.CBL:865: warning: alphanumeric value is expected +NC202A.CBL:188: note: 'CORR-DATA-2' defined here as a group of length 12 +NC202A.CBL: in paragraph 'ADD-TEST-F3-8-1': +NC202A.CBL:870: warning: alphanumeric value is expected +NC202A.CBL:53: note: 'WRK-AN-00001' defined here as PIC X +NC202A.CBL: in paragraph 'ADD-INIT-F3-9-1': +NC202A.CBL:908: warning: alphanumeric value is expected +NC202A.CBL:181: note: 'CORR-DATA-1' defined here as a group of length 12 +]) AT_CHECK([./NC202A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC203A]) +AT_SETUP([NC203A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC203A.CBL NC203A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC203A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC203A.CBL NC203A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC203A.CBL], [0], [], [NC203A.CBL:99: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC203A.CBL:102: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC203A.CBL:104: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC203A.CBL:105: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC203A.CBL:107: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC203A.CBL:109: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC203A.CBL:137: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC203A.CBL: in section 'SECT-NC203A-001': +NC203A.CBL: in paragraph 'DIV-FAIL-F4-8-1': +NC203A.CBL:738: warning: alphanumeric value is expected +NC203A.CBL:184: note: 'CORRECT-A' defined here as PIC X(20) +]) AT_CHECK([./NC203A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC204M]) +AT_SETUP([NC204M]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC204M.CBL NC204M.CBL],[0]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC204M.DAT NC204M.DAT],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC204M.CBL], [0]) -AT_CHECK([./NC204M < NC204M.DAT], [0], -[ +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC204M.CBL NC204M.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC204M.DAT NC204M.DAT], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC204M.CBL], [0], [], []) +AT_CHECK([./NC204M < NC204M.DAT], [0], [ ALPHABETIC @@ -516,355 +1032,808 @@ QUOTE " ASTERISK * NUMERIC LITERALS 21 1325 IDENTIFIER DATA A B C D E 1 2 3 4 5 ALPHABETIC0123456789A1B2C3D4E5 SERIES ], []) + AT_CLEANUP -AT_SETUP([NC / NC205A]) +AT_SETUP([NC205A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC205A.CBL NC205A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC205A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC205A.CBL NC205A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC205A.CBL], [0], [], [NC205A.CBL: in section 'SECT-NC205A-001': +NC205A.CBL: in paragraph 'CON-TEST-GF-3': +NC205A.CBL:462: warning: suggest parentheses around OR within AND +NC205A.CBL: in paragraph 'CON-FAIL-GF-5': +NC205A.CBL:623: warning: alphanumeric value is expected +NC205A.CBL:173: note: 'CORRECT-A' defined here as PIC X(20) +NC205A.CBL: in paragraph 'CON-INIT-GF-10': +NC205A.CBL:783: warning: value size exceeds data size +NC205A.CBL:783: note: value size is 24 +NC205A.CBL:144: note: 'FEATURE' defined here as PIC X(20) +]) AT_CHECK([./NC205A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC206A]) +AT_SETUP([NC206A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC206A.CBL NC206A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC206A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC206A.CBL NC206A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC206A.CBL], [0], [], [NC206A.CBL: in section 'SECT-NC206A-001': +NC206A.CBL: in paragraph 'SUB-FAIL-F1-1': +NC206A.CBL:1620: warning: alphanumeric value is expected +NC206A.CBL:248: note: 'CORRECT-A' defined here as PIC X(20) +NC206A.CBL: in paragraph 'SUB-INIT-F1-2': +NC206A.CBL:1629: warning: alphanumeric value is expected +NC206A.CBL:213: note: 'CX' defined here as a group of length 1 +NC206A.CBL: in paragraph 'SUB-INIT-F1-3': +NC206A.CBL:1650: warning: alphanumeric value is expected +NC206A.CBL:213: note: 'CX' defined here as a group of length 1 +NC206A.CBL: in paragraph 'SUB-INIT-F1-4': +NC206A.CBL:1673: warning: alphanumeric value is expected +NC206A.CBL:213: note: 'CX' defined here as a group of length 1 +NC206A.CBL:1674: warning: alphanumeric value is expected +NC206A.CBL:210: note: 'AX-1' defined here as a group of length 2 +]) AT_CHECK([./NC206A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC207A]) +AT_SETUP([NC207A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC207A.CBL NC207A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC207A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC207A.CBL NC207A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC207A.CBL], [0], [], []) AT_CHECK([./NC207A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC208A]) +AT_SETUP([NC208A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC208A.CBL NC208A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC208A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC208A.CBL NC208A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC208A.CBL], [0], [], [NC208A.CBL: in section 'MOVE-CORR-ROUTINE': +NC208A.CBL: in paragraph 'MOV-FAIL-F1-1-1': +NC208A.CBL:899: warning: alphanumeric value is expected +NC208A.CBL:329: note: 'CORRECT-A' defined here as PIC X(20) +NC208A.CBL: in paragraph 'MOV-INIT-F1-3': +NC208A.CBL:1021: warning: alphanumeric value is expected +NC208A.CBL:199: note: 'CORR-DATA-3' defined here as a group of length 12 +NC208A.CBL: in paragraph 'MOV-TEST-F1-3': +NC208A.CBL:1025: warning: NEXT SENTENCE is archaic in COBOL 85 +NC208A.CBL:1028: warning: NEXT SENTENCE is archaic in COBOL 85 +]) AT_CHECK([./NC208A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC209A]) +AT_SETUP([NC209A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC209A.CBL NC209A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC209A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC209A.CBL NC209A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC209A.CBL], [0], [], [NC209A.CBL: in section 'SECT-NC209A-001': +NC209A.CBL: in paragraph 'MOV-INIT-F2-3': +NC209A.CBL:573: warning: no CORRESPONDING items found +]) AT_CHECK([./NC209A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC210A]) +AT_SETUP([NC210A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC210A.CBL NC210A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC210A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC210A.CBL NC210A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC210A.CBL], [0], [], []) AT_CHECK([./NC210A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC211A]) -AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC211A.CBL NC211A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC211A.CBL], [0]) +AT_SETUP([NC211A]) +# promoted on 2023-02-04T01:19 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC211A.CBL NC211A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC211A.CBL], [0], [], [NC211A.CBL:192: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC211A.CBL: in section 'SECT-NC211A-001': +NC211A.CBL: in paragraph 'CC--TEST-GF-15': +NC211A.CBL:852: warning: suggest parentheses around OR within AND +NC211A.CBL: in paragraph 'CC--TEST-GF-16': +NC211A.CBL:874: warning: suggest parentheses around AND within OR +NC211A.CBL: in paragraph 'CC--TEST-GF-21': +NC211A.CBL:997: warning: NEXT SENTENCE is archaic in COBOL 85 +NC211A.CBL: in paragraph 'CC--TEST-GF-22': +NC211A.CBL:1018: warning: NEXT SENTENCE is archaic in COBOL 85 +NC211A.CBL: in paragraph 'CC--TEST-GF-32': +NC211A.CBL:1309: warning: literal '6.00000000000000001' has more decimals than 'SIX' +NC211A.CBL:1309: warning: expression is always TRUE +NC211A.CBL: in paragraph 'CC--TEST-GF-38': +NC211A.CBL:1485: warning: suggest parentheses around OR within AND +NC211A.CBL: in paragraph 'CC--INIT-GF-42': +NC211A.CBL:1601: warning: alphanumeric value is expected +NC211A.CBL:135: note: 'CLASS-1' defined here as PIC X(5) +NC211A.CBL:1602: warning: alphanumeric value is expected +NC211A.CBL:136: note: 'CLASS-2' defined here as PIC X(5) +NC211A.CBL:1603: warning: alphanumeric value is expected +NC211A.CBL:137: note: 'CLASS-3' defined here as PIC X(5) +NC211A.CBL: in paragraph 'CC--TEST-GF-47': +NC211A.CBL:1751: warning: suggest parentheses around AND within OR +NC211A.CBL: in paragraph 'CC--TEST-GF-48': +NC211A.CBL:1785: warning: literal '2.5' has more decimals than 'FOUR' +NC211A.CBL:1785: warning: suggest parentheses around OR within AND +NC211A.CBL:1785: warning: suggest parentheses around OR within AND +NC211A.CBL:1785: warning: suggest parentheses around AND within OR +]) AT_CHECK([./NC211A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC214M]) +AT_SETUP([NC214M]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC214M.CBL NC214M.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC214M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC214M.CBL NC214M.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC214M.CBL], [0], [], [NC214M.CBL: in section 'SECT-NC214M-001': +NC214M.CBL: in paragraph 'ACC-TEST-F2-4': +NC214M.CBL:398: warning: value size exceeds data size +NC214M.CBL:398: note: value size is 37 +NC214M.CBL:118: note: 'CORRECT-A' defined here as PIC X(20) +]) AT_CHECK([./NC214M], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC215A]) +AT_SETUP([NC215A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC215A.CBL NC215A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC215A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC215A.CBL NC215A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC215A.CBL], [0], [], [NC215A.CBL: in section 'SECT-NC215A-001': +NC215A.CBL: in paragraph 'SEQ-FAIL-GF-2': +NC215A.CBL:366: warning: value size exceeds data size +NC215A.CBL:366: note: value size is 21 +NC215A.CBL:92: note: 'COMPUTED-A' defined here as PIC X(20) +]) AT_CHECK([./NC215A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC216A]) +AT_SETUP([NC216A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC216A.CBL NC216A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC216A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC216A.CBL NC216A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC216A.CBL], [0], [], []) AT_CHECK([./NC216A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC217A]) +AT_SETUP([NC217A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC217A.CBL NC217A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC217A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC217A.CBL NC217A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC217A.CBL], [0], [], []) AT_CHECK([./NC217A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC218A]) +AT_SETUP([NC218A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC218A.CBL NC218A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC218A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC218A.CBL NC218A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC218A.CBL], [0], [], [NC218A.CBL: in section 'SECT-NC218A-001': +NC218A.CBL: in paragraph 'UST-FAIL-GF-18-6': +NC218A.CBL:1970: warning: alphanumeric value is expected +NC218A.CBL:121: note: 'CORRECT-A' defined here as PIC X(20) +]) AT_CHECK([./NC218A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC219A]) +AT_SETUP([NC219A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC219A.CBL NC219A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC219A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC219A.CBL NC219A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC219A.CBL], [0], [], []) AT_CHECK([./NC219A], [0], [], []) + AT_CLEANUP # more testing in report.pl -AT_SETUP([NC / NC220M]) +AT_SETUP([NC220M]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC220M.CBL NC220M.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC220M.CBL], [0]) -AT_CHECK([./NC220M], [0], -[ +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC220M.CBL NC220M.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC220M.CBL], [0], [], []) +AT_CHECK([./NC220M], [0], [ LITERAL-02 9876543210 ], []) + AT_CLEANUP -AT_SETUP([NC / NC221A]) +AT_SETUP([NC221A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC221A.CBL NC221A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC221A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC221A.CBL NC221A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC221A.CBL], [0], [], []) AT_CHECK([./NC221A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC222A]) +AT_SETUP([NC222A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC222A.CBL NC222A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC222A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC222A.CBL NC222A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC222A.CBL], [0], [], []) AT_CHECK([./NC222A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC223A]) +AT_SETUP([NC223A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC223A.CBL NC223A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC223A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC223A.CBL NC223A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC223A.CBL], [0], [], []) AT_CHECK([./NC223A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC224A]) +AT_SETUP([NC224A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC224A.CBL NC224A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC224A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC224A.CBL NC224A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC224A.CBL], [0], [], [NC224A.CBL: in section 'SECT-NC224A-001': +NC224A.CBL: in paragraph 'REF-INIT-GF-1': +NC224A.CBL:320: warning: value size exceeds data size +NC224A.CBL:320: note: value size is 22 +NC224A.CBL:63: note: 'FEATURE' defined here as PIC X(20) +]) AT_CHECK([./NC224A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC225A]) +AT_SETUP([NC225A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC225A.CBL NC225A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC225A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC225A.CBL NC225A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC225A.CBL], [0], [], [NC225A.CBL: in section 'SECT-NC225A-001-1': +NC225A.CBL: in paragraph 'EVA-INIT-GF-17': +NC225A.CBL:1037: warning: alphanumeric value is expected +NC225A.CBL:47: note: 'WRK-XN-00001-1' defined here as PIC X +NC225A.CBL: in paragraph 'EVA-INIT-GF-29': +NC225A.CBL:1496: warning: alphanumeric value is expected +NC225A.CBL:47: note: 'WRK-XN-00001-1' defined here as PIC X +]) AT_CHECK([./NC225A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC231A]) -AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC231A.CBL NC231A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC231A.CBL], [0]) +AT_SETUP([NC231A]) +# promoted on 2023-02-04T01:19 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC231A.CBL NC231A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC231A.CBL], [0], [], [NC231A.CBL: in section 'SECT-NC231A-001': +NC231A.CBL: in paragraph 'CHECK-ENTRIES': +NC231A.CBL:416: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL: in paragraph 'LEVEL-1-TEST-2': +NC231A.CBL:441: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL: in paragraph 'LEVEL-1-TEST-3': +NC231A.CBL:453: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL: in paragraph 'LEVEL-2-TEST-1': +NC231A.CBL:481: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL: in paragraph 'LEVEL-2-TEST-2': +NC231A.CBL:497: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL: in paragraph 'LEVEL-2-TEST-3': +NC231A.CBL:512: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL: in paragraph 'LEVEL-3-TEST-2': +NC231A.CBL:575: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL: in paragraph 'LEVEL-3-TEST-3': +NC231A.CBL:590: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL: in paragraph 'LEVEL-3-TEST-4': +NC231A.CBL:607: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL: in paragraph 'MULT-SEARCH-TEST-1': +NC231A.CBL:631: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL:634: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL: in paragraph 'MULT-SEARCH-TEST-2': +NC231A.CBL:671: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL:674: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL:677: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL: in paragraph 'MULT-SEARCH-7-TEST-3': +NC231A.CBL:742: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL:746: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL:750: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL:754: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL:758: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL:762: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL:766: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL: in paragraph 'SPECIAL-2-LEVEL-SEARCH': +NC231A.CBL:884: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL: in paragraph 'SPECIAL-3-LEVEL-SEARCH': +NC231A.CBL:929: warning: NEXT SENTENCE is archaic in COBOL 85 +NC231A.CBL:934: warning: NEXT SENTENCE is archaic in COBOL 85 +]) AT_CHECK([./NC231A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC232A]) -AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC232A.CBL NC232A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC232A.CBL], [0]) +AT_SETUP([NC232A]) +# promoted on 2023-02-04T01:19 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC232A.CBL NC232A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC232A.CBL], [0], [], [NC232A.CBL: in section 'SECT-NC232A-001': +NC232A.CBL: in paragraph 'CHECK-ENTRIES': +NC232A.CBL:392: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL: in paragraph 'TH1-TEST-F1-2': +NC232A.CBL:419: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL: in paragraph 'TH1-TEST-F1-3': +NC232A.CBL:440: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL: in paragraph 'TH2-TEST-F1-1': +NC232A.CBL:486: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL: in paragraph 'TH2-TEST-F1-2': +NC232A.CBL:511: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL: in paragraph 'TH2-TEST-F1-3': +NC232A.CBL:535: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL: in paragraph 'TH3-TEST-F1-2': +NC232A.CBL:622: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL: in paragraph 'TH3-TEST-F1-3': +NC232A.CBL:646: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL: in paragraph 'TH3-TEST-F1-4': +NC232A.CBL:673: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL: in paragraph 'SCH-TEST-F1-1': +NC232A.CBL:706: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL:709: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL: in paragraph 'SCH-TEST-F1-2': +NC232A.CBL:754: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL:760: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL:766: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL: in paragraph 'SPC-TEST-F1-2': +NC232A.CBL:840: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL: in paragraph 'SPC-TEST-F1-3': +NC232A.CBL:877: warning: NEXT SENTENCE is archaic in COBOL 85 +NC232A.CBL:883: warning: NEXT SENTENCE is archaic in COBOL 85 +]) AT_CHECK([./NC232A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC233A]) -AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC233A.CBL NC233A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC233A.CBL], [0]) +AT_SETUP([NC233A]) +# promoted on 2023-02-04T01:19 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC233A.CBL NC233A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC233A.CBL], [0], [], [NC233A.CBL: in section 'SECT-NC233A-001': +NC233A.CBL: in paragraph 'CHECK-ENTRIES': +NC233A.CBL:457: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL: in paragraph 'LEVEL-1-TEST-2': +NC233A.CBL:481: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL: in paragraph 'LEVEL-1-TEST-3': +NC233A.CBL:492: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL: in paragraph 'LEVEL-2-TEST-1': +NC233A.CBL:517: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL: in paragraph 'LEVEL-2-TEST-2': +NC233A.CBL:531: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL: in paragraph 'LEVEL-2-TEST-3': +NC233A.CBL:544: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL: in paragraph 'LEVEL-3-TEST-2': +NC233A.CBL:603: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL: in paragraph 'LEVEL-3-TEST-3': +NC233A.CBL:617: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL: in paragraph 'LEVEL-3-TEST-4': +NC233A.CBL:633: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL: in paragraph 'MULT-SEARCH-TEST-1': +NC233A.CBL:656: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL:658: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL: in paragraph 'MULT-SEARCH-7-TEST-3': +NC233A.CBL:730: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL:735: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL:741: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL:747: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL:753: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL:759: warning: NEXT SENTENCE is archaic in COBOL 85 +NC233A.CBL:765: warning: NEXT SENTENCE is archaic in COBOL 85 +]) AT_CHECK([./NC233A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC234A]) -AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC234A.CBL NC234A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC234A.CBL], [0]) +AT_SETUP([NC234A]) +# promoted on 2023-02-04T01:19 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC234A.CBL NC234A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC234A.CBL], [0], [], [NC234A.CBL: in section 'SECT-NC234A-001': +NC234A.CBL: in paragraph 'TH1-TEST-F1-2': +NC234A.CBL:418: warning: NEXT SENTENCE is archaic in COBOL 85 +NC234A.CBL: in paragraph 'TH1-TEST-F1-3': +NC234A.CBL:439: warning: NEXT SENTENCE is archaic in COBOL 85 +NC234A.CBL: in paragraph 'TH2-TEST-F1-1': +NC234A.CBL:483: warning: NEXT SENTENCE is archaic in COBOL 85 +NC234A.CBL: in paragraph 'TH2-TEST-F1-2': +NC234A.CBL:508: warning: NEXT SENTENCE is archaic in COBOL 85 +NC234A.CBL: in paragraph 'TH2-TEST-F1-3': +NC234A.CBL:531: warning: NEXT SENTENCE is archaic in COBOL 85 +NC234A.CBL: in paragraph 'TH3-TEST-F1-2': +NC234A.CBL:615: warning: NEXT SENTENCE is archaic in COBOL 85 +NC234A.CBL: in paragraph 'TH3-TEST-F1-3': +NC234A.CBL:639: warning: NEXT SENTENCE is archaic in COBOL 85 +NC234A.CBL: in paragraph 'TH3-TEST-F1-4': +NC234A.CBL:666: warning: NEXT SENTENCE is archaic in COBOL 85 +NC234A.CBL: in paragraph 'MLT-TEST-F1-1': +NC234A.CBL:699: warning: NEXT SENTENCE is archaic in COBOL 85 +NC234A.CBL:703: warning: NEXT SENTENCE is archaic in COBOL 85 +NC234A.CBL: in paragraph 'MLT-TEST-F1-2': +NC234A.CBL:746: warning: NEXT SENTENCE is archaic in COBOL 85 +NC234A.CBL:749: warning: NEXT SENTENCE is archaic in COBOL 85 +NC234A.CBL:753: warning: NEXT SENTENCE is archaic in COBOL 85 +NC234A.CBL: in paragraph 'SP2-TEST-F1-1': +NC234A.CBL:827: warning: NEXT SENTENCE is archaic in COBOL 85 +NC234A.CBL: in paragraph 'SP3-TEST-F1-1': +NC234A.CBL:866: warning: NEXT SENTENCE is archaic in COBOL 85 +NC234A.CBL:873: warning: NEXT SENTENCE is archaic in COBOL 85 +]) AT_CHECK([./NC234A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC235A]) +AT_SETUP([NC235A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC235A.CBL NC235A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC235A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC235A.CBL NC235A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC235A.CBL], [0], [], [NC235A.CBL: in section 'SECT-NC235A-001': +NC235A.CBL: in paragraph 'IDX-TEST-F2-1': +NC235A.CBL:340: warning: NEXT SENTENCE is archaic in COBOL 85 +]) AT_CHECK([./NC235A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC236A]) +AT_SETUP([NC236A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC236A.CBL NC236A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC236A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC236A.CBL NC236A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC236A.CBL], [0], [], []) AT_CHECK([./NC236A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC237A]) +AT_SETUP([NC237A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC237A.CBL NC237A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC237A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC237A.CBL NC237A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC237A.CBL], [0], [], []) AT_CHECK([./NC237A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC238A]) +AT_SETUP([NC238A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC238A.CBL NC238A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC238A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC238A.CBL NC238A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC238A.CBL], [0], [], [NC238A.CBL: in section 'SECT-NC238A-001': +NC238A.CBL: in paragraph 'SCH-TEST-F2-6': +NC238A.CBL:536: warning: alphanumeric value is expected +NC238A.CBL:57: note: 'LEVEL-HOLD' defined here as PIC X(4) +NC238A.CBL: in paragraph 'SCH-TEST-F2-7': +NC238A.CBL:562: warning: alphanumeric value is expected +NC238A.CBL:57: note: 'LEVEL-HOLD' defined here as PIC X(4) +NC238A.CBL: in paragraph 'SCH-TEST-F2-10': +NC238A.CBL:639: warning: alphanumeric value is expected +NC238A.CBL:57: note: 'LEVEL-HOLD' defined here as PIC X(4) +]) AT_CHECK([./NC238A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC239A]) +AT_SETUP([NC239A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC239A.CBL NC239A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC239A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC239A.CBL NC239A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC239A.CBL], [0], [], []) AT_CHECK([./NC239A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC240A]) +AT_SETUP([NC240A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC240A.CBL NC240A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC240A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC240A.CBL NC240A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC240A.CBL], [0], [], []) AT_CHECK([./NC240A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC241A]) +AT_SETUP([NC241A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC241A.CBL NC241A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC241A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC241A.CBL NC241A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC241A.CBL], [0], [], []) AT_CHECK([./NC241A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC242A]) +AT_SETUP([NC242A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC242A.CBL NC242A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC242A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC242A.CBL NC242A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC242A.CBL], [0], [], []) AT_CHECK([./NC242A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC243A]) +AT_SETUP([NC243A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC243A.CBL NC243A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC243A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC243A.CBL NC243A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC243A.CBL], [0], [], []) AT_CHECK([./NC243A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC244A]) +AT_SETUP([NC244A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC244A.CBL NC244A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC244A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC244A.CBL NC244A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC244A.CBL], [0], [], [NC244A.CBL: in section 'TABLE-CHECKING': +NC244A.CBL: in paragraph 'IDX-DELETE-F2-5': +NC244A.CBL:472: warning: value size exceeds data size +NC244A.CBL:472: note: value size is 21 +NC244A.CBL:69: note: 'FEATURE' defined here as PIC X(20) +]) AT_CHECK([./NC244A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC245A]) +AT_SETUP([NC245A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC245A.CBL NC245A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC245A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC245A.CBL NC245A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC245A.CBL], [0], [], []) AT_CHECK([./NC245A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC246A]) +AT_SETUP([NC246A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC246A.CBL NC246A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC246A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC246A.CBL NC246A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC246A.CBL], [0], [], []) AT_CHECK([./NC246A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC247A]) +AT_SETUP([NC247A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC247A.CBL NC247A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC247A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC247A.CBL NC247A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC247A.CBL], [0], [], []) AT_CHECK([./NC247A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC248A]) +AT_SETUP([NC248A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC248A.CBL NC248A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC248A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC248A.CBL NC248A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC248A.CBL], [0], [], []) AT_CHECK([./NC248A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC250A]) +AT_SETUP([NC250A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC250A.CBL NC250A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC250A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC250A.CBL NC250A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC250A.CBL], [0], [], [NC250A.CBL:182: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC250A.CBL: in section 'SECT-NC201A-001': +NC250A.CBL: in paragraph 'IF--TEST-19': +NC250A.CBL:787: warning: unsigned 'IF-D16' may not be LESS THAN ZERO +NC250A.CBL: in paragraph 'IF--INIT-80': +NC250A.CBL:1415: warning: alphanumeric value is expected +NC250A.CBL:319: note: 'TABLE-80' defined here as a group of length 3 +NC250A.CBL: in paragraph 'IF-TEST-122': +NC250A.CBL:1912: warning: NEXT SENTENCE is archaic in COBOL 85 +NC250A.CBL: in paragraph 'IF-TEST-124': +NC250A.CBL:1960: warning: value size exceeds data size +NC250A.CBL:1960: note: value size is 21 +NC250A.CBL:359: note: 'COMPUTED-A' defined here as PIC X(20) +]) AT_CHECK([./NC250A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC251A]) +AT_SETUP([NC251A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC251A.CBL NC251A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC251A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC251A.CBL NC251A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC251A.CBL], [0], [], [NC251A.CBL:101: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC251A.CBL:104: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC251A.CBL:106: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC251A.CBL:107: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC251A.CBL:109: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC251A.CBL:111: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC251A.CBL:135: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +]) AT_CHECK([./NC251A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC252A]) -AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC252A.CBL NC252A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC252A.CBL], [0]) +AT_SETUP([NC252A]) +# promoted on 2023-02-04T01:19 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC252A.CBL NC252A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC252A.CBL], [0], [], [NC252A.CBL:229: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC252A.CBL:193: warning: size of 'REDEF11' larger than size of 'REDEF10' +NC252A.CBL:206: warning: size of 'REDEF12' larger than size of 'REDEF10' +NC252A.CBL:217: warning: size of 'GRP-REDEF125' larger than size of 'REDEF10' +NC252A.CBL: in section 'SECT-NC252A-001': +NC252A.CBL: in paragraph 'RDF-TEST-1': +NC252A.CBL:511: warning: alphanumeric value is expected +NC252A.CBL:282: note: 'CORRECT-A' defined here as PIC X(20) +NC252A.CBL: in paragraph 'RDF-TEST-2': +NC252A.CBL:528: warning: alphanumeric value is expected +NC252A.CBL:282: note: 'CORRECT-A' defined here as PIC X(20) +NC252A.CBL: in paragraph 'RDF-TEST-7': +NC252A.CBL:600: warning: alphanumeric value is expected +NC252A.CBL:282: note: 'CORRECT-A' defined here as PIC X(20) +NC252A.CBL: in paragraph 'RDF-TEST-10': +NC252A.CBL:647: warning: alphanumeric value is expected +NC252A.CBL:282: note: 'CORRECT-A' defined here as PIC X(20) +NC252A.CBL: in paragraph 'RENAM-TEST-4': +NC252A.CBL:787: warning: alphanumeric value is expected +NC252A.CBL:282: note: 'CORRECT-A' defined here as PIC X(20) +NC252A.CBL: in paragraph 'RENAM-TEST-13': +NC252A.CBL:930: warning: value size exceeds data size +NC252A.CBL:930: note: value size is 9 +NC252A.CBL:173: note: 'RENAME-10' defined here as a group of length 8 +NC252A.CBL: in paragraph 'RENAM-TEST-14': +NC252A.CBL:947: warning: alphanumeric value is expected +NC252A.CBL:173: note: 'RENAME-10' defined here as a group of length 8 +NC252A.CBL: in paragraph 'RENAM-TEST-18': +NC252A.CBL:1012: warning: value size exceeds data size +NC252A.CBL:1012: note: value size is 16 +NC252A.CBL:158: note: 'RENAME-5' defined here as a group of length 11 +NC252A.CBL: in section 'COMPUTING': +NC252A.CBL: in paragraph 'COMP-TEST-1': +NC252A.CBL:1047: warning: literal '654.20038' has more decimals than 'COMPUTE-1' +NC252A.CBL:1048: warning: literal '654.17422' has more decimals than 'COMPUTE-1' +NC252A.CBL: in paragraph 'COMP-TEST-2': +NC252A.CBL:1062: warning: literal '2233.94468' has more decimals than 'COMPUTE-2' +NC252A.CBL:1063: warning: literal '2233.85532' has more decimals than 'COMPUTE-2' +NC252A.CBL: in paragraph 'COMP-TEST-3': +NC252A.CBL:1077: warning: literal '52.39105' has more decimals than 'COMPUTE-3' +NC252A.CBL:1078: warning: literal '52.38895' has more decimals than 'COMPUTE-3' +NC252A.CBL: in paragraph 'COMP-TEST-5': +NC252A.CBL:1106: warning: literal '400.71801' has more decimals than 'COMPUTE-5' +NC252A.CBL:1107: warning: literal '400.70199' has more decimals than 'COMPUTE-5' +NC252A.CBL: in paragraph 'COMP-TEST-6': +NC252A.CBL:1121: warning: literal '62.40125' has more decimals than 'COMPUTE-6' +NC252A.CBL:1122: warning: literal '62.39875' has more decimals than 'COMPUTE-6' +NC252A.CBL: in paragraph 'COMP-TEST-9': +NC252A.CBL:1164: warning: literal '2621.05242' has more decimals than 'COMPUTE-9' +NC252A.CBL:1165: warning: literal '2620.94758' has more decimals than 'COMPUTE-9' +NC252A.CBL: in paragraph 'COMP-TEST-11': +NC252A.CBL:1192: warning: literal '2.00002' has more decimals than 'COMPUTE-10' +NC252A.CBL:1193: warning: literal '-2.00002' has more decimals than 'COMPUTE-10' +NC252A.CBL:1193: warning: unsigned 'COMPUTE-10' may not be LESS THAN -2.00002 +NC252A.CBL: in paragraph 'COMP-TEST-12': +NC252A.CBL:1207: warning: literal '718.51437' has more decimals than 'COMPUTE-11' +NC252A.CBL:1208: warning: literal '718.48563' has more decimals than 'COMPUTE-11' +NC252A.CBL: in paragraph 'COMP-TEST-13': +NC252A.CBL:1222: warning: literal '6.09012' has more decimals than 'COMPUTE-12' +NC252A.CBL:1223: warning: literal '6.08988' has more decimals than 'COMPUTE-12' +NC252A.CBL: in section 'COMPUTE-ROUTINE': +NC252A.CBL: in paragraph 'COMP-TEST-14': +NC252A.CBL:1248: warning: alphanumeric value is expected +NC252A.CBL:282: note: 'CORRECT-A' defined here as PIC X(20) +NC252A.CBL: in paragraph 'COMP-TEST-16': +NC252A.CBL:1273: warning: literal '-20.00040' has more decimals than 'W-11' +NC252A.CBL:1274: warning: literal '-19.99960' has more decimals than 'W-11' +NC252A.CBL: in paragraph 'COMP-TEST-23': +NC252A.CBL:1379: warning: alphanumeric value is expected +NC252A.CBL:72: note: 'XRAY' defined here as PIC X +NC252A.CBL: in paragraph 'COMP-TEST-25': +NC252A.CBL:1410: warning: literal '2.20004' has more decimals than 'W-11' +NC252A.CBL:1411: warning: literal '2.19996' has more decimals than 'W-11' +NC252A.CBL: in paragraph 'COMP-TEST-26': +NC252A.CBL:1426: warning: literal '2.50005' has more decimals than 'W-11' +NC252A.CBL:1427: warning: literal '2.49995' has more decimals than 'W-11' +NC252A.CBL: in paragraph 'COMP-TEST-43': +NC252A.CBL:1640: warning: literal '10.0002' has more decimals than 'WHOLE-FIELD' +NC252A.CBL:1641: warning: literal '9.9998' has more decimals than 'WHOLE-FIELD' +NC252A.CBL: in paragraph 'COMP-TEST-045-2': +NC252A.CBL:1687: warning: literal '10.9002180' has more decimals than 'WRK-DS-04V01-0005' +NC252A.CBL:1688: warning: literal '10.8997820' has more decimals than 'WRK-DS-04V01-0005' +NC252A.CBL: in paragraph 'COMP-TEST-045-3': +NC252A.CBL:1695: warning: literal '10.87521750' has more decimals than 'WRK-DS-03V04-0003F-0014' +NC252A.CBL:1696: warning: literal '10.87479250' has more decimals than 'WRK-DS-03V04-0003F-0014' +]) AT_CHECK([./NC252A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC253A]) -AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC253A.CBL NC253A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC253A.CBL], [0]) +AT_SETUP([NC253A]) +# promoted on 2023-02-04T01:19 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC253A.CBL NC253A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC253A.CBL], [0], [], [NC253A.CBL: in section 'SECT-NC253A-001': +NC253A.CBL: in paragraph 'SUB-FAIL-F3-4': +NC253A.CBL:689: warning: alphanumeric value is expected +NC253A.CBL:304: note: 'CORRECT-A' defined here as PIC X(20) +NC253A.CBL: in paragraph 'SUB-INIT-F3-5': +NC253A.CBL:697: warning: alphanumeric value is expected +NC253A.CBL:182: note: 'CORR-DATA-1' defined here as a group of length 12 +NC253A.CBL:698: warning: alphanumeric value is expected +NC253A.CBL:218: note: 'CORR-DATA-6' defined here as a group of length 12 +NC253A.CBL: in paragraph 'SUB-FAIL-F3-5': +NC253A.CBL:709: warning: alphanumeric value is expected +NC253A.CBL:304: note: 'CORRECT-A' defined here as PIC X(20) +NC253A.CBL: in paragraph 'SUB-FAIL-F3-6': +NC253A.CBL:728: warning: alphanumeric value is expected +NC253A.CBL:304: note: 'CORRECT-A' defined here as PIC X(20) +NC253A.CBL: in paragraph 'SUB-INIT-F3-7': +NC253A.CBL:736: warning: alphanumeric value is expected +NC253A.CBL:210: note: 'CORR-DATA-5' defined here as a group of length 14 +NC253A.CBL:737: warning: alphanumeric value is expected +NC253A.CBL:182: note: 'CORR-DATA-1' defined here as a group of length 12 +]) AT_CHECK([./NC253A], [0], [], []) + AT_CLEANUP -AT_SETUP([NC / NC254A]) +AT_SETUP([NC254A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC254A.CBL NC254A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC254A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC254A.CBL NC254A.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC254A.CBL], [0], [], [NC254A.CBL: in section 'SECT-NC254A-001': +NC254A.CBL: in paragraph 'NEXT-TEST-GF-1': +NC254A.CBL:530: warning: NEXT SENTENCE is archaic in COBOL 85 +NC254A.CBL:532: warning: NEXT SENTENCE is archaic in COBOL 85 +]) AT_CHECK([./NC254A], [0], [], []) + AT_CLEANUP # more testing in report.pl -AT_SETUP([NC / NC302M]) +AT_SETUP([NC302M]) AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC302M.CBL NC302M.CBL],[0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC302M.CBL NC302M.CBL],[0], [], []) AT_DATA([NC302M.DAT], [ ]) -AT_CHECK([$COMPILE -std=cobol85 -x -Wobsolete -debug NC302M.CBL], [0], [], +AT_CHECK([$COMPILE -std=cobol85 -x -Wobsolete NC302M.CBL], [0], [], [NC302M.CBL:6: warning: AUTHOR is obsolete in COBOL 85 NC302M.CBL:8: warning: INSTALLATION is obsolete in COBOL 85 NC302M.CBL:10: warning: DATE-WRITTEN is obsolete in COBOL 85 @@ -881,21 +1850,28 @@ FNC302 ], []) AT_CLEANUP -AT_SETUP([NC / NC303M]) +AT_SETUP([NC303M]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC303M.CBL NC303M.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC303M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC303M.CBL NC303M.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC303M.CBL], [0], [], []) AT_CHECK([./NC303M], [0], [], []) + AT_CLEANUP # execution fails, OK -AT_SETUP([NC / NC401M]) -AT_KEYWORDS([NC]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC401M.CBL NC401M.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug NC401M.CBL], [0]) -AT_CHECK([./NC401M], [1], [], -[libcob: NC401M.CBL:167: error: file does not exist (status = 35) for file TFIL ('XXXXX001') on OPEN +AT_SETUP([NC401M]) +# promoted on 2023-02-04T01:25 +AT_KEYWORDS([NC]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC401M.CBL NC401M.CBL], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 NC401M.CBL], [0], [], [NC401M.CBL: in paragraph 'NC401M-SIGCOND': +NC401M.CBL:209: warning: unsigned 'BOX-A' may not be LESS THAN ZERO +NC401M.CBL: in paragraph 'NC401M-SEARCH': +NC401M.CBL:309: warning: NEXT SENTENCE is archaic in COBOL 85 ]) +AT_CHECK([./NC401M], [1], [], [libcob: NC401M.CBL:167: error: file does not exist (status = 35) for file TFIL ('XXXXX001') on OPEN +]) + AT_CLEANUP diff --git a/tests/cobol85/testsuite.src/run_OB.at b/tests/cobol85/testsuite.src/run_OB.at index f7851cd56..af5e2d04c 100644 --- a/tests/cobol85/testsuite.src/run_OB.at +++ b/tests/cobol85/testsuite.src/run_OB.at @@ -1,5 +1,5 @@ -AT_SETUP([OB / OBIC2A]) +AT_SETUP([OBIC2A]) # promoted on 2023-02-03T11:48 AT_KEYWORDS([OB]) AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/lib/OBIC2A.CBL .], [0], [], []) @@ -17,7 +17,7 @@ AT_CLEANUP -AT_SETUP([OB / OBIC3A]) +AT_SETUP([OBIC3A]) # promoted on 2023-02-03T11:44 AT_KEYWORDS([OB]) AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/lib/OBIC3A.CBL .], [0], [], []) @@ -28,7 +28,7 @@ AT_CLEANUP -AT_SETUP([OB / OBIC1A]) +AT_SETUP([OBIC1A]) # promoted on 2023-02-03T16:40 AT_KEYWORDS([OB]) AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/lib/OBIC2A.CBL .], [0], [], []) @@ -42,20 +42,25 @@ OBIC2A.CBL:199: warning: section segments is obsolete in COBOL 85 ]) AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/lib/OBIC3A.CBL .], [0], [], []) AT_CHECK([$COMPILE_MODULE -std=cobol85 OBIC3A.CBL], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBIC1A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -debug OBIC1A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBIC1A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 OBIC1A.CBL], [0], [], []) AT_CHECK([./OBIC1A], [0], [], []) AT_CLEANUP -AT_SETUP([OB / OBNC1M]) +AT_SETUP([OBNC1M]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([OB OBNC1M]) -AT_CHECK([printf '\n\n\n\n\n\n\n\n\003' > OBNC1M.DAT], [0]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBNC1M.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -debug OBNC1M.CBL], [0]) -AT_CHECK([./OBNC1M < OBNC1M.DAT], [130], -[OPERATOR PLEASE EXECUTE RUN CONTINUATION +AT_CHECK([printf '\n\n\n\n\n\n\n\n\003' > OBNC1M.DAT], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBNC1M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 OBNC1M.CBL], [0], [], [OBNC1M.CBL: in section 'SECT-NC180M-001': +OBNC1M.CBL: in paragraph 'STOP-WRITE-GF-5': +OBNC1M.CBL:713: warning: value size exceeds data size +OBNC1M.CBL:716: note: value size is 160 +OBNC1M.CBL:103: note: 'PRINT-REC' defined here as PIC X(132) +]) +AT_CHECK([./OBNC1M < OBNC1M.DAT], [130], [OPERATOR PLEASE EXECUTE RUN CONTINUATION A * " @@ -64,55 +69,102 @@ A 123456789987654321 0 OPERATOR KILL OBNC1 -], -[ +], [ OBNC1M.CBL:764: interrupt from keyboard (signal) ]) + AT_CLEANUP -AT_SETUP([OB / OBNC2M]) +AT_SETUP([OBNC2M]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([OB]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBNC2M.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -debug OBNC2M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBNC2M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 OBNC2M.CBL], [0], [], [OBNC2M.CBL:175: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +]) AT_CHECK([./OBNC2M], [0], [], []) + AT_CLEANUP -AT_SETUP([OB / OBSQ1A]) +AT_SETUP([OBSQ1A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([OB]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBSQ1A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -debug OBSQ1A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBSQ1A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 OBSQ1A.CBL], [0], [], []) AT_CHECK([./OBSQ1A], [0], [], []) + AT_CLEANUP -AT_SETUP([OB / OBSQ3A]) +AT_SETUP([OBSQ3A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([OB]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBSQ3A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -debug OBSQ3A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBSQ3A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 OBSQ3A.CBL], [0], [], [OBSQ3A.CBL: in section 'SECT-OBSQ3A-0001': +OBSQ3A.CBL: in paragraph 'SEQ-INIT-002': +OBSQ3A.CBL:427: warning: OPEN WITH NO REWIND is not implemented +OBSQ3A.CBL: in paragraph 'SEQ-INIT-003': +OBSQ3A.CBL:451: warning: OPEN WITH NO REWIND is not implemented +OBSQ3A.CBL: in paragraph 'SEQ-INIT-004': +OBSQ3A.CBL:475: warning: OPEN WITH NO REWIND is not implemented +OBSQ3A.CBL: in paragraph 'BUILD-RECORD': +OBSQ3A.CBL:594: warning: value size exceeds data size +OBSQ3A.CBL:594: note: value size is 6 +OBSQ3A.CBL:138: note: 'XPROGRAM-NAME' defined here as PIC X(5) +]) AT_CHECK([./OBSQ3A], [0], [], []) + AT_CLEANUP -AT_SETUP([OB / OBSQ4A]) -# promoted on 2023-02-03T16:40 +AT_SETUP([OBSQ4A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([OB]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBSQ3A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -debug OBSQ3A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBSQ3A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 OBSQ3A.CBL], [0], [], [OBSQ3A.CBL: in section 'SECT-OBSQ3A-0001': +OBSQ3A.CBL: in paragraph 'SEQ-INIT-002': +OBSQ3A.CBL:427: warning: OPEN WITH NO REWIND is not implemented +OBSQ3A.CBL: in paragraph 'SEQ-INIT-003': +OBSQ3A.CBL:451: warning: OPEN WITH NO REWIND is not implemented +OBSQ3A.CBL: in paragraph 'SEQ-INIT-004': +OBSQ3A.CBL:475: warning: OPEN WITH NO REWIND is not implemented +OBSQ3A.CBL: in paragraph 'BUILD-RECORD': +OBSQ3A.CBL:594: warning: value size exceeds data size +OBSQ3A.CBL:594: note: value size is 6 +OBSQ3A.CBL:138: note: 'XPROGRAM-NAME' defined here as PIC X(5) +]) AT_CHECK([./OBSQ3A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBSQ4A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -debug OBSQ4A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBSQ4A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 OBSQ4A.SUB], [0], [], []) AT_CHECK([./OBSQ4A], [0], [], []) AT_CLEANUP -AT_SETUP([OB / OBSQ5A]) -# promoted on 2023-02-03T16:40 +AT_SETUP([OBSQ5A]) +# promoted on 2023-02-04T01:26 AT_KEYWORDS([OB]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBSQ3A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -debug OBSQ3A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBSQ3A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 OBSQ3A.CBL], [0], [], [OBSQ3A.CBL: in section 'SECT-OBSQ3A-0001': +OBSQ3A.CBL: in paragraph 'SEQ-INIT-002': +OBSQ3A.CBL:427: warning: OPEN WITH NO REWIND is not implemented +OBSQ3A.CBL: in paragraph 'SEQ-INIT-003': +OBSQ3A.CBL:451: warning: OPEN WITH NO REWIND is not implemented +OBSQ3A.CBL: in paragraph 'SEQ-INIT-004': +OBSQ3A.CBL:475: warning: OPEN WITH NO REWIND is not implemented +OBSQ3A.CBL: in paragraph 'BUILD-RECORD': +OBSQ3A.CBL:594: warning: value size exceeds data size +OBSQ3A.CBL:594: note: value size is 6 +OBSQ3A.CBL:138: note: 'XPROGRAM-NAME' defined here as PIC X(5) +]) AT_CHECK([./OBSQ3A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBSQ5A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -debug OBSQ5A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBSQ5A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 OBSQ5A.SUB], [0], [], [OBSQ5A.SUB: in section 'SECT-OBSQ5A-0001': +OBSQ5A.SUB: in paragraph 'SEQ-INIT-003': +OBSQ5A.SUB:452: warning: OPEN WITH NO REWIND is not implemented +OBSQ5A.SUB: in paragraph 'SEQ-INIT-004': +OBSQ5A.SUB:494: warning: OPEN WITH NO REWIND is not implemented +OBSQ5A.SUB: in paragraph 'SEQ-INIT-005': +OBSQ5A.SUB:536: warning: OPEN WITH NO REWIND is not implemented +]) AT_CHECK([./OBSQ5A], [0], [], []) AT_CLEANUP diff --git a/tests/cobol85/testsuite.src/run_RL.at b/tests/cobol85/testsuite.src/run_RL.at index 92e166766..33be51999 100644 --- a/tests/cobol85/testsuite.src/run_RL.at +++ b/tests/cobol85/testsuite.src/run_RL.at @@ -1,336 +1,475 @@ # This first test generates file XXXXX021 used by some other tests -AT_SETUP([RL / RL101A]) +AT_SETUP([RL101A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([RL]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL101A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL101A.CBL], [0], [], []) AT_CHECK([./RL101A], [0], [], []) + AT_CLEANUP # modifies XXXXX021 -AT_SETUP([RL / RL102A]) -# promoted on 2023-02-03T15:45 +AT_SETUP([RL102A]) +# promoted on 2023-02-04T01:26 AT_KEYWORDS([RL]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL101A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL101A.CBL], [0], [], []) AT_CHECK([./RL101A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL102A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL102A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL102A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL102A.SUB], [0], [], [RL102A.SUB: in section 'SECT-RL102-001': +RL102A.SUB: in paragraph 'REL-TEST-003-R': +RL102A.SUB:400: warning: value size exceeds data size +RL102A.SUB:400: note: value size is 21 +RL102A.SUB:141: note: 'COMPUTED-A' defined here as PIC X(20) +RL102A.SUB: in paragraph 'REL-TEST-004-R': +RL102A.SUB:477: warning: value size exceeds data size +RL102A.SUB:477: note: value size is 21 +RL102A.SUB:141: note: 'COMPUTED-A' defined here as PIC X(20) +RL102A.SUB: in paragraph 'REL-TEST-004-3': +RL102A.SUB:520: warning: value size exceeds data size +RL102A.SUB:520: note: value size is 22 +RL102A.SUB:141: note: 'COMPUTED-A' defined here as PIC X(20) +]) AT_CHECK([./RL102A], [0], [], []) AT_CLEANUP # modifies XXXXX021 -AT_SETUP([RL / RL103A]) -# promoted on 2023-02-03T16:44 +AT_SETUP([RL103A]) +# promoted on 2023-02-04T01:26 AT_KEYWORDS([RL RL103A]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL101A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL101A.CBL], [0], [], []) AT_CHECK([./RL101A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL102A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL102A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL102A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL102A.SUB], [0], [], [RL102A.SUB: in section 'SECT-RL102-001': +RL102A.SUB: in paragraph 'REL-TEST-003-R': +RL102A.SUB:400: warning: value size exceeds data size +RL102A.SUB:400: note: value size is 21 +RL102A.SUB:141: note: 'COMPUTED-A' defined here as PIC X(20) +RL102A.SUB: in paragraph 'REL-TEST-004-R': +RL102A.SUB:477: warning: value size exceeds data size +RL102A.SUB:477: note: value size is 21 +RL102A.SUB:141: note: 'COMPUTED-A' defined here as PIC X(20) +RL102A.SUB: in paragraph 'REL-TEST-004-3': +RL102A.SUB:520: warning: value size exceeds data size +RL102A.SUB:520: note: value size is 22 +RL102A.SUB:141: note: 'COMPUTED-A' defined here as PIC X(20) +]) AT_CHECK([./RL102A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL103A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL103A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL103A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL103A.SUB], [0], [], []) AT_CHECK([./RL103A], [0], [], []) AT_CLEANUP -AT_SETUP([RL / RL104A]) +AT_SETUP([RL104A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([RL]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL104A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL104A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL104A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL104A.CBL], [0], [], []) AT_CHECK([./RL104A], [0], [], []) + AT_CLEANUP # modifies XXXXX021 -AT_SETUP([RL / RL105A]) +AT_SETUP([RL105A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([RL]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL105A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL105A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL105A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL105A.CBL], [0], [], []) AT_CHECK([./RL105A], [0], [], []) + AT_CLEANUP -AT_SETUP([RL / RL106A]) +AT_SETUP([RL106A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([RL]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL106A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL106A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL106A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL106A.CBL], [0], [], []) AT_CHECK([./RL106A], [0], [], []) + AT_CLEANUP -AT_SETUP([RL / RL107A]) +AT_SETUP([RL107A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([RL]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL107A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL107A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL107A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL107A.CBL], [0], [], []) AT_CHECK([./RL107A], [0], [], []) + AT_CLEANUP # This first test generates file XXXXX061 used by some other tests -AT_SETUP([RL / RL108A]) +AT_SETUP([RL108A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([RL]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL108A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL108A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL108A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL108A.CBL], [0], [], []) AT_CHECK([./RL108A], [0], [], []) + AT_CLEANUP -AT_SETUP([RL / RL109A]) -# promoted on 2023-02-03T15:48 +AT_SETUP([RL109A]) +# promoted on 2023-02-04T01:27 AT_KEYWORDS([RL]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL101A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL101A.CBL], [0], [], []) AT_CHECK([./RL101A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL108A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL108A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL108A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL108A.CBL], [0], [], []) AT_CHECK([./RL108A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL109A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL109A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL109A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL109A.SUB], [0], [], [RL109A.SUB: in section 'SECT-RL109A-001': +RL109A.SUB: in paragraph 'REL-TEST-003-R': +RL109A.SUB:415: warning: value size exceeds data size +RL109A.SUB:415: note: value size is 21 +RL109A.SUB:157: note: 'COMPUTED-A' defined here as PIC X(20) +RL109A.SUB: in paragraph 'REL-TEST-004-R': +RL109A.SUB:497: warning: value size exceeds data size +RL109A.SUB:497: note: value size is 21 +RL109A.SUB:157: note: 'COMPUTED-A' defined here as PIC X(20) +RL109A.SUB: in paragraph 'REL-TEST-004-3': +RL109A.SUB:544: warning: value size exceeds data size +RL109A.SUB:544: note: value size is 22 +RL109A.SUB:157: note: 'COMPUTED-A' defined here as PIC X(20) +]) AT_CHECK([./RL109A], [0], [], []) AT_CLEANUP -AT_SETUP([RL / RL110A]) -# promoted on 2023-02-03T15:48 +AT_SETUP([RL110A]) +# promoted on 2023-02-04T01:26 AT_KEYWORDS([RL]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL101A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL101A.CBL], [0], [], []) AT_CHECK([./RL101A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL108A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL108A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL108A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL108A.CBL], [0], [], []) AT_CHECK([./RL108A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL110A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL110A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL110A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL110A.SUB], [0], [], []) AT_CHECK([./RL110A], [0], [], []) AT_CLEANUP -AT_SETUP([RL / RL111A]) +AT_SETUP([RL111A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([RL]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL111A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL111A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL111A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL111A.CBL], [0], [], []) AT_CHECK([./RL111A], [0], [], []) + AT_CLEANUP -AT_SETUP([RL / RL112A]) +AT_SETUP([RL112A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([RL]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL112A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL112A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL112A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL112A.CBL], [0], [], []) AT_CHECK([./RL112A], [0], [], []) + AT_CLEANUP -AT_SETUP([RL / RL113A]) +AT_SETUP([RL113A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([RL]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL113A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL113A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL113A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL113A.CBL], [0], [], []) AT_CHECK([./RL113A], [0], [], []) + AT_CLEANUP -AT_SETUP([RL / RL114A]) +AT_SETUP([RL114A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([RL]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL114A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL114A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL114A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL114A.CBL], [0], [], []) AT_CHECK([./RL114A], [0], [], []) + AT_CLEANUP -AT_SETUP([RL / RL115A]) +AT_SETUP([RL115A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([RL]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL115A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL115A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL115A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL115A.CBL], [0], [], []) AT_CHECK([./RL115A], [0], [], []) + AT_CLEANUP -AT_SETUP([RL / RL116A]) +AT_SETUP([RL116A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([RL]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL116A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL116A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL116A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL116A.CBL], [0], [], []) AT_CHECK([./RL116A], [0], [], []) + AT_CLEANUP -AT_SETUP([RL / RL117A]) +AT_SETUP([RL117A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([RL]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL117A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL117A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL117A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL117A.CBL], [0], [], []) AT_CHECK([./RL117A], [0], [], []) + AT_CLEANUP -AT_SETUP([RL / RL118A]) +AT_SETUP([RL118A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([RL]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL118A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL118A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL118A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL118A.CBL], [0], [], []) AT_CHECK([./RL118A], [0], [], []) + AT_CLEANUP -AT_SETUP([RL / RL119A]) +AT_SETUP([RL119A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([RL]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL119A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL119A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL119A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL119A.CBL], [0], [], []) AT_CHECK([./RL119A], [0], [], []) + AT_CLEANUP -AT_SETUP([RL / RL201A]) +AT_SETUP([RL201A]) +# promoted on 2023-02-04T01:26 AT_KEYWORDS([RL]) - - -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL101A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL101A.CBL], [0], [], []) AT_CHECK([./RL101A], [0], [], []) - -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL201A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL201A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL201A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL201A.CBL], [0], [], []) AT_CHECK([./RL201A], [0], [], []) + AT_CLEANUP -AT_SETUP([RL / RL202A]) -# promoted on 2023-02-03T15:45 +AT_SETUP([RL202A]) +# promoted on 2023-02-04T01:26 AT_KEYWORDS([RL]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL101A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL101A.CBL], [0], [], []) AT_CHECK([./RL101A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL202A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL202A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL202A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL202A.SUB], [0], [], [RL202A.SUB: in section 'SECT-RL202-001': +RL202A.SUB: in paragraph 'REL-TEST-003-R': +RL202A.SUB:400: warning: value size exceeds data size +RL202A.SUB:400: note: value size is 21 +RL202A.SUB:141: note: 'COMPUTED-A' defined here as PIC X(20) +RL202A.SUB: in paragraph 'REL-TEST-004-R': +RL202A.SUB:477: warning: value size exceeds data size +RL202A.SUB:477: note: value size is 21 +RL202A.SUB:141: note: 'COMPUTED-A' defined here as PIC X(20) +RL202A.SUB: in paragraph 'REL-TEST-004-3': +RL202A.SUB:520: warning: value size exceeds data size +RL202A.SUB:520: note: value size is 22 +RL202A.SUB:141: note: 'COMPUTED-A' defined here as PIC X(20) +]) AT_CHECK([./RL202A], [0], [], []) AT_CLEANUP -AT_SETUP([RL / RL203A]) -# promoted on 2023-02-03T15:45 +AT_SETUP([RL203A]) +# promoted on 2023-02-04T01:26 AT_KEYWORDS([RL]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL101A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL101A.CBL], [0], [], []) AT_CHECK([./RL101A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL203A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL203A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL203A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL203A.SUB], [0], [], []) AT_CHECK([./RL203A], [0], [], []) AT_CLEANUP -AT_SETUP([RL / RL204A]) +AT_SETUP([RL204A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([RL]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL204A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL204A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL204A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL204A.CBL], [0], [], []) AT_CHECK([./RL204A], [0], [], []) + AT_CLEANUP -AT_SETUP([RL / RL205A]) +AT_SETUP([RL205A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([RL]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL205A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL205A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL205A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL205A.CBL], [0], [], [RL205A.CBL: in section 'SECT-RL205-0001': +RL205A.CBL: in paragraph 'REL-TEST-002-R4': +RL205A.CBL:724: warning: NEXT SENTENCE is archaic in COBOL 85 +]) AT_CHECK([./RL205A], [0], [], []) + AT_CLEANUP -AT_SETUP([RL / RL206A]) +AT_SETUP([RL206A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([RL]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL206A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL206A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL206A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL206A.CBL], [0], [], []) AT_CHECK([./RL206A], [0], [], []) + AT_CLEANUP -AT_SETUP([RL / RL207A]) -# promoted on 2023-02-03T16:44 +AT_SETUP([RL207A]) +# promoted on 2023-02-04T01:27 AT_KEYWORDS([RL RL207A]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL101A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL101A.CBL], [0], [], []) AT_CHECK([./RL101A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL202A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL202A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL202A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL202A.SUB], [0], [], [RL202A.SUB: in section 'SECT-RL202-001': +RL202A.SUB: in paragraph 'REL-TEST-003-R': +RL202A.SUB:400: warning: value size exceeds data size +RL202A.SUB:400: note: value size is 21 +RL202A.SUB:141: note: 'COMPUTED-A' defined here as PIC X(20) +RL202A.SUB: in paragraph 'REL-TEST-004-R': +RL202A.SUB:477: warning: value size exceeds data size +RL202A.SUB:477: note: value size is 21 +RL202A.SUB:141: note: 'COMPUTED-A' defined here as PIC X(20) +RL202A.SUB: in paragraph 'REL-TEST-004-3': +RL202A.SUB:520: warning: value size exceeds data size +RL202A.SUB:520: note: value size is 22 +RL202A.SUB:141: note: 'COMPUTED-A' defined here as PIC X(20) +]) AT_CHECK([./RL202A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL203A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL203A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL203A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL203A.SUB], [0], [], []) AT_CHECK([./RL203A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL206A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL206A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL206A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL206A.CBL], [0], [], []) AT_CHECK([./RL206A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL207A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL207A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL207A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL207A.SUB], [0], [], [RL207A.SUB: in section 'SECT-RL207A-001': +RL207A.SUB: in paragraph 'REL-TEST-003-R': +RL207A.SUB:428: warning: value size exceeds data size +RL207A.SUB:428: note: value size is 21 +RL207A.SUB:168: note: 'COMPUTED-A' defined here as PIC X(20) +RL207A.SUB: in paragraph 'REL-TEST-004-R': +RL207A.SUB:505: warning: value size exceeds data size +RL207A.SUB:505: note: value size is 21 +RL207A.SUB:168: note: 'COMPUTED-A' defined here as PIC X(20) +RL207A.SUB: in paragraph 'REL-TEST-004-3': +RL207A.SUB:548: warning: value size exceeds data size +RL207A.SUB:548: note: value size is 22 +RL207A.SUB:168: note: 'COMPUTED-A' defined here as PIC X(20) +]) AT_CHECK([./RL207A], [0], [], []) AT_CLEANUP -AT_SETUP([RL / RL208A]) -# promoted on 2023-02-03T16:44 +AT_SETUP([RL208A]) +# promoted on 2023-02-04T01:26 AT_KEYWORDS([RL RL208A]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL101A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL101A.CBL], [0], [], []) AT_CHECK([./RL101A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL202A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL202A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL202A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL202A.SUB], [0], [], [RL202A.SUB: in section 'SECT-RL202-001': +RL202A.SUB: in paragraph 'REL-TEST-003-R': +RL202A.SUB:400: warning: value size exceeds data size +RL202A.SUB:400: note: value size is 21 +RL202A.SUB:141: note: 'COMPUTED-A' defined here as PIC X(20) +RL202A.SUB: in paragraph 'REL-TEST-004-R': +RL202A.SUB:477: warning: value size exceeds data size +RL202A.SUB:477: note: value size is 21 +RL202A.SUB:141: note: 'COMPUTED-A' defined here as PIC X(20) +RL202A.SUB: in paragraph 'REL-TEST-004-3': +RL202A.SUB:520: warning: value size exceeds data size +RL202A.SUB:520: note: value size is 22 +RL202A.SUB:141: note: 'COMPUTED-A' defined here as PIC X(20) +]) AT_CHECK([./RL202A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL203A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL203A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL203A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL203A.SUB], [0], [], []) AT_CHECK([./RL203A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL206A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL206A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL206A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL206A.CBL], [0], [], []) AT_CHECK([./RL206A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL208A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL208A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL208A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL208A.SUB], [0], [], []) AT_CHECK([./RL208A], [0], [], []) AT_CLEANUP -AT_SETUP([RL / RL209A]) +AT_SETUP([RL209A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([RL]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL209A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL209A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL209A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL209A.CBL], [0], [], []) AT_CHECK([./RL209A], [0], [], []) + AT_CLEANUP -AT_SETUP([RL / RL210A]) +AT_SETUP([RL210A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([RL]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL210A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL210A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL210A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL210A.CBL], [0], [], []) AT_CHECK([./RL210A], [0], [], []) + AT_CLEANUP -AT_SETUP([RL / RL211A]) +AT_SETUP([RL211A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([RL]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL211A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL211A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL211A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL211A.CBL], [0], [], []) AT_CHECK([./RL211A], [0], [], []) + AT_CLEANUP -AT_SETUP([RL / RL212A]) +AT_SETUP([RL212A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([RL]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL212A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL212A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL212A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL212A.CBL], [0], [], []) AT_CHECK([./RL212A], [0], [], []) + AT_CLEANUP -AT_SETUP([RL / RL213A]) +AT_SETUP([RL213A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([RL]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL213A.SUB .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL213A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL213A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL213A.SUB], [0], [], []) AT_CHECK([./RL213A], [0], [], []) + AT_CLEANUP -AT_SETUP([RL / RL301M]) +AT_SETUP([RL301M]) AT_KEYWORDS([RL]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL301M.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL301M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL301M.CBL .],[0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL301M.CBL], [0], [], []) # AT_CHECK([./RL301M], [0], [], []) AT_CLEANUP -AT_SETUP([RL / RL302M]) - +AT_SETUP([RL302M]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([RL]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL302M.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL302M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL302M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL302M.CBL], [0], [], []) AT_CHECK([./RL302M], [0], [THIS IS A DUMMY PARAGRAPH ], []) AT_CLEANUP -AT_SETUP([RL / RL401M]) +AT_SETUP([RL401M]) AT_KEYWORDS([RL]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL401M.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RL401M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL401M.CBL .],[0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RL401M.CBL], [0], [], []) # AT_CHECK([./RL401M], [0], [], []) AT_CLEANUP diff --git a/tests/cobol85/testsuite.src/run_RW.at b/tests/cobol85/testsuite.src/run_RW.at index f2ccccb68..752657342 100644 --- a/tests/cobol85/testsuite.src/run_RW.at +++ b/tests/cobol85/testsuite.src/run_RW.at @@ -1,42 +1,52 @@ -AT_SETUP([RW / RW101A]) +AT_SETUP([RW101A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([RW]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RW/RW101A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RW101A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RW/RW101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RW101A.CBL], [0], [], []) AT_CHECK([./RW101A], [0], [], []) + AT_CLEANUP -AT_SETUP([RW / RW102A]) +AT_SETUP([RW102A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([RW]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RW/RW102A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RW102A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RW/RW102A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RW102A.CBL], [0], [], []) AT_CHECK([./RW102A], [0], [], []) + AT_CLEANUP -AT_SETUP([RW / RW103A]) +AT_SETUP([RW103A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([RW]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RW/RW103A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RW103A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RW/RW103A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RW103A.CBL], [0], [], []) AT_CHECK([./RW103A], [0], [], []) + AT_CLEANUP -AT_SETUP([RW / RW104A]) +AT_SETUP([RW104A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([RW]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RW/RW104A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RW104A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RW/RW104A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RW104A.CBL], [0], [], []) AT_CHECK([./RW104A], [0], [], []) + AT_CLEANUP -AT_SETUP([RW / RW301M]) +AT_SETUP([RW301M]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([RW]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RW/RW301M.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RW301M.CBL], [0]) -# AT_CHECK([./RW301M], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RW/RW301M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RW301M.CBL], [0], [], []) + AT_CLEANUP -AT_SETUP([RW / RW302M]) +AT_SETUP([RW302M]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([RW]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/RW/RW302M.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug RW302M.CBL], [0]) -# AT_CHECK([./RW302M], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RW/RW302M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 RW302M.CBL], [0], [], []) + AT_CLEANUP diff --git a/tests/cobol85/testsuite.src/run_SG.at b/tests/cobol85/testsuite.src/run_SG.at index b05bc022f..3fb490646 100644 --- a/tests/cobol85/testsuite.src/run_SG.at +++ b/tests/cobol85/testsuite.src/run_SG.at @@ -1,90 +1,163 @@ -AT_SETUP([SG / SG101A]) +AT_SETUP([SG101A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([SG]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG101A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SG101A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SG101A.CBL], [0], [], []) AT_CHECK([./SG101A], [0], [], []) + AT_CLEANUP -AT_SETUP([SG / SG102A]) +AT_SETUP([SG102A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([SG]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG102A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SG102A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG102A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SG102A.CBL], [0], [], [SG102A.CBL: in section 'SEG-TEST2': +SG102A.CBL: in paragraph 'SEG-TEST-2': +SG102A.CBL:302: warning: alphanumeric value is expected +SG102A.CBL:49: note: 'RANGE-X' defined here as PIC X +SG102A.CBL: in section 'TEST-6-5': +SG102A.CBL: in paragraph 'TEST-6E': +SG102A.CBL:338: warning: alphanumeric value is expected +SG102A.CBL:49: note: 'RANGE-X' defined here as PIC X +SG102A.CBL: in section 'START-TESTING': +SG102A.CBL: in paragraph 'SEG-TEST-1': +SG102A.CBL:346: warning: alphanumeric value is expected +SG102A.CBL:49: note: 'RANGE-X' defined here as PIC X +SG102A.CBL: in section 'SEG-TEST3': +SG102A.CBL: in paragraph 'SEG-TEST-3': +SG102A.CBL:490: warning: alphanumeric value is expected +SG102A.CBL:49: note: 'RANGE-X' defined here as PIC X +SG102A.CBL: in section 'SEG-TEST4': +SG102A.CBL: in paragraph 'SEG-TEST-4': +SG102A.CBL:534: warning: alphanumeric value is expected +SG102A.CBL:49: note: 'RANGE-X' defined here as PIC X +SG102A.CBL: in section 'SEG': +SG102A.CBL: in paragraph 'SEG-99B': +SG102A.CBL:557: warning: TEST-6A and TEST-6I are not in the same SECTION +]) AT_CHECK([./SG102A], [0], [], []) + AT_CLEANUP -AT_SETUP([SG / SG103A]) +AT_SETUP([SG103A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([SG]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG103A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SG103A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG103A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SG103A.CBL], [0], [], []) AT_CHECK([./SG103A], [0], [], []) + AT_CLEANUP -AT_SETUP([SG / SG104A]) +AT_SETUP([SG104A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([SG]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG104A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SG104A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG104A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SG104A.CBL], [0], [], [SG104A.CBL: in section 'INPROC': +SG104A.CBL: in paragraph 'BUILD-FILE': +SG104A.CBL:238: warning: ignoring sign +SG104A.CBL: in paragraph 'BUILD-RECORD': +SG104A.CBL:251: warning: ignoring sign +]) AT_CHECK([./SG104A], [0], [], []) + AT_CLEANUP -AT_SETUP([SG / SG105A]) +AT_SETUP([SG105A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([SG]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG105A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SG105A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG105A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SG105A.CBL], [0], [], [SG105A.CBL: in section 'INPROC': +SG105A.CBL: in paragraph 'BUILD-FILE': +SG105A.CBL:238: warning: ignoring sign +SG105A.CBL: in paragraph 'BUILD-RECORD': +SG105A.CBL:251: warning: ignoring sign +SG105A.CBL: in section 'SPACE-IS-LESS-THAN-B': +SG105A.CBL: in paragraph 'SORT-FAIL-15': +SG105A.CBL:458: warning: value size exceeds data size +SG105A.CBL:458: note: value is 6000000000000000 +SG105A.CBL:116: note: 'CORRECT-18V0' defined here as PIC -9(18) +]) AT_CHECK([./SG105A], [0], [], []) + AT_CLEANUP -AT_SETUP([SG / SG106A]) +AT_SETUP([SG106A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([SG]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG106A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SG106A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG106A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SG106A.CBL], [0], [], [SG106A.CBL: in section 'INPROC': +SG106A.CBL: in paragraph 'BUILD-FILE': +SG106A.CBL:238: warning: ignoring sign +SG106A.CBL: in paragraph 'BUILD-RECORD': +SG106A.CBL:251: warning: ignoring sign +]) AT_CHECK([./SG106A], [0], [], []) + AT_CLEANUP -AT_SETUP([SG / SG201A]) +AT_SETUP([SG201A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([SG]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG201A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SG201A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG201A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SG201A.CBL], [0], [], []) AT_CHECK([./SG201A], [0], [], []) + AT_CLEANUP -AT_SETUP([SG / SG202A]) +AT_SETUP([SG202A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([SG]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG202A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SG202A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG202A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SG202A.CBL], [0], [], [SG202A.CBL: in section 'SEC45': +SG202A.CBL: in paragraph 'P4502': +SG202A.CBL:347: warning: P4501 and P0003 are not in the same SECTION +SG202A.CBL:347: warning: P0003 is defined before P4501 +SG202A.CBL:422: note: 'P4501' defined here +SG202A.CBL:295: note: 'P0003' defined here +SG202A.CBL:365: warning: P0004 and P4802 are not in the same SECTION +]) AT_CHECK([./SG202A], [0], [], []) + AT_CLEANUP -AT_SETUP([SG / SG203A]) +AT_SETUP([SG203A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([SG]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG203A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SG203A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG203A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SG203A.CBL], [0], [], [SG203A.CBL: in section '69': +SG203A.CBL: in paragraph 'WRITE-69': +SG203A.CBL:335: warning: PARA-32 and PARA-33 are not in the same SECTION +]) AT_CHECK([./SG203A], [0], [], []) + AT_CLEANUP -AT_SETUP([SG / SG204A]) +AT_SETUP([SG204A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([SG]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG204A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SG204A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG204A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SG204A.CBL], [0], [], []) AT_CHECK([./SG204A], [0], [], []) -AT_CLEANUP -AT_SETUP([SG / SG302M]) +AT_CLEANUP +AT_SETUP([SG302M]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([SG]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG302M.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SG302M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG302M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SG302M.CBL], [0], [], []) AT_CHECK([./SG302M], [0], [THIS IS A DUMMY PARAGRAPH ], []) AT_CLEANUP -AT_SETUP([SG / SG303M]) - +AT_SETUP([SG303M]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([SG]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG303M.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SG303M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG303M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SG303M.CBL], [0], [], []) AT_CHECK([./SG303M], [0], [THIS IS A DUMMY PARAGRAPH THIS IS A DUMMY PARAGRAPH TOO! ], []) @@ -92,11 +165,11 @@ THIS IS A DUMMY PARAGRAPH TOO! AT_CLEANUP -AT_SETUP([SG / SG401M]) - +AT_SETUP([SG401M]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([SG]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG401M.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SG401M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG401M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SG401M.CBL], [0], [], []) AT_CHECK([./SG401M], [0], [THIS IS A DUMMY PARAGRAPH THIS IS A DUMMY PARAGRAPH TOO! ], []) diff --git a/tests/cobol85/testsuite.src/run_SM.at b/tests/cobol85/testsuite.src/run_SM.at index f72979dac..9c23cfa05 100644 --- a/tests/cobol85/testsuite.src/run_SM.at +++ b/tests/cobol85/testsuite.src/run_SM.at @@ -1,152 +1,180 @@ # Generates XXXXX01 -AT_SETUP([SM / SM101A]) +AT_SETUP([SM101A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([SM]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM101A.CBL SM101A.CBL],[0]) -AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy -x -debug SM101A.CBL], [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], [], []) AT_CHECK([./SM101A], [0], [], []) + AT_CLEANUP -AT_SETUP([SM / SM102A]) -# promoted on 2023-02-03T16:47 +AT_SETUP([SM102A]) +# promoted on 2023-02-04T01:26 AT_KEYWORDS([SM]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM101A.CBL SM101A.CBL], [0]) -AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy -x -debug SM101A.CBL], [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], [], []) 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 -x -debug SM102A.SUB], [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], [], []) AT_CHECK([./SM102A], [0], [], []) AT_CLEANUP -AT_SETUP([SM / SM103A]) +AT_SETUP([SM103A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([SM]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM103A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy -x -debug SM103A.CBL], [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], [], []) AT_CHECK([./SM103A], [0], [], []) + AT_CLEANUP -AT_SETUP([SM / SM104A]) -# promoted on 2023-02-03T16:47 +AT_SETUP([SM104A]) +# promoted on 2023-02-04T01:26 AT_KEYWORDS([SM]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM101A.CBL SM101A.CBL], [0]) -AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy -x -debug SM101A.CBL], [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], [], []) 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 -x -debug SM104A.SUB], [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], [], []) AT_CHECK([./SM104A], [0], [], []) AT_CLEANUP -AT_SETUP([SM / SM105A]) +AT_SETUP([SM105A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([SM]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM105A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy -x -debug SM105A.CBL], [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], [], []) AT_CHECK([./SM105A], [0], [], []) + AT_CLEANUP -AT_SETUP([SM / SM106A]) +AT_SETUP([SM106A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SM]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM106A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy -x -debug SM106A.CBL], [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], [], []) AT_CHECK([./SM106A], [0], [], []) + AT_CLEANUP -AT_SETUP([SM / SM107A]) +AT_SETUP([SM107A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SM]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM107A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy -x -debug SM107A.CBL], [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], [], []) AT_CHECK([./SM107A], [0], [], []) + AT_CLEANUP -AT_SETUP([SM / SM201A]) +AT_SETUP([SM201A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([SM]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM201A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy -x -debug SM201A.CBL], [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], [], []) AT_CHECK([./SM201A], [0], [], []) + AT_CLEANUP -AT_SETUP([SM / SM202A]) -# promoted on 2023-02-03T16:47 +# TODO: This one fails with non-empty stderr at compile time, ignore for now +AT_SETUP([SM202A]) +# promoted on 2023-02-04T01:26 AT_KEYWORDS([SM]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM101A.CBL SM101A.CBL], [0]) -AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy -x -debug SM101A.CBL], [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], [], []) AT_CHECK([./SM101A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM202A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy -x -debug SM202A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM202A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -Wno-obsolete -std=cobol85 -I ${abs_builddir}/cobol85/copy SM202A.SUB], [0], [], [ignore]) AT_CHECK([./SM202A], [0], [], []) AT_CLEANUP -AT_SETUP([SM / SM203A]) +AT_SETUP([SM203A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([SM]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM203A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy -x -debug SM203A.CBL], [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], [], []) AT_CHECK([./SM203A], [0], [], []) + AT_CLEANUP -AT_SETUP([SM / SM204A]) -# promoted on 2023-02-03T17:01 +AT_SETUP([SM204A]) +# promoted on 2023-02-04T01:26 AT_KEYWORDS([SM]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM101A.CBL SM101A.CBL], [0]) -AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy -x -debug SM101A.CBL], [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], [], []) 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 -x -debug SM203A.CBL], [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], [], []) 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 -x -debug SM204A.SUB], [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], [], []) AT_CHECK([./SM204A], [0], [], []) AT_CLEANUP -AT_SETUP([SM / SM205A]) +AT_SETUP([SM205A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([SM]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM205A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy -x -debug SM205A.CBL], [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], [], []) AT_CHECK([./SM205A], [0], [], []) + AT_CLEANUP -AT_SETUP([SM / SM206A]) +AT_SETUP([SM206A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([SM]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM206A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy -x -fdebugging-line -debug SM206A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM206A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy -x -fdebugging-line -debug SM206A.CBL], [0], [], [SM206A.CBL: in section 'SECT-SM206-0002': +SM206A.CBL: in paragraph 'PST-WRITE-006': +SM206A.CBL:550: warning: value size exceeds data size +SM206A.CBL:550: note: value size is 21 +SM206A.CBL:76: note: 'FEATURE' defined here as PIC X(20) +]) AT_CHECK([./SM206A], [0], [], []) + AT_CLEANUP -AT_SETUP([SM / SM207A]) +AT_SETUP([SM207A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SM]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM207A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy -x -debug SM207A.CBL], [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], [], []) AT_CHECK([./SM207A], [0], [], []) + AT_CLEANUP -AT_SETUP([SM / SM208A]) +AT_SETUP([SM208A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([SM]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM208A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy -x -debug SM208A.CBL], [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], [], []) AT_CHECK([./SM208A], [0], [], []) + AT_CLEANUP -AT_SETUP([SM / SM301M]) +AT_SETUP([SM301M]) AT_KEYWORDS([SM]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM301M.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy -x -debug SM301M.CBL], [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([./SM301M], [0], [ ], []) AT_CLEANUP -AT_SETUP([SM / SM401M]) +AT_SETUP([SM401M]) AT_KEYWORDS([SM]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM401M.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -I ${abs_builddir}/cobol85/copy -x -debug SM401M.CBL], [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([./SM401M], [0], [COW SHEEP PIG HORSE LAMB DOG CAT ], []) diff --git a/tests/cobol85/testsuite.src/run_SQ.at b/tests/cobol85/testsuite.src/run_SQ.at index 18ee24114..6a8c2842c 100644 --- a/tests/cobol85/testsuite.src/run_SQ.at +++ b/tests/cobol85/testsuite.src/run_SQ.at @@ -1,653 +1,951 @@ -AT_SETUP([SQ / SQ101M]) +AT_SETUP([SQ101M]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ101M.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ101M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ101M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ101M.CBL], [0], [], []) AT_CHECK([./SQ101M], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ102A]) +AT_SETUP([SQ102A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ102A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ102A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ102A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ102A.CBL], [0], [], []) AT_CHECK([./SQ102A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ103A]) +AT_SETUP([SQ103A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ103A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ103A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ103A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ103A.CBL], [0], [], []) AT_CHECK([./SQ103A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ104A]) +AT_SETUP([SQ104A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ104A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ104A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ104A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ104A.CBL], [0], [], []) AT_CHECK([./SQ104A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ105A]) +AT_SETUP([SQ105A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ105A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ105A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ105A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ105A.CBL], [0], [], []) AT_CHECK([./SQ105A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ106A]) +AT_SETUP([SQ106A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ106A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ106A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ106A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ106A.CBL], [0], [], []) AT_CHECK([./SQ106A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ107A]) +AT_SETUP([SQ107A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ107A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ107A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ107A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ107A.CBL], [0], [], []) AT_CHECK([./SQ107A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ108A]) +AT_SETUP([SQ108A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ108A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ108A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ108A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ108A.CBL], [0], [], []) AT_CHECK([./SQ108A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ109M]) +AT_SETUP([SQ109M]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ109M.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ109M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ109M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ109M.CBL], [0], [], [SQ109M.CBL: in section 'SECT-SQ109-0001': +SQ109M.CBL: in paragraph 'READ-INIT-GF-01': +SQ109M.CBL:430: warning: value size exceeds data size +SQ109M.CBL:430: note: value size is 24 +SQ109M.CBL:115: note: 'FEATURE' defined here as PIC X(20) +]) AT_CHECK([./SQ109M], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ110M]) +AT_SETUP([SQ110M]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ110M.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ110M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ110M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ110M.CBL], [0], [], [SQ110M.CBL: in section 'SECT-SQ110M-0001': +SQ110M.CBL: in paragraph 'READ-INIT-GF-01': +SQ110M.CBL:428: warning: value size exceeds data size +SQ110M.CBL:428: note: value size is 24 +SQ110M.CBL:117: note: 'FEATURE' defined here as PIC X(20) +]) AT_CHECK([./SQ110M], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ111A]) +AT_SETUP([SQ111A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ111A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ111A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ111A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ111A.CBL], [0], [], [SQ111A.CBL:55: note: ignoring CODE-SET 'TAPE-CHARACTER-SET' +SQ111A.CBL: in section 'SECT-SQ111A-0001': +SQ111A.CBL: in paragraph 'WRITE-TEST-GF-01': +SQ111A.CBL:378: warning: value size exceeds data size +SQ111A.CBL:378: note: value size is 31 +SQ111A.CBL:60: note: 'SQ-FS1-FILLER' defined here as PIC X(30) +]) AT_CHECK([./SQ111A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ112A]) +AT_SETUP([SQ112A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ112A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ112A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ112A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ112A.CBL], [0], [], [SQ112A.CBL: in section 'SECT-SQ112A-0003': +SQ112A.CBL: in paragraph 'READ-INIT-GF-03': +SQ112A.CBL:501: warning: value size exceeds data size +SQ112A.CBL:501: note: value size is 24 +SQ112A.CBL:120: note: 'FEATURE' defined here as PIC X(20) +]) AT_CHECK([./SQ112A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ113A]) +AT_SETUP([SQ113A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ113A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ113A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ113A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ113A.CBL], [0], [], []) AT_CHECK([./SQ113A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ114A]) -# promoted on 2023-02-03T11:28 -AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ114A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ114A.CBL], [0]) +AT_SETUP([SQ114A]) +# promoted on 2023-02-04T01:19 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ114A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ114A.CBL], [0], [], [SQ114A.CBL: in section 'SECT-SQ102-0001': +SQ114A.CBL: in paragraph 'OPEN-WRITE-GF-01': +SQ114A.CBL:418: warning: value size exceeds data size +SQ114A.CBL:418: note: value size is 21 +SQ114A.CBL:144: note: 'FEATURE' defined here as PIC X(20) +SQ114A.CBL: in paragraph 'READ-INIT-GF-01': +SQ114A.CBL:483: warning: value size exceeds data size +SQ114A.CBL:483: note: value size is 24 +SQ114A.CBL:144: note: 'FEATURE' defined here as PIC X(20) +SQ114A.CBL: in section 'SECT-SQ104-0001': +SQ114A.CBL: in paragraph 'READ-INIT-GF-07': +SQ114A.CBL:710: warning: value size exceeds data size +SQ114A.CBL:710: note: value size is 24 +SQ114A.CBL:144: note: 'FEATURE' defined here as PIC X(20) +SQ114A.CBL: in paragraph 'OPEN-WRITE-GF-03': +SQ114A.CBL:871: warning: value size exceeds data size +SQ114A.CBL:871: note: value size is 23 +SQ114A.CBL:144: note: 'FEATURE' defined here as PIC X(20) +]) AT_CHECK([./SQ114A], [0], [], []) AT_CLEANUP -AT_SETUP([SQ / SQ115A]) +AT_SETUP([SQ115A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ115A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ115A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ115A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ115A.CBL], [0], [], []) AT_CHECK([./SQ115A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ116A]) +AT_SETUP([SQ116A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ116A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ116A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ116A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ116A.CBL], [0], [], [SQ116A.CBL: in section 'SECT-SQ116A-0001': +SQ116A.CBL: in paragraph 'REWRITE-WRITE-GF-03': +SQ116A.CBL:663: warning: value size exceeds data size +SQ116A.CBL:663: note: value size is 21 +SQ116A.CBL:129: note: 'FEATURE' defined here as PIC X(20) +]) AT_CHECK([./SQ116A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ117A]) -AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ117A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ117A.CBL], [0]) +AT_SETUP([SQ117A]) +# promoted on 2023-02-04T01:19 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ117A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ117A.CBL], [0], [], [SQ117A.CBL: in section 'SECT-SQ117A-0001': +SQ117A.CBL: in paragraph 'WRITE-INIT-GF-03': +SQ117A.CBL:522: warning: value size exceeds data size +SQ117A.CBL:522: note: value size is 22 +SQ117A.CBL:126: note: 'FEATURE' defined here as PIC X(20) +SQ117A.CBL: in paragraph 'WRITE-WRITE-GF-04': +SQ117A.CBL:610: warning: value size exceeds data size +SQ117A.CBL:610: note: value size is 28 +SQ117A.CBL:126: note: 'FEATURE' defined here as PIC X(20) +SQ117A.CBL: in paragraph 'WRITE-WRITE-GF-05': +SQ117A.CBL:652: warning: value size exceeds data size +SQ117A.CBL:652: note: value size is 28 +SQ117A.CBL:126: note: 'FEATURE' defined here as PIC X(20) +SQ117A.CBL: in paragraph 'WRITE-WRITE-GF-06': +SQ117A.CBL:694: warning: value size exceeds data size +SQ117A.CBL:694: note: value size is 28 +SQ117A.CBL:126: note: 'FEATURE' defined here as PIC X(20) +SQ117A.CBL: in paragraph 'WRITE-WRITE-GF-07': +SQ117A.CBL:737: warning: value size exceeds data size +SQ117A.CBL:737: note: value size is 23 +SQ117A.CBL:126: note: 'FEATURE' defined here as PIC X(20) +]) AT_CHECK([./SQ117A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ121A]) +AT_SETUP([SQ121A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ121A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ121A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ121A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ121A.CBL], [0], [], []) AT_CHECK([./SQ121A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ122A]) -# promoted on 2023-02-03T11:28 +AT_SETUP([SQ122A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ122A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ122A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ122A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ122A.CBL], [0], [], []) AT_CHECK([./SQ122A], [0], [], []) AT_CLEANUP -AT_SETUP([SQ / SQ123A]) +AT_SETUP([SQ123A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ123A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ123A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ123A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ123A.CBL], [0], [], []) AT_CHECK([./SQ123A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ124A]) +AT_SETUP([SQ124A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ124A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ124A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ124A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ124A.CBL], [0], [], []) AT_CHECK([./SQ124A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ125A]) -# promoted on 2023-02-03T11:28 +AT_SETUP([SQ125A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ125A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ125A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ125A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ125A.CBL], [0], [], []) AT_CHECK([./SQ125A], [0], [], []) AT_CLEANUP -AT_SETUP([SQ / SQ126A]) +AT_SETUP([SQ126A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ126A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ126A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ126A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ126A.CBL], [0], [], []) AT_CHECK([./SQ126A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ127A]) +AT_SETUP([SQ127A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ127A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ127A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ127A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ127A.CBL], [0], [], [SQ127A.CBL: in section 'SECT-SQ127A-0001': +SQ127A.CBL: in paragraph 'READ-INIT-GF-02': +SQ127A.CBL:433: warning: value size exceeds data size +SQ127A.CBL:433: note: value size is 24 +SQ127A.CBL:124: note: 'FEATURE' defined here as PIC X(20) +]) AT_CHECK([./SQ127A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ128A]) +AT_SETUP([SQ128A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ128A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ128A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ128A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ128A.CBL], [0], [], [SQ128A.CBL: in section 'SECT-SQ128A-0001': +SQ128A.CBL: in paragraph 'OPEN-INIT-GF-01': +SQ128A.CBL:346: warning: value size exceeds data size +SQ128A.CBL:346: note: value size is 6 +SQ128A.CBL:82: note: 'XPROGRAM-NAME' defined here as PIC X(5) +SQ128A.CBL:346: warning: value size exceeds data size +SQ128A.CBL:347: note: value size is 6 +SQ128A.CBL:82: note: 'XPROGRAM-NAME' defined here as PIC X(5) +SQ128A.CBL:346: warning: value size exceeds data size +SQ128A.CBL:348: note: value size is 6 +SQ128A.CBL:82: note: 'XPROGRAM-NAME' defined here as PIC X(5) +]) AT_CHECK([./SQ128A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ129A]) +AT_SETUP([SQ129A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ129A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ129A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ129A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ129A.CBL], [0], [], []) AT_CHECK([./SQ129A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ130A]) +AT_SETUP([SQ130A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ130A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ130A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ130A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ130A.CBL], [0], [], []) AT_CHECK([./SQ130A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ131A]) -# promoted on 2023-02-03T11:28 +AT_SETUP([SQ131A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ131A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ131A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ131A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ131A.CBL], [0], [], []) AT_CHECK([./SQ131A], [0], [], []) AT_CLEANUP -AT_SETUP([SQ / SQ132A]) +AT_SETUP([SQ132A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ132A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ132A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ132A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ132A.CBL], [0], [], []) AT_CHECK([./SQ132A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ133A]) -# promoted on 2023-02-03T11:28 +AT_SETUP([SQ133A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ133A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ133A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ133A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ133A.CBL], [0], [], []) AT_CHECK([./SQ133A], [0], [], []) AT_CLEANUP -AT_SETUP([SQ / SQ134A]) -# promoted on 2023-02-03T11:28 +AT_SETUP([SQ134A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ134A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ134A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ134A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ134A.CBL], [0], [], []) AT_CHECK([./SQ134A], [0], [], []) AT_CLEANUP -AT_SETUP([SQ / SQ135A]) +AT_SETUP([SQ135A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ135A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ135A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ135A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ135A.CBL], [0], [], []) AT_CHECK([./SQ135A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ136A]) -# promoted on 2023-02-03T11:28 +AT_SETUP([SQ136A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ136A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ136A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ136A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ136A.CBL], [0], [], []) AT_CHECK([./SQ136A], [0], [], []) AT_CLEANUP -AT_SETUP([SQ / SQ137A]) -# promoted on 2023-02-03T11:28 +AT_SETUP([SQ137A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ137A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ137A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ137A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ137A.CBL], [0], [], []) AT_CHECK([./SQ137A], [0], [], []) AT_CLEANUP -AT_SETUP([SQ / SQ138A]) -# promoted on 2023-02-03T11:28 +AT_SETUP([SQ138A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ138A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ138A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ138A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ138A.CBL], [0], [], []) AT_CHECK([./SQ138A], [0], [], []) AT_CLEANUP -AT_SETUP([SQ / SQ139A]) -# promoted on 2023-02-03T11:28 +AT_SETUP([SQ139A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ139A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ139A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ139A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ139A.CBL], [0], [], []) AT_CHECK([./SQ139A], [0], [], []) AT_CLEANUP -AT_SETUP([SQ / SQ140A]) -# promoted on 2023-02-03T11:28 +AT_SETUP([SQ140A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ140A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ140A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ140A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ140A.CBL], [0], [], []) AT_CHECK([./SQ140A], [0], [], []) AT_CLEANUP -AT_SETUP([SQ / SQ141A]) +AT_SETUP([SQ141A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ141A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ141A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ141A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ141A.CBL], [0], [], []) AT_CHECK([./SQ141A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ142A]) +AT_SETUP([SQ142A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ142A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ142A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ142A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ142A.CBL], [0], [], []) AT_CHECK([./SQ142A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ143A]) +AT_SETUP([SQ143A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ143A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ143A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ143A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ143A.CBL], [0], [], []) AT_CHECK([./SQ143A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ144A]) -# promoted on 2023-02-03T11:28 +AT_SETUP([SQ144A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ144A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ144A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ144A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ144A.CBL], [0], [], []) AT_CHECK([./SQ144A], [0], [], []) AT_CLEANUP -AT_SETUP([SQ / SQ146A]) +AT_SETUP([SQ146A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ146A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ146A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ146A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ146A.CBL], [0], [], []) AT_CHECK([./SQ146A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ147A]) +AT_SETUP([SQ147A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ147A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ147A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ147A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ147A.CBL], [0], [], []) AT_CHECK([./SQ147A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ148A]) +AT_SETUP([SQ148A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ148A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ148A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ148A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ148A.CBL], [0], [], []) AT_CHECK([./SQ148A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ149A]) +AT_SETUP([SQ149A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ149A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ149A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ149A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ149A.CBL], [0], [], []) AT_CHECK([./SQ149A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ150A]) -# promoted on 2023-02-03T11:28 +AT_SETUP([SQ150A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ150A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ150A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ150A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ150A.CBL], [0], [], []) AT_CHECK([./SQ150A], [0], [], []) AT_CLEANUP -AT_SETUP([SQ / SQ151A]) +AT_SETUP([SQ151A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ151A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ151A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ151A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ151A.CBL], [0], [], []) AT_CHECK([./SQ151A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ152A]) +AT_SETUP([SQ152A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ152A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ152A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ152A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ152A.CBL], [0], [], []) AT_CHECK([./SQ152A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ153A]) +AT_SETUP([SQ153A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ153A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ153A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ153A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ153A.CBL], [0], [], []) AT_CHECK([./SQ153A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ154A]) +AT_SETUP([SQ154A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ154A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ154A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ154A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ154A.CBL], [0], [], []) AT_CHECK([./SQ154A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ155A]) +AT_SETUP([SQ155A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ155A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ155A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ155A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ155A.CBL], [0], [], []) AT_CHECK([./SQ155A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ156A]) +AT_SETUP([SQ156A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ156A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ156A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ156A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ156A.CBL], [0], [], []) AT_CHECK([./SQ156A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ201M]) +AT_SETUP([SQ201M]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ201M.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ201M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ201M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ201M.CBL], [0], [], []) AT_CHECK([./SQ201M], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ202A]) +AT_SETUP([SQ202A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ202A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ202A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ202A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ202A.CBL], [0], [], [SQ202A.CBL: in section 'SECTION-SQ202A-0001': +SQ202A.CBL: in paragraph 'WRI-INIT-001': +SQ202A.CBL:330: warning: value size exceeds data size +SQ202A.CBL:330: note: value size is 6 +SQ202A.CBL:70: note: 'XPROGRAM-NAME' defined here as PIC X(5) +]) AT_CHECK([./SQ202A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ203A]) +AT_SETUP([SQ203A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ203A.SUB .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ203A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ203A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ203A.SUB], [0], [], [SQ203A.SUB: in section 'SECT-SQ203A-0001': +SQ203A.SUB: in paragraph 'READ-INIT-GF-04': +SQ203A.SUB:467: warning: value size exceeds data size +SQ203A.SUB:467: note: value size is 6 +SQ203A.SUB:106: note: 'XPROGRAM-NAME' defined here as PIC X(5) +]) AT_CHECK([./SQ203A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ204A]) -AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ204A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ204A.CBL], [0]) +AT_SETUP([SQ204A]) +# promoted on 2023-02-04T01:19 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ204A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ204A.CBL], [0], [], [SQ204A.CBL: in section 'SECT-SQ204A-0001': +SQ204A.CBL: in paragraph 'WRITE-INIT-GF-01': +SQ204A.CBL:348: warning: value size exceeds data size +SQ204A.CBL:348: note: value size is 6 +SQ204A.CBL:84: note: 'XPROGRAM-NAME' defined here as PIC X(5) +SQ204A.CBL: in paragraph 'WRITE-TEST-GF-01-2': +SQ204A.CBL:386: warning: value size exceeds data size +SQ204A.CBL:386: note: value size is 21 +SQ204A.CBL:122: note: 'COMPUTED-A' defined here as PIC X(20) +SQ204A.CBL: in paragraph 'WRITE-INIT-GF-02': +SQ204A.CBL:457: warning: value size exceeds data size +SQ204A.CBL:457: note: value size is 6 +SQ204A.CBL:84: note: 'XPROGRAM-NAME' defined here as PIC X(5) +SQ204A.CBL: in paragraph 'WRITE-TEST-GF-02-2': +SQ204A.CBL:495: warning: value size exceeds data size +SQ204A.CBL:495: note: value size is 21 +SQ204A.CBL:122: note: 'COMPUTED-A' defined here as PIC X(20) +]) AT_CHECK([./SQ204A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ205A]) +AT_SETUP([SQ205A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ205A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ205A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ205A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ205A.CBL], [0], [], []) AT_CHECK([./SQ205A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ206A]) +AT_SETUP([SQ206A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ206A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ206A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ206A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ206A.CBL], [0], [], []) AT_CHECK([./SQ206A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ207M]) +AT_SETUP([SQ207M]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ207M.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ207M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ207M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ207M.CBL], [0], [], []) AT_CHECK([./SQ207M], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ208M]) +AT_SETUP([SQ208M]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ208M.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ208M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ208M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ208M.CBL], [0], [], []) AT_CHECK([./SQ208M], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ209M]) +AT_SETUP([SQ209M]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ209M.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ209M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ209M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ209M.CBL], [0], [], []) AT_CHECK([./SQ209M], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ210M]) +AT_SETUP([SQ210M]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ210M.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ210M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ210M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ210M.CBL], [0], [], []) AT_CHECK([./SQ210M], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ211A]) +AT_SETUP([SQ211A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ211A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ211A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ211A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ211A.CBL], [0], [], []) AT_CHECK([./SQ211A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ212A]) -# promoted on 2023-02-03T11:28 +AT_SETUP([SQ212A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ212A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ212A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ212A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ212A.CBL], [0], [], [SQ212A.CBL:79: warning: redefinition of 'REC-FILLER' +SQ212A.CBL:78: note: 'REC-FILLER' previously defined here +SQ212A.CBL: in section 'SECT-SQ212A-0002': +SQ212A.CBL: in paragraph 'WRITE-INIT-GF-01': +SQ212A.CBL:513: warning: value size exceeds data size +SQ212A.CBL:513: note: value size is 21 +SQ212A.CBL:147: note: 'FEATURE' defined here as PIC X(20) +]) AT_CHECK([./SQ212A], [0], [], []) AT_CLEANUP -AT_SETUP([SQ / SQ213A]) +AT_SETUP([SQ213A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ213A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ213A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ213A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ213A.CBL], [0], [], []) AT_CHECK([./SQ213A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ214A]) +AT_SETUP([SQ214A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ214A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ214A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ214A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ214A.CBL], [0], [], []) AT_CHECK([./SQ214A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ215A]) +AT_SETUP([SQ215A]) +# promoted on 2023-02-04T01:23 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ215A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ215A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ215A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ215A.CBL], [0], [], []) AT_CHECK([./SQ215A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ216A]) +AT_SETUP([SQ216A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ216A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ216A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ216A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ216A.CBL], [0], [], []) AT_CHECK([./SQ216A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ217A]) +AT_SETUP([SQ217A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ217A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ217A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ217A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ217A.CBL], [0], [], []) AT_CHECK([./SQ217A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ218A]) +AT_SETUP([SQ218A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ218A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ218A.CBL], [0]) +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 +]) AT_CHECK([./SQ218A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ219A]) +AT_SETUP([SQ219A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ219A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ219A.CBL], [0]) +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 +]) AT_CHECK([./SQ219A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ220A]) +AT_SETUP([SQ220A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ220A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ220A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ220A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ220A.CBL], [0], [], []) AT_CHECK([./SQ220A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ221A]) +AT_SETUP([SQ221A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ221A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ221A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ221A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ221A.CBL], [0], [], []) AT_CHECK([./SQ221A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ222A]) +AT_SETUP([SQ222A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ222A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ222A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ222A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ222A.CBL], [0], [], []) AT_CHECK([./SQ222A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ223A]) -AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ223A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ223A.CBL], [0]) +AT_SETUP([SQ223A]) +# promoted on 2023-02-04T01:19 +AT_KEYWORDS([SQ]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ223A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ223A.CBL], [0], [], [SQ223A.CBL: in section 'SECT-SQ223A-0001': +SQ223A.CBL: in paragraph 'READ-FAIL-F1-01': +SQ223A.CBL:423: warning: value size exceeds data size +SQ223A.CBL:423: note: value size is 84 +SQ223A.CBL:131: note: 'RE-MARK' defined here as PIC X(61) +SQ223A.CBL: in paragraph 'READ-FAIL-F1-02': +SQ223A.CBL:467: warning: value size exceeds data size +SQ223A.CBL:467: note: value size is 84 +SQ223A.CBL:131: note: 'RE-MARK' defined here as PIC X(61) +SQ223A.CBL: in paragraph 'READ-FAIL-F1-03': +SQ223A.CBL:512: warning: value size exceeds data size +SQ223A.CBL:512: note: value size is 84 +SQ223A.CBL:131: note: 'RE-MARK' defined here as PIC X(61) +SQ223A.CBL: in paragraph 'READ-FAIL-F1-04': +SQ223A.CBL:534: warning: value size exceeds data size +SQ223A.CBL:534: note: value size is 84 +SQ223A.CBL:131: note: 'RE-MARK' defined here as PIC X(61) +SQ223A.CBL: in paragraph 'READ-PASS-F1-05': +SQ223A.CBL:553: warning: value size exceeds data size +SQ223A.CBL:553: note: value size is 84 +SQ223A.CBL:131: note: 'RE-MARK' defined here as PIC X(61) +]) AT_CHECK([./SQ223A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ224A]) +AT_SETUP([SQ224A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ224A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ224A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ224A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ224A.CBL], [0], [], [SQ224A.CBL: in section 'SECT-SQ224A-0001': +SQ224A.CBL: in paragraph 'READ-FAIL-F1-01': +SQ224A.CBL:416: warning: value size exceeds data size +SQ224A.CBL:416: note: value size is 81 +SQ224A.CBL:139: note: 'RE-MARK' defined here as PIC X(61) +SQ224A.CBL: in paragraph 'READ-FAIL-F1-02': +SQ224A.CBL:482: warning: value size exceeds data size +SQ224A.CBL:482: note: value size is 81 +SQ224A.CBL:139: note: 'RE-MARK' defined here as PIC X(61) +]) AT_CHECK([./SQ224A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ225A]) +AT_SETUP([SQ225A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ225A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ225A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ225A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ225A.CBL], [0], [], []) AT_CHECK([./SQ225A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ226A]) -# promoted on 2023-02-03T11:28 +AT_SETUP([SQ226A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ226A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ226A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ226A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ226A.CBL], [0], [], []) AT_CHECK([./SQ226A], [0], [], []) AT_CLEANUP -AT_SETUP([SQ / SQ227A]) -# promoted on 2023-02-03T11:28 +AT_SETUP([SQ227A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ227A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ227A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ227A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ227A.CBL], [0], [], [SQ227A.CBL: in section 'SECT-SQ227A-0002': +SQ227A.CBL: in paragraph 'SEQ-INIT-06': +SQ227A.CBL:1029: warning: value size exceeds data size +SQ227A.CBL:1029: note: value size is 26 +SQ227A.CBL:195: note: 'FEATURE' defined here as PIC X(24) +SQ227A.CBL: in paragraph 'SEQ-TEST-RW-06-01': +SQ227A.CBL:1056: warning: value size exceeds data size +SQ227A.CBL:1058: note: value size is 73 +SQ227A.CBL:199: note: 'RE-MARK' defined here as PIC X(61) +]) AT_CHECK([./SQ227A], [0], [], []) AT_CLEANUP -AT_SETUP([SQ / SQ228A]) -# promoted on 2023-02-03T11:28 +AT_SETUP([SQ228A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ228A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ228A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ228A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ228A.CBL], [0], [], [SQ228A.CBL: in section 'SECT-SQ228A-0002': +SQ228A.CBL: in paragraph 'SEQ-INIT-06': +SQ228A.CBL:702: warning: value size exceeds data size +SQ228A.CBL:702: note: value size is 26 +SQ228A.CBL:190: note: 'FEATURE' defined here as PIC X(24) +]) AT_CHECK([./SQ228A], [0], [], []) AT_CLEANUP -AT_SETUP([SQ / SQ229A]) +AT_SETUP([SQ229A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ229A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ229A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ229A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ229A.CBL], [0], [], []) AT_CHECK([./SQ229A], [0], [], []) + AT_CLEANUP -AT_SETUP([SQ / SQ230A]) -# promoted on 2023-02-03T11:28 +AT_SETUP([SQ230A]) +# promoted on 2023-02-04T01:19 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ230A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ230A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ230A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ230A.CBL], [0], [], []) AT_CHECK([./SQ230A], [0], [], []) AT_CLEANUP -AT_SETUP([SQ / SQ302M]) - +AT_SETUP([SQ302M]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ302M.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ302M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ302M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ302M.CBL], [0], [], []) AT_CHECK([./SQ302M], [0], [THIS IS A DUMMY PARAGRAPH ], []) AT_CLEANUP -AT_SETUP([SQ / SQ303M]) +AT_SETUP([SQ303M]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ303M.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ303M.CBL], [0]) -# AT_CHECK([./SQ303M], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ303M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ303M.CBL], [0], [], [SQ303M.CBL: in paragraph 'SQ303M-CONTROL': +SQ303M.CBL:42: warning: OPEN REVERSED is not implemented +]) + AT_CLEANUP -AT_SETUP([SQ / SQ401M]) +AT_SETUP([SQ401M]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([SQ]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ401M.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug SQ401M.CBL], [0]) -# AT_CHECK([./SQ401M], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ401M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 SQ401M.CBL], [0], [], [SQ401M.CBL:26: warning: RECORD DELIMITER STANDARD-1 ignored +SQ401M.CBL: in paragraph 'SQ401M-OPENREV': +SQ401M.CBL:109: warning: OPEN REVERSED is not implemented +SQ401M.CBL: in paragraph 'SQ401M-OPENNOREW': +SQ401M.CBL:114: warning: OPEN WITH NO REWIND is not implemented +]) + AT_CLEANUP diff --git a/tests/cobol85/testsuite.src/run_ST.at b/tests/cobol85/testsuite.src/run_ST.at index b1c97d375..c10aa8b11 100644 --- a/tests/cobol85/testsuite.src/run_ST.at +++ b/tests/cobol85/testsuite.src/run_ST.at @@ -1,337 +1,485 @@ # Generates XXXXX001 -AT_SETUP([ST / ST101A]) +AT_SETUP([ST101A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST101A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST101A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST101A.CBL], [0], [], []) AT_CHECK([./ST101A], [0], [], []) + AT_CLEANUP # Generates XXXXX002 -AT_SETUP([ST / ST102A]) +AT_SETUP([ST102A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST102A.SUB .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST102A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST102A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST102A.SUB], [0], [], []) AT_CHECK([./ST102A], [0], [], []) + AT_CLEANUP -AT_SETUP([ST / ST103A]) -# promoted on 2023-02-03T16:54 +AT_SETUP([ST103A]) +# promoted on 2023-02-04T01:26 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST102A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST102A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST102A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST102A.SUB], [0], [], []) AT_CHECK([./ST102A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST103A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST103A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST103A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST103A.SUB], [0], [], []) AT_CHECK([./ST103A], [0], [], []) AT_CLEANUP -AT_SETUP([ST / ST104A]) +AT_SETUP([ST104A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST104A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST104A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST104A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST104A.CBL], [0], [], []) AT_CHECK([./ST104A], [0], [], []) + AT_CLEANUP -AT_SETUP([ST / ST105A]) +AT_SETUP([ST105A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST105A.SUB .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST105A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST105A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST105A.SUB], [0], [], []) AT_CHECK([./ST105A], [0], [], []) + AT_CLEANUP # regenerates XXXXX001 -AT_SETUP([ST / ST106A]) +AT_SETUP([ST106A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST106A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST106A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST106A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST106A.CBL], [0], [], []) AT_CHECK([./ST106A], [0], [], []) + AT_CLEANUP -AT_SETUP([ST / ST107A]) -# promoted on 2023-02-03T17:00 +AT_SETUP([ST107A]) +# promoted on 2023-02-04T01:26 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST106A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST106A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST106A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST106A.CBL], [0], [], []) AT_CHECK([./ST106A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST107A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST107A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST107A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST107A.SUB], [0], [], []) AT_CHECK([./ST107A], [0], [], []) AT_CLEANUP -AT_SETUP([ST / ST108A]) +AT_SETUP([ST108A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST108A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST108A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST108A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST108A.CBL], [0], [], [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 +]) AT_CHECK([./ST108A], [0], [], []) + AT_CLEANUP -AT_SETUP([ST / ST109A]) +AT_SETUP([ST109A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST109A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST109A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST109A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST109A.CBL], [0], [], []) AT_CHECK([./ST109A], [0], [], []) + AT_CLEANUP -AT_SETUP([ST / ST110A]) +AT_SETUP([ST110A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST110A.SUB .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST110A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST110A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST110A.SUB], [0], [], []) AT_CHECK([./ST110A], [0], [], []) + AT_CLEANUP -AT_SETUP([ST / ST111A]) -# promoted on 2023-02-03T16:55 +AT_SETUP([ST111A]) +# promoted on 2023-02-04T01:26 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST102A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST102A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST102A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST102A.SUB], [0], [], []) AT_CHECK([./ST102A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST111A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST111A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST111A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST111A.SUB], [0], [], []) AT_CHECK([./ST111A], [0], [], []) AT_CLEANUP -AT_SETUP([ST / ST112M]) +AT_SETUP([ST112M]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST112M.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST112M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST112M.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST112M.CBL], [0], [], []) AT_CHECK([./ST112M], [0], [], []) + AT_CLEANUP -AT_SETUP([ST / ST113M]) +AT_SETUP([ST113M]) AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST113M.SUB .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST113M.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST113M.SUB .],[0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST113M.SUB], [0], [], []) AT_CHECK([./ST113M], [0], [], []) AT_CLEANUP -AT_SETUP([ST / ST114M]) -# promoted on 2023-02-03T16:55 +AT_SETUP([ST114M]) +# promoted on 2023-02-04T01:26 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST101A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST101A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST101A.CBL], [0], [], []) AT_CHECK([./ST101A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST114M.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST114M.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST114M.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST114M.SUB], [0], [], []) AT_CHECK([./ST114M], [0], [], []) AT_CLEANUP -AT_SETUP([ST / ST115A]) +AT_SETUP([ST115A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST115A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST115A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST115A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST115A.CBL], [0], [], []) AT_CHECK([./ST115A], [0], [], []) + AT_CLEANUP -AT_SETUP([ST / ST116A]) +AT_SETUP([ST116A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST116A.SUB .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST116A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST116A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST116A.SUB], [0], [], []) AT_CHECK([./ST116A], [0], [], []) + AT_CLEANUP -AT_SETUP([ST / ST117A]) -# promoted on 2023-02-03T16:55 +AT_SETUP([ST117A]) +# promoted on 2023-02-04T01:26 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST102A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST102A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST102A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST102A.SUB], [0], [], []) AT_CHECK([./ST102A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST117A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST117A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST117A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST117A.SUB], [0], [], []) AT_CHECK([./ST117A], [0], [], []) AT_CLEANUP -AT_SETUP([ST / ST118A]) +AT_SETUP([ST118A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST118A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST118A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST118A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST118A.CBL], [0], [], [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 +]) AT_CHECK([./ST118A], [0], [], []) + AT_CLEANUP -AT_SETUP([ST / ST119A]) +AT_SETUP([ST119A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST119A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST119A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST119A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST119A.CBL], [0], [], []) AT_CHECK([./ST119A], [0], [], []) + AT_CLEANUP -AT_SETUP([ST / ST120A]) +AT_SETUP([ST120A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST120A.SUB .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST120A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST120A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST120A.SUB], [0], [], []) AT_CHECK([./ST120A], [0], [], []) + AT_CLEANUP -AT_SETUP([ST / ST121A]) -# promoted on 2023-02-03T16:55 +AT_SETUP([ST121A]) +# promoted on 2023-02-04T01:26 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST102A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST102A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST102A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST102A.SUB], [0], [], []) AT_CHECK([./ST102A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST121A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST121A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST121A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST121A.SUB], [0], [], []) AT_CHECK([./ST121A], [0], [], []) AT_CLEANUP -AT_SETUP([ST / ST122A]) +AT_SETUP([ST122A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST122A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST122A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST122A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST122A.CBL], [0], [], []) AT_CHECK([./ST122A], [0], [], []) + AT_CLEANUP -AT_SETUP([ST / ST123A]) +AT_SETUP([ST123A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST123A.SUB .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST123A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST123A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST123A.SUB], [0], [], []) AT_CHECK([./ST123A], [0], [], []) + AT_CLEANUP -AT_SETUP([ST / ST124A]) -# promoted on 2023-02-03T16:55 +AT_SETUP([ST124A]) +# promoted on 2023-02-04T01:26 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST102A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST102A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST102A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST102A.SUB], [0], [], []) AT_CHECK([./ST102A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST124A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST124A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST124A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST124A.SUB], [0], [], []) AT_CHECK([./ST124A], [0], [], []) AT_CLEANUP -AT_SETUP([ST / ST125A]) +AT_SETUP([ST125A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST125A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST125A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST125A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST125A.CBL], [0], [], []) AT_CHECK([./ST125A], [0], [], []) + AT_CLEANUP -AT_SETUP([ST / ST126A]) -# promoted on 2023-02-03T17:01 +AT_SETUP([ST126A]) +# promoted on 2023-02-04T01:27 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST101A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST101A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST101A.CBL], [0], [], []) AT_CHECK([./ST101A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST102A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST102A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST102A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST102A.SUB], [0], [], []) AT_CHECK([./ST102A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST125A.CBL .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST125A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST125A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST125A.CBL], [0], [], []) AT_CHECK([./ST125A], [0], [], []) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST126A.SUB .], [0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST126A.SUB], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST126A.SUB .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST126A.SUB], [0], [], []) AT_CHECK([./ST126A], [0], [], []) AT_CLEANUP -AT_SETUP([ST / ST127A]) +AT_SETUP([ST127A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST127A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST127A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST127A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST127A.CBL], [0], [], [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 +]) AT_CHECK([./ST127A], [0], [], []) + AT_CLEANUP -AT_SETUP([ST / ST131A]) +AT_SETUP([ST131A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST131A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST131A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST131A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST131A.CBL], [0], [], []) AT_CHECK([./ST131A], [0], [], []) + AT_CLEANUP -AT_SETUP([ST / ST132A]) +AT_SETUP([ST132A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST132A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST132A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST132A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST132A.CBL], [0], [], []) AT_CHECK([./ST132A], [0], [], []) + AT_CLEANUP -AT_SETUP([ST / ST133A]) +AT_SETUP([ST133A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST133A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST133A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST133A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST133A.CBL], [0], [], []) AT_CHECK([./ST133A], [0], [], []) + AT_CLEANUP -AT_SETUP([ST / ST134A]) +AT_SETUP([ST134A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST134A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST134A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST134A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST134A.CBL], [0], [], []) AT_CHECK([./ST134A], [0], [], []) + AT_CLEANUP -AT_SETUP([ST / ST135A]) +AT_SETUP([ST135A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST135A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST135A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST135A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST135A.CBL], [0], [], []) AT_CHECK([./ST135A], [0], [], []) + AT_CLEANUP -AT_SETUP([ST / ST136A]) +AT_SETUP([ST136A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST136A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST136A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST136A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST136A.CBL], [0], [], []) AT_CHECK([./ST136A], [0], [], []) + AT_CLEANUP -AT_SETUP([ST / ST137A]) +AT_SETUP([ST137A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST137A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST137A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST137A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST137A.CBL], [0], [], [ST137A.CBL: in section 'SECT-ST216-DEC': +ST137A.CBL: in paragraph 'SRT-WRITE-DEC': +ST137A.CBL:397: warning: value size exceeds data size +ST137A.CBL:397: note: value size is 21 +ST137A.CBL:253: note: 'FEATURE' defined here as PIC X(20) +]) AT_CHECK([./ST137A], [0], [], []) + AT_CLEANUP -AT_SETUP([ST / ST139A]) -AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST139A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST139A.CBL], [0]) +AT_SETUP([ST139A]) +# promoted on 2023-02-04T01:25 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST139A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST139A.CBL], [0], [], [ST139A.CBL: in section 'SECT-ST209-DEC': +ST139A.CBL: in paragraph 'MRG-WRITE-DEC': +ST139A.CBL:430: warning: value size exceeds data size +ST139A.CBL:430: note: value size is 21 +ST139A.CBL:286: note: 'FEATURE' defined here as PIC X(20) +ST139A.CBL: in section 'SECT-ST209-0001': +ST139A.CBL: in paragraph 'MRG-WRITE-003': +ST139A.CBL:657: warning: value size exceeds data size +ST139A.CBL:657: note: value size is 21 +ST139A.CBL:286: note: 'FEATURE' defined here as PIC X(20) +ST139A.CBL: in paragraph 'MRG-WRITE-004': +ST139A.CBL:677: warning: value size exceeds data size +ST139A.CBL:677: note: value size is 21 +ST139A.CBL:286: note: 'FEATURE' defined here as PIC X(20) +ST139A.CBL: in paragraph 'MRG-WRITE-005': +ST139A.CBL:697: warning: value size exceeds data size +ST139A.CBL:697: note: value size is 21 +ST139A.CBL:286: note: 'FEATURE' defined here as PIC X(20) +ST139A.CBL: in paragraph 'MRG-WRITE-006': +ST139A.CBL:717: warning: value size exceeds data size +ST139A.CBL:717: note: value size is 21 +ST139A.CBL:286: note: 'FEATURE' defined here as PIC X(20) +ST139A.CBL: in paragraph 'MRG-WRITE-007': +ST139A.CBL:737: warning: value size exceeds data size +ST139A.CBL:737: note: value size is 21 +ST139A.CBL:286: note: 'FEATURE' defined here as PIC X(20) +ST139A.CBL: in paragraph 'MRG-WRITE-008': +ST139A.CBL:757: warning: value size exceeds data size +ST139A.CBL:757: note: value size is 21 +ST139A.CBL:286: note: 'FEATURE' defined here as PIC X(20) +ST139A.CBL: in paragraph 'MRG-FAIL-010': +ST139A.CBL:787: warning: alphanumeric value is expected +ST139A.CBL:320: note: 'CR-18V0' defined here as a group of length 20 +]) AT_CHECK([./ST139A], [0], [], []) + AT_CLEANUP -AT_SETUP([ST / ST140A]) +AT_SETUP([ST140A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST140A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST140A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST140A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST140A.CBL], [0], [], [ST140A.CBL: in section 'SECT-ST210-DEC': +ST140A.CBL: in paragraph 'SRT-WRITE-DEC': +ST140A.CBL:462: warning: value size exceeds data size +ST140A.CBL:462: note: value size is 21 +ST140A.CBL:318: note: 'FEATURE' defined here as PIC X(20) +ST140A.CBL: in section 'SECT-ST210-0001': +ST140A.CBL: in paragraph 'SRT-FAIL-010': +ST140A.CBL:848: warning: alphanumeric value is expected +ST140A.CBL:352: note: 'CR-18V0' defined here as a group of length 20 +]) AT_CHECK([./ST140A], [0], [], []) + AT_CLEANUP -AT_SETUP([ST / ST144A]) +AT_SETUP([ST144A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST144A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST144A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST144A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST144A.CBL], [0], [], [ST144A.CBL: in section 'SECT-ST214-DEC': +ST144A.CBL: in paragraph 'SRT-WRITE-DEC': +ST144A.CBL:464: warning: value size exceeds data size +ST144A.CBL:464: note: value size is 21 +ST144A.CBL:320: note: 'FEATURE' defined here as PIC X(20) +ST144A.CBL: in section 'SECT-ST214-0001': +ST144A.CBL: in paragraph 'SRT-FAIL-010': +ST144A.CBL:849: warning: alphanumeric value is expected +ST144A.CBL:354: note: 'CR-18V0' defined here as a group of length 20 +]) AT_CHECK([./ST144A], [0], [], []) + AT_CLEANUP -AT_SETUP([ST / ST146A]) +AT_SETUP([ST146A]) +# promoted on 2023-02-04T01:25 AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST146A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST146A.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST146A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST146A.CBL], [0], [], []) AT_CHECK([./ST146A], [0], [], []) + AT_CLEANUP -AT_SETUP([ST / ST147A]) -AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST147A.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST147A.CBL], [0]) +AT_SETUP([ST147A]) +# promoted on 2023-02-04T01:25 +AT_KEYWORDS([ST]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST147A.CBL .], [0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST147A.CBL], [0], [], [ST147A.CBL: in section 'SECT-ST209-DEC': +ST147A.CBL: in paragraph 'MRG-WRITE-DEC': +ST147A.CBL:484: warning: value size exceeds data size +ST147A.CBL:484: note: value size is 21 +ST147A.CBL:340: note: 'FEATURE' defined here as PIC X(20) +ST147A.CBL: in section 'SECT-ST417-001': +ST147A.CBL: in paragraph 'MRG-FAIL-010': +ST147A.CBL:842: warning: alphanumeric value is expected +ST147A.CBL:374: note: 'CR-18V0' defined here as a group of length 20 +ST147A.CBL: in section 'READ-SQ-FS3': +ST147A.CBL: in paragraph 'MRG-FAIL-018': +ST147A.CBL:1010: warning: alphanumeric value is expected +ST147A.CBL:374: note: 'CR-18V0' defined here as a group of length 20 +ST147A.CBL: in section 'READ-SQ-FS4': +ST147A.CBL: in paragraph 'MRG-FAIL-026': +ST147A.CBL:1178: warning: alphanumeric value is expected +ST147A.CBL:374: note: 'CR-18V0' defined here as a group of length 20 +]) AT_CHECK([./ST147A], [0], [], []) + AT_CLEANUP -AT_SETUP([ST / ST301M]) +AT_SETUP([ST301M]) AT_KEYWORDS([ST]) -AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST301M.CBL .],[0]) -AT_CHECK([$COMPILE -std=cobol85 -x -debug ST301M.CBL], [0]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST301M.CBL .],[0], [], []) +AT_CHECK([$COMPILE -std=cobol85 ST301M.CBL], [0], [], []) # AT_CHECK([./ST301M], [0], [], []) AT_CLEANUP