diff --git a/.autofonce b/.autofonce index 61670563c..2858c4750 100644 --- a/.autofonce +++ b/.autofonce @@ -24,8 +24,8 @@ file = "tests/testsuite.at" path = [ "tests/testsuite.src"] env = "testsuite" [testsuites.nist] -file = "tests/cobol85/nist.at" -path = [ "tests/cobol85/nistrun.src"] +file = "tests/nistrun.at" +path = [ "tests/nistrun.src"] env = "testsuite" [envs] diff --git a/tests/Makefile.am b/tests/Makefile.am index 158f774d3..bec85ef41 100644 --- a/tests/Makefile.am +++ b/tests/Makefile.am @@ -23,9 +23,10 @@ SUBDIRS = cobol85 TESTSUITE = $(srcdir)/testsuite TESTSUITE_MANUAL = $(srcdir)/testsuite_manual +TESTSUITE_NIST = $(srcdir)/nistrun dist_check_SCRIPTS = listings-sed.sh -dist_noinst_SCRIPTS = $(TESTSUITE) $(TESTSUITE_MANUAL) +dist_noinst_SCRIPTS = $(TESTSUITE) $(TESTSUITE_MANUAL) $(TESTSUITE_NIST) testsuite_sources = \ testsuite.src/used_binaries.at \ @@ -68,10 +69,24 @@ testsuite_sources = \ testsuite_manual_sources = \ testsuite.src/run_manual_screen.at +testsuite_nist_sources = \ + nistrun.src/run_DB.at \ + nistrun.src/run_IC.at \ + nistrun.src/run_IF.at \ + nistrun.src/run_IX.at \ + nistrun.src/run_NC.at \ + nistrun.src/run_OB.at \ + nistrun.src/run_RL.at \ + nistrun.src/run_RW.at \ + nistrun.src/run_SG.at \ + nistrun.src/run_SM.at \ + nistrun.src/run_SQ.at \ + nistrun.src/run_ST.at + EXTRA_DIST = $(srcdir)/package.m4 \ - $(srcdir)/testsuite.at $(srcdir)/testsuite_manual.at \ + $(srcdir)/testsuite.at $(srcdir)/testsuite_manual.at $(srrdir)/nistrun.at \ $(srcdir)/listings-sed.sh \ - $(testsuite_sources) $(testsuite_manual_sources) + $(testsuite_sources) $(testsuite_manual_sources) $(testsuite_nist_sources) DISTCLEANFILES = atconfig @@ -98,6 +113,9 @@ prereq-testsuite: $(TESTSUITE) atlocal prereq-manual: $(TESTSUITE_MANUAL) atlocal run_prog_manual.sh @rm -rf testsuite_manual.dir +prereq-nistrun: $(TESTSUITE_NIST) atlocal + @rm -rf nistrun.dir + clean-local: rm -rf *.dir *.log *.out valgrind @@ -107,7 +125,7 @@ checkmanual: prereq-manual # targets that are only logical targets instead of files .PHONY: test checkall checkmanual localcheck \ - prereq-check prereq-testsuite prereq-manual + prereq-check prereq-testsuite prereq-manual prereq-nistrun test: atlocal @echo testing for perl && $(PERL) -v 1>/dev/null \ @@ -129,9 +147,13 @@ $(srcdir)/package.m4: $(top_srcdir)/configure.ac } > $(srcdir)/package.m4 $(TESTSUITE): $(testsuite_sources) $(srcdir)/package.m4 $(srcdir)/testsuite.at - autom4te --language=autotest -I $(srcdir) -I $(srcdir)/testsuite.src -o $(srcdir)/testsuite $(srcdir)/testsuite.at + autom4te --language=autotest -I $(srcdir) -I $(srcdir)/testsuite.src -I $(srcdir)/testsuite.src -o $(srcdir)/testsuite $(srcdir)/testsuite.at chmod +x $(srcdir)/testsuite $(TESTSUITE_MANUAL): $(testsuite_manual_sources) $(srcdir)/package.m4 $(srcdir)/testsuite_manual.at autom4te --language=autotest -I $(srcdir) -I $(srcdir)/testsuite.src -o $(srcdir)/testsuite_manual $(srcdir)/testsuite_manual.at chmod +x $(srcdir)/testsuite_manual + +$(TESTSUITE_NIST): $(testsuite_nist_sources) $(srcdir)/package.m4 $(srcdir)/nistrun.at + autom4te --language=autotest -I $(srcdir) -I $(srcdir)/nistrun.src -o $(srcdir)/nistrun $(srcdir)/nistrun.at + chmod +x $(srcdir)/nistrun diff --git a/tests/gentests.ml b/tests/gentests.ml new file mode 100644 index 000000000..85302b420 --- /dev/null +++ b/tests/gentests.ml @@ -0,0 +1,749 @@ + +(* Current problems: +IX: +AT_CHECK([./IX119A], [1], [], [libcob: IX119A.SUB:408: error: stack overflow, possible PERFORM depth exceeded + +RL: +AT_CHECK([./RL207A], [1], [], [libcob: RL207A.SUB:456: error: 'XRECORD-NUMBER' (Type: NUMERIC DISPLAY) not numeric: '\000\000\000\000\000\000' +*) + +let tests = [ + ( "DB", [ + "DB101A" ; + "DB102A" ; + "DB103M" ; + "DB104A" ; + "DB105A" ; + "DB201A" ; + "DB202A" ; + "DB203A" ; + "DB204A" ; + "DB205A" ; + "DB301M" ; + "DB302M" ; + "DB303M" ; + "DB304M" ; + "DB305M" ; + ]); + ( "IC", [ + "IC102A" ; + "IC104A" ; + "IC105A" ; + "IC107A" ; + "IC109A" ; + "IC110A" ; + "IC111A" ; + "IC113A" ; + "IC115A" ; + "IC117M" ; + "IC118M" ; + "IC202A" ; + "IC204A" ; + "IC205A" ; + "IC206A" ; + "IC208A" ; + "IC210A" ; + "IC211A" ; + "IC212A" ; + "IC214A" ; + "IC215A" ; + "IC217A" ; + "IC101A" ; + "IC103A" ; + "IC106A" ; + "IC108A" ; + "IC112A" ; + "IC114A" ; + "IC116M" ; + "IC201A" ; + "IC203A" ; + "IC207A" ; + "IC209A" ; + "IC213A" ; + "IC216A" ; + "IC222A" ; + "IC223A" ; + "IC224A" ; + "IC225A" ; + "IC226A" ; + "IC227A" ; + "IC228A" ; + "IC233A" ; + "IC234A" ; + "IC235A" ; + "IC237A" ; + "IC401M" ; + ]); + ( "IF", [ + "IF101A" ; + "IF102A" ; + "IF103A" ; + "IF104A" ; + "IF105A" ; + "IF106A" ; + "IF107A" ; + "IF108A" ; + "IF109A" ; + "IF110A" ; + "IF111A" ; + "IF112A" ; + "IF113A" ; + "IF114A" ; + "IF115A" ; + "IF116A" ; + "IF117A" ; + "IF118A" ; + "IF119A" ; + "IF120A" ; + "IF121A" ; + "IF122A" ; + "IF123A" ; + "IF124A" ; + "IF125A" ; + "IF126A" ; + "IF127A" ; + "IF128A" ; + "IF129A" ; + "IF130A" ; + "IF131A" ; + "IF132A" ; + "IF133A" ; + "IF134A" ; + "IF135A" ; + "IF136A" ; + "IF137A" ; + "IF138A" ; + "IF139A" ; + "IF140A" ; + "IF141A" ; + "IF142A" ; + "IF401M" ; + "IF402M" ; + "IF403M" ; + ]); + ( "IX", [ + "IX101A" ; + "IX102A" ; + "IX103A" ; + "IX104A" ; + "IX105A" ; + "IX106A" ; + "IX107A" ; + "IX108A" ; + "IX109A" ; + "IX110A" ; + "IX111A" ; + "IX112A" ; + "IX113A" ; + "IX114A" ; + "IX115A" ; + "IX116A" ; + "IX117A" ; + "IX118A" ; + "IX119A" ; + "IX120A" ; + "IX121A" ; + "IX201A" ; + "IX202A" ; + "IX203A" ; + "IX204A" ; + "IX205A" ; + "IX206A" ; + "IX207A" ; + "IX208A" ; + "IX209A" ; + "IX210A" ; + "IX211A" ; + "IX212A" ; + "IX213A" ; + "IX214A" ; + "IX215A" ; + "IX216A" ; + "IX217A" ; + "IX218A" ; + "IX301M" ; + "IX302M" ; + "IX401M" ; + ]); + ( "NC", [ + "NC101A" ; + "NC102A" ; + "NC103A" ; + "NC104A" ; + "NC105A" ; + "NC106A" ; + "NC107A" ; + "NC108M" ; + "NC109M" ; + "NC110M" ; + "NC111A" ; + "NC112A" ; + "NC113M" ; + "NC114M" ; + "NC115A" ; + "NC116A" ; + "NC117A" ; + "NC118A" ; + "NC119A" ; + "NC120A" ; + "NC121M" ; + "NC122A" ; + "NC123A" ; + "NC124A" ; + "NC125A" ; + "NC126A" ; + "NC127A" ; + "NC131A" ; + "NC132A" ; + "NC133A" ; + "NC134A" ; + "NC135A" ; + "NC136A" ; + "NC137A" ; + "NC138A" ; + "NC139A" ; + "NC140A" ; + "NC141A" ; + "NC170A" ; + "NC171A" ; + "NC172A" ; + "NC173A" ; + "NC174A" ; + "NC175A" ; + "NC176A" ; + "NC177A" ; + "NC201A" ; + "NC202A" ; + "NC203A" ; + "NC204M" ; + "NC205A" ; + "NC206A" ; + "NC207A" ; + "NC208A" ; + "NC209A" ; + "NC210A" ; + "NC211A" ; + "NC214M" ; + "NC215A" ; + "NC216A" ; + "NC217A" ; + "NC218A" ; + "NC219A" ; + "NC220M" ; + "NC221A" ; + "NC222A" ; + "NC223A" ; + "NC224A" ; + "NC225A" ; + "NC231A" ; + "NC232A" ; + "NC233A" ; + "NC234A" ; + "NC235A" ; + "NC236A" ; + "NC237A" ; + "NC238A" ; + "NC239A" ; + "NC240A" ; + "NC241A" ; + "NC242A" ; + "NC243A" ; + "NC244A" ; + "NC245A" ; + "NC246A" ; + "NC247A" ; + "NC248A" ; + "NC250A" ; + "NC251A" ; + "NC252A" ; + "NC253A" ; + "NC254A" ; + "NC302M" ; + "NC303M" ; + "NC401M" ; + ]); + ( "OB", [ + "OBIC2A" ; + "OBIC3A" ; + "OBIC1A" ; + "OBNC1M" ; + "OBNC2M" ; + "OBSQ1A" ; + "OBSQ3A" ; + "OBSQ4A" ; + "OBSQ5A" ; + ]); + ( "RL", [ + "RL101A" ; + "RL102A" ; + "RL103A" ; + "RL104A" ; + "RL105A" ; + "RL106A" ; + "RL107A" ; + "RL108A" ; + "RL109A" ; + "RL110A" ; + "RL111A" ; + "RL112A" ; + "RL113A" ; + "RL114A" ; + "RL115A" ; + "RL116A" ; + "RL117A" ; + "RL118A" ; + "RL119A" ; + "RL201A" ; + "RL202A" ; + "RL203A" ; + "RL204A" ; + "RL205A" ; + "RL206A" ; + "RL207A" ; + "RL208A" ; + "RL209A" ; + "RL210A" ; + "RL211A" ; + "RL212A" ; + "RL213A" ; + "RL301M" ; + "RL302M" ; + "RL401M" ; + ]); + ( "RW", [ + "RW101A" ; + "RW102A" ; + "RW103A" ; + "RW104A" ; + "RW301M" ; + "RW302M" ; + ]); + ( "SG", [ + "SG101A" ; + "SG102A" ; + "SG103A" ; + "SG104A" ; + "SG105A" ; + "SG106A" ; + "SG201A" ; + "SG202A" ; + "SG203A" ; + "SG204A" ; + "SG302M" ; + "SG303M" ; + "SG401M" ; + ]); + ( "SM", [ + "SM101A" ; + "SM102A" ; + "SM103A" ; + "SM104A" ; + "SM105A" ; + "SM106A" ; + "SM107A" ; + "SM201A" ; + "SM202A" ; + "SM203A" ; + "SM204A" ; + "SM205A" ; + "SM206A" ; + "SM207A" ; + "SM208A" ; + "SM301M" ; + "SM401M" ; + ]); + ( "SQ", [ + "SQ101M" ; + "SQ102A" ; + "SQ103A" ; + "SQ104A" ; + "SQ105A" ; + "SQ106A" ; + "SQ107A" ; + "SQ108A" ; + "SQ109M" ; + "SQ110M" ; + "SQ111A" ; + "SQ112A" ; + "SQ113A" ; + "SQ114A" ; + "SQ115A" ; + "SQ116A" ; + "SQ117A" ; + "SQ121A" ; + "SQ122A" ; + "SQ123A" ; + "SQ124A" ; + "SQ125A" ; + "SQ126A" ; + "SQ127A" ; + "SQ128A" ; + "SQ129A" ; + "SQ130A" ; + "SQ131A" ; + "SQ132A" ; + "SQ133A" ; + "SQ134A" ; + "SQ135A" ; + "SQ136A" ; + "SQ137A" ; + "SQ138A" ; + "SQ139A" ; + "SQ140A" ; + "SQ141A" ; + "SQ142A" ; + "SQ143A" ; + "SQ144A" ; + "SQ146A" ; + "SQ147A" ; + "SQ148A" ; + "SQ149A" ; + "SQ150A" ; + "SQ151A" ; + "SQ152A" ; + "SQ153A" ; + "SQ154A" ; + "SQ155A" ; + "SQ156A" ; + "SQ201M" ; + "SQ202A" ; + "SQ203A" ; + "SQ204A" ; + "SQ205A" ; + "SQ206A" ; + "SQ207M" ; + "SQ208M" ; + "SQ209M" ; + "SQ210M" ; + "SQ211A" ; + "SQ212A" ; + "SQ213A" ; + "SQ214A" ; + "SQ215A" ; + "SQ216A" ; + "SQ217A" ; + "SQ218A" ; + "SQ219A" ; + "SQ220A" ; + "SQ221A" ; + "SQ222A" ; + "SQ223A" ; + "SQ224A" ; + "SQ225A" ; + "SQ226A" ; + "SQ227A" ; + "SQ228A" ; + "SQ229A" ; + "SQ230A" ; + "SQ302M" ; + "SQ303M" ; + "SQ401M" ; + ]); + ( "ST", [ + "ST101A" ; + "ST102A" ; + "ST103A" ; + "ST104A" ; + "ST105A" ; + "ST106A" ; + "ST107A" ; + "ST108A" ; + "ST109A" ; + "ST110A" ; + "ST111A" ; + "ST112M" ; + "ST113M" ; + "ST114M" ; + "ST115A" ; + "ST116A" ; + "ST117A" ; + "ST118A" ; + "ST119A" ; + "ST120A" ; + "ST121A" ; + "ST122A" ; + "ST123A" ; + "ST124A" ; + "ST125A" ; + "ST126A" ; + "ST127A" ; + "ST131A" ; + "ST132A" ; + "ST133A" ; + "ST134A" ; + "ST135A" ; + "ST136A" ; + "ST137A" ; + "ST139A" ; + "ST140A" ; + "ST144A" ; + "ST146A" ; + "ST147A" ; + "ST301M" ; + ]); +] + +let () = + + let dir = "nistrun.src" in + List.iter (fun (ext, tests) -> + + + let nist_dir = Filename.concat "../_build/tests/cobol85" ext in + + let find_file ext test = + let file = test ^ ".CBL" in + if Sys.file_exists ( Filename.concat nist_dir file ) then + file, file + else + let lib_file = Filename.concat "lib" file in + if Sys.file_exists ( Filename.concat nist_dir lib_file ) then + lib_file, file + else + let file = test ^ ".SUB" in + if Sys.file_exists ( Filename.concat nist_dir file ) then + file, file + else + let lib_file = Filename.concat "lib" file in + if Sys.file_exists ( Filename.concat nist_dir lib_file ) then + lib_file, file + else + Printf.kprintf failwith "no file for test %s" test + in + + (* + assert (0 = + Printf.kprintf Sys.command "grep -v promoted %s/run_%s.at > %s/run_%s.at.old" dir ext dir ext); +*) + let file = Printf.sprintf "%s/run_%s.at" dir ext in + let oc = open_out file in + + List.iter (fun test -> + + let lib_file, test_file = find_file ext test in + + Printf.fprintf oc "AT_SETUP([%s])\n" test; + Printf.fprintf oc "AT_KEYWORDS([%s %s])\n" ext test; + + + if ext = "SM" then begin + Printf.fprintf oc "AT_CHECK([mkdir -p copy], [0], [], [])\n"; + Printf.fprintf oc "AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], [])\n"; + end; + + let modules, generators = + match test with + + | "IC101A" -> [ "IC102A" ], [] + | "IC103A" -> [ "IC104A" ; "IC105A" ], [] + | "IC106A" -> [ "IC107A" ], [] + | "IC108A" -> [ "IC109A" ; "IC110A" ; "IC111A" ], [] + | "IC112A" -> [ "IC113A" ], [] + | "IC114A" -> [ "IC115A" ], [] + | "IC116M" -> [ "IC117M" ; "IC118M" ], [] + | "IC201A" -> [ "IC202A" ], [] + | "IC203A" -> [ "IC204A" ; "IC205A" ; "IC206A" ], [] + | "IC207A" -> [ "IC208A" ], [] + | "IC209A" -> [ "IC210A" ; "IC211A" ; "IC212A" ], [] + | "IC213A" -> [ "IC214A" ; "IC215A" ], [] + | "IC216A" -> [ "IC217A" ], [] + + | "IX102A" + | "IX119A" + | "IX120A" + -> [], [ "IX101A.CBL" ] (* XXXXX024 *) + | "IX202A" + | "IX203A" -> [], [ "IX201A.CBL" ] (* XXXXX024 *) + + | "OBIC1A" -> [ "OBIC2A" ; "OBIC3A" ], [] + | "OBSQ4A" -> [], [ "OBSQ3A.CBL" ] (* XXXXX004 *) + | "OBSQ5A" -> [], [ "OBSQ3A.CBL" ] (* XXXXX009 *) +(* +run_IX.at358:AT_CHECK([./IX119A], [1], [], [libcob: IX119A.SUB:408: error: stack overflow, possible PERFORM depth exceeded +run_OB.at35:AT_CHECK([./OBIC1A], [1], [], [libcob: OBIC1A.CBL:60: error: module 'OBIC2A' not found +run_RL.at522:AT_CHECK([./RL207A], [1], [], [libcob: RL207A.SUB:456: error: 'XRECORD-NUMBER' (Type: NUMERIC DISPLAY) not numeric: '\000\000\000\000\000\000' +*) + | "RL102A" + | "RL103A" + -> [], [ "RL101A.CBL" ] (* XXXXX021 *) + | "RL109A" + | "RL110A" + -> [], [ "RL108A.CBL" ] (* XXXXX061 *) + | "RL202A" + | "RL203A" + -> [], [ "RL201A.CBL" ] (* XXXXX021 *) + | "RL207A" + | "RL208A" + -> [], [ "RL206A.CBL" ] (* XXXXX021 *) + + +(* +run_SM.at80:AT_CHECK([./SM102A], [1], [], [libcob: SM102A.SUB:307: error: file does not exist (status = 35) for file TEST-FILE ('XXXXX001') on OPEN +run_SM.at158:AT_CHECK([./SM104A], [1], [], [libcob: SM104A.SUB:311: error: file does not exist (status = 35) for file TEST-FILE ('XXXXX001') on OPEN +run_SM.at316:AT_CHECK([./SM202A], [1], [], [libcob: SM202A.SUB:338: error: file does not exist (status = 35) for file TEST-FILE ('XXXXX001') on OPEN +run_SM.at375:AT_CHECK([./SM204A], [1], [], [libcob: SM204A.SUB:310: error: file does not exist (status = 35) for file TEST-FILE ('XXXXX002') on OPEN +*) + | "SM102A" + -> [], [ "SM101A.CBL" ] (* XXXXX001 *) + | "SM104A" + -> [], [ "SM103A.CBL" ] (* XXXXX001 *) + | "SM202A" + -> [], [ "SM201A.CBL" ] (* XXXXX001 *) + | "SM204A" + -> [], [ "SM203A.CBL" ] (* XXXXX002 *) + + | "ST103A" + -> [], [ "ST102A.SUB" ] (* XXXXX002 *) + | "ST107A" + -> [], [ "ST106A.CBL" ] (* XXXXX001 *) + | "ST111A" + -> [], [ "ST110A.SUB" ] (* XXXXX002 *) +(* +run_ST.at226:AT_CHECK([./ST114M], [1], [], [libcob: ST114M.SUB:317: error: file does not exist (status = 35) for file SORTIN-1N ('XXXXX001') on OPEN +*) + | "ST114M" + -> [], [ "ST113M.SUB" ] (* XXXXX001 *) + | "ST117A" + -> [], [ "ST116A.SUB" ] (* XXXXX002 *) + | "ST121A" + -> [], [ "ST120A.SUB" ] (* XXXXX002 *) + | "ST124A" + -> [], [ "ST123A.SUB" ] (* XXXXX002 *) + +(* +run_ST.at430:AT_CHECK([./ST126A], [1], [], [libcob: ST126A.SUB:345: error: file does not exist (status = 35) for file SORTIN-1G ('XXXXX001') on OPEN +*) + | "ST126A" + -> [], [ "ST125A.CBL" ] (* XXXXX001 *) + + | _ -> [], [] + in + List.iter (fun m -> + Printf.fprintf oc {| +AT_CHECK([cp -f ${abs_builddir}/cobol85/%s/lib/%s.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 %s.CBL], [0], [], []) +|} ext m m + ) modules; + + List.iter (fun m -> + Printf.fprintf oc {| +AT_CHECK([cp -f ${abs_builddir}/cobol85/%s/%s .], [0], [], []) +AT_CHECK([$COMPILE85 %s], [0], [], []) +AT_CHECK([./%s], [0], [], []) +|} ext m m (Filename.chop_suffix m ".CBL") + ) generators; + + Printf.fprintf oc "AT_CHECK([cp -f ${abs_builddir}/cobol85/%s/%s .], [0], [], [])\n" ext lib_file ; + + let data_file = test ^ ".DAT" in + let has_data_file = + Sys.file_exists ( Filename.concat nist_dir data_file ) in + if has_data_file then begin + Printf.fprintf oc "AT_CHECK([cp -f ${abs_builddir}/cobol85/%s/%s .], [0], [], [])\n" ext data_file ; + end; + + let has_data_file = + has_data_file || + (match test with + | "NC302M" -> + Printf.fprintf oc "AT_DATA([NC302M.DAT], [\n])\n"; + true + | "OBNC1M" -> + Printf.fprintf oc {| +AT_CHECK([printf '\n\n\n\n\n\n\n\n\003' > OBNC1M.DAT], [0], [], []) +|}; + true + | _ -> false + ) + in + + let execute = + match test with + "IX301M" | "IX401M" + | "ST301M" + | "RL301M" + | "RL401M" + | "RW301M" + | "RW302M" + | "IC401M" + | "DB205A" + | "NC401M" + | "SQ303M" + | "SQ401M" + + -> false + | _ -> true + + in + if lib_file = test_file then begin + Printf.fprintf oc "AT_CHECK([$COMPILE85 %s], [0], [], [])\n" test_file ; + if not execute then + Printf.fprintf oc "# "; + + if has_data_file then + Printf.fprintf oc "AT_CHECK([./%s < %s], [0], [], [])\n" + test data_file + else + Printf.fprintf oc "AT_CHECK([./%s], [0], [], [])\n" test; + end else + Printf.fprintf oc "AT_CHECK([$COMPILE_MODULE85 %s], [0], [], [])\n" test_file ; + + if execute then begin + let check_report = + match test with + | "NC110M" + | "NC214M" + | "OBSQ3A" + | "ST102A" + | "ST109A" + | "ST110A" + | "ST112M" + | "ST113M" + | "ST115A" + | "ST116A" + | "ST120A" + | "ST122A" + | "ST123A" + | "DB301M" + | "DB302M" + | "DB303M" + | "DB305M" + | "IF402M" + -> false + + | "NC107A" -> + Printf.fprintf oc "AT_CHECK([$GREP INFORMATION REPORT], [0], [], [])\n"; + true + + | "NC113M" -> + Printf.fprintf oc "AT_CHECK([$GREP MARGIN REPORT], [0], [], [])\n"; + Printf.fprintf oc "AT_CHECK([$GREP VISUAL REPORT | tr -d ' '], [0], [], [])\n"; + false + + | "NC135A" -> + Printf.fprintf oc "AT_CHECK([$GREP -A 15 SPACES REPORT | tr -d ' '], [0], [], [])\n"; + true + | "NC121M" | "NC220M" -> + Printf.fprintf oc "AT_CHECK([$GREP INFORMATION REPORT | tr -d ' '], [0], [], [])\n"; + true + | _ -> + true + in + if check_report then + let report_log = Filename.concat nist_dir (test ^ ".log") in + if Sys.file_exists report_log then begin + (* assert ( 0 = Printf.kprintf Sys.command "cp -f %s nistrun.src/%s.REF" report_log test ); *) + Printf.fprintf oc "AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [], [])\n"; + end ; + + end; + Printf.fprintf oc "AT_CLEANUP\n\n"; + ) tests ; + + close_out oc ; + + (* + assert (0 = + Printf.kprintf Sys.command "diff -w -b -B %s/run_%s.at.old %s/run_%s.at" dir ext dir ext); +*) + ) tests diff --git a/tests/nistrun.at b/tests/nistrun.at new file mode 100644 index 000000000..38e5e380b --- /dev/null +++ b/tests/nistrun.at @@ -0,0 +1,63 @@ +## Copyright (C) 2023 Free Software Foundation, Inc. +## Written by Fabrice LE FESSANT +## +## This file is part of GnuCOBOL. +## +## The GnuCOBOL compiler is free software: you can redistribute it +## and/or modify it under the terms of the GNU General Public License +## as published by the Free Software Foundation, either version 3 of the +## License, or (at your option) any later version. +## +## GnuCOBOL is distributed in the hope that it will be useful, +## but WITHOUT ANY WARRANTY; without even the implied warranty of +## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +## GNU General Public License for more details. +## +## You should have received a copy of the GNU General Public License +## along with GnuCOBOL. If not, see . + +AT_COPYRIGHT([Test cases from NIST]) + +### GnuCOBOL Test Suite + +AT_INIT([GnuCOBOL NIST Tests]) +AT_COLOR_TESTS + +AT_TESTED([cobc cobcrun]) + +## General tests of used binaries +AT_BANNER([NC Tests]) +m4_include([run_NC.at]) + +AT_BANNER([SM Tests]) +m4_include([run_SM.at]) + +AT_BANNER([IC Tests]) +m4_include([run_IC.at]) + +AT_BANNER([SQ Tests]) +m4_include([run_SQ.at]) + +AT_BANNER([RL Tests]) +m4_include([run_RL.at]) + +AT_BANNER([ST Tests]) +m4_include([run_ST.at]) + +AT_BANNER([SG Tests]) +m4_include([run_SG.at]) + +AT_BANNER([OB Tests]) +m4_include([run_OB.at]) + +AT_BANNER([IF Tests]) +m4_include([run_IF.at]) + +AT_BANNER([RW Tests]) +m4_include([run_RW.at]) + +AT_BANNER([DB Tests]) +m4_include([run_DB.at]) + +AT_BANNER([IX Tests]) +m4_include([run_IX.at]) diff --git a/tests/nistrun.src/run_DB.at b/tests/nistrun.src/run_DB.at new file mode 100644 index 000000000..e28a21644 --- /dev/null +++ b/tests/nistrun.src/run_DB.at @@ -0,0 +1,397 @@ +AT_SETUP([DB101A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([DB DB101A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 DB101A.CBL], [0], [], [DB101A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +DB101A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +DB101A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +DB101A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +DB101A.CBL:64: warning: LABEL RECORDS is obsolete in COBOL 85 +DB101A.CBL:65: warning: DATA RECORDS is obsolete in COBOL 85 +DB101A.CBL: in section 'START-UP': +DB101A.CBL:222: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB101A.CBL: in section 'FALL-THROUGH-AND-SERIES': +DB101A.CBL:231: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB101A.CBL: in section 'GO-TO': +DB101A.CBL:236: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB101A.CBL: in section 'ALTER-PARAGRAPH': +DB101A.CBL:241: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB101A.CBL: in section 'LOOP-ITERATION': +DB101A.CBL:246: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB101A.CBL: in section 'PERFORM-THRU': +DB101A.CBL:251: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB101A.CBL: in section 'CCVS1': +DB101A.CBL: in paragraph 'ALTER-TEST-INIT': +DB101A.CBL:533: warning: ALTER is obsolete in COBOL 85 +]) +AT_CHECK([./DB101A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [005OF014TESTSWEREEXECUTEDSUCCESSFULLY +009TEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([DB102A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([DB DB102A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB102A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 DB102A.CBL], [0], [], [DB102A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +DB102A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +DB102A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +DB102A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +DB102A.CBL:58: warning: LABEL RECORDS is obsolete in COBOL 85 +DB102A.CBL:59: warning: DATA RECORDS is obsolete in COBOL 85 +DB102A.CBL: in section 'START-UP': +DB102A.CBL:216: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB102A.CBL: in section 'FALL-THROUGH-AND-SERIES': +DB102A.CBL:225: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB102A.CBL: in section 'GO-TO': +DB102A.CBL:230: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB102A.CBL: in section 'ALTER-PARAGRAPH': +DB102A.CBL:235: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB102A.CBL: in section 'LOOP-ITERATION': +DB102A.CBL:240: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB102A.CBL: in section 'PERFORM-THRU': +DB102A.CBL:245: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB102A.CBL: in section 'CCVS1': +DB102A.CBL: in paragraph 'ALTER-TEST-INIT': +DB102A.CBL:466: warning: ALTER is obsolete in COBOL 85 +]) +AT_CHECK([./DB102A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [014OF014TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([DB103M]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([DB DB103M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB103M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 DB103M.CBL], [0], [], [DB103M.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +DB103M.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +DB103M.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +DB103M.CBL:20: warning: SECURITY is obsolete in COBOL 85 +DB103M.CBL:56: warning: LABEL RECORDS is obsolete in COBOL 85 +DB103M.CBL:57: warning: DATA RECORDS is obsolete in COBOL 85 +DB103M.CBL: in section 'START-UP': +DB103M.CBL:214: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB103M.CBL: in section 'FALL-THROUGH-AND-SERIES': +DB103M.CBL:223: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB103M.CBL: in section 'GO-TO': +DB103M.CBL:228: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB103M.CBL: in section 'ALTER-PARAGRAPH': +DB103M.CBL:233: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB103M.CBL: in section 'LOOP-ITERATION': +DB103M.CBL:238: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB103M.CBL: in section 'PERFORM-THRU': +DB103M.CBL:243: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB103M.CBL: in section 'CCVS1': +DB103M.CBL: in paragraph 'ALTER-TEST-INIT': +DB103M.CBL:464: warning: ALTER is obsolete in COBOL 85 +]) +AT_CHECK([./DB103M], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [014OF014TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([DB104A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([DB DB104A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB104A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 DB104A.CBL], [0], [], [DB104A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +DB104A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +DB104A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +DB104A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +DB104A.CBL:74: warning: LABEL RECORDS is obsolete in COBOL 85 +DB104A.CBL:75: warning: DATA RECORDS is obsolete in COBOL 85 +DB104A.CBL:82: warning: LABEL RECORDS is obsolete in COBOL 85 +DB104A.CBL: in section 'SORT-IN-PROC': +DB104A.CBL:282: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB104A.CBL: in section 'SORT-OUT-PROC': +DB104A.CBL:290: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB104A.CBL: in section 'USE-PROC': +DB104A.CBL:295: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB104A.CBL: in section 'CCVS1': +DB104A.CBL: in paragraph 'BEGIN-FILE-GENERATION': +DB104A.CBL:413: warning: value size exceeds data size +DB104A.CBL:413: note: value size is 6 +DB104A.CBL:124: note: 'XPROGRAM-NAME' defined here as PIC X(5) +]) +AT_CHECK([./DB104A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [000OF003TESTSWEREEXECUTEDSUCCESSFULLY +003TEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([DB105A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([DB DB105A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB105A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 DB105A.CBL], [0], [], [DB105A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +DB105A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +DB105A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +DB105A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +DB105A.CBL:93: warning: LABEL RECORDS is obsolete in COBOL 85 +DB105A.CBL:94: warning: DATA RECORDS is obsolete in COBOL 85 +DB105A.CBL: in section 'DEBUG-ALL-PROCS': +DB105A.CBL:512: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB105A.CBL: in section 'CCVS1': +DB105A.CBL: in paragraph 'DE-LETE': +DB105A.CBL:546: warning: value size exceeds data size +DB105A.CBL:546: note: value size is 20 +DB105A.CBL:412: note: 'RE-MARK' defined here as PIC XXX +DB105A.CBL: in section 'PROC-021-GO--PASS-4': +DB105A.CBL: in paragraph 'PROC-025-ALTER-TEST-1': +DB105A.CBL:742: warning: ALTER is obsolete in COBOL 85 +DB105A.CBL: in paragraph 'PROC-030-ALTER-TEST-3': +DB105A.CBL:762: warning: ALTER is obsolete in COBOL 85 +DB105A.CBL: in paragraph 'PROC-032-ALTER-I': +DB105A.CBL:781: warning: ALTER is obsolete in COBOL 85 +DB105A.CBL: in paragraph 'PROC-040-PFM-TEST-1': +DB105A.CBL:805: warning: NEXT SENTENCE is archaic in COBOL 85 +DB105A.CBL: in paragraph 'PROC-045-PFM-B': +DB105A.CBL:836: warning: NEXT SENTENCE is archaic in COBOL 85 +DB105A.CBL: in paragraph 'PROC-047-PFM-TEST-3': +DB105A.CBL:848: warning: NEXT SENTENCE is archaic in COBOL 85 +DB105A.CBL: in paragraph 'PROC-055-PFM-TEST-4': +DB105A.CBL:863: warning: NEXT SENTENCE is archaic in COBOL 85 +DB105A.CBL: in paragraph 'PROC-061-PFM-TEST-5': +DB105A.CBL:878: warning: NEXT SENTENCE is archaic in COBOL 85 +DB105A.CBL: in section 'PROC-211-PFM-A-15': +DB105A.CBL: in paragraph 'PROC-000-PFM-C-15': +DB105A.CBL:1163: warning: value size exceeds data size +DB105A.CBL:1163: note: value size is 21 +DB105A.CBL:412: note: 'RE-MARK' defined here as PIC XXX +DB105A.CBL: in paragraph 'PROC-000-PFM-D-15': +DB105A.CBL:1168: warning: value size exceeds data size +DB105A.CBL:1168: note: value size is 26 +DB105A.CBL:412: note: 'RE-MARK' defined here as PIC XXX +DB105A.CBL: in section 'PROC-000-PFM-J-15': +DB105A.CBL: in paragraph 'PROC-000-PFM-K-15': +DB105A.CBL:1187: warning: value size exceeds data size +DB105A.CBL:1187: note: value size is 25 +DB105A.CBL:412: note: 'RE-MARK' defined here as PIC XXX +DB105A.CBL: in section '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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [000OF227TESTSWEREEXECUTEDSUCCESSFULLY +227TEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([DB201A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([DB DB201A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB201A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 DB201A.CBL], [0], [], [DB201A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +DB201A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +DB201A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +DB201A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +DB201A.CBL:64: warning: LABEL RECORDS is obsolete in COBOL 85 +DB201A.CBL:65: warning: DATA RECORDS is obsolete in COBOL 85 +DB201A.CBL: in section 'GO-TO-DEPENDING-PROC-1': +DB201A.CBL:233: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB201A.CBL: in section 'GO-TO-DEPENDING-PROC-2': +DB201A.CBL:244: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB201A.CBL: in section 'GO-TO-DEPENDING-PROC-3': +DB201A.CBL:257: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB201A.CBL: in section 'PERFORM-PROC-1': +DB201A.CBL:261: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB201A.CBL: in section 'TABLE-PROC-1': +DB201A.CBL:267: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB201A.CBL: in section 'QUAL-PROC-1': +DB201A.CBL:279: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB201A.CBL: in section 'QUAL-SUBC-PROC-1': +DB201A.CBL:284: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +]) +AT_CHECK([./DB201A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [007OF069TESTSWEREEXECUTEDSUCCESSFULLY +017TEST(S)FAILED +045TEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([DB202A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([DB DB202A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB202A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 DB202A.CBL], [0], [], [DB202A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +DB202A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +DB202A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +DB202A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +DB202A.CBL:58: warning: LABEL RECORDS is obsolete in COBOL 85 +DB202A.CBL:59: warning: DATA RECORDS is obsolete in COBOL 85 +DB202A.CBL:66: warning: LABEL RECORDS is obsolete in COBOL 85 +DB202A.CBL: in section 'FILENAME-PROC': +DB202A.CBL:254: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB202A.CBL: in section 'WRITE-PROC': +DB202A.CBL:264: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +]) +AT_CHECK([./DB202A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [002OF024TESTSWEREEXECUTEDSUCCESSFULLY +006TEST(S)FAILED +016TEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([DB203A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([DB DB203A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB203A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 DB203A.CBL], [0], [], [DB203A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +DB203A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +DB203A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +DB203A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +DB203A.CBL:67: warning: LABEL RECORDS is obsolete in COBOL 85 +DB203A.CBL:68: warning: DATA RECORDS is obsolete in COBOL 85 +DB203A.CBL:75: warning: LABEL RECORDS is obsolete in COBOL 85 +DB203A.CBL: in section 'FILENAME-PROC': +DB203A.CBL:271: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +]) +AT_CHECK([./DB203A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [000OF019TESTSWEREEXECUTEDSUCCESSFULLY +011TEST(S)FAILED +008TEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([DB204A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([DB DB204A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB204A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 DB204A.CBL], [0], [], [DB204A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +DB204A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +DB204A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +DB204A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +DB204A.CBL:63: warning: LABEL RECORDS is obsolete in COBOL 85 +DB204A.CBL:64: warning: DATA RECORDS is obsolete in COBOL 85 +DB204A.CBL:71: warning: LABEL RECORDS is obsolete in COBOL 85 +DB204A.CBL:77: warning: LABEL RECORDS is obsolete in COBOL 85 +DB204A.CBL:83: warning: LABEL RECORDS is obsolete in COBOL 85 +DB204A.CBL: in section 'MERGE-PROC': +DB204A.CBL:273: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +]) +AT_CHECK([./DB204A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [000OF004TESTSWEREEXECUTEDSUCCESSFULLY +001TEST(S)FAILED +003TEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([DB205A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([DB DB205A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB205A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 DB205A.CBL], [0], [], [DB205A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +DB205A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +DB205A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +DB205A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +DB205A.CBL:38: warning: LABEL RECORDS is obsolete in COBOL 85 +DB205A.CBL:39: warning: DATA RECORDS is obsolete in COBOL 85 +DB205A.CBL:172: warning: COMMUNICATION SECTION is obsolete in COBOL 85 +DB205A.CBL:172: warning: COMMUNICATION SECTION is not implemented +DB205A.CBL: in section 'DEBUG-PROCEDURE': +DB205A.CBL:188: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB205A.CBL: in section 'BEGIN-DB205A-TESTS': +DB205A.CBL: in paragraph 'ACCEPT-TEST-1': +DB205A.CBL:394: warning: ACCEPT MESSAGE COUNT is not implemented +]) + +AT_CLEANUP + +AT_SETUP([DB301M]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([DB DB301M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB301M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 DB301M.CBL], [0], [], [DB301M.CBL: in section 'BUGGING-2': +DB301M.CBL:33: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +]) +AT_CHECK([./DB301M], [0], [THIS IS A DUMMY PROCEDURE +], []) + +AT_CLEANUP + +AT_SETUP([DB302M]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([DB DB302M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB302M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 DB302M.CBL], [0], [], [DB302M.CBL: in section 'BUGGING': +DB302M.CBL:33: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +]) +AT_CHECK([./DB302M], [0], [THIS IS A DUMMY PROCEDURE +], []) + +AT_CLEANUP + +AT_SETUP([DB303M]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([DB DB303M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB303M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 DB303M.CBL], [0], [], [DB303M.CBL: in section 'BUGGING-2': +DB303M.CBL:33: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +DB303M.CBL: in section 'BUGGING-3': +DB303M.CBL:41: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +]) +AT_CHECK([./DB303M], [0], [THIS IS A DUMMY PROCEDURE +], []) + +AT_CLEANUP + +AT_SETUP([DB304M]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([DB DB304M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB304M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 DB304M.CBL], [0], [], [DB304M.CBL:15: warning: COMMUNICATION SECTION is obsolete in COBOL 85 +DB304M.CBL:15: warning: COMMUNICATION SECTION is not implemented +DB304M.CBL: in section 'BUGGING': +DB304M.CBL:28: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +]) +AT_CHECK([./DB304M], [0], [THIS IS A DUMMY PROCEDURE +], []) + +AT_CLEANUP + +AT_SETUP([DB305M]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([DB DB305M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB305M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 DB305M.CBL], [0], [], [DB305M.CBL: in section 'BUGGING': +DB305M.CBL:33: warning: USE FOR DEBUGGING is obsolete in COBOL 85 +]) +AT_CHECK([./DB305M], [0], [THIS IS A DUMMY PROCEDURE +], []) + +AT_CLEANUP + diff --git a/tests/nistrun.src/run_IC.at b/tests/nistrun.src/run_IC.at new file mode 100644 index 000000000..bf170dbff --- /dev/null +++ b/tests/nistrun.src/run_IC.at @@ -0,0 +1,568 @@ +AT_SETUP([IC102A]) +AT_KEYWORDS([IC IC102A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC102A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC102A.CBL], [0], [], []) +AT_CLEANUP + +AT_SETUP([IC104A]) +AT_KEYWORDS([IC IC104A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC104A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC104A.CBL], [0], [], []) +AT_CLEANUP + +AT_SETUP([IC105A]) +AT_KEYWORDS([IC IC105A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC105A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC105A.CBL], [0], [], []) +AT_CLEANUP + +AT_SETUP([IC107A]) +AT_KEYWORDS([IC IC107A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC107A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC107A.CBL], [0], [], []) +AT_CLEANUP + +AT_SETUP([IC109A]) +AT_KEYWORDS([IC IC109A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC109A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC109A.CBL], [0], [], []) +AT_CLEANUP + +AT_SETUP([IC110A]) +AT_KEYWORDS([IC IC110A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC110A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC110A.CBL], [0], [], []) +AT_CLEANUP + +AT_SETUP([IC111A]) +AT_KEYWORDS([IC IC111A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC111A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC111A.CBL], [0], [], []) +AT_CLEANUP + +AT_SETUP([IC113A]) +AT_KEYWORDS([IC IC113A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC113A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC113A.CBL], [0], [], []) +AT_CLEANUP + +AT_SETUP([IC115A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IC IC115A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC115A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 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 +]) + +AT_CLEANUP + +AT_SETUP([IC117M]) +AT_KEYWORDS([IC IC117M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC117M.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC117M.CBL], [0], [], []) +AT_CLEANUP + +AT_SETUP([IC118M]) +AT_KEYWORDS([IC IC118M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC118M.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC118M.CBL], [0], [], []) +AT_CLEANUP + +AT_SETUP([IC202A]) +AT_KEYWORDS([IC IC202A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC202A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC202A.CBL], [0], [], []) +AT_CLEANUP + +AT_SETUP([IC204A]) +AT_KEYWORDS([IC IC204A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC204A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC204A.CBL], [0], [], []) +AT_CLEANUP + +AT_SETUP([IC205A]) +AT_KEYWORDS([IC IC205A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC205A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC205A.CBL], [0], [], []) +AT_CLEANUP + +AT_SETUP([IC206A]) +AT_KEYWORDS([IC IC206A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC206A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC206A.CBL], [0], [], []) +AT_CLEANUP + +AT_SETUP([IC208A]) +AT_KEYWORDS([IC IC208A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC208A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC208A.CBL], [0], [], []) +AT_CLEANUP + +AT_SETUP([IC210A]) +AT_KEYWORDS([IC IC210A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC210A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC210A.CBL], [0], [], []) +AT_CLEANUP + +AT_SETUP([IC211A]) +AT_KEYWORDS([IC IC211A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC211A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC211A.CBL], [0], [], []) +AT_CLEANUP + +AT_SETUP([IC212A]) +AT_KEYWORDS([IC IC212A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC212A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC212A.CBL], [0], [], []) +AT_CLEANUP + +AT_SETUP([IC214A]) +AT_KEYWORDS([IC IC214A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC214A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC214A.CBL], [0], [], []) +AT_CLEANUP + +AT_SETUP([IC215A]) +AT_KEYWORDS([IC IC215A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC215A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC215A.CBL], [0], [], []) +AT_CLEANUP + +AT_SETUP([IC217A]) +AT_KEYWORDS([IC IC217A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC217A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC217A.CBL], [0], [], []) +AT_CLEANUP + +AT_SETUP([IC101A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IC IC101A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC102A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC102A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IC101A.CBL], [0], [], []) +AT_CHECK([./IC101A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [005OF005TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IC103A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IC IC103A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC104A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC104A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC105A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC105A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC103A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IC103A.CBL], [0], [], []) +AT_CHECK([./IC103A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [010OF010TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IC106A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IC IC106A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC107A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC107A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC106A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IC106A.CBL], [0], [], []) +AT_CHECK([./IC106A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [014OF014TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IC108A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IC IC108A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC109A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC109A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC110A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC110A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC111A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC111A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC108A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IC108A.CBL], [0], [], []) +AT_CHECK([./IC108A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [009OF009TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IC112A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IC IC112A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC113A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC113A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC112A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IC112A.CBL], [0], [], [IC112A.CBL:62: warning: LABEL RECORDS is obsolete in COBOL 85 +IC112A.CBL:63: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./IC112A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [003OF003TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IC114A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IC IC114A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC115A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 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 +]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC114A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IC114A.CBL], [0], [], []) +AT_CHECK([./IC114A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [003OF003TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IC116M]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IC IC116M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC117M.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC117M.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC118M.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC118M.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC116M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IC116M.CBL], [0], [], []) +AT_CHECK([./IC116M], [0], [ +IC117M CALLED +IC118M CALLED +RETURNED TO IC117M +], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IC201A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IC IC201A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC202A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC202A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC201A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [011OF011TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IC203A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IC IC203A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC204A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC204A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC205A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC205A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC206A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC206A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC203A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IC203A.CBL], [0], [], []) +AT_CHECK([./IC203A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [021OF021TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IC207A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IC IC207A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC208A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC208A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC207A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IC207A.CBL], [0], [], []) +AT_CHECK([./IC207A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [011OF011TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IC209A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IC IC209A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC210A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC210A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC211A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC211A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC212A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC212A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC209A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IC209A.CBL], [0], [], []) +AT_CHECK([./IC209A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [004OF004TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IC213A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IC IC213A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC214A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC214A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC215A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC215A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC213A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IC213A.CBL], [0], [], []) +AT_CHECK([./IC213A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [003OF003TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IC216A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IC IC216A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/lib/IC217A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 IC217A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC216A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [002OF002TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IC222A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IC IC222A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC222A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IC222A.CBL], [0], [], []) +AT_CHECK([./IC222A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [016OF016TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IC223A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IC IC223A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC223A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [011OF011TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IC224A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IC IC224A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC224A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IC224A.CBL], [0], [], []) +AT_CHECK([./IC224A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [044OF044TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IC225A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IC IC225A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC225A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [036OF036TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IC226A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IC IC226A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC226A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IC226A.CBL], [0], [], []) +AT_CHECK([./IC226A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [004OF004TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IC227A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IC IC227A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC227A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IC227A.CBL], [0], [], []) +AT_CHECK([./IC227A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [019OF023TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +004TEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IC228A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IC IC228A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC228A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IC228A.CBL], [0], [], []) +AT_CHECK([./IC228A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [004OF004TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IC233A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IC IC233A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC233A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IC233A.CBL], [0], [], []) +AT_CHECK([./IC233A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IC234A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IC IC234A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC234A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IC234A.CBL], [0], [], []) +AT_CHECK([./IC234A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IC235A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IC IC235A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC235A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [012OF012TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IC237A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IC IC237A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC237A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IC237A.CBL], [0], [], []) +AT_CHECK([./IC237A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IC401M]) +AT_KEYWORDS([IC IC401M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IC/IC401M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IC401M.CBL], [0], [], []) +# AT_CHECK([./IC401M], [0], [], []) +AT_CLEANUP + diff --git a/tests/nistrun.src/run_IF.at b/tests/nistrun.src/run_IF.at new file mode 100644 index 000000000..fcc9a6b74 --- /dev/null +++ b/tests/nistrun.src/run_IF.at @@ -0,0 +1,652 @@ +AT_SETUP([IF101A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF101A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF101A.CBL], [0], [], []) +AT_CHECK([./IF101A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [026OF026TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF102A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF102A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF102A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF102A.CBL], [0], [], []) +AT_CHECK([./IF102A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [013OF013TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF103A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF103A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF103A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF103A.CBL], [0], [], []) +AT_CHECK([./IF103A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [023OF023TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF104A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF104A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF104A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF104A.CBL], [0], [], []) +AT_CHECK([./IF104A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [027OF027TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF105A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF105A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF105A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF105A.CBL], [0], [], []) +AT_CHECK([./IF105A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [008OF008TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF106A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF106A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF106A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF106A.CBL], [0], [], []) +AT_CHECK([./IF106A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [030OF030TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF107A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IF IF107A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF107A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [002OF002TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF108A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF108A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF108A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF108A.CBL], [0], [], []) +AT_CHECK([./IF108A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [010OF010TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF109A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF109A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF109A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF109A.CBL], [0], [], []) +AT_CHECK([./IF109A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [008OF008TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF110A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF110A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF110A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF110A.CBL], [0], [], []) +AT_CHECK([./IF110A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [009OF009TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF111A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF111A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF111A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF111A.CBL], [0], [], []) +AT_CHECK([./IF111A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [023OF023TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF112A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF112A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF112A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF112A.CBL], [0], [], []) +AT_CHECK([./IF112A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [008OF008TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF113A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF113A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF113A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF113A.CBL], [0], [], []) +AT_CHECK([./IF113A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [008OF008TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF114A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IF IF114A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF114A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [023OF023TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF115A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IF IF115A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF115A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [008OF008TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF116A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF116A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF116A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF116A.CBL], [0], [], []) +AT_CHECK([./IF116A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [025OF025TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF117A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF117A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF117A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF117A.CBL], [0], [], []) +AT_CHECK([./IF117A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [032OF032TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF118A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF118A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF118A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF118A.CBL], [0], [], []) +AT_CHECK([./IF118A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [013OF013TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF119A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF119A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF119A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF119A.CBL], [0], [], []) +AT_CHECK([./IF119A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [023OF023TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF120A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF120A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF120A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF120A.CBL], [0], [], []) +AT_CHECK([./IF120A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [017OF017TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF121A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF121A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF121A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF121A.CBL], [0], [], []) +AT_CHECK([./IF121A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [017OF017TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF122A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF122A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF122A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF122A.CBL], [0], [], []) +AT_CHECK([./IF122A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [017OF017TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF123A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF123A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF123A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF123A.CBL], [0], [], []) +AT_CHECK([./IF123A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [023OF023TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF124A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF124A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF124A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF124A.CBL], [0], [], []) +AT_CHECK([./IF124A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [021OF021TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF125A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IF IF125A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF125A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [020OF020TESTSWEREEXECUTEDSUCCESSFULLY +OFFICIALCOBOLCOMPILERVALIDATIONSYSTEM + +CCVS854.2COPY-NOTFORDISTRIBUTION +], []) + +AT_CLEANUP + +AT_SETUP([IF126A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IF IF126A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF126A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [030OF030TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF127A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF127A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF127A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF127A.CBL], [0], [], []) +AT_CHECK([./IF127A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [009OF009TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF128A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF128A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF128A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF128A.CBL], [0], [], []) +AT_CHECK([./IF128A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [016OF016TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF129A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF129A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF129A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF129A.CBL], [0], [], []) +AT_CHECK([./IF129A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [017OF017TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF130A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IF IF130A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF130A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [021OF021TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF131A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF131A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF131A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF131A.CBL], [0], [], []) +AT_CHECK([./IF131A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [008OF008TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF132A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF132A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF132A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF132A.CBL], [0], [], []) +AT_CHECK([./IF132A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [015OF015TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF133A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF133A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF133A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF133A.CBL], [0], [], []) +AT_CHECK([./IF133A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [017OF017TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF134A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF134A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF134A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF134A.CBL], [0], [], []) +AT_CHECK([./IF134A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [013OF013TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF135A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF135A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF135A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF135A.CBL], [0], [], []) +AT_CHECK([./IF135A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [032OF032TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF136A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF136A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF136A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF136A.CBL], [0], [], []) +AT_CHECK([./IF136A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [026OF026TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF137A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF137A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF137A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF137A.CBL], [0], [], []) +AT_CHECK([./IF137A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [017OF017TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF138A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF138A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF138A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF138A.CBL], [0], [], []) +AT_CHECK([./IF138A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [016OF016TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF139A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF139A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF139A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF139A.CBL], [0], [], []) +AT_CHECK([./IF139A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [030OF030TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF140A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF140A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF140A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF140A.CBL], [0], [], []) +AT_CHECK([./IF140A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [013OF013TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF141A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF141A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF141A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF141A.CBL], [0], [], []) +AT_CHECK([./IF141A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [016OF016TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF142A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF142A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF142A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF142A.CBL], [0], [], []) +AT_CHECK([./IF142A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [002OF002TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IF401M]) +AT_KEYWORDS([IF IF401M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF401M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF401M.CBL], [0], [], []) +AT_CHECK([./IF401M], [0], [], []) +AT_CLEANUP + +AT_SETUP([IF402M]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IF IF402M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF402M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF402M.CBL], [0], [], [IF402M.CBL: in paragraph 'IF402M-LENGTH': +IF402M.CBL:36: warning: expression '3' EQUALS '3' is always TRUE +]) +AT_CHECK([./IF402M], [0], [], []) + +AT_CLEANUP + +AT_SETUP([IF403M]) +AT_KEYWORDS([IF IF403M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IF/IF403M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IF403M.CBL], [0], [], []) +AT_CHECK([./IF403M], [0], [], []) +AT_CLEANUP + diff --git a/tests/nistrun.src/run_IX.at b/tests/nistrun.src/run_IX.at new file mode 100644 index 000000000..2ae6d2d9c --- /dev/null +++ b/tests/nistrun.src/run_IX.at @@ -0,0 +1,868 @@ +AT_SETUP([IX101A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IX IX101A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IX101A.CBL], [0], [], []) +AT_CHECK([./IX101A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [002OF002TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX102A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IX IX102A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IX101A.CBL], [0], [], []) +AT_CHECK([./IX101A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX102A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [011OF011TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX103A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IX IX103A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX103A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 IX103A.SUB], [0], [], []) +AT_CHECK([./IX103A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [002OF012TESTSWEREEXECUTEDSUCCESSFULLY +010TEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX104A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IX IX104A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX104A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IX104A.CBL], [0], [], []) +AT_CHECK([./IX104A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [013OF013TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX105A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IX IX105A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX105A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IX105A.CBL], [0], [], []) +AT_CHECK([./IX105A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [009OF009TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX106A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IX IX106A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX106A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [010OF010TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +OFFICIALCOBOLCOMPILERVALIDATIONSYSTEM +], []) + +AT_CLEANUP + +AT_SETUP([IX107A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IX IX107A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX107A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [014OF014TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX108A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IX IX108A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX108A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [032OF032TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX109A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IX IX109A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX109A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IX109A.CBL], [0], [], []) +AT_CHECK([./IX109A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [013OF013TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +OFFICIALCOBOLCOMPILERVALIDATIONSYSTEM +], []) + +AT_CLEANUP + +AT_SETUP([IX110A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IX IX110A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX110A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 IX110A.SUB], [0], [], []) +AT_CHECK([./IX110A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [000OF004TESTSWEREEXECUTEDSUCCESSFULLY +OFFICIALCOBOLCOMPILERVALIDATIONSYSTEM + +CCVS854.2COPY-NOTFORDISTRIBUTION +], []) + +AT_CLEANUP + +AT_SETUP([IX111A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IX IX111A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX111A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX112A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IX IX112A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX112A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IX112A.CBL], [0], [], []) +AT_CHECK([./IX112A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [007OF007TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX113A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IX IX113A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX113A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IX113A.CBL], [0], [], []) +AT_CHECK([./IX113A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [004OF004TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX114A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IX IX114A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX114A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 IX114A.SUB], [0], [], []) +AT_CHECK([./IX114A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF003TESTSWEREEXECUTEDSUCCESSFULLY +002TEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX115A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IX IX115A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX115A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 IX115A.SUB], [0], [], []) +AT_CHECK([./IX115A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF003TESTSWEREEXECUTEDSUCCESSFULLY +002TEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX116A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IX IX116A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX116A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 IX116A.SUB], [0], [], []) +AT_CHECK([./IX116A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF003TESTSWEREEXECUTEDSUCCESSFULLY +002TEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX117A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IX IX117A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX117A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 IX117A.SUB], [0], [], []) +AT_CHECK([./IX117A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF003TESTSWEREEXECUTEDSUCCESSFULLY +002TEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX118A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IX IX118A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX118A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 IX118A.SUB], [0], [], []) +AT_CHECK([./IX118A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [000OF003TESTSWEREEXECUTEDSUCCESSFULLY +003TEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX119A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IX IX119A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IX101A.CBL], [0], [], []) +AT_CHECK([./IX101A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX119A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [002OF003TESTSWEREEXECUTEDSUCCESSFULLY +001TEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX120A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IX IX120A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IX101A.CBL], [0], [], []) +AT_CHECK([./IX101A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX120A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 IX120A.SUB], [0], [], []) +AT_CHECK([./IX120A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [002OF002TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX121A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IX IX121A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX121A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IX121A.CBL], [0], [], []) +AT_CHECK([./IX121A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [003OF003TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX201A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IX IX201A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX201A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IX201A.CBL], [0], [], []) +AT_CHECK([./IX201A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [002OF002TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX202A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IX IX202A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX201A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IX201A.CBL], [0], [], []) +AT_CHECK([./IX201A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX202A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [011OF011TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX203A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IX IX203A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX201A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IX201A.CBL], [0], [], []) +AT_CHECK([./IX201A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX203A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 IX203A.SUB], [0], [], []) +AT_CHECK([./IX203A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [010OF012TESTSWEREEXECUTEDSUCCESSFULLY +002TEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX204A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IX IX204A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX204A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IX204A.CBL], [0], [], []) +AT_CHECK([./IX204A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [013OF013TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX205A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IX IX205A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX205A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [012OF012TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX206A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IX IX206A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX206A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [010OF010TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX207A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IX IX207A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX207A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IX207A.CBL], [0], [], []) +AT_CHECK([./IX207A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [008OF008TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX208A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IX IX208A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX208A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [029OF029TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX209A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IX IX209A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX209A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [056OF056TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX210A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IX IX210A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX210A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [039OF039TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX211A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IX IX211A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX211A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [017OF017TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX212A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IX IX212A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX212A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IX212A.CBL], [0], [], []) +AT_CHECK([./IX212A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [024OF024TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX213A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IX IX213A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX213A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IX213A.CBL], [0], [], []) +AT_CHECK([./IX213A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [021OF021TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX214A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IX IX214A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX214A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [039OF039TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX215A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IX IX215A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX215A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [033OF033TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX216A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IX IX216A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX216A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [014OF015TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +001TEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX217A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([IX IX217A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX217A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IX217A.CBL], [0], [], []) +AT_CHECK([./IX217A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [006OF006TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX218A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IX IX218A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX218A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [006OF006TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([IX301M]) +AT_KEYWORDS([IX IX301M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX301M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IX301M.CBL], [0], [], []) +# AT_CHECK([./IX301M], [0], [], []) +AT_CLEANUP + +AT_SETUP([IX302M]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([IX IX302M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX302M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IX302M.CBL], [0], [], [IX302M.CBL:30: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +IX302M.CBL:36: warning: LABEL RECORDS is obsolete in COBOL 85 +IX302M.CBL:42: warning: VALUE OF is obsolete in COBOL 85 +IX302M.CBL:45: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./IX302M], [0], [THIS IS A DUMMY PARAGRAPH +], []) + +AT_CLEANUP + +AT_SETUP([IX401M]) +AT_KEYWORDS([IX IX401M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/IX/IX401M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 IX401M.CBL], [0], [], []) +# AT_CHECK([./IX401M], [0], [], []) +AT_CLEANUP + diff --git a/tests/nistrun.src/run_NC.at b/tests/nistrun.src/run_NC.at new file mode 100644 index 000000000..28dc7c1b0 --- /dev/null +++ b/tests/nistrun.src/run_NC.at @@ -0,0 +1,2296 @@ +AT_SETUP([NC101A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC101A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC101A.CBL], [0], [], []) +AT_CHECK([./NC101A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [093OF093TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC102A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC102A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC102A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [042OF042TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC103A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC103A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC103A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [102OF102TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC104A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC104A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC104A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC104A.CBL], [0], [], [NC104A.CBL:42: warning: LABEL RECORDS is obsolete in COBOL 85 +NC104A.CBL:43: warning: DATA RECORDS is obsolete in COBOL 85 +NC104A.CBL: in section 'NUMERIC-OPERAND-LIMITS-TESTS': +NC104A.CBL: in paragraph 'MOVE-INIT-DELETE-F1-57-1': +NC104A.CBL:1622: warning: value size exceeds data size +NC104A.CBL:1622: note: value size is 32 +NC104A.CBL:171: note: 'PAR-NAME' defined here as a group of length 22 +NC104A.CBL: in paragraph 'MOVE-TEST-F1-60-0': +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2547: note: value size is 21 +NC104A.CBL:101: note: 'ANDATA1' defined here as PIC X +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2547: note: value size is 21 +NC104A.CBL:102: note: 'ANDATA2' defined here as PIC XX +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2547: note: value size is 21 +NC104A.CBL:103: note: 'ANDATA3' defined here as PIC XXX +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2548: note: value size is 21 +NC104A.CBL:104: note: 'ANDATA4' defined here as PIC X(4) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2548: note: value size is 21 +NC104A.CBL:105: note: 'ANDATA5' defined here as PIC X(5) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2548: note: value size is 21 +NC104A.CBL:106: note: 'ANDATA6' defined here as PIC X(6) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2548: note: value size is 21 +NC104A.CBL:107: note: 'ANDATA7' defined here as PIC X(7) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2548: note: value size is 21 +NC104A.CBL:108: note: 'ANDATA8' defined here as PIC X(8) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2548: note: value size is 21 +NC104A.CBL:109: note: 'ANDATA9' defined here as PIC X(9) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2549: note: value size is 21 +NC104A.CBL:110: note: 'ANDATA10' defined here as PIC X(10) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2549: note: value size is 21 +NC104A.CBL:111: note: 'ANDATA11' defined here as PIC X(11) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2549: note: value size is 21 +NC104A.CBL:112: note: 'ANDATA12' defined here as PIC X(12) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2549: note: value size is 21 +NC104A.CBL:113: note: 'ANDATA13' defined here as PIC X(13) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2549: note: value size is 21 +NC104A.CBL:114: note: 'ANDATA14' defined here as PIC X(14) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2550: note: value size is 21 +NC104A.CBL:115: note: 'ANDATA15' defined here as PIC X(15) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2550: note: value size is 21 +NC104A.CBL:116: note: 'ANDATA16' defined here as PIC X(16) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2550: note: value size is 21 +NC104A.CBL:117: note: 'ANDATA17' defined here as PIC X(17) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2550: note: value size is 21 +NC104A.CBL:118: note: 'ANDATA18' defined here as PIC X(18) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2550: note: value size is 21 +NC104A.CBL:119: note: 'ANDATA19' defined here as PIC X(19) +NC104A.CBL:2547: warning: value size exceeds data size +NC104A.CBL:2551: note: value size is 21 +NC104A.CBL:120: note: 'ANDATA20' defined here as PIC X(20) +]) +AT_CHECK([./NC104A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [141OF141TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC105A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC105A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC105A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC105A.CBL], [0], [], [NC105A.CBL:41: warning: LABEL RECORDS is obsolete in COBOL 85 +NC105A.CBL:42: warning: DATA RECORDS is obsolete in COBOL 85 +NC105A.CBL:69: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC105A.CBL:71: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +NC105A.CBL: in section 'SECT-NC105A-001': +NC105A.CBL: in paragraph 'MOVE-TEST-F1-1-0': +NC105A.CBL:488: warning: value size exceeds data size +NC105A.CBL:488: note: value is 12345 +NC105A.CBL:184: note: 'MOVE40' defined here as PIC 9999V9 +NC105A.CBL: in paragraph 'MOVE-TEST-F1-2-0': +NC105A.CBL:508: warning: value size exceeds data size +NC105A.CBL:508: note: value is 12345 +NC105A.CBL:164: note: 'MOVE5' defined here as PIC 99V999 +NC105A.CBL: in paragraph 'MOVE-TEST-F1-4-0': +NC105A.CBL:547: warning: value size exceeds data size +NC105A.CBL:547: note: value size is 5 +NC105A.CBL:168: note: 'MOVE20' defined here as PIC X(4) +NC105A.CBL: in paragraph 'MOVE-INIT-F1-37': +NC105A.CBL:1262: warning: alphanumeric value is expected +NC105A.CBL:93: note: 'GRP-NUMERIC' defined here as a group of length 10 +NC105A.CBL: in paragraph 'MOVE-INIT-F1-38': +NC105A.CBL:1281: warning: alphanumeric value is expected +NC105A.CBL:93: note: 'GRP-NUMERIC' defined here as a group of length 10 +NC105A.CBL: in paragraph 'MOVE-TEST-F1-46-0': +NC105A.CBL:1460: warning: value size exceeds data size +NC105A.CBL:1460: note: value size is 28 +NC105A.CBL:110: note: 'WRK-DU-10V00' defined here as PIC 9(10) +NC105A.CBL: in paragraph 'MOVE-TEST-F1-79-0': +NC105A.CBL:2115: warning: value size exceeds data size +NC105A.CBL:2115: note: value size is 10 +NC105A.CBL:120: note: 'AE-0002' defined here as PIC XX0XXBXXX +NC105A.CBL: in paragraph 'MOVE-TEST-F1-82-0': +NC105A.CBL:2170: warning: alphanumeric value is expected +NC105A.CBL:109: note: 'GRP-WRK-DU-10V00' defined here as a group of length 10 +NC105A.CBL: in paragraph 'MOVE-TEST-F1-83-0': +NC105A.CBL:2188: warning: alphanumeric value is expected +NC105A.CBL:112: note: 'WRK-XN-00049' defined here as PIC X(49) +NC105A.CBL: in paragraph 'MOVE-TEST-F1-84-0': +NC105A.CBL:2210: warning: alphanumeric value is expected +NC105A.CBL:120: note: 'AE-0002' defined here as PIC XX0XXBXXX +NC105A.CBL: in paragraph 'MOVE-TEST-F1-88-1': +NC105A.CBL:2289: warning: alphanumeric value is expected +NC105A.CBL:255: note: 'CORRECT-A' defined here as PIC X(20) +NC105A.CBL: in paragraph 'MOVE-TEST-F1-89-1': +NC105A.CBL:2306: warning: alphanumeric value is expected +NC105A.CBL:255: note: 'CORRECT-A' defined here as PIC X(20) +NC105A.CBL: in paragraph 'MOVE-TEST-F1-90-1': +NC105A.CBL:2323: warning: alphanumeric value is expected +NC105A.CBL:255: note: 'CORRECT-A' defined here as PIC X(20) +NC105A.CBL: in paragraph 'MOVE-TEST-F1-110-0': +NC105A.CBL:2655: warning: alphanumeric value is expected +NC105A.CBL:215: note: 'MOVE71' defined here as PIC X(20) +]) +AT_CHECK([./NC105A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [129OF132TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +003TEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC106A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC106A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC106A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC106A.CBL], [0], [], [NC106A.CBL:208: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +]) +AT_CHECK([./NC106A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [126OF126TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC107A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC107A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC107A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP INFORMATION REPORT], [0], [*** INFORMATION *** 000000000000000000 ZERO IV-11 4.2.2.2.3 +*** INFORMATION *** SPACE IV-11 4.2.2.2.3 +*** INFORMATION *** """""""""""""""""""" QUOTE IV-11 4.2.2.2.3 +*** INFORMATION *** ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ HIGH-VALUE IV-11 4.2.2.2.3 +*** INFORMATION *** LOW-VALUE IV-11 4.2.2.2.3 +], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [172OF177TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +005TEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC108M]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC108M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC108M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [014OF014TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +OFFICIALCOBOLCOMPILERVALIDATIONSYSTEM + +], []) + +AT_CLEANUP + +AT_SETUP([NC109M]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC109M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC109M.CBL .], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC109M.DAT .], [0], [], []) +AT_CHECK([$COMPILE85 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([./NC109M < NC109M.DAT], [0], [ +ALPHABETIC + + +ALPHABETIC LITERAL + + +0123456789 + + +9876543210 + + +A1B2C3D4E5 + + +12345 ///// ALPHANUMERIC LITERAL + + +ALPHABETIC0123456789A1B2C3D4E5 SERIES + + +0 " + + +REDEFINE-INFO + + +*001*002*003*004*005*006*007*008*009*010*011*012*013*014*015*016*017*018*019*020*021*022*023*024*025*026*027*028*029*030*031*032*033*034*035*036*037*038*039*040*041*042*043*044*045*046*047*048*049*050 + + +UTSRQPONMLKJIHGFEDCBA + + +ABCDEFGHIJKLMNOPQRSTU + + +QUOTE " ASTERISK * NUMERIC LITERALS 21 35 IDENTIFIER DATA A B C D E 0102030405 (TOTAL 21 OPERANDS) END OF DATA + + +ABCD + +], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [011OF011TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC110M]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC110M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC110M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC110M.CBL], [0], [], []) +AT_CHECK([./NC110M], [0], [ + FOR OFFICIAL USE ONLY + OFFICIAL COBOL COMPILER TEST SYSTEM. + TEST RESULTS SET- NC110M + + FOR OFFICIAL USE ONLY +COPYRIGHT 1985 + + FEATURE RESULTS AND + TESTED REMARKS + + --------------------------------------------------------- + GO TO THIS TEST PASSES UNLESS FAIL APPEARS BELOW. + PERFORM THIS TEST FAILS UNLESS PASS APPEARS BELOW. + PASS + --------------------------------------------------------- + + END OF TEST - NC110M + CHECK FOR ERRORS + + FOR OFFICIAL USE ONLY +COPYRIGHT 1985 + NTIS DISTRIBUTION COBOL 1985 +], []) + +AT_CLEANUP + +AT_SETUP([NC111A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC111A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC111A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC111A.CBL], [0], [], []) +AT_CHECK([./NC111A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [007OF007TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC112A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC112A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC112A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [032OF032TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC113M]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC113M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC113M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC113M.CBL], [0], [], []) +AT_CHECK([./NC113M], [0], [], []) +AT_CHECK([$GREP MARGIN REPORT], [0], [ MARGIN TESTING MAR-TEST-1 ANSWERS MUST BE + MARGIN TESTING MAR-TEST-2 VISUALLY CHECKED + MARGIN TESTING MAR-TEST-3 FOR CORRECTNESS + MARGIN TESTING MAR-TEST-4 + MARGIN TESTING MAR-TEST-5 TESTS MUST BE SEQUENTIAL + MARGIN TESTING MAR-TEST-6 + MARGIN TESTING MAR-TEST-7 + MARGIN TESTING MAR-TEST-8 + MARGIN TESTING MAR-TEST-9 + MARGIN TESTING MAR-TEST-10 + MARGIN TESTING MAR-TEST-11 + MARGIN TESTING MAR-TEST-12 + MARGIN TESTING MAR-TEST-13 + MARGIN TESTING MAR-TEST-14 + MARGIN TESTING MAR-TEST-15 +], []) +AT_CHECK([$GREP VISUAL REPORT | tr -d ' '], [0], [MARGINTESTINGMAR-TEST-2VISUALLYCHECKED +15TESTSREQUIREVISUALINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC114M]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC114M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC114M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [005OF006TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +001TEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC115A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC115A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC115A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC115A.CBL], [0], [], []) +AT_CHECK([./NC115A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [031OF031TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC116A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC116A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC116A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [066OF066TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC117A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC117A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC117A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC117A.CBL], [0], [], []) +AT_CHECK([./NC117A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [040OF040TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC118A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC118A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC118A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [029OF029TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC119A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC119A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC119A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [036OF036TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC120A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC120A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC120A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC120A.CBL], [0], [], []) +AT_CHECK([./NC120A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [039OF039TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC121M]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC121M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC121M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC121M.CBL], [0], [], []) +AT_CHECK([./NC121M], [0], [ +LITERAL-01 +0123456789 +], []) +AT_CHECK([$GREP INFORMATION REPORT | tr -d ' '], [0], [***INFORMATION***LITERAL-01IV-214.3.8.2.3/4 +***INFORMATION***0123456789IV-214.3.8.2.3/4 +], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [039OF041TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +002TEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC122A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC122A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC122A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC122A.CBL], [0], [], []) +AT_CHECK([./NC122A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [024OF024TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC123A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC123A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC123A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [034OF034TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC124A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC124A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC124A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC124A.CBL], [0], [], []) +AT_CHECK([./NC124A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [169OF169TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC125A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC125A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC125A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC125A.CBL], [0], [], []) +AT_CHECK([./NC125A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [110OF110TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC126A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC126A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC126A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [145OF145TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC127A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC127A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC127A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC127A.CBL], [0], [], []) +AT_CHECK([./NC127A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [002OF002TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC131A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC131A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC131A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC131A.CBL], [0], [], []) +AT_CHECK([./NC131A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [010OF010TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC132A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC132A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC132A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC132A.CBL], [0], [], []) +AT_CHECK([./NC132A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [025OF025TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC133A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC133A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC133A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [025OF025TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC134A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC134A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC134A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC134A.CBL], [0], [], []) +AT_CHECK([./NC134A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [020OF020TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC135A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC135A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC135A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 15 SPACES REPORT | tr -d ' '], [0], [NOTETHISSECTIONWRITESA20X15TABLEOFTHREE-DIGITNUMBERS001TO300---THERESHOULDBETWOSPACESBETWEENEACHNUMBERONALINE---THENUMBERS001THRU020SHOULDFORMTHEFIRSTLINE---THEVALUESINTHISTABLEWEREGENERATEDINSECTION-NAME-1SECTION. +001002003004005006007008009010011012013014015016017018019020 +021022023024025026027028029030031032033034035036037038039040 +041042043044045046047048049050051052053054055056057058059060 +061062063064065066067068069070071072073074075076077078079080 +081082083084085086087088089090091092093094095096097098099100 +101102103104105106107108109110111112113114115116117118119120 +121122123124125126127128129130131132133134135136137138139140 +141142143144145146147148149150151152153154155156157158159160 +161162163164165166167168169170171172173174175176177178179180 +181182183184185186187188189190191192193194195196197198199200 +201202203204205206207208209210211212213214215216217218219220 +221222223224225226227228229230231232233234235236237238239240 +241242243244245246247248249250251252253254255256257258259260 +261262263264265266267268269270271272273274275276277278279280 +281282283284285286287288289290291292293294295296297298299300 +], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [007OF008TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +001TEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC136A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC136A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC136A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC136A.CBL], [0], [], []) +AT_CHECK([./NC136A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [008OF008TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC137A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC137A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC137A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC137A.CBL], [0], [], []) +AT_CHECK([./NC137A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [008OF008TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC138A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC138A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC138A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC138A.CBL], [0], [], [NC138A.CBL:51: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +]) +AT_CHECK([./NC138A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [036OF036TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC139A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC139A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC139A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC139A.CBL], [0], [], []) +AT_CHECK([./NC139A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [041OF041TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC140A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC140A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC140A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC140A.CBL], [0], [], []) +AT_CHECK([./NC140A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [070OF070TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC141A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC141A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC141A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC141A.CBL], [0], [], []) +AT_CHECK([./NC141A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [009OF009TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC170A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC170A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC170A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC170A.CBL], [0], [], []) +AT_CHECK([./NC170A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [096OF096TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC171A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC171A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC171A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC171A.CBL], [0], [], []) +AT_CHECK([./NC171A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [108OF108TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC172A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC172A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC172A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC172A.CBL], [0], [], []) +AT_CHECK([./NC172A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [101OF101TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC173A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC173A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC173A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [102OF102TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC174A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC174A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC174A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [077OF077TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC175A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC175A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC175A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [097OF097TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC176A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC176A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC176A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [124OF124TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC177A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC177A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC177A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [108OF108TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC201A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC201A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC201A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC201A.CBL], [0], [], [NC201A.CBL:185: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +]) +AT_CHECK([./NC201A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [059OF059TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC202A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC202A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC202A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [077OF077TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +FEATUREPASSPARAGRAPH-NAMEREMARKS +], []) + +AT_CLEANUP + +AT_SETUP([NC203A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC203A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC203A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [057OF057TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC204M]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC204M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC204M.CBL .], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC204M.DAT .], [0], [], []) +AT_CHECK([$COMPILE85 NC204M.CBL], [0], [], []) +AT_CHECK([./NC204M < NC204M.DAT], [0], [ +ALPHABETIC + + +ALPHABETIC LITERAL + + +0123456789 + + +9876543210 + + +A1B2C3D4E5 + + +A1B2C3D4E5 ALPHANUMERIC LITERAL + + +ALPHABETIC0123456789A1B2C3D4E5 SERIES + + +0 " + + +REDEFINE-INFO + + +D001*002*003*004*005*006*007*008*009*010*011*012*013*014*015*016*017*018*019*020*021*022*023*024*025*026*027*028*029*030*031*032*033*034*035*036*037*038*039*040*041*042*043*044*045*046*047*048*049*050 + + +ABCDEFGHIJKLMNOPQRSTUVWXYZ +0123456789 +ABCDEFGHIJKLMNOPQRSTUVWXYZ+-<>=l,:.()/* 0123456789 + + +UTSRQPONMLKJIHGFEDCBA + + +ABCDEFGHIJKLMNOPQRSTU + + +QUOTE " ASTERISK * NUMERIC LITERALS 21 1325 IDENTIFIER DATA A B C D E 1 2 3 4 5 (TOTAL 21 OPERANDS) END OF DATA + + +9876543210 + +ALPHABETIC0123456789A1B2C3D4E5 SERIES +], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [015OF015TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC205A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC205A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC205A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [010OF010TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC206A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC206A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC206A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [053OF053TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC207A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC207A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC207A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC207A.CBL], [0], [], []) +AT_CHECK([./NC207A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [085OF085TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC208A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC208A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC208A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [024OF024TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC209A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC209A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC209A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [032OF032TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC210A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC210A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC210A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC210A.CBL], [0], [], []) +AT_CHECK([./NC210A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [085OF085TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC211A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC211A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC211A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [051OF051TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC214M]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC214M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC214M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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([NC215A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC215A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC215A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [007OF007TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC216A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC216A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC216A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC216A.CBL], [0], [], []) +AT_CHECK([./NC216A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [057OF057TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC217A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC217A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC217A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC217A.CBL], [0], [], []) +AT_CHECK([./NC217A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [082OF082TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC218A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC218A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC218A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [125OF125TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC219A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC219A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC219A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC219A.CBL], [0], [], []) +AT_CHECK([./NC219A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [009OF009TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC220M]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC220M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC220M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC220M.CBL], [0], [], []) +AT_CHECK([./NC220M], [0], [ +LITERAL-02 +9876543210 +], []) +AT_CHECK([$GREP INFORMATION REPORT | tr -d ' '], [0], [***INFORMATION***LITERAL-02IV-214.3.8.2 +***INFORMATION***9876543210IV-214.3.8.2 +], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [023OF025TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +002TEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC221A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC221A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC221A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC221A.CBL], [0], [], []) +AT_CHECK([./NC221A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [017OF017TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC222A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC222A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC222A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC222A.CBL], [0], [], []) +AT_CHECK([./NC222A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [008OF008TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC223A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC223A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC223A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC223A.CBL], [0], [], []) +AT_CHECK([./NC223A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [094OF094TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC224A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC224A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC224A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [014OF014TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC225A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC225A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC225A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [063OF063TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC231A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC231A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC231A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [024OF024TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC232A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC232A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC232A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [017OF017TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC233A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC233A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC233A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [014OF014TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC234A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC234A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC234A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [017OF017TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC235A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC235A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC235A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [013OF013TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC236A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC236A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC236A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC236A.CBL], [0], [], []) +AT_CHECK([./NC236A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [010OF010TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC237A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC237A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC237A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC237A.CBL], [0], [], []) +AT_CHECK([./NC237A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [013OF013TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC238A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC238A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC238A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [010OF010TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC239A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC239A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC239A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC239A.CBL], [0], [], []) +AT_CHECK([./NC239A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [008OF008TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC240A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC240A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC240A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC240A.CBL], [0], [], []) +AT_CHECK([./NC240A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [011OF011TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC241A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC241A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC241A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC241A.CBL], [0], [], []) +AT_CHECK([./NC241A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [011OF011TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC242A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC242A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC242A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC242A.CBL], [0], [], []) +AT_CHECK([./NC242A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [012OF012TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC243A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC243A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC243A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC243A.CBL], [0], [], []) +AT_CHECK([./NC243A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [016OF016TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC244A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC244A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC244A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [006OF006TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC245A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC245A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC245A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC245A.CBL], [0], [], []) +AT_CHECK([./NC245A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [028OF028TESTSWEREEXECUTEDSUCCESSFULLY +FEATUREPASSPARAGRAPH-NAMEREMARKS +TESTEDFAIL + +], []) + +AT_CLEANUP + +AT_SETUP([NC246A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC246A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC246A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC246A.CBL], [0], [], []) +AT_CHECK([./NC246A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [049OF049TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC247A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC247A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC247A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC247A.CBL], [0], [], []) +AT_CHECK([./NC247A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [020OF021TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +001TEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC248A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC248A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC248A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC248A.CBL], [0], [], []) +AT_CHECK([./NC248A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [011OF011TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC250A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC250A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC250A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [115OF115TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC251A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC251A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC251A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [059OF059TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC252A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC252A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC252A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [075OF075TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC253A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC253A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC253A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [061OF061TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC254A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC254A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC254A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [009OF009TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([NC302M]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([NC NC302M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC302M.CBL .], [0], [], []) +AT_DATA([NC302M.DAT],[ +]) +AT_CHECK([$COMPILE85 NC302M.CBL], [0], [], [NC302M.CBL:6: warning: AUTHOR is obsolete in COBOL 85 +NC302M.CBL:8: warning: INSTALLATION is obsolete in COBOL 85 +NC302M.CBL:10: warning: DATE-WRITTEN is obsolete in COBOL 85 +NC302M.CBL:12: warning: SECURITY is obsolete in COBOL 85 +NC302M.CBL:22: warning: MEMORY SIZE is obsolete in COBOL 85 +NC302M.CBL: in paragraph 'NC302M-ALTER': +NC302M.CBL:34: warning: ALTER is obsolete in COBOL 85 +NC302M.CBL: in paragraph 'NC302M-STOP': +NC302M.CBL:47: warning: STOP literal is obsolete in COBOL 85 +]) +AT_CHECK([./NC302M < NC302M.DAT], [0], [DUMMY PROCEDURE +FNC302 +], []) + +AT_CLEANUP + +AT_SETUP([NC303M]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC303M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC303M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC303M.CBL], [0], [], [NC303M.CBL:6: warning: DATE-COMPILED is obsolete in COBOL 85 +NC303M.CBL: in paragraph 'NC303M-CONTROL': +NC303M.CBL:19: warning: ALTER is obsolete in COBOL 85 +NC303M.CBL: in paragraph 'NC303M-GOTO': +NC303M.CBL:25: warning: GO TO without procedure-name is obsolete in COBOL 85 +NC303M.CBL: in paragraph 'NC303M-GOTO-2': +NC303M.CBL:29: warning: GO TO without procedure-name is obsolete in COBOL 85 +]) +AT_CHECK([./NC303M], [0], [], []) + +AT_CLEANUP + +AT_SETUP([NC401M]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([NC NC401M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/NC/NC401M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 NC401M.CBL], [0], [], [NC401M.CBL:8: warning: DATE-COMPILED is obsolete in COBOL 85 +NC401M.CBL: in paragraph 'NC401M-CONTROL': +NC401M.CBL:169: warning: ALTER is obsolete in COBOL 85 +NC401M.CBL: in paragraph 'NC401M-SIGCOND': +NC401M.CBL:209: warning: unsigned 'BOX-A' may not be LESS THAN ZERO +NC401M.CBL: in paragraph 'NC401M-GOTO': +NC401M.CBL:263: warning: GO TO without procedure-name is obsolete in COBOL 85 +NC401M.CBL: in paragraph 'NC401M-GOTO-2': +NC401M.CBL:267: warning: GO TO without procedure-name is obsolete in COBOL 85 +NC401M.CBL: in paragraph 'NC401M-SEARCH': +NC401M.CBL:309: warning: NEXT SENTENCE is archaic in COBOL 85 +]) + +AT_CLEANUP + diff --git a/tests/nistrun.src/run_OB.at b/tests/nistrun.src/run_OB.at new file mode 100644 index 000000000..4f2225a22 --- /dev/null +++ b/tests/nistrun.src/run_OB.at @@ -0,0 +1,289 @@ +AT_SETUP([OBIC2A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([OB OBIC2A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/lib/OBIC2A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 OBIC2A.CBL], [0], [], [OBIC2A.CBL:45: warning: DATA RECORDS is obsolete in COBOL 85 +OBIC2A.CBL: in section 'SECT-IC219-0001': +OBIC2A.CBL:130: warning: section segments is obsolete in COBOL 85 +OBIC2A.CBL: in section 'SECT-IC219-0002': +OBIC2A.CBL:144: warning: section segments is obsolete in COBOL 85 +OBIC2A.CBL: in section 'SECT-IC219-0003': +OBIC2A.CBL:199: warning: section segments is obsolete in COBOL 85 +]) + +AT_CLEANUP + +AT_SETUP([OBIC3A]) +AT_KEYWORDS([OB OBIC3A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/lib/OBIC3A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 OBIC3A.CBL], [0], [], []) +AT_CLEANUP + +AT_SETUP([OBIC1A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([OB OBIC1A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/lib/OBIC2A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 OBIC2A.CBL], [0], [], [OBIC2A.CBL:45: warning: DATA RECORDS is obsolete in COBOL 85 +OBIC2A.CBL: in section 'SECT-IC219-0001': +OBIC2A.CBL:130: warning: section segments is obsolete in COBOL 85 +OBIC2A.CBL: in section 'SECT-IC219-0002': +OBIC2A.CBL:144: warning: section segments is obsolete in COBOL 85 +OBIC2A.CBL: in section 'SECT-IC219-0003': +OBIC2A.CBL:199: warning: section segments is obsolete in COBOL 85 +]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/lib/OBIC3A.CBL .], [0], [], []) +AT_CHECK([$COMPILE_MODULE85 OBIC3A.CBL], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBIC1A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 OBIC1A.CBL], [0], [], []) +AT_CHECK([./OBIC1A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([OBNC1M]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([OB OBNC1M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBNC1M.CBL .], [0], [], []) +AT_CHECK([printf '\n\n\n\n\n\n\n\n\003' > OBNC1M.DAT], [0], [], []) +AT_CHECK([$COMPILE85 OBNC1M.CBL], [0], [], [OBNC1M.CBL:5: warning: AUTHOR is obsolete in COBOL 85 +OBNC1M.CBL:7: warning: INSTALLATION is obsolete in COBOL 85 +OBNC1M.CBL:15: warning: DATE-WRITTEN is obsolete in COBOL 85 +OBNC1M.CBL:19: warning: SECURITY is obsolete in COBOL 85 +OBNC1M.CBL:95: warning: MEMORY SIZE is obsolete in COBOL 85 +OBNC1M.CBL: in section 'SECT-NC107A-001': +OBNC1M.CBL: in paragraph 'NUM-TEST-1': +OBNC1M.CBL:535: warning: ALTER is obsolete in COBOL 85 +OBNC1M.CBL: in paragraph 'ALTER-TEST-1': +OBNC1M.CBL:553: warning: ALTER is obsolete in COBOL 85 +OBNC1M.CBL: in paragraph 'ALTER-TEST-2': +OBNC1M.CBL:569: warning: ALTER is obsolete in COBOL 85 +OBNC1M.CBL: in paragraph 'ALTER-TEST-3': +OBNC1M.CBL:586: warning: ALTER is obsolete in COBOL 85 +OBNC1M.CBL: in paragraph 'ALTER-I': +OBNC1M.CBL:602: warning: ALTER is obsolete in COBOL 85 +OBNC1M.CBL: in paragraph 'GO--TEST-1': +OBNC1M.CBL:611: warning: ALTER is obsolete in COBOL 85 +OBNC1M.CBL: in paragraph 'GO--A': +OBNC1M.CBL:619: warning: GO TO without procedure-name is obsolete in COBOL 85 +OBNC1M.CBL: in section 'SECT-NC180M-001': +OBNC1M.CBL: in paragraph 'STOP-TEST-GF-1': +OBNC1M.CBL:644: warning: STOP literal is obsolete in COBOL 85 +OBNC1M.CBL: in paragraph 'STOP-TEST-GF-2': +OBNC1M.CBL:664: warning: STOP literal is obsolete in COBOL 85 +OBNC1M.CBL: in paragraph 'STOP-TEST-GF-3': +OBNC1M.CBL:677: warning: STOP literal is obsolete in COBOL 85 +OBNC1M.CBL: in paragraph 'STOP-TEST-GF-4': +OBNC1M.CBL:689: warning: STOP literal is obsolete in COBOL 85 +OBNC1M.CBL: in paragraph 'STOP-TEST-GF-5': +OBNC1M.CBL:702: warning: STOP literal is obsolete in COBOL 85 +OBNC1M.CBL: in paragraph 'STOP-WRITE-GF-5': +OBNC1M.CBL:713: warning: value size exceeds data size +OBNC1M.CBL:716: note: value size is 160 +OBNC1M.CBL:103: note: 'PRINT-REC' defined here as PIC X(132) +OBNC1M.CBL: in paragraph 'STOP-TEST-GF-6': +OBNC1M.CBL:720: warning: STOP literal is obsolete in COBOL 85 +OBNC1M.CBL: in paragraph 'STOP-TEST-GF-7': +OBNC1M.CBL:732: warning: STOP literal is obsolete in COBOL 85 +OBNC1M.CBL: in paragraph 'STOP-TEST-GF-8': +OBNC1M.CBL:744: warning: STOP literal is obsolete in COBOL 85 +OBNC1M.CBL: in paragraph 'STOP-TEST-GF-9': +OBNC1M.CBL:764: warning: STOP literal is obsolete in COBOL 85 +]) +AT_CHECK([./OBNC1M < OBNC1M.DAT], [130], [OPERATOR PLEASE EXECUTE RUN CONTINUATION +A +* +" + * 5 * 10 * 15 * 20 * 25 * 30 * 35 * 40 * 45 * 50 * 55 * 60 * 65 * 70 * 75 * 80 * 85 * 90 * 95 *100 *105 *110 *115 *120 *125 *130 *135 *140 *145 *150 *155 *160 +7 +123456789987654321 +0 +OPERATOR KILL OBNC1 +], [ +OBNC1M.CBL:764: interrupt from keyboard (signal) + +]) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [006OF006TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([OBNC2M]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([OB OBNC2M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBNC2M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 OBNC2M.CBL], [0], [], [OBNC2M.CBL:25: warning: DATE-COMPILED is obsolete in COBOL 85 +OBNC2M.CBL:175: warning: SYNCHRONIZED LEFT/RIGHT is not implemented +OBNC2M.CBL: in section 'SECT-OBNC2M-001': +OBNC2M.CBL: in paragraph 'GO--TEST-1': +OBNC2M.CBL:592: warning: ALTER is obsolete in COBOL 85 +OBNC2M.CBL: in paragraph 'GO--A': +OBNC2M.CBL:600: warning: GO TO without procedure-name is obsolete in COBOL 85 +OBNC2M.CBL: in paragraph 'ALTER-TEST-1': +OBNC2M.CBL:612: warning: ALTER is obsolete in COBOL 85 +OBNC2M.CBL: in paragraph 'ALTER-TESTTT-2': +OBNC2M.CBL:679: warning: ALTER is obsolete in COBOL 85 +OBNC2M.CBL: in paragraph 'ALTER-TEST-3': +OBNC2M.CBL:703: warning: ALTER is obsolete in COBOL 85 +OBNC2M.CBL: in section 'QUAL-SECTION-1': +OBNC2M.CBL: in paragraph 'PARA-TEST-5': +OBNC2M.CBL:875: warning: ALTER is obsolete in COBOL 85 +OBNC2M.CBL: in paragraph 'PARA-TEST-6': +OBNC2M.CBL:893: warning: ALTER is obsolete in COBOL 85 +]) +AT_CHECK([./OBNC2M], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [016OF016TESTSWEREEXECUTEDSUCCESSFULLY +FEATUREPASSPARAGRAPH-NAMEREMARKS +TESTEDFAIL + +], []) + +AT_CLEANUP + +AT_SETUP([OBSQ1A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([OB OBSQ1A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBSQ1A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 OBSQ1A.CBL], [0], [], [OBSQ1A.CBL:65: warning: DATA RECORDS is obsolete in COBOL 85 +OBSQ1A.CBL:65: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./OBSQ1A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [006OF006TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([OBSQ3A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([OB OBSQ3A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBSQ3A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 OBSQ3A.CBL], [0], [], [OBSQ3A.CBL:62: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +OBSQ3A.CBL:65: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +OBSQ3A.CBL:72: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:76: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:80: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:85: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:90: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:94: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:98: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:102: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL: in section 'SECT-OBSQ3A-0001': +OBSQ3A.CBL: in paragraph 'SEQ-INIT-002': +OBSQ3A.CBL:427: warning: OPEN WITH NO REWIND is not implemented +OBSQ3A.CBL: in paragraph 'SEQ-INIT-003': +OBSQ3A.CBL:451: warning: OPEN WITH NO REWIND is not implemented +OBSQ3A.CBL: in paragraph 'SEQ-INIT-004': +OBSQ3A.CBL:475: warning: OPEN WITH NO REWIND is not implemented +OBSQ3A.CBL: in paragraph 'BUILD-RECORD': +OBSQ3A.CBL:594: warning: value size exceeds data size +OBSQ3A.CBL:594: note: value size is 6 +OBSQ3A.CBL:138: note: 'XPROGRAM-NAME' defined here as PIC X(5) +]) +AT_CHECK([./OBSQ3A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([OBSQ4A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([OB OBSQ4A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBSQ3A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 OBSQ3A.CBL], [0], [], [OBSQ3A.CBL:62: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +OBSQ3A.CBL:65: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +OBSQ3A.CBL:72: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:76: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:80: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:85: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:90: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:94: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:98: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:102: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL: in section 'SECT-OBSQ3A-0001': +OBSQ3A.CBL: in paragraph 'SEQ-INIT-002': +OBSQ3A.CBL:427: warning: OPEN WITH NO REWIND is not implemented +OBSQ3A.CBL: in paragraph 'SEQ-INIT-003': +OBSQ3A.CBL:451: warning: OPEN WITH NO REWIND is not implemented +OBSQ3A.CBL: in paragraph 'SEQ-INIT-004': +OBSQ3A.CBL:475: warning: OPEN WITH NO REWIND is not implemented +OBSQ3A.CBL: in paragraph 'BUILD-RECORD': +OBSQ3A.CBL:594: warning: value size exceeds data size +OBSQ3A.CBL:594: note: value size is 6 +OBSQ3A.CBL:138: note: 'XPROGRAM-NAME' defined here as PIC X(5) +]) +AT_CHECK([./OBSQ3A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBSQ4A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 OBSQ4A.SUB], [0], [], [OBSQ4A.SUB:42: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +OBSQ4A.SUB:49: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ4A.SUB:53: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ4A.SUB:57: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ4A.SUB:62: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./OBSQ4A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [004OF004TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([OBSQ5A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([OB OBSQ5A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBSQ3A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 OBSQ3A.CBL], [0], [], [OBSQ3A.CBL:62: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +OBSQ3A.CBL:65: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +OBSQ3A.CBL:72: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:76: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:80: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:85: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:90: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:94: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:98: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL:102: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ3A.CBL: in section 'SECT-OBSQ3A-0001': +OBSQ3A.CBL: in paragraph 'SEQ-INIT-002': +OBSQ3A.CBL:427: warning: OPEN WITH NO REWIND is not implemented +OBSQ3A.CBL: in paragraph 'SEQ-INIT-003': +OBSQ3A.CBL:451: warning: OPEN WITH NO REWIND is not implemented +OBSQ3A.CBL: in paragraph 'SEQ-INIT-004': +OBSQ3A.CBL:475: warning: OPEN WITH NO REWIND is not implemented +OBSQ3A.CBL: in paragraph 'BUILD-RECORD': +OBSQ3A.CBL:594: warning: value size exceeds data size +OBSQ3A.CBL:594: note: value size is 6 +OBSQ3A.CBL:138: note: 'XPROGRAM-NAME' defined here as PIC X(5) +]) +AT_CHECK([./OBSQ3A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/OB/OBSQ5A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 OBSQ5A.SUB], [0], [], [OBSQ5A.SUB:44: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +OBSQ5A.SUB:47: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +OBSQ5A.SUB:54: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ5A.SUB:59: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ5A.SUB:63: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ5A.SUB:67: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ5A.SUB:71: warning: LABEL RECORDS is obsolete in COBOL 85 +OBSQ5A.SUB: in section 'SECT-OBSQ5A-0001': +OBSQ5A.SUB: in paragraph 'SEQ-INIT-003': +OBSQ5A.SUB:452: warning: OPEN WITH NO REWIND is not implemented +OBSQ5A.SUB: in paragraph 'SEQ-INIT-004': +OBSQ5A.SUB:494: warning: OPEN WITH NO REWIND is not implemented +OBSQ5A.SUB: in paragraph 'SEQ-INIT-005': +OBSQ5A.SUB:536: warning: OPEN WITH NO REWIND is not implemented +]) +AT_CHECK([./OBSQ5A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [005OF005TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + diff --git a/tests/nistrun.src/run_RL.at b/tests/nistrun.src/run_RL.at new file mode 100644 index 000000000..2b3ff1f8a --- /dev/null +++ b/tests/nistrun.src/run_RL.at @@ -0,0 +1,627 @@ +AT_SETUP([RL101A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL101A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL101A.CBL], [0], [], [RL101A.CBL:68: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL101A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RL102A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL102A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL101A.CBL], [0], [], [RL101A.CBL:68: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL101A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL102A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 RL102A.SUB], [0], [], [RL102A.SUB:57: warning: LABEL RECORDS is obsolete in COBOL 85 +RL102A.SUB: in section 'SECT-RL102-001': +RL102A.SUB: in paragraph 'REL-TEST-003-R': +RL102A.SUB:400: warning: value size exceeds data size +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([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [011OF011TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RL103A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL103A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL101A.CBL], [0], [], [RL101A.CBL:68: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL101A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL103A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 RL103A.SUB], [0], [], [RL103A.SUB:58: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL103A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [009OF011TESTSWEREEXECUTEDSUCCESSFULLY +002TEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RL104A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL104A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL104A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL104A.CBL], [0], [], [RL104A.CBL:66: warning: LABEL RECORDS is obsolete in COBOL 85 +RL104A.CBL:68: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL104A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [012OF012TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RL105A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL105A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL105A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL105A.CBL], [0], [], [RL105A.CBL:70: warning: LABEL RECORDS is obsolete in COBOL 85 +RL105A.CBL:71: warning: DATA RECORDS is obsolete in COBOL 85 +RL105A.CBL:76: warning: LABEL RECORDS is obsolete in COBOL 85 +RL105A.CBL:77: warning: DATA RECORDS is obsolete in COBOL 85 +RL105A.CBL:81: warning: LABEL RECORDS is obsolete in COBOL 85 +RL105A.CBL:82: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL105A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [004OF004TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RL106A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL106A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL106A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL106A.CBL], [0], [], [RL106A.CBL:72: warning: LABEL RECORDS is obsolete in COBOL 85 +RL106A.CBL:73: warning: DATA RECORDS is obsolete in COBOL 85 +RL106A.CBL:84: warning: LABEL RECORDS is obsolete in COBOL 85 +RL106A.CBL:85: warning: DATA RECORDS is obsolete in COBOL 85 +RL106A.CBL:97: warning: LABEL RECORDS is obsolete in COBOL 85 +RL106A.CBL:98: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL106A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [004OF004TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RL107A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL107A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL107A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL107A.CBL], [0], [], [RL107A.CBL:73: warning: LABEL RECORDS is obsolete in COBOL 85 +RL107A.CBL:74: warning: DATA RECORDS is obsolete in COBOL 85 +RL107A.CBL:82: warning: LABEL RECORDS is obsolete in COBOL 85 +RL107A.CBL:83: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL107A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [019OF019TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +FEATUREPASSPARAGRAPH-NAMEREMARKS +TESTEDFAIL +], []) + +AT_CLEANUP + +AT_SETUP([RL108A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL108A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL108A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL108A.CBL], [0], [], [RL108A.CBL:64: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL108A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RL109A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL109A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL108A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL108A.CBL], [0], [], [RL108A.CBL:64: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL108A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL109A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 RL109A.SUB], [0], [], [RL109A.SUB:73: warning: LABEL RECORDS is obsolete in COBOL 85 +RL109A.SUB: in section 'SECT-RL109A-001': +RL109A.SUB: in paragraph 'REL-TEST-003-R': +RL109A.SUB:415: warning: value size exceeds data size +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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [011OF011TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RL110A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL110A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL108A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL108A.CBL], [0], [], [RL108A.CBL:64: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL108A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL110A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 RL110A.SUB], [0], [], [RL110A.SUB:58: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL110A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [008OF010TESTSWEREEXECUTEDSUCCESSFULLY +002TEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RL111A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL111A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL111A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL111A.CBL], [0], [], [RL111A.CBL:68: warning: LABEL RECORDS is obsolete in COBOL 85 +RL111A.CBL:70: warning: DATA RECORDS is obsolete in COBOL 85 +RL111A.CBL:77: warning: LABEL RECORDS is obsolete in COBOL 85 +RL111A.CBL:79: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL111A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [024OF024TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RL112A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL112A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL112A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL112A.CBL], [0], [], [RL112A.CBL:66: warning: LABEL RECORDS is obsolete in COBOL 85 +RL112A.CBL:68: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL112A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [012OF012TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RL113A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL113A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL113A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL113A.CBL], [0], [], [RL113A.CBL:66: warning: LABEL RECORDS is obsolete in COBOL 85 +RL113A.CBL:68: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL113A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [011OF011TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RL114A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL114A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL114A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL114A.CBL], [0], [], [RL114A.CBL:66: warning: LABEL RECORDS is obsolete in COBOL 85 +RL114A.CBL:68: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL114A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [013OF013TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RL115A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL115A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL115A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL115A.CBL], [0], [], [RL115A.CBL:66: warning: LABEL RECORDS is obsolete in COBOL 85 +RL115A.CBL:68: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL115A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [013OF013TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RL116A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL116A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL116A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL116A.CBL], [0], [], [RL116A.CBL:73: warning: LABEL RECORDS is obsolete in COBOL 85 +RL116A.CBL:75: warning: DATA RECORDS is obsolete in COBOL 85 +RL116A.CBL:82: warning: LABEL RECORDS is obsolete in COBOL 85 +RL116A.CBL:84: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL116A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [003OF003TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RL117A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL117A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL117A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL117A.CBL], [0], [], [RL117A.CBL:63: warning: LABEL RECORDS is obsolete in COBOL 85 +RL117A.CBL:65: warning: DATA RECORDS is obsolete in COBOL 85 +RL117A.CBL:72: warning: LABEL RECORDS is obsolete in COBOL 85 +RL117A.CBL:74: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL117A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [006OF008TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +002TEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RL118A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL118A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL118A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL118A.CBL], [0], [], [RL118A.CBL:60: warning: LABEL RECORDS is obsolete in COBOL 85 +RL118A.CBL:62: warning: DATA RECORDS is obsolete in COBOL 85 +RL118A.CBL:69: warning: LABEL RECORDS is obsolete in COBOL 85 +RL118A.CBL:71: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL118A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [002OF004TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +002TEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RL119A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL119A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL119A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL119A.CBL], [0], [], [RL119A.CBL:60: warning: LABEL RECORDS is obsolete in COBOL 85 +RL119A.CBL:62: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL119A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RL201A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL201A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL201A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL201A.CBL], [0], [], [RL201A.CBL:54: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL201A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RL202A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL202A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL201A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL201A.CBL], [0], [], [RL201A.CBL:54: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL201A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL202A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 RL202A.SUB], [0], [], [RL202A.SUB:57: warning: LABEL RECORDS is obsolete in COBOL 85 +RL202A.SUB: in section 'SECT-RL202-001': +RL202A.SUB: in paragraph 'REL-TEST-003-R': +RL202A.SUB:400: warning: value size exceeds data size +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([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [011OF011TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RL203A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL203A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL201A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL201A.CBL], [0], [], [RL201A.CBL:54: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL201A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL203A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 RL203A.SUB], [0], [], [RL203A.SUB:57: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL203A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [009OF011TESTSWEREEXECUTEDSUCCESSFULLY +002TEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RL204A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL204A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL204A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL204A.CBL], [0], [], [RL204A.CBL:70: warning: LABEL RECORDS is obsolete in COBOL 85 +RL204A.CBL:72: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL204A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [012OF012TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RL205A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL205A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL205A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL205A.CBL], [0], [], [RL205A.CBL: in section 'SECT-RL205-0001': +RL205A.CBL: in paragraph 'REL-TEST-002-R4': +RL205A.CBL:724: warning: NEXT SENTENCE is archaic in COBOL 85 +]) +AT_CHECK([./RL205A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [066OF067TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +001TEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RL206A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL206A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL206A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL206A.CBL], [0], [], [RL206A.CBL:54: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL206A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [501OF501TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RL207A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL207A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL206A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL206A.CBL], [0], [], [RL206A.CBL:54: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL206A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL207A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 RL207A.SUB], [0], [], [RL207A.SUB:58: warning: LABEL RECORDS is obsolete in COBOL 85 +RL207A.SUB: in section 'SECT-RL207A-001': +RL207A.SUB: in paragraph 'REL-TEST-003-R': +RL207A.SUB:428: warning: value size exceeds data size +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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [020OF020TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RL208A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL208A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL206A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL206A.CBL], [0], [], [RL206A.CBL:54: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL206A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL208A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 RL208A.SUB], [0], [], [RL208A.SUB:57: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL208A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [009OF011TESTSWEREEXECUTEDSUCCESSFULLY +002TEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RL209A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL209A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL209A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL209A.CBL], [0], [], [RL209A.CBL:57: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL209A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RL210A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL210A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL210A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL210A.CBL], [0], [], [RL210A.CBL:54: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL210A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RL211A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL211A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL211A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL211A.CBL], [0], [], [RL211A.CBL:54: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL211A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [501OF501TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RL212A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL212A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL212A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL212A.CBL], [0], [], [RL212A.CBL:54: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL212A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RL213A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL213A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL213A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 RL213A.SUB], [0], [], [RL213A.SUB:58: warning: LABEL RECORDS is obsolete in COBOL 85 +RL213A.SUB:64: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL213A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF021TESTSWEREEXECUTEDSUCCESSFULLY +020TEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RL301M]) +AT_KEYWORDS([RL RL301M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL301M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL301M.CBL], [0], [], []) +# AT_CHECK([./RL301M], [0], [], []) +AT_CLEANUP + +AT_SETUP([RL302M]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RL RL302M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL302M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL302M.CBL], [0], [], [RL302M.CBL:30: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +RL302M.CBL:36: warning: LABEL RECORDS is obsolete in COBOL 85 +RL302M.CBL:41: warning: VALUE OF is obsolete in COBOL 85 +RL302M.CBL:43: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RL302M], [0], [THIS IS A DUMMY PARAGRAPH +], []) + +AT_CLEANUP + +AT_SETUP([RL401M]) +AT_KEYWORDS([RL RL401M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RL/RL401M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RL401M.CBL], [0], [], []) +# AT_CHECK([./RL401M], [0], [], []) +AT_CLEANUP + diff --git a/tests/nistrun.src/run_RW.at b/tests/nistrun.src/run_RW.at new file mode 100644 index 000000000..fc0767b8b --- /dev/null +++ b/tests/nistrun.src/run_RW.at @@ -0,0 +1,106 @@ +AT_SETUP([RW101A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RW RW101A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RW/RW101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RW101A.CBL], [0], [], [RW101A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +RW101A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +RW101A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +RW101A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +RW101A.CBL:84: warning: LABEL RECORDS is obsolete in COBOL 85 +RW101A.CBL:85: warning: DATA RECORDS is obsolete in COBOL 85 +RW101A.CBL:89: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RW101A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [008OF008TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RW102A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RW RW102A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RW/RW102A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RW102A.CBL], [0], [], [RW102A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +RW102A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +RW102A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +RW102A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +RW102A.CBL:76: warning: LABEL RECORDS is obsolete in COBOL 85 +RW102A.CBL:77: warning: DATA RECORDS is obsolete in COBOL 85 +RW102A.CBL:81: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RW102A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [004OF004TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RW103A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RW RW103A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RW/RW103A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RW103A.CBL], [0], [], [RW103A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +RW103A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +RW103A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +RW103A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +RW103A.CBL:89: warning: LABEL RECORDS is obsolete in COBOL 85 +RW103A.CBL:90: warning: DATA RECORDS is obsolete in COBOL 85 +RW103A.CBL:94: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RW103A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [014OF014TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RW104A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([RW RW104A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RW/RW104A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RW104A.CBL], [0], [], [RW104A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +RW104A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +RW104A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +RW104A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +RW104A.CBL:86: warning: LABEL RECORDS is obsolete in COBOL 85 +RW104A.CBL:87: warning: DATA RECORDS is obsolete in COBOL 85 +RW104A.CBL:91: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./RW104A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [014OF014TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([RW301M]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([RW RW301M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RW/RW301M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RW301M.CBL], [0], [], [RW301M.CBL:26: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +RW301M.CBL:31: warning: LABEL RECORDS is obsolete in COBOL 85 +RW301M.CBL:35: warning: VALUE OF is obsolete in COBOL 85 +]) + +AT_CLEANUP + +AT_SETUP([RW302M]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([RW RW302M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/RW/RW302M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 RW302M.CBL], [0], [], [RW302M.CBL:27: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +RW302M.CBL:34: warning: LABEL RECORDS is obsolete in COBOL 85 +RW302M.CBL:39: warning: VALUE OF is obsolete in COBOL 85 +]) + +AT_CLEANUP + diff --git a/tests/nistrun.src/run_SG.at b/tests/nistrun.src/run_SG.at new file mode 100644 index 000000000..92d395ac0 --- /dev/null +++ b/tests/nistrun.src/run_SG.at @@ -0,0 +1,966 @@ +AT_SETUP([SG101A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SG SG101A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SG101A.CBL], [0], [], [SG101A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +SG101A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +SG101A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +SG101A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +SG101A.CBL:42: warning: LABEL RECORDS is obsolete in COBOL 85 +SG101A.CBL:43: warning: DATA RECORDS is obsolete in COBOL 85 +SG101A.CBL: in section 'SECT-SG-01-001': +SG101A.CBL:276: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '00': +SG101A.CBL:280: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '01': +SG101A.CBL:1785: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '02': +SG101A.CBL:1788: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '03': +SG101A.CBL:1791: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '04': +SG101A.CBL:1794: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '05': +SG101A.CBL:1797: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '06': +SG101A.CBL:1800: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '07': +SG101A.CBL:1803: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '08': +SG101A.CBL:1806: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '09': +SG101A.CBL:1809: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '10': +SG101A.CBL:1812: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '11': +SG101A.CBL:1815: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '12': +SG101A.CBL:1818: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '13': +SG101A.CBL:1821: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '14': +SG101A.CBL:1824: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '15': +SG101A.CBL:1827: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '16': +SG101A.CBL:1830: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '17': +SG101A.CBL:1833: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '18': +SG101A.CBL:1836: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '19': +SG101A.CBL:1839: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '20': +SG101A.CBL:1842: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '21': +SG101A.CBL:1845: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '22': +SG101A.CBL:1848: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '23': +SG101A.CBL:1851: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '24': +SG101A.CBL:1854: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '25': +SG101A.CBL:1857: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '26': +SG101A.CBL:1860: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '27': +SG101A.CBL:1863: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '28': +SG101A.CBL:1866: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '29': +SG101A.CBL:1869: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '30': +SG101A.CBL:1872: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '31': +SG101A.CBL:1875: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '32': +SG101A.CBL:1878: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '33': +SG101A.CBL:1881: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '34': +SG101A.CBL:1884: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '35': +SG101A.CBL:1887: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '36': +SG101A.CBL:1890: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '37': +SG101A.CBL:1893: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '38': +SG101A.CBL:1896: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '39': +SG101A.CBL:1899: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '40': +SG101A.CBL:1902: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '41': +SG101A.CBL:1905: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '42': +SG101A.CBL:1908: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '43': +SG101A.CBL:1911: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '44': +SG101A.CBL:1914: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '45': +SG101A.CBL:1917: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '46': +SG101A.CBL:1920: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '47': +SG101A.CBL:1923: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '48': +SG101A.CBL:1926: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '49': +SG101A.CBL:1929: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section 'SECOND-HALF': +SG101A.CBL:1932: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '50': +SG101A.CBL:2698: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '51': +SG101A.CBL:2701: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '52': +SG101A.CBL:2704: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '53': +SG101A.CBL:2707: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '54': +SG101A.CBL:2710: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '55': +SG101A.CBL:2713: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '56': +SG101A.CBL:2716: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '57': +SG101A.CBL:2719: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '58': +SG101A.CBL:2722: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '59': +SG101A.CBL:2725: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '60': +SG101A.CBL:2728: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '61': +SG101A.CBL:2731: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '62': +SG101A.CBL:2734: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '63': +SG101A.CBL:2737: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '64': +SG101A.CBL:2740: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '65': +SG101A.CBL:2743: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '66': +SG101A.CBL:2746: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '67': +SG101A.CBL:2749: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '68': +SG101A.CBL:2752: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '69': +SG101A.CBL:2755: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '70': +SG101A.CBL:2758: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '71': +SG101A.CBL:2761: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '72': +SG101A.CBL:2764: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '73': +SG101A.CBL:2767: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '74': +SG101A.CBL:2770: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '75': +SG101A.CBL:2773: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '76': +SG101A.CBL:2776: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '77': +SG101A.CBL:2779: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '78': +SG101A.CBL:2782: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '79': +SG101A.CBL:2785: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '80': +SG101A.CBL:2788: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '81': +SG101A.CBL:2791: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '82': +SG101A.CBL:2794: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '83': +SG101A.CBL:2797: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '84': +SG101A.CBL:2800: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '85': +SG101A.CBL:2803: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '86': +SG101A.CBL:2806: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '87': +SG101A.CBL:2809: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '88': +SG101A.CBL:2812: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '89': +SG101A.CBL:2815: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '90': +SG101A.CBL:2818: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '91': +SG101A.CBL:2821: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '92': +SG101A.CBL:2824: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '93': +SG101A.CBL:2827: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '94': +SG101A.CBL:2830: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '95': +SG101A.CBL:2833: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '96': +SG101A.CBL:2836: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '97': +SG101A.CBL:2839: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '98': +SG101A.CBL:2842: warning: section segments is obsolete in COBOL 85 +SG101A.CBL: in section '99': +SG101A.CBL:2845: warning: section segments is obsolete in COBOL 85 +]) +AT_CHECK([./SG101A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [151OF151TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SG102A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SG SG102A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG102A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SG102A.CBL], [0], [], [SG102A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +SG102A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +SG102A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +SG102A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +SG102A.CBL:41: warning: LABEL RECORDS is obsolete in COBOL 85 +SG102A.CBL:42: warning: DATA RECORDS is obsolete in COBOL 85 +SG102A.CBL: in section 'SECT-SG-02-001': +SG102A.CBL:173: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-1': +SG102A.CBL:282: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'TEST-1C': +SG102A.CBL:291: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL: in section 'SEG-TEST2': +SG102A.CBL:296: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'SEG-TEST-2': +SG102A.CBL:300: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL:302: warning: alphanumeric value is expected +SG102A.CBL:49: note: 'RANGE-X' defined here as PIC X +SG102A.CBL:305: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-6-1': +SG102A.CBL:321: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'TEST-6A': +SG102A.CBL:323: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-6-2': +SG102A.CBL:324: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-6-3': +SG102A.CBL:327: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-6-4': +SG102A.CBL:332: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'TEST-6D': +SG102A.CBL:334: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-6-5': +SG102A.CBL:335: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'TEST-6E': +SG102A.CBL:338: warning: alphanumeric value is expected +SG102A.CBL:49: note: 'RANGE-X' defined here as PIC X +SG102A.CBL: in section 'START-TESTING': +SG102A.CBL:341: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'SEG-TEST-1': +SG102A.CBL:346: warning: alphanumeric value is expected +SG102A.CBL:49: note: 'RANGE-X' defined here as PIC X +SG102A.CBL:348: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-8-BRANCH': +SG102A.CBL:368: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-6-6': +SG102A.CBL:371: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-6-7': +SG102A.CBL:376: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'TEST-6G': +SG102A.CBL:378: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-6-8': +SG102A.CBL:380: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-6-9': +SG102A.CBL:385: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST22': +SG102A.CBL:388: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'PARA-2-22': +SG102A.CBL:395: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-4': +SG102A.CBL:398: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'TEST-4C': +SG102A.CBL:409: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL: in section 'SEG-TEST5': +SG102A.CBL:413: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in section 'SEG-TEST7': +SG102A.CBL:439: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'SEG-TEST-7': +SG102A.CBL:446: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-7-1': +SG102A.CBL:463: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-7-2': +SG102A.CBL:466: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'TEST-7B': +SG102A.CBL:468: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-7-3': +SG102A.CBL:469: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-7-4': +SG102A.CBL:479: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'TEST-7F': +SG102A.CBL:483: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL: in section 'SEG-TEST3': +SG102A.CBL:486: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'SEG-TEST-3': +SG102A.CBL:490: warning: alphanumeric value is expected +SG102A.CBL:49: note: 'RANGE-X' defined here as PIC X +SG102A.CBL:494: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL:495: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-3': +SG102A.CBL:506: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in section 'SEG-TEST4': +SG102A.CBL:529: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'SEG-TEST-4': +SG102A.CBL:534: warning: alphanumeric value is expected +SG102A.CBL:49: note: 'RANGE-X' defined here as PIC X +SG102A.CBL: in section 'SEG-TEST6': +SG102A.CBL:550: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in section 'SEG-TEST8': +SG102A.CBL:572: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'SEG-TEST-8': +SG102A.CBL:574: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL: in section 'SEG-TEST-8A': +SG102A.CBL:580: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in section 'TEST-5': +SG102A.CBL:588: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'TEST-5B': +SG102A.CBL:592: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL:593: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL: in section 'SEG': +SG102A.CBL:598: warning: section segments is obsolete in COBOL 85 +SG102A.CBL: in paragraph 'SEG-99B': +SG102A.CBL:602: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL:603: warning: ALTER is obsolete in COBOL 85 +SG102A.CBL:557: warning: TEST-6A and TEST-6I are not in the same SECTION +]) +AT_CHECK([./SG102A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [008OF008TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SG103A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SG SG103A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG103A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SG103A.CBL], [0], [], [SG103A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +SG103A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +SG103A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +SG103A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +SG103A.CBL:40: warning: LABEL RECORDS is obsolete in COBOL 85 +SG103A.CBL:41: warning: DATA RECORDS is obsolete in COBOL 85 +SG103A.CBL: in section 'SECT-SG-03-001': +SG103A.CBL:291: warning: section segments is obsolete in COBOL 85 +SG103A.CBL: in section 'SEC20': +SG103A.CBL:296: warning: section segments is obsolete in COBOL 85 +SG103A.CBL: in section 'SEC51': +SG103A.CBL:381: warning: section segments is obsolete in COBOL 85 +SG103A.CBL: in paragraph 'P5103': +SG103A.CBL:399: warning: ALTER is obsolete in COBOL 85 +SG103A.CBL: in section 'SEC60': +SG103A.CBL:443: warning: section segments is obsolete in COBOL 85 +SG103A.CBL: in section 'SEC80': +SG103A.CBL:447: warning: section segments is obsolete in COBOL 85 +SG103A.CBL: in paragraph 'P8002': +SG103A.CBL:451: warning: ALTER is obsolete in COBOL 85 +SG103A.CBL: in section 'SEC93': +SG103A.CBL:458: warning: section segments is obsolete in COBOL 85 +SG103A.CBL: in section 'SEC95': +SG103A.CBL:468: warning: section segments is obsolete in COBOL 85 +SG103A.CBL: in paragraph 'P9501': +SG103A.CBL:471: warning: ALTER is obsolete in COBOL 85 +SG103A.CBL: in section 'SEC99': +SG103A.CBL:472: warning: section segments is obsolete in COBOL 85 +SG103A.CBL: in paragraph 'P9902': +SG103A.CBL:476: warning: ALTER is obsolete in COBOL 85 +]) +AT_CHECK([./SG103A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [007OF007TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SG104A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SG SG104A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG104A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SG104A.CBL], [0], [], [SG104A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +SG104A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +SG104A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +SG104A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +SG104A.CBL:60: warning: LABEL RECORDS is obsolete in COBOL 85 +SG104A.CBL:61: warning: DATA RECORDS is obsolete in COBOL 85 +SG104A.CBL:65: warning: DATA RECORDS is obsolete in COBOL 85 +SG104A.CBL: in section 'SORT-PARA': +SG104A.CBL:203: warning: section segments is obsolete in COBOL 85 +SG104A.CBL: in section 'INPROC': +SG104A.CBL:217: warning: section segments is obsolete in COBOL 85 +SG104A.CBL: in paragraph 'BUILD-FILE': +SG104A.CBL:238: warning: ignoring sign +SG104A.CBL: in paragraph 'BUILD-RECORD': +SG104A.CBL:251: warning: ignoring sign +SG104A.CBL: in section 'OUTPROC': +SG104A.CBL:259: warning: section segments is obsolete in COBOL 85 +SG104A.CBL: in section 'B-IS-LESS-THAN-SPACE': +SG104A.CBL:267: warning: section segments is obsolete in COBOL 85 +SG104A.CBL: in section 'SPACE-IS-LESS-THAN-B': +SG104A.CBL:372: warning: section segments is obsolete in COBOL 85 +SG104A.CBL: in section 'CONTINUE-TESTING': +SG104A.CBL:473: warning: section segments is obsolete in COBOL 85 +SG104A.CBL: in section 'OUTPROC-EXIT': +SG104A.CBL:588: warning: section segments is obsolete in COBOL 85 +]) +AT_CHECK([./SG104A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [009OF009TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SG105A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SG SG105A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG105A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SG105A.CBL], [0], [], [SG105A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +SG105A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +SG105A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +SG105A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +SG105A.CBL:60: warning: LABEL RECORDS is obsolete in COBOL 85 +SG105A.CBL:61: warning: DATA RECORDS is obsolete in COBOL 85 +SG105A.CBL:65: warning: DATA RECORDS is obsolete in COBOL 85 +SG105A.CBL: in section 'SORT-PARA': +SG105A.CBL:203: warning: section segments is obsolete in COBOL 85 +SG105A.CBL: in section 'INPROC': +SG105A.CBL:217: warning: section segments is obsolete in COBOL 85 +SG105A.CBL: in paragraph 'BUILD-FILE': +SG105A.CBL:238: warning: ignoring sign +SG105A.CBL: in paragraph 'BUILD-RECORD': +SG105A.CBL:251: warning: ignoring sign +SG105A.CBL: in section 'OUTPROC': +SG105A.CBL:259: warning: section segments is obsolete in COBOL 85 +SG105A.CBL: in section 'B-IS-LESS-THAN-SPACE': +SG105A.CBL:267: warning: section segments is obsolete in COBOL 85 +SG105A.CBL: in section 'SPACE-IS-LESS-THAN-B': +SG105A.CBL:372: warning: section segments is obsolete in COBOL 85 +SG105A.CBL: in paragraph 'SORT-FAIL-15': +SG105A.CBL:458: warning: value size exceeds data size +SG105A.CBL:458: note: value is 6000000000000000 +SG105A.CBL:116: note: 'CORRECT-18V0' defined here as PIC -9(18) +SG105A.CBL: in section 'CONTINUE-TESTING': +SG105A.CBL:473: warning: section segments is obsolete in COBOL 85 +SG105A.CBL: in section 'OUTPROC-EXIT': +SG105A.CBL:588: warning: section segments is obsolete in COBOL 85 +]) +AT_CHECK([./SG105A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [009OF009TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SG106A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SG SG106A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG106A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SG106A.CBL], [0], [], [SG106A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +SG106A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +SG106A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +SG106A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +SG106A.CBL:60: warning: LABEL RECORDS is obsolete in COBOL 85 +SG106A.CBL:61: warning: DATA RECORDS is obsolete in COBOL 85 +SG106A.CBL:65: warning: DATA RECORDS is obsolete in COBOL 85 +SG106A.CBL: in section 'SORT-PARA': +SG106A.CBL:203: warning: section segments is obsolete in COBOL 85 +SG106A.CBL: in section 'INPROC': +SG106A.CBL:217: warning: section segments is obsolete in COBOL 85 +SG106A.CBL: in paragraph 'BUILD-FILE': +SG106A.CBL:238: warning: ignoring sign +SG106A.CBL: in paragraph 'BUILD-RECORD': +SG106A.CBL:251: warning: ignoring sign +SG106A.CBL: in section 'OUTPROC': +SG106A.CBL:259: warning: section segments is obsolete in COBOL 85 +SG106A.CBL: in section 'B-IS-LESS-THAN-SPACE': +SG106A.CBL:267: warning: section segments is obsolete in COBOL 85 +SG106A.CBL: in section 'SPACE-IS-LESS-THAN-B': +SG106A.CBL:372: warning: section segments is obsolete in COBOL 85 +SG106A.CBL: in section 'CONTINUE-TESTING': +SG106A.CBL:473: warning: section segments is obsolete in COBOL 85 +SG106A.CBL: in section 'OUTPROC-EXIT': +SG106A.CBL:588: warning: section segments is obsolete in COBOL 85 +]) +AT_CHECK([./SG106A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [009OF009TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SG201A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SG SG201A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG201A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SG201A.CBL], [0], [], [SG201A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +SG201A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +SG201A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +SG201A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +SG201A.CBL:37: warning: SEGMENT LIMIT is obsolete in COBOL 85 +SG201A.CBL:46: warning: LABEL RECORDS is obsolete in COBOL 85 +SG201A.CBL:47: warning: DATA RECORDS is obsolete in COBOL 85 +SG201A.CBL: in section 'HOUSEKEEPING': +SG201A.CBL:175: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in section 'SECOND-HALF': +SG201A.CBL:1504: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in section '00': +SG201A.CBL:1596: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in section '01': +SG201A.CBL:1599: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in section '02': +SG201A.CBL:1602: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in section '03': +SG201A.CBL:1605: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in section '04': +SG201A.CBL:1608: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in section '05': +SG201A.CBL:1611: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in section '06': +SG201A.CBL:1614: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in section '30': +SG201A.CBL:1617: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-30C': +SG201A.CBL:1625: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '31': +SG201A.CBL:1628: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-31C': +SG201A.CBL:1636: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '32': +SG201A.CBL:1639: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-32C': +SG201A.CBL:1647: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '33': +SG201A.CBL:1650: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-33C': +SG201A.CBL:1658: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '34': +SG201A.CBL:1661: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-34C': +SG201A.CBL:1669: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '35': +SG201A.CBL:1672: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-35C': +SG201A.CBL:1680: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '36': +SG201A.CBL:1683: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-36C': +SG201A.CBL:1691: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '37': +SG201A.CBL:1694: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-37C': +SG201A.CBL:1702: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '38': +SG201A.CBL:1705: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-38C': +SG201A.CBL:1713: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '39': +SG201A.CBL:1716: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-39C': +SG201A.CBL:1724: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '40': +SG201A.CBL:1727: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-40C': +SG201A.CBL:1735: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '41': +SG201A.CBL:1738: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-41C': +SG201A.CBL:1746: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '42': +SG201A.CBL:1749: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-42C': +SG201A.CBL:1757: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '43': +SG201A.CBL:1760: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-43C': +SG201A.CBL:1768: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '44': +SG201A.CBL:1771: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-44C': +SG201A.CBL:1779: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '45': +SG201A.CBL:1782: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-45C': +SG201A.CBL:1790: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '46': +SG201A.CBL:1793: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-46C': +SG201A.CBL:1801: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '47': +SG201A.CBL:1804: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-47C': +SG201A.CBL:1812: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '48': +SG201A.CBL:1815: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-48C': +SG201A.CBL:1823: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '49': +SG201A.CBL:1826: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-49C': +SG201A.CBL:1834: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '50': +SG201A.CBL:1837: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-50B': +SG201A.CBL:1843: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '51': +SG201A.CBL:1846: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-51B': +SG201A.CBL:1852: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '52': +SG201A.CBL:1855: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-52B': +SG201A.CBL:1861: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '53': +SG201A.CBL:1864: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-53B': +SG201A.CBL:1870: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '54': +SG201A.CBL:1873: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-54B': +SG201A.CBL:1879: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '55': +SG201A.CBL:1882: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-55B': +SG201A.CBL:1888: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '56': +SG201A.CBL:1891: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-56B': +SG201A.CBL:1897: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '57': +SG201A.CBL:1900: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-57B': +SG201A.CBL:1906: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '58': +SG201A.CBL:1909: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-58B': +SG201A.CBL:1915: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '59': +SG201A.CBL:1918: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-59B': +SG201A.CBL:1924: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '60': +SG201A.CBL:1927: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-60B': +SG201A.CBL:1933: warning: ALTER is obsolete in COBOL 85 +SG201A.CBL: in section '99': +SG201A.CBL:1936: warning: section segments is obsolete in COBOL 85 +SG201A.CBL: in paragraph 'PARA-99A': +SG201A.CBL:1940: warning: ALTER is obsolete in COBOL 85 +]) +AT_CHECK([./SG201A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [079OF079TESTSWEREEXECUTEDSUCCESSFULLY +FEATUREPASSPARAGRAPH-NAMEREMARKS +TESTEDFAIL + +], []) + +AT_CLEANUP + +AT_SETUP([SG202A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SG SG202A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG202A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SG202A.CBL], [0], [], [SG202A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +SG202A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +SG202A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +SG202A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +SG202A.CBL:35: warning: SEGMENT LIMIT is obsolete in COBOL 85 +SG202A.CBL:44: warning: LABEL RECORDS is obsolete in COBOL 85 +SG202A.CBL:45: warning: DATA RECORDS is obsolete in COBOL 85 +SG202A.CBL: in section 'SECT-SG-02-001': +SG202A.CBL:293: warning: section segments is obsolete in COBOL 85 +SG202A.CBL: in paragraph 'TEST-2': +SG202A.CBL:329: warning: ALTER is obsolete in COBOL 85 +SG202A.CBL: in section 'SEC28': +SG202A.CBL:383: warning: section segments is obsolete in COBOL 85 +SG202A.CBL: in section 'SEC39': +SG202A.CBL:399: warning: section segments is obsolete in COBOL 85 +SG202A.CBL: in paragraph 'P3902': +SG202A.CBL:403: warning: ALTER is obsolete in COBOL 85 +SG202A.CBL: in paragraph 'P3903': +SG202A.CBL:407: warning: ALTER is obsolete in COBOL 85 +SG202A.CBL: in section 'SEC40': +SG202A.CBL:411: warning: section segments is obsolete in COBOL 85 +SG202A.CBL: in section 'SEC45': +SG202A.CBL:421: warning: section segments is obsolete in COBOL 85 +SG202A.CBL: in section 'SEC48': +SG202A.CBL:426: warning: section segments is obsolete in COBOL 85 +SG202A.CBL: in section '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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [005OF005TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SG203A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SG SG203A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG203A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SG203A.CBL], [0], [], [SG203A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +SG203A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +SG203A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +SG203A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +SG203A.CBL:33: warning: SEGMENT LIMIT is obsolete in COBOL 85 +SG203A.CBL:42: warning: LABEL RECORDS is obsolete in COBOL 85 +SG203A.CBL:43: warning: DATA RECORDS is obsolete in COBOL 85 +SG203A.CBL: in section 'SECT-SG-03-001': +SG203A.CBL:172: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '50': +SG203A.CBL:281: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '29': +SG203A.CBL:284: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '67': +SG203A.CBL:288: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '30': +SG203A.CBL:305: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '51': +SG203A.CBL:308: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '52': +SG203A.CBL:311: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '31': +SG203A.CBL:314: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '53': +SG203A.CBL:330: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '99': +SG203A.CBL:333: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'WRITE-99': +SG203A.CBL:351: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in section '54': +SG203A.CBL:353: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-54A': +SG203A.CBL:357: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-54B': +SG203A.CBL:360: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in section '32': +SG203A.CBL:362: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-32A': +SG203A.CBL:366: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in section '33': +SG203A.CBL:372: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '34': +SG203A.CBL:375: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-34A': +SG203A.CBL:379: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in section '55': +SG203A.CBL:381: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '56': +SG203A.CBL:398: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-56': +SG203A.CBL:400: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in section '57': +SG203A.CBL:418: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-57': +SG203A.CBL:421: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in section '59': +SG203A.CBL:430: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '01': +SG203A.CBL:437: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '02': +SG203A.CBL:454: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '35': +SG203A.CBL:473: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-35': +SG203A.CBL:475: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in section '36': +SG203A.CBL:494: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-36A': +SG203A.CBL:498: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in section '85': +SG203A.CBL:518: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '98': +SG203A.CBL:522: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '58': +SG203A.CBL:526: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-58D': +SG203A.CBL:538: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in section '37': +SG203A.CBL:541: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '38': +SG203A.CBL:559: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '03': +SG203A.CBL:577: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '39': +SG203A.CBL:597: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-39D': +SG203A.CBL:607: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in section '04': +SG203A.CBL:610: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '40': +SG203A.CBL:628: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '68': +SG203A.CBL:657: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-68A': +SG203A.CBL:661: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in section '41': +SG203A.CBL:686: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-41A': +SG203A.CBL:691: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in section 'TEST-16': +SG203A.CBL:708: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-41D': +SG203A.CBL:716: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in section 'TEST-16A': +SG203A.CBL:723: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '45': +SG203A.CBL:726: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '45A': +SG203A.CBL:739: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section '45B': +SG203A.CBL:742: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-45C': +SG203A.CBL:744: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-45E': +SG203A.CBL:750: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in section '46': +SG203A.CBL:759: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in section 'TEST-18': +SG203A.CBL:771: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-47': +SG203A.CBL:775: warning: ALTER is obsolete in COBOL 85 +SG203A.CBL: in section '05': +SG203A.CBL:777: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'PARA-05': +SG203A.CBL:779: warning: GO TO without procedure-name is obsolete in COBOL 85 +SG203A.CBL: in section '69': +SG203A.CBL:784: warning: section segments is obsolete in COBOL 85 +SG203A.CBL: in paragraph 'WRITE-69': +SG203A.CBL:335: warning: PARA-32 and PARA-33 are not in the same SECTION +]) +AT_CHECK([./SG203A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [018OF018TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SG204A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SG SG204A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG204A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SG204A.CBL], [0], [], [SG204A.CBL:4: warning: AUTHOR is obsolete in COBOL 85 +SG204A.CBL:6: warning: INSTALLATION is obsolete in COBOL 85 +SG204A.CBL:16: warning: DATE-WRITTEN is obsolete in COBOL 85 +SG204A.CBL:20: warning: SECURITY is obsolete in COBOL 85 +SG204A.CBL:70: warning: LABEL RECORDS is obsolete in COBOL 85 +SG204A.CBL:71: warning: DATA RECORDS is obsolete in COBOL 85 +SG204A.CBL:75: warning: LABEL RECORDS is obsolete in COBOL 85 +SG204A.CBL:79: warning: VALUE OF is obsolete in COBOL 85 +SG204A.CBL:81: warning: DATA RECORDS is obsolete in COBOL 85 +SG204A.CBL:85: warning: LABEL RECORDS is obsolete in COBOL 85 +SG204A.CBL:89: warning: VALUE OF is obsolete in COBOL 85 +SG204A.CBL:91: warning: DATA RECORDS is obsolete in COBOL 85 +SG204A.CBL:100: warning: LABEL RECORDS is obsolete in COBOL 85 +SG204A.CBL:104: warning: VALUE OF is obsolete in COBOL 85 +SG204A.CBL:105: warning: DATA RECORDS is obsolete in COBOL 85 +SG204A.CBL:115: warning: DATA RECORDS is obsolete in COBOL 85 +SG204A.CBL:123: warning: DATA RECORDS is obsolete in COBOL 85 +SG204A.CBL:132: warning: DATA RECORDS is obsolete in COBOL 85 +SG204A.CBL: in section 'SRT-1': +SG204A.CBL:419: warning: section segments is obsolete in COBOL 85 +SG204A.CBL: in section 'SRT-2': +SG204A.CBL:428: warning: section segments is obsolete in COBOL 85 +SG204A.CBL: in section 'SRT-2-INPUT': +SG204A.CBL:438: warning: section segments is obsolete in COBOL 85 +SG204A.CBL: in section 'SRT3-INPUT': +SG204A.CBL:588: warning: section segments is obsolete in COBOL 85 +SG204A.CBL: in section 'SRT3-OUTPUT-1': +SG204A.CBL:728: warning: section segments is obsolete in COBOL 85 +SG204A.CBL: in section 'SRT3-OUTPUT-2': +SG204A.CBL:835: warning: section segments is obsolete in COBOL 85 +SG204A.CBL: in section 'END-CCVS': +SG204A.CBL:875: warning: section segments is obsolete in COBOL 85 +]) +AT_CHECK([./SG204A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [015OF015TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SG302M]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SG SG302M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG302M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SG302M.CBL], [0], [], [SG302M.CBL: in section 'BEANO': +SG302M.CBL:16: warning: section segments is obsolete in COBOL 85 +]) +AT_CHECK([./SG302M], [0], [THIS IS A DUMMY PARAGRAPH +], []) + +AT_CLEANUP + +AT_SETUP([SG303M]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SG SG303M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG303M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SG303M.CBL], [0], [], [SG303M.CBL:12: warning: SEGMENT LIMIT is obsolete in COBOL 85 +SG303M.CBL: in section 'NUMBER1': +SG303M.CBL:17: warning: section segments is obsolete in COBOL 85 +SG303M.CBL: in section 'NUMBER2': +SG303M.CBL:23: warning: section segments is obsolete in COBOL 85 +SG303M.CBL: in section 'NUMBER3': +SG303M.CBL:29: warning: section segments is obsolete in COBOL 85 +]) +AT_CHECK([./SG303M], [0], [THIS IS A DUMMY PARAGRAPH +THIS IS A DUMMY PARAGRAPH TOO! +], []) + +AT_CLEANUP + +AT_SETUP([SG401M]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SG SG401M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SG/SG401M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SG401M.CBL], [0], [], [SG401M.CBL:12: warning: SEGMENT LIMIT is obsolete in COBOL 85 +SG401M.CBL: in section 'NUMBER1': +SG401M.CBL:19: warning: section segments is obsolete in COBOL 85 +SG401M.CBL: in section 'NUMBER2': +SG401M.CBL:24: warning: section segments is obsolete in COBOL 85 +SG401M.CBL: in section 'NUMBER3': +SG401M.CBL:29: warning: section segments is obsolete in COBOL 85 +]) +AT_CHECK([./SG401M], [0], [THIS IS A DUMMY PARAGRAPH +THIS IS A DUMMY PARAGRAPH TOO! +], []) + +AT_CLEANUP + diff --git a/tests/nistrun.src/run_SM.at b/tests/nistrun.src/run_SM.at new file mode 100644 index 000000000..b42106ef8 --- /dev/null +++ b/tests/nistrun.src/run_SM.at @@ -0,0 +1,330 @@ +AT_SETUP([SM101A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SM SM101A]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SM101A.CBL], [0], [], [copy/K1FDA:1: warning: LABEL RECORDS is obsolete in COBOL 85 +copy/K1FDA:2: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./SM101A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [008OF008TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SM102A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SM SM102A]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SM101A.CBL], [0], [], [copy/K1FDA:1: warning: LABEL RECORDS is obsolete in COBOL 85 +copy/K1FDA:2: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./SM101A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM102A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 SM102A.SUB], [0], [], [SM102A.SUB:45: warning: LABEL RECORDS is obsolete in COBOL 85 +SM102A.SUB:46: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./SM102A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [004OF004TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SM103A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SM SM103A]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM103A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SM103A.CBL], [0], [], [SM103A.CBL:32: warning: SECURITY is obsolete in COBOL 85 +SM103A.CBL:108: warning: LABEL RECORDS is obsolete in COBOL 85 +SM103A.CBL:109: warning: DATA RECORDS is obsolete in COBOL 85 +SM103A.CBL:115: warning: LABEL RECORDS is obsolete in COBOL 85 +SM103A.CBL:116: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./SM103A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [006OF006TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SM104A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SM SM104A]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM103A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SM103A.CBL], [0], [], [SM103A.CBL:32: warning: SECURITY is obsolete in COBOL 85 +SM103A.CBL:108: warning: LABEL RECORDS is obsolete in COBOL 85 +SM103A.CBL:109: warning: DATA RECORDS is obsolete in COBOL 85 +SM103A.CBL:115: warning: LABEL RECORDS is obsolete in COBOL 85 +SM103A.CBL:116: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./SM103A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM104A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 SM104A.SUB], [0], [], [SM104A.SUB:48: warning: LABEL RECORDS is obsolete in COBOL 85 +SM104A.SUB:49: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./SM104A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [007OF007TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SM105A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SM SM105A]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM105A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SM105A.CBL], [0], [], [copy/K5SDA:1: warning: DATA RECORDS is obsolete in COBOL 85 +SM105A.CBL:76: warning: LABEL RECORDS is obsolete in COBOL 85 +SM105A.CBL:77: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./SM105A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [009OF009TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SM106A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SM SM106A]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM106A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SM106A.CBL], [0], [], []) +AT_CHECK([./SM106A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [000OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +001TEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SM107A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SM SM107A]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM107A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SM107A.CBL], [0], [], []) +AT_CHECK([./SM107A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [200OF200TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SM201A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SM SM201A]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM201A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SM201A.CBL], [0], [], [copy/K1FDA:1: warning: LABEL RECORDS is obsolete in COBOL 85 +copy/K1FDA:2: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./SM201A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [011OF011TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SM202A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SM SM202A]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM201A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SM201A.CBL], [0], [], [copy/K1FDA:1: warning: LABEL RECORDS is obsolete in COBOL 85 +copy/K1FDA:2: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./SM201A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM202A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 SM202A.SUB], [0], [], [SM202A.SUB:48: warning: LABEL RECORDS is obsolete in COBOL 85 +SM202A.SUB:49: warning: DATA RECORDS is obsolete in COBOL 85 +copy/K2SEA: in section 'COPY-TEST-15': +copy/K2SEA: in paragraph 'PARA-1': +copy/K2SEA:2: warning: ALTER is obsolete in COBOL 85 +copy/K2PRA: in section 'COPY-PARA': +copy/K2PRA: in paragraph 'COPY-TEST-17': +copy/K2PRA:2: warning: value size exceeds data size +copy/K2PRA:2: note: value size is 9 +SM202A.SUB:57: note: 'AREA-2' defined here as PIC XXXXB +copy/K2PRA:4: warning: ignoring sign +copy/K2PRA:4: warning: value size exceeds data size +copy/K2PRA:4: note: value is 00000499 +SM202A.SUB:59: note: 'AREA-4' defined here as PIC ZZZZZ +]) +AT_CHECK([./SM202A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [007OF007TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SM203A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SM SM203A]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM203A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SM203A.CBL], [0], [], [SM203A.CBL:75: warning: LABEL RECORDS is obsolete in COBOL 85 +SM203A.CBL:76: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./SM203A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SM204A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SM SM204A]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM203A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SM203A.CBL], [0], [], [SM203A.CBL:75: warning: LABEL RECORDS is obsolete in COBOL 85 +SM203A.CBL:76: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./SM203A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM204A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 SM204A.SUB], [0], [], [SM204A.SUB:48: warning: LABEL RECORDS is obsolete in COBOL 85 +SM204A.SUB:49: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./SM204A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [004OF004TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SM205A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SM SM205A]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM205A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SM205A.CBL], [0], [], [copy/K5SDB:1: warning: DATA RECORDS is obsolete in COBOL 85 +SM205A.CBL:81: warning: LABEL RECORDS is obsolete in COBOL 85 +SM205A.CBL:82: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./SM205A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [009OF009TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SM206A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SM SM206A]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM206A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [013OF016TESTSWEREEXECUTEDSUCCESSFULLY +001TEST(S)FAILED +002TEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SM207A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SM SM207A]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM207A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SM207A.CBL], [0], [], [SM207A.CBL:338: warning: copybook not found in library '../copyalt', library-name ignored +]) +AT_CHECK([./SM207A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [002OF003TESTSWEREEXECUTEDSUCCESSFULLY +001TEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SM208A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SM SM208A]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM208A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SM208A.CBL], [0], [], []) +AT_CHECK([./SM208A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [009OF009TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SM301M]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SM SM301M]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM301M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SM301M.CBL], [0], [], []) +AT_CHECK([./SM301M], [0], [ +], []) + +AT_CLEANUP + +AT_SETUP([SM401M]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SM SM401M]) +AT_CHECK([mkdir -p copy], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/copy/* copy/], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SM/SM401M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SM401M.CBL], [0], [], []) +AT_CHECK([./SM401M], [0], [COW SHEEP PIG HORSE LAMB DOG CAT +], []) + +AT_CLEANUP + diff --git a/tests/nistrun.src/run_SQ.at b/tests/nistrun.src/run_SQ.at new file mode 100644 index 000000000..753d72cd6 --- /dev/null +++ b/tests/nistrun.src/run_SQ.at @@ -0,0 +1,1355 @@ +AT_SETUP([SQ101M]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ101M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ101M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ101M.CBL], [0], [], []) +AT_CHECK([./SQ101M], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [000OF057TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +057TEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ102A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ102A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ102A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ102A.CBL], [0], [], []) +AT_CHECK([./SQ102A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [011OF011TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ103A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ103A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ103A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ103A.CBL], [0], [], []) +AT_CHECK([./SQ103A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [030OF030TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ104A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ104A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ104A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ104A.CBL], [0], [], []) +AT_CHECK([./SQ104A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [011OF011TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ105A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SQ SQ105A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ105A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ105A.CBL], [0], [], [SQ105A.CBL:71: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./SQ105A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [022OF022TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ106A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ106A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ106A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ106A.CBL], [0], [], []) +AT_CHECK([./SQ106A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [075OF075TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ107A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ107A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ107A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ107A.CBL], [0], [], []) +AT_CHECK([./SQ107A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [006OF006TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ108A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ108A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ108A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ108A.CBL], [0], [], []) +AT_CHECK([./SQ108A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [008OF008TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ109M]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SQ SQ109M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ109M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ109M.CBL], [0], [], [SQ109M.CBL: in section 'SECT-SQ109-0001': +SQ109M.CBL: in paragraph 'READ-INIT-GF-01': +SQ109M.CBL:430: warning: value size exceeds data size +SQ109M.CBL:430: note: value size is 24 +SQ109M.CBL:115: note: 'FEATURE' defined here as PIC X(20) +]) +AT_CHECK([./SQ109M], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [006OF006TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ110M]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SQ SQ110M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ110M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ110M.CBL], [0], [], [SQ110M.CBL: in section 'SECT-SQ110M-0001': +SQ110M.CBL: in paragraph 'READ-INIT-GF-01': +SQ110M.CBL:428: warning: value size exceeds data size +SQ110M.CBL:428: note: value size is 24 +SQ110M.CBL:117: note: 'FEATURE' defined here as PIC X(20) +]) +AT_CHECK([./SQ110M], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [006OF006TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ111A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SQ SQ111A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ111A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ111A.CBL], [0], [], [SQ111A.CBL:55: note: ignoring CODE-SET 'TAPE-CHARACTER-SET' +SQ111A.CBL: in section 'SECT-SQ111A-0001': +SQ111A.CBL: in paragraph 'WRITE-TEST-GF-01': +SQ111A.CBL:378: warning: value size exceeds data size +SQ111A.CBL:378: note: value size is 31 +SQ111A.CBL:60: note: 'SQ-FS1-FILLER' defined here as PIC X(30) +]) +AT_CHECK([./SQ111A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ112A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SQ SQ112A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ112A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ112A.CBL], [0], [], [SQ112A.CBL: in section 'SECT-SQ112A-0003': +SQ112A.CBL: in paragraph 'READ-INIT-GF-03': +SQ112A.CBL:501: warning: value size exceeds data size +SQ112A.CBL:501: note: value size is 24 +SQ112A.CBL:120: note: 'FEATURE' defined here as PIC X(20) +]) +AT_CHECK([./SQ112A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [007OF007TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ113A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ113A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ113A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ113A.CBL], [0], [], []) +AT_CHECK([./SQ113A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [022OF022TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ114A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SQ SQ114A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ114A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ114A.CBL], [0], [], [SQ114A.CBL: in section 'SECT-SQ102-0001': +SQ114A.CBL: in paragraph 'OPEN-WRITE-GF-01': +SQ114A.CBL:418: warning: value size exceeds data size +SQ114A.CBL:418: note: value size is 21 +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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [015OF015TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ115A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ115A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ115A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ115A.CBL], [0], [], []) +AT_CHECK([./SQ115A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [003OF003TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ116A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SQ SQ116A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ116A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ116A.CBL], [0], [], [SQ116A.CBL: in section 'SECT-SQ116A-0001': +SQ116A.CBL: in paragraph 'REWRITE-WRITE-GF-03': +SQ116A.CBL:663: warning: value size exceeds data size +SQ116A.CBL:663: note: value size is 21 +SQ116A.CBL:129: note: 'FEATURE' defined here as PIC X(20) +]) +AT_CHECK([./SQ116A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [010OF010TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ117A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SQ SQ117A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ117A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ117A.CBL], [0], [], [SQ117A.CBL: in section 'SECT-SQ117A-0001': +SQ117A.CBL: in paragraph 'WRITE-INIT-GF-03': +SQ117A.CBL:522: warning: value size exceeds data size +SQ117A.CBL:522: note: value size is 22 +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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [008OF008TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ121A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ121A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ121A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ121A.CBL], [0], [], []) +AT_CHECK([./SQ121A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [003OF003TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ122A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ122A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ122A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ122A.CBL], [0], [], []) +AT_CHECK([./SQ122A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [007OF007TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ123A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ123A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ123A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ123A.CBL], [0], [], []) +AT_CHECK([./SQ123A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [009OF009TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ124A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ124A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ124A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ124A.CBL], [0], [], []) +AT_CHECK([./SQ124A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [019OF019TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ125A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ125A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ125A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ125A.CBL], [0], [], []) +AT_CHECK([./SQ125A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [002OF002TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ126A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ126A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ126A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ126A.CBL], [0], [], []) +AT_CHECK([./SQ126A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [007OF007TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ127A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SQ SQ127A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ127A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ127A.CBL], [0], [], [SQ127A.CBL: in section 'SECT-SQ127A-0001': +SQ127A.CBL: in paragraph 'READ-INIT-GF-02': +SQ127A.CBL:433: warning: value size exceeds data size +SQ127A.CBL:433: note: value size is 24 +SQ127A.CBL:124: note: 'FEATURE' defined here as PIC X(20) +]) +AT_CHECK([./SQ127A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [006OF006TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ128A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SQ SQ128A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ128A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ128A.CBL], [0], [], [SQ128A.CBL:39: warning: DATA RECORDS is obsolete in COBOL 85 +SQ128A.CBL:43: warning: DATA RECORDS is obsolete in COBOL 85 +SQ128A.CBL:46: warning: LABEL RECORDS is obsolete in COBOL 85 +SQ128A.CBL:48: warning: DATA RECORDS is obsolete in COBOL 85 +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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [009OF009TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ129A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ129A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ129A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ129A.CBL], [0], [], []) +AT_CHECK([./SQ129A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ130A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ130A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ130A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ130A.CBL], [0], [], []) +AT_CHECK([./SQ130A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ131A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ131A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ131A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ131A.CBL], [0], [], []) +AT_CHECK([./SQ131A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [002OF002TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ132A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ132A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ132A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ132A.CBL], [0], [], []) +AT_CHECK([./SQ132A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ133A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ133A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ133A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ133A.CBL], [0], [], []) +AT_CHECK([./SQ133A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [015OF015TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ134A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ134A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ134A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ134A.CBL], [0], [], []) +AT_CHECK([./SQ134A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [015OF015TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ135A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ135A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ135A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ135A.CBL], [0], [], []) +AT_CHECK([./SQ135A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ136A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ136A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ136A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ136A.CBL], [0], [], []) +AT_CHECK([./SQ136A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ137A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ137A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ137A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ137A.CBL], [0], [], []) +AT_CHECK([./SQ137A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ138A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ138A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ138A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ138A.CBL], [0], [], []) +AT_CHECK([./SQ138A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ139A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ139A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ139A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ139A.CBL], [0], [], []) +AT_CHECK([./SQ139A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ140A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ140A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ140A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ140A.CBL], [0], [], []) +AT_CHECK([./SQ140A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ141A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ141A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ141A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ141A.CBL], [0], [], []) +AT_CHECK([./SQ141A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ142A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ142A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ142A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ142A.CBL], [0], [], []) +AT_CHECK([./SQ142A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ143A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ143A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ143A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ143A.CBL], [0], [], []) +AT_CHECK([./SQ143A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ144A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ144A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ144A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ144A.CBL], [0], [], []) +AT_CHECK([./SQ144A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ146A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ146A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ146A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ146A.CBL], [0], [], []) +AT_CHECK([./SQ146A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ147A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ147A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ147A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ147A.CBL], [0], [], []) +AT_CHECK([./SQ147A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ148A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ148A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ148A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ148A.CBL], [0], [], []) +AT_CHECK([./SQ148A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [002OF002TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ149A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ149A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ149A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ149A.CBL], [0], [], []) +AT_CHECK([./SQ149A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ150A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ150A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ150A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ150A.CBL], [0], [], []) +AT_CHECK([./SQ150A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ151A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ151A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ151A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ151A.CBL], [0], [], []) +AT_CHECK([./SQ151A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ152A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ152A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ152A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ152A.CBL], [0], [], []) +AT_CHECK([./SQ152A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ153A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ153A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ153A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ153A.CBL], [0], [], []) +AT_CHECK([./SQ153A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ154A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ154A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ154A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ154A.CBL], [0], [], []) +AT_CHECK([./SQ154A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ155A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ155A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ155A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ155A.CBL], [0], [], []) +AT_CHECK([./SQ155A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ156A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ156A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ156A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ156A.CBL], [0], [], []) +AT_CHECK([./SQ156A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ201M]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ201M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ201M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ201M.CBL], [0], [], []) +AT_CHECK([./SQ201M], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [012OF023TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +011TEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ202A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SQ SQ202A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ202A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ202A.CBL], [0], [], [SQ202A.CBL: in section 'SECTION-SQ202A-0001': +SQ202A.CBL: in paragraph 'WRI-INIT-001': +SQ202A.CBL:330: warning: value size exceeds data size +SQ202A.CBL:330: note: value size is 6 +SQ202A.CBL:70: note: 'XPROGRAM-NAME' defined here as PIC X(5) +]) +AT_CHECK([./SQ202A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ203A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SQ SQ203A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ203A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 SQ203A.SUB], [0], [], [SQ203A.SUB: in section 'SECT-SQ203A-0001': +SQ203A.SUB: in paragraph 'READ-INIT-GF-04': +SQ203A.SUB:467: warning: value size exceeds data size +SQ203A.SUB:467: note: value size is 6 +SQ203A.SUB:106: note: 'XPROGRAM-NAME' defined here as PIC X(5) +]) +AT_CHECK([./SQ203A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [003OF004TESTSWEREEXECUTEDSUCCESSFULLY +001TEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ204A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SQ SQ204A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ204A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ204A.CBL], [0], [], [SQ204A.CBL: in section 'SECT-SQ204A-0001': +SQ204A.CBL: in paragraph 'WRITE-INIT-GF-01': +SQ204A.CBL:348: warning: value size exceeds data size +SQ204A.CBL:348: note: value size is 6 +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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [002OF002TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ205A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ205A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ205A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ205A.CBL], [0], [], []) +AT_CHECK([./SQ205A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [002OF002TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ206A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ206A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ206A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ206A.CBL], [0], [], []) +AT_CHECK([./SQ206A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [004OF004TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ207M]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ207M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ207M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ207M.CBL], [0], [], []) +AT_CHECK([./SQ207M], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [000OF008TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +008TEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ208M]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ208M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ208M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ208M.CBL], [0], [], []) +AT_CHECK([./SQ208M], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [000OF007TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +007TEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ209M]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ209M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ209M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ209M.CBL], [0], [], []) +AT_CHECK([./SQ209M], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [000OF003TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +003TEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ210M]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ210M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ210M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ210M.CBL], [0], [], []) +AT_CHECK([./SQ210M], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [000OF003TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +003TEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ211A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ211A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ211A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ211A.CBL], [0], [], []) +AT_CHECK([./SQ211A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [004OF004TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ212A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SQ SQ212A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ212A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ212A.CBL], [0], [], [SQ212A.CBL:79: warning: redefinition of 'REC-FILLER' +SQ212A.CBL:78: note: 'REC-FILLER' previously defined here +SQ212A.CBL: in section 'SECT-SQ212A-0002': +SQ212A.CBL: in paragraph 'WRITE-INIT-GF-01': +SQ212A.CBL:513: warning: value size exceeds data size +SQ212A.CBL:513: note: value size is 21 +SQ212A.CBL:147: note: 'FEATURE' defined here as PIC X(20) +]) +AT_CHECK([./SQ212A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ213A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ213A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ213A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ213A.CBL], [0], [], []) +AT_CHECK([./SQ213A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [007OF007TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ214A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ214A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ214A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ214A.CBL], [0], [], []) +AT_CHECK([./SQ214A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [005OF005TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ215A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ215A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ215A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ215A.CBL], [0], [], []) +AT_CHECK([./SQ215A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [004OF004TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ216A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ216A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ216A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ216A.CBL], [0], [], []) +AT_CHECK([./SQ216A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [007OF007TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ217A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ217A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ217A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ217A.CBL], [0], [], []) +AT_CHECK([./SQ217A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [007OF007TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ218A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SQ SQ218A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ218A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ218A.CBL], [0], [], [SQ218A.CBL:43: warning: RECORD DELIMITER STANDARD-1 ignored +]) +AT_CHECK([./SQ218A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [006OF006TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ219A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SQ SQ219A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ219A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ219A.CBL], [0], [], [SQ219A.CBL:44: warning: RECORD DELIMITER STANDARD-1 ignored +]) +AT_CHECK([./SQ219A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [006OF006TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ220A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ220A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ220A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ220A.CBL], [0], [], []) +AT_CHECK([./SQ220A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [006OF006TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ221A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ221A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ221A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ221A.CBL], [0], [], []) +AT_CHECK([./SQ221A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [006OF006TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ222A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ222A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ222A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ222A.CBL], [0], [], []) +AT_CHECK([./SQ222A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [006OF006TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ223A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SQ SQ223A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ223A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ223A.CBL], [0], [], [SQ223A.CBL: in section 'SECT-SQ223A-0001': +SQ223A.CBL: in paragraph 'READ-FAIL-F1-01': +SQ223A.CBL:423: warning: value size exceeds data size +SQ223A.CBL:423: note: value size is 84 +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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [006OF006TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ224A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SQ SQ224A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ224A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ224A.CBL], [0], [], [SQ224A.CBL: in section 'SECT-SQ224A-0001': +SQ224A.CBL: in paragraph 'READ-FAIL-F1-01': +SQ224A.CBL:416: warning: value size exceeds data size +SQ224A.CBL:416: note: value size is 81 +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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [003OF003TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ225A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ225A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ225A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ225A.CBL], [0], [], []) +AT_CHECK([./SQ225A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [003OF003TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ226A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ226A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ226A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ226A.CBL], [0], [], []) +AT_CHECK([./SQ226A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [037OF037TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ227A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SQ SQ227A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ227A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ227A.CBL], [0], [], [SQ227A.CBL: in section 'SECT-SQ227A-0002': +SQ227A.CBL: in paragraph 'SEQ-INIT-06': +SQ227A.CBL:1029: warning: value size exceeds data size +SQ227A.CBL:1029: note: value size is 26 +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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [016OF016TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ228A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SQ SQ228A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ228A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ228A.CBL], [0], [], [SQ228A.CBL: in section 'SECT-SQ228A-0002': +SQ228A.CBL: in paragraph 'SEQ-INIT-06': +SQ228A.CBL:702: warning: value size exceeds data size +SQ228A.CBL:702: note: value size is 26 +SQ228A.CBL:190: note: 'FEATURE' defined here as PIC X(24) +]) +AT_CHECK([./SQ228A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ229A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ229A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ229A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ229A.CBL], [0], [], []) +AT_CHECK([./SQ229A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ230A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ230A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ230A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ230A.CBL], [0], [], []) +AT_CHECK([./SQ230A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([SQ302M]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([SQ SQ302M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ302M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ302M.CBL], [0], [], [SQ302M.CBL:29: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +SQ302M.CBL:35: warning: LABEL RECORDS is obsolete in COBOL 85 +SQ302M.CBL:40: warning: VALUE OF is obsolete in COBOL 85 +SQ302M.CBL:42: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./SQ302M], [0], [THIS IS A DUMMY PARAGRAPH +], []) + +AT_CLEANUP + +AT_SETUP([SQ303M]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ303M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ303M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ303M.CBL], [0], [], [SQ303M.CBL:26: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +SQ303M.CBL: in paragraph 'SQ303M-CONTROL': +SQ303M.CBL:42: warning: OPEN REVERSED is not implemented +]) + +AT_CLEANUP + +AT_SETUP([SQ401M]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([SQ SQ401M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/SQ/SQ401M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 SQ401M.CBL], [0], [], [SQ401M.CBL:26: warning: RECORD DELIMITER STANDARD-1 ignored +SQ401M.CBL:44: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +SQ401M.CBL:59: warning: LABEL RECORDS is obsolete in COBOL 85 +SQ401M.CBL:62: warning: VALUE OF is obsolete in COBOL 85 +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/nistrun.src/run_ST.at b/tests/nistrun.src/run_ST.at new file mode 100644 index 000000000..1a5c1bb1b --- /dev/null +++ b/tests/nistrun.src/run_ST.at @@ -0,0 +1,786 @@ +AT_SETUP([ST101A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([ST ST101A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST101A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 ST101A.CBL], [0], [], [ST101A.CBL:41: warning: DATA RECORDS is obsolete in COBOL 85 +ST101A.CBL:53: warning: LABEL RECORDS is obsolete in COBOL 85 +ST101A.CBL:54: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST101A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [009OF009TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([ST102A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([ST ST102A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST102A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 ST102A.SUB], [0], [], [ST102A.SUB:39: warning: DATA RECORDS is obsolete in COBOL 85 +ST102A.SUB:50: warning: LABEL RECORDS is obsolete in COBOL 85 +ST102A.SUB:51: warning: DATA RECORDS is obsolete in COBOL 85 +ST102A.SUB:55: warning: LABEL RECORDS is obsolete in COBOL 85 +ST102A.SUB:56: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST102A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST103A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([ST ST103A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST102A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 ST102A.SUB], [0], [], [ST102A.SUB:39: warning: DATA RECORDS is obsolete in COBOL 85 +ST102A.SUB:50: warning: LABEL RECORDS is obsolete in COBOL 85 +ST102A.SUB:51: warning: DATA RECORDS is obsolete in COBOL 85 +ST102A.SUB:55: warning: LABEL RECORDS is obsolete in COBOL 85 +ST102A.SUB:56: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST102A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST103A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 ST103A.SUB], [0], [], [ST103A.SUB:40: warning: LABEL RECORDS is obsolete in COBOL 85 +ST103A.SUB:41: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST103A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [000OF001TESTSWEREEXECUTEDSUCCESSFULLY +001TEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([ST104A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([ST ST104A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST104A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 ST104A.CBL], [0], [], [ST104A.CBL:39: warning: LABEL RECORDS is obsolete in COBOL 85 +ST104A.CBL:40: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST104A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([ST105A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([ST ST105A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST105A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 ST105A.SUB], [0], [], [ST105A.SUB:59: warning: LABEL RECORDS is obsolete in COBOL 85 +ST105A.SUB:60: warning: DATA RECORDS is obsolete in COBOL 85 +ST105A.SUB:64: warning: LABEL RECORDS is obsolete in COBOL 85 +ST105A.SUB:65: warning: DATA RECORDS is obsolete in COBOL 85 +ST105A.SUB:69: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST105A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF002TESTSWEREEXECUTEDSUCCESSFULLY +001TEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([ST106A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([ST ST106A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST106A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 ST106A.CBL], [0], [], [ST106A.CBL:72: warning: LABEL RECORDS is obsolete in COBOL 85 +ST106A.CBL:74: warning: DATA RECORDS is obsolete in COBOL 85 +ST106A.CBL:79: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST106A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([ST107A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([ST ST107A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST106A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 ST106A.CBL], [0], [], [ST106A.CBL:72: warning: LABEL RECORDS is obsolete in COBOL 85 +ST106A.CBL:74: warning: DATA RECORDS is obsolete in COBOL 85 +ST106A.CBL:79: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST106A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST107A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 ST107A.SUB], [0], [], [ST107A.SUB:39: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST107A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [006OF006TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([ST108A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([ST ST108A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST108A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 ST108A.CBL], [0], [], [ST108A.CBL:61: warning: DATA RECORDS is obsolete in COBOL 85 +ST108A.CBL: in section 'INPROC': +ST108A.CBL: in paragraph 'BUILD-FILE': +ST108A.CBL:253: warning: ignoring sign +ST108A.CBL: in paragraph 'BUILD-RECORD': +ST108A.CBL:266: warning: ignoring sign +]) +AT_CHECK([./ST108A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [009OF009TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([ST109A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([ST ST109A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST109A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 ST109A.CBL], [0], [], [ST109A.CBL:52: warning: LABEL RECORDS is obsolete in COBOL 85 +ST109A.CBL:56: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST109A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST110A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([ST ST110A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST110A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 ST110A.SUB], [0], [], [ST110A.SUB:43: warning: LABEL RECORDS is obsolete in COBOL 85 +ST110A.SUB:47: warning: DATA RECORDS is obsolete in COBOL 85 +ST110A.SUB:56: warning: LABEL RECORDS is obsolete in COBOL 85 +ST110A.SUB:60: warning: DATA RECORDS is obsolete in COBOL 85 +ST110A.SUB:72: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST110A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST111A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([ST ST111A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST110A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 ST110A.SUB], [0], [], [ST110A.SUB:43: warning: LABEL RECORDS is obsolete in COBOL 85 +ST110A.SUB:47: warning: DATA RECORDS is obsolete in COBOL 85 +ST110A.SUB:56: warning: LABEL RECORDS is obsolete in COBOL 85 +ST110A.SUB:60: warning: DATA RECORDS is obsolete in COBOL 85 +ST110A.SUB:72: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST110A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST111A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 ST111A.SUB], [0], [], [ST111A.SUB:52: warning: LABEL RECORDS is obsolete in COBOL 85 +ST111A.SUB:56: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST111A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [000OF001TESTSWEREEXECUTEDSUCCESSFULLY +001TEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([ST112M]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([ST ST112M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST112M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 ST112M.CBL], [0], [], [ST112M.CBL:39: warning: LABEL RECORDS is obsolete in COBOL 85 +ST112M.CBL:40: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST112M], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST113M]) +AT_KEYWORDS([ST ST113M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST113M.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 ST113M.SUB], [0], [], []) +AT_CHECK([./ST113M], [0], [], []) +AT_CLEANUP + +AT_SETUP([ST114M]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([ST ST114M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST113M.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 ST113M.SUB], [0], [], []) +AT_CHECK([./ST113M], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST114M.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 ST114M.SUB], [0], [], [ST114M.SUB:39: warning: LABEL RECORDS is obsolete in COBOL 85 +ST114M.SUB:40: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST114M], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [000OF001TESTSWEREEXECUTEDSUCCESSFULLY +001TEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([ST115A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([ST ST115A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST115A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 ST115A.CBL], [0], [], [ST115A.CBL:83: warning: LABEL RECORDS is obsolete in COBOL 85 +ST115A.CBL:86: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST115A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST116A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([ST ST116A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST116A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 ST116A.SUB], [0], [], [ST116A.SUB:106: warning: LABEL RECORDS is obsolete in COBOL 85 +ST116A.SUB:109: warning: DATA RECORDS is obsolete in COBOL 85 +ST116A.SUB:127: warning: LABEL RECORDS is obsolete in COBOL 85 +ST116A.SUB:130: warning: DATA RECORDS is obsolete in COBOL 85 +ST116A.SUB:149: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST116A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST117A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([ST ST117A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST116A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 ST116A.SUB], [0], [], [ST116A.SUB:106: warning: LABEL RECORDS is obsolete in COBOL 85 +ST116A.SUB:109: warning: DATA RECORDS is obsolete in COBOL 85 +ST116A.SUB:127: warning: LABEL RECORDS is obsolete in COBOL 85 +ST116A.SUB:130: warning: DATA RECORDS is obsolete in COBOL 85 +ST116A.SUB:149: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST116A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST117A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 ST117A.SUB], [0], [], [ST117A.SUB:101: warning: LABEL RECORDS is obsolete in COBOL 85 +ST117A.SUB:104: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST117A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF002TESTSWEREEXECUTEDSUCCESSFULLY +001TEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([ST118A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([ST ST118A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST118A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 ST118A.CBL], [0], [], [ST118A.CBL:71: warning: DATA RECORDS is obsolete in COBOL 85 +ST118A.CBL: in section 'INPROC': +ST118A.CBL: in paragraph 'BUILD-FILE': +ST118A.CBL:263: warning: ignoring sign +ST118A.CBL: in paragraph 'BUILD-RECORD': +ST118A.CBL:276: warning: ignoring sign +]) +AT_CHECK([./ST118A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [009OF009TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([ST119A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([ST ST119A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST119A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 ST119A.CBL], [0], [], [ST119A.CBL:41: warning: DATA RECORDS is obsolete in COBOL 85 +ST119A.CBL:53: warning: LABEL RECORDS is obsolete in COBOL 85 +ST119A.CBL:54: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST119A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [027OF027TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([ST120A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([ST ST120A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST120A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 ST120A.SUB], [0], [], [ST120A.SUB:39: warning: DATA RECORDS is obsolete in COBOL 85 +ST120A.SUB:50: warning: LABEL RECORDS is obsolete in COBOL 85 +ST120A.SUB:51: warning: DATA RECORDS is obsolete in COBOL 85 +ST120A.SUB:55: warning: LABEL RECORDS is obsolete in COBOL 85 +ST120A.SUB:56: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST120A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST121A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([ST ST121A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST120A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 ST120A.SUB], [0], [], [ST120A.SUB:39: warning: DATA RECORDS is obsolete in COBOL 85 +ST120A.SUB:50: warning: LABEL RECORDS is obsolete in COBOL 85 +ST120A.SUB:51: warning: DATA RECORDS is obsolete in COBOL 85 +ST120A.SUB:55: warning: LABEL RECORDS is obsolete in COBOL 85 +ST120A.SUB:56: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST120A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST121A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 ST121A.SUB], [0], [], [ST121A.SUB:40: warning: LABEL RECORDS is obsolete in COBOL 85 +ST121A.SUB:41: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST121A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [000OF001TESTSWEREEXECUTEDSUCCESSFULLY +001TEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([ST122A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([ST ST122A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST122A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 ST122A.CBL], [0], [], [ST122A.CBL:61: warning: LABEL RECORDS is obsolete in COBOL 85 +ST122A.CBL:65: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST122A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST123A]) +# promoted on 2023-02-10T08:52 +AT_KEYWORDS([ST ST123A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST123A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 ST123A.SUB], [0], [], [ST123A.SUB:59: warning: LABEL RECORDS is obsolete in COBOL 85 +ST123A.SUB:63: warning: DATA RECORDS is obsolete in COBOL 85 +ST123A.SUB:72: warning: LABEL RECORDS is obsolete in COBOL 85 +ST123A.SUB:76: warning: DATA RECORDS is obsolete in COBOL 85 +ST123A.SUB:88: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST123A], [0], [], []) + +AT_CLEANUP + +AT_SETUP([ST124A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([ST ST124A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST123A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 ST123A.SUB], [0], [], [ST123A.SUB:59: warning: LABEL RECORDS is obsolete in COBOL 85 +ST123A.SUB:63: warning: DATA RECORDS is obsolete in COBOL 85 +ST123A.SUB:72: warning: LABEL RECORDS is obsolete in COBOL 85 +ST123A.SUB:76: warning: DATA RECORDS is obsolete in COBOL 85 +ST123A.SUB:88: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST123A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST124A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 ST124A.SUB], [0], [], [ST124A.SUB:65: warning: LABEL RECORDS is obsolete in COBOL 85 +ST124A.SUB:69: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST124A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [000OF001TESTSWEREEXECUTEDSUCCESSFULLY +001TEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([ST125A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([ST ST125A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST125A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 ST125A.CBL], [0], [], [ST125A.CBL:81: warning: LABEL RECORDS is obsolete in COBOL 85 +ST125A.CBL:86: warning: LABEL RECORDS is obsolete in COBOL 85 +ST125A.CBL:91: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST125A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [001OF001TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([ST126A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([ST ST126A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST125A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 ST125A.CBL], [0], [], [ST125A.CBL:81: warning: LABEL RECORDS is obsolete in COBOL 85 +ST125A.CBL:86: warning: LABEL RECORDS is obsolete in COBOL 85 +ST125A.CBL:91: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST125A], [0], [], []) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST126A.SUB .], [0], [], []) +AT_CHECK([$COMPILE85 ST126A.SUB], [0], [], [ST126A.SUB:52: warning: LABEL RECORDS is obsolete in COBOL 85 +ST126A.SUB:59: warning: LABEL RECORDS is obsolete in COBOL 85 +ST126A.SUB:66: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST126A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [018OF018TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([ST127A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([ST ST127A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST127A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 ST127A.CBL], [0], [], [ST127A.CBL:74: warning: DATA RECORDS is obsolete in COBOL 85 +ST127A.CBL: in section 'INPROC': +ST127A.CBL: in paragraph 'BUILD-FILE': +ST127A.CBL:311: warning: ignoring sign +ST127A.CBL: in paragraph 'BUILD-RECORD': +ST127A.CBL:332: warning: ignoring sign +]) +AT_CHECK([./ST127A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [027OF027TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([ST131A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([ST ST131A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST131A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 ST131A.CBL], [0], [], [ST131A.CBL:93: warning: DATA RECORDS is obsolete in COBOL 85 +ST131A.CBL:101: warning: DATA RECORDS is obsolete in COBOL 85 +ST131A.CBL:110: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST131A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [015OF015TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([ST132A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([ST ST132A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST132A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 ST132A.CBL], [0], [], [ST132A.CBL:62: warning: LABEL RECORDS is obsolete in COBOL 85 +ST132A.CBL:63: warning: DATA RECORDS is obsolete in COBOL 85 +ST132A.CBL:67: warning: DATA RECORDS is obsolete in COBOL 85 +ST132A.CBL:75: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST132A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [006OF006TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([ST133A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([ST ST133A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST133A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 ST133A.CBL], [0], [], [ST133A.CBL:83: warning: LABEL RECORDS is obsolete in COBOL 85 +ST133A.CBL:84: warning: DATA RECORDS is obsolete in COBOL 85 +ST133A.CBL:89: warning: LABEL RECORDS is obsolete in COBOL 85 +ST133A.CBL:90: warning: DATA RECORDS is obsolete in COBOL 85 +ST133A.CBL:95: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST133A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [018OF018TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([ST134A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([ST ST134A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST134A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 ST134A.CBL], [0], [], [ST134A.CBL:63: warning: DATA RECORDS is obsolete in COBOL 85 +ST134A.CBL:69: warning: LABEL RECORDS is obsolete in COBOL 85 +ST134A.CBL:70: warning: DATA RECORDS is obsolete in COBOL 85 +ST134A.CBL:76: warning: LABEL RECORDS is obsolete in COBOL 85 +ST134A.CBL:77: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST134A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [004OF004TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([ST135A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([ST ST135A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST135A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 ST135A.CBL], [0], [], [ST135A.CBL:67: warning: LABEL RECORDS is obsolete in COBOL 85 +ST135A.CBL:68: warning: DATA RECORDS is obsolete in COBOL 85 +ST135A.CBL:74: warning: LABEL RECORDS is obsolete in COBOL 85 +ST135A.CBL:75: warning: DATA RECORDS is obsolete in COBOL 85 +ST135A.CBL:81: warning: LABEL RECORDS is obsolete in COBOL 85 +ST135A.CBL:82: warning: DATA RECORDS is obsolete in COBOL 85 +ST135A.CBL:86: warning: LABEL RECORDS is obsolete in COBOL 85 +ST135A.CBL:87: warning: DATA RECORDS is obsolete in COBOL 85 +ST135A.CBL:90: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST135A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [009OF009TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([ST136A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([ST ST136A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST136A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 ST136A.CBL], [0], [], [ST136A.CBL:47: warning: LABEL RECORDS is obsolete in COBOL 85 +ST136A.CBL:48: warning: DATA RECORDS is obsolete in COBOL 85 +ST136A.CBL:54: warning: DATA RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST136A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [005OF005TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([ST137A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([ST ST137A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST137A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 ST137A.CBL], [0], [], [ST137A.CBL:118: warning: LABEL RECORDS is obsolete in COBOL 85 +ST137A.CBL:137: warning: LABEL RECORDS is obsolete in COBOL 85 +ST137A.CBL:140: warning: DATA RECORDS is obsolete in COBOL 85 +ST137A.CBL:158: warning: DATA RECORDS is obsolete in COBOL 85 +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_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [006OF006TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([ST139A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([ST ST139A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST139A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 ST139A.CBL], [0], [], [ST139A.CBL:142: warning: LABEL RECORDS is obsolete in COBOL 85 +ST139A.CBL:157: warning: LABEL RECORDS is obsolete in COBOL 85 +ST139A.CBL:160: warning: DATA RECORDS is obsolete in COBOL 85 +ST139A.CBL:174: warning: LABEL RECORDS is obsolete in COBOL 85 +ST139A.CBL:177: warning: DATA RECORDS is obsolete in COBOL 85 +ST139A.CBL:195: warning: DATA RECORDS is obsolete in COBOL 85 +ST139A.CBL: in section 'SECT-ST209-DEC': +ST139A.CBL: in paragraph 'MRG-WRITE-DEC': +ST139A.CBL:430: warning: value size exceeds data size +ST139A.CBL:430: note: value size is 21 +ST139A.CBL:286: note: 'FEATURE' defined here as PIC X(20) +ST139A.CBL: in section 'SECT-ST209-0001': +ST139A.CBL: in paragraph 'MRG-WRITE-003': +ST139A.CBL:657: warning: value size exceeds data size +ST139A.CBL:657: note: value size is 21 +ST139A.CBL:286: note: 'FEATURE' defined here as PIC X(20) +ST139A.CBL: in paragraph 'MRG-WRITE-004': +ST139A.CBL:677: warning: value size exceeds data size +ST139A.CBL:677: note: value size is 21 +ST139A.CBL:286: note: 'FEATURE' defined here as PIC X(20) +ST139A.CBL: in paragraph 'MRG-WRITE-005': +ST139A.CBL:697: warning: value size exceeds data size +ST139A.CBL:697: note: value size is 21 +ST139A.CBL:286: note: 'FEATURE' defined here as PIC X(20) +ST139A.CBL: in paragraph 'MRG-WRITE-006': +ST139A.CBL:717: warning: value size exceeds data size +ST139A.CBL:717: note: value size is 21 +ST139A.CBL:286: note: 'FEATURE' defined here as PIC X(20) +ST139A.CBL: in paragraph 'MRG-WRITE-007': +ST139A.CBL:737: warning: value size exceeds data size +ST139A.CBL:737: note: value size is 21 +ST139A.CBL:286: note: 'FEATURE' defined here as PIC X(20) +ST139A.CBL: in paragraph 'MRG-WRITE-008': +ST139A.CBL:757: warning: value size exceeds data size +ST139A.CBL:757: note: value size is 21 +ST139A.CBL:286: note: 'FEATURE' defined here as PIC X(20) +ST139A.CBL: in paragraph 'MRG-FAIL-010': +ST139A.CBL:787: warning: alphanumeric value is expected +ST139A.CBL:320: note: 'CR-18V0' defined here as a group of length 20 +]) +AT_CHECK([./ST139A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [010OF010TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([ST140A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([ST ST140A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST140A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 ST140A.CBL], [0], [], [ST140A.CBL:148: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +ST140A.CBL:155: warning: LABEL RECORDS is obsolete in COBOL 85 +ST140A.CBL:158: warning: DATA RECORDS is obsolete in COBOL 85 +ST140A.CBL:175: warning: LABEL RECORDS is obsolete in COBOL 85 +ST140A.CBL:178: warning: DATA RECORDS is obsolete in COBOL 85 +ST140A.CBL:192: warning: LABEL RECORDS is obsolete in COBOL 85 +ST140A.CBL:195: warning: DATA RECORDS is obsolete in COBOL 85 +ST140A.CBL:209: warning: LABEL RECORDS is obsolete in COBOL 85 +ST140A.CBL:212: warning: DATA RECORDS is obsolete in COBOL 85 +ST140A.CBL:227: warning: DATA RECORDS is obsolete in COBOL 85 +ST140A.CBL: in section 'SECT-ST210-DEC': +ST140A.CBL: in paragraph 'SRT-WRITE-DEC': +ST140A.CBL:462: warning: value size exceeds data size +ST140A.CBL:462: note: value size is 21 +ST140A.CBL:318: note: 'FEATURE' defined here as PIC X(20) +ST140A.CBL: in section 'SECT-ST210-0001': +ST140A.CBL: in paragraph 'SRT-FAIL-010': +ST140A.CBL:848: warning: alphanumeric value is expected +ST140A.CBL:352: note: 'CR-18V0' defined here as a group of length 20 +]) +AT_CHECK([./ST140A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [011OF011TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([ST144A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([ST ST144A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST144A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 ST144A.CBL], [0], [], [ST144A.CBL:150: warning: MULTIPLE FILE TAPE is obsolete in COBOL 85 +ST144A.CBL:157: warning: LABEL RECORDS is obsolete in COBOL 85 +ST144A.CBL:160: warning: DATA RECORDS is obsolete in COBOL 85 +ST144A.CBL:177: warning: LABEL RECORDS is obsolete in COBOL 85 +ST144A.CBL:180: warning: DATA RECORDS is obsolete in COBOL 85 +ST144A.CBL:194: warning: LABEL RECORDS is obsolete in COBOL 85 +ST144A.CBL:197: warning: DATA RECORDS is obsolete in COBOL 85 +ST144A.CBL:211: warning: LABEL RECORDS is obsolete in COBOL 85 +ST144A.CBL:214: warning: DATA RECORDS is obsolete in COBOL 85 +ST144A.CBL:229: warning: DATA RECORDS is obsolete in COBOL 85 +ST144A.CBL: in section 'SECT-ST214-DEC': +ST144A.CBL: in paragraph 'SRT-WRITE-DEC': +ST144A.CBL:464: warning: value size exceeds data size +ST144A.CBL:464: note: value size is 21 +ST144A.CBL:320: note: 'FEATURE' defined here as PIC X(20) +ST144A.CBL: in section 'SECT-ST214-0001': +ST144A.CBL: in paragraph 'SRT-FAIL-010': +ST144A.CBL:849: warning: alphanumeric value is expected +ST144A.CBL:354: note: 'CR-18V0' defined here as a group of length 20 +]) +AT_CHECK([./ST144A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [011OF011TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([ST146A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([ST ST146A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST146A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 ST146A.CBL], [0], [], [ST146A.CBL:65: warning: LABEL RECORDS is obsolete in COBOL 85 +ST146A.CBL:70: warning: LABEL RECORDS is obsolete in COBOL 85 +]) +AT_CHECK([./ST146A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [004OF004TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([ST147A]) +# promoted on 2023-02-10T08:53 +AT_KEYWORDS([ST ST147A]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST147A.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 ST147A.CBL], [0], [], [ST147A.CBL:165: warning: LABEL RECORDS is obsolete in COBOL 85 +ST147A.CBL:180: warning: LABEL RECORDS is obsolete in COBOL 85 +ST147A.CBL:183: warning: DATA RECORDS is obsolete in COBOL 85 +ST147A.CBL:197: warning: LABEL RECORDS is obsolete in COBOL 85 +ST147A.CBL:200: warning: DATA RECORDS is obsolete in COBOL 85 +ST147A.CBL:214: warning: LABEL RECORDS is obsolete in COBOL 85 +ST147A.CBL:217: warning: DATA RECORDS is obsolete in COBOL 85 +ST147A.CBL:231: warning: LABEL RECORDS is obsolete in COBOL 85 +ST147A.CBL:234: warning: DATA RECORDS is obsolete in COBOL 85 +ST147A.CBL:249: warning: DATA RECORDS is obsolete in COBOL 85 +ST147A.CBL: in section 'SECT-ST209-DEC': +ST147A.CBL: in paragraph 'MRG-WRITE-DEC': +ST147A.CBL:484: warning: value size exceeds data size +ST147A.CBL:484: note: value size is 21 +ST147A.CBL:340: note: 'FEATURE' defined here as PIC X(20) +ST147A.CBL: in section 'SECT-ST417-001': +ST147A.CBL: in paragraph 'MRG-FAIL-010': +ST147A.CBL:842: warning: alphanumeric value is expected +ST147A.CBL:374: note: 'CR-18V0' defined here as a group of length 20 +ST147A.CBL: in section 'READ-SQ-FS3': +ST147A.CBL: in paragraph 'MRG-FAIL-018': +ST147A.CBL:1010: warning: alphanumeric value is expected +ST147A.CBL:374: note: 'CR-18V0' defined here as a group of length 20 +ST147A.CBL: in section 'READ-SQ-FS4': +ST147A.CBL: in paragraph 'MRG-FAIL-026': +ST147A.CBL:1178: warning: alphanumeric value is expected +ST147A.CBL:374: note: 'CR-18V0' defined here as a group of length 20 +]) +AT_CHECK([./ST147A], [0], [], []) +AT_CHECK([$GREP -A 3 SUCCESSFULLY REPORT | tr -d ' '], [0], [026OF026TESTSWEREEXECUTEDSUCCESSFULLY +NOTEST(S)FAILED +NOTEST(S)DELETED +NOTEST(S)REQUIREINSPECTION +], []) + +AT_CLEANUP + +AT_SETUP([ST301M]) +AT_KEYWORDS([ST ST301M]) +AT_CHECK([cp -f ${abs_builddir}/cobol85/ST/ST301M.CBL .], [0], [], []) +AT_CHECK([$COMPILE85 ST301M.CBL], [0], [], []) +# AT_CHECK([./ST301M], [0], [], []) +AT_CLEANUP +