diff --git a/.github/workflows/ci.yml b/.github/workflows/ci.yml
deleted file mode 100644
index 2b1dbbb..0000000
--- a/.github/workflows/ci.yml
+++ /dev/null
@@ -1,62 +0,0 @@
-name: test
-
-on:
- push:
- pull_request:
- types: [opened, reopened, review_requested, synchronize]
-
-env:
- CPPFLAGS: "-I/usr/include"
- LDFLAGS: "-L/usr/lib"
- LD_LAIBRARY_PATH: "/usr/lib"
-
-jobs:
- run-tests:
- runs-on: ubuntu-latest
- steps:
-
- - name: Install prerequisite softwares
- run: |
- sudo apt-get update -y
- sudo apt-get install -y libncurses6 libncurses-dev ncurses-doc libgmp10 libgmp-dev m4 libtool help2man pkg-config gettext automake autoconf libxml2 libxml2-dev libxml2-utils libcjson1 libcjson-dev build-essential libdb-dev
-
- - uses: actions/checkout@v4
-
- # Cache the directory 'opensource-cobol-1.5.2J/vbisam'
- - name: Cache vbisam
- id: vbisam_cache_id
- uses: actions/cache@v4
- with:
- path: opensource-cobol/vbisam
- key: vbisam-key
-
- # Download vbisam and Build it
- - name: Download vbisam and Build it
- if: steps.vbisam_cache_id.outputs.cache-hit != 'true'
- run: |
- curl -L -o opensource-cobol-1.5.2J.tar.gz https://github.com/opensourcecobol/opensource-cobol/archive/refs/tags/v1.5.2J.tar.gz
- tar zxf opensource-cobol-1.5.2J.tar.gz
- cd opensource-cobol-1.5.2J/vbisam
- ./configure --prefix=/usr/
- make
-
- # Install vbisam
- - name: Install vbisam
- working-directory: opensource-cobol-1.5.2J/vbisam
- run: |
- sudo make install
-
- - name: Install GnuCOBOL
- run: |
- ./configure --prefix=/usr/ --with-xml2 --with-cjson --with-vbisam
- make
- sudo make install
-
- - name: Run custom tests
- run: |
- export TERM=xterm
- make check
-
- - name: Run COBOL85 tests
- run: |
- make test
\ No newline at end of file
diff --git a/.github/workflows/cppcheck.yml b/.github/workflows/cppcheck.yml
deleted file mode 100644
index 7517444..0000000
--- a/.github/workflows/cppcheck.yml
+++ /dev/null
@@ -1,55 +0,0 @@
-name: cppcheck
-
-on:
- push:
- pull_request:
- types: [opened, reopened, review_requested, synchronize]
-
-env:
- CPPFLAGS: "-I/usr/include"
- LDFLAGS: "-L/usr/lib"
- LD_LAIBRARY_PATH: "/usr/lib"
-
-jobs:
- run-tests:
- runs-on: ubuntu-latest
- steps:
-
- - name: Install prerequisite softwares
- run: |
- sudo apt-get update -y
- sudo apt-get install -y libncurses6 libncurses-dev ncurses-doc libgmp10 libgmp-dev m4 libtool help2man pkg-config gettext automake autoconf libxml2 libxml2-dev libxml2-utils libcjson1 libcjson-dev build-essential libdb-dev cppcheck
-
- - uses: actions/checkout@v4
-
- - name: Download vbisam
- run: |
- if [ ! -d vbisam ]; then \
- git clone https://github.com/opensourcecobol/opensource-cobol; \
- mv opensource-cobol/vbisam .; \
- rm -rf opensource-cobol; \
- fi
-
- - name: Install vbisam
- working-directory: vbisam
- run: |
- ./configure --prefix=/usr/
- make
- sudo make install
-
- - name: Build GnuCOBOL
- run: |
- ./configure --prefix=/usr/ --with-xml2 --with-vbisam
- make
-
- - name: Check cobc/
- working-directory: cobc/
- run: ./cppcheck
-
- - name: Check libcob/
- working-directory: libcob/
- run: ./cppcheck
-
- - name: Check bin/
- working-directory: bin/
- run: ./cppcheck
\ No newline at end of file
diff --git a/.gitignore b/.gitignore
index bee07b5..a792509 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,33 +1,140 @@
-*.o
-*.lo
+# Exclude generated translations
+/po/en@boldquot.po
+/po/en@quot.po
+/po/*.gmo
+/po/POTFILES
+
+# Exclude autoconf/automake parts
+/aclocal.m4
+/aminclude_static.am
+/conf*.dir
+/conf*.file
+/confdefs.h
+/conftest*
+/config.*
+/configure
+/libtool
+/stamp-h1
+/tarstamp.h
+/build_aux/ar-lib
+
+Makefile.in
+Makefile
+
+# generated releases
+/*.7z
+/*.bz2
+/*.gz
+/*.lz
+/*.sig
+/*.xz
+/*.zip
+/*mingw*
+/*dist*
+/gnucobol-*
+
+# several temporary/tool generated files
*.la
+*.lo
+*.o
*.so
-Makefile
-bin/.deps/
-bin/.libs/
-bin/cob-config
-bin/cobcrun
-bin/cobcrun.o
-cobc/.deps/
-cobc/.libs/
-config.h
-config.h.in~
-config.log
-config.status
-config/Makefile
-configure~
-autom4te.cache/
-cobc/cobc
-lib/.deps/
-lib/.libs/
-libcob/.deps/
-libcob/.libs/
-libtool
-po/Makefile.in
-po/POTFILES
-pre-inst-env
-stamp-h1
-tests/atconfig
-tests/atlocal
-tests/run_prog_manual.sh
-tests/testsuite~
+*.obj
+*.dll
+*.lib
+*.exe
+
+*cache*
+*-coverage
+*.bak
+*.gcda
+*.gcno
+*.diff
+*.patch
+*.tmp
+*~
+* - *
+_*
+cscope.*
+TAGS
+
+/build_windows/ia64
+/build_windows/Win32
+/build_windows/x64
+/build_windows/config.h
+ipch
+*.db
+.vs
+*.aps
+*.bak
+*.ncb
+*.*sdf
+*.suo
+*.user
+
+/build
+/build.*
+/build-*
+/compile_commands.json
+
+# generated files
+/bin/cob-config
+/bin/cob-config.1
+/bin/cobcrun
+/bin/cobcrun.1
+/bin/cobfile
+/bin/gcdiff
+/cobc/cobc
+/cobc/cobc.1
+/cobc/parser.c
+/cobc/parser.h
+/cobc/*.output
+/cobc/pplex.c
+/cobc/ppparse.c
+/cobc/ppparse.h
+/cobc/scanner.c
+
+/doc/cbchelp.tex
+/doc/cbconf.tex
+/doc/cbexceptions.tex
+/doc/cbhelp.tex
+/doc/cbintr.tex
+/doc/cbmnem.tex
+/doc/cbrese.tex
+/doc/cbrunt.tex
+/doc/cbsyst.tex
+/doc/gnucobol.info
+/doc/stamp-vti
+/doc/version.texi
+
+/pre-inst-env
+/tests/atconfig
+/tests/atlocal
+/tests/cobol85/copy/
+/tests/cobol85/copyalt/
+/tests/cobol85/DB/
+/tests/cobol85/DBNOIX/
+/tests/cobol85/EXEC85
+/tests/cobol85/EXEC85.c.*
+/tests/cobol85/EXEC85.i
+/tests/cobol85/EXEC85.lst
+/tests/cobol85/EXEC85.o*
+/tests/cobol85/EXEC85.exe
+/tests/cobol85/IC/
+/tests/cobol85/IF/
+/tests/cobol85/IX/
+/tests/cobol85/NC/
+/tests/cobol85/newcob.val*
+/tests/cobol85/OB/
+/tests/cobol85/RL/
+/tests/cobol85/RW/
+/tests/cobol85/SG/
+/tests/cobol85/SM/
+/tests/cobol85/SQ/
+/tests/cobol85/ST/
+/tests/cobol85/*.log
+/tests/package.m4
+/tests/run_prog_manual.sh
+/tests/testsuite
+/tests/testsuite_manual
+/tests/testsuite*.dir/
+/tests/testsuite*.log
diff --git a/Makefile.in b/Makefile.in
deleted file mode 100644
index 6986591..0000000
--- a/Makefile.in
+++ /dev/null
@@ -1,1285 +0,0 @@
-# Makefile.in generated by automake 1.16.3 from Makefile.am.
-# @configure_input@
-
-# Copyright (C) 1994-2020 Free Software Foundation, Inc.
-
-# This Makefile.in is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
-# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
-# PARTICULAR PURPOSE.
-
-@SET_MAKE@
-
-#
-# Makefile gnucobol
-#
-# Copyright (C) 2003-2012, 2014-2020, 2023 Free Software Foundation, Inc.
-# Written by Keisuke Nishida, Roger While, Simon Sobisch
-#
-# 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 .
-
-# aminclude_static.am generated automatically by Autoconf
-# from AX_AM_MACROS_STATIC on Fri Jul 28 19:17:12 CEST 2023
-
-
-VPATH = @srcdir@
-am__is_gnu_make = { \
- if test -z '$(MAKELEVEL)'; then \
- false; \
- elif test -n '$(MAKE_HOST)'; then \
- true; \
- elif test -n '$(MAKE_VERSION)' && test -n '$(CURDIR)'; then \
- true; \
- else \
- false; \
- fi; \
-}
-am__make_running_with_option = \
- case $${target_option-} in \
- ?) ;; \
- *) echo "am__make_running_with_option: internal error: invalid" \
- "target option '$${target_option-}' specified" >&2; \
- exit 1;; \
- esac; \
- has_opt=no; \
- sane_makeflags=$$MAKEFLAGS; \
- if $(am__is_gnu_make); then \
- sane_makeflags=$$MFLAGS; \
- else \
- case $$MAKEFLAGS in \
- *\\[\ \ ]*) \
- bs=\\; \
- sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \
- | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \
- esac; \
- fi; \
- skip_next=no; \
- strip_trailopt () \
- { \
- flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \
- }; \
- for flg in $$sane_makeflags; do \
- test $$skip_next = yes && { skip_next=no; continue; }; \
- case $$flg in \
- *=*|--*) continue;; \
- -*I) strip_trailopt 'I'; skip_next=yes;; \
- -*I?*) strip_trailopt 'I';; \
- -*O) strip_trailopt 'O'; skip_next=yes;; \
- -*O?*) strip_trailopt 'O';; \
- -*l) strip_trailopt 'l'; skip_next=yes;; \
- -*l?*) strip_trailopt 'l';; \
- -[dEDm]) skip_next=yes;; \
- -[JT]) skip_next=yes;; \
- esac; \
- case $$flg in \
- *$$target_option*) has_opt=yes; break;; \
- esac; \
- done; \
- test $$has_opt = yes
-am__make_dryrun = (target_option=n; $(am__make_running_with_option))
-am__make_keepgoing = (target_option=k; $(am__make_running_with_option))
-pkgdatadir = $(datadir)/@PACKAGE@
-pkgincludedir = $(includedir)/@PACKAGE@
-pkglibdir = $(libdir)/@PACKAGE@
-pkglibexecdir = $(libexecdir)/@PACKAGE@
-am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
-install_sh_DATA = $(install_sh) -c -m 644
-install_sh_PROGRAM = $(install_sh) -c
-install_sh_SCRIPT = $(install_sh) -c
-INSTALL_HEADER = $(INSTALL_DATA)
-transform = $(program_transform_name)
-NORMAL_INSTALL = :
-PRE_INSTALL = :
-POST_INSTALL = :
-NORMAL_UNINSTALL = :
-PRE_UNINSTALL = :
-POST_UNINSTALL = :
-build_triplet = @build@
-host_triplet = @host@
-subdir = .
-ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
-am__aclocal_m4_deps = $(top_srcdir)/m4/ax_ac_append_to_file.m4 \
- $(top_srcdir)/m4/ax_ac_define_resolved.m4 \
- $(top_srcdir)/m4/ax_ac_print_to_file.m4 \
- $(top_srcdir)/m4/ax_add_am_macro_static.m4 \
- $(top_srcdir)/m4/ax_am_macros_static.m4 \
- $(top_srcdir)/m4/ax_check_define.m4 \
- $(top_srcdir)/m4/ax_check_gnu_make.m4 \
- $(top_srcdir)/m4/ax_code_coverage.m4 \
- $(top_srcdir)/m4/ax_file_escapes.m4 \
- $(top_srcdir)/m4/ax_prog_bison.m4 \
- $(top_srcdir)/m4/ax_prog_flex.m4 $(top_srcdir)/m4/codeset.m4 \
- $(top_srcdir)/m4/gettext.m4 $(top_srcdir)/m4/iconv.m4 \
- $(top_srcdir)/m4/intlmacosx.m4 $(top_srcdir)/m4/lib-ld.m4 \
- $(top_srcdir)/m4/lib-link.m4 $(top_srcdir)/m4/lib-prefix.m4 \
- $(top_srcdir)/m4/libtool.m4 $(top_srcdir)/m4/ltoptions.m4 \
- $(top_srcdir)/m4/ltsugar.m4 $(top_srcdir)/m4/ltversion.m4 \
- $(top_srcdir)/m4/lt~obsolete.m4 $(top_srcdir)/m4/nls.m4 \
- $(top_srcdir)/m4/pkg.m4 $(top_srcdir)/m4/po.m4 \
- $(top_srcdir)/m4/progtest.m4 $(top_srcdir)/configure.ac
-am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
- $(ACLOCAL_M4)
-DIST_COMMON = $(srcdir)/Makefile.am $(top_srcdir)/configure \
- $(am__configure_deps) $(dist_noinst_SCRIPTS) \
- $(include_HEADERS) $(am__DIST_COMMON)
-am__CONFIG_DISTCLEAN_FILES = config.status config.cache config.log \
- configure.lineno config.status.lineno
-mkinstalldirs = $(SHELL) $(top_srcdir)/build_aux/mkinstalldirs
-CONFIG_HEADER = config.h
-CONFIG_CLEAN_FILES = pre-inst-env
-CONFIG_CLEAN_VPATH_FILES =
-SCRIPTS = $(dist_noinst_SCRIPTS) $(noinst_SCRIPTS)
-AM_V_P = $(am__v_P_@AM_V@)
-am__v_P_ = $(am__v_P_@AM_DEFAULT_V@)
-am__v_P_0 = false
-am__v_P_1 = :
-AM_V_GEN = $(am__v_GEN_@AM_V@)
-am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@)
-am__v_GEN_0 = @echo " GEN " $@;
-am__v_GEN_1 =
-AM_V_at = $(am__v_at_@AM_V@)
-am__v_at_ = $(am__v_at_@AM_DEFAULT_V@)
-am__v_at_0 = @
-am__v_at_1 =
-SOURCES =
-DIST_SOURCES =
-RECURSIVE_TARGETS = all-recursive check-recursive cscopelist-recursive \
- ctags-recursive dvi-recursive html-recursive info-recursive \
- install-data-recursive install-dvi-recursive \
- install-exec-recursive install-html-recursive \
- install-info-recursive install-pdf-recursive \
- install-ps-recursive install-recursive installcheck-recursive \
- installdirs-recursive pdf-recursive ps-recursive \
- tags-recursive uninstall-recursive
-am__can_run_installinfo = \
- case $$AM_UPDATE_INFO_DIR in \
- n|no|NO) false;; \
- *) (install-info --version) >/dev/null 2>&1;; \
- esac
-am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
-am__vpath_adj = case $$p in \
- $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
- *) f=$$p;; \
- esac;
-am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`;
-am__install_max = 40
-am__nobase_strip_setup = \
- srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'`
-am__nobase_strip = \
- for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||"
-am__nobase_list = $(am__nobase_strip_setup); \
- for p in $$list; do echo "$$p $$p"; done | \
- sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \
- $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \
- if (++n[$$2] == $(am__install_max)) \
- { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \
- END { for (dir in files) print dir, files[dir] }'
-am__base_list = \
- sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \
- sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g'
-am__uninstall_files_from_dir = { \
- test -z "$$files" \
- || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \
- || { echo " ( cd '$$dir' && rm -f" $$files ")"; \
- $(am__cd) "$$dir" && rm -f $$files; }; \
- }
-am__installdirs = "$(DESTDIR)$(includedir)"
-HEADERS = $(include_HEADERS)
-RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \
- distclean-recursive maintainer-clean-recursive
-am__recursive_targets = \
- $(RECURSIVE_TARGETS) \
- $(RECURSIVE_CLEAN_TARGETS) \
- $(am__extra_recursive_targets)
-AM_RECURSIVE_TARGETS = $(am__recursive_targets:-recursive=) TAGS CTAGS \
- cscope distdir distdir-am dist dist-all distcheck
-am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) \
- config.h.in
-# Read a list of newline-separated strings from the standard input,
-# and print each of them once, without duplicates. Input order is
-# *not* preserved.
-am__uniquify_input = $(AWK) '\
- BEGIN { nonempty = 0; } \
- { items[$$0] = 1; nonempty = 1; } \
- END { if (nonempty) { for (i in items) print i; }; } \
-'
-# Make sure the list of sources is unique. This is necessary because,
-# e.g., the same source file might be shared among _SOURCES variables
-# for different programs/libraries.
-am__define_uniq_tagged_files = \
- list='$(am__tagged_files)'; \
- unique=`for i in $$list; do \
- if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
- done | $(am__uniquify_input)`
-ETAGS = etags
-CTAGS = ctags
-CSCOPE = cscope
-DIST_SUBDIRS = $(SUBDIRS)
-am__DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/config.h.in \
- $(top_srcdir)/aminclude_static.am \
- $(top_srcdir)/build_aux/ar-lib $(top_srcdir)/build_aux/compile \
- $(top_srcdir)/build_aux/config.guess \
- $(top_srcdir)/build_aux/config.rpath \
- $(top_srcdir)/build_aux/config.sub \
- $(top_srcdir)/build_aux/install-sh \
- $(top_srcdir)/build_aux/ltmain.sh \
- $(top_srcdir)/build_aux/missing \
- $(top_srcdir)/build_aux/mkinstalldirs \
- $(top_srcdir)/build_aux/pre-inst-env.in ABOUT-NLS AUTHORS \
- COPYING COPYING.DOC COPYING.LESSER ChangeLog INSTALL NEWS \
- README THANKS TODO build_aux/ChangeLog build_aux/ar-lib \
- build_aux/compile build_aux/config.guess \
- build_aux/config.rpath build_aux/config.sub build_aux/depcomp \
- build_aux/install-sh build_aux/ltmain.sh build_aux/mdate-sh \
- build_aux/missing build_aux/mkinstalldirs \
- build_aux/texinfo.tex build_aux/ylwrap
-DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
-distdir = $(PACKAGE)-$(VERSION)
-top_distdir = $(distdir)
-am__remove_distdir = \
- if test -d "$(distdir)"; then \
- find "$(distdir)" -type d ! -perm -200 -exec chmod u+w {} ';' \
- && rm -rf "$(distdir)" \
- || { sleep 5 && rm -rf "$(distdir)"; }; \
- else :; fi
-am__post_remove_distdir = $(am__remove_distdir)
-am__relativize = \
- dir0=`pwd`; \
- sed_first='s,^\([^/]*\)/.*$$,\1,'; \
- sed_rest='s,^[^/]*/*,,'; \
- sed_last='s,^.*/\([^/]*\)$$,\1,'; \
- sed_butlast='s,/*[^/]*$$,,'; \
- while test -n "$$dir1"; do \
- first=`echo "$$dir1" | sed -e "$$sed_first"`; \
- if test "$$first" != "."; then \
- if test "$$first" = ".."; then \
- dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \
- dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \
- else \
- first2=`echo "$$dir2" | sed -e "$$sed_first"`; \
- if test "$$first2" = "$$first"; then \
- dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \
- else \
- dir2="../$$dir2"; \
- fi; \
- dir0="$$dir0"/"$$first"; \
- fi; \
- fi; \
- dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \
- done; \
- reldir="$$dir2"
-DIST_ARCHIVES = $(distdir).tar.gz
-GZIP_ENV = --best
-DIST_TARGETS = dist-gzip
-# Exists only to be overridden by the user if desired.
-AM_DISTCHECK_DVI_TARGET = dvi
-distuninstallcheck_listfiles = find . -type f -print
-am__distuninstallcheck_listfiles = $(distuninstallcheck_listfiles) \
- | sed 's|^\./|$(prefix)/|' | grep -v '$(infodir)/dir$$'
-distcleancheck_listfiles = find . -type f -print
-ACLOCAL = @ACLOCAL@
-AMTAR = @AMTAR@
-AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@
-AR = @AR@
-AS = @AS@
-AUTOCONF = @AUTOCONF@
-AUTOHEADER = @AUTOHEADER@
-AUTOMAKE = @AUTOMAKE@
-AWK = @AWK@
-BDB_CFLAGS = @BDB_CFLAGS@
-BDB_LIBS = @BDB_LIBS@
-CC = @CC@
-CCDEPMODE = @CCDEPMODE@
-CFLAGS = @CFLAGS@
-CJSON_CFLAGS = @CJSON_CFLAGS@
-CJSON_LIBS = @CJSON_LIBS@
-COBC_CPPFLAGS = @COBC_CPPFLAGS@
-COB_BIGENDIAN = @COB_BIGENDIAN@
-COB_CC = @COB_CC@
-COB_CFLAGS = @COB_CFLAGS@
-COB_CONFIG_DIR = @COB_CONFIG_DIR@
-COB_COPY_DIR = @COB_COPY_DIR@
-COB_ENABLE_DEBUG = @COB_ENABLE_DEBUG@
-COB_EXE_EXT = @COB_EXE_EXT@
-COB_FIX_LIBTOOL = @COB_FIX_LIBTOOL@
-COB_HAS_64_BIT_POINTER = @COB_HAS_64_BIT_POINTER@
-COB_HAS_CURSES = @COB_HAS_CURSES@
-COB_HAS_ISAM = @COB_HAS_ISAM@
-COB_HAS_JSON = @COB_HAS_JSON@
-COB_HAS_XML2 = @COB_HAS_XML2@
-COB_LDFLAGS = @COB_LDFLAGS@
-COB_LIBRARY_PATH = @COB_LIBRARY_PATH@
-COB_LIBS = @COB_LIBS@
-COB_MODULE_EXT = @COB_MODULE_EXT@
-COB_OBJECT_EXT = @COB_OBJECT_EXT@
-COB_PATCH_LEVEL = @COB_PATCH_LEVEL@
-CODE_COVERAGE_CFLAGS = @CODE_COVERAGE_CFLAGS@
-CODE_COVERAGE_CPPFLAGS = @CODE_COVERAGE_CPPFLAGS@
-CODE_COVERAGE_CXXFLAGS = @CODE_COVERAGE_CXXFLAGS@
-CODE_COVERAGE_ENABLED = @CODE_COVERAGE_ENABLED@
-CODE_COVERAGE_LIBS = @CODE_COVERAGE_LIBS@
-CPP = @CPP@
-CPPFLAGS = @CPPFLAGS@
-CURSES_LIBS = @CURSES_LIBS@
-CYGPATH_W = @CYGPATH_W@
-DEFS = @DEFS@
-DEPDIR = @DEPDIR@
-DIFF_FLAGS = @DIFF_FLAGS@
-DLLTOOL = @DLLTOOL@
-DSYMUTIL = @DSYMUTIL@
-DUMPBIN = @DUMPBIN@
-ECHO_C = @ECHO_C@
-ECHO_N = @ECHO_N@
-ECHO_T = @ECHO_T@
-EGREP = @EGREP@
-EXEEXT = @EXEEXT@
-FGREP = @FGREP@
-GCOV = @GCOV@
-GENHTML = @GENHTML@
-GETTEXT_MACRO_VERSION = @GETTEXT_MACRO_VERSION@
-GMP_CFLAGS = @GMP_CFLAGS@
-GMP_LIBS = @GMP_LIBS@
-GMSGFMT = @GMSGFMT@
-GMSGFMT_015 = @GMSGFMT_015@
-GREP = @GREP@
-HELP2MAN = @HELP2MAN@
-INSTALL = @INSTALL@
-INSTALL_DATA = @INSTALL_DATA@
-INSTALL_PROGRAM = @INSTALL_PROGRAM@
-INSTALL_SCRIPT = @INSTALL_SCRIPT@
-INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
-INTLLIBS = @INTLLIBS@
-INTL_MACOSX_LIBS = @INTL_MACOSX_LIBS@
-JSON_C_CFLAGS = @JSON_C_CFLAGS@
-JSON_C_LIBS = @JSON_C_LIBS@
-LCOV = @LCOV@
-LD = @LD@
-LDFLAGS = @LDFLAGS@
-LEX = @LEX@
-LEXLIB = @LEXLIB@
-LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@
-LIBCOB_CPPFLAGS = @LIBCOB_CPPFLAGS@
-LIBCOB_LIBS = @LIBCOB_LIBS@
-LIBICONV = @LIBICONV@
-LIBINTL = @LIBINTL@
-LIBOBJS = @LIBOBJS@
-LIBS = @LIBS@
-LIBTOOL = @LIBTOOL@
-LIPO = @LIPO@
-LN_S = @LN_S@
-LTLIBICONV = @LTLIBICONV@
-LTLIBINTL = @LTLIBINTL@
-LTLIBOBJS = @LTLIBOBJS@
-LT_SYS_LIBRARY_PATH = @LT_SYS_LIBRARY_PATH@
-MAKE = @MAKE@
-MAKEINFO = @MAKEINFO@
-MANIFEST_TOOL = @MANIFEST_TOOL@
-MKDIR_P = @MKDIR_P@
-MPIR_CFLAGS = @MPIR_CFLAGS@
-MPIR_LIBS = @MPIR_LIBS@
-MSGFMT = @MSGFMT@
-MSGMERGE = @MSGMERGE@
-MSGMERGE_FOR_MSGFMT_OPTION = @MSGMERGE_FOR_MSGFMT_OPTION@
-NM = @NM@
-NMEDIT = @NMEDIT@
-OBJDUMP = @OBJDUMP@
-OBJEXT = @OBJEXT@
-OTOOL = @OTOOL@
-OTOOL64 = @OTOOL64@
-PACKAGE = @PACKAGE@
-PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
-PACKAGE_NAME = @PACKAGE_NAME@
-PACKAGE_STRING = @PACKAGE_STRING@
-PACKAGE_TARNAME = @PACKAGE_TARNAME@
-PACKAGE_URL = @PACKAGE_URL@
-PACKAGE_VERSION = @PACKAGE_VERSION@
-PATH_SEPARATOR = @PATH_SEPARATOR@
-PERL = @PERL@
-PKG_CONFIG = @PKG_CONFIG@
-PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@
-PKG_CONFIG_PATH = @PKG_CONFIG_PATH@
-POSUB = @POSUB@
-PROGRAMS_LIBS = @PROGRAMS_LIBS@
-QUOTE_INCLUDE_FLAG = @QUOTE_INCLUDE_FLAG@
-RANLIB = @RANLIB@
-RC = @RC@
-SED = @SED@
-SET_MAKE = @SET_MAKE@
-SHELL = @SHELL@
-STRIP = @STRIP@
-USE_NLS = @USE_NLS@
-VERSION = @VERSION@
-XGETTEXT = @XGETTEXT@
-XGETTEXT_015 = @XGETTEXT_015@
-XGETTEXT_EXTRA_OPTIONS = @XGETTEXT_EXTRA_OPTIONS@
-XML2_CFLAGS = @XML2_CFLAGS@
-XML2_CONFIG = @XML2_CONFIG@
-XML2_LIBS = @XML2_LIBS@
-YACC = @YACC@
-YFLAGS = @YFLAGS@
-abs_builddir = @abs_builddir@
-abs_srcdir = @abs_srcdir@
-abs_top_builddir = @abs_top_builddir@
-abs_top_srcdir = @abs_top_srcdir@
-ac_ct_AR = @ac_ct_AR@
-ac_ct_CC = @ac_ct_CC@
-ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
-am__include = @am__include@
-am__leading_dot = @am__leading_dot@
-am__quote = @am__quote@
-am__tar = @am__tar@
-am__untar = @am__untar@
-bindir = @bindir@
-build = @build@
-build_alias = @build_alias@
-build_cpu = @build_cpu@
-build_os = @build_os@
-build_vendor = @build_vendor@
-builddir = @builddir@
-configured_make = @configured_make@
-datadir = @datadir@
-datarootdir = @datarootdir@
-docdir = @docdir@
-dvidir = @dvidir@
-exec_prefix = @exec_prefix@
-host = @host@
-host_alias = @host_alias@
-host_cpu = @host_cpu@
-host_os = @host_os@
-host_vendor = @host_vendor@
-htmldir = @htmldir@
-ifGNUmake = @ifGNUmake@
-ifnGNUmake = @ifnGNUmake@
-includedir = @includedir@
-infodir = @infodir@
-install_sh = @install_sh@
-libdir = @libdir@
-libexecdir = @libexecdir@
-localedir = @localedir@
-localstatedir = @localstatedir@
-mandir = @mandir@
-mkdir_p = @mkdir_p@
-oldincludedir = @oldincludedir@
-pdfdir = @pdfdir@
-prefix = @prefix@
-program_transform_name = @program_transform_name@
-psdir = @psdir@
-runstatedir = @runstatedir@
-sbindir = @sbindir@
-sharedstatedir = @sharedstatedir@
-srcdir = @srcdir@
-sysconfdir = @sysconfdir@
-target_alias = @target_alias@
-top_build_prefix = @top_build_prefix@
-top_builddir = @top_builddir@
-top_srcdir = @top_srcdir@
-include_HEADERS = libcob.h
-SUBDIRS = . lib libcob bin cobc config copy po extras doc tests
-BUILT_SOURCES = tarstamp.h
-ACLOCAL_AMFLAGS = -I m4 --install
-# CLEANFILES = $(bin_SCRIPTS)
-dist_noinst_SCRIPTS = autogen.sh build_aux/bootstrap po/update_linguas.sh \
- build_aux/create_win_dist.sh build_aux/create_mingw_bindist.sh
-
-
-# wrapper for the build environment
-noinst_SCRIPTS = pre-inst-env
-EXTRA_DIST = gnucobol.spec DEPENDENCIES DEPENDENCIES.md README.md HACKING
-@CODE_COVERAGE_ENABLED_TRUE@GITIGNOREFILES := $(GITIGNOREFILES) $(CODE_COVERAGE_OUTPUT_FILE) $(CODE_COVERAGE_OUTPUT_DIRECTORY)
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_lcov_cap = $(code_coverage_v_lcov_cap_$(V))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_lcov_cap_ = $(code_coverage_v_lcov_cap_$(AM_DEFAULT_VERBOSITY))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_lcov_cap_0 = @echo " LCOV --capture" $(CODE_COVERAGE_OUTPUT_FILE);
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_lcov_ign = $(code_coverage_v_lcov_ign_$(V))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_lcov_ign_ = $(code_coverage_v_lcov_ign_$(AM_DEFAULT_VERBOSITY))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_lcov_ign_0 = @echo " LCOV --remove /tmp/*" $(CODE_COVERAGE_IGNORE_PATTERN);
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_genhtml = $(code_coverage_v_genhtml_$(V))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_genhtml_ = $(code_coverage_v_genhtml_$(AM_DEFAULT_VERBOSITY))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_genhtml_0 = @echo " GEN " "$(CODE_COVERAGE_OUTPUT_DIRECTORY)";
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_quiet = $(code_coverage_quiet_$(V))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_quiet_ = $(code_coverage_quiet_$(AM_DEFAULT_VERBOSITY))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_quiet_0 = --quiet
-
-# sanitizes the test-name: replaces with underscores: dashes and dots
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_sanitize = $(subst -,_,$(subst .,_,$(1)))
-@CODE_COVERAGE_ENABLED_TRUE@AM_DISTCHECK_CONFIGURE_FLAGS := $(AM_DISTCHECK_CONFIGURE_FLAGS) --disable-code-coverage
-CODE_COVERAGE_BRANCH_COVERAGE = 1
-CODE_COVERAGE_IGNORE_PATTERN = \
- "*/cobc/pplex.c" "*/cobc/ppparse.c" "*/cobc/scanner.c" "*/cobc/parser.c" \
- "*/cobc/config.def" "*/cobc/warning.def" \
- "*/libcob/statement.def"
-
-
-# files shipped with the package that should be 755'ed:
-FILES_TO_BE_EXECUTABLE = $(dist_noinst_SCRIPTS) \
- configure tests/testsuite tests/testsuite_manual tests/listings-sed.sh \
- build_aux/config.guess build_aux/config.sub build_aux/config.rpath \
- build_aux/depcomp build_aux/install-sh build_aux/ltmain.sh build_aux/mdate-sh \
- build_aux/missing build_aux/mkinstalldirs build_aux/ylwrap
-
-tarstamps = $(top_distdir)/tarstamp.h tarstamp.h
-# touch $(top_distdir)/cobc/ppparse.c
-# touch $(top_distdir)/cobc/parser.c
-# touch $(top_distdir)/cobc/pplex.c
-# touch $(top_distdir)/cobc/scanner.c
-# $(top_distdir)/doc/cobcinfo.sh "fixtimestamps"
-# touch $(top_distdir)/libcob/libcob.3
-# touch $(top_distdir)/bin/cobcrun.1
-# touch $(top_distdir)/cobc/cobc.1
-
-# Create dist_win manually (dist-zip would have the same content as dist-gzip)
-distwindir = $(distdir)_win
-distmingwdir = GnuCOBOL_mingw
-distbindir = $(distdir)_bin
-DISTBIN_TARGETS = distbin-gzip
-gc__remove_bindistdir = rm -rf $(distbindir)
-gc__post_remove_bindistdir = $(gc__remove_bindistdir)
-
-# date from last svn timestamp according to local checkout
-VCSDATE = LC_ALL=C svn info --show-item last-changed-date $(srcdir) 2>/dev/null
-
-# if find -printf is not supported: pass as FILEDATE=false
-FILEDATE_LOOKUP = -name 'NEWS' -o -name 'configure.ac' -o -name 'ChangeLog' -o -name '*.c' -o -name '*.h' -o -name '*.am' -o -name '*.at'
-FILEDATE = (find $(srcdir) -type f \( $(FILEDATE_LOOKUP) \) -printf '%T@ %p\0' | sort -rz | sed -Ezn '1s/[^ ]* //p' | xargs stat -c %y) 2>/dev/null
-
-# to override, most common as "gdate", if it doesn't support --date, then current date is used
-DATE = date
-TARSTAMP_CONTENT = '\#define COB_TAR_DATE "%b %d %Y %T UTC"%n\#define COB_NUM_TAR_DATE %Y%m%d%n\#define COB_NUM_TAR_TIME %H%M%S'
-all: $(BUILT_SOURCES) config.h
- $(MAKE) $(AM_MAKEFLAGS) all-recursive
-
-.SUFFIXES:
-am--refresh: Makefile
- @:
-$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/aminclude_static.am $(am__configure_deps)
- @for dep in $?; do \
- case '$(am__configure_deps)' in \
- *$$dep*) \
- echo ' cd $(srcdir) && $(AUTOMAKE) --gnu'; \
- $(am__cd) $(srcdir) && $(AUTOMAKE) --gnu \
- && exit 0; \
- exit 1;; \
- esac; \
- done; \
- echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu Makefile'; \
- $(am__cd) $(top_srcdir) && \
- $(AUTOMAKE) --gnu Makefile
-Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
- @case '$?' in \
- *config.status*) \
- echo ' $(SHELL) ./config.status'; \
- $(SHELL) ./config.status;; \
- *) \
- echo ' cd $(top_builddir) && $(SHELL) ./config.status $@ $(am__maybe_remake_depfiles)'; \
- cd $(top_builddir) && $(SHELL) ./config.status $@ $(am__maybe_remake_depfiles);; \
- esac;
-$(top_srcdir)/aminclude_static.am $(am__empty):
-
-$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
- $(SHELL) ./config.status --recheck
-
-$(top_srcdir)/configure: $(am__configure_deps)
- $(am__cd) $(srcdir) && $(AUTOCONF)
-$(ACLOCAL_M4): $(am__aclocal_m4_deps)
- $(am__cd) $(srcdir) && $(ACLOCAL) $(ACLOCAL_AMFLAGS)
-$(am__aclocal_m4_deps):
-
-config.h: stamp-h1
- @test -f $@ || rm -f stamp-h1
- @test -f $@ || $(MAKE) $(AM_MAKEFLAGS) stamp-h1
-
-stamp-h1: $(srcdir)/config.h.in $(top_builddir)/config.status
- @rm -f stamp-h1
- cd $(top_builddir) && $(SHELL) ./config.status config.h
-$(srcdir)/config.h.in: $(am__configure_deps)
- ($(am__cd) $(top_srcdir) && $(AUTOHEADER))
- rm -f stamp-h1
- touch $@
-
-distclean-hdr:
- -rm -f config.h stamp-h1
-pre-inst-env: $(top_builddir)/config.status $(top_srcdir)/build_aux/pre-inst-env.in
- cd $(top_builddir) && $(SHELL) ./config.status $@
-
-mostlyclean-libtool:
- -rm -f *.lo
-
-clean-libtool:
- -rm -rf .libs _libs
-
-distclean-libtool:
- -rm -f libtool config.lt
-install-includeHEADERS: $(include_HEADERS)
- @$(NORMAL_INSTALL)
- @list='$(include_HEADERS)'; test -n "$(includedir)" || list=; \
- if test -n "$$list"; then \
- echo " $(MKDIR_P) '$(DESTDIR)$(includedir)'"; \
- $(MKDIR_P) "$(DESTDIR)$(includedir)" || exit 1; \
- fi; \
- for p in $$list; do \
- if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
- echo "$$d$$p"; \
- done | $(am__base_list) | \
- while read files; do \
- echo " $(INSTALL_HEADER) $$files '$(DESTDIR)$(includedir)'"; \
- $(INSTALL_HEADER) $$files "$(DESTDIR)$(includedir)" || exit $$?; \
- done
-
-uninstall-includeHEADERS:
- @$(NORMAL_UNINSTALL)
- @list='$(include_HEADERS)'; test -n "$(includedir)" || list=; \
- files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \
- dir='$(DESTDIR)$(includedir)'; $(am__uninstall_files_from_dir)
-
-# This directory's subdirectories are mostly independent; you can cd
-# into them and run 'make' without going through this Makefile.
-# To change the values of 'make' variables: instead of editing Makefiles,
-# (1) if the variable is set in 'config.status', edit 'config.status'
-# (which will cause the Makefiles to be regenerated when you run 'make');
-# (2) otherwise, pass the desired values on the 'make' command line.
-$(am__recursive_targets):
- @fail=; \
- if $(am__make_keepgoing); then \
- failcom='fail=yes'; \
- else \
- failcom='exit 1'; \
- fi; \
- dot_seen=no; \
- target=`echo $@ | sed s/-recursive//`; \
- case "$@" in \
- distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \
- *) list='$(SUBDIRS)' ;; \
- esac; \
- for subdir in $$list; do \
- echo "Making $$target in $$subdir"; \
- if test "$$subdir" = "."; then \
- dot_seen=yes; \
- local_target="$$target-am"; \
- else \
- local_target="$$target"; \
- fi; \
- ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \
- || eval $$failcom; \
- done; \
- if test "$$dot_seen" = "no"; then \
- $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \
- fi; test -z "$$fail"
-
-ID: $(am__tagged_files)
- $(am__define_uniq_tagged_files); mkid -fID $$unique
-tags: tags-recursive
-TAGS: tags
-
-tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files)
- set x; \
- here=`pwd`; \
- if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \
- include_option=--etags-include; \
- empty_fix=.; \
- else \
- include_option=--include; \
- empty_fix=; \
- fi; \
- list='$(SUBDIRS)'; for subdir in $$list; do \
- if test "$$subdir" = .; then :; else \
- test ! -f $$subdir/TAGS || \
- set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \
- fi; \
- done; \
- $(am__define_uniq_tagged_files); \
- shift; \
- if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
- test -n "$$unique" || unique=$$empty_fix; \
- if test $$# -gt 0; then \
- $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
- "$$@" $$unique; \
- else \
- $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
- $$unique; \
- fi; \
- fi
-ctags: ctags-recursive
-
-CTAGS: ctags
-ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files)
- $(am__define_uniq_tagged_files); \
- test -z "$(CTAGS_ARGS)$$unique" \
- || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
- $$unique
-
-GTAGS:
- here=`$(am__cd) $(top_builddir) && pwd` \
- && $(am__cd) $(top_srcdir) \
- && gtags -i $(GTAGS_ARGS) "$$here"
-cscope: cscope.files
- test ! -s cscope.files \
- || $(CSCOPE) -b -q $(AM_CSCOPEFLAGS) $(CSCOPEFLAGS) -i cscope.files $(CSCOPE_ARGS)
-clean-cscope:
- -rm -f cscope.files
-cscope.files: clean-cscope cscopelist
-cscopelist: cscopelist-recursive
-
-cscopelist-am: $(am__tagged_files)
- list='$(am__tagged_files)'; \
- case "$(srcdir)" in \
- [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \
- *) sdir=$(subdir)/$(srcdir) ;; \
- esac; \
- for i in $$list; do \
- if test -f "$$i"; then \
- echo "$(subdir)/$$i"; \
- else \
- echo "$$sdir/$$i"; \
- fi; \
- done >> $(top_builddir)/cscope.files
-
-distclean-tags:
- -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
- -rm -f cscope.out cscope.in.out cscope.po.out cscope.files
-
-distdir: $(BUILT_SOURCES)
- $(MAKE) $(AM_MAKEFLAGS) distdir-am
-
-distdir-am: $(DISTFILES)
- $(am__remove_distdir)
- test -d "$(distdir)" || mkdir "$(distdir)"
- @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
- topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
- list='$(DISTFILES)'; \
- dist_files=`for file in $$list; do echo $$file; done | \
- sed -e "s|^$$srcdirstrip/||;t" \
- -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
- case $$dist_files in \
- */*) $(MKDIR_P) `echo "$$dist_files" | \
- sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
- sort -u` ;; \
- esac; \
- for file in $$dist_files; do \
- if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
- if test -d $$d/$$file; then \
- dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
- if test -d "$(distdir)/$$file"; then \
- find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
- fi; \
- if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
- cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
- find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
- fi; \
- cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
- else \
- test -f "$(distdir)/$$file" \
- || cp -p $$d/$$file "$(distdir)/$$file" \
- || exit 1; \
- fi; \
- done
- @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \
- if test "$$subdir" = .; then :; else \
- $(am__make_dryrun) \
- || test -d "$(distdir)/$$subdir" \
- || $(MKDIR_P) "$(distdir)/$$subdir" \
- || exit 1; \
- dir1=$$subdir; dir2="$(distdir)/$$subdir"; \
- $(am__relativize); \
- new_distdir=$$reldir; \
- dir1=$$subdir; dir2="$(top_distdir)"; \
- $(am__relativize); \
- new_top_distdir=$$reldir; \
- echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \
- echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \
- ($(am__cd) $$subdir && \
- $(MAKE) $(AM_MAKEFLAGS) \
- top_distdir="$$new_top_distdir" \
- distdir="$$new_distdir" \
- am__remove_distdir=: \
- am__skip_length_check=: \
- am__skip_mode_fix=: \
- distdir) \
- || exit 1; \
- fi; \
- done
- $(MAKE) $(AM_MAKEFLAGS) \
- top_distdir="$(top_distdir)" distdir="$(distdir)" \
- dist-hook
- -test -n "$(am__skip_mode_fix)" \
- || find "$(distdir)" -type d ! -perm -755 \
- -exec chmod u+rwx,go+rx {} \; -o \
- ! -type d ! -perm -444 -links 1 -exec chmod a+r {} \; -o \
- ! -type d ! -perm -400 -exec chmod a+r {} \; -o \
- ! -type d ! -perm -444 -exec $(install_sh) -c -m a+r {} {} \; \
- || chmod -R a+r "$(distdir)"
-dist-gzip: distdir
- tardir=$(distdir) && $(am__tar) | eval GZIP= gzip $(GZIP_ENV) -c >$(distdir).tar.gz
- $(am__post_remove_distdir)
-
-dist-bzip2: distdir
- tardir=$(distdir) && $(am__tar) | BZIP2=$${BZIP2--9} bzip2 -c >$(distdir).tar.bz2
- $(am__post_remove_distdir)
-
-dist-lzip: distdir
- tardir=$(distdir) && $(am__tar) | lzip -c $${LZIP_OPT--9} >$(distdir).tar.lz
- $(am__post_remove_distdir)
-
-dist-xz: distdir
- tardir=$(distdir) && $(am__tar) | XZ_OPT=$${XZ_OPT--e} xz -c >$(distdir).tar.xz
- $(am__post_remove_distdir)
-
-dist-zstd: distdir
- tardir=$(distdir) && $(am__tar) | zstd -c $${ZSTD_CLEVEL-$${ZSTD_OPT--19}} >$(distdir).tar.zst
- $(am__post_remove_distdir)
-
-dist-tarZ: distdir
- @echo WARNING: "Support for distribution archives compressed with" \
- "legacy program 'compress' is deprecated." >&2
- @echo WARNING: "It will be removed altogether in Automake 2.0" >&2
- tardir=$(distdir) && $(am__tar) | compress -c >$(distdir).tar.Z
- $(am__post_remove_distdir)
-
-dist-shar: distdir
- @echo WARNING: "Support for shar distribution archives is" \
- "deprecated." >&2
- @echo WARNING: "It will be removed altogether in Automake 2.0" >&2
- shar $(distdir) | eval GZIP= gzip $(GZIP_ENV) -c >$(distdir).shar.gz
- $(am__post_remove_distdir)
-
-dist-zip: distdir
- -rm -f $(distdir).zip
- zip -rq $(distdir).zip $(distdir)
- $(am__post_remove_distdir)
-
-dist dist-all:
- $(MAKE) $(AM_MAKEFLAGS) $(DIST_TARGETS) am__post_remove_distdir='@:'
- $(am__post_remove_distdir)
-
-# This target untars the dist file and tries a VPATH configuration. Then
-# it guarantees that the distribution is self-contained by making another
-# tarfile.
-distcheck: dist
- case '$(DIST_ARCHIVES)' in \
- *.tar.gz*) \
- eval GZIP= gzip $(GZIP_ENV) -dc $(distdir).tar.gz | $(am__untar) ;;\
- *.tar.bz2*) \
- bzip2 -dc $(distdir).tar.bz2 | $(am__untar) ;;\
- *.tar.lz*) \
- lzip -dc $(distdir).tar.lz | $(am__untar) ;;\
- *.tar.xz*) \
- xz -dc $(distdir).tar.xz | $(am__untar) ;;\
- *.tar.Z*) \
- uncompress -c $(distdir).tar.Z | $(am__untar) ;;\
- *.shar.gz*) \
- eval GZIP= gzip $(GZIP_ENV) -dc $(distdir).shar.gz | unshar ;;\
- *.zip*) \
- unzip $(distdir).zip ;;\
- *.tar.zst*) \
- zstd -dc $(distdir).tar.zst | $(am__untar) ;;\
- esac
- chmod -R a-w $(distdir)
- chmod u+w $(distdir)
- mkdir $(distdir)/_build $(distdir)/_build/sub $(distdir)/_inst
- chmod a-w $(distdir)
- test -d $(distdir)/_build || exit 0; \
- dc_install_base=`$(am__cd) $(distdir)/_inst && pwd | sed -e 's,^[^:\\/]:[\\/],/,'` \
- && dc_destdir="$${TMPDIR-/tmp}/am-dc-$$$$/" \
- && am__cwd=`pwd` \
- && $(am__cd) $(distdir)/_build/sub \
- && ../../configure \
- $(AM_DISTCHECK_CONFIGURE_FLAGS) \
- $(DISTCHECK_CONFIGURE_FLAGS) \
- --srcdir=../.. --prefix="$$dc_install_base" \
- && $(MAKE) $(AM_MAKEFLAGS) \
- && $(MAKE) $(AM_MAKEFLAGS) $(AM_DISTCHECK_DVI_TARGET) \
- && $(MAKE) $(AM_MAKEFLAGS) check \
- && $(MAKE) $(AM_MAKEFLAGS) install \
- && $(MAKE) $(AM_MAKEFLAGS) installcheck \
- && $(MAKE) $(AM_MAKEFLAGS) uninstall \
- && $(MAKE) $(AM_MAKEFLAGS) distuninstallcheck_dir="$$dc_install_base" \
- distuninstallcheck \
- && chmod -R a-w "$$dc_install_base" \
- && ({ \
- (cd ../.. && umask 077 && mkdir "$$dc_destdir") \
- && $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" install \
- && $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" uninstall \
- && $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" \
- distuninstallcheck_dir="$$dc_destdir" distuninstallcheck; \
- } || { rm -rf "$$dc_destdir"; exit 1; }) \
- && rm -rf "$$dc_destdir" \
- && $(MAKE) $(AM_MAKEFLAGS) dist \
- && rm -rf $(DIST_ARCHIVES) \
- && $(MAKE) $(AM_MAKEFLAGS) distcleancheck \
- && cd "$$am__cwd" \
- || exit 1
- $(am__post_remove_distdir)
- @(echo "$(distdir) archives ready for distribution: "; \
- list='$(DIST_ARCHIVES)'; for i in $$list; do echo $$i; done) | \
- sed -e 1h -e 1s/./=/g -e 1p -e 1x -e '$$p' -e '$$x'
-distuninstallcheck:
- @test -n '$(distuninstallcheck_dir)' || { \
- echo 'ERROR: trying to run $@ with an empty' \
- '$$(distuninstallcheck_dir)' >&2; \
- exit 1; \
- }; \
- $(am__cd) '$(distuninstallcheck_dir)' || { \
- echo 'ERROR: cannot chdir into $(distuninstallcheck_dir)' >&2; \
- exit 1; \
- }; \
- test `$(am__distuninstallcheck_listfiles) | wc -l` -eq 0 \
- || { echo "ERROR: files left after uninstall:" ; \
- if test -n "$(DESTDIR)"; then \
- echo " (check DESTDIR support)"; \
- fi ; \
- $(distuninstallcheck_listfiles) ; \
- exit 1; } >&2
-distcleancheck: distclean
- @if test '$(srcdir)' = . ; then \
- echo "ERROR: distcleancheck can only run from a VPATH build" ; \
- exit 1 ; \
- fi
- @test `$(distcleancheck_listfiles) | wc -l` -eq 0 \
- || { echo "ERROR: files left in build directory after distclean:" ; \
- $(distcleancheck_listfiles) ; \
- exit 1; } >&2
-check-am: all-am
-check: $(BUILT_SOURCES)
- $(MAKE) $(AM_MAKEFLAGS) check-recursive
-all-am: Makefile $(SCRIPTS) $(HEADERS) config.h
-installdirs: installdirs-recursive
-installdirs-am:
- for dir in "$(DESTDIR)$(includedir)"; do \
- test -z "$$dir" || $(MKDIR_P) "$$dir"; \
- done
-install: $(BUILT_SOURCES)
- $(MAKE) $(AM_MAKEFLAGS) install-recursive
-install-exec: $(BUILT_SOURCES)
- $(MAKE) $(AM_MAKEFLAGS) install-exec-recursive
-install-data: install-data-recursive
-uninstall: uninstall-recursive
-
-install-am: all-am
- @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
-
-installcheck: installcheck-recursive
-install-strip:
- if test -z '$(STRIP)'; then \
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- install; \
- else \
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
- fi
-mostlyclean-generic:
-
-clean-generic:
-
-distclean-generic:
- -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
- -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
-
-maintainer-clean-generic:
- @echo "This command is intended for maintainers to use"
- @echo "it deletes files that may require special tools to rebuild."
- -test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES)
-clean: clean-recursive
-
-clean-am: clean-generic clean-libtool clean-local mostlyclean-am
-
-distclean: distclean-recursive
- -rm -f $(am__CONFIG_DISTCLEAN_FILES)
- -rm -f Makefile
-distclean-am: clean-am distclean-generic distclean-hdr \
- distclean-libtool distclean-tags
-
-dvi: dvi-recursive
-
-dvi-am:
-
-html: html-recursive
-
-html-am:
-
-info: info-recursive
-
-info-am:
-
-install-data-am: install-includeHEADERS
-
-install-dvi: install-dvi-recursive
-
-install-dvi-am:
-
-install-exec-am:
-
-install-html: install-html-recursive
-
-install-html-am:
-
-install-info: install-info-recursive
-
-install-info-am:
-
-install-man:
-
-install-pdf: install-pdf-recursive
-
-install-pdf-am:
-
-install-ps: install-ps-recursive
-
-install-ps-am:
-
-installcheck-am:
-
-maintainer-clean: maintainer-clean-recursive
- -rm -f $(am__CONFIG_DISTCLEAN_FILES)
- -rm -rf $(top_srcdir)/autom4te.cache
- -rm -f Makefile
-maintainer-clean-am: distclean-am maintainer-clean-generic
-
-mostlyclean: mostlyclean-recursive
-
-mostlyclean-am: mostlyclean-generic mostlyclean-libtool
-
-pdf: pdf-recursive
-
-pdf-am:
-
-ps: ps-recursive
-
-ps-am:
-
-uninstall-am: uninstall-includeHEADERS
-
-.MAKE: $(am__recursive_targets) all check install install-am \
- install-exec install-strip
-
-.PHONY: $(am__recursive_targets) CTAGS GTAGS TAGS all all-am \
- am--refresh check check-am clean clean-cscope clean-generic \
- clean-libtool clean-local cscope cscopelist-am ctags ctags-am \
- dist dist-all dist-bzip2 dist-gzip dist-hook dist-lzip \
- dist-shar dist-tarZ dist-xz dist-zip dist-zstd distcheck \
- distclean distclean-generic distclean-hdr distclean-libtool \
- distclean-tags distcleancheck distdir distuninstallcheck dvi \
- dvi-am html html-am info info-am install install-am \
- install-data install-data-am install-dvi install-dvi-am \
- install-exec install-exec-am install-html install-html-am \
- install-includeHEADERS install-info install-info-am \
- install-man install-pdf install-pdf-am install-ps \
- install-ps-am install-strip installcheck installcheck-am \
- installdirs installdirs-am maintainer-clean \
- maintainer-clean-generic mostlyclean mostlyclean-generic \
- mostlyclean-libtool pdf pdf-am ps ps-am tags tags-am uninstall \
- uninstall-am uninstall-includeHEADERS
-
-.PRECIOUS: Makefile
-
-
-# Code coverage
-#
-# Optional:
-# - CODE_COVERAGE_DIRECTORY: Top-level directory for code coverage reporting.
-# Multiple directories may be specified, separated by whitespace.
-# (Default: $(top_builddir))
-# - CODE_COVERAGE_OUTPUT_FILE: Filename and path for the .info file generated
-# by lcov for code coverage. (Default:
-# $(PACKAGE_NAME)-$(PACKAGE_VERSION)-coverage.info)
-# - CODE_COVERAGE_OUTPUT_DIRECTORY: Directory for generated code coverage
-# reports to be created. (Default:
-# $(PACKAGE_NAME)-$(PACKAGE_VERSION)-coverage)
-# - CODE_COVERAGE_BRANCH_COVERAGE: Set to 1 to enforce branch coverage,
-# set to 0 to disable it and leave empty to stay with the default.
-# (Default: empty)
-# - CODE_COVERAGE_LCOV_SHOPTS_DEFAULT: Extra options shared between both lcov
-# instances. (Default: based on )
-# - CODE_COVERAGE_LCOV_SHOPTS: Extra options to shared between both lcov
-# instances. (Default: )
-# - CODE_COVERAGE_LCOV_OPTIONS_GCOVPATH: --gcov-tool pathtogcov
-# - CODE_COVERAGE_LCOV_OPTIONS_DEFAULT: Extra options to pass to the
-# collecting lcov instance. (Default: )
-# - CODE_COVERAGE_LCOV_OPTIONS: Extra options to pass to the collecting lcov
-# instance. (Default: )
-# - CODE_COVERAGE_LCOV_RMOPTS_DEFAULT: Extra options to pass to the filtering
-# lcov instance. (Default: empty)
-# - CODE_COVERAGE_LCOV_RMOPTS: Extra options to pass to the filtering lcov
-# instance. (Default: )
-# - CODE_COVERAGE_GENHTML_OPTIONS_DEFAULT: Extra options to pass to the
-# genhtml instance. (Default: based on )
-# - CODE_COVERAGE_GENHTML_OPTIONS: Extra options to pass to the genhtml
-# instance. (Default: )
-# - CODE_COVERAGE_IGNORE_PATTERN: Extra glob pattern of files to ignore
-#
-# The generated report will be titled using the $(PACKAGE_NAME) and
-# $(PACKAGE_VERSION). In order to add the current git hash to the title,
-# use the git-version-gen script, available online.
-# Optional variables
-# run only on top dir
-@CODE_COVERAGE_ENABLED_TRUE@ ifeq ($(abs_builddir), $(abs_top_builddir))
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_DIRECTORY ?= $(top_builddir)
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_OUTPUT_FILE ?= $(PACKAGE_NAME)-$(PACKAGE_VERSION)-coverage.info
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_OUTPUT_DIRECTORY ?= $(PACKAGE_NAME)-$(PACKAGE_VERSION)-coverage
-
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_BRANCH_COVERAGE ?=
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_LCOV_SHOPTS_DEFAULT ?= $(if $(CODE_COVERAGE_BRANCH_COVERAGE),--rc lcov_branch_coverage=$(CODE_COVERAGE_BRANCH_COVERAGE))
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_LCOV_SHOPTS ?= $(CODE_COVERAGE_LCOV_SHOPTS_DEFAULT)
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_LCOV_OPTIONS_GCOVPATH ?= --gcov-tool "$(GCOV)"
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_LCOV_OPTIONS_DEFAULT ?= $(CODE_COVERAGE_LCOV_OPTIONS_GCOVPATH)
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_LCOV_OPTIONS ?= $(CODE_COVERAGE_LCOV_OPTIONS_DEFAULT)
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_LCOV_RMOPTS_DEFAULT ?=
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_LCOV_RMOPTS ?= $(CODE_COVERAGE_LCOV_RMOPTS_DEFAULT)
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_GENHTML_OPTIONS_DEFAULT ?=$(if $(CODE_COVERAGE_BRANCH_COVERAGE),--rc genhtml_branch_coverage=$(CODE_COVERAGE_BRANCH_COVERAGE))
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_GENHTML_OPTIONS ?= $(CODE_COVERAGE_GENHTML_OPTIONS_DEFAULT)
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_IGNORE_PATTERN ?=
-
-# Use recursive makes in order to ignore errors during check
-@CODE_COVERAGE_ENABLED_TRUE@check-code-coverage:
-@CODE_COVERAGE_ENABLED_TRUE@ -$(AM_V_at)$(MAKE) $(AM_MAKEFLAGS) -k check
-@CODE_COVERAGE_ENABLED_TRUE@ $(AM_V_at)$(MAKE) $(AM_MAKEFLAGS) code-coverage-capture
-
-# Capture code coverage data
-@CODE_COVERAGE_ENABLED_TRUE@code-coverage-capture: code-coverage-capture-hook
-@CODE_COVERAGE_ENABLED_TRUE@ $(code_coverage_v_lcov_cap)$(LCOV) $(code_coverage_quiet) $(addprefix --directory ,$(CODE_COVERAGE_DIRECTORY)) --capture --output-file "$(CODE_COVERAGE_OUTPUT_FILE).tmp" --test-name "$(call code_coverage_sanitize,$(PACKAGE_NAME)-$(PACKAGE_VERSION))" --no-checksum --compat-libtool $(CODE_COVERAGE_LCOV_SHOPTS) $(CODE_COVERAGE_LCOV_OPTIONS)
-@CODE_COVERAGE_ENABLED_TRUE@ $(code_coverage_v_lcov_ign)$(LCOV) $(code_coverage_quiet) $(addprefix --directory ,$(CODE_COVERAGE_DIRECTORY)) --remove "$(CODE_COVERAGE_OUTPUT_FILE).tmp" "/tmp/*" $(CODE_COVERAGE_IGNORE_PATTERN) --output-file "$(CODE_COVERAGE_OUTPUT_FILE)" $(CODE_COVERAGE_LCOV_SHOPTS) $(CODE_COVERAGE_LCOV_RMOPTS)
-@CODE_COVERAGE_ENABLED_TRUE@ -@rm -f "$(CODE_COVERAGE_OUTPUT_FILE).tmp"
-@CODE_COVERAGE_ENABLED_TRUE@ $(code_coverage_v_genhtml)LANG=C $(GENHTML) $(code_coverage_quiet) $(addprefix --prefix ,$(CODE_COVERAGE_DIRECTORY)) --output-directory "$(CODE_COVERAGE_OUTPUT_DIRECTORY)" --title "$(PACKAGE_NAME)-$(PACKAGE_VERSION) Code Coverage" --legend --show-details "$(CODE_COVERAGE_OUTPUT_FILE)" $(CODE_COVERAGE_GENHTML_OPTIONS)
-@CODE_COVERAGE_ENABLED_TRUE@ @echo "file://$(abs_builddir)/$(CODE_COVERAGE_OUTPUT_DIRECTORY)/index.html"
-
-@CODE_COVERAGE_ENABLED_TRUE@code-coverage-clean:
-@CODE_COVERAGE_ENABLED_TRUE@ -$(LCOV) --directory $(top_builddir) -z
-@CODE_COVERAGE_ENABLED_TRUE@ -rm -rf "$(CODE_COVERAGE_OUTPUT_FILE)" "$(CODE_COVERAGE_OUTPUT_FILE).tmp" "$(CODE_COVERAGE_OUTPUT_DIRECTORY)"
-@CODE_COVERAGE_ENABLED_TRUE@ -find . \( -name "*.gcda" -o -name "*.gcno" -o -name "*.gcov" \) -delete
-
-@CODE_COVERAGE_ENABLED_TRUE@code-coverage-dist-clean:
-@CODE_COVERAGE_ENABLED_TRUE@ else # ifneq ($(abs_builddir), $(abs_top_builddir))
-@CODE_COVERAGE_ENABLED_TRUE@check-code-coverage:
-
-@CODE_COVERAGE_ENABLED_TRUE@code-coverage-capture: code-coverage-capture-hook
-
-@CODE_COVERAGE_ENABLED_TRUE@code-coverage-clean:
-
-@CODE_COVERAGE_ENABLED_TRUE@code-coverage-dist-clean:
-@CODE_COVERAGE_ENABLED_TRUE@ endif # ifeq ($(abs_builddir), $(abs_top_builddir))
-# Use recursive makes in order to ignore errors during check
-@CODE_COVERAGE_ENABLED_FALSE@check-code-coverage:
-@CODE_COVERAGE_ENABLED_FALSE@ @echo "Need to reconfigure with --enable-code-coverage"
-# Capture code coverage data
-@CODE_COVERAGE_ENABLED_FALSE@code-coverage-capture: code-coverage-capture-hook
-@CODE_COVERAGE_ENABLED_FALSE@ @echo "Need to reconfigure with --enable-code-coverage"
-
-@CODE_COVERAGE_ENABLED_FALSE@code-coverage-clean:
-
-@CODE_COVERAGE_ENABLED_FALSE@code-coverage-dist-clean:
-
-# Hook rule executed before code-coverage-capture, overridable by the user
-code-coverage-capture-hook:
-
-.PHONY: check-code-coverage code-coverage-capture code-coverage-dist-clean code-coverage-clean code-coverage-capture-hook
-
-# add rules for code-coverage testing, as defined by AX_CODE_COVERAGE
-
-clean-local: code-coverage-clean
-dist-clean-local: code-coverage-dist-clean
-
-# all parts but tarstamp.h should not be necessary...
-dist-hook:
- rm -f $(top_distdir)/tarstamp.h
- $(MAKE) $(AM_MAKEFLAGS) $(top_distdir)/tarstamp.h
-# fix access to cater for bad version control use / copy / read-only file system
- find $(top_distdir) -type d -print | xargs chmod 755 # otherwise directories have 777
- find $(top_distdir) -type f -print | xargs chmod 644 # otherwise files are unchanged but with u+r
-# because of the global file change, adjust here again
- cd $(top_distdir) && chmod 755 $(FILES_TO_BE_EXECUTABLE)
-# fix timestamps to cater for bad version control use / copy
- touch $(top_distdir)/m4/*.m4
- touch $(top_distdir)/aclocal.m4
- touch $(top_distdir)/Makefile.in
- touch $(top_distdir)/*/Makefile.in
- touch $(top_distdir)/*/*/Makefile.in
- touch $(top_distdir)/configure
- touch $(top_distdir)/config.h.in
- touch $(top_distdir)/doc/stamp-vti
-distwindir: distdir $(top_srcdir)/build_windows $(top_srcdir)/build_aux/create_win_dist.sh
- EXTSRCDIR=$(abs_srcdir) EXTDISTDIR=$(distdir) EXTWINDISTDIR=$(distwindir) $(top_srcdir)/build_aux/create_win_dist.sh
-
-distwin-zip: distwindir
- rm -f "$(distwindir).zip"
- zip -rq "$(distwindir).zip" "$(distwindir)"
-distmingwdir: all $(top_srcdir)/build_aux/create_mingw_bindist.sh
- EXTSRCDIR=$(abs_srcdir) EXTDISTDIR=$(distmingwdir) EXTBUILDDIR=$(abs_builddir) $(top_srcdir)/build_aux/create_mingw_bindist.sh
-
-distwin: distwindir
-distmingw: distmingwdir
-distbindir: all distdir
- $(MAKE) $(AM_MAKEFLAGS) DESTDIR=$(abs_builddir)/$(distbindir) install
- install -d "$(distbindir)/${datarootdir}/licenses/$(PACKAGE)"
- install -p -m644 $(distdir)/COPYING* "$(distbindir)/${datarootdir}/licenses/$(PACKAGE)"
- install -d "$(distbindir)/${datarootdir}/doc/$(PACKAGE)"
- install -p -m644 $(distdir)/README* "$(distbindir)/${datarootdir}/doc/$(PACKAGE)"
- install -p -m644 $(distdir)/NEWS* "$(distbindir)/${datarootdir}/doc/$(PACKAGE)"
- install -p -m644 $(distdir)/ChangeLog "$(distbindir)/${datarootdir}/doc/$(PACKAGE)"
- install -p -m644 $(distdir)/bin/ChangeLog "$(distbindir)/${datarootdir}/doc/$(PACKAGE)/ChangeLog_bin"
- install -p -m644 $(distdir)/cobc/ChangeLog "$(distbindir)/${datarootdir}/doc/$(PACKAGE)/ChangeLog_cobc"
- install -p -m644 $(distdir)/libcob/ChangeLog "$(distbindir)/${datarootdir}/doc/$(PACKAGE)/ChangeLog_libcob"
- install -p -m644 $(distdir)/doc/gnucobol*.pdf "$(distbindir)/${datarootdir}/doc/$(PACKAGE)"
-distbin-gzip: distbindir
- tardir=$(distbindir) && $(am__tar) | eval GZIP= gzip $(GZIP_ENV) -c >$(distbindir).tar.gz
- $(gc__post_remove_bindistdir)
- $(am__post_remove_distdir)
-distbin-bzip2: distbindir
- tardir=$(distbindir) && $(am__tar) | BZIP2=$${BZIP2--9} bzip2 -c >$(distbindir).tar.bz2
- $(gc__post_remove_bindistdir)
- $(am__post_remove_distdir)
-distbin-lzip: distbindir
- tardir=$(distbindir) && $(am__tar) | lzip -c $${LZIP_OPT--9} >$(distbindir).tar.lz
- $(gc__post_remove_bindistdir)
- $(am__post_remove_distdir)
-distbin-xz: distbindir
- tardir=$(distbindir) && $(am__tar) | XZ_OPT=$${XZ_OPT--e} xz -c >$(distbindir).tar.xz
- $(gc__post_remove_bindistdir)
- $(am__post_remove_distdir)
-
-distbin:
- $(MAKE) $(AM_MAKEFLAGS) $(DISTBIN_TARGETS) gc__post_remove_bindistdir='@:' am__post_remove_distdir='@:'
- $(gc__post_remove_bindistdir)
- $(am__post_remove_distdir)
-
-$(tarstamps): NEWS configure.ac Makefile.am libcob/version.h
- @echo "Creating $@..."
- @($(DATE) --date=241225 -u 2>/dev/null 1>&2 && \
- LC_ALL=C stamp=$$( $(VCSDATE) || $(FILEDATE) || $(DATE) -u '+%F %T' ) && \
- LC_ALL=C $(DATE) --date="$$stamp" -u +$(TARSTAMP_CONTENT) > $@) \
- || LC_ALL=C $(DATE) -u +$(TARSTAMP_CONTENT) > $@
-
-# TODO: possibly disable / adjust depending on what
-# configure.ac founds (currently not checked there)
-vcs-update:
- svn update $(srcdir)
-
-# targets that are only logical targets and should always be executed
-.PHONY: test checkall checkmanual vcs-update distwin distmingw \
- distbin distbin-gzip distbin-bzip2 distbin-lzip distbin-xz
-
-test: all
- cd tests && $(MAKE) $(AM_MAKEFLAGS) test
-checkmanual: all
- cd tests && $(MAKE) $(AM_MAKEFLAGS) checkmanual
-
-checkall: check test
-
-# Tell versions [3.59,3.63) of GNU make to not export all variables.
-# Otherwise a system limit (for SysV at least) may be exceeded.
-.NOEXPORT:
diff --git a/aclocal.m4 b/aclocal.m4
deleted file mode 100644
index 99c3c7e..0000000
--- a/aclocal.m4
+++ /dev/null
@@ -1,1237 +0,0 @@
-# generated automatically by aclocal 1.16.3 -*- Autoconf -*-
-
-# Copyright (C) 1996-2020 Free Software Foundation, Inc.
-
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
-# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
-# PARTICULAR PURPOSE.
-
-m4_ifndef([AC_CONFIG_MACRO_DIRS], [m4_defun([_AM_CONFIG_MACRO_DIRS], [])m4_defun([AC_CONFIG_MACRO_DIRS], [_AM_CONFIG_MACRO_DIRS($@)])])
-m4_ifndef([AC_AUTOCONF_VERSION],
- [m4_copy([m4_PACKAGE_VERSION], [AC_AUTOCONF_VERSION])])dnl
-m4_if(m4_defn([AC_AUTOCONF_VERSION]), [2.69],,
-[m4_warning([this file was generated for autoconf 2.69.
-You have another version of autoconf. It may work, but is not guaranteed to.
-If you have problems, you may need to regenerate the build system entirely.
-To do so, use the procedure documented by the package, typically 'autoreconf'.])])
-
-# Copyright (C) 2002-2020 Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# AM_AUTOMAKE_VERSION(VERSION)
-# ----------------------------
-# Automake X.Y traces this macro to ensure aclocal.m4 has been
-# generated from the m4 files accompanying Automake X.Y.
-# (This private macro should not be called outside this file.)
-AC_DEFUN([AM_AUTOMAKE_VERSION],
-[am__api_version='1.16'
-dnl Some users find AM_AUTOMAKE_VERSION and mistake it for a way to
-dnl require some minimum version. Point them to the right macro.
-m4_if([$1], [1.16.3], [],
- [AC_FATAL([Do not call $0, use AM_INIT_AUTOMAKE([$1]).])])dnl
-])
-
-# _AM_AUTOCONF_VERSION(VERSION)
-# -----------------------------
-# aclocal traces this macro to find the Autoconf version.
-# This is a private macro too. Using m4_define simplifies
-# the logic in aclocal, which can simply ignore this definition.
-m4_define([_AM_AUTOCONF_VERSION], [])
-
-# AM_SET_CURRENT_AUTOMAKE_VERSION
-# -------------------------------
-# Call AM_AUTOMAKE_VERSION and AM_AUTOMAKE_VERSION so they can be traced.
-# This function is AC_REQUIREd by AM_INIT_AUTOMAKE.
-AC_DEFUN([AM_SET_CURRENT_AUTOMAKE_VERSION],
-[AM_AUTOMAKE_VERSION([1.16.3])dnl
-m4_ifndef([AC_AUTOCONF_VERSION],
- [m4_copy([m4_PACKAGE_VERSION], [AC_AUTOCONF_VERSION])])dnl
-_AM_AUTOCONF_VERSION(m4_defn([AC_AUTOCONF_VERSION]))])
-
-# Copyright (C) 2011-2020 Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# AM_PROG_AR([ACT-IF-FAIL])
-# -------------------------
-# Try to determine the archiver interface, and trigger the ar-lib wrapper
-# if it is needed. If the detection of archiver interface fails, run
-# ACT-IF-FAIL (default is to abort configure with a proper error message).
-AC_DEFUN([AM_PROG_AR],
-[AC_BEFORE([$0], [LT_INIT])dnl
-AC_BEFORE([$0], [AC_PROG_LIBTOOL])dnl
-AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl
-AC_REQUIRE_AUX_FILE([ar-lib])dnl
-AC_CHECK_TOOLS([AR], [ar lib "link -lib"], [false])
-: ${AR=ar}
-
-AC_CACHE_CHECK([the archiver ($AR) interface], [am_cv_ar_interface],
- [AC_LANG_PUSH([C])
- am_cv_ar_interface=ar
- AC_COMPILE_IFELSE([AC_LANG_SOURCE([[int some_variable = 0;]])],
- [am_ar_try='$AR cru libconftest.a conftest.$ac_objext >&AS_MESSAGE_LOG_FD'
- AC_TRY_EVAL([am_ar_try])
- if test "$ac_status" -eq 0; then
- am_cv_ar_interface=ar
- else
- am_ar_try='$AR -NOLOGO -OUT:conftest.lib conftest.$ac_objext >&AS_MESSAGE_LOG_FD'
- AC_TRY_EVAL([am_ar_try])
- if test "$ac_status" -eq 0; then
- am_cv_ar_interface=lib
- else
- am_cv_ar_interface=unknown
- fi
- fi
- rm -f conftest.lib libconftest.a
- ])
- AC_LANG_POP([C])])
-
-case $am_cv_ar_interface in
-ar)
- ;;
-lib)
- # Microsoft lib, so override with the ar-lib wrapper script.
- # FIXME: It is wrong to rewrite AR.
- # But if we don't then we get into trouble of one sort or another.
- # A longer-term fix would be to have automake use am__AR in this case,
- # and then we could set am__AR="$am_aux_dir/ar-lib \$(AR)" or something
- # similar.
- AR="$am_aux_dir/ar-lib $AR"
- ;;
-unknown)
- m4_default([$1],
- [AC_MSG_ERROR([could not determine $AR interface])])
- ;;
-esac
-AC_SUBST([AR])dnl
-])
-
-# AM_AUX_DIR_EXPAND -*- Autoconf -*-
-
-# Copyright (C) 2001-2020 Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# For projects using AC_CONFIG_AUX_DIR([foo]), Autoconf sets
-# $ac_aux_dir to '$srcdir/foo'. In other projects, it is set to
-# '$srcdir', '$srcdir/..', or '$srcdir/../..'.
-#
-# Of course, Automake must honor this variable whenever it calls a
-# tool from the auxiliary directory. The problem is that $srcdir (and
-# therefore $ac_aux_dir as well) can be either absolute or relative,
-# depending on how configure is run. This is pretty annoying, since
-# it makes $ac_aux_dir quite unusable in subdirectories: in the top
-# source directory, any form will work fine, but in subdirectories a
-# relative path needs to be adjusted first.
-#
-# $ac_aux_dir/missing
-# fails when called from a subdirectory if $ac_aux_dir is relative
-# $top_srcdir/$ac_aux_dir/missing
-# fails if $ac_aux_dir is absolute,
-# fails when called from a subdirectory in a VPATH build with
-# a relative $ac_aux_dir
-#
-# The reason of the latter failure is that $top_srcdir and $ac_aux_dir
-# are both prefixed by $srcdir. In an in-source build this is usually
-# harmless because $srcdir is '.', but things will broke when you
-# start a VPATH build or use an absolute $srcdir.
-#
-# So we could use something similar to $top_srcdir/$ac_aux_dir/missing,
-# iff we strip the leading $srcdir from $ac_aux_dir. That would be:
-# am_aux_dir='\$(top_srcdir)/'`expr "$ac_aux_dir" : "$srcdir//*\(.*\)"`
-# and then we would define $MISSING as
-# MISSING="\${SHELL} $am_aux_dir/missing"
-# This will work as long as MISSING is not called from configure, because
-# unfortunately $(top_srcdir) has no meaning in configure.
-# However there are other variables, like CC, which are often used in
-# configure, and could therefore not use this "fixed" $ac_aux_dir.
-#
-# Another solution, used here, is to always expand $ac_aux_dir to an
-# absolute PATH. The drawback is that using absolute paths prevent a
-# configured tree to be moved without reconfiguration.
-
-AC_DEFUN([AM_AUX_DIR_EXPAND],
-[AC_REQUIRE([AC_CONFIG_AUX_DIR_DEFAULT])dnl
-# Expand $ac_aux_dir to an absolute path.
-am_aux_dir=`cd "$ac_aux_dir" && pwd`
-])
-
-# AM_CONDITIONAL -*- Autoconf -*-
-
-# Copyright (C) 1997-2020 Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# AM_CONDITIONAL(NAME, SHELL-CONDITION)
-# -------------------------------------
-# Define a conditional.
-AC_DEFUN([AM_CONDITIONAL],
-[AC_PREREQ([2.52])dnl
- m4_if([$1], [TRUE], [AC_FATAL([$0: invalid condition: $1])],
- [$1], [FALSE], [AC_FATAL([$0: invalid condition: $1])])dnl
-AC_SUBST([$1_TRUE])dnl
-AC_SUBST([$1_FALSE])dnl
-_AM_SUBST_NOTMAKE([$1_TRUE])dnl
-_AM_SUBST_NOTMAKE([$1_FALSE])dnl
-m4_define([_AM_COND_VALUE_$1], [$2])dnl
-if $2; then
- $1_TRUE=
- $1_FALSE='#'
-else
- $1_TRUE='#'
- $1_FALSE=
-fi
-AC_CONFIG_COMMANDS_PRE(
-[if test -z "${$1_TRUE}" && test -z "${$1_FALSE}"; then
- AC_MSG_ERROR([[conditional "$1" was never defined.
-Usually this means the macro was only invoked conditionally.]])
-fi])])
-
-# Copyright (C) 1999-2020 Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-
-# There are a few dirty hacks below to avoid letting 'AC_PROG_CC' be
-# written in clear, in which case automake, when reading aclocal.m4,
-# will think it sees a *use*, and therefore will trigger all it's
-# C support machinery. Also note that it means that autoscan, seeing
-# CC etc. in the Makefile, will ask for an AC_PROG_CC use...
-
-
-# _AM_DEPENDENCIES(NAME)
-# ----------------------
-# See how the compiler implements dependency checking.
-# NAME is "CC", "CXX", "OBJC", "OBJCXX", "UPC", or "GJC".
-# We try a few techniques and use that to set a single cache variable.
-#
-# We don't AC_REQUIRE the corresponding AC_PROG_CC since the latter was
-# modified to invoke _AM_DEPENDENCIES(CC); we would have a circular
-# dependency, and given that the user is not expected to run this macro,
-# just rely on AC_PROG_CC.
-AC_DEFUN([_AM_DEPENDENCIES],
-[AC_REQUIRE([AM_SET_DEPDIR])dnl
-AC_REQUIRE([AM_OUTPUT_DEPENDENCY_COMMANDS])dnl
-AC_REQUIRE([AM_MAKE_INCLUDE])dnl
-AC_REQUIRE([AM_DEP_TRACK])dnl
-
-m4_if([$1], [CC], [depcc="$CC" am_compiler_list=],
- [$1], [CXX], [depcc="$CXX" am_compiler_list=],
- [$1], [OBJC], [depcc="$OBJC" am_compiler_list='gcc3 gcc'],
- [$1], [OBJCXX], [depcc="$OBJCXX" am_compiler_list='gcc3 gcc'],
- [$1], [UPC], [depcc="$UPC" am_compiler_list=],
- [$1], [GCJ], [depcc="$GCJ" am_compiler_list='gcc3 gcc'],
- [depcc="$$1" am_compiler_list=])
-
-AC_CACHE_CHECK([dependency style of $depcc],
- [am_cv_$1_dependencies_compiler_type],
-[if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then
- # We make a subdir and do the tests there. Otherwise we can end up
- # making bogus files that we don't know about and never remove. For
- # instance it was reported that on HP-UX the gcc test will end up
- # making a dummy file named 'D' -- because '-MD' means "put the output
- # in D".
- rm -rf conftest.dir
- mkdir conftest.dir
- # Copy depcomp to subdir because otherwise we won't find it if we're
- # using a relative directory.
- cp "$am_depcomp" conftest.dir
- cd conftest.dir
- # We will build objects and dependencies in a subdirectory because
- # it helps to detect inapplicable dependency modes. For instance
- # both Tru64's cc and ICC support -MD to output dependencies as a
- # side effect of compilation, but ICC will put the dependencies in
- # the current directory while Tru64 will put them in the object
- # directory.
- mkdir sub
-
- am_cv_$1_dependencies_compiler_type=none
- if test "$am_compiler_list" = ""; then
- am_compiler_list=`sed -n ['s/^#*\([a-zA-Z0-9]*\))$/\1/p'] < ./depcomp`
- fi
- am__universal=false
- m4_case([$1], [CC],
- [case " $depcc " in #(
- *\ -arch\ *\ -arch\ *) am__universal=true ;;
- esac],
- [CXX],
- [case " $depcc " in #(
- *\ -arch\ *\ -arch\ *) am__universal=true ;;
- esac])
-
- for depmode in $am_compiler_list; do
- # Setup a source with many dependencies, because some compilers
- # like to wrap large dependency lists on column 80 (with \), and
- # we should not choose a depcomp mode which is confused by this.
- #
- # We need to recreate these files for each test, as the compiler may
- # overwrite some of them when testing with obscure command lines.
- # This happens at least with the AIX C compiler.
- : > sub/conftest.c
- for i in 1 2 3 4 5 6; do
- echo '#include "conftst'$i'.h"' >> sub/conftest.c
- # Using ": > sub/conftst$i.h" creates only sub/conftst1.h with
- # Solaris 10 /bin/sh.
- echo '/* dummy */' > sub/conftst$i.h
- done
- echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf
-
- # We check with '-c' and '-o' for the sake of the "dashmstdout"
- # mode. It turns out that the SunPro C++ compiler does not properly
- # handle '-M -o', and we need to detect this. Also, some Intel
- # versions had trouble with output in subdirs.
- am__obj=sub/conftest.${OBJEXT-o}
- am__minus_obj="-o $am__obj"
- case $depmode in
- gcc)
- # This depmode causes a compiler race in universal mode.
- test "$am__universal" = false || continue
- ;;
- nosideeffect)
- # After this tag, mechanisms are not by side-effect, so they'll
- # only be used when explicitly requested.
- if test "x$enable_dependency_tracking" = xyes; then
- continue
- else
- break
- fi
- ;;
- msvc7 | msvc7msys | msvisualcpp | msvcmsys)
- # This compiler won't grok '-c -o', but also, the minuso test has
- # not run yet. These depmodes are late enough in the game, and
- # so weak that their functioning should not be impacted.
- am__obj=conftest.${OBJEXT-o}
- am__minus_obj=
- ;;
- none) break ;;
- esac
- if depmode=$depmode \
- source=sub/conftest.c object=$am__obj \
- depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \
- $SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \
- >/dev/null 2>conftest.err &&
- grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 &&
- grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 &&
- grep $am__obj sub/conftest.Po > /dev/null 2>&1 &&
- ${MAKE-make} -s -f confmf > /dev/null 2>&1; then
- # icc doesn't choke on unknown options, it will just issue warnings
- # or remarks (even with -Werror). So we grep stderr for any message
- # that says an option was ignored or not supported.
- # When given -MP, icc 7.0 and 7.1 complain thusly:
- # icc: Command line warning: ignoring option '-M'; no argument required
- # The diagnosis changed in icc 8.0:
- # icc: Command line remark: option '-MP' not supported
- if (grep 'ignoring option' conftest.err ||
- grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else
- am_cv_$1_dependencies_compiler_type=$depmode
- break
- fi
- fi
- done
-
- cd ..
- rm -rf conftest.dir
-else
- am_cv_$1_dependencies_compiler_type=none
-fi
-])
-AC_SUBST([$1DEPMODE], [depmode=$am_cv_$1_dependencies_compiler_type])
-AM_CONDITIONAL([am__fastdep$1], [
- test "x$enable_dependency_tracking" != xno \
- && test "$am_cv_$1_dependencies_compiler_type" = gcc3])
-])
-
-
-# AM_SET_DEPDIR
-# -------------
-# Choose a directory name for dependency files.
-# This macro is AC_REQUIREd in _AM_DEPENDENCIES.
-AC_DEFUN([AM_SET_DEPDIR],
-[AC_REQUIRE([AM_SET_LEADING_DOT])dnl
-AC_SUBST([DEPDIR], ["${am__leading_dot}deps"])dnl
-])
-
-
-# AM_DEP_TRACK
-# ------------
-AC_DEFUN([AM_DEP_TRACK],
-[AC_ARG_ENABLE([dependency-tracking], [dnl
-AS_HELP_STRING(
- [--enable-dependency-tracking],
- [do not reject slow dependency extractors])
-AS_HELP_STRING(
- [--disable-dependency-tracking],
- [speeds up one-time build])])
-if test "x$enable_dependency_tracking" != xno; then
- am_depcomp="$ac_aux_dir/depcomp"
- AMDEPBACKSLASH='\'
- am__nodep='_no'
-fi
-AM_CONDITIONAL([AMDEP], [test "x$enable_dependency_tracking" != xno])
-AC_SUBST([AMDEPBACKSLASH])dnl
-_AM_SUBST_NOTMAKE([AMDEPBACKSLASH])dnl
-AC_SUBST([am__nodep])dnl
-_AM_SUBST_NOTMAKE([am__nodep])dnl
-])
-
-# Generate code to set up dependency tracking. -*- Autoconf -*-
-
-# Copyright (C) 1999-2020 Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# _AM_OUTPUT_DEPENDENCY_COMMANDS
-# ------------------------------
-AC_DEFUN([_AM_OUTPUT_DEPENDENCY_COMMANDS],
-[{
- # Older Autoconf quotes --file arguments for eval, but not when files
- # are listed without --file. Let's play safe and only enable the eval
- # if we detect the quoting.
- # TODO: see whether this extra hack can be removed once we start
- # requiring Autoconf 2.70 or later.
- AS_CASE([$CONFIG_FILES],
- [*\'*], [eval set x "$CONFIG_FILES"],
- [*], [set x $CONFIG_FILES])
- shift
- # Used to flag and report bootstrapping failures.
- am_rc=0
- for am_mf
- do
- # Strip MF so we end up with the name of the file.
- am_mf=`AS_ECHO(["$am_mf"]) | sed -e 's/:.*$//'`
- # Check whether this is an Automake generated Makefile which includes
- # dependency-tracking related rules and includes.
- # Grep'ing the whole file directly is not great: AIX grep has a line
- # limit of 2048, but all sed's we know have understand at least 4000.
- sed -n 's,^am--depfiles:.*,X,p' "$am_mf" | grep X >/dev/null 2>&1 \
- || continue
- am_dirpart=`AS_DIRNAME(["$am_mf"])`
- am_filepart=`AS_BASENAME(["$am_mf"])`
- AM_RUN_LOG([cd "$am_dirpart" \
- && sed -e '/# am--include-marker/d' "$am_filepart" \
- | $MAKE -f - am--depfiles]) || am_rc=$?
- done
- if test $am_rc -ne 0; then
- AC_MSG_FAILURE([Something went wrong bootstrapping makefile fragments
- for automatic dependency tracking. If GNU make was not used, consider
- re-running the configure script with MAKE="gmake" (or whatever is
- necessary). You can also try re-running configure with the
- '--disable-dependency-tracking' option to at least be able to build
- the package (albeit without support for automatic dependency tracking).])
- fi
- AS_UNSET([am_dirpart])
- AS_UNSET([am_filepart])
- AS_UNSET([am_mf])
- AS_UNSET([am_rc])
- rm -f conftest-deps.mk
-}
-])# _AM_OUTPUT_DEPENDENCY_COMMANDS
-
-
-# AM_OUTPUT_DEPENDENCY_COMMANDS
-# -----------------------------
-# This macro should only be invoked once -- use via AC_REQUIRE.
-#
-# This code is only required when automatic dependency tracking is enabled.
-# This creates each '.Po' and '.Plo' makefile fragment that we'll need in
-# order to bootstrap the dependency handling code.
-AC_DEFUN([AM_OUTPUT_DEPENDENCY_COMMANDS],
-[AC_CONFIG_COMMANDS([depfiles],
- [test x"$AMDEP_TRUE" != x"" || _AM_OUTPUT_DEPENDENCY_COMMANDS],
- [AMDEP_TRUE="$AMDEP_TRUE" MAKE="${MAKE-make}"])])
-
-# Do all the work for Automake. -*- Autoconf -*-
-
-# Copyright (C) 1996-2020 Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# This macro actually does too much. Some checks are only needed if
-# your package does certain things. But this isn't really a big deal.
-
-dnl Redefine AC_PROG_CC to automatically invoke _AM_PROG_CC_C_O.
-m4_define([AC_PROG_CC],
-m4_defn([AC_PROG_CC])
-[_AM_PROG_CC_C_O
-])
-
-# AM_INIT_AUTOMAKE(PACKAGE, VERSION, [NO-DEFINE])
-# AM_INIT_AUTOMAKE([OPTIONS])
-# -----------------------------------------------
-# The call with PACKAGE and VERSION arguments is the old style
-# call (pre autoconf-2.50), which is being phased out. PACKAGE
-# and VERSION should now be passed to AC_INIT and removed from
-# the call to AM_INIT_AUTOMAKE.
-# We support both call styles for the transition. After
-# the next Automake release, Autoconf can make the AC_INIT
-# arguments mandatory, and then we can depend on a new Autoconf
-# release and drop the old call support.
-AC_DEFUN([AM_INIT_AUTOMAKE],
-[AC_PREREQ([2.65])dnl
-dnl Autoconf wants to disallow AM_ names. We explicitly allow
-dnl the ones we care about.
-m4_pattern_allow([^AM_[A-Z]+FLAGS$])dnl
-AC_REQUIRE([AM_SET_CURRENT_AUTOMAKE_VERSION])dnl
-AC_REQUIRE([AC_PROG_INSTALL])dnl
-if test "`cd $srcdir && pwd`" != "`pwd`"; then
- # Use -I$(srcdir) only when $(srcdir) != ., so that make's output
- # is not polluted with repeated "-I."
- AC_SUBST([am__isrc], [' -I$(srcdir)'])_AM_SUBST_NOTMAKE([am__isrc])dnl
- # test to see if srcdir already configured
- if test -f $srcdir/config.status; then
- AC_MSG_ERROR([source directory already configured; run "make distclean" there first])
- fi
-fi
-
-# test whether we have cygpath
-if test -z "$CYGPATH_W"; then
- if (cygpath --version) >/dev/null 2>/dev/null; then
- CYGPATH_W='cygpath -w'
- else
- CYGPATH_W=echo
- fi
-fi
-AC_SUBST([CYGPATH_W])
-
-# Define the identity of the package.
-dnl Distinguish between old-style and new-style calls.
-m4_ifval([$2],
-[AC_DIAGNOSE([obsolete],
- [$0: two- and three-arguments forms are deprecated.])
-m4_ifval([$3], [_AM_SET_OPTION([no-define])])dnl
- AC_SUBST([PACKAGE], [$1])dnl
- AC_SUBST([VERSION], [$2])],
-[_AM_SET_OPTIONS([$1])dnl
-dnl Diagnose old-style AC_INIT with new-style AM_AUTOMAKE_INIT.
-m4_if(
- m4_ifdef([AC_PACKAGE_NAME], [ok]):m4_ifdef([AC_PACKAGE_VERSION], [ok]),
- [ok:ok],,
- [m4_fatal([AC_INIT should be called with package and version arguments])])dnl
- AC_SUBST([PACKAGE], ['AC_PACKAGE_TARNAME'])dnl
- AC_SUBST([VERSION], ['AC_PACKAGE_VERSION'])])dnl
-
-_AM_IF_OPTION([no-define],,
-[AC_DEFINE_UNQUOTED([PACKAGE], ["$PACKAGE"], [Name of package])
- AC_DEFINE_UNQUOTED([VERSION], ["$VERSION"], [Version number of package])])dnl
-
-# Some tools Automake needs.
-AC_REQUIRE([AM_SANITY_CHECK])dnl
-AC_REQUIRE([AC_ARG_PROGRAM])dnl
-AM_MISSING_PROG([ACLOCAL], [aclocal-${am__api_version}])
-AM_MISSING_PROG([AUTOCONF], [autoconf])
-AM_MISSING_PROG([AUTOMAKE], [automake-${am__api_version}])
-AM_MISSING_PROG([AUTOHEADER], [autoheader])
-AM_MISSING_PROG([MAKEINFO], [makeinfo])
-AC_REQUIRE([AM_PROG_INSTALL_SH])dnl
-AC_REQUIRE([AM_PROG_INSTALL_STRIP])dnl
-AC_REQUIRE([AC_PROG_MKDIR_P])dnl
-# For better backward compatibility. To be removed once Automake 1.9.x
-# dies out for good. For more background, see:
-#
-#
-AC_SUBST([mkdir_p], ['$(MKDIR_P)'])
-# We need awk for the "check" target (and possibly the TAP driver). The
-# system "awk" is bad on some platforms.
-AC_REQUIRE([AC_PROG_AWK])dnl
-AC_REQUIRE([AC_PROG_MAKE_SET])dnl
-AC_REQUIRE([AM_SET_LEADING_DOT])dnl
-_AM_IF_OPTION([tar-ustar], [_AM_PROG_TAR([ustar])],
- [_AM_IF_OPTION([tar-pax], [_AM_PROG_TAR([pax])],
- [_AM_PROG_TAR([v7])])])
-_AM_IF_OPTION([no-dependencies],,
-[AC_PROVIDE_IFELSE([AC_PROG_CC],
- [_AM_DEPENDENCIES([CC])],
- [m4_define([AC_PROG_CC],
- m4_defn([AC_PROG_CC])[_AM_DEPENDENCIES([CC])])])dnl
-AC_PROVIDE_IFELSE([AC_PROG_CXX],
- [_AM_DEPENDENCIES([CXX])],
- [m4_define([AC_PROG_CXX],
- m4_defn([AC_PROG_CXX])[_AM_DEPENDENCIES([CXX])])])dnl
-AC_PROVIDE_IFELSE([AC_PROG_OBJC],
- [_AM_DEPENDENCIES([OBJC])],
- [m4_define([AC_PROG_OBJC],
- m4_defn([AC_PROG_OBJC])[_AM_DEPENDENCIES([OBJC])])])dnl
-AC_PROVIDE_IFELSE([AC_PROG_OBJCXX],
- [_AM_DEPENDENCIES([OBJCXX])],
- [m4_define([AC_PROG_OBJCXX],
- m4_defn([AC_PROG_OBJCXX])[_AM_DEPENDENCIES([OBJCXX])])])dnl
-])
-AC_REQUIRE([AM_SILENT_RULES])dnl
-dnl The testsuite driver may need to know about EXEEXT, so add the
-dnl 'am__EXEEXT' conditional if _AM_COMPILER_EXEEXT was seen. This
-dnl macro is hooked onto _AC_COMPILER_EXEEXT early, see below.
-AC_CONFIG_COMMANDS_PRE(dnl
-[m4_provide_if([_AM_COMPILER_EXEEXT],
- [AM_CONDITIONAL([am__EXEEXT], [test -n "$EXEEXT"])])])dnl
-
-# POSIX will say in a future version that running "rm -f" with no argument
-# is OK; and we want to be able to make that assumption in our Makefile
-# recipes. So use an aggressive probe to check that the usage we want is
-# actually supported "in the wild" to an acceptable degree.
-# See automake bug#10828.
-# To make any issue more visible, cause the running configure to be aborted
-# by default if the 'rm' program in use doesn't match our expectations; the
-# user can still override this though.
-if rm -f && rm -fr && rm -rf; then : OK; else
- cat >&2 <<'END'
-Oops!
-
-Your 'rm' program seems unable to run without file operands specified
-on the command line, even when the '-f' option is present. This is contrary
-to the behaviour of most rm programs out there, and not conforming with
-the upcoming POSIX standard:
-
-Please tell bug-automake@gnu.org about your system, including the value
-of your $PATH and any error possibly output before this message. This
-can help us improve future automake versions.
-
-END
- if test x"$ACCEPT_INFERIOR_RM_PROGRAM" = x"yes"; then
- echo 'Configuration will proceed anyway, since you have set the' >&2
- echo 'ACCEPT_INFERIOR_RM_PROGRAM variable to "yes"' >&2
- echo >&2
- else
- cat >&2 <<'END'
-Aborting the configuration process, to ensure you take notice of the issue.
-
-You can download and install GNU coreutils to get an 'rm' implementation
-that behaves properly: .
-
-If you want to complete the configuration process using your problematic
-'rm' anyway, export the environment variable ACCEPT_INFERIOR_RM_PROGRAM
-to "yes", and re-run configure.
-
-END
- AC_MSG_ERROR([Your 'rm' program is bad, sorry.])
- fi
-fi
-dnl The trailing newline in this macro's definition is deliberate, for
-dnl backward compatibility and to allow trailing 'dnl'-style comments
-dnl after the AM_INIT_AUTOMAKE invocation. See automake bug#16841.
-])
-
-dnl Hook into '_AC_COMPILER_EXEEXT' early to learn its expansion. Do not
-dnl add the conditional right here, as _AC_COMPILER_EXEEXT may be further
-dnl mangled by Autoconf and run in a shell conditional statement.
-m4_define([_AC_COMPILER_EXEEXT],
-m4_defn([_AC_COMPILER_EXEEXT])[m4_provide([_AM_COMPILER_EXEEXT])])
-
-# When config.status generates a header, we must update the stamp-h file.
-# This file resides in the same directory as the config header
-# that is generated. The stamp files are numbered to have different names.
-
-# Autoconf calls _AC_AM_CONFIG_HEADER_HOOK (when defined) in the
-# loop where config.status creates the headers, so we can generate
-# our stamp files there.
-AC_DEFUN([_AC_AM_CONFIG_HEADER_HOOK],
-[# Compute $1's index in $config_headers.
-_am_arg=$1
-_am_stamp_count=1
-for _am_header in $config_headers :; do
- case $_am_header in
- $_am_arg | $_am_arg:* )
- break ;;
- * )
- _am_stamp_count=`expr $_am_stamp_count + 1` ;;
- esac
-done
-echo "timestamp for $_am_arg" >`AS_DIRNAME(["$_am_arg"])`/stamp-h[]$_am_stamp_count])
-
-# Copyright (C) 2001-2020 Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# AM_PROG_INSTALL_SH
-# ------------------
-# Define $install_sh.
-AC_DEFUN([AM_PROG_INSTALL_SH],
-[AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl
-if test x"${install_sh+set}" != xset; then
- case $am_aux_dir in
- *\ * | *\ *)
- install_sh="\${SHELL} '$am_aux_dir/install-sh'" ;;
- *)
- install_sh="\${SHELL} $am_aux_dir/install-sh"
- esac
-fi
-AC_SUBST([install_sh])])
-
-# Copyright (C) 2003-2020 Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# Check whether the underlying file-system supports filenames
-# with a leading dot. For instance MS-DOS doesn't.
-AC_DEFUN([AM_SET_LEADING_DOT],
-[rm -rf .tst 2>/dev/null
-mkdir .tst 2>/dev/null
-if test -d .tst; then
- am__leading_dot=.
-else
- am__leading_dot=_
-fi
-rmdir .tst 2>/dev/null
-AC_SUBST([am__leading_dot])])
-
-# Copyright (C) 1998-2020 Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# AM_PROG_LEX
-# -----------
-# Autoconf leaves LEX=: if lex or flex can't be found. Change that to a
-# "missing" invocation, for better error output.
-AC_DEFUN([AM_PROG_LEX],
-[AC_PREREQ([2.50])dnl
-AC_REQUIRE([AM_MISSING_HAS_RUN])dnl
-AC_REQUIRE([AC_PROG_LEX])dnl
-if test "$LEX" = :; then
- LEX=${am_missing_run}flex
-fi])
-
-# Check to see how 'make' treats includes. -*- Autoconf -*-
-
-# Copyright (C) 2001-2020 Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# AM_MAKE_INCLUDE()
-# -----------------
-# Check whether make has an 'include' directive that can support all
-# the idioms we need for our automatic dependency tracking code.
-AC_DEFUN([AM_MAKE_INCLUDE],
-[AC_MSG_CHECKING([whether ${MAKE-make} supports the include directive])
-cat > confinc.mk << 'END'
-am__doit:
- @echo this is the am__doit target >confinc.out
-.PHONY: am__doit
-END
-am__include="#"
-am__quote=
-# BSD make does it like this.
-echo '.include "confinc.mk" # ignored' > confmf.BSD
-# Other make implementations (GNU, Solaris 10, AIX) do it like this.
-echo 'include confinc.mk # ignored' > confmf.GNU
-_am_result=no
-for s in GNU BSD; do
- AM_RUN_LOG([${MAKE-make} -f confmf.$s && cat confinc.out])
- AS_CASE([$?:`cat confinc.out 2>/dev/null`],
- ['0:this is the am__doit target'],
- [AS_CASE([$s],
- [BSD], [am__include='.include' am__quote='"'],
- [am__include='include' am__quote=''])])
- if test "$am__include" != "#"; then
- _am_result="yes ($s style)"
- break
- fi
-done
-rm -f confinc.* confmf.*
-AC_MSG_RESULT([${_am_result}])
-AC_SUBST([am__include])])
-AC_SUBST([am__quote])])
-
-# Fake the existence of programs that GNU maintainers use. -*- Autoconf -*-
-
-# Copyright (C) 1997-2020 Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# AM_MISSING_PROG(NAME, PROGRAM)
-# ------------------------------
-AC_DEFUN([AM_MISSING_PROG],
-[AC_REQUIRE([AM_MISSING_HAS_RUN])
-$1=${$1-"${am_missing_run}$2"}
-AC_SUBST($1)])
-
-# AM_MISSING_HAS_RUN
-# ------------------
-# Define MISSING if not defined so far and test if it is modern enough.
-# If it is, set am_missing_run to use it, otherwise, to nothing.
-AC_DEFUN([AM_MISSING_HAS_RUN],
-[AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl
-AC_REQUIRE_AUX_FILE([missing])dnl
-if test x"${MISSING+set}" != xset; then
- MISSING="\${SHELL} '$am_aux_dir/missing'"
-fi
-# Use eval to expand $SHELL
-if eval "$MISSING --is-lightweight"; then
- am_missing_run="$MISSING "
-else
- am_missing_run=
- AC_MSG_WARN(['missing' script is too old or missing])
-fi
-])
-
-# Helper functions for option handling. -*- Autoconf -*-
-
-# Copyright (C) 2001-2020 Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# _AM_MANGLE_OPTION(NAME)
-# -----------------------
-AC_DEFUN([_AM_MANGLE_OPTION],
-[[_AM_OPTION_]m4_bpatsubst($1, [[^a-zA-Z0-9_]], [_])])
-
-# _AM_SET_OPTION(NAME)
-# --------------------
-# Set option NAME. Presently that only means defining a flag for this option.
-AC_DEFUN([_AM_SET_OPTION],
-[m4_define(_AM_MANGLE_OPTION([$1]), [1])])
-
-# _AM_SET_OPTIONS(OPTIONS)
-# ------------------------
-# OPTIONS is a space-separated list of Automake options.
-AC_DEFUN([_AM_SET_OPTIONS],
-[m4_foreach_w([_AM_Option], [$1], [_AM_SET_OPTION(_AM_Option)])])
-
-# _AM_IF_OPTION(OPTION, IF-SET, [IF-NOT-SET])
-# -------------------------------------------
-# Execute IF-SET if OPTION is set, IF-NOT-SET otherwise.
-AC_DEFUN([_AM_IF_OPTION],
-[m4_ifset(_AM_MANGLE_OPTION([$1]), [$2], [$3])])
-
-# Copyright (C) 1999-2020 Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# _AM_PROG_CC_C_O
-# ---------------
-# Like AC_PROG_CC_C_O, but changed for automake. We rewrite AC_PROG_CC
-# to automatically call this.
-AC_DEFUN([_AM_PROG_CC_C_O],
-[AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl
-AC_REQUIRE_AUX_FILE([compile])dnl
-AC_LANG_PUSH([C])dnl
-AC_CACHE_CHECK(
- [whether $CC understands -c and -o together],
- [am_cv_prog_cc_c_o],
- [AC_LANG_CONFTEST([AC_LANG_PROGRAM([])])
- # Make sure it works both with $CC and with simple cc.
- # Following AC_PROG_CC_C_O, we do the test twice because some
- # compilers refuse to overwrite an existing .o file with -o,
- # though they will create one.
- am_cv_prog_cc_c_o=yes
- for am_i in 1 2; do
- if AM_RUN_LOG([$CC -c conftest.$ac_ext -o conftest2.$ac_objext]) \
- && test -f conftest2.$ac_objext; then
- : OK
- else
- am_cv_prog_cc_c_o=no
- break
- fi
- done
- rm -f core conftest*
- unset am_i])
-if test "$am_cv_prog_cc_c_o" != yes; then
- # Losing compiler, so override with the script.
- # FIXME: It is wrong to rewrite CC.
- # But if we don't then we get into trouble of one sort or another.
- # A longer-term fix would be to have automake use am__CC in this case,
- # and then we could set am__CC="\$(top_srcdir)/compile \$(CC)"
- CC="$am_aux_dir/compile $CC"
-fi
-AC_LANG_POP([C])])
-
-# For backward compatibility.
-AC_DEFUN_ONCE([AM_PROG_CC_C_O], [AC_REQUIRE([AC_PROG_CC])])
-
-# Copyright (C) 2001-2020 Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# AM_RUN_LOG(COMMAND)
-# -------------------
-# Run COMMAND, save the exit status in ac_status, and log it.
-# (This has been adapted from Autoconf's _AC_RUN_LOG macro.)
-AC_DEFUN([AM_RUN_LOG],
-[{ echo "$as_me:$LINENO: $1" >&AS_MESSAGE_LOG_FD
- ($1) >&AS_MESSAGE_LOG_FD 2>&AS_MESSAGE_LOG_FD
- ac_status=$?
- echo "$as_me:$LINENO: \$? = $ac_status" >&AS_MESSAGE_LOG_FD
- (exit $ac_status); }])
-
-# Check to make sure that the build environment is sane. -*- Autoconf -*-
-
-# Copyright (C) 1996-2020 Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# AM_SANITY_CHECK
-# ---------------
-AC_DEFUN([AM_SANITY_CHECK],
-[AC_MSG_CHECKING([whether build environment is sane])
-# Reject unsafe characters in $srcdir or the absolute working directory
-# name. Accept space and tab only in the latter.
-am_lf='
-'
-case `pwd` in
- *[[\\\"\#\$\&\'\`$am_lf]]*)
- AC_MSG_ERROR([unsafe absolute working directory name]);;
-esac
-case $srcdir in
- *[[\\\"\#\$\&\'\`$am_lf\ \ ]]*)
- AC_MSG_ERROR([unsafe srcdir value: '$srcdir']);;
-esac
-
-# Do 'set' in a subshell so we don't clobber the current shell's
-# arguments. Must try -L first in case configure is actually a
-# symlink; some systems play weird games with the mod time of symlinks
-# (eg FreeBSD returns the mod time of the symlink's containing
-# directory).
-if (
- am_has_slept=no
- for am_try in 1 2; do
- echo "timestamp, slept: $am_has_slept" > conftest.file
- set X `ls -Lt "$srcdir/configure" conftest.file 2> /dev/null`
- if test "$[*]" = "X"; then
- # -L didn't work.
- set X `ls -t "$srcdir/configure" conftest.file`
- fi
- if test "$[*]" != "X $srcdir/configure conftest.file" \
- && test "$[*]" != "X conftest.file $srcdir/configure"; then
-
- # If neither matched, then we have a broken ls. This can happen
- # if, for instance, CONFIG_SHELL is bash and it inherits a
- # broken ls alias from the environment. This has actually
- # happened. Such a system could not be considered "sane".
- AC_MSG_ERROR([ls -t appears to fail. Make sure there is not a broken
- alias in your environment])
- fi
- if test "$[2]" = conftest.file || test $am_try -eq 2; then
- break
- fi
- # Just in case.
- sleep 1
- am_has_slept=yes
- done
- test "$[2]" = conftest.file
- )
-then
- # Ok.
- :
-else
- AC_MSG_ERROR([newly created file is older than distributed files!
-Check your system clock])
-fi
-AC_MSG_RESULT([yes])
-# If we didn't sleep, we still need to ensure time stamps of config.status and
-# generated files are strictly newer.
-am_sleep_pid=
-if grep 'slept: no' conftest.file >/dev/null 2>&1; then
- ( sleep 1 ) &
- am_sleep_pid=$!
-fi
-AC_CONFIG_COMMANDS_PRE(
- [AC_MSG_CHECKING([that generated files are newer than configure])
- if test -n "$am_sleep_pid"; then
- # Hide warnings about reused PIDs.
- wait $am_sleep_pid 2>/dev/null
- fi
- AC_MSG_RESULT([done])])
-rm -f conftest.file
-])
-
-# Copyright (C) 2009-2020 Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# AM_SILENT_RULES([DEFAULT])
-# --------------------------
-# Enable less verbose build rules; with the default set to DEFAULT
-# ("yes" being less verbose, "no" or empty being verbose).
-AC_DEFUN([AM_SILENT_RULES],
-[AC_ARG_ENABLE([silent-rules], [dnl
-AS_HELP_STRING(
- [--enable-silent-rules],
- [less verbose build output (undo: "make V=1")])
-AS_HELP_STRING(
- [--disable-silent-rules],
- [verbose build output (undo: "make V=0")])dnl
-])
-case $enable_silent_rules in @%:@ (((
- yes) AM_DEFAULT_VERBOSITY=0;;
- no) AM_DEFAULT_VERBOSITY=1;;
- *) AM_DEFAULT_VERBOSITY=m4_if([$1], [yes], [0], [1]);;
-esac
-dnl
-dnl A few 'make' implementations (e.g., NonStop OS and NextStep)
-dnl do not support nested variable expansions.
-dnl See automake bug#9928 and bug#10237.
-am_make=${MAKE-make}
-AC_CACHE_CHECK([whether $am_make supports nested variables],
- [am_cv_make_support_nested_variables],
- [if AS_ECHO([['TRUE=$(BAR$(V))
-BAR0=false
-BAR1=true
-V=1
-am__doit:
- @$(TRUE)
-.PHONY: am__doit']]) | $am_make -f - >/dev/null 2>&1; then
- am_cv_make_support_nested_variables=yes
-else
- am_cv_make_support_nested_variables=no
-fi])
-if test $am_cv_make_support_nested_variables = yes; then
- dnl Using '$V' instead of '$(V)' breaks IRIX make.
- AM_V='$(V)'
- AM_DEFAULT_V='$(AM_DEFAULT_VERBOSITY)'
-else
- AM_V=$AM_DEFAULT_VERBOSITY
- AM_DEFAULT_V=$AM_DEFAULT_VERBOSITY
-fi
-AC_SUBST([AM_V])dnl
-AM_SUBST_NOTMAKE([AM_V])dnl
-AC_SUBST([AM_DEFAULT_V])dnl
-AM_SUBST_NOTMAKE([AM_DEFAULT_V])dnl
-AC_SUBST([AM_DEFAULT_VERBOSITY])dnl
-AM_BACKSLASH='\'
-AC_SUBST([AM_BACKSLASH])dnl
-_AM_SUBST_NOTMAKE([AM_BACKSLASH])dnl
-])
-
-# Copyright (C) 2001-2020 Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# AM_PROG_INSTALL_STRIP
-# ---------------------
-# One issue with vendor 'install' (even GNU) is that you can't
-# specify the program used to strip binaries. This is especially
-# annoying in cross-compiling environments, where the build's strip
-# is unlikely to handle the host's binaries.
-# Fortunately install-sh will honor a STRIPPROG variable, so we
-# always use install-sh in "make install-strip", and initialize
-# STRIPPROG with the value of the STRIP variable (set by the user).
-AC_DEFUN([AM_PROG_INSTALL_STRIP],
-[AC_REQUIRE([AM_PROG_INSTALL_SH])dnl
-# Installed binaries are usually stripped using 'strip' when the user
-# run "make install-strip". However 'strip' might not be the right
-# tool to use in cross-compilation environments, therefore Automake
-# will honor the 'STRIP' environment variable to overrule this program.
-dnl Don't test for $cross_compiling = yes, because it might be 'maybe'.
-if test "$cross_compiling" != no; then
- AC_CHECK_TOOL([STRIP], [strip], :)
-fi
-INSTALL_STRIP_PROGRAM="\$(install_sh) -c -s"
-AC_SUBST([INSTALL_STRIP_PROGRAM])])
-
-# Copyright (C) 2006-2020 Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# _AM_SUBST_NOTMAKE(VARIABLE)
-# ---------------------------
-# Prevent Automake from outputting VARIABLE = @VARIABLE@ in Makefile.in.
-# This macro is traced by Automake.
-AC_DEFUN([_AM_SUBST_NOTMAKE])
-
-# AM_SUBST_NOTMAKE(VARIABLE)
-# --------------------------
-# Public sister of _AM_SUBST_NOTMAKE.
-AC_DEFUN([AM_SUBST_NOTMAKE], [_AM_SUBST_NOTMAKE($@)])
-
-# Check how to create a tarball. -*- Autoconf -*-
-
-# Copyright (C) 2004-2020 Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# _AM_PROG_TAR(FORMAT)
-# --------------------
-# Check how to create a tarball in format FORMAT.
-# FORMAT should be one of 'v7', 'ustar', or 'pax'.
-#
-# Substitute a variable $(am__tar) that is a command
-# writing to stdout a FORMAT-tarball containing the directory
-# $tardir.
-# tardir=directory && $(am__tar) > result.tar
-#
-# Substitute a variable $(am__untar) that extract such
-# a tarball read from stdin.
-# $(am__untar) < result.tar
-#
-AC_DEFUN([_AM_PROG_TAR],
-[# Always define AMTAR for backward compatibility. Yes, it's still used
-# in the wild :-( We should find a proper way to deprecate it ...
-AC_SUBST([AMTAR], ['$${TAR-tar}'])
-
-# We'll loop over all known methods to create a tar archive until one works.
-_am_tools='gnutar m4_if([$1], [ustar], [plaintar]) pax cpio none'
-
-m4_if([$1], [v7],
- [am__tar='$${TAR-tar} chof - "$$tardir"' am__untar='$${TAR-tar} xf -'],
-
- [m4_case([$1],
- [ustar],
- [# The POSIX 1988 'ustar' format is defined with fixed-size fields.
- # There is notably a 21 bits limit for the UID and the GID. In fact,
- # the 'pax' utility can hang on bigger UID/GID (see automake bug#8343
- # and bug#13588).
- am_max_uid=2097151 # 2^21 - 1
- am_max_gid=$am_max_uid
- # The $UID and $GID variables are not portable, so we need to resort
- # to the POSIX-mandated id(1) utility. Errors in the 'id' calls
- # below are definitely unexpected, so allow the users to see them
- # (that is, avoid stderr redirection).
- am_uid=`id -u || echo unknown`
- am_gid=`id -g || echo unknown`
- AC_MSG_CHECKING([whether UID '$am_uid' is supported by ustar format])
- if test $am_uid -le $am_max_uid; then
- AC_MSG_RESULT([yes])
- else
- AC_MSG_RESULT([no])
- _am_tools=none
- fi
- AC_MSG_CHECKING([whether GID '$am_gid' is supported by ustar format])
- if test $am_gid -le $am_max_gid; then
- AC_MSG_RESULT([yes])
- else
- AC_MSG_RESULT([no])
- _am_tools=none
- fi],
-
- [pax],
- [],
-
- [m4_fatal([Unknown tar format])])
-
- AC_MSG_CHECKING([how to create a $1 tar archive])
-
- # Go ahead even if we have the value already cached. We do so because we
- # need to set the values for the 'am__tar' and 'am__untar' variables.
- _am_tools=${am_cv_prog_tar_$1-$_am_tools}
-
- for _am_tool in $_am_tools; do
- case $_am_tool in
- gnutar)
- for _am_tar in tar gnutar gtar; do
- AM_RUN_LOG([$_am_tar --version]) && break
- done
- am__tar="$_am_tar --format=m4_if([$1], [pax], [posix], [$1]) -chf - "'"$$tardir"'
- am__tar_="$_am_tar --format=m4_if([$1], [pax], [posix], [$1]) -chf - "'"$tardir"'
- am__untar="$_am_tar -xf -"
- ;;
- plaintar)
- # Must skip GNU tar: if it does not support --format= it doesn't create
- # ustar tarball either.
- (tar --version) >/dev/null 2>&1 && continue
- am__tar='tar chf - "$$tardir"'
- am__tar_='tar chf - "$tardir"'
- am__untar='tar xf -'
- ;;
- pax)
- am__tar='pax -L -x $1 -w "$$tardir"'
- am__tar_='pax -L -x $1 -w "$tardir"'
- am__untar='pax -r'
- ;;
- cpio)
- am__tar='find "$$tardir" -print | cpio -o -H $1 -L'
- am__tar_='find "$tardir" -print | cpio -o -H $1 -L'
- am__untar='cpio -i -H $1 -d'
- ;;
- none)
- am__tar=false
- am__tar_=false
- am__untar=false
- ;;
- esac
-
- # If the value was cached, stop now. We just wanted to have am__tar
- # and am__untar set.
- test -n "${am_cv_prog_tar_$1}" && break
-
- # tar/untar a dummy directory, and stop if the command works.
- rm -rf conftest.dir
- mkdir conftest.dir
- echo GrepMe > conftest.dir/file
- AM_RUN_LOG([tardir=conftest.dir && eval $am__tar_ >conftest.tar])
- rm -rf conftest.dir
- if test -s conftest.tar; then
- AM_RUN_LOG([$am__untar /dev/null 2>&1 && break
- fi
- done
- rm -rf conftest.dir
-
- AC_CACHE_VAL([am_cv_prog_tar_$1], [am_cv_prog_tar_$1=$_am_tool])
- AC_MSG_RESULT([$am_cv_prog_tar_$1])])
-
-AC_SUBST([am__tar])
-AC_SUBST([am__untar])
-]) # _AM_PROG_TAR
-
-m4_include([m4/ax_ac_append_to_file.m4])
-m4_include([m4/ax_ac_define_resolved.m4])
-m4_include([m4/ax_ac_print_to_file.m4])
-m4_include([m4/ax_add_am_macro_static.m4])
-m4_include([m4/ax_am_macros_static.m4])
-m4_include([m4/ax_check_define.m4])
-m4_include([m4/ax_check_gnu_make.m4])
-m4_include([m4/ax_code_coverage.m4])
-m4_include([m4/ax_file_escapes.m4])
-m4_include([m4/ax_prog_bison.m4])
-m4_include([m4/ax_prog_flex.m4])
-m4_include([m4/codeset.m4])
-m4_include([m4/gettext.m4])
-m4_include([m4/iconv.m4])
-m4_include([m4/intlmacosx.m4])
-m4_include([m4/lib-ld.m4])
-m4_include([m4/lib-link.m4])
-m4_include([m4/lib-prefix.m4])
-m4_include([m4/libtool.m4])
-m4_include([m4/ltoptions.m4])
-m4_include([m4/ltsugar.m4])
-m4_include([m4/ltversion.m4])
-m4_include([m4/lt~obsolete.m4])
-m4_include([m4/nls.m4])
-m4_include([m4/pkg.m4])
-m4_include([m4/po.m4])
-m4_include([m4/progtest.m4])
diff --git a/aminclude_static.am b/aminclude_static.am
deleted file mode 100644
index 0538753..0000000
--- a/aminclude_static.am
+++ /dev/null
@@ -1,126 +0,0 @@
-
-# aminclude_static.am generated automatically by Autoconf
-# from AX_AM_MACROS_STATIC on Fri Jul 28 19:17:12 CEST 2023
-
-
-# Code coverage
-#
-# Optional:
-# - CODE_COVERAGE_DIRECTORY: Top-level directory for code coverage reporting.
-# Multiple directories may be specified, separated by whitespace.
-# (Default: $(top_builddir))
-# - CODE_COVERAGE_OUTPUT_FILE: Filename and path for the .info file generated
-# by lcov for code coverage. (Default:
-# $(PACKAGE_NAME)-$(PACKAGE_VERSION)-coverage.info)
-# - CODE_COVERAGE_OUTPUT_DIRECTORY: Directory for generated code coverage
-# reports to be created. (Default:
-# $(PACKAGE_NAME)-$(PACKAGE_VERSION)-coverage)
-# - CODE_COVERAGE_BRANCH_COVERAGE: Set to 1 to enforce branch coverage,
-# set to 0 to disable it and leave empty to stay with the default.
-# (Default: empty)
-# - CODE_COVERAGE_LCOV_SHOPTS_DEFAULT: Extra options shared between both lcov
-# instances. (Default: based on )
-# - CODE_COVERAGE_LCOV_SHOPTS: Extra options to shared between both lcov
-# instances. (Default: )
-# - CODE_COVERAGE_LCOV_OPTIONS_GCOVPATH: --gcov-tool pathtogcov
-# - CODE_COVERAGE_LCOV_OPTIONS_DEFAULT: Extra options to pass to the
-# collecting lcov instance. (Default: )
-# - CODE_COVERAGE_LCOV_OPTIONS: Extra options to pass to the collecting lcov
-# instance. (Default: )
-# - CODE_COVERAGE_LCOV_RMOPTS_DEFAULT: Extra options to pass to the filtering
-# lcov instance. (Default: empty)
-# - CODE_COVERAGE_LCOV_RMOPTS: Extra options to pass to the filtering lcov
-# instance. (Default: )
-# - CODE_COVERAGE_GENHTML_OPTIONS_DEFAULT: Extra options to pass to the
-# genhtml instance. (Default: based on )
-# - CODE_COVERAGE_GENHTML_OPTIONS: Extra options to pass to the genhtml
-# instance. (Default: )
-# - CODE_COVERAGE_IGNORE_PATTERN: Extra glob pattern of files to ignore
-#
-# The generated report will be titled using the $(PACKAGE_NAME) and
-# $(PACKAGE_VERSION). In order to add the current git hash to the title,
-# use the git-version-gen script, available online.
-# Optional variables
-# run only on top dir
-if CODE_COVERAGE_ENABLED
- ifeq ($(abs_builddir), $(abs_top_builddir))
-CODE_COVERAGE_DIRECTORY ?= $(top_builddir)
-CODE_COVERAGE_OUTPUT_FILE ?= $(PACKAGE_NAME)-$(PACKAGE_VERSION)-coverage.info
-CODE_COVERAGE_OUTPUT_DIRECTORY ?= $(PACKAGE_NAME)-$(PACKAGE_VERSION)-coverage
-
-CODE_COVERAGE_BRANCH_COVERAGE ?=
-CODE_COVERAGE_LCOV_SHOPTS_DEFAULT ?= $(if $(CODE_COVERAGE_BRANCH_COVERAGE),--rc lcov_branch_coverage=$(CODE_COVERAGE_BRANCH_COVERAGE))
-CODE_COVERAGE_LCOV_SHOPTS ?= $(CODE_COVERAGE_LCOV_SHOPTS_DEFAULT)
-CODE_COVERAGE_LCOV_OPTIONS_GCOVPATH ?= --gcov-tool "$(GCOV)"
-CODE_COVERAGE_LCOV_OPTIONS_DEFAULT ?= $(CODE_COVERAGE_LCOV_OPTIONS_GCOVPATH)
-CODE_COVERAGE_LCOV_OPTIONS ?= $(CODE_COVERAGE_LCOV_OPTIONS_DEFAULT)
-CODE_COVERAGE_LCOV_RMOPTS_DEFAULT ?=
-CODE_COVERAGE_LCOV_RMOPTS ?= $(CODE_COVERAGE_LCOV_RMOPTS_DEFAULT)
-CODE_COVERAGE_GENHTML_OPTIONS_DEFAULT ?=$(if $(CODE_COVERAGE_BRANCH_COVERAGE),--rc genhtml_branch_coverage=$(CODE_COVERAGE_BRANCH_COVERAGE))
-CODE_COVERAGE_GENHTML_OPTIONS ?= $(CODE_COVERAGE_GENHTML_OPTIONS_DEFAULT)
-CODE_COVERAGE_IGNORE_PATTERN ?=
-
-GITIGNOREFILES := $(GITIGNOREFILES) $(CODE_COVERAGE_OUTPUT_FILE) $(CODE_COVERAGE_OUTPUT_DIRECTORY)
-code_coverage_v_lcov_cap = $(code_coverage_v_lcov_cap_$(V))
-code_coverage_v_lcov_cap_ = $(code_coverage_v_lcov_cap_$(AM_DEFAULT_VERBOSITY))
-code_coverage_v_lcov_cap_0 = @echo " LCOV --capture" $(CODE_COVERAGE_OUTPUT_FILE);
-code_coverage_v_lcov_ign = $(code_coverage_v_lcov_ign_$(V))
-code_coverage_v_lcov_ign_ = $(code_coverage_v_lcov_ign_$(AM_DEFAULT_VERBOSITY))
-code_coverage_v_lcov_ign_0 = @echo " LCOV --remove /tmp/*" $(CODE_COVERAGE_IGNORE_PATTERN);
-code_coverage_v_genhtml = $(code_coverage_v_genhtml_$(V))
-code_coverage_v_genhtml_ = $(code_coverage_v_genhtml_$(AM_DEFAULT_VERBOSITY))
-code_coverage_v_genhtml_0 = @echo " GEN " "$(CODE_COVERAGE_OUTPUT_DIRECTORY)";
-code_coverage_quiet = $(code_coverage_quiet_$(V))
-code_coverage_quiet_ = $(code_coverage_quiet_$(AM_DEFAULT_VERBOSITY))
-code_coverage_quiet_0 = --quiet
-
-# sanitizes the test-name: replaces with underscores: dashes and dots
-code_coverage_sanitize = $(subst -,_,$(subst .,_,$(1)))
-
-# Use recursive makes in order to ignore errors during check
-check-code-coverage:
- -$(AM_V_at)$(MAKE) $(AM_MAKEFLAGS) -k check
- $(AM_V_at)$(MAKE) $(AM_MAKEFLAGS) code-coverage-capture
-
-# Capture code coverage data
-code-coverage-capture: code-coverage-capture-hook
- $(code_coverage_v_lcov_cap)$(LCOV) $(code_coverage_quiet) $(addprefix --directory ,$(CODE_COVERAGE_DIRECTORY)) --capture --output-file "$(CODE_COVERAGE_OUTPUT_FILE).tmp" --test-name "$(call code_coverage_sanitize,$(PACKAGE_NAME)-$(PACKAGE_VERSION))" --no-checksum --compat-libtool $(CODE_COVERAGE_LCOV_SHOPTS) $(CODE_COVERAGE_LCOV_OPTIONS)
- $(code_coverage_v_lcov_ign)$(LCOV) $(code_coverage_quiet) $(addprefix --directory ,$(CODE_COVERAGE_DIRECTORY)) --remove "$(CODE_COVERAGE_OUTPUT_FILE).tmp" "/tmp/*" $(CODE_COVERAGE_IGNORE_PATTERN) --output-file "$(CODE_COVERAGE_OUTPUT_FILE)" $(CODE_COVERAGE_LCOV_SHOPTS) $(CODE_COVERAGE_LCOV_RMOPTS)
- -@rm -f "$(CODE_COVERAGE_OUTPUT_FILE).tmp"
- $(code_coverage_v_genhtml)LANG=C $(GENHTML) $(code_coverage_quiet) $(addprefix --prefix ,$(CODE_COVERAGE_DIRECTORY)) --output-directory "$(CODE_COVERAGE_OUTPUT_DIRECTORY)" --title "$(PACKAGE_NAME)-$(PACKAGE_VERSION) Code Coverage" --legend --show-details "$(CODE_COVERAGE_OUTPUT_FILE)" $(CODE_COVERAGE_GENHTML_OPTIONS)
- @echo "file://$(abs_builddir)/$(CODE_COVERAGE_OUTPUT_DIRECTORY)/index.html"
-
-code-coverage-clean:
- -$(LCOV) --directory $(top_builddir) -z
- -rm -rf "$(CODE_COVERAGE_OUTPUT_FILE)" "$(CODE_COVERAGE_OUTPUT_FILE).tmp" "$(CODE_COVERAGE_OUTPUT_DIRECTORY)"
- -find . \( -name "*.gcda" -o -name "*.gcno" -o -name "*.gcov" \) -delete
-
-code-coverage-dist-clean:
-
-AM_DISTCHECK_CONFIGURE_FLAGS := $(AM_DISTCHECK_CONFIGURE_FLAGS) --disable-code-coverage
- else # ifneq ($(abs_builddir), $(abs_top_builddir))
-check-code-coverage:
-
-code-coverage-capture: code-coverage-capture-hook
-
-code-coverage-clean:
-
-code-coverage-dist-clean:
- endif # ifeq ($(abs_builddir), $(abs_top_builddir))
-else #! CODE_COVERAGE_ENABLED
-# Use recursive makes in order to ignore errors during check
-check-code-coverage:
- @echo "Need to reconfigure with --enable-code-coverage"
-# Capture code coverage data
-code-coverage-capture: code-coverage-capture-hook
- @echo "Need to reconfigure with --enable-code-coverage"
-
-code-coverage-clean:
-
-code-coverage-dist-clean:
-
-endif #CODE_COVERAGE_ENABLED
-# Hook rule executed before code-coverage-capture, overridable by the user
-code-coverage-capture-hook:
-
-.PHONY: check-code-coverage code-coverage-capture code-coverage-dist-clean code-coverage-clean code-coverage-capture-hook
diff --git a/bin/Makefile.in b/bin/Makefile.in
deleted file mode 100644
index 0652ecc..0000000
--- a/bin/Makefile.in
+++ /dev/null
@@ -1,1028 +0,0 @@
-# Makefile.in generated by automake 1.16.3 from Makefile.am.
-# @configure_input@
-
-# Copyright (C) 1994-2020 Free Software Foundation, Inc.
-
-# This Makefile.in is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
-# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
-# PARTICULAR PURPOSE.
-
-@SET_MAKE@
-
-#
-# Makefile gnucobol/bin
-#
-# Copyright (C) 2001-2012, 2014, 2017-2020 Free Software Foundation, Inc.
-# Written by Roger While, Simon Sobisch
-#
-# 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 .
-
-# aminclude_static.am generated automatically by Autoconf
-# from AX_AM_MACROS_STATIC on Fri Jul 28 19:17:12 CEST 2023
-
-
-VPATH = @srcdir@
-am__is_gnu_make = { \
- if test -z '$(MAKELEVEL)'; then \
- false; \
- elif test -n '$(MAKE_HOST)'; then \
- true; \
- elif test -n '$(MAKE_VERSION)' && test -n '$(CURDIR)'; then \
- true; \
- else \
- false; \
- fi; \
-}
-am__make_running_with_option = \
- case $${target_option-} in \
- ?) ;; \
- *) echo "am__make_running_with_option: internal error: invalid" \
- "target option '$${target_option-}' specified" >&2; \
- exit 1;; \
- esac; \
- has_opt=no; \
- sane_makeflags=$$MAKEFLAGS; \
- if $(am__is_gnu_make); then \
- sane_makeflags=$$MFLAGS; \
- else \
- case $$MAKEFLAGS in \
- *\\[\ \ ]*) \
- bs=\\; \
- sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \
- | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \
- esac; \
- fi; \
- skip_next=no; \
- strip_trailopt () \
- { \
- flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \
- }; \
- for flg in $$sane_makeflags; do \
- test $$skip_next = yes && { skip_next=no; continue; }; \
- case $$flg in \
- *=*|--*) continue;; \
- -*I) strip_trailopt 'I'; skip_next=yes;; \
- -*I?*) strip_trailopt 'I';; \
- -*O) strip_trailopt 'O'; skip_next=yes;; \
- -*O?*) strip_trailopt 'O';; \
- -*l) strip_trailopt 'l'; skip_next=yes;; \
- -*l?*) strip_trailopt 'l';; \
- -[dEDm]) skip_next=yes;; \
- -[JT]) skip_next=yes;; \
- esac; \
- case $$flg in \
- *$$target_option*) has_opt=yes; break;; \
- esac; \
- done; \
- test $$has_opt = yes
-am__make_dryrun = (target_option=n; $(am__make_running_with_option))
-am__make_keepgoing = (target_option=k; $(am__make_running_with_option))
-pkgdatadir = $(datadir)/@PACKAGE@
-pkgincludedir = $(includedir)/@PACKAGE@
-pkglibdir = $(libdir)/@PACKAGE@
-pkglibexecdir = $(libexecdir)/@PACKAGE@
-am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
-install_sh_DATA = $(install_sh) -c -m 644
-install_sh_PROGRAM = $(install_sh) -c
-install_sh_SCRIPT = $(install_sh) -c
-INSTALL_HEADER = $(INSTALL_DATA)
-transform = $(program_transform_name)
-NORMAL_INSTALL = :
-PRE_INSTALL = :
-POST_INSTALL = :
-NORMAL_UNINSTALL = :
-PRE_UNINSTALL = :
-POST_UNINSTALL = :
-build_triplet = @build@
-host_triplet = @host@
-bin_PROGRAMS = cobcrun$(EXEEXT)
-subdir = bin
-ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
-am__aclocal_m4_deps = $(top_srcdir)/m4/ax_ac_append_to_file.m4 \
- $(top_srcdir)/m4/ax_ac_define_resolved.m4 \
- $(top_srcdir)/m4/ax_ac_print_to_file.m4 \
- $(top_srcdir)/m4/ax_add_am_macro_static.m4 \
- $(top_srcdir)/m4/ax_am_macros_static.m4 \
- $(top_srcdir)/m4/ax_check_define.m4 \
- $(top_srcdir)/m4/ax_check_gnu_make.m4 \
- $(top_srcdir)/m4/ax_code_coverage.m4 \
- $(top_srcdir)/m4/ax_file_escapes.m4 \
- $(top_srcdir)/m4/ax_prog_bison.m4 \
- $(top_srcdir)/m4/ax_prog_flex.m4 $(top_srcdir)/m4/codeset.m4 \
- $(top_srcdir)/m4/gettext.m4 $(top_srcdir)/m4/iconv.m4 \
- $(top_srcdir)/m4/intlmacosx.m4 $(top_srcdir)/m4/lib-ld.m4 \
- $(top_srcdir)/m4/lib-link.m4 $(top_srcdir)/m4/lib-prefix.m4 \
- $(top_srcdir)/m4/libtool.m4 $(top_srcdir)/m4/ltoptions.m4 \
- $(top_srcdir)/m4/ltsugar.m4 $(top_srcdir)/m4/ltversion.m4 \
- $(top_srcdir)/m4/lt~obsolete.m4 $(top_srcdir)/m4/nls.m4 \
- $(top_srcdir)/m4/pkg.m4 $(top_srcdir)/m4/po.m4 \
- $(top_srcdir)/m4/progtest.m4 $(top_srcdir)/configure.ac
-am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
- $(ACLOCAL_M4)
-DIST_COMMON = $(srcdir)/Makefile.am $(am__DIST_COMMON)
-mkinstalldirs = $(SHELL) $(top_srcdir)/build_aux/mkinstalldirs
-CONFIG_HEADER = $(top_builddir)/config.h
-CONFIG_CLEAN_FILES = cob-config
-CONFIG_CLEAN_VPATH_FILES =
-am__installdirs = "$(DESTDIR)$(bindir)" "$(DESTDIR)$(bindir)" \
- "$(DESTDIR)$(man1dir)"
-PROGRAMS = $(bin_PROGRAMS)
-am_cobcrun_OBJECTS = cobcrun.$(OBJEXT)
-cobcrun_OBJECTS = $(am_cobcrun_OBJECTS)
-am__DEPENDENCIES_1 =
-cobcrun_DEPENDENCIES = $(top_builddir)/libcob/libcob.la \
- $(top_builddir)/lib/libsupport.la $(am__DEPENDENCIES_1) \
- $(am__DEPENDENCIES_1)
-AM_V_lt = $(am__v_lt_@AM_V@)
-am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@)
-am__v_lt_0 = --silent
-am__v_lt_1 =
-am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
-am__vpath_adj = case $$p in \
- $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
- *) f=$$p;; \
- esac;
-am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`;
-am__install_max = 40
-am__nobase_strip_setup = \
- srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'`
-am__nobase_strip = \
- for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||"
-am__nobase_list = $(am__nobase_strip_setup); \
- for p in $$list; do echo "$$p $$p"; done | \
- sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \
- $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \
- if (++n[$$2] == $(am__install_max)) \
- { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \
- END { for (dir in files) print dir, files[dir] }'
-am__base_list = \
- sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \
- sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g'
-am__uninstall_files_from_dir = { \
- test -z "$$files" \
- || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \
- || { echo " ( cd '$$dir' && rm -f" $$files ")"; \
- $(am__cd) "$$dir" && rm -f $$files; }; \
- }
-SCRIPTS = $(bin_SCRIPTS)
-AM_V_P = $(am__v_P_@AM_V@)
-am__v_P_ = $(am__v_P_@AM_DEFAULT_V@)
-am__v_P_0 = false
-am__v_P_1 = :
-AM_V_GEN = $(am__v_GEN_@AM_V@)
-am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@)
-am__v_GEN_0 = @echo " GEN " $@;
-am__v_GEN_1 =
-AM_V_at = $(am__v_at_@AM_V@)
-am__v_at_ = $(am__v_at_@AM_DEFAULT_V@)
-am__v_at_0 = @
-am__v_at_1 =
-DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir)
-depcomp = $(SHELL) $(top_srcdir)/build_aux/depcomp
-am__maybe_remake_depfiles = depfiles
-am__depfiles_remade = ./$(DEPDIR)/cobcrun.Po
-am__mv = mv -f
-COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \
- $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)
-LTCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \
- $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) \
- $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \
- $(AM_CFLAGS) $(CFLAGS)
-AM_V_CC = $(am__v_CC_@AM_V@)
-am__v_CC_ = $(am__v_CC_@AM_DEFAULT_V@)
-am__v_CC_0 = @echo " CC " $@;
-am__v_CC_1 =
-CCLD = $(CC)
-LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \
- $(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \
- $(AM_LDFLAGS) $(LDFLAGS) -o $@
-AM_V_CCLD = $(am__v_CCLD_@AM_V@)
-am__v_CCLD_ = $(am__v_CCLD_@AM_DEFAULT_V@)
-am__v_CCLD_0 = @echo " CCLD " $@;
-am__v_CCLD_1 =
-SOURCES = $(cobcrun_SOURCES)
-DIST_SOURCES = $(cobcrun_SOURCES)
-am__can_run_installinfo = \
- case $$AM_UPDATE_INFO_DIR in \
- n|no|NO) false;; \
- *) (install-info --version) >/dev/null 2>&1;; \
- esac
-man1dir = $(mandir)/man1
-NROFF = nroff
-MANS = $(dist_man_MANS)
-am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP)
-# Read a list of newline-separated strings from the standard input,
-# and print each of them once, without duplicates. Input order is
-# *not* preserved.
-am__uniquify_input = $(AWK) '\
- BEGIN { nonempty = 0; } \
- { items[$$0] = 1; nonempty = 1; } \
- END { if (nonempty) { for (i in items) print i; }; } \
-'
-# Make sure the list of sources is unique. This is necessary because,
-# e.g., the same source file might be shared among _SOURCES variables
-# for different programs/libraries.
-am__define_uniq_tagged_files = \
- list='$(am__tagged_files)'; \
- unique=`for i in $$list; do \
- if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
- done | $(am__uniquify_input)`
-ETAGS = etags
-CTAGS = ctags
-am__DIST_COMMON = $(dist_man_MANS) $(srcdir)/Makefile.in \
- $(srcdir)/cob-config.in $(top_srcdir)/aminclude_static.am \
- $(top_srcdir)/build_aux/depcomp \
- $(top_srcdir)/build_aux/mkinstalldirs ChangeLog
-DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
-ACLOCAL = @ACLOCAL@
-AMTAR = @AMTAR@
-AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@
-AR = @AR@
-AS = @AS@
-AUTOCONF = @AUTOCONF@
-AUTOHEADER = @AUTOHEADER@
-AUTOMAKE = @AUTOMAKE@
-AWK = @AWK@
-BDB_CFLAGS = @BDB_CFLAGS@
-BDB_LIBS = @BDB_LIBS@
-CC = @CC@
-CCDEPMODE = @CCDEPMODE@
-CFLAGS = @CFLAGS@
-CJSON_CFLAGS = @CJSON_CFLAGS@
-CJSON_LIBS = @CJSON_LIBS@
-COBC_CPPFLAGS = @COBC_CPPFLAGS@
-COB_BIGENDIAN = @COB_BIGENDIAN@
-COB_CC = @COB_CC@
-COB_CFLAGS = @COB_CFLAGS@
-COB_CONFIG_DIR = @COB_CONFIG_DIR@
-COB_COPY_DIR = @COB_COPY_DIR@
-COB_ENABLE_DEBUG = @COB_ENABLE_DEBUG@
-COB_EXE_EXT = @COB_EXE_EXT@
-COB_FIX_LIBTOOL = @COB_FIX_LIBTOOL@
-COB_HAS_64_BIT_POINTER = @COB_HAS_64_BIT_POINTER@
-COB_HAS_CURSES = @COB_HAS_CURSES@
-COB_HAS_ISAM = @COB_HAS_ISAM@
-COB_HAS_JSON = @COB_HAS_JSON@
-COB_HAS_XML2 = @COB_HAS_XML2@
-COB_LDFLAGS = @COB_LDFLAGS@
-COB_LIBRARY_PATH = @COB_LIBRARY_PATH@
-COB_LIBS = @COB_LIBS@
-COB_MODULE_EXT = @COB_MODULE_EXT@
-COB_OBJECT_EXT = @COB_OBJECT_EXT@
-COB_PATCH_LEVEL = @COB_PATCH_LEVEL@
-CODE_COVERAGE_CFLAGS = @CODE_COVERAGE_CFLAGS@
-CODE_COVERAGE_CPPFLAGS = @CODE_COVERAGE_CPPFLAGS@
-CODE_COVERAGE_CXXFLAGS = @CODE_COVERAGE_CXXFLAGS@
-CODE_COVERAGE_ENABLED = @CODE_COVERAGE_ENABLED@
-CODE_COVERAGE_LIBS = @CODE_COVERAGE_LIBS@
-CPP = @CPP@
-CPPFLAGS = @CPPFLAGS@
-CURSES_LIBS = @CURSES_LIBS@
-CYGPATH_W = @CYGPATH_W@
-DEFS = @DEFS@
-DEPDIR = @DEPDIR@
-DIFF_FLAGS = @DIFF_FLAGS@
-DLLTOOL = @DLLTOOL@
-DSYMUTIL = @DSYMUTIL@
-DUMPBIN = @DUMPBIN@
-ECHO_C = @ECHO_C@
-ECHO_N = @ECHO_N@
-ECHO_T = @ECHO_T@
-EGREP = @EGREP@
-EXEEXT = @EXEEXT@
-FGREP = @FGREP@
-GCOV = @GCOV@
-GENHTML = @GENHTML@
-GETTEXT_MACRO_VERSION = @GETTEXT_MACRO_VERSION@
-GMP_CFLAGS = @GMP_CFLAGS@
-GMP_LIBS = @GMP_LIBS@
-GMSGFMT = @GMSGFMT@
-GMSGFMT_015 = @GMSGFMT_015@
-GREP = @GREP@
-HELP2MAN = @HELP2MAN@
-INSTALL = @INSTALL@
-INSTALL_DATA = @INSTALL_DATA@
-INSTALL_PROGRAM = @INSTALL_PROGRAM@
-INSTALL_SCRIPT = @INSTALL_SCRIPT@
-INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
-INTLLIBS = @INTLLIBS@
-INTL_MACOSX_LIBS = @INTL_MACOSX_LIBS@
-JSON_C_CFLAGS = @JSON_C_CFLAGS@
-JSON_C_LIBS = @JSON_C_LIBS@
-LCOV = @LCOV@
-LD = @LD@
-LDFLAGS = @LDFLAGS@
-LEX = @LEX@
-LEXLIB = @LEXLIB@
-LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@
-LIBCOB_CPPFLAGS = @LIBCOB_CPPFLAGS@
-LIBCOB_LIBS = @LIBCOB_LIBS@
-LIBICONV = @LIBICONV@
-LIBINTL = @LIBINTL@
-LIBOBJS = @LIBOBJS@
-LIBS = @LIBS@
-LIBTOOL = @LIBTOOL@
-LIPO = @LIPO@
-LN_S = @LN_S@
-LTLIBICONV = @LTLIBICONV@
-LTLIBINTL = @LTLIBINTL@
-LTLIBOBJS = @LTLIBOBJS@
-LT_SYS_LIBRARY_PATH = @LT_SYS_LIBRARY_PATH@
-MAKE = @MAKE@
-MAKEINFO = @MAKEINFO@
-MANIFEST_TOOL = @MANIFEST_TOOL@
-MKDIR_P = @MKDIR_P@
-MPIR_CFLAGS = @MPIR_CFLAGS@
-MPIR_LIBS = @MPIR_LIBS@
-MSGFMT = @MSGFMT@
-MSGMERGE = @MSGMERGE@
-MSGMERGE_FOR_MSGFMT_OPTION = @MSGMERGE_FOR_MSGFMT_OPTION@
-NM = @NM@
-NMEDIT = @NMEDIT@
-OBJDUMP = @OBJDUMP@
-OBJEXT = @OBJEXT@
-OTOOL = @OTOOL@
-OTOOL64 = @OTOOL64@
-PACKAGE = @PACKAGE@
-PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
-PACKAGE_NAME = @PACKAGE_NAME@
-PACKAGE_STRING = @PACKAGE_STRING@
-PACKAGE_TARNAME = @PACKAGE_TARNAME@
-PACKAGE_URL = @PACKAGE_URL@
-PACKAGE_VERSION = @PACKAGE_VERSION@
-PATH_SEPARATOR = @PATH_SEPARATOR@
-PERL = @PERL@
-PKG_CONFIG = @PKG_CONFIG@
-PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@
-PKG_CONFIG_PATH = @PKG_CONFIG_PATH@
-POSUB = @POSUB@
-PROGRAMS_LIBS = @PROGRAMS_LIBS@
-QUOTE_INCLUDE_FLAG = @QUOTE_INCLUDE_FLAG@
-RANLIB = @RANLIB@
-RC = @RC@
-SED = @SED@
-SET_MAKE = @SET_MAKE@
-SHELL = @SHELL@
-STRIP = @STRIP@
-USE_NLS = @USE_NLS@
-VERSION = @VERSION@
-XGETTEXT = @XGETTEXT@
-XGETTEXT_015 = @XGETTEXT_015@
-XGETTEXT_EXTRA_OPTIONS = @XGETTEXT_EXTRA_OPTIONS@
-XML2_CFLAGS = @XML2_CFLAGS@
-XML2_CONFIG = @XML2_CONFIG@
-XML2_LIBS = @XML2_LIBS@
-YACC = @YACC@
-YFLAGS = @YFLAGS@
-abs_builddir = @abs_builddir@
-abs_srcdir = @abs_srcdir@
-abs_top_builddir = @abs_top_builddir@
-abs_top_srcdir = @abs_top_srcdir@
-ac_ct_AR = @ac_ct_AR@
-ac_ct_CC = @ac_ct_CC@
-ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
-am__include = @am__include@
-am__leading_dot = @am__leading_dot@
-am__quote = @am__quote@
-am__tar = @am__tar@
-am__untar = @am__untar@
-bindir = @bindir@
-build = @build@
-build_alias = @build_alias@
-build_cpu = @build_cpu@
-build_os = @build_os@
-build_vendor = @build_vendor@
-builddir = @builddir@
-configured_make = @configured_make@
-datadir = @datadir@
-datarootdir = @datarootdir@
-docdir = @docdir@
-dvidir = @dvidir@
-exec_prefix = @exec_prefix@
-host = @host@
-host_alias = @host_alias@
-host_cpu = @host_cpu@
-host_os = @host_os@
-host_vendor = @host_vendor@
-htmldir = @htmldir@
-ifGNUmake = @ifGNUmake@
-ifnGNUmake = @ifnGNUmake@
-includedir = @includedir@
-infodir = @infodir@
-install_sh = @install_sh@
-libdir = @libdir@
-libexecdir = @libexecdir@
-localedir = @localedir@
-localstatedir = @localstatedir@
-mandir = @mandir@
-mkdir_p = @mkdir_p@
-oldincludedir = @oldincludedir@
-pdfdir = @pdfdir@
-prefix = @prefix@
-program_transform_name = @program_transform_name@
-psdir = @psdir@
-runstatedir = @runstatedir@
-sbindir = @sbindir@
-sharedstatedir = @sharedstatedir@
-srcdir = @srcdir@
-sysconfdir = @sysconfdir@
-target_alias = @target_alias@
-top_build_prefix = @top_build_prefix@
-top_builddir = @top_builddir@
-top_srcdir = @top_srcdir@
-bin_SCRIPTS = cob-config
-cobcrun_SOURCES = cobcrun.c
-dist_man_MANS = cobcrun.1 cob-config.1
-COBCRUN = cobcrun$(EXEEXT)
-
-# AM_LDFLAGS = $(COB_EXPORT_DYN)
-AM_CPPFLAGS = -I$(top_srcdir) -I$(top_builddir)/lib -I$(top_srcdir)/lib
-AM_CFLAGS = $(CODE_COVERAGE_CFLAGS)
-cobcrun_LDADD = $(top_builddir)/libcob/libcob.la \
- $(top_builddir)/lib/libsupport.la \
- $(PROGRAMS_LIBS) $(CODE_COVERAGE_LIBS)
-
-@CODE_COVERAGE_ENABLED_TRUE@GITIGNOREFILES := $(GITIGNOREFILES) $(CODE_COVERAGE_OUTPUT_FILE) $(CODE_COVERAGE_OUTPUT_DIRECTORY)
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_lcov_cap = $(code_coverage_v_lcov_cap_$(V))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_lcov_cap_ = $(code_coverage_v_lcov_cap_$(AM_DEFAULT_VERBOSITY))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_lcov_cap_0 = @echo " LCOV --capture" $(CODE_COVERAGE_OUTPUT_FILE);
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_lcov_ign = $(code_coverage_v_lcov_ign_$(V))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_lcov_ign_ = $(code_coverage_v_lcov_ign_$(AM_DEFAULT_VERBOSITY))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_lcov_ign_0 = @echo " LCOV --remove /tmp/*" $(CODE_COVERAGE_IGNORE_PATTERN);
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_genhtml = $(code_coverage_v_genhtml_$(V))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_genhtml_ = $(code_coverage_v_genhtml_$(AM_DEFAULT_VERBOSITY))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_genhtml_0 = @echo " GEN " "$(CODE_COVERAGE_OUTPUT_DIRECTORY)";
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_quiet = $(code_coverage_quiet_$(V))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_quiet_ = $(code_coverage_quiet_$(AM_DEFAULT_VERBOSITY))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_quiet_0 = --quiet
-
-# sanitizes the test-name: replaces with underscores: dashes and dots
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_sanitize = $(subst -,_,$(subst .,_,$(1)))
-@CODE_COVERAGE_ENABLED_TRUE@AM_DISTCHECK_CONFIGURE_FLAGS := $(AM_DISTCHECK_CONFIGURE_FLAGS) --disable-code-coverage
-CODE_COVERAGE_BRANCH_COVERAGE = 1
-CODE_COVERAGE_LCOV_OPTIONS = --no-external
-MAINTAINERCLEANFILES = cobcrun.1
-HELPSOURCES_COBCRUN = cobcrun.c $(top_srcdir)/configure.ac
-HELPSOURCES_COBCONFIG = cob-config.in $(top_srcdir)/configure.ac
-HELP2MAN_OPTS = --info-page=$(PACKAGE)
-all: all-am
-
-.SUFFIXES:
-.SUFFIXES: .c .lo .o .obj
-$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/aminclude_static.am $(am__configure_deps)
- @for dep in $?; do \
- case '$(am__configure_deps)' in \
- *$$dep*) \
- ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
- && { if test -f $@; then exit 0; else break; fi; }; \
- exit 1;; \
- esac; \
- done; \
- echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu bin/Makefile'; \
- $(am__cd) $(top_srcdir) && \
- $(AUTOMAKE) --gnu bin/Makefile
-Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
- @case '$?' in \
- *config.status*) \
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
- *) \
- echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__maybe_remake_depfiles)'; \
- cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__maybe_remake_depfiles);; \
- esac;
-$(top_srcdir)/aminclude_static.am $(am__empty):
-
-$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-
-$(top_srcdir)/configure: $(am__configure_deps)
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-$(ACLOCAL_M4): $(am__aclocal_m4_deps)
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-$(am__aclocal_m4_deps):
-cob-config: $(top_builddir)/config.status $(srcdir)/cob-config.in
- cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
-install-binPROGRAMS: $(bin_PROGRAMS)
- @$(NORMAL_INSTALL)
- @list='$(bin_PROGRAMS)'; test -n "$(bindir)" || list=; \
- if test -n "$$list"; then \
- echo " $(MKDIR_P) '$(DESTDIR)$(bindir)'"; \
- $(MKDIR_P) "$(DESTDIR)$(bindir)" || exit 1; \
- fi; \
- for p in $$list; do echo "$$p $$p"; done | \
- sed 's/$(EXEEXT)$$//' | \
- while read p p1; do if test -f $$p \
- || test -f $$p1 \
- ; then echo "$$p"; echo "$$p"; else :; fi; \
- done | \
- sed -e 'p;s,.*/,,;n;h' \
- -e 's|.*|.|' \
- -e 'p;x;s,.*/,,;s/$(EXEEXT)$$//;$(transform);s/$$/$(EXEEXT)/' | \
- sed 'N;N;N;s,\n, ,g' | \
- $(AWK) 'BEGIN { files["."] = ""; dirs["."] = 1 } \
- { d=$$3; if (dirs[d] != 1) { print "d", d; dirs[d] = 1 } \
- if ($$2 == $$4) files[d] = files[d] " " $$1; \
- else { print "f", $$3 "/" $$4, $$1; } } \
- END { for (d in files) print "f", d, files[d] }' | \
- while read type dir files; do \
- if test "$$dir" = .; then dir=; else dir=/$$dir; fi; \
- test -z "$$files" || { \
- echo " $(INSTALL_PROGRAM_ENV) $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL_PROGRAM) $$files '$(DESTDIR)$(bindir)$$dir'"; \
- $(INSTALL_PROGRAM_ENV) $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL_PROGRAM) $$files "$(DESTDIR)$(bindir)$$dir" || exit $$?; \
- } \
- ; done
-
-uninstall-binPROGRAMS:
- @$(NORMAL_UNINSTALL)
- @list='$(bin_PROGRAMS)'; test -n "$(bindir)" || list=; \
- files=`for p in $$list; do echo "$$p"; done | \
- sed -e 'h;s,^.*/,,;s/$(EXEEXT)$$//;$(transform)' \
- -e 's/$$/$(EXEEXT)/' \
- `; \
- test -n "$$list" || exit 0; \
- echo " ( cd '$(DESTDIR)$(bindir)' && rm -f" $$files ")"; \
- cd "$(DESTDIR)$(bindir)" && rm -f $$files
-
-clean-binPROGRAMS:
- @list='$(bin_PROGRAMS)'; test -n "$$list" || exit 0; \
- echo " rm -f" $$list; \
- rm -f $$list || exit $$?; \
- test -n "$(EXEEXT)" || exit 0; \
- list=`for p in $$list; do echo "$$p"; done | sed 's/$(EXEEXT)$$//'`; \
- echo " rm -f" $$list; \
- rm -f $$list
-
-cobcrun$(EXEEXT): $(cobcrun_OBJECTS) $(cobcrun_DEPENDENCIES) $(EXTRA_cobcrun_DEPENDENCIES)
- @rm -f cobcrun$(EXEEXT)
- $(AM_V_CCLD)$(LINK) $(cobcrun_OBJECTS) $(cobcrun_LDADD) $(LIBS)
-install-binSCRIPTS: $(bin_SCRIPTS)
- @$(NORMAL_INSTALL)
- @list='$(bin_SCRIPTS)'; test -n "$(bindir)" || list=; \
- if test -n "$$list"; then \
- echo " $(MKDIR_P) '$(DESTDIR)$(bindir)'"; \
- $(MKDIR_P) "$(DESTDIR)$(bindir)" || exit 1; \
- fi; \
- for p in $$list; do \
- if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
- if test -f "$$d$$p"; then echo "$$d$$p"; echo "$$p"; else :; fi; \
- done | \
- sed -e 'p;s,.*/,,;n' \
- -e 'h;s|.*|.|' \
- -e 'p;x;s,.*/,,;$(transform)' | sed 'N;N;N;s,\n, ,g' | \
- $(AWK) 'BEGIN { files["."] = ""; dirs["."] = 1; } \
- { d=$$3; if (dirs[d] != 1) { print "d", d; dirs[d] = 1 } \
- if ($$2 == $$4) { files[d] = files[d] " " $$1; \
- if (++n[d] == $(am__install_max)) { \
- print "f", d, files[d]; n[d] = 0; files[d] = "" } } \
- else { print "f", d "/" $$4, $$1 } } \
- END { for (d in files) print "f", d, files[d] }' | \
- while read type dir files; do \
- if test "$$dir" = .; then dir=; else dir=/$$dir; fi; \
- test -z "$$files" || { \
- echo " $(INSTALL_SCRIPT) $$files '$(DESTDIR)$(bindir)$$dir'"; \
- $(INSTALL_SCRIPT) $$files "$(DESTDIR)$(bindir)$$dir" || exit $$?; \
- } \
- ; done
-
-uninstall-binSCRIPTS:
- @$(NORMAL_UNINSTALL)
- @list='$(bin_SCRIPTS)'; test -n "$(bindir)" || exit 0; \
- files=`for p in $$list; do echo "$$p"; done | \
- sed -e 's,.*/,,;$(transform)'`; \
- dir='$(DESTDIR)$(bindir)'; $(am__uninstall_files_from_dir)
-
-mostlyclean-compile:
- -rm -f *.$(OBJEXT)
-
-distclean-compile:
- -rm -f *.tab.c
-
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cobcrun.Po@am__quote@ # am--include-marker
-
-$(am__depfiles_remade):
- @$(MKDIR_P) $(@D)
- @echo '# dummy' >$@-t && $(am__mv) $@-t $@
-
-am--depfiles: $(am__depfiles_remade)
-
-.c.o:
-@am__fastdepCC_TRUE@ $(AM_V_CC)$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $<
-@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ $<
-
-.c.obj:
-@am__fastdepCC_TRUE@ $(AM_V_CC)$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'`
-@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ `$(CYGPATH_W) '$<'`
-
-.c.lo:
-@am__fastdepCC_TRUE@ $(AM_V_CC)$(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $<
-@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LTCOMPILE) -c -o $@ $<
-
-mostlyclean-libtool:
- -rm -f *.lo
-
-clean-libtool:
- -rm -rf .libs _libs
-install-man1: $(dist_man_MANS)
- @$(NORMAL_INSTALL)
- @list1=''; \
- list2='$(dist_man_MANS)'; \
- test -n "$(man1dir)" \
- && test -n "`echo $$list1$$list2`" \
- || exit 0; \
- echo " $(MKDIR_P) '$(DESTDIR)$(man1dir)'"; \
- $(MKDIR_P) "$(DESTDIR)$(man1dir)" || exit 1; \
- { for i in $$list1; do echo "$$i"; done; \
- if test -n "$$list2"; then \
- for i in $$list2; do echo "$$i"; done \
- | sed -n '/\.1[a-z]*$$/p'; \
- fi; \
- } | while read p; do \
- if test -f $$p; then d=; else d="$(srcdir)/"; fi; \
- echo "$$d$$p"; echo "$$p"; \
- done | \
- sed -e 'n;s,.*/,,;p;h;s,.*\.,,;s,^[^1][0-9a-z]*$$,1,;x' \
- -e 's,\.[0-9a-z]*$$,,;$(transform);G;s,\n,.,' | \
- sed 'N;N;s,\n, ,g' | { \
- list=; while read file base inst; do \
- if test "$$base" = "$$inst"; then list="$$list $$file"; else \
- echo " $(INSTALL_DATA) '$$file' '$(DESTDIR)$(man1dir)/$$inst'"; \
- $(INSTALL_DATA) "$$file" "$(DESTDIR)$(man1dir)/$$inst" || exit $$?; \
- fi; \
- done; \
- for i in $$list; do echo "$$i"; done | $(am__base_list) | \
- while read files; do \
- test -z "$$files" || { \
- echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(man1dir)'"; \
- $(INSTALL_DATA) $$files "$(DESTDIR)$(man1dir)" || exit $$?; }; \
- done; }
-
-uninstall-man1:
- @$(NORMAL_UNINSTALL)
- @list=''; test -n "$(man1dir)" || exit 0; \
- files=`{ for i in $$list; do echo "$$i"; done; \
- l2='$(dist_man_MANS)'; for i in $$l2; do echo "$$i"; done | \
- sed -n '/\.1[a-z]*$$/p'; \
- } | sed -e 's,.*/,,;h;s,.*\.,,;s,^[^1][0-9a-z]*$$,1,;x' \
- -e 's,\.[0-9a-z]*$$,,;$(transform);G;s,\n,.,'`; \
- dir='$(DESTDIR)$(man1dir)'; $(am__uninstall_files_from_dir)
-
-ID: $(am__tagged_files)
- $(am__define_uniq_tagged_files); mkid -fID $$unique
-tags: tags-am
-TAGS: tags
-
-tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files)
- set x; \
- here=`pwd`; \
- $(am__define_uniq_tagged_files); \
- shift; \
- if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
- test -n "$$unique" || unique=$$empty_fix; \
- if test $$# -gt 0; then \
- $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
- "$$@" $$unique; \
- else \
- $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
- $$unique; \
- fi; \
- fi
-ctags: ctags-am
-
-CTAGS: ctags
-ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files)
- $(am__define_uniq_tagged_files); \
- test -z "$(CTAGS_ARGS)$$unique" \
- || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
- $$unique
-
-GTAGS:
- here=`$(am__cd) $(top_builddir) && pwd` \
- && $(am__cd) $(top_srcdir) \
- && gtags -i $(GTAGS_ARGS) "$$here"
-cscopelist: cscopelist-am
-
-cscopelist-am: $(am__tagged_files)
- list='$(am__tagged_files)'; \
- case "$(srcdir)" in \
- [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \
- *) sdir=$(subdir)/$(srcdir) ;; \
- esac; \
- for i in $$list; do \
- if test -f "$$i"; then \
- echo "$(subdir)/$$i"; \
- else \
- echo "$$sdir/$$i"; \
- fi; \
- done >> $(top_builddir)/cscope.files
-
-distclean-tags:
- -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
-
-distdir: $(BUILT_SOURCES)
- $(MAKE) $(AM_MAKEFLAGS) distdir-am
-
-distdir-am: $(DISTFILES)
- @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
- topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
- list='$(DISTFILES)'; \
- dist_files=`for file in $$list; do echo $$file; done | \
- sed -e "s|^$$srcdirstrip/||;t" \
- -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
- case $$dist_files in \
- */*) $(MKDIR_P) `echo "$$dist_files" | \
- sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
- sort -u` ;; \
- esac; \
- for file in $$dist_files; do \
- if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
- if test -d $$d/$$file; then \
- dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
- if test -d "$(distdir)/$$file"; then \
- find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
- fi; \
- if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
- cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
- find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
- fi; \
- cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
- else \
- test -f "$(distdir)/$$file" \
- || cp -p $$d/$$file "$(distdir)/$$file" \
- || exit 1; \
- fi; \
- done
-check-am: all-am
-check: check-am
-all-am: Makefile $(PROGRAMS) $(SCRIPTS) $(MANS)
-installdirs:
- for dir in "$(DESTDIR)$(bindir)" "$(DESTDIR)$(bindir)" "$(DESTDIR)$(man1dir)"; do \
- test -z "$$dir" || $(MKDIR_P) "$$dir"; \
- done
-install: install-am
-install-exec: install-exec-am
-install-data: install-data-am
-uninstall: uninstall-am
-
-install-am: all-am
- @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
-
-installcheck: installcheck-am
-install-strip:
- if test -z '$(STRIP)'; then \
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- install; \
- else \
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
- fi
-mostlyclean-generic:
-
-clean-generic:
-
-distclean-generic:
- -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
- -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
-
-maintainer-clean-generic:
- @echo "This command is intended for maintainers to use"
- @echo "it deletes files that may require special tools to rebuild."
- -test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES)
-clean: clean-am
-
-clean-am: clean-binPROGRAMS clean-generic clean-libtool clean-local \
- mostlyclean-am
-
-distclean: distclean-am
- -rm -f ./$(DEPDIR)/cobcrun.Po
- -rm -f Makefile
-distclean-am: clean-am distclean-compile distclean-generic \
- distclean-tags
-
-dvi: dvi-am
-
-dvi-am:
-
-html: html-am
-
-html-am:
-
-info: info-am
-
-info-am:
-
-install-data-am: install-man
-
-install-dvi: install-dvi-am
-
-install-dvi-am:
-
-install-exec-am: install-binPROGRAMS install-binSCRIPTS
-
-install-html: install-html-am
-
-install-html-am:
-
-install-info: install-info-am
-
-install-info-am:
-
-install-man: install-man1
-
-install-pdf: install-pdf-am
-
-install-pdf-am:
-
-install-ps: install-ps-am
-
-install-ps-am:
-
-installcheck-am:
-
-maintainer-clean: maintainer-clean-am
- -rm -f ./$(DEPDIR)/cobcrun.Po
- -rm -f Makefile
-maintainer-clean-am: distclean-am maintainer-clean-generic
-
-mostlyclean: mostlyclean-am
-
-mostlyclean-am: mostlyclean-compile mostlyclean-generic \
- mostlyclean-libtool
-
-pdf: pdf-am
-
-pdf-am:
-
-ps: ps-am
-
-ps-am:
-
-uninstall-am: uninstall-binPROGRAMS uninstall-binSCRIPTS uninstall-man
-
-uninstall-man: uninstall-man1
-
-.MAKE: install-am install-strip
-
-.PHONY: CTAGS GTAGS TAGS all all-am am--depfiles check check-am clean \
- clean-binPROGRAMS clean-generic clean-libtool clean-local \
- cscopelist-am ctags ctags-am distclean distclean-compile \
- distclean-generic distclean-libtool distclean-tags distdir dvi \
- dvi-am html html-am info info-am install install-am \
- install-binPROGRAMS install-binSCRIPTS install-data \
- install-data-am install-dvi install-dvi-am install-exec \
- install-exec-am install-html install-html-am install-info \
- install-info-am install-man install-man1 install-pdf \
- install-pdf-am install-ps install-ps-am install-strip \
- installcheck installcheck-am installdirs maintainer-clean \
- maintainer-clean-generic mostlyclean mostlyclean-compile \
- mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \
- tags tags-am uninstall uninstall-am uninstall-binPROGRAMS \
- uninstall-binSCRIPTS uninstall-man uninstall-man1
-
-.PRECIOUS: Makefile
-
-
-# Code coverage
-#
-# Optional:
-# - CODE_COVERAGE_DIRECTORY: Top-level directory for code coverage reporting.
-# Multiple directories may be specified, separated by whitespace.
-# (Default: $(top_builddir))
-# - CODE_COVERAGE_OUTPUT_FILE: Filename and path for the .info file generated
-# by lcov for code coverage. (Default:
-# $(PACKAGE_NAME)-$(PACKAGE_VERSION)-coverage.info)
-# - CODE_COVERAGE_OUTPUT_DIRECTORY: Directory for generated code coverage
-# reports to be created. (Default:
-# $(PACKAGE_NAME)-$(PACKAGE_VERSION)-coverage)
-# - CODE_COVERAGE_BRANCH_COVERAGE: Set to 1 to enforce branch coverage,
-# set to 0 to disable it and leave empty to stay with the default.
-# (Default: empty)
-# - CODE_COVERAGE_LCOV_SHOPTS_DEFAULT: Extra options shared between both lcov
-# instances. (Default: based on )
-# - CODE_COVERAGE_LCOV_SHOPTS: Extra options to shared between both lcov
-# instances. (Default: )
-# - CODE_COVERAGE_LCOV_OPTIONS_GCOVPATH: --gcov-tool pathtogcov
-# - CODE_COVERAGE_LCOV_OPTIONS_DEFAULT: Extra options to pass to the
-# collecting lcov instance. (Default: )
-# - CODE_COVERAGE_LCOV_OPTIONS: Extra options to pass to the collecting lcov
-# instance. (Default: )
-# - CODE_COVERAGE_LCOV_RMOPTS_DEFAULT: Extra options to pass to the filtering
-# lcov instance. (Default: empty)
-# - CODE_COVERAGE_LCOV_RMOPTS: Extra options to pass to the filtering lcov
-# instance. (Default: )
-# - CODE_COVERAGE_GENHTML_OPTIONS_DEFAULT: Extra options to pass to the
-# genhtml instance. (Default: based on )
-# - CODE_COVERAGE_GENHTML_OPTIONS: Extra options to pass to the genhtml
-# instance. (Default: )
-# - CODE_COVERAGE_IGNORE_PATTERN: Extra glob pattern of files to ignore
-#
-# The generated report will be titled using the $(PACKAGE_NAME) and
-# $(PACKAGE_VERSION). In order to add the current git hash to the title,
-# use the git-version-gen script, available online.
-# Optional variables
-# run only on top dir
-@CODE_COVERAGE_ENABLED_TRUE@ ifeq ($(abs_builddir), $(abs_top_builddir))
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_DIRECTORY ?= $(top_builddir)
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_OUTPUT_FILE ?= $(PACKAGE_NAME)-$(PACKAGE_VERSION)-coverage.info
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_OUTPUT_DIRECTORY ?= $(PACKAGE_NAME)-$(PACKAGE_VERSION)-coverage
-
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_BRANCH_COVERAGE ?=
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_LCOV_SHOPTS_DEFAULT ?= $(if $(CODE_COVERAGE_BRANCH_COVERAGE),--rc lcov_branch_coverage=$(CODE_COVERAGE_BRANCH_COVERAGE))
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_LCOV_SHOPTS ?= $(CODE_COVERAGE_LCOV_SHOPTS_DEFAULT)
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_LCOV_OPTIONS_GCOVPATH ?= --gcov-tool "$(GCOV)"
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_LCOV_OPTIONS_DEFAULT ?= $(CODE_COVERAGE_LCOV_OPTIONS_GCOVPATH)
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_LCOV_OPTIONS ?= $(CODE_COVERAGE_LCOV_OPTIONS_DEFAULT)
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_LCOV_RMOPTS_DEFAULT ?=
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_LCOV_RMOPTS ?= $(CODE_COVERAGE_LCOV_RMOPTS_DEFAULT)
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_GENHTML_OPTIONS_DEFAULT ?=$(if $(CODE_COVERAGE_BRANCH_COVERAGE),--rc genhtml_branch_coverage=$(CODE_COVERAGE_BRANCH_COVERAGE))
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_GENHTML_OPTIONS ?= $(CODE_COVERAGE_GENHTML_OPTIONS_DEFAULT)
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_IGNORE_PATTERN ?=
-
-# Use recursive makes in order to ignore errors during check
-@CODE_COVERAGE_ENABLED_TRUE@check-code-coverage:
-@CODE_COVERAGE_ENABLED_TRUE@ -$(AM_V_at)$(MAKE) $(AM_MAKEFLAGS) -k check
-@CODE_COVERAGE_ENABLED_TRUE@ $(AM_V_at)$(MAKE) $(AM_MAKEFLAGS) code-coverage-capture
-
-# Capture code coverage data
-@CODE_COVERAGE_ENABLED_TRUE@code-coverage-capture: code-coverage-capture-hook
-@CODE_COVERAGE_ENABLED_TRUE@ $(code_coverage_v_lcov_cap)$(LCOV) $(code_coverage_quiet) $(addprefix --directory ,$(CODE_COVERAGE_DIRECTORY)) --capture --output-file "$(CODE_COVERAGE_OUTPUT_FILE).tmp" --test-name "$(call code_coverage_sanitize,$(PACKAGE_NAME)-$(PACKAGE_VERSION))" --no-checksum --compat-libtool $(CODE_COVERAGE_LCOV_SHOPTS) $(CODE_COVERAGE_LCOV_OPTIONS)
-@CODE_COVERAGE_ENABLED_TRUE@ $(code_coverage_v_lcov_ign)$(LCOV) $(code_coverage_quiet) $(addprefix --directory ,$(CODE_COVERAGE_DIRECTORY)) --remove "$(CODE_COVERAGE_OUTPUT_FILE).tmp" "/tmp/*" $(CODE_COVERAGE_IGNORE_PATTERN) --output-file "$(CODE_COVERAGE_OUTPUT_FILE)" $(CODE_COVERAGE_LCOV_SHOPTS) $(CODE_COVERAGE_LCOV_RMOPTS)
-@CODE_COVERAGE_ENABLED_TRUE@ -@rm -f "$(CODE_COVERAGE_OUTPUT_FILE).tmp"
-@CODE_COVERAGE_ENABLED_TRUE@ $(code_coverage_v_genhtml)LANG=C $(GENHTML) $(code_coverage_quiet) $(addprefix --prefix ,$(CODE_COVERAGE_DIRECTORY)) --output-directory "$(CODE_COVERAGE_OUTPUT_DIRECTORY)" --title "$(PACKAGE_NAME)-$(PACKAGE_VERSION) Code Coverage" --legend --show-details "$(CODE_COVERAGE_OUTPUT_FILE)" $(CODE_COVERAGE_GENHTML_OPTIONS)
-@CODE_COVERAGE_ENABLED_TRUE@ @echo "file://$(abs_builddir)/$(CODE_COVERAGE_OUTPUT_DIRECTORY)/index.html"
-
-@CODE_COVERAGE_ENABLED_TRUE@code-coverage-clean:
-@CODE_COVERAGE_ENABLED_TRUE@ -$(LCOV) --directory $(top_builddir) -z
-@CODE_COVERAGE_ENABLED_TRUE@ -rm -rf "$(CODE_COVERAGE_OUTPUT_FILE)" "$(CODE_COVERAGE_OUTPUT_FILE).tmp" "$(CODE_COVERAGE_OUTPUT_DIRECTORY)"
-@CODE_COVERAGE_ENABLED_TRUE@ -find . \( -name "*.gcda" -o -name "*.gcno" -o -name "*.gcov" \) -delete
-
-@CODE_COVERAGE_ENABLED_TRUE@code-coverage-dist-clean:
-@CODE_COVERAGE_ENABLED_TRUE@ else # ifneq ($(abs_builddir), $(abs_top_builddir))
-@CODE_COVERAGE_ENABLED_TRUE@check-code-coverage:
-
-@CODE_COVERAGE_ENABLED_TRUE@code-coverage-capture: code-coverage-capture-hook
-
-@CODE_COVERAGE_ENABLED_TRUE@code-coverage-clean:
-
-@CODE_COVERAGE_ENABLED_TRUE@code-coverage-dist-clean:
-@CODE_COVERAGE_ENABLED_TRUE@ endif # ifeq ($(abs_builddir), $(abs_top_builddir))
-# Use recursive makes in order to ignore errors during check
-@CODE_COVERAGE_ENABLED_FALSE@check-code-coverage:
-@CODE_COVERAGE_ENABLED_FALSE@ @echo "Need to reconfigure with --enable-code-coverage"
-# Capture code coverage data
-@CODE_COVERAGE_ENABLED_FALSE@code-coverage-capture: code-coverage-capture-hook
-@CODE_COVERAGE_ENABLED_FALSE@ @echo "Need to reconfigure with --enable-code-coverage"
-
-@CODE_COVERAGE_ENABLED_FALSE@code-coverage-clean:
-
-@CODE_COVERAGE_ENABLED_FALSE@code-coverage-dist-clean:
-
-# Hook rule executed before code-coverage-capture, overridable by the user
-code-coverage-capture-hook:
-
-.PHONY: check-code-coverage code-coverage-capture code-coverage-dist-clean code-coverage-clean code-coverage-capture-hook
-
-# Add rules for code-coverage testing, as provided AX_CODE_COVERAGE
-
-clean-local: code-coverage-clean
-dist-clean-local: code-coverage-dist-clean
-
-@MAKE_HAS_PREREQ_ONLY_TRUE@cobcrun.1: $(HELPSOURCES_COBCRUN) | $(COBCRUN)
-@MAKE_HAS_PREREQ_ONLY_TRUE@ "$(top_builddir)/pre-inst-env" $(HELP2MAN) --output=$@ $(HELP2MAN_OPTS) $(COBCRUN)
-@MAKE_HAS_PREREQ_ONLY_FALSE@cobcrun.1: $(HELPSOURCES_COBCRUN)
-@MAKE_HAS_PREREQ_ONLY_FALSE@ "$(top_builddir)/pre-inst-env" $(HELP2MAN) --output=$@ $(HELP2MAN_OPTS) $(COBCRUN)
-
-@MAKE_HAS_PREREQ_ONLY_TRUE@cob-config.1: $(HELPSOURCES_COBCONFIG) | ./cob-config
-@MAKE_HAS_PREREQ_ONLY_TRUE@ $(HELP2MAN) --output=$@ $(HELP2MAN_OPTS) ./cob-config
-@MAKE_HAS_PREREQ_ONLY_FALSE@ $(HELP2MAN) --output=$@ $(HELP2MAN_OPTS) ./cob-config
-
-# Tell versions [3.59,3.63) of GNU make to not export all variables.
-# Otherwise a system limit (for SysV at least) may be exceeded.
-.NOEXPORT:
diff --git a/bin/cob-config.1 b/bin/cob-config.1
deleted file mode 100644
index cd0d12e..0000000
--- a/bin/cob-config.1
+++ /dev/null
@@ -1,61 +0,0 @@
-.\" DO NOT MODIFY THIS FILE! It was generated by help2man 1.48.1.
-.TH COB-CONFIG "1" "July 2023" "cob-config 3.2.0" "User Commands"
-.SH NAME
-cob-config \- manual page for cob-config 3.2.0
-.SH SYNOPSIS
-.B cob-config
-[\fI\,options\/\fR]
-.SH DESCRIPTION
-This is a shell script which simplifies configuring applications
-against a particular version of the GnuCOBOL library.
-.PP
-echos configuration variables of libcob (GnuCOBOL).
-.SH OPTIONS
-.TP
-\fB\-\-prefix\fR
-echos the package\-prefix of libcob (GnuCOBOL)
-.TP
-\fB\-\-exec\-prefix\fR
-echos the executable\-prefix of libcob (GnuCOBOL)
-.TP
-\fB\-\-cflags\fR
-echos the C compiler flags needed to compile with libcob (GnuCOBOL)
-.TP
-\fB\-\-libs\fR
-echos the libraries needed to link with libcob (GnuCOBOL)
-.TP
-\fB\-\-version\fR
-echos the release+patchdate version of libcob (GnuCOBOL)
-.TP
-\fB\-\-bindir\fR
-echos the directory containing libcob (GnuCOBOL) programs
-.TP
-\fB\-\-datarootdir\fR
-echos the data root for libcob (GnuCOBOL)
-.TP
-\fB\-\-datadir\fR
-echos the directory containing libcob (GnuCOBOL) data
-.TP
-\fB\-\-includedir\fR
-echos the directory containing libcob (GnuCOBOL) header files
-.TP
-\fB\-\-libdir\fR
-echos the directory containing libcob (GnuCOBOL) libraries
-.TP
-\fB\-\-mandir\fR
-echos the directory containing libcob (GnuCOBOL) manpages
-.TP
-\fB\-\-help\fR
-prints this message
-.SH "SEE ALSO"
-The full documentation for
-.B cob-config
-is maintained as a Texinfo manual. If the
-.B info
-and
-.B cob-config
-programs are properly installed at your site, the command
-.IP
-.B info gnucobol
-.PP
-should give you access to the complete manual.
diff --git a/bin/cobcrun.1 b/bin/cobcrun.1
deleted file mode 100644
index 97cc013..0000000
--- a/bin/cobcrun.1
+++ /dev/null
@@ -1,81 +0,0 @@
-.\" DO NOT MODIFY THIS FILE! It was generated by help2man 1.48.1.
-.TH COBCRUN "1" "July 2023" "GnuCOBOL 3.2.0" "User Commands"
-.SH NAME
-cobcrun \- manual page for cobcrun 3.2.0
-.SH SYNOPSIS
-.B cobcrun
-[\fI\,options\/\fR] \fI\,PROGRAM \/\fR[\fI\,parameter \/\fR...]
-.br
-.B cobcrun
-\fI\,options\/\fR
-.SH DESCRIPTION
-GnuCOBOL module loader
-.SH OPTIONS
-.TP
-\fB\-h\fR, \fB\-\-help\fR
-display this help and exit
-.TP
-\fB\-V\fR, \fB\-\-version\fR
-display version information for cobcrun + runtime and exit
-.TP
-\fB\-dumpversion\fR
-display runtime version and exit
-.TP
-\fB\-i\fR, \fB\-\-info\fR
-display runtime information (build/environment)
-.TP
-\fB\-v\fR, \fB\-\-verbose\fR
-display extended output with \fB\-\-info\fR
-.TP
-\fB\-c\fR , \fB\-\-config=\fR
-set runtime configuration from
-.TP
-\fB\-r\fR, \fB\-\-runtime\-config\fR
-display current runtime configuration
-(value and origin for all settings)
-.TP
-\fB\-M\fR , \fB\-\-module=\fR
-set entry point module name and/or load path
-where \fB\-M\fR module prepends any directory to the
-dynamic link loader library search path
-and any basename to the module preload list
-(COB_LIBRARY_PATH and/or COB_PRELOAD)
-.SH AUTHOR
-Written by Roger While, Simon Sobisch, Brian Tiffin
-Built Jul 28 2023 19:20:43
-Packaged Jul 28 2023 17:02:56 UTC
-.PP
-libcob (GnuCOBOL) 3.2.0
-Copyright \(co 2023 Free Software Foundation, Inc.
-License LGPLv3+: GNU LGPL version 3 or later
-This is free software; see the source for copying conditions. There is NO
-warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-.PP
-Written by Keisuke Nishida, Roger While, Ron Norman, Simon Sobisch, Edward Hart
-Built Jul 28 2023 19:20:42
-Packaged Jul 28 2023 17:02:56 UTC
-.SH "REPORTING BUGS"
-Report bugs to: bug\-gnucobol@gnu.org
-or (preferably) use the issue tracker via the home page.
-.br
-GnuCOBOL home page:
-.br
-General help using GNU software:
-.SH COPYRIGHT
-Copyright \(co 2023 Free Software Foundation, Inc.
-License GPLv3+: GNU GPL version 3 or later
-.br
-This is free software; see the source for copying conditions. There is NO
-warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-.SH "SEE ALSO"
-The full documentation for
-.B cobcrun
-is maintained as a Texinfo manual. If the
-.B info
-and
-.B cobcrun
-programs are properly installed at your site, the command
-.IP
-.B info gnucobol
-.PP
-should give you access to the complete manual.
diff --git a/build_aux/compile b/build_aux/compile
old mode 100644
new mode 100755
diff --git a/cobc/Makefile.in b/cobc/Makefile.in
deleted file mode 100644
index 497caa3..0000000
--- a/cobc/Makefile.in
+++ /dev/null
@@ -1,1071 +0,0 @@
-# Makefile.in generated by automake 1.16.3 from Makefile.am.
-# @configure_input@
-
-# Copyright (C) 1994-2020 Free Software Foundation, Inc.
-
-# This Makefile.in is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
-# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
-# PARTICULAR PURPOSE.
-
-@SET_MAKE@
-
-#
-# Makefile gnucobol/cobc
-#
-# Copyright (C) 2003-2012, 2014-2021 Free Software Foundation, Inc.
-# Written by Keisuke Nishida, Roger While, Simon Sobisch
-#
-# 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 .
-
-# aminclude_static.am generated automatically by Autoconf
-# from AX_AM_MACROS_STATIC on Fri Jul 28 19:17:12 CEST 2023
-
-VPATH = @srcdir@
-am__is_gnu_make = { \
- if test -z '$(MAKELEVEL)'; then \
- false; \
- elif test -n '$(MAKE_HOST)'; then \
- true; \
- elif test -n '$(MAKE_VERSION)' && test -n '$(CURDIR)'; then \
- true; \
- else \
- false; \
- fi; \
-}
-am__make_running_with_option = \
- case $${target_option-} in \
- ?) ;; \
- *) echo "am__make_running_with_option: internal error: invalid" \
- "target option '$${target_option-}' specified" >&2; \
- exit 1;; \
- esac; \
- has_opt=no; \
- sane_makeflags=$$MAKEFLAGS; \
- if $(am__is_gnu_make); then \
- sane_makeflags=$$MFLAGS; \
- else \
- case $$MAKEFLAGS in \
- *\\[\ \ ]*) \
- bs=\\; \
- sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \
- | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \
- esac; \
- fi; \
- skip_next=no; \
- strip_trailopt () \
- { \
- flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \
- }; \
- for flg in $$sane_makeflags; do \
- test $$skip_next = yes && { skip_next=no; continue; }; \
- case $$flg in \
- *=*|--*) continue;; \
- -*I) strip_trailopt 'I'; skip_next=yes;; \
- -*I?*) strip_trailopt 'I';; \
- -*O) strip_trailopt 'O'; skip_next=yes;; \
- -*O?*) strip_trailopt 'O';; \
- -*l) strip_trailopt 'l'; skip_next=yes;; \
- -*l?*) strip_trailopt 'l';; \
- -[dEDm]) skip_next=yes;; \
- -[JT]) skip_next=yes;; \
- esac; \
- case $$flg in \
- *$$target_option*) has_opt=yes; break;; \
- esac; \
- done; \
- test $$has_opt = yes
-am__make_dryrun = (target_option=n; $(am__make_running_with_option))
-am__make_keepgoing = (target_option=k; $(am__make_running_with_option))
-pkgdatadir = $(datadir)/@PACKAGE@
-pkgincludedir = $(includedir)/@PACKAGE@
-pkglibdir = $(libdir)/@PACKAGE@
-pkglibexecdir = $(libexecdir)/@PACKAGE@
-am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
-install_sh_DATA = $(install_sh) -c -m 644
-install_sh_PROGRAM = $(install_sh) -c
-install_sh_SCRIPT = $(install_sh) -c
-INSTALL_HEADER = $(INSTALL_DATA)
-transform = $(program_transform_name)
-NORMAL_INSTALL = :
-PRE_INSTALL = :
-POST_INSTALL = :
-NORMAL_UNINSTALL = :
-PRE_UNINSTALL = :
-POST_UNINSTALL = :
-build_triplet = @build@
-host_triplet = @host@
-bin_PROGRAMS = cobc$(EXEEXT)
-subdir = cobc
-ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
-am__aclocal_m4_deps = $(top_srcdir)/m4/ax_ac_append_to_file.m4 \
- $(top_srcdir)/m4/ax_ac_define_resolved.m4 \
- $(top_srcdir)/m4/ax_ac_print_to_file.m4 \
- $(top_srcdir)/m4/ax_add_am_macro_static.m4 \
- $(top_srcdir)/m4/ax_am_macros_static.m4 \
- $(top_srcdir)/m4/ax_check_define.m4 \
- $(top_srcdir)/m4/ax_check_gnu_make.m4 \
- $(top_srcdir)/m4/ax_code_coverage.m4 \
- $(top_srcdir)/m4/ax_file_escapes.m4 \
- $(top_srcdir)/m4/ax_prog_bison.m4 \
- $(top_srcdir)/m4/ax_prog_flex.m4 $(top_srcdir)/m4/codeset.m4 \
- $(top_srcdir)/m4/gettext.m4 $(top_srcdir)/m4/iconv.m4 \
- $(top_srcdir)/m4/intlmacosx.m4 $(top_srcdir)/m4/lib-ld.m4 \
- $(top_srcdir)/m4/lib-link.m4 $(top_srcdir)/m4/lib-prefix.m4 \
- $(top_srcdir)/m4/libtool.m4 $(top_srcdir)/m4/ltoptions.m4 \
- $(top_srcdir)/m4/ltsugar.m4 $(top_srcdir)/m4/ltversion.m4 \
- $(top_srcdir)/m4/lt~obsolete.m4 $(top_srcdir)/m4/nls.m4 \
- $(top_srcdir)/m4/pkg.m4 $(top_srcdir)/m4/po.m4 \
- $(top_srcdir)/m4/progtest.m4 $(top_srcdir)/configure.ac
-am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
- $(ACLOCAL_M4)
-DIST_COMMON = $(srcdir)/Makefile.am $(am__DIST_COMMON)
-mkinstalldirs = $(SHELL) $(top_srcdir)/build_aux/mkinstalldirs
-CONFIG_HEADER = $(top_builddir)/config.h
-CONFIG_CLEAN_FILES =
-CONFIG_CLEAN_VPATH_FILES =
-am__installdirs = "$(DESTDIR)$(bindir)" "$(DESTDIR)$(man1dir)"
-PROGRAMS = $(bin_PROGRAMS)
-am_cobc_OBJECTS = cobc.$(OBJEXT) ppparse.$(OBJEXT) pplex.$(OBJEXT) \
- parser.$(OBJEXT) scanner.$(OBJEXT) config.$(OBJEXT) \
- reserved.$(OBJEXT) error.$(OBJEXT) tree.$(OBJEXT) \
- field.$(OBJEXT) typeck.$(OBJEXT) codegen.$(OBJEXT) \
- help.$(OBJEXT) codeoptim.$(OBJEXT) replace.$(OBJEXT)
-cobc_OBJECTS = $(am_cobc_OBJECTS)
-am__DEPENDENCIES_1 =
-cobc_DEPENDENCIES = $(top_builddir)/libcob/libcob.la \
- $(top_builddir)/lib/libsupport.la $(am__DEPENDENCIES_1) \
- $(am__DEPENDENCIES_1)
-AM_V_lt = $(am__v_lt_@AM_V@)
-am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@)
-am__v_lt_0 = --silent
-am__v_lt_1 =
-AM_V_P = $(am__v_P_@AM_V@)
-am__v_P_ = $(am__v_P_@AM_DEFAULT_V@)
-am__v_P_0 = false
-am__v_P_1 = :
-AM_V_GEN = $(am__v_GEN_@AM_V@)
-am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@)
-am__v_GEN_0 = @echo " GEN " $@;
-am__v_GEN_1 =
-AM_V_at = $(am__v_at_@AM_V@)
-am__v_at_ = $(am__v_at_@AM_DEFAULT_V@)
-am__v_at_0 = @
-am__v_at_1 =
-DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir)
-depcomp = $(SHELL) $(top_srcdir)/build_aux/depcomp
-am__maybe_remake_depfiles = depfiles
-am__depfiles_remade = ./$(DEPDIR)/cobc.Po ./$(DEPDIR)/codegen.Po \
- ./$(DEPDIR)/codeoptim.Po ./$(DEPDIR)/config.Po \
- ./$(DEPDIR)/error.Po ./$(DEPDIR)/field.Po ./$(DEPDIR)/help.Po \
- ./$(DEPDIR)/parser.Po ./$(DEPDIR)/pplex.Po \
- ./$(DEPDIR)/ppparse.Po ./$(DEPDIR)/replace.Po \
- ./$(DEPDIR)/reserved.Po ./$(DEPDIR)/scanner.Po \
- ./$(DEPDIR)/tree.Po ./$(DEPDIR)/typeck.Po
-am__mv = mv -f
-COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \
- $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)
-LTCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \
- $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) \
- $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \
- $(AM_CFLAGS) $(CFLAGS)
-AM_V_CC = $(am__v_CC_@AM_V@)
-am__v_CC_ = $(am__v_CC_@AM_DEFAULT_V@)
-am__v_CC_0 = @echo " CC " $@;
-am__v_CC_1 =
-CCLD = $(CC)
-LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \
- $(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \
- $(AM_LDFLAGS) $(LDFLAGS) -o $@
-AM_V_CCLD = $(am__v_CCLD_@AM_V@)
-am__v_CCLD_ = $(am__v_CCLD_@AM_DEFAULT_V@)
-am__v_CCLD_0 = @echo " CCLD " $@;
-am__v_CCLD_1 =
-am__yacc_c2h = sed -e s/cc$$/hh/ -e s/cpp$$/hpp/ -e s/cxx$$/hxx/ \
- -e s/c++$$/h++/ -e s/c$$/h/
-YACCCOMPILE = $(YACC) $(AM_YFLAGS) $(YFLAGS)
-LTYACCCOMPILE = $(LIBTOOL) $(AM_V_lt) $(AM_LIBTOOLFLAGS) \
- $(LIBTOOLFLAGS) --mode=compile $(YACC) $(AM_YFLAGS) $(YFLAGS)
-AM_V_YACC = $(am__v_YACC_@AM_V@)
-am__v_YACC_ = $(am__v_YACC_@AM_DEFAULT_V@)
-am__v_YACC_0 = @echo " YACC " $@;
-am__v_YACC_1 =
-YLWRAP = $(top_srcdir)/build_aux/ylwrap
-SOURCES = $(cobc_SOURCES)
-DIST_SOURCES = $(cobc_SOURCES)
-am__can_run_installinfo = \
- case $$AM_UPDATE_INFO_DIR in \
- n|no|NO) false;; \
- *) (install-info --version) >/dev/null 2>&1;; \
- esac
-am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
-am__vpath_adj = case $$p in \
- $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
- *) f=$$p;; \
- esac;
-am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`;
-am__install_max = 40
-am__nobase_strip_setup = \
- srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'`
-am__nobase_strip = \
- for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||"
-am__nobase_list = $(am__nobase_strip_setup); \
- for p in $$list; do echo "$$p $$p"; done | \
- sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \
- $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \
- if (++n[$$2] == $(am__install_max)) \
- { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \
- END { for (dir in files) print dir, files[dir] }'
-am__base_list = \
- sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \
- sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g'
-am__uninstall_files_from_dir = { \
- test -z "$$files" \
- || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \
- || { echo " ( cd '$$dir' && rm -f" $$files ")"; \
- $(am__cd) "$$dir" && rm -f $$files; }; \
- }
-man1dir = $(mandir)/man1
-NROFF = nroff
-MANS = $(dist_man_MANS)
-am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP)
-# Read a list of newline-separated strings from the standard input,
-# and print each of them once, without duplicates. Input order is
-# *not* preserved.
-am__uniquify_input = $(AWK) '\
- BEGIN { nonempty = 0; } \
- { items[$$0] = 1; nonempty = 1; } \
- END { if (nonempty) { for (i in items) print i; }; } \
-'
-# Make sure the list of sources is unique. This is necessary because,
-# e.g., the same source file might be shared among _SOURCES variables
-# for different programs/libraries.
-am__define_uniq_tagged_files = \
- list='$(am__tagged_files)'; \
- unique=`for i in $$list; do \
- if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
- done | $(am__uniquify_input)`
-ETAGS = etags
-CTAGS = ctags
-am__DIST_COMMON = $(dist_man_MANS) $(srcdir)/Makefile.in \
- $(top_srcdir)/aminclude_static.am \
- $(top_srcdir)/build_aux/depcomp \
- $(top_srcdir)/build_aux/mkinstalldirs \
- $(top_srcdir)/build_aux/ylwrap ChangeLog parser.c ppparse.c
-DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
-ACLOCAL = @ACLOCAL@
-AMTAR = @AMTAR@
-AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@
-AR = @AR@
-AS = @AS@
-AUTOCONF = @AUTOCONF@
-AUTOHEADER = @AUTOHEADER@
-AUTOMAKE = @AUTOMAKE@
-AWK = @AWK@
-BDB_CFLAGS = @BDB_CFLAGS@
-BDB_LIBS = @BDB_LIBS@
-CC = @CC@
-CCDEPMODE = @CCDEPMODE@
-CFLAGS = @CFLAGS@
-CJSON_CFLAGS = @CJSON_CFLAGS@
-CJSON_LIBS = @CJSON_LIBS@
-COBC_CPPFLAGS = @COBC_CPPFLAGS@
-COB_BIGENDIAN = @COB_BIGENDIAN@
-COB_CC = @COB_CC@
-COB_CFLAGS = @COB_CFLAGS@
-COB_CONFIG_DIR = @COB_CONFIG_DIR@
-COB_COPY_DIR = @COB_COPY_DIR@
-COB_ENABLE_DEBUG = @COB_ENABLE_DEBUG@
-COB_EXE_EXT = @COB_EXE_EXT@
-COB_FIX_LIBTOOL = @COB_FIX_LIBTOOL@
-COB_HAS_64_BIT_POINTER = @COB_HAS_64_BIT_POINTER@
-COB_HAS_CURSES = @COB_HAS_CURSES@
-COB_HAS_ISAM = @COB_HAS_ISAM@
-COB_HAS_JSON = @COB_HAS_JSON@
-COB_HAS_XML2 = @COB_HAS_XML2@
-COB_LDFLAGS = @COB_LDFLAGS@
-COB_LIBRARY_PATH = @COB_LIBRARY_PATH@
-COB_LIBS = @COB_LIBS@
-COB_MODULE_EXT = @COB_MODULE_EXT@
-COB_OBJECT_EXT = @COB_OBJECT_EXT@
-COB_PATCH_LEVEL = @COB_PATCH_LEVEL@
-CODE_COVERAGE_CFLAGS = @CODE_COVERAGE_CFLAGS@
-CODE_COVERAGE_CPPFLAGS = @CODE_COVERAGE_CPPFLAGS@
-CODE_COVERAGE_CXXFLAGS = @CODE_COVERAGE_CXXFLAGS@
-CODE_COVERAGE_ENABLED = @CODE_COVERAGE_ENABLED@
-CODE_COVERAGE_LIBS = @CODE_COVERAGE_LIBS@
-CPP = @CPP@
-CPPFLAGS = @CPPFLAGS@
-CURSES_LIBS = @CURSES_LIBS@
-CYGPATH_W = @CYGPATH_W@
-DEFS = @DEFS@
-DEPDIR = @DEPDIR@
-DIFF_FLAGS = @DIFF_FLAGS@
-DLLTOOL = @DLLTOOL@
-DSYMUTIL = @DSYMUTIL@
-DUMPBIN = @DUMPBIN@
-ECHO_C = @ECHO_C@
-ECHO_N = @ECHO_N@
-ECHO_T = @ECHO_T@
-EGREP = @EGREP@
-EXEEXT = @EXEEXT@
-FGREP = @FGREP@
-GCOV = @GCOV@
-GENHTML = @GENHTML@
-GETTEXT_MACRO_VERSION = @GETTEXT_MACRO_VERSION@
-GMP_CFLAGS = @GMP_CFLAGS@
-GMP_LIBS = @GMP_LIBS@
-GMSGFMT = @GMSGFMT@
-GMSGFMT_015 = @GMSGFMT_015@
-GREP = @GREP@
-HELP2MAN = @HELP2MAN@
-INSTALL = @INSTALL@
-INSTALL_DATA = @INSTALL_DATA@
-INSTALL_PROGRAM = @INSTALL_PROGRAM@
-INSTALL_SCRIPT = @INSTALL_SCRIPT@
-INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
-INTLLIBS = @INTLLIBS@
-INTL_MACOSX_LIBS = @INTL_MACOSX_LIBS@
-JSON_C_CFLAGS = @JSON_C_CFLAGS@
-JSON_C_LIBS = @JSON_C_LIBS@
-LCOV = @LCOV@
-LD = @LD@
-LDFLAGS = @LDFLAGS@
-LEX = @LEX@
-LEXLIB = @LEXLIB@
-LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@
-LIBCOB_CPPFLAGS = @LIBCOB_CPPFLAGS@
-LIBCOB_LIBS = @LIBCOB_LIBS@
-LIBICONV = @LIBICONV@
-LIBINTL = @LIBINTL@
-LIBOBJS = @LIBOBJS@
-LIBS = @LIBS@
-LIBTOOL = @LIBTOOL@
-LIPO = @LIPO@
-LN_S = @LN_S@
-LTLIBICONV = @LTLIBICONV@
-LTLIBINTL = @LTLIBINTL@
-LTLIBOBJS = @LTLIBOBJS@
-LT_SYS_LIBRARY_PATH = @LT_SYS_LIBRARY_PATH@
-MAKE = @MAKE@
-MAKEINFO = @MAKEINFO@
-MANIFEST_TOOL = @MANIFEST_TOOL@
-MKDIR_P = @MKDIR_P@
-MPIR_CFLAGS = @MPIR_CFLAGS@
-MPIR_LIBS = @MPIR_LIBS@
-MSGFMT = @MSGFMT@
-MSGMERGE = @MSGMERGE@
-MSGMERGE_FOR_MSGFMT_OPTION = @MSGMERGE_FOR_MSGFMT_OPTION@
-NM = @NM@
-NMEDIT = @NMEDIT@
-OBJDUMP = @OBJDUMP@
-OBJEXT = @OBJEXT@
-OTOOL = @OTOOL@
-OTOOL64 = @OTOOL64@
-PACKAGE = @PACKAGE@
-PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
-PACKAGE_NAME = @PACKAGE_NAME@
-PACKAGE_STRING = @PACKAGE_STRING@
-PACKAGE_TARNAME = @PACKAGE_TARNAME@
-PACKAGE_URL = @PACKAGE_URL@
-PACKAGE_VERSION = @PACKAGE_VERSION@
-PATH_SEPARATOR = @PATH_SEPARATOR@
-PERL = @PERL@
-PKG_CONFIG = @PKG_CONFIG@
-PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@
-PKG_CONFIG_PATH = @PKG_CONFIG_PATH@
-POSUB = @POSUB@
-PROGRAMS_LIBS = @PROGRAMS_LIBS@
-QUOTE_INCLUDE_FLAG = @QUOTE_INCLUDE_FLAG@
-RANLIB = @RANLIB@
-RC = @RC@
-SED = @SED@
-SET_MAKE = @SET_MAKE@
-SHELL = @SHELL@
-STRIP = @STRIP@
-USE_NLS = @USE_NLS@
-VERSION = @VERSION@
-XGETTEXT = @XGETTEXT@
-XGETTEXT_015 = @XGETTEXT_015@
-XGETTEXT_EXTRA_OPTIONS = @XGETTEXT_EXTRA_OPTIONS@
-XML2_CFLAGS = @XML2_CFLAGS@
-XML2_CONFIG = @XML2_CONFIG@
-XML2_LIBS = @XML2_LIBS@
-YACC = @YACC@
-YFLAGS = @YFLAGS@
-abs_builddir = @abs_builddir@
-abs_srcdir = @abs_srcdir@
-abs_top_builddir = @abs_top_builddir@
-abs_top_srcdir = @abs_top_srcdir@
-ac_ct_AR = @ac_ct_AR@
-ac_ct_CC = @ac_ct_CC@
-ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
-am__include = @am__include@
-am__leading_dot = @am__leading_dot@
-am__quote = @am__quote@
-am__tar = @am__tar@
-am__untar = @am__untar@
-bindir = @bindir@
-build = @build@
-build_alias = @build_alias@
-build_cpu = @build_cpu@
-build_os = @build_os@
-build_vendor = @build_vendor@
-builddir = @builddir@
-configured_make = @configured_make@
-datadir = @datadir@
-datarootdir = @datarootdir@
-docdir = @docdir@
-dvidir = @dvidir@
-exec_prefix = @exec_prefix@
-host = @host@
-host_alias = @host_alias@
-host_cpu = @host_cpu@
-host_os = @host_os@
-host_vendor = @host_vendor@
-htmldir = @htmldir@
-ifGNUmake = @ifGNUmake@
-ifnGNUmake = @ifnGNUmake@
-includedir = @includedir@
-infodir = @infodir@
-install_sh = @install_sh@
-libdir = @libdir@
-libexecdir = @libexecdir@
-localedir = @localedir@
-localstatedir = @localstatedir@
-mandir = @mandir@
-mkdir_p = @mkdir_p@
-oldincludedir = @oldincludedir@
-pdfdir = @pdfdir@
-prefix = @prefix@
-program_transform_name = @program_transform_name@
-psdir = @psdir@
-runstatedir = @runstatedir@
-sbindir = @sbindir@
-sharedstatedir = @sharedstatedir@
-srcdir = @srcdir@
-sysconfdir = @sysconfdir@
-target_alias = @target_alias@
-top_build_prefix = @top_build_prefix@
-top_builddir = @top_builddir@
-top_srcdir = @top_srcdir@
-cobc_SOURCES = cobc.c cobc.h ppparse.y pplex.c parser.y scanner.c config.c \
- reserved.c error.c tree.c tree.h field.c typeck.c codegen.c help.c \
- config.def flag.def warning.def codeoptim.def ppparse.def \
- codeoptim.c replace.c
-
-
-#cobc_SOURCES = cobc.c cobc.h ppparse.y pplex.l parser.y scanner.l config.c
-AM_CPPFLAGS = -I$(top_srcdir) -I$(top_builddir)/lib -I$(top_srcdir)/lib \
- $(COBC_CPPFLAGS)
-
-AM_CFLAGS = $(CODE_COVERAGE_CFLAGS)
-cobc_LDADD = $(top_builddir)/libcob/libcob.la \
- $(top_builddir)/lib/libsupport.la \
- $(PROGRAMS_LIBS) $(CODE_COVERAGE_LIBS)
-
-dist_man_MANS = cobc.1
-COBC = cobc$(EXEEXT)
-
-# sources that needs to be built *before* any other file
-# note: we actually want their header files...
-BUILT_SOURCES = ppparse.c parser.c
-EXTRA_DIST = pplex.l scanner.l ppparse.h parser.h
-MAINTAINERCLEANFILES = pplex.c scanner.c ppparse.h parser.h cobc.1
-CLEANFILES = parser.output ppparse.output
-@CODE_COVERAGE_ENABLED_TRUE@GITIGNOREFILES := $(GITIGNOREFILES) $(CODE_COVERAGE_OUTPUT_FILE) $(CODE_COVERAGE_OUTPUT_DIRECTORY)
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_lcov_cap = $(code_coverage_v_lcov_cap_$(V))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_lcov_cap_ = $(code_coverage_v_lcov_cap_$(AM_DEFAULT_VERBOSITY))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_lcov_cap_0 = @echo " LCOV --capture" $(CODE_COVERAGE_OUTPUT_FILE);
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_lcov_ign = $(code_coverage_v_lcov_ign_$(V))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_lcov_ign_ = $(code_coverage_v_lcov_ign_$(AM_DEFAULT_VERBOSITY))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_lcov_ign_0 = @echo " LCOV --remove /tmp/*" $(CODE_COVERAGE_IGNORE_PATTERN);
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_genhtml = $(code_coverage_v_genhtml_$(V))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_genhtml_ = $(code_coverage_v_genhtml_$(AM_DEFAULT_VERBOSITY))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_genhtml_0 = @echo " GEN " "$(CODE_COVERAGE_OUTPUT_DIRECTORY)";
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_quiet = $(code_coverage_quiet_$(V))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_quiet_ = $(code_coverage_quiet_$(AM_DEFAULT_VERBOSITY))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_quiet_0 = --quiet
-
-# sanitizes the test-name: replaces with underscores: dashes and dots
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_sanitize = $(subst -,_,$(subst .,_,$(1)))
-@CODE_COVERAGE_ENABLED_TRUE@AM_DISTCHECK_CONFIGURE_FLAGS := $(AM_DISTCHECK_CONFIGURE_FLAGS) --disable-code-coverage
-CODE_COVERAGE_BRANCH_COVERAGE = 1
-CODE_COVERAGE_LCOV_OPTIONS = --no-external
-HELPSOURCES = help.c config.def flag.def warning.def $(top_srcdir)/configure.ac
-HELP2MAN_OPTS = --info-page=$(PACKAGE)
-all: $(BUILT_SOURCES)
- $(MAKE) $(AM_MAKEFLAGS) all-am
-
-.SUFFIXES:
-.SUFFIXES: .c .l .lo .o .obj .y
-$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/aminclude_static.am $(am__configure_deps)
- @for dep in $?; do \
- case '$(am__configure_deps)' in \
- *$$dep*) \
- ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
- && { if test -f $@; then exit 0; else break; fi; }; \
- exit 1;; \
- esac; \
- done; \
- echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu cobc/Makefile'; \
- $(am__cd) $(top_srcdir) && \
- $(AUTOMAKE) --gnu cobc/Makefile
-Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
- @case '$?' in \
- *config.status*) \
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
- *) \
- echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__maybe_remake_depfiles)'; \
- cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__maybe_remake_depfiles);; \
- esac;
-$(top_srcdir)/aminclude_static.am $(am__empty):
-
-$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-
-$(top_srcdir)/configure: $(am__configure_deps)
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-$(ACLOCAL_M4): $(am__aclocal_m4_deps)
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-$(am__aclocal_m4_deps):
-install-binPROGRAMS: $(bin_PROGRAMS)
- @$(NORMAL_INSTALL)
- @list='$(bin_PROGRAMS)'; test -n "$(bindir)" || list=; \
- if test -n "$$list"; then \
- echo " $(MKDIR_P) '$(DESTDIR)$(bindir)'"; \
- $(MKDIR_P) "$(DESTDIR)$(bindir)" || exit 1; \
- fi; \
- for p in $$list; do echo "$$p $$p"; done | \
- sed 's/$(EXEEXT)$$//' | \
- while read p p1; do if test -f $$p \
- || test -f $$p1 \
- ; then echo "$$p"; echo "$$p"; else :; fi; \
- done | \
- sed -e 'p;s,.*/,,;n;h' \
- -e 's|.*|.|' \
- -e 'p;x;s,.*/,,;s/$(EXEEXT)$$//;$(transform);s/$$/$(EXEEXT)/' | \
- sed 'N;N;N;s,\n, ,g' | \
- $(AWK) 'BEGIN { files["."] = ""; dirs["."] = 1 } \
- { d=$$3; if (dirs[d] != 1) { print "d", d; dirs[d] = 1 } \
- if ($$2 == $$4) files[d] = files[d] " " $$1; \
- else { print "f", $$3 "/" $$4, $$1; } } \
- END { for (d in files) print "f", d, files[d] }' | \
- while read type dir files; do \
- if test "$$dir" = .; then dir=; else dir=/$$dir; fi; \
- test -z "$$files" || { \
- echo " $(INSTALL_PROGRAM_ENV) $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL_PROGRAM) $$files '$(DESTDIR)$(bindir)$$dir'"; \
- $(INSTALL_PROGRAM_ENV) $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL_PROGRAM) $$files "$(DESTDIR)$(bindir)$$dir" || exit $$?; \
- } \
- ; done
-
-uninstall-binPROGRAMS:
- @$(NORMAL_UNINSTALL)
- @list='$(bin_PROGRAMS)'; test -n "$(bindir)" || list=; \
- files=`for p in $$list; do echo "$$p"; done | \
- sed -e 'h;s,^.*/,,;s/$(EXEEXT)$$//;$(transform)' \
- -e 's/$$/$(EXEEXT)/' \
- `; \
- test -n "$$list" || exit 0; \
- echo " ( cd '$(DESTDIR)$(bindir)' && rm -f" $$files ")"; \
- cd "$(DESTDIR)$(bindir)" && rm -f $$files
-
-clean-binPROGRAMS:
- @list='$(bin_PROGRAMS)'; test -n "$$list" || exit 0; \
- echo " rm -f" $$list; \
- rm -f $$list || exit $$?; \
- test -n "$(EXEEXT)" || exit 0; \
- list=`for p in $$list; do echo "$$p"; done | sed 's/$(EXEEXT)$$//'`; \
- echo " rm -f" $$list; \
- rm -f $$list
-
-cobc$(EXEEXT): $(cobc_OBJECTS) $(cobc_DEPENDENCIES) $(EXTRA_cobc_DEPENDENCIES)
- @rm -f cobc$(EXEEXT)
- $(AM_V_CCLD)$(LINK) $(cobc_OBJECTS) $(cobc_LDADD) $(LIBS)
-
-mostlyclean-compile:
- -rm -f *.$(OBJEXT)
-
-distclean-compile:
- -rm -f *.tab.c
-
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cobc.Po@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/codegen.Po@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/codeoptim.Po@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/config.Po@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/error.Po@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/field.Po@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/help.Po@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/parser.Po@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pplex.Po@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/ppparse.Po@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/replace.Po@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/reserved.Po@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/scanner.Po@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tree.Po@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/typeck.Po@am__quote@ # am--include-marker
-
-$(am__depfiles_remade):
- @$(MKDIR_P) $(@D)
- @echo '# dummy' >$@-t && $(am__mv) $@-t $@
-
-am--depfiles: $(am__depfiles_remade)
-
-.c.o:
-@am__fastdepCC_TRUE@ $(AM_V_CC)$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $<
-@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ $<
-
-.c.obj:
-@am__fastdepCC_TRUE@ $(AM_V_CC)$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'`
-@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ `$(CYGPATH_W) '$<'`
-
-.c.lo:
-@am__fastdepCC_TRUE@ $(AM_V_CC)$(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $<
-@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LTCOMPILE) -c -o $@ $<
-
-.y.c:
- $(AM_V_YACC)$(am__skipyacc) $(SHELL) $(YLWRAP) $< y.tab.c $@ y.tab.h `echo $@ | $(am__yacc_c2h)` y.output $*.output -- $(YACCCOMPILE)
-
-mostlyclean-libtool:
- -rm -f *.lo
-
-clean-libtool:
- -rm -rf .libs _libs
-install-man1: $(dist_man_MANS)
- @$(NORMAL_INSTALL)
- @list1=''; \
- list2='$(dist_man_MANS)'; \
- test -n "$(man1dir)" \
- && test -n "`echo $$list1$$list2`" \
- || exit 0; \
- echo " $(MKDIR_P) '$(DESTDIR)$(man1dir)'"; \
- $(MKDIR_P) "$(DESTDIR)$(man1dir)" || exit 1; \
- { for i in $$list1; do echo "$$i"; done; \
- if test -n "$$list2"; then \
- for i in $$list2; do echo "$$i"; done \
- | sed -n '/\.1[a-z]*$$/p'; \
- fi; \
- } | while read p; do \
- if test -f $$p; then d=; else d="$(srcdir)/"; fi; \
- echo "$$d$$p"; echo "$$p"; \
- done | \
- sed -e 'n;s,.*/,,;p;h;s,.*\.,,;s,^[^1][0-9a-z]*$$,1,;x' \
- -e 's,\.[0-9a-z]*$$,,;$(transform);G;s,\n,.,' | \
- sed 'N;N;s,\n, ,g' | { \
- list=; while read file base inst; do \
- if test "$$base" = "$$inst"; then list="$$list $$file"; else \
- echo " $(INSTALL_DATA) '$$file' '$(DESTDIR)$(man1dir)/$$inst'"; \
- $(INSTALL_DATA) "$$file" "$(DESTDIR)$(man1dir)/$$inst" || exit $$?; \
- fi; \
- done; \
- for i in $$list; do echo "$$i"; done | $(am__base_list) | \
- while read files; do \
- test -z "$$files" || { \
- echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(man1dir)'"; \
- $(INSTALL_DATA) $$files "$(DESTDIR)$(man1dir)" || exit $$?; }; \
- done; }
-
-uninstall-man1:
- @$(NORMAL_UNINSTALL)
- @list=''; test -n "$(man1dir)" || exit 0; \
- files=`{ for i in $$list; do echo "$$i"; done; \
- l2='$(dist_man_MANS)'; for i in $$l2; do echo "$$i"; done | \
- sed -n '/\.1[a-z]*$$/p'; \
- } | sed -e 's,.*/,,;h;s,.*\.,,;s,^[^1][0-9a-z]*$$,1,;x' \
- -e 's,\.[0-9a-z]*$$,,;$(transform);G;s,\n,.,'`; \
- dir='$(DESTDIR)$(man1dir)'; $(am__uninstall_files_from_dir)
-
-ID: $(am__tagged_files)
- $(am__define_uniq_tagged_files); mkid -fID $$unique
-tags: tags-am
-TAGS: tags
-
-tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files)
- set x; \
- here=`pwd`; \
- $(am__define_uniq_tagged_files); \
- shift; \
- if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
- test -n "$$unique" || unique=$$empty_fix; \
- if test $$# -gt 0; then \
- $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
- "$$@" $$unique; \
- else \
- $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
- $$unique; \
- fi; \
- fi
-ctags: ctags-am
-
-CTAGS: ctags
-ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files)
- $(am__define_uniq_tagged_files); \
- test -z "$(CTAGS_ARGS)$$unique" \
- || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
- $$unique
-
-GTAGS:
- here=`$(am__cd) $(top_builddir) && pwd` \
- && $(am__cd) $(top_srcdir) \
- && gtags -i $(GTAGS_ARGS) "$$here"
-cscopelist: cscopelist-am
-
-cscopelist-am: $(am__tagged_files)
- list='$(am__tagged_files)'; \
- case "$(srcdir)" in \
- [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \
- *) sdir=$(subdir)/$(srcdir) ;; \
- esac; \
- for i in $$list; do \
- if test -f "$$i"; then \
- echo "$(subdir)/$$i"; \
- else \
- echo "$$sdir/$$i"; \
- fi; \
- done >> $(top_builddir)/cscope.files
-
-distclean-tags:
- -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
-
-distdir: $(BUILT_SOURCES)
- $(MAKE) $(AM_MAKEFLAGS) distdir-am
-
-distdir-am: $(DISTFILES)
- @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
- topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
- list='$(DISTFILES)'; \
- dist_files=`for file in $$list; do echo $$file; done | \
- sed -e "s|^$$srcdirstrip/||;t" \
- -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
- case $$dist_files in \
- */*) $(MKDIR_P) `echo "$$dist_files" | \
- sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
- sort -u` ;; \
- esac; \
- for file in $$dist_files; do \
- if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
- if test -d $$d/$$file; then \
- dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
- if test -d "$(distdir)/$$file"; then \
- find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
- fi; \
- if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
- cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
- find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
- fi; \
- cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
- else \
- test -f "$(distdir)/$$file" \
- || cp -p $$d/$$file "$(distdir)/$$file" \
- || exit 1; \
- fi; \
- done
-check-am: all-am
-check: $(BUILT_SOURCES)
- $(MAKE) $(AM_MAKEFLAGS) check-am
-all-am: Makefile $(PROGRAMS) $(MANS)
-installdirs:
- for dir in "$(DESTDIR)$(bindir)" "$(DESTDIR)$(man1dir)"; do \
- test -z "$$dir" || $(MKDIR_P) "$$dir"; \
- done
-install: $(BUILT_SOURCES)
- $(MAKE) $(AM_MAKEFLAGS) install-am
-install-exec: $(BUILT_SOURCES)
- $(MAKE) $(AM_MAKEFLAGS) install-exec-am
-install-data: install-data-am
-uninstall: uninstall-am
-
-install-am: all-am
- @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
-
-installcheck: installcheck-am
-install-strip:
- if test -z '$(STRIP)'; then \
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- install; \
- else \
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
- fi
-mostlyclean-generic:
-
-clean-generic:
- -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
-
-distclean-generic:
- -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
- -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
-
-maintainer-clean-generic:
- @echo "This command is intended for maintainers to use"
- @echo "it deletes files that may require special tools to rebuild."
- -rm -f parser.c
- -rm -f ppparse.c
- -test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES)
- -test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES)
-clean: clean-am
-
-clean-am: clean-binPROGRAMS clean-generic clean-libtool clean-local \
- mostlyclean-am
-
-distclean: distclean-am
- -rm -f ./$(DEPDIR)/cobc.Po
- -rm -f ./$(DEPDIR)/codegen.Po
- -rm -f ./$(DEPDIR)/codeoptim.Po
- -rm -f ./$(DEPDIR)/config.Po
- -rm -f ./$(DEPDIR)/error.Po
- -rm -f ./$(DEPDIR)/field.Po
- -rm -f ./$(DEPDIR)/help.Po
- -rm -f ./$(DEPDIR)/parser.Po
- -rm -f ./$(DEPDIR)/pplex.Po
- -rm -f ./$(DEPDIR)/ppparse.Po
- -rm -f ./$(DEPDIR)/replace.Po
- -rm -f ./$(DEPDIR)/reserved.Po
- -rm -f ./$(DEPDIR)/scanner.Po
- -rm -f ./$(DEPDIR)/tree.Po
- -rm -f ./$(DEPDIR)/typeck.Po
- -rm -f Makefile
-distclean-am: clean-am distclean-compile distclean-generic \
- distclean-tags
-
-dvi: dvi-am
-
-dvi-am:
-
-html: html-am
-
-html-am:
-
-info: info-am
-
-info-am:
-
-install-data-am: install-man
-
-install-dvi: install-dvi-am
-
-install-dvi-am:
-
-install-exec-am: install-binPROGRAMS
-
-install-html: install-html-am
-
-install-html-am:
-
-install-info: install-info-am
-
-install-info-am:
-
-install-man: install-man1
-
-install-pdf: install-pdf-am
-
-install-pdf-am:
-
-install-ps: install-ps-am
-
-install-ps-am:
-
-installcheck-am:
-
-maintainer-clean: maintainer-clean-am
- -rm -f ./$(DEPDIR)/cobc.Po
- -rm -f ./$(DEPDIR)/codegen.Po
- -rm -f ./$(DEPDIR)/codeoptim.Po
- -rm -f ./$(DEPDIR)/config.Po
- -rm -f ./$(DEPDIR)/error.Po
- -rm -f ./$(DEPDIR)/field.Po
- -rm -f ./$(DEPDIR)/help.Po
- -rm -f ./$(DEPDIR)/parser.Po
- -rm -f ./$(DEPDIR)/pplex.Po
- -rm -f ./$(DEPDIR)/ppparse.Po
- -rm -f ./$(DEPDIR)/replace.Po
- -rm -f ./$(DEPDIR)/reserved.Po
- -rm -f ./$(DEPDIR)/scanner.Po
- -rm -f ./$(DEPDIR)/tree.Po
- -rm -f ./$(DEPDIR)/typeck.Po
- -rm -f Makefile
-maintainer-clean-am: distclean-am maintainer-clean-generic
-
-mostlyclean: mostlyclean-am
-
-mostlyclean-am: mostlyclean-compile mostlyclean-generic \
- mostlyclean-libtool
-
-pdf: pdf-am
-
-pdf-am:
-
-ps: ps-am
-
-ps-am:
-
-uninstall-am: uninstall-binPROGRAMS uninstall-man
-
-uninstall-man: uninstall-man1
-
-.MAKE: all check install install-am install-exec install-strip
-
-.PHONY: CTAGS GTAGS TAGS all all-am am--depfiles check check-am clean \
- clean-binPROGRAMS clean-generic clean-libtool clean-local \
- cscopelist-am ctags ctags-am distclean distclean-compile \
- distclean-generic distclean-libtool distclean-tags distdir dvi \
- dvi-am html html-am info info-am install install-am \
- install-binPROGRAMS install-data install-data-am install-dvi \
- install-dvi-am install-exec install-exec-am install-html \
- install-html-am install-info install-info-am install-man \
- install-man1 install-pdf install-pdf-am install-ps \
- install-ps-am install-strip installcheck installcheck-am \
- installdirs maintainer-clean maintainer-clean-generic \
- mostlyclean mostlyclean-compile mostlyclean-generic \
- mostlyclean-libtool pdf pdf-am ps ps-am tags tags-am uninstall \
- uninstall-am uninstall-binPROGRAMS uninstall-man \
- uninstall-man1
-
-.PRECIOUS: Makefile
-
-
-# Code coverage
-#
-# Optional:
-# - CODE_COVERAGE_DIRECTORY: Top-level directory for code coverage reporting.
-# Multiple directories may be specified, separated by whitespace.
-# (Default: $(top_builddir))
-# - CODE_COVERAGE_OUTPUT_FILE: Filename and path for the .info file generated
-# by lcov for code coverage. (Default:
-# $(PACKAGE_NAME)-$(PACKAGE_VERSION)-coverage.info)
-# - CODE_COVERAGE_OUTPUT_DIRECTORY: Directory for generated code coverage
-# reports to be created. (Default:
-# $(PACKAGE_NAME)-$(PACKAGE_VERSION)-coverage)
-# - CODE_COVERAGE_BRANCH_COVERAGE: Set to 1 to enforce branch coverage,
-# set to 0 to disable it and leave empty to stay with the default.
-# (Default: empty)
-# - CODE_COVERAGE_LCOV_SHOPTS_DEFAULT: Extra options shared between both lcov
-# instances. (Default: based on )
-# - CODE_COVERAGE_LCOV_SHOPTS: Extra options to shared between both lcov
-# instances. (Default: )
-# - CODE_COVERAGE_LCOV_OPTIONS_GCOVPATH: --gcov-tool pathtogcov
-# - CODE_COVERAGE_LCOV_OPTIONS_DEFAULT: Extra options to pass to the
-# collecting lcov instance. (Default: )
-# - CODE_COVERAGE_LCOV_OPTIONS: Extra options to pass to the collecting lcov
-# instance. (Default: )
-# - CODE_COVERAGE_LCOV_RMOPTS_DEFAULT: Extra options to pass to the filtering
-# lcov instance. (Default: empty)
-# - CODE_COVERAGE_LCOV_RMOPTS: Extra options to pass to the filtering lcov
-# instance. (Default: )
-# - CODE_COVERAGE_GENHTML_OPTIONS_DEFAULT: Extra options to pass to the
-# genhtml instance. (Default: based on )
-# - CODE_COVERAGE_GENHTML_OPTIONS: Extra options to pass to the genhtml
-# instance. (Default: )
-# - CODE_COVERAGE_IGNORE_PATTERN: Extra glob pattern of files to ignore
-#
-# The generated report will be titled using the $(PACKAGE_NAME) and
-# $(PACKAGE_VERSION). In order to add the current git hash to the title,
-# use the git-version-gen script, available online.
-# Optional variables
-# run only on top dir
-@CODE_COVERAGE_ENABLED_TRUE@ ifeq ($(abs_builddir), $(abs_top_builddir))
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_DIRECTORY ?= $(top_builddir)
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_OUTPUT_FILE ?= $(PACKAGE_NAME)-$(PACKAGE_VERSION)-coverage.info
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_OUTPUT_DIRECTORY ?= $(PACKAGE_NAME)-$(PACKAGE_VERSION)-coverage
-
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_BRANCH_COVERAGE ?=
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_LCOV_SHOPTS_DEFAULT ?= $(if $(CODE_COVERAGE_BRANCH_COVERAGE),--rc lcov_branch_coverage=$(CODE_COVERAGE_BRANCH_COVERAGE))
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_LCOV_SHOPTS ?= $(CODE_COVERAGE_LCOV_SHOPTS_DEFAULT)
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_LCOV_OPTIONS_GCOVPATH ?= --gcov-tool "$(GCOV)"
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_LCOV_OPTIONS_DEFAULT ?= $(CODE_COVERAGE_LCOV_OPTIONS_GCOVPATH)
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_LCOV_OPTIONS ?= $(CODE_COVERAGE_LCOV_OPTIONS_DEFAULT)
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_LCOV_RMOPTS_DEFAULT ?=
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_LCOV_RMOPTS ?= $(CODE_COVERAGE_LCOV_RMOPTS_DEFAULT)
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_GENHTML_OPTIONS_DEFAULT ?=$(if $(CODE_COVERAGE_BRANCH_COVERAGE),--rc genhtml_branch_coverage=$(CODE_COVERAGE_BRANCH_COVERAGE))
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_GENHTML_OPTIONS ?= $(CODE_COVERAGE_GENHTML_OPTIONS_DEFAULT)
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_IGNORE_PATTERN ?=
-
-# Use recursive makes in order to ignore errors during check
-@CODE_COVERAGE_ENABLED_TRUE@check-code-coverage:
-@CODE_COVERAGE_ENABLED_TRUE@ -$(AM_V_at)$(MAKE) $(AM_MAKEFLAGS) -k check
-@CODE_COVERAGE_ENABLED_TRUE@ $(AM_V_at)$(MAKE) $(AM_MAKEFLAGS) code-coverage-capture
-
-# Capture code coverage data
-@CODE_COVERAGE_ENABLED_TRUE@code-coverage-capture: code-coverage-capture-hook
-@CODE_COVERAGE_ENABLED_TRUE@ $(code_coverage_v_lcov_cap)$(LCOV) $(code_coverage_quiet) $(addprefix --directory ,$(CODE_COVERAGE_DIRECTORY)) --capture --output-file "$(CODE_COVERAGE_OUTPUT_FILE).tmp" --test-name "$(call code_coverage_sanitize,$(PACKAGE_NAME)-$(PACKAGE_VERSION))" --no-checksum --compat-libtool $(CODE_COVERAGE_LCOV_SHOPTS) $(CODE_COVERAGE_LCOV_OPTIONS)
-@CODE_COVERAGE_ENABLED_TRUE@ $(code_coverage_v_lcov_ign)$(LCOV) $(code_coverage_quiet) $(addprefix --directory ,$(CODE_COVERAGE_DIRECTORY)) --remove "$(CODE_COVERAGE_OUTPUT_FILE).tmp" "/tmp/*" $(CODE_COVERAGE_IGNORE_PATTERN) --output-file "$(CODE_COVERAGE_OUTPUT_FILE)" $(CODE_COVERAGE_LCOV_SHOPTS) $(CODE_COVERAGE_LCOV_RMOPTS)
-@CODE_COVERAGE_ENABLED_TRUE@ -@rm -f "$(CODE_COVERAGE_OUTPUT_FILE).tmp"
-@CODE_COVERAGE_ENABLED_TRUE@ $(code_coverage_v_genhtml)LANG=C $(GENHTML) $(code_coverage_quiet) $(addprefix --prefix ,$(CODE_COVERAGE_DIRECTORY)) --output-directory "$(CODE_COVERAGE_OUTPUT_DIRECTORY)" --title "$(PACKAGE_NAME)-$(PACKAGE_VERSION) Code Coverage" --legend --show-details "$(CODE_COVERAGE_OUTPUT_FILE)" $(CODE_COVERAGE_GENHTML_OPTIONS)
-@CODE_COVERAGE_ENABLED_TRUE@ @echo "file://$(abs_builddir)/$(CODE_COVERAGE_OUTPUT_DIRECTORY)/index.html"
-
-@CODE_COVERAGE_ENABLED_TRUE@code-coverage-clean:
-@CODE_COVERAGE_ENABLED_TRUE@ -$(LCOV) --directory $(top_builddir) -z
-@CODE_COVERAGE_ENABLED_TRUE@ -rm -rf "$(CODE_COVERAGE_OUTPUT_FILE)" "$(CODE_COVERAGE_OUTPUT_FILE).tmp" "$(CODE_COVERAGE_OUTPUT_DIRECTORY)"
-@CODE_COVERAGE_ENABLED_TRUE@ -find . \( -name "*.gcda" -o -name "*.gcno" -o -name "*.gcov" \) -delete
-
-@CODE_COVERAGE_ENABLED_TRUE@code-coverage-dist-clean:
-@CODE_COVERAGE_ENABLED_TRUE@ else # ifneq ($(abs_builddir), $(abs_top_builddir))
-@CODE_COVERAGE_ENABLED_TRUE@check-code-coverage:
-
-@CODE_COVERAGE_ENABLED_TRUE@code-coverage-capture: code-coverage-capture-hook
-
-@CODE_COVERAGE_ENABLED_TRUE@code-coverage-clean:
-
-@CODE_COVERAGE_ENABLED_TRUE@code-coverage-dist-clean:
-@CODE_COVERAGE_ENABLED_TRUE@ endif # ifeq ($(abs_builddir), $(abs_top_builddir))
-# Use recursive makes in order to ignore errors during check
-@CODE_COVERAGE_ENABLED_FALSE@check-code-coverage:
-@CODE_COVERAGE_ENABLED_FALSE@ @echo "Need to reconfigure with --enable-code-coverage"
-# Capture code coverage data
-@CODE_COVERAGE_ENABLED_FALSE@code-coverage-capture: code-coverage-capture-hook
-@CODE_COVERAGE_ENABLED_FALSE@ @echo "Need to reconfigure with --enable-code-coverage"
-
-@CODE_COVERAGE_ENABLED_FALSE@code-coverage-clean:
-
-@CODE_COVERAGE_ENABLED_FALSE@code-coverage-dist-clean:
-
-# Hook rule executed before code-coverage-capture, overridable by the user
-code-coverage-capture-hook:
-
-.PHONY: check-code-coverage code-coverage-capture code-coverage-dist-clean code-coverage-clean code-coverage-capture-hook
-
-# Add rules for code-coverage testing, as provided by AX_CODE_COVERAGE
-
-clean-local: code-coverage-clean
-dist-clean-local: code-coverage-dist-clean
-
-@MAKE_HAS_PREREQ_ONLY_TRUE@cobc.1: $(HELPSOURCES) | $(COBC)
-@MAKE_HAS_PREREQ_ONLY_TRUE@ "$(top_builddir)/pre-inst-env" $(HELP2MAN) --output=$@ $(HELP2MAN_OPTS) $(COBC)
-@MAKE_HAS_PREREQ_ONLY_FALSE@cobc.1: $(HELPSOURCES)
-@MAKE_HAS_PREREQ_ONLY_FALSE@ "$(top_builddir)/pre-inst-env" $(HELP2MAN) --output=$@ $(HELP2MAN_OPTS) $(COBC)
-
-.l.c:
- LC_CTYPE=C $(LEX) -o$@ $<
-
-# Tell versions [3.59,3.63) of GNU make to not export all variables.
-# Otherwise a system limit (for SysV at least) may be exceeded.
-.NOEXPORT:
diff --git a/cobc/cobc.1 b/cobc/cobc.1
deleted file mode 100644
index 077247f..0000000
--- a/cobc/cobc.1
+++ /dev/null
@@ -1,910 +0,0 @@
-.\" DO NOT MODIFY THIS FILE! It was generated by help2man 1.48.1.
-.TH COBC "1" "July 2023" "GnuCOBOL 3.2.0" "User Commands"
-.SH NAME
-cobc \- manual page for cobc 3.2.0
-.SH SYNOPSIS
-.B cobc
-[\fI\,options\/\fR]... \fI\,file\/\fR...
-.SH DESCRIPTION
-GnuCOBOL compiler for most COBOL dialects with lots of extensions
-.SH OPTIONS
-.TP
-\fB\-h\fR, \fB\-\-help\fR
-display this help and exit
-.TP
-\fB\-V\fR, \fB\-\-version\fR
-display compiler version information and exit
-.TP
-\fB\-dumpversion\fR
-display compiler version and exit
-.TP
-\fB\-i\fR, \fB\-\-info\fR
-display compiler information (build/environment)
-and exit
-.TP
-\fB\-v\fR, \fB\-\-verbose\fR
-verbose mode, display additional information;
-multiple \fB\-v\fR options increase the verbosity,
-the maximum is 3 as follows:
-(1) display compiler version and the commands
-invoked by the compiler,
-(2) pass verbose option to assembler/compiler
-(3) pass verbose option to linker
-.TP
-\fB\-q\fR, \fB\-\-brief\fR
-reduced displays, commands invoked not shown
-.TP
-\-###
-like \fB\-v\fR but commands not executed
-.TP
-\fB\-x\fR
-build an executable program
-.TP
-\fB\-m\fR
-build a dynamically loadable module (default)
-.TP
-\fB\-j\fR [], \fB\-\-job[=\fR]
-run program after build, passing
-.TP
-\fB\-std=\fR
-warnings/features for a specific dialect
- can be one of:
-default, cobol2014, cobol2002, cobol85, xopen,
-ibm\-strict, ibm, mvs\-strict, mvs,
-mf\-strict, mf, bs2000\-strict, bs2000,
-acu\-strict, acu, rm\-strict, rm, gcos\-strict,
-gcos;
-see configuration files in directory config
-.TP
-\fB\-F\fR, \fB\-\-free\fR
-use free source format (alias for \fB\-fformat\fR=\fI\,free\/\fR)
-.TP
-\fB\-\-fixed\fR
-use fixed source format (default; alias for
-\fB\-fformat\fR=\fI\,fixed\/\fR)
-.TP
-\fB\-O\fR, \fB\-O2\fR, \fB\-O3\fR, \fB\-Os\fR
-enable optimization
-.TP
-\fB\-O0\fR
-disable optimization
-.TP
-\fB\-g\fR
-enable C compiler debug and stack check
-.TP
-\fB\-d\fR, \fB\-\-debug\fR
-enable all run\-time error checking,
-equal to \fB\-fstack\-check\fR \fB\-fec\fR=\fI\,EC\-ALL\/\fR
-.TP
-\fB\-fec=\fR enable code generation for ,
-see \fB\-\-list\-exceptions\fR for the possible values,
-sets \fB\-fsource\-location\fR
-.TP
-\fB\-fno\-ec=\fR
-disable code generation for
-.TP
-\fB\-o\fR
-place the output into
-.TP
-\fB\-b\fR
-combine all input files into a single
-dynamically loadable module
-.TP
-\fB\-E\fR
-preprocess only; do not compile or link
-.TP
-\fB\-C\fR
-translation only; convert COBOL to C
-.TP
-\fB\-S\fR
-compile only; output assembly file
-.TP
-\fB\-c\fR
-compile and assemble, but do not link
-.TP
-\fB\-T\fR
-generate and place a wide program listing into
-.TP
-\fB\-t\fR
-generate and place a program listing into
-.TP
-\fB\-\-tlines=\fR
-specify lines per page in listing, default = 55
-.TP
-\fB\-P[=\fR]
-generate preprocessed program listing (.lst)
-.TP
-\fB\-X\fR, \fB\-\-Xref\fR
-specify cross reference in listing
-.TP
-\fB\-I\fR
-add to copy/include search path
-.TP
-\fB\-L\fR
-add to library search path
-.TP
-\fB\-l\fR
-link the library
-.TP
-\fB\-K\fR
-generate CALL to as static
-.TP
-\fB\-D\fR
-define for COBOL compilation
-.TP
-\fB\-A\fR
-add to the C compile phase
-.TP
-\fB\-Q\fR
-add to the C link phase
-.TP
-\fB\-\-coverage\fR
-instrument generated binaries for coverage
-.TP
-\fB\-\-conf=\fR
-user\-defined dialect configuration; see \fB\-std\fR
-.TP
-\fB\-\-list\-reserved\fR
-display reserved words
-.TP
-\fB\-\-list\-intrinsics\fR
-display intrinsic functions
-.TP
-\fB\-\-list\-mnemonics\fR
-display mnemonic names
-.TP
-\fB\-\-list\-exceptions\fR
-display exception names
-.TP
-\fB\-\-list\-system\fR
-display system routines
-.TP
-\fB\-\-save\-temps[=\fR]
-save intermediate files
-* default: current directory
-.TP
-\fB\-MT\fR
-set/add target file used in dependency list
-.TP
-\fB\-MF\fR
-place dependency list into
-.TP
-\fB\-ext\fR
-add file extension for resolving COPY
-.SS "Warning options:"
-.TP
-\fB\-Wall\fR
-enable most warnings (all except as noted below)
-.TP
-\fB\-Wextra\fR
-like \fB\-Wall\fR but enable some extra warning flags
-.TP
-\fB\-w\fR
-disable all warnings
-.TP
-\fB\-Wno\-\fR
-disable warning enabled by default, \fB\-Wall\fR or \fB\-Wextra\fR
-.TP
-\fB\-Wadditional\fR
-additional warnings only raised with \fB\-Wall\fR
-.TP
-\fB\-Wno\-unfinished\fR
-do not warn if unfinished features are used
-* ALWAYS active
-.TP
-\fB\-Wno\-pending\fR
-do not warn if pending features are used
-* ALWAYS active
-.TP
-\fB\-Wno\-repository\-checks\fR
-do not warn/check for program/function/external signature mismatch
-* ALWAYS active
-.TP
-\fB\-Wno\-ignored\-error\fR
-do not warn about errors in code parts which are unreachable and so normally ignored
-* ALWAYS active
-.TP
-\fB\-Wobsolete\fR
-warn if obsolete features are used
-.TP
-\fB\-Warchaic\fR
-warn if archaic features are used
-.TP
-\fB\-Wredefinition\fR
-warn about non\-referenced ambiguous data items
-.TP
-\fB\-Wtruncate\fR
-warn about field truncation from constant assignments
-.TP
-\fB\-Wpossible\-truncate\fR
-warn about possible field truncation
-* NOT set with \fB\-Wall\fR
-.TP
-\fB\-Woverlap\fR
-warn about overlapping MOVE of items
-.TP
-\fB\-Wpossible\-overlap\fR
-warn about MOVE of items that may overlap depending on variables
-* NOT set with \fB\-Wall\fR
-.TP
-\fB\-Wparentheses\fR
-warn if parentheses are omitted around AND within OR
-.TP
-\fB\-Wstrict\-typing\fR
-warn strictly about type mismatch, even when same size
-* NOT set with \fB\-Wall\fR
-.TP
-\fB\-Wtyping\fR
-warn about type mismatch
-.TP
-\fB\-Wimplicit\-define\fR
-warn whenever data items are implicitly defined
-* NOT set with \fB\-Wall\fR
-.TP
-\fB\-Wno\-corresponding\fR
-do not warn about CORRESPONDING with no matching items
-* ALWAYS active
-.TP
-\fB\-Winitial\-value\fR
-warn if initial VALUE clause is ignored
-.TP
-\fB\-Wprototypes\fR
-warn about missing FUNCTION prototypes/definitions
-.TP
-\fB\-Warithmetic\-osvs\fR
-warn if arithmetic expression precision has changed
-.TP
-\fB\-Wcall\-params\fR
-warn about non 01/77 items for CALL parameters
-* NOT set with \fB\-Wall\fR
-.TP
-\fB\-Wconstant\-expression\fR
-warn about expressions that always resolve to true/false
-.TP
-\fB\-Wconstant\-numlit\-expression\fR
-warn about numeric expressions that always resolve to true/false
-.TP
-\fB\-Wlarger\-01\-redefines\fR
-warn about larger redefines allowed by COBOL standards
-.TP
-\fB\-Wcolumn\-overflow\fR
-warn about text after program\-text area, FIXED format
-* NOT set with \fB\-Wall\fR
-.TP
-\fB\-Wterminator\fR
-warn about lack of scope terminator END\-XXX
-* NOT set with \fB\-Wall\fR
-.TP
-\fB\-Wlinkage\fR
-warn about dangling LINKAGE items
-* NOT set with \fB\-Wall\fR
-.TP
-\fB\-Wunreachable\fR
-warn about likely unreachable statements
-* NOT set with \fB\-Wall\fR
-.TP
-\fB\-Wno\-dialect\fR
-do not warn about dialect specific issues
-* ALWAYS active
-.TP
-\fB\-Wno\-goto\-section\fR
-do not warn about GO TO section\-name
-* ALWAYS active
-.TP
-\fB\-Wgoto\-different\-section\fR
-warn about GO TO a praragraph defined in a different section
-.TP
-\fB\-Wsuspicious\-perform\-thru\fR
-warn if PERFORM THRU references procedures not in ascending order or multiple sections
-* ALWAYS active
-.TP
-\fB\-Wdangling\-text\fR
-warn about source text after program\-area
-* NOT set with \fB\-Wall\fR
-.TP
-\fB\-Wno\-missing\-newline\fR
-do not warn about missing newlines
-* ALWAYS active
-.TP
-\fB\-Wno\-others\fR
-do not warn about different issues
-* ALWAYS active
-.TP
-\fB\-Wno\-unsupported\fR
-do not warn if runtime does not support a feature used
-.TP
-\fB\-fdiagnostics\-plain\-output\fR
-make diagnostic output as plain as possible
-.TP
-\fB\-Werror\fR
-treat all warnings as errors
-.TP
-\fB\-Wno\-error\fR
-don't treat warnings as errors
-.TP
-\fB\-Werror=\fR
-treat specified as error
-.TP
-\fB\-Wno\-error=\fR
-don't treat specified as error
-.SS "Compiler options:"
-.TP
-\fB\-fsign\fR=\fI\,[ASCII\/\fR|EBCDIC] define display sign representation
-* default: machine native
-.TP
-\fB\-ffold\-copy\fR=\fI\,[UPPER\/\fR|LOWER]
-fold COPY subject to value
-* default: no transformation
-.TP
-\fB\-ffold\-call\fR=\fI\,[UPPER\/\fR|LOWER]
-fold PROGRAM\-ID, CALL, CANCEL subject to value
-* default: no transformation
-.TP
-\fB\-fmax\-errors=\fR maximum number of errors to report before
-compilation is aborted
-* default: 128
-.TP
-\fB\-fintrinsics\fR=\fI\,[ALL\/\fR|intrinsic function name(,name,...)]
-intrinsics to be used without FUNCTION keyword
-.TP
-\fB\-fdump=\fR
-dump data fields on abort, may be
-a combination of: ALL, WS, LS, RD, FD, SC, LO
-.TP
-\fB\-fcallfh=\fR
-specifies to be used for I/O
-as external provided EXTFH interface module
-.TP
-\fB\-febcdic\-table=\fR/
-EBCDIC/ASCII translation table
-* e.g. default, ebcdic500_latin1...
-.TP
-\fB\-fdefault\-colseq\fR=\fI\,[ASCII\/\fR|EBCDIC|NATIVE]
-define default collating sequence
-* default: NATIVE
-.TP
-\fB\-fstack\-extended\fR
-store origin of entrypoints and PERFORM
-* turned on by \fB\-\-debug\fR/\-fdump
-.TP
-\fB\-fno\-remove\-unreachable\fR
-disable remove of unreachable code
-* turned off by \fB\-g\fR
-.TP
-\fB\-ftrace\fR
-generate trace code
-* scope: executed SECTION/PARAGRAPH
-.TP
-\fB\-ftraceall\fR
-generate trace code
-* scope: executed SECTION/PARAGRAPH/STATEMENTS
-.TP
-\fB\-fsyntax\-only\fR
-syntax error checking only; don't emit any output
-.TP
-\fB\-fdebugging\-line\fR
-enable debugging lines
-* 'D' in indicator column or floating >>D
-.TP
-\fB\-fsource\-location\fR
-generate source location code
-* turned on by \fB\-\-debug\fR/\-ftraceall/\-fec/\-fdump
-.TP
-\fB\-fimplicit\-init\fR
-automatic initialization of the COBOL runtime system
-.TP
-\fB\-fno\-recursive\-check\fR
-disable check of recursive program call;
-effectively compiling as RECURSIVE program
-.TP
-\fB\-fstack\-check\fR
-PERFORM stack checking
-* turned on by \fB\-\-debug\fR/\-g
-.TP
-\fB\-fmemory\-check=\fR
-checks for invalid writes to internal storage,
- may be one of: all, pointer, using, none
-* default: none, set to all by \fB\-\-debug\fR
-.TP
-\fB\-fsection\-exit\-check\fR
-check that code execution does not leave the scope of SECTIONs
-.TP
-\fB\-fimplicit\-goback\-check\fR
-check that code execution does not end implicit at end of PROCEDURE DIVISION
-.TP
-\fB\-fwrite\-after\fR
-use AFTER 1 for WRITE of LINE SEQUENTIAL
-* default: BEFORE 1
-.TP
-\fB\-fmfcomment\fR
-\&'*' in column 1 treated as comment with listing suppression
-* FIXED/COBOL85/VARIABLE format only
-.TP
-\fB\-facucomment\fR
-\&'$' in indicator area treated as '*',
-\&'|' treated as floating comment
-.TP
-\fB\-fno\-trunc\fR
-allow numeric field overflow
-* non\-ANSI behaviour
-.TP
-\fB\-fsingle\-quote\fR
-use a single quote (apostrophe) for QUOTE
-* default: double quote
-.TP
-\fB\-foptional\-file\fR
-treat all files as OPTIONAL
-* unless NOT OPTIONAL specified
-.TP
-\fB\-fstatic\-call\fR
-output static function calls for the CALL statement
-.TP
-\fB\-fno\-gen\-c\-decl\-static\-call\fR
-disable generation of C function declarations
-for subroutines with static CALL
-.TP
-\fB\-fgen\-c\-line\-directives\fR
-generate source location directives in C code;
-* turned on by \fB\-g\fR/\-\-coverage
-.TP
-\fB\-fgen\-c\-labels\fR
-generate extra labels in C sources;
-* turned on by \fB\-g\fR
-.TP
-\fB\-fno\-theaders\fR
-suppress all headers from listing while keeping
-page breaks
-.TP
-\fB\-fno\-tsource\fR
-suppress source from listing
-.TP
-\fB\-fno\-tmessages\fR
-suppress warning and error summary from listing
-.TP
-\fB\-ftsymbols\fR
-specify symbols in listing
-.TP
-\fB\-ftcmd\fR
-specify command line in listing
-.TP
-\fB\-fno\-ttimestamp\fR
-suppress timestamp in listing headers
-.TP
-\fB\-fttitle=\fR
-set listing title with '_' replaced by spaces;
-defaults to package name and version
-.TP
-\fB\-fno\-diagnostics\-show\-option\fR
-suppress output of option that directly
-controls the diagnostic
-.TP
-\fB\-fno\-diagnostics\-show\-caret\fR
-do not display source context on warning/error diagnostic
-.TP
-\fB\-fno\-diagnostics\-show\-line\-numbers\fR
-suppress display of line numbers in diagnostics
-.SS "Compiler dialect configuration options:"
-.TP
-\fB\-freserved\-words=\fR<value>
-use of complete/fixed reserved words
-.TP
-\fB\-ftab\-width\fR=\fI\,1\/\fR..12
-number of spaces that are assumed for tabs
-.TP
-\fB\-ftext\-column\fR=\fI\,72\/\fR..255
-right margin column number for fixed\-form reference\-format
-.TP
-\fB\-fpic\-length=\fR<number>
-maximum number of characters allowed in the PICTURE character\-string
-.TP
-\fB\-fword\-length\fR=\fI\,1\/\fR..63
-maximum word\-length for COBOL (= programmer defined) words
-.TP
-\fB\-fliteral\-length=\fR<number>
-maximum literal size in general
-.TP
-\fB\-fnumeric\-literal\-length\fR=\fI\,1\/\fR..38
-maximum numeric literal size
-.TP
-\fB\-fdefaultbyte=\fR<value>
-default initialization for fields without VALUE, may be one of
-* character in quotes
-* decimal 0..255 representing a character
-* "init" to initialize to PICTURE/USAGE
-* "none" to do no explicit initialization
-* default: "init"
-.TP
-\fB\-fformat=\fR<value>
-default reference\-format, may be one of: FIXED, FREE, COBOL85, VARIABLE, XOPEN, XCARD, CRT, TERMINAL, COBOLX
-.TP
-\fB\-fbinary\-size=\fR<value>
-binary byte size \- defines the allocated bytes according to PIC, may be one of: 2\-4\-8, 1\-2\-4\-8, 1\-\-8
-.TP
-\fB\-fbinary\-byteorder=\fR<value>
-binary byte order, may be one of: native, big\-endian
-.TP
-\fB\-fassign\-clause=\fR<value>
-how to interpret 'ASSIGN word': as 'ASSIGN EXTERNAL word' or 'ASSIGN DYNAMIC word', may be one of: dynamic, external, ibm (= external), mf (= dynamic)
-.TP
-\fB\-fscreen\-section\-rules=\fR<value>
-which compiler's rules to apply to SCREEN SECTION item clauses, may be one of: acu, gc, mf, rm, std, xopen
-.TP
-\fB\-fdpc\-in\-data=\fR<value>
-whether DECIMAL\-POINT IS COMMA has effect in XML/JSON GENERATE, may be one of: none, xml, json, all
-.TP
-\fB\-fsubscript\-check=\fR<value>
-checking for subscript (only done with EC\-BOUND\-SUBSCRIPT active), may be one of: full, max, record
-.TP
-\fB\-ffilename\-mapping\fR
-resolve file names at run time using environment variables
-.TP
-\fB\-fpretty\-display\fR
-alternate formatting of numeric fields
-.TP
-\fB\-fbinary\-truncate\fR
-numeric truncation according to ANSI
-.TP
-\fB\-fcomplex\-odo\fR
-allow non\-standard OCCURS DEPENDING ON syntax
-.TP
-\fB\-fodoslide\fR
-adjust items following OCCURS DEPENDING (implies complex\-odo)
-.TP
-\fB\-finit\-justify\fR
-applies JUSTIFY with VALUE clause
-.TP
-\fB\-findirect\-redefines\fR
-allow REDEFINES to other than last equal level number
-.TP
-\fB\-frelax\-syntax\-checks\fR
-allow certain syntax variations (e.g. REDEFINES position)
-.TP
-\fB\-fref\-mod\-zero\-length\fR
-allow zero length reference\-modification (only changed with EC\-BOUND\-REF\-MOD active)
-.TP
-\fB\-frelax\-level\-hierarchy\fR
-allow non\-matching level numbers
-.TP
-\fB\-fselect\-working\fR
-require ASSIGN USING items to be in WORKING\-STORAGE
-.TP
-\fB\-flocal\-implies\-recursive\fR
-LOCAL\-STORAGE SECTION implies RECURSIVE attribute
-.TP
-\fB\-fsticky\-linkage\fR
-LINKAGE SECTION items remain allocated between invocations
-.TP
-\fB\-fmove\-ibm\fR
-MOVE operates as on IBM (left to right, byte by byte)
-.TP
-\fB\-fperform\-osvs\fR
-exit point of any currently executing perform is recognized if reached
-.TP
-\fB\-farithmetic\-osvs\fR
-limit precision in intermediate results to precision of final result (less accurate)
-.TP
-\fB\-fconstant\-folding\fR
-evaluate constant expressions at compile time
-.TP
-\fB\-fhostsign\fR
-allow hexadecimal value 'F' for NUMERIC test of signed PACKED DECIMAL field
-.TP
-\fB\-fprogram\-name\-redefinition\fR
-program names don't lead to a reserved identifier
-.TP
-\fB\-faccept\-update\fR
-set WITH UPDATE clause as default for ACCEPT dest\-item, instead of WITH NO UPDATE
-.TP
-\fB\-faccept\-auto\fR
-set WITH AUTO clause as default for ACCEPT dest\-item, instead of WITH TAB
-.TP
-\fB\-fconsole\-is\-crt\fR
-assume CONSOLE IS CRT if not set otherwise
-.TP
-\fB\-fno\-echo\-means\-secure\fR
-NO\-ECHO hides input with asterisks like SECURE
-.TP
-\fB\-fline\-col\-zero\-default\fR
-assume a field DISPLAY starts at LINE 0 COL 0 (i.e. at the cursor), not LINE 1 COL 1
-.TP
-\fB\-fdisplay\-special\-fig\-consts\fR
-special behaviour of DISPLAY SPACE/ALL X'01'/ALL X'02'/ALL X'07'
-.TP
-\fB\-fbinary\-comp\-1\fR
-COMP\-1 is a 16\-bit signed integer
-.TP
-\fB\-fnumeric\-pointer\fR
-POINTER is a 64\-bit unsigned integer
-.TP
-\fB\-fmove\-non\-numeric\-lit\-to\-numeric\-is\-zero\fR
-imply zero in move of non\-numeric literal to numeric items
-.HP
-\fB\-fimplicit\-assign\-dynamic\-var\fR implicitly define a variable if an ASSIGN DYNAMIC does not match any data item
-.TP
-\fB\-fdevice\-mnemonics\fR
-specifying device by mnemonic
-.TP
-\fB\-fxml\-parse\-xmlss\fR
-XML PARSE XMLSS
-.TP
-\fB\-fareacheck\fR
-check contents of Area A (when reference format supports Area A enforcement),
-enabled checks include:
-* division, section, paragraph names, level indicators (FD, SD, RD, and CD),
-.TP
-and toplevel numbers (01 and 77) must start in Area A;
-* statements must not start in Area A; and
-* separator periods must not be within Area A
-.TP
-\fB\-fcomment\-paragraphs=\fR<support>
-comment paragraphs in IDENTIFICATION DIVISION (AUTHOR, DATE\-WRITTEN, ...)
-.TP
-\fB\-fcontrol\-division=\fR<support>
-CONTROL DIVISION
-.TP
-\fB\-fpartial\-replace\-when\-literal\-src=\fR<support>
-apply partial replacing with literal source operand even when it replaces with spaces only;
-* "skip" prevents such replacements
-.TP
-\fB\-fmemory\-size\-clause=\fR<support>
-MEMORY\-SIZE clause
-.HP
-\fB\-fmultiple\-file\-tape\-clause=\fR<support> MULTIPLE\-FILE\-TAPE clause
-.TP
-\fB\-flabel\-records\-clause=\fR<support>
-LABEL\-RECORDS clause
-.TP
-\fB\-fvalue\-of\-clause=\fR<support>
-VALUE\-OF clause
-.TP
-\fB\-fdata\-records\-clause=\fR<support>
-DATA\-RECORDS clause
-.TP
-\fB\-ftop\-level\-occurs\-clause=\fR<support>
-OCCURS clause on top\-level
-.TP
-\fB\-fsame\-as\-clause=\fR<support>
-SAME AS clause
-.TP
-\fB\-ftype\-to\-clause=\fR<support>
-TYPE TO clause
-.TP
-\fB\-fusage\-type=\fR<support>
-USAGE type\-name
-.TP
-\fB\-fsynchronized\-clause=\fR<support>
-SYNCHRONIZED clause
-.TP
-\fB\-fsync\-left\-right=\fR<support>
-LEFT/RIGHT phrases in SYNCHRONIZED clause
-.TP
-\fB\-fspecial\-names\-clause=\fR<support>
-SPECIAL\-NAMES clause
-.TP
-\fB\-fgoto\-statement\-without\-name=\fR<support>
-GO TO statement without name
-.TP
-\fB\-fstop\-literal\-statement=\fR<support>
-STOP\-literal statement
-.HP
-\fB\-fstop\-identifier\-statement=\fR<support> STOP\-identifier statement
-.TP
-\fB\-fstop\-error\-statement=\fR<support>
-STOP ERROR statement
-.TP
-\fB\-fdebugging\-mode=\fR<support>
-DEBUGGING MODE and debugging indicator
-.HP
-\fB\-fuse\-for\-debugging=\fR<support> USE FOR DEBUGGING
-.TP
-\fB\-fpadding\-character\-clause=\fR<support>
-PADDING CHARACTER clause
-.TP
-\fB\-fnext\-sentence\-phrase=\fR<support>
-NEXT SENTENCE phrase
-.TP
-\fB\-flisting\-statements=\fR<support>
-listing\-directive statements EJECT, SKIP1, SKIP2, SKIP3
-.TP
-\fB\-ftitle\-statement=\fR<support>
-listing\-directive statement TITLE
-.TP
-\fB\-fentry\-statement=\fR<support>
-ENTRY statement
-.TP
-\fB\-fmove\-noninteger\-to\-alphanumeric=\fR<support>
-move noninteger to alphanumeric
-.TP
-\fB\-fmove\-figurative\-constant\-to\-numeric=\fR<support>
-move figurative constants to numeric
-.TP
-\fB\-fmove\-figurative\-space\-to\-numeric=\fR<support>
-move figurative constant SPACE to numeric
-.TP
-\fB\-fmove\-figurative\-quote\-to\-numeric=\fR<support>
-move figurative constant QUOTE to numeric
-.TP
-\fB\-fodo\-without\-to=\fR<support>
-OCCURS DEPENDING ON without to
-.TP
-\fB\-fsection\-segments=\fR<support>
-section segments
-.TP
-\fB\-falter\-statement=\fR<support>
-ALTER statement
-.TP
-\fB\-fcall\-overflow=\fR<support>
-OVERFLOW clause for CALL
-.TP
-\fB\-fnumeric\-boolean=\fR<support>
-boolean literals (B'1010')
-.TP
-\fB\-fhexadecimal\-boolean=\fR<support>
-hexadecimal\-boolean literals (BX'A')
-.HP
-\fB\-fnational\-literals=\fR<support> national literals (N'UTF\-16 string')
-.TP
-\fB\-fhexadecimal\-national\-literals=\fR<support>
-hexadecimal\-national literals (NX'265E')
-.TP
-\fB\-fnational\-character\-literals=\fR<support>
-non\-standard national literals (NC'UTF\-16 string')
-.HP
-\fB\-fhp\-octal\-literals=\fR<support> HP COBOL octal literals (%377)
-.TP
-\fB\-facu\-literals=\fR<support>
-ACUCOBOL\-GT literals (#B #O #H #X)
-.TP
-\fB\-febcdic\-symbolic\-characters\fR
-EBCDIC symbolic characters in literals (" "135,151,151"bar"195, 194"Z" for " foobarBAZ")
-.HP
-\fB\-fword\-continuation=\fR<support> continuation of COBOL words
-.TP
-\fB\-fnot\-exception\-before\-exception=\fR<support>
-NOT ON EXCEPTION before ON EXCEPTION
-.HP
-\fB\-faccept\-display\-extensions=\fR<support> extensions to ACCEPT and DISPLAY
-.TP
-\fB\-frenames\-uncommon\-levels=\fR<support>
-RENAMES of 01\-, 66\- and 77\-level items
-.TP
-\fB\-flarger\-redefines=\fR<support>
-allow larger REDEFINES items
-.HP
-\fB\-fsymbolic\-constant=\fR<support> constants defined in SPECIAL\-NAMES
-.TP
-\fB\-fconstant\-78=\fR<support>
-constant with level 78 item (note: has left to right precedence in expressions)
-.TP
-\fB\-fconstant\-01=\fR<support>
-constant with level 01 CONSTANT AS/FROM item
-.TP
-\fB\-fperform\-varying\-without\-by=\fR<support>
-PERFORM VARYING without BY phrase (implies BY 1)
-.TP
-\fB\-freference\-out\-of\-declaratives=\fR<support>
-references to sections not in DECLARATIVES from within DECLARATIVES
-.TP
-\fB\-fprogram\-prototypes=\fR<support>
-CALL/CANCEL with program\-prototype\-name
-.TP
-\fB\-fcall\-convention\-mnemonic=\fR<support>
-specifying call\-convention by mnemonic
-.TP
-\fB\-fcall\-convention\-linkage=\fR<support>
-specifying call\-convention by WITH ... LINKAGE
-.TP
-\fB\-fusing\-optional=\fR<support>
-support for PROCEDURE DIVISION USING OPTIONAL
-.TP
-\fB\-fnumeric\-value\-for\-edited\-item=\fR<support>
-numeric literals in VALUE clause of numeric\-edited items
-.TP
-\fB\-fincorrect\-conf\-sec\-order=\fR<support>
-incorrect order of CONFIGURATION SECTION paragraphs
-.HP
-\fB\-fdefine\-constant\-directive=\fR<support> allow >> DEFINE CONSTANT var AS literal
-.TP
-\fB\-ffree\-redefines\-position=\fR<support>
-REDEFINES clause not following entry\-name in definition
-.TP
-\fB\-frecords\-mismatch\-record\-clause=\fR<support>
-record sizes does not match RECORD clause
-.TP
-\fB\-frecord\-delimiter=\fR<support>
-RECORD DELIMITER clause
-.TP
-\fB\-fsequential\-delimiters=\fR<support>
-BINARY\-SEQUENTIAL and LINE\-SEQUENTIAL phrases in RECORD DELIMITER
-.TP
-\fB\-frecord\-delim\-with\-fixed\-recs=\fR<support>
-RECORD DELIMITER clause on file with fixed\-length records
-.HP
-\fB\-fmissing\-statement=\fR<support> missing statement (e.g. empty IF / PERFORM)
-.TP
-\fB\-fmissing\-period=\fR<support>
-missing period in PROCEDURE DIVISION (when reference format supports Area A enforcement)
-.TP
-\fB\-fzero\-length\-literals=\fR<support>
-zero\-length literals, e.g. '' and ""
-.TP
-\fB\-fxml\-generate\-extra\-phrases=\fR<support>
-XML GENERATE's phrases other than COUNT IN
-.TP
-\fB\-fcontinue\-after=\fR<support>
-AFTER phrase in CONTINUE statement
-.TP
-\fB\-fgoto\-entry=\fR<support>
-ENTRY FOR GO TO and GO TO ENTRY statements
-.TP
-\fB\-fassign\-variable=\fR<support>
-ASSIGN [TO] variable in SELECT
-.TP
-\fB\-fassign\-using\-variable=\fR<support>
-ASSIGN USING/VARYING variable in SELECT
-.TP
-\fB\-fassign\-ext\-dyn=\fR<support>
-ASSIGN EXTERNAL/DYNAMIC in SELECT
-.TP
-\fB\-fassign\-disk\-from=\fR<support>
-ASSIGN DISK FROM variable in SELECT
-.TP
-\fB\-fvsam\-status=\fR<support>
-VSAM status in FILE STATUS
-.TP
-\fB\-fself\-call\-recursive=\fR<support>
-CALL to own PROGRAM\-ID implies RECURSIVE attribute
-.TP
-\fB\-frecord\-contains\-depending\-clause=\fR<support>
-DEPENDING clause in RECORD CONTAINS
-.TP
-\fB\-fpicture\-l=\fR<support>
-PICTURE string with 'L' character
-.IP
-where <support> is one of the following:
-\&'ok', 'warning', 'archaic', 'obsolete', 'skip', 'ignore', 'error', 'unconformable'
-.TP
-\fB\-fnot\-reserved=\fR<word>
-word to be taken out of the reserved words list
-.TP
-\fB\-freserved=\fR<word>
-word to be added to reserved words list
-.TP
-\fB\-freserved=\fR<word>:<alias>
-word to be added to reserved words list as alias
-.TP
-\fB\-fnot\-register=\fR<word>
-special register to disable
-.TP
-\fB\-fregister=\fR<word> or <word>:<definition>, where definition uses backslash esca
-special register to enable
-.SH AUTHOR
-Written by Keisuke Nishida, Roger While, Ron Norman, Simon Sobisch, Edward Hart
-Built Jul 28 2023 19:20:47
-Packaged Jul 28 2023 17:02:56 UTC
-C version "10.2.1 20210110"
-.SH "REPORTING BUGS"
-Report bugs to: bug\-gnucobol@gnu.org
-or (preferably) use the issue tracker via the home page.
-.br
-GnuCOBOL home page: <https://www.gnu.org/software/gnucobol/>
-.br
-General help using GNU software: <https://www.gnu.org/gethelp/>
-.SH COPYRIGHT
-Copyright \(co 2023 Free Software Foundation, Inc.
-License GPLv3+: GNU GPL version 3 or later <https://gnu.org/licenses/gpl.html>
-.br
-This is free software; see the source for copying conditions. There is NO
-warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-.SH "SEE ALSO"
-The full documentation for
-.B cobc
-is maintained as a Texinfo manual. If the
-.B info
-and
-.B cobc
-programs are properly installed at your site, the command
-.IP
-.B info gnucobol
-.PP
-should give you access to the complete manual.
diff --git a/cobc/parser.c b/cobc/parser.c
deleted file mode 100644
index 78cf960..0000000
--- a/cobc/parser.c
+++ /dev/null
@@ -1,32154 +0,0 @@
-/* A Bison parser, made by GNU Bison 3.0.4. */
-
-/* Bison implementation for Yacc-like parsers in C
-
- Copyright (C) 1984, 1989-1990, 2000-2015 Free Software Foundation, Inc.
-
- This program 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.
-
- This program 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 this program. If not, see <http://www.gnu.org/licenses/>. */
-
-/* As a special exception, you may create a larger work that contains
- part or all of the Bison parser skeleton and distribute that work
- under terms of your choice, so long as that work isn't itself a
- parser generator using the skeleton or a modified version thereof
- as a parser skeleton. Alternatively, if you modify or redistribute
- the parser skeleton itself, you may (at your option) remove this
- special exception, which will cause the skeleton and the resulting
- Bison output files to be licensed under the GNU General Public
- License without this special exception.
-
- This special exception was added by the Free Software Foundation in
- version 2.2 of Bison. */
-
-/* C LALR(1) parser skeleton written by Richard Stallman, by
- simplifying the original so-called "semantic" parser. */
-
-/* All symbols defined below should begin with yy or YY, to avoid
- infringing on user name space. This should be done even for local
- variables, as they might otherwise be expanded by user macros.
- There are some unavoidable exceptions within include files to
- define necessary library symbols; they are noted "INFRINGES ON
- USER NAME SPACE" below. */
-
-/* Identify Bison output. */
-#define YYBISON 1
-
-/* Bison version. */
-#define YYBISON_VERSION "3.0.4"
-
-/* Skeleton name. */
-#define YYSKELETON_NAME "yacc.c"
-
-/* Pure parsers. */
-#define YYPURE 0
-
-/* Push parsers. */
-#define YYPUSH 0
-
-/* Pull parsers. */
-#define YYPULL 1
-
-
-
-
-/* Copy the first part of user declarations. */
-#line 28 "parser.y" /* yacc.c:339 */
-
-#include "config.h"
-
-#include <stdlib.h>
-#include <stdio.h>
-#include <string.h>
-#ifdef HAVE_STRINGS_H
-#include <strings.h>
-#endif
-
-#define COB_IN_PARSER 1
-#include "cobc.h"
-#include "tree.h"
-#include "libcob/coblocal.h"
-
-#define _PARSER_H /* work around bad Windows SDK header */
-
-#ifndef _STDLIB_H
-#define _STDLIB_H 1
-#endif
-
-#define YYSTYPE cb_tree
-#define yyerror(x) cb_error_always ("%s", x)
-
-#define push_expr(type, node) \
- current_expr = cb_build_list (cb_int (type), node, current_expr)
-
-/* Statement terminator definitions */
-#define TERM_NONE 0
-#define TERM_ACCEPT 1U
-#define TERM_ADD 2U
-#define TERM_CALL 3U
-#define TERM_COMPUTE 4U
-#define TERM_DELETE 5U
-#define TERM_DISPLAY 6U
-#define TERM_DIVIDE 7U
-#define TERM_EVALUATE 8U
-#define TERM_IF 9U
-#define TERM_JSON 10U
-#define TERM_MODIFY 11U
-#define TERM_MULTIPLY 12U
-#define TERM_PERFORM 13U
-#define TERM_READ 14U
-#define TERM_RECEIVE 15U
-#define TERM_RETURN 16U
-#define TERM_REWRITE 17U
-#define TERM_SEARCH 18U
-#define TERM_START 19U
-#define TERM_STRING 20U
-#define TERM_SUBTRACT 21U
-#define TERM_UNSTRING 22U
-#define TERM_WRITE 23U
-#define TERM_XML 24U
-#define TERM_MAX 25U /* Always last entry, used for array size */
-
-#define TERMINATOR_WARNING(x,z) terminator_warning (x, TERM_##z, #z)
-#define TERMINATOR_ERROR(x,z) terminator_error (x, TERM_##z, #z)
-#define TERMINATOR_CLEAR(x,z) terminator_clear (x, TERM_##z)
-
-/* Defines for duplicate checks */
-/* Note - We use <= 16 for common item definitions and */
-/* > 16 for non-common item definitions e.g. REPORT and SCREEN */
-#define SYN_CLAUSE_1 (1U << 0)
-#define SYN_CLAUSE_2 (1U << 1)
-#define SYN_CLAUSE_3 (1U << 2)
-#define SYN_CLAUSE_4 (1U << 3)
-#define SYN_CLAUSE_5 (1U << 4)
-#define SYN_CLAUSE_6 (1U << 5)
-#define SYN_CLAUSE_7 (1U << 6)
-#define SYN_CLAUSE_8 (1U << 7)
-#define SYN_CLAUSE_9 (1U << 8)
-#define SYN_CLAUSE_10 (1U << 9)
-#define SYN_CLAUSE_11 (1U << 10)
-#define SYN_CLAUSE_12 (1U << 11)
-#define SYN_CLAUSE_13 (1U << 12)
-#define SYN_CLAUSE_14 (1U << 13)
-#define SYN_CLAUSE_15 (1U << 14)
-#define SYN_CLAUSE_16 (1U << 15)
-#define SYN_CLAUSE_17 (1U << 16)
-#define SYN_CLAUSE_18 (1U << 17)
-#define SYN_CLAUSE_19 (1U << 18)
-#define SYN_CLAUSE_20 (1U << 19)
-#define SYN_CLAUSE_21 (1U << 20)
-#define SYN_CLAUSE_22 (1U << 21)
-#define SYN_CLAUSE_23 (1U << 22)
-#define SYN_CLAUSE_24 (1U << 23)
-#define SYN_CLAUSE_25 (1U << 24)
-#define SYN_CLAUSE_26 (1U << 25)
-#define SYN_CLAUSE_27 (1U << 26)
-#define SYN_CLAUSE_28 (1U << 27)
-#define SYN_CLAUSE_29 (1U << 28)
-#define SYN_CLAUSE_30 (1U << 29)
-#define SYN_CLAUSE_31 (1U << 30)
-#define SYN_CLAUSE_32 (1U << 31)
-
-#define EVAL_DEPTH 32
-#define PROG_DEPTH 16
-
-/* Global variables */
-
-struct cb_program *current_program = NULL; /* program in parse/syntax check/codegen */
-struct cb_label *current_section = NULL;
-struct cb_label *current_paragraph = NULL;
-struct cb_statement *current_statement = NULL;
-cb_tree defined_prog_list = NULL;
-int cb_exp_line = 0;
-
-int functions_are_all = 0;
-int non_const_word = 0;
-int suppress_data_exceptions = 0;
-unsigned int cobc_repeat_last_token = 0;
-unsigned int cobc_in_id = 0;
-unsigned int cobc_in_procedure = 0;
-unsigned int cobc_in_repository = 0;
-unsigned int cobc_cs_check = 0;
-unsigned int cobc_allow_program_name = 0;
-unsigned int cobc_in_xml_generate_body = 0;
-unsigned int cobc_in_json_generate_body = 0;
-unsigned int cobc_areacheck = 0;
-unsigned int cobc_in_area_a = 0;
-
-/* Local variables */
-
-enum inspect_rep_keyword {
- INSPECT_REP_DEFAULT,
- INSPECT_REP_ALL,
- INSPECT_REP_LEADING,
- INSPECT_REP_FIRST,
- INSPECT_REP_TRAILING,
-};
-
-union examine_keyword {
- /* EXAMINE TALLYING/REPLACING options */
- enum {
- EXAMINE_TAL_ALL,
- EXAMINE_TAL_LEADING,
- EXAMINE_TAL_UNTIL_FIRST,
- } tallying;
- enum {
- EXAMINE_REP_ALL,
- EXAMINE_REP_LEADING,
- EXAMINE_REP_FIRST,
- EXAMINE_REP_UNTIL_FIRST,
- } replacing;
-};
-
-enum tallying_phrase {
- NO_PHRASE,
- FOR_PHRASE,
- CHARACTERS_PHRASE,
- ALL_LEADING_TRAILING_PHRASES,
- VALUE_REGION_PHRASE
-};
-
-enum key_clause_type {
- NO_KEY,
- RECORD_KEY,
- RELATIVE_KEY
-};
-
-static cb_tree current_expr;
-static struct cb_field *current_field;
-static struct cb_field *control_field;
-static struct cb_field *description_field;
-static struct cb_file *current_file;
-static struct cb_cd *current_cd;
-static struct cb_report *current_report;
-static struct cb_report *report_instance;
-static struct cb_key_component *key_component_list;
-
-static struct cb_file *linage_file;
-static cb_tree next_label_list;
-
-static const char *stack_progid[PROG_DEPTH];
-
-static enum cb_storage current_storage;
-
-static cb_tree perform_stack;
-static cb_tree qualifier;
-static cb_tree keys_list;
-
-static cb_tree save_tree;
-static cb_tree start_tree;
-
-static unsigned int check_unreached;
-static unsigned int within_typedef_definition;
-static unsigned int in_declaratives;
-static unsigned int in_debugging;
-static unsigned int current_linage;
-static unsigned int report_count;
-static unsigned int first_prog;
-static unsigned int setup_from_identification;
-static unsigned int use_global_ind;
-static unsigned int same_area;
-static enum inspect_rep_keyword inspect_keyword;
-static union examine_keyword examine_keyword;
-static unsigned int main_flag_set;
-static int next_label_id;
-static int eval_level;
-static int eval_inc;
-static int eval_inc2;
-static int depth;
-static int first_nested_program;
-static enum cb_call_mode call_mode;
-static int size_mode;
-static cob_flags_t set_attr_val_on;
-static cob_flags_t set_attr_val_off;
-static cob_flags_t check_duplicate;
-static cob_flags_t check_on_off_duplicate;
-static cob_flags_t check_pic_duplicate;
-static cob_flags_t check_line_col_duplicate;
-static unsigned int skip_statements;
-static unsigned int start_debug;
-static unsigned int save_debug;
-static unsigned int needs_field_debug;
-static unsigned int needs_debug_item;
-static unsigned int env_div_seen;
-static cob_flags_t header_check;
-static unsigned int call_nothing;
-static enum tallying_phrase previous_tallying_phrase;
-static cb_tree default_rounded_mode;
-static enum key_clause_type key_type;
-
-static int ext_dyn_specified;
-static enum cb_assign_device assign_device;
-
-static enum cb_display_type display_type;
-static int is_first_display_item;
-static cb_tree advancing_value;
-static cb_tree upon_value;
-static cb_tree line_column;
-
-static unsigned int exhibit_changed;
-static unsigned int exhibit_named;
-
-static cb_tree ml_suppress_list;
-static cb_tree xml_encoding;
-static int with_xml_dec;
-static int with_attrs;
-
-static cb_tree alphanumeric_collation;
-static cb_tree national_collation;
-
-static enum cb_ml_suppress_category ml_suppress_category;
-
-static int term_array[TERM_MAX];
-static cb_tree eval_check[EVAL_DEPTH][EVAL_DEPTH];
-
-static int last_source_line = 0;
-
-/* Defines for header presence */
-
-#define COBC_HD_ENVIRONMENT_DIVISION (1U << 0)
-#define COBC_HD_CONFIGURATION_SECTION (1U << 1)
-#define COBC_HD_SPECIAL_NAMES (1U << 2)
-#define COBC_HD_INPUT_OUTPUT_SECTION (1U << 3)
-#define COBC_HD_FILE_CONTROL (1U << 4)
-#define COBC_HD_I_O_CONTROL (1U << 5)
-#define COBC_HD_DATA_DIVISION (1U << 6)
-#define COBC_HD_FILE_SECTION (1U << 7)
-#define COBC_HD_WORKING_STORAGE_SECTION (1U << 8)
-#define COBC_HD_LOCAL_STORAGE_SECTION (1U << 9)
-#define COBC_HD_LINKAGE_SECTION (1U << 10)
-#define COBC_HD_COMMUNICATION_SECTION (1U << 11)
-#define COBC_HD_REPORT_SECTION (1U << 12)
-#define COBC_HD_SCREEN_SECTION (1U << 13)
-#define COBC_HD_PROCEDURE_DIVISION (1U << 14)
-#define COBC_HD_PROGRAM_ID (1U << 15)
-#define COBC_HD_SOURCE_COMPUTER (1U << 16)
-#define COBC_HD_OBJECT_COMPUTER (1U << 17)
-#define COBC_HD_REPOSITORY (1U << 18)
-
-/* Static functions */
-
-/* Area A enforcement */
-
-static COB_INLINE void
-check_area_a (cb_tree word) {
- if (!cobc_in_area_a && cobc_areacheck) {
- (void) cb_syntax_check_x (word, _("'%s' should start in Area A"),
- CB_NAME (word));
- }
-}
-
-static COB_INLINE void
-check_area_a_of (const char * const item) {
- if (!cobc_in_area_a && cobc_areacheck) {
- (void) cb_syntax_check (_("%s should start in Area A"), item);
- }
-}
-
-static COB_INLINE void
-check_non_area_a_of (const char * const item) {
- if (cobc_in_area_a && cobc_areacheck) {
- (void) cb_syntax_check (_("%s should not start in Area A"), item);
- }
-}
-
-static COB_INLINE void
-check_non_area_a (cb_tree stmt) {
- if (cobc_in_area_a && cobc_areacheck) {
- if (stmt) {
- (void) cb_syntax_check_x (stmt, _("start of statement in Area A"));
- } else {
- (void) cb_syntax_check (_("start of statement in Area A"));
- }
- }
-}
-
-/* Collating sequences */
-
-/* Known collating sequences/alphabets */
-enum cb_colseq {
- CB_COLSEQ_NATIVE,
- CB_COLSEQ_ASCII,
- CB_COLSEQ_EBCDIC,
-};
-enum cb_colseq cb_default_colseq = CB_COLSEQ_NATIVE;
-
-/* Decipher character conversion table names */
-int cb_deciph_default_colseq_name (const char * const name)
-{
- if (!cb_strcasecmp (name, "ASCII")) {
- cb_default_colseq = CB_COLSEQ_ASCII;
- } else if (!cb_strcasecmp (name, "EBCDIC")) {
- cb_default_colseq = CB_COLSEQ_EBCDIC;
- } else if (!cb_strcasecmp (name, "NATIVE")) {
- cb_default_colseq = CB_COLSEQ_NATIVE;
- } else {
- return 1;
- }
- return 0;
-}
-
-static cb_tree
-build_colseq_tree (const char *alphabet_name,
- int alphabet_type,
- int alphabet_target)
-{
- const cb_tree name = cb_build_reference (alphabet_name);
- struct cb_alphabet_name * alpha;
- alpha = CB_ALPHABET_NAME (cb_build_alphabet_name (name));
- alpha->alphabet_type = alphabet_type;
- alpha->alphabet_target = alphabet_target;
- return name;
-}
-
-static cb_tree
-build_colseq (enum cb_colseq colseq)
-{
- switch (colseq) {
- case CB_COLSEQ_NATIVE:
- return NULL;
- case CB_COLSEQ_ASCII:
- return build_colseq_tree ("ASCII",
- CB_ALPHABET_ASCII,
- CB_ALPHABET_ALPHANUMERIC);
- case CB_COLSEQ_EBCDIC:
- return build_colseq_tree ("EBCDIC",
- CB_ALPHABET_EBCDIC,
- CB_ALPHABET_ALPHANUMERIC);
- /* LCOV_EXCL_START */
- default:
- cobc_err_msg (_("call to '%s' with invalid parameter '%s'"),
- "build_colseq", "colseq");
- COBC_ABORT ();
- }
- /* LCOV_EXCL_STOP */
-
-}
-
-
-/* Statements */
-
-static COB_INLINE COB_A_INLINE void
-emit_statement (cb_tree x)
-{
- if (!skip_statements) {
- CB_ADD_TO_CHAIN (x, current_program->exec_list);
- }
-}
-
-static void
-begin_statement_internal (enum cob_statement statement, const unsigned int term,
- const char *file, const int line)
-{
- cb_tree stmt_tree;
- current_statement = cb_build_statement (statement);
- current_paragraph->flag_statement = 1;
- stmt_tree = CB_TREE (current_statement);
- stmt_tree->source_file = file;
- stmt_tree->source_line = line;
- current_statement->flag_in_debug = in_debugging;
- emit_statement (stmt_tree);
- if (term) {
- term_array[term]++;
- }
- check_non_area_a (stmt_tree);
- if (check_unreached) {
- cb_warning_x (cb_warn_unreachable, stmt_tree,
- _("unreachable statement '%s'"),
- cb_statement_name[statement]);
- }
-}
-
-static COB_INLINE void
-begin_statement (enum cob_statement statement, const unsigned int term)
-{
- begin_statement_internal (statement, term, cb_source_file, cb_source_line);
-}
-
-/* begin statement, starting in "pos";
- note: to be able to check for area A, pos->source_column must be temporarily set to -1
- at the place where the tree is created, if cobc_in_area_a was true */
-static COB_INLINE void
-begin_statement_at_tree_pos (enum cob_statement statement, const unsigned int term, cb_tree pos)
-{
- const int backup_in_area_a = cobc_in_area_a;
- cobc_in_area_a = pos->source_column == -1;
- begin_statement_internal (statement, term, pos->source_file, pos->source_line);
- cobc_in_area_a = backup_in_area_a;
-}
-
-/* create a new statement with base attributes of real_statement, the
- location of pos and set this as new current_statement */
-static void
-begin_implicit_statement (struct cb_statement* real_statement, cb_tree pos)
-{
- struct cb_statement *new_statement;
- new_statement = cb_build_statement (real_statement->statement);
- new_statement->common = current_statement->common;
- new_statement->flag_in_debug = !!in_debugging;
- new_statement->flag_implicit = 1;
- if (pos){
- cb_tree stmt_tree;
- stmt_tree = CB_TREE (new_statement);
- stmt_tree->source_file = pos->source_file;
- stmt_tree->source_line = pos->source_line;
- }
- real_statement->body = cb_list_add (real_statement->body,
- CB_TREE (new_statement));
- current_statement = new_statement;
-}
-
-# if 0 /* activate only for debugging purposes for attribs
- FIXME: Replace by DEBUG_LOG function */
-static void
-print_bits (cob_flags_t num)
-{
- unsigned int size = sizeof (cob_flags_t);
- unsigned int max_pow = 1 << (size * 8 - 1);
- int i = 0;
-
- for(; i < size * 8; ++i){
- /* Print last bit and shift left. */
- fprintf (stderr, "%u ", num & max_pow ? 1 : 0);
- num = num << 1;
- }
- fprintf (stderr, "\n");
-}
-#endif
-
-/* general functions */
-
-static void
-copy_pos (cb_tree item, cb_tree source)
-{
- item->source_file = source->source_file;
- item->source_line = source->source_line;
-}
-
-static COB_INLINE int
-is_valid_statement_tree (cb_tree tree) {
- if ( tree == cb_error_node
- || (CB_LIST_P (tree) && CB_VALUE (tree) == cb_error_node)) {
- return 0;
- }
- return 1;
-}
-
-static void
-emit_entry (const char *name, const int encode, cb_tree using_list, cb_tree convention)
-{
- cb_tree l;
- cb_tree label;
- cb_tree entry_conv;
- char buff[COB_MINI_BUFF];
-
- snprintf (buff, (size_t)COB_MINI_MAX, "E$%s", name);
- label = cb_build_label (cb_build_reference (buff), NULL);
- if (encode) {
- CB_LABEL (label)->name = cb_encode_program_id (name, 0, cb_fold_call);
- CB_LABEL (label)->orig_name = name;
- } else {
- CB_LABEL (label)->name = name;
- CB_LABEL (label)->orig_name = current_program->orig_program_id;
- }
- CB_LABEL (label)->flag_begin = 1;
- CB_LABEL (label)->flag_entry = 1;
- emit_statement (label);
-
- if (current_program->flag_debugging) {
- emit_statement (cb_build_debug (cb_debug_contents,
- "START PROGRAM", NULL));
- }
-
- cb_validate_parameters_and_returning (current_program, using_list);
-
- for (l = current_program->entry_list; l; l = CB_CHAIN (l)) {
- struct cb_label *check = CB_LABEL (CB_PURPOSE (l));
- if (strcmp (name, check->name) == 0) {
- cb_error_x (current_statement
- ? CB_TREE (current_statement)
- : CB_TREE (current_program),
- _("ENTRY '%s' duplicated"), name);
- }
- }
-
- if (convention) {
- entry_conv = convention;
- } else {
- entry_conv = current_program->entry_convention;
- }
-
- current_program->entry_list =
- cb_list_append (current_program->entry_list,
- CB_BUILD_PAIR (label, CB_BUILD_PAIR (entry_conv, using_list)));
-}
-
-/* Main entry point and the number of its main parameters */
-static void
-emit_main_entry (struct cb_program *program, cb_tree using_list)
-{
- if (using_list) {
- program->num_proc_params = cb_list_length (using_list);
- }
-
- emit_entry (program->program_id, 0, using_list, NULL);
- if (program->source_name) {
- emit_entry (program->source_name, 1, using_list, NULL);
- }
-}
-
-static void
-emit_entry_goto (const char *name)
-{
- cb_tree l;
- cb_tree label;
- char buff[COB_MINI_BUFF];
-
- snprintf (buff, (size_t)COB_MINI_MAX, "E$%s", name);
- label = cb_build_label (cb_build_reference (buff), NULL);
- CB_LABEL (label)->name = name;
- CB_LABEL (label)->orig_name = name;
- CB_LABEL (label)->flag_begin = 1;
- CB_LABEL (label)->flag_entry = 1;
- CB_LABEL (label)->flag_entry_for_goto = 1;
-#if 0 /* seems to be not necessary */
- copy_pos (label, current_statement);
-#endif
- emit_statement (label);
-
- for (l = current_program->entry_list_goto; l; l = CB_CHAIN (l)) {
- struct cb_label *real_label = CB_LABEL (CB_VALUE (l));
- if (strcmp (name, real_label->name) == 0) {
- cb_error_x (CB_TREE (current_statement),
- _("ENTRY FOR GO TO '%s' duplicated"), name);
- }
- }
-
- if (current_program->entry_list_goto) {
- current_program->entry_list_goto =
- cb_list_add (current_program->entry_list_goto, label);
- } else {
- current_program->entry_list_goto = CB_LIST_INIT (label);
- }
-}
-
-static size_t
-increment_depth (void)
-{
- if (++depth >= PROG_DEPTH) {
- cb_error (_("maximum nested program depth exceeded (%d)"),
- PROG_DEPTH);
- return 1;
- }
- return 0;
-}
-
-static void
-terminator_warning (cb_tree stmt, const unsigned int termid,
- const char *name)
-{
- char terminator[32];
-
- check_unreached = 0;
- if (term_array[termid]) {
- term_array[termid]--;
- /* LCOV_EXCL_START */
- } else {
- cobc_err_msg ("call to '%s' without any open term for %s",
- "terminator_warning", name);
- COBC_ABORT ();
- }
- /* LCOV_EXCL_STOP */
- snprintf (terminator, 32, "END-%s", name);
- if (is_reserved_word (terminator)) {
- cb_warning_x (cb_warn_terminator, CB_TREE (current_statement),
- _("%s statement not terminated by %s"), name, terminator);
- }
-
- /* Free tree associated with terminator */
- if (stmt) {
- cobc_parse_free (stmt);
- }
-}
-
-static void
-terminator_error (cb_tree stmt, const unsigned int termid, const char *name)
-{
- char terminator[32];
-
- check_unreached = 0;
- if (term_array[termid]) {
- term_array[termid]--;
- /* LCOV_EXCL_START */
- } else {
- cobc_err_msg ("call to '%s' without any open term for %s",
- "terminator_error", name);
- COBC_ABORT ();
- }
- /* LCOV_EXCL_STOP */
- snprintf (terminator, 32, "END-%s", name);
- if (is_reserved_word (terminator)) {
- cb_error_x (CB_TREE (current_statement),
- _("%s statement not terminated by %s"), name, terminator);
- } else {
- cb_error_x (CB_TREE (current_statement),
- _("%s statement not terminated"), name);
- }
-
- /* Free tree associated with terminator */
- if (stmt) {
- cobc_parse_free (stmt);
- }
-}
-
-static void
-terminator_clear (cb_tree stmt, const unsigned int termid)
-{
- struct cb_perform *p;
- check_unreached = 0;
- if (term_array[termid]) {
- term_array[termid]--;
- /* LCOV_EXCL_START */
- } else {
- cobc_err_msg ("call to '%s' without any open term for %s",
- "terminator_warning", cb_statement_name[current_statement->statement]);
- COBC_ABORT ();
- }
- /* LCOV_EXCL_STOP */
- if (termid == TERM_PERFORM
- && perform_stack) {
- p = CB_PERFORM (CB_VALUE (perform_stack));
- if (p->perform_type == CB_PERFORM_UNTIL) {
- cb_terminate_cond ();
- }
- }
- /* Free tree associated with terminator */
- if (stmt) {
- cobc_parse_free (stmt);
- }
-}
-
-static void
-setup_use_file (struct cb_file *fileptr)
-{
- struct cb_file *newptr;
-
- if (fileptr->organization == COB_ORG_SORT) {
- cb_error (_("USE statement invalid for SD file"));
- }
- if (fileptr->flag_global) {
- newptr = cobc_parse_malloc (sizeof(struct cb_file));
- *newptr = *fileptr;
- newptr->handler = current_section;
- newptr->handler_prog = current_program;
- if (!use_global_ind) {
- current_program->local_file_list =
- cb_list_add (current_program->local_file_list,
- CB_TREE (newptr));
- } else {
- current_program->global_file_list =
- cb_list_add (current_program->global_file_list,
- CB_TREE (newptr));
- }
- } else {
- fileptr->handler = current_section;
- }
-}
-
-/* note: same message in field.c */
-static int
-emit_duplicate_clause_message (const char *clause)
-{
- return cb_syntax_check (_("duplicate %s clause"), clause);
-}
-
-static int
-check_repeated (const char *clause, const cob_flags_t bitval,
- cob_flags_t *already_seen)
-{
- if (*already_seen & bitval) {
- return emit_duplicate_clause_message (clause);
- }
- *already_seen |= bitval;
- return 0;
-}
-
-static void
-emit_conflicting_clause_message (const char *clause, const char *conflicting)
-{
- if (cb_syntax_check (_("cannot specify both %s and %s"), clause, conflicting)) {
- cb_note (COBC_WARN_FILLER, 0, _("%s is ignored"), clause);
- }
-}
-
-
-static void
-error_if_no_page_lines_limit (const char *phrase)
-{
- if (!current_report->lines && !current_report->t_lines) {
- cb_error (_("cannot specify %s without number of lines on page"),
- phrase);
- }
-}
-
-static void
-setup_occurs (void)
-{
- check_repeated ("OCCURS", SYN_CLAUSE_7, &check_pic_duplicate);
- if (current_field->indexes == COB_MAX_SUBSCRIPTS) {
- cb_error (_("maximum OCCURS depth exceeded (%d)"),
- COB_MAX_SUBSCRIPTS);
- } else {
- current_field->indexes++;
- }
-
- if (current_field->flag_unbounded) {
- if (current_field->storage == CB_STORAGE_LINKAGE) {
- struct cb_field *p = current_field;
- while (p) {
- p->flag_above_unbounded = 1;
- p = p->parent;
- }
- } else {
- cb_tree x = CB_TREE (current_field);
- cb_error_x (x, _("'%s' is not in LINKAGE SECTION"), cb_name (x));
- current_field->flag_above_unbounded = 1;
- }
- }
-
- if (current_field->flag_item_based) {
- cb_error (_("%s and %s are mutually exclusive"), "BASED", "OCCURS");
- } else if (current_field->flag_external) {
- cb_error (_("%s and %s are mutually exclusive"), "EXTERNAL", "OCCURS");
- }
- current_field->flag_occurs = 1;
-}
-
-static void
-setup_occurs_min_max (cb_tree occurs_min, cb_tree occurs_max)
-{
- if (occurs_max) {
- current_field->occurs_min = cb_get_int (occurs_min);
- if (occurs_max != cb_int0) {
- current_field->occurs_max = cb_get_int (occurs_max);
- if (!current_field->depending) {
- if (cb_syntax_check (_("TO phrase without DEPENDING phrase"))) {
- cb_note (COBC_WARN_FILLER, 0,
- _("maximum number of occurrences assumed to be exact number"));
- current_field->occurs_min = 1; /* as done by IBM + MF */
- }
- }
- if (current_field->occurs_max <= current_field->occurs_min) {
- cb_error (_("OCCURS TO must be greater than OCCURS FROM"));
- current_field->occurs_max = current_field->occurs_min;
- }
- } else {
- current_field->occurs_max = 0; /* UNBOUNDED */
- }
- } else {
- current_field->occurs_min = 1; /* as done by IBM + MF */
- current_field->occurs_max = cb_get_int (occurs_min);
- if (current_field->depending) {
- cb_verify (cb_odo_without_to, _("OCCURS DEPENDING ON without TO phrase"));
- }
- }
- /* LCOV_EXCL_START */
- if (current_field->occurs_max > COB_MAX_FIELD_SIZE) {
- /* testing here to give an early error; unlikely to be reached
- with 64bit compilers so no own msgid for now; should be added
- when the maximum field size is changed to be configurable */
- cb_error_x (CB_TREE (current_field),
- _("'%s' cannot be larger than %d bytes"),
- current_field->name, COB_MAX_FIELD_SIZE);
- current_field->occurs_min = current_field->occurs_max = 1;
- }
- /* LCOV_EXCL_STOP */
-}
-
-static void
-check_relaxed_syntax (const cob_flags_t lev)
-{
- const char *s;
-
- switch (lev) {
- case COBC_HD_ENVIRONMENT_DIVISION:
- s = "ENVIRONMENT DIVISION";
- break;
- case COBC_HD_CONFIGURATION_SECTION:
- s = "CONFIGURATION SECTION";
- break;
- case COBC_HD_SPECIAL_NAMES:
- s = "SPECIAL-NAMES";
- break;
- case COBC_HD_INPUT_OUTPUT_SECTION:
- s = "INPUT-OUTPUT SECTION";
- break;
- case COBC_HD_FILE_CONTROL:
- s = "FILE-CONTROL";
- break;
- case COBC_HD_I_O_CONTROL:
- s = "I-O-CONTROL";
- break;
- case COBC_HD_DATA_DIVISION:
- s = "DATA DIVISION";
- break;
- case COBC_HD_FILE_SECTION:
- s = "FILE SECTION";
- break;
- case COBC_HD_WORKING_STORAGE_SECTION:
- s = "WORKING-STORAGE SECTION";
- break;
- case COBC_HD_LOCAL_STORAGE_SECTION:
- s = "LOCAL-STORAGE SECTION";
- break;
- case COBC_HD_LINKAGE_SECTION:
- s = "LINKAGE SECTION";
- break;
- case COBC_HD_COMMUNICATION_SECTION:
- s = "COMMUNICATION SECTION";
- break;
- case COBC_HD_REPORT_SECTION:
- s = "REPORT SECTION";
- break;
- case COBC_HD_SCREEN_SECTION:
- s = "SCREEN SECTION";
- break;
- case COBC_HD_PROCEDURE_DIVISION:
- s = "PROCEDURE DIVISION";
- break;
- case COBC_HD_PROGRAM_ID:
- s = "PROGRAM-ID";
- break;
- /* LCOV_EXCL_START */
- default:
- s = _("unknown");
- break;
- /* LCOV_EXCL_STOP */
- }
- if (cb_syntax_check (_("%s header missing"), s)) {
- cb_note (COBC_WARN_FILLER, 0, _("%s header assumed"), s);
- }
-}
-
-static void
-setup_default_collation (struct cb_program *program) {
- switch (cb_default_colseq) {
-#ifdef COB_EBCDIC_MACHINE
- case CB_COLSEQ_ASCII:
-#else
- case CB_COLSEQ_EBCDIC:
-#endif
- alphanumeric_collation = build_colseq (cb_default_colseq);
- break;
- default:
- alphanumeric_collation = NULL;
- }
- national_collation = NULL; /* TODO: default national collation */
- program->collating_sequence = alphanumeric_collation;
- program->collating_sequence_n = national_collation;
-}
-
-static void
-program_init_without_program_id (void)
-{
- cb_tree l;
-
- current_section = NULL;
- current_paragraph = NULL;
- l = cb_build_alphanumeric_literal (demangle_name,
- strlen (demangle_name));
- current_program->program_name = (char *)CB_LITERAL (l)->data;
- current_program->program_id
- = cb_build_program_id (current_program->program_name, 0);
- current_program->prog_type = COB_MODULE_TYPE_PROGRAM;
- if (!main_flag_set) {
- main_flag_set = 1;
- current_program->flag_main = cobc_flag_main;
- }
- setup_default_collation (current_program);
- check_relaxed_syntax (COBC_HD_PROGRAM_ID);
-}
-
-/* check if headers are present - return 0 if fine, 1 if missing
- Lev1 must always be present and is checked
- Lev2/3/4, if non-zero (forced) may be present
-*/
-static int
-check_headers_present (const cob_flags_t lev1, const cob_flags_t lev2,
- const cob_flags_t lev3, const cob_flags_t lev4)
-{
- int ret = 0;
- if (!(header_check & lev1)) {
- header_check |= lev1;
- check_relaxed_syntax (lev1);
- ret = 1;
- }
- if (lev2) {
- if (!(header_check & lev2)) {
- header_check |= lev2;
- check_relaxed_syntax (lev2);
- ret = 1;
- }
- }
- if (lev3) {
- if (!(header_check & lev3)) {
- header_check |= lev3;
- check_relaxed_syntax (lev3);
- ret = 1;
- }
- }
- if (lev4) {
- if (!(header_check & lev4)) {
- header_check |= lev4;
- check_relaxed_syntax (lev4);
- ret = 1;
- }
- }
- return ret;
-}
-
-/*
- TODO: Refactor header checks - have several header_checks: division_header,
- section_header, paragraph_header, sentence_type
-*/
-static void
-set_conf_section_part (const cob_flags_t part)
-{
- header_check &= ~COBC_HD_SOURCE_COMPUTER;
- header_check &= ~COBC_HD_OBJECT_COMPUTER;
- header_check &= ~COBC_HD_SPECIAL_NAMES;
- header_check &= ~COBC_HD_REPOSITORY;
- header_check |= part;
-}
-
-static const char *
-get_conf_section_part_name (const cob_flags_t part)
-{
- if (part == COBC_HD_SOURCE_COMPUTER) {
- return "SOURCE-COMPUTER";
- } else if (part == COBC_HD_OBJECT_COMPUTER) {
- return "OBJECT-COMPUTER";
- } else if (part == COBC_HD_SPECIAL_NAMES) {
- return "SPECIAL-NAMES";
- } else if (part == COBC_HD_REPOSITORY) {
- return "REPOSITORY";
- /* LCOV_EXCL_START */
- } else {
- /* This should never happen (and therefore doesn't get a translation) */
- cb_error ("unexpected configuration section part " CB_FMT_LLU, part);
- COBC_ABORT ();
- /* LCOV_EXCL_STOP */
- }
-}
-
-static int
-get_conf_section_part_order (const cob_flags_t part)
-{
- if (part == COBC_HD_SOURCE_COMPUTER) {
- return 1;
- } else if (part == COBC_HD_OBJECT_COMPUTER) {
- return 2;
- } else if (part == COBC_HD_SPECIAL_NAMES) {
- return 3;
- } else if (part == COBC_HD_REPOSITORY) {
- return 4;
- /* LCOV_EXCL_START */
- } else {
- /* This should never happen (and therefore doesn't get a translation) */
- cb_error ("unexpected configuration section part " CB_FMT_LLU, part);
- COBC_ABORT ();
- /* LCOV_EXCL_STOP */
- }
-}
-
-static void
-check_conf_section_order (const cob_flags_t part)
-{
- const cob_flags_t prev_part
- = header_check & (COBC_HD_SOURCE_COMPUTER
- | COBC_HD_OBJECT_COMPUTER
- | COBC_HD_SPECIAL_NAMES
- | COBC_HD_REPOSITORY);
-#define MESSAGE_LEN 100
- char message[MESSAGE_LEN] = { '\0' };
-
- if (prev_part == 0) {
- return;
- }
-
- if (prev_part == part) {
- cb_error (_("duplicate %s"), get_conf_section_part_name (part));
- } else if (get_conf_section_part_order (part) < get_conf_section_part_order (prev_part)) {
- snprintf (message, MESSAGE_LEN, _("%s incorrectly after %s"),
- get_conf_section_part_name (part),
- get_conf_section_part_name (prev_part));
- cb_verify (cb_incorrect_conf_sec_order, message);
- }
-}
-
-#undef MESSAGE_LEN
-
-/* check if a given register is available; if it is,
- enforce code generation and add a
- "receiving" entry for it when xref is requested */
-static void
-cb_set_register_receiving (struct cb_field *reg_field, int mandatory)
-{
- if (!reg_field) {
- if (mandatory) {
- cb_error ("missing register definition");
- }
- return;
- }
- reg_field->count++;
-
- if (cb_listing_xref) {
- cobc_xref_set_receiving (CB_TREE (reg_field));
- }
-}
-
-static enum cb_handler_type
-get_handler_type_from_statement (struct cb_statement *statement)
-{
- if (statement->statement == STMT_DISPLAY) {
- return DISPLAY_HANDLER;
- }
- if (statement->statement == STMT_XML_GENERATE
- || statement->statement == STMT_XML_PARSE) {
- return XML_HANDLER;
- }
- if (statement->statement == STMT_JSON_GENERATE
- || statement->statement == STMT_JSON_PARSE) {
- return JSON_HANDLER;
- }
-#if 0 /* not merged yet */
- if (statement->statement == STMT_DELETE_FILE) {
- return DELETE_FILE_HANDLER;
- }
-#endif
- if (statement->statement == STMT_SEND
- || statement->statement == STMT_RECEIVE) {
- return MCS_HANDLER;
- }
- return NO_HANDLER;
-}
-
-static void
-build_words_for_nested_programs (void)
-{
- cb_tree x;
- cb_tree y;
-
- /* Inherit special name mnemonics from parent */
- for (x = current_program->mnemonic_spec_list; x; x = CB_CHAIN (x)) {
- y = cb_build_reference (cb_name(CB_PURPOSE(x)));
- if (CB_SYSTEM_NAME_P (CB_VALUE(x))) {
- cb_define (y, CB_VALUE(x));
- } else {
- cb_build_constant (y, CB_VALUE(x));
- }
- }
-
- /* Inherit class names from parent */
- for (x = current_program->class_name_list; x; x = CB_CHAIN(x)) {
- y = cb_build_reference (cb_name(CB_VALUE(x)));
- cb_define (y, CB_VALUE(x));
- }
-}
-
-static void
-clear_initial_values (void)
-{
- perform_stack = NULL;
- current_statement = NULL;
- qualifier = NULL;
- in_declaratives = 0;
- in_debugging = 0;
- use_global_ind = 0;
- check_duplicate = 0;
- check_pic_duplicate = 0;
- skip_statements = 0;
- start_debug = 0;
- save_debug = 0;
- needs_field_debug = 0;
- needs_debug_item = 0;
- env_div_seen = 0;
- header_check = 0;
- next_label_id = 0;
- current_linage = 0;
- set_attr_val_on = 0;
- set_attr_val_off = 0;
- report_count = 0;
- current_storage = CB_STORAGE_WORKING;
- eval_level = 0;
- eval_inc = 0;
- eval_inc2 = 0;
- inspect_keyword = INSPECT_REP_DEFAULT;
- check_unreached = 0;
- cobc_in_id = 0;
- cobc_in_procedure = 0;
- cobc_in_repository = 0;
- cobc_in_xml_generate_body = 0;
- cobc_in_json_generate_body = 0;
- non_const_word = 0;
- suppress_data_exceptions = 0;
- same_area = 1;
- memset ((void *)eval_check, 0, sizeof(eval_check));
- memset ((void *)term_array, 0, sizeof(term_array));
- linage_file = NULL;
- current_file = NULL;
- current_cd = NULL;
- current_report = NULL;
- report_instance = NULL;
- next_label_list = NULL;
- default_rounded_mode = cb_int (COB_STORE_ROUND);
-}
-
-/*
- We must check for redefinitions of program-names and external program names
- outside of the usual reference/word_list methods as it may have to be done in
- a case-sensitive way.
-*/
-static void
-begin_scope_of_program_name (struct cb_program *program)
-{
- const char *prog_name = program->program_name;
- const char *prog_id = program->orig_program_id;
- cb_tree l;
-
- /*
- Error if we find a program or prototype with the same name as the
- given program or prototype, respectively.
- */
- for (l = defined_prog_list; l; l = CB_CHAIN (l)) {
- const struct cb_program *elt_program = CB_PROGRAM (CB_VALUE (l));
- const char *elt_name = elt_program->program_name;
- const char *elt_id = elt_program->orig_program_id;
- /*
- If we find a program's matching prototype or a prototype's
- matching definition, nothing needs to be done.
- */
- if (program->flag_prototype != elt_program->flag_prototype) {
- continue;
- }
-
- if (cb_fold_call && strcasecmp (prog_name, elt_name) == 0) {
- cb_error_x (CB_TREE(program),
- _("redefinition of program name '%s'"),
- elt_name);
- return;
- } else if (strcmp (prog_id, elt_id) == 0) {
- cb_error_x (CB_TREE(program),
- _("redefinition of program ID '%s'"),
- elt_id);
- return;
- }
- }
-
- /* Otherwise, add the program to the list. */
- defined_prog_list = cb_list_add (defined_prog_list, CB_TREE (program));
-}
-
-static void
-remove_program_name (struct cb_list *l, struct cb_list *prev)
-{
- if (prev == NULL) {
- defined_prog_list = l->chain;
- } else {
- prev->chain = l->chain;
- }
- cobc_parse_free (l);
-}
-
-/* Remove the program from defined_prog_list, if necessary. */
-static void
-end_scope_of_program_name (struct cb_program *program, const unsigned char type)
-{
- struct cb_list *prev = NULL;
- struct cb_list *l;
-
- /* create empty entry if the program has no PROCEDURE DIVISION, error for UDF */
- if (!program->entry_list) {
- if (type == COB_MODULE_TYPE_FUNCTION
- /* CHECKME: That would be valid in a function-definition according to COBOL2014
- --> How is it intended to work? */
- && !program->flag_prototype) {
- cb_error (_("FUNCTION '%s' has no PROCEDURE DIVISION"), program->program_name);
- } else {
- emit_main_entry (program, NULL);
- }
- }
- program->last_source_line = last_source_line;
-
- if (program->nested_level == 0
- || defined_prog_list == NULL) {
- return;
- }
-
- /* Remove any subprograms */
- l = CB_LIST (defined_prog_list);
- while (l) {
- const struct cb_program *lprog = CB_PROGRAM (l->value);
- if (lprog->nested_level > program->nested_level) {
- remove_program_name (l, prev);
- } else {
- prev = l;
- }
- if (prev && prev->chain != NULL) {
- l = CB_LIST (prev->chain);
- } else {
- l = NULL;
- }
- }
-
- /* Remove the specified program, if it is not COMMON */
- if (!program->flag_common) {
- l = CB_LIST (defined_prog_list);
- while (l) {
- const struct cb_program *lprog = CB_PROGRAM (l->value);
- /* The nested_level check is for the pathological case
- where two nested programs have the same name */
- if (program->nested_level == lprog->nested_level
- && !strcmp (program->orig_program_id, lprog->orig_program_id)) {
- remove_program_name (l, prev);
- if (prev && prev->chain != NULL) {
- l = CB_LIST (prev->chain);
- } else {
- l = NULL;
- }
- break;
- } else {
- prev = l;
- if (l->chain != NULL) {
- l = CB_LIST (l->chain);
- } else {
- l = NULL;
- }
- }
- }
- }
-}
-
-static void
-setup_registers (void)
-{
- const char *backup_source_file = cb_source_file;
- cb_source_file = "register-definition";
- cb_set_intr_when_compiled ();
- cb_build_registers ();
- cb_add_external_defined_registers ();
- cb_source_file = backup_source_file;
-}
-
-static void
-setup_program_start (void)
-{
- if (setup_from_identification) {
- setup_from_identification = 0;
- return;
- }
- current_section = NULL;
- current_paragraph = NULL;
-
- if (depth != 0 && first_nested_program) {
- check_headers_present (COBC_HD_PROCEDURE_DIVISION, 0, 0, 0);
- }
- first_nested_program = 1;
-}
-
-static int
-setup_program (cb_tree id, cb_tree as_literal, const enum cob_module_type type, const int prototype)
-{
- const char *external_name = NULL;
-
- setup_program_start ();
-
- /* finish last program/function */
- if (!first_prog) {
- const char *backup_source_file = cb_source_file;
- if (!current_program->flag_validated) {
- current_program->flag_validated = 1;
- cb_validate_program_body (current_program);
- }
-
- /* setup new */
- clear_initial_values ();
- current_program = cb_build_program (current_program, depth);
- if (depth) {
- build_words_for_nested_programs();
- }
- cb_source_file = backup_source_file;
- setup_registers ();
- } else {
- /* in this case we had setup an "empty" current_program
- along with registers before (on start) and now only "add"
- to that */
- first_prog = 0;
- }
-
- /* set internal name */
- if (CB_LITERAL_P (id)) {
- current_program->program_name = (char *)CB_LITERAL (id)->data;
- } else {
- current_program->program_name = CB_NAME (id);
- }
-
- stack_progid[depth] = current_program->program_name;
- current_program->prog_type = type;
- current_program->flag_prototype = prototype;
-
- if (depth != 0 && type == COB_MODULE_TYPE_FUNCTION) {
- cb_error (_("functions may not be defined within a program/function"));
- }
-
- if (increment_depth ()) {
- return 1;
- }
-
- /* set external name if specified */
- if (as_literal) {
- external_name = (const char *)CB_LITERAL (as_literal)->data;
- } else {
- external_name = current_program->program_name;
- }
-
- /* build encoded external PROGRAM-ID */
- current_program->program_id
- = cb_build_program_id (external_name, type == COB_MODULE_TYPE_FUNCTION);
-
- if (type == COB_MODULE_TYPE_PROGRAM) {
- if (!main_flag_set
- && !current_program->flag_prototype) {
- main_flag_set = 1;
- current_program->flag_main = !!cobc_flag_main;
- }
- } else { /* COB_MODULE_TYPE_FUNCTION */
- current_program->flag_recursive = 1;
- }
-
- if (CB_REFERENCE_P (id)) {
- cb_define (id, CB_TREE (current_program));
- }
-
- /* Initalize default COLLATING SEQUENCE */
- setup_default_collation (current_program);
-
- begin_scope_of_program_name (current_program);
-
- return 0;
-}
-
-static void
-decrement_depth (const char *name, const unsigned char type)
-{
- int d;
-
- if (depth) {
- depth--;
- }
-
- if (!strcmp (stack_progid[depth], name)) {
- return;
- }
-
- if (type == COB_MODULE_TYPE_FUNCTION) {
- cb_error (_("END FUNCTION '%s' is different from FUNCTION-ID '%s'"),
- name, stack_progid[depth]);
- return;
- }
-
- /* Set depth to that of whatever program we just ended, if it exists. */
- for (d = depth; d >= 0; --d) {
- if (!strcmp (stack_progid[d], name)) {
- depth = d;
- return;
- }
- }
-
- if (depth != d) {
- cb_error (_("END PROGRAM '%s' is different from PROGRAM-ID '%s'"),
- name, stack_progid[depth]);
- }
-}
-
-static void
-clean_up_program (cb_tree name, const unsigned char type)
-{
- char *s;
-
- end_scope_of_program_name (current_program, type);
-
- if (name) {
- if (CB_LITERAL_P (name)) {
- s = (char *)(CB_LITERAL (name)->data);
- } else {
- s = (char *)(CB_NAME (name));
- }
-
- decrement_depth (s, type);
- }
-
- current_section = NULL;
- current_paragraph = NULL;
- if (!current_program->flag_validated) {
- current_program->flag_validated = 1;
- cb_validate_program_body (current_program);
- }
-}
-
-static const char *
-get_literal_or_word_name (const cb_tree x)
-{
- if (CB_LITERAL_P (x)) {
- return (const char *) CB_LITERAL (x)->data;
- } else { /* CB_REFERENCE_P (x) */
- return (const char *) CB_NAME (x);
- }
-}
-
-/* verify and set currency symbol used in picture (compile time) and - if no currency
- string is explicitly set (which is currently not implemented) - as currency string
- (run time for display and [de-]editing)*/
-static void
-set_currency_picture_symbol (const cb_tree x)
-{
- unsigned char *s = CB_LITERAL (x)->data;
-
- if (CB_LITERAL (x)->size != 1) {
- cb_error_x (x, _("currency symbol must be one character long"));
- return;
- }
- switch (*s) {
- case '0':
- case '1':
- case '2':
- case '3':
- case '4':
- case '5':
- case '6':
- case '7':
- case '8':
- case '9':
- case 'A':
- case 'B':
- case 'C':
- case 'D':
- case 'E':
- case 'N':
- case 'P':
- case 'R':
- case 'S':
- case 'V':
- case 'X':
- case 'Z':
- case 'a':
- case 'b':
- case 'c':
- case 'd':
- case 'e':
- case 'n':
- case 'p':
- case 'r':
- case 's':
- case 'v':
- case 'x':
- case 'z':
- case '+':
- case '-':
- case ',':
- case '.':
- case '*':
- case '/':
- case ';':
- case '(':
- case ')':
- case '=':
- case '\'':
- case '"':
- case ' ':
-#if 0 /* note: MicroFocus also dissalows L (VAX) and G (OSVS) */
- case 'L':
- case 'G':
- case 'l':
- case 'g':
-#endif
- cb_error_x (x, _("invalid character '%c' in currency symbol"), s[0]);
- return;
- default:
- break;
- }
- current_program->currency_symbol = s[0];
-}
-
-/* Return 1 if the prototype name is the same as the current function's. */
-static int
-check_prototype_redefines_current_element (const cb_tree prototype_name)
-{
- const char *name = get_literal_or_word_name (prototype_name);
-
- if (strcasecmp (name, current_program->program_name) == 0) {
- cb_warning_x (COBC_WARN_FILLER, prototype_name,
- _("prototype has same name as current function and will be ignored"));
- return 1;
- }
-
- return 0;
-}
-
-/* Returns 1 if the prototype has been duplicated. */
-static int
-check_for_duplicate_prototype (const cb_tree prototype_name,
- const cb_tree prototype)
-{
- cb_tree dup;
-
- if (CB_WORD_COUNT (prototype_name) > 0) {
- /* Make sure the duplicate is a prototype */
- dup = cb_ref (prototype_name);
- if (!CB_PROTOTYPE_P (dup)) {
- redefinition_error (prototype_name);
- return 1;
- }
-
- /* Check the duplicate prototypes match */
- if (strcmp (CB_PROTOTYPE (prototype)->ext_name,
- CB_PROTOTYPE (dup)->ext_name)
- || CB_PROTOTYPE (prototype)->type != CB_PROTOTYPE (dup)->type) {
- cb_error_x (prototype_name,
- _("duplicate REPOSITORY entries for '%s' do not match"),
- get_literal_or_word_name (prototype_name));
- } else {
- cb_warning_x (COBC_WARN_FILLER, prototype_name,
- _("duplicate REPOSITORY entry for '%s'"),
- get_literal_or_word_name (prototype_name));
- }
- return 1;
- }
-
- return 0;
-}
-
-static void
-setup_prototype (cb_tree prototype_name, cb_tree ext_name,
- const enum cob_module_type type, const int is_current_element)
-{
- cb_tree prototype;
- int name_redefinition_allowed;
-
- if (!is_current_element
- && check_prototype_redefines_current_element (prototype_name)) {
- return;
- }
-
- prototype = cb_build_prototype (prototype_name, ext_name, type);
-
- if (!is_current_element
- && check_for_duplicate_prototype (prototype_name, prototype)) {
- return;
- }
-
- name_redefinition_allowed = type == COB_MODULE_TYPE_PROGRAM
- && is_current_element && cb_program_name_redefinition;
- if (!name_redefinition_allowed) {
- if (CB_LITERAL_P (prototype_name)) {
- cb_define (cb_build_reference ((const char *)CB_LITERAL (prototype_name)->data), prototype);
- } else {
- cb_define (prototype_name, prototype);
- }
-
- if (type == COB_MODULE_TYPE_PROGRAM) {
- current_program->program_spec_list =
- cb_list_add (current_program->program_spec_list, prototype);
- } else { /* COB_MODULE_TYPE_FUNCTION */
- current_program->user_spec_list =
- cb_list_add (current_program->user_spec_list, prototype);
- }
- }
-}
-
-static void
-error_if_record_delimiter_incompatible (const enum cob_file_org organization,
- const char *organization_name)
-{
- int is_compatible;
-
- if (!current_file->flag_delimiter) {
- return;
- }
-
- if (organization == COB_ORG_LINE_SEQUENTIAL) {
- is_compatible = current_file->organization == COB_ORG_SEQUENTIAL
- || current_file->organization == COB_ORG_LINE_SEQUENTIAL;
- } else {
- is_compatible = current_file->organization == organization;
- }
-
- if (!is_compatible) {
- cb_error (_("ORGANIZATION %s is incompatible with RECORD DELIMITER"),
- organization_name);
- }
-}
-
-static int
-set_current_field (int level, cb_tree name)
-{
- cb_tree x = cb_build_field_tree (level, name, current_field,
- current_storage, current_file, 0);
-
- if (CB_INVALID_TREE (x)) {
- return 1;
- } else {
- current_field = CB_FIELD (x);
- check_pic_duplicate = 0;
- if (current_field->level == 1 || current_field->level == 77) {
- within_typedef_definition = 0;
- }
- }
-
- return 0;
-}
-
-static void
-setup_external_definition (cb_tree x, const int type)
-{
- /* note: syntax checks for conflicting clauses
- are done in inherit_external_definition */
-
- if (x != cb_error_node) {
- struct cb_field *f = CB_FIELD (cb_ref (x));
-
- /* additional checks if the definition isn't provided by type */
- if (type != 1 /* called with SAME AS / LIKE data-name */ ) {
- if (f->level == 88) {
- cb_error (_("condition-name not allowed here: '%s'"), cb_name (x));
- x = cb_error_node;
- }
- /* note: the following are not explicit specified but implied with
- LIKE as ILE-COBOL does not have those sections */
- if (f->storage == CB_STORAGE_SCREEN) {
- cb_error (_("SCREEN item cannot be used here"));
- x = cb_error_node;
- } else if (f->storage == CB_STORAGE_REPORT) {
- cb_error (_("REPORT item cannot be used here"));
- x = cb_error_node;
- }
- if (type == 0) {
- /* rules that apply only to SAME AS */
- if (f->flag_is_typedef) {
- cb_error (_("TYPEDEF item cannot be used here"));
- x = cb_error_node;
- }
- }
- }
-
- if (current_field->level == 77) {
- if (type != 2 /* called with LIKE */
- && f->children) {
- cb_error (_("elementary item expected"));
- x = cb_error_node;
- }
- } else {
- struct cb_field *p = current_field;
- do {
- if (p == f) {
- cb_error (_ ("item may not reference itself"));
- x = cb_error_node;
- break;
- }
- p = p->parent;
- } while (p);
- for (p = f->parent; p; p = p->parent) {
- if (p->usage != CB_USAGE_DISPLAY) {
- cb_error (_("item may not be subordinate to any item with USAGE clause"));
- } else if (p->flag_sign_clause) {
- cb_error (_("item may not be subordinate to any item with SIGN clause"));
- } else {
- continue;
- }
- x = cb_error_node;
- break;
- }
- }
- }
-
- if (x == cb_error_node) {
- current_field->flag_is_verified = 1;
- current_field->flag_invalid = 1;
- current_field->external_definition = cb_error_node;
- } else {
- current_field->external_definition = cb_ref (x);
- }
-}
-
-static void
-setup_external_definition_type (cb_tree x)
-{
- if (!check_repeated ("TYPE TO", SYN_CLAUSE_31, &check_pic_duplicate)) {
- if (current_field->external_definition) {
- emit_conflicting_clause_message ("SAME AS", "TYPE TO");
- }
- setup_external_definition (x, 1);
- }
-}
-
-/* verifies that no conflicting clauses are used and
- inherits the definition of the original field specified
- by SAME AS or by type_name into the current_field */
-static void
-inherit_external_definition (const int lvl)
-{
- /* syntax checks */
- {
- /* note: REDEFINES (clause 1) is allowed with RM/COBOL but not COBOL 2002+ */
- static const cob_flags_t allowed_clauses =
- SYN_CLAUSE_1 | SYN_CLAUSE_2 | SYN_CLAUSE_3 | SYN_CLAUSE_7 | SYN_CLAUSE_12;
- cob_flags_t tested = check_pic_duplicate & ~(allowed_clauses);
- if (tested != SYN_CLAUSE_30 && tested != SYN_CLAUSE_31
- && tested != 0 /* USAGE as TYPE TO */) {
- struct cb_field *fld = CB_FIELD (current_field->external_definition);
- cb_error_x (CB_TREE(current_field), _("illegal combination of %s with other clauses"),
- fld->flag_is_typedef ? "TYPE TO" : "SAME AS");
- current_field->flag_is_verified = 1;
- current_field->flag_invalid = 1;
- return;
- }
- }
- /* actual copy */
- {
- struct cb_field *fld = CB_FIELD (current_field->external_definition);
- int new_level = lvl;
- int old_level = current_field->level;
- copy_into_field (fld, current_field);
- if (new_level > 1 && new_level < 66 && new_level > old_level) {
- cb_error (_("entry following %s may not be subordinate to it"),
- fld->flag_is_typedef ? "TYPE TO" : "SAME AS");
- }
- }
-}
-
-static cb_tree
-get_finalized_description_tree (void)
-{
- struct cb_field *p;
-
- /* finalize last field if target of SAME AS / TYPEDEF */
- if (current_field && !CB_INVALID_TREE (current_field->external_definition)) {
- inherit_external_definition (0);
- }
-
- /* validate the complete current "block" */
- for (p = description_field; p; p = p->sister) {
- cb_validate_field (p);
- }
- return CB_TREE (description_field);
-}
-
-static void
-check_not_both (const cob_flags_t flag1, const cob_flags_t flag2,
- const char *flag1_name, const char *flag2_name,
- const cob_flags_t flags, const cob_flags_t flag_to_set)
-{
- if (flag_to_set == flag1 && (flags & flag2)) {
- cb_error (_("cannot specify both %s and %s"),
- flag1_name, flag2_name);
- } else if (flag_to_set == flag2 && (flags & flag1)) {
- cb_error (_("cannot specify both %s and %s"),
- flag1_name, flag2_name);
-
- }
-}
-
-static COB_INLINE COB_A_INLINE void
-check_not_highlight_and_lowlight (const cob_flags_t flags,
- const cob_flags_t flag_to_set)
-{
- check_not_both (COB_SCREEN_HIGHLIGHT, COB_SCREEN_LOWLIGHT,
- "HIGHLIGHT", "LOWLIGHT", flags, flag_to_set);
-}
-
-static void
-set_screen_attr (const char *clause, const cob_flags_t bitval)
-{
- if (current_field->screen_flag & bitval) {
- emit_duplicate_clause_message (clause);
- } else {
- current_field->screen_flag |= bitval;
- }
-}
-
-static void
-set_attr_with_conflict (const char *clause, const cob_flags_t bitval,
- const char *confl_clause, const cob_flags_t confl_bit,
- const int local_check_duplicate, cob_flags_t *flags)
-{
- if (local_check_duplicate && (*flags & bitval)) {
- emit_duplicate_clause_message (clause);
- } else if (*flags & confl_bit) {
- emit_conflicting_clause_message (clause, confl_clause);
- } else {
- *flags |= bitval;
- }
-}
-
-static COB_INLINE COB_A_INLINE void
-set_screen_attr_with_conflict (const char *clause, const cob_flags_t bitval,
- const char *confl_clause,
- const cob_flags_t confl_bit)
-{
- set_attr_with_conflict (clause, bitval, confl_clause, confl_bit, 1,
- ¤t_field->screen_flag);
-}
-
-static COB_INLINE COB_A_INLINE int
-has_dispattr (const cob_flags_t attrib)
-{
- return current_statement->attr_ptr
- && current_statement->attr_ptr->dispattrs & attrib;
-}
-
-static void
-attach_attrib_to_cur_stmt (void)
-{
- if (!current_statement->attr_ptr) {
- current_statement->attr_ptr =
- cobc_parse_malloc (sizeof(struct cb_attr_struct));
- }
-}
-
-static COB_INLINE COB_A_INLINE void
-set_dispattr (const cob_flags_t attrib)
-{
- attach_attrib_to_cur_stmt ();
- current_statement->attr_ptr->dispattrs |= attrib;
-}
-
-static COB_INLINE COB_A_INLINE void
-set_dispattr_with_conflict (const char *attrib_name, const cob_flags_t attrib,
- const char *confl_name,
- const cob_flags_t confl_attrib)
-{
- attach_attrib_to_cur_stmt ();
- set_attr_with_conflict (attrib_name, attrib, confl_name, confl_attrib, 0,
- ¤t_statement->attr_ptr->dispattrs);
-}
-
-static void
-bit_set_attr (const cb_tree on_off, const cob_flags_t attr_val)
-{
- if (on_off == cb_int1) {
- set_attr_val_on |= attr_val;
- } else {
- set_attr_val_off |= attr_val;
- }
-}
-
-static void
-set_field_attribs (cb_tree fgc, cb_tree bgc, cb_tree scroll, cb_tree timeout,
- cb_tree prompt, cb_tree size_is, cb_tree control, cb_tree color, cb_tree cursor)
-{
- /* [WITH] FOREGROUND-COLOR [IS] */
- if (fgc) {
- current_statement->attr_ptr->fgc = fgc;
- }
- /* [WITH] BACKGROUND-COLOR [IS] */
- if (bgc) {
- current_statement->attr_ptr->bgc = bgc;
- }
- /* [WITH] SCROLL UP | DOWN */
- if (scroll) {
- current_statement->attr_ptr->scroll = scroll;
- }
- /* [WITH] TIME-OUT [AFTER] */
- if (timeout) {
- current_statement->attr_ptr->timeout = timeout;
- }
- /* [WITH] PROMPT CHARACTER [IS] */
- if (prompt) {
- current_statement->attr_ptr->prompt = prompt;
- }
- /* [WITH] SIZE [IS] */
- if (size_is) {
- current_statement->attr_ptr->size_is = size_is;
- }
- /* [WITH] CONTROL (variable named attributes) */
- if (control) {
- current_statement->attr_ptr->control = control;
- }
- /* [WITH] COLOR (variable numeric added attributes) */
- if (color) {
- current_statement->attr_ptr->color = color;
- }
- /* [WITH] CURSOR */
- if (cursor) {
- current_statement->attr_ptr->cursor = cursor;
- }
-}
-
-static void
-set_attribs (const cob_flags_t attrib, cb_tree fgc, cb_tree bgc, cb_tree scroll,
- cb_tree timeout, cb_tree prompt, cb_tree size_is,
- cb_tree control, cb_tree color, cb_tree cursor)
-{
- attach_attrib_to_cur_stmt ();
- set_field_attribs (fgc, bgc, scroll, timeout, prompt, size_is, control, color, cursor);
-
- current_statement->attr_ptr->dispattrs |= attrib;
-}
-
-static void
-set_attribs_with_conflict (cb_tree fgc, cb_tree bgc, cb_tree scroll,
- cb_tree timeout, cb_tree prompt, cb_tree size_is,
- const char *clause_name, const cob_flags_t attrib,
- const char *confl_name, const cob_flags_t confl_attrib)
-{
- attach_attrib_to_cur_stmt ();
- set_field_attribs (fgc, bgc, scroll, timeout, prompt, size_is, NULL, NULL, NULL);
-
- set_dispattr_with_conflict (clause_name, attrib, confl_name,
- confl_attrib);
-}
-
-static cob_flags_t
-zero_conflicting_flag (const cob_flags_t screen_flag, cob_flags_t parent_flag,
- const cob_flags_t flag1, const cob_flags_t flag2)
-{
- if (screen_flag & flag1) {
- parent_flag &= ~flag2;
- } else if (screen_flag & flag2) {
- parent_flag &= ~flag1;
- }
-
- return parent_flag;
-}
-
-static cob_flags_t
-zero_conflicting_flags (const cob_flags_t screen_flag, cob_flags_t parent_flag)
-{
- parent_flag = zero_conflicting_flag (screen_flag, parent_flag,
- COB_SCREEN_BLANK_LINE,
- COB_SCREEN_BLANK_SCREEN);
- parent_flag = zero_conflicting_flag (screen_flag, parent_flag,
- COB_SCREEN_ERASE_EOL,
- COB_SCREEN_ERASE_EOS);
- parent_flag = zero_conflicting_flag (screen_flag, parent_flag,
- COB_SCREEN_HIGHLIGHT,
- COB_SCREEN_LOWLIGHT);
-
- return parent_flag;
-}
-
-static int
-has_relative_pos (struct cb_field const *field)
-{
- return !!(field->screen_flag
- & ( COB_SCREEN_LINE_PLUS | COB_SCREEN_LINE_MINUS
- | COB_SCREEN_COLUMN_PLUS | COB_SCREEN_COLUMN_MINUS));
-}
-
-static void
-validate_screen_attributes (void)
-{
- cob_flags_t flags;
-
- if (current_field->parent) {
- flags = current_field->parent->screen_flag;
- flags &= ~COB_SCREEN_BLANK_LINE;
- flags &= ~COB_SCREEN_BLANK_SCREEN;
- flags &= ~COB_SCREEN_ERASE_EOL;
- flags &= ~COB_SCREEN_ERASE_EOS;
- flags &= ~COB_SCREEN_LINE_PLUS;
- flags &= ~COB_SCREEN_LINE_MINUS;
- flags &= ~COB_SCREEN_COLUMN_PLUS;
- flags &= ~COB_SCREEN_COLUMN_MINUS;
-
- flags = zero_conflicting_flags (current_field->screen_flag, flags);
-
- current_field->screen_flag |= flags;
- }
-
- if (current_field->screen_flag & COB_SCREEN_INITIAL) {
- if (!(current_field->screen_flag & COB_SCREEN_INPUT)) {
- cb_error (_("INITIAL specified on non-input field"));
- }
- }
- if (!qualifier) {
- current_field->flag_filler = 1;
- }
-
- if (!description_field) {
- description_field = current_field;
- }
- if (current_field->flag_occurs
- && !has_relative_pos (current_field)) {
- cb_error (_("relative LINE/COLUMN clause required with OCCURS"));
- }
- cobc_cs_check = CB_CS_SCREEN;
-}
-
-static void
-check_and_set_usage (const enum cb_usage usage)
-{
- check_repeated ("USAGE", SYN_CLAUSE_5, &check_pic_duplicate);
- current_field->usage = usage;
-}
-
-static void
-check_preceding_tallying_phrases (const enum tallying_phrase phrase)
-{
- switch (phrase) {
- case FOR_PHRASE:
- if (previous_tallying_phrase == ALL_LEADING_TRAILING_PHRASES) {
- cb_error (_("FOR phrase cannot immediately follow ALL/LEADING/TRAILING"));
- } else if (previous_tallying_phrase == FOR_PHRASE) {
- cb_error (_("missing CHARACTERS/ALL/LEADING/TRAILING phrase after FOR phrase"));
- }
- break;
-
- case ALL_LEADING_TRAILING_PHRASES:
- if (previous_tallying_phrase == CHARACTERS_PHRASE
- || previous_tallying_phrase == ALL_LEADING_TRAILING_PHRASES) {
- cb_error (_("missing value between ALL/LEADING/TRAILING words"));
- }
- /* fall through */
- case CHARACTERS_PHRASE:
- if (previous_tallying_phrase == NO_PHRASE) {
- cb_error (_("missing FOR phrase before CHARACTERS/ALL/LEADING/TRAILING phrase"));
- }
- break;
-
- case VALUE_REGION_PHRASE:
- if (! ( previous_tallying_phrase == ALL_LEADING_TRAILING_PHRASES
- || previous_tallying_phrase == VALUE_REGION_PHRASE)) {
- cb_error (_("missing ALL/LEADING/TRAILING before value"));
- }
- break;
-
- /* LCOV_EXCL_START */
- default:
- /* This should never happen (and therefore doesn't get a translation) */
- cb_error ("unexpected tallying phrase");
- COBC_ABORT();
- /* LCOV_EXCL_STOP */
- }
-
- previous_tallying_phrase = phrase;
-}
-
-static int
-is_recursive_call (cb_tree target)
-{
- const char *target_name = "";
-
- if (CB_LITERAL_P (target)) {
- target_name = (const char *)(CB_LITERAL(target)->data);
- } else if (CB_REFERENCE_P (target)
- && CB_PROTOTYPE_P (cb_ref (target))) {
- target_name = CB_PROTOTYPE (cb_ref (target))->ext_name;
- }
-
- return !strcmp (target_name, current_program->orig_program_id);
-}
-
-static cb_tree
-check_not_88_level (cb_tree x)
-{
- struct cb_field *f;
-
- if (!CB_REF_OR_FIELD_P(x)) {
- /* note: this also applies to cb_error_node */
- return x;
- }
-
- f = CB_FIELD_PTR (x);
-
- if (f->level == 88) {
-#if 0 /* note: we may consider to support the extension (if existing) to
- reference a condition-name target by the condition-name */
- if (cb_verify (cb_condition_references_data, _("use of condition-name in place of data-name"))) {
- return CB_TREE (f->parent);
- }
-#else
- cb_error (_("condition-name not allowed here: '%s'"), cb_name (x));
- /* invalidate field to prevent same error in typeck.c (validate_one) */
- /* FIXME: If we really need the additional check here then we missed
- a call to cb_validate_one() somewhere */
- return cb_error_node;
-#endif
- } else {
- return x;
- }
-}
-
-static int
-is_screen_field (cb_tree x)
-{
- if (CB_FIELD_P (x)) {
- return (CB_FIELD (x))->storage == CB_STORAGE_SCREEN;
- } else if (CB_REFERENCE_P (x)) {
- return is_screen_field (cb_ref (x));
- } else {
- return 0;
- }
-}
-
-static void
-error_if_no_advancing_in_screen_display (cb_tree advancing)
-{
- if (advancing != cb_int1) {
- cb_error (_("cannot specify NO ADVANCING in screen DISPLAY"));
- }
-}
-
-static cb_tree
-get_default_display_device (void)
-{
- if (current_program->flag_console_is_crt
- || cb_console_is_crt) {
- return cb_null;
- } else {
- return cb_int0;
- }
-}
-
-static COB_INLINE COB_A_INLINE int
-contains_one_screen_field (struct cb_list *l)
-{
- return cb_list_length (CB_TREE(l)) == 1
- && is_screen_field (l->value);
-}
-
-static int
-contains_only_screen_fields (struct cb_list *l)
-{
- for (; l; l = l->chain ? CB_LIST (l->chain) : NULL) {
- if (!is_screen_field (l->value)) {
- return 0;
- }
- }
-
- return 1;
-}
-
-static int
-contains_fields_and_screens (struct cb_list *l)
-{
- int field_seen = 0;
- int screen_seen = 0;
-
- for (; l; l = l->chain ? CB_LIST (l->chain) : NULL) {
- if (is_screen_field (l->value)) {
- screen_seen = 1;
- } else {
- field_seen = 1;
- }
- }
-
- return screen_seen && field_seen;
-}
-
-static enum cb_display_type
-deduce_display_type (struct cb_list *l, cb_tree local_upon_value, cb_tree local_line_column,
- struct cb_attr_struct * const attr_ptr)
-{
- int using_default_device_which_is_crt =
- local_upon_value == NULL && get_default_display_device () == cb_null;
-
- /* TODO: Separate CGI DISPLAYs here */
- if (contains_only_screen_fields (l)) {
- if (!contains_one_screen_field (l)
- || attr_ptr) {
- cb_verify_x (CB_TREE(l), cb_accept_display_extensions,
- _("non-standard DISPLAY"));
- }
-
- if (local_upon_value != NULL && local_upon_value != cb_null) {
- cb_error_x (CB_TREE(l), _("screens may only be displayed on CRT"));
- }
-
- return SCREEN_DISPLAY;
- } else if (contains_fields_and_screens (l)) {
- cb_error_x (CB_TREE(l), _("cannot mix screens and fields in the same DISPLAY statement"));
- return MIXED_DISPLAY;
- } else if (local_line_column || attr_ptr) {
- if (local_upon_value != NULL && local_upon_value != cb_null) {
- cb_error_x (CB_TREE(l), _("screen clauses may only be used for DISPLAY on CRT"));
- }
-
- cb_verify_x (CB_TREE(l), cb_accept_display_extensions,
- _("non-standard DISPLAY"));
-
- return FIELD_ON_SCREEN_DISPLAY;
- } else if (local_upon_value == cb_null || using_default_device_which_is_crt) {
- /* This is the only format permitted by the standard */
- return FIELD_ON_SCREEN_DISPLAY;
- } else if (display_type == FIELD_ON_SCREEN_DISPLAY && local_upon_value == NULL) {
- /* This is for when fields without clauses follow fields with screen clauses */
- return FIELD_ON_SCREEN_DISPLAY;
- } else {
- return DEVICE_DISPLAY;
- }
-}
-
-static void
-set_display_type (struct cb_list *l, cb_tree local_upon_value,
- cb_tree local_line_column, struct cb_attr_struct * const attr_ptr)
-{
- display_type = deduce_display_type (l, local_upon_value, local_line_column, attr_ptr);
-}
-
-static void
-error_if_different_display_type (struct cb_list *l, cb_tree local_upon_value,
- cb_tree local_line_column, struct cb_attr_struct * const attr_ptr)
-{
- const enum cb_display_type type =
- deduce_display_type (l, local_upon_value, local_line_column, attr_ptr);
-
- /* Avoid re-displaying the same error for mixed DISPLAYs */
- if (type == display_type || display_type == MIXED_DISPLAY) {
- return;
- }
-
- if (type != MIXED_DISPLAY) {
- if (type == SCREEN_DISPLAY || display_type == SCREEN_DISPLAY) {
- cb_error_x (CB_TREE(l), _("cannot mix screens and fields in the same DISPLAY statement"));
- } else {
- /*
- The only other option is that there is a mix of
- FIELD_ON_SCREEN_DISPLAY and DEVICE_DISPLAY.
- */
- cb_error_x (CB_TREE(l), _("ambiguous DISPLAY; put items to display on device in separate DISPLAY"));
- }
- }
-
- display_type = MIXED_DISPLAY;
-}
-
-static void
-error_if_not_usage_display_or_nonnumeric_lit (cb_tree x)
-{
- if (CB_NUMERIC_LITERAL_P (x)) {
- cb_error_x (x, _("%s is not an alphanumeric literal"), CB_LITERAL (x)->data);
- } else if (CB_REFERENCE_P (x) && CB_FIELD_P (cb_ref (x))) {
- const struct cb_field *f = CB_FIELD (cb_ref (x));
- if (f->usage != CB_USAGE_DISPLAY) {
- cb_error_x (x, _ ("'%s' is not USAGE DISPLAY"), cb_name (x));
- }
- }
-}
-
-/* guarantees a reference to a validated field-reference (or cb_error_node) */
-static cb_tree
-validated_field_reference (cb_tree fld_ref)
-{
- cb_tree ref = NULL;
- if (CB_REFERENCE_P (fld_ref)) {
- ref = cb_ref (fld_ref);
- if (CB_FIELD_P (ref)) {
- return fld_ref;
- }
- }
- if (ref != cb_error_node) {
- cb_error_x (fld_ref, _ ("'%s' is not a field"), cb_name (fld_ref));
- }
- return cb_error_node;
-}
-
-static void
-check_validate_item (cb_tree x)
-{
- struct cb_field *f;
- enum cb_class tree_class;
-
- if (CB_INVALID_TREE(x) || x->tag != CB_TAG_REFERENCE) {
- return;
- }
- x = cb_ref (x);
- if (CB_INVALID_TREE (x) || !CB_FIELD_P (x)) {
- cb_error (_("invalid target for %s"), "VALIDATE");
- return;
- }
-
- f = CB_FIELD (x);
- tree_class = CB_TREE_CLASS(f);
- if (is_screen_field(x)) {
- cb_error (_("SCREEN item cannot be used here"));
- } else if (f->level == 66) {
- cb_error (_("RENAMES item may not be used here"));
- } else if (f->flag_any_length) {
- cb_error (_("ANY LENGTH item not allowed here"));
- } else if (tree_class == CB_CLASS_INDEX
- || tree_class == CB_CLASS_OBJECT
- || tree_class == CB_CLASS_POINTER) {
- cb_error (_("item '%s' has wrong class for VALIDATE"), cb_name (x));
- }
-}
-
-static void
-error_if_following_every_clause (void)
-{
- if (ml_suppress_list
- && CB_ML_SUPPRESS (CB_VALUE (ml_suppress_list))->target == CB_ML_SUPPRESS_TYPE) {
- cb_error (_("WHEN clause must follow EVERY clause"));
- }
-}
-
-static void
-prepend_to_ml_suppress_list (cb_tree suppress_entry)
-{
- cb_tree new_list_head = CB_LIST_INIT (suppress_entry);
- cb_list_append (new_list_head, ml_suppress_list);
- ml_suppress_list = new_list_head;
-}
-
-static void
-add_identifier_to_ml_suppress_conds (cb_tree identifier)
-{
- cb_tree suppress_id = cb_build_ml_suppress_clause ();
- CB_ML_SUPPRESS (suppress_id)->target = CB_ML_SUPPRESS_IDENTIFIER;
- CB_ML_SUPPRESS (suppress_id)->identifier = identifier;
- prepend_to_ml_suppress_list (suppress_id);
-}
-
-static void
-add_when_to_ml_suppress_conds (cb_tree when_list)
-{
- struct cb_ml_suppress_clause *last_suppress_clause;
- cb_tree suppress_all;
-
- /*
- If the preceding clause in SUPPRESS was an identifier, the WHEN
- belongs to the identifier. If EVERY was preceding, the WHEN belongs to
- the EVERY. Otherwise, the WHEN acts on the entire record.
- */
- if (ml_suppress_list) {
- last_suppress_clause = CB_ML_SUPPRESS (CB_VALUE (ml_suppress_list));
- if ( (last_suppress_clause->target == CB_ML_SUPPRESS_IDENTIFIER
- || last_suppress_clause->target == CB_ML_SUPPRESS_TYPE)
- && !last_suppress_clause->when_list) {
- last_suppress_clause->when_list = when_list;
- return;
- }
- }
-
- suppress_all = cb_build_ml_suppress_clause ();
- CB_ML_SUPPRESS (suppress_all)->when_list = when_list;
- prepend_to_ml_suppress_list (suppress_all);
-}
-
-static void
-add_type_to_ml_suppress_conds (enum cb_ml_suppress_category category,
- enum cb_ml_type ml_type)
-{
- cb_tree suppress_type = cb_build_ml_suppress_clause ();
- CB_ML_SUPPRESS (suppress_type)->target = CB_ML_SUPPRESS_TYPE;
- CB_ML_SUPPRESS (suppress_type)->category = category;
- CB_ML_SUPPRESS (suppress_type)->ml_type = ml_type;
- prepend_to_ml_suppress_list (suppress_type);
-}
-
-static void
-set_record_size (cb_tree min, cb_tree max)
-{
- int record_min, record_max;
-
- if (min) {
- record_min = cb_get_int (min);
- if (record_min < 0) {
- /* already handled by integer check */
- } else {
- current_file->record_min = record_min;
- }
- } else {
- record_min = 0;
- }
- if (!max) {
- return;
- }
-
- record_max = cb_get_int (max);
- if (record_max < 0) {
- /* already handled by integer check */
- return;
- } else if (record_max == 0) {
- /* Note: standard COBOL does not allow zero at all, use the related
- configuration option */
- if (cb_records_mismatch_record_clause >= CB_ERROR) {
- cb_error (_("non-zero value expected"));
- }
- return;
- }
- if (current_file->organization == COB_ORG_INDEXED
- && record_max > MAX_FD_RECORD_IDX) {
- cb_error (_("RECORD size (IDX) exceeds maximum allowed (%d)"),
- MAX_FD_RECORD_IDX);
- current_file->record_max = MAX_FD_RECORD_IDX;
- } else if (record_max > MAX_FD_RECORD) {
- cb_error (_("RECORD size exceeds maximum allowed (%d)"),
- MAX_FD_RECORD);
- current_file->record_max = MAX_FD_RECORD;
- } else {
- if (record_max <= record_min) {
- cb_error (_("RECORD clause invalid"));
- }
- current_file->record_max = record_max;
- }
-}
-
-
-#line 2508 "parser.c" /* yacc.c:339 */
-
-# ifndef YY_NULLPTR
-# if defined __cplusplus && 201103L <= __cplusplus
-# define YY_NULLPTR nullptr
-# else
-# define YY_NULLPTR 0
-# endif
-# endif
-
-/* Enabling verbose error messages. */
-#ifdef YYERROR_VERBOSE
-# undef YYERROR_VERBOSE
-# define YYERROR_VERBOSE 1
-#else
-# define YYERROR_VERBOSE 1
-#endif
-
-/* In a future release of Bison, this section will be replaced
- by #include "y.tab.h". */
-#ifndef YY_YY_PARSER_H_INCLUDED
-# define YY_YY_PARSER_H_INCLUDED
-/* Debug traces. */
-#ifndef YYDEBUG
-# define YYDEBUG 0
-#endif
-#if YYDEBUG
-extern int yydebug;
-#endif
-
-/* Token type. */
-#ifndef YYTOKENTYPE
-# define YYTOKENTYPE
- enum yytokentype
- {
- TOKEN_EOF = 0,
- THREEDIMENSIONAL = 258,
- ABSENT = 259,
- ACCEPT = 260,
- ACCESS = 261,
- ACTIVEX = 262,
- ACTIVE_CLASS = 263,
- ACTION = 264,
- ACTUAL = 265,
- ADD = 266,
- ADDRESS = 267,
- ADJUSTABLE_COLUMNS = 268,
- ADVANCING = 269,
- AFTER = 270,
- ALIGNED = 271,
- ALIGNMENT = 272,
- ALL = 273,
- ALLOCATE = 274,
- ALLOWING = 275,
- ALPHABET = 276,
- ALPHABETIC = 277,
- ALPHABETIC_LOWER = 278,
- ALPHABETIC_UPPER = 279,
- ALPHANUMERIC = 280,
- ALPHANUMERIC_EDITED = 281,
- ALSO = 282,
- ALTER = 283,
- ALTERNATE = 284,
- AND = 285,
- ANY = 286,
- APPLY = 287,
- ARE = 288,
- AREA = 289,
- AREAS = 290,
- ARGUMENT_NUMBER = 291,
- ARGUMENT_VALUE = 292,
- ARITHMETIC = 293,
- AS = 294,
- ASCENDING = 295,
- ASCII = 296,
- ASSIGN = 297,
- AT = 298,
- AT_END = 299,
- ATTRIBUTE = 300,
- ATTRIBUTES = 301,
- AUTHOR = 302,
- AUTO = 303,
- AUTO_DECIMAL = 304,
- AUTO_SPIN = 305,
- AUTOMATIC = 306,
- AWAY_FROM_ZERO = 307,
- B_AND = 308,
- B_NOT = 309,
- B_OR = 310,
- B_XOR = 311,
- B_SHIFT_L = 312,
- B_SHIFT_R = 313,
- B_SHIFT_LC = 314,
- B_SHIFT_RC = 315,
- BACKGROUND_COLOR = 316,
- BACKGROUND_HIGH = 317,
- BACKGROUND_LOW = 318,
- BACKGROUND_STANDARD = 319,
- BACKWARD = 320,
- BAR = 321,
- BASED = 322,
- BEFORE = 323,
- BELL = 324,
- BINARY = 325,
- BINARY_C_LONG = 326,
- BINARY_CHAR = 327,
- BINARY_DOUBLE = 328,
- BINARY_LONG = 329,
- BINARY_SEQUENTIAL = 330,
- BINARY_SHORT = 331,
- BIT = 332,
- BITMAP = 333,
- BITMAP_END = 334,
- BITMAP_HANDLE = 335,
- BITMAP_NUMBER = 336,
- BITMAP_START = 337,
- BITMAP_TIMER = 338,
- BITMAP_TRAILING = 339,
- BITMAP_TRANSPARENT_COLOR = 340,
- BITMAP_WIDTH = 341,
- BLANK = 342,
- BLINK = 343,
- BLOCK = 344,
- BOOLEAN = 345,
- BOTTOM = 346,
- BOX = 347,
- BOXED = 348,
- BULK_ADDITION = 349,
- BUSY = 350,
- BUTTONS = 351,
- BY = 352,
- BYTE_LENGTH = 353,
- C = 354,
- CALENDAR_FONT = 355,
- CALL = 356,
- CANCEL = 357,
- CANCEL_BUTTON = 358,
- CAPACITY = 359,
- CARD_PUNCH = 360,
- CARD_READER = 361,
- CASSETTE = 362,
- CCOL = 363,
- CD = 364,
- CELL = 365,
- CELL_COLOR = 366,
- CELL_DATA = 367,
- CELL_FONT = 368,
- CELL_PROTECTION = 369,
- CENTER = 370,
- CENTERED = 371,
- CENTERED_HEADINGS = 372,
- CENTURY_DATE = 373,
- CF = 374,
- CH = 375,
- CHAINING = 376,
- CHANGED = 377,
- CHARACTER = 378,
- CHARACTERS = 379,
- CHECK_BOX = 380,
- CLASS = 381,
- CLASSIFICATION = 382,
- CLASS_NAME = 383,
- CLEAR_SELECTION = 384,
- CLINE = 385,
- CLINES = 386,
- CLOSE = 387,
- COBOL = 388,
- CODE = 389,
- CODE_SET = 390,
- COLLATING = 391,
- COL = 392,
- COLOR = 393,
- COLORS = 394,
- COLS = 395,
- COLUMN = 396,
- COLUMN_COLOR = 397,
- COLUMN_DIVIDERS = 398,
- COLUMN_FONT = 399,
- COLUMN_HEADINGS = 400,
- COLUMN_PROTECTION = 401,
- COLUMNS = 402,
- COMBO_BOX = 403,
- COMMA = 404,
- COMMAND_LINE = 405,
- COMMA_DELIM = 406,
- COMMIT = 407,
- COMMON = 408,
- COMMUNICATION = 409,
- COMP = 410,
- COMPUTE = 411,
- COMP_0 = 412,
- COMP_1 = 413,
- COMP_2 = 414,
- COMP_3 = 415,
- COMP_4 = 416,
- COMP_5 = 417,
- COMP_6 = 418,
- COMP_N = 419,
- COMP_X = 420,
- CONCATENATE_FUNC = 421,
- CONDITION = 422,
- CONFIGURATION = 423,
- CONSTANT = 424,
- CONTAINS = 425,
- CONTENT = 426,
- CONTENT_LENGTH_FUNC = 427,
- CONTENT_OF_FUNC = 428,
- CONTINUE = 429,
- CONTROL = 430,
- CONTROLS = 431,
- CONVERSION = 432,
- CONVERTING = 433,
- COPY = 434,
- COPY_SELECTION = 435,
- CORE_INDEX = 436,
- CORRESPONDING = 437,
- COUNT = 438,
- CRT = 439,
- CRT_UNDER = 440,
- CSIZE = 441,
- CURRENCY = 442,
- CURRENT_DATE_FUNC = 443,
- CURSOR = 444,
- CURSOR_COL = 445,
- CURSOR_COLOR = 446,
- CURSOR_FRAME_WIDTH = 447,
- CURSOR_ROW = 448,
- CURSOR_X = 449,
- CURSOR_Y = 450,
- CUSTOM_PRINT_TEMPLATE = 451,
- CYCLE = 452,
- CYL_INDEX = 453,
- CYL_OVERFLOW = 454,
- DASHED = 455,
- DATA = 456,
- DATA_COLUMNS = 457,
- DATA_POINTER = 458,
- DATA_TYPES = 459,
- DATE = 460,
- DATE_COMPILED = 461,
- DATE_ENTRY = 462,
- DATE_MODIFIED = 463,
- DATE_WRITTEN = 464,
- DAY = 465,
- DAY_OF_WEEK = 466,
- DE = 467,
- DEBUGGING = 468,
- DECIMAL_POINT = 469,
- DECLARATIVES = 470,
- DEFAULT = 471,
- DEFAULT_BUTTON = 472,
- DEFAULT_FONT = 473,
- DELETE = 474,
- DELIMITED = 475,
- DELIMITER = 476,
- DEPENDING = 477,
- DESCENDING = 478,
- DESTINATION = 479,
- DESTROY = 480,
- DETAIL = 481,
- DISABLE = 482,
- DISC = 483,
- DISK = 484,
- DISP = 485,
- DISPLAY = 486,
- DISPLAY_1 = 487,
- DISPLAY_COLUMNS = 488,
- DISPLAY_FORMAT = 489,
- DISPLAY_OF_FUNC = 490,
- DIVIDE = 491,
- DIVIDERS = 492,
- DIVIDER_COLOR = 493,
- DIVISION = 494,
- DOTDASH = 495,
- DOTTED = 496,
- DRAG_COLOR = 497,
- DROP_DOWN = 498,
- DROP_LIST = 499,
- DOWN = 500,
- DUPLICATES = 501,
- DYNAMIC = 502,
- EBCDIC = 503,
- EC = 504,
- ECHO = 505,
- EGI = 506,
- EIGHTY_EIGHT = 507,
- ENABLE = 508,
- ELEMENT = 509,
- ELSE = 510,
- EMI = 511,
- ENCRYPTION = 512,
- ENCODING = 513,
- END = 514,
- END_ACCEPT = 515,
- END_ADD = 516,
- END_CALL = 517,
- END_COMPUTE = 518,
- END_COLOR = 519,
- END_DELETE = 520,
- END_DISPLAY = 521,
- END_DIVIDE = 522,
- END_EVALUATE = 523,
- END_FUNCTION = 524,
- END_IF = 525,
- END_JSON = 526,
- END_MODIFY = 527,
- END_MULTIPLY = 528,
- END_PERFORM = 529,
- END_PROGRAM = 530,
- END_READ = 531,
- END_RECEIVE = 532,
- END_RETURN = 533,
- END_REWRITE = 534,
- END_SEARCH = 535,
- END_SEND = 536,
- END_START = 537,
- END_STRING = 538,
- END_SUBTRACT = 539,
- END_UNSTRING = 540,
- END_WRITE = 541,
- END_XML = 542,
- ENGRAVED = 543,
- ENSURE_VISIBLE = 544,
- ENTRY = 545,
- ENTRY_CONVENTION = 546,
- ENTRY_FIELD = 547,
- ENTRY_REASON = 548,
- ENVIRONMENT = 549,
- ENVIRONMENT_NAME = 550,
- ENVIRONMENT_VALUE = 551,
- EOL = 552,
- EOP = 553,
- EOS = 554,
- EQUAL = 555,
- ERASE = 556,
- ERROR = 557,
- ESCAPE = 558,
- ESCAPE_BUTTON = 559,
- ESI = 560,
- EVALUATE = 561,
- EVENT = 562,
- EVENT_LIST = 563,
- EVENT_STATUS = 564,
- EVERY = 565,
- EXAMINE = 566,
- EXCEPTION = 567,
- EXCEPTION_CONDITION = 568,
- EXCEPTION_VALUE = 569,
- EXPAND = 570,
- EXCLUSIVE = 571,
- EXHIBIT = 572,
- EXIT = 573,
- EXPONENTIATION = 574,
- EXTEND = 575,
- EXTENDED_SEARCH = 576,
- EXTERNAL = 577,
- EXTERNAL_FORM = 578,
- F = 579,
- FACTORY = 580,
- FD = 581,
- FH__FCD = 582,
- FH__KEYDEF = 583,
- FILE_CONTROL = 584,
- FILE_ID = 585,
- FILE_LIMIT = 586,
- FILE_LIMITS = 587,
- FILE_NAME = 588,
- FILE_POS = 589,
- FILL_COLOR = 590,
- FILL_COLOR2 = 591,
- FILL_PERCENT = 592,
- FILLER = 593,
- FINAL = 594,
- FINISH_REASON = 595,
- FIRST = 596,
- FIXED = 597,
- FIXED_FONT = 598,
- FIXED_WIDTH = 599,
- FLAT = 600,
- FLAT_BUTTONS = 601,
- FLOAT_BINARY_128 = 602,
- FLOAT_BINARY_32 = 603,
- FLOAT_BINARY_64 = 604,
- FLOAT_DECIMAL_16 = 605,
- FLOAT_DECIMAL_34 = 606,
- FLOAT_DECIMAL_7 = 607,
- FLOAT_EXTENDED = 608,
- FLOAT_LONG = 609,
- FLOAT_SHORT = 610,
- FLOATING = 611,
- FONT = 612,
- FOOTING = 613,
- FOR = 614,
- FOREGROUND_COLOR = 615,
- FOREVER = 616,
- FORMAT = 617,
- FORMATTED_DATE_FUNC = 618,
- FORMATTED_DATETIME_FUNC = 619,
- FORMATTED_TIME_FUNC = 620,
- FRAME = 621,
- FRAMED = 622,
- FREE = 623,
- FROM = 624,
- FROM_CRT = 625,
- FULL = 626,
- FULL_HEIGHT = 627,
- FUNCTION = 628,
- FUNCTION_ID = 629,
- FUNCTION_NAME = 630,
- FUNCTION_POINTER = 631,
- GENERATE = 632,
- GIVING = 633,
- GLOBAL = 634,
- GO = 635,
- GO_BACK = 636,
- GO_FORWARD = 637,
- GO_HOME = 638,
- GO_SEARCH = 639,
- GOBACK = 640,
- GRAPHICAL = 641,
- GREATER = 642,
- GREATER_OR_EQUAL = 643,
- GRID = 644,
- GROUP = 645,
- GROUP_VALUE = 646,
- HANDLE = 647,
- HAS_CHILDREN = 648,
- HEADING = 649,
- HEADING_COLOR = 650,
- HEADING_DIVIDER_COLOR = 651,
- HEADING_FONT = 652,
- HEAVY = 653,
- HEIGHT_IN_CELLS = 654,
- HIDDEN_DATA = 655,
- HIGHLIGHT = 656,
- HIGH_COLOR = 657,
- HIGH_VALUE = 658,
- HOT_TRACK = 659,
- HSCROLL = 660,
- HSCROLL_POS = 661,
- ICON = 662,
- ID = 663,
- IDENTIFIED = 664,
- IDENTIFICATION = 665,
- IF = 666,
- IGNORE = 667,
- IGNORING = 668,
- IN = 669,
- INDEPENDENT = 670,
- INDEX = 671,
- INDEXED = 672,
- INDICATE = 673,
- INITIALIZE = 674,
- INITIALIZED = 675,
- INITIATE = 676,
- INPUT = 677,
- INPUT_OUTPUT = 678,
- INQUIRE = 679,
- INSERTION_INDEX = 680,
- INSERT_ROWS = 681,
- INSPECT = 682,
- INSTALLATION = 683,
- INTERMEDIATE = 684,
- INTO = 685,
- INTRINSIC = 686,
- INVALID = 687,
- INVALID_KEY = 688,
- IS = 689,
- ITEM = 690,
- ITEM_TEXT = 691,
- ITEM_TO_ADD = 692,
- ITEM_TO_DELETE = 693,
- ITEM_TO_EMPTY = 694,
- ITEM_VALUE = 695,
- I_O = 696,
- I_O_CONTROL = 697,
- JSON = 698,
- JUSTIFIED = 699,
- KEPT = 700,
- KEY = 701,
- KEYBOARD = 702,
- LABEL = 703,
- LABEL_OFFSET = 704,
- LARGE_FONT = 705,
- LARGE_OFFSET = 706,
- LAST = 707,
- LAST_ROW = 708,
- LAYOUT_DATA = 709,
- LAYOUT_MANAGER = 710,
- LEADING = 711,
- LEADING_SHIFT = 712,
- LEAVE = 713,
- LEFT = 714,
- LEFTLINE = 715,
- LEFT_TEXT = 716,
- LENGTH = 717,
- LENGTH_OF = 718,
- LENGTH_FUNC = 719,
- LESS = 720,
- LESS_OR_EQUAL = 721,
- LEVEL_NUMBER = 722,
- LIKE = 723,
- LIMIT = 724,
- LIMITS = 725,
- LINAGE = 726,
- LINAGE_COUNTER = 727,
- LINE = 728,
- LINE_COUNTER = 729,
- LINE_LIMIT = 730,
- LINE_SEQUENTIAL = 731,
- LINES = 732,
- LINES_AT_ROOT = 733,
- LINKAGE = 734,
- LIST_BOX = 735,
- LITERAL = 736,
- LM_RESIZE = 737,
- LOC = 738,
- LOCALE = 739,
- LOCALE_DATE_FUNC = 740,
- LOCALE_TIME_FUNC = 741,
- LOCALE_TIME_FROM_FUNC = 742,
- LOCAL_STORAGE = 743,
- LOCK = 744,
- LOCK_HOLDING = 745,
- LONG_DATE = 746,
- LOWER = 747,
- LOWERED = 748,
- LOWER_CASE_FUNC = 749,
- LOWLIGHT = 750,
- LOW_COLOR = 751,
- LOW_VALUE = 752,
- MAGNETIC_TAPE = 753,
- MANUAL = 754,
- MASS_UPDATE = 755,
- MASTER_INDEX = 756,
- MAX_LINES = 757,
- MAX_PROGRESS = 758,
- MAX_TEXT = 759,
- MAX_VAL = 760,
- MEMORY = 761,
- MEDIUM_FONT = 762,
- MENU = 763,
- MERGE = 764,
- MESSAGE = 765,
- MICROSECOND_TIME = 766,
- MINUS = 767,
- MIN_VAL = 768,
- MNEMONIC_NAME = 769,
- MODE = 770,
- MODIFY = 771,
- MODULES = 772,
- MOVE = 773,
- MULTILINE = 774,
- MULTIPLE = 775,
- MULTIPLY = 776,
- NAME = 777,
- NAMED = 778,
- NAMESPACE = 779,
- NAMESPACE_PREFIX = 780,
- NATIONAL = 781,
- NATIONAL_EDITED = 782,
- NATIONAL_OF_FUNC = 783,
- NATIVE = 784,
- NAVIGATE_URL = 785,
- NEAREST_AWAY_FROM_ZERO = 786,
- NEAREST_EVEN = 787,
- NEAREST_TOWARD_ZERO = 788,
- NEGATIVE = 789,
- NESTED = 790,
- NEW = 791,
- NEXT = 792,
- NEXT_ITEM = 793,
- NEXT_GROUP = 794,
- NEXT_PAGE = 795,
- NO = 796,
- NO_ADVANCING = 797,
- NO_AUTOSEL = 798,
- NO_AUTO_DEFAULT = 799,
- NO_BOX = 800,
- NO_DATA = 801,
- NO_DIVIDERS = 802,
- NO_ECHO = 803,
- NO_F4 = 804,
- NO_FOCUS = 805,
- NO_GROUP_TAB = 806,
- NO_KEY_LETTER = 807,
- NO_SEARCH = 808,
- NO_UPDOWN = 809,
- NOMINAL = 810,
- NONE = 811,
- NONNUMERIC = 812,
- NORMAL = 813,
- NOT = 814,
- NOTAB = 815,
- NOTHING = 816,
- NOTIFY = 817,
- NOTIFY_CHANGE = 818,
- NOTIFY_DBLCLICK = 819,
- NOTIFY_SELCHANGE = 820,
- NOT_AT_END = 821,
- NOT_EOP = 822,
- NOT_ON_ESCAPE = 823,
- NOT_EQUAL = 824,
- NOT_ON_EXCEPTION = 825,
- NOT_INVALID_KEY = 826,
- NOT_ON_OVERFLOW = 827,
- NOT_SIZE_ERROR = 828,
- NUM_COL_HEADINGS = 829,
- NUM_ROWS = 830,
- NUMBER = 831,
- NUMBERS = 832,
- NUMERIC = 833,
- NUMERIC_EDITED = 834,
- NUMVALC_FUNC = 835,
- OBJECT = 836,
- OBJECT_COMPUTER = 837,
- OCCURS = 838,
- OF = 839,
- OFF = 840,
- OK_BUTTON = 841,
- OMITTED = 842,
- ON = 843,
- ONLY = 844,
- ON_ESCAPE = 845,
- ON_EXCEPTION = 846,
- OPEN = 847,
- OPTIONAL = 848,
- OPTIONS = 849,
- OR = 850,
- ORDER = 851,
- ORGANIZATION = 852,
- OTHER = 853,
- OTHERS = 854,
- OUTPUT = 855,
- OVERLAP_LEFT = 856,
- OVERLAP_TOP = 857,
- OVERLINE = 858,
- PACKED_DECIMAL = 859,
- PADDING = 860,
- PASCAL = 861,
- PAGE = 862,
- PAGE_COUNTER = 863,
- PAGE_SETUP = 864,
- PAGED = 865,
- PARAGRAPH = 866,
- PARENT = 867,
- PARSE = 868,
- PASSWORD = 869,
- PERFORM = 870,
- PERMANENT = 871,
- PH = 872,
- PF = 873,
- PHYSICAL = 874,
- PICTURE = 875,
- PICTURE_SYMBOL = 876,
- PIXEL = 877,
- PLACEMENT = 878,
- PLUS = 879,
- POINTER = 880,
- POP_UP = 881,
- POS = 882,
- POSITION = 883,
- POSITION_SHIFT = 884,
- POSITIVE = 885,
- PRESENT = 886,
- PREVIOUS = 887,
- PRINT = 888,
- PRINT_CONTROL = 889,
- PRINT_NO_PROMPT = 890,
- PRINT_PREVIEW = 891,
- PRINTER = 892,
- PRINTER_1 = 893,
- PRINTING = 894,
- PRIORITY = 895,
- PROCEDURE = 896,
- PROCEDURES = 897,
- PROCEED = 898,
- PROCESSING = 899,
- PROGRAM = 900,
- PROGRAM_ID = 901,
- PROGRAM_NAME = 902,
- PROGRAM_POINTER = 903,
- PROGRESS = 904,
- PROHIBITED = 905,
- PROMPT = 906,
- PROPERTIES = 907,
- PROPERTY = 908,
- PROTECTED = 909,
- PROTOTYPE = 910,
- PURGE = 911,
- PUSH_BUTTON = 912,
- QUERY_INDEX = 913,
- QUEUE = 914,
- QUOTE = 915,
- RADIO_BUTTON = 916,
- RAISE = 917,
- RAISED = 918,
- RAISING = 919,
- RANDOM = 920,
- RD = 921,
- READ = 922,
- READERS = 923,
- READ_ONLY = 924,
- READY_TRACE = 925,
- RECEIVE = 926,
- RECEIVED = 927,
- RECORD = 928,
- RECORD_DATA = 929,
- RECORD_OVERFLOW = 930,
- RECORD_TO_ADD = 931,
- RECORD_TO_DELETE = 932,
- RECORDING = 933,
- RECORDS = 934,
- RECURSIVE = 935,
- REDEFINES = 936,
- REEL = 937,
- REFERENCE = 938,
- REFERENCES = 939,
- REFRESH = 940,
- REGION_COLOR = 941,
- RELATION = 942,
- RELATIVE = 943,
- RELEASE = 944,
- REMAINDER = 945,
- REMARKS = 946,
- REMOVAL = 947,
- RENAMES = 948,
- REORG_CRITERIA = 949,
- REPEATED = 950,
- REPLACE = 951,
- REPLACING = 952,
- REPORT = 953,
- REPORTING = 954,
- REPORTS = 955,
- REPOSITORY = 956,
- REQUIRED = 957,
- REREAD = 958,
- RERUN = 959,
- RESERVE = 960,
- RESET = 961,
- RESET_TRACE = 962,
- RESET_GRID = 963,
- RESET_LIST = 964,
- RESET_TABS = 965,
- RETRY = 966,
- RETURN = 967,
- RETURNING = 968,
- REVERSE = 969,
- REVERSE_FUNC = 970,
- REVERSE_VIDEO = 971,
- REVERSED = 972,
- REWIND = 973,
- REWRITE = 974,
- RF = 975,
- RH = 976,
- RIGHT = 977,
- RIGHT_ALIGN = 978,
- RIGHTLINE = 979,
- RIMMED = 980,
- ROLLBACK = 981,
- ROUNDED = 982,
- ROUNDING = 983,
- ROW_COLOR = 984,
- ROW_COLOR_PATTERN = 985,
- ROW_DIVIDERS = 986,
- ROW_FONT = 987,
- ROW_HEADINGS = 988,
- ROW_PROTECTION = 989,
- RUN = 990,
- S = 991,
- SAME = 992,
- SAVE_AS = 993,
- SAVE_AS_NO_PROMPT = 994,
- SCREEN = 995,
- SCREEN_CONTROL = 996,
- SCROLL = 997,
- SCROLL_BAR = 998,
- SD = 999,
- SEARCH = 1000,
- SEARCH_OPTIONS = 1001,
- SEARCH_TEXT = 1002,
- SECONDS = 1003,
- SECTION = 1004,
- SECURE = 1005,
- SECURITY = 1006,
- SEGMENT = 1007,
- SEGMENT_LIMIT = 1008,
- SELECT = 1009,
- SELECTION_INDEX = 1010,
- SELECTION_TEXT = 1011,
- SELECT_ALL = 1012,
- SELF_ACT = 1013,
- SEMI_COLON = 1014,
- SEND = 1015,
- SENTENCE = 1016,
- SEPARATE = 1017,
- SEPARATION = 1018,
- SEQUENCE = 1019,
- SEQUENTIAL = 1020,
- SET = 1021,
- SEVENTY_EIGHT = 1022,
- SHADING = 1023,
- SHADOW = 1024,
- SHARING = 1025,
- SHORT_DATE = 1026,
- SHOW_LINES = 1027,
- SHOW_NONE = 1028,
- SHOW_SEL_ALWAYS = 1029,
- SIGN = 1030,
- SIGNED = 1031,
- SIGNED_INT = 1032,
- SIGNED_LONG = 1033,
- SIGNED_SHORT = 1034,
- SIXTY_SIX = 1035,
- SIZE = 1036,
- SIZE_ERROR = 1037,
- SMALL_FONT = 1038,
- SORT = 1039,
- SORT_MERGE = 1040,
- SORT_ORDER = 1041,
- SOURCE = 1042,
- SOURCE_COMPUTER = 1043,
- SPACE = 1044,
- SPECIAL_NAMES = 1045,
- SPINNER = 1046,
- SQUARE = 1047,
- STANDARD = 1048,
- STANDARD_1 = 1049,
- STANDARD_2 = 1050,
- STANDARD_BINARY = 1051,
- STANDARD_DECIMAL = 1052,
- START = 1053,
- START_X = 1054,
- START_Y = 1055,
- STATIC = 1056,
- STATIC_LIST = 1057,
- STATUS = 1058,
- STATUS_BAR = 1059,
- STATUS_TEXT = 1060,
- STDCALL = 1061,
- STEP = 1062,
- STOP = 1063,
- STRING = 1064,
- STRONG = 1065,
- STYLE = 1066,
- SUB_QUEUE_1 = 1067,
- SUB_QUEUE_2 = 1068,
- SUB_QUEUE_3 = 1069,
- SUBSTITUTE_FUNC = 1070,
- SUBSTITUTE_CASE_FUNC = 1071,
- SUBTRACT = 1072,
- SUBWINDOW = 1073,
- SUM = 1074,
- SUPPRESS = 1075,
- SUPPRESS_XML = 1076,
- SYMBOLIC = 1077,
- SYNCHRONIZED = 1078,
- SYSTEM_DEFAULT = 1079,
- SYSTEM_INFO = 1080,
- SYSTEM_OFFSET = 1081,
- TAB = 1082,
- TAB_TO_ADD = 1083,
- TAB_TO_DELETE = 1084,
- TABLE = 1085,
- TALLYING = 1086,
- TEMPORARY = 1087,
- TAPE = 1088,
- TERMINAL = 1089,
- TERMINATE = 1090,
- TERMINAL_INFO = 1091,
- TERMINATION_VALUE = 1092,
- TEST = 1093,
- TEXT = 1094,
- THAN = 1095,
- THEN = 1096,
- THREAD = 1097,
- THREADS = 1098,
- THRU = 1099,
- THUMB_POSITION = 1100,
- TILED_HEADINGS = 1101,
- TIME = 1102,
- TIME_OUT = 1103,
- TIMES = 1104,
- TITLE = 1105,
- TITLE_POSITION = 1106,
- TO = 1107,
- TOK_AMPER = 1108,
- TOK_CLOSE_PAREN = 1109,
- TOK_COLON = 1110,
- TOK_DIV = 1111,
- TOK_DOT = 1112,
- TOK_EQUAL = 1113,
- TOK_EXTERN = 1114,
- TOK_FALSE = 1115,
- TOK_FILE = 1116,
- TOK_GREATER = 1117,
- TOK_INITIAL = 1118,
- TOK_LESS = 1119,
- TOK_MINUS = 1120,
- TOK_MUL = 1121,
- TOK_NULL = 1122,
- TOK_OVERFLOW = 1123,
- TOK_OPEN_PAREN = 1124,
- TOK_PLUS = 1125,
- TOK_TRUE = 1126,
- TOP = 1127,
- TOWARD_GREATER = 1128,
- TOWARD_LESSER = 1129,
- TRACK = 1130,
- TRACKS = 1131,
- TRACK_AREA = 1132,
- TRACK_LIMIT = 1133,
- TRADITIONAL_FONT = 1134,
- TRAILING = 1135,
- TRAILING_SHIFT = 1136,
- TRANSFORM = 1137,
- TRANSPARENT = 1138,
- TREE_VIEW = 1139,
- TRIM_FUNC = 1140,
- TRUNCATION = 1141,
- TYPE = 1142,
- TYPEDEF = 1143,
- U = 1144,
- UCS_4 = 1145,
- UNBOUNDED = 1146,
- UNDERLINE = 1147,
- UNFRAMED = 1148,
- UNIT = 1149,
- UNLOCK = 1150,
- UNSIGNED = 1151,
- UNSIGNED_INT = 1152,
- UNSIGNED_LONG = 1153,
- UNSIGNED_SHORT = 1154,
- UNSORTED = 1155,
- UNSTRING = 1156,
- UNTIL = 1157,
- UP = 1158,
- UPDATE = 1159,
- UPDATERS = 1160,
- UPON = 1161,
- UPON_ARGUMENT_NUMBER = 1162,
- UPON_COMMAND_LINE = 1163,
- UPON_ENVIRONMENT_NAME = 1164,
- UPON_ENVIRONMENT_VALUE = 1165,
- UPPER = 1166,
- UPPER_CASE_FUNC = 1167,
- USAGE = 1168,
- USE = 1169,
- USE_ALT = 1170,
- USE_RETURN = 1171,
- USE_TAB = 1172,
- USER = 1173,
- USER_DEFAULT = 1174,
- USER_FUNCTION_NAME = 1175,
- USING = 1176,
- UTF_8 = 1177,
- UTF_16 = 1178,
- V = 1179,
- VALID = 1180,
- VALIDATE = 1181,
- VAL_STATUS = 1182,
- VALIDATE_STATUS = 1183,
- VALIDATING = 1184,
- VALUE = 1185,
- VALUE_FORMAT = 1186,
- VALUES = 1187,
- VARIABLE = 1188,
- VARIANT = 1189,
- VARYING = 1190,
- VERTICAL = 1191,
- VERY_HEAVY = 1192,
- VIRTUAL_WIDTH = 1193,
- VOLATILE = 1194,
- VPADDING = 1195,
- VSCROLL = 1196,
- VSCROLL_BAR = 1197,
- VSCROLL_POS = 1198,
- VTOP = 1199,
- WAIT = 1200,
- WEB_BROWSER = 1201,
- WHEN = 1202,
- WHEN_COMPILED_FUNC = 1203,
- WHEN_XML = 1204,
- WIDTH = 1205,
- WIDTH_IN_CELLS = 1206,
- WINAPI = 1207,
- WINDOW = 1208,
- WITH = 1209,
- WORD = 1210,
- WORDS = 1211,
- WORKING_STORAGE = 1212,
- WRAP = 1213,
- WRITE = 1214,
- WRITE_ONLY = 1215,
- WRITE_VERIFY = 1216,
- WRITERS = 1217,
- X = 1218,
- XML = 1219,
- XML_DECLARATION = 1220,
- XML_SCHEMA = 1221,
- Y = 1222,
- YYYYDDD = 1223,
- YYYYMMDD = 1224,
- ZERO = 1225,
- LEVEL_NUMBER_IN_AREA_A = 1226,
- WORD_IN_AREA_A = 1227,
- SHIFT_PREFER = 1228
- };
-#endif
-
-/* Value type. */
-#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
-typedef int YYSTYPE;
-# define YYSTYPE_IS_TRIVIAL 1
-# define YYSTYPE_IS_DECLARED 1
-#endif
-
-
-extern YYSTYPE yylval;
-
-int yyparse (void);
-
-#endif /* !YY_YY_PARSER_H_INCLUDED */
-
-/* Copy the second part of user declarations. */
-
-#line 3534 "parser.c" /* yacc.c:358 */
-
-#ifdef short
-# undef short
-#endif
-
-#ifdef YYTYPE_UINT8
-typedef YYTYPE_UINT8 yytype_uint8;
-#else
-typedef unsigned char yytype_uint8;
-#endif
-
-#ifdef YYTYPE_INT8
-typedef YYTYPE_INT8 yytype_int8;
-#else
-typedef signed char yytype_int8;
-#endif
-
-#ifdef YYTYPE_UINT16
-typedef YYTYPE_UINT16 yytype_uint16;
-#else
-typedef unsigned short int yytype_uint16;
-#endif
-
-#ifdef YYTYPE_INT16
-typedef YYTYPE_INT16 yytype_int16;
-#else
-typedef short int yytype_int16;
-#endif
-
-#ifndef YYSIZE_T
-# ifdef __SIZE_TYPE__
-# define YYSIZE_T __SIZE_TYPE__
-# elif defined size_t
-# define YYSIZE_T size_t
-# elif ! defined YYSIZE_T
-# include <stddef.h> /* INFRINGES ON USER NAME SPACE */
-# define YYSIZE_T size_t
-# else
-# define YYSIZE_T unsigned int
-# endif
-#endif
-
-#define YYSIZE_MAXIMUM ((YYSIZE_T) -1)
-
-#ifndef YY_
-# if defined YYENABLE_NLS && YYENABLE_NLS
-# if ENABLE_NLS
-# include <libintl.h> /* INFRINGES ON USER NAME SPACE */
-# define YY_(Msgid) dgettext ("bison-runtime", Msgid)
-# endif
-# endif
-# ifndef YY_
-# define YY_(Msgid) Msgid
-# endif
-#endif
-
-#ifndef YY_ATTRIBUTE
-# if (defined __GNUC__ \
- && (2 < __GNUC__ || (__GNUC__ == 2 && 96 <= __GNUC_MINOR__))) \
- || defined __SUNPRO_C && 0x5110 <= __SUNPRO_C
-# define YY_ATTRIBUTE(Spec) __attribute__(Spec)
-# else
-# define YY_ATTRIBUTE(Spec) /* empty */
-# endif
-#endif
-
-#ifndef YY_ATTRIBUTE_PURE
-# define YY_ATTRIBUTE_PURE YY_ATTRIBUTE ((__pure__))
-#endif
-
-#ifndef YY_ATTRIBUTE_UNUSED
-# define YY_ATTRIBUTE_UNUSED YY_ATTRIBUTE ((__unused__))
-#endif
-
-#if !defined _Noreturn \
- && (!defined __STDC_VERSION__ || __STDC_VERSION__ < 201112)
-# if defined _MSC_VER && 1200 <= _MSC_VER
-# define _Noreturn __declspec (noreturn)
-# else
-# define _Noreturn YY_ATTRIBUTE ((__noreturn__))
-# endif
-#endif
-
-/* Suppress unused-variable warnings by "using" E. */
-#if ! defined lint || defined __GNUC__
-# define YYUSE(E) ((void) (E))
-#else
-# define YYUSE(E) /* empty */
-#endif
-
-#if defined __GNUC__ && 407 <= __GNUC__ * 100 + __GNUC_MINOR__
-/* Suppress an incorrect diagnostic about yylval being uninitialized. */
-# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN \
- _Pragma ("GCC diagnostic push") \
- _Pragma ("GCC diagnostic ignored \"-Wuninitialized\"")\
- _Pragma ("GCC diagnostic ignored \"-Wmaybe-uninitialized\"")
-# define YY_IGNORE_MAYBE_UNINITIALIZED_END \
- _Pragma ("GCC diagnostic pop")
-#else
-# define YY_INITIAL_VALUE(Value) Value
-#endif
-#ifndef YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
-# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
-# define YY_IGNORE_MAYBE_UNINITIALIZED_END
-#endif
-#ifndef YY_INITIAL_VALUE
-# define YY_INITIAL_VALUE(Value) /* Nothing. */
-#endif
-
-
-#if ! defined yyoverflow || YYERROR_VERBOSE
-
-/* The parser invokes alloca or malloc; define the necessary symbols. */
-
-# ifdef YYSTACK_USE_ALLOCA
-# if YYSTACK_USE_ALLOCA
-# ifdef __GNUC__
-# define YYSTACK_ALLOC __builtin_alloca
-# elif defined __BUILTIN_VA_ARG_INCR
-# include <alloca.h> /* INFRINGES ON USER NAME SPACE */
-# elif defined _AIX
-# define YYSTACK_ALLOC __alloca
-# elif defined _MSC_VER
-# include <malloc.h> /* INFRINGES ON USER NAME SPACE */
-# define alloca _alloca
-# else
-# define YYSTACK_ALLOC alloca
-# if ! defined _ALLOCA_H && ! defined EXIT_SUCCESS
-# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
- /* Use EXIT_SUCCESS as a witness for stdlib.h. */
-# ifndef EXIT_SUCCESS
-# define EXIT_SUCCESS 0
-# endif
-# endif
-# endif
-# endif
-# endif
-
-# ifdef YYSTACK_ALLOC
- /* Pacify GCC's 'empty if-body' warning. */
-# define YYSTACK_FREE(Ptr) do { /* empty */; } while (0)
-# ifndef YYSTACK_ALLOC_MAXIMUM
- /* The OS might guarantee only one guard page at the bottom of the stack,
- and a page size can be as small as 4096 bytes. So we cannot safely
- invoke alloca (N) if N exceeds 4096. Use a slightly smaller number
- to allow for a few compiler-allocated temporary stack slots. */
-# define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2006 */
-# endif
-# else
-# define YYSTACK_ALLOC YYMALLOC
-# define YYSTACK_FREE YYFREE
-# ifndef YYSTACK_ALLOC_MAXIMUM
-# define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM
-# endif
-# if (defined __cplusplus && ! defined EXIT_SUCCESS \
- && ! ((defined YYMALLOC || defined malloc) \
- && (defined YYFREE || defined free)))
-# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
-# ifndef EXIT_SUCCESS
-# define EXIT_SUCCESS 0
-# endif
-# endif
-# ifndef YYMALLOC
-# define YYMALLOC malloc
-# if ! defined malloc && ! defined EXIT_SUCCESS
-void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */
-# endif
-# endif
-# ifndef YYFREE
-# define YYFREE free
-# if ! defined free && ! defined EXIT_SUCCESS
-void free (void *); /* INFRINGES ON USER NAME SPACE */
-# endif
-# endif
-# endif
-#endif /* ! defined yyoverflow || YYERROR_VERBOSE */
-
-
-#if (! defined yyoverflow \
- && (! defined __cplusplus \
- || (defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL)))
-
-/* A type that is properly aligned for any stack member. */
-union yyalloc
-{
- yytype_int16 yyss_alloc;
- YYSTYPE yyvs_alloc;
-};
-
-/* The size of the maximum gap between one aligned stack and the next. */
-# define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1)
-
-/* The size of an array large to enough to hold all stacks, each with
- N elements. */
-# define YYSTACK_BYTES(N) \
- ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE)) \
- + YYSTACK_GAP_MAXIMUM)
-
-# define YYCOPY_NEEDED 1
-
-/* Relocate STACK from its old location to the new one. The
- local variables YYSIZE and YYSTACKSIZE give the old and new number of
- elements in the stack, and YYPTR gives the new location of the
- stack. Advance YYPTR to a properly aligned location for the next
- stack. */
-# define YYSTACK_RELOCATE(Stack_alloc, Stack) \
- do \
- { \
- YYSIZE_T yynewbytes; \
- YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \
- Stack = &yyptr->Stack_alloc; \
- yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \
- yyptr += yynewbytes / sizeof (*yyptr); \
- } \
- while (0)
-
-#endif
-
-#if defined YYCOPY_NEEDED && YYCOPY_NEEDED
-/* Copy COUNT objects from SRC to DST. The source and destination do
- not overlap. */
-# ifndef YYCOPY
-# if defined __GNUC__ && 1 < __GNUC__
-# define YYCOPY(Dst, Src, Count) \
- __builtin_memcpy (Dst, Src, (Count) * sizeof (*(Src)))
-# else
-# define YYCOPY(Dst, Src, Count) \
- do \
- { \
- YYSIZE_T yyi; \
- for (yyi = 0; yyi < (Count); yyi++) \
- (Dst)[yyi] = (Src)[yyi]; \
- } \
- while (0)
-# endif
-# endif
-#endif /* !YYCOPY_NEEDED */
-
-/* YYFINAL -- State number of the termination state. */
-#define YYFINAL 3
-/* YYLAST -- Last index in YYTABLE. */
-#define YYLAST 22611
-
-/* YYNTOKENS -- Number of terminals. */
-#define YYNTOKENS 974
-/* YYNNTS -- Number of nonterminals. */
-#define YYNNTS 1471
-/* YYNRULES -- Number of rules. */
-#define YYNRULES 3506
-/* YYNSTATES -- Number of states. */
-#define YYNSTATES 4958
-
-/* YYTRANSLATE[YYX] -- Symbol number corresponding to YYX as returned
- by yylex, with out-of-bounds checking. */
-#define YYUNDEFTOK 2
-#define YYMAXUTOK 1228
-
-#define YYTRANSLATE(YYX) \
- ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK)
-
-/* YYTRANSLATE[TOKEN-NUM] -- Symbol number corresponding to TOKEN-NUM
- as returned by yylex, without out-of-bounds checking. */
-static const yytype_uint16 yytranslate[] =
-{
- 0, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 1, 2, 3, 4,
- 5, 6, 7, 8, 9, 10, 11, 12, 13, 14,
- 15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
- 25, 26, 27, 28, 29, 30, 31, 32, 33, 34,
- 35, 36, 37, 38, 39, 40, 41, 42, 43, 44,
- 45, 46, 47, 48, 49, 50, 51, 52, 53, 54,
- 55, 56, 57, 58, 59, 60, 61, 62, 63, 64,
- 65, 66, 67, 68, 69, 70, 71, 72, 73, 74,
- 75, 76, 77, 78, 79, 80, 81, 82, 83, 84,
- 85, 86, 87, 88, 89, 90, 91, 92, 93, 94,
- 95, 96, 97, 98, 99, 100, 101, 102, 103, 104,
- 105, 106, 107, 108, 109, 110, 111, 112, 113, 114,
- 115, 116, 117, 118, 119, 120, 121, 122, 123, 124,
- 125, 126, 127, 128, 129, 130, 131, 132, 133, 134,
- 135, 136, 137, 138, 139, 140, 141, 142, 143, 144,
- 145, 146, 147, 148, 149, 150, 151, 152, 153, 154,
- 155, 156, 157, 158, 159, 160, 161, 162, 163, 164,
- 165, 166, 167, 168, 169, 170, 171, 172, 173, 174,
- 175, 176, 177, 178, 179, 180, 181, 182, 183, 184,
- 185, 186, 187, 188, 189, 190, 191, 192, 193, 194,
- 195, 196, 197, 198, 199, 200, 201, 202, 203, 204,
- 205, 206, 207, 208, 209, 210, 211, 212, 213, 214,
- 215, 216, 217, 218, 219, 220, 221, 222, 223, 224,
- 225, 226, 227, 228, 229, 230, 231, 232, 233, 234,
- 235, 236, 237, 238, 239, 240, 241, 242, 243, 244,
- 245, 246, 247, 248, 249, 250, 251, 252, 253, 254,
- 255, 256, 257, 258, 259, 260, 261, 262, 263, 264,
- 265, 266, 267, 268, 269, 270, 271, 272, 273, 274,
- 275, 276, 277, 278, 279, 280, 281, 282, 283, 284,
- 285, 286, 287, 288, 289, 290, 291, 292, 293, 294,
- 295, 296, 297, 298, 299, 300, 301, 302, 303, 304,
- 305, 306, 307, 308, 309, 310, 311, 312, 313, 314,
- 315, 316, 317, 318, 319, 320, 321, 322, 323, 324,
- 325, 326, 327, 328, 329, 330, 331, 332, 333, 334,
- 335, 336, 337, 338, 339, 340, 341, 342, 343, 344,
- 345, 346, 347, 348, 349, 350, 351, 352, 353, 354,
- 355, 356, 357, 358, 359, 360, 361, 362, 363, 364,
- 365, 366, 367, 368, 369, 370, 371, 372, 373, 374,
- 375, 376, 377, 378, 379, 380, 381, 382, 383, 384,
- 385, 386, 387, 388, 389, 390, 391, 392, 393, 394,
- 395, 396, 397, 398, 399, 400, 401, 402, 403, 404,
- 405, 406, 407, 408, 409, 410, 411, 412, 413, 414,
- 415, 416, 417, 418, 419, 420, 421, 422, 423, 424,
- 425, 426, 427, 428, 429, 430, 431, 432, 433, 434,
- 435, 436, 437, 438, 439, 440, 441, 442, 443, 444,
- 445, 446, 447, 448, 449, 450, 451, 452, 453, 454,
- 455, 456, 457, 458, 459, 460, 461, 462, 463, 464,
- 465, 466, 467, 468, 469, 470, 471, 472, 473, 474,
- 475, 476, 477, 478, 479, 480, 481, 482, 483, 484,
- 485, 486, 487, 488, 489, 490, 491, 492, 493, 494,
- 495, 496, 497, 498, 499, 500, 501, 502, 503, 504,
- 505, 506, 507, 508, 509, 510, 511, 512, 513, 514,
- 515, 516, 517, 518, 519, 520, 521, 522, 523, 524,
- 525, 526, 527, 528, 529, 530, 531, 532, 533, 534,
- 535, 536, 537, 538, 539, 540, 541, 542, 543, 544,
- 545, 546, 547, 548, 549, 550, 551, 552, 553, 554,
- 555, 556, 557, 558, 559, 560, 561, 562, 563, 564,
- 565, 566, 567, 568, 569, 570, 571, 572, 573, 574,
- 575, 576, 577, 578, 579, 580, 581, 582, 583, 584,
- 585, 586, 587, 588, 589, 590, 591, 592, 593, 594,
- 595, 596, 597, 598, 599, 600, 601, 602, 603, 604,
- 605, 606, 607, 608, 609, 610, 611, 612, 613, 614,
- 615, 616, 617, 618, 619, 620, 621, 622, 623, 624,
- 625, 626, 627, 628, 629, 630, 631, 632, 633, 634,
- 635, 636, 637, 638, 639, 640, 641, 642, 643, 644,
- 645, 646, 647, 648, 649, 650, 651, 652, 653, 654,
- 655, 656, 657, 658, 659, 660, 661, 662, 663, 664,
- 665, 666, 667, 668, 669, 670, 671, 672, 673, 674,
- 675, 676, 677, 678, 679, 680, 681, 682, 683, 684,
- 685, 686, 687, 688, 689, 690, 691, 692, 693, 694,
- 695, 696, 697, 698, 699, 700, 701, 702, 703, 704,
- 705, 706, 707, 708, 709, 710, 711, 712, 713, 714,
- 715, 716, 717, 718, 719, 720, 721, 722, 723, 724,
- 725, 726, 727, 728, 729, 730, 731, 732, 733, 734,
- 735, 736, 737, 738, 739, 740, 741, 742, 743, 744,
- 745, 746, 747, 748, 749, 750, 751, 752, 753, 754,
- 755, 756, 757, 758, 759, 760, 761, 762, 763, 764,
- 765, 766, 767, 768, 769, 770, 771, 772, 773, 774,
- 775, 776, 777, 778, 779, 780, 781, 782, 783, 784,
- 785, 786, 787, 788, 789, 790, 791, 792, 793, 794,
- 795, 796, 797, 798, 799, 800, 801, 802, 803, 804,
- 805, 806, 807, 808, 809, 810, 811, 812, 813, 814,
- 815, 816, 817, 818, 819, 820, 821, 822, 823, 824,
- 825, 826, 827, 828, 829, 830, 831, 832, 833, 834,
- 835, 836, 837, 838, 839, 840, 841, 842, 843, 844,
- 845, 846, 847, 848, 849, 850, 851, 852, 853, 854,
- 855, 856, 857, 858, 859, 860, 861, 862, 863, 864,
- 865, 866, 867, 868, 869, 870, 871, 872, 873, 874,
- 875, 876, 877, 878, 879, 880, 881, 882, 883, 884,
- 885, 886, 887, 888, 889, 890, 891, 892, 893, 894,
- 895, 896, 897, 898, 899, 900, 901, 902, 903, 904,
- 905, 906, 907, 908, 909, 910, 911, 912, 913, 914,
- 915, 916, 917, 918, 919, 920, 921, 922, 923, 924,
- 925, 926, 927, 928, 929, 930, 931, 932, 933, 934,
- 935, 936, 937, 938, 939, 940, 941, 942, 943, 944,
- 945, 946, 947, 948, 949, 950, 951, 952, 953, 954,
- 955, 956, 957, 958, 959, 960, 961, 962, 963, 964,
- 965, 966, 967, 968, 969, 970, 971, 972, 973
-};
-
-#if YYDEBUG
- /* YYRLINE[YYN] -- Source line where rule number YYN was defined. */
-static const yytype_uint16 yyrline[] =
-{
- 0, 3571, 3571, 3571, 3610, 3612, 3616, 3616, 3626, 3627,
- 3631, 3632, 3633, 3634, 3638, 3638, 3650, 3661, 3669, 3673,
- 3677, 3678, 3683, 3682, 3696, 3695, 3711, 3746, 3709, 3766,
- 3795, 3764, 3810, 3812, 3812, 3824, 3825, 3828, 3827, 3834,
- 3836, 3836, 3844, 3846, 3851, 3853, 3853, 3861, 3863, 3863,
- 3876, 3880, 3874, 3892, 3893, 3897, 3897, 3907, 3907, 3911,
- 3919, 3951, 3958, 3970, 3981, 3988, 3989, 3996, 3997, 4001,
- 4002, 4006, 4010, 4014, 4015, 4022, 4023, 4027, 4031, 4037,
- 4039, 4047, 4054, 4056, 4060, 4067, 4071, 4075, 4091, 4094,
- 4104, 4106, 4113, 4117, 4121, 4127, 4129, 4136, 4140, 4144,
- 4148, 4157, 4162, 4163, 4166, 4168, 4177, 4181, 4182, 4185,
- 4187, 4197, 4199, 4203, 4204, 4208, 4209, 4210, 4211, 4212,
- 4217, 4218, 4223, 4222, 4233, 4234, 4237, 4238, 4251, 4250,
- 4264, 4265, 4266, 4267, 4271, 4272, 4276, 4277, 4278, 4279,
- 4283, 4291, 4299, 4304, 4308, 4314, 4318, 4323, 4330, 4340,
- 4354, 4365, 4369, 4373, 4377, 4384, 4385, 4389, 4390, 4395,
- 4394, 4407, 4409, 4410, 4417, 4418, 4422, 4426, 4432, 4433,
- 4440, 4447, 4452, 4463, 4478, 4481, 4482, 4485, 4489, 4490,
- 4491, 4492, 4493, 4494, 4495, 4496, 4497, 4498, 4499, 4500,
- 4501, 4502, 4503, 4511, 4510, 4529, 4531, 4534, 4545, 4568,
- 4576, 4579, 4580, 4584, 4591, 4606, 4627, 4626, 4651, 4650,
- 4659, 4658, 4668, 4670, 4674, 4678, 4679, 4685, 4691, 4697,
- 4706, 4707, 4714, 4721, 4731, 4737, 4745, 4755, 4759, 4766,
- 4770, 4775, 4774, 4785, 4789, 4796, 4797, 4798, 4799, 4800,
- 4801, 4805, 4806, 4811, 4814, 4818, 4826, 4829, 4840, 4866,
- 4874, 4878, 4889, 4909, 4917, 4928, 4929, 4936, 4950, 4951,
- 4955, 4974, 5005, 5006, 5010, 5014, 5035, 5057, 5056, 5080,
- 5087, 5099, 5166, 5169, 5178, 5197, 5213, 5231, 5249, 5266,
- 5284, 5283, 5311, 5317, 5318, 5319, 5328, 5329, 5337, 5338,
- 5342, 5344, 5342, 5390, 5391, 5397, 5398, 5407, 5408, 5409,
- 5410, 5411, 5412, 5413, 5414, 5415, 5416, 5417, 5418, 5419,
- 5420, 5421, 5422, 5423, 5424, 5425, 5426, 5449, 5459, 5469,
- 5480, 5491, 5522, 5525, 5529, 5533, 5537, 5542, 5546, 5554,
- 5560, 5566, 5576, 5577, 5578, 5579, 5583, 5584, 5585, 5586,
- 5587, 5588, 5589, 5593, 5601, 5605, 5613, 5617, 5624, 5625,
- 5631, 5638, 5639, 5640, 5647, 5702, 5705, 5710, 5709, 5721,
- 5734, 5737, 5741, 5751, 5761, 5766, 5770, 5776, 5780, 5785,
- 5792, 5802, 5813, 5823, 5827, 5831, 5835, 5839, 5848, 5859,
- 5861, 5862, 5868, 5868, 5875, 5879, 5883, 5890, 5891, 5892,
- 5896, 5902, 5903, 5907, 5913, 5914, 5930, 5931, 5935, 5941,
- 5947, 5953, 5966, 5977, 5976, 5985, 5996, 6010, 6023, 6039,
- 6078, 6081, 6088, 6089, 6093, 6093, 6097, 6102, 6120, 6131,
- 6138, 6139, 6145, 6158, 6159, 6160, 6166, 6174, 6175, 6181,
- 6191, 6201, 6211, 6221, 6222, 6229, 6237, 6238, 6239, 6246,
- 6247, 6251, 6252, 6253, 6254, 6260, 6288, 6289, 6290, 6291,
- 6297, 6302, 6306, 6310, 6311, 6318, 6319, 6320, 6321, 6322,
- 6323, 6324, 6325, 6332, 6331, 6347, 6348, 6352, 6355, 6356,
- 6362, 6366, 6370, 6371, 6375, 6377, 6378, 6386, 6390, 6391,
- 6395, 6396, 6400, 6401, 6405, 6406, 6407, 6417, 6414, 6428,
- 6429, 6432, 6434, 6442, 6443, 6444, 6452, 6453, 6457, 6477,
- 6476, 6500, 6507, 6512, 6519, 6520, 6524, 6534, 6549, 6550,
- 6551, 6552, 6553, 6554, 6555, 6556, 6557, 6564, 6571, 6571,
- 6571, 6577, 6586, 6602, 6614, 6615, 6619, 6620, 6624, 6625,
- 6632, 6643, 6648, 6659, 6660, 6664, 6665, 6671, 6682, 6700,
- 6701, 6705, 6706, 6707, 6711, 6718, 6725, 6734, 6743, 6744,
- 6745, 6746, 6747, 6756, 6757, 6763, 6802, 6803, 6812, 6827,
- 6828, 6832, 6846, 6867, 6868, 6870, 6869, 6887, 6888, 6892,
- 6907, 6910, 6909, 6931, 6932, 6936, 6937, 6938, 6941, 6943,
- 6944, 6948, 6949, 6953, 6954, 6955, 6956, 6957, 6958, 6959,
- 6960, 6961, 6962, 6963, 6967, 6971, 6973, 6977, 6978, 6982,
- 6983, 6984, 6985, 6986, 6987, 6988, 6991, 6993, 6994, 6998,
- 6999, 7003, 7004, 7005, 7006, 7007, 7008, 7012, 7017, 7018,
- 7021, 7019, 7036, 7040, 7040, 7053, 7054, 7058, 7059, 7060,
- 7062, 7061, 7082, 7117, 7130, 7136, 7138, 7142, 7149, 7153,
- 7164, 7167, 7179, 7180, 7182, 7186, 7190, 7196, 7200, 7204,
- 7208, 7212, 7216, 7220, 7228, 7232, 7236, 7244, 7248, 7252,
- 7256, 7267, 7268, 7272, 7273, 7277, 7278, 7282, 7283, 7287,
- 7331, 7334, 7342, 7341, 7355, 7361, 7365, 7390, 7389, 7404,
- 7413, 7420, 7431, 7435, 7442, 7443, 7447, 7448, 7449, 7450,
- 7451, 7452, 7453, 7454, 7455, 7456, 7459, 7461, 7465, 7469,
- 7473, 7474, 7475, 7476, 7477, 7478, 7479, 7480, 7481, 7482,
- 7483, 7484, 7485, 7486, 7487, 7488, 7489, 7490, 7491, 7492,
- 7493, 7494, 7495, 7496, 7497, 7498, 7499, 7500, 7501, 7502,
- 7512, 7533, 7547, 7548, 7551, 7560, 7579, 7603, 7604, 7614,
- 7642, 7645, 7653, 7654, 7658, 7683, 7682, 7694, 7702, 7719,
- 7731, 7749, 7748, 7759, 7760, 7766, 7773, 7774, 7775, 7781,
- 7799, 7798, 7815, 7817, 7831, 7873, 7878, 7881, 7888, 7902,
- 7913, 7914, 7915, 7949, 7956, 7957, 7963, 7964, 7968, 7972,
- 7977, 7982, 7990, 7994, 7999, 8006, 8010, 8015, 8024, 8028,
- 8033, 8037, 8041, 8045, 8049, 8053, 8057, 8061, 8065, 8070,
- 8074, 8082, 8088, 8096, 8100, 8104, 8108, 8113, 8117, 8122,
- 8126, 8131, 8136, 8141, 8145, 8149, 8157, 8161, 8165, 8173,
- 8177, 8181, 8185, 8189, 8193, 8197, 8201, 8205, 8213, 8221,
- 8225, 8229, 8233, 8237, 8241, 8246, 8250, 8258, 8259, 8263,
- 8264, 8269, 8276, 8278, 8279, 8280, 8283, 8285, 8289, 8290,
- 8294, 8295, 8299, 8302, 8304, 8305, 8306, 8307, 8308, 8309,
- 8312, 8314, 8320, 8327, 8339, 8354, 8363, 8364, 8373, 8380,
- 8389, 8407, 8408, 8412, 8413, 8417, 8418, 8421, 8422, 8427,
- 8428, 8435, 8436, 8442, 8444, 8446, 8445, 8450, 8451, 8455,
- 8477, 8478, 8482, 8507, 8508, 8511, 8513, 8517, 8524, 8525,
- 8530, 8548, 8559, 8579, 8580, 8581, 8588, 8599, 8626, 8640,
- 8648, 8669, 8680, 8694, 8695, 8699, 8731, 8732, 8736, 8740,
- 8741, 8745, 8752, 8753, 8757, 8758, 8762, 8766, 8774, 8775,
- 8779, 8780, 8784, 8789, 8799, 8798, 8806, 8818, 8819, 8823,
- 8824, 8828, 8830, 8831, 8835, 8846, 8853, 8854, 8857, 8859,
- 8868, 8876, 8877, 8881, 8882, 8883, 8884, 8890, 8897, 8898,
- 8904, 8911, 8912, 8913, 8914, 8915, 8916, 8917, 8923, 8934,
- 8943, 8953, 8962, 8977, 9000, 9019, 9020, 9022, 9021, 9045,
- 9046, 9048, 9047, 9065, 9066, 9068, 9066, 9078, 9079, 9085,
- 9087, 9085, 9113, 9114, 9115, 9122, 9128, 9133, 9134, 9140,
- 9147, 9148, 9149, 9153, 9160, 9161, 9165, 9175, 9214, 9225,
- 9226, 9240, 9253, 9254, 9257, 9258, 9263, 9264, 9265, 9266,
- 9267, 9268, 9280, 9294, 9308, 9322, 9336, 9349, 9350, 9355,
- 9354, 9368, 9377, 9378, 9382, 9383, 9384, 9385, 9386, 9387,
- 9388, 9389, 9390, 9391, 9392, 9393, 9394, 9395, 9396, 9397,
- 9398, 9402, 9409, 9413, 9417, 9418, 9419, 9426, 9430, 9438,
- 9441, 9449, 9459, 9460, 9465, 9468, 9473, 9477, 9485, 9492,
- 9501, 9506, 9513, 9514, 9515, 9519, 9526, 9527, 9528, 9535,
- 9539, 9546, 9551, 9557, 9564, 9570, 9580, 9584, 9591, 9593,
- 9597, 9601, 9605, 9609, 9616, 9617, 9622, 9659, 9662, 9670,
- 9673, 9680, 9691, 9692, 9695, 9697, 9701, 9705, 9719, 9734,
- 9737, 9739, 9743, 9747, 9751, 9758, 9780, 9784, 9785, 9789,
- 9810, 9818, 9827, 9828, 9830, 9828, 9850, 9851, 9855, 9856,
- 9860, 9863, 9862, 9875, 9882, 9874, 9892, 9912, 9914, 9918,
- 9923, 9928, 9932, 9936, 9941, 9946, 9951, 9956, 9965, 9969,
- 9973, 9977, 9981, 9987, 9991, 9996, 10002, 10006, 10010, 10015,
- 10019, 10023, 10028, 10033, 10038, 10047, 10051, 10055, 10061, 10065,
- 10069, 10073, 10077, 10081, 10085, 10089, 10095, 10101, 10106, 10111,
- 10115, 10116, 10117, 10118, 10119, 10120, 10121, 10122, 10131, 10136,
- 10147, 10160, 10161, 10165, 10166, 10173, 10174, 10175, 10176, 10177,
- 10178, 10179, 10180, 10181, 10184, 10187, 10188, 10189, 10190, 10191,
- 10192, 10199, 10200, 10205, 10206, 10209, 10211, 10215, 10216, 10220,
- 10221, 10222, 10226, 10227, 10231, 10232, 10236, 10237, 10238, 10239,
- 10240, 10243, 10244, 10245, 10246, 10247, 10249, 10250, 10252, 10253,
- 10257, 10258, 10259, 10260, 10262, 10264, 10266, 10267, 10268, 10269,
- 10270, 10271, 10272, 10273, 10274, 10280, 10281, 10282, 10283, 10284,
- 10285, 10286, 10287, 10288, 10289, 10293, 10294, 10299, 10300, 10301,
- 10302, 10303, 10307, 10315, 10316, 10317, 10318, 10319, 10320, 10321,
- 10322, 10323, 10324, 10325, 10327, 10329, 10330, 10331, 10335, 10336,
- 10337, 10338, 10339, 10340, 10341, 10342, 10343, 10344, 10349, 10350,
- 10351, 10352, 10353, 10354, 10355, 10356, 10357, 10358, 10363, 10364,
- 10375, 10376, 10400, 10401, 10418, 10421, 10422, 10423, 10426, 10430,
- 10431, 10432, 10433, 10434, 10435, 10436, 10437, 10438, 10439, 10440,
- 10441, 10442, 10443, 10444, 10445, 10451, 10452, 10453, 10473, 10474,
- 10475, 10476, 10477, 10478, 10479, 10480, 10484, 10485, 10486, 10487,
- 10488, 10489, 10495, 10496, 10497, 10498, 10499, 10500, 10501, 10502,
- 10507, 10509, 10510, 10511, 10516, 10517, 10518, 10522, 10523, 10524,
- 10525, 10526, 10527, 10538, 10539, 10540, 10541, 10546, 10549, 10550,
- 10551, 10552, 10553, 10555, 10560, 10561, 10562, 10568, 10569, 10570,
- 10571, 10572, 10573, 10574, 10575, 10576, 10577, 10581, 10582, 10583,
- 10584, 10585, 10586, 10587, 10588, 10589, 10590, 10591, 10592, 10593,
- 10594, 10596, 10597, 10598, 10599, 10600, 10601, 10602, 10603, 10604,
- 10605, 10606, 10607, 10608, 10609, 10610, 10611, 10612, 10615, 10616,
- 10617, 10625, 10626, 10627, 10631, 10632, 10633, 10637, 10638, 10641,
- 10642, 10643, 10646, 10655, 10656, 10657, 10658, 10659, 10660, 10661,
- 10662, 10663, 10664, 10665, 10666, 10667, 10669, 10670, 10671, 10672,
- 10673, 10674, 10675, 10676, 10677, 10678, 10685, 10689, 10693, 10694,
- 10695, 10696, 10697, 10698, 10699, 10700, 10706, 10707, 10708, 10713,
- 10714, 10719, 10724, 10725, 10729, 10730, 10735, 10736, 10740, 10741,
- 10742, 10747, 10748, 10752, 10753, 10757, 10758, 10762, 10766, 10766,
- 10770, 10774, 10774, 10778, 10782, 10783, 10787, 10788, 10792, 10800,
- 10802, 10806, 10813, 10823, 10826, 10830, 10837, 10849, 10855, 10857,
- 10864, 10873, 10878, 10890, 10913, 10877, 10939, 10939, 10975, 10979,
- 10978, 10992, 10991, 11011, 11012, 11017, 11039, 11041, 11045, 11056,
- 11058, 11062, 11070, 11079, 11087, 11093, 11097, 11141, 11143, 11151,
- 11154, 11174, 11179, 11189, 11224, 11227, 11234, 11236, 11226, 11267,
- 11268, 11272, 11273, 11275, 11274, 11293, 11294, 11305, 11309, 11318,
- 11317, 11363, 11364, 11368, 11413, 11436, 11439, 11468, 11485, 11467,
- 11501, 11501, 11538, 11546, 11547, 11548, 11549, 11550, 11551, 11552,
- 11553, 11554, 11555, 11556, 11557, 11558, 11559, 11560, 11561, 11562,
- 11563, 11564, 11565, 11566, 11567, 11568, 11569, 11570, 11571, 11572,
- 11573, 11574, 11575, 11577, 11578, 11579, 11580, 11581, 11582, 11583,
- 11584, 11585, 11586, 11587, 11588, 11589, 11590, 11591, 11593, 11594,
- 11595, 11596, 11597, 11598, 11599, 11600, 11601, 11602, 11603, 11604,
- 11605, 11606, 11607, 11608, 11609, 11610, 11611, 11612, 11614, 11613,
- 11632, 11645, 11644, 11655, 11654, 11689, 11688, 11699, 11703, 11707,
- 11713, 11719, 11724, 11729, 11734, 11739, 11745, 11751, 11755, 11761,
- 11765, 11769, 11774, 11778, 11782, 11786, 11790, 11794, 11798, 11802,
- 11816, 11823, 11824, 11831, 11831, 11842, 11844, 11848, 11852, 11856,
- 11863, 11867, 11871, 11878, 11879, 11883, 11885, 11889, 11890, 11894,
- 11895, 11899, 11903, 11904, 11913, 11914, 11919, 11920, 11924, 11925,
- 11930, 11929, 11953, 11952, 11975, 11988, 11995, 12002, 12009, 12015,
- 12021, 12026, 12032, 12037, 12042, 12047, 12054, 12071, 12076, 12081,
- 12086, 12092, 12098, 12104, 12111, 12115, 12119, 12123, 12127, 12138,
- 12143, 12148, 12154, 12159, 12164, 12169, 12175, 12181, 12187, 12193,
- 12199, 12204, 12209, 12216, 12223, 12229, 12232, 12232, 12236, 12247,
- 12248, 12249, 12253, 12254, 12255, 12259, 12260, 12264, 12268, 12288,
- 12287, 12296, 12300, 12307, 12311, 12319, 12320, 12324, 12328, 12340,
- 12339, 12349, 12353, 12364, 12366, 12379, 12380, 12388, 12387, 12396,
- 12397, 12401, 12407, 12407, 12414, 12413, 12429, 12428, 12512, 12516,
- 12515, 12531, 12535, 12539, 12547, 12550, 12558, 12566, 12570, 12574,
- 12578, 12582, 12586, 12605, 12611, 12631, 12635, 12645, 12649, 12654,
- 12658, 12657, 12674, 12675, 12680, 12689, 12693, 12716, 12718, 12722,
- 12735, 12752, 12755, 12759, 12763, 12768, 12791, 12792, 12796, 12797,
- 12801, 12805, 12809, 12820, 12824, 12831, 12835, 12843, 12847, 12854,
- 12861, 12865, 12877, 12876, 12888, 12889, 12898, 12902, 12909, 12910,
- 12920, 12919, 12927, 12928, 12932, 12943, 12953, 12954, 12955, 12956,
- 12957, 12958, 12963, 12962, 12974, 12975, 12983, 12982, 12991, 12998,
- 13002, 13013, 13025, 13024, 13049, 13052, 13052, 13067, 13066, 13075,
- 13082, 13093, 13092, 13101, 13105, 13112, 13119, 13129, 13133, 13145,
- 13144, 13153, 13156, 13158, 13164, 13166, 13167, 13168, 13169, 13177,
- 13176, 13188, 13192, 13196, 13200, 13204, 13205, 13211, 13212, 13213,
- 13214, 13215, 13216, 13220, 13228, 13239, 13240, 13245, 13244, 13291,
- 13295, 13301, 13303, 13307, 13308, 13312, 13313, 13317, 13321, 13326,
- 13330, 13331, 13336, 13339, 13343, 13347, 13351, 13355, 13362, 13363,
- 13368, 13367, 13385, 13393, 13393, 13405, 13409, 13416, 13417, 13418,
- 13428, 13427, 13445, 13447, 13451, 13452, 13456, 13460, 13461, 13462,
- 13463, 13468, 13473, 13467, 13487, 13488, 13493, 13500, 13492, 13519,
- 13518, 13541, 13542, 13543, 13547, 13548, 13553, 13556, 13563, 13576,
- 13588, 13595, 13596, 13602, 13603, 13607, 13608, 13609, 13610, 13611,
- 13612, 13616, 13619, 13623, 13624, 13625, 13629, 13630, 13631, 13632,
- 13636, 13637, 13642, 13643, 13647, 13657, 13673, 13678, 13684, 13690,
- 13695, 13700, 13705, 13712, 13718, 13724, 13730, 13736, 13743, 13747,
- 13751, 13755, 13759, 13764, 13769, 13774, 13779, 13784, 13789, 13796,
- 13806, 13807, 13811, 13815, 13827, 13826, 13835, 13839, 13843, 13847,
- 13851, 13858, 13862, 13874, 13873, 13883, 13886, 13885, 13893, 13892,
- 13907, 13935, 13934, 13961, 13971, 13972, 13977, 13988, 13999, 14013,
- 14021, 14029, 14030, 14035, 14039, 14051, 14061, 14073, 14083, 14092,
- 14102, 14114, 14124, 14131, 14142, 14143, 14148, 14223, 14224, 14225,
- 14226, 14230, 14231, 14235, 14239, 14249, 14248, 14262, 14261, 14302,
- 14302, 14303, 14303, 14304, 14304, 14307, 14316, 14327, 14328, 14336,
- 14335, 14347, 14367, 14385, 14399, 14422, 14445, 14466, 14489, 14493,
- 14501, 14502, 14512, 14511, 14520, 14531, 14530, 14539, 14554, 14553,
- 14566, 14571, 14582, 14586, 14597, 14597, 14612, 14611, 14620, 14627,
- 14635, 14646, 14658, 14661, 14669, 14675, 14681, 14686, 14699, 14698,
- 14706, 14714, 14715, 14719, 14720, 14721, 14726, 14729, 14736, 14740,
- 14748, 14755, 14756, 14757, 14758, 14759, 14760, 14761, 14773, 14776,
- 14786, 14785, 14793, 14802, 14815, 14814, 14826, 14827, 14834, 14833,
- 14842, 14851, 14852, 14856, 14857, 14858, 14862, 14863, 14864, 14865,
- 14872, 14871, 14881, 14880, 14930, 14961, 14962, 14963, 14967, 14968,
- 14969, 14970, 14974, 14975, 14979, 14986, 15001, 15000, 15021, 15031,
- 15039, 15043, 15050, 15055, 15060, 15065, 15070, 15075, 15083, 15084,
- 15088, 15093, 15099, 15101, 15102, 15103, 15104, 15108, 15136, 15139,
- 15143, 15147, 15151, 15158, 15165, 15173, 15176, 15175, 15189, 15194,
- 15187, 15205, 15206, 15210, 15211, 15215, 15223, 15227, 15237, 15236,
- 15248, 15259, 15260, 15267, 15266, 15278, 15277, 15290, 15291, 15295,
- 15299, 15311, 15310, 15318, 15322, 15333, 15332, 15341, 15345, 15352,
- 15356, 15368, 15367, 15376, 15377, 15381, 15410, 15411, 15415, 15416,
- 15417, 15418, 15422, 15423, 15427, 15428, 15429, 15433, 15434, 15442,
- 15443, 15447, 15448, 15454, 15463, 15464, 15465, 15470, 15471, 15472,
- 15476, 15483, 15499, 15500, 15501, 15507, 15506, 15518, 15530, 15527,
- 15544, 15541, 15557, 15565, 15573, 15578, 15591, 15597, 15609, 15612,
- 15617, 15621, 15635, 15642, 15643, 15647, 15648, 15651, 15652, 15657,
- 15700, 15704, 15714, 15713, 15726, 15725, 15733, 15738, 15747, 15762,
- 15761, 15771, 15800, 15801, 15805, 15809, 15813, 15817, 15824, 15825,
- 15829, 15833, 15836, 15838, 15842, 15851, 15852, 15853, 15857, 15858,
- 15862, 15866, 15870, 15878, 15879, 15883, 15884, 15888, 15892, 15903,
- 15914, 15913, 15922, 15927, 15928, 15932, 15933, 15934, 15938, 15939,
- 15943, 15947, 15948, 15952, 15956, 15960, 15971, 15970, 15978, 15988,
- 15999, 15998, 16007, 16014, 16018, 16030, 16029, 16041, 16050, 16053,
- 16057, 16061, 16068, 16072, 16083, 16093, 16096, 16095, 16102, 16101,
- 16110, 16118, 16127, 16128, 16133, 16136, 16144, 16150, 16154, 16161,
- 16169, 16173, 16188, 16198, 16197, 16205, 16206, 16212, 16230, 16241,
- 16243, 16247, 16266, 16270, 16277, 16278, 16279, 16280, 16283, 16285,
- 16292, 16291, 16305, 16306, 16307, 16308, 16309, 16310, 16311, 16312,
- 16316, 16317, 16321, 16322, 16328, 16337, 16344, 16345, 16349, 16353,
- 16357, 16363, 16369, 16373, 16377, 16381, 16390, 16394, 16398, 16402,
- 16406, 16415, 16424, 16425, 16429, 16438, 16439, 16443, 16447, 16456,
- 16465, 16477, 16476, 16486, 16484, 16544, 16545, 16562, 16563, 16566,
- 16567, 16574, 16576, 16581, 16590, 16600, 16617, 16626, 16636, 16654,
- 16653, 16663, 16676, 16679, 16687, 16690, 16695, 16700, 16708, 16709,
- 16710, 16711, 16712, 16713, 16722, 16723, 16727, 16731, 16741, 16744,
- 16743, 16754, 16761, 16769, 16783, 16790, 16794, 16798, 16806, 16817,
- 16818, 16822, 16826, 16833, 16834, 16835, 16836, 16843, 16842, 16851,
- 16858, 16858, 16868, 16869, 16873, 16887, 16888, 16893, 16894, 16898,
- 16899, 16903, 16907, 16919, 16918, 16927, 16931, 16935, 16939, 16947,
- 16951, 16962, 16962, 16974, 16975, 16982, 16981, 16989, 16998, 17011,
- 17010, 17018, 17030, 17029, 17037, 17054, 17053, 17063, 17071, 17072,
- 17077, 17078, 17083, 17090, 17091, 17096, 17103, 17104, 17108, 17109,
- 17113, 17117, 17128, 17127, 17142, 17147, 17159, 17158, 17167, 17168,
- 17169, 17170, 17171, 17175, 17203, 17206, 17218, 17228, 17233, 17238,
- 17243, 17251, 17291, 17292, 17296, 17356, 17366, 17389, 17390, 17391,
- 17392, 17396, 17405, 17411, 17421, 17448, 17452, 17453, 17457, 17463,
- 17479, 17480, 17487, 17486, 17498, 17508, 17509, 17514, 17517, 17521,
- 17525, 17532, 17533, 17537, 17538, 17539, 17543, 17547, 17556, 17559,
- 17558, 17572, 17583, 17570, 17594, 17596, 17600, 17601, 17605, 17609,
- 17621, 17630, 17640, 17643, 17653, 17656, 17664, 17667, 17676, 17680,
- 17687, 17695, 17698, 17705, 17709, 17716, 17720, 17728, 17731, 17740,
- 17744, 17751, 17759, 17762, 17766, 17767, 17768, 17771, 17773, 17781,
- 17782, 17786, 17791, 17796, 17803, 17808, 17813, 17821, 17825, 17832,
- 17836, 17848, 17847, 17876, 17871, 17891, 17894, 17902, 17903, 17907,
- 17908, 17913, 17914, 17930, 17931, 17932, 17942, 17946, 17953, 17965,
- 17966, 17970, 17971, 17975, 17987, 17988, 17993, 17994, 17995, 18005,
- 18009, 18016, 18027, 18028, 18032, 18045, 18049, 18050, 18060, 18064,
- 18071, 18083, 18084, 18088, 18102, 18103, 18104, 18114, 18118, 18125,
- 18137, 18138, 18142, 18157, 18158, 18170, 18172, 18181, 18185, 18192,
- 18204, 18205, 18209, 18223, 18224, 18234, 18238, 18245, 18257, 18258,
- 18262, 18276, 18277, 18281, 18282, 18292, 18296, 18303, 18315, 18316,
- 18320, 18335, 18338, 18347, 18350, 18358, 18362, 18371, 18375, 18382,
- 18383, 18395, 18400, 18408, 18415, 18415, 18426, 18427, 18431, 18432,
- 18434, 18436, 18438, 18439, 18441, 18442, 18443, 18444, 18445, 18447,
- 18448, 18449, 18450, 18451, 18452, 18453, 18454, 18455, 18456, 18457,
- 18461, 18466, 18474, 18481, 18481, 18492, 18493, 18497, 18498, 18499,
- 18500, 18502, 18503, 18505, 18506, 18507, 18508, 18509, 18511, 18512,
- 18513, 18514, 18515, 18516, 18517, 18518, 18519, 18520, 18523, 18525,
- 18529, 18532, 18534, 18535, 18536, 18537, 18538, 18539, 18541, 18542,
- 18543, 18544, 18545, 18549, 18550, 18554, 18555, 18559, 18560, 18564,
- 18565, 18569, 18573, 18579, 18583, 18589, 18591, 18592, 18596, 18597,
- 18598, 18602, 18603, 18604, 18605, 18606, 18607, 18608, 18609, 18610,
- 18611, 18615, 18619, 18623, 18624, 18625, 18626, 18629, 18630, 18640,
- 18652, 18661, 18677, 18686, 18702, 18717, 18718, 18723, 18732, 18738,
- 18748, 18762, 18787, 18791, 18812, 18816, 18837, 18849, 18863, 18877,
- 18878, 18883, 18889, 18890, 18895, 18904, 18906, 18911, 18925, 18926,
- 18927, 18934, 18945, 18946, 18950, 18958, 18959, 18963, 18964, 18968,
- 18980, 18984, 18991, 19000, 19001, 19007, 19016, 19025, 19039, 19056,
- 19060, 19067, 19068, 19069, 19076, 19077, 19081, 19085, 19092, 19093,
- 19097, 19098, 19102, 19103, 19104, 19105, 19109, 19113, 19117, 19121,
- 19125, 19146, 19156, 19160, 19167, 19168, 19169, 19173, 19174, 19175,
- 19176, 19177, 19181, 19185, 19192, 19193, 19194, 19195, 19199, 19203,
- 19210, 19222, 19234, 19246, 19260, 19261, 19265, 19266, 19270, 19277,
- 19278, 19285, 19286, 19293, 19294, 19295, 19299, 19300, 19304, 19308,
- 19312, 19316, 19317, 19321, 19325, 19326, 19330, 19334, 19335, 19344,
- 19348, 19353, 19354, 19360, 19364, 19368, 19372, 19373, 19379, 19383,
- 19387, 19388, 19392, 19399, 19409, 19428, 19437, 19453, 19465, 19472,
- 19479, 19486, 19496, 19500, 19507, 19511, 19518, 19540, 19553, 19560,
- 19564, 19568, 19572, 19579, 19595, 19608, 19634, 19638, 19646, 19646,
- 19659, 19664, 19672, 19680, 19693, 19713, 19728, 19750, 19770, 19774,
- 19781, 19796, 19804, 19805, 19806, 19807, 19808, 19809, 19813, 19817,
- 19833, 19837, 19843, 19843, 19846, 19847, 19848, 19849, 19855, 19859,
- 19863, 19867, 19871, 19875, 19880, 19885, 19889, 19893, 19897, 19901,
- 19905, 19909, 19916, 19917, 19921, 19922, 19923, 19924, 19928, 19929,
- 19930, 19931, 19932, 19936, 19940, 19944, 19951, 19955, 19959, 19966,
- 19973, 19980, 19990, 19990, 20006, 20013, 20023, 20030, 20040, 20044,
- 20057, 20061, 20076, 20084, 20085, 20089, 20090, 20091, 20095, 20096,
- 20101, 20104, 20112, 20115, 20123, 20125, 20126, 20130, 20131, 20135,
- 20136, 20137, 20142, 20145, 20158, 20162, 20170, 20174, 20178, 20182,
- 20186, 20190, 20194, 20198, 20205, 20206, 20210, 20211, 20221, 20222,
- 20231, 20235, 20240, 20244, 20252, 20253, 20254, 20255, 20256, 20257,
- 20258, 20259, 20260, 20261, 20262, 20263, 20264, 20265, 20266, 20267,
- 20268, 20269, 20270, 20271, 20272, 20273, 20274, 20275, 20276, 20277,
- 20278, 20279, 20280, 20281, 20282, 20283, 20284, 20285, 20286, 20287,
- 20288, 20289, 20290, 20291, 20292, 20293, 20294, 20295, 20296, 20297,
- 20298, 20299, 20300, 20301, 20302, 20303, 20307, 20308, 20309, 20310,
- 20311, 20312, 20313, 20314, 20315, 20316, 20317, 20318, 20319, 20320,
- 20321, 20322, 20323, 20324, 20325, 20326, 20327, 20328, 20329, 20333,
- 20334, 20342, 20343, 20353, 20362, 20363, 20364, 20374, 20377, 20380,
- 20383, 20384, 20385, 20395, 20395, 20395, 20395, 20398, 20398, 20401,
- 20401, 20401, 20401, 20401, 20401, 20404, 20405, 20411, 20423, 20423,
- 20424, 20424, 20425, 20425, 20426, 20426, 20427, 20427, 20427, 20428,
- 20428, 20429, 20429, 20430, 20430, 20431, 20431, 20432, 20432, 20433,
- 20433, 20434, 20434, 20435, 20435, 20436, 20436, 20437, 20437, 20438,
- 20438, 20439, 20439, 20440, 20440, 20441, 20441, 20442, 20442, 20443,
- 20443, 20444, 20444, 20445, 20445, 20446, 20446, 20447, 20447, 20447,
- 20448, 20448, 20448, 20449, 20449, 20450, 20450, 20451, 20451, 20452,
- 20452, 20453, 20453, 20454, 20454, 20454, 20455, 20455, 20455, 20456,
- 20456, 20456, 20456, 20457, 20457, 20457, 20458, 20458, 20459, 20459,
- 20460, 20460, 20460, 20461, 20461, 20461, 20462, 20462, 20463, 20463,
- 20464, 20464, 20465, 20465, 20466, 20466, 20467, 20467, 20468, 20468,
- 20469, 20469, 20470, 20470, 20471, 20471, 20471, 20472, 20472, 20472,
- 20472, 20473, 20473, 20474, 20474, 20475, 20475, 20476, 20476, 20477,
- 20477, 20478, 20478, 20479, 20479, 20479, 20480, 20480, 20481, 20481,
- 20482, 20482, 20483, 20483, 20483, 20484, 20484, 20485, 20485, 20486,
- 20486, 20487, 20487, 20488, 20488, 20489, 20489, 20490, 20490, 20491,
- 20491, 20492, 20492, 20493, 20493, 20494, 20494, 20495, 20495, 20496,
- 20496, 20497, 20497, 20497, 20499, 20499, 20503, 20503, 20504, 20504,
- 20505, 20505, 20506, 20506, 20507, 20507, 20508, 20508, 20509, 20509,
- 20509, 20509, 20510, 20510, 20511, 20511, 20512, 20512, 20513, 20513,
- 20514, 20514, 20515, 20515, 20516, 20516, 20517, 20517, 20517, 20518,
- 20518, 20519, 20519, 20520, 20520, 20521, 20521, 20522, 20522, 20523,
- 20523, 20526, 20526, 20527, 20527, 20528, 20528, 20529, 20529, 20530,
- 20530, 20531, 20531, 20532, 20532, 20533, 20533
-};
-#endif
-
-#if YYDEBUG || YYERROR_VERBOSE || 1
-/* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM.
- First, the terminals, then, starting at YYNTOKENS, nonterminals. */
-static const char *const yytname[] =
-{
- "\"end of file\"", "error", "$undefined", "\"3D\"", "ABSENT", "ACCEPT",
- "ACCESS", "\"ACTIVE-X\"", "\"ACTIVE-CLASS\"", "ACTION", "ACTUAL", "ADD",
- "ADDRESS", "\"ADJUSTABLE-COLUMNS\"", "ADVANCING", "AFTER", "ALIGNED",
- "ALIGNMENT", "ALL", "ALLOCATE", "ALLOWING", "ALPHABET", "ALPHABETIC",
- "\"ALPHABETIC-LOWER\"", "\"ALPHABETIC-UPPER\"", "ALPHANUMERIC",
- "\"ALPHANUMERIC-EDITED\"", "ALSO", "ALTER", "ALTERNATE", "AND", "ANY",
- "APPLY", "ARE", "AREA", "AREAS", "\"ARGUMENT-NUMBER\"",
- "\"ARGUMENT-VALUE\"", "ARITHMETIC", "AS", "ASCENDING", "ASCII", "ASSIGN",
- "AT", "\"AT END\"", "ATTRIBUTE", "ATTRIBUTES", "AUTHOR", "AUTO",
- "\"AUTO-DECIMAL\"", "\"AUTO-SPIN\"", "AUTOMATIC", "\"AWAY-FROM-ZERO\"",
- "\"B-AND\"", "\"B-NOT\"", "\"B-OR\"", "\"B-XOR\"", "\"B-SHIFT-L\"",
- "\"B-SHIFT-R\"", "\"B-SHIFT-LC\"", "\"B-SHIFT-RC\"",
- "\"BACKGROUND-COLOR\"", "\"BACKGROUND-HIGH\"", "\"BACKGROUND-LOW\"",
- "\"BACKGROUND-STANDARD\"", "BACKWARD", "BAR", "BASED", "BEFORE", "BELL",
- "BINARY", "\"BINARY-C-LONG\"", "\"BINARY-CHAR\"", "\"BINARY-DOUBLE\"",
- "\"BINARY-LONG\"", "\"BINARY-SEQUENTIAL\"", "\"BINARY-SHORT\"", "BIT",
- "BITMAP", "\"BITMAP-END\"", "\"BITMAP-HANDLE\"", "\"BITMAP-NUMBER\"",
- "\"BITMAP-START\"", "\"BITMAP-TIMER\"", "\"BITMAP-TRAILING\"",
- "\"BITMAP-TRANSPARENT-COLOR\"", "\"BITMAP-WIDTH\"", "BLANK", "BLINK",
- "BLOCK", "BOOLEAN", "BOTTOM", "BOX", "BOXED", "\"BULK-ADDITION\"",
- "BUSY", "BUTTONS", "BY", "\"BYTE-LENGTH\"", "C", "\"CALENDAR-FONT\"",
- "CALL", "CANCEL", "\"CANCEL-BUTTON\"", "CAPACITY", "\"CARD-PUNCH\"",
- "\"CARD-READER\"", "CASSETTE", "CCOL", "CD", "CELL", "\"CELL-COLOR\"",
- "\"CELL-DATA\"", "\"CELL-FONT\"", "\"CELL-PROTECTION\"", "CENTER",
- "CENTERED", "\"CENTERED-HEADINGS\"", "\"CENTURY-DATE\"", "CF", "CH",
- "CHAINING", "CHANGED", "CHARACTER", "CHARACTERS", "\"CHECK-BOX\"",
- "CLASS", "CLASSIFICATION", "\"class-name\"", "\"CLEAR-SELECTION\"",
- "CLINE", "CLINES", "CLOSE", "COBOL", "CODE", "\"CODE-SET\"", "COLLATING",
- "COL", "COLOR", "COLORS", "COLS", "COLUMN", "\"COLUMN-COLOR\"",
- "\"COLUMN-DIVIDERS\"", "\"COLUMN-FONT\"", "\"COLUMN-HEADINGS\"",
- "\"COLUMN-PROTECTION\"", "COLUMNS", "\"COMBO-BOX\"", "COMMA",
- "\"COMMAND-LINE\"", "\"comma delimiter\"", "COMMIT", "COMMON",
- "COMMUNICATION", "COMP", "COMPUTE", "\"COMP-0\"", "\"COMP-1\"",
- "\"COMP-2\"", "\"COMP-3\"", "\"COMP-4\"", "\"COMP-5\"", "\"COMP-6\"",
- "\"COMP-N\"", "\"COMP-X\"", "\"FUNCTION CONCATENATE\"", "CONDITION",
- "CONFIGURATION", "CONSTANT", "CONTAINS", "CONTENT",
- "\"FUNCTION CONTENT-LENGTH\"", "\"FUNCTION CONTENT-OF\"", "CONTINUE",
- "CONTROL", "CONTROLS", "CONVERSION", "CONVERTING", "COPY",
- "\"COPY-SELECTION\"", "\"CORE-INDEX\"", "CORRESPONDING", "COUNT", "CRT",
- "\"CRT-UNDER\"", "CSIZE", "CURRENCY", "\"FUNCTION CURRENT-DATE\"",
- "CURSOR", "\"CURSOR-COL\"", "\"CURSOR-COLOR\"", "\"CURSOR-FRAME-WIDTH\"",
- "\"CURSOR-ROW\"", "\"CURSOR-X\"", "\"CURSOR-Y\"",
- "\"CUSTOM-PRINT-TEMPLATE\"", "CYCLE", "\"CYL-INDEX\"",
- "\"CYL-OVERFLOW\"", "DASHED", "DATA", "\"DATA-COLUMNS\"",
- "\"DATA-POINTER\"", "\"DATA-TYPES\"", "DATE", "\"DATE-COMPILED\"",
- "\"DATE-ENTRY\"", "\"DATE-MODIFIED\"", "\"DATE-WRITTEN\"", "DAY",
- "\"DAY-OF-WEEK\"", "DE", "DEBUGGING", "\"DECIMAL-POINT\"",
- "DECLARATIVES", "DEFAULT", "\"DEFAULT-BUTTON\"", "\"DEFAULT-FONT\"",
- "DELETE", "DELIMITED", "DELIMITER", "DEPENDING", "DESCENDING",
- "DESTINATION", "DESTROY", "DETAIL", "DISABLE", "DISC", "DISK", "DISP",
- "DISPLAY", "\"DISPLAY-1\"", "\"DISPLAY-COLUMNS\"", "\"DISPLAY-FORMAT\"",
- "\"FUNCTION DISPLAY-OF\"", "DIVIDE", "DIVIDERS", "\"DIVIDER-COLOR\"",
- "DIVISION", "DOTDASH", "DOTTED", "\"DRAG-COLOR\"", "\"DROP-DOWN\"",
- "\"DROP-LIST\"", "DOWN", "DUPLICATES", "DYNAMIC", "EBCDIC", "EC", "ECHO",
- "EGI", "\"level-number 88\"", "ENABLE", "ELEMENT", "ELSE", "EMI",
- "ENCRYPTION", "ENCODING", "END", "\"END-ACCEPT\"", "\"END-ADD\"",
- "\"END-CALL\"", "\"END-COMPUTE\"", "\"END-COLOR\"", "\"END-DELETE\"",
- "\"END-DISPLAY\"", "\"END-DIVIDE\"", "\"END-EVALUATE\"",
- "\"END FUNCTION\"", "\"END-IF\"", "\"END-JSON\"", "\"END-MODIFY\"",
- "\"END-MULTIPLY\"", "\"END-PERFORM\"", "\"END PROGRAM\"", "\"END-READ\"",
- "\"END-RECEIVE\"", "\"END-RETURN\"", "\"END-REWRITE\"", "\"END-SEARCH\"",
- "\"END-SEND\"", "\"END-START\"", "\"END-STRING\"", "\"END-SUBTRACT\"",
- "\"END-UNSTRING\"", "\"END-WRITE\"", "\"END-XML\"", "ENGRAVED",
- "\"ENSURE-VISIBLE\"", "ENTRY", "\"ENTRY-CONVENTION\"", "\"ENTRY-FIELD\"",
- "\"ENTRY-REASON\"", "ENVIRONMENT", "\"ENVIRONMENT-NAME\"",
- "\"ENVIRONMENT-VALUE\"", "EOL", "EOP", "EOS", "EQUAL", "ERASE", "ERROR",
- "ESCAPE", "\"ESCAPE-BUTTON\"", "ESI", "EVALUATE", "EVENT",
- "\"EVENT-LIST\"", "\"EVENT STATUS\"", "EVERY", "EXAMINE", "EXCEPTION",
- "\"EXCEPTION CONDITION\"", "\"EXCEPTION-VALUE\"", "EXPAND", "EXCLUSIVE",
- "EXHIBIT", "EXIT", "\"exponentiation operator\"", "EXTEND",
- "\"EXTENDED-SEARCH\"", "EXTERNAL", "\"EXTERNAL-FORM\"", "F", "FACTORY",
- "FD", "\"FH--FCD\"", "\"FH--KEYDEF\"", "\"FILE-CONTROL\"", "\"FILE-ID\"",
- "\"FILE-LIMIT\"", "\"FILE-LIMITS\"", "\"FILE-NAME\"", "\"FILE-POS\"",
- "\"FILL-COLOR\"", "\"FILL-COLOR2\"", "\"FILL-PERCENT\"", "FILLER",
- "FINAL", "\"FINISH-REASON\"", "FIRST", "FIXED", "\"FIXED-FONT\"",
- "\"FIXED-WIDTH\"", "FLAT", "\"FLAT-BUTTONS\"", "\"FLOAT-BINARY-128\"",
- "\"FLOAT-BINARY-32\"", "\"FLOAT-BINARY-64\"", "\"FLOAT-DECIMAL-16\"",
- "\"FLOAT-DECIMAL-34\"", "\"FLOAT-DECIMAL-7\"", "\"FLOAT-EXTENDED\"",
- "\"FLOAT-LONG\"", "\"FLOAT-SHORT\"", "FLOATING", "FONT", "FOOTING",
- "FOR", "\"FOREGROUND-COLOR\"", "FOREVER", "FORMAT",
- "\"FUNCTION FORMATTED-DATE\"", "\"FUNCTION FORMATTED-DATETIME\"",
- "\"FUNCTION FORMATTED-TIME\"", "FRAME", "FRAMED", "FREE", "FROM",
- "\"FROM CRT\"", "FULL", "\"FULL-HEIGHT\"", "FUNCTION", "\"FUNCTION-ID\"",
- "\"intrinsic function name\"", "\"FUNCTION-POINTER\"", "GENERATE",
- "GIVING", "GLOBAL", "GO", "\"GO-BACK\"", "\"GO-FORWARD\"", "\"GO-HOME\"",
- "\"GO-SEARCH\"", "GOBACK", "GRAPHICAL", "GREATER",
- "\"GREATER OR EQUAL\"", "GRID", "GROUP", "\"GROUP-VALUE\"", "HANDLE",
- "\"HAS-CHILDREN\"", "HEADING", "\"HEADING-COLOR\"",
- "\"HEADING-DIVIDER-COLOR\"", "\"HEADING-FONT\"", "HEAVY",
- "\"HEIGHT-IN-CELLS\"", "\"HIDDEN-DATA\"", "HIGHLIGHT", "\"HIGH-COLOR\"",
- "\"HIGH-VALUE\"", "\"HOT-TRACK\"", "HSCROLL", "\"HSCROLL-POS\"", "ICON",
- "ID", "IDENTIFIED", "IDENTIFICATION", "IF", "IGNORE", "IGNORING", "IN",
- "INDEPENDENT", "INDEX", "INDEXED", "INDICATE", "INITIALIZE",
- "INITIALIZED", "INITIATE", "INPUT", "\"INPUT-OUTPUT\"", "INQUIRE",
- "\"INSERTION-INDEX\"", "\"INSERT-ROWS\"", "INSPECT", "INSTALLATION",
- "INTERMEDIATE", "INTO", "INTRINSIC", "INVALID", "\"INVALID KEY\"", "IS",
- "ITEM", "\"ITEM-TEXT\"", "\"ITEM-TO_ADD\"", "\"ITEM-TO_DELETE\"",
- "\"ITEM-TO_EMPTY\"", "\"ITEM-VALUE\"", "\"I-O\"", "\"I-O-CONTROL\"",
- "JSON", "JUSTIFIED", "KEPT", "KEY", "KEYBOARD", "LABEL",
- "\"LABEL-OFFSET\"", "\"LARGE-FONT\"", "\"LARGE-OFFSET\"", "LAST",
- "\"LAST-ROW\"", "\"LAYOUT-DATA\"", "\"LAYOUT-MANAGER\"", "LEADING",
- "\"LEADING-SHIFT\"", "LEAVE", "LEFT", "LEFTLINE", "\"LEFT-TEXT\"",
- "LENGTH", "\"LENGTH OF\"", "\"FUNCTION LENGTH/BYTE-LENGTH\"", "LESS",
- "\"LESS OR EQUAL\"", "\"level-number\"", "LIKE", "LIMIT", "LIMITS",
- "LINAGE", "\"LINAGE-COUNTER\"", "LINE", "\"LINE-COUNTER\"",
- "\"LINE LIMIT\"", "\"LINE-SEQUENTIAL\"", "LINES", "\"LINES-AT-ROOT\"",
- "LINKAGE", "\"LIST-BOX\"", "\"Literal\"", "\"LM-RESIZE\"", "LOC",
- "LOCALE", "\"FUNCTION LOCALE-DATE\"", "\"FUNCTION LOCALE-TIME\"",
- "\"FUNCTION LOCALE-TIME-FROM-SECONDS\"", "\"LOCAL-STORAGE\"", "LOCK",
- "\"LOCK-HOLDING\"", "\"LONG-DATE\"", "LOWER", "LOWERED",
- "\"FUNCTION LOWER-CASE\"", "LOWLIGHT", "\"LOW-COLOR\"", "\"LOW-VALUE\"",
- "\"MAGNETIC-TAPE\"", "MANUAL", "\"MASS-UPDATE\"", "\"MASTER-INDEX\"",
- "\"MAX-LINES\"", "\"MAX-PROGRESS\"", "\"MAX-TEXT\"", "\"MAX-VAL\"",
- "MEMORY", "\"MEDIUM-FONT\"", "MENU", "MERGE", "MESSAGE",
- "\"MICROSECOND-TIME\"", "MINUS", "\"MIN-VAL\"", "\"Mnemonic name\"",
- "MODE", "MODIFY", "MODULES", "MOVE", "MULTILINE", "MULTIPLE", "MULTIPLY",
- "NAME", "NAMED", "NAMESPACE", "\"NAMESPACE-PREFIX\"", "NATIONAL",
- "\"NATIONAL-EDITED\"", "\"FUNCTION NATIONAL-OF\"", "NATIVE",
- "\"NAVIGATE-URL\"", "\"NEAREST-AWAY-FROM-ZERO\"", "\"NEAREST-EVEN\"",
- "\"NEAREST-TOWARD-ZERO\"", "NEGATIVE", "NESTED", "NEW", "NEXT",
- "\"NEXT-ITEM\"", "\"NEXT GROUP\"", "\"NEXT PAGE\"", "NO",
- "\"NO ADVANCING\"", "\"NO-AUTOSEL\"", "\"NO-AUTO-DEFAULT\"",
- "\"NO-BOX\"", "\"NO DATA\"", "\"NO-DIVIDERS\"", "\"NO-ECHO\"",
- "\"NO-F4\"", "\"NO-FOCUS\"", "\"NO-GROUP-TAB\"", "\"NO-KEY-LETTER\"",
- "\"NO-SEARCH\"", "\"NO-UPDOWN\"", "NOMINAL", "NONE", "NONNUMERIC",
- "NORMAL", "NOT", "NOTAB", "NOTHING", "NOTIFY", "\"NOTIFY-CHANGE\"",
- "\"NOTIFY-DBLCLICK\"", "\"NOTIFY-SELCHANGE\"", "\"NOT AT END\"",
- "\"NOT AT EOP\"", "\"NOT ON ESCAPE\"", "\"NOT EQUAL\"",
- "\"NOT ON EXCEPTION\"", "\"NOT INVALID KEY\"", "\"NOT ON OVERFLOW\"",
- "\"NOT SIZE ERROR\"", "\"NUM-COL-HEADINGS\"", "\"NUM-ROWS\"", "NUMBER",
- "NUMBERS", "NUMERIC", "\"NUMERIC-EDITED\"", "\"FUNCTION NUMVAL-C\"",
- "OBJECT", "\"OBJECT-COMPUTER\"", "OCCURS", "OF", "OFF", "\"OK-BUTTON\"",
- "OMITTED", "ON", "ONLY", "\"ON ESCAPE\"", "\"ON EXCEPTION\"", "OPEN",
- "OPTIONAL", "OPTIONS", "OR", "ORDER", "ORGANIZATION", "OTHER", "OTHERS",
- "OUTPUT", "\"OVERLAP-LEFT\"", "\"OVERLAP-TOP\"", "OVERLINE",
- "\"PACKED-DECIMAL\"", "PADDING", "PASCAL", "PAGE", "\"PAGE-COUNTER\"",
- "\"PAGE-SETUP\"", "PAGED", "PARAGRAPH", "PARENT", "PARSE", "PASSWORD",
- "PERFORM", "PERMANENT", "PH", "PF", "PHYSICAL", "PICTURE",
- "\"PICTURE SYMBOL\"", "PIXEL", "PLACEMENT", "PLUS", "POINTER",
- "\"POP-UP\"", "POS", "POSITION", "\"POSITION-SHIFT\"", "POSITIVE",
- "PRESENT", "PREVIOUS", "PRINT", "\"PRINT-CONTROL\"",
- "\"PRINT-NO-PROMPT\"", "\"PRINT-PREVIEW\"", "PRINTER", "\"PRINTER-1\"",
- "PRINTING", "PRIORITY", "PROCEDURE", "PROCEDURES", "PROCEED",
- "PROCESSING", "PROGRAM", "\"PROGRAM-ID\"", "\"program name\"",
- "\"PROGRAM-POINTER\"", "PROGRESS", "PROHIBITED", "PROMPT", "PROPERTIES",
- "PROPERTY", "PROTECTED", "PROTOTYPE", "PURGE", "\"PUSH-BUTTON\"",
- "\"QUERY-INDEX\"", "QUEUE", "QUOTE", "\"RADIO-BUTTON\"", "RAISE",
- "RAISED", "RAISING", "RANDOM", "RD", "READ", "READERS", "\"READ-ONLY\"",
- "\"READY TRACE\"", "RECEIVE", "RECEIVED", "RECORD", "\"RECORD-DATA\"",
- "\"RECORD-OVERFLOW\"", "\"RECORD-TO-ADD\"", "\"RECORD-TO-DELETE\"",
- "RECORDING", "RECORDS", "RECURSIVE", "REDEFINES", "REEL", "REFERENCE",
- "REFERENCES", "REFRESH", "\"REGION-COLOR\"", "RELATION", "RELATIVE",
- "RELEASE", "REMAINDER", "REMARKS", "REMOVAL", "RENAMES",
- "\"REORG-CRITERIA\"", "REPEATED", "REPLACE", "REPLACING", "REPORT",
- "REPORTING", "REPORTS", "REPOSITORY", "REQUIRED", "REREAD", "RERUN",
- "RESERVE", "RESET", "\"RESET TRACE\"", "\"RESET-GRID\"",
- "\"RESET-LIST\"", "\"RESET-TABS\"", "RETRY", "RETURN", "RETURNING",
- "REVERSE", "\"FUNCTION REVERSE\"", "\"REVERSE-VIDEO\"", "REVERSED",
- "REWIND", "REWRITE", "RF", "RH", "RIGHT", "\"RIGHT-ALIGN\"", "RIGHTLINE",
- "RIMMED", "ROLLBACK", "ROUNDED", "ROUNDING", "\"ROW-COLOR\"",
- "\"ROW-COLOR-PATTERN\"", "\"ROW-DIVIDERS\"", "\"ROW-FONT\"",
- "\"ROW-HEADINGS\"", "\"ROW-PROTECTION\"", "RUN", "S", "SAME",
- "\"SAVE-AS\"", "\"SAVE-AS-NO-PROMPT\"", "SCREEN", "\"SCREEN CONTROL\"",
- "SCROLL", "\"SCROLL-BAR\"", "SD", "SEARCH", "\"SEARCH-OPTIONS\"",
- "\"SEARCH-TEXT\"", "SECONDS", "SECTION", "SECURE", "SECURITY", "SEGMENT",
- "\"SEGMENT-LIMIT\"", "SELECT", "\"SELECTION-INDEX\"",
- "\"SELECTION-TEXT\"", "\"SELECTION-ALL\"", "\"SELF-ACT\"",
- "\"semi-colon\"", "SEND", "SENTENCE", "SEPARATE", "SEPARATION",
- "SEQUENCE", "SEQUENTIAL", "SET", "\"level-number 78\"", "SHADING",
- "SHADOW", "SHARING", "\"SHORT-DATE\"", "\"SHOW-LINES\"", "\"SHOW-NONE\"",
- "\"SHOW-SEL-ALWAYS\"", "SIGN", "SIGNED", "\"SIGNED-INT\"",
- "\"SIGNED-LONG\"", "\"SIGNED-SHORT\"", "\"level-number 66\"", "SIZE",
- "\"SIZE ERROR\"", "\"SMALL-FONT\"", "SORT", "\"SORT-MERGE\"",
- "\"SORT-ORDER\"", "SOURCE", "\"SOURCE-COMPUTER\"", "SPACE",
- "\"SPECIAL-NAMES\"", "SPINNER", "SQUARE", "STANDARD", "\"STANDARD-1\"",
- "\"STANDARD-2\"", "\"STANDARD-BINARY\"", "\"STANDARD-DECIMAL\"", "START",
- "\"START-X\"", "\"START-Y\"", "STATIC", "\"STATIC-LIST\"", "STATUS",
- "\"STATUS-BAR\"", "\"STATUS-TEXT\"", "STDCALL", "STEP", "STOP", "STRING",
- "STRONG", "STYLE", "\"SUB-QUEUE-1\"", "\"SUB-QUEUE-2\"",
- "\"SUB-QUEUE-3\"", "\"FUNCTION SUBSTITUTE\"",
- "\"FUNCTION SUBSTITUTE-CASE\"", "SUBTRACT", "SUBWINDOW", "SUM",
- "SUPPRESS", "\"SUPPRESS\"", "SYMBOLIC", "SYNCHRONIZED",
- "\"SYSTEM-DEFAULT\"", "\"SYSTEM-INFO\"", "\"SYSTEM-OFFSET\"", "TAB",
- "\"TAB-TO-ADD\"", "\"TAB-TO-DELETE\"", "TABLE", "TALLYING", "TEMPORARY",
- "TAPE", "TERMINAL", "TERMINATE", "\"TERMINAL-INFO\"",
- "\"TERMINATION-VALUE\"", "TEST", "TEXT", "THAN", "THEN", "THREAD",
- "THREADS", "THRU", "\"THUMB-POSITION\"", "\"TILED-HEADINGS\"", "TIME",
- "\"TIME-OUT\"", "TIMES", "TITLE", "\"TITLE-POSITION\"", "TO", "\"&\"",
- "\")\"", "\":\"", "\"/\"", "\".\"", "\"=\"", "\"EXTERN\"", "\"FALSE\"",
- "\"FILE\"", "\">\"", "\"INITIAL\"", "\"<\"", "\"-\"", "\"*\"",
- "\"NULL\"", "\"OVERFLOW\"", "\"(\"", "\"+\"", "\"TRUE\"", "TOP",
- "\"TOWARD-GREATER\"", "\"TOWARD-LESSER\"", "TRACK", "TRACKS",
- "\"TRACK-AREA\"", "\"TRACK-LIMIT\"", "\"TRADITIONAL-FONT\"", "TRAILING",
- "\"TRAILING-SHIFT\"", "TRANSFORM", "TRANSPARENT", "\"TREE-VIEW\"",
- "\"FUNCTION TRIM\"", "TRUNCATION", "TYPE", "TYPEDEF", "U", "\"UCS-4\"",
- "UNBOUNDED", "UNDERLINE", "UNFRAMED", "UNIT", "UNLOCK", "UNSIGNED",
- "\"UNSIGNED-INT\"", "\"UNSIGNED-LONG\"", "\"UNSIGNED-SHORT\"",
- "UNSORTED", "UNSTRING", "UNTIL", "UP", "UPDATE", "UPDATERS", "UPON",
- "\"UPON ARGUMENT-NUMBER\"", "\"UPON COMMAND-LINE\"",
- "\"UPON ENVIRONMENT-NAME\"", "\"UPON ENVIRONMENT-VALUE\"", "UPPER",
- "\"FUNCTION UPPER-CASE\"", "USAGE", "USE", "\"USE-ALT\"",
- "\"USE-RETURN\"", "\"USE-TAB\"", "USER", "\"USER-DEFAULT\"",
- "\"user function name\"", "USING", "\"UTF-8\"", "\"UTF-16\"", "V",
- "VALID", "VALIDATE", "\"VAL-STATUS\"", "\"VALIDATE-STATUS\"",
- "VALIDATING", "VALUE", "\"VALUE-FORMAT\"", "VALUES", "VARIABLE",
- "VARIANT", "VARYING", "VERTICAL", "\"VERY-HEAVY\"", "\"VIRTUAL-WIDTH\"",
- "VOLATILE", "VPADDING", "VSCROLL", "\"VSCROLL-BAR\"", "\"VSCROLL-POS\"",
- "VTOP", "WAIT", "\"WEB-BROWSER\"", "WHEN", "\"FUNCTION WHEN-COMPILED\"",
- "\"WHEN\"", "WIDTH", "\"WIDTH-IN-CELLS\"", "WINAPI", "WINDOW", "WITH",
- "\"Identifier\"", "WORDS", "\"WORKING-STORAGE\"", "WRAP", "WRITE",
- "\"WRITE-ONLY\"", "\"WRITE-VERIFY\"", "WRITERS", "X", "XML",
- "\"XML-DECLARATION\"", "\"XML-SCHEMA\"", "Y", "YYYYDDD", "YYYYMMDD",
- "ZERO", "\"level-number (Area A)\"", "\"Identifier (Area A)\"",
- "SHIFT_PREFER", "$accept", "start", "$@1", "compilation_group",
- "nested_list", "$@2", "source_element_list", "source_element",
- "simple_prog", "$@3", "program_definition", "function_definition",
- "_end_program_list", "end_program_list", "end_program", "$@4",
- "end_function", "$@5", "program_prototype", "$@6", "$@7",
- "function_prototype", "$@8", "$@9",
- "_prototype_procedure_division_header", "$@10", "control",
- "_control_division", "$@11", "_default_section", "$@12",
- "_default_clauses", "_default_accept_clause", "$@13",
- "_default_display_clause", "$@14", "_program_body", "$@15", "$@16",
- "_identification_header", "identification_header", "$@17",
- "identification_or_id", "program_id_header", "program_id_paragraph",
- "function_id_header", "function_id_paragraph", "program_id_name",
- "end_program_name", "_as_literal", "_program_type",
- "program_type_clause", "init_or_recurse_and_common", "init_or_recurse",
- "_options_paragraph", "_options_clauses", "_arithmetic_clause",
- "arithmetic_choice", "_default_rounded_clause",
- "_entry_convention_clause", "convention_type",
- "_intermediate_rounding_clause", "intermediate_rounding_choice",
- "_environment_division", "_environment_header", "environment",
- "environment_header", "_configuration_section", "_configuration_header",
- "configuration", "configuration_header", "_configuration_paragraphs",
- "configuration_paragraphs", "configuration_paragraph",
- "_source_computer_paragraph", "source_computer_paragraph", "$@18",
- "_source_computer_entry", "_with_debugging_mode",
- "object_computer_paragraph", "$@19", "_object_computer_entry",
- "object_clauses_list", "object_clauses", "object_computer_memory",
- "object_computer_sequence", "program_collating_sequence",
- "program_coll_sequence_values", "object_computer_segment",
- "object_computer_class", "locale_class", "computer_words",
- "_repository_paragraph", "repository_paragraph", "$@20",
- "_repository_entry", "repository_list", "repository_name",
- "repository_name_list", "special_names_header", "special_names_sentence",
- "special_name_list", "special_name", "mnemonic_name_clause", "$@21",
- "word_or_terminal", "mnemonic_choices", "_special_name_mnemonic_on_off",
- "on_off_clauses", "on_off_clauses_1", "alphabet_name_clause", "@22",
- "alphabet_definition", "@23", "@24", "alphabet_target_alphanumeric",
- "alphabet_target_national", "alphabet_type_alphanumeric",
- "alphabet_type_national", "alphabet_type_common",
- "alphabet_literal_list", "alphabet_literal", "@25",
- "alphabet_also_sequence", "alphabet_lits", "space_or_zero",
- "_alphnat_target", "_in_alphabet", "symbolic_characters_clause",
- "symbolic_collection", "symbolic_chars_list", "symbolic_chars_phrase",
- "char_list", "integer_list", "symbolic_constant_clause",
- "symbolic_constant_list", "symbolic_constant", "class_name_clause",
- "class_item_list", "class_item", "locale_clause", "xml_schema_clause",
- "@26", "schema_definition", "currency_sign_clause", "_with_pic_symbol",
- "decimal_point_clause", "numeric_sign_clause", "cursor_clause",
- "crt_status_clause", "screen_control", "event_status", "top_clause",
- "$@27", "_input_output_section", "input_output", "_input_output_header",
- "_file_control_header", "_file_control_sequence", "file_control_entry",
- "$@28", "$@29", "_select_clauses_or_error", "_select_clause_sequence",
- "select_clause", "assign_clause", "_assign_device_or_line_adv_file",
- "assign_device", "general_device_name", "line_seq_device_name",
- "line_adv_file", "_ext_clause", "ext_clause", "assignment_name",
- "access_mode_clause", "access_mode", "alternate_record_key_clause",
- "_password_clause", "password_clause", "$@30", "encryption_clause",
- "_suppress_clause", "collating_sequence_clause", "collating_sequence",
- "coll_sequence_values", "collating_sequence_clause_key", "alphabet_name",
- "file_status_clause", "_file_or_sort", "lock_mode_clause", "$@31",
- "lock_mode", "_lock_with", "_with_rollback", "with_rollback",
- "_with_mass_update", "organization_clause", "organization",
- "padding_character_clause", "record_delimiter_clause", "$@32",
- "record_delimiter_option", "record_key_clause", "_split_keys",
- "source_is", "split_key_list", "$@33", "split_key",
- "relative_key_clause", "reserve_clause", "no_or_integer",
- "sharing_clause", "sharing_option", "file_limit_clause", "thru_list",
- "actual_key_clause", "nominal_key_clause", "track_area_clause",
- "track_limit_clause", "_i_o_control", "i_o_control_header",
- "_i_o_control_entries", "i_o_control_list", "i_o_control_clause",
- "same_clause", "_same_option", "apply_clause",
- "obsolete_dos_vs_apply_phrase", "multiple_file_tape_clause", "$@34",
- "multiple_file_list", "multiple_file", "_multiple_file_position",
- "rerun_clause", "_on_assignment", "rerun_event",
- "_prototype_environment_division", "_prototype_special_names_paragraph",
- "_prototype_special_names_sentence_list",
- "prototype_special_names_sentence_list", "prototype_special_name_list",
- "prototype_special_name", "_data_division", "$@35",
- "_data_division_header", "data", "data_division_header", "tok_file",
- "_file_section_header", "_file_description_sequence", "file_description",
- "file_description_entry", "$@36", "file_type",
- "_file_description_clause_sequence", "file_description_clause",
- "block_contains_clause", "_records_or_characters", "record_clause",
- "_record_depending", "_from_integer", "_to_integer",
- "label_records_clause", "value_of_clause", "file_id", "valueof_name",
- "data_records_clause", "linage_clause", "_linage_sequence",
- "linage_lines", "linage_footing", "linage_top", "linage_bottom",
- "recording_mode_clause", "recording_mode", "u_or_s", "code_set_clause",
- "_for_sub_records_clause", "report_clause", "report_keyword",
- "rep_name_list", "communication", "_communication_section", "$@37",
- "_communication_description_sequence", "communication_description", "cd",
- "communication_description_entry", "$@38",
- "_communication_description_clause_sequence",
- "communication_description_clause", "_input_cd_clauses",
- "named_input_cd_clauses", "named_input_cd_clause",
- "unnamed_input_cd_clauses", "_output_cd_clauses", "output_cd_clauses",
- "output_cd_clause", "_i_o_cd_clauses", "named_i_o_cd_clauses",
- "named_i_o_cd_clause", "unnamed_i_o_cd_clauses", "working_storage",
- "_working_storage_section", "$@39", "_record_description_list", "$@40",
- "record_description_list", "data_description", "$@41", "level_number",
- "_filler", "_entry_name", "user_entry_name", "_const_global",
- "lit_or_length", "con_source", "fp32_usage", "fp64_usage", "fp128_usage",
- "pointer_len", "renames_entry", "_renames_thru", "condition_name_entry",
- "$@42", "_user_entry_name", "constant_entry", "$@43", "constant_source",
- "constant_78_source", "constant_expression_list", "constant_expression",
- "_data_description_clause_sequence", "data_description_clause_sequence",
- "data_description_clause", "redefines_clause", "like_clause",
- "_length_modifier", "length_modifier", "same_as_clause",
- "typedef_clause", "_strong", "external_clause", "_as_extname",
- "_global_clause", "global_clause", "special_names_clause", "$@44",
- "special_names_target", "select_when_clause", "$@45", "when_choice",
- "format_clause", "format_choice", "volatile_clause", "picture_clause",
- "$@46", "_pic_locale_format_or_depending_on_or_byte_length",
- "_is_locale_name", "locale_name", "type_to_clause", "usage_clause",
- "usage_clause_screen_report", "_usage_is", "usage_screen_report",
- "usage", "_to_program_type", "_to_type_name", "conflict_usage",
- "_object_reference_type", "_factory_of", "_only", "double_usage",
- "long_double", "_font_name", "_layout_name", "sign_clause",
- "byte_length_clause", "report_occurs_clause", "report_occurs_step",
- "occurs_clause", "_occurs_from_integer", "_occurs_to_integer",
- "_occurs_integer_to", "_occurs_depending", "_capacity_in",
- "_occurs_initialized", "_occurs_keys_and_indexed", "$@47", "occurs_keys",
- "occurs_key_list", "occurs_key_field", "ascending_or_descending",
- "_occurs_indexed", "occurs_indexed", "occurs_index_list", "occurs_index",
- "justified_clause", "synchronized_clause", "_left_or_right",
- "blank_clause", "based_clause", "value_clause", "value_table_item_list",
- "value_table_item", "value_from_subscripts_is_are", "from_subscripts",
- "_to_subscripts", "from_to_subscripts", "_repeated_phrase",
- "repeated_phrase", "subscripts", "value_is_are", "value_item_list",
- "value_item", "value_clause_report", "value_clause_condition", "$@48",
- "value_item_list_in_alphabet", "value_item_condition_list",
- "value_item_condition", "_false_or_content_validation", "false_is",
- "content_validation", "valid_or_invalid", "_when_condition",
- "validate_status_clause", "when_error_choice", "_on_choice",
- "default_clause", "x_or_none", "class_clause", "class_option",
- "destination_clause", "present_when_clause", "invalid_when_clause",
- "any_length_clause", "external_form_clause", "identified_by_clause",
- "local_storage", "_local_storage_section", "$@49", "linkage",
- "_linkage_section", "$@50", "_report_section", "$@51", "$@52",
- "_report_description_sequence", "report_description", "$@53", "$@54",
- "_report_description_options", "report_description_option",
- "control_clause", "control_field_list", "control_final_tag",
- "control_identifier_list", "control_identifier", "page_limit_clause",
- "page_line_column", "page_limit_cols", "integer_or_zero_or_ident",
- "_page_heading_list", "page_detail", "heading_clause", "first_detail",
- "last_heading", "last_detail", "footing_clause",
- "_report_group_description_list", "report_group_description_entry",
- "$@55", "_report_group_options", "report_group_option", "type_is_clause",
- "type_option", "_control_heading_final", "_or_page",
- "_control_footing_final", "next_group_clause", "next_group_plus",
- "next_page", "sum_clause_list", "_reset_clause", "data_or_final",
- "present_when_condition", "present_absent", "_page_or_id", "page_or_ids",
- "data_varying_clause", "data_varying_list", "data_varying", "_var_from",
- "_var_by", "line_clause", "line_keyword_clause", "_line_clause_options",
- "line_clause_option", "column_clause", "col_keyword_clause",
- "_orientation", "_left_right_center", "col_or_plus",
- "column_integer_list", "column_integer", "source_clause",
- "group_indicate_clause", "_screen_section", "$@56", "$@57",
- "_screen_description_list", "screen_description_list",
- "screen_description", "$@58", "$@59", "$@60", "_screen_options",
- "screen_option", "screen_value_clause", "_value_is",
- "control_definition", "control_type_name", "control_type",
- "control_item", "_control_attributes", "control_attributes",
- "control_attribute", "control_style", "control_property",
- "control_style_name", "control_property_name",
- "control_style_name_generic", "control_property_name_generic",
- "control_style_name_label", "control_property_name_label",
- "control_style_name_entry_field", "control_property_name_entry_field",
- "control_style_name_push_button", "control_property_name_push_button",
- "control_style_name_check_box", "control_property_name_radio_button",
- "control_style_name_list_box", "control_property_name_list_box",
- "control_style_name_combo_box", "control_style_name_frame",
- "control_property_name_frame", "control_style_name_tab_control",
- "control_property_name_tab_control", "control_style_name_bar",
- "control_property_name_bar", "control_property_name_bitmap",
- "control_style_name_grid", "control_property_name_grid",
- "control_style_name_tree_view", "control_property_name_tree_view",
- "control_property_name_web_browser", "control_style_name_activex",
- "control_property_name_activex", "control_style_name_date_entry",
- "control_property_name_date_entry", "control_style_type",
- "control_property_type", "changeable_control_properties",
- "changeable_control_property", "changeable_window_properties",
- "changeable_window_property", "eol", "eos", "_plus", "plus",
- "plus_tokens", "minus", "minus_tokens", "control_size",
- "control_size_unit", "_cell", "screen_line_number",
- "_screen_line_plus_minus", "screen_col_number", "_screen_col_plus_minus",
- "screen_occurs_clause", "screen_global_clause",
- "_prototype_data_division", "_procedure_division", "procedure_division",
- "$@61", "$@62", "$@63", "$@64", "_procedure_using_chaining", "$@65",
- "$@66", "procedure_param_list", "procedure_param", "_procedure_type",
- "_size_optional", "using_size_clause", "size_is_integer", "_acu_size",
- "_procedure_optional", "_procedure_returning", "_procedure_declaratives",
- "$@67", "$@68", "$@69", "_procedure_list", "procedure", "$@70",
- "proc_name", "section_header", "$@71", "_use_statement",
- "paragraph_header", "invalid_statement", "_segment", "statement_list",
- "@72", "@73", "statements", "$@74", "statement", "$@75",
- "accept_statement", "$@76", "accept_body", "$@77", "$@78",
- "accp_identifier", "field_with_pos_specifier", "$@79", "_pos_specifier",
- "pos_specifier", "pos_specifier_value", "identifier_or_numeric_literal",
- "_accept_clauses", "accept_clauses", "accept_clause",
- "accept_from_screen_clauses", "accept_from_screen_clause",
- "lines_or_number", "at_line_column", "@80", "@81", "line_number",
- "column_number", "mode_is_block", "accp_attr", "_key_dest", "key_dest",
- "no_echo", "reverse_video", "update_default", "_end_accept",
- "add_statement", "$@82", "add_body", "_add_to", "_end_add",
- "allocate_statement", "$@83", "allocate_body", "_loc",
- "_allocate_returning", "alter_statement", "$@84", "alter_body",
- "alter_entry", "_proceed_to", "call_statement", "$@85", "call_body",
- "$@86", "_conv_linkage", "@87", "conv_linkage_option", "_mnemonic_conv",
- "mnemonic_conv", "program_or_prototype", "_id_or_lit_or_func_as",
- "nested_or_prototype", "call_using", "$@88", "call_param_list",
- "call_param", "_call_type", "call_returning", "return_give",
- "null_or_omitted", "call_exception_phrases", "_call_on_exception",
- "call_on_exception", "_call_not_on_exception", "call_not_on_exception",
- "_end_call", "cancel_statement", "$@89", "cancel_body", "cancel_list",
- "id_or_lit_or_program_name", "close_statement", "$@90", "close_body",
- "close_files", "_close_option", "close_window", "$@91",
- "_close_display_option", "compute_statement", "$@92", "compute_body",
- "_end_compute", "commit_statement", "continue_statement", "@93",
- "_continue_after_phrase", "$@94", "destroy_statement", "$@95",
- "destroy_body", "delete_statement", "$@96", "delete_body",
- "delete_file_list", "_end_delete", "disable_statement", "$@97",
- "enable_disable_handling", "_enable_disable_key", "communication_mode",
- "display_statement", "$@98", "display_body", "screen_or_device_display",
- "display_list", "display_atom", "$@99", "disp_list",
- "_with_display_attr", "display_attrs", "display_clauses",
- "display_clause", "_display_upon", "display_upon", "crt_under",
- "display_erase", "$@100", "display_pos_specifier",
- "field_or_literal_or_erase_with_pos_specifier", "$@101",
- "field_or_literal_or_erase_list", "field_or_literal_or_erase",
- "display_message_box", "$@102", "_display_message_clauses",
- "display_message_clauses", "display_message_clause", "display_window",
- "$@103", "$@104", "sub_or_window", "display_floating_window", "$@105",
- "$@106", "display_initial_window", "$@107", "initial_type", "_graphical",
- "_upon_window_handle", "window_handle", "display_window_clauses",
- "display_window_clause", "shadow", "boxed", "_top_or_bottom",
- "_left_or_centered_or_right", "no_scroll_wrap", "pop_up_or_handle",
- "pop_up_area", "handle_is_in", "disp_attr", "control_source",
- "_end_display", "divide_statement", "$@108", "divide_body",
- "_end_divide", "enable_statement", "$@109", "entry", "entry_statement",
- "$@110", "$@111", "entry_body", "evaluate_statement", "$@112",
- "evaluate_body", "evaluate_subject_list", "evaluate_subject",
- "evaluate_condition_list", "evaluate_case_list", "end_evaluate",
- "evaluate_case", "when_other", "evaluate_other", "when",
- "evaluate_when_list", "evaluate_object_list", "evaluate_object",
- "_evaluate_thru_expr", "_end_evaluate", "exhibit_statement", "$@113",
- "exhibit_body", "$@114", "_changed", "_named", "_erase",
- "exhibit_target_list", "exhibit_target", "exit_statement", "$@115",
- "exit_body", "goback_exit_body", "free_statement", "$@116", "free_body",
- "generate_statement", "$@117", "generate_body", "goto_statement",
- "$@118", "go_body", "_goto_depending", "goback_statement", "$@119",
- "if_statement", "$@120", "else", "if_else_statements", "_if_then",
- "if_true", "if_false", "_end_if", "initialize_statement", "$@121",
- "initialize_body", "_initialize_filler", "_initialize_value",
- "_initialize_replacing", "initialize_replacing_list",
- "initialize_replacing_item", "initialize_category",
- "_initialize_default", "initiate_statement", "$@122", "initiate_body",
- "inquire_statement", "$@123", "inquire_body", "inspect_statement",
- "$@124", "inspect_body", "_backward", "send_identifier",
- "inspect_format_variant", "examine_statement", "$@125",
- "examine_format_variant", "$@126", "examine_tallying_keyword",
- "examine_replacing_keyword", "_examine_tallying_replacing",
- "single_character_value", "inspect_tallying", "$@127",
- "inspect_replacing", "inspect_converting", "tallying_list",
- "tallying_item", "replacing_list", "replacing_item", "rep_keyword",
- "replacing_region", "inspect_region", "inspect_before", "inspect_after",
- "json", "json_generate_statement", "$@128", "json_generate_body",
- "$@129", "$@130", "_json_suppress", "json_suppress_list",
- "json_suppress_entry", "_end_json", "json_parse_statement", "$@131",
- "json_parse_body", "_with_detail", "merge_statement", "$@132",
- "modify_statement", "$@133", "modify_body", "_end_modify",
- "move_statement", "$@134", "move_body", "multiply_statement", "$@135",
- "multiply_body", "_end_multiply", "open_statement", "$@136", "open_body",
- "open_file_entry", "_open_exclusive", "open_mode", "_open_sharing",
- "_open_option", "lock_allowing", "open_lock_option", "allowing_option",
- "allowing_all", "open_option_sequential", "osvs_input_mode",
- "perform_statement", "$@137", "perform_body", "$@138", "$@139",
- "_end_perform", "end_perform_or_dot", "perform_procedure",
- "_perform_option", "perform_test", "cond_or_exit",
- "perform_varying_list", "perform_varying", "_by_phrase",
- "purge_statement", "$@140", "raise_statement", "$@141", "raise_body",
- "exception_name", "read_statement", "$@142", "read_body", "_read_into",
- "_lock_phrases", "ignoring_lock", "advancing_lock_or_retry",
- "_retry_phrase", "retry_phrase", "retry_options", "_extended_with_lock",
- "extended_with_lock", "_read_key", "read_handler", "_end_read",
- "ready_statement", "receive_statement", "$@143", "receive_body",
- "message_or_segment", "_data_sentence_phrases", "_no_data_sentence",
- "no_data_sentence", "_with_data_sentence", "with_data_sentence",
- "_end_receive", "release_statement", "$@144", "release_body",
- "reset_statement", "return_statement", "$@145", "return_body",
- "_end_return", "rewrite_statement", "$@146", "rewrite_body",
- "_with_lock", "with_lock", "_end_rewrite", "rollback_statement",
- "search", "search_statement", "$@147", "$@148", "search_body",
- "search_all_body", "_search_varying", "_search_at_end", "end_pos_token",
- "search_whens", "search_when", "_end_search", "end_search_pos_token",
- "send_statement", "$@149", "send_body", "send_body_mcs",
- "message_tag_data_item", "_from_identifier", "from_identifier",
- "send_body_cd", "with_indicator", "_replacing_line", "set_statement",
- "$@150", "set_body", "on_or_off", "up_or_down", "set_environment",
- "set_attr", "set_attr_clause", "set_attr_one", "set_to", "set_up_down",
- "set_to_on_off_sequence", "set_to_on_off", "set_to_true_false_sequence",
- "set_to_true_false", "set_last_exception_to_off", "set_thread_priority",
- "sort_statement", "$@151", "sort_merge_body", "@152", "_sort_key_list",
- "_key_sort_list", "_sort_duplicates", "_sort_collating", "sort_input",
- "sort_output", "start_statement", "$@153", "start_body",
- "_sizelen_clause", "_start_key", "start_op", "not_equal_op",
- "_end_start", "stop", "stop_statement", "$@154", "stop_returning",
- "_status_x", "stop_argument", "stop_literal", "string_statement",
- "$@155", "string_body", "string_items", "$@156", "string_item_list",
- "string_item", "_string_delimited", "string_delimiter", "_with_pointer",
- "_end_string", "subtract_statement", "$@157", "subtract_body",
- "_end_subtract", "suppress_statement", "$@158", "_printing",
- "terminate_statement", "$@159", "terminate_body", "transform_statement",
- "$@160", "transform_body", "unlock_statement", "$@161", "unlock_body",
- "unstring_statement", "$@162", "unstring_body", "_unstring_delimited",
- "unstring_delimited_list", "unstring_delimited_item", "unstring_into",
- "unstring_into_item", "_unstring_into_delimiter", "_unstring_tallying",
- "_end_unstring", "validate_statement", "$@163", "validate_fields",
- "use_statement", "$@164", "use_phrase", "use_file_exception",
- "_use_global", "use_file_exception_target", "use_for_debugging",
- "debugging_list", "debugging_target", "_all_refs", "use_at_start_end",
- "program_start_end", "use_before_reporting", "use_after_exception",
- "use_exception_list", "use_exception", "use_ex_keyw", "write_statement",
- "$@165", "write_body", "from_option", "write_option", "before_or_after",
- "write_handler", "_end_write", "xml", "xml_generate_statement", "$@166",
- "xml_generate_body", "$@167", "$@168",
- "_with_encoding_xml_dec_and_attrs", "with_encoding_xml_dec_and_attrs",
- "with_encoding_xml_dec_and_attr", "encoding_xml_dec_and_attr",
- "_xml_gen_namespace", "_xml_gen_namespace_prefix", "_xml_name_of",
- "identifier_name_list", "identifier_is_name", "_json_name_of",
- "json_identifier_name_list", "json_identifier_is_name", "_type_of",
- "identifier_type_list", "identifier_is_type", "_xml_type", "ml_type",
- "_xml_gen_suppress", "xml_suppress_list", "xml_suppress_entry",
- "xml_suppress_generic_opt", "xml_suppress_when_list", "_end_xml",
- "xml_parse_statement", "$@169", "xml_parse_body", "$@170",
- "_with_encoding", "_returning_national", "_validating_with",
- "schema_file_or_record_name", "_accept_exception_phrases",
- "_accp_on_exception", "accp_on_exception", "escape_or_exception",
- "_accp_not_on_exception", "accp_not_on_exception",
- "not_escape_or_not_exception", "_common_exception_phrases",
- "_common_on_exception", "common_on_exception",
- "_common_not_on_exception", "common_not_on_exception",
- "on_size_error_phrases", "_on_size_error", "on_size_error",
- "_not_on_size_error", "not_on_size_error", "_on_overflow_phrases",
- "_on_overflow", "on_overflow", "_not_on_overflow", "not_on_overflow",
- "return_at_end", "read_at_end", "_at_end_clause", "at_end_clause",
- "_not_at_end_clause", "not_at_end_clause", "at_eop_clauses",
- "_at_eop_clause", "at_eop_clause", "_not_at_eop_clause",
- "not_at_eop_clause", "_invalid_key_phrases", "invalid_key_phrases",
- "_invalid_key_sentence", "invalid_key_sentence",
- "_not_invalid_key_sentence", "not_invalid_key_sentence", "_thread_start",
- "_thread_handle", "thread_reference_optional", "_scroll_lines",
- "_count_in", "condition", "expr", "partial_expr", "$@171", "expr_tokens",
- "expr_token", "condition_no_is", "expr_no_is", "partial_expr_no_is",
- "$@172", "expr_tokens_no_is", "expr_token_no_is", "_not_expr",
- "not_expr", "condition_or_class", "eq", "gt", "lt", "ge", "le",
- "exp_list", "_e_sep", "exp", "exp_term", "exp_factor", "exp_unary",
- "exp_atom", "line_linage_page_counter", "arithmetic_x_list",
- "arithmetic_x", "record_name", "file_or_record_name", "table_name",
- "file_name_list", "file_file_name_list", "file_name", "cd_name",
- "report_name", "mnemonic_name_list", "mnemonic_name", "entry_name_list",
- "entry_name", "procedure_name_list", "procedure_name", "label",
- "integer_label", "reference_list", "reference", "_reference",
- "single_reference_list", "single_reference", "optional_reference_list",
- "optional_reference", "reference_or_literal", "undefined_word",
- "undefined_word_but_no_error", "unique_word", "target_x_list",
- "target_x", "_x_list", "x_list", "x", "call_x", "x_common",
- "length_of_register", "report_x_list", "expr_x", "arith_x",
- "arith_nonzero_x", "alphanumeric_literal", "numeric_literal",
- "non_numeric_literal", "nonzero_numeric_literal", "prog_or_entry",
- "alnum_or_id", "simple_display_value", "inspect_from", "inspect_to",
- "simple_value", "simple_all_value", "id_or_lit", "id_or_lit_or_func",
- "id_or_lit_or_length_or_func", "num_id_or_lit", "positive_id_or_lit",
- "pos_num_id_or_lit_or_zero", "pos_num_id_or_lit", "from_parameter",
- "sub_identifier", "table_identifier", "sub_identifier_1",
- "display_identifier", "numeric_identifier", "identifier_or_file_name",
- "identifier_field", "type_name", "identifier", "identifier_1",
- "identifier_list", "validate_for_identifier_list", "for_identifier",
- "target_identifier", "target_identifier_1", "target_identifier_single",
- "data_name_without_sub_or_refmod", "display_identifier_or_alphabet_name",
- "qualified_word", "unqualified_word", "$@173", "unqualified_word_check",
- "subref", "refmod", "integer", "symbolic_integer",
- "unsigned_pos_integer", "integer_or_zero", "class_value",
- "figurative_constant", "literal", "basic_literal", "basic_value",
- "zero_spaces_high_low_values", "function", "func_no_parm",
- "func_one_parm", "func_multi_parm", "func_refmod", "func_args",
- "trim_args", "length_arg", "$@174", "numvalc_args", "locale_dt_args",
- "formatted_datetime_args", "formatted_time_args", "not_const_word",
- "flag_all", "flag_duplicates", "_flag_initialized",
- "_flag_initialized_to", "_to_init_val", "_flag_next", "_flag_not",
- "flag_optional", "flag_rounded", "round_mode", "round_choice",
- "flag_separate", "_from_idx_to_idx", "_dest_index", "error_stmt_recover",
- "verb", "scope_terminator", "_dot", "dot_or_else_end_of_file_control",
- "level_number_in_area_a", "dot_or_else_end_of_file_description",
- "dot_or_else_end_of_communication_description",
- "dot_or_else_end_of_report_description",
- "dot_or_else_end_of_report_group_description",
- "dot_or_else_end_of_record_description", "file_control_end_delimiter",
- "file_description_end_delimiter", "record_description_end_delimiter",
- "_dot_or_else_area_a", "_advancing", "_after", "_are", "_area", "_areas",
- "_as", "_at", "_before", "_binary", "_box", "_by", "_character",
- "_characters", "_collating", "_contains", "_controls", "_control",
- "_data", "_end_of", "_every", "_file", "_for", "_from", "_in",
- "_in_equal", "_in_order", "_index", "_indicate", "_initial", "_into",
- "_is", "_is_equal", "_is_are", "_is_are_equal", "_is_in", "_key",
- "_line", "_line_or_lines", "_limits", "_lines", "_lock", "_message",
- "_mode", "_new", "_number", "_number_or_numbers", "_of", "_on",
- "_on_for", "_onoff_status", "_other", "_others", "_procedure",
- "_program", "_protected", "_record", "_records", "_right", "_sign",
- "_signed", "_sign_is", "_size", "_standard", "_status", "_symbolic",
- "_tape", "_terminal", "_then", "_times", "_to", "_up", "_when",
- "_when_set_to", "_with", "_with_for", "_exception", "at_end",
- "on_escape", "on_exception", "column_or_col", "columns_or_cols",
- "column_or_cols", "column_or_col_or_position_or_pos", "comp_equal",
- "exception_or_error", "file_limit_or_limits", "in_of", "label_option",
- "line_or_lines", "lock_records", "object_char_or_word_or_modules",
- "records", "reel_or_unit", "size_or_length", "length_of",
- "track_or_tracks", "using_or_varying", "detail_keyword", "ch_keyword",
- "cf_keyword", "ph_keyword", "pf_keyword", "rh_keyword", "rf_keyword",
- "control_keyword", YY_NULLPTR
-};
-#endif
-
-# ifdef YYPRINT
-/* YYTOKNUM[NUM] -- (External) token number corresponding to the
- (internal) symbol number NUM (which must be that of a token). */
-static const yytype_uint16 yytoknum[] =
-{
- 0, 256, 257, 258, 259, 260, 261, 262, 263, 264,
- 265, 266, 267, 268, 269, 270, 271, 272, 273, 274,
- 275, 276, 277, 278, 279, 280, 281, 282, 283, 284,
- 285, 286, 287, 288, 289, 290, 291, 292, 293, 294,
- 295, 296, 297, 298, 299, 300, 301, 302, 303, 304,
- 305, 306, 307, 308, 309, 310, 311, 312, 313, 314,
- 315, 316, 317, 318, 319, 320, 321, 322, 323, 324,
- 325, 326, 327, 328, 329, 330, 331, 332, 333, 334,
- 335, 336, 337, 338, 339, 340, 341, 342, 343, 344,
- 345, 346, 347, 348, 349, 350, 351, 352, 353, 354,
- 355, 356, 357, 358, 359, 360, 361, 362, 363, 364,
- 365, 366, 367, 368, 369, 370, 371, 372, 373, 374,
- 375, 376, 377, 378, 379, 380, 381, 382, 383, 384,
- 385, 386, 387, 388, 389, 390, 391, 392, 393, 394,
- 395, 396, 397, 398, 399, 400, 401, 402, 403, 404,
- 405, 406, 407, 408, 409, 410, 411, 412, 413, 414,
- 415, 416, 417, 418, 419, 420, 421, 422, 423, 424,
- 425, 426, 427, 428, 429, 430, 431, 432, 433, 434,
- 435, 436, 437, 438, 439, 440, 441, 442, 443, 444,
- 445, 446, 447, 448, 449, 450, 451, 452, 453, 454,
- 455, 456, 457, 458, 459, 460, 461, 462, 463, 464,
- 465, 466, 467, 468, 469, 470, 471, 472, 473, 474,
- 475, 476, 477, 478, 479, 480, 481, 482, 483, 484,
- 485, 486, 487, 488, 489, 490, 491, 492, 493, 494,
- 495, 496, 497, 498, 499, 500, 501, 502, 503, 504,
- 505, 506, 507, 508, 509, 510, 511, 512, 513, 514,
- 515, 516, 517, 518, 519, 520, 521, 522, 523, 524,
- 525, 526, 527, 528, 529, 530, 531, 532, 533, 534,
- 535, 536, 537, 538, 539, 540, 541, 542, 543, 544,
- 545, 546, 547, 548, 549, 550, 551, 552, 553, 554,
- 555, 556, 557, 558, 559, 560, 561, 562, 563, 564,
- 565, 566, 567, 568, 569, 570, 571, 572, 573, 574,
- 575, 576, 577, 578, 579, 580, 581, 582, 583, 584,
- 585, 586, 587, 588, 589, 590, 591, 592, 593, 594,
- 595, 596, 597, 598, 599, 600, 601, 602, 603, 604,
- 605, 606, 607, 608, 609, 610, 611, 612, 613, 614,
- 615, 616, 617, 618, 619, 620, 621, 622, 623, 624,
- 625, 626, 627, 628, 629, 630, 631, 632, 633, 634,
- 635, 636, 637, 638, 639, 640, 641, 642, 643, 644,
- 645, 646, 647, 648, 649, 650, 651, 652, 653, 654,
- 655, 656, 657, 658, 659, 660, 661, 662, 663, 664,
- 665, 666, 667, 668, 669, 670, 671, 672, 673, 674,
- 675, 676, 677, 678, 679, 680, 681, 682, 683, 684,
- 685, 686, 687, 688, 689, 690, 691, 692, 693, 694,
- 695, 696, 697, 698, 699, 700, 701, 702, 703, 704,
- 705, 706, 707, 708, 709, 710, 711, 712, 713, 714,
- 715, 716, 717, 718, 719, 720, 721, 722, 723, 724,
- 725, 726, 727, 728, 729, 730, 731, 732, 733, 734,
- 735, 736, 737, 738, 739, 740, 741, 742, 743, 744,
- 745, 746, 747, 748, 749, 750, 751, 752, 753, 754,
- 755, 756, 757, 758, 759, 760, 761, 762, 763, 764,
- 765, 766, 767, 768, 769, 770, 771, 772, 773, 774,
- 775, 776, 777, 778, 779, 780, 781, 782, 783, 784,
- 785, 786, 787, 788, 789, 790, 791, 792, 793, 794,
- 795, 796, 797, 798, 799, 800, 801, 802, 803, 804,
- 805, 806, 807, 808, 809, 810, 811, 812, 813, 814,
- 815, 816, 817, 818, 819, 820, 821, 822, 823, 824,
- 825, 826, 827, 828, 829, 830, 831, 832, 833, 834,
- 835, 836, 837, 838, 839, 840, 841, 842, 843, 844,
- 845, 846, 847, 848, 849, 850, 851, 852, 853, 854,
- 855, 856, 857, 858, 859, 860, 861, 862, 863, 864,
- 865, 866, 867, 868, 869, 870, 871, 872, 873, 874,
- 875, 876, 877, 878, 879, 880, 881, 882, 883, 884,
- 885, 886, 887, 888, 889, 890, 891, 892, 893, 894,
- 895, 896, 897, 898, 899, 900, 901, 902, 903, 904,
- 905, 906, 907, 908, 909, 910, 911, 912, 913, 914,
- 915, 916, 917, 918, 919, 920, 921, 922, 923, 924,
- 925, 926, 927, 928, 929, 930, 931, 932, 933, 934,
- 935, 936, 937, 938, 939, 940, 941, 942, 943, 944,
- 945, 946, 947, 948, 949, 950, 951, 952, 953, 954,
- 955, 956, 957, 958, 959, 960, 961, 962, 963, 964,
- 965, 966, 967, 968, 969, 970, 971, 972, 973, 974,
- 975, 976, 977, 978, 979, 980, 981, 982, 983, 984,
- 985, 986, 987, 988, 989, 990, 991, 992, 993, 994,
- 995, 996, 997, 998, 999, 1000, 1001, 1002, 1003, 1004,
- 1005, 1006, 1007, 1008, 1009, 1010, 1011, 1012, 1013, 1014,
- 1015, 1016, 1017, 1018, 1019, 1020, 1021, 1022, 1023, 1024,
- 1025, 1026, 1027, 1028, 1029, 1030, 1031, 1032, 1033, 1034,
- 1035, 1036, 1037, 1038, 1039, 1040, 1041, 1042, 1043, 1044,
- 1045, 1046, 1047, 1048, 1049, 1050, 1051, 1052, 1053, 1054,
- 1055, 1056, 1057, 1058, 1059, 1060, 1061, 1062, 1063, 1064,
- 1065, 1066, 1067, 1068, 1069, 1070, 1071, 1072, 1073, 1074,
- 1075, 1076, 1077, 1078, 1079, 1080, 1081, 1082, 1083, 1084,
- 1085, 1086, 1087, 1088, 1089, 1090, 1091, 1092, 1093, 1094,
- 1095, 1096, 1097, 1098, 1099, 1100, 1101, 1102, 1103, 1104,
- 1105, 1106, 1107, 1108, 1109, 1110, 1111, 1112, 1113, 1114,
- 1115, 1116, 1117, 1118, 1119, 1120, 1121, 1122, 1123, 1124,
- 1125, 1126, 1127, 1128, 1129, 1130, 1131, 1132, 1133, 1134,
- 1135, 1136, 1137, 1138, 1139, 1140, 1141, 1142, 1143, 1144,
- 1145, 1146, 1147, 1148, 1149, 1150, 1151, 1152, 1153, 1154,
- 1155, 1156, 1157, 1158, 1159, 1160, 1161, 1162, 1163, 1164,
- 1165, 1166, 1167, 1168, 1169, 1170, 1171, 1172, 1173, 1174,
- 1175, 1176, 1177, 1178, 1179, 1180, 1181, 1182, 1183, 1184,
- 1185, 1186, 1187, 1188, 1189, 1190, 1191, 1192, 1193, 1194,
- 1195, 1196, 1197, 1198, 1199, 1200, 1201, 1202, 1203, 1204,
- 1205, 1206, 1207, 1208, 1209, 1210, 1211, 1212, 1213, 1214,
- 1215, 1216, 1217, 1218, 1219, 1220, 1221, 1222, 1223, 1224,
- 1225, 1226, 1227, 1228
-};
-# endif
-
-#define YYPACT_NINF -4283
-
-#define yypact_value_is_default(Yystate) \
- (!!((Yystate) == (-4283)))
-
-#define YYTABLE_NINF -3474
-
-#define yytable_value_is_error(Yytable_value) \
- 0
-
- /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
- STATE-NUM. */
-static const yytype_int16 yypact[] =
-{
- -4283, 1632, 1495, -4283, -4283, -4283, 1342, -4283, 1069, -4283,
- 1537, 114, 1133, -4283, 1763, 1267, -4283, -4283, 1384, -4283,
- -4283, -4283, -4283, -4283, 45, -4283, -4283, 2171, -4283, -4283,
- 1964, 1993, -4283, -4283, -4283, -4283, -4283, -4283, 1436, 1069,
- 1451, 1069, 2100, 1923, -4283, 2225, 2253, -4283, 2038, 3946,
- 1725, -4283, 1267, 2266, -78, 2217, -78, 2231, 1267, -4283,
- 1534, 1788, 2251, -4283, -4283, 1696, 2364, -4283, -4283, -4283,
- 1873, 2303, 185, 185, 1839, 1875, 1923, 1923, 1923, 185,
- 1893, 1267, 1267, 1923, 1267, 1267, 369, -4283, -4283, -4283,
- 185, -4283, 3946, -4283, -4283, -4283, -4283, -4283, -4283, 251,
- -4283, -4283, -4283, -4283, -4283, 2257, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, 1267, -4283,
- -4283, -4283, -4283, -4283, 2644, -4283, -4283, 2217, -4283, 2644,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, 2172, 1923,
- 2262, 1603, -4283, 1949, -4283, 1267, 1267, 1267, -4283, -4283,
- -4283, -4283, 1075, 1923, -4283, 1923, 1738, 2551, 1738, 1923,
- 1923, -4283, -4283, 1738, -4283, -4283, -4283, 1749, -52, 1923,
- -4283, -4283, -4283, -4283, -4283, 1871, 237, -4283, -4283, 1967,
- 2239, 894, 1590, -4283, 939, 1590, -4283, 1923, 74, 2001,
- 1267, -4283, -4283, -4283, -4283, 1267, 1163, -4283, -4283, -4283,
- 928, 1075, -4283, 1923, 642, 1738, 2269, 15, -4283, -4283,
- -4283, -4283, 2275, 1868, 778, 24, -4283, 1806, -4283, 1749,
- -4283, 1923, 1808, 185, 1085, -4283, -4283, -4283, -4283, -4283,
- 2006, -32, 1923, 179, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, 1901, -4283, 1909, 901, -4283, -4283, 1267, -4283, 2112,
- 1267, 328, -4283, -4283, -4283, -4283, 1923, -4283, 2529, 7959,
- 12570, -4283, -4283, -4283, 1817, -4283, 34, 191, 1267, -4283,
- -4283, -4283, 277, -4283, -4283, -4283, 650, 2022, -4283, -4283,
- -4283, -190, -4283, -4283, 1738, -4283, 2013, -4283, 2000, -4283,
- 1923, -4283, -4283, 305, -4283, -4283, -4283, -4283, -4283, 808,
- 2658, 2651, 161, 1833, -4283, 225, -4283, -4283, 58, -4283,
- 235, -4283, 1808, -4283, 166, -4283, -4283, 2136, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, 1939,
- -4283, -32, -4283, 2359, 185, 185, -4283, 2006, 203, -4283,
- -258, -4283, 1267, -4283, -4283, 2150, -4283, 2641, -4283, 1267,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- 1563, 475, -4283, 14921, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, 2438, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, 1169, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, 2780, -4283, -4283, -4283, -4283, -4283, 1332, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, 1500, -4283,
- -4283, -4283, -4283, -4283, 2052, 2656, -4283, 494, 1222, -4283,
- -4283, -4283, 1028, 1752, -4283, 2224, 1638, -4283, 330, -4283,
- -4283, -4283, -4283, -4283, -4283, 1923, 1923, -4283, -4283, -4283,
- 2149, -4283, 1969, -4283, -4283, -4283, 2193, -4283, -4283, -4283,
- 1923, 2334, -4283, -4283, -4283, -4283, 839, 1923, -4283, -4283,
- 2055, 2389, -4283, 2644, 1338, 2644, 1965, -4283, -4283, 1970,
- 2611, -4283, -4283, -4283, -4283, -4283, 2345, -4283, 2136, 185,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, 2600, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, 1879, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -216, 6059,
- 20536, 850, 475, 195, -414, 482, 2819, 1231, 177, 1111,
- 12385, 18798, 1111, 1631, 4881, 2716, 1717, 482, 1738, 1987,
- 30, 10038, 482, 1886, 46, 2777, 1738, 46, 17717, 18798,
- 2083, 2531, -66, 1894, 41, 1902, 1894, 1738, 1902, 1306,
- -398, 401, 1738, 1902, -4283, 8662, 2209, 1886, 1738, 1902,
- 8174, 1738, 1306, 475, 2496, -4283, -4283, -4283, 1738, -4283,
- -4283, -4283, -4283, -4283, 1738, -4283, -4283, -4283, -4283, -4283,
- -4283, 1992, -4283, -4283, 181, 1627, -4283, 2113, 2368, 1749,
- 1749, 1749, 141, 1627, -51, -4283, -4283, -4283, -137, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, 2270, -4283, 185,
- 2224, 1987, 1987, 2280, 2224, 2224, 1987, 2224, 2224, 1987,
- 2224, 2224, 2007, -4283, 2557, 888, -4283, -4283, -4283, 2837,
- 739, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, 1588,
- 2324, -4283, -4283, 2022, 2396, 2334, -4283, -4283, 898, 119,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, 2363, -4283,
- 2345, -4283, -4283, -4283, 1923, -4283, 2023, 1763, 1763, -4283,
- 98, -4283, 1324, 2619, -4283, 20727, 2012, 2374, 2514, 2280,
- -4283, -4283, -4283, 1738, -4283, -4283, 2018, 2019, 2021, -4283,
- -4283, 2025, 15, 15, 2026, 2027, 2028, -4283, -4283, 2030,
- 15, -4283, -4283, -4283, 1738, 2034, -4283, 2021, -4283, 2643,
- -4283, 17884, -4283, -4283, 9160, -4283, -4283, -4283, 2036, 2037,
- 2040, -4283, 21577, 21577, 20536, 21577, -4283, 120, 487, -4283,
- 2583, -4283, -4283, 9160, -4283, -4283, 2487, -4283, 1870, 1939,
- -4283, -4283, 850, -4283, 2058, -4283, 15, -4283, 2652, -66,
- -4283, -4283, -4283, -4283, 1005, -4283, -4283, -4283, -4283, -4283,
- 1902, -4283, 1071, 2280, 2653, -4283, 455, -4283, 2190, -4283,
- -4283, 1992, 1939, -4283, -4283, 1902, 2655, 2249, 2747, -4283,
- -4283, 1738, 2090, 2092, -4283, -4283, -4283, 1894, -4283, 2541,
- -4283, 1748, 2839, -4283, -4283, -4283, -4283, -4283, 2666, 1642,
- 18053, -4283, -4283, -4283, -4283, 1979, 2012, -4283, -4283, -4283,
- -4283, -4283, 2541, 17218, 1824, 1863, 2757, 2668, 1291, -4283,
- -4283, -4283, 2669, 173, -4283, -4283, -4283, 17467, -264, -4283,
- -4283, -4283, -4283, -4283, 2416, -4283, -4283, 2744, 30, -4283,
- -4283, -4283, 482, -4283, -4283, -4283, -4283, -4283, 2654, -4283,
- -35, -4283, 18798, -4283, -4283, 2104, -4283, -4283, 308, -4283,
- 1886, -4283, -4283, 1738, 16245, -67, -4283, 1120, -4283, -4283,
- 4881, -4283, -4283, -4283, 2077, 15461, -67, 2675, 18798, -4283,
- 2097, 2679, 2857, -4283, -4283, 1934, -4283, 86, -4283, -4283,
- 12982, 2114, -4283, -4283, 2002, -4283, -4283, 2682, 1658, 2683,
- 876, -4283, 2592, -4283, 2684, 2249, 2008, 2685, -4283, 2592,
- 18798, -4283, 2686, -4283, 2601, 9160, 2660, -4283, -4283, -4283,
- -4283, -4283, -4283, 2460, -4283, 482, -4283, -4283, -4283, 2337,
- 914, -4283, 451, 2934, -4283, 171, -4283, 2698, 1944, 2703,
- 2560, 18798, 1738, 1738, 2710, 18195, -4283, -4283, 1886, -4283,
- -4283, 2863, -4283, -4283, 1891, -4283, 2715, 2781, -4283, -4283,
- 1738, -4283, 2722, 2592, 2528, -4283, 2631, 1738, 1738, 1738,
- 2730, 2080, -4283, 10457, -4283, 20536, 2151, -4283, 1738, 1738,
- -4283, 200, -4283, -4283, -228, -4283, -4283, -4283, 8484, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, 1267,
- -4283, 2265, 2539, -4283, -4283, -4283, 2326, 1627, -4283, -4283,
- -4283, 8886, 2853, -4283, -4283, 2145, -4283, -4283, 1738, 1738,
- 2334, -4283, 2334, 1902, 1902, 2334, 1902, 1902, 1738, 1902,
- 1902, -4283, 2191, -4283, 1199, -4283, -4283, -4283, -4283, 2664,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, 1105, -4283, 232, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, 96, -4283, -4283, -4283, -4283,
- -4283, -4283, 2070, -4283, 722, -4283, -4283, -4283, -374, 1923,
- -4283, 1964, -4283, -4283, 196, -4283, -4283, 2313, -4283, -4283,
- 20727, 825, -4283, -4283, 1923, -4283, 20727, -4283, -4283, -4283,
- 2554, 2181, 21184, 89, 1738, -4283, 2846, 2838, -9, 2178,
- 20536, 20536, 19853, 2036, -4283, 2081, 2082, 20536, 20536, 20536,
- 9160, 2084, 2182, 9160, 2036, -4283, -4283, 18940, 2657, -4283,
- -4283, 1939, -4283, 20536, -4283, 9160, 20536, -4283, -4283, 1615,
- -4283, 2620, 20536, 20536, 20536, 20536, 20536, 20536, 20536, 20536,
- 20536, 20536, 20536, 20536, -4283, 1939, -4283, -4283, 2555, -4283,
- 2402, 2565, -4283, -4283, 8174, -4283, 1738, 1071, -4283, -4283,
- -4283, 1800, 824, 1738, -4283, -4283, -4283, -4283, -4283, 20536,
- 2536, -4283, 2151, -4283, 20536, 183, -4283, -4283, -4283, -4283,
- 2341, -4283, -4283, -4283, -4283, -4283, -4283, -82, 1979, -4283,
- 2101, -4283, 18798, -4283, -4283, -4283, -4283, -4283, -4283, 2485,
- 102, -4283, -4283, -4283, 17218, 438, 6809, -4283, 1958, 2153,
- 2110, 1642, 1642, 1642, 1642, 18053, -4283, -4283, 18798, 18940,
- -4283, -4283, -4283, 1631, -4283, -4283, 2115, -4283, 5991, 22,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- 792, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, 16741,
- -4283, -4283, -4283, 3618, 207, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, 2576, 21, 2748, -4283, -4283, -4283, 2809, 2094,
- 2727, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, 909, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, 2334,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, 909, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, 16245, -4283,
- 909, 909, 909, -67, -4283, 433, 197, 20536, -4283, -4283,
- -59, 11792, -4283, -4283, 231, 19327, -67, -4283, -4283, 2214,
- 482, -4283, -4283, 18940, -4283, -4283, -4283, -4283, -4283, 2297,
- 2280, -4283, 1551, -4283, 2677, 2677, 687, 2226, 375, 2222,
- -4283, 735, -4283, -4283, 2240, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, 2249, -4283, -4283, -4283, -4283, 2646, 4881, -4283,
- -4283, -4283, 2649, -4283, -4283, -4283, 2341, 2601, -4283, 1738,
- 2126, 254, 2229, -4283, -4283, 1939, -4283, 2234, -4283, -4283,
- 445, 2235, 2006, -4283, -4283, 5456, -4283, 2991, 795, 193,
- -4283, -4283, -4283, 1923, -4283, 837, -4283, -4283, 1738, 18798,
- -4283, 2871, 2723, 2726, -4283, -4283, 18940, -4283, 2729, -4283,
- -4283, -4283, -4283, -4283, 2999, 2670, -4283, -4283, -4283, 2320,
- 1879, 2255, 2830, 2740, 2830, 2680, 2730, 380, -4283, -4283,
- 1738, 380, 18798, -4283, -4283, 1196, 104, 1732, 20536, -4283,
- 2824, 2745, 2824, 7, -4283, -4283, -4283, 176, 34, -4283,
- 1267, -4283, 2369, 2419, 1693, 1504, -4283, -4283, 2264, 19521,
- 1504, 2952, 1923, 1905, 1905, 1923, 81, 2172, 1923, 3092,
- 2542, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, 2173, -4283, 1860, 8526, 1738, -4283, 2224, 2224, 1699,
- 1902, -4283, 1902, 2224, 1902, 1902, 2224, 1902, 1902, -4283,
- 2952, 2280, 2280, 2454, 1902, -4283, -4283, -4283, 1105, -4283,
- -4283, -4283, -4283, 15, -4283, 1923, 1923, 2180, -4283, -374,
- 2350, 2253, 2253, -4283, -4283, -4283, 2661, 217, 217, -176,
- -4283, 1976, -4283, -4283, -4283, -4283, 3055, -4283, 2674, 1218,
- 930, -4283, 1923, -4283, -4283, -4283, -4283, -4283, 1923, 1890,
- -4283, 930, -4283, 1923, -4283, -4283, -4283, -4283, -4283, 145,
- -4283, -4283, -4283, 95, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, 35, -4283, -4283, -4283, 3133, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, 2705, 2371, 980, -4283, 2998, 1734, -4283,
- -4283, -4283, -4283, -4283, 1976, -4283, -4283, -4283, 2185, 2187,
- -4283, 9160, 1976, 2711, 2355, 2357, 2580, -4283, -4283, -4283,
- -4283, -4283, -4283, 2639, -4283, -4283, -4283, -4283, -4283, -4283,
- 1002, -4283, 1738, 128, 1736, 2310, 216, 2311, -4283, 429,
- -4283, 836, 9160, -4283, -4283, 400, 2312, 2314, 2315, 434,
- -4283, 1939, -4283, 2317, -4283, 1738, 444, 2318, -4283, 2280,
- 2789, 945, -4283, 335, 302, 482, 1735, 2321, 486, -4283,
- 2325, 2555, 487, 487, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, 2334, 2467, 2332, 850, -4283, -4283,
- -65, 3134, 861, -4283, -4283, 2458, 2493, 2648, -4283, 1375,
- 1923, -4283, -4283, 1413, -4283, -4283, 2301, 51, -4283, -4283,
- -4283, 2746, -4283, -4283, 18798, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, 640, -4283, -4283, 6690, -4283, -4283, 5501, -59,
- -4283, -4283, -4283, -4283, 910, -4283, 1923, 1923, -4283, 44,
- -59, -4283, -4283, -4283, -4283, 67, 1923, -4283, -4283, -4283,
- 6809, -4283, -4283, 1958, -4283, -4283, 1939, 1738, -4283, -4283,
- -4283, -4283, -4283, -4283, 1642, 2808, 945, 2813, -4283, 2596,
- -4283, 61, -4283, -4283, -4283, -4283, -4283, 3168, -4283, 2356,
- -4283, -4283, -4283, 5991, 2233, 3618, -4283, -4283, -4283, -4283,
- -4283, 1987, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, 2858, 1013, 192, 2012, -4283, 1175, -4283,
- 2224, -4283, -4283, -4283, -4283, -4283, 2935, -4283, 1987, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, 2507, 1987, -4283, -4283,
- -4283, 1738, -4283, -4283, 1738, -4283, 1738, 1738, 1738, -4283,
- 1760, 340, -4283, -4283, 2511, -4283, -4283, 271, 1720, 2965,
- -4283, -4283, 1006, -4283, -4283, -4283, -4283, 18263, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, 482, 482, 945, 2834, 2126, 2341, 375, 2801, 16674,
- 32, 9858, 1738, 850, 2361, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, 2320, 2649, 1738, -4283, -4283, -4283,
- -4283, 1738, 312, 820, 2503, -4283, 2320, 17, 9160, 2636,
- 1649, 844, -4283, 2280, 1002, 2640, -4283, -4283, -4283, 18798,
- 2006, 2006, 2006, 2006, 2006, 2006, 2006, 2006, 795, -4283,
- 946, 51, 905, 766, -4283, 2999, -4283, 1738, 1738, 945,
- 2845, 1760, -4283, 3207, 1738, 944, -4283, -4283, 2341, 3212,
- 2307, 2750, -4283, -4283, 1738, -4283, 1738, -4283, -4283, -4283,
- 2285, -4283, -4283, -4283, 2290, -4283, 2441, 2441, -4283, -4283,
- -4283, 20536, 20021, 1732, -4283, -4283, 1738, -4283, 2535, 2983,
- 2334, -4283, -4283, -4283, -4283, 1267, -4283, 2519, 1923, 3092,
- 3714, -4283, 2331, -4283, 2883, 1738, -4283, -10, -4283, 2316,
- 1923, 1923, 1923, 585, 2323, 2543, 1738, 1803, -4283, 2327,
- 1738, 3225, 2328, 2832, -15, 1987, 1923, 1923, 1210, 346,
- 2329, -4283, -4283, 19682, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, 15244, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, 3714, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, 1116, 863, 1555,
- 2889, -4283, 2334, 237, 300, 300, 2333, 831, 1041, 2334,
- 2336, 1923, -4283, -4283, -4283, 109, -4283, 2173, -4283, -4283,
- -4283, 739, -4283, 9530, -4283, 1902, 1902, -4283, -4283, 2224,
- -4283, 1902, 1902, 1902, 846, 1902, -4283, 1902, 1105, -4283,
- 2070, -4283, -4283, -4283, -4283, 2483, -4283, 2539, 2642, 2642,
- -4283, 230, -4283, -299, 908, 230, -4283, -4283, 176, -4283,
- -4283, -4283, -4283, -4283, 2109, 1738, 80, -4283, -4283, -4283,
- -4283, 2704, -4283, -4283, -4283, -4283, -4283, -4283, 2704, -4283,
- -4283, -4283, -4283, 825, 20536, 1042, -4283, 825, -4283, -4283,
- -4283, 1923, 1006, -4283, 1006, -4283, 930, 2801, 1923, 2428,
- 830, 2805, 2805, -4283, -4283, -4283, 1976, -4283, -4283, -4283,
- -4283, -4283, -4283, 223, -4283, -4283, -4283, -4283, 2190, 7312,
- 2036, 20169, 2036, -4283, 2433, 2036, -4283, 1738, 2036, 2036,
- 2036, 9160, 2036, 2190, 891, 2036, -9, -4283, -4283, -4283,
- 2717, 2509, 372, 2911, 945, 20369, 2036, 2036, 1235, -4283,
- 2467, -4283, 482, -4283, -4283, -4283, 2677, -4283, -4283, -4283,
- -4283, -4283, 2751, -4283, -4283, 2575, -4283, 328, -4283, -4283,
- 20536, -4283, -4283, -4283, -4283, 2724, 2864, 1048, 2153, 1066,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- 825, -4283, -4283, 825, 1042, -4283, -4283, -4283, -4283, 1076,
- 3037, 825, 1006, 1006, 20536, -4283, -4283, -4283, 3448, 3448,
- -4283, 482, -4283, 482, -4283, -4283, -4283, -4283, 5991, -4283,
- -4283, 3168, -4283, -4283, -4283, -4283, -4283, 3203, -4283, -4283,
- -4283, 2960, 1013, 3001, -4283, -4283, -4283, 1738, -4283, -4283,
- -4283, 2809, 2377, 2140, 452, 2378, -4283, -4283, -4283, -4283,
- -4283, 2457, -4283, -4283, 1939, -4283, 3213, -4283, -4283, -4283,
- 769, -4283, 1760, 2618, -4283, -4283, -4283, 2548, -4283, -4283,
- 2711, 27, -4283, -4283, -4283, 18798, -4283, 482, -4283, 482,
- 671, 1902, -4283, 1738, -4283, -4283, 49, -4283, -4283, -4283,
- 3298, -4283, 2947, -4283, -4283, -4283, 297, 151, -4283, -4283,
- -4283, 2752, 380, -4283, 51, -4283, 1927, 1738, 2622, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- 430, -4283, 18798, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, 18, -4283, 1738, -4283, -4283, 1764, -4283,
- -4283, -4283, 20536, -183, 2692, 18389, 2190, 2190, -4283, 482,
- 2468, -4283, 2731, -4283, 9160, -4283, 3100, 2494, -4283, 820,
- -4283, 1016, -4283, -4283, -4283, 3141, 19, -4283, -4283, 10038,
- -4283, 2290, -4283, 18798, 18798, 1736, -4283, 1634, 3141, 2802,
- 2398, 9160, 2472, -4283, 3221, 34, -4283, 2587, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, 2488, -4283, -4283, 3714, -4283, 1923, -4283, 2497, -4283,
- -4283, -4283, 2367, 1895, 18531, 482, -4283, -4283, -4283, 3139,
- 11185, -4283, -4283, 2473, -4283, 3240, 2455, 2499, 1429, 11185,
- -4283, -4283, 1738, -4283, -4283, -4283, -4283, -4283, 2390, 15600,
- 482, 2484, 3714, 2484, 3714, 2985, 2329, -4283, -4283, -4283,
- -334, 783, 1311, 1369, 1408, 3339, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, 1987, 3899, -4283, -4283, -4283, 802, 761,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, 2373, -4283, 3317, -4283, 2999, -4283, 2552, 2599,
- 2599, 2408, -4283, 3714, -4283, 2512, 3006, -4283, -4283, -4283,
- 2333, -4283, -4283, -4283, -4283, -4283, -4283, 2890, 122, 2801,
- 1246, 1923, -4283, -4283, 1923, -4283, -4283, 2172, 2711, 2249,
- 1987, -4283, -4283, -4283, -4283, 2604, 2711, 1923, 3243, 314,
- 405, 37, 2126, -4283, -4283, 1923, 1923, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, 2567, -4283, 2884, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, 2610, 3307, 300, 1902, 1902, 1902, 1902,
- 1902, 1902, -4283, 2755, -4283, -4283, 3351, -4283, -4283, 78,
- 1301, 1412, 2678, -4283, -4283, 2217, 2231, -4283, 1923, 2603,
- 2787, -4283, -4283, -4283, -4283, 3170, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, 20536, 20536, -4283, 1736,
- -4283, -4283, -4283, -4283, -4283, 1048, -4283, 2137, -4283, -4283,
- 1738, 844, -4283, -4283, 2532, -4283, -4283, -4283, 1923, 1098,
- -4283, -4283, 895, -4283, -4283, -4283, -4283, 2036, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, 3018, -4283, -4283, -4283, 3010,
- -4283, -4283, -4283, -4283, -4283, -4283, 3013, -4283, -4283, 1651,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, 1879, 3161, -4283,
- -4283, -293, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -59, -59, -59, -59, 18798, -4283, 1066, -4283, 7070, -4283,
- -4283, -4283, -4283, -4283, 2280, -4283, -4283, -4283, 1736, -4283,
- -4283, 1712, 20536, 2837, -4283, -4283, -4283, 10988, -4283, -4283,
- -4283, 384, -4283, -4283, -4283, -4283, 5848, 10988, 945, 2706,
- 945, 2707, -4283, -4283, 1013, -4283, 2696, -4283, 1235, -4283,
- -4283, -4283, -4283, 2140, -4283, 3139, -4283, -4283, 1987, -4283,
- 1235, 9160, -4283, -4283, 3297, -4283, 2353, -4283, -4283, 2618,
- -4283, 2353, 3036, 3039, 337, 1302, -4283, 2804, -4283, -4283,
- 18672, 945, 2803, 2803, 2814, -4283, 1489, -4283, 3131, -4283,
- -4283, -4283, 1738, 18798, 2224, 2919, 2964, -4283, 1182, -4283,
- -4283, -4283, 1031, -4283, -4283, -4283, 3210, 2866, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, 2924, -4283, -4283, 2945, -4283,
- 2280, 2280, -4283, -4283, -4283, -4283, -4283, -4283, -4283, 1736,
- -4283, -4283, -4283, 2849, 2556, 1923, -4283, -4283, -4283, 895,
- 3018, 945, 1235, 3207, -4283, 2801, 3141, 2801, -183, 1798,
- -4283, -4283, 2142, 188, 2801, -4283, 2901, 3201, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, 2126, 2784,
- -4283, 2515, -4283, -4283, 185, 34, -4283, 34, 1267, 2681,
- 221, 182, -4283, 1177, 1738, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, 482, -4283,
- -4283, -4283, -4283, -4283, -4283, 17285, 2951, -4283, -4283, 2801,
- 3066, 2591, 2334, 2591, 2334, 2224, -100, -4283, -4283, -4283,
- -4283, 10626, -4283, -4283, -4283, 2759, -4283, -4283, 2316, 2966,
- 1923, 2373, 2987, 3092, 3714, -4283, 2550, 21641, 3354, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, 3073, 4850, -4283, 2390, -4283, 2810, -107, -4283,
- -4283, -4283, 2971, -4283, 1048, 1140, -4283, -4283, 3243, -4283,
- -4283, -4283, 3714, -4283, 2334, 218, 1738, -4283, -4283, -4283,
- -4283, 2334, -4283, 2000, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, 1073, 1073, 1923, 1923, 2711, 227, -4283, 1923,
- 1628, 1923, 1923, 1923, 1923, -4283, 2630, -4283, 671, 1041,
- 2334, 1923, 2172, 1350, -4283, 2693, 1041, 1902, -4283, 2334,
- -4283, 1105, 2933, 3436, -4283, -4283, -4283, -4283, 1412, 82,
- -4283, -4283, -4283, 3224, -4283, -4283, 1465, 1923, -4283, -4283,
- 2510, -4283, -4283, -4283, 1736, 1736, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, 844, -4283, -4283, -4283, 3048, 3242, -4283,
- 2307, -4283, -4283, -4283, 3448, 18798, 18798, 18798, 18798, -4283,
- -4283, -4283, -4283, -4283, 1738, 1736, -59, -4283, -4283, -4283,
- -4283, 2617, -343, -4283, -4283, 482, -4283, 482, -4283, 3373,
- -4283, 1004, -4283, -4283, -4283, -4283, -4283, 3374, 3256, 2353,
- -4283, -4283, 2353, 1235, 2612, 2612, -4283, 3458, 3406, -4283,
- -4283, -4283, 2835, 1902, 1675, -4283, 770, 237, 1738, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, 199, -4283, -4283, -4283,
- -4283, -4283, 2936, -4283, 1151, -4283, -4283, 2937, 1516, -4283,
- -4283, -4283, 3383, 2992, -4283, 1923, 1396, -4283, -4283, 811,
- 2993, 2997, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, 1902, 1902, -4283, -4283, -4283, -4283, -4283, -4283,
- 1738, -4283, 3242, -4283, -4283, -4283, 1738, -4283, 1738, -4283,
- -4283, -4283, -4283, -4283, 2920, 3190, -4283, -4283, -4283, -4283,
- 5726, -4283, 7046, 65, 1738, 2901, 2280, 2671, -4283, -4283,
- -4283, 163, 1314, 2848, -4283, -4283, 2633, -4283, -4283, -4283,
- -4283, 1267, -4283, 2728, -4283, -4283, -4283, 376, 2647, -4283,
- 2280, -4283, 3714, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, 17285, -4283, 2107, -4283, -4283, -4283, 2662, 2538, 2334,
- 2650, -4283, 3274, -4283, 3277, -4283, 1738, 2720, 2553, -4283,
- -4283, -4283, 189, 2917, 1232, 527, -4283, -4283, -4283, -4283,
- -4283, 2739, 2484, 2659, -4283, -4283, 21641, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, 1128, -4283, -4283, 3024,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, 2591, 3250, -4283, -4283,
- 2709, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, 1738, 115, 2863, 1719, -4283, -4283, -4283, -4283, 568,
- 1738, 1923, -4283, -4283, 3509, -4283, 1738, -4283, -4283, 1041,
- -4283, 1738, 1738, -4283, -4283, -4283, -4283, 2863, 1699, 1738,
- 1923, 1738, -4283, 1041, 2687, -4283, -4283, 1923, 1923, 137,
- -4283, -4283, 98, -4283, -4283, -4283, 1237, 781, 176, -4283,
- -4283, -4283, 844, 3048, 895, 23, 10988, -4283, -4283, -4283,
- -4283, -4283, 1738, -59, -4283, -4283, 895, 895, 1013, -4283,
- -4283, -4283, -4283, 18798, -4283, -4283, -4283, 2353, -4283, 18798,
- 18798, -4283, -4283, 1923, 1902, 1902, 2873, -4283, 1923, 1923,
- 237, -4283, -4283, 2923, -4283, -4283, -4283, -4283, -4283, -4283,
- 2806, -4283, -4283, -4283, -4283, 6308, 2621, -4283, 1738, -4283,
- -4283, 2752, 380, -4283, -4283, -4283, -4283, -4283, -4283, 895,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- 18798, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, 2671,
- 1738, 1738, 1642, 2995, 163, -4283, 178, 2570, -4283, -4283,
- 1923, 1915, -4283, -4283, -4283, -4283, 2688, -4283, -4283, 2579,
- 1923, 1738, -4283, -4283, -4283, -4283, -4283, -4283, 2334, 3107,
- 2224, 2224, 350, -4283, 1923, -4283, -4283, 2280, -4283, -4283,
- 1439, 154, 3173, -4283, 3227, -4283, 2966, -4283, 2484, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, 1041, 1041, -4283, -4283, -4283, -4283, 3177,
- 3314, -4283, 2512, 2334, -4283, -4283, -4283, -4283, -4283, 1738,
- -4283, -4283, -4283, -4283, 3174, -4283, -4283, -4283, -4283, 3523,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, 1213, 1517, -4283,
- -4283, -4283, -4283, -4283, 136, -308, -4283, -4283, -4283, 1738,
- 317, 1923, 2702, 1041, -4283, -4283, -4283, 2313, -4283, -4283,
- 3041, -4283, 184, 2690, 844, -4283, 16, 270, -4283, 18798,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, 850, 1902, 1923,
- 237, 237, -4283, -4283, -4283, -4283, 9160, -4283, -4283, -4283,
- -4283, 10038, -4283, -4283, -4283, -4283, -4283, -4283, -4283, 1738,
- -4283, 1923, 1738, -4283, -4283, -4283, 1923, 3026, -4283, -4283,
- 9160, -4283, -4283, -4283, 850, -4283, -4283, -4283, -4283, -4283,
- -4283, 2380, -4283, -4283, -4283, -4283, 2002, 2904, 3338, 1605,
- 2886, 757, -4283, 10038, -4283, 221, -4283, -4283, 350, 1738,
- 1738, 2999, -4283, 3137, -4283, 1720, 2711, 1900, 2334, -4283,
- -4283, 2967, -4283, -4283, -4283, 1738, -4283, -4283, -4283, -4283,
- -4283, 3512, 2224, -4283, 2863, -4283, -308, 1738, 2007, -4283,
- -4283, -4283, -4283, 1738, -4283, -4283, -4283, -4283, -4283, 1923,
- -4283, 2944, -4283, -4283, -4283, 885, 752, 885, -4283, 237,
- 1041, -4283, -4283, -4283, 1267, 2778, 123, 844, -4283, -4283,
- -4283, -4283, 2990, 26, -4283, 2280, -4283, -4283, -4283, -4283,
- -4283, 1738, -4283, -4283, 850, 78, 1301, -4283, 1939, -4283,
- -4283, 1642, -4283, 776, -4283, 9160, 2280, 2676, -4283, -4283,
- 2862, 2769, 2708, 2002, -4283, 76, 2224, -4283, -4283, -4283,
- 799, -4283, -4283, 9357, -4283, -4283, 757, 2713, -4283, -4283,
- -4283, 350, -4283, -4283, -4283, -4283, 1923, 1720, -4283, -4283,
- -4283, 1738, -4283, -4283, 1041, 1738, 3314, 11, -4283, -4283,
- -4283, -4283, -4283, 11, -4283, 1738, 1738, 915, -4283, -4283,
- 2841, -4283, 3071, -4283, -4283, -4283, -4283, 1923, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, 1738, -4283, -4283,
- 3046, 3540, -4283, -4283, -4283, 3049, 1738, 2280, 2754, 1642,
- 1738, -4283, 1295, 1902, 2718, -4283, -4283, -4283, -4283, 180,
- 869, 1896, 1886, 2719, 2463, 2734, -4283, -4283, 2180, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, 2944, 1400, 1923,
- -4283, -4283, -4283, -4283, -4283, 3004, -4283, -4283, 930, 3365,
- -4283, 1923, 1923, 1923, -4283, 1738, -4283, 1923, 1738, 283,
- -4283, -4283, -4283, -4283, -4283, 2940, -4283, 1902, 1729, 180,
- -4283, -4283, 130, 3140, 3150, 3359, 3135, -4283, 869, -4283,
- 1714, 967, -4283, -4283, -4283, 3065, -4283, -4283, 2180, -4283,
- 2779, -4283, 3352, 1738, 1661, -4283, -4283, 237, 237, 9160,
- -4283, 235, 1738, -4283, 1923, 1331, 689, 283, -4283, -4283,
- 1642, -4283, 2224, -4283, -4283, -4283, 3016, 1738, -4283, 1923,
- 3019, 1738, 1923, 1923, 1923, 1923, -4283, 3155, 87, 3157,
- -4283, 3145, -4283, 2079, -4283, -4283, 1738, 3427, 1483, 3165,
- 100, 3166, 3151, -4283, 854, -4283, -4283, 1738, 2785, 211,
- 20919, 1006, -4283, -4283, -4283, 2673, -4283, -4283, -4283, 1913,
- -4283, -4283, 1144, 176, -4283, -4283, -4283, -4283, -4283, 355,
- -4283, -4283, -4283, 355, 355, -4283, -4283, -4283, -4283, -4283,
- -4283, 3028, -4283, -4283, -4283, 1000, -4283, -4283, 1738, 2334,
- -4283, 1738, 1738, 1738, 1738, 1923, 1923, 1923, 1923, 1923,
- -4283, 1738, 1923, 1923, 1923, 1923, 1923, 1923, 1923, 1923,
- 1923, 1923, 1923, -4283, 1738, 1923, 1627, 2175, -4283, 1923,
- -4283, -4283, -4283, -4283, 1009, -4283, 2704, 2704, 1923, 1923,
- -59, 44, 1923, 4881, -4283, -4283, -4283, -4283, 2704, -59,
- -4283, 3371, 2334, -4283, 3501, -4283, -4283, -4283, -59, -4283,
- -4283, 1738, -4283, -4283, 1923, 1738, 1923, -4283, -4283, 108,
- -4283, -4283, -4283, -4283, -4283, 2136, -4283, -4283, -4283, -4283,
- 3246, 2704, -4283, -4283, -4283, 13312, 155, 1144, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, 689, -4283, -4283, -4283, -4283,
- -4283, 1902, -4283, 2591, -4283, -4283, -4283, -4283, 1738, 1738,
- 1738, 1738, 1738, 1738, 1738, 1738, 1738, 1738, 1738, 1738,
- 1738, 1738, 1738, 1738, 1738, 1738, 1738, -4283, -4283, 300,
- 300, 2205, -4283, -4283, -4283, -4283, 3248, 3495, -56, 825,
- -4283, -4283, -4283, 1923, -4283, 1923, 825, 1042, 1006, -4283,
- -4283, 825, -4283, -4283, 825, 2591, 1923, 1006, -4283, 255,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, 1939, -4283, -4283,
- -4283, 14205, 2136, -4283, -4283, -4283, -4283, -4283, 3137, -4283,
- -4283, -4283, -4283, -4283, 1738, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, 1738, -4283, -4283, -4283,
- 300, 300, 912, 245, -4283, 1923, -4283, -4283, 1738, 1738,
- -4283, -4283, -4283, 1509, 1509, -4283, -4283, -4283, -4283, -4283,
- -4283, 591, -4283, 1048, -4283, -4283, -4283, 21279, -4283, -4283,
- -4283, 1738, 1738, -4283, -4283, -4283, -4283, -4283, 2033, -4283,
- -4283, -4283, 4535, -4283, 1048, 1738, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, 825, -4283, -4283, 825, -4283,
- -4283, -4283, -4283, -4283, 1738, -4283, 1906, 1040, 1127, -4283,
- -4283, 912, 1627, -4283, -4283, -4283, -4283, -4283, 1738, 2319,
- 1923, 1923, 2267, 1923, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, 2238, -4283, -4283, -4283, 1738, -4283, -4283, 1923, 912,
- 912, -4283, 3236, 1923, 1923, 912, 4862, 1738, 912, -4283,
- -4283, -4283, 912, 912, -4283, -4283, -4283, -4283, 3214, 2120,
- 3092, 1923, 2334, -4283, 1923, 2280, -108, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, 3714, -4283, -4283, -4283, -4283, -4283,
- -4283, 233, -4283, -4283, 1567, -4283, 1074, -4283, -4283, -4283,
- -4283, -4283, 2120, 1738, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, 300, -4283, 1782, 2650, 21641, 21641, 2476, 3714, 3095,
- 3095, 2383, 10038, -4283, -4283, 1567, -149, -4283, -4283, -4283,
- 2334, -149, -4283, 374, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, 2334, -4283, 2591, 2190, 21130, -4283, -4283, 138, 2087,
- -4283, -4283, 2102, -4283, -4283, -4283, -4283, 1180, 1180, -4283,
- -4283, -4283, -4283, -4283, 1110, 1110, 3095, 3095, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, 300, -4283, -4283, 3277,
- -4283, 2224, 1738, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, 33, 164, -4283, -4283, -4283, 1110, -4283, -4283,
- 3030, 3031, -4283, 2826, 66, -4283, 3044, -4283, 3044, -4283,
- 3044, -4283, 3044, -4283, -4283, -4283, 2334, -4283, -4283, -4283,
- -4283, 3038, -4283, -4283, -4283, -4283, -4283, -4283
-};
-
- /* YYDEFACT[STATE-NUM] -- Default reduction number in state STATE-NUM.
- Performed when YYTABLE does not specify something else to do. Zero
- means the default is an error. */
-static const yytype_uint16 yydefact[] =
-{
- 2, 0, 14, 1, 3, 5, 36, 4, 79, 35,
- 0, 53, 0, 15, 102, 3250, 58, 57, 53, 8,
- 10, 11, 12, 13, 0, 54, 55, 82, 104, 50,
- 107, 0, 103, 3249, 37, 9, 61, 59, 0, 79,
- 0, 79, 0, 3341, 80, 88, 489, 109, 284, 111,
- 0, 108, 3250, 39, 0, 18, 0, 0, 3250, 3342,
- 0, 0, 90, 491, 51, 494, 0, 490, 283, 101,
- 0, 286, 0, 0, 0, 3408, 3341, 3341, 3341, 0,
- 0, 3250, 3250, 3341, 3250, 3250, 3303, 196, 280, 195,
- 0, 106, 112, 113, 115, 116, 119, 117, 118, 0,
- 175, 178, 193, 179, 180, 246, 181, 183, 182, 186,
- 184, 185, 187, 188, 189, 190, 191, 192, 3250, 105,
- 40, 38, 64, 63, 67, 22, 16, 19, 20, 67,
- 24, 17, 56, 84, 85, 86, 87, 83, 3372, 3341,
- 95, 1526, 493, 0, 496, 3250, 3250, 3250, 288, 2946,
- 2945, 206, 243, 3341, 3409, 3341, 0, 0, 0, 3341,
- 3341, 128, 159, 0, 122, 173, 3304, 0, 3321, 3341,
- 267, 114, 177, 174, 176, 3341, 0, 248, 110, 0,
- 0, 3341, 0, 21, 3341, 0, 3373, 3341, 0, 0,
- 3250, 1522, 52, 1521, 1580, 3250, 487, 492, 285, 287,
- 433, 212, 3322, 3341, 0, 0, 0, 3056, 276, 2934,
- 274, 279, 0, 0, 130, 161, 278, 124, 639, 257,
- 258, 3341, 0, 0, 0, 3065, 2451, 2450, 194, 200,
- 203, 3387, 3341, 0, 377, 376, 373, 374, 375, 372,
- 247, 0, 68, 0, 0, 66, 65, 3250, 62, 0,
- 3250, 0, 92, 94, 93, 91, 3341, 81, 0, 0,
- 0, 495, 502, 503, 619, 497, 622, 0, 3250, 290,
- 289, 282, 436, 207, 208, 210, 0, 0, 244, 245,
- 277, 272, 3468, 3469, 0, 266, 0, 3302, 3415, 3398,
- 3341, 155, 129, 3397, 134, 136, 137, 138, 139, 3397,
- 0, 3305, 0, 0, 160, 0, 164, 123, 126, 259,
- 0, 2948, 249, 250, 3346, 253, 281, 0, 3075, 3082,
- 3076, 3074, 3072, 3077, 270, 3073, 268, 3083, 269, 3078,
- 3080, 3387, 3390, 3389, 0, 0, 197, 201, 42, 60,
- 71, 74, 3250, 78, 77, 3397, 72, 73, 23, 3250,
- 25, 3156, 3157, 3158, 3159, 3160, 3161, 3162, 3163, 89,
- 0, 1804, 3276, 0, 1651, 1769, 1779, 1787, 1794, 1852,
- 1860, 1881, 1876, 1882, 1891, 1887, 1899, 1909, 2044, 2053,
- 2055, 2061, 2190, 2095, 2109, 2122, 2125, 2128, 2134, 2136,
- 2148, 2170, 2174, 2178, 2235, 2253, 2255, 2261, 2265, 1648,
- 2271, 2305, 2332, 2334, 2339, 2369, 2370, 2386, 2389, 2390,
- 2395, 2404, 2405, 2423, 2440, 2481, 2499, 2518, 2537, 2553,
- 2561, 2565, 3275, 2569, 2572, 2575, 2592, 2632, 2648, 3277,
- 1582, 1583, 1584, 1585, 1586, 1587, 1588, 1589, 1591, 1590,
- 1592, 1594, 1593, 1595, 1596, 1597, 1598, 2056, 1599, 1600,
- 1602, 1603, 1604, 1605, 1606, 1607, 1608, 1609, 1610, 1611,
- 1612, 1601, 0, 1613, 1614, 1615, 1616, 1617, 1618, 1619,
- 1620, 1621, 1622, 1623, 1624, 1625, 1626, 1627, 1628, 1629,
- 1630, 2406, 1631, 1632, 1633, 1634, 1635, 0, 1636, 1637,
- 1638, 1639, 1640, 1641, 1642, 1643, 1644, 1645, 0, 1646,
- 1647, 1559, 1581, 618, 0, 564, 498, 3132, 0, 2916,
- 499, 435, 3149, 0, 463, 3382, 446, 434, 0, 439,
- 441, 442, 454, 443, 444, 3341, 3341, 213, 214, 3070,
- 246, 262, 264, 3071, 3440, 271, 0, 3057, 275, 3416,
- 3341, 0, 133, 135, 131, 156, 3397, 3341, 3306, 141,
- 0, 0, 171, 67, 0, 67, 0, 162, 165, 0,
- 0, 260, 251, 3348, 3347, 254, 0, 3079, 0, 0,
- 3388, 204, 198, 199, 202, 45, 41, 47, 76, 26,
- 70, 75, 29, 97, 98, 99, 100, 96, 1809, 1812,
- 1811, 1806, 1807, 1810, 1808, 1798, 1805, 3174, 3175, 3176,
- 3177, 3178, 3179, 3180, 3181, 3182, 3183, 3184, 3185, 3186,
- 2138, 3226, 3227, 3228, 3229, 3230, 3231, 3232, 3233, 3234,
- 3235, 3236, 3237, 3238, 3239, 3240, 3241, 3242, 3243, 3244,
- 3245, 3246, 3247, 3248, 3187, 3188, 3190, 3189, 3191, 3192,
- 3193, 3194, 3195, 3196, 3197, 3199, 3198, 3200, 3201, 3202,
- 3203, 3204, 3205, 3206, 3207, 3208, 3209, 3210, 3211, 3212,
- 3213, 3214, 3215, 3216, 3217, 3218, 3219, 3220, 3170, 3221,
- 3222, 3223, 3224, 3225, 3172, 1650, 3171, 3173, 1683, 0,
- 0, 0, 1804, 0, 0, 0, 1884, 0, 0, 1904,
- 1953, 0, 1904, 2794, 0, 2099, 2111, 0, 0, 3431,
- 2118, 0, 0, 0, 0, 2181, 0, 0, 0, 0,
- 0, 2276, 2781, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 2540, 0, 2563, 0, 0, 0,
- 0, 0, 0, 1804, 0, 2236, 2248, 2408, 0, 2521,
- 2533, 2536, 2519, 2534, 2786, 2535, 2522, 2531, 2523, 2532,
- 3037, 3041, 2649, 2701, 1580, 0, 563, 0, 976, 674,
- 0, 0, 624, 0, 635, 628, 629, 627, 0, 3268,
- 3254, 3267, 3253, 3255, 501, 3256, 504, 0, 3150, 0,
- 3382, 3431, 3431, 3380, 3382, 3382, 3431, 3382, 3382, 3431,
- 3382, 3382, 3319, 3383, 3317, 0, 447, 448, 449, 3284,
- 0, 3265, 3264, 3266, 3263, 3251, 440, 437, 3252, 0,
- 0, 261, 263, 0, 0, 0, 149, 132, 3058, 3321,
- 166, 167, 170, 172, 168, 169, 163, 125, 0, 3066,
- 252, 255, 3081, 205, 3341, 48, 0, 474, 474, 1799,
- 1528, 1682, 3056, 1767, 1653, 1695, 0, 3370, 1681, 3380,
- 3108, 3106, 3109, 0, 3102, 3110, 0, 0, 3116, 3485,
- 3486, 0, 2899, 2901, 0, 0, 0, 3105, 2970, 0,
- 2903, 3107, 3111, 3112, 0, 0, 3104, 3116, 3103, 1777,
- 2964, 1775, 2956, 2959, 0, 2958, 2962, 2963, 3113, 0,
- 0, 2971, 0, 0, 0, 0, 1780, 0, 2880, 2890,
- 2892, 2896, 2980, 0, 2898, 2977, 3138, 3053, 3054, 2978,
- 2979, 2931, 1788, 1789, 0, 2927, 2929, 2928, 1850, 2781,
- 1855, 3009, 1859, 1853, 1854, 1856, 1858, 3008, 1872, 1861,
- 1862, 1863, 1866, 3380, 1879, 3048, 0, 2905, 3152, 2951,
- 3047, 3052, 2952, 1885, 1883, 0, 1897, 3401, 3309, 1888,
- 3042, 1890, 3425, 0, 1906, 1908, 1900, 0, 1950, 1984,
- 1983, 3082, 3297, 1930, 1982, 1975, 1981, 1974, 2042, 2726,
- 2954, 1925, 1927, 1917, 1918, 1931, 0, 1919, 1920, 1971,
- 1921, 1922, 1984, 1924, 0, 2958, 0, 2051, 0, 2054,
- 2068, 2067, 2093, 0, 2064, 2066, 2793, 3341, 0, 2183,
- 2184, 2185, 2100, 2096, 2101, 2113, 2117, 2115, 2118, 2116,
- 2110, 2123, 2124, 2949, 2126, 2127, 3432, 2129, 2925, 1837,
- 0, 1836, 0, 2135, 2792, 2142, 2791, 2149, 2151, 2918,
- 2171, 2172, 1214, 1990, 0, 0, 2175, 1213, 2182, 2179,
- 0, 2254, 2485, 3029, 3030, 3147, 0, 2259, 0, 2262,
- 0, 2269, 0, 1649, 2277, 2272, 2273, 0, 3326, 2306,
- 2318, 0, 2917, 2333, 0, 2335, 2337, 2367, 3144, 2384,
- 0, 2387, 2635, 2908, 2393, 3401, 0, 2402, 2909, 2635,
- 0, 2424, 0, 2426, 2429, 0, 0, 2921, 2441, 2442,
- 2443, 2444, 2445, 2446, 2472, 2447, 2475, 2448, 2449, 0,
- 0, 2919, 0, 0, 3028, 3052, 2482, 2516, 2504, 2551,
- 0, 0, 0, 0, 2559, 0, 2564, 2562, 2566, 2567,
- 2570, 3303, 3032, 2573, 3403, 3011, 2590, 2578, 3010, 3012,
- 2593, 2594, 2646, 2635, 0, 2057, 0, 0, 0, 0,
- 2420, 2412, 2911, 2524, 2785, 0, 3039, 3040, 0, 0,
- 1566, 0, 1567, 1560, 0, 1561, 1562, 1565, 0, 3270,
- 3272, 3271, 3269, 3273, 3274, 3260, 3261, 620, 3262, 3250,
- 975, 0, 980, 675, 672, 677, 0, 0, 625, 636,
- 637, 0, 638, 633, 634, 3341, 3151, 291, 0, 0,
- 0, 3381, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 3320, 3423, 3318, 0, 348, 471, 349, 3285, 3321,
- 438, 219, 218, 239, 235, 3058, 240, 224, 238, 236,
- 216, 217, 237, 209, 215, 226, 227, 229, 221, 222,
- 223, 211, 220, 265, 273, 0, 152, 154, 153, 150,
- 151, 2939, 0, 142, 0, 3058, 127, 256, 0, 3341,
- 43, 475, 27, 30, 0, 1531, 1529, 1551, 1768, 1652,
- 1695, 3292, 3294, 1700, 3341, 1679, 1696, 1697, 1699, 1701,
- 1712, 0, 3311, 0, 0, 3371, 0, 0, 0, 0,
- 0, 0, 0, 3113, 3122, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 3113, 1778, 1770, 0, 0, 2957,
- 2965, 2966, 2967, 0, 3088, 0, 0, 2895, 2894, 0,
- 2893, 3140, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 2981, 2982, 2983, 3139, 1783, 1790,
- 1792, 0, 1851, 1795, 1815, 1857, 0, 1866, 3481, 3482,
- 1864, 0, 1869, 0, 1880, 1877, 3463, 3462, 2906, 0,
- 3154, 2907, 3050, 3051, 0, 2726, 1895, 1898, 1892, 3402,
- 2352, 3310, 1889, 3043, 3426, 1905, 1907, 1902, 1931, 1985,
- 0, 3298, 0, 2043, 1910, 3451, 1577, 3450, 1915, 2732,
- 2729, 1577, 1926, 1923, 2955, 3439, 0, 1952, 0, 1986,
- 0, 2726, 2726, 2726, 2726, 0, 2052, 2045, 0, 0,
- 2073, 2094, 2062, 2794, 2081, 2063, 2070, 2071, 0, 1577,
- 2810, 2812, 2815, 2813, 2814, 2816, 2817, 2818, 2819, 2808,
- 3342, 2850, 2811, 2803, 2807, 2805, 2806, 2802, 2804, 2795,
- 2796, 2809, 2798, 0, 0, 2192, 2191, 2102, 2097, 2114,
- 2112, 2950, 0, 2132, 3444, 2120, 2119, 2143, 2144, 2153,
- 0, 2173, 1989, 1295, 1324, 1292, 1374, 1309, 1308, 1373,
- 1375, 1397, 1376, 1360, 1443, 1477, 1393, 1422, 1396, 1419,
- 1465, 1368, 1391, 1387, 1394, 1417, 1463, 1294, 1297, 1404,
- 1401, 1293, 1400, 1399, 1449, 1321, 1403, 1322, 1478, 1326,
- 1386, 1415, 1412, 1439, 1430, 1467, 1266, 1440, 1450, 1413,
- 1348, 1350, 1349, 1416, 1451, 1452, 1453, 1454, 1312, 1313,
- 1442, 1405, 1407, 1406, 1411, 1346, 1427, 1320, 1429, 1436,
- 1437, 1328, 1330, 1441, 1333, 1272, 1425, 3327, 1371, 1347,
- 1319, 1289, 1448, 1288, 1291, 1290, 1446, 1438, 1414, 1398,
- 1459, 1434, 1435, 1370, 1456, 1457, 1458, 1447, 1462, 0,
- 1323, 1424, 1420, 1423, 1455, 1410, 1421, 1329, 1362, 1392,
- 1388, 1384, 1395, 1418, 1460, 1461, 1428, 1331, 1332, 1296,
- 1464, 1325, 1369, 1327, 1408, 1409, 1445, 1361, 1363, 1265,
- 1334, 1351, 1372, 1444, 1476, 1402, 1385, 1426, 1367, 1390,
- 1389, 3327, 1225, 1240, 1241, 1242, 1243, 1244, 1245, 1246,
- 1247, 1248, 1249, 1250, 1251, 1252, 1253, 1254, 2176, 1482,
- 3327, 3327, 3327, 2177, 1486, 0, 2489, 0, 3031, 3148,
- 3343, 2257, 1217, 1219, 3349, 0, 2258, 2260, 2256, 0,
- 0, 2270, 2266, 0, 2274, 2281, 2278, 2280, 2279, 2282,
- 3380, 2320, 2931, 3014, 2783, 2783, 0, 2316, 0, 0,
- 3013, 2928, 642, 3015, 0, 2782, 2338, 2336, 2368, 2340,
- 3145, 3146, 3401, 2385, 2371, 2373, 2374, 0, 0, 2388,
- 2394, 2391, 2342, 2910, 2403, 2396, 2352, 0, 2425, 0,
- 3439, 2432, 0, 2998, 3003, 3004, 3005, 0, 2473, 2476,
- 0, 0, 0, 2920, 2453, 0, 2452, 0, 0, 3050,
- 2517, 2500, 2506, 3341, 2507, 2502, 2552, 2538, 0, 2541,
- 2542, 2545, 0, 0, 2560, 2554, 0, 2568, 0, 3404,
- 3405, 2574, 2591, 2576, 3299, 0, 2595, 2647, 2633, 2637,
- 1798, 0, 2246, 0, 2246, 0, 2420, 2414, 2422, 2407,
- 0, 2414, 0, 2520, 2526, 0, 2875, 2873, 0, 3038,
- 2699, 0, 2699, 2705, 1574, 1569, 1573, 0, 622, 565,
- 3250, 979, 0, 983, 0, 742, 3132, 626, 0, 776,
- 640, 3307, 3341, 0, 0, 3341, 3307, 3372, 3341, 3282,
- 0, 505, 508, 509, 510, 511, 512, 513, 514, 515,
- 516, 0, 500, 0, 0, 450, 2932, 3382, 3382, 0,
- 458, 2912, 451, 3382, 452, 460, 3382, 453, 462, 3424,
- 3307, 3380, 3380, 0, 0, 225, 228, 231, 0, 3476,
- 3478, 3477, 140, 3060, 3059, 3341, 3341, 143, 46, 0,
- 120, 1518, 1518, 1802, 1803, 1801, 0, 1536, 1536, 0,
- 1523, 2713, 3018, 1714, 3016, 3017, 0, 1698, 0, 0,
- 0, 1718, 3341, 1735, 1736, 1737, 1720, 1722, 3341, 3341,
- 1725, 0, 1766, 3341, 1727, 1731, 1728, 1730, 1732, 0,
- 1760, 1761, 1739, 1742, 3400, 1743, 1764, 1762, 1763, 1729,
- 1733, 3433, 1745, 1734, 1719, 3280, 1740, 1765, 1749, 1702,
- 1738, 1744, 1748, 0, 0, 0, 2991, 0, 1690, 1694,
- 1693, 1684, 1680, 1675, 2713, 3455, 3454, 1672, 1662, 1664,
- 1665, 0, 2713, 3356, 0, 0, 0, 1708, 1670, 1655,
- 1660, 1659, 1669, 0, 1678, 1657, 1677, 1658, 2995, 2994,
- 0, 2969, 0, 2875, 2873, 0, 2875, 0, 3118, 2875,
- 3100, 0, 0, 2900, 2902, 2875, 0, 0, 0, 2875,
- 2974, 2975, 2976, 0, 2904, 0, 2875, 0, 3101, 3380,
- 3048, 2735, 1776, 3052, 2952, 0, 0, 0, 2875, 2897,
- 3142, 1783, 2879, 2878, 2883, 2884, 2885, 2886, 2887, 2888,
- 2889, 2882, 2881, 2891, 0, 1785, 0, 0, 2930, 1796,
- 0, 1813, 1874, 1865, 1868, 0, 0, 0, 2953, 2735,
- 3341, 3153, 3049, 0, 1894, 1896, 3321, 2771, 2353, 2354,
- 1901, 0, 1951, 1976, 1960, 2734, 1578, 2727, 2733, 2728,
- 2730, 2731, 0, 1940, 1939, 1928, 1935, 1937, 0, 3343,
- 2029, 2030, 2031, 2016, 0, 2019, 3341, 3341, 2022, 3315,
- 3343, 2025, 2026, 2032, 2027, 3433, 3341, 2028, 2035, 2033,
- 1932, 1933, 1959, 1954, 1955, 1957, 1958, 0, 1972, 1979,
- 1913, 1914, 1911, 1912, 2726, 0, 2735, 0, 2065, 2081,
- 2072, 1577, 2069, 2090, 2087, 2089, 2088, 2082, 2084, 2091,
- 2076, 2074, 2075, 0, 0, 2849, 2797, 2860, 2861, 2862,
- 2851, 3431, 2868, 2871, 2870, 2872, 2864, 2857, 2859, 2858,
- 2863, 2865, 2867, 2869, 2799, 2852, 2853, 2854, 2855, 2856,
- 2198, 2200, 2199, 0, 0, 0, 1685, 2924, 2132, 2922,
- 3382, 2130, 2926, 3445, 2121, 2145, 2146, 1577, 3431, 2161,
- 2162, 2164, 2166, 2167, 2163, 2165, 2156, 3431, 2152, 3328,
- 3329, 0, 1224, 1481, 0, 1483, 0, 0, 0, 1487,
- 0, 2222, 2206, 2180, 2187, 2188, 2189, 2491, 0, 0,
- 3344, 3345, 0, 1218, 3351, 3350, 3352, 0, 1260, 1383,
- 1344, 1287, 1303, 1354, 1273, 1377, 1352, 1301, 1269, 1382,
- 1469, 1379, 1365, 1298, 1366, 1364, 1335, 1337, 1340, 1299,
- 1353, 1307, 1356, 1305, 1345, 1342, 1258, 1357, 1378, 1267,
- 1311, 1432, 1470, 1281, 1339, 1275, 1282, 1302, 1274, 1358,
- 1472, 1359, 1270, 1318, 1473, 1257, 1264, 1284, 1315, 1316,
- 1285, 1300, 1261, 1262, 1317, 1255, 1338, 1283, 1268, 1474,
- 1341, 1380, 1263, 1468, 1431, 1475, 1433, 1286, 1304, 1336,
- 1256, 1381, 1471, 1271, 1306, 1314, 1280, 1466, 1278, 1279,
- 1355, 1343, 1276, 1277, 1310, 1259, 1223, 1226, 1227, 1228,
- 1229, 1230, 1231, 1232, 1233, 1234, 1235, 1236, 1237, 1238,
- 1239, 0, 2263, 2735, 0, 3439, 2352, 0, 3325, 2318,
- 2308, 0, 0, 0, 0, 651, 647, 650, 649, 648,
- 653, 850, 665, 661, 663, 664, 666, 662, 852, 851,
- 654, 2992, 667, 668, 643, 657, 658, 659, 652, 655,
- 656, 646, 645, 2319, 0, 2342, 0, 2636, 3025, 3026,
- 3027, 0, 0, 2398, 0, 2431, 2637, 0, 0, 0,
- 0, 0, 2474, 3380, 0, 0, 2478, 2477, 2469, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 2455, 2456,
- 3147, 2771, 0, 2549, 2543, 3299, 2544, 0, 0, 2735,
- 0, 0, 3300, 3133, 0, 2549, 2642, 2641, 2352, 3278,
- 1819, 0, 2247, 2237, 0, 2249, 0, 2409, 3446, 3447,
- 0, 2416, 2421, 2413, 0, 2525, 3419, 3419, 2876, 2877,
- 3062, 0, 0, 0, 2700, 2650, 0, 2702, 2707, 0,
- 1575, 1564, 621, 567, 977, 3250, 984, 1122, 3341, 3282,
- 0, 673, 0, 743, 0, 0, 632, 0, 907, 3435,
- 3341, 3341, 3341, 0, 0, 3406, 0, 875, 760, 0,
- 0, 3289, 0, 3413, 903, 3431, 3341, 3341, 3341, 3282,
- 0, 759, 631, 776, 698, 700, 703, 701, 702, 704,
- 706, 705, 721, 722, 720, 707, 709, 708, 0, 710,
- 711, 712, 713, 714, 715, 716, 0, 723, 724, 725,
- 728, 726, 727, 717, 718, 719, 729, 0, 0, 3289,
- 0, 3308, 0, 0, 3346, 3346, 0, 0, 0, 0,
- 0, 3341, 559, 3283, 560, 0, 2947, 558, 561, 506,
- 507, 0, 292, 3401, 2933, 0, 0, 3487, 3488, 3382,
- 2913, 0, 0, 0, 0, 0, 472, 445, 0, 230,
- 0, 3058, 3058, 144, 49, 0, 121, 980, 32, 32,
- 1800, 1532, 1533, 1539, 0, 1530, 1552, 1553, 0, 3449,
- 2724, 2725, 3448, 1654, 2721, 1756, 2716, 1577, 2719, 2720,
- 1717, 3376, 1711, 3459, 3458, 3461, 3460, 1713, 3376, 3067,
- 1703, 3019, 3020, 0, 0, 0, 1726, 0, 1721, 1759,
- 1747, 3341, 2787, 3434, 2787, 3281, 0, 3325, 3341, 0,
- 0, 0, 0, 1676, 1661, 1663, 2713, 1673, 3357, 1666,
- 1667, 1668, 1709, 3291, 1671, 2997, 2968, 2996, 3152, 0,
- 3113, 0, 3113, 3117, 0, 3113, 3123, 0, 3113, 3113,
- 3113, 0, 3113, 3152, 0, 3113, 0, 1577, 1577, 1771,
- 2741, 2738, 3050, 3051, 2735, 0, 3113, 3113, 0, 3141,
- 1785, 1784, 0, 1781, 1793, 1791, 2783, 1817, 1818, 1814,
- 1816, 1873, 0, 1867, 1870, 0, 1878, 0, 1886, 2357,
- 0, 1577, 1577, 1893, 2772, 2778, 2775, 0, 1986, 1962,
- 1580, 1948, 1949, 1946, 1945, 1947, 1944, 1936, 1938, 1941,
- 0, 2017, 2018, 0, 0, 1491, 1493, 2023, 2024, 0,
- 0, 0, 2787, 2787, 0, 1934, 1956, 1987, 3439, 3439,
- 1916, 0, 2046, 0, 2077, 2080, 2078, 2079, 0, 2794,
- 2086, 2083, 2801, 2800, 2866, 2201, 2204, 0, 2205, 2195,
- 2196, 0, 0, 2103, 1686, 2131, 2923, 0, 1577, 2147,
- 2137, 2141, 0, 0, 2168, 0, 1485, 1484, 1490, 1489,
- 1488, 0, 3055, 2999, 3000, 2223, 0, 2225, 2224, 2226,
- 2208, 2218, 0, 0, 2186, 2492, 2483, 0, 893, 894,
- 3356, 3330, 1222, 1480, 1479, 0, 1220, 2264, 2267, 0,
- 0, 0, 644, 0, 2307, 1577, 0, 2325, 2321, 2326,
- 2322, 2327, 0, 2317, 660, 2324, 2344, 2375, 2343, 1577,
- 2392, 2760, 0, 1577, 2771, 2399, 0, 0, 2438, 2437,
- 2436, 2435, 2434, 2454, 2479, 3022, 2480, 3021, 3023, 3024,
- 0, 2466, 0, 2471, 2458, 2459, 2460, 2464, 2461, 2465,
- 2462, 2463, 2457, 3148, 2515, 0, 2513, 2508, 0, 2501,
- 3484, 3483, 0, 2744, 0, 0, 3152, 3152, 2555, 0,
- 0, 3134, 2579, 2580, 0, 2583, 2586, 2588, 2584, 2398,
- 3279, 0, 1820, 2060, 2059, 2789, 2251, 2794, 1577, 0,
- 2410, 2417, 3420, 2529, 2529, 2874, 3063, 0, 2789, 0,
- 2709, 0, 0, 1576, 566, 622, 981, 0, 1123, 488,
- 928, 929, 693, 695, 694, 688, 692, 690, 691, 687,
- 689, 686, 940, 934, 936, 937, 3341, 744, 670, 971,
- 972, 3436, 0, 0, 0, 0, 756, 757, 758, 3313,
- 0, 3407, 901, 732, 3035, 879, 0, 873, 762, 0,
- 730, 3290, 0, 751, 3414, 904, 905, 902, 0, 0,
- 0, 0, 0, 0, 0, 1097, 1093, 1094, 699, 782,
- 3410, 3410, 3410, 3410, 3410, 783, 785, 786, 787, 790,
- 791, 792, 793, 795, 794, 797, 834, 831, 829, 830,
- 832, 833, 796, 3431, 803, 798, 835, 799, 839, 837,
- 814, 815, 813, 817, 818, 816, 836, 770, 788, 789,
- 686, 932, 922, 930, 740, 973, 3299, 745, 737, 3164,
- 3164, 0, 676, 0, 641, 528, 556, 3479, 3480, 2942,
- 537, 2940, 3471, 3470, 530, 2944, 2943, 3366, 3303, 3325,
- 0, 3341, 534, 533, 3341, 562, 294, 3372, 3356, 3401,
- 3431, 359, 3466, 3467, 398, 0, 3356, 3341, 3301, 3356,
- 400, 0, 3439, 381, 380, 3341, 3341, 296, 297, 302,
- 307, 316, 304, 363, 305, 308, 0, 309, 0, 299,
- 397, 300, 301, 306, 303, 298, 310, 311, 312, 313,
- 314, 315, 293, 0, 3295, 3346, 455, 456, 0, 459,
- 461, 464, 465, 468, 473, 470, 232, 233, 3061, 145,
- 146, 478, 157, 1519, 33, 0, 0, 1534, 3341, 0,
- 1549, 1540, 1545, 1537, 1538, 1554, 2714, 2722, 1577, 1757,
- 1758, 3033, 2715, 2717, 2723, 3377, 0, 0, 1751, 1723,
- 2990, 1724, 2041, 2040, 1750, 0, 1753, 0, 1752, 1754,
- 0, 0, 1689, 1688, 0, 1692, 1691, 1674, 3341, 1656,
- 1704, 1706, 2735, 3129, 3098, 3131, 3099, 3113, 3092, 3127,
- 3095, 3096, 3097, 3125, 3094, 3166, 3120, 3121, 3091, 2953,
- 2743, 2740, 2736, 2742, 2737, 2739, 3049, 1772, 3114, 0,
- 3089, 3090, 3143, 3006, 3007, 1782, 1786, 1798, 0, 1871,
- 3155, 0, 2777, 2780, 2773, 2779, 2774, 2776, 1903, 1977,
- 3343, 3343, 3343, 3343, 0, 1961, 1963, 1964, 0, 2037,
- 2020, 2021, 1492, 1494, 3380, 2036, 2039, 2038, 2034, 2005,
- 2002, 3353, 0, 3284, 2001, 2004, 1995, 1973, 1991, 1997,
- 1998, 2008, 1999, 1993, 2012, 2013, 0, 1980, 2735, 2905,
- 2735, 2905, 2085, 2092, 0, 2197, 2202, 2104, 0, 2133,
- 2140, 2145, 2154, 2157, 2158, 3313, 3428, 2150, 3431, 2155,
- 0, 0, 2219, 2221, 0, 2214, 2228, 2215, 2216, 2207,
- 2210, 2228, 0, 3003, 2493, 3341, 2487, 0, 3331, 2490,
- 0, 2735, 3391, 3391, 0, 2283, 2284, 2784, 2312, 2314,
- 2315, 2311, 0, 0, 3382, 0, 2363, 2345, 2358, 2351,
- 2347, 2360, 0, 1577, 1577, 2372, 2381, 2378, 2762, 2753,
- 2761, 2754, 2759, 2397, 2400, 0, 2427, 2428, 3358, 2433,
- 3380, 3380, 2470, 2514, 2505, 2509, 2510, 2511, 2512, 2503,
- 1577, 1577, 2539, 2750, 2747, 3341, 2547, 2546, 2548, 2735,
- 3166, 2735, 0, 3133, 2582, 3325, 2789, 3325, 2744, 2643,
- 2640, 2639, 3360, 1827, 3325, 2238, 2671, 0, 1577, 2415,
- 1577, 2418, 2527, 2530, 2528, 3064, 2651, 2708, 3439, 0,
- 2706, 1571, 570, 568, 0, 622, 978, 622, 3250, 0,
- 0, 941, 938, 0, 0, 669, 906, 962, 963, 964,
- 965, 966, 961, 967, 960, 959, 957, 958, 968, 3314,
- 755, 2821, 970, 2820, 2822, 0, 0, 731, 733, 3325,
- 871, 3429, 876, 3429, 0, 3382, 766, 761, 765, 969,
- 735, 0, 3036, 769, 773, 0, 772, 771, 3435, 0,
- 3341, 0, 908, 3282, 909, 913, 922, 0, 1099, 1095,
- 3411, 828, 827, 820, 819, 826, 825, 824, 823, 822,
- 821, 784, 0, 0, 800, 0, 802, 0, 3431, 912,
- 923, 931, 0, 739, 0, 0, 738, 736, 3301, 862,
- 863, 680, 679, 684, 0, 518, 0, 555, 2941, 3367,
- 539, 0, 521, 3415, 548, 550, 554, 553, 549, 551,
- 547, 552, 0, 0, 3341, 3341, 3356, 344, 401, 3341,
- 3401, 3341, 3341, 3341, 3341, 420, 3286, 421, 0, 0,
- 0, 3341, 3372, 3341, 3296, 0, 0, 457, 466, 0,
- 467, 0, 0, 0, 484, 485, 486, 477, 479, 0,
- 482, 476, 158, 0, 28, 31, 0, 3341, 1544, 1550,
- 0, 1555, 1524, 2718, 1715, 1716, 1741, 3472, 3473, 2788,
- 1755, 1746, 1687, 0, 1705, 1773, 3093, 3333, 3168, 3115,
- 1819, 1875, 2356, 2355, 3439, 0, 0, 0, 0, 1970,
- 1965, 3316, 3355, 3354, 0, 1994, 3343, 1992, 2007, 2006,
- 2009, 0, 0, 2000, 2048, 0, 2047, 0, 2194, 0,
- 2193, 1942, 2105, 2107, 2108, 1577, 2159, 0, 0, 2228,
- 3001, 3002, 2228, 0, 3337, 3337, 2213, 2229, 2230, 2211,
- 2217, 2212, 0, 0, 2496, 364, 0, 0, 2486, 3332,
- 1221, 2268, 3392, 423, 424, 425, 0, 2304, 3443, 2302,
- 2303, 2301, 3442, 2275, 2285, 2286, 2288, 0, 0, 2313,
- 2309, 2328, 2330, 0, 2348, 3341, 2771, 2346, 2359, 0,
- 0, 0, 2362, 2383, 2380, 2376, 2382, 2377, 2379, 2401,
- 3359, 2439, 0, 0, 2752, 2749, 2745, 2751, 2746, 2748,
- 0, 2557, 3168, 2556, 2571, 2581, 0, 2585, 0, 2577,
- 1577, 1577, 2634, 2645, 2768, 2765, 2644, 3361, 3362, 2638,
- 1821, 1822, 0, 0, 0, 2671, 3380, 2241, 2252, 2411,
- 2419, 2654, 0, 0, 2596, 1570, 0, 571, 569, 982,
- 985, 3250, 939, 0, 935, 942, 943, 0, 0, 683,
- 3380, 678, 681, 671, 2838, 2840, 2843, 2841, 2842, 2844,
- 2845, 2846, 2847, 2837, 2839, 2832, 2836, 2834, 2835, 2831,
- 2833, 2824, 2825, 0, 2828, 2827, 2993, 0, 0, 0,
- 873, 3430, 0, 874, 877, 864, 0, 0, 0, 754,
- 752, 753, 842, 953, 0, 2875, 926, 917, 911, 916,
- 914, 0, 0, 919, 910, 1098, 0, 1096, 801, 1208,
- 1204, 1205, 1198, 1202, 1210, 1196, 853, 1203, 1195, 860,
- 1201, 808, 1197, 1199, 1200, 1209, 805, 807, 1206, 809,
- 1207, 804, 812, 811, 840, 838, 3429, 0, 741, 974,
- 0, 747, 750, 749, 746, 3165, 685, 529, 520, 519,
- 517, 557, 538, 3303, 526, 535, 532, 536, 531, 0,
- 0, 3341, 347, 346, 322, 345, 0, 400, 396, 0,
- 403, 0, 0, 3287, 3288, 419, 422, 3303, 0, 0,
- 3341, 0, 399, 426, 0, 469, 234, 3341, 3341, 0,
- 480, 483, 1528, 1541, 1542, 1546, 0, 1547, 0, 1559,
- 1707, 3334, 0, 3333, 2735, 1831, 1978, 1969, 1968, 1966,
- 1967, 2015, 0, 3343, 2010, 2011, 2735, 2735, 0, 2098,
- 1943, 2106, 2139, 0, 2169, 2209, 2220, 2228, 3338, 0,
- 0, 2231, 2232, 3341, 2494, 0, 0, 2484, 3341, 3341,
- 365, 2488, 2299, 3393, 2296, 2298, 2297, 2290, 2295, 2287,
- 0, 2293, 2291, 2292, 2289, 0, 0, 2350, 0, 2341,
- 2366, 2760, 2757, 2365, 2349, 2361, 2467, 2468, 2550, 2735,
- 2587, 2589, 2767, 2770, 2763, 2769, 2764, 2766, 1823, 1824,
- 0, 1825, 2961, 2960, 3034, 1829, 1828, 1830, 2790, 2241,
- 0, 0, 2726, 2662, 2655, 2656, 0, 0, 2710, 2711,
- 3341, 2604, 1572, 573, 987, 1124, 0, 947, 946, 948,
- 3341, 0, 2826, 2830, 2829, 734, 880, 872, 0, 881,
- 3382, 3382, 883, 764, 3341, 768, 767, 3380, 843, 841,
- 0, 0, 0, 951, 0, 921, 0, 918, 0, 915,
- 1100, 854, 855, 859, 858, 857, 856, 806, 861, 810,
- 924, 925, 748, 0, 0, 540, 541, 542, 543, 0,
- 524, 3324, 528, 0, 352, 353, 351, 350, 429, 0,
- 336, 337, 338, 332, 333, 327, 339, 340, 328, 0,
- 341, 342, 331, 329, 330, 335, 334, 0, 321, 325,
- 326, 323, 430, 402, 0, 410, 418, 431, 432, 2935,
- 0, 3341, 0, 0, 3058, 3058, 481, 1551, 1543, 1535,
- 0, 1559, 1580, 0, 0, 1774, 1840, 3339, 2014, 0,
- 2050, 2049, 2203, 2160, 2227, 2234, 2233, 0, 2497, 3341,
- 0, 0, 366, 3394, 2294, 2300, 0, 2331, 2985, 2984,
- 2986, 0, 2364, 2755, 2756, 2758, 2558, 1826, 2239, 2672,
- 2673, 3341, 2242, 2243, 2245, 2250, 3341, 2666, 2657, 2661,
- 0, 2660, 2658, 2712, 0, 3292, 2631, 2630, 2605, 2597,
- 2598, 3280, 2599, 2600, 2601, 2602, 0, 0, 0, 3321,
- 986, 1126, 3438, 0, 945, 0, 682, 882, 883, 0,
- 0, 3299, 868, 888, 889, 890, 3356, 887, 0, 847,
- 844, 848, 955, 954, 956, 0, 952, 927, 920, 546,
- 545, 3291, 3382, 522, 3303, 527, 410, 0, 3319, 3489,
- 3490, 318, 317, 0, 407, 406, 405, 408, 404, 3341,
- 412, 355, 414, 2936, 378, 387, 394, 387, 383, 0,
- 0, 427, 147, 148, 3250, 0, 1580, 0, 3169, 1577,
- 1577, 1797, 1847, 1843, 1577, 3380, 3340, 1834, 1839, 1838,
- 1833, 0, 1996, 2495, 0, 367, 368, 2987, 2988, 2989,
- 2329, 2726, 2674, 0, 2244, 0, 3380, 2677, 2659, 2703,
- 0, 3417, 2628, 2625, 2626, 0, 3382, 574, 572, 3257,
- 3337, 989, 988, 0, 1130, 1125, 1127, 0, 949, 944,
- 870, 883, 878, 3058, 884, 891, 3341, 0, 763, 849,
- 845, 950, 3044, 3046, 0, 0, 524, 3135, 320, 343,
- 319, 413, 357, 3135, 356, 411, 0, 3368, 385, 390,
- 0, 386, 0, 384, 371, 428, 34, 3341, 1556, 3167,
- 1849, 1846, 1841, 1848, 1842, 1844, 1845, 0, 1832, 2498,
- 0, 0, 2240, 2676, 2675, 2664, 0, 3380, 2687, 2726,
- 0, 3418, 0, 0, 2629, 2627, 2623, 2622, 2621, 0,
- 595, 0, 0, 0, 1131, 0, 1128, 869, 897, 898,
- 900, 3058, 886, 3045, 544, 525, 523, 355, 0, 3341,
- 409, 416, 417, 415, 3369, 0, 393, 395, 0, 0,
- 1835, 3341, 3341, 3341, 2663, 2667, 2668, 3341, 0, 0,
- 2652, 2704, 2624, 3465, 3464, 3395, 2914, 0, 2617, 2611,
- 2612, 2614, 3341, 0, 0, 0, 0, 576, 596, 597,
- 578, 606, 990, 1136, 1137, 0, 1129, 899, 892, 2937,
- 360, 3137, 0, 0, 0, 1548, 1557, 0, 0, 0,
- 2669, 0, 2678, 2679, 3341, 0, 0, 2688, 2689, 2691,
- 2726, 3396, 3382, 2915, 2620, 2615, 2618, 0, 2613, 3341,
- 0, 0, 3341, 3341, 3341, 3341, 598, 0, 3371, 0,
- 3422, 0, 575, 579, 581, 580, 0, 0, 0, 0,
- 0, 0, 0, 577, 607, 609, 608, 0, 0, 0,
- 1191, 0, 1134, 1193, 2938, 0, 354, 3136, 358, 0,
- 3474, 3475, 391, 0, 369, 370, 2665, 2670, 2680, 0,
- 2684, 2686, 2685, 2682, 2682, 2696, 2692, 3086, 3087, 3084,
- 3085, 2693, 2697, 2690, 2653, 0, 2619, 2616, 0, 0,
- 604, 0, 0, 0, 0, 3341, 3341, 3341, 3341, 3341,
- 582, 0, 3341, 3341, 3341, 3341, 3341, 3341, 3341, 3341,
- 3341, 3341, 3341, 610, 0, 3341, 0, 3341, 1161, 3341,
- 1148, 1149, 1150, 1141, 3435, 1142, 3376, 3376, 3341, 3341,
- 3343, 3315, 3341, 0, 1166, 1158, 1145, 1159, 3376, 3343,
- 1146, 0, 0, 1157, 1168, 1165, 1160, 1163, 3343, 1147,
- 1162, 0, 1169, 1156, 3341, 0, 3341, 1185, 1179, 0,
- 1183, 1182, 1180, 1138, 1184, 0, 1186, 1181, 1164, 1151,
- 0, 3376, 1194, 1212, 1211, 3147, 0, 391, 388, 392,
- 1558, 2681, 2695, 2683, 2694, 0, 2610, 2607, 2609, 2608,
- 2603, 2606, 599, 3429, 603, 601, 605, 600, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 994, 3258, 3346,
- 3346, 3363, 993, 997, 998, 1027, 0, 0, 0, 0,
- 1139, 1140, 1174, 3341, 1172, 3341, 0, 0, 0, 1143,
- 1144, 0, 1188, 1170, 0, 3429, 3341, 0, 1189, 0,
- 1187, 1192, 778, 779, 780, 781, 774, 1190, 1517, 1173,
- 1137, 3147, 0, 241, 242, 362, 389, 2698, 895, 591,
- 587, 588, 592, 590, 0, 593, 583, 589, 584, 585,
- 586, 615, 611, 612, 616, 614, 0, 613, 3505, 3506,
- 3346, 3346, 0, 991, 995, 3341, 1003, 999, 1001, 1002,
- 1004, 1006, 1178, 1513, 1509, 1175, 1176, 1154, 1155, 1177,
- 1171, 1506, 1516, 0, 1153, 1152, 775, 1191, 361, 602,
- 896, 0, 0, 3364, 3365, 3069, 1014, 1009, 3360, 1013,
- 3068, 1012, 0, 1028, 0, 1000, 1005, 1501, 1498, 1502,
- 1499, 1514, 1497, 1515, 1500, 0, 1510, 1511, 0, 1507,
- 1505, 1503, 1504, 1167, 0, 617, 1007, 3361, 3362, 1008,
- 1011, 0, 0, 1029, 638, 996, 1512, 1508, 0, 0,
- 3341, 3341, 0, 3341, 1015, 1016, 1017, 1018, 1019, 1020,
- 1010, 0, 1031, 3259, 1032, 0, 3492, 3491, 3341, 0,
- 0, 3494, 0, 3341, 3341, 0, 776, 0, 0, 1026,
- 1022, 3493, 0, 0, 1021, 1087, 3453, 3452, 3335, 3376,
- 3282, 3341, 0, 1086, 3341, 3380, 3341, 1037, 1039, 1038,
- 1040, 1049, 1041, 1043, 0, 1046, 1033, 1034, 1035, 1045,
- 1047, 0, 1050, 1036, 1104, 1042, 0, 1044, 1048, 1030,
- 3456, 3457, 3376, 0, 1023, 1025, 1024, 3336, 1121, 3379,
- 3378, 3346, 1103, 0, 873, 0, 0, 0, 933, 3374,
- 3374, 0, 0, 1106, 1101, 1104, 0, 1496, 1108, 1116,
- 1117, 0, 1119, 1110, 594, 1102, 1074, 1072, 1073, 1068,
- 1071, 0, 1069, 3429, 3152, 1076, 2972, 3496, 0, 0,
- 3498, 3500, 0, 3504, 3502, 1051, 1056, 3384, 3384, 1053,
- 1057, 1052, 1058, 3375, 1088, 1088, 3374, 3374, 1081, 1105,
- 1107, 1118, 1115, 1114, 1112, 1113, 3346, 1111, 1070, 877,
- 1120, 3382, 0, 1075, 2973, 3495, 3499, 3497, 3503, 3501,
- 3386, 3385, 1059, 1064, 1092, 1090, 1082, 1088, 1091, 1084,
- 0, 0, 1109, 866, 0, 1078, 1062, 1054, 1062, 1067,
- 1062, 1055, 1062, 1089, 1083, 1085, 0, 865, 1080, 1077,
- 1079, 0, 1061, 1060, 1066, 1065, 867, 1063
-};
-
- /* YYPGOTO[NTERM-NUM]. */
-static const yytype_int16 yypgoto[] =
-{
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, 3625, -4283, -4283,
- -4283, -4283, -4283, -4283, -116, -4283, 572, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, 1115, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, 2645, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, 3594, 3466, 1233,
- -4283, -4283, -4283, 3312, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, 3639, -4283, -4283, -4283,
- 2403, -4283, -4283, 3564, -4283, 1827, -4283, -4283, -4283, -4283,
- -4283, -4283, 3361, 1344, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, 3445, -4283, 593, -4283, -4283, -4283, 3363, -4283, 1146,
- -4283, -4283, 3573, -4283, -4283, -985, -4283, -4283, 3336, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, 2865,
- -4283, 2453, -4283, -4283, -763, -4283, 3513, 3153, -4283, -4283,
- -4283, 3368, -4283, -4283, -4283, -4283, 3465, -4283, -4283, 3156,
- 2365, -4283, -4283, -4283, 2391, -4283, 2426, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -640, -4283, -4283,
- -4283, -4283, -4283, 1185, -4283, -4283, -2368, -4283, -4283, -4283,
- -4283, -4283, -488, -877, -2977, -4283, -4283, 222, -4283, -4283,
- -4283, -4283, -4283, -465, -4283, -4283, -4283, -573, -4283, -4283,
- -4283, -4283, 219, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, 3176, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, 634, -4283, -4283, -4283, -4283, 2860, -4283, -4283, -4283,
- 198, -2122, -4283, -4283, -4283, -4283, 3653, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -556,
- -4283, -301, -4283, -4283, -4283, 239, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -720, -4283, -4283, -4283, -664, -4283, -4283,
- -729, -4283, -4283, -4283, -4283, -1650, -4283, -4283, 2946, -4283,
- -3367, -4283, -3455, -736, -4283, -1052, 1430, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -2621, -4283, -4283, -4283,
- 353, -2220, -4283, -4283, 1268, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, 1945, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -3074, -4283, -4283, -4283, -4283,
- -1074, -4283, -1073, -1476, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, 1256, 1257, -4283, -4283, -2793, -4283, -4283, -4283,
- -4283, -4283, -3553, -4283, -1193, -4283, -4283, -3640, -4283, -530,
- -417, -4283, 1562, -4283, -3812, -4283, -595, -2637, -4283, -4283,
- -2509, -4283, -4283, -4283, 320, -4283, -4283, -4283, -2749, 315,
- 324, -4283, -1058, -2808, -2413, -4283, -4283, -4283, -4283, -4283,
- 845, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, 1204, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -955, -2211, -4283,
- -4283, -1017, -2071, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -2303, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -2469, -4283,
- -1051, -4283, 810, -4283, -4283, -4283, -4283, -1114, -4283, -4283,
- -4283, -4283, -4283, -4283, -1121, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -494, -4283, -4283, -4283, -905, -4283, -4283,
- -4283, -4283, -628, -4283, 3042, -4283, -817, -1595, -4283, -740,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, 2143, 2712, 473, -771, -768, -4283,
- -2467, -4283, -942, -4283, -4283, -4283, -4283, -774, -4283, -806,
- -4283, -4283, -4283, 1928, -4283, -4283, -4283, -4283, -4283, -4283,
- -73, -4283, -4283, 1924, 118, -4283, -4283, 99, 684, -4283,
- -4283, -283, -4283, -4283, -4283, -4283, -1785, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -1239, -4283, -4283, -163,
- -4283, 3505, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -811, -1621, -4283, 2506, -4283, 2501, -4283, 649,
- -4283, -753, -4283, -4283, -4283, -4283, -1101, -4283, -4283, 659,
- 2498, -1253, 1903, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, 1804, 1141, -4283, -4283, -4283, 2867, -4283, -4283,
- -4283, -4283, -4283, -1594, -4283, -4283, 1477, -4283, -4283, -4283,
- -4283, 244, -4283, -4283, 117, -4283, -4283, -1102, -4283, -4283,
- -4283, -415, -4283, -412, -4283, -4283, -4283, -4283, -4283, 2861,
- -4283, -4283, -4283, -4283, 2444, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, 3090, -4283, -4283,
- -4283, -4283, -4283, 2392, -4283, 2816, -4283, -4283, 2420, -4283,
- -4283, 1759, -4283, 228, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, 1737, -4283, -4283, -4283, -4283, 615, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, 2812, 1137, 3089,
- -2486, -2860, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -1865, -2600, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, 2395, -4283,
- -4283, -1107, 2397, -4283, -4283, 2393, -4283, 1718, 1107, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, 246,
- -4283, -4283, -4283, 2798, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, 1691, -4283, -4283, -4283, -4283, -1297, -4283,
- -4283, -4283, 589, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, 590, 2366, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, 2774, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -2548, -4283, -4283, 1662, -4283, -4283, 578,
- -4283, 1078, -4283, -4283, -2831, 241, 243, -4283, -4283, -4283,
- -4283, -4283, -4283, -106, -4283, -271, 2088, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, 2770, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, 220, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -3598, 1547, -4283, -4283, -4283,
- 565, -4283, -4283, -4283, -4283, -4283, 2811, 2765, -4283, -4283,
- -4283, 1515, -4283, -4283, -4283, -1427, 1056, -4283, -4283, 566,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- 556, -4283, 559, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, 997, -1911, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, 2096, -4283, 987, -4283,
- 2103, -4283, -4283, -4283, -4283, -4283, -4283, -4283, 2165, -4283,
- -4283, -4283, -4283, -4283, -4283, -124, -4283, -4283, -4283, -4283,
- 1496, -4283, -4283, -4283, 2753, -4283, 2760, -4283, -4283, -4283,
- -4283, 3125, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, 994, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- 2154, -4283, -4283, 1484, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, 545, -4283, 1494, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283,
- -4283, -4283, -4283, -499, -4283, -4283, -4283, -4283, -4283, -4283,
- -359, -4283, -4283, -4283, -4283, 1043, 1539, 1552, -4283, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -4283, -64, -4283,
- -4283, -4283, -4283, -4283, -477, 208, -4283, -217, -4283, -4283,
- -518, -589, -3875, -4283, -4283, -521, -4283, -4283, 2129, -4283,
- -4283, -4283, -4283, -4283, -4283, -4283, -4283, -1558, -4283, 1339,
- -4283, -4283, 1334, -4283, -1303, -4283, 2504, -4283, 2508, -1805,
- -4283, 1265, -4283, 1269, 575, -4283, 592, -4283, 595, -4283,
- -4283, -4283, -2613, -6, -2168, -4283, -4283, 248, -4283, 247,
- -2196, 580, -4283, 1244, -4283, 1249, 2986, -1467, 3187, -319,
- -2488, -2239, -596, -1248, -4283, -4283, 2480, -2089, -4283, -4283,
- -4283, -4283, 204, -4283, -1363, -1364, -2001, 1092, 1093, 1096,
- 1099, 1242, -1823, -584, 1394, 1935, -4283, 1640, 4344, -1129,
- -615, -697, 3184, 2788, -1116, -4283, -257, 1398, -722, -4283,
- -979, -4283, 1801, -4283, -552, -4283, 2589, 477, -142, -4283,
- -4283, -1185, -4283, 934, -2502, -46, 1431, 3612, -604, -603,
- -4283, -597, 1156, 10, -3271, 538, -4283, -1144, -3269, -4283,
- -4283, 129, -4283, 38, -4283, 1600, -1034, -1980, -2867, -2758,
- -4283, -688, 2606, -4283, -2423, -1827, -2940, -251, -586, -683,
- -744, -583, 3215, -2560, -4283, -2788, 513, 3818, -741, -4283,
- -4283, -310, -4283, -2036, -4283, -4283, -2836, 71, -2744, -4283,
- 1426, -769, -789, -175, 3117, -3084, -2249, 3138, 73, -223,
- 3905, -314, -627, -662, -4283, -4283, -4283, -1146, 3075, -4283,
- -4283, -4283, -4283, 1435, -4283, -4283, 2184, -4283, -309, -4283,
- -4283, -4283, -4283, 1609, -4283, -2527, -4283, 1308, 973, 654,
- 326, -4283, -4283, -4283, -45, -680, -248, 2786, -4283, -541,
- -816, -751, -4283, -4283, -4283, -1728, -4283, -139, -2364, 780,
- -4283, 1490, -1957, -4283, -4283, -4283, -1681, -1739, -1112, -1772,
- -273, -4283, -4283, 749, -4283, -4283, -182, -184, -4283, -2087,
- 971, -4283, 132, -4283, -3308, -4283, -28, -1973, -2408, -4283,
- -4283, -2604, -4283, -739, -4283, -4283, -4283, 3136, -1692, -2478,
- -2479, -854, -814, -726, -904, 3654, 736, -4283, -4283, 3647,
- -4283, -840, -4283, -4283, -4283, -154, -4283, 540, -4283, 1607,
- -2246, -4283, -4283, -4283, -3248, -677, 1950, 598, -4283, -215,
- -4283, -4283, 903, -4283, -1746, -4283, -1271, -4283, 2148, -4283,
- -4283, -4283, -674, -4283, -719, -451, -4283, 2228, 1486, -4283,
- -4283, 186, -4283, -4282, -844, -4283, -4283, -4283, -4283, -4283,
- -4283
-};
-
- /* YYDEFGOTO[NTERM-NUM]. */
-static const yytype_int16 yydefgoto[] =
-{
- -1, 1, 2, 4, 5, 6, 18, 19, 7, 8,
- 20, 21, 126, 127, 128, 182, 131, 185, 22, 837,
- 1831, 23, 838, 1832, 3075, 3503, 10, 11, 53, 121,
- 179, 576, 577, 834, 836, 1249, 13, 46, 141, 24,
- 25, 42, 26, 38, 39, 40, 41, 124, 247, 181,
- 243, 345, 346, 347, 14, 44, 45, 137, 62, 140,
- 255, 190, 587, 29, 30, 31, 1251, 48, 49, 50,
- 51, 91, 92, 93, 2525, 94, 217, 307, 559, 95,
- 214, 292, 293, 294, 295, 296, 549, 1243, 297, 298,
- 1239, 299, 3501, 96, 215, 304, 305, 306, 554, 97,
- 98, 99, 100, 101, 175, 102, 228, 573, 229, 230,
- 103, 201, 273, 525, 526, 274, 275, 1223, 1231, 1224,
- 1225, 1226, 2518, 3066, 2706, 4655, 203, 177, 104, 105,
- 312, 313, 314, 830, 106, 219, 220, 107, 530, 531,
- 3494, 109, 224, 326, 3495, 535, 3496, 112, 113, 114,
- 115, 116, 117, 169, 69, 70, 71, 148, 200, 270,
- 512, 1794, 2502, 2503, 3027, 3028, 4027, 4028, 4029, 4030,
- 4031, 3804, 3805, 1206, 3029, 4007, 3030, 4263, 4264, 4329,
- 3031, 4446, 3032, 2745, 3585, 3034, 240, 3035, 3036, 3037,
- 3038, 4178, 4268, 4568, 4269, 4271, 3039, 3040, 3041, 3042,
- 4034, 4168, 3043, 4171, 4172, 4265, 4266, 4331, 3044, 3045,
- 3476, 3046, 3255, 3047, 3823, 3048, 3049, 3050, 3051, 271,
- 272, 517, 518, 519, 520, 799, 521, 522, 523, 792,
- 3061, 3062, 3490, 524, 794, 1812, 1252, 3072, 3497, 3498,
- 3499, 3500, 64, 264, 65, 66, 2527, 143, 144, 196,
- 265, 266, 776, 267, 1185, 1781, 1782, 3790, 1783, 4153,
- 4002, 3445, 1784, 1785, 3004, 3796, 1786, 1787, 3792, 3995,
- 3996, 3997, 3998, 1788, 3460, 3461, 1789, 3447, 1790, 1791,
- 2497, 757, 758, 2403, 2864, 3343, 3344, 3345, 3943, 4119,
- 4227, 4422, 4423, 4424, 4425, 4367, 4368, 4369, 4433, 4434,
- 4435, 4436, 504, 505, 1758, 506, 507, 762, 763, 1769,
- 764, 1180, 1181, 221, 2479, 2970, 2304, 2305, 2306, 2307,
- 2308, 765, 3355, 766, 1764, 1174, 767, 1765, 2982, 3691,
- 3442, 2971, 2442, 2443, 2444, 2445, 2446, 3377, 3378, 2447,
- 2448, 3437, 2449, 3433, 2412, 2450, 2451, 3435, 3784, 2452,
- 3391, 3730, 2453, 2899, 2454, 2455, 2908, 3387, 3727, 3966,
- 2456, 2457, 4548, 4549, 4646, 2967, 3426, 3424, 3397, 3969,
- 3970, 4250, 2309, 2310, 3987, 3989, 2459, 3388, 4811, 4947,
- 2460, 3720, 3383, 2906, 3962, 3380, 4128, 4132, 4247, 4133,
- 4134, 4135, 4136, 4709, 4137, 4318, 4319, 2461, 2462, 2917,
- 2463, 2464, 2465, 3404, 3405, 2466, 3743, 3979, 3400, 3429,
- 3430, 3735, 2410, 2972, 3431, 4815, 2411, 3351, 2883, 2884,
- 2885, 3684, 3685, 3686, 3949, 4124, 2467, 3733, 3972, 2468,
- 3366, 2469, 3364, 2470, 2471, 2472, 2473, 2474, 2475, 1171,
- 1172, 2865, 1762, 1763, 3347, 2407, 2867, 3944, 4120, 4232,
- 4312, 4439, 4507, 4612, 4613, 4687, 4688, 4689, 4690, 4614,
- 4716, 4717, 4718, 4746, 4764, 4765, 4766, 4767, 4768, 4769,
- 4683, 4723, 4774, 4786, 4816, 4817, 4885, 4937, 4952, 4941,
- 4818, 4869, 4870, 4819, 4913, 4949, 4820, 4821, 4926, 4927,
- 2476, 2926, 2927, 3408, 3747, 4823, 4824, 4854, 4855, 4825,
- 4826, 4906, 4907, 4858, 4859, 4860, 4827, 4828, 2869, 3349,
- 4121, 4235, 4236, 4237, 4374, 4375, 4565, 4440, 4553, 4554,
- 4555, 4442, 3773, 4562, 1034, 4650, 1621, 1622, 1623, 1624,
- 2256, 1592, 2257, 1593, 2258, 1594, 2259, 1595, 2260, 1596,
- 2261, 1597, 2262, 1598, 2263, 2264, 1599, 2265, 1600, 2266,
- 1601, 1602, 2267, 1603, 2268, 1604, 1605, 2269, 1606, 2270,
- 1607, 2752, 2142, 1608, 1609, 1613, 1614, 2677, 2678, 4856,
- 4857, 4732, 4733, 4734, 4700, 4741, 4742, 4624, 4738, 4622,
- 4735, 4556, 4557, 2528, 192, 193, 258, 2538, 3839, 194,
- 1257, 1838, 1837, 2531, 2532, 2533, 3080, 3081, 3082, 4049,
- 3510, 1840, 3512, 3838, 4339, 4453, 754, 1153, 1757, 1154,
- 1155, 2400, 3675, 1156, 1157, 2862, 2015, 2016, 2660, 1158,
- 260, 430, 710, 431, 678, 843, 1260, 2593, 844, 845,
- 846, 2713, 1274, 1897, 1898, 1265, 1266, 1267, 3119, 3120,
- 1925, 3196, 1848, 1849, 2552, 2557, 1269, 1889, 3088, 3089,
- 4558, 2049, 1892, 1259, 432, 679, 879, 1298, 1296, 433,
- 680, 896, 1985, 2633, 434, 681, 912, 913, 1987, 435,
- 682, 918, 2636, 840, 1254, 1836, 595, 596, 1989, 1990,
- 2639, 2843, 3323, 3660, 3661, 3662, 4056, 1022, 4200, 4191,
- 4284, 4192, 4282, 4193, 1333, 436, 683, 923, 924, 925,
- 437, 684, 929, 930, 1340, 931, 1336, 2641, 438, 685,
- 934, 1345, 439, 440, 686, 944, 1354, 441, 688, 949,
- 442, 687, 946, 1355, 1358, 443, 689, 956, 2010, 957,
- 444, 690, 968, 969, 970, 971, 1385, 972, 1387, 2050,
- 2025, 2026, 3859, 2027, 2665, 973, 1368, 974, 975, 976,
- 2053, 2054, 977, 2659, 3175, 3176, 3177, 978, 1389, 2688,
- 979, 980, 2658, 3534, 981, 2689, 982, 1370, 2058, 1035,
- 3197, 3198, 3199, 3200, 3201, 3551, 3202, 3203, 3204, 3205,
- 2051, 3101, 1374, 445, 691, 987, 1397, 446, 692, 447,
- 448, 733, 734, 1135, 449, 693, 992, 993, 994, 1405,
- 1406, 1401, 1407, 2071, 2072, 1408, 1409, 2077, 2078, 2700,
- 1402, 450, 695, 1003, 2116, 1004, 1438, 3218, 3561, 3562,
- 451, 696, 1010, 1023, 452, 697, 1011, 453, 698, 1014,
- 454, 699, 1017, 2121, 455, 700, 456, 701, 674, 2126,
- 1448, 2127, 2718, 2720, 457, 702, 1027, 1449, 2136, 2724,
- 3223, 3224, 3225, 3227, 458, 703, 1030, 459, 704, 1036,
- 460, 705, 1039, 1040, 998, 2153, 461, 694, 1436, 2115,
- 2712, 2114, 3560, 2707, 2154, 2743, 2155, 2156, 3239, 3240,
- 2740, 2741, 2742, 3233, 3576, 3577, 3578, 462, 463, 1137,
- 1732, 3665, 4211, 3932, 4092, 4093, 2373, 464, 1138, 1734,
- 3326, 465, 706, 466, 707, 1047, 1628, 467, 708, 1049,
- 468, 709, 1051, 1632, 469, 711, 1055, 1056, 1057, 1639,
- 2276, 3603, 3604, 3894, 3887, 3888, 3605, 3606, 470, 712,
- 1059, 2765, 2766, 3610, 3261, 1644, 1645, 1646, 2768, 2770,
- 2771, 3896, 471, 713, 472, 714, 1065, 4222, 473, 715,
- 1067, 2322, 3266, 3267, 3268, 2007, 2008, 2009, 3617, 3270,
- 3616, 3899, 1659, 474, 475, 716, 1069, 1667, 3275, 3627,
- 3276, 3625, 3277, 1664, 476, 717, 1071, 477, 478, 718,
- 1074, 1671, 479, 719, 1077, 2784, 2785, 1675, 480, 481,
- 482, 738, 1139, 1140, 1736, 1741, 2380, 2848, 2850, 2851,
- 1739, 2382, 483, 720, 1081, 1082, 3286, 1680, 1681, 1083,
- 2326, 3289, 484, 721, 1088, 231, 1697, 1089, 1090, 2348,
- 2349, 1091, 1092, 1093, 1094, 1095, 1096, 1097, 1098, 485,
- 722, 1041, 3244, 1616, 3588, 2157, 2746, 3584, 3877, 486,
- 723, 1107, 2351, 1705, 2815, 2816, 1701, 487, 488, 1143,
- 1743, 3332, 746, 747, 489, 724, 1109, 1110, 1111, 1709,
- 1710, 2356, 3307, 2823, 1707, 490, 725, 1114, 1715, 491,
- 726, 1117, 492, 727, 1118, 493, 728, 1120, 494, 729,
- 1123, 495, 730, 1126, 1725, 2832, 2833, 2365, 2835, 3316,
- 3318, 1723, 496, 731, 1130, 3676, 3941, 4109, 4110, 4111,
- 4580, 4112, 4359, 4360, 4407, 4113, 4308, 4114, 4115, 4223,
- 4224, 4116, 497, 732, 1132, 1669, 2368, 2369, 3652, 1728,
- 498, 499, 1148, 1750, 3671, 4400, 3933, 3934, 3935, 4102,
- 4097, 4344, 4217, 4345, 4346, 3667, 4089, 4090, 4298, 4392,
- 4393, 4572, 4573, 4350, 4397, 4398, 4466, 4471, 2395, 500,
- 1149, 1752, 4299, 2398, 2860, 3339, 3938, 2543, 3092, 2544,
- 2545, 3086, 2546, 2547, 1378, 2019, 1379, 2017, 1380, 2619,
- 3144, 2620, 3142, 2621, 3302, 3638, 3303, 3636, 3304, 2780,
- 3900, 4084, 2781, 3279, 3280, 3653, 3916, 3654, 3914, 3655,
- 2653, 2654, 3166, 2655, 3164, 2656, 1060, 2279, 748, 3106,
- 3325, 1025, 1026, 996, 997, 1429, 1430, 3372, 3373, 3374,
- 3375, 3711, 3712, 2084, 1431, 3714, 2105, 2106, 2107, 2108,
- 2109, 1746, 2391, 1934, 898, 899, 900, 901, 880, 936,
- 1348, 1078, 1079, 1141, 1800, 4304, 1801, 847, 1031, 1100,
- 1101, 2118, 2119, 1443, 1647, 915, 916, 1795, 2996, 4174,
- 4378, 1240, 2990, 2991, 2997, 151, 2498, 315, 1012, 938,
- 1383, 983, 882, 3921, 883, 884, 4875, 1949, 904, 4077,
- 3102, 1899, 2311, 3717, 1930, 2596, 3241, 2731, 3569, 1683,
- 3152, 926, 1127, 1649, 1843, 2560, 2796, 2797, 2317, 1844,
- 1042, 1104, 3103, 3090, 3923, 2903, 3393, 885, 750, 951,
- 4251, 4252, 939, 940, 906, 907, 2733, 751, 1241, 1242,
- 1824, 1146, 1147, 1845, 831, 2562, 4721, 532, 327, 886,
- 329, 330, 4472, 887, 888, 889, 890, 1304, 1283, 1957,
- 1941, 1942, 1953, 1946, 1935, 1937, 768, 2834, 4327, 1328,
- 1971, 2629, 1662, 1625, 779, 1351, 2001, 359, 3439, 3528,
- 3844, 675, 676, 677, 34, 807, 1166, 774, 4228, 4607,
- 4772, 4608, 808, 775, 1168, 501, 2841, 2576, 2494, 1209,
- 3815, 2912, 1270, 1271, 3485, 1372, 2534, 300, 168, 550,
- 2482, 1362, 1893, 3370, 2679, 1204, 1202, 204, 4003, 1061,
- 2141, 3249, 3842, 4838, 3869, 4201, 1433, 2162, 566, 2167,
- 3544, 2589, 3631, 3659, 4682, 3450, 4335, 4427, 187, 4894,
- 4623, 4841, 1192, 795, 4922, 334, 3593, 4074, 4402, 301,
- 1894, 3054, 1721, 2902, 155, 3412, 2478, 540, 4302, 2853,
- 4428, 1810, 1365, 3228, 3722, 2680, 2574, 2892, 3688, 3206,
- 3608, 2124, 2783, 2548, 1381, 4830, 4750, 4832, 4561, 1349,
- 4355, 3055, 284, 2994, 3519, 4452, 1822, 2486, 1342, 2822,
- 891, 2509, 4163, 4778, 4784, 4888, 4889, 4890, 4891, 4892,
- 4618
-};
-
- /* YYTABLE[YYPACT[STATE-NUM]] -- What to do in state STATE-NUM. If
- positive, shift that token. If negative, reduce the rule whose
- number is the opposite. If YYTABLE_NINF, syntax error. */
-static const yytype_int16 yytable[] =
-{
- 232, 328, 984, 567, 1167, 1119, 1927, 119, 1643, 1718,
- 510, 183, 1178, 132, 208, 60, 211, 276, 910, 1891,
- 1072, 216, 1018, 1173, 1175, 1176, 2163, 152, 1182, 2401,
- 1815, 259, 1001, 159, 2566, 1278, 161, 162, 1103, 164,
- 165, 1742, 2769, 2363, 170, 2871, 1227, 1227, 156, 157,
- 158, 1682, 2004, 2973, 1188, 163, 2670, 2085, 1193, 1194,
- 1827, 1196, 1197, 280, 1199, 1200, 536, 2681, 1129, 2104,
- 937, 3122, 3096, 178, 3181, 2924, 2987, 2988, 1802, 3097,
- 1804, 1805, 881, 1807, 1808, 2491, 3135, 561, 2060, 2061,
- 2062, 2063, 1268, 560, 1013, 2549, 897, 995, 1028, 1013,
- 197, 198, 199, 3340, 1189, 1190, 331, 1360, 2402, 1195,
- 2599, 188, 1198, 2601, 3401, 2986, 3406, 1102, 1013, 1343,
- 1210, 1693, 2607, 1043, 3390, 205, 2611, 206, 1115, 914,
- 1292, 212, 213, 2614, 2571, 3724, 2370, 1940, 3745, 1043,
- 3098, 223, 2021, 1300, 3104, 257, 3246, 233, 1958, 1956,
- 261, 2125, 1353, 244, 2782, 2819, 249, 3219, 2549, 251,
- 2079, 1967, 1324, 2669, 3216, 1388, 2549, 3959, 1961, 3281,
- 2081, 3521, 1352, 4652, 3403, 277, 362, 316, 2280, 551,
- 149, -1527, 4939, 3242, -1525, 2685, 149, 337, 1285, 1286,
- 2882, 2763, 508, 310, 2646, 948, 1291, -846, 4358, 563,
- 1403, 1754, 348, 3207, 335, 350, 3993, 252, 575, -3439,
- 2709, 4164, 4506, 920, 2568, 563, -3030, 3882, 287, 1255,
- 1819, 1032, 1302, 511, 4099, 2110, 556, 209, 360, 209,
- 910, 910, 910, 910, 209, 1672, 3925, -3382, -3031, 317,
- 1895, 1326, 1331, 2120, 1311, -3439, 166, 3179, 4849, 2323,
- 3180, 2481, 172, 317, 832, 2388, 4706, -3439, 3185, 1817,
- 773, 2692, 541, 1828, 2164, -3439, 1261, 3870, 2789, 75,
- 2066, -3439, 72, 2790, 2579, 1618, 209, 1064, 234, 2388,
- 2572, 1928, 4195, 4686, 2024, 2362, -623, 1179, 571, 572,
- 1400, 1043, 4486, 2458, 1591, 1833, 77, 579, 1926, 3309,
- 3310, 4850, 2082, -3431, 582, 4499, -2310, 202, 1451, 513,
- 1309, 3264, 2682, 4409, 2362, 3736, 1353, -846, 2091, 1640,
- 933, 4244, 2791, 3259, 75, 4142, 59, 2362, 1375, 1400,
- 1183, 800, 225, 563, 59, 4306, 1699, 3547, 1375, 4642,
- 4643, 2675, 3788, 2676, 3776, -992, 2583, 3547, 1058, 2817,
- 533, 77, 3273, 1064, 2587, 537, 2378, 1749, 2735, -3299,
- 914, 1862, 513, 336, -3439, -992, 816, 2388, 4175, 1713,
- 3336, 841, 4936, 1384, 2559, 2160, 2284, 73, 1001, 2493,
- 351, 2830, 4278, 2539, -3402, 2747, -992, -992, 1610, 3300,
- 2748, 3922, 1375, 759, 3570, 2569, 1717, 302, 1653, 3854,
- 4460, 1019, 332, 122, 3465, 4948, 1635, 548, 1019, 1441,
- 3580, 2536, 3469, 933, 1375, 3473, 3474, 1444, 3322, 36,
- -3382, -3439, 343, 1686, 2378, 1441, 1767, 932, 287, 282,
- 947, -3439, -3301, 1434, -44, 74, 4100, 202, 75, 3001,
- 76, 3247, 3410, -3439, 2915, 3644, 2285, 2286, 2287, 2288,
- -1527, 2289, 2889, -1525, 1080, 3532, -1527, 933, 1068, -1525,
- 87, 1075, 1227, 933, 2736, 77, 1108, 933, 2758, 4203,
- 2637, 1000, 1124, -3439, 3802, 986, 3570, 3980, 202, 4169,
- 4783, 1261, 3078, 910, 2651, 235, -777, -777, 4240, 4903,
- 3110, 1690, 1013, 166, 933, 1375, 4915, 809, 810, 1441,
- 3548, -623, 911, 4940, 2273, -2430, 4219, 1268, 1636, 3402,
- -2430, 2973, 815, 1268, 3967, 59, 4143, 3002, 225, 818,
- 4465, 1755, 16, 833, 17, 3363, 4461, 1637, 3990, -3301,
- 1043, 801, 4791, 2290, 2291, 3472, 552, 1931, 167, 928,
- 1314, 509, 1315, 1316, 1317, 1318, 1319, 1320, 2111, 3803,
- 4170, 2388, -3439, 59, 2828, -1527, 3533, 1062, -1525, -2430,
- 78, 1747, 3411, 2002, 59, 4886, 79, 1435, 2890, 123,
- 1896, 2379, 1312, 2749, 588, -3291, -3301, 1313, 3475, -3291,
- 2388, 89, 2638, 3840, 4571, 2388, 4189, 2359, 3283, -1527,
- -992, -1527, -1525, 4395, -1525, 2388, 3741, 3079, 302, 283,
- 564, 4317, 1998, 533, -3321, 344, 4289, 1377, -3132, 4462,
- 3330, 2150, 4165, 1820, -3346, 3855, 564, 1377, 910, 910,
- 910, 79, 2652, 3248, 318, 910, 910, 910, 1952, 1756,
- 1272, 1952, 2023, 4176, 4644, 1244, 1929, 2388, 318, 2379,
- 1235, 910, 2523, 1952, 910, -992, -3439, 3486, 2710, 3922,
- 910, 910, 910, 910, 910, 910, 910, 910, 910, 910,
- 910, 910, 2896, 2112, 2882, 2165, 3558, 278, -3427, 303,
- 2542, 1377, 1129, 1337, 2825, 527, 921, 4851, 2388, 3242,
- -3078, 2737, 937, 859, 860, 3301, 1638, 910, 1356, 3252,
- -992, 37, 910, 1377, 1020, 1085, 1694, 3274, 2517, -992,
- 4196, 4739, 319, 1945, 1945, 1945, 3867, 2916, 2897, -3439,
- 3265, 318, -3132, -3041, 1611, 2923, 319, 1341, 320, 1966,
- 1928, 2703, 2292, 2293, 2294, 2295, 2296, 2297, 2298, 2299,
- 2300, 3053, 320, 1187, 564, 79, 1021, 3570, 3865, 842,
- 3883, 3866, -3439, 1021, 1016, 1016, 759, 1825, 3926, 3109,
- -3039, 908, 917, 1376, 4233, 1346, 941, 3290, 3291, 3582,
- 2588, 2690, 3234, 3443, 534, 1999, 236, 4131, 941, 1015,
- 2003, 333, 802, 941, 1377, 2014, -3325, 1044, 4314, 2537,
- 862, -777, 863, 1612, 937, 793, -3439, 2735, 1073, 319,
- 1073, 1245, 1105, 1044, 317, 3878, 2738, 514, 2606, 2161,
- 2549, -623, 1834, 1073, 318, 320, 1248, 995, 3947, 1142,
- 3085, 288, 3293, 1450, -623, 4004, 4177, 1000, -992, 3147,
- 3389, 4715, 2315, -1536, 2661, 2662, 2277, -1527, 3647, 80,
- -1525, 4197, 2696, 4904, 1184, 2079, 2624, 1652, -3439, -3356,
- 2549, 4144, 922, 3549, 2524, 1654, 4710, -3431, 318, 2761,
- 514, 2588, -992, 1086, 318, -3341, 2301, 4198, 318, 352,
- 353, 354, 3801, 2389, 2340, 3271, 1207, 3884, 1591, 4233,
- 303, -3299, 534, 862, 4307, 863, 2101, 2586, 2779, 2080,
- 253, 321, 319, 2341, 4190, 318, 533, 2389, 2721, -2310,
- 2158, 2122, 4147, 2736, 4190, 321, 1016, 3789, 320, 207,
- -3299, 287, 4053, -243, 218, -3301, 3260, 2312, 760, -992,
- 2002, -3291, 3453, -3299, -3397, 1087, 870, 862, 2695, 863,
- 207, 761, 4311, 862, 2024, 863, 319, 862, 1745, 863,
- 4166, 287, 319, 254, 4487, -3301, 319, 773, 2573, 3830,
- 801, 2839, 320, 3687, 4653, 1044, 207, 4500, 320, -1568,
- 289, -992, 320, 1264, 862, 910, 863, 933, 2390, 3114,
- 4410, 534, 287, 319, 2697, 534, -3301, 2458, 321, 1404,
- 2573, 803, 207, 534, 3451, 2389, 207, 3817, 355, 320,
- 1150, 515, -3128, 917, 3824, 1312, 3547, 3994, 207, 589,
- 1313, 2973, 83, 3977, 4046, 3927, 207, 2514, 2515, 1033,
- 2302, 207, 1835, 3901, 3118, -623, 2320, 941, 2006, 870,
- 322, -1536, 534, 545, 516, 1798, -3341, 1799, 937, 1256,
- 1803, 207, 317, 2303, 322, 1814, 2272, 1013, 3117, 1813,
- 4645, 237, 238, 422, 515, -3305, 4064, 2664, 1150, 3739,
- 1145, 1150, -3437, 2666, 207, 1272, 1796, 1797, 3846, 1887,
- -3301, 1272, 1821, 870, 340, 2519, 1806, -1568, 290, 870,
- -44, 321, 1748, 870, 3003, -3291, -3291, 516, -992, 534,
- -3130, 2505, 2506, 86, -3341, 1929, 1818, 2511, 1151, -3402,
- 2512, 590, 557, 941, 804, 87, 910, 1441, 323, 2166,
- 870, 4167, 4467, 4362, 2711, 1152, 4905, 322, 2005, 941,
- -3321, 937, 323, 317, 3885, 321, 3550, -3346, 173, 2113,
- 2737, 321, -3132, 4429, 4188, 321, 553, 534, -3299, 207,
- 1404, 311, 1341, 88, 1759, 4654, -1536, 1997, -3439, 3683,
- 2151, 1651, 207, 3443, 150, 207, 1151, 4199, 509, 1151,
- 150, 1261, 321, 4101, 3968, 2616, 509, -3299, 429, 2520,
- 207, 534, 2011, 1152, 1087, 568, 1152, 1793, 1996, 2389,
- -3299, 3886, 542, 2898, 2393, -992, 941, 2561, 279, 3157,
- 2028, 4363, -2222, 941, 2623, 323, 528, -777, 2561, 318,
- 4852, 802, -992, 202, 1044, -1536, 4468, 805, 2389, 2597,
- 322, 325, 239, 2389, 2622, 317, 2342, 3535, 3536, 3537,
- 3538, 356, 357, 2389, 1145, 325, 89, 2872, -2430, -2430,
- 1142, 2613, 3253, 4740, 358, 3346, -3132, 90, 903, 3880,
- 2739, 1829, 3786, 341, -3132, 2738, 4429, 1643, 3646, 4148,
- 3648, 317, 4396, 4005, 322, -3291, 1846, 3664, 207, -3291,
- 322, 1748, -3439, 744, 322, 2389, 2091, 4279, 1826, 1686,
- -2222, 534, -3439, 317, -3126, 2343, 3621, 319, 3583, 209,
- 209, 760, 534, 207, 2152, 1312, -2222, 4753, 323, 209,
- 1313, 322, 2023, 320, 761, 1640, 591, 2663, 325, 3471,
- 1952, 592, 3170, 2603, 288, 4048, 2389, -3439, -3124, 4085,
- 2344, 4873, 3718, 3226, 2793, 3434, 3879, 2330, -3119, -3439,
- 3284, 3948, 3731, 1695, -3427, 2714, 225, 4033, 3094, -3439,
- 4062, 1896, 323, 1347, 288, 3464, 4722, 3525, 323, 2979,
- 4576, 4042, 323, 2139, 3780, 225, -3321, -3321, 59, 3781,
- 207, 911, 1044, 4006, 593, 4658, 3069, 3070, 3254, 822,
- 2627, 3553, 4218, 1321, 2022, 288, 3981, 3136, 318, 323,
- 937, 1421, 3285, 1322, 1696, 2553, 207, 3271, 2881, 2554,
- -3356, -3439, 184, 4293, 4430, -3439, 4547, 2820, 1963, 1205,
- 268, 325, 1043, 59, 2143, -3321, 4460, 3831, 3140, 3141,
- 803, 3975, 1236, 2671, -7, 207, 1665, 4702, 1398, 3056,
- 3057, -3439, 534, 225, 2717, 3059, 3060, 2120, 2345, 4310,
- 207, 2159, -3439, 3554, 4334, 3556, 207, 318, -3431, 2732,
- 207, 2559, 3162, 3163, 2704, 325, 1213, 862, 2992, 863,
- 3903, 325, 4577, 289, 3221, 325, 319, 594, 1087, -2222,
- 903, 903, 903, 903, 202, 2635, 321, 207, 2974, 2975,
- 2378, 4578, 320, 3620, 1019, 2319, 3591, 4140, 3902, 3782,
- 2079, 2722, 325, 289, 3124, 2604, 3126, 4295, 1811, 3128,
- 2725, 1896, 3130, 3131, 3132, 2327, 3134, 3133, 2617, 3138,
- 1963, 3982, 3786, 3171, 87, 4569, 3621, 4430, 4469, 3220,
- 3150, 3151, 4620, 2595, 289, 319, 921, 225, 318, 262,
- 2352, 4149, 4150, 804, 1214, 2887, 2873, 225, 2386, 4320,
- 4234, 320, 4461, 2489, 3641, 2813, 3643, -2917, 1213, 3596,
- 1216, 2346, 4072, 3833, 917, 2814, -3321, 9, 2617, 2800,
- 3284, -3472, 2995, 3100, 760, 2976, 3258, 3384, 1338, 921,
- 1087, 290, 4246, 952, 3973, -324, 2312, 2513, 2399, 4920,
- 3278, 4181, -3397, 2510, 3282, 2510, 735, 2510, 2510, 3182,
- 2510, 2510, 953, 870, 3795, 225, 342, 3174, -2222, 3410,
- -3439, 290, 3208, 3530, 3210, 322, 319, 4141, 2332, -3439,
- 3454, -3291, 3285, 3852, 4320, -1988, 4874, 4876, 3983, 2921,
- 318, 343, 320, -3441, -3041, 4462, 1214, 777, 3455, 2281,
- 4569, 3083, 290, 2597, 2911, 89, 805, 4353, 1648, 75,
- 4579, -3321, 1216, -1520, 1145, 321, 4914, 4354, -3473, 3329,
- 3891, -3439, -3439, 1016, 2827, 4234, 318, 1653, -3439, 4477,
- 2732, 778, 2282, 3320, 2993, 4909, 77, -3439, 1666, 1211,
- 3251, 4456, 3, 4547, 739, 3984, -2222, 543, 318, 859,
- 860, -3440, 3663, 323, 59, 3256, 4381, 4550, 2798, 2739,
- 2672, 3385, 922, 2504, 1016, 2379, 2117, 4431, 319, 4470,
- 202, 202, 3868, 12, 321, 544, 1686, 2757, 1013, 1441,
- -6, -3439, 4364, 1218, 320, 2350, 4420, 2618, 4275, 3413,
- 225, 3834, 269, 903, 3113, 2904, 2821, 2347, -3421, 2910,
- 2605, 4365, -3439, 4432, 319, 3678, 817, 3679, 4728, 3785,
- 3311, 941, 4205, 4206, 1963, 4924, 534, 3831, 4366, 202,
- 320, 954, 4807, 823, 3689, 2404, 319, 4925, 225, 3597,
- 534, 1399, 1237, -3439, -2222, -3291, -3291, 2618, -3132, 910,
- 910, 2773, 320, 291, 322, 534, 59, 2414, 282, -2222,
- 1339, 2477, 2480, 2980, 2483, 321, 325, 2488, 2490, 4621,
- 2492, -69, 4324, 1338, 2387, 3067, 3622, -3431, 2918, 1159,
- 2748, 941, -2848, 545, 344, 1218, 1692, 2140, 4921, 824,
- 4431, 3137, 2874, 3974, 534, 1043, 15, 2642, 534, 1021,
- 207, 1159, 736, 3058, 59, 207, 821, 1963, 825, 4420,
- 3820, 534, 16, 322, 17, 1842, 248, 2521, 2522, 207,
- 3314, -3421, 1219, 4551, 2101, 207, 4432, 2855, 2857, 2631,
- 2028, 4274, 323, 740, 2795, 534, 3183, 1238, 903, 903,
- 903, 3006, 2650, 3052, 2563, 903, 903, 903, -3321, 2651,
- 2564, 2565, 2881, 3146, -2917, 2567, 1212, 321, 3084, 4267,
- 3121, 903, 4210, 207, 903, 2555, 2556, 988, 3598, 3513,
- 903, 903, 903, 903, 903, 903, 903, 903, 903, 903,
- 903, 903, 3321, 769, 1050, 1052, 209, 207, 3601, -6,
- -3439, 323, -1520, 321, 322, 3139, -3321, 752, -1520, 3118,
- 4059, 3783, 4715, -3341, 4238, 207, 3452, 903, 4463, 2798,
- 543, 2798, 903, 2561, 1219, 321, 79, -3370, 534, 207,
- 207, -1988, 910, -6, 780, -6, 2977, 263, 283, 4464,
- 2022, 3985, 3976, 3386, 4550, 325, 3172, 3357, 3358, 3359,
- -324, 1044, 207, -3041, 2981, -3041, -3041, -3041, -3041, -3041,
- -3041, 4552, 1044, 781, 3821, 207, 234, 910, 59, 910,
- -885, 4382, 3487, 2749, 4730, 955, 225, 3599, 2617, 1952,
- 782, 783, 323, 3173, 1375, 509, 2891, 207, 4105, 207,
- 207, 207, 2779, 910, 202, 1339, 322, 2652, 207, 3168,
- -1988, 207, 2647, 4417, 325, 3690, 3622, -1520, -3441, 3663,
- 3099, 3526, 3456, 1222, 4117, 3360, 1842, 2754, 910, -3441,
- 27, 1213, 741, 4810, -3041, -3472, 207, 207, -324, 2798,
- 2798, 2732, 322, 207, 2978, 3892, 4848, 3986, 2673, 2674,
- -3472, -1520, 3713, -1520, -324, 2855, 3893, 2855, 2684, 4454,
- 4455, 4727, 910, 3361, 322, 534, 1044, 4696, 207, 3156,
- -3439, 2875, 941, 2876, 3623, 3624, 941, 1299, 4625, 4055,
- 324, 3149, 2877, 2878, 323, 3014, 2879, 2880, -1495, 4625,
- 2905, 4060, 4061, 3875, 4052, 325, 1652, 28, 917, 1931,
- 2760, 3634, 3635, 133, 1654, 207, 3161, 742, 4697, 1214,
- 4551, 245, 1215, 784, 3174, 1222, 3209, 4704, 3211, 770,
- 323, 1686, -3473, 771, 1160, 1216, 2149, 3410, 4001, 3669,
- 1005, 3670, 945, 1161, 583, 584, 3650, -3473, 534, 2149,
- 3188, 3015, 323, 3213, 4086, 534, 1160, 4853, 2786, 4253,
- 4051, 1063, 2128, 753, 1070, 1161, 2129, 1217, 1084, 2130,
- 2131, 743, 1676, -885, 33, 4438, 3542, -3439, -3321, 2087,
- 2088, 2089, 47, 4728, 4159, 3457, 534, 941, 2824, 1299,
- 3423, -6, 4493, 235, 937, 3410, 3543, 325, 4160, 4812,
- 2824, 2092, 2093, 1432, 1441, 903, 2799, 2618, 3250, 919,
- 910, 2648, 2129, 318, 4106, 2130, 2131, 1076, 207, 3466,
- 3458, 2904, 1686, 1905, 744, 3937, 1729, -324, 1446, 3459,
- 1906, 4449, 2499, 325, 3410, 2708, 509, 1652, 4438, -3041,
- 207, 4728, 3600, 772, 4254, 1660, 4692, 3572, 4552, 1686,
- -3323, 4678, 4679, 4695, 1629, 325, 3601, 3415, 4699, 43,
- 1134, 4701, 1376, 585, 937, 4253, 2804, 2805, 2806, 2807,
- 2808, 2809, 2810, 2811, 4418, 2863, 4731, 4736, 4107, 2094,
- 2095, 2651, 52, 1377, 1771, 2090, 1677, 246, 3299, 2500,
- 1312, 319, 785, 1652, 191, 1313, 1162, 4759, 1218, -1520,
- 1054, 3328, 2907, 786, -2276, 3108, 3063, 320, 3065, 2052,
- 2510, 207, -3370, 225, 4760, 3417, 4186, 1711, 1162, 207,
- 4494, 1299, 4713, 4714, 202, 3876, 3422, 4813, 1312, 2539,
- 1772, 3425, 3427, 1313, 225, 1702, 903, 207, 1375, 1994,
- 1661, 3368, 1013, 54, 4108, 4495, 4496, 4497, 3682, 1744,
- 4761, 1359, 745, 1163, 3419, 59, -324, 2985, 56, -3439,
- 4194, 796, 4756, 4404, 2998, 4757, 3807, 3398, 4370, 4866,
- 4840, 3107, 4867, 3107, 59, 1163, 3862, 134, 1006, 1159,
- 135, 136, 1007, 3467, 4450, 2366, -3312, 4371, 4417, 58,
- 4451, 1995, 941, 941, 941, 1164, 1773, 4910, 3713, 3954,
- 4609, 4610, 225, 4840, 917, 1367, -2276, 59, 4762, 4861,
- 2866, 318, 1008, 3186, 3187, 3651, 3121, 1164, 3574, 2652,
- 3541, 4405, 4895, -3421, 4729, -2276, 4871, 1219, 1905, 4730,
- 2870, 4763, 1220, 1221, -324, 1906, 787, 4781, 2367, 4868,
- 1703, 317, 2893, 2894, 2895, 2575, 1704, 2799, 4896, 2799,
- -3082, 2973, 1044, 2872, -3082, 3154, 4728, 2091, 2919, 2920,
- 2922, 3912, 3913, 4406, 108, 2477, 3284, 3516, 4930, 4931,
- 321, 3575, 797, 798, 236, 318, 4929, 788, 2798, 1044,
- 941, 3107, 3107, 4865, 910, 910, 4842, 4730, -324, 319,
- 110, 61, 4782, 3602, 509, 4916, 789, 4194, 4220, 586,
- 4243, 4897, -324, 1962, 63, 320, 226, 108, 4943, 227,
- 4918, 68, 1165, 3000, 108, 3129, 1009, 3874, 3285, 1969,
- -1133, 1640, -324, 3362, 118, 111, 3632, 3633, 4726, 4776,
- 1312, 4917, 120, 110, 1165, 1313, 2888, -324, 3335, 2732,
- 110, 990, 125, 4777, 2092, 2093, 4919, 3178, 4932, 1312,
- 130, -3421, 991, 529, 1313, 3529, 4747, 2799, 2799, 2336,
- 4748, 4385, 3514, 3515, 4726, 138, 1312, 4419, 111, 320,
- 2337, 1313, 1933, 1936, 1939, 111, -3421, -3421, -3421, -1133,
- 910, 4776, 1307, 1308, -2276, 1310, 4420, -1495, 3613, 318,
- 1299, -1133, 139, 3105, 2540, 4777, 2541, 4628, 1968, 322,
- 3111, 3568, 318, 4421, 2065, 2067, 4634, 142, 1222, 209,
- -3291, 3272, 2144, 176, 1719, 4637, 2542, 1377, 317, 1686,
- 1720, 2732, 2094, 2095, 2507, 2508, 772, 1686, 2484, 59,
- 2872, 2146, 2147, 2148, 2485, 1432, 4450, 2392, -1133, 4418,
- 2625, 226, 4451, 1774, 227, 4877, 4781, 1312, 772, 2581,
- 1312, 1312, 1313, 145, 2582, 1313, 1313, 4900, 3545, 59,
- 3517, -1133, 4902, 4898, 3518, 3657, 1775, 319, 321, 3658,
- 2132, 2133, 146, 2408, 2786, 2409, 2102, 323, 2103, 4095,
- 529, 3327, 147, 320, 1044, 4953, 3235, 4954, 1044, 4955,
- 2381, 2096, 153, 1044, 2381, 1044, 320, 1044, 1640, 3077,
- 154, 4878, 4730, 3077, 1160, -3009, -3009, -3009, -3009, 3726,
- 202, 1652, 2649, 1161, 3813, 3814, 2132, 2133, 160, 207,
- -1133, 176, 2134, 2135, 4680, 4681, 2097, 2540, 209, 2541,
- 4771, 4000, 321, 180, 55, 2098, 57, 186, 4776, 237,
- 238, 189, 2873, 207, 2099, 941, 3095, 4839, 195, 1652,
- 210, 1652, 4777, 941, 218, 4037, 1972, 1973, 4789, 4790,
- 3115, 3116, 790, 791, 4794, 207, 241, 4834, 2134, 2135,
- 242, 4835, 4836, 1947, 1948, 4570, -3041, 1213, 3826, 256,
- 325, 1391, 1392, 1393, 1394, -3041, -3041, 2100, -3421, 1145,
- -3041, 1044, 3236, 4057, 1044, 910, 3779, 322, 286, 1652,
- 281, 3777, 1044, 1044, 1044, -1133, 285, 317, 338, 4068,
- 1652, 291, 941, 311, 941, 1441, 339, 349, 361, 2872,
- -3008, -3008, -3008, -3008, 503, 538, 318, 3414, 3416, 3418,
- 3420, 539, 4611, 2708, 850, 547, 769, 548, 555, 2274,
- 851, 852, 568, 570, 581, 289, 321, -2058, 737, 2510,
- 2510, 755, 2510, 2510, 3063, 1214, 854, 3478, 1215, 321,
- 756, 322, 793, 813, 814, 225, 1162, 1648, 1776, 819,
- 820, 1216, 826, 1777, 828, 323, 829, 827, 941, -1133,
- 941, 835, 2732, 839, 943, 859, 860, 1640, 1002, 1016,
- 2798, 1029, 1038, 1778, 1053, 1779, 3477, 1054, 1116, 1062,
- 239, 2338, 3930, 1217, 319, 1136, 1170, 509, 3353, 4182,
- 4183, 1145, 1169, 1186, 1191, 1711, -3421, 1203, 1201, 2873,
- 320, 1208, 2360, 1163, 1903, 1904, 3951, 1234, 1246, 1258,
- 1250, 1273, 4419, 1277, 1275, 3492, 3493, 1280, 1281, 323,
- 1282, -3421, -3421, -3421, 1284, 1287, 1288, 1289, 2385, 1290,
- 941, 4420, 1323, 1293, 1295, 1303, 1305, 1327, 4292, 1306,
- 1330, -1133, 1044, 207, 1332, 1164, 1344, 1350, 4421, 3742,
- 1357, 3924, 1359, 1361, 1364, 322, 1366, 1369, 325, 903,
- 903, 1371, 1373, 1386, 1395, 1396, 2799, 1400, 322, 1437,
- 3856, 1439, 3857, -1133, 1442, 1447, 1617, 1627, 1648, 1630,
- 4280, 4281, 1631, 318, 1633, 4286, 1655, 1656, 1658, 3504,
- 1663, 1668, 1670, 1673, 1674, 2101, 941, 1678, 2874, 2102,
- 1679, 2103, 1687, 3462, 1087, 3939, 3463, 1691, 1905, 1698,
- 1700, 855, 856, 857, 1218, 1906, 1706, 166, 1907, 3470,
- 1708, 941, 325, 858, 1714, 3564, 4351, 3479, 3480, 2510,
- 1722, 1724, 770, 323, 1648, -930, 771, 3571, 1727, 1730,
- 1738, 1731, 859, 860, 1760, 1740, 323, -930, 1761, 1766,
- 1748, 318, 1770, 202, 1809, 1823, 1839, -1710, 1850, 1902,
- 1932, 319, 1165, 321, 1955, 1965, 1943, 1944, 1984, 1954,
- 1970, 3607, 4256, 1908, -1133, 1986, 911, 320, 1909, 1910,
- 3506, 2000, 2006, 3619, 2013, 1376, 2163, 2117, 2873, 2057,
- 2123, 3586, 2069, 2059, 610, 2138, 2271, 2275, 3428, 2278,
- 2283, 2313, 3749, 4239, 3237, 1780, 2316, 3953, 2314, 2321,
- 534, 2328, 861, 4879, 910, -930, 2329, 2331, 2339, 3571,
- 3523, 2355, 2357, 4880, 4881, 2358, 2362, 4474, 2361, 319,
- 2364, 2372, 903, 864, 865, 866, 325, 2371, 3742, 2374,
- 2376, 2394, 867, 1219, 2396, 320, 772, 2406, 2405, 325,
- -1133, 2416, 2481, 3672, -1133, 2493, 2495, 1652, 2496, 534,
- 1652, 3750, 1911, 2516, 1912, -3058, 4379, 903, 84, 903,
- 2530, 1913, 318, 3751, 2550, 2874, 772, 2551, 2575, 2580,
- 1914, 2577, 2578, 4139, 2584, 2585, 2592, 2588, 2590, 2798,
- 2591, 2594, 322, 903, 2600, 2602, 2608, -2964, 2609, 2610,
- 1299, 2612, 2615, 2640, 4882, 2626, 2643, 2628, 1652, 3924,
- 2632, 1652, 1044, 1652, 2634, 2644, 2691, 4559, 903, 2645,
- 3752, 2693, 2657, 4444, 2694, 2698, 4883, 4884, 869, 2705,
- 2699, 859, 860, 2702, 2723, 2719, -1133, 3723, 2151, 3725,
- 321, 2751, 2759, 3753, 1228, 1058, 2787, 3587, 2774, 1652,
- 319, 2794, 903, 2829, 2802, 2831, 2840, 2875, 2842, 2876,
- 2510, 2844, 2847, 4080, 4129, 4130, 320, 2849, 2877, 2878,
- 323, 2861, 2879, 2880, 2852, 3428, 1229, 1230, 2859, 1974,
- 1975, 1976, 1977, 1978, 1979, 1980, 1981, 1982, 1983, 2868,
- 1915, 2886, 2887, 2891, 2911, 2901, 2914, -1133, 2984, 3787,
- 2900, 2999, 3754, 85, 2909, 2913, 3793, 3640, 321, 941,
- 3095, 941, 3112, 3074, 2925, 2708, 1896, 3127, 2989, -3040,
- 2617, 2618, 3158, 3159, 1222, 2652, 3184, 2651, 3677, 3586,
- 3214, 3215, 3217, 3680, 1796, 3818, -930, 3222, 3229, 3230,
- 3231, 1916, 3245, 3262, 3825, 1917, 3263, 3305, 2779, 3288,
- 3312, 3315, 941, 2756, 3324, 3317, 3313, 3338, 3337, 3341,
- 3342, 3835, 3350, 871, 2874, 4207, 3348, 3356, 3564, 322,
- 3369, 3354, 3376, 325, 3379, 3392, 3381, -1133, 2799, 1918,
- 3571, 3382, 1087, 3399, 3407, 3421, 3432, 3755, 3728, 4581,
- 903, 3438, 3436, 3441, 3444, 3446, 287, 3449, 4229, 3468,
- 3481, 2798, 3737, 3482, 3483, 3906, 3907, 3484, 3491, 82,
- 3509, 4287, 941, 3489, 3507, 3511, 3522, 3527, -2969, 3607,
- -930, -3038, 3531, 3559, 3573, 3581, 3555, 3557, -3033, 321,
- 3589, 3592, 4296, 3595, 2875, 3609, 2876, 322, 3614, -1133,
- 3615, 3273, 3274, 3629, 4209, 2877, 2878, 323, 3630, 2879,
- 2880, 3300, 1648, 3666, 3301, 3693, 4255, 3668, 3673, 3674,
- 3681, 3757, 3716, 872, 873, 3719, 3799, 3800, 1686, 941,
- 3721, 3806, 3732, 3809, 3810, 3811, 3812, 2559, 3748, -930,
- -930, 3746, 3778, 3819, 4559, 3587, 3936, 3775, 3822, 3827,
- 1648, 3828, 1648, 3832, 3841, 3837, 3843, 3853, -930, 1652,
- 3858, 3863, 3864, 3574, 3575, 3868, 3873, -3440, 3890, 3836,
- 3895, 3897, 3904, 4348, -930, 323, 3905, 3651, 3650, 3940,
- 3942, 1261, 3931, 3956, 3946, 2803, 3960, 1182, 3238, 3961,
- 4309, 3964, 3958, 875, 2798, 3971, 3988, 3950, 3965, 3991,
- 1648, 3978, 3992, 3758, 4069, 4831, 3955, 209, 1652, 4096,
- 325, 1648, 4073, 4081, 4075, 4103, 4123, 4127, 322, 4146,
- 876, 4043, 4145, 3797, 3797, 4151, 4152, 4158, 877, 3189,
- 4122, 3190, 4187, 4157, 3957, 3760, 4180, 4185, 4216, 4225,
- 209, 4226, 4231, 1686, 4131, 4105, 4249, 209, 4262, 4277,
- 4189, 4300, 4301, 4297, -2003, 4342, 878, 4336, 4361, 4303,
- 4316, 4337, 4341, 207, 4343, 4349, 4373, 3999, 1919, 4357,
- 4386, 4401, -930, 4414, 3963, -3291, 4412, 3898, 325, -3291,
- 4372, 4376, 4384, 2875, 1044, 2876, 4413, 4415, 4447, 4445,
- 4476, 4485, 4479, 4488, 2877, 2878, 323, 4489, 2879, 2880,
- 4492, 4498, 4501, 4502, 4010, 4011, 4012, 2510, 4361, 4505,
- 4566, 2569, 4050, 4575, 4636, 4648, 941, 4684, 941, 4685,
- 4791, 4893, 4837, 4946, 903, 903, 3945, 4944, 4945, 4951,
- 2087, 2088, 2089, 35, 3076, 4957, 4441, -930, 3505, 2504,
- 129, 250, 578, 32, 1830, 2561, 171, 2526, 4008, 3881,
- 546, 3835, 308, 1920, 4032, 3502, 2904, 2799, 558, 4035,
- 4036, 3071, 174, 574, 1921, 1232, 4475, 4039, 1816, 4041,
- 562, 222, -930, 811, 309, 1922, 812, 4380, 3033, 4273,
- 4656, 4257, 3808, 4333, 806, 3488, 3829, 3816, 1253, 67,
- 4326, 4154, 3798, 4490, 4416, 4503, 3692, 2762, 1177, 325,
- 2413, 2928, 4808, 4809, 2968, 2969, 4933, 4322, 4245, 3936,
- 2750, 3744, 3762, 4377, 3740, 3738, 3763, 1686, 4814, 3352,
- 903, 3073, 317, 4725, 4770, 4822, 3409, 4013, 4014, 4901,
- 4015, 4899, 4315, 1073, 2872, 4707, 2090, 4443, 4651, 1045,
- 4629, 2145, 4737, 4630, 4633, 4649, 1923, 4118, 1626, 4047,
- 2529, 3920, 2535, 3508, 4184, 502, 1841, 1847, 3524, 3520,
- 1890, 3155, 2570, 4009, 3845, 2630, -930, 3918, 4285, 1329,
- 4283, 1993, 989, 3723, 2667, 1335, 1382, 2064, 2012, 3860,
- 2686, 3540, 4040, 1924, 1390, 3169, 1046, 209, 2068, 4044,
- 4045, 2701, 2083, 2070, 4162, 3212, 1440, 3861, 3764, 2715,
- 3565, 2510, 1640, 3566, 1615, 2137, 2744, 3579, 3232, 3872,
- 3871, 4214, 2375, 4088, 3889, 1634, 2764, 3611, 4155, 1657,
- 2776, 1445, 3269, 3628, 3618, 3626, 3319, 2384, 3331, 2377,
- 3191, -930, 2324, -930, 2812, 4067, 1688, 1106, 3334, 2837,
- 4070, 4071, -930, -930, -930, 1689, -930, -930, 3645, 2838,
- 4408, 2320, 209, 2354, 4305, 2788, 2775, 4156, 4390, 3765,
- 4098, 209, 4212, 3929, 4458, 4574, 4473, 209, 3087, 2799,
- 209, 2397, 209, 209, 2020, 3093, 3145, 2018, 1648, 3143,
- 209, 1648, 209, 3649, 209, 4083, 3639, 4173, 3637, 3656,
- 3167, 3915, 1652, 3917, 3165, 1334, -3380, -2003, 1099, 2086,
- 3295, 3296, 4104, 1044, 3297, 3952, 1133, 3298, 2091, 2716,
- 1988, -3291, 4125, 3791, 3448, 3192, 565, 1737, 3005, 2708,
- 4087, 4016, 4017, 4078, 2801, 4230, 4138, 4632, 3774, 1648,
- 1991, 4323, 1648, 1121, 1648, 903, 3068, 1247, 4657, 3768,
- 2415, 1233, 1294, 3440, 4330, 3160, 4018, -930, 3292, 2818,
- 4270, 4272, 4270, 4248, 3642, -3380, 4615, 72, 3909, 2983,
- 4829, 1792, 4221, 3546, 3567, 4054, 4259, -3380, 4863, 4749,
- 1648, 3308, 4019, 1276, 4923, 569, 4754, 4241, 4242, 3594,
- 4294, 4846, 580, 3794, 2854, 2683, 3734, 2558, 4567, 4751,
- 3064, 4773, 2487, 4887, 4038, 2092, 2093, 4020, 0, 3333,
- 3333, 3770, 2799, 4179, 0, 4743, 0, 0, 0, 0,
- 0, 4290, 4291, 0, -3380, 0, 0, 0, 0, 0,
- 0, 0, 0, 2873, 0, 4773, 4755, 0, 0, 0,
- 0, 4204, 4328, 0, 0, 0, 4356, -3380, 4328, 0,
- 3367, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 4213, 209, 209, 0, 0, 4215, 0,
- 0, 0, 73, 0, 3193, -3291, -3291, 0, 0, 0,
- 209, 0, 0, 2094, 2095, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 4161, 0,
- 4403, 0, 0, 0, 0, 0, -3380, 0, 0, 4021,
- 209, 0, 0, 4325, 209, 0, 0, 318, 0, 0,
- 0, 0, 0, 4332, 4332, 1044, 0, 0, 0, 2918,
- 74, 0, 0, 75, 0, 76, 0, 0, 917, 4276,
- 0, 4261, 4022, 0, 0, 0, 4023, 4024, 0, 0,
- 0, 0, 2096, 0, 0, 0, 0, 0, 0, 0,
- 77, 0, 0, 0, 0, 0, 0, 0, 4457, 0,
- -2003, 0, 0, 0, 4025, 917, 859, 860, 0, 0,
- 0, 0, 0, 910, 910, 4934, 0, 2097, 0, 0,
- 0, -3380, 0, 0, 0, 319, 2098, 0, 0, 0,
- 209, 209, 0, 0, 0, 2099, 0, 0, 0, 0,
- 0, 320, 0, 910, 0, 0, 941, 3194, 4321, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 4258, 0,
- 1648, 0, 0, 0, 4260, 0, 0, 4270, 0, 0,
- 0, 4448, 0, 0, 0, 0, 0, 0, 2100, 4338,
- 0, 209, 0, 0, 0, 78, -3380, 0, 1044, 0,
- 0, 0, 0, 0, 0, -3380, 4564, 0, 0, 0,
- 0, 0, 0, 0, 0, 917, 0, 0, 0, 1648,
- 0, 0, 0, 0, 903, 0, 0, 0, 0, 0,
- 0, 0, 4617, 0, 0, 0, 0, 0, -2003, 0,
- 2319, 4383, 0, 0, 4583, 749, 0, 0, 0, 2874,
- 0, 0, 0, 4387, 4388, 4389, 0, 0, 0, 4391,
- 3195, 0, 941, 0, 2510, 209, 209, 0, 0, 0,
- 3539, 0, 0, 0, 4411, 0, 209, 209, 4708, 0,
- 0, 0, 4026, 0, 0, 0, 0, -3380, 0, 0,
- 0, 0, 4270, 0, -3380, 0, 0, 4635, 0, 0,
- 0, 0, 0, 0, 0, 0, 4459, 0, 0, 0,
- 0, 0, 0, 0, 321, 0, 0, 0, 0, -3380,
- 0, 4478, 0, 0, 4481, 4482, 4483, 4484, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 534, 0, 0, 0, 1299, -3380, 0, 1044,
- 0, 0, 4560, 0, 0, 0, 0, 0, 0, 3612,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 79, 0, 0, 4076, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 4698, 209, 0, 0, 4588, 4589, 4590,
- 4591, 4592, 4705, 0, 4594, 4595, 4596, 4597, 4598, 4599,
- 4600, 4601, 4602, 4603, 4604, 0, 2101, 4606, 0, 4616,
- 2102, 4619, 2103, 1191, 0, 0, 0, 0, 0, 0,
- 4626, 4627, 0, 0, 4631, 0, 848, 0, 905, 0,
- 0, 927, 0, 322, 0, 0, 950, 4720, 985, 0,
- 0, 0, 999, 0, 0, 0, 4639, 0, 4641, 0,
- 0, 0, 1037, 0, 80, 1037, 0, 0, 81, 0,
- 0, 3715, 1066, 0, 0, 0, 4752, 0, 0, -635,
- 0, 0, 0, 0, 0, 0, 1122, 0, 1128, 1131,
- 0, 0, 0, 0, 0, 0, -3380, 0, 0, 0,
- -3380, 0, 1144, 0, 0, 0, 0, 0, 2875, 0,
- 2876, 0, 0, 0, 0, 0, 4720, 0, 0, 2877,
- 2878, 323, 0, 2879, 2880, 909, 0, 0, 0, 0,
- 942, 1652, 0, 0, 0, 4693, 0, 4694, 0, 0,
- 0, 0, 942, 0, 4720, 4720, 0, 942, 4703, 0,
- 4720, 0, 0, 4720, 0, 0, 0, 4720, 4720, 0,
- 0, 0, -635, 0, 0, 1652, 942, 4844, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, -3380, 0, 0, 0, 0, 82, 0, 0,
- 0, 4862, 0, 0, 0, 0, 0, 4724, 0, 0,
- 0, 0, 0, 1648, 0, 0, 0, 0, 4872, 0,
- 0, 1279, -635, 0, 0, -635, -635, 0, 0, 4560,
- 0, 4720, -635, 0, 325, 4862, 4720, 83, 0, -635,
- 1044, 3847, 3848, 3849, 3850, 0, 4908, 1044, 0, 0,
- 0, 0, 1044, -3380, 0, 1044, 0, 0, 0, 0,
- 905, 905, 905, 905, 0, 0, 0, -3380, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 4779, 4780, 84, 4785, 85, 0, 0, 0,
- 0, -3380, 927, 0, 0, 0, 0, 0, 0, 0,
- 4788, 0, 0, 0, 0, 4792, 4793, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, -635, -635, 86, 1363,
- 0, 4956, 0, 4843, 0, 0, 4845, 0, 4847, 0,
- 87, 0, 0, -3380, 0, 0, 0, 0, 0, 1301,
- 0, 0, 0, 0, 0, 0, 0, 909, 909, 909,
- 909, 0, 0, 0, 0, 0, 1044, 0, 1325, 1044,
- 0, 0, 0, 0, 0, 0, 0, 0, 88, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, -3380, 0, 0, 0, 0, 1066, 0,
- 0, 942, 0, 0, 0, -3380, 0, 0, 0, 0,
- 0, 1452, -3380, 0, -3380, 0, 0, 3749, 999, 0,
- 0, 0, 0, 0, 0, 0, 4795, 3715, 0, 0,
- 0, 0, 0, 1179, 0, 0, 0, 0, 1650, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 317,
- 0, 89, 0, 1684, 0, 0, 0, 0, 0, 0,
- 0, 0, 90, 0, 0, 0, 3750, 942, 0, 0,
- 0, 0, 0, 0, 0, -635, 0, 0, 3751, 0,
- 1712, 0, 0, 942, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 1726, 2419,
- 0, 0, 0, 0, 0, 1733, 1735, 0, 0, 0,
- 0, 0, 0, 905, 0, 0, 1751, 1753, 0, 0,
- 0, 0, 0, 0, 0, 3752, 0, 0, 0, -635,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 1685, -635, 0, 0, 0, 0, 0, 0, 3753, 4796,
- 942, 0, 1905, 4797, 0, 0, 0, 942, -635, 1906,
- 0, 0, -635, 0, -635, 0, 1159, 0, 0, 4063,
- 0, 0, 0, -635, 902, 4065, 4066, 0, 0, 935,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 935, 0, 0, 0, 0, 935, 850, 0, 0,
- 909, 0, 0, 851, 852, 0, 0, 3754, 0, 0,
- 0, -635, 0, 0, 0, 935, 0, 0, 0, 854,
- 0, 0, 0, 0, -635, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 1900, 1901, 0, 0, 0, 0, 0, 905, 905,
- 905, 0, 0, 0, 0, 905, 905, 905, 1950, 0,
- 0, 1950, 0, 0, 0, 0, 0, 0, -635, 0,
- 0, 905, 0, 1950, 905, 0, 0, 0, 0, 0,
- 905, 905, 905, 905, 905, 905, 905, 905, 905, 905,
- 905, 905, 3755, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 1128, 0, 1992, -635, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, -635, 905, 0, 0,
- 0, 0, 905, 0, 0, 0, -635, 0, 0, 0,
- 0, 0, 0, 0, 0, 909, 909, 909, 0, 0,
- 0, 0, 909, 909, 909, 1951, 0, 0, 1951, 0,
- 0, 0, 1964, 0, 0, 0, 2055, 3756, 909, 0,
- 1951, 909, 0, 0, 0, 4202, 3757, 909, 909, 909,
- 909, 909, 909, 909, 909, 909, 909, 909, 909, 0,
- 0, 0, 0, -635, 0, 0, 902, 902, 902, 902,
- 0, 0, 0, 0, 855, 856, 857, 0, 0, 0,
- 0, 0, 4798, 0, 909, 0, 858, 0, 0, 909,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, -635, 0, 0, 0, 0,
- 935, 0, 0, 0, 318, 0, 0, 0, 0, 0,
- 0, 0, 0, 2056, 0, 0, 0, 0, 3758, 0,
- 0, 0, 0, 0, 1964, 3759, 2425, 0, 0, 0,
- -635, 0, 0, 0, 0, 0, 0, 0, -3412, 0,
- 0, 0, -635, 0, 0, 0, 0, 0, 0, 0,
- 3760, 0, 0, 0, 0, 4799, 0, 0, 0, 4800,
- 0, 1160, 0, 0, 0, 861, 0, 0, 0, 0,
- 1161, 0, 1648, 0, -635, 0, 935, 0, 3761, 0,
- 0, 0, 319, 0, 0, 0, 864, 865, 866, 0,
- 0, 0, 935, 0, 0, 867, 0, 0, 320, 0,
- 0, 0, 0, 903, 903, 0, 1648, 0, 0, 0,
- 0, 0, -635, 0, 0, 0, 0, 0, 0, 0,
- 0, 4801, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 903, 0, -635, 0, 0, 0, 0,
- 0, 0, -635, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 905, 0, 0, 0, 935,
- 0, 0, 0, 0, 0, 4802, 935, 0, -635, 0,
- 0, 0, 0, 0, 0, 0, 0, -635, 0, 0,
- 0, 869, 0, 0, 0, -635, 0, -635, 2333, 0,
- -635, 0, 0, 0, 317, 0, 0, 0, 0, 0,
- 0, 0, 2428, 0, 0, 0, 2318, 0, 0, 902,
- 218, 0, 0, 4803, 0, 0, 0, 2325, 0, 0,
- 0, 0, 0, 1162, 0, 0, -635, 3762, 0, 0,
- 0, 3763, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 909, 0, 0, 0, 2353, 0, 0, 0,
- 0, 0, 0, 0, 0, 942, 0, 0, 1964, 0,
- 0, 321, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 2383, 0,
- 1163, 0, 2029, 2030, 2031, 2032, 905, 0, 0, 0,
- 2033, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 2034, 2035,
- 0, 0, 0, 3764, 0, 942, 871, 0, 0, 0,
- 0, 0, 1164, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 1964, 850, 0, 902, 902, 902, 0, 851, 852,
- 0, 902, 902, 902, 0, 0, 0, 2433, 0, 2036,
- 0, 1960, 0, 0, 854, 0, 0, 902, 0, 4804,
- 902, 0, 0, 909, 3765, 0, 902, 902, 902, 902,
- 902, 902, 902, 902, 902, 902, 902, 902, 3766, 0,
- 322, 0, 0, 0, 0, 0, 2037, 0, 2038, 0,
- 0, 4805, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 3767, 902, 0, 0, 872, 873, 902, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 1900, 0, 0, 0, 0, 0, 1165,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 1684,
- 0, 0, 0, 0, 3768, 0, 0, 0, -1827, 0,
- 0, 0, -3412, 1960, -1827, 0, 2334, 0, 323, 4806,
- 2598, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 1950, 0, 0, 0, 0, 0, 875, 0, 0, 0,
- 0, 0, 0, 0, 0, 4544, 0, 0, 0, 0,
- 0, 0, 0, 0, 3769, 0, 0, 0, 0, 0,
- 0, 0, 2408, 876, 2409, 0, 3770, 2440, 0, 0,
- 0, 877, 2039, 3771, 0, 3772, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 1685, 0, 0, 855,
- 856, 857, 0, 2362, 0, 0, 0, 0, 0, 878,
- 0, 858, 0, 772, 0, 0, 207, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 1951, 0, 0,
- 0, 325, 0, 0, 0, 0, 0, 0, 0, 318,
- 0, 2040, 0, 0, 0, 0, 942, 0, 0, 0,
- 942, 2055, 0, 0, 0, 2687, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, -1827, 0, 0, 0, 0, -3299, -1827, -1827,
- 0, 0, 2041, 0, 0, 0, 0, 0, 0, 2029,
- 2030, 2031, 2032, 0, -1827, 0, 0, 2033, 859, 860,
- 861, 0, 0, 0, 0, 0, 0, 0, 862, 0,
- 863, 0, 0, 0, 0, 2034, 2035, 319, 0, 0,
- 0, 864, 865, 866, 0, 0, 0, 0, 0, 0,
- 867, 0, 0, 320, 0, 0, 0, 0, 2056, 2726,
- 0, 902, 2727, 0, 2728, 2729, 2730, 0, 0, 0,
- 868, 942, 0, 0, 935, 0, 0, 1960, 0, 0,
- 2753, 0, 0, 0, 0, 0, 2036, 0, 0, 0,
- 0, 0, 2073, 0, 0, 0, 2042, 0, 0, 0,
- 0, 0, 0, -2794, 0, 0, 0, 0, 0, -2794,
- 0, 0, 0, -2794, -2794, -2794, 0, 0, 0, 0,
- 0, -2794, 2074, 2037, 0, 2038, 0, 0, 0, 0,
- 0, 0, 0, 0, 935, 0, 869, 0, 0, 0,
- 0, 0, 0, 2668, -2794, -2794, -2794, -2794, -2794, -2794,
- -2794, -2794, 0, 0, 0, 2734, 0, 0, 0, 0,
- 1960, 0, 0, 0, 870, 0, 0, 0, 0, 0,
- 0, 849, 0, 0, 0, 0, 0, 317, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, -1827,
- -1827, -1827, 902, 0, 0, 0, 0, 1650, 0, 0,
- 2772, -1827, 0, 0, 2043, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 321, 0, 0, -2794,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, -1827,
- 0, 0, 0, 0, 2777, 0, 0, 0, 0, 2778,
- 0, 0, 0, 0, 0, 2792, 1684, 0, 0, 2039,
- 0, 0, 0, 0, 0, 0, 0, -2794, 0, 0,
- 0, 0, 0, -2794, -2794, 0, 0, 0, 0, 0,
- 0, 871, 0, 0, 0, 2826, 942, 942, 942, -2794,
- 0, 0, 2836, 2836, 0, 0, 0, 0, -1827, -1827,
- -1827, 0, 2845, 0, 2846, 0, 0, 0, -1827, 0,
- -1827, 0, 0, 0, 0, 0, 0, -1827, 2040, 905,
- 905, -1827, -1827, -1827, 2858, 1876, 0, 1877, 1878, 0,
- -1827, 0, 0, -1827, 0, 850, 0, 0, 0, 0,
- 0, 851, 852, 1685, 0, 0, 0, 2335, 2044, 0,
- -1827, 853, 0, 2045, 0, 322, 0, 854, 0, 2041,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 942, 0, 2734, 0, 0, 0,
- 0, 872, 873, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 2046, 0, 0, 0, 0, 0, 0, 0,
- 0, -2794, 0, 0, 2047, 0, 909, 909, 0, 0,
- 0, 0, 0, 0, 0, 935, -1827, 0, 0, 935,
- -2794, 0, 0, -1827, 0, 0, 2336, 0, 0, 0,
- 0, 0, 0, 323, 0, 0, 0, 2337, 0, 0,
- 0, 0, 0, 0, -1827, 0, 0, 0, 0, 0,
- 0, 875, 0, 2042, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, -2794, -2794, -2794, 0, 0, 0,
- 0, 0, 0, 3091, 0, 0, -2794, 0, 876, 0,
- 0, 0, 0, 0, 0, 0, 877, 0, -2794, -2794,
- 0, 0, 905, 1122, 0, 0, -1827, 0, 0, 3552,
- 0, 0, 0, 2048, -2794, 0, 0, 0, 1900, 0,
- 0, 0, 0, 0, 878, 0, 0, 0, 0, -3299,
- 935, 207, 0, 0, 0, 0, 0, 905, 0, 905,
- 0, 0, 855, 856, 857, -2794, 325, 0, 0, 1950,
- 0, 0, 0, 0, 858, 0, 0, 0, 0, 0,
- 0, -1827, 0, 905, 0, 0, 3153, 0, 0, 0,
- 0, 2043, 0, -2794, -2794, -2794, -2794, -2794, 0, 0,
- 0, 0, 318, -2794, 0, -2794, 0, 0, 905, 909,
- 0, 0, -2794, 0, 850, 927, -2794, -2794, -2794, 0,
- 851, 852, 0, 0, 0, -2794, 0, 0, -2794, 0,
- 0, 0, 1122, 0, 0, 0, 854, 0, 0, 0,
- 0, 0, 905, 0, 909, -2794, 909, -1827, 0, 0,
- 0, 0, 0, 0, 0, -1827, 1951, 0, 0, 0,
- 0, 859, 860, 861, 0, -2794, 0, 0, 0, 942,
- 909, 862, 0, 863, 0, 3091, 0, 942, 0, 0,
- 319, -1827, -1827, 0, 864, 865, 866, 0, 0, 0,
- -2794, 0, 0, 867, 0, 909, 320, 0, 0, 0,
- -2794, 3243, 1876, 0, 1877, 1878, 0, 0, 0, -2794,
- 0, -2794, 0, 868, 0, 0, 0, 0, -2794, 0,
- 0, 3257, 0, 0, 0, 2044, -2794, 0, 0, 909,
- 2045, 0, 0, -1827, 0, 0, 942, 0, 942, -2794,
- 0, 0, 0, 0, 0, 3287, 0, 0, 0, 0,
- 0, -1827, 0, 0, 0, 935, 935, 935, 0, 0,
- 0, -2794, -1827, 0, 0, 0, 0, 0, 0, 2046,
- 0, 0, 0, 3294, 0, 0, 0, 0, -1827, 869,
- 905, 2047, 0, 0, 0, 0, -1827, 2734, 1685, 0,
- 0, -2794, 1684, 0, 0, 0, -3299, 0, 0, 0,
- 0, 0, 942, 0, 942, 0, 0, 870, 0, 0,
- 0, 855, 856, 857, -1827, 0, 0, 0, 0, 1684,
- 0, -1827, 0, 858, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, -1827, 0, 0, 0,
- 0, 0, 0, 935, 0, 0, -2794, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 321,
- 0, 0, 0, 0, 0, 0, 0, 909, 0, 0,
- 0, 0, 0, 1261, 942, 902, 902, 0, 0, 1685,
- 2048, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, -3439, -3439, -3439, -3439, 0, 0, 0, 0, -3439,
- 0, 0, 0, 0, 0, 0, 1685, 0, 0, 0,
- 859, 860, 861, 0, 871, 0, 0, -3439, -3439, 0,
- -2794, 0, 0, 0, 0, 0, 0, 0, 0, 3716,
- 0, 0, 0, 864, 865, 866, 0, 0, 0, 0,
- 942, 0, 867, 0, 0, 0, -2794, -2794, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 942, 0, -3291, -3439, 0,
- 0, -3291, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, -2794, 0, -2794, 322, -2794,
- 0, 2075, 0, -2794, 0, -2794, -2794, -2794, -2794, 0,
- -2794, -2794, 2076, 0, 0, -3439, 0, -3439, 0, 0,
- 2029, 2030, 2031, 2032, 872, 873, -2794, 0, 2033, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 869, 874,
- 0, 0, 0, 0, 0, 0, 2034, 2035, 0, 0,
- 0, 0, 0, -2794, 0, 0, 0, 0, 902, 0,
- 0, -2794, 0, 0, 905, 905, 0, 0, 0, 0,
- 0, 0, 0, 927, 0, 0, 323, 0, 3091, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, -2794,
- 0, 0, 0, 902, 875, 902, -2794, 2036, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, -2794, 0, 0, 0, 0, 0, 0, 935, 902,
- 0, 876, 0, 0, 0, 0, 935, 0, 0, 877,
- 0, 0, 0, 0, 2037, 0, 2038, 0, 0, 0,
- 0, -3439, 0, 0, 902, 0, 0, 0, 0, 0,
- 0, 909, 909, 0, 0, 0, 0, 878, 0, 0,
- 905, 0, 0, 0, 207, 0, 0, 0, 0, 0,
- 0, 0, 0, 871, 0, 0, 0, 0, 902, 325,
- 0, 0, 0, 0, 0, 935, 3563, 935, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 1684,
- -3439, 0, 0, 0, 0, 0, 0, 3243, 849, 0,
- 0, 0, 0, 0, 317, 0, 0, 0, 0, 0,
- -1579, 363, 0, 0, 0, 364, 0, 0, 0, 0,
- 2772, 365, 0, 0, 0, 0, 0, 0, 0, 366,
- 0, -3439, 0, 0, 0, 0, 0, 909, 367, 0,
- 0, 935, 0, 935, 0, 0, 0, 0, 0, 0,
- 2039, 0, 0, 942, -1579, 942, 0, 0, 0, 0,
- 0, 0, 0, 872, 873, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 1685, 0, 0, 0,
- 0, 0, 0, 0, 1685, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 942, 0, 0, 0,
- 0, 0, 0, -3291, 0, 0, 902, 0, 0, 2040,
- 0, 368, 369, 935, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, -3439, 0, 0, 0, 0,
- 0, 0, 0, 875, 0, 0, 0, 0, 0, 0,
- 0, 0, 370, 0, 0, 1264, 0, 0, 0, 0,
- 2041, 0, 850, 0, 0, 0, 942, 0, 851, 852,
- 876, 0, 371, 0, 0, 905, 372, 0, 877, 0,
- 0, 0, -3439, 0, 854, 0, 0, 0, 0, 935,
- 0, 0, 0, 0, 373, 0, 0, 0, 0, 0,
- 0, 0, 927, 0, 0, 0, 878, 0, 0, 0,
- 0, 0, 0, 207, 935, 0, 0, 0, 0, 0,
- 0, -1579, 0, 942, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 374,
- 0, 0, 0, -3439, 0, 375, 0, 376, 0, 0,
- 0, 377, 0, 0, 2042, 0, 378, 0, 0, 0,
- 0, 0, 909, 0, 0, 0, 0, -3291, -3291, 0,
- 0, 0, 0, 379, 0, -1579, 0, 0, 0, -1579,
- -1579, -1579, -1579, -1579, 0, -1579, -1579, -1579, -1579, 0,
- -1579, -1579, 0, -1579, -1579, 0, -1579, -1579, -1579, -1579,
- -1579, 0, -1579, -1579, -1579, -1579, -1579, -1579, 0, 0,
- 380, 0, 3851, 0, 0, 0, 892, 0, -1579, 0,
- 0, 0, 0, -1579, 0, 0, 381, 0, 0, 3563,
- 0, 382, -1579, 0, 0, 0, 0, 383, 384, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, -3439, 0, -3439, -3439, 0, 855,
- 856, 857, 2043, 0, 0, 0, 0, 0, 0, 0,
- 0, 858, 0, 0, 0, 0, 0, -3439, 0, 0,
- 0, 0, -3439, 0, 0, 0, 0, 0, 385, 0,
- 902, 902, 0, 0, 0, 0, 0, 386, 0, 318,
- 387, 0, 0, 0, 0, 388, 0, 0, 3908, 0,
- 942, 0, 942, 0, 3910, 0, 3911, 0, 0, 0,
- 0, -3439, 0, 0, 0, 0, 0, 0, 850, 0,
- 0, 389, 3928, -3439, 851, 852, 0, 0, 0, 390,
- 0, 391, 0, 0, 392, 0, 0, 393, 0, 0,
- 854, 0, 0, -1579, 0, 0, 0, 0, 859, 860,
- 861, 0, 0, 394, 0, 0, 0, 0, 862, 0,
- 863, 0, 0, 1876, 0, 1877, 1878, 319, 0, 0,
- 0, 864, 865, 866, 0, 0, 902, 0, 0, 0,
- 867, 0, 0, 320, 0, 0, 2044, 0, 0, 0,
- 0, 2045, 935, 0, 935, 0, 0, 0, 0, 0,
- 868, 0, 0, 0, 905, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 395,
- 0, 0, -3439, 0, 0, 0, 396, 0, 397, 0,
- 2046, 398, 0, 0, 0, 935, 2022, 0, 0, 0,
- 0, 0, 2047, 0, 0, 0, 0, 399, 0, 0,
- 0, 0, 0, 0, 0, 0, -1579, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 869, 0, 0, 0,
- 0, 0, 0, 3919, 0, 0, -1579, -1579, -1579, 0,
- -1579, -1579, -1579, -1579, 534, 0, 0, 0, 0, 0,
- 0, 909, 0, 0, 870, 935, 0, 0, 0, 0,
- -1579, -1579, 400, 0, 0, 0, 0, 0, 0, 0,
- 4058, 0, 0, 0, 0, 855, 856, 857, 0, 0,
- 0, 0, 0, 0, 0, 401, 0, 858, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 2048, 0, 0, 0, 0, 321, 0, 0, 0,
- 0, 0, 935, 4079, 0, 318, 4082, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 402, 0, 0, 0,
- 0, 0, 403, 0, 0, 0, 0, 404, 0, 0,
- 405, 406, 0, 0, 0, 0, 0, 0, 4091, 4094,
- 0, 902, 0, 0, 0, 0, 0, 0, 0, 407,
- 0, 871, 0, 0, 0, 0, 0, 0, 0, 4126,
- 0, 0, 0, 0, 859, 860, 861, 408, 0, 0,
- 0, 0, 409, 0, 862, 0, 863, 0, 0, 410,
- 0, 0, 0, 319, 0, 0, 411, 864, 865, 866,
- 0, 0, 0, 0, 0, 0, 867, 0, 0, 320,
- 0, 0, 0, 0, 0, 412, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 3078, 0, 0,
- 413, 0, 0, 0, 0, 322, 414, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, -1579, 0, 415, 0, 0, 0, 0, 0,
- 0, 872, 873, 0, 0, 0, 0, 0, 416, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 417, 418,
- 0, 0, 0, 0, 0, 0, 0, 419, 0, 0,
- 420, 0, 869, 0, 0, 0, 0, 0, 0, 935,
- 0, 935, 0, 0, 0, 421, 0, 4091, 0, 0,
- 4094, 0, 0, 323, 0, 0, 0, 0, 1684, 0,
- 870, 0, 0, 0, 0, 0, 0, -1579, 0, 0,
- 0, 875, 0, 0, 0, 0, 0, 0, -1579, 0,
- 0, 0, 3079, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 423, 0, 0, 0, 0, 0, 876, 362,
- 363, 0, 0, 0, 364, 424, 877, 0, 0, 0,
- 365, 425, 321, 0, 0, 0, 0, 0, 366, 0,
- 0, 4208, 0, 0, 0, 0, 0, 367, 0, 0,
- 0, 0, 0, 0, 878, 0, 426, 0, 0, 0,
- 0, 207, 0, 0, 0, 1685, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 325, -1579, 0, 4288,
- 0, 0, 0, 0, 0, 0, 0, 871, 0, 427,
- 0, 0, 0, 1684, 428, 0, 0, 0, 0, 0,
- 0, 0, -1579, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 368, 369, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 902, 370, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 322, 0, 0, 0, 4340, 0, 0, 0, 0,
- 0, 371, 0, 0, 4347, 372, 0, 0, 4352, 0,
- 1685, 0, 0, 0, 0, 0, 0, 872, 873, 0,
- 0, 0, 0, 373, 0, 0, 0, 0, 3123, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 4347, 0, 0, 4394, 4399, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 893, 374, 323,
- 0, 894, 895, 0, 375, 0, 376, 0, 4426, 4437,
- 377, 0, 0, 0, 0, 378, 0, 875, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 1684, 0, 0,
- 4394, 0, 379, 0, 0, 4399, 0, 0, 0, 0,
- 0, 0, 0, 0, 876, 0, 0, 0, 0, 4480,
- 0, 0, 877, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 4491, 0, 0, 0, 0, 380,
- 0, 0, 0, 0, 0, 4504, 0, 0, 0, 4563,
- 878, 0, 0, 0, 0, 381, 0, 207, 0, 0,
- 382, 0, 0, 0, 0, 0, 383, 384, 0, 0,
- 0, 0, 325, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 1685, 0, 4582, 0, 0, 4584,
- 4585, 4586, 4587, 0, 0, 0, 0, 0, 0, 4593,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 4605, 0, 0, 0, 0, 385, 0, 0,
- 0, 0, 0, 0, 0, 0, 386, 0, 0, 387,
- 850, 2318, 0, 0, 388, 0, 851, 852, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 4638,
- 0, 0, 854, 4640, 0, 0, 0, 0, 0, 0,
- 389, 0, 0, 0, 0, 0, 0, 0, 390, 0,
- 391, 0, 0, 392, 0, 0, 393, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 394, 0, 0, 0, 4659, 4660, 4661, 4662,
- 4663, 4664, 4665, 4666, 4667, 4668, 4669, 4670, 4671, 4672,
- 4673, 4674, 4675, 4676, 4677, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 4691, 0, 0, 0,
- 0, 0, 0, 0, 0, 1122, 3091, 0, 0, 0,
- 0, 0, 0, 0, 0, 3091, 0, 0, 0, 0,
- 4647, 0, 0, 0, 0, 0, 0, 0, 395, 0,
- 0, 0, 0, 0, 0, 396, 0, 397, 0, 0,
- 398, 0, 4711, 0, -1563, 363, 0, 0, 0, 364,
- 0, 0, 0, 0, 4712, 365, 399, 0, 0, 0,
- 4719, 0, 0, 366, 0, 0, 4691, 4691, 0, 0,
- 0, 0, 367, 0, 0, 0, 0, 0, 0, 0,
- 0, 927, 0, 0, 0, 0, 0, 2501, 0, 4744,
- 4745, 0, -295, 0, 0, 0, -295, 855, 856, 857,
- 0, 0, 927, 4691, 0, 0, 0, 0, 0, 858,
- 0, 400, 0, 0, 0, -295, 0, 0, 0, 0,
- 0, 0, 4758, 0, 0, 0, 0, 0, -295, 4719,
- 0, 0, 0, 0, 401, 0, 4775, 0, 0, 0,
- 0, 0, 0, 0, 0, 368, 369, 0, 0, 0,
- 0, 0, 0, 4787, 0, 0, -295, 4719, 4719, 0,
- 0, 0, 0, 4719, 0, 4833, 4719, 0, 0, 0,
- 4719, 4719, 0, 0, 0, 402, 370, 0, 0, 0,
- 0, 403, 0, 0, 0, 0, 404, 0, 0, 405,
- 406, 0, 0, 0, 0, 0, 371, 0, 861, 0,
- 372, 0, 0, 0, 0, 0, 0, 0, 407, 0,
- 0, 4864, 0, 0, 0, 1125, 0, 0, 373, 864,
- 865, 866, -295, 905, 905, 0, 408, 0, 867, 0,
- 0, 409, 0, 0, 849, 0, 0, 0, 410, 0,
- 317, 0, 0, 0, 0, 411, 0, 0, 0, 0,
- 0, 0, 0, 905, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 374, 412, 0, 0, 0, 0, 375,
- 0, 376, 4928, 4928, 0, 377, 0, 0, 0, 413,
- 378, 0, 0, 0, 0, 414, 0, -295, 0, 0,
- 4935, 0, 0, 0, 0, 0, 0, 379, 0, 0,
- 4938, 4942, 0, 415, 0, 4928, 0, 0, 0, 0,
- 909, 909, 4950, 0, 869, 0, 0, 416, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 417, 418, 0,
- 0, 0, 0, 0, 380, 0, 419, 0, 0, 420,
- 909, 0, 0, -295, 0, 0, 0, 0, 0, 0,
- 381, 0, 0, 0, 421, 382, 0, 0, 0, 0,
- 0, 383, 384, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 422, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 850, 0,
- 0, 0, 0, 0, 851, 852, 0, 0, 0, 0,
- 0, 423, 0, 0, 1112, 0, 0, 0, 0, 0,
- 854, 0, 385, 0, 424, 0, 0, -295, -295, 0,
- 425, 386, 0, 0, 387, 0, 0, 0, 0, 388,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 426, 0, 1768, 0, 871,
- 0, 0, 0, 0, 0, 389, 0, 0, 0, 0,
- 0, 0, 0, 390, 0, 391, 0, 0, 392, 0,
- 0, 393, 0, 0, 0, 0, 0, -630, 427, 0,
- 0, 0, 0, 428, 0, 0, 0, 394, 0, 0,
- 0, 429, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, -295, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, -630, 0, 0, -630, -630, -630, -630,
- -630, 0, -630, -630, 0, 0, 0, 0, -295, 0,
- 0, 0, 0, -630, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 872,
- 873, 0, 0, 395, 0, 0, 0, 0, 0, -295,
- 396, 0, 397, 0, 0, 398, 0, 0, 0, 0,
- 0, 0, -630, 0, 0, -295, 0, 0, 0, 0,
- 0, 399, 0, 0, 0, 855, 856, 857, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 858, 0, 0,
- -630, -630, 0, -630, -630, -630, -630, -630, -630, -630,
- -630, -630, 0, 0, 0, 0, 0, 0, 0, 875,
- 0, 0, 0, 0, 0, 318, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 400, 0, 0, 0,
- 0, -295, 0, 0, 0, 0, 876, 0, 0, 0,
- 0, 0, 0, 0, 877, 0, 0, 0, 0, 401,
- 0, 0, -630, 0, 0, 0, 0, 0, 0, 0,
- -630, 0, 0, 0, 0, 0, 0, -630, -630, 0,
- 0, 0, 878, -295, 859, 860, 861, 0, 0, 207,
- 0, -295, 0, 0, 862, 0, 863, 0, 0, 0,
- 402, 0, 0, 319, 0, 0, 403, 864, 865, 866,
- 0, 404, 0, 0, 405, 406, 867, 0, 0, 320,
- 0, 0, 0, 0, 0, 0, 0, -295, 0, 0,
- 0, 0, 0, 407, 0, 0, 868, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 902,
- 902, 408, 0, 0, 0, 0, 409, 0, 0, -295,
- 0, 0, 0, 410, 0, 0, 0, 0, -630, -630,
- 411, 0, 0, 0, -295, 0, 0, 0, 0, 902,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 412,
- 0, -295, 0, -630, -630, -630, -630, -630, 0, -630,
- -630, -630, 869, 0, 413, 0, 0, 0, -630, 0,
- 414, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, -630, 0, 0, -630, 0, 0, 415, 0,
- 870, 0, 0, 0, 0, 0, 0, 0, -630, 0,
- -295, 0, 416, 0, 0, 0, 0, 0, 0, 0,
- -295, -295, 417, 418, 0, -630, -295, 0, 0, 0,
- 0, 419, -630, 0, 420, 0, 0, 0, 0, 0,
- -295, 0, 0, 0, 0, 0, 0, 0, -630, 421,
- -630, 0, 321, 0, 0, 0, 850, 0, 0, -295,
- -630, 0, 851, 852, 0, 0, 0, 0, 0, 0,
- 0, -1563, -630, 0, 0, 0, 0, 0, 854, 0,
- 0, 0, 0, 0, -630, 0, 0, 0, 4313, 0,
- 0, 0, 0, 0, -635, -630, 423, 0, 0, 0,
- 0, 0, 0, 0, -630, 0, 0, 871, 0, 424,
- 0, 0, 0, -295, 0, 425, 0, -295, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, -295, -295, -635, 0, 0, 0, 0,
- 426, 0, -630, 0, 0, 0, 0, 0, -635, -635,
- -635, -635, 0, -635, 0, 0, -635, 0, 0, 0,
- 0, 0, 0, 0, 0, -635, 0, 0, 0, 0,
- 0, 0, 0, 427, -635, -635, 0, 0, 428, 0,
- 0, 322, 0, 0, 0, 0, -1563, 0, 0, 0,
- 0, 0, 0, 0, 0, -635, 0, 0, 0, -630,
- 0, 0, 0, 0, 0, 0, 0, 872, 873, 0,
- 0, 0, -635, 0, 0, 0, 0, -635, 0, 0,
- -630, 0, 1113, 0, -635, -635, 0, 0, -635, 0,
- 0, 0, 0, 0, 0, -635, -630, 0, 0, 0,
- 0, -630, 0, 0, 0, 0, 0, -630, 0, 0,
- 0, 0, 0, 855, 856, 857, 0, -630, 0, 323,
- 0, 0, -635, 0, -630, 858, 3007, 0, 0, 0,
- 3008, 0, 0, -635, 0, 0, 0, 875, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 3009,
- 0, 0, 0, 318, -635, 0, 0, -630, 0, 0,
- 0, 0, 3010, 0, 876, 0, 0, 0, 0, 0,
- 0, 0, 877, 0, -630, 0, 0, 0, -635, -635,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 878, 0, 0, 0, 0, 0, 0, 207, 0, 0,
- 0, 0, 0, -630, 861, 0, -630, 0, 0, 0,
- 0, 0, 325, 0, 0, 0, 0, 0, 0, 0,
- -630, 319, 0, 0, 0, 864, 865, 866, 0, -635,
- 0, 0, 0, 0, 867, 0, 0, 320, -635, 0,
- 0, -630, 0, -630, -630, -630, 548, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, -630, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 1179, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, -630,
- 0, 0, 0, 0, 0, 0, 0, -635, 0, 0,
- 0, 0, 0, -635, 0, 0, -635, 0, -635, 0,
- 0, 801, 0, 0, 0, 0, -635, 0, 0, 0,
- 869, 0, 0, -630, 0, 0, -635, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, -635, 0,
- -635, 0, 0, 0, 0, 0, -630, 0, 0, 0,
- 0, 0, 0, -630, -630, 0, 0, 0, 0, 0,
- 0, 0, 0, -630, -630, -630, 0, 3011, 0, 0,
- 0, -635, 0, 0, 0, 0, 0, 0, 0, -630,
- 0, -635, 0, 0, 0, -635, 0, 0, -630, 0,
- 0, 0, 0, -635, -630, 0, -630, -635, -630, 0,
- 321, -630, 0, 0, 0, -630, 0, 0, 0, 0,
- -635, 0, 0, 0, -635, 0, 0, -635, -635, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, -635, 0, -635, 0, 0, -630, 0, 1024,
- 0, 3012, 3013, 0, 0, 0, 0, 0, 0, 0,
- -2794, 0, 0, 0, 0, 871, -2794, 0, 0, 0,
- -2794, -2794, -2794, -635, 0, 0, 0, 0, -2794, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, -635, 0,
- 0, 0, 0, 0, 0, -635, 0, 0, 0, 0,
- 0, -2794, -2794, -2794, -2794, -2794, -2794, -2794, -2794, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, -635, 0,
- -635, 0, -635, 0, 0, 0, 0, 3014, 0, 322,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- -635, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 802, 0, 0, 872, 873, -635, 0, 0,
- 0, 0, 0, 0, -635, -635, -2794, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 3015, 0, 0, 0, 0, -635, 0,
- 0, 0, 0, 0, -635, 0, 0, -635, -635, -382,
- 0, 0, 0, 0, -2794, 0, 0, 323, 0, 0,
- -2794, -2794, 0, 0, 0, 0, 0, 0, 0, 1024,
- 0, 0, 0, 0, 0, 875, -2794, 0, 0, 0,
- -2794, 0, 0, 0, 0, 0, -2794, 0, 0, -635,
- -2794, -2794, -2794, 0, 0, 0, 0, 0, -2794, 0,
- 0, -635, 876, -635, -635, 0, 0, 0, 0, 0,
- 877, -635, 0, 0, 0, 3016, 0, 0, 0, 0,
- 0, -2794, -2794, -2794, -2794, -2794, -2794, -2794, -2794, 0,
- -635, 0, 0, 0, 0, 0, 0, -635, 878, 0,
- 0, 0, 0, 0, 0, 207, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 3017, 0, 0,
- 325, 0, -635, 0, 0, 3018, 0, 0, -635, 0,
- 0, 0, 0, 0, 0, 0, -635, 0, 0, 0,
- -635, 0, 0, 0, 0, 0, 0, 0, -2794, 0,
- 0, -635, 0, 0, 0, 0, -2794, 0, 0, 0,
- 0, 803, 0, 0, 0, 0, 2767, -2794, 0, 0,
- 0, 0, 0, 0, -635, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 3019, -2794, 0, 0, 0, 0, -635,
- -2794, -2794, 0, 0, -635, 0, 0, 0, 3020, 0,
- -635, -2794, -2794, -2794, -635, 0, -2794, 0, 0, 0,
- 0, 0, 0, -2794, 0, 3021, 0, -635, 0, 0,
- 0, -635, 0, 0, 0, -2794, -2794, 0, 0, -635,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, -2794, 0, 0, 0, 0, 0, 0, 0, 0,
- -635, 0, 0, 0, 0, 0, 0, 0, -635, -635,
- 0, 0, 0, 0, 804, 0, 0, -635, 0, 0,
- 0, 0, -2794, 0, -3305, 0, 0, 0, 0, 0,
- 3022, 0, 0, -635, 0, 0, 0, 0, 0, 0,
- 0, 0, 218, 0, 3023, 0, 0, 0, 0, 0,
- -2794, -2794, -2794, -2794, -2794, 0, 0, -635, 0, 0,
- -2794, 0, -2794, -379, 0, 0, 0, 0, -2794, -2794,
- 0, 0, 0, -2794, -2794, -2794, 0, 0, 0, 0,
- 0, 0, -2794, 0, 0, -2794, 0, -2794, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, -2794, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 805, 0, 0,
- 0, 3024, -2794, 0, 0, 0, 0, 0, 0, 0,
- 0, -2794, -2794, -2794, 0, 0, 0, 3025, 3026, 0,
- 0, 0, 0, -2794, 0, 0, 0, -2794, 0, 0,
- 0, 0, 0, 0, 0, -2794, -2794, -2794, 0, 0,
- 0, 0, 0, 0, 0, 0, -2794, 0, -2794, 0,
- 0, -2794, 0, 0, 0, -2794, 0, 0, 0, 0,
- 0, 0, 0, -2794, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, -2794, 0, 0, 849,
- 0, 0, -2794, 0, 0, 317, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, -2794, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- -2794, -2794, -2794, -2794, -2794, 0, 0, 0, 0, 0,
- -2794, 0, -2794, 0, 0, 0, 0, 0, -2794, -2794,
- 0, 0, 0, -2794, -2794, -2794, 0, 0, 0, 0,
- 0, 0, -2794, 0, 0, -2794, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, -2794, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, -2794, -2794, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, -2794, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, -2794, 0, 0,
- 0, 0, 0, 0, 0, 0, -2794, 0, -2794, 0,
- 0, 0, 0, 850, 0, -2794, 0, 3371, 0, 851,
- 852, 0, 0, -2794, 0, 0, 0, 0, -2823, 0,
- 0, 0, 0, 0, -2823, 854, -2794, -2794, -2823, -2823,
- -2823, 0, 0, 0, 0, 0, -2823, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, -2794, 0,
- 0, 0, 0, -2794, -2794, 0, 0, 0, 0, -2823,
- -2823, -2823, -2823, -2823, -2823, -2823, -2823, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, -2794, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, -2794, 0, -2794, 0, -2794, 0, 0, 0,
- -2794, 0, -2794, -2794, -2794, -2794, 0, -2794, -2794, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, -2794, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, -2794, -2823, 0, 0, 0, 0, -3439,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- -2794, 0, 0, 0, 0, 0, 0, 0, -2794, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, -2823, 0, 0, 0, 0, 0, -2823, -2823,
- 0, 0, 0, 0, 0, 0, -2794, 0, 0, 0,
- 0, 0, 0, -2794, -2823, 0, 0, 0, 0, 0,
- 855, 856, 857, 0, 0, 0, 0, -2794, -2794, 0,
- 0, 0, 858, 0, 0, 1019, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, -2794, -2794, 0, 0, 0, 0, 0,
- 318, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, -2794, 0, -2794, 0, -2794, 0, 0, 0,
- -2794, 0, -2794, -2794, -2794, -2794, 0, -2794, -2794, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 859,
- 860, 861, 0, -2794, 0, 0, -2823, 0, 0, 862,
- 0, 863, 0, 0, 0, 0, 0, 0, 319, 0,
- 0, 0, 864, 865, 866, -2823, 0, 0, 0, 0,
- -2794, 867, 0, 0, 320, 0, 0, 0, -2794, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 868, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, -2794, 0, 0, -2823,
- -2823, -2823, 0, -2794, 0, 0, 0, 0, 0, 0,
- 0, -2823, 0, 0, 0, 0, 0, 0, -2794, 0,
- 0, 0, 0, -2823, -2823, -3439, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, -2823,
- 0, 1261, 0, 0, 0, 0, 0, 869, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, -3439,
- -3439, -3439, -3439, 0, 0, 0, 0, -3439, 0, 0,
- 0, 0, 0, 0, 0, 870, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, -3439, -3439, 0, 0, 3189,
- 0, 3190, 0, 0, 0, 0, 0, 0, -2823, -2823,
- -2823, -2823, -2823, 0, 0, 0, 0, 0, -2823, 0,
- -2823, 0, 0, 0, -2003, 0, 0, -2823, 0, 0,
- 0, -2823, -2823, -2823, 0, 0, 0, 321, 0, 0,
- -2823, 0, 0, -2823, 0, -3291, -3439, 0, 0, -3291,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- -2823, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- -2823, 0, 0, -3439, 0, -3439, 0, 0, 0, 0,
- 1021, 0, 871, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, -2823, 3371, 0, 0, 0,
- 0, 0, 0, 0, 0, -2823, 0, -2823, 0, 0,
- 0, 0, 0, -2823, -2823, 0, -2823, -2823, -2823, -2823,
- 0, 0, 0, -2823, 0, -2823, 0, 0, 0, 0,
- 0, -2823, 0, 0, 3729, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, -2823, 0, 0, 0, -2823, -2823,
- -2823, -2823, -2823, -2823, -2823, -2823, 322, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, -2823, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 872, 873, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, -2823, 0, 0, -3439,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, -2823, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 323, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, -2823, 875, 0, 0, 0, 0, 0, -3439, 0,
- 0, -2823, 0, 0, 0, 0, 0, -2823, -2823, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 876,
- 0, 0, 0, -2823, 0, 0, 0, 877, 0, 0,
- 3191, 0, 0, 0, 0, 0, 0, 0, 0, -3439,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 878, 0, 0, 0, 0,
- 0, 534, 207, 0, 0, -2823, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 325, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, -2823, -2823, 0, 0, 0, 0, -2003, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, -3291, 0, 0, 0, 3192, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- -2823, 0, -2823, -3439, -2823, -2823, 0, 0, -2823, 0,
- -2823, -2823, -2823, -2823, 0, -2823, -2823, 0, 0, 0,
- 0, 0, 0, 0, -2823, 0, 0, 0, 0, 0,
- 0, -2823, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, -3439,
- 0, 0, 0, 0, 0, 0, 0, 0, -2823, 0,
- 0, 0, 0, 0, 0, 0, -2823, 0, -2823, -2823,
- -2823, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- -2823, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, -2823, -2823, -2823, 0, 0, 0, 0, 0,
- 0, -2823, 0, 0, 0, 0, 0, 0, -2823, 0,
- 0, -3439, 0, 0, 0, 0, -2823, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 3193, -3291, -3291, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, -2823, -2823, -2823,
- -2823, -2823, 0, 0, 0, 0, 0, -2823, 0, -2823,
- 0, 0, 0, 0, 0, 0, -2823, 0, 0, 0,
- -2823, -2823, -2823, 0, 0, 0, 0, 0, 0, -2823,
- 0, 0, -2823, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, -2823,
- 0, 0, -3439, 0, -3439, -3439, 0, 0, 0, 0,
- -2003, 0, 0, 0, 0, 0, 0, 0, 0, -2823,
- 0, 0, 0, 0, 0, -3439, 0, 0, 0, 0,
- -3439, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, -2823, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, -2823, 0, 0, 3194, 0, 0,
- 0, 0, 0, -2823, 0, -2823, 0, 0, 0, -3439,
- 0, 0, -2823, 0, 0, 0, 0, 0, 0, 0,
- -2823, -3439, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, -2823, 0, -3147, 0, 0, 0, 0,
- 0, 1453, 0, 0, 0, -3147, 0, 0, 0, 1454,
- 0, 0, 0, 0, 0, -2823, 0, 0, 0, 0,
- 0, -3147, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, -2003, 0,
- 0, 1455, -3147, 0, 0, -2823, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 3195, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- -3147, 1456, 1457, 1458, 1459, 1460, 1461, 1462, 1463, 0,
- -3439, 0, 0, -3147, -3147, -3147, 0, 1464, -3147, 0,
- 0, 0, 1465, 0, 0, -3147, 0, 0, 0, 0,
- -2823, 0, 0, 1466, 1467, 1468, 1469, -3147, 0, -3147,
- -3147, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 1470, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 1471, 0, 0, 1472, 1473, 1474, -3147, 1475, 0,
- 0, 0, 534, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 1476, 0, -2823, 0, 0, 0, 0, 0,
- 0, 1477, 1478, 1479, 1480, 1481, 1482, 1483, 1484, 0,
- 0, 0, -3147, 0, 1485, 0, 1486, 0, 0, 0,
- -2823, -2823, 0, 0, 0, 0, 0, 0, 0, -3147,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 1487, 1488, 0, 0, 1489,
- 1490, 0, -3147, -3147, 1491, -3147, -3147, 0, 0, -2823,
- 0, -2823, 0, -2823, 0, 0, 0, -2823, 0, -2823,
- -2823, -2823, -2823, 0, -2823, -2823, 1492, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- -2823, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- -3147, 1493, 0, 0, 0, 1494, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, -3147, -2823, 0, 0,
- 1495, 0, 0, 0, 0, -2823, 1496, 1497, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 1498, 1499, 1500, 1501, 1502,
- 0, 0, 1503, -2823, 0, 0, -3147, -3147, -3147, 0,
- -2823, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, -2823, 0, 0, 0, -3147,
- 0, 0, 0, 0, -3147, 0, 0, 0, 0, 0,
- 0, 0, 0, 1504, 1505, 1506, 1507, 0, 0, 0,
- 0, 0, 1508, 1509, 0, 1510, 0, 1511, 1512, 1513,
- -3147, -3147, 1514, 0, 1515, 0, -3147, -3147, 1516, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 1517, 1518, 0,
- 0, 0, 0, 0, 0, 0, 0, 1519, 1520, 1521,
- 1522, 1523, 1524, 0, 0, 0, 0, 0, 0, 0,
- 0, 1525, 0, 0, 0, 1526, 0, 0, 0, 1528,
- 0, -3147, 0, -3147, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- -3147, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, -3147, -3147, -3147, 0, 0, 1529, 0,
- 0, 0, 1530, 0, 1531, 1532, 1533, 1534, 0, 0,
- 0, 0, 0, 0, 0, 1535, 0, 0, 0, 0,
- 0, -3147, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 1536, 0, 0, 0, 0, 0, 0, 0,
- 1537, 0, 0, 0, 0, -3147, -3147, -3147, 0, -3147,
- 0, -3147, -3147, 0, -3147, -3147, -3147, 0, 0, 0,
- 0, 1619, -3147, 0, -3147, -3147, -3147, -3147, 0, 0,
- 0, 0, 0, 0, 0, 0, 1538, 1539, 0, 0,
- -3147, 0, 0, 0, 0, 0, 0, 0, -3147, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, -3147, -3147, 0, 0, 849, 0, 0,
- 0, 1540, -3147, 317, 1541, 0, 0, 0, -3147, 0,
- 0, 0, 0, 0, 0, 1542, 0, 0, 0, 0,
- 0, 1543, 0, 0, 0, 1544, 0, 1545, 1546, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 1547, 0, 0, 1548, 1549, 0, 0, 0, 0,
- 1550, 0, 0, 0, 0, -3147, 0, 0, 0, 0,
- 0, -3147, 0, 0, 0, 0, 1551, 0, 1552, 1553,
- 0, 0, 0, 0, 0, 0, 0, 1554, 1555, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 1556, 1557, 1558, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, -3147, -3147, 0, -3147, 0, 0,
- 0, 1559, 1560, 1561, 1562, -3147, 1563, 0, 0, 0,
- 1564, 1565, 0, 0, 0, 0, 0, 0, 1566, 1567,
- 0, 0, 0, 0, 0, 0, 0, 1568, 1569, 1570,
- -3147, 850, 0, 0, 0, 1571, 0, 851, 852, 0,
- 1572, 0, -3439, -3147, -3147, -3147, -3147, 0, 0, 0,
- 0, 363, 0, 854, 0, 364, 0, 0, 1573, 0,
- 0, 365, 0, -3147, -3147, 0, 0, 0, 0, 366,
- 0, 1574, 1575, 0, -3147, 0, 0, 1576, 367, 0,
- 0, 0, 0, 1620, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 1577, 1578, 0, 0, -3147, 0, 0, 0, 0, 1579,
- 0, 0, 0, 0, 0, 0, 0, 1580, -3147, -3147,
- 0, 0, 0, 1581, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 368, 369, 1582, 0, -3147, 0, 0, 0, 1583,
- 0, 0, 0, 0, 0, -3147, 958, 0, 0, 0,
- 0, 0, -3147, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 370, -3147, 0, 0, 0, -3147, -3147, -3147,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 371, 1584, 0, 0, 372, 0, -3147, -3147,
- 1585, 0, 1586, -3147, -3147, 1587, -3147, 0, 0, 0,
- 0, 959, 1588, -3147, 373, 0, 0, 0, 855, 856,
- 857, 0, 0, 0, 0, 1589, 0, 0, 0, 1590,
- 858, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 318, 374,
- 0, 0, 0, 0, 0, 375, 0, 376, 0, 0,
- 960, 377, 0, 0, 0, 0, 378, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 379, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 859, 860, 861,
- 0, 0, 0, 0, 0, 0, 0, 862, 0, 863,
- 380, 0, 0, 0, 0, 0, 961, 0, 0, 0,
- 864, 865, 866, 0, 0, 0, 381, 0, 0, 867,
- 0, 382, 320, 0, 0, 0, 0, 383, 384, 0,
- 0, 0, 0, 0, 0, 962, 0, 0, 0, 868,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 385, 0,
- 0, 0, 0, 0, 0, 0, 0, 386, 0, 0,
- 387, 0, 0, 0, 0, 388, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 869, 0, 0, 0, 0,
- 0, 0, 963, 0, 0, 0, 0, 0, 0, 0,
- 0, 389, 0, 0, 0, 0, 0, 0, 0, 390,
- 0, 391, 0, 870, 392, 0, 0, 393, 0, 0,
- 317, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 394, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 321, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 395,
- 1640, 0, 0, 0, 0, 0, 396, 0, 397, 0,
- 0, 398, 0, 0, 0, 0, 0, 0, 0, 0,
- 871, 0, 0, 0, 0, 0, 0, 399, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 850, 0,
- 0, 0, 0, 0, 851, 852, 0, 0, 0, 0,
- 0, 0, 400, 0, 0, 0, 0, 0, 0, 0,
- 854, 0, 0, 0, 322, 0, 0, 0, 964, 0,
- 0, 0, 0, 0, 0, 401, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 872, 873, 0, 965, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 402, 0, 0, 0,
- 0, 0, 403, 0, 0, 0, 0, 404, 0, 0,
- 405, 406, 0, 0, 0, 0, 0, 0, 966, 0,
- 0, 0, 323, 0, 0, 0, 0, 0, 0, 407,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 875, 0, 0, 0, 0, 0, 0, 408, 0, 0,
- 0, 0, 409, 0, 0, 0, 0, 0, 0, 410,
- 0, 0, 0, 0, 0, 0, 411, 876, 0, 0,
- 0, 0, 0, 0, 0, 877, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 412, 0, 0, 0, 0,
- 0, 1453, 0, 0, 0, 0, 0, 0, 0, 1454,
- 413, 0, 0, 878, 0, 0, 414, 0, 967, 534,
- 207, 0, 0, 1641, 0, 855, 856, 857, 0, 0,
- 0, 0, 0, 0, 415, 325, 0, 858, 0, 0,
- -1215, 1455, 0, 0, 0, 0, 0, 0, 416, 0,
- 0, 0, 0, -1215, -1215, -1215, -1215, 0, 417, 418,
- 0, -1215, 0, 0, 0, 318, 0, 419, 0, 0,
- 420, 1456, 1457, 1458, 1459, 1460, 1461, 1462, 1463, -1215,
- -1215, 0, 0, 0, 0, 421, 0, 1464, 0, 0,
- 0, 0, 1465, 0, 0, 0, 0, 0, 0, 0,
- -1215, 0, 0, 1466, 1467, 1468, 1469, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 1470, -1215, 0, 859, 860, 861, 0, 0, -1215,
- -1215, 1471, 423, -1215, 1472, 1473, 1474, 0, 1475, 0,
- 0, 0, 0, 1642, 0, 424, 0, 864, 865, 866,
- 0, 425, 0, 0, 0, 0, 867, 0, 0, 320,
- 0, 0, 0, 0, 0, 0, 0, -1215, 0, 0,
- 0, 0, 1476, 0, 0, 0, 426, 0, -1215, 0,
- 0, 1477, 1478, 1479, 1480, 1481, 1482, 1483, 1484, 0,
- 0, 0, 0, 0, 1485, 0, 1486, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 427,
- 0, 0, 0, 0, 428, 0, 0, 0, 0, 0,
- 0, 0, 0, -1215, -1215, 1487, 1488, 0, 0, 1489,
- 1490, 0, 0, 0, 1491, 0, 0, 0, 0, 0,
- 0, 0, 869, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 1492, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 1493, 0, 0, 0, 1494, 0, 0, 0, 0,
- 0, 0, 0, -1215, 0, 0, 0, 0, 0, 0,
- 1495, 0, 0, 0, 0, 0, 1496, 1497, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 321, 0, 0, 1498, 1499, 1500, 1501, 1502,
- 0, 0, 1503, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, -1215, 0, 0, 0, 0, 0, 0, 0,
- 0, -1215, 0, -1215, 0, 0, 0, 0, 0, 0,
- 0, -1215, 0, 1504, 1505, 1506, 1507, 871, 0, 0,
- 0, -1215, 1508, 1509, 0, 1510, 0, 1511, 1512, 1513,
- 0, 0, 1514, -1215, 1515, -1215, 0, 0, 1516, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 1517, 1518, 0,
- 0, 0, 0, 0, 0, 0, -1215, 1519, 1520, 1521,
- 1522, 1523, 1524, 0, 0, 0, -1215, 0, 0, 0,
- 0, 1525, 0, 0, 0, 1526, 0, 0, -1215, 1528,
- 0, 322, -1215, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, -1215, 0, 0, 0, -1215,
- 0, 0, 0, -1215, 0, 0, 0, 872, 873, 0,
- 0, 0, 0, 0, 0, 0, 0, -1215, 1529, -1215,
- 0, 0, 1530, 0, 1531, 1532, 1533, 1534, 0, 0,
- -3439, 0, 0, 0, 0, 1535, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, -1215, 0,
- 0, 0, 1536, 0, 0, 0, 0, 0, 0, 323,
- 1537, 0, 0, -1215, 0, 0, 0, 0, 0, 0,
- -1215, 0, 0, 0, 0, 0, 0, 875, 0, 0,
- 0, 1619, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, -2323, 0, 1538, 1539, 0, 0,
- 0, 0, 0, 0, 876, -1215, 0, -1215, 0, 0,
- 0, 0, 877, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, -1215, 0, -2323, 0, 0,
- 0, 1540, 0, 0, 1541, 0, 0, 0, 0, 0,
- 878, 0, -1215, 0, 0, 1542, 534, 207, 0, -1215,
- -1215, 1543, 0, 0, 0, 1544, 0, 1545, 1546, 0,
- 0, 0, 325, 0, 0, 0, 0, 0, 0, 0,
- 0, 1547, 0, -1215, 1548, 1549, 0, 0, 0, 0,
- 1550, 0, -1215, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 1551, 0, 1552, 1553,
- 0, 0, 0, 0, 0, 0, 0, 1554, 1555, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, -1215, 0, 0, 0, 0, 0,
- 1556, 1557, 1558, 0, 0, 0, -1215, 0, -1215, -1215,
- 0, 0, 0, 0, 0, 0, -1215, 0, 0, 0,
- 0, 1559, 1560, 1561, 1562, 0, 1563, 0, 0, 0,
- 1564, 1565, 0, 0, 0, 0, 0, 0, 1566, 1567,
- 0, 0, -1215, 0, 0, 0, 0, 1568, 1569, 1570,
- 0, 0, 0, 0, 0, 1571, 0, 0, 0, 0,
- 1572, 0, 0, 0, 0, 0, 0, -1215, 0, 0,
- 0, 0, 0, -1215, 0, 0, 0, 0, 1573, 0,
- 0, -1215, 0, 0, 0, -1215, 0, 0, 0, 0,
- 0, 1574, 1575, 0, 0, 0, 0, 1576, 0, 0,
- 0, 0, 0, 1620, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, -1215,
- 1577, 1578, 0, 0, 0, 0, 0, 0, 0, 1579,
- 0, 0, 0, 0, 0, 0, 0, 1580, 0, 0,
- 0, 0, 0, 1581, -1215, 0, 0, 0, 0, -1215,
- 0, 0, 0, 0, 0, -1215, 0, 0, 0, -1215,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, -1215, 1582, 0, 0, 0, 0, 0, 1583,
- 0, 0, 0, 0, -1215, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 1453, 0, 0, 0, 0, 0,
- 0, 0, 1454, 0, 0, -1215, 0, 0, 0, 0,
- 0, 0, 0, -1215, -1215, 0, 0, 0, 0, 0,
- 0, 0, -1215, 1584, 0, 0, 0, 0, 0, 0,
- 1585, 0, 1586, -1216, 1455, 1587, 0, 0, 0, 0,
- 0, 0, 1588, 0, 0, 0, -1216, -1216, -1216, -1216,
- 0, 0, 0, 0, -1216, 1589, 0, 0, 0, 1590,
- 0, 0, -1215, 0, 1456, 1457, 1458, 1459, 1460, 1461,
- 1462, 1463, -1216, -1216, 0, 0, 0, 0, 0, 0,
- 1464, 0, 0, 0, 0, 1465, 0, 0, 0, 0,
- 0, 0, 0, -1216, 0, 0, 1466, 1467, 1468, 1469,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 1470, -1216, 0, 0, 0, 0,
- 0, 0, -1216, -1216, 1471, 0, -1216, 1472, 1473, 1474,
- 0, 1475, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- -1216, 0, 0, 0, 0, 1476, 0, 0, 0, 0,
- 0, -1216, 0, 0, 1477, 1478, 1479, 1480, 1481, 1482,
- 1483, 1484, 0, 0, 0, 0, 0, 1485, 0, 1486,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, -1216, -1216, 1487, 1488,
- 0, 0, 1489, 1490, 0, 0, 0, 1491, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 1492,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 1493, 0, 0, 0, 1494, 0,
- 0, 0, 0, 0, 0, 0, -1216, 0, 0, 0,
- 0, 0, 0, 1495, 0, 0, 0, 0, 0, 1496,
- 1497, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 1498, 1499,
- 1500, 1501, 1502, 0, 0, 1503, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, -1216, 0, 0, 0, 0,
- 0, 0, 0, 0, -1216, 0, -1216, 0, 0, 0,
- 0, 0, 0, 0, -1216, 0, 1504, 1505, 1506, 1507,
- 0, 0, 0, 0, -1216, 1508, 1509, 0, 1510, 0,
- 1511, 1512, 1513, 0, 0, 1514, -1216, 1515, -1216, 0,
- 0, 1516, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 1517, 1518, 0, 0, 0, 0, 0, 0, 0, -1216,
- 1519, 1520, 1521, 1522, 1523, 1524, 0, 0, 0, -1216,
- 0, 0, 0, 0, 1525, 0, 0, 0, 1526, 0,
- 0, -1216, 1528, 0, 0, -1216, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, -1216, 0,
- 0, 0, -1216, 0, 0, 0, -1216, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- -1216, 1529, -1216, 0, 0, 1530, 0, 1531, 1532, 1533,
- 1534, 0, 0, 0, 0, 0, 0, 0, 1535, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, -1216, 0, 0, 0, 1536, 0, 0, 0, 0,
- 0, 0, 0, 1537, 0, 0, -1216, 0, 0, 0,
- 0, 0, 0, -1216, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 1619, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 1538,
- 1539, 0, 0, 0, 0, 0, 0, 0, -1216, 0,
- -1216, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, -1216, 0,
- 0, 0, 0, 0, 1540, 0, 0, 1541, 0, 0,
- 0, 0, 0, 0, 0, -1216, 0, 0, 1542, 0,
- 0, 0, -1216, -1216, 1543, 0, 0, 0, 1544, 0,
- 1545, 1546, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 1547, 0, -1216, 1548, 1549, 0,
- 0, 0, 0, 1550, 0, -1216, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 1551,
- 0, 1552, 1553, 0, 0, 0, 0, 0, 0, 0,
- 1554, 1555, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, -1216, 0, 0,
- 0, 0, 0, 1556, 1557, 1558, 0, 0, 0, -1216,
- 0, -1216, -1216, 0, 0, 0, 597, 0, 0, -1216,
- 0, 0, 598, 0, 1559, 1560, 1561, 1562, 0, 1563,
- 599, 0, 0, 1564, 1565, 0, 0, 0, 0, 600,
- 0, 1566, 1567, 0, 0, -1216, 0, 0, 0, 0,
- 1568, 1569, 1570, 0, 0, 0, 0, 0, 1571, 0,
- 0, 0, 0, 1572, 0, 0, 0, 0, 0, 0,
- -1216, 0, 0, 0, 0, 0, -1216, 0, 0, 0,
- 0, 1573, 0, 0, -1216, 0, 0, 0, -1216, 0,
- 0, 0, 0, 0, 1574, 1575, 0, 0, 0, 0,
- 1576, 0, 0, 0, 0, 0, 1620, 0, 0, 0,
- 0, 0, 601, 602, 0, 0, 0, 0, 0, 0,
- 0, 0, -1216, 1577, 1578, 0, 0, 0, 0, 0,
- 0, 0, 1579, 0, 0, 0, 0, 0, 0, 0,
- 1580, 0, 0, 603, 0, 0, 1581, -1216, 0, 0,
- 0, 0, -1216, 0, 0, 0, 0, 0, -1216, 0,
- 0, 0, -1216, 604, 0, 0, 0, 605, 0, 0,
- 0, 0, 0, 0, 0, -1216, 1582, 0, 0, 0,
- 0, 0, 1583, 0, 0, 606, 0, -1216, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, -1216, 0,
- 0, 0, 0, 0, 0, 0, -1216, -1216, 0, 0,
- 0, 0, 0, 0, 0, -1216, 1584, 0, 0, 0,
- 607, 0, 0, 1585, 0, 1586, 0, 0, 1587, 0,
- 0, 0, 608, 0, 0, 1588, 0, 609, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 1589, 0,
- 0, 0, 1590, 0, 0, -1216, 610, 0, 0, 0,
- 0, 611, 612, 613, 614, 0, 615, 616, 617, 618,
- 0, 619, 0, 620, 621, 622, 0, 623, 624, 625,
- 626, 627, 0, 628, 629, 630, 631, 632, 633, 0,
- 0, 634, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 635, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 636, 637,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 638,
- 0, 0, 0, 0, 0, 0, 0, 0, 639, 0,
- 0, 640, 0, 0, 0, 0, 641, 0, 0, 0,
- 0, 0, 0, 0, 2929, 2930, 2931, 2932, 2933, 0,
- 2934, 2935, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 642, 0, 0, 0, 0, 0, 0, 0,
- 643, 0, 644, 0, 0, 645, 0, 0, 646, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 2936,
- 0, 2937, 2938, 2291, 2939, 2940, 2941, 2942, 2943, 2944,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 647, 0, 0, 0, 0, 0, 0, 648, 0, 649,
- 0, 0, 650, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 651, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 1453, 0, 0, 0, 0, 2945, 2946, 0, 1454, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 1455, 0, 0, 652, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 653, 0, 0, 0,
- 1456, 1457, 1458, 1459, 1460, 1461, 1462, 1463, 0, 0,
- 0, 0, 0, 0, 0, 0, 1464, 0, 0, 0,
- 0, 1465, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 1466, 1467, 1468, 1469, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 654, 0,
- 1470, 2947, 2948, 2949, 2950, 2951, 0, 2298, 2299, 2952,
- 1471, 3394, 0, 1472, 1473, 1474, 0, 1475, 0, 0,
- 655, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 2953, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 656, 0, 0, 2954, 0, 0, 0,
- 657, 1476, 0, 0, 0, 0, 0, 658, 0, 0,
- 1477, 1478, 1479, 1480, 1481, 1482, 1483, 1484, 0, 0,
- 2955, 0, 0, 1485, 0, 1486, 659, 0, 0, 0,
- -777, -777, -777, -777, -777, 0, -777, -777, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 660, 0, 0,
- 0, 0, 0, 0, 1487, 1488, 0, 0, 1489, 1490,
- 0, 0, 0, 1491, 0, 661, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 662,
- 0, 0, 0, 0, 0, 1492, 0, 0, 0, 663,
- 664, 0, 0, 0, 0, 0, 0, 0, 665, 0,
- 0, 666, 0, 0, 0, 0, 0, 0, 0, 0,
- 1493, 0, 0, 0, 1494, -777, 667, -777, -777, -777,
- -777, -777, -777, -777, -777, -777, 0, 0, 0, 1495,
- 2956, 0, 0, 0, 0, 1496, 1497, 0, 668, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 1498, 1499, 1500, 1501, 1502, 0,
- 0, 1503, 0, 669, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 670, 0, 0, 0,
- 0, 0, 671, 0, 0, 0, 0, 0, 0, 0,
- 0, -777, -777, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 1504, 1505, 1506, 1507, 0, 0, 2957, 0,
- 0, 1508, 1509, 0, 1510, 0, 1511, 1512, 1513, 0,
- 0, 1514, 0, 1515, 0, 0, 0, 1516, 0, 2958,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 672, 0, 0, 0, 0, 673, 1517, 1518, 0, 0,
- 0, 0, 2959, 0, 0, 0, 1519, 1520, 1521, 1522,
- 1523, 1524, 0, 0, 0, 0, 0, 0, 0, 0,
- 1525, 0, 0, 0, 1526, 0, 0, 0, 1528, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, -777, -777, -777,
- -777, -777, 0, -777, -777, -777, 0, 1529, 0, 0,
- 0, 1530, 0, 1531, 1532, 1533, 1534, 0, 0, 0,
- 0, 0, 0, 0, 1535, 0, -777, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 1536, -777, 0, 0, 0, 0, 0, 0, 1537,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, -777, 0, 0, 0,
- 1619, 2960, 2961, 2962, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 1538, 1539, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 1540, 0, 0, 1541, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 1542, 0, 0, 0, 0, 0,
- 1543, 0, 0, 0, 1544, 0, 1545, 1546, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 1547, 0, 0, 1548, 1549, 0, 0, 0, 0, 1550,
- 0, 0, 0, 0, 0, 0, -777, 0, 0, 0,
- 0, 0, 0, 0, 0, 1551, 0, 1552, 1553, 0,
- 0, 2963, 2964, 2965, 0, 0, 1554, 1555, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 2966, 0, 0, 1556,
- 1557, 1558, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 3395, 0, 0, 0, 0, 0, 0, 0, 0,
- 1559, 1560, 1561, 1562, 0, 1563, 0, 0, 0, 1564,
- 1565, 0, 0, 0, -777, 0, 0, 1566, 1567, 0,
- 0, 0, 0, 0, 0, 0, 1568, 1569, 1570, 0,
- 0, 0, 0, 0, 1571, -777, 0, 0, 0, 1572,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 1573, -777, 0,
- 0, 0, 0, 0, 1453, 0, 0, 0, 0, 0,
- 1574, 1575, 1454, 0, 0, 0, 1576, 0, 0, 0,
- 0, 0, 1620, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 1577,
- 1578, 0, 0, 0, 1455, 0, 0, 0, 1579, 0,
- 0, 0, 0, 0, 0, 0, 1580, 0, 0, 0,
- 0, 0, 1581, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 1456, 1457, 1458, 1459, 1460, 1461,
- 1462, 1463, 0, 0, 0, 0, 0, 0, 0, 0,
- 1464, 0, 1582, 0, 0, 1465, 0, 0, 1583, 0,
- 0, 0, 0, 0, 0, 0, 1466, 1467, 1468, 1469,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 1470, 0, 0, -777, -777, -777,
- 0, 0, 0, 0, 1471, 0, 0, 1472, 1473, 1474,
- 0, 1475, 1584, 0, 0, 0, 0, 0, 0, 1585,
- 0, 1586, 0, 0, 1587, 0, 0, 0, 0, 0,
- 0, 1588, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 1589, 1476, 0, 0, 1590, 0,
- 0, 0, 0, 0, 1477, 1478, 1479, 1480, 1481, 1482,
- 1483, 1484, 0, 0, 0, 0, 0, 1485, 0, 1486,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 1487, 1488,
- 0, 0, 1489, 1490, 0, 0, 0, 1491, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, -777, -777, -777,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 1492,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, -777, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 1493, 0, 0, 0, 1494, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 1495, 0, 3396, 0, 0, 0, 1496,
- 1497, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 1498, 1499,
- 1500, 1501, 1502, 0, 0, 1503, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 1504, 1505, 1506, 1507,
- 0, 0, 0, 0, 0, 1508, 1509, 0, 1510, 0,
- 1511, 1512, 1513, 0, 0, 1514, 0, 1515, 0, 0,
- 0, 1516, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 1517, 1518, 0, 0, 0, 0, 0, 0, 0, 0,
- 1519, 1520, 1521, 1522, 1523, 1524, 0, 0, 0, 0,
- 0, 0, 317, 0, 1525, 0, 0, 0, 1526, 1527,
- 0, 0, 1528, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 1529, 0, 0, 0, 1530, 0, 1531, 1532, 1533,
- 1534, 0, 0, 849, 0, 0, 0, 0, 1535, 317,
- 0, 0, 0, -3341, -3341, -3341, 0, 0, 0, 0,
- 0, 1410, 1640, 0, 0, 1536, 0, 0, 0, 0,
- 0, 0, 0, 1537, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 1411, 1412, 1413, 1414, 1415, 1416,
- 1417, 1418, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 1538,
- 1539, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 850, 0, 0, 0, 0, 0, 851, 852, 0, 0,
- 0, 0, 0, 0, 1540, 0, 0, 1541, 0, 0,
- 0, 0, 854, 0, 0, 0, 0, 0, 1542, -3341,
- 0, 0, 0, 0, 1543, 0, 0, 0, 1544, 0,
- 1545, 1546, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 1547, 0, 0, 1548, 1549, 0,
- 0, 0, 0, 1550, 0, 0, 0, 850, 0, 0,
- 0, 0, 0, 851, 852, 0, 0, 0, 0, 1551,
- 0, 1552, 1553, 0, 0, 0, 0, 0, 0, 854,
- 1554, 1555, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 1556, 1557, 1558, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 1559, 1560, 1561, 1562, 0, 1563,
- 0, 0, 0, 1564, 1565, 0, 0, 0, 0, 0,
- 0, 1566, 1567, 0, 0, 0, 0, 0, 0, 0,
- 1568, 1569, 1570, 0, 0, 0, 0, 0, 1571, 0,
- 0, 0, 0, 1572, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 1573, 0, 0, 0, 1641, 0, 855, 856, 857,
- 0, -3341, 0, 0, 1574, 1575, 0, 0, 0, 858,
- 1576, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 1419, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 1577, 1578, 0, 0, 318, 0, 0,
- 0, 0, 1579, 0, 0, 0, 0, 0, 0, 0,
- 1580, 0, 0, 0, 0, 0, 1581, 0, 0, 0,
- 0, 0, 0, 0, 855, 856, 857, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 858, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 1582, 0, -3341, -3341,
- 0, 0, 1583, 0, 0, 0, 859, 860, 861, 0,
- 0, 0, 0, 0, 318, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 319, 0, 0, 0, 864,
- 865, 866, 0, 0, 0, 0, 0, 0, 867, 0,
- 0, 320, 0, 0, 0, 1420, 1584, 0, 0, 0,
- 0, 0, 0, 1585, 0, 1586, 0, 0, 1587, 0,
- 0, 0, 0, 0, 0, 1588, 0, 0, 0, 0,
- 0, 0, 0, 859, 860, 861, -3341, -3341, 1589, 0,
- 0, 0, 1590, 862, 0, 863, 0, 0, 0, 0,
- 0, 0, 319, 0, 0, 0, 864, 865, 866, 0,
- 849, 0, 0, 0, 0, 867, 317, 0, 320, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 869, 868, 0, 0, 0, 0,
- 0, -1929, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, -3341, 0, 0, 0, -1929,
- -1929, -1929, -1929, 0, 0, 0, 0, -1929, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 849, 0, 0,
- 1421, 0, 0, 317, 0, -1929, -1929, 2087, 2088, 2089,
- -3341, 0, 0, 0, 0, 3694, 0, 0, 0, -3341,
- 0, 869, 0, 0, 0, 0, 0, 0, -3341, 0,
- 0, 0, 0, 0, 321, 0, 1422, 0, 3695, 3696,
- 3697, 3698, 3699, 3700, 3701, 3702, 0, 0, 0, 870,
- 0, 0, 0, 0, 0, -1929, -1929, 0, 0, -1929,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, -3341, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 850, 0, 0, 0, 0, 871,
- 851, 852, 0, -1929, 0, -1929, 0, 0, 0, 0,
- 0, 321, 0, 0, 0, 0, 854, 0, 0, 0,
- 0, 0, 0, 2090, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 850, 0, 0, 0, 0, 871, 851, 852, 0,
- 0, 0, 0, 322, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 854, 0, 0, 0, 0, 0, 849,
- 0, 0, 0, 0, 0, 317, 0, 0, 0, 872,
- 873, 0, 0, 0, 0, 0, 0, 1410, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, -3439, 0, 0, 0, 0, 0, 0, -1929,
- 1411, 1412, 1413, 1414, 1415, 1416, 1417, 1418, 0, 0,
- 322, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 323, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 872, 873, 0, 875,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, -2323, 0, -1929, 0,
- 0, 855, 856, 857, 0, 2091, 876, 0, 0, 0,
- 0, 0, 0, 858, 877, 1423, 0, 1424, 0, -3341,
- 0, 0, 0, -3341, 3703, -3341, 1425, 1426, 323, -2323,
- 1427, 1428, 0, 0, 0, 0, 0, 0, 0, -1929,
- 0, 318, 878, 0, 0, 0, 875, 0, 534, 207,
- 0, 0, 0, 850, 0, 0, 0, 0, 0, 851,
- 852, 0, 0, 0, 325, 0, 0, 0, 855, 856,
- 857, 0, 0, 876, 0, 854, 0, 0, 0, 0,
- 858, 877, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 2092, 2093, 0, 0, 0, 0, 0, 0,
- 859, 860, 861, 0, 0, 0, 0, 0, 318, 878,
- 862, -1929, 863, 0, 0, 0, 207, 0, 0, 319,
- 0, 0, 0, 864, 865, 866, 0, 0, 0, 0,
- 0, 325, 867, -1929, 0, 320, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 849,
- 0, 0, 868, -1929, 0, 317, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 859, 860, 861,
- 2094, 2095, 0, 0, 0, 0, 0, 862, 0, 863,
- -1929, 0, 0, 0, 0, 0, 319, 0, 0, 0,
- 864, 865, 866, 0, 0, 0, 0, 0, 0, 867,
- 0, 0, 320, 0, 0, 0, 1419, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 869, 868,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 2096,
- 0, -1929, 0, 0, 0, 0, 870, 0, 0, 0,
- 855, 856, 857, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 858, 0, 1421, -1929, -1929, 0, 0, 0,
- 0, 0, 0, 0, 2097, 0, 0, 0, 0, 0,
- 0, 0, 0, 2098, 0, 869, 0, 0, 0, 0,
- 318, 0, 2099, 0, 0, 0, 0, 0, 321, 0,
- 3704, 0, 0, 850, 0, 0, 0, 0, 0, 851,
- 852, 0, 0, 870, 0, 0, 849, 0, 0, 1048,
- 0, 1420, 317, 0, 0, 854, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 2100, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 859,
- 860, 861, -1929, 871, -1929, -1929, 0, 0, 0, 862,
- 0, 863, 0, 0, 0, 321, 0, 0, 319, 0,
- 0, 0, 864, 865, 866, -1929, 0, 0, 0, 0,
- -1929, 867, 0, 0, 320, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 868, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, -1929,
- 871, 0, 0, 0, 0, 0, 0, 322, 0, 0,
- 0, -1929, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 1421, 0, 0, 0,
- 0, 0, 0, 872, 873, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 869, 0, 0,
- 850, 0, 0, 0, 0, 0, 851, 852, 0, 0,
- 0, 0, 1422, 0, 0, 849, 0, 0, 0, 0,
- 0, 317, 854, 0, 322, 870, 0, 0, 0, 0,
- 855, 856, 857, 0, 0, 323, 0, 0, 0, 0,
- 0, 0, 858, 0, 0, 0, 0, 0, 0, 0,
- 872, 873, 0, 875, 0, 0, 0, 0, 0, 0,
- -1929, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 318, 0, 0, 0, -1929, 0, 0, 321, 0, 0,
- 876, 0, 0, 0, 0, 0, 0, 0, 877, 3705,
- 0, 3706, 0, 2101, 0, 0, 0, 2102, 0, 2103,
- 3707, 3708, 323, 0, 3709, 3710, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 878, 0, 0, 0,
- 875, 0, -1929, 207, 0, 0, 0, 0, 0, 859,
- 860, 861, 871, 0, 0, 0, 0, 0, 325, 862,
- 0, 863, 0, 0, 0, 0, 0, 876, 319, 0,
- 0, 0, 864, 865, 866, 877, 0, 849, 0, 0,
- 0, 867, 0, 317, 320, 0, 0, 0, 0, 850,
- 0, 0, 0, 0, 0, 851, 852, 0, 0, 0,
- 0, 868, 0, 878, 0, 0, 0, 0, 0, 0,
- 207, 854, 0, 0, 0, 0, 0, 855, 856, 857,
- 0, 0, 0, 0, 0, 325, 322, 0, 0, 858,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 849, 0, 0, 0, 0,
- 0, 317, 872, 873, 0, 0, 0, 318, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 869, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 1423, 0, 1424, 0, 870, 0, 0, 0, 0,
- 0, 0, 1425, 1426, 323, 0, 1427, 1428, 0, 0,
- 0, 0, 0, 0, 0, 0, 859, 860, 861, 0,
- 0, 0, 875, 0, 0, 0, 862, 0, 863, 0,
- 0, 850, 0, 0, 0, 319, 0, 851, 852, 864,
- 865, 866, 0, 0, 0, 0, 0, 321, 867, 876,
- 0, 320, 0, 854, 0, 0, 0, 877, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 868, 0,
- 0, 849, 0, 0, 0, 0, 0, 317, 0, 0,
- 0, 0, 0, 0, 0, 878, 855, 856, 857, 0,
- 0, 0, 207, 0, 0, 0, 0, 0, 858, 850,
- 0, 0, 871, 0, 0, 851, 852, 325, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 854, 0, 0, 0, 0, 318, 0, 0, 0,
- 0, 0, 0, 0, 869, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 870, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 322, 0, 0, 0,
- 0, 0, 0, 0, 0, 859, 860, 861, 0, 0,
- 0, 0, 0, 0, 0, 862, 0, 863, 0, 0,
- 0, 0, 872, 873, 319, 0, 0, 0, 864, 865,
- 866, 0, 0, 849, 321, 0, 0, 867, 0, 317,
- 320, 0, 0, 0, 0, 850, 0, 0, 855, 856,
- 857, 851, 852, 0, 1716, 0, 0, 868, 0, 0,
- 858, 0, 0, 0, 0, 0, 0, 854, 0, 0,
- 0, 0, 0, 0, 323, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 318, 871,
- 0, 0, 875, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 855, 856, 857, 876,
- 0, 0, 0, 869, 0, 0, 0, 877, 858, 0,
- 963, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 859, 860, 861,
- 0, 870, 0, 0, 0, 878, 318, 862, 0, 863,
- 0, 0, 207, 322, 0, 0, 319, 0, 0, 0,
- 864, 865, 866, 0, 849, 0, 0, 325, 0, 867,
- 317, 0, 320, 0, 0, 0, 0, 850, 0, 872,
- 873, 0, 0, 851, 852, 0, 0, 0, 0, 868,
- 0, 0, 0, 321, 0, 0, 0, 0, 0, 854,
- 0, 0, 0, 0, 0, 859, 860, 861, 0, 0,
- 0, 0, 0, 0, 0, 862, 1297, 863, 0, 0,
- 0, 0, 0, 0, 319, 0, 0, 0, 864, 865,
- 866, 323, 855, 856, 857, 0, 0, 867, 0, 0,
- 320, 0, 0, 0, 858, 0, 0, 0, 871, 875,
- 0, 0, 0, 0, 0, 869, 0, 868, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 318, 0, 0, 0, 876, 0, 0, 0,
- 0, 0, 0, 870, 877, 0, 0, 0, 0, 0,
- 849, 0, 0, 0, 0, 0, 317, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 878, 0, 0, 0, 0, 0, 850, 207,
- 0, 0, 322, 869, 851, 852, 0, 0, 0, 0,
- 0, 859, 860, 861, 325, 321, 0, 0, 0, 0,
- 854, 862, 0, 863, 0, 0, 0, 0, 872, 873,
- 319, 870, 0, 0, 864, 865, 866, 0, 0, 0,
- 0, 0, 0, 867, 0, 0, 320, 0, 0, 0,
- 0, 0, 0, 0, 855, 856, 857, 0, 0, 0,
- 0, 0, 0, 868, 0, 0, 858, 0, 0, 0,
- 871, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 323, 0, 0, 321, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 318, 0, 0, 0, 875, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 1959, 0, 0, 0, 0, 0, 317, 0,
- 0, 0, 0, 0, 850, 876, 0, 0, 0, 869,
- 851, 852, 0, 877, 0, 0, 0, 0, 871, 0,
- 0, 0, 0, 0, 322, 0, 854, 0, 0, 0,
- 0, 0, 0, 859, 860, 861, 0, 870, 0, 0,
- 0, 878, 0, 862, 0, 863, 0, 0, 207, 0,
- 872, 873, 319, 0, 0, 0, 864, 865, 866, 0,
- 0, 0, 0, 325, 0, 867, 0, 0, 320, 0,
- 0, 0, 0, 0, 0, 855, 856, 857, 0, 0,
- 0, 0, 0, 0, 0, 868, 0, 858, 0, 321,
- 0, 0, 322, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 323, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 318, 0, 0, 872, 873,
- 875, 0, 0, 0, 0, 0, 0, 3365, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 871, 0, 850, 876, 0, 0,
- 0, 869, 851, 852, 0, 877, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 854, 0,
- 323, 0, 2755, 0, 859, 860, 861, 0, 0, 870,
- 0, 0, 0, 878, 862, 0, 863, 0, 875, 0,
- 207, 0, 0, 319, 0, 0, 0, 864, 865, 866,
- 0, 855, 856, 857, 0, 325, 867, 0, 0, 320,
- 3306, 0, 0, 858, 0, 876, 0, 0, 322, 0,
- 0, 0, 0, 877, 0, 0, 868, 0, 0, 0,
- 0, 321, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 318, 0, 0, 872, 873, 0, 0, 0, 0,
- 0, 878, 0, 0, 0, 0, 0, 0, 207, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 325, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 871, 0, 0, 0,
- 0, 0, 869, 0, 0, 0, 323, 0, 0, 0,
- 859, 860, 861, 0, 0, 0, 0, 0, 0, 0,
- 862, 0, 863, 0, 875, 0, 0, 0, 0, 319,
- 870, 0, 0, 864, 865, 866, 0, 0, 0, 0,
- 0, 0, 867, 0, 0, 320, 0, 0, 0, 0,
- 0, 876, 0, 855, 856, 857, 0, 0, 0, 877,
- 0, 0, 868, 0, 0, 858, 0, 0, 0, 0,
- 322, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 2168, 0, 321, 0, 0, 0, 0, 878, 0, 0,
- 2169, 0, 0, 318, 207, 0, 872, 873, 0, 0,
- 0, 0, 0, 0, 0, 0, 2170, 0, 0, 325,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 2171, 869, 0,
- 0, 0, 0, 0, 0, 0, 0, 871, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 323, 0,
- 0, 0, 859, 860, 861, 2172, 870, 0, 0, 0,
- 0, 0, 862, 0, 863, 0, 875, 0, 2173, 2174,
- 2175, 319, 0, 2176, 0, 864, 865, 866, 0, 0,
- 2177, 0, 0, 0, 867, 0, 0, 320, 0, 0,
- 0, 0, 2178, 876, 2179, 2180, 0, 0, 0, 0,
- 0, 877, 0, 0, 868, 0, 0, 0, 321, 0,
- 0, 322, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 2181, 0, 0, 0, 0, 0, 0, 878,
- 0, 0, 0, 0, 0, 0, 207, 872, 873, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 325, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 871, 0, 0, 0, 0, 0, 0,
- 869, 0, 0, 0, 0, 0, 3590, 2182, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 323,
- 0, 0, 0, 0, 2183, 0, 0, 0, 870, 0,
- 0, 0, 2417, 0, 0, 0, 0, 875, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 2184, 2185, 0,
- 2186, 2187, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 876, 0, 0, 322, 2418, 0,
- 0, 0, 877, 0, 0, 0, 0, 0, 0, 0,
- 321, 0, 0, 0, 0, 0, 0, 0, 2419, 0,
- 0, 0, 0, 872, 873, 2188, 0, 0, 0, 0,
- 878, 0, 0, 0, 0, 0, 0, 207, 0, 0,
- 0, 2189, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 325, 0, 0, 0, 0, 2420, 0, 0,
- 0, 0, 0, 0, 0, 871, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 323, 0, 0, 0, 0,
- 0, 2190, 2191, 2192, 0, -696, 0, 0, 0, 0,
- 0, 0, 0, 875, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 2193, 0, 0, 0, 0, 2194,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 876, 0, 0, 2417, 0, 0, 0, 0, 877, 0,
- 0, 0, 0, 0, 0, 2195, 2196, 0, 0, 322,
- 0, 2197, 2198, 0, 0, 0, 0, 2421, 0, 0,
- 0, 0, 0, 0, 0, 2422, 878, 0, 0, 2418,
- 0, 0, 0, 207, 0, 872, 873, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 325, 2419,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 2199, 0, 2200, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 2201, 0, 323, 2420, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 2202, 2203,
- 2204, 0, 0, 0, 0, 875, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, -697, 0, 0, 0,
- 0, 0, 0, -3341, -3341, 0, 2205, 0, 0, 0,
- 0, 0, 876, 0, 0, 0, 0, 0, 0, 0,
- 877, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 2206, 2207, 2208, 0, 2209, 0, 2210, 2211, 0, 2212,
- 2213, 2214, 0, 2423, 0, 0, 0, 2215, 878, 2216,
- 2217, 2218, 2219, 0, 0, 207, 0, 0, 2421, 0,
- -3341, 0, 0, 0, 0, 2220, 2422, 892, 0, 0,
- 325, 0, 0, 2221, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 2222, 2223,
- -3341, 0, 0, 0, 0, 0, 0, 2224, 0, 0,
- 0, 0, 0, 2225, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 2424, 0, 59, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 2425, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, -3412, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 2426,
- 2226, 0, 0, 0, 0, 0, 2227, 0, 0, 0,
- -696, 0, 0, 0, -3341, -3341, 0, 0, 0, -696,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 850,
- 0, 0, 0, 0, 0, 851, 852, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 854, 0, 0, 2423, 0, 0, 0, 0, 2228,
- 2229, 0, 2230, 0, 0, 0, 0, 0, 0, 0,
- 2231, -3341, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 892, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 2232, 0, 0, 0, 0,
- 0, -3341, 0, 0, 0, 0, 0, 0, 2233, 2234,
- 2235, 2236, 0, 0, 2427, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 2424, 0, 59, 0, 2237, 2238,
- 0, 0, 0, 0, 0, 0, 2425, 0, 0, 2239,
- 0, 0, 0, 0, 0, 0, 0, 0, -3412, 0,
- 0, 2428, 0, 0, 0, 0, 0, 0, 0, 0,
- 2426, 0, 2429, 0, 0, 0, 0, 0, 0, 2240,
- 0, -697, -696, 0, 0, 0, 0, 0, 0, 0,
- -697, 0, 0, 2241, 2242, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 850, 0, 0,
- 0, 0, 0, 851, 852, 0, 0, 0, 0, 0,
- 0, 0, 2430, 0, 0, 0, 0, 0, 0, 854,
- 2243, 0, 0, 0, 0, 0, 855, 856, 857, -696,
- 2244, 0, 0, 892, 0, 0, 0, 2245, 858, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 2246, 0,
- 0, 0, 2247, 2248, 2249, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 318, 0, 2431, 0,
- 0, -696, 0, 2250, 2251, 2427, 0, 0, 2252, 2253,
- 0, 2254, 0, 0, 0, 2432, 0, 0, 2255, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 2433, 0, 0, 0,
- 0, 0, 2428, 0, 0, 0, 0, 0, 0, 0,
- 0, -3341, 0, 2429, 0, 859, 860, 861, 0, 0,
- 0, 0, 0, -697, 0, 862, 0, 863, 0, 0,
- 0, 0, 0, 0, 319, 850, 0, 0, 864, 865,
- 866, 851, 852, 0, 2434, 0, 0, 867, 0, 0,
- 320, 0, 0, 0, 0, 0, 0, 854, 0, 0,
- 0, 0, 0, 2430, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, -696, 0,
- -697, 0, 0, 0, 855, 856, 857, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 858, 0, 0, 0,
- 0, -3412, 0, 0, 0, 0, 0, 0, 2435, -3341,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 2431,
- 0, 0, -697, 892, 318, 0, 0, 0, 0, 0,
- 0, 0, 0, 869, 2436, 0, 2432, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 2437,
- 0, 2438, 0, 2439, 0, 0, 2440, 2433, 0, 0,
- 2441, 870, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, -3341, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 859, 860, 861, 0, 0, 0, 0,
- 0, 0, -696, 862, 0, 863, 0, 0, 0, 0,
- 0, 0, 319, 0, 0, 2434, 864, 865, 866, 0,
- 0, 0, 0, 321, 0, 867, 0, 0, 320, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 855, 856, 857, 850, 0, 0, 0, -697,
- 0, 851, 852, 0, 858, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 854, 0, 0,
- 0, 0, -3412, 0, 0, 0, 0, 0, 871, 2435,
- -3341, 0, 318, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 892, 0, 0, 0, 0, 2436, 0, 0, 0, 0,
- 0, 869, 0, 0, 0, 0, 0, 0, 0, 0,
- 2437, 0, 2438, 0, 2439, 0, 0, 2440, 0, 0,
- 0, 2441, 0, 0, 0, 0, 0, 0, 0, 870,
- 0, 859, 860, 861, 0, 0, 0, 0, 0, 0,
- 0, 862, 322, 863, 0, 0, 0, 0, 0, 0,
- 319, 0, 0, -697, 864, 865, 866, 0, 0, 0,
- 0, 0, 0, 867, 0, 0, 320, 0, 872, 873,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 321, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 850, 0, 0, 0, 0, 1938, 851, 852,
- 0, 0, 0, 0, 0, 0, 0, 0, 893, 0,
- 323, 0, 894, 895, 854, 0, 0, 0, 0, 0,
- 0, 0, 855, 856, 857, 0, 871, 0, 875, 0,
- 0, 0, 0, 0, 858, 0, 0, 0, 0, 869,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 876, 0, 0, 0, 0,
- 1261, 0, 318, 877, 0, -3439, 0, 870, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, -3439, -3439,
- -3439, -3439, 0, 0, 0, 1262, -3439, 0, 0, 0,
- 0, 878, 0, 0, 0, 0, 0, 0, 207, 0,
- 322, 0, 0, 0, 0, -3439, 0, 0, 0, 0,
- 0, 0, 0, 325, 0, 0, 0, 0, 0, 321,
- 0, 859, 860, 861, 0, 0, 872, 873, 0, 0,
- 0, 862, 0, 863, 0, 0, 0, 0, 0, 0,
- 319, 0, 0, 0, 864, 865, 866, 0, 0, 0,
- 0, 0, 0, 867, -3291, -3439, 320, 0, -3291, 0,
- 0, 0, 0, 0, 0, 2856, 0, 0, 0, 0,
- 0, 0, 0, 0, 871, 0, 893, 0, 323, 0,
- 894, 895, 0, 0, 0, 0, 0, 0, 0, 855,
- 856, 857, -3439, 0, -3439, 0, 875, 0, 0, 0,
- 0, 858, 0, 0, 0, 0, -3439, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 876, 0, 0, 0, 0, 0, 318,
- 0, 877, 0, -3439, 0, 0, 0, 0, 0, 869,
- 0, 0, 0, 0, 0, 0, 0, 0, 322, 0,
- 0, 0, 0, 0, 0, 0, 0, 4508, 0, 878,
- 0, 0, 0, 0, 0, 0, 207, 870, 0, 0,
- 4509, 4510, 4511, 4512, 872, 873, 0, 0, 4513, 0,
- 0, 325, 0, 0, 0, 3125, 0, 0, 859, 860,
- 861, 0, 0, 0, 0, 0, 4514, 4515, 862, 0,
- 863, 0, 0, 0, 0, 0, 0, 319, 0, 0,
- 0, 864, 865, 866, 0, 0, 0, 4516, 0, 321,
- 867, 0, 0, 320, 893, 0, 323, 0, 894, 895,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 4517,
- 0, 0, 0, 0, 875, 0, 2553, 4518, 0, 0,
- 2554, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 876, 0, 0, 871, 0, 0, -3439, 0, 877,
- 0, 0, 0, 0, 4519, 0, 0, 1263, -3439, 0,
- 0, 0, 0, 0, 0, 4520, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 869, 878, 0, 0,
- 0, 0, 0, 0, 207, 0, 0, 0, -3439, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 325,
- 0, 0, 0, 0, 870, 0, 0, 0, 0, 0,
- -776, -776, 0, 0, 0, 0, 0, 0, 322, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, -3439, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 872, 873, 0, -3439, 0, 0,
- 0, 0, 0, 0, 0, 0, 321, 0, 0, 0,
- -3291, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, -3439,
- 4521, 0, -3439, 3148, 0, 0, 0, 0, 0, 0,
- 0, 0, 1851, 0, 893, 0, 323, 0, 894, 895,
- 0, 0, 1264, 0, 0, 1852, 1853, 1854, 1855, 0,
- 0, 871, 0, 1856, 875, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, -3439, 0,
- 0, 0, 1857, 0, 0, -3439, 0, 0, 0, 4522,
- 0, 876, 0, 0, 0, 0, 0, 0, 4523, 877,
- 4524, 0, 0, 0, 0, 0, 850, 0, -3341, 0,
- 0, 0, 851, 852, 0, 0, 0, 0, 4525, 0,
- 0, 0, -3439, 0, 0, 0, 0, 878, 854, 0,
- 4526, 0, 1858, 0, 207, 322, 0, 4508, 0, 0,
- -3439, 0, 0, 0, 0, 0, 0, 0, 0, 325,
- 4509, 4510, 4511, 4512, 0, 0, 0, 0, 4513, 0,
- 0, 872, 873, 59, -3291, -3291, 0, 0, 0, 1859,
- 0, 1860, 0, 2425, 0, 0, 4514, 4515, 0, 0,
- 0, 0, 0, 1861, 0, -3412, 0, 0, -3439, 4527,
- 0, -3439, 0, 0, 0, 0, 0, 4516, 0, 0,
- 0, 0, 4528, 0, 0, 0, 4529, 0, 0, 0,
- 1862, 893, 0, 323, 0, 894, 895, 0, 0, 4517,
- 0, 0, 0, 0, 4530, 0, 2553, 4518, 0, 0,
- 2554, 875, 0, 0, 0, 0, 0, 0, 0, -3439,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, -3439, 0, -3439, -3439, -776, 0, 0, 876, 0,
- 0, -3439, 0, 0, 4519, 0, 877, 0, 0, 0,
- 4531, 0, 0, 0, -3439, 4520, 0, 1870, 0, -3439,
- 0, 0, 0, 0, 0, 0, 0, -3439, 0, 0,
- 0, 0, 0, 0, 878, 0, 0, 0, 0, 0,
- 0, 207, 0, 855, 856, 857, 0, 0, 0, 0,
- 0, 0, 4532, 0, 1871, 858, 325, 0, -3439, 0,
- -776, -776, 0, 0, 0, 0, 0, 0, 0, 0,
- -3439, 0, 4533, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 318, 0, 0, 0, 0, 0, 2428,
- 0, 0, 0, 0, 1863, 0, 2555, 2556, 0, 0,
- 0, 0, 0, 0, -3439, 1864, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 4534, 0, 0, 0, -3293, -3439, 0, 0, 0, 0,
- 4521, 0, 0, 0, 0, 1865, 0, 0, 0, 0,
- 0, 0, 859, 860, 861, 0, 0, 0, 0, 0,
- 0, 0, 862, 0, 863, 0, 0, 0, 0, 0,
- 0, 319, 0, 0, 0, 864, 865, 866, 0, -3439,
- 0, 4535, 0, 0, 867, 0, 0, 320, 0, 0,
- 0, -3439, 0, 1876, 0, 1877, 1878, 0, -3439, 4522,
- 0, 0, 0, 4536, 1866, 0, 0, 0, 4523, 0,
- 4524, 0, 0, 0, 0, 0, 0, 0, -3341, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 4525, 4537,
- 0, 0, 0, 0, 0, 0, 1867, 0, 0, 1868,
- 4526, 534, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 2433, 0, 0, 0, 0, 0,
- 4538, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 869, 0, 4539, 59, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 2425, 0, 1869, 0, 0, 0, 0,
- 0, 0, 1870, 0, 0, -3412, 0, 0, 870, 4527,
- 0, 0, 0, 850, 0, 0, 4540, 0, 0, 851,
- 852, 0, 4528, 0, 0, 0, 4529, 0, 0, 0,
- 0, 0, 0, 0, 0, 854, 0, 0, 0, 1871,
- 0, 4541, 0, 0, 4530, 0, -1132, 0, 0, 0,
- 0, 0, 4542, 0, 0, 0, 0, 1872, 0, 0,
- 321, 0, 0, 0, 0, 0, 0, 0, 0, -3412,
- 0, 0, 0, 0, 0, -776, 0, 850, 0, 0,
- 0, 4543, 0, 851, 852, 0, 0, 0, 0, 0,
- 4531, 0, 0, 0, 0, 0, 0, 1870, 0, 854,
- 0, 0, 4544, 0, 0, 1873, 4911, 0, 1874, 0,
- 4545, -776, 0, 0, 0, 871, 0, 0, 0, 4546,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 4532, 0, 1871, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 4533, 0, 0, 0, 1875, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 1876, 2428,
- 1877, 1878, 0, 0, 0, 0, 2555, 2556, 1879, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 322,
- 0, 1880, 0, 0, 0, 0, 1881, 0, 0, 0,
- 4534, 0, 0, 0, 1882, 0, 0, 0, 0, 0,
- 855, 856, 857, 0, 0, 872, 873, 0, 0, 0,
- 0, 0, 858, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, -3399, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 1883, 0, 0,
- 318, 4535, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 1876, 0, 1877, 1878, 323, 0, 0,
- 0, 0, 0, 4536, 855, 856, 857, 0, 0, 0,
- 0, 1884, 0, 0, 0, 875, 858, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 4537,
- 0, 0, 1885, 0, 0, 0, 4912, 0, 0, 859,
- 860, 861, 876, 0, 318, 0, 0, 0, 0, 862,
- 877, 863, 0, 0, 2433, 0, 0, 0, 319, 0,
- 4538, 0, 864, 865, 866, 0, 0, 0, 0, 0,
- 0, 867, 4539, 0, 320, 0, 1886, 0, 878, 0,
- 0, 0, 0, 0, 0, 207, 0, 0, 1887, 0,
- 0, 0, 0, 0, 0, 1888, 0, 0, 0, 0,
- 325, 0, 0, 859, 860, 861, 4540, 0, 0, 0,
- 0, 0, 0, 862, 0, 863, 0, 0, 0, 0,
- 0, 0, 319, 0, 0, 0, 864, 865, 866, 0,
- 0, 4541, 0, 0, 0, 867, -1135, 0, 320, 0,
- 0, 0, 4542, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 869, 0, -3412,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 4543, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 870, 0, 0, 0, 0,
- 0, 0, 4544, 0, 0, 0, 0, 0, 0, 0,
- 4545, -776, 0, 0, 0, 0, 0, 0, 0, 4546,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 869, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 321, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 870,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 871, 0, 0, 0, 0, 0, 0, 0,
- 0, 321, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 871, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 322, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 872, 873, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 322, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 323, 0, 894, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 872, 873, 0, 0,
- 0, 0, 875, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 876,
- 0, 0, 0, 0, 0, 0, 0, 877, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 323, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 878, 875, 0, 0, 0,
- 0, 0, 207, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 325, 0, 0,
- 0, 0, 0, 876, 0, 0, 0, 0, 0, 0,
- 0, 877, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 878,
- 0, 0, 0, 0, 0, 0, 207, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 325
-};
-
-static const yytype_int16 yycheck[] =
-{
- 175, 224, 690, 317, 755, 727, 1277, 52, 1060, 1121,
- 267, 127, 763, 58, 156, 43, 158, 201, 680, 1272,
- 717, 163, 699, 759, 760, 761, 1621, 73, 764, 1757,
- 1215, 194, 694, 79, 1861, 849, 81, 82, 721, 84,
- 85, 1143, 2281, 1724, 90, 2409, 809, 810, 76, 77,
- 78, 1085, 1355, 2466, 780, 83, 2029, 1420, 784, 785,
- 1245, 787, 788, 205, 790, 791, 281, 2040, 730, 1433,
- 685, 2598, 2551, 118, 2674, 2439, 2484, 2485, 1194, 2558,
- 1196, 1197, 679, 1199, 1200, 1777, 2613, 310, 1391, 1392,
- 1393, 1394, 845, 308, 697, 1841, 680, 693, 702, 702,
- 145, 146, 147, 2861, 781, 782, 230, 947, 1758, 786,
- 1933, 139, 789, 1936, 2922, 2483, 2924, 721, 721, 933,
- 800, 1100, 1945, 706, 2912, 153, 1949, 155, 725, 681,
- 874, 159, 160, 1956, 1873, 3383, 1730, 1283, 3407, 722,
- 2563, 169, 1381, 884, 2567, 190, 2750, 175, 1294, 1293,
- 195, 1448, 941, 181, 2322, 2351, 184, 2717, 1904, 187,
- 1408, 1305, 903, 2028, 2712, 976, 1912, 3720, 1297, 2782,
- 1409, 3111, 941, 18, 2923, 203, 0, 223, 1645, 18,
- 1, 0, 18, 2743, 0, 2050, 1, 233, 862, 863,
- 2410, 2278, 1, 221, 1999, 18, 870, 8, 18, 33,
- 27, 1, 247, 2689, 232, 250, 91, 133, 5, 46,
- 18, 75, 1, 18, 69, 33, 45, 18, 123, 121,
- 124, 175, 884, 268, 46, 18, 1, 156, 256, 158,
- 892, 893, 894, 895, 163, 1075, 171, 40, 45, 18,
- 151, 903, 916, 222, 124, 226, 124, 2670, 15, 1676,
- 2673, 170, 1, 18, 568, 151, 1, 246, 2681, 27,
- 508, 2066, 290, 1248, 33, 258, 43, 3575, 251, 187,
- 1399, 213, 21, 256, 1895, 1044, 205, 312, 41, 151,
- 245, 290, 12, 339, 1385, 97, 252, 338, 334, 335,
- 268, 874, 205, 1769, 1034, 99, 214, 342, 1277, 2826,
- 2827, 68, 1409, 259, 349, 205, 274, 359, 1030, 32,
- 894, 14, 245, 183, 97, 3399, 1105, 128, 300, 98,
- 12, 4133, 305, 274, 187, 171, 434, 97, 312, 268,
- 467, 1, 481, 33, 434, 259, 1105, 3197, 312, 231,
- 232, 297, 124, 299, 3428, 134, 1904, 3207, 414, 2350,
- 277, 214, 201, 312, 1912, 284, 44, 1146, 18, 171,
- 912, 216, 32, 184, 446, 154, 541, 151, 51, 1113,
- 2858, 587, 339, 970, 481, 434, 1, 126, 1040, 33,
- 52, 2361, 259, 303, 70, 2157, 175, 176, 455, 572,
- 40, 3662, 312, 252, 3230, 250, 1118, 373, 1060, 742,
- 45, 378, 434, 481, 3008, 339, 320, 136, 378, 1012,
- 3241, 587, 3016, 12, 312, 3019, 3020, 452, 2841, 374,
- 223, 258, 680, 1085, 44, 1028, 1177, 684, 123, 414,
- 687, 621, 127, 697, 231, 184, 258, 359, 187, 330,
- 189, 414, 776, 246, 459, 3312, 71, 72, 73, 74,
- 269, 76, 462, 269, 852, 748, 275, 12, 715, 275,
- 834, 718, 1225, 12, 124, 214, 723, 12, 2273, 4067,
- 535, 694, 729, 358, 247, 690, 3312, 3746, 359, 787,
- 4762, 43, 781, 1145, 433, 248, 231, 232, 4128, 115,
- 2577, 1095, 1095, 124, 12, 312, 358, 525, 526, 1102,
- 116, 467, 481, 339, 1633, 251, 4104, 1260, 422, 2922,
- 256, 2924, 540, 1266, 325, 434, 362, 408, 481, 547,
- 4395, 749, 408, 569, 410, 2893, 171, 441, 3776, 434,
- 1113, 201, 394, 158, 159, 221, 375, 1278, 169, 953,
- 53, 955, 55, 56, 57, 58, 59, 60, 341, 322,
- 858, 151, 541, 434, 2359, 374, 849, 955, 374, 305,
- 309, 1145, 896, 1352, 434, 4847, 484, 831, 578, 647,
- 481, 259, 865, 223, 99, 137, 481, 870, 541, 141,
- 151, 955, 647, 3523, 4459, 151, 570, 1716, 2784, 408,
- 379, 410, 408, 310, 410, 151, 3404, 896, 373, 584,
- 434, 4241, 1343, 530, 526, 863, 4204, 591, 467, 254,
- 2849, 178, 476, 517, 432, 958, 434, 591, 1280, 1281,
- 1282, 484, 571, 596, 403, 1287, 1288, 1289, 1290, 857,
- 845, 1293, 1385, 316, 526, 819, 645, 151, 403, 259,
- 815, 1303, 1827, 1305, 1306, 434, 338, 3055, 456, 3920,
- 1312, 1313, 1314, 1315, 1316, 1317, 1318, 1319, 1320, 1321,
- 1322, 1323, 77, 456, 2884, 434, 3214, 25, 216, 645,
- 590, 591, 1334, 930, 2355, 25, 481, 444, 151, 3239,
- 378, 341, 1297, 462, 463, 868, 600, 1349, 945, 18,
- 479, 646, 1354, 591, 664, 294, 245, 546, 1814, 488,
- 430, 110, 481, 1287, 1288, 1289, 3573, 722, 123, 412,
- 413, 403, 467, 378, 781, 369, 481, 932, 497, 1303,
- 290, 2085, 347, 348, 349, 350, 351, 352, 353, 354,
- 355, 2503, 497, 779, 434, 484, 713, 3573, 3569, 955,
- 541, 3572, 445, 713, 852, 852, 252, 25, 683, 2576,
- 378, 680, 681, 570, 4121, 300, 685, 327, 328, 422,
- 446, 2064, 2742, 2983, 954, 1349, 529, 417, 697, 698,
- 1354, 803, 442, 702, 591, 1372, 842, 706, 4233, 955,
- 472, 526, 474, 850, 1399, 588, 489, 18, 717, 481,
- 719, 819, 721, 722, 18, 25, 456, 520, 1942, 858,
- 2546, 767, 606, 732, 403, 497, 834, 1403, 432, 738,
- 2538, 506, 2813, 1028, 780, 247, 499, 1040, 607, 2624,
- 2909, 970, 1662, 593, 184, 185, 1640, 646, 3316, 578,
- 646, 561, 2071, 459, 971, 2083, 1965, 1060, 541, 434,
- 2586, 687, 647, 459, 1829, 1060, 4658, 955, 403, 2276,
- 520, 446, 641, 452, 403, 955, 481, 587, 403, 531,
- 532, 533, 3466, 759, 69, 2776, 795, 668, 1608, 4236,
- 645, 683, 954, 472, 798, 474, 858, 1911, 566, 857,
- 806, 660, 481, 88, 868, 403, 813, 759, 2127, 857,
- 1616, 1443, 3976, 124, 868, 660, 852, 679, 497, 955,
- 683, 123, 3842, 955, 955, 127, 857, 1648, 767, 698,
- 1699, 473, 2999, 683, 136, 514, 608, 472, 857, 474,
- 955, 780, 4230, 472, 2025, 474, 481, 472, 1143, 474,
- 794, 123, 481, 859, 847, 127, 481, 1185, 903, 857,
- 201, 2368, 497, 3351, 789, 874, 955, 847, 497, 749,
- 645, 740, 497, 515, 472, 1617, 474, 12, 854, 2580,
- 830, 954, 123, 481, 2071, 954, 127, 2443, 660, 947,
- 903, 641, 955, 954, 852, 759, 955, 3479, 650, 497,
- 857, 704, 854, 912, 3486, 865, 3846, 872, 955, 514,
- 870, 3404, 741, 3742, 857, 930, 955, 1811, 1812, 953,
- 625, 955, 806, 3616, 781, 971, 1668, 936, 711, 608,
- 789, 781, 954, 955, 737, 1190, 935, 1192, 1633, 921,
- 1195, 955, 18, 648, 789, 1209, 1630, 1630, 2586, 1204,
- 922, 794, 795, 857, 704, 764, 3867, 2022, 857, 3403,
- 869, 857, 860, 2022, 955, 1260, 1188, 1189, 3534, 904,
- 955, 1266, 956, 608, 153, 1818, 1198, 857, 753, 608,
- 857, 660, 869, 608, 955, 627, 628, 737, 857, 954,
- 854, 1797, 1798, 822, 955, 645, 844, 1803, 955, 765,
- 1806, 606, 857, 1012, 754, 834, 1748, 1690, 867, 858,
- 608, 955, 403, 224, 902, 972, 722, 789, 1355, 1028,
- 25, 1716, 867, 18, 905, 660, 722, 925, 857, 902,
- 341, 660, 971, 259, 4054, 660, 955, 954, 930, 955,
- 947, 955, 1337, 872, 1169, 970, 896, 1342, 965, 947,
- 697, 1060, 955, 3353, 955, 955, 955, 867, 955, 955,
- 955, 43, 660, 965, 955, 1959, 955, 930, 972, 1823,
- 955, 954, 1367, 972, 514, 853, 972, 1185, 1342, 759,
- 930, 962, 857, 578, 1748, 954, 1095, 1850, 526, 2636,
- 1385, 302, 403, 1102, 1963, 867, 526, 922, 1861, 403,
- 947, 442, 971, 359, 1113, 955, 497, 857, 759, 1930,
- 789, 970, 955, 759, 1963, 18, 401, 3170, 3171, 3172,
- 3173, 873, 874, 759, 869, 970, 955, 30, 954, 955,
- 1139, 1955, 541, 622, 886, 2865, 971, 966, 680, 3587,
- 880, 1249, 3442, 322, 467, 456, 259, 2279, 3315, 3978,
- 3317, 18, 949, 665, 789, 137, 1264, 3324, 955, 141,
- 789, 869, 945, 842, 789, 759, 300, 4187, 526, 1911,
- 481, 954, 500, 18, 854, 460, 445, 481, 921, 1188,
- 1189, 767, 954, 955, 831, 865, 497, 4722, 867, 1198,
- 870, 789, 2025, 497, 780, 98, 801, 637, 970, 3018,
- 1942, 806, 216, 854, 506, 48, 759, 506, 854, 3902,
- 495, 4844, 3379, 841, 2328, 2976, 526, 852, 854, 462,
- 489, 925, 3391, 852, 852, 2116, 481, 3809, 2547, 489,
- 3858, 481, 867, 858, 506, 3007, 4683, 3122, 867, 456,
- 320, 3823, 867, 414, 184, 481, 25, 25, 434, 189,
- 955, 481, 1261, 765, 859, 4583, 2521, 2522, 667, 1,
- 854, 3206, 4100, 856, 906, 506, 218, 456, 403, 867,
- 1965, 559, 541, 866, 903, 137, 955, 3268, 2410, 141,
- 955, 541, 129, 587, 510, 541, 4440, 462, 1297, 481,
- 442, 970, 1955, 434, 1549, 25, 45, 3499, 2617, 2618,
- 641, 854, 484, 473, 0, 955, 510, 4635, 97, 2505,
- 2506, 625, 954, 481, 2120, 2511, 2512, 222, 603, 600,
- 955, 1616, 541, 3208, 489, 3210, 955, 403, 647, 2150,
- 955, 481, 2651, 2652, 2091, 970, 403, 472, 587, 474,
- 3616, 970, 422, 645, 2721, 970, 481, 952, 514, 660,
- 892, 893, 894, 895, 359, 1987, 660, 955, 322, 323,
- 44, 441, 497, 412, 378, 1668, 3251, 8, 3616, 309,
- 2698, 2128, 970, 645, 2600, 619, 2602, 4215, 259, 2605,
- 2137, 481, 2608, 2609, 2610, 1680, 2612, 2611, 573, 2615,
- 1399, 343, 3692, 407, 834, 4452, 445, 510, 789, 2718,
- 2626, 2627, 473, 481, 645, 481, 481, 481, 403, 326,
- 1705, 3993, 3994, 754, 481, 379, 319, 481, 302, 4243,
- 4121, 497, 171, 1776, 3309, 559, 3311, 183, 403, 20,
- 497, 716, 3880, 48, 1443, 569, 692, 175, 573, 2333,
- 489, 481, 481, 481, 767, 409, 2765, 98, 682, 481,
- 514, 753, 4136, 422, 302, 18, 2277, 1810, 1753, 359,
- 2779, 4043, 764, 1800, 2783, 1802, 377, 1804, 1805, 473,
- 1807, 1808, 441, 608, 481, 481, 655, 2659, 789, 776,
- 489, 753, 2691, 3157, 2693, 789, 481, 128, 1692, 625,
- 324, 473, 541, 3546, 4318, 455, 4845, 4846, 450, 369,
- 403, 680, 497, 94, 849, 254, 481, 559, 342, 902,
- 4567, 683, 753, 2334, 39, 955, 857, 302, 1060, 187,
- 600, 526, 497, 0, 869, 660, 4875, 312, 481, 2848,
- 94, 726, 541, 852, 2358, 4236, 403, 2279, 781, 4407,
- 2361, 593, 935, 607, 793, 4873, 214, 445, 752, 41,
- 2759, 4389, 0, 4707, 302, 507, 867, 293, 403, 462,
- 463, 726, 3323, 867, 434, 2761, 246, 4440, 2331, 880,
- 740, 222, 647, 1795, 852, 259, 481, 803, 481, 970,
- 359, 359, 863, 594, 660, 857, 2328, 2271, 2271, 2272,
- 175, 489, 803, 660, 497, 1703, 822, 782, 4180, 896,
- 481, 216, 754, 1145, 854, 2426, 781, 892, 834, 2430,
- 854, 822, 541, 839, 481, 3345, 857, 3347, 624, 3438,
- 2829, 1630, 4070, 4071, 1633, 595, 954, 3829, 839, 359,
- 497, 600, 4786, 375, 537, 1760, 481, 607, 481, 230,
- 954, 430, 824, 541, 955, 627, 628, 782, 971, 2391,
- 2392, 2283, 497, 955, 789, 954, 434, 1765, 414, 970,
- 894, 1769, 1770, 880, 1772, 660, 970, 1775, 1776, 740,
- 1778, 857, 4254, 682, 558, 2518, 945, 955, 2435, 154,
- 40, 1690, 970, 955, 863, 660, 852, 858, 588, 431,
- 803, 880, 595, 541, 954, 2358, 239, 1992, 954, 713,
- 955, 154, 613, 2509, 434, 955, 553, 1716, 555, 822,
- 3482, 954, 408, 789, 410, 970, 857, 1825, 1826, 955,
- 2834, 834, 789, 4440, 858, 955, 839, 2391, 2392, 1984,
- 2025, 4179, 867, 481, 970, 954, 740, 919, 1280, 1281,
- 1282, 2501, 2006, 2503, 1852, 1287, 1288, 1289, 526, 433,
- 1858, 1859, 2884, 2622, 510, 1863, 248, 660, 930, 954,
- 2593, 1303, 4081, 955, 1306, 627, 628, 691, 359, 3088,
- 1312, 1313, 1314, 1315, 1316, 1317, 1318, 1319, 1320, 1321,
- 1322, 1323, 2841, 641, 708, 709, 1795, 955, 717, 374,
- 726, 867, 269, 660, 789, 2616, 526, 377, 275, 781,
- 3853, 741, 970, 379, 4123, 955, 2998, 1349, 557, 2572,
- 546, 2574, 1354, 2576, 789, 660, 484, 183, 954, 955,
- 955, 781, 2564, 408, 152, 410, 790, 744, 584, 578,
- 906, 783, 3735, 484, 4707, 970, 850, 22, 23, 24,
- 403, 1850, 955, 53, 369, 55, 56, 57, 58, 59,
- 60, 4440, 1861, 181, 584, 955, 41, 2599, 434, 2601,
- 40, 541, 3058, 223, 870, 834, 481, 458, 573, 2611,
- 198, 199, 867, 887, 312, 955, 947, 955, 43, 955,
- 955, 955, 566, 2625, 359, 894, 789, 571, 955, 2657,
- 850, 955, 2000, 259, 970, 798, 945, 374, 489, 3660,
- 2564, 3127, 736, 970, 3941, 90, 970, 2162, 2650, 500,
- 857, 403, 660, 4786, 124, 955, 955, 955, 481, 2682,
- 2683, 2742, 789, 955, 888, 489, 4814, 879, 2036, 2037,
- 970, 408, 3375, 410, 497, 2599, 500, 2601, 2046, 4387,
- 4388, 512, 2684, 128, 789, 954, 1955, 4627, 955, 2632,
- 541, 854, 1961, 856, 3273, 3274, 1965, 881, 4517, 3844,
- 955, 2625, 865, 866, 867, 417, 869, 870, 481, 4528,
- 247, 3856, 3857, 378, 3839, 970, 2279, 294, 1987, 2800,
- 2275, 3300, 3301, 529, 2279, 955, 2650, 735, 4628, 481,
- 4707, 481, 484, 321, 3176, 970, 2691, 4637, 2693, 857,
- 867, 2743, 955, 861, 479, 497, 1613, 776, 369, 3328,
- 373, 3330, 861, 488, 531, 532, 298, 970, 954, 1626,
- 2684, 473, 867, 2699, 3909, 954, 479, 540, 2323, 4145,
- 3838, 713, 18, 613, 716, 488, 22, 529, 720, 25,
- 26, 789, 1079, 223, 857, 4371, 414, 945, 213, 22,
- 23, 24, 168, 624, 921, 889, 954, 2066, 2353, 983,
- 2954, 646, 659, 248, 2759, 776, 434, 970, 935, 4786,
- 2365, 387, 388, 997, 2757, 1617, 2331, 782, 2755, 682,
- 2822, 748, 22, 403, 249, 25, 26, 861, 955, 3009,
- 924, 2912, 2834, 140, 842, 861, 1133, 660, 1022, 933,
- 147, 520, 322, 970, 776, 2114, 955, 2410, 4434, 319,
- 955, 624, 703, 971, 4151, 537, 4619, 3231, 4707, 2861,
- 481, 4609, 4610, 4626, 1048, 970, 717, 896, 4631, 38,
- 733, 4634, 570, 650, 2829, 4251, 2340, 2341, 2342, 2343,
- 2344, 2345, 2346, 2347, 510, 2400, 4693, 4694, 313, 465,
- 466, 433, 239, 591, 89, 128, 1080, 647, 2822, 379,
- 865, 481, 490, 2466, 641, 870, 641, 341, 660, 646,
- 316, 2847, 2427, 501, 320, 2574, 2513, 497, 2515, 301,
- 2517, 955, 183, 481, 358, 896, 4051, 1111, 641, 955,
- 787, 1115, 4680, 4681, 359, 600, 2953, 4786, 865, 303,
- 135, 2958, 2959, 870, 481, 341, 1748, 955, 312, 489,
- 632, 2895, 2895, 857, 379, 812, 813, 814, 3350, 1143,
- 394, 673, 970, 698, 896, 434, 789, 2482, 857, 134,
- 4056, 673, 4735, 584, 2489, 4738, 688, 2920, 422, 537,
- 4799, 2572, 540, 2574, 434, 698, 3565, 793, 611, 154,
- 796, 797, 615, 3010, 673, 15, 446, 441, 259, 239,
- 679, 541, 2271, 2272, 2273, 740, 201, 4874, 3711, 3713,
- 175, 176, 481, 4832, 2283, 957, 422, 434, 452, 4826,
- 2405, 403, 645, 2682, 2683, 567, 3119, 740, 15, 571,
- 3184, 642, 4850, 659, 865, 441, 4843, 789, 140, 870,
- 2408, 475, 794, 795, 867, 147, 634, 120, 68, 607,
- 446, 18, 2420, 2421, 2422, 15, 452, 2572, 15, 2574,
- 849, 4814, 2331, 30, 853, 2628, 624, 300, 2436, 2437,
- 2438, 3650, 3651, 684, 49, 2443, 489, 3105, 4896, 4897,
- 660, 68, 784, 785, 529, 403, 4895, 675, 3111, 2358,
- 2359, 2682, 2683, 4841, 3096, 3097, 4800, 870, 921, 481,
- 49, 216, 175, 954, 955, 358, 694, 4193, 68, 886,
- 4131, 68, 935, 1297, 201, 497, 585, 92, 4927, 588,
- 358, 423, 857, 2491, 99, 2607, 749, 3583, 541, 854,
- 7, 98, 955, 578, 749, 49, 3290, 3291, 4689, 212,
- 865, 394, 216, 92, 857, 870, 2415, 970, 854, 3230,
- 99, 860, 275, 226, 387, 388, 394, 2660, 4906, 865,
- 269, 787, 871, 481, 870, 854, 473, 2682, 2683, 860,
- 477, 4338, 3096, 3097, 4725, 727, 865, 803, 92, 497,
- 871, 870, 1280, 1281, 1282, 99, 812, 813, 814, 66,
- 3192, 212, 892, 893, 600, 895, 822, 970, 3264, 403,
- 1384, 78, 291, 2571, 568, 226, 570, 4520, 1306, 789,
- 2578, 3228, 403, 839, 1398, 1399, 4529, 861, 970, 2488,
- 645, 2776, 1591, 414, 673, 4538, 590, 591, 18, 3231,
- 679, 3312, 465, 466, 875, 876, 971, 3239, 673, 434,
- 30, 1610, 1611, 1612, 679, 1429, 673, 855, 125, 510,
- 855, 585, 679, 448, 588, 119, 120, 865, 971, 865,
- 865, 865, 870, 239, 870, 870, 870, 4856, 3192, 434,
- 473, 148, 4861, 4852, 477, 473, 471, 481, 660, 477,
- 526, 527, 749, 930, 2839, 932, 862, 867, 864, 3932,
- 481, 2846, 329, 497, 2563, 4938, 18, 4940, 2567, 4942,
- 1737, 534, 803, 2572, 1741, 2574, 497, 2576, 98, 2531,
- 775, 175, 870, 2535, 479, 907, 908, 909, 910, 3385,
- 359, 2884, 361, 488, 34, 35, 526, 527, 775, 955,
- 207, 414, 578, 579, 469, 470, 569, 568, 2607, 570,
- 4751, 3793, 660, 39, 39, 578, 41, 515, 212, 794,
- 795, 429, 319, 955, 587, 2624, 576, 577, 749, 2922,
- 149, 2924, 226, 2632, 955, 3817, 1312, 1313, 4779, 4780,
- 2581, 2582, 960, 961, 4785, 955, 749, 4788, 578, 579,
- 481, 4792, 4793, 1288, 1289, 4453, 856, 403, 3491, 728,
- 970, 907, 908, 909, 910, 865, 866, 630, 659, 869,
- 870, 2670, 124, 3845, 2673, 3407, 3434, 789, 880, 2972,
- 481, 3428, 2681, 2682, 2683, 292, 481, 18, 857, 3875,
- 2983, 955, 2691, 955, 2693, 3368, 857, 655, 239, 30,
- 907, 908, 909, 910, 957, 762, 403, 2931, 2932, 2933,
- 2934, 781, 607, 2712, 166, 127, 641, 136, 955, 1633,
- 172, 173, 853, 434, 153, 645, 660, 359, 18, 3056,
- 3057, 749, 3059, 3060, 3061, 481, 188, 3022, 484, 660,
- 154, 789, 588, 844, 621, 481, 641, 2279, 673, 764,
- 431, 497, 857, 678, 213, 867, 481, 857, 2757, 366,
- 2759, 231, 3573, 954, 15, 462, 463, 98, 122, 852,
- 3523, 955, 65, 698, 761, 700, 3021, 316, 639, 955,
- 955, 1695, 3666, 529, 481, 359, 488, 955, 2886, 4044,
- 4045, 869, 749, 593, 584, 1709, 787, 310, 861, 319,
- 497, 34, 1716, 698, 36, 37, 3690, 481, 515, 260,
- 857, 869, 803, 369, 510, 3069, 3070, 869, 869, 867,
- 869, 812, 813, 814, 869, 869, 869, 869, 1742, 869,
- 2829, 822, 319, 869, 261, 869, 869, 420, 4211, 869,
- 852, 448, 2841, 955, 262, 740, 263, 727, 839, 369,
- 265, 3662, 673, 176, 834, 789, 834, 386, 970, 2391,
- 2392, 92, 266, 954, 177, 267, 3111, 268, 789, 523,
- 3555, 197, 3557, 480, 290, 841, 869, 272, 2410, 852,
- 4189, 4190, 273, 403, 97, 4194, 842, 955, 276, 3075,
- 277, 369, 278, 955, 279, 858, 2895, 281, 595, 862,
- 369, 864, 312, 3001, 514, 3672, 3004, 640, 140, 45,
- 282, 363, 364, 365, 660, 147, 283, 124, 150, 3017,
- 430, 2920, 970, 375, 284, 3218, 4299, 3025, 3026, 3256,
- 285, 220, 857, 867, 2466, 18, 861, 3230, 286, 481,
- 280, 380, 462, 463, 749, 935, 867, 30, 479, 693,
- 869, 403, 169, 359, 833, 955, 713, 473, 847, 183,
- 852, 481, 857, 660, 852, 378, 955, 955, 483, 955,
- 420, 3256, 4154, 205, 581, 643, 481, 497, 210, 211,
- 3078, 515, 711, 3268, 953, 570, 4651, 481, 319, 906,
- 312, 3245, 947, 953, 255, 338, 852, 770, 695, 392,
- 844, 849, 7, 4125, 456, 930, 430, 970, 838, 430,
- 954, 852, 464, 607, 3746, 98, 852, 852, 97, 3312,
- 3118, 220, 369, 617, 618, 369, 97, 4400, 369, 481,
- 430, 271, 2564, 485, 486, 487, 970, 852, 369, 369,
- 430, 287, 494, 789, 369, 497, 971, 698, 749, 970,
- 657, 857, 170, 3338, 661, 33, 584, 3350, 955, 954,
- 3353, 66, 294, 679, 296, 955, 4321, 2599, 788, 2601,
- 479, 303, 403, 78, 89, 595, 971, 473, 15, 151,
- 312, 446, 781, 3967, 969, 968, 576, 446, 803, 3842,
- 803, 522, 789, 2625, 854, 854, 854, 378, 854, 854,
- 2014, 854, 854, 39, 698, 854, 718, 852, 3401, 3920,
- 713, 3404, 3111, 3406, 852, 692, 378, 4440, 2650, 541,
- 125, 378, 446, 4378, 598, 27, 720, 721, 580, 341,
- 844, 462, 463, 970, 697, 270, 743, 3382, 697, 3384,
- 660, 246, 378, 148, 890, 414, 713, 3245, 857, 3442,
- 481, 585, 2684, 378, 584, 18, 14, 854, 921, 856,
- 3487, 481, 947, 3895, 3960, 3961, 497, 947, 865, 866,
- 867, 258, 869, 870, 803, 695, 922, 923, 713, 1314,
- 1315, 1316, 1317, 1318, 1319, 1320, 1321, 1322, 1323, 740,
- 422, 930, 379, 947, 39, 722, 434, 804, 379, 3444,
- 947, 935, 207, 790, 947, 947, 3451, 3305, 660, 3208,
- 576, 3210, 854, 641, 955, 3214, 481, 854, 955, 378,
- 573, 782, 541, 718, 970, 571, 259, 433, 3344, 3483,
- 97, 341, 301, 3348, 3446, 3480, 319, 930, 930, 852,
- 97, 473, 764, 15, 3489, 477, 369, 625, 566, 697,
- 852, 221, 3251, 2167, 183, 831, 595, 929, 526, 857,
- 109, 3506, 844, 715, 595, 4076, 749, 970, 3561, 789,
- 201, 844, 869, 970, 104, 955, 891, 884, 3523, 511,
- 3573, 852, 514, 869, 369, 16, 39, 292, 3386, 4475,
- 2822, 762, 810, 955, 852, 359, 123, 477, 4119, 765,
- 803, 4054, 3400, 489, 764, 3632, 3633, 70, 27, 701,
- 593, 4195, 3311, 628, 781, 215, 854, 369, 378, 3604,
- 403, 378, 231, 697, 97, 359, 690, 690, 359, 660,
- 596, 598, 4216, 589, 854, 274, 856, 789, 489, 946,
- 446, 201, 546, 489, 4076, 865, 866, 867, 473, 869,
- 870, 572, 2884, 522, 868, 3354, 4152, 226, 644, 914,
- 749, 366, 481, 815, 816, 369, 3464, 3465, 4100, 3368,
- 849, 3469, 683, 3471, 3472, 3473, 3474, 481, 375, 462,
- 463, 97, 481, 3481, 4707, 3483, 3671, 647, 765, 526,
- 2922, 25, 2924, 239, 416, 955, 224, 850, 481, 3692,
- 97, 97, 216, 15, 68, 863, 641, 541, 541, 3507,
- 97, 489, 489, 4297, 497, 867, 489, 567, 298, 641,
- 857, 43, 821, 955, 766, 2339, 222, 4233, 880, 222,
- 4226, 781, 852, 885, 4187, 588, 482, 860, 955, 259,
- 2972, 852, 803, 448, 641, 4786, 854, 3446, 3741, 524,
- 970, 2983, 599, 902, 718, 955, 947, 420, 789, 302,
- 912, 844, 359, 3462, 3463, 358, 222, 14, 920, 91,
- 852, 93, 852, 369, 3719, 480, 844, 506, 522, 645,
- 3479, 213, 666, 4215, 417, 43, 589, 3486, 614, 781,
- 570, 699, 793, 887, 116, 25, 948, 726, 4309, 861,
- 857, 500, 526, 955, 525, 821, 857, 3792, 740, 861,
- 215, 641, 595, 224, 3726, 137, 446, 3615, 970, 141,
- 4312, 857, 588, 854, 3523, 856, 446, 462, 246, 820,
- 584, 446, 583, 446, 865, 866, 867, 462, 869, 870,
- 183, 446, 446, 462, 105, 106, 107, 3874, 4359, 834,
- 947, 250, 3837, 595, 123, 379, 3555, 379, 3557, 134,
- 394, 536, 418, 807, 3096, 3097, 3681, 607, 607, 595,
- 22, 23, 24, 18, 2529, 607, 581, 660, 3076, 3791,
- 56, 185, 340, 14, 1251, 4338, 92, 1830, 3800, 3588,
- 299, 3836, 217, 825, 3806, 3072, 4407, 3842, 305, 3811,
- 3812, 2525, 99, 337, 836, 810, 4402, 3819, 1225, 3821,
- 312, 168, 695, 530, 219, 847, 530, 4327, 2503, 4177,
- 4567, 4156, 3470, 4266, 518, 3061, 3498, 3478, 838, 46,
- 4256, 4002, 3463, 4423, 4368, 4434, 3353, 2277, 762, 970,
- 1765, 2443, 4786, 4786, 2458, 2458, 4909, 4247, 4135, 3934,
- 2158, 3406, 657, 4318, 3404, 3401, 661, 4389, 4786, 2884,
- 3192, 2527, 18, 4688, 4751, 4786, 2926, 228, 229, 4860,
- 231, 4855, 4236, 3672, 30, 4650, 128, 4375, 4565, 707,
- 4521, 1608, 4694, 4521, 4528, 4561, 918, 3941, 1046, 3832,
- 1832, 3662, 1838, 3079, 4047, 260, 1260, 1266, 3119, 3110,
- 1272, 2630, 1869, 3801, 3530, 1971, 789, 3660, 4193, 912,
- 4192, 1337, 692, 3958, 2025, 924, 970, 1395, 1368, 3561,
- 2053, 3176, 3820, 955, 982, 2658, 707, 3726, 1403, 3827,
- 3828, 2083, 1409, 1406, 4027, 2698, 1008, 3561, 743, 2118,
- 3221, 4068, 98, 3223, 1040, 1449, 2154, 3239, 2740, 3578,
- 3577, 4092, 1734, 3929, 3604, 1055, 2279, 3262, 4003, 1064,
- 2315, 1020, 2776, 3277, 3268, 3276, 2839, 1741, 2851, 1736,
- 392, 854, 1677, 856, 2348, 3873, 1093, 722, 2854, 2365,
- 3878, 3879, 865, 866, 867, 1095, 869, 870, 3313, 2365,
- 4359, 4523, 3791, 1709, 4223, 2326, 2314, 4009, 4345, 804,
- 3934, 3800, 4089, 3665, 4392, 4464, 4397, 3806, 2544, 4054,
- 3809, 1752, 3811, 3812, 1380, 2546, 2621, 1379, 3350, 2620,
- 3819, 3353, 3821, 3318, 3823, 3901, 3304, 4039, 3303, 3319,
- 2656, 3654, 4125, 3655, 2655, 919, 7, 459, 721, 1429,
- 2818, 2818, 3940, 3842, 2818, 3711, 732, 2818, 300, 2118,
- 1331, 473, 3950, 3446, 2990, 477, 314, 1139, 2497, 3858,
- 3920, 422, 423, 3895, 2334, 4119, 3964, 4523, 3425, 3401,
- 1334, 4251, 3404, 728, 3406, 3407, 2520, 830, 4575, 884,
- 1766, 813, 877, 2980, 4263, 2647, 447, 970, 2802, 2350,
- 4175, 4176, 4177, 4138, 3310, 66, 4507, 21, 3642, 2479,
- 4786, 1185, 4111, 3193, 3225, 3843, 4158, 78, 4832, 4718,
- 3442, 2825, 473, 847, 4888, 331, 4722, 4129, 4130, 3253,
- 4213, 4805, 345, 3453, 2387, 2045, 3398, 1849, 4449, 4718,
- 2514, 4752, 1774, 4847, 3818, 387, 388, 498, -1, 2853,
- 2854, 946, 4187, 4041, -1, 4703, -1, -1, -1, -1,
- -1, 4205, 4206, -1, 125, -1, -1, -1, -1, -1,
- -1, -1, -1, 319, -1, 4786, 4724, -1, -1, -1,
- -1, 4069, 4257, -1, -1, -1, 4303, 148, 4263, -1,
- 2894, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 4091, 3993, 3994, -1, -1, 4096, -1,
- -1, -1, 126, -1, 626, 627, 628, -1, -1, -1,
- 4009, -1, -1, 465, 466, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 4027, -1,
- 4357, -1, -1, -1, -1, -1, 207, -1, -1, 600,
- 4039, -1, -1, 4255, 4043, -1, -1, 403, -1, -1,
- -1, -1, -1, 4265, 4266, 4054, -1, -1, -1, 4806,
- 184, -1, -1, 187, -1, 189, -1, -1, 4067, 4184,
- -1, 4169, 633, -1, -1, -1, 637, 638, -1, -1,
- -1, -1, 534, -1, -1, -1, -1, -1, -1, -1,
- 214, -1, -1, -1, -1, -1, -1, -1, 4391, -1,
- 722, -1, -1, -1, 665, 4104, 462, 463, -1, -1,
- -1, -1, -1, 4845, 4846, 4911, -1, 569, -1, -1,
- -1, 292, -1, -1, -1, 481, 578, -1, -1, -1,
- 4129, 4130, -1, -1, -1, 587, -1, -1, -1, -1,
- -1, 497, -1, 4875, -1, -1, 4145, 769, 4246, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 4157, -1,
- 3692, -1, -1, -1, 4163, -1, -1, 4452, -1, -1,
- -1, 4383, -1, -1, -1, -1, -1, -1, 630, 4277,
- -1, 4180, -1, -1, -1, 309, 357, -1, 4187, -1,
- -1, -1, -1, -1, -1, 366, 4441, -1, -1, -1,
- -1, -1, -1, -1, -1, 4204, -1, -1, -1, 3741,
- -1, -1, -1, -1, 3746, -1, -1, -1, -1, -1,
- -1, -1, 4507, -1, -1, -1, -1, -1, 850, -1,
- 4523, 4329, -1, -1, 4479, 487, -1, -1, -1, 595,
- -1, -1, -1, 4341, 4342, 4343, -1, -1, -1, 4347,
- 872, -1, 4251, -1, 4581, 4254, 4255, -1, -1, -1,
- 3174, -1, -1, -1, 4362, -1, 4265, 4266, 4652, -1,
- -1, -1, 833, -1, -1, -1, -1, 448, -1, -1,
- -1, -1, 4567, -1, 455, -1, -1, 4532, -1, -1,
- -1, -1, -1, -1, -1, -1, 4394, -1, -1, -1,
- -1, -1, -1, -1, 660, -1, -1, -1, -1, 480,
- -1, 4409, -1, -1, 4412, 4413, 4414, 4415, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 954, -1, -1, -1, 3250, 508, -1, 4338,
- -1, -1, 4440, -1, -1, -1, -1, -1, -1, 3263,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 484, -1, -1, 3895, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 4628, 4383, -1, -1, 4485, 4486, 4487,
- 4488, 4489, 4637, -1, 4492, 4493, 4494, 4495, 4496, 4497,
- 4498, 4499, 4500, 4501, 4502, -1, 858, 4505, -1, 4507,
- 862, 4509, 864, 584, -1, -1, -1, -1, -1, -1,
- 4518, 4519, -1, -1, 4522, -1, 678, -1, 680, -1,
- -1, 683, -1, 789, -1, -1, 688, 4682, 690, -1,
- -1, -1, 694, -1, -1, -1, 4544, -1, 4546, -1,
- -1, -1, 704, -1, 578, 707, -1, -1, 582, -1,
- -1, 3375, 714, -1, -1, -1, 1, -1, -1, 4,
- -1, -1, -1, -1, -1, -1, 728, -1, 730, 731,
- -1, -1, -1, -1, -1, -1, 657, -1, -1, -1,
- 661, -1, 744, -1, -1, -1, -1, -1, 854, -1,
- 856, -1, -1, -1, -1, -1, 4751, -1, -1, 865,
- 866, 867, -1, 869, 870, 680, -1, -1, -1, -1,
- 685, 4814, -1, -1, -1, 4623, -1, 4625, -1, -1,
- -1, -1, 697, -1, 4779, 4780, -1, 702, 4636, -1,
- 4785, -1, -1, 4788, -1, -1, -1, 4792, 4793, -1,
- -1, -1, 87, -1, -1, 4848, 721, 4802, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 743, -1, -1, -1, -1, 701, -1, -1,
- -1, 4826, -1, -1, -1, -1, -1, 4685, -1, -1,
- -1, -1, -1, 4125, -1, -1, -1, -1, 4843, -1,
- -1, 853, 137, -1, -1, 140, 141, -1, -1, 4707,
- -1, 4856, 147, -1, 970, 4860, 4861, 741, -1, 154,
- 4619, 3535, 3536, 3537, 3538, -1, 4871, 4626, -1, -1,
- -1, -1, 4631, 804, -1, 4634, -1, -1, -1, -1,
- 892, 893, 894, 895, -1, -1, -1, 818, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 4760, 4761, 788, 4763, 790, -1, -1, -1,
- -1, 842, 924, -1, -1, -1, -1, -1, -1, -1,
- 4778, -1, -1, -1, -1, 4783, 4784, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 231, 232, 822, 951,
- -1, 4946, -1, 4801, -1, -1, 4804, -1, 4806, -1,
- 834, -1, -1, 884, -1, -1, -1, -1, -1, 884,
- -1, -1, -1, -1, -1, -1, -1, 892, 893, 894,
- 895, -1, -1, -1, -1, -1, 4735, -1, 903, 4738,
- -1, -1, -1, -1, -1, -1, -1, -1, 872, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 934, -1, -1, -1, -1, 1020, -1,
- -1, 936, -1, -1, -1, 946, -1, -1, -1, -1,
- -1, 1033, 953, -1, 955, -1, -1, 7, 1040, -1,
- -1, -1, -1, -1, -1, -1, 4, 3711, -1, -1,
- -1, -1, -1, 338, -1, -1, -1, -1, 1060, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 18,
- -1, 955, -1, 1085, -1, -1, -1, -1, -1, -1,
- -1, -1, 966, -1, -1, -1, 66, 1012, -1, -1,
- -1, -1, -1, -1, -1, 390, -1, -1, 78, -1,
- 1112, -1, -1, 1028, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 1130, 87,
- -1, -1, -1, -1, -1, 1137, 1138, -1, -1, -1,
- -1, -1, -1, 1145, -1, -1, 1148, 1149, -1, -1,
- -1, -1, -1, -1, -1, 125, -1, -1, -1, 444,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 1085, 456, -1, -1, -1, -1, -1, -1, 148, 137,
- 1095, -1, 140, 141, -1, -1, -1, 1102, 473, 147,
- -1, -1, 477, -1, 479, -1, 154, -1, -1, 3863,
- -1, -1, -1, 488, 680, 3869, 3870, -1, -1, 685,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 697, -1, -1, -1, -1, 702, 166, -1, -1,
- 1145, -1, -1, 172, 173, -1, -1, 207, -1, -1,
- -1, 526, -1, -1, -1, 721, -1, -1, -1, 188,
- -1, -1, -1, -1, 539, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 1273, 1274, -1, -1, -1, -1, -1, 1280, 1281,
- 1282, -1, -1, -1, -1, 1287, 1288, 1289, 1290, -1,
- -1, 1293, -1, -1, -1, -1, -1, -1, 583, -1,
- -1, 1303, -1, 1305, 1306, -1, -1, -1, -1, -1,
- 1312, 1313, 1314, 1315, 1316, 1317, 1318, 1319, 1320, 1321,
- 1322, 1323, 292, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 1334, -1, 1336, 620, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 631, 1349, -1, -1,
- -1, -1, 1354, -1, -1, -1, 641, -1, -1, -1,
- -1, -1, -1, -1, -1, 1280, 1281, 1282, -1, -1,
- -1, -1, 1287, 1288, 1289, 1290, -1, -1, 1293, -1,
- -1, -1, 1297, -1, -1, -1, 1388, 357, 1303, -1,
- 1305, 1306, -1, -1, -1, 4059, 366, 1312, 1313, 1314,
- 1315, 1316, 1317, 1318, 1319, 1320, 1321, 1322, 1323, -1,
- -1, -1, -1, 698, -1, -1, 892, 893, 894, 895,
- -1, -1, -1, -1, 363, 364, 365, -1, -1, -1,
- -1, -1, 390, -1, 1349, -1, 375, -1, -1, 1354,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 740, -1, -1, -1, -1,
- 936, -1, -1, -1, 403, -1, -1, -1, -1, -1,
- -1, -1, -1, 1388, -1, -1, -1, -1, 448, -1,
- -1, -1, -1, -1, 1399, 455, 444, -1, -1, -1,
- 775, -1, -1, -1, -1, -1, -1, -1, 456, -1,
- -1, -1, 787, -1, -1, -1, -1, -1, -1, -1,
- 480, -1, -1, -1, -1, 473, -1, -1, -1, 477,
- -1, 479, -1, -1, -1, 464, -1, -1, -1, -1,
- 488, -1, 4814, -1, 819, -1, 1012, -1, 508, -1,
- -1, -1, 481, -1, -1, -1, 485, 486, 487, -1,
- -1, -1, 1028, -1, -1, 494, -1, -1, 497, -1,
- -1, -1, -1, 4845, 4846, -1, 4848, -1, -1, -1,
- -1, -1, 857, -1, -1, -1, -1, -1, -1, -1,
- -1, 539, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 4875, -1, 880, -1, -1, -1, -1,
- -1, -1, 887, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 1617, -1, -1, -1, 1095,
- -1, -1, -1, -1, -1, 583, 1102, -1, 913, -1,
- -1, -1, -1, -1, -1, -1, -1, 922, -1, -1,
- -1, 580, -1, -1, -1, 930, -1, 932, 12, -1,
- 935, -1, -1, -1, 18, -1, -1, -1, -1, -1,
- -1, -1, 620, -1, -1, -1, 1668, -1, -1, 1145,
- 955, -1, -1, 631, -1, -1, -1, 1679, -1, -1,
- -1, -1, -1, 641, -1, -1, 971, 657, -1, -1,
- -1, 661, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 1617, -1, -1, -1, 1708, -1, -1, -1,
- -1, -1, -1, -1, -1, 1630, -1, -1, 1633, -1,
- -1, 660, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 1740, -1,
- 698, -1, 61, 62, 63, 64, 1748, -1, -1, -1,
- 69, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 87, 88,
- -1, -1, -1, 743, -1, 1690, 715, -1, -1, -1,
- -1, -1, 740, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 1716, 166, -1, 1280, 1281, 1282, -1, 172, 173,
- -1, 1287, 1288, 1289, -1, -1, -1, 775, -1, 138,
- -1, 1297, -1, -1, 188, -1, -1, 1303, -1, 787,
- 1306, -1, -1, 1748, 804, -1, 1312, 1313, 1314, 1315,
- 1316, 1317, 1318, 1319, 1320, 1321, 1322, 1323, 818, -1,
- 789, -1, -1, -1, -1, -1, 175, -1, 177, -1,
- -1, 819, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 842, 1349, -1, -1, 815, 816, 1354, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 1895, -1, -1, -1, -1, -1, 857,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 1911,
- -1, -1, -1, -1, 884, -1, -1, -1, 12, -1,
- -1, -1, 880, 1399, 18, -1, 290, -1, 867, 887,
- 1932, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 1942, -1, -1, -1, -1, -1, 885, -1, -1, -1,
- -1, -1, -1, -1, -1, 913, -1, -1, -1, -1,
- -1, -1, -1, -1, 934, -1, -1, -1, -1, -1,
- -1, -1, 930, 912, 932, -1, 946, 935, -1, -1,
- -1, 920, 301, 953, -1, 955, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 1911, -1, -1, 363,
- 364, 365, -1, 97, -1, -1, -1, -1, -1, 948,
- -1, 375, -1, 971, -1, -1, 955, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 1942, -1, -1,
- -1, 970, -1, -1, -1, -1, -1, -1, -1, 403,
- -1, 360, -1, -1, -1, -1, 1961, -1, -1, -1,
- 1965, 2053, -1, -1, -1, 2057, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 166, -1, -1, -1, -1, 171, 172, 173,
- -1, -1, 401, -1, -1, -1, -1, -1, -1, 61,
- 62, 63, 64, -1, 188, -1, -1, 69, 462, 463,
- 464, -1, -1, -1, -1, -1, -1, -1, 472, -1,
- 474, -1, -1, -1, -1, 87, 88, 481, -1, -1,
- -1, 485, 486, 487, -1, -1, -1, -1, -1, -1,
- 494, -1, -1, 497, -1, -1, -1, -1, 2053, 2141,
- -1, 1617, 2144, -1, 2146, 2147, 2148, -1, -1, -1,
- 514, 2066, -1, -1, 1630, -1, -1, 1633, -1, -1,
- 2162, -1, -1, -1, -1, -1, 138, -1, -1, -1,
- -1, -1, 1, -1, -1, -1, 495, -1, -1, -1,
- -1, -1, -1, 12, -1, -1, -1, -1, -1, 18,
- -1, -1, -1, 22, 23, 24, -1, -1, -1, -1,
- -1, 30, 31, 175, -1, 177, -1, -1, -1, -1,
- -1, -1, -1, -1, 1690, -1, 580, -1, -1, -1,
- -1, -1, -1, 542, 53, 54, 55, 56, 57, 58,
- 59, 60, -1, -1, -1, 2150, -1, -1, -1, -1,
- 1716, -1, -1, -1, 608, -1, -1, -1, -1, -1,
- -1, 12, -1, -1, -1, -1, -1, 18, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 363,
- 364, 365, 1748, -1, -1, -1, -1, 2279, -1, -1,
- 2282, 375, -1, -1, 603, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 660, -1, -1, 128,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 403,
- -1, -1, -1, -1, 2316, -1, -1, -1, -1, 2321,
- -1, -1, -1, -1, -1, 2327, 2328, -1, -1, 301,
- -1, -1, -1, -1, -1, -1, -1, 166, -1, -1,
- -1, -1, -1, 172, 173, -1, -1, -1, -1, -1,
- -1, 715, -1, -1, -1, 2357, 2271, 2272, 2273, 188,
- -1, -1, 2364, 2365, -1, -1, -1, -1, 462, 463,
- 464, -1, 2374, -1, 2376, -1, -1, -1, 472, -1,
- 474, -1, -1, -1, -1, -1, -1, 481, 360, 2391,
- 2392, 485, 486, 487, 2396, 714, -1, 716, 717, -1,
- 494, -1, -1, 497, -1, 166, -1, -1, -1, -1,
- -1, 172, 173, 2328, -1, -1, -1, 781, 737, -1,
- 514, 182, -1, 742, -1, 789, -1, 188, -1, 401,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 2359, -1, 2361, -1, -1, -1,
- -1, 815, 816, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 781, -1, -1, -1, -1, -1, -1, -1,
- -1, 300, -1, -1, 793, -1, 2391, 2392, -1, -1,
- -1, -1, -1, -1, -1, 1961, 580, -1, -1, 1965,
- 319, -1, -1, 587, -1, -1, 860, -1, -1, -1,
- -1, -1, -1, 867, -1, -1, -1, 871, -1, -1,
- -1, -1, -1, -1, 608, -1, -1, -1, -1, -1,
- -1, 885, -1, 495, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 363, 364, 365, -1, -1, -1,
- -1, -1, -1, 2545, -1, -1, 375, -1, 912, -1,
- -1, -1, -1, -1, -1, -1, 920, -1, 387, 388,
- -1, -1, 2564, 2565, -1, -1, 660, -1, -1, 541,
- -1, -1, -1, 892, 403, -1, -1, -1, 2580, -1,
- -1, -1, -1, -1, 948, -1, -1, -1, -1, 683,
- 2066, 955, -1, -1, -1, -1, -1, 2599, -1, 2601,
- -1, -1, 363, 364, 365, 434, 970, -1, -1, 2611,
- -1, -1, -1, -1, 375, -1, -1, -1, -1, -1,
- -1, 715, -1, 2625, -1, -1, 2628, -1, -1, -1,
- -1, 603, -1, 462, 463, 464, 465, 466, -1, -1,
- -1, -1, 403, 472, -1, 474, -1, -1, 2650, 2564,
- -1, -1, 481, -1, 166, 2657, 485, 486, 487, -1,
- 172, 173, -1, -1, -1, 494, -1, -1, 497, -1,
- -1, -1, 2674, -1, -1, -1, 188, -1, -1, -1,
- -1, -1, 2684, -1, 2599, 514, 2601, 781, -1, -1,
- -1, -1, -1, -1, -1, 789, 2611, -1, -1, -1,
- -1, 462, 463, 464, -1, 534, -1, -1, -1, 2624,
- 2625, 472, -1, 474, -1, 2717, -1, 2632, -1, -1,
- 481, 815, 816, -1, 485, 486, 487, -1, -1, -1,
- 559, -1, -1, 494, -1, 2650, 497, -1, -1, -1,
- 569, 2743, 714, -1, 716, 717, -1, -1, -1, 578,
- -1, 580, -1, 514, -1, -1, -1, -1, 587, -1,
- -1, 2763, -1, -1, -1, 737, 595, -1, -1, 2684,
- 742, -1, -1, 867, -1, -1, 2691, -1, 2693, 608,
- -1, -1, -1, -1, -1, 2787, -1, -1, -1, -1,
- -1, 885, -1, -1, -1, 2271, 2272, 2273, -1, -1,
- -1, 630, 896, -1, -1, -1, -1, -1, -1, 781,
- -1, -1, -1, 2815, -1, -1, -1, -1, 912, 580,
- 2822, 793, -1, -1, -1, -1, 920, 2742, 2743, -1,
- -1, 660, 2834, -1, -1, -1, 930, -1, -1, -1,
- -1, -1, 2757, -1, 2759, -1, -1, 608, -1, -1,
- -1, 363, 364, 365, 948, -1, -1, -1, -1, 2861,
- -1, 955, -1, 375, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 970, -1, -1, -1,
- -1, -1, -1, 2359, -1, -1, 715, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 660,
- -1, -1, -1, -1, -1, -1, -1, 2822, -1, -1,
- -1, -1, -1, 43, 2829, 2391, 2392, -1, -1, 2834,
- 892, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 61, 62, 63, 64, -1, -1, -1, -1, 69,
- -1, -1, -1, -1, -1, -1, 2861, -1, -1, -1,
- 462, 463, 464, -1, 715, -1, -1, 87, 88, -1,
- 789, -1, -1, -1, -1, -1, -1, -1, -1, 481,
- -1, -1, -1, 485, 486, 487, -1, -1, -1, -1,
- 2895, -1, 494, -1, -1, -1, 815, 816, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 2920, -1, 137, 138, -1,
- -1, 141, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 854, -1, 856, 789, 858,
- -1, 860, -1, 862, -1, 864, 865, 866, 867, -1,
- 869, 870, 871, -1, -1, 175, -1, 177, -1, -1,
- 61, 62, 63, 64, 815, 816, 885, -1, 69, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 580, 830,
- -1, -1, -1, -1, -1, -1, 87, 88, -1, -1,
- -1, -1, -1, 912, -1, -1, -1, -1, 2564, -1,
- -1, 920, -1, -1, 3096, 3097, -1, -1, -1, -1,
- -1, -1, -1, 3105, -1, -1, 867, -1, 3110, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 948,
- -1, -1, -1, 2599, 885, 2601, 955, 138, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 970, -1, -1, -1, -1, -1, -1, 2624, 2625,
- -1, 912, -1, -1, -1, -1, 2632, -1, -1, 920,
- -1, -1, -1, -1, 175, -1, 177, -1, -1, -1,
- -1, 301, -1, -1, 2650, -1, -1, -1, -1, -1,
- -1, 3096, 3097, -1, -1, -1, -1, 948, -1, -1,
- 3192, -1, -1, -1, 955, -1, -1, -1, -1, -1,
- -1, -1, -1, 715, -1, -1, -1, -1, 2684, 970,
- -1, -1, -1, -1, -1, 2691, 3218, 2693, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 3231,
- 360, -1, -1, -1, -1, -1, -1, 3239, 12, -1,
- -1, -1, -1, -1, 18, -1, -1, -1, -1, -1,
- 0, 1, -1, -1, -1, 5, -1, -1, -1, -1,
- 3262, 11, -1, -1, -1, -1, -1, -1, -1, 19,
- -1, 401, -1, -1, -1, -1, -1, 3192, 28, -1,
- -1, 2757, -1, 2759, -1, -1, -1, -1, -1, -1,
- 301, -1, -1, 3208, 44, 3210, -1, -1, -1, -1,
- -1, -1, -1, 815, 816, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 3231, -1, -1, -1,
- -1, -1, -1, -1, 3239, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 3251, -1, -1, -1,
- -1, -1, -1, 473, -1, -1, 2822, -1, -1, 360,
- -1, 101, 102, 2829, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 495, -1, -1, -1, -1,
- -1, -1, -1, 885, -1, -1, -1, -1, -1, -1,
- -1, -1, 132, -1, -1, 515, -1, -1, -1, -1,
- 401, -1, 166, -1, -1, -1, 3311, -1, 172, 173,
- 912, -1, 152, -1, -1, 3407, 156, -1, 920, -1,
- -1, -1, 542, -1, 188, -1, -1, -1, -1, 2895,
- -1, -1, -1, -1, 174, -1, -1, -1, -1, -1,
- -1, -1, 3434, -1, -1, -1, 948, -1, -1, -1,
- -1, -1, -1, 955, 2920, -1, -1, -1, -1, -1,
- -1, 201, -1, 3368, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 219,
- -1, -1, -1, 603, -1, 225, -1, 227, -1, -1,
- -1, 231, -1, -1, 495, -1, 236, -1, -1, -1,
- -1, -1, 3407, -1, -1, -1, -1, 627, 628, -1,
- -1, -1, -1, 253, -1, 255, -1, -1, -1, 259,
- 260, 261, 262, 263, -1, 265, 266, 267, 268, -1,
- 270, 271, -1, 273, 274, -1, 276, 277, 278, 279,
- 280, -1, 282, 283, 284, 285, 286, 287, -1, -1,
- 290, -1, 3544, -1, -1, -1, 54, -1, 298, -1,
- -1, -1, -1, 303, -1, -1, 306, -1, -1, 3561,
- -1, 311, 312, -1, -1, -1, -1, 317, 318, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 714, -1, 716, 717, -1, 363,
- 364, 365, 603, -1, -1, -1, -1, -1, -1, -1,
- -1, 375, -1, -1, -1, -1, -1, 737, -1, -1,
- -1, -1, 742, -1, -1, -1, -1, -1, 368, -1,
- 3096, 3097, -1, -1, -1, -1, -1, 377, -1, 403,
- 380, -1, -1, -1, -1, 385, -1, -1, 3640, -1,
- 3555, -1, 3557, -1, 3646, -1, 3648, -1, -1, -1,
- -1, 781, -1, -1, -1, -1, -1, -1, 166, -1,
- -1, 411, 3664, 793, 172, 173, -1, -1, -1, 419,
- -1, 421, -1, -1, 424, -1, -1, 427, -1, -1,
- 188, -1, -1, 433, -1, -1, -1, -1, 462, 463,
- 464, -1, -1, 443, -1, -1, -1, -1, 472, -1,
- 474, -1, -1, 714, -1, 716, 717, 481, -1, -1,
- -1, 485, 486, 487, -1, -1, 3192, -1, -1, -1,
- 494, -1, -1, 497, -1, -1, 737, -1, -1, -1,
- -1, 742, 3208, -1, 3210, -1, -1, -1, -1, -1,
- 514, -1, -1, -1, 3746, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 509,
- -1, -1, 892, -1, -1, -1, 516, -1, 518, -1,
- 781, 521, -1, -1, -1, 3251, 906, -1, -1, -1,
- -1, -1, 793, -1, -1, -1, -1, 537, -1, -1,
- -1, -1, -1, -1, -1, -1, 546, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 580, -1, -1, -1,
- -1, -1, -1, 587, -1, -1, 566, 567, 568, -1,
- 570, 571, 572, 573, 954, -1, -1, -1, -1, -1,
- -1, 3746, -1, -1, 608, 3311, -1, -1, -1, -1,
- 590, 591, 592, -1, -1, -1, -1, -1, -1, -1,
- 3852, -1, -1, -1, -1, 363, 364, 365, -1, -1,
- -1, -1, -1, -1, -1, 615, -1, 375, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 892, -1, -1, -1, -1, 660, -1, -1, -1,
- -1, -1, 3368, 3895, -1, 403, 3898, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 656, -1, -1, -1,
- -1, -1, 662, -1, -1, -1, -1, 667, -1, -1,
- 670, 671, -1, -1, -1, -1, -1, -1, 3930, 3931,
- -1, 3407, -1, -1, -1, -1, -1, -1, -1, 689,
- -1, 715, -1, -1, -1, -1, -1, -1, -1, 3951,
- -1, -1, -1, -1, 462, 463, 464, 707, -1, -1,
- -1, -1, 712, -1, 472, -1, 474, -1, -1, 719,
- -1, -1, -1, 481, -1, -1, 726, 485, 486, 487,
- -1, -1, -1, -1, -1, -1, 494, -1, -1, 497,
- -1, -1, -1, -1, -1, 745, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 781, -1, -1,
- 760, -1, -1, -1, -1, 789, 766, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 782, -1, 784, -1, -1, -1, -1, -1,
- -1, 815, 816, -1, -1, -1, -1, -1, 798, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 808, 809,
- -1, -1, -1, -1, -1, -1, -1, 817, -1, -1,
- 820, -1, 580, -1, -1, -1, -1, -1, -1, 3555,
- -1, 3557, -1, -1, -1, 835, -1, 4089, -1, -1,
- 4092, -1, -1, 867, -1, -1, -1, -1, 4100, -1,
- 608, -1, -1, -1, -1, -1, -1, 857, -1, -1,
- -1, 885, -1, -1, -1, -1, -1, -1, 868, -1,
- -1, -1, 896, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 882, -1, -1, -1, -1, -1, 912, 0,
- 1, -1, -1, -1, 5, 895, 920, -1, -1, -1,
- 11, 901, 660, -1, -1, -1, -1, -1, 19, -1,
- -1, 4076, -1, -1, -1, -1, -1, 28, -1, -1,
- -1, -1, -1, -1, 948, -1, 926, -1, -1, -1,
- -1, 955, -1, -1, -1, 4100, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 970, 947, -1, 4201,
- -1, -1, -1, -1, -1, -1, -1, 715, -1, 959,
- -1, -1, -1, 4215, 964, -1, -1, -1, -1, -1,
- -1, -1, 972, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 101, 102, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 3746, 132, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 789, -1, -1, -1, 4287, -1, -1, -1, -1,
- -1, 152, -1, -1, 4296, 156, -1, -1, 4300, -1,
- 4215, -1, -1, -1, -1, -1, -1, 815, 816, -1,
- -1, -1, -1, 174, -1, -1, -1, -1, 826, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 4345, -1, -1, 4348, 4349, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 865, 219, 867,
- -1, 869, 870, -1, 225, -1, 227, -1, 4370, 4371,
- 231, -1, -1, -1, -1, 236, -1, 885, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 4389, -1, -1,
- 4392, -1, 253, -1, -1, 4397, -1, -1, -1, -1,
- -1, -1, -1, -1, 912, -1, -1, -1, -1, 4411,
- -1, -1, 920, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 4426, -1, -1, -1, -1, 290,
- -1, -1, -1, -1, -1, 4437, -1, -1, -1, 4441,
- 948, -1, -1, -1, -1, 306, -1, 955, -1, -1,
- 311, -1, -1, -1, -1, -1, 317, 318, -1, -1,
- -1, -1, 970, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 4389, -1, 4478, -1, -1, 4481,
- 4482, 4483, 4484, -1, -1, -1, -1, -1, -1, 4491,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 4504, -1, -1, -1, -1, 368, -1, -1,
- -1, -1, -1, -1, -1, -1, 377, -1, -1, 380,
- 166, 4523, -1, -1, 385, -1, 172, 173, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 4541,
- -1, -1, 188, 4545, -1, -1, -1, -1, -1, -1,
- 411, -1, -1, -1, -1, -1, -1, -1, 419, -1,
- 421, -1, -1, 424, -1, -1, 427, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 443, -1, -1, -1, 4588, 4589, 4590, 4591,
- 4592, 4593, 4594, 4595, 4596, 4597, 4598, 4599, 4600, 4601,
- 4602, 4603, 4604, 4605, 4606, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 4618, -1, -1, -1,
- -1, -1, -1, -1, -1, 4627, 4628, -1, -1, -1,
- -1, -1, -1, -1, -1, 4637, -1, -1, -1, -1,
- 4555, -1, -1, -1, -1, -1, -1, -1, 509, -1,
- -1, -1, -1, -1, -1, 516, -1, 518, -1, -1,
- 521, -1, 4664, -1, 0, 1, -1, -1, -1, 5,
- -1, -1, -1, -1, 4676, 11, 537, -1, -1, -1,
- 4682, -1, -1, 19, -1, -1, 4688, 4689, -1, -1,
- -1, -1, 28, -1, -1, -1, -1, -1, -1, -1,
- -1, 4703, -1, -1, -1, -1, -1, 1, -1, 4711,
- 4712, -1, 6, -1, -1, -1, 10, 363, 364, 365,
- -1, -1, 4724, 4725, -1, -1, -1, -1, -1, 375,
- -1, 592, -1, -1, -1, 29, -1, -1, -1, -1,
- -1, -1, 4744, -1, -1, -1, -1, -1, 42, 4751,
- -1, -1, -1, -1, 615, -1, 4758, -1, -1, -1,
- -1, -1, -1, -1, -1, 101, 102, -1, -1, -1,
- -1, -1, -1, 4775, -1, -1, 70, 4779, 4780, -1,
- -1, -1, -1, 4785, -1, 4787, 4788, -1, -1, -1,
- 4792, 4793, -1, -1, -1, 656, 132, -1, -1, -1,
- -1, 662, -1, -1, -1, -1, 667, -1, -1, 670,
- 671, -1, -1, -1, -1, -1, 152, -1, 464, -1,
- 156, -1, -1, -1, -1, -1, -1, -1, 689, -1,
- -1, 4833, -1, -1, -1, 481, -1, -1, 174, 485,
- 486, 487, 136, 4845, 4846, -1, 707, -1, 494, -1,
- -1, 712, -1, -1, 12, -1, -1, -1, 719, -1,
- 18, -1, -1, -1, -1, 726, -1, -1, -1, -1,
- -1, -1, -1, 4875, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 219, 745, -1, -1, -1, -1, 225,
- -1, 227, 4894, 4895, -1, 231, -1, -1, -1, 760,
- 236, -1, -1, -1, -1, 766, -1, 201, -1, -1,
- 4912, -1, -1, -1, -1, -1, -1, 253, -1, -1,
- 4922, 4923, -1, 784, -1, 4927, -1, -1, -1, -1,
- 4845, 4846, 4934, -1, 580, -1, -1, 798, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 808, 809, -1,
- -1, -1, -1, -1, 290, -1, 817, -1, -1, 820,
- 4875, -1, -1, 257, -1, -1, -1, -1, -1, -1,
- 306, -1, -1, -1, 835, 311, -1, -1, -1, -1,
- -1, 317, 318, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 857, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 166, -1,
- -1, -1, -1, -1, 172, 173, -1, -1, -1, -1,
- -1, 882, -1, -1, 182, -1, -1, -1, -1, -1,
- 188, -1, 368, -1, 895, -1, -1, 331, 332, -1,
- 901, 377, -1, -1, 380, -1, -1, -1, -1, 385,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 926, -1, 1, -1, 715,
- -1, -1, -1, -1, -1, 411, -1, -1, -1, -1,
- -1, -1, -1, 419, -1, 421, -1, -1, 424, -1,
- -1, 427, -1, -1, -1, -1, -1, 31, 959, -1,
- -1, -1, -1, 964, -1, -1, -1, 443, -1, -1,
- -1, 972, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 417, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 67, -1, -1, 70, 71, 72, 73,
- 74, -1, 76, 77, -1, -1, -1, -1, 442, -1,
- -1, -1, -1, 87, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 815,
- 816, -1, -1, 509, -1, -1, -1, -1, -1, 473,
- 516, -1, 518, -1, -1, 521, -1, -1, -1, -1,
- -1, -1, 126, -1, -1, 489, -1, -1, -1, -1,
- -1, 537, -1, -1, -1, 363, 364, 365, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 375, -1, -1,
- 154, 155, -1, 157, 158, 159, 160, 161, 162, 163,
- 164, 165, -1, -1, -1, -1, -1, -1, -1, 885,
- -1, -1, -1, -1, -1, 403, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 592, -1, -1, -1,
- -1, 555, -1, -1, -1, -1, 912, -1, -1, -1,
- -1, -1, -1, -1, 920, -1, -1, -1, -1, 615,
- -1, -1, 216, -1, -1, -1, -1, -1, -1, -1,
- 224, -1, -1, -1, -1, -1, -1, 231, 232, -1,
- -1, -1, 948, 597, 462, 463, 464, -1, -1, 955,
- -1, 605, -1, -1, 472, -1, 474, -1, -1, -1,
- 656, -1, -1, 481, -1, -1, 662, 485, 486, 487,
- -1, 667, -1, -1, 670, 671, 494, -1, -1, 497,
- -1, -1, -1, -1, -1, -1, -1, 641, -1, -1,
- -1, -1, -1, 689, -1, -1, 514, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 4845,
- 4846, 707, -1, -1, -1, -1, 712, -1, -1, 673,
- -1, -1, -1, 719, -1, -1, -1, -1, 322, 323,
- 726, -1, -1, -1, 688, -1, -1, -1, -1, 4875,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 745,
- -1, 705, -1, 347, 348, 349, 350, 351, -1, 353,
- 354, 355, 580, -1, 760, -1, -1, -1, 362, -1,
- 766, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 376, -1, -1, 379, -1, -1, 784, -1,
- 608, -1, -1, -1, -1, -1, -1, -1, 392, -1,
- 754, -1, 798, -1, -1, -1, -1, -1, -1, -1,
- 764, 765, 808, 809, -1, 409, 770, -1, -1, -1,
- -1, 817, 416, -1, 820, -1, -1, -1, -1, -1,
- 784, -1, -1, -1, -1, -1, -1, -1, 432, 835,
- 434, -1, 660, -1, -1, -1, 166, -1, -1, 803,
- 444, -1, 172, 173, -1, -1, -1, -1, -1, -1,
- -1, 857, 456, -1, -1, -1, -1, -1, 188, -1,
- -1, -1, -1, -1, 468, -1, -1, -1, 1, -1,
- -1, -1, -1, -1, 7, 479, 882, -1, -1, -1,
- -1, -1, -1, -1, 488, -1, -1, 715, -1, 895,
- -1, -1, -1, 857, -1, 901, -1, 861, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 877, 878, 48, -1, -1, -1, -1,
- 926, -1, 526, -1, -1, -1, -1, -1, 61, 62,
- 63, 64, -1, 66, -1, -1, 69, -1, -1, -1,
- -1, -1, -1, -1, -1, 78, -1, -1, -1, -1,
- -1, -1, -1, 959, 87, 88, -1, -1, 964, -1,
- -1, 789, -1, -1, -1, -1, 972, -1, -1, -1,
- -1, -1, -1, -1, -1, 108, -1, -1, -1, 583,
- -1, -1, -1, -1, -1, -1, -1, 815, 816, -1,
- -1, -1, 125, -1, -1, -1, -1, 130, -1, -1,
- 604, -1, 830, -1, 137, 138, -1, -1, 141, -1,
- -1, -1, -1, -1, -1, 148, 620, -1, -1, -1,
- -1, 625, -1, -1, -1, -1, -1, 631, -1, -1,
- -1, -1, -1, 363, 364, 365, -1, 641, -1, 867,
- -1, -1, 175, -1, 648, 375, 6, -1, -1, -1,
- 10, -1, -1, 186, -1, -1, -1, 885, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 29,
- -1, -1, -1, 403, 207, -1, -1, 681, -1, -1,
- -1, -1, 42, -1, 912, -1, -1, -1, -1, -1,
- -1, -1, 920, -1, 698, -1, -1, -1, 231, 232,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 948, -1, -1, -1, -1, -1, -1, 955, -1, -1,
- -1, -1, -1, 737, 464, -1, 740, -1, -1, -1,
- -1, -1, 970, -1, -1, -1, -1, -1, -1, -1,
- 754, 481, -1, -1, -1, 485, 486, 487, -1, 292,
- -1, -1, -1, -1, 494, -1, -1, 497, 301, -1,
- -1, 775, -1, 777, 778, 779, 136, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 790, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 338, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 823,
- -1, -1, -1, -1, -1, -1, -1, 360, -1, -1,
- -1, -1, -1, 366, -1, -1, 369, -1, 371, -1,
- -1, 201, -1, -1, -1, -1, 379, -1, -1, -1,
- 580, -1, -1, 857, -1, -1, 389, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 401, -1,
- 403, -1, -1, -1, -1, -1, 880, -1, -1, -1,
- -1, -1, -1, 887, 888, -1, -1, -1, -1, -1,
- -1, -1, -1, 897, 898, 899, -1, 257, -1, -1,
- -1, 434, -1, -1, -1, -1, -1, -1, -1, 913,
- -1, 444, -1, -1, -1, 448, -1, -1, 922, -1,
- -1, -1, -1, 456, 928, -1, 930, 460, 932, -1,
- 660, 935, -1, -1, -1, 939, -1, -1, -1, -1,
- 473, -1, -1, -1, 477, -1, -1, 480, 481, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 495, -1, 497, -1, -1, 971, -1, 1,
- -1, 331, 332, -1, -1, -1, -1, -1, -1, -1,
- 12, -1, -1, -1, -1, 715, 18, -1, -1, -1,
- 22, 23, 24, 526, -1, -1, -1, -1, 30, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 541, -1,
- -1, -1, -1, -1, -1, 548, -1, -1, -1, -1,
- -1, 53, 54, 55, 56, 57, 58, 59, 60, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 581, -1,
- 583, -1, 585, -1, -1, -1, -1, 417, -1, 789,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 603, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 442, -1, -1, 815, 816, 620, -1, -1,
- -1, -1, -1, -1, 627, 628, 128, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 473, -1, -1, -1, -1, 651, -1,
- -1, -1, -1, -1, 657, -1, -1, 660, 661, 489,
- -1, -1, -1, -1, 166, -1, -1, 867, -1, -1,
- 172, 173, -1, -1, -1, -1, -1, -1, -1, 1,
- -1, -1, -1, -1, -1, 885, 188, -1, -1, -1,
- 12, -1, -1, -1, -1, -1, 18, -1, -1, 702,
- 22, 23, 24, -1, -1, -1, -1, -1, 30, -1,
- -1, 714, 912, 716, 717, -1, -1, -1, -1, -1,
- 920, 724, -1, -1, -1, 555, -1, -1, -1, -1,
- -1, 53, 54, 55, 56, 57, 58, 59, 60, -1,
- 743, -1, -1, -1, -1, -1, -1, 750, 948, -1,
- -1, -1, -1, -1, -1, 955, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 597, -1, -1,
- 970, -1, 775, -1, -1, 605, -1, -1, 781, -1,
- -1, -1, -1, -1, -1, -1, 789, -1, -1, -1,
- 793, -1, -1, -1, -1, -1, -1, -1, 300, -1,
- -1, 804, -1, -1, -1, -1, 128, -1, -1, -1,
- -1, 641, -1, -1, -1, -1, 318, 319, -1, -1,
- -1, -1, -1, -1, 827, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 673, 166, -1, -1, -1, -1, 852,
- 172, 173, -1, -1, 857, -1, -1, -1, 688, -1,
- 863, 363, 364, 365, 867, -1, 188, -1, -1, -1,
- -1, -1, -1, 375, -1, 705, -1, 880, -1, -1,
- -1, 884, -1, -1, -1, 387, 388, -1, -1, 892,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 403, -1, -1, -1, -1, -1, -1, -1, -1,
- 913, -1, -1, -1, -1, -1, -1, -1, 921, 922,
- -1, -1, -1, -1, 754, -1, -1, 930, -1, -1,
- -1, -1, 434, -1, 764, -1, -1, -1, -1, -1,
- 770, -1, -1, 946, -1, -1, -1, -1, -1, -1,
- -1, -1, 955, -1, 784, -1, -1, -1, -1, -1,
- 462, 463, 464, 465, 466, -1, -1, 970, -1, -1,
- 472, -1, 474, 803, -1, -1, -1, -1, 300, 481,
- -1, -1, -1, 485, 486, 487, -1, -1, -1, -1,
- -1, -1, 494, -1, -1, 497, -1, 319, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 514, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 857, -1, -1,
- -1, 861, 534, -1, -1, -1, -1, -1, -1, -1,
- -1, 363, 364, 365, -1, -1, -1, 877, 878, -1,
- -1, -1, -1, 375, -1, -1, -1, 559, -1, -1,
- -1, -1, -1, -1, -1, 387, 388, 569, -1, -1,
- -1, -1, -1, -1, -1, -1, 578, -1, 580, -1,
- -1, 403, -1, -1, -1, 587, -1, -1, -1, -1,
- -1, -1, -1, 595, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 608, -1, -1, 12,
- -1, -1, 434, -1, -1, 18, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 630, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 462, 463, 464, 465, 466, -1, -1, -1, -1, -1,
- 472, -1, 474, -1, -1, -1, -1, -1, 660, 481,
- -1, -1, -1, 485, 486, 487, -1, -1, -1, -1,
- -1, -1, 494, -1, -1, 497, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 514, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 534, 715, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 559, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 569, -1, -1,
- -1, -1, -1, -1, -1, -1, 578, -1, 580, -1,
- -1, -1, -1, 166, -1, 587, -1, 1, -1, 172,
- 173, -1, -1, 595, -1, -1, -1, -1, 12, -1,
- -1, -1, -1, -1, 18, 188, 608, 789, 22, 23,
- 24, -1, -1, -1, -1, -1, 30, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 630, -1,
- -1, -1, -1, 815, 816, -1, -1, -1, -1, 53,
- 54, 55, 56, 57, 58, 59, 60, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 660, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 854, -1, 856, -1, 858, -1, -1, -1,
- 862, -1, 864, 865, 866, 867, -1, 869, 870, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 885, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 715, 128, -1, -1, -1, -1, 302,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 912, -1, -1, -1, -1, -1, -1, -1, 920, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 166, -1, -1, -1, -1, -1, 172, 173,
- -1, -1, -1, -1, -1, -1, 948, -1, -1, -1,
- -1, -1, -1, 955, 188, -1, -1, -1, -1, -1,
- 363, 364, 365, -1, -1, -1, -1, 789, 970, -1,
- -1, -1, 375, -1, -1, 378, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 815, 816, -1, -1, -1, -1, -1,
- 403, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 854, -1, 856, -1, 858, -1, -1, -1,
- 862, -1, 864, 865, 866, 867, -1, 869, 870, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 462,
- 463, 464, -1, 885, -1, -1, 300, -1, -1, 472,
- -1, 474, -1, -1, -1, -1, -1, -1, 481, -1,
- -1, -1, 485, 486, 487, 319, -1, -1, -1, -1,
- 912, 494, -1, -1, 497, -1, -1, -1, 920, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 514, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 948, -1, -1, 363,
- 364, 365, -1, 955, -1, -1, -1, -1, -1, -1,
- -1, 375, -1, -1, -1, -1, -1, -1, 970, -1,
- -1, -1, -1, 387, 388, 558, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 403,
- -1, 43, -1, -1, -1, -1, -1, 580, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 61,
- 62, 63, 64, -1, -1, -1, -1, 69, -1, -1,
- -1, -1, -1, -1, -1, 608, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 87, 88, -1, -1, 91,
- -1, 93, -1, -1, -1, -1, -1, -1, 462, 463,
- 464, 465, 466, -1, -1, -1, -1, -1, 472, -1,
- 474, -1, -1, -1, 116, -1, -1, 481, -1, -1,
- -1, 485, 486, 487, -1, -1, -1, 660, -1, -1,
- 494, -1, -1, 497, -1, 137, 138, -1, -1, 141,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 514, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 534, -1, -1, 175, -1, 177, -1, -1, -1, -1,
- 713, -1, 715, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 559, 1, -1, -1, -1,
- -1, -1, -1, -1, -1, 569, -1, 12, -1, -1,
- -1, -1, -1, 18, 578, -1, 580, 22, 23, 24,
- -1, -1, -1, 587, -1, 30, -1, -1, -1, -1,
- -1, 595, -1, -1, 598, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 608, -1, -1, -1, 53, 54,
- 55, 56, 57, 58, 59, 60, 789, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 630, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 815, 816, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 660, -1, -1, 301,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 128, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 867, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 715, 885, -1, -1, -1, -1, -1, 360, -1,
- -1, 166, -1, -1, -1, -1, -1, 172, 173, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 912,
- -1, -1, -1, 188, -1, -1, -1, 920, -1, -1,
- 392, -1, -1, -1, -1, -1, -1, -1, -1, 401,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 948, -1, -1, -1, -1,
- -1, 954, 955, -1, -1, 789, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 970, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 815, 816, -1, -1, -1, -1, 459, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 473, -1, -1, -1, 477, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 854, -1, 856, 495, 858, 300, -1, -1, 862, -1,
- 864, 865, 866, 867, -1, 869, 870, -1, -1, -1,
- -1, -1, -1, -1, 319, -1, -1, -1, -1, -1,
- -1, 885, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 541,
- -1, -1, -1, -1, -1, -1, -1, -1, 912, -1,
- -1, -1, -1, -1, -1, -1, 920, -1, 363, 364,
- 365, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 375, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 387, 388, 948, -1, -1, -1, -1, -1,
- -1, 955, -1, -1, -1, -1, -1, -1, 403, -1,
- -1, 603, -1, -1, -1, -1, 970, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 626, 627, 628, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 462, 463, 464,
- 465, 466, -1, -1, -1, -1, -1, 472, -1, 474,
- -1, -1, -1, -1, -1, -1, 481, -1, -1, -1,
- 485, 486, 487, -1, -1, -1, -1, -1, -1, 494,
- -1, -1, 497, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 514,
- -1, -1, 714, -1, 716, 717, -1, -1, -1, -1,
- 722, -1, -1, -1, -1, -1, -1, -1, -1, 534,
- -1, -1, -1, -1, -1, 737, -1, -1, -1, -1,
- 742, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 559, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 569, -1, -1, 769, -1, -1,
- -1, -1, -1, 578, -1, 580, -1, -1, -1, 781,
- -1, -1, 587, -1, -1, -1, -1, -1, -1, -1,
- 595, 793, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 608, -1, 3, -1, -1, -1, -1,
- -1, 9, -1, -1, -1, 13, -1, -1, -1, 17,
- -1, -1, -1, -1, -1, 630, -1, -1, -1, -1,
- -1, 29, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 850, -1,
- -1, 49, 50, -1, -1, 660, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 872, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 78, 79, 80, 81, 82, 83, 84, 85, 86, -1,
- 892, -1, -1, 91, 92, 93, -1, 95, 96, -1,
- -1, -1, 100, -1, -1, 103, -1, -1, -1, -1,
- 715, -1, -1, 111, 112, 113, 114, 115, -1, 117,
- 118, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 129, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 139, -1, -1, 142, 143, 144, 145, 146, -1,
- -1, -1, 954, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 180, -1, 789, -1, -1, -1, -1, -1,
- -1, 189, 190, 191, 192, 193, 194, 195, 196, -1,
- -1, -1, 200, -1, 202, -1, 204, -1, -1, -1,
- 815, 816, -1, -1, -1, -1, -1, -1, -1, 217,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 233, 234, -1, -1, 237,
- 238, -1, 240, 241, 242, 243, 244, -1, -1, 854,
- -1, 856, -1, 858, -1, -1, -1, 862, -1, 864,
- 865, 866, 867, -1, 869, 870, 264, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 885, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 288, 289, -1, -1, -1, 293, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 304, 912, -1, -1,
- 308, -1, -1, -1, -1, 920, 314, 315, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 333, 334, 335, 336, 337,
- -1, -1, 340, 948, -1, -1, 344, 345, 346, -1,
- 955, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 970, -1, -1, -1, 367,
- -1, -1, -1, -1, 372, -1, -1, -1, -1, -1,
- -1, -1, -1, 381, 382, 383, 384, -1, -1, -1,
- -1, -1, 390, 391, -1, 393, -1, 395, 396, 397,
- 398, 399, 400, -1, 402, -1, 404, 405, 406, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 425, 426, -1,
- -1, -1, -1, -1, -1, -1, -1, 435, 436, 437,
- 438, 439, 440, -1, -1, -1, -1, -1, -1, -1,
- -1, 449, -1, -1, -1, 453, -1, -1, -1, 457,
- -1, 459, -1, 461, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 478, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 491, 492, 493, -1, -1, 496, -1,
- -1, -1, 500, -1, 502, 503, 504, 505, -1, -1,
- -1, -1, -1, -1, -1, 513, -1, -1, -1, -1,
- -1, 519, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 530, -1, -1, -1, -1, -1, -1, -1,
- 538, -1, -1, -1, -1, 543, 544, 545, -1, 547,
- -1, 549, 550, -1, 552, 553, 554, -1, -1, -1,
- -1, 559, 560, -1, 562, 563, 564, 565, -1, -1,
- -1, -1, -1, -1, -1, -1, 574, 575, -1, -1,
- 578, -1, -1, -1, -1, -1, -1, -1, 586, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 601, 602, -1, -1, 12, -1, -1,
- -1, 609, 610, 18, 612, -1, -1, -1, 616, -1,
- -1, -1, -1, -1, -1, 623, -1, -1, -1, -1,
- -1, 629, -1, -1, -1, 633, -1, 635, 636, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 649, -1, -1, 652, 653, -1, -1, -1, -1,
- 658, -1, -1, -1, -1, 663, -1, -1, -1, -1,
- -1, 669, -1, -1, -1, -1, 674, -1, 676, 677,
- -1, -1, -1, -1, -1, -1, -1, 685, 686, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 708, 709, 710, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 722, 723, -1, 725, -1, -1,
- -1, 729, 730, 731, 732, 733, 734, -1, -1, -1,
- 738, 739, -1, -1, -1, -1, -1, -1, 746, 747,
- -1, -1, -1, -1, -1, -1, -1, 755, 756, 757,
- 758, 166, -1, -1, -1, 763, -1, 172, 173, -1,
- 768, -1, 177, 771, 772, 773, 774, -1, -1, -1,
- -1, 1, -1, 188, -1, 5, -1, -1, 786, -1,
- -1, 11, -1, 791, 792, -1, -1, -1, -1, 19,
- -1, 799, 800, -1, 802, -1, -1, 805, 28, -1,
- -1, -1, -1, 811, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 828, 829, -1, -1, 832, -1, -1, -1, -1, 837,
- -1, -1, -1, -1, -1, -1, -1, 845, 846, 847,
- -1, -1, -1, 851, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 101, 102, 881, -1, 883, -1, -1, -1, 887,
- -1, -1, -1, -1, -1, 893, 301, -1, -1, -1,
- -1, -1, 900, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 132, 911, -1, -1, -1, 915, 916, 917,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 152, 931, -1, -1, 156, -1, 936, 937,
- 938, -1, 940, 941, 942, 943, 944, -1, -1, -1,
- -1, 356, 950, 951, 174, -1, -1, -1, 363, 364,
- 365, -1, -1, -1, -1, 963, -1, -1, -1, 967,
- 375, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 403, 219,
- -1, -1, -1, -1, -1, 225, -1, 227, -1, -1,
- 415, 231, -1, -1, -1, -1, 236, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 253, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 462, 463, 464,
- -1, -1, -1, -1, -1, -1, -1, 472, -1, 474,
- 290, -1, -1, -1, -1, -1, 481, -1, -1, -1,
- 485, 486, 487, -1, -1, -1, 306, -1, -1, 494,
- -1, 311, 497, -1, -1, -1, -1, 317, 318, -1,
- -1, -1, -1, -1, -1, 510, -1, -1, -1, 514,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 368, -1,
- -1, -1, -1, -1, -1, -1, -1, 377, -1, -1,
- 380, -1, -1, -1, -1, 385, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 580, -1, -1, -1, -1,
- -1, -1, 587, -1, -1, -1, -1, -1, -1, -1,
- -1, 411, -1, -1, -1, -1, -1, -1, -1, 419,
- -1, 421, -1, 608, 424, -1, -1, 427, -1, -1,
- 18, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 443, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 660, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 509,
- 98, -1, -1, -1, -1, -1, 516, -1, 518, -1,
- -1, 521, -1, -1, -1, -1, -1, -1, -1, -1,
- 715, -1, -1, -1, -1, -1, -1, 537, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 166, -1,
- -1, -1, -1, -1, 172, 173, -1, -1, -1, -1,
- -1, -1, 592, -1, -1, -1, -1, -1, -1, -1,
- 188, -1, -1, -1, 789, -1, -1, -1, 793, -1,
- -1, -1, -1, -1, -1, 615, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 815, 816, -1, 818, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 656, -1, -1, -1,
- -1, -1, 662, -1, -1, -1, -1, 667, -1, -1,
- 670, 671, -1, -1, -1, -1, -1, -1, 863, -1,
- -1, -1, 867, -1, -1, -1, -1, -1, -1, 689,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 885, -1, -1, -1, -1, -1, -1, 707, -1, -1,
- -1, -1, 712, -1, -1, -1, -1, -1, -1, 719,
- -1, -1, -1, -1, -1, -1, 726, 912, -1, -1,
- -1, -1, -1, -1, -1, 920, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 745, -1, -1, -1, -1,
- -1, 9, -1, -1, -1, -1, -1, -1, -1, 17,
- 760, -1, -1, 948, -1, -1, 766, -1, 953, 954,
- 955, -1, -1, 361, -1, 363, 364, 365, -1, -1,
- -1, -1, -1, -1, 784, 970, -1, 375, -1, -1,
- 48, 49, -1, -1, -1, -1, -1, -1, 798, -1,
- -1, -1, -1, 61, 62, 63, 64, -1, 808, 809,
- -1, 69, -1, -1, -1, 403, -1, 817, -1, -1,
- 820, 79, 80, 81, 82, 83, 84, 85, 86, 87,
- 88, -1, -1, -1, -1, 835, -1, 95, -1, -1,
- -1, -1, 100, -1, -1, -1, -1, -1, -1, -1,
- 108, -1, -1, 111, 112, 113, 114, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 129, 130, -1, 462, 463, 464, -1, -1, 137,
- 138, 139, 882, 141, 142, 143, 144, -1, 146, -1,
- -1, -1, -1, 481, -1, 895, -1, 485, 486, 487,
- -1, 901, -1, -1, -1, -1, 494, -1, -1, 497,
- -1, -1, -1, -1, -1, -1, -1, 175, -1, -1,
- -1, -1, 180, -1, -1, -1, 926, -1, 186, -1,
- -1, 189, 190, 191, 192, 193, 194, 195, 196, -1,
- -1, -1, -1, -1, 202, -1, 204, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 959,
- -1, -1, -1, -1, 964, -1, -1, -1, -1, -1,
- -1, -1, -1, 231, 232, 233, 234, -1, -1, 237,
- 238, -1, -1, -1, 242, -1, -1, -1, -1, -1,
- -1, -1, 580, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 264, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 289, -1, -1, -1, 293, -1, -1, -1, -1,
- -1, -1, -1, 301, -1, -1, -1, -1, -1, -1,
- 308, -1, -1, -1, -1, -1, 314, 315, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 660, -1, -1, 333, 334, 335, 336, 337,
- -1, -1, 340, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 360, -1, -1, -1, -1, -1, -1, -1,
- -1, 369, -1, 371, -1, -1, -1, -1, -1, -1,
- -1, 379, -1, 381, 382, 383, 384, 715, -1, -1,
- -1, 389, 390, 391, -1, 393, -1, 395, 396, 397,
- -1, -1, 400, 401, 402, 403, -1, -1, 406, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 425, 426, -1,
- -1, -1, -1, -1, -1, -1, 434, 435, 436, 437,
- 438, 439, 440, -1, -1, -1, 444, -1, -1, -1,
- -1, 449, -1, -1, -1, 453, -1, -1, 456, 457,
- -1, 789, 460, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 473, -1, -1, -1, 477,
- -1, -1, -1, 481, -1, -1, -1, 815, 816, -1,
- -1, -1, -1, -1, -1, -1, -1, 495, 496, 497,
- -1, -1, 500, -1, 502, 503, 504, 505, -1, -1,
- 838, -1, -1, -1, -1, 513, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 526, -1,
- -1, -1, 530, -1, -1, -1, -1, -1, -1, 867,
- 538, -1, -1, 541, -1, -1, -1, -1, -1, -1,
- 548, -1, -1, -1, -1, -1, -1, 885, -1, -1,
- -1, 559, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 902, -1, 574, 575, -1, -1,
- -1, -1, -1, -1, 912, 583, -1, 585, -1, -1,
- -1, -1, 920, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 603, -1, 935, -1, -1,
- -1, 609, -1, -1, 612, -1, -1, -1, -1, -1,
- 948, -1, 620, -1, -1, 623, 954, 955, -1, 627,
- 628, 629, -1, -1, -1, 633, -1, 635, 636, -1,
- -1, -1, 970, -1, -1, -1, -1, -1, -1, -1,
- -1, 649, -1, 651, 652, 653, -1, -1, -1, -1,
- 658, -1, 660, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 674, -1, 676, 677,
- -1, -1, -1, -1, -1, -1, -1, 685, 686, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 702, -1, -1, -1, -1, -1,
- 708, 709, 710, -1, -1, -1, 714, -1, 716, 717,
- -1, -1, -1, -1, -1, -1, 724, -1, -1, -1,
- -1, 729, 730, 731, 732, -1, 734, -1, -1, -1,
- 738, 739, -1, -1, -1, -1, -1, -1, 746, 747,
- -1, -1, 750, -1, -1, -1, -1, 755, 756, 757,
- -1, -1, -1, -1, -1, 763, -1, -1, -1, -1,
- 768, -1, -1, -1, -1, -1, -1, 775, -1, -1,
- -1, -1, -1, 781, -1, -1, -1, -1, 786, -1,
- -1, 789, -1, -1, -1, 793, -1, -1, -1, -1,
- -1, 799, 800, -1, -1, -1, -1, 805, -1, -1,
- -1, -1, -1, 811, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 827,
- 828, 829, -1, -1, -1, -1, -1, -1, -1, 837,
- -1, -1, -1, -1, -1, -1, -1, 845, -1, -1,
- -1, -1, -1, 851, 852, -1, -1, -1, -1, 857,
- -1, -1, -1, -1, -1, 863, -1, -1, -1, 867,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 880, 881, -1, -1, -1, -1, -1, 887,
- -1, -1, -1, -1, 892, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 9, -1, -1, -1, -1, -1,
- -1, -1, 17, -1, -1, 913, -1, -1, -1, -1,
- -1, -1, -1, 921, 922, -1, -1, -1, -1, -1,
- -1, -1, 930, 931, -1, -1, -1, -1, -1, -1,
- 938, -1, 940, 48, 49, 943, -1, -1, -1, -1,
- -1, -1, 950, -1, -1, -1, 61, 62, 63, 64,
- -1, -1, -1, -1, 69, 963, -1, -1, -1, 967,
- -1, -1, 970, -1, 79, 80, 81, 82, 83, 84,
- 85, 86, 87, 88, -1, -1, -1, -1, -1, -1,
- 95, -1, -1, -1, -1, 100, -1, -1, -1, -1,
- -1, -1, -1, 108, -1, -1, 111, 112, 113, 114,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 129, 130, -1, -1, -1, -1,
- -1, -1, 137, 138, 139, -1, 141, 142, 143, 144,
- -1, 146, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 175, -1, -1, -1, -1, 180, -1, -1, -1, -1,
- -1, 186, -1, -1, 189, 190, 191, 192, 193, 194,
- 195, 196, -1, -1, -1, -1, -1, 202, -1, 204,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 231, 232, 233, 234,
- -1, -1, 237, 238, -1, -1, -1, 242, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 264,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 289, -1, -1, -1, 293, -1,
- -1, -1, -1, -1, -1, -1, 301, -1, -1, -1,
- -1, -1, -1, 308, -1, -1, -1, -1, -1, 314,
- 315, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 333, 334,
- 335, 336, 337, -1, -1, 340, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 360, -1, -1, -1, -1,
- -1, -1, -1, -1, 369, -1, 371, -1, -1, -1,
- -1, -1, -1, -1, 379, -1, 381, 382, 383, 384,
- -1, -1, -1, -1, 389, 390, 391, -1, 393, -1,
- 395, 396, 397, -1, -1, 400, 401, 402, 403, -1,
- -1, 406, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 425, 426, -1, -1, -1, -1, -1, -1, -1, 434,
- 435, 436, 437, 438, 439, 440, -1, -1, -1, 444,
- -1, -1, -1, -1, 449, -1, -1, -1, 453, -1,
- -1, 456, 457, -1, -1, 460, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 473, -1,
- -1, -1, 477, -1, -1, -1, 481, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 495, 496, 497, -1, -1, 500, -1, 502, 503, 504,
- 505, -1, -1, -1, -1, -1, -1, -1, 513, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 526, -1, -1, -1, 530, -1, -1, -1, -1,
- -1, -1, -1, 538, -1, -1, 541, -1, -1, -1,
- -1, -1, -1, 548, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 559, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 574,
- 575, -1, -1, -1, -1, -1, -1, -1, 583, -1,
- 585, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 603, -1,
- -1, -1, -1, -1, 609, -1, -1, 612, -1, -1,
- -1, -1, -1, -1, -1, 620, -1, -1, 623, -1,
- -1, -1, 627, 628, 629, -1, -1, -1, 633, -1,
- 635, 636, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 649, -1, 651, 652, 653, -1,
- -1, -1, -1, 658, -1, 660, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 674,
- -1, 676, 677, -1, -1, -1, -1, -1, -1, -1,
- 685, 686, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 702, -1, -1,
- -1, -1, -1, 708, 709, 710, -1, -1, -1, 714,
- -1, 716, 717, -1, -1, -1, 5, -1, -1, 724,
- -1, -1, 11, -1, 729, 730, 731, 732, -1, 734,
- 19, -1, -1, 738, 739, -1, -1, -1, -1, 28,
- -1, 746, 747, -1, -1, 750, -1, -1, -1, -1,
- 755, 756, 757, -1, -1, -1, -1, -1, 763, -1,
- -1, -1, -1, 768, -1, -1, -1, -1, -1, -1,
- 775, -1, -1, -1, -1, -1, 781, -1, -1, -1,
- -1, 786, -1, -1, 789, -1, -1, -1, 793, -1,
- -1, -1, -1, -1, 799, 800, -1, -1, -1, -1,
- 805, -1, -1, -1, -1, -1, 811, -1, -1, -1,
- -1, -1, 101, 102, -1, -1, -1, -1, -1, -1,
- -1, -1, 827, 828, 829, -1, -1, -1, -1, -1,
- -1, -1, 837, -1, -1, -1, -1, -1, -1, -1,
- 845, -1, -1, 132, -1, -1, 851, 852, -1, -1,
- -1, -1, 857, -1, -1, -1, -1, -1, 863, -1,
- -1, -1, 867, 152, -1, -1, -1, 156, -1, -1,
- -1, -1, -1, -1, -1, 880, 881, -1, -1, -1,
- -1, -1, 887, -1, -1, 174, -1, 892, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 913, -1,
- -1, -1, -1, -1, -1, -1, 921, 922, -1, -1,
- -1, -1, -1, -1, -1, 930, 931, -1, -1, -1,
- 219, -1, -1, 938, -1, 940, -1, -1, 943, -1,
- -1, -1, 231, -1, -1, 950, -1, 236, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 963, -1,
- -1, -1, 967, -1, -1, 970, 255, -1, -1, -1,
- -1, 260, 261, 262, 263, -1, 265, 266, 267, 268,
- -1, 270, -1, 272, 273, 274, -1, 276, 277, 278,
- 279, 280, -1, 282, 283, 284, 285, 286, 287, -1,
- -1, 290, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 306, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 317, 318,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 368,
- -1, -1, -1, -1, -1, -1, -1, -1, 377, -1,
- -1, 380, -1, -1, -1, -1, 385, -1, -1, -1,
- -1, -1, -1, -1, 70, 71, 72, 73, 74, -1,
- 76, 77, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 411, -1, -1, -1, -1, -1, -1, -1,
- 419, -1, 421, -1, -1, 424, -1, -1, 427, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 155,
- -1, 157, 158, 159, 160, 161, 162, 163, 164, 165,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 509, -1, -1, -1, -1, -1, -1, 516, -1, 518,
- -1, -1, 521, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 537, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 9, -1, -1, -1, -1, 231, 232, -1, 17, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 49, -1, -1, 592, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 615, -1, -1, -1,
- 79, 80, 81, 82, 83, 84, 85, 86, -1, -1,
- -1, -1, -1, -1, -1, -1, 95, -1, -1, -1,
- -1, 100, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 111, 112, 113, 114, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 667, -1,
- 129, 347, 348, 349, 350, 351, -1, 353, 354, 355,
- 139, 1, -1, 142, 143, 144, -1, 146, -1, -1,
- 689, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 376, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 712, -1, -1, 392, -1, -1, -1,
- 719, 180, -1, -1, -1, -1, -1, 726, -1, -1,
- 189, 190, 191, 192, 193, 194, 195, 196, -1, -1,
- 416, -1, -1, 202, -1, 204, 745, -1, -1, -1,
- 70, 71, 72, 73, 74, -1, 76, 77, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 766, -1, -1,
- -1, -1, -1, -1, 233, 234, -1, -1, 237, 238,
- -1, -1, -1, 242, -1, 784, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 798,
- -1, -1, -1, -1, -1, 264, -1, -1, -1, 808,
- 809, -1, -1, -1, -1, -1, -1, -1, 817, -1,
- -1, 820, -1, -1, -1, -1, -1, -1, -1, -1,
- 289, -1, -1, -1, 293, 155, 835, 157, 158, 159,
- 160, 161, 162, 163, 164, 165, -1, -1, -1, 308,
- 526, -1, -1, -1, -1, 314, 315, -1, 857, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 333, 334, 335, 336, 337, -1,
- -1, 340, -1, 882, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 895, -1, -1, -1,
- -1, -1, 901, -1, -1, -1, -1, -1, -1, -1,
- -1, 231, 232, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 381, 382, 383, 384, -1, -1, 604, -1,
- -1, 390, 391, -1, 393, -1, 395, 396, 397, -1,
- -1, 400, -1, 402, -1, -1, -1, 406, -1, 625,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 959, -1, -1, -1, -1, 964, 425, 426, -1, -1,
- -1, -1, 648, -1, -1, -1, 435, 436, 437, 438,
- 439, 440, -1, -1, -1, -1, -1, -1, -1, -1,
- 449, -1, -1, -1, 453, -1, -1, -1, 457, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 347, 348, 349,
- 350, 351, -1, 353, 354, 355, -1, 496, -1, -1,
- -1, 500, -1, 502, 503, 504, 505, -1, -1, -1,
- -1, -1, -1, -1, 513, -1, 376, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 530, 392, -1, -1, -1, -1, -1, -1, 538,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 416, -1, -1, -1,
- 559, 777, 778, 779, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 574, 575, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 609, -1, -1, 612, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 623, -1, -1, -1, -1, -1,
- 629, -1, -1, -1, 633, -1, 635, 636, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 649, -1, -1, 652, 653, -1, -1, -1, -1, 658,
- -1, -1, -1, -1, -1, -1, 526, -1, -1, -1,
- -1, -1, -1, -1, -1, 674, -1, 676, 677, -1,
- -1, 897, 898, 899, -1, -1, 685, 686, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 922, -1, -1, 708,
- 709, 710, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 581, -1, -1, -1, -1, -1, -1, -1, -1,
- 729, 730, 731, 732, -1, 734, -1, -1, -1, 738,
- 739, -1, -1, -1, 604, -1, -1, 746, 747, -1,
- -1, -1, -1, -1, -1, -1, 755, 756, 757, -1,
- -1, -1, -1, -1, 763, 625, -1, -1, -1, 768,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 786, 648, -1,
- -1, -1, -1, -1, 9, -1, -1, -1, -1, -1,
- 799, 800, 17, -1, -1, -1, 805, -1, -1, -1,
- -1, -1, 811, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 828,
- 829, -1, -1, -1, 49, -1, -1, -1, 837, -1,
- -1, -1, -1, -1, -1, -1, 845, -1, -1, -1,
- -1, -1, 851, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 79, 80, 81, 82, 83, 84,
- 85, 86, -1, -1, -1, -1, -1, -1, -1, -1,
- 95, -1, 881, -1, -1, 100, -1, -1, 887, -1,
- -1, -1, -1, -1, -1, -1, 111, 112, 113, 114,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 129, -1, -1, 777, 778, 779,
- -1, -1, -1, -1, 139, -1, -1, 142, 143, 144,
- -1, 146, 931, -1, -1, -1, -1, -1, -1, 938,
- -1, 940, -1, -1, 943, -1, -1, -1, -1, -1,
- -1, 950, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 963, 180, -1, -1, 967, -1,
- -1, -1, -1, -1, 189, 190, 191, 192, 193, 194,
- 195, 196, -1, -1, -1, -1, -1, 202, -1, 204,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 233, 234,
- -1, -1, 237, 238, -1, -1, -1, 242, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 897, 898, 899,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 264,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 922, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 289, -1, -1, -1, 293, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 308, -1, 955, -1, -1, -1, 314,
- 315, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 333, 334,
- 335, 336, 337, -1, -1, 340, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 381, 382, 383, 384,
- -1, -1, -1, -1, -1, 390, 391, -1, 393, -1,
- 395, 396, 397, -1, -1, 400, -1, 402, -1, -1,
- -1, 406, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 425, 426, -1, -1, -1, -1, -1, -1, -1, -1,
- 435, 436, 437, 438, 439, 440, -1, -1, -1, -1,
- -1, -1, 18, -1, 449, -1, -1, -1, 453, 454,
- -1, -1, 457, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 496, -1, -1, -1, 500, -1, 502, 503, 504,
- 505, -1, -1, 12, -1, -1, -1, -1, 513, 18,
- -1, -1, -1, 22, 23, 24, -1, -1, -1, -1,
- -1, 30, 98, -1, -1, 530, -1, -1, -1, -1,
- -1, -1, -1, 538, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 53, 54, 55, 56, 57, 58,
- 59, 60, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 574,
- 575, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 166, -1, -1, -1, -1, -1, 172, 173, -1, -1,
- -1, -1, -1, -1, 609, -1, -1, 612, -1, -1,
- -1, -1, 188, -1, -1, -1, -1, -1, 623, 128,
- -1, -1, -1, -1, 629, -1, -1, -1, 633, -1,
- 635, 636, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 649, -1, -1, 652, 653, -1,
- -1, -1, -1, 658, -1, -1, -1, 166, -1, -1,
- -1, -1, -1, 172, 173, -1, -1, -1, -1, 674,
- -1, 676, 677, -1, -1, -1, -1, -1, -1, 188,
- 685, 686, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 708, 709, 710, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 729, 730, 731, 732, -1, 734,
- -1, -1, -1, 738, 739, -1, -1, -1, -1, -1,
- -1, 746, 747, -1, -1, -1, -1, -1, -1, -1,
- 755, 756, 757, -1, -1, -1, -1, -1, 763, -1,
- -1, -1, -1, 768, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 786, -1, -1, -1, 361, -1, 363, 364, 365,
- -1, 300, -1, -1, 799, 800, -1, -1, -1, 375,
- 805, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 319, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 828, 829, -1, -1, 403, -1, -1,
- -1, -1, 837, -1, -1, -1, -1, -1, -1, -1,
- 845, -1, -1, -1, -1, -1, 851, -1, -1, -1,
- -1, -1, -1, -1, 363, 364, 365, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 375, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 881, -1, 387, 388,
- -1, -1, 887, -1, -1, -1, 462, 463, 464, -1,
- -1, -1, -1, -1, 403, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 481, -1, -1, -1, 485,
- 486, 487, -1, -1, -1, -1, -1, -1, 494, -1,
- -1, 497, -1, -1, -1, 434, 931, -1, -1, -1,
- -1, -1, -1, 938, -1, 940, -1, -1, 943, -1,
- -1, -1, -1, -1, -1, 950, -1, -1, -1, -1,
- -1, -1, -1, 462, 463, 464, 465, 466, 963, -1,
- -1, -1, 967, 472, -1, 474, -1, -1, -1, -1,
- -1, -1, 481, -1, -1, -1, 485, 486, 487, -1,
- 12, -1, -1, -1, -1, 494, 18, -1, 497, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 580, 514, -1, -1, -1, -1,
- -1, 43, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 534, -1, -1, -1, 61,
- 62, 63, 64, -1, -1, -1, -1, 69, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 12, -1, -1,
- 559, -1, -1, 18, -1, 87, 88, 22, 23, 24,
- 569, -1, -1, -1, -1, 30, -1, -1, -1, 578,
- -1, 580, -1, -1, -1, -1, -1, -1, 587, -1,
- -1, -1, -1, -1, 660, -1, 595, -1, 53, 54,
- 55, 56, 57, 58, 59, 60, -1, -1, -1, 608,
- -1, -1, -1, -1, -1, 137, 138, -1, -1, 141,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 630, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 166, -1, -1, -1, -1, 715,
- 172, 173, -1, 175, -1, 177, -1, -1, -1, -1,
- -1, 660, -1, -1, -1, -1, 188, -1, -1, -1,
- -1, -1, -1, 128, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 166, -1, -1, -1, -1, 715, 172, 173, -1,
- -1, -1, -1, 789, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 188, -1, -1, -1, -1, -1, 12,
- -1, -1, -1, -1, -1, 18, -1, -1, -1, 815,
- 816, -1, -1, -1, -1, -1, -1, 30, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 838, -1, -1, -1, -1, -1, -1, 301,
- 53, 54, 55, 56, 57, 58, 59, 60, -1, -1,
- 789, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 867, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 815, 816, -1, 885,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 902, -1, 360, -1,
- -1, 363, 364, 365, -1, 300, 912, -1, -1, -1,
- -1, -1, -1, 375, 920, 854, -1, 856, -1, 858,
- -1, -1, -1, 862, 319, 864, 865, 866, 867, 935,
- 869, 870, -1, -1, -1, -1, -1, -1, -1, 401,
- -1, 403, 948, -1, -1, -1, 885, -1, 954, 955,
- -1, -1, -1, 166, -1, -1, -1, -1, -1, 172,
- 173, -1, -1, -1, 970, -1, -1, -1, 363, 364,
- 365, -1, -1, 912, -1, 188, -1, -1, -1, -1,
- 375, 920, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 387, 388, -1, -1, -1, -1, -1, -1,
- 462, 463, 464, -1, -1, -1, -1, -1, 403, 948,
- 472, 473, 474, -1, -1, -1, 955, -1, -1, 481,
- -1, -1, -1, 485, 486, 487, -1, -1, -1, -1,
- -1, 970, 494, 495, -1, 497, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 12,
- -1, -1, 514, 515, -1, 18, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 462, 463, 464,
- 465, 466, -1, -1, -1, -1, -1, 472, -1, 474,
- 542, -1, -1, -1, -1, -1, 481, -1, -1, -1,
- 485, 486, 487, -1, -1, -1, -1, -1, -1, 494,
- -1, -1, 497, -1, -1, -1, 319, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 580, 514,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 534,
- -1, 603, -1, -1, -1, -1, 608, -1, -1, -1,
- 363, 364, 365, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 375, -1, 559, 627, 628, -1, -1, -1,
- -1, -1, -1, -1, 569, -1, -1, -1, -1, -1,
- -1, -1, -1, 578, -1, 580, -1, -1, -1, -1,
- 403, -1, 587, -1, -1, -1, -1, -1, 660, -1,
- 595, -1, -1, 166, -1, -1, -1, -1, -1, 172,
- 173, -1, -1, 608, -1, -1, 12, -1, -1, 182,
- -1, 434, 18, -1, -1, 188, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 630, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 462,
- 463, 464, 714, 715, 716, 717, -1, -1, -1, 472,
- -1, 474, -1, -1, -1, 660, -1, -1, 481, -1,
- -1, -1, 485, 486, 487, 737, -1, -1, -1, -1,
- 742, 494, -1, -1, 497, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 514, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 781,
- 715, -1, -1, -1, -1, -1, -1, 789, -1, -1,
- -1, 793, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 559, -1, -1, -1,
- -1, -1, -1, 815, 816, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 580, -1, -1,
- 166, -1, -1, -1, -1, -1, 172, 173, -1, -1,
- -1, -1, 595, -1, -1, 12, -1, -1, -1, -1,
- -1, 18, 188, -1, 789, 608, -1, -1, -1, -1,
- 363, 364, 365, -1, -1, 867, -1, -1, -1, -1,
- -1, -1, 375, -1, -1, -1, -1, -1, -1, -1,
- 815, 816, -1, 885, -1, -1, -1, -1, -1, -1,
- 892, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 403, -1, -1, -1, 906, -1, -1, 660, -1, -1,
- 912, -1, -1, -1, -1, -1, -1, -1, 920, 854,
- -1, 856, -1, 858, -1, -1, -1, 862, -1, 864,
- 865, 866, 867, -1, 869, 870, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 948, -1, -1, -1,
- 885, -1, 954, 955, -1, -1, -1, -1, -1, 462,
- 463, 464, 715, -1, -1, -1, -1, -1, 970, 472,
- -1, 474, -1, -1, -1, -1, -1, 912, 481, -1,
- -1, -1, 485, 486, 487, 920, -1, 12, -1, -1,
- -1, 494, -1, 18, 497, -1, -1, -1, -1, 166,
- -1, -1, -1, -1, -1, 172, 173, -1, -1, -1,
- -1, 514, -1, 948, -1, -1, -1, -1, -1, -1,
- 955, 188, -1, -1, -1, -1, -1, 363, 364, 365,
- -1, -1, -1, -1, -1, 970, 789, -1, -1, 375,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 12, -1, -1, -1, -1,
- -1, 18, 815, 816, -1, -1, -1, 403, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 580, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 854, -1, 856, -1, 608, -1, -1, -1, -1,
- -1, -1, 865, 866, 867, -1, 869, 870, -1, -1,
- -1, -1, -1, -1, -1, -1, 462, 463, 464, -1,
- -1, -1, 885, -1, -1, -1, 472, -1, 474, -1,
- -1, 166, -1, -1, -1, 481, -1, 172, 173, 485,
- 486, 487, -1, -1, -1, -1, -1, 660, 494, 912,
- -1, 497, -1, 188, -1, -1, -1, 920, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 514, -1,
- -1, 12, -1, -1, -1, -1, -1, 18, -1, -1,
- -1, -1, -1, -1, -1, 948, 363, 364, 365, -1,
- -1, -1, 955, -1, -1, -1, -1, -1, 375, 166,
- -1, -1, 715, -1, -1, 172, 173, 970, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 188, -1, -1, -1, -1, 403, -1, -1, -1,
- -1, -1, -1, -1, 580, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 608, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 789, -1, -1, -1,
- -1, -1, -1, -1, -1, 462, 463, 464, -1, -1,
- -1, -1, -1, -1, -1, 472, -1, 474, -1, -1,
- -1, -1, 815, 816, 481, -1, -1, -1, 485, 486,
- 487, -1, -1, 12, 660, -1, -1, 494, -1, 18,
- 497, -1, -1, -1, -1, 166, -1, -1, 363, 364,
- 365, 172, 173, -1, 369, -1, -1, 514, -1, -1,
- 375, -1, -1, -1, -1, -1, -1, 188, -1, -1,
- -1, -1, -1, -1, 867, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 403, 715,
- -1, -1, 885, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 363, 364, 365, 912,
- -1, -1, -1, 580, -1, -1, -1, 920, 375, -1,
- 587, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 462, 463, 464,
- -1, 608, -1, -1, -1, 948, 403, 472, -1, 474,
- -1, -1, 955, 789, -1, -1, 481, -1, -1, -1,
- 485, 486, 487, -1, 12, -1, -1, 970, -1, 494,
- 18, -1, 497, -1, -1, -1, -1, 166, -1, 815,
- 816, -1, -1, 172, 173, -1, -1, -1, -1, 514,
- -1, -1, -1, 660, -1, -1, -1, -1, -1, 188,
- -1, -1, -1, -1, -1, 462, 463, 464, -1, -1,
- -1, -1, -1, -1, -1, 472, 852, 474, -1, -1,
- -1, -1, -1, -1, 481, -1, -1, -1, 485, 486,
- 487, 867, 363, 364, 365, -1, -1, 494, -1, -1,
- 497, -1, -1, -1, 375, -1, -1, -1, 715, 885,
- -1, -1, -1, -1, -1, 580, -1, 514, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 403, -1, -1, -1, 912, -1, -1, -1,
- -1, -1, -1, 608, 920, -1, -1, -1, -1, -1,
- 12, -1, -1, -1, -1, -1, 18, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 948, -1, -1, -1, -1, -1, 166, 955,
- -1, -1, 789, 580, 172, 173, -1, -1, -1, -1,
- -1, 462, 463, 464, 970, 660, -1, -1, -1, -1,
- 188, 472, -1, 474, -1, -1, -1, -1, 815, 816,
- 481, 608, -1, -1, 485, 486, 487, -1, -1, -1,
- -1, -1, -1, 494, -1, -1, 497, -1, -1, -1,
- -1, -1, -1, -1, 363, 364, 365, -1, -1, -1,
- -1, -1, -1, 514, -1, -1, 375, -1, -1, -1,
- 715, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 867, -1, -1, 660, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 403, -1, -1, -1, 885, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 12, -1, -1, -1, -1, -1, 18, -1,
- -1, -1, -1, -1, 166, 912, -1, -1, -1, 580,
- 172, 173, -1, 920, -1, -1, -1, -1, 715, -1,
- -1, -1, -1, -1, 789, -1, 188, -1, -1, -1,
- -1, -1, -1, 462, 463, 464, -1, 608, -1, -1,
- -1, 948, -1, 472, -1, 474, -1, -1, 955, -1,
- 815, 816, 481, -1, -1, -1, 485, 486, 487, -1,
- -1, -1, -1, 970, -1, 494, -1, -1, 497, -1,
- -1, -1, -1, -1, -1, 363, 364, 365, -1, -1,
- -1, -1, -1, -1, -1, 514, -1, 375, -1, 660,
- -1, -1, 789, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 867, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 403, -1, -1, 815, 816,
- 885, -1, -1, -1, -1, -1, -1, 556, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 715, -1, 166, 912, -1, -1,
- -1, 580, 172, 173, -1, 920, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 188, -1,
- 867, -1, 869, -1, 462, 463, 464, -1, -1, 608,
- -1, -1, -1, 948, 472, -1, 474, -1, 885, -1,
- 955, -1, -1, 481, -1, -1, -1, 485, 486, 487,
- -1, 363, 364, 365, -1, 970, 494, -1, -1, 497,
- 781, -1, -1, 375, -1, 912, -1, -1, 789, -1,
- -1, -1, -1, 920, -1, -1, 514, -1, -1, -1,
- -1, 660, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 403, -1, -1, 815, 816, -1, -1, -1, -1,
- -1, 948, -1, -1, -1, -1, -1, -1, 955, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 970, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 715, -1, -1, -1,
- -1, -1, 580, -1, -1, -1, 867, -1, -1, -1,
- 462, 463, 464, -1, -1, -1, -1, -1, -1, -1,
- 472, -1, 474, -1, 885, -1, -1, -1, -1, 481,
- 608, -1, -1, 485, 486, 487, -1, -1, -1, -1,
- -1, -1, 494, -1, -1, 497, -1, -1, -1, -1,
- -1, 912, -1, 363, 364, 365, -1, -1, -1, 920,
- -1, -1, 514, -1, -1, 375, -1, -1, -1, -1,
- 789, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 3, -1, 660, -1, -1, -1, -1, 948, -1, -1,
- 13, -1, -1, 403, 955, -1, 815, 816, -1, -1,
- -1, -1, -1, -1, -1, -1, 29, -1, -1, 970,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 50, 580, -1,
- -1, -1, -1, -1, -1, -1, -1, 715, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 867, -1,
- -1, -1, 462, 463, 464, 78, 608, -1, -1, -1,
- -1, -1, 472, -1, 474, -1, 885, -1, 91, 92,
- 93, 481, -1, 96, -1, 485, 486, 487, -1, -1,
- 103, -1, -1, -1, 494, -1, -1, 497, -1, -1,
- -1, -1, 115, 912, 117, 118, -1, -1, -1, -1,
- -1, 920, -1, -1, 514, -1, -1, -1, 660, -1,
- -1, 789, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 145, -1, -1, -1, -1, -1, -1, 948,
- -1, -1, -1, -1, -1, -1, 955, 815, 816, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 970, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 715, -1, -1, -1, -1, -1, -1,
- 580, -1, -1, -1, -1, -1, 854, 200, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 867,
- -1, -1, -1, -1, 217, -1, -1, -1, 608, -1,
- -1, -1, 31, -1, -1, -1, -1, 885, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 240, 241, -1,
- 243, 244, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 912, -1, -1, 789, 67, -1,
- -1, -1, 920, -1, -1, -1, -1, -1, -1, -1,
- 660, -1, -1, -1, -1, -1, -1, -1, 87, -1,
- -1, -1, -1, 815, 816, 288, -1, -1, -1, -1,
- 948, -1, -1, -1, -1, -1, -1, 955, -1, -1,
- -1, 304, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 970, -1, -1, -1, -1, 126, -1, -1,
- -1, -1, -1, -1, -1, 715, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 867, -1, -1, -1, -1,
- -1, 344, 345, 346, -1, 154, -1, -1, -1, -1,
- -1, -1, -1, 885, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 367, -1, -1, -1, -1, 372,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 912, -1, -1, 31, -1, -1, -1, -1, 920, -1,
- -1, -1, -1, -1, -1, 398, 399, -1, -1, 789,
- -1, 404, 405, -1, -1, -1, -1, 216, -1, -1,
- -1, -1, -1, -1, -1, 224, 948, -1, -1, 67,
- -1, -1, -1, 955, -1, 815, 816, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 970, 87,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 459, -1, 461, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 478, -1, 867, 126, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 491, 492,
- 493, -1, -1, -1, -1, 885, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 154, -1, -1, -1,
- -1, -1, -1, 322, 323, -1, 519, -1, -1, -1,
- -1, -1, 912, -1, -1, -1, -1, -1, -1, -1,
- 920, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 543, 544, 545, -1, 547, -1, 549, 550, -1, 552,
- 553, 554, -1, 362, -1, -1, -1, 560, 948, 562,
- 563, 564, 565, -1, -1, 955, -1, -1, 216, -1,
- 379, -1, -1, -1, -1, 578, 224, 54, -1, -1,
- 970, -1, -1, 586, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 601, 602,
- 409, -1, -1, -1, -1, -1, -1, 610, -1, -1,
- -1, -1, -1, 616, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 432, -1, 434, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 444, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 456, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 468,
- 663, -1, -1, -1, -1, -1, 669, -1, -1, -1,
- 479, -1, -1, -1, 322, 323, -1, -1, -1, 488,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 166,
- -1, -1, -1, -1, -1, 172, 173, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 188, -1, -1, 362, -1, -1, -1, -1, 722,
- 723, -1, 725, -1, -1, -1, -1, -1, -1, -1,
- 733, 379, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 54, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 758, -1, -1, -1, -1,
- -1, 409, -1, -1, -1, -1, -1, -1, 771, 772,
- 773, 774, -1, -1, 583, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 432, -1, 434, -1, 791, 792,
- -1, -1, -1, -1, -1, -1, 444, -1, -1, 802,
- -1, -1, -1, -1, -1, -1, -1, -1, 456, -1,
- -1, 620, -1, -1, -1, -1, -1, -1, -1, -1,
- 468, -1, 631, -1, -1, -1, -1, -1, -1, 832,
- -1, 479, 641, -1, -1, -1, -1, -1, -1, -1,
- 488, -1, -1, 846, 847, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 166, -1, -1,
- -1, -1, -1, 172, 173, -1, -1, -1, -1, -1,
- -1, -1, 681, -1, -1, -1, -1, -1, -1, 188,
- 883, -1, -1, -1, -1, -1, 363, 364, 365, 698,
- 893, -1, -1, 54, -1, -1, -1, 900, 375, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 911, -1,
- -1, -1, 915, 916, 917, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 403, -1, 737, -1,
- -1, 740, -1, 936, 937, 583, -1, -1, 941, 942,
- -1, 944, -1, -1, -1, 754, -1, -1, 951, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 775, -1, -1, -1,
- -1, -1, 620, -1, -1, -1, -1, -1, -1, -1,
- -1, 790, -1, 631, -1, 462, 463, 464, -1, -1,
- -1, -1, -1, 641, -1, 472, -1, 474, -1, -1,
- -1, -1, -1, -1, 481, 166, -1, -1, 485, 486,
- 487, 172, 173, -1, 823, -1, -1, 494, -1, -1,
- 497, -1, -1, -1, -1, -1, -1, 188, -1, -1,
- -1, -1, -1, 681, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 857, -1,
- 698, -1, -1, -1, 363, 364, 365, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 375, -1, -1, -1,
- -1, 880, -1, -1, -1, -1, -1, -1, 887, 888,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 737,
- -1, -1, 740, 54, 403, -1, -1, -1, -1, -1,
- -1, -1, -1, 580, 913, -1, 754, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 928,
- -1, 930, -1, 932, -1, -1, 935, 775, -1, -1,
- 939, 608, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 790, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 462, 463, 464, -1, -1, -1, -1,
- -1, -1, 971, 472, -1, 474, -1, -1, -1, -1,
- -1, -1, 481, -1, -1, 823, 485, 486, 487, -1,
- -1, -1, -1, 660, -1, 494, -1, -1, 497, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 363, 364, 365, 166, -1, -1, -1, 857,
- -1, 172, 173, -1, 375, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 188, -1, -1,
- -1, -1, 880, -1, -1, -1, -1, -1, 715, 887,
- 888, -1, 403, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 54, -1, -1, -1, -1, 913, -1, -1, -1, -1,
- -1, 580, -1, -1, -1, -1, -1, -1, -1, -1,
- 928, -1, 930, -1, 932, -1, -1, 935, -1, -1,
- -1, 939, -1, -1, -1, -1, -1, -1, -1, 608,
- -1, 462, 463, 464, -1, -1, -1, -1, -1, -1,
- -1, 472, 789, 474, -1, -1, -1, -1, -1, -1,
- 481, -1, -1, 971, 485, 486, 487, -1, -1, -1,
- -1, -1, -1, 494, -1, -1, 497, -1, 815, 816,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 660, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 166, -1, -1, -1, -1, 854, 172, 173,
- -1, -1, -1, -1, -1, -1, -1, -1, 865, -1,
- 867, -1, 869, 870, 188, -1, -1, -1, -1, -1,
- -1, -1, 363, 364, 365, -1, 715, -1, 885, -1,
- -1, -1, -1, -1, 375, -1, -1, -1, -1, 580,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 912, -1, -1, -1, -1,
- 43, -1, 403, 920, -1, 48, -1, 608, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 61, 62,
- 63, 64, -1, -1, -1, 68, 69, -1, -1, -1,
- -1, 948, -1, -1, -1, -1, -1, -1, 955, -1,
- 789, -1, -1, -1, -1, 88, -1, -1, -1, -1,
- -1, -1, -1, 970, -1, -1, -1, -1, -1, 660,
- -1, 462, 463, 464, -1, -1, 815, 816, -1, -1,
- -1, 472, -1, 474, -1, -1, -1, -1, -1, -1,
- 481, -1, -1, -1, 485, 486, 487, -1, -1, -1,
- -1, -1, -1, 494, 137, 138, 497, -1, 141, -1,
- -1, -1, -1, -1, -1, 854, -1, -1, -1, -1,
- -1, -1, -1, -1, 715, -1, 865, -1, 867, -1,
- 869, 870, -1, -1, -1, -1, -1, -1, -1, 363,
- 364, 365, 175, -1, 177, -1, 885, -1, -1, -1,
- -1, 375, -1, -1, -1, -1, 189, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 912, -1, -1, -1, -1, -1, 403,
- -1, 920, -1, 216, -1, -1, -1, -1, -1, 580,
- -1, -1, -1, -1, -1, -1, -1, -1, 789, -1,
- -1, -1, -1, -1, -1, -1, -1, 48, -1, 948,
- -1, -1, -1, -1, -1, -1, 955, 608, -1, -1,
- 61, 62, 63, 64, 815, 816, -1, -1, 69, -1,
- -1, 970, -1, -1, -1, 826, -1, -1, 462, 463,
- 464, -1, -1, -1, -1, -1, 87, 88, 472, -1,
- 474, -1, -1, -1, -1, -1, -1, 481, -1, -1,
- -1, 485, 486, 487, -1, -1, -1, 108, -1, 660,
- 494, -1, -1, 497, 865, -1, 867, -1, 869, 870,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 130,
- -1, -1, -1, -1, 885, -1, 137, 138, -1, -1,
- 141, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 912, -1, -1, 715, -1, -1, 360, -1, 920,
- -1, -1, -1, -1, 175, -1, -1, 370, 371, -1,
- -1, -1, -1, -1, -1, 186, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 580, 948, -1, -1,
- -1, -1, -1, -1, 955, -1, -1, -1, 401, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 970,
- -1, -1, -1, -1, 608, -1, -1, -1, -1, -1,
- 231, 232, -1, -1, -1, -1, -1, -1, 789, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 446, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 815, 816, -1, 460, -1, -1,
- -1, -1, -1, -1, -1, -1, 660, -1, -1, -1,
- 473, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 492,
- 301, -1, 495, 854, -1, -1, -1, -1, -1, -1,
- -1, -1, 48, -1, 865, -1, 867, -1, 869, 870,
- -1, -1, 515, -1, -1, 61, 62, 63, 64, -1,
- -1, 715, -1, 69, 885, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 541, -1,
- -1, -1, 88, -1, -1, 548, -1, -1, -1, 360,
- -1, 912, -1, -1, -1, -1, -1, -1, 369, 920,
- 371, -1, -1, -1, -1, -1, 166, -1, 379, -1,
- -1, -1, 172, 173, -1, -1, -1, -1, 389, -1,
- -1, -1, 585, -1, -1, -1, -1, 948, 188, -1,
- 401, -1, 138, -1, 955, 789, -1, 48, -1, -1,
- 603, -1, -1, -1, -1, -1, -1, -1, -1, 970,
- 61, 62, 63, 64, -1, -1, -1, -1, 69, -1,
- -1, 815, 816, 434, 627, 628, -1, -1, -1, 175,
- -1, 177, -1, 444, -1, -1, 87, 88, -1, -1,
- -1, -1, -1, 189, -1, 456, -1, -1, 651, 460,
- -1, 654, -1, -1, -1, -1, -1, 108, -1, -1,
- -1, -1, 473, -1, -1, -1, 477, -1, -1, -1,
- 216, 865, -1, 867, -1, 869, 870, -1, -1, 130,
- -1, -1, -1, -1, 495, -1, 137, 138, -1, -1,
- 141, 885, -1, -1, -1, -1, -1, -1, -1, 702,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 714, -1, 716, 717, 526, -1, -1, 912, -1,
- -1, 724, -1, -1, 175, -1, 920, -1, -1, -1,
- 541, -1, -1, -1, 737, 186, -1, 548, -1, 742,
- -1, -1, -1, -1, -1, -1, -1, 750, -1, -1,
- -1, -1, -1, -1, 948, -1, -1, -1, -1, -1,
- -1, 955, -1, 363, 364, 365, -1, -1, -1, -1,
- -1, -1, 583, -1, 585, 375, 970, -1, 781, -1,
- 231, 232, -1, -1, -1, -1, -1, -1, -1, -1,
- 793, -1, 603, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 403, -1, -1, -1, -1, -1, 620,
- -1, -1, -1, -1, 360, -1, 627, 628, -1, -1,
- -1, -1, -1, -1, 827, 371, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 651, -1, -1, -1, 847, 848, -1, -1, -1, -1,
- 301, -1, -1, -1, -1, 401, -1, -1, -1, -1,
- -1, -1, 462, 463, 464, -1, -1, -1, -1, -1,
- -1, -1, 472, -1, 474, -1, -1, -1, -1, -1,
- -1, 481, -1, -1, -1, 485, 486, 487, -1, 892,
- -1, 702, -1, -1, 494, -1, -1, 497, -1, -1,
- -1, 904, -1, 714, -1, 716, 717, -1, 911, 360,
- -1, -1, -1, 724, 460, -1, -1, -1, 369, -1,
- 371, -1, -1, -1, -1, -1, -1, -1, 379, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 389, 750,
- -1, -1, -1, -1, -1, -1, 492, -1, -1, 495,
- 401, 954, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 775, -1, -1, -1, -1, -1,
- 781, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 580, -1, 793, 434, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 444, -1, 541, -1, -1, -1, -1,
- -1, -1, 548, -1, -1, 456, -1, -1, 608, 460,
- -1, -1, -1, 166, -1, -1, 827, -1, -1, 172,
- 173, -1, 473, -1, -1, -1, 477, -1, -1, -1,
- -1, -1, -1, -1, -1, 188, -1, -1, -1, 585,
- -1, 852, -1, -1, 495, -1, 857, -1, -1, -1,
- -1, -1, 863, -1, -1, -1, -1, 603, -1, -1,
- 660, -1, -1, -1, -1, -1, -1, -1, -1, 880,
- -1, -1, -1, -1, -1, 526, -1, 166, -1, -1,
- -1, 892, -1, 172, 173, -1, -1, -1, -1, -1,
- 541, -1, -1, -1, -1, -1, -1, 548, -1, 188,
- -1, -1, 913, -1, -1, 651, 706, -1, 654, -1,
- 921, 922, -1, -1, -1, 715, -1, -1, -1, 930,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 583, -1, 585, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 603, -1, -1, -1, 702, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 714, 620,
- 716, 717, -1, -1, -1, -1, 627, 628, 724, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 789,
- -1, 737, -1, -1, -1, -1, 742, -1, -1, -1,
- 651, -1, -1, -1, 750, -1, -1, -1, -1, -1,
- 363, 364, 365, -1, -1, 815, 816, -1, -1, -1,
- -1, -1, 375, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 781, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 793, -1, -1,
- 403, 702, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 714, -1, 716, 717, 867, -1, -1,
- -1, -1, -1, 724, 363, 364, 365, -1, -1, -1,
- -1, 827, -1, -1, -1, 885, 375, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 750,
- -1, -1, 848, -1, -1, -1, 906, -1, -1, 462,
- 463, 464, 912, -1, 403, -1, -1, -1, -1, 472,
- 920, 474, -1, -1, 775, -1, -1, -1, 481, -1,
- 781, -1, 485, 486, 487, -1, -1, -1, -1, -1,
- -1, 494, 793, -1, 497, -1, 892, -1, 948, -1,
- -1, -1, -1, -1, -1, 955, -1, -1, 904, -1,
- -1, -1, -1, -1, -1, 911, -1, -1, -1, -1,
- 970, -1, -1, 462, 463, 464, 827, -1, -1, -1,
- -1, -1, -1, 472, -1, 474, -1, -1, -1, -1,
- -1, -1, 481, -1, -1, -1, 485, 486, 487, -1,
- -1, 852, -1, -1, -1, 494, 857, -1, 497, -1,
- -1, -1, 863, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 580, -1, 880,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 892, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 608, -1, -1, -1, -1,
- -1, -1, 913, -1, -1, -1, -1, -1, -1, -1,
- 921, 922, -1, -1, -1, -1, -1, -1, -1, 930,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 580, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 660, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 608,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 715, -1, -1, -1, -1, -1, -1, -1,
- -1, 660, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 715, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 789, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, 815, 816, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 789, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, 867, -1, 869, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 815, 816, -1, -1,
- -1, -1, 885, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 912,
- -1, -1, -1, -1, -1, -1, -1, 920, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 867, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 948, 885, -1, -1, -1,
- -1, -1, 955, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, 970, -1, -1,
- -1, -1, -1, 912, -1, -1, -1, -1, -1, -1,
- -1, 920, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 948,
- -1, -1, -1, -1, -1, -1, 955, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, 970
-};
-
- /* YYSTOS[STATE-NUM] -- The (internal number of the) accessing
- symbol of state STATE-NUM. */
-static const yytype_uint16 yystos[] =
-{
- 0, 975, 976, 0, 977, 978, 979, 982, 983, 175,
- 1000, 1001, 594, 1010, 1028, 239, 408, 410, 980, 981,
- 984, 985, 992, 995, 1013, 1014, 1016, 857, 294, 1037,
- 1038, 1039, 1040, 857, 2328, 981, 374, 646, 1017, 1018,
- 1019, 1020, 1015, 38, 1029, 1030, 1011, 168, 1041, 1042,
- 1043, 1044, 239, 1002, 857, 1010, 857, 1010, 239, 434,
- 2370, 216, 1032, 201, 1216, 1218, 1219, 1220, 423, 1128,
- 1129, 1130, 21, 126, 184, 187, 189, 214, 309, 484,
- 578, 582, 701, 741, 788, 790, 822, 834, 872, 955,
- 966, 1045, 1046, 1047, 1049, 1053, 1067, 1073, 1074, 1075,
- 1076, 1077, 1079, 1084, 1102, 1103, 1108, 1111, 1114, 1115,
- 1118, 1120, 1121, 1122, 1123, 1124, 1125, 1126, 749, 2328,
- 216, 1003, 481, 647, 1021, 275, 986, 987, 988, 1021,
- 269, 990, 2328, 529, 793, 796, 797, 1031, 727, 291,
- 1033, 1012, 861, 1221, 1222, 239, 749, 329, 1131, 1,
- 955, 2229, 2229, 803, 775, 2398, 2370, 2370, 2370, 2229,
- 775, 2328, 2328, 2370, 2328, 2328, 124, 169, 2352, 1127,
- 2229, 1047, 1, 857, 1076, 1078, 414, 1101, 2328, 1004,
- 39, 1023, 989, 988, 1023, 991, 515, 2382, 2370, 429,
- 1035, 641, 1558, 1559, 1563, 749, 1223, 2328, 2328, 2328,
- 1132, 1085, 359, 1100, 2361, 2370, 2370, 955, 2222, 2281,
- 149, 2222, 2370, 2370, 1054, 1068, 2222, 1050, 955, 1109,
- 1110, 1287, 1100, 2370, 1116, 481, 585, 588, 1080, 1082,
- 1083, 1989, 2287, 2370, 41, 248, 529, 794, 795, 955,
- 1160, 749, 481, 1024, 2370, 481, 647, 1022, 857, 2370,
- 1022, 2370, 133, 806, 859, 1034, 728, 2328, 1560, 1593,
- 1594, 2328, 326, 744, 1217, 1224, 1225, 1227, 442, 754,
- 1133, 1193, 1194, 1086, 1089, 1090, 2361, 2370, 25, 526,
- 2222, 481, 414, 584, 2426, 481, 880, 123, 506, 645,
- 753, 955, 1055, 1056, 1057, 1058, 1059, 1062, 1063, 1065,
- 2351, 2393, 373, 645, 1069, 1070, 1071, 1051, 1065, 1110,
- 2370, 955, 1104, 1105, 1106, 2231, 2229, 18, 403, 481,
- 497, 660, 789, 867, 955, 970, 1117, 2292, 2293, 2294,
- 2295, 1989, 434, 803, 2389, 2370, 184, 2229, 857, 857,
- 153, 322, 655, 680, 863, 1025, 1026, 1027, 2328, 655,
- 2328, 52, 531, 532, 533, 650, 873, 874, 886, 2321,
- 2370, 239, 0, 1, 5, 11, 19, 28, 101, 102,
- 132, 152, 156, 174, 219, 225, 227, 231, 236, 253,
- 290, 306, 311, 317, 318, 368, 377, 380, 385, 411,
- 419, 421, 424, 427, 443, 509, 516, 518, 521, 537,
- 592, 615, 656, 662, 667, 670, 671, 689, 707, 712,
- 719, 726, 745, 760, 766, 784, 798, 808, 809, 817,
- 820, 835, 857, 882, 895, 901, 926, 959, 964, 972,
- 1595, 1597, 1628, 1633, 1638, 1643, 1669, 1674, 1682, 1686,
- 1687, 1691, 1694, 1699, 1704, 1757, 1761, 1763, 1764, 1768,
- 1785, 1794, 1798, 1801, 1804, 1808, 1810, 1818, 1828, 1831,
- 1834, 1840, 1861, 1862, 1871, 1875, 1877, 1881, 1884, 1888,
- 1902, 1916, 1918, 1922, 1937, 1938, 1948, 1951, 1952, 1956,
- 1962, 1963, 1964, 1976, 1986, 2003, 2013, 2021, 2022, 2028,
- 2039, 2043, 2046, 2049, 2052, 2055, 2066, 2086, 2094, 2095,
- 2123, 2339, 1595, 957, 1276, 1277, 1279, 1280, 1, 955,
- 2210, 2328, 1134, 32, 520, 704, 737, 1195, 1196, 1197,
- 1198, 1200, 1201, 1202, 1207, 1087, 1088, 25, 526, 481,
- 1112, 1113, 2291, 2292, 954, 1119, 2413, 2281, 762, 781,
- 2401, 2370, 857, 1057, 857, 955, 1056, 127, 136, 1060,
- 2353, 18, 375, 955, 1072, 955, 1, 857, 1071, 1052,
- 2413, 2293, 1105, 33, 434, 2231, 2372, 2295, 853, 2389,
- 434, 2229, 2229, 1081, 1082, 5, 1005, 1006, 1027, 2328,
- 2393, 153, 2328, 531, 532, 650, 886, 1036, 99, 514,
- 606, 801, 806, 859, 952, 1650, 1651, 5, 11, 19,
- 28, 101, 102, 132, 152, 156, 174, 219, 231, 236,
- 255, 260, 261, 262, 263, 265, 266, 267, 268, 270,
- 272, 273, 274, 276, 277, 278, 279, 280, 282, 283,
- 284, 285, 286, 287, 290, 306, 317, 318, 368, 377,
- 380, 385, 411, 419, 421, 424, 427, 509, 516, 518,
- 521, 537, 592, 615, 667, 689, 712, 719, 726, 745,
- 766, 784, 798, 808, 809, 817, 820, 835, 857, 882,
- 895, 901, 959, 964, 1812, 2325, 2326, 2327, 1598, 1629,
- 1634, 1639, 1644, 1670, 1675, 1683, 1688, 1695, 1692, 1700,
- 1705, 1758, 1762, 1769, 1841, 1786, 1795, 1799, 1802, 1805,
- 1809, 1811, 1819, 1829, 1832, 1835, 1876, 1878, 1882, 1885,
- 1596, 1889, 1903, 1917, 1919, 1923, 1939, 1949, 1953, 1957,
- 1977, 1987, 2004, 2014, 2029, 2040, 2044, 2047, 2050, 2053,
- 2056, 2067, 2087, 1765, 1766, 377, 613, 18, 1965, 302,
- 481, 660, 735, 789, 842, 970, 2026, 2027, 2172, 2271,
- 2272, 2281, 377, 613, 1580, 749, 154, 1255, 1256, 252,
- 767, 780, 1281, 1282, 1284, 1295, 1297, 1300, 2310, 641,
- 857, 861, 971, 2330, 2331, 2337, 1226, 559, 593, 2318,
- 152, 181, 198, 199, 321, 490, 501, 634, 675, 694,
- 960, 961, 1203, 588, 1208, 2387, 673, 784, 785, 1199,
- 1, 201, 442, 641, 754, 857, 1197, 2329, 2336, 2370,
- 2370, 1101, 1113, 844, 621, 2370, 2287, 857, 2370, 764,
- 431, 1023, 1, 375, 431, 1023, 857, 857, 213, 481,
- 1107, 2288, 2295, 2229, 1007, 231, 1008, 993, 996, 954,
- 1647, 587, 955, 1599, 1602, 1603, 1604, 2211, 2271, 12,
- 166, 172, 173, 182, 188, 363, 364, 365, 375, 462,
- 463, 464, 472, 474, 485, 486, 487, 494, 514, 580,
- 608, 715, 815, 816, 830, 885, 912, 920, 948, 1630,
- 2202, 2235, 2236, 2238, 2239, 2271, 2293, 2297, 2298, 2299,
- 2300, 2434, 54, 865, 869, 870, 1635, 2197, 2198, 2199,
- 2200, 2201, 2202, 2239, 2242, 2271, 2278, 2279, 2281, 2294,
- 2297, 481, 1640, 1641, 2218, 2219, 2220, 2281, 1645, 1650,
- 18, 481, 647, 1671, 1672, 1673, 2255, 2271, 953, 1676,
- 1677, 1679, 2210, 12, 1684, 2202, 2203, 2204, 2233, 2276,
- 2277, 2281, 2294, 15, 1689, 861, 1696, 2210, 18, 1693,
- 2271, 2273, 422, 441, 600, 834, 1701, 1703, 301, 356,
- 415, 481, 510, 587, 793, 818, 863, 953, 1706, 1707,
- 1708, 1709, 1711, 1719, 1721, 1722, 1723, 1726, 1731, 1734,
- 1735, 1738, 1740, 2235, 2255, 2271, 2413, 1759, 2236, 1701,
- 860, 871, 1770, 1771, 1772, 2176, 2177, 2178, 1838, 2271,
- 2293, 2297, 122, 1787, 1789, 373, 611, 615, 645, 749,
- 1796, 1800, 2232, 2233, 1803, 2281, 852, 1806, 2409, 378,
- 664, 713, 1661, 1797, 1, 2175, 2176, 1820, 2232, 955,
- 1830, 2212, 175, 953, 1498, 1743, 1833, 2271, 65, 1836,
- 1837, 2005, 2264, 2265, 2281, 1498, 1743, 1879, 182, 1883,
- 2236, 1886, 2236, 761, 316, 1890, 1891, 1892, 414, 1904,
- 2170, 2363, 955, 2211, 312, 1920, 2271, 1924, 2210, 1940,
- 2211, 1950, 2205, 2281, 1954, 2210, 861, 1958, 2205, 2206,
- 852, 1978, 1979, 1983, 2211, 294, 452, 514, 1988, 1991,
- 1992, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2172,
- 2213, 2214, 2232, 2263, 2265, 2281, 2005, 2015, 2210, 2030,
- 2031, 2032, 182, 830, 2041, 2235, 639, 2045, 2048, 2212,
- 2051, 2266, 2271, 2054, 2210, 481, 2057, 2256, 2271, 2297,
- 2068, 2271, 2088, 2206, 1650, 1767, 359, 1863, 1872, 1966,
- 1967, 2207, 2281, 2023, 2271, 869, 2285, 2286, 2096, 2124,
- 857, 955, 972, 1581, 1583, 1584, 1587, 1588, 1593, 154,
- 479, 488, 641, 698, 740, 857, 2330, 2335, 2338, 749,
- 488, 1413, 1414, 1287, 1299, 1287, 1287, 1282, 2335, 338,
- 1285, 1286, 1287, 467, 971, 1228, 593, 2229, 2387, 2409,
- 2409, 584, 2386, 2387, 2387, 2409, 2387, 2387, 2409, 2387,
- 2387, 861, 2360, 310, 2359, 481, 1147, 2281, 34, 2343,
- 2329, 41, 248, 403, 481, 484, 497, 529, 660, 789,
- 794, 795, 970, 1091, 1093, 1094, 1095, 1098, 890, 922,
- 923, 1092, 1093, 2291, 481, 2287, 484, 824, 919, 1064,
- 2225, 2282, 2283, 1061, 2361, 2370, 515, 2288, 2370, 1009,
- 857, 1040, 1210, 1210, 1648, 121, 921, 1564, 260, 1627,
- 1600, 43, 68, 370, 515, 1609, 1610, 1611, 1615, 1620,
- 2346, 2347, 2413, 869, 1606, 510, 2381, 369, 2386, 2271,
- 869, 869, 869, 2302, 869, 2426, 2426, 869, 869, 869,
- 869, 2426, 2264, 869, 2302, 261, 1632, 852, 1631, 2236,
- 2272, 2294, 2297, 869, 2301, 869, 869, 2201, 2201, 2197,
- 2201, 124, 865, 870, 53, 55, 56, 57, 58, 59,
- 60, 856, 866, 319, 2272, 2294, 2297, 420, 2313, 1641,
- 852, 2426, 262, 1668, 2170, 1673, 1680, 2210, 682, 894,
- 1678, 2413, 2432, 2386, 263, 1685, 300, 858, 2204, 2423,
- 727, 2319, 2285, 2286, 1690, 1697, 2210, 265, 1698, 673,
- 2395, 176, 2355, 2271, 834, 2406, 834, 2211, 1720, 386,
- 1741, 92, 2349, 266, 1756, 312, 570, 591, 2138, 2140,
- 2142, 2418, 1709, 2234, 2235, 1710, 954, 1712, 1606, 1732,
- 1741, 907, 908, 909, 910, 177, 267, 1760, 97, 430,
- 268, 1775, 1784, 27, 947, 1773, 1774, 1776, 1779, 1780,
- 30, 53, 54, 55, 56, 57, 58, 59, 60, 319,
- 434, 559, 595, 854, 856, 865, 866, 869, 870, 2179,
- 2180, 2188, 2236, 2370, 697, 831, 1842, 523, 1790, 197,
- 1797, 2233, 290, 2217, 452, 1920, 2236, 841, 1814, 1821,
- 2413, 2212, 2271, 9, 17, 49, 79, 80, 81, 82,
- 83, 84, 85, 86, 95, 100, 111, 112, 113, 114,
- 129, 139, 142, 143, 144, 146, 180, 189, 190, 191,
- 192, 193, 194, 195, 196, 202, 204, 233, 234, 237,
- 238, 242, 264, 289, 293, 308, 314, 315, 333, 334,
- 335, 336, 337, 340, 381, 382, 383, 384, 390, 391,
- 393, 395, 396, 397, 400, 402, 406, 425, 426, 435,
- 436, 437, 438, 439, 440, 449, 453, 454, 457, 496,
- 500, 502, 503, 504, 505, 513, 530, 538, 574, 575,
- 609, 612, 623, 629, 633, 635, 636, 649, 652, 653,
- 658, 674, 676, 677, 685, 686, 708, 709, 710, 729,
- 730, 731, 732, 734, 738, 739, 746, 747, 755, 756,
- 757, 763, 768, 786, 799, 800, 805, 828, 829, 837,
- 845, 851, 881, 887, 931, 938, 940, 943, 950, 963,
- 967, 1503, 1505, 1507, 1509, 1511, 1513, 1515, 1517, 1520,
- 1522, 1524, 1525, 1527, 1529, 1530, 1532, 1534, 1537, 1538,
- 455, 781, 850, 1539, 1540, 1838, 2007, 869, 2285, 559,
- 811, 1500, 1501, 1502, 1503, 2317, 1539, 272, 1880, 2236,
- 852, 273, 1887, 97, 1891, 320, 422, 441, 600, 1893,
- 98, 361, 481, 1289, 1909, 1910, 1911, 2218, 2239, 2257,
- 2271, 2281, 2293, 2297, 2413, 842, 955, 1921, 276, 1936,
- 537, 632, 2316, 277, 1947, 510, 752, 1941, 369, 2089,
- 278, 1955, 2395, 955, 279, 1961, 2089, 2236, 281, 369,
- 1981, 1982, 2250, 2253, 2271, 2294, 2297, 312, 1998, 2000,
- 2232, 640, 852, 2214, 245, 852, 903, 1990, 45, 2285,
- 282, 2020, 341, 446, 452, 2017, 283, 2038, 430, 2033,
- 2034, 2236, 2271, 2264, 284, 2042, 369, 2212, 2352, 673,
- 679, 2396, 285, 2065, 220, 2058, 2271, 286, 2093, 2089,
- 481, 380, 1864, 2271, 1873, 2271, 1968, 2207, 280, 1974,
- 935, 1969, 1661, 2024, 2236, 2413, 2195, 2197, 869, 2286,
- 2097, 2271, 2125, 2271, 1, 749, 857, 1582, 1278, 2328,
- 749, 479, 1416, 1417, 1298, 1301, 693, 2335, 1, 1283,
- 169, 89, 135, 201, 448, 471, 673, 678, 698, 700,
- 930, 1229, 1230, 1232, 1236, 1237, 1240, 1241, 1247, 1250,
- 1252, 1253, 2331, 2370, 1135, 2221, 2222, 2222, 2287, 2287,
- 2208, 2210, 2208, 2287, 2208, 2208, 2222, 2208, 2208, 833,
- 2405, 259, 1209, 2287, 2361, 2225, 1095, 27, 844, 124,
- 517, 956, 2430, 955, 2284, 25, 526, 2225, 1079, 2370,
- 1044, 994, 997, 99, 606, 806, 1649, 1566, 1565, 713,
- 1575, 1609, 970, 2258, 2263, 2287, 2370, 1611, 1616, 1617,
- 847, 48, 61, 62, 63, 64, 69, 88, 138, 175,
- 177, 189, 216, 360, 371, 401, 460, 492, 495, 541,
- 548, 585, 603, 651, 654, 702, 714, 716, 717, 724,
- 737, 742, 750, 793, 827, 848, 892, 904, 911, 1621,
- 1624, 1625, 1626, 2356, 2394, 151, 481, 1607, 1608, 2245,
- 2271, 2271, 183, 36, 37, 140, 147, 150, 205, 210,
- 211, 294, 296, 303, 312, 422, 473, 477, 511, 740,
- 825, 836, 847, 918, 955, 1614, 2214, 2420, 290, 645,
- 2248, 2272, 852, 2195, 2197, 2308, 2195, 2309, 854, 2195,
- 2301, 2304, 2305, 955, 955, 2197, 2307, 2307, 2307, 2241,
- 2271, 2294, 2297, 2306, 955, 852, 2241, 2303, 2301, 12,
- 2202, 2203, 2236, 2281, 2294, 378, 2197, 2241, 2195, 854,
- 420, 2314, 2198, 2198, 2199, 2199, 2199, 2199, 2199, 2199,
- 2199, 2199, 2199, 2199, 483, 1636, 643, 1642, 2220, 1652,
- 1653, 2256, 2271, 1678, 489, 541, 2361, 2413, 2272, 2197,
- 515, 2320, 2286, 2197, 2138, 2210, 711, 1929, 1930, 1931,
- 1702, 2413, 1712, 953, 2235, 1590, 1591, 2141, 2142, 2139,
- 2140, 1590, 906, 1615, 1620, 1714, 1715, 1717, 2413, 61,
- 62, 63, 64, 69, 87, 88, 138, 175, 177, 301,
- 360, 401, 495, 603, 737, 742, 781, 793, 892, 1625,
- 1713, 1754, 301, 1724, 1725, 2271, 2294, 906, 1742, 953,
- 2138, 2138, 2138, 2138, 1707, 2236, 2203, 2236, 1772, 947,
- 1776, 1777, 1778, 1, 31, 860, 871, 1781, 1782, 2177,
- 857, 1590, 1775, 1779, 2187, 2188, 2180, 22, 23, 24,
- 128, 300, 387, 388, 465, 466, 534, 569, 578, 587,
- 630, 858, 862, 864, 2189, 2190, 2191, 2192, 2193, 2194,
- 18, 341, 456, 902, 1845, 1843, 1788, 481, 2215, 2216,
- 222, 1807, 2218, 312, 2415, 1812, 1813, 1815, 18, 22,
- 25, 26, 526, 527, 578, 579, 1822, 1826, 338, 414,
- 858, 2364, 1536, 2287, 2364, 1538, 2364, 2364, 2364, 1540,
- 178, 697, 831, 1839, 1848, 1850, 1851, 2009, 2387, 2413,
- 434, 858, 2371, 1501, 33, 434, 858, 2373, 3, 13,
- 29, 50, 78, 91, 92, 93, 96, 103, 115, 117,
- 118, 145, 200, 217, 240, 241, 243, 244, 288, 304,
- 344, 345, 346, 367, 372, 398, 399, 404, 405, 459,
- 461, 478, 491, 492, 493, 519, 543, 544, 545, 547,
- 549, 550, 552, 553, 554, 560, 562, 563, 564, 565,
- 578, 586, 601, 602, 610, 616, 663, 669, 722, 723,
- 725, 733, 758, 771, 772, 773, 774, 791, 792, 802,
- 832, 846, 847, 883, 893, 900, 911, 915, 916, 917,
- 936, 937, 941, 942, 944, 951, 1504, 1506, 1508, 1510,
- 1512, 1514, 1516, 1518, 1519, 1521, 1523, 1526, 1528, 1531,
- 1533, 852, 2232, 2203, 2236, 770, 1894, 2386, 392, 2171,
- 2171, 902, 935, 844, 1, 71, 72, 73, 74, 76,
- 158, 159, 347, 348, 349, 350, 351, 352, 353, 354,
- 355, 481, 625, 648, 1290, 1291, 1292, 1293, 1294, 1346,
- 1347, 2246, 2272, 849, 838, 2395, 430, 2262, 2271, 2293,
- 2297, 430, 1925, 1929, 1982, 2271, 1984, 2413, 852, 852,
- 852, 852, 1989, 12, 290, 781, 860, 871, 2236, 97,
- 69, 88, 401, 460, 495, 603, 716, 892, 1993, 1994,
- 2370, 2016, 2413, 2271, 2034, 220, 2035, 369, 369, 2203,
- 2236, 369, 97, 2350, 430, 2061, 15, 68, 2090, 2091,
- 1647, 852, 271, 1870, 369, 1870, 430, 1974, 44, 259,
- 1970, 2416, 1975, 2271, 1970, 2236, 302, 558, 151, 759,
- 854, 2196, 855, 2197, 287, 2122, 369, 2122, 2127, 2413,
- 1585, 2339, 1279, 1257, 2328, 749, 698, 1419, 930, 932,
- 1386, 1390, 1318, 1319, 2370, 2310, 857, 31, 67, 87,
- 126, 216, 224, 362, 432, 444, 468, 583, 620, 631,
- 681, 737, 754, 775, 823, 887, 913, 928, 930, 932,
- 935, 939, 1306, 1307, 1308, 1309, 1310, 1313, 1314, 1316,
- 1319, 1320, 1323, 1326, 1328, 1329, 1334, 1335, 1337, 1350,
- 1354, 1371, 1372, 1374, 1375, 1376, 1379, 1400, 1403, 1405,
- 1407, 1408, 1409, 1410, 1411, 1412, 1464, 2370, 2400, 1288,
- 2370, 170, 2354, 2370, 673, 679, 2431, 2431, 2370, 2354,
- 2370, 2382, 2370, 33, 2342, 584, 955, 1254, 2230, 322,
- 379, 1, 1136, 1137, 2222, 2387, 2387, 875, 876, 2435,
- 2210, 2387, 2387, 2354, 2386, 2386, 679, 2208, 1096, 1098,
- 2426, 2370, 2370, 2225, 1079, 1048, 1049, 1220, 1557, 1557,
- 479, 1567, 1568, 1569, 2350, 1567, 587, 955, 1561, 303,
- 568, 570, 590, 2131, 2133, 2134, 2136, 2137, 2417, 2418,
- 89, 473, 1618, 137, 141, 627, 628, 1619, 2422, 481,
- 2259, 2263, 2289, 2370, 2370, 2370, 2259, 2370, 69, 250,
- 1626, 2351, 245, 903, 2410, 15, 2341, 446, 781, 1607,
- 151, 865, 870, 2131, 969, 968, 2250, 2131, 446, 2375,
- 803, 803, 576, 1601, 522, 481, 2249, 2272, 2271, 2196,
- 854, 2196, 854, 854, 619, 854, 2241, 2196, 854, 854,
- 854, 2196, 854, 2264, 2196, 854, 2386, 573, 782, 2143,
- 2145, 2147, 2285, 2286, 2203, 855, 854, 854, 852, 2315,
- 1636, 2287, 713, 1637, 852, 2218, 1646, 535, 647, 1654,
- 39, 1681, 2413, 718, 692, 541, 2143, 2370, 748, 361,
- 2361, 433, 571, 2164, 2165, 2167, 2169, 446, 1736, 1727,
- 1592, 184, 185, 637, 1079, 1718, 2214, 1715, 542, 1754,
- 2371, 473, 740, 2370, 2370, 297, 299, 1541, 1542, 2358,
- 2409, 2371, 245, 2410, 2370, 1754, 1725, 2271, 1733, 1739,
- 2138, 378, 2143, 378, 598, 857, 1590, 1775, 27, 844,
- 1783, 1781, 970, 2189, 2409, 341, 1098, 1847, 2281, 18,
- 456, 902, 1844, 1605, 1606, 1807, 2216, 2387, 1816, 270,
- 1817, 1590, 2409, 697, 1823, 2409, 2271, 2271, 2271, 2271,
- 2271, 2251, 2272, 2280, 2294, 18, 124, 341, 456, 880,
- 1854, 1855, 1856, 1849, 1850, 1157, 2010, 2353, 40, 223,
- 1366, 246, 1535, 2271, 2287, 869, 2236, 2232, 2143, 378,
- 2413, 1929, 1290, 2363, 1910, 1905, 1906, 318, 1912, 2175,
- 1913, 1914, 2271, 2218, 857, 2091, 1925, 2271, 2271, 566,
- 2153, 2156, 2158, 2416, 1959, 1960, 2413, 713, 2090, 251,
- 256, 305, 2271, 2250, 585, 970, 2260, 2261, 2263, 2287,
- 2386, 2249, 584, 2236, 1989, 1989, 1989, 1989, 1989, 1989,
- 1989, 1989, 1994, 559, 569, 2018, 2019, 2190, 2317, 2164,
- 462, 781, 2433, 2037, 2413, 2350, 2271, 2264, 2143, 378,
- 2251, 18, 2059, 2060, 2311, 2062, 2271, 2037, 2062, 1929,
- 14, 2340, 921, 1655, 481, 2271, 2271, 947, 1971, 947,
- 1972, 1973, 803, 2403, 2403, 2197, 854, 2197, 2271, 713,
- 2128, 258, 1589, 2287, 1258, 1415, 2328, 1420, 740, 1482,
- 2370, 2342, 30, 319, 595, 854, 856, 865, 866, 869,
- 870, 1289, 1305, 1392, 1393, 1394, 930, 379, 2281, 462,
- 578, 947, 2411, 2370, 2370, 2370, 77, 123, 578, 1327,
- 947, 722, 2397, 2269, 2272, 247, 1357, 2287, 1330, 947,
- 2272, 39, 2345, 947, 434, 459, 722, 1373, 2409, 2370,
- 2370, 369, 2370, 369, 2342, 955, 1465, 1466, 1308, 70,
- 71, 72, 73, 74, 76, 77, 155, 157, 158, 160,
- 161, 162, 163, 164, 165, 231, 232, 347, 348, 349,
- 350, 351, 355, 376, 392, 416, 526, 604, 625, 648,
- 777, 778, 779, 897, 898, 899, 922, 1339, 1346, 1347,
- 1289, 1305, 1387, 1388, 322, 323, 409, 790, 888, 456,
- 880, 369, 1302, 2345, 379, 2287, 1160, 2372, 2372, 955,
- 2226, 2227, 587, 793, 2427, 481, 2222, 2228, 2287, 935,
- 2370, 330, 408, 955, 1238, 2230, 2329, 6, 10, 29,
- 42, 257, 331, 332, 417, 473, 555, 597, 605, 673,
- 688, 705, 770, 784, 861, 877, 878, 1138, 1139, 1148,
- 1150, 1154, 1156, 1157, 1159, 1161, 1162, 1163, 1164, 1170,
- 1171, 1172, 1173, 1176, 1182, 1183, 1185, 1187, 1189, 1190,
- 1191, 1192, 2329, 2353, 2395, 2425, 2208, 2208, 2387, 2208,
- 2208, 1204, 1205, 2210, 2432, 2210, 1097, 1098, 2284, 2225,
- 2225, 1073, 1211, 1417, 641, 998, 998, 1568, 781, 896,
- 1570, 1571, 1572, 683, 930, 2339, 2135, 2136, 1622, 1623,
- 2267, 2271, 2132, 2133, 1590, 576, 2384, 2384, 2258, 2197,
- 481, 1755, 2244, 2266, 2258, 2370, 2173, 2261, 2173, 2259,
- 2363, 2370, 854, 854, 1607, 2245, 2245, 2131, 781, 1612,
- 1613, 1615, 2319, 826, 2301, 826, 2301, 854, 2301, 2222,
- 2301, 2301, 2301, 2241, 2301, 2319, 456, 880, 2301, 2272,
- 1590, 1590, 2146, 2147, 2144, 2145, 2286, 2143, 854, 2197,
- 2301, 2301, 2254, 2271, 2293, 1637, 2233, 2171, 541, 718,
- 2321, 2197, 1590, 1590, 2168, 2169, 2166, 2167, 2255, 1742,
- 216, 407, 850, 887, 1661, 1728, 1729, 1730, 1593, 2258,
- 2258, 1755, 473, 740, 259, 2258, 2173, 2173, 2197, 91,
- 93, 392, 477, 626, 769, 872, 1615, 1744, 1745, 1746,
- 1747, 1748, 1750, 1751, 1752, 1753, 2413, 1744, 2203, 2204,
- 2203, 2204, 1782, 2176, 97, 341, 1847, 301, 1791, 2267,
- 1590, 1812, 930, 1824, 1825, 1826, 841, 1827, 2407, 930,
- 852, 97, 1855, 1857, 2251, 18, 124, 456, 880, 1852,
- 1853, 2250, 2267, 2271, 2006, 764, 2375, 414, 596, 2365,
- 2235, 2203, 18, 541, 667, 1186, 2208, 2271, 1590, 274,
- 857, 1908, 15, 369, 14, 413, 1926, 1927, 1928, 1930,
- 1933, 1960, 2413, 201, 546, 1942, 1944, 1946, 1590, 2157,
- 2158, 2156, 1590, 2164, 489, 541, 1980, 2271, 697, 1985,
- 327, 328, 2236, 2190, 2271, 2191, 2192, 2193, 2194, 2197,
- 572, 868, 2148, 2150, 2152, 625, 781, 2036, 2236, 2319,
- 2319, 2203, 852, 595, 2250, 221, 2063, 831, 2064, 1959,
- 607, 2214, 2258, 1656, 183, 2174, 1874, 2413, 2176, 1590,
- 2175, 1972, 2025, 2236, 2025, 854, 2174, 526, 929, 2129,
- 2253, 857, 109, 1259, 1260, 1261, 1279, 1418, 749, 1483,
- 844, 1391, 1394, 2370, 844, 1296, 970, 22, 23, 24,
- 90, 128, 578, 1160, 1406, 556, 1404, 2236, 2232, 201,
- 2357, 1, 2181, 2182, 2183, 2184, 869, 1311, 1312, 104,
- 1359, 891, 852, 1356, 98, 222, 484, 1331, 1351, 2181,
- 2269, 1324, 955, 2270, 1, 581, 955, 1342, 2233, 869,
- 1382, 1387, 1388, 1382, 1377, 1378, 1387, 369, 1467, 1466,
- 776, 896, 2399, 896, 2399, 896, 2399, 896, 2399, 896,
- 2399, 16, 2409, 2386, 1341, 2409, 1340, 2409, 695, 1383,
- 1384, 1388, 39, 1317, 2350, 1321, 810, 1315, 762, 2322,
- 2322, 955, 1304, 1305, 852, 1235, 359, 1251, 2227, 477,
- 2379, 852, 2352, 2363, 324, 342, 736, 889, 924, 933,
- 1248, 1249, 2370, 2370, 2382, 2375, 2395, 2409, 765, 2375,
- 2370, 2351, 221, 2375, 2375, 541, 1184, 2287, 2413, 2370,
- 2370, 803, 489, 764, 70, 2348, 2372, 2208, 1205, 628,
- 1206, 27, 2361, 2361, 1114, 1118, 1120, 1212, 1213, 1214,
- 1215, 1066, 1067, 999, 988, 990, 2370, 781, 1572, 593,
- 1574, 215, 1576, 1590, 2197, 2197, 2255, 473, 477, 2428,
- 1623, 2260, 854, 2370, 1613, 2143, 2301, 369, 2323, 854,
- 1647, 231, 748, 849, 1737, 2371, 2371, 2371, 2371, 2236,
- 1730, 2386, 414, 434, 2374, 2197, 2343, 1745, 116, 459,
- 722, 1749, 541, 1754, 2143, 690, 2143, 690, 1847, 697,
- 1846, 1792, 1793, 2271, 2293, 1816, 1825, 2357, 2409, 2252,
- 2280, 2293, 2250, 97, 15, 68, 1858, 1859, 1860, 1853,
- 1858, 359, 422, 921, 2011, 1158, 2361, 2370, 2008, 596,
- 854, 2143, 598, 2390, 2390, 589, 20, 230, 359, 458,
- 703, 717, 954, 1895, 1896, 1900, 1901, 2413, 2414, 274,
- 1907, 1914, 2236, 2387, 489, 446, 1934, 1932, 1933, 2413,
- 412, 445, 945, 1590, 1590, 1945, 1946, 1943, 1944, 489,
- 473, 2376, 2386, 2386, 1590, 1590, 2151, 2152, 2149, 2150,
- 2370, 2143, 2323, 2143, 2252, 2060, 2363, 2174, 2363, 2148,
- 298, 567, 2092, 2159, 2161, 2163, 2165, 473, 477, 2377,
- 1657, 1658, 1659, 2350, 2363, 1865, 522, 2109, 226, 1590,
- 1590, 2098, 2413, 644, 914, 1586, 2069, 2229, 1279, 1279,
- 2328, 749, 1289, 947, 1395, 1396, 1397, 2372, 2412, 537,
- 798, 1303, 1304, 2281, 30, 53, 54, 55, 56, 57,
- 58, 59, 60, 319, 595, 854, 856, 865, 866, 869,
- 870, 2185, 2186, 2188, 2189, 2236, 481, 2247, 2363, 369,
- 1355, 849, 2408, 2287, 2408, 2287, 2387, 1332, 2370, 598,
- 1325, 2181, 683, 1401, 2411, 1385, 2289, 2370, 1384, 2342,
- 1378, 1387, 369, 1380, 1383, 2242, 97, 1468, 375, 7,
- 66, 78, 125, 148, 207, 292, 357, 366, 448, 455,
- 480, 508, 657, 661, 743, 804, 818, 842, 884, 934,
- 946, 953, 955, 1496, 2270, 647, 2289, 2409, 481, 2255,
- 184, 189, 309, 741, 1322, 2351, 1305, 2287, 124, 679,
- 1231, 2221, 1242, 2287, 2401, 481, 1239, 2281, 1239, 2370,
- 2370, 2375, 247, 322, 1145, 1146, 2370, 688, 1171, 2370,
- 2370, 2370, 2370, 34, 35, 2344, 1186, 2228, 2287, 2370,
- 2382, 584, 765, 1188, 2228, 2287, 1098, 526, 25, 1214,
- 857, 1215, 239, 48, 216, 2287, 2370, 955, 1577, 1562,
- 2260, 416, 2366, 224, 2324, 1655, 1744, 2236, 2236, 2236,
- 2236, 2271, 2371, 850, 742, 958, 2204, 2204, 97, 1716,
- 1717, 1793, 1590, 97, 216, 1858, 1858, 2252, 863, 2368,
- 2368, 1860, 1859, 641, 2208, 378, 600, 2012, 25, 526,
- 1160, 2281, 18, 541, 668, 905, 962, 1898, 1899, 1900,
- 541, 94, 489, 500, 1897, 97, 1915, 489, 2370, 1935,
- 2154, 2156, 2158, 2164, 489, 489, 2210, 2210, 2271, 2324,
- 2271, 2271, 1590, 1590, 2162, 2163, 2160, 2161, 1658, 587,
- 1571, 2237, 2238, 2268, 2272, 171, 683, 930, 2271, 2109,
- 2386, 821, 1867, 2100, 2101, 2102, 2413, 861, 2130, 2205,
- 641, 2070, 857, 1262, 1421, 2328, 766, 432, 925, 1398,
- 860, 2386, 2186, 970, 2189, 854, 955, 2287, 852, 1356,
- 222, 222, 1358, 2222, 781, 955, 1333, 325, 955, 1343,
- 1344, 588, 1402, 302, 541, 854, 2196, 1382, 852, 1381,
- 2242, 218, 343, 450, 507, 783, 879, 1348, 482, 1349,
- 2408, 259, 803, 91, 872, 1243, 1244, 1245, 1246, 2413,
- 2352, 369, 1234, 2362, 247, 665, 765, 1149, 2222, 2370,
- 105, 106, 107, 228, 229, 231, 422, 423, 447, 473,
- 498, 600, 633, 637, 638, 665, 833, 1140, 1141, 1142,
- 1143, 1144, 2222, 2228, 1174, 2222, 2222, 2352, 2435, 2222,
- 2370, 2222, 2228, 844, 2370, 2370, 857, 1564, 48, 1573,
- 2413, 2339, 1580, 2260, 2366, 2143, 1660, 1661, 2271, 2371,
- 2143, 2143, 1847, 2236, 1858, 2236, 2236, 2370, 2208, 641,
- 2370, 2370, 1160, 599, 2391, 718, 2239, 2243, 2247, 2271,
- 2297, 902, 2271, 2157, 2155, 2156, 2143, 2237, 1867, 2110,
- 2111, 2271, 1868, 1869, 2271, 2138, 524, 2104, 2102, 46,
- 258, 965, 2103, 955, 2370, 43, 249, 313, 379, 2071,
- 2072, 2073, 2075, 2079, 2081, 2082, 2085, 2346, 2361, 1263,
- 1422, 1484, 852, 947, 1399, 2370, 2271, 420, 1360, 2387,
- 2387, 417, 1361, 1363, 1364, 1365, 1366, 1368, 2370, 2386,
- 8, 128, 171, 362, 687, 359, 302, 2289, 1382, 2228,
- 2228, 358, 222, 1233, 1235, 2287, 2222, 369, 14, 921,
- 935, 2281, 2293, 2436, 75, 476, 794, 955, 1175, 787,
- 858, 1177, 1178, 2222, 2223, 51, 316, 499, 1165, 2370,
- 844, 2228, 2225, 2225, 1575, 506, 1580, 852, 2260, 570,
- 868, 1663, 1665, 1667, 2418, 12, 430, 561, 587, 867,
- 1662, 2369, 2236, 1909, 2370, 1160, 1160, 2272, 2294, 2297,
- 2175, 1866, 2111, 2370, 1869, 2370, 522, 2106, 2253, 1909,
- 68, 2341, 1921, 2083, 2084, 645, 213, 1264, 2332, 2335,
- 2361, 666, 1423, 1284, 1300, 1485, 1486, 1487, 2175, 1289,
- 1361, 2222, 2222, 2350, 1368, 1364, 2375, 1362, 2287, 589,
- 1345, 2274, 2275, 2277, 2346, 2387, 2352, 1177, 2281, 2360,
- 2281, 2370, 614, 1151, 1152, 1179, 1180, 954, 1166, 1168,
- 2413, 1169, 2413, 1166, 1160, 2228, 2328, 781, 259, 2260,
- 1590, 1590, 1666, 1667, 1664, 1665, 1590, 2386, 2271, 1909,
- 2361, 2361, 2138, 587, 2293, 2253, 2386, 887, 2112, 2126,
- 699, 793, 2402, 861, 2209, 2084, 259, 798, 2080, 2387,
- 600, 2368, 1424, 1, 1286, 1487, 857, 1361, 1369, 1370,
- 2282, 2370, 1363, 2275, 2228, 2222, 1233, 2312, 2413, 1153,
- 2312, 1181, 2222, 1181, 489, 2380, 726, 500, 2370, 1578,
- 2271, 526, 25, 525, 2105, 2107, 2108, 2271, 2386, 821,
- 2117, 2138, 2271, 302, 312, 2424, 2210, 861, 18, 2076,
- 2077, 2272, 224, 302, 803, 822, 839, 1269, 1270, 1271,
- 422, 441, 2212, 857, 1488, 1489, 857, 1370, 2224, 2225,
- 1151, 246, 541, 2370, 588, 2259, 215, 2370, 2370, 2370,
- 2108, 2370, 2113, 2114, 2271, 310, 949, 2118, 2119, 2271,
- 2099, 641, 2392, 2210, 584, 642, 684, 2078, 2077, 183,
- 830, 2370, 446, 446, 224, 462, 1271, 259, 510, 803,
- 822, 839, 1265, 1266, 1267, 1268, 2271, 2381, 2404, 259,
- 510, 803, 839, 1272, 1273, 1274, 1275, 2271, 2404, 1425,
- 1491, 581, 1495, 1496, 2225, 820, 1155, 246, 2222, 520,
- 673, 679, 2429, 1579, 1160, 1160, 2253, 2293, 2114, 2370,
- 45, 171, 254, 557, 578, 2116, 2120, 403, 497, 789,
- 970, 2121, 2296, 2119, 2138, 2387, 584, 2269, 2370, 583,
- 2271, 2370, 2370, 2370, 2370, 446, 205, 847, 446, 462,
- 1267, 2271, 183, 659, 787, 812, 813, 814, 446, 205,
- 847, 446, 462, 1274, 2271, 834, 1, 1426, 48, 61,
- 62, 63, 64, 69, 87, 88, 108, 130, 138, 175,
- 186, 301, 360, 369, 371, 389, 401, 460, 473, 477,
- 495, 541, 583, 603, 651, 702, 724, 750, 781, 793,
- 827, 852, 863, 892, 913, 921, 930, 1329, 1336, 1337,
- 1350, 1371, 1374, 1492, 1493, 1494, 1555, 1556, 1624, 1625,
- 2370, 2422, 1497, 2271, 2287, 1490, 947, 2429, 1167, 1168,
- 2339, 2116, 2115, 2116, 2115, 595, 320, 422, 441, 600,
- 2074, 2208, 2271, 2287, 2271, 2271, 2271, 2271, 2370, 2370,
- 2370, 2370, 2370, 2271, 2370, 2370, 2370, 2370, 2370, 2370,
- 2370, 2370, 2370, 2370, 2370, 2271, 2370, 2333, 2335, 175,
- 176, 607, 1427, 1428, 1433, 2333, 2370, 2413, 2444, 2370,
- 473, 740, 1553, 2384, 1551, 2384, 2370, 2370, 2371, 1541,
- 1542, 2370, 2262, 1551, 2371, 2287, 123, 2371, 2271, 2370,
- 2271, 2370, 231, 232, 526, 922, 1338, 2294, 379, 1553,
- 1499, 1500, 18, 789, 970, 1099, 1167, 2296, 2408, 2271,
- 2271, 2271, 2271, 2271, 2271, 2271, 2271, 2271, 2271, 2271,
- 2271, 2271, 2271, 2271, 2271, 2271, 2271, 2271, 2372, 2372,
- 469, 470, 2378, 1444, 379, 134, 339, 1429, 1430, 1431,
- 1432, 2271, 2258, 2370, 2370, 2258, 1755, 2267, 2287, 2258,
- 1548, 2258, 2408, 2370, 2267, 2287, 1, 1491, 2295, 1367,
- 1368, 2271, 2271, 2372, 2372, 970, 1434, 1435, 1436, 2271,
- 2287, 2290, 1284, 1445, 2370, 1431, 1432, 512, 624, 865,
- 870, 1544, 1545, 1546, 1547, 1554, 1544, 1546, 1552, 110,
- 622, 1549, 1550, 2255, 2271, 2271, 1437, 473, 477, 2377,
- 2420, 2428, 1, 1286, 1287, 2255, 2258, 2258, 2271, 341,
- 358, 394, 452, 475, 1438, 1439, 1440, 1441, 1442, 1443,
- 1435, 1436, 2334, 2335, 1446, 2271, 212, 226, 2437, 2370,
- 2370, 120, 175, 2437, 2438, 2370, 1447, 2271, 2370, 1436,
- 1436, 394, 2370, 2370, 1436, 4, 137, 141, 390, 473,
- 477, 539, 583, 631, 787, 819, 887, 1329, 1334, 1336,
- 1350, 1352, 1371, 1374, 1386, 1389, 1448, 1449, 1454, 1457,
- 1460, 1461, 1464, 1469, 1470, 1473, 1474, 1480, 1481, 2334,
- 2419, 2420, 2421, 2271, 1436, 1436, 1436, 418, 2367, 577,
- 2384, 2385, 2342, 2370, 2287, 2370, 2386, 2370, 1387, 15,
- 68, 444, 947, 540, 1471, 1472, 1543, 1544, 1477, 1478,
- 1479, 1544, 2287, 2385, 2271, 2372, 537, 540, 607, 1455,
- 1456, 1544, 2287, 1356, 2242, 2240, 2242, 119, 175, 607,
- 617, 618, 698, 720, 721, 1450, 2437, 2438, 2439, 2440,
- 2441, 2442, 2443, 536, 2383, 2383, 15, 68, 2175, 1471,
- 2290, 1478, 2290, 115, 459, 722, 1475, 1476, 2287, 2408,
- 2319, 706, 906, 1458, 2242, 358, 358, 394, 358, 394,
- 359, 588, 2388, 2388, 595, 607, 1462, 1463, 2271, 1462,
- 2383, 2383, 2372, 1358, 2387, 2271, 339, 1451, 2271, 18,
- 339, 1453, 2271, 1462, 607, 607, 807, 1353, 339, 1459,
- 2271, 595, 1452, 1452, 1452, 1452, 2287, 607
-};
-
- /* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */
-static const yytype_uint16 yyr1[] =
-{
- 0, 974, 976, 975, 977, 977, 979, 978, 980, 980,
- 981, 981, 981, 981, 983, 982, 984, 985, 986, 986,
- 987, 987, 989, 988, 991, 990, 993, 994, 992, 996,
- 997, 995, 998, 999, 998, 1000, 1001, 1002, 1001, 1003,
- 1004, 1003, 1005, 1005, 1006, 1007, 1006, 1008, 1009, 1008,
- 1011, 1012, 1010, 1013, 1013, 1015, 1014, 1016, 1016, 1017,
- 1018, 1019, 1020, 1021, 1021, 1022, 1022, 1023, 1023, 1024,
- 1024, 1025, 1025, 1025, 1025, 1026, 1026, 1027, 1027, 1028,
- 1028, 1029, 1030, 1030, 1031, 1031, 1031, 1031, 1032, 1032,
- 1033, 1033, 1034, 1034, 1034, 1035, 1035, 1036, 1036, 1036,
- 1036, 1037, 1038, 1038, 1039, 1040, 1041, 1042, 1042, 1043,
- 1044, 1045, 1045, 1046, 1046, 1047, 1047, 1047, 1047, 1047,
- 1048, 1048, 1050, 1049, 1051, 1051, 1052, 1052, 1054, 1053,
- 1055, 1055, 1055, 1055, 1056, 1056, 1057, 1057, 1057, 1057,
- 1058, 1059, 1060, 1061, 1061, 1061, 1061, 1061, 1061, 1062,
- 1063, 1064, 1064, 1064, 1064, 1065, 1065, 1066, 1066, 1068,
- 1067, 1069, 1069, 1069, 1070, 1070, 1071, 1071, 1071, 1071,
- 1071, 1072, 1072, 1073, 1074, 1075, 1075, 1075, 1076, 1076,
- 1076, 1076, 1076, 1076, 1076, 1076, 1076, 1076, 1076, 1076,
- 1076, 1076, 1076, 1078, 1077, 1079, 1079, 1080, 1080, 1080,
- 1080, 1081, 1081, 1082, 1083, 1083, 1085, 1084, 1087, 1086,
- 1088, 1086, 1089, 1089, 1090, 1091, 1091, 1091, 1091, 1091,
- 1092, 1092, 1092, 1092, 1093, 1093, 1093, 1094, 1094, 1095,
- 1095, 1096, 1095, 1097, 1097, 1098, 1098, 1098, 1098, 1098,
- 1098, 1099, 1099, 1100, 1100, 1100, 1101, 1101, 1102, 1103,
- 1104, 1104, 1105, 1106, 1106, 1107, 1107, 1108, 1109, 1109,
- 1110, 1111, 1112, 1112, 1113, 1113, 1114, 1116, 1115, 1117,
- 1117, 1118, 1119, 1119, 1120, 1121, 1122, 1123, 1124, 1125,
- 1127, 1126, 1128, 1129, 1130, 1130, 1131, 1131, 1132, 1132,
- 1134, 1135, 1133, 1136, 1136, 1137, 1137, 1138, 1138, 1138,
- 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
- 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1139, 1139, 1139,
- 1139, 1139, 1140, 1140, 1140, 1141, 1141, 1141, 1141, 1141,
- 1141, 1141, 1142, 1142, 1142, 1142, 1143, 1143, 1143, 1143,
- 1143, 1143, 1143, 1144, 1145, 1145, 1146, 1146, 1147, 1147,
- 1148, 1149, 1149, 1149, 1150, 1151, 1151, 1153, 1152, 1154,
- 1155, 1155, 1155, 1156, 1157, 1158, 1158, 1158, 1158, 1158,
- 1158, 1159, 1160, 1160, 1160, 1160, 1160, 1160, 1161, 1162,
- 1162, 1162, 1164, 1163, 1165, 1165, 1165, 1166, 1166, 1166,
- 1166, 1167, 1167, 1168, 1169, 1169, 1170, 1170, 1171, 1171,
- 1171, 1171, 1172, 1174, 1173, 1175, 1175, 1175, 1175, 1176,
- 1177, 1177, 1178, 1178, 1180, 1179, 1179, 1181, 1182, 1183,
- 1184, 1184, 1185, 1186, 1186, 1186, 1187, 1188, 1188, 1189,
- 1190, 1191, 1192, 1193, 1193, 1194, 1195, 1195, 1195, 1196,
- 1196, 1197, 1197, 1197, 1197, 1198, 1199, 1199, 1199, 1199,
- 1200, 1200, 1200, 1200, 1200, 1201, 1201, 1201, 1201, 1201,
- 1201, 1201, 1201, 1203, 1202, 1204, 1204, 1205, 1206, 1206,
- 1207, 1208, 1209, 1209, 1210, 1210, 1210, 1211, 1212, 1212,
- 1213, 1213, 1214, 1214, 1215, 1215, 1215, 1217, 1216, 1218,
- 1218, 1219, 1220, 1221, 1222, 1222, 1223, 1223, 1224, 1226,
- 1225, 1225, 1227, 1227, 1228, 1228, 1229, 1229, 1229, 1229,
- 1229, 1229, 1229, 1229, 1229, 1229, 1229, 1230, 1231, 1231,
- 1231, 1232, 1232, 1232, 1233, 1233, 1234, 1234, 1235, 1235,
- 1236, 1237, 1237, 1238, 1238, 1239, 1239, 1240, 1241, 1242,
- 1242, 1243, 1243, 1243, 1244, 1245, 1246, 1247, 1248, 1248,
- 1248, 1248, 1248, 1249, 1249, 1250, 1251, 1251, 1252, 1253,
- 1253, 1254, 1254, 1255, 1256, 1257, 1256, 1258, 1258, 1259,
- 1260, 1262, 1261, 1263, 1263, 1264, 1264, 1264, 1265, 1265,
- 1265, 1266, 1266, 1267, 1267, 1267, 1267, 1267, 1267, 1267,
- 1267, 1267, 1267, 1267, 1268, 1269, 1269, 1270, 1270, 1271,
- 1271, 1271, 1271, 1271, 1271, 1271, 1272, 1272, 1272, 1273,
- 1273, 1274, 1274, 1274, 1274, 1274, 1274, 1275, 1276, 1277,
- 1278, 1277, 1279, 1280, 1279, 1281, 1281, 1282, 1282, 1282,
- 1283, 1282, 1282, 1284, 1284, 1285, 1285, 1286, 1286, 1287,
- 1288, 1288, 1289, 1289, 1289, 1290, 1290, 1290, 1290, 1290,
- 1290, 1290, 1290, 1290, 1290, 1290, 1290, 1290, 1290, 1290,
- 1290, 1291, 1291, 1292, 1292, 1293, 1293, 1294, 1294, 1295,
- 1296, 1296, 1298, 1297, 1299, 1299, 1300, 1301, 1300, 1302,
- 1302, 1303, 1303, 1303, 1304, 1304, 1305, 1305, 1305, 1305,
- 1305, 1305, 1305, 1305, 1305, 1305, 1306, 1306, 1307, 1307,
- 1308, 1308, 1308, 1308, 1308, 1308, 1308, 1308, 1308, 1308,
- 1308, 1308, 1308, 1308, 1308, 1308, 1308, 1308, 1308, 1308,
- 1308, 1308, 1308, 1308, 1308, 1308, 1308, 1308, 1308, 1308,
- 1309, 1310, 1311, 1311, 1312, 1313, 1314, 1315, 1315, 1316,
- 1317, 1317, 1318, 1318, 1319, 1321, 1320, 1322, 1322, 1322,
- 1322, 1324, 1323, 1325, 1325, 1326, 1327, 1327, 1327, 1328,
- 1330, 1329, 1331, 1331, 1331, 1331, 1332, 1332, 1333, 1334,
- 1335, 1335, 1335, 1335, 1336, 1336, 1337, 1337, 1338, 1338,
- 1338, 1338, 1339, 1339, 1339, 1339, 1339, 1339, 1339, 1339,
- 1339, 1339, 1339, 1339, 1339, 1339, 1339, 1339, 1339, 1339,
- 1339, 1339, 1339, 1339, 1339, 1339, 1339, 1339, 1339, 1339,
- 1339, 1339, 1339, 1339, 1339, 1339, 1339, 1339, 1339, 1339,
- 1339, 1339, 1339, 1339, 1339, 1339, 1339, 1339, 1339, 1339,
- 1339, 1339, 1339, 1339, 1339, 1339, 1339, 1340, 1340, 1341,
- 1341, 1342, 1343, 1343, 1343, 1343, 1344, 1344, 1345, 1345,
- 1346, 1346, 1347, 1348, 1348, 1348, 1348, 1348, 1348, 1348,
- 1349, 1349, 1350, 1350, 1351, 1352, 1353, 1353, 1354, 1354,
- 1354, 1355, 1355, 1356, 1356, 1357, 1357, 1358, 1358, 1359,
- 1359, 1360, 1360, 1361, 1361, 1362, 1361, 1361, 1361, 1363,
- 1364, 1364, 1365, 1366, 1366, 1367, 1367, 1368, 1369, 1369,
- 1370, 1371, 1372, 1373, 1373, 1373, 1374, 1375, 1376, 1376,
- 1376, 1376, 1376, 1377, 1377, 1378, 1379, 1379, 1380, 1381,
- 1381, 1382, 1383, 1383, 1384, 1384, 1385, 1385, 1386, 1386,
- 1387, 1387, 1388, 1389, 1391, 1390, 1392, 1393, 1393, 1394,
- 1394, 1395, 1395, 1395, 1396, 1397, 1398, 1398, 1399, 1399,
- 1400, 1401, 1401, 1402, 1402, 1402, 1402, 1403, 1404, 1404,
- 1405, 1406, 1406, 1406, 1406, 1406, 1406, 1406, 1407, 1408,
- 1409, 1410, 1410, 1411, 1412, 1413, 1414, 1415, 1414, 1416,
- 1417, 1418, 1417, 1419, 1420, 1421, 1419, 1422, 1422, 1424,
- 1425, 1423, 1426, 1426, 1426, 1427, 1427, 1427, 1427, 1428,
- 1429, 1429, 1429, 1430, 1431, 1431, 1432, 1433, 1434, 1434,
- 1434, 1435, 1436, 1436, 1437, 1437, 1438, 1438, 1438, 1438,
- 1438, 1438, 1439, 1440, 1441, 1442, 1443, 1444, 1444, 1446,
- 1445, 1445, 1447, 1447, 1448, 1448, 1448, 1448, 1448, 1448,
- 1448, 1448, 1448, 1448, 1448, 1448, 1448, 1448, 1448, 1448,
- 1448, 1449, 1450, 1450, 1450, 1450, 1450, 1450, 1450, 1451,
- 1451, 1451, 1452, 1452, 1453, 1453, 1453, 1453, 1454, 1455,
- 1455, 1455, 1456, 1456, 1456, 1457, 1458, 1458, 1458, 1459,
- 1459, 1460, 1460, 1460, 1460, 1460, 1461, 1461, 1462, 1462,
- 1463, 1463, 1463, 1464, 1465, 1465, 1466, 1467, 1467, 1468,
- 1468, 1469, 1470, 1470, 1471, 1471, 1472, 1472, 1473, 1474,
- 1475, 1475, 1476, 1476, 1476, 1477, 1477, 1478, 1478, 1479,
- 1480, 1481, 1482, 1483, 1484, 1482, 1485, 1485, 1486, 1486,
- 1487, 1488, 1487, 1489, 1490, 1487, 1487, 1491, 1491, 1492,
- 1492, 1492, 1492, 1492, 1492, 1492, 1492, 1492, 1492, 1492,
- 1492, 1492, 1492, 1492, 1492, 1492, 1492, 1492, 1492, 1492,
- 1492, 1492, 1492, 1492, 1492, 1492, 1492, 1492, 1492, 1492,
- 1492, 1492, 1492, 1492, 1492, 1492, 1492, 1492, 1492, 1492,
- 1492, 1492, 1492, 1492, 1492, 1492, 1492, 1492, 1492, 1492,
- 1493, 1494, 1494, 1495, 1495, 1496, 1496, 1496, 1496, 1496,
- 1496, 1496, 1496, 1496, 1496, 1496, 1496, 1496, 1496, 1496,
- 1496, 1497, 1497, 1498, 1498, 1499, 1499, 1500, 1500, 1501,
- 1501, 1501, 1502, 1502, 1503, 1503, 1504, 1504, 1504, 1504,
- 1504, 1504, 1504, 1504, 1504, 1504, 1504, 1504, 1504, 1504,
- 1505, 1505, 1505, 1505, 1505, 1505, 1505, 1505, 1505, 1505,
- 1505, 1505, 1505, 1505, 1505, 1506, 1506, 1506, 1506, 1506,
- 1506, 1506, 1506, 1506, 1506, 1507, 1507, 1508, 1508, 1508,
- 1508, 1508, 1509, 1510, 1510, 1510, 1510, 1510, 1510, 1510,
- 1510, 1510, 1510, 1510, 1510, 1510, 1510, 1510, 1511, 1511,
- 1511, 1511, 1511, 1511, 1511, 1511, 1511, 1511, 1512, 1512,
- 1512, 1512, 1512, 1512, 1512, 1512, 1512, 1512, 1513, 1513,
- 1514, 1514, 1515, 1515, 1516, 1516, 1516, 1516, 1516, 1517,
- 1517, 1517, 1517, 1517, 1517, 1517, 1517, 1517, 1517, 1517,
- 1517, 1517, 1517, 1517, 1517, 1518, 1518, 1518, 1519, 1519,
- 1519, 1519, 1519, 1519, 1519, 1519, 1520, 1520, 1520, 1520,
- 1520, 1520, 1521, 1521, 1521, 1521, 1521, 1521, 1521, 1521,
- 1522, 1522, 1522, 1522, 1523, 1523, 1523, 1524, 1524, 1524,
- 1524, 1524, 1524, 1525, 1525, 1525, 1525, 1526, 1526, 1526,
- 1526, 1526, 1526, 1526, 1527, 1527, 1527, 1527, 1527, 1527,
- 1527, 1527, 1527, 1527, 1527, 1527, 1527, 1527, 1527, 1527,
- 1527, 1527, 1527, 1527, 1527, 1527, 1527, 1527, 1527, 1527,
- 1527, 1527, 1527, 1527, 1527, 1527, 1527, 1527, 1527, 1527,
- 1527, 1527, 1527, 1527, 1527, 1527, 1527, 1527, 1527, 1527,
- 1527, 1528, 1528, 1528, 1529, 1529, 1529, 1529, 1529, 1529,
- 1529, 1529, 1529, 1530, 1530, 1530, 1530, 1530, 1530, 1530,
- 1530, 1530, 1530, 1530, 1530, 1530, 1530, 1530, 1530, 1530,
- 1530, 1530, 1530, 1530, 1530, 1530, 1531, 1532, 1533, 1533,
- 1533, 1533, 1533, 1533, 1533, 1533, 1534, 1534, 1534, 1535,
- 1535, 1536, 1537, 1537, 1538, 1538, 1539, 1539, 1540, 1540,
- 1540, 1541, 1541, 1542, 1542, 1543, 1543, 1544, 1545, 1545,
- 1546, 1547, 1547, 1548, 1549, 1549, 1550, 1550, 1551, 1552,
- 1552, 1552, 1553, 1554, 1554, 1554, 1555, 1556, 1557, 1557,
- 1558, 1558, 1560, 1561, 1562, 1559, 1563, 1559, 1564, 1565,
- 1564, 1566, 1564, 1567, 1567, 1568, 1569, 1569, 1569, 1570,
- 1570, 1571, 1571, 1571, 1571, 1571, 1572, 1573, 1573, 1574,
- 1574, 1575, 1575, 1575, 1576, 1577, 1578, 1579, 1576, 1580,
- 1580, 1581, 1581, 1582, 1581, 1581, 1581, 1583, 1583, 1585,
- 1584, 1586, 1586, 1587, 1588, 1589, 1589, 1591, 1592, 1590,
- 1594, 1593, 1593, 1595, 1595, 1595, 1595, 1595, 1595, 1595,
- 1595, 1595, 1595, 1595, 1595, 1595, 1595, 1595, 1595, 1595,
- 1595, 1595, 1595, 1595, 1595, 1595, 1595, 1595, 1595, 1595,
- 1595, 1595, 1595, 1595, 1595, 1595, 1595, 1595, 1595, 1595,
- 1595, 1595, 1595, 1595, 1595, 1595, 1595, 1595, 1595, 1595,
- 1595, 1595, 1595, 1595, 1595, 1595, 1595, 1595, 1595, 1595,
- 1595, 1595, 1595, 1595, 1595, 1595, 1595, 1595, 1596, 1595,
- 1595, 1598, 1597, 1600, 1599, 1601, 1599, 1599, 1599, 1599,
- 1599, 1599, 1599, 1599, 1599, 1599, 1599, 1599, 1599, 1599,
- 1599, 1599, 1599, 1599, 1599, 1599, 1599, 1599, 1599, 1599,
- 1599, 1602, 1602, 1604, 1603, 1605, 1605, 1606, 1606, 1606,
- 1607, 1607, 1607, 1608, 1608, 1609, 1609, 1610, 1610, 1611,
- 1611, 1611, 1611, 1611, 1612, 1612, 1613, 1613, 1614, 1614,
- 1616, 1615, 1617, 1615, 1615, 1618, 1619, 1620, 1621, 1621,
- 1621, 1621, 1621, 1621, 1621, 1621, 1621, 1621, 1621, 1621,
- 1621, 1621, 1621, 1621, 1621, 1621, 1621, 1621, 1621, 1621,
- 1621, 1621, 1621, 1621, 1621, 1621, 1621, 1621, 1621, 1621,
- 1621, 1621, 1621, 1621, 1621, 1621, 1622, 1622, 1623, 1624,
- 1624, 1624, 1625, 1625, 1625, 1626, 1626, 1627, 1627, 1629,
- 1628, 1630, 1630, 1630, 1630, 1631, 1631, 1632, 1632, 1634,
- 1633, 1635, 1635, 1636, 1636, 1637, 1637, 1639, 1638, 1640,
- 1640, 1641, 1642, 1642, 1644, 1643, 1646, 1645, 1647, 1648,
- 1647, 1649, 1649, 1649, 1650, 1650, 1651, 1651, 1651, 1651,
- 1651, 1651, 1651, 1652, 1652, 1653, 1653, 1654, 1654, 1655,
- 1656, 1655, 1657, 1657, 1658, 1658, 1658, 1659, 1659, 1659,
- 1659, 1660, 1660, 1660, 1660, 1660, 1661, 1661, 1662, 1662,
- 1663, 1663, 1663, 1664, 1664, 1665, 1665, 1666, 1666, 1667,
- 1668, 1668, 1670, 1669, 1671, 1671, 1672, 1672, 1673, 1673,
- 1675, 1674, 1676, 1676, 1677, 1677, 1678, 1678, 1678, 1678,
- 1678, 1678, 1680, 1679, 1681, 1681, 1683, 1682, 1684, 1685,
- 1685, 1686, 1688, 1687, 1689, 1690, 1689, 1692, 1691, 1693,
- 1693, 1695, 1694, 1696, 1696, 1697, 1697, 1698, 1698, 1700,
- 1699, 1701, 1702, 1702, 1703, 1703, 1703, 1703, 1703, 1705,
- 1704, 1706, 1706, 1706, 1706, 1706, 1706, 1706, 1706, 1706,
- 1706, 1706, 1706, 1707, 1707, 1708, 1708, 1710, 1709, 1711,
- 1711, 1712, 1712, 1713, 1713, 1714, 1714, 1715, 1715, 1715,
- 1715, 1715, 1716, 1716, 1717, 1717, 1717, 1717, 1718, 1718,
- 1720, 1719, 1721, 1723, 1722, 1724, 1724, 1725, 1725, 1725,
- 1727, 1726, 1728, 1728, 1729, 1729, 1730, 1730, 1730, 1730,
- 1730, 1732, 1733, 1731, 1734, 1734, 1736, 1737, 1735, 1739,
- 1738, 1740, 1740, 1740, 1741, 1741, 1742, 1742, 1743, 1743,
- 1743, 1744, 1744, 1745, 1745, 1745, 1745, 1745, 1745, 1745,
- 1745, 1746, 1747, 1748, 1748, 1748, 1749, 1749, 1749, 1749,
- 1750, 1750, 1751, 1751, 1752, 1753, 1754, 1754, 1754, 1754,
- 1754, 1754, 1754, 1754, 1754, 1754, 1754, 1754, 1754, 1754,
- 1754, 1754, 1754, 1754, 1754, 1754, 1754, 1754, 1754, 1754,
- 1755, 1755, 1756, 1756, 1758, 1757, 1759, 1759, 1759, 1759,
- 1759, 1760, 1760, 1762, 1761, 1763, 1765, 1764, 1766, 1764,
- 1767, 1769, 1768, 1770, 1771, 1771, 1772, 1772, 1772, 1773,
- 1773, 1774, 1774, 1775, 1776, 1776, 1776, 1777, 1778, 1778,
- 1778, 1779, 1780, 1780, 1781, 1781, 1782, 1782, 1782, 1782,
- 1782, 1783, 1783, 1784, 1784, 1786, 1785, 1788, 1787, 1789,
- 1789, 1790, 1790, 1791, 1791, 1792, 1792, 1793, 1793, 1795,
- 1794, 1796, 1796, 1796, 1796, 1796, 1796, 1796, 1797, 1797,
- 1797, 1797, 1799, 1798, 1800, 1802, 1801, 1803, 1805, 1804,
- 1806, 1806, 1807, 1807, 1809, 1808, 1811, 1810, 1812, 1813,
- 1813, 1813, 1814, 1814, 1815, 1816, 1817, 1817, 1819, 1818,
- 1820, 1821, 1821, 1822, 1822, 1822, 1823, 1823, 1824, 1824,
- 1825, 1826, 1826, 1826, 1826, 1826, 1826, 1826, 1827, 1827,
- 1829, 1828, 1830, 1830, 1832, 1831, 1833, 1833, 1835, 1834,
- 1836, 1837, 1837, 1838, 1838, 1838, 1839, 1839, 1839, 1839,
- 1841, 1840, 1843, 1842, 1842, 1844, 1844, 1844, 1845, 1845,
- 1845, 1845, 1846, 1846, 1847, 1847, 1849, 1848, 1850, 1851,
- 1852, 1852, 1853, 1853, 1853, 1853, 1853, 1853, 1854, 1854,
- 1855, 1855, 1856, 1856, 1856, 1856, 1856, 1857, 1858, 1858,
- 1858, 1858, 1858, 1859, 1860, 1861, 1863, 1862, 1865, 1866,
- 1864, 1867, 1867, 1868, 1868, 1869, 1870, 1870, 1872, 1871,
- 1873, 1874, 1874, 1876, 1875, 1878, 1877, 1879, 1879, 1880,
- 1880, 1882, 1881, 1883, 1883, 1885, 1884, 1886, 1886, 1887,
- 1887, 1889, 1888, 1890, 1890, 1891, 1892, 1892, 1893, 1893,
- 1893, 1893, 1894, 1894, 1895, 1895, 1895, 1895, 1895, 1896,
- 1896, 1897, 1897, 1897, 1898, 1898, 1898, 1899, 1899, 1899,
- 1900, 1900, 1901, 1901, 1901, 1903, 1902, 1904, 1905, 1904,
- 1906, 1904, 1907, 1907, 1908, 1908, 1909, 1909, 1910, 1910,
- 1910, 1910, 1910, 1911, 1911, 1912, 1912, 1913, 1913, 1914,
- 1915, 1915, 1917, 1916, 1919, 1918, 1920, 1920, 1921, 1923,
- 1922, 1924, 1925, 1925, 1926, 1926, 1926, 1926, 1927, 1927,
- 1928, 1928, 1929, 1929, 1930, 1931, 1931, 1931, 1932, 1932,
- 1933, 1933, 1933, 1934, 1934, 1935, 1935, 1936, 1936, 1937,
- 1939, 1938, 1940, 1941, 1941, 1942, 1942, 1942, 1943, 1943,
- 1944, 1945, 1945, 1946, 1947, 1947, 1949, 1948, 1950, 1951,
- 1953, 1952, 1954, 1955, 1955, 1957, 1956, 1958, 1959, 1959,
- 1960, 1960, 1961, 1961, 1962, 1963, 1965, 1964, 1966, 1964,
- 1967, 1968, 1969, 1969, 1970, 1970, 1971, 1972, 1972, 1973,
- 1974, 1974, 1975, 1977, 1976, 1978, 1978, 1979, 1980, 1981,
- 1981, 1982, 1983, 1983, 1984, 1984, 1984, 1984, 1985, 1985,
- 1987, 1986, 1988, 1988, 1988, 1988, 1988, 1988, 1988, 1988,
- 1989, 1989, 1990, 1990, 1991, 1992, 1993, 1993, 1994, 1994,
- 1994, 1994, 1994, 1994, 1994, 1994, 1995, 1995, 1995, 1995,
- 1995, 1996, 1997, 1997, 1998, 1999, 1999, 2000, 2000, 2001,
- 2002, 2004, 2003, 2006, 2005, 2007, 2007, 2008, 2008, 2009,
- 2009, 2010, 2010, 2011, 2011, 2011, 2012, 2012, 2012, 2014,
- 2013, 2015, 2016, 2016, 2017, 2017, 2017, 2017, 2018, 2018,
- 2018, 2018, 2018, 2018, 2019, 2019, 2020, 2020, 2021, 2023,
- 2022, 2022, 2022, 2022, 2024, 2024, 2024, 2024, 2024, 2025,
- 2025, 2026, 2026, 2027, 2027, 2027, 2027, 2029, 2028, 2030,
- 2032, 2031, 2033, 2033, 2034, 2035, 2035, 2036, 2036, 2037,
- 2037, 2038, 2038, 2040, 2039, 2041, 2041, 2041, 2041, 2042,
- 2042, 2044, 2043, 2045, 2045, 2047, 2046, 2048, 2048, 2050,
- 2049, 2051, 2053, 2052, 2054, 2056, 2055, 2057, 2058, 2058,
- 2059, 2059, 2060, 2061, 2061, 2062, 2063, 2063, 2064, 2064,
- 2065, 2065, 2067, 2066, 2068, 2068, 2070, 2069, 2071, 2071,
- 2071, 2071, 2071, 2072, 2073, 2073, 2074, 2074, 2074, 2074,
- 2074, 2075, 2076, 2076, 2077, 2077, 2077, 2078, 2078, 2078,
- 2078, 2079, 2080, 2080, 2081, 2082, 2083, 2083, 2084, 2084,
- 2085, 2085, 2087, 2086, 2088, 2089, 2089, 2090, 2090, 2090,
- 2090, 2091, 2091, 2092, 2092, 2092, 2093, 2093, 2094, 2096,
- 2095, 2098, 2099, 2097, 2100, 2100, 2101, 2101, 2102, 2103,
- 2103, 2103, 2104, 2104, 2105, 2105, 2106, 2106, 2107, 2107,
- 2108, 2109, 2109, 2110, 2110, 2111, 2111, 2112, 2112, 2113,
- 2113, 2114, 2115, 2115, 2116, 2116, 2116, 2117, 2117, 2118,
- 2118, 2119, 2119, 2119, 2120, 2120, 2120, 2121, 2121, 2122,
- 2122, 2124, 2123, 2126, 2125, 2127, 2127, 2128, 2128, 2129,
- 2129, 2130, 2130, 2131, 2131, 2131, 2132, 2132, 2133, 2134,
- 2134, 2135, 2135, 2136, 2137, 2137, 2138, 2138, 2138, 2139,
- 2139, 2140, 2141, 2141, 2142, 2143, 2143, 2143, 2144, 2144,
- 2145, 2146, 2146, 2147, 2148, 2148, 2148, 2149, 2149, 2150,
- 2151, 2151, 2152, 2153, 2153, 2154, 2154, 2155, 2155, 2156,
- 2157, 2157, 2158, 2159, 2159, 2160, 2160, 2161, 2162, 2162,
- 2163, 2164, 2164, 2165, 2165, 2166, 2166, 2167, 2168, 2168,
- 2169, 2170, 2170, 2171, 2171, 2172, 2172, 2173, 2173, 2174,
- 2174, 2175, 2175, 2176, 2178, 2177, 2179, 2179, 2180, 2180,
- 2180, 2180, 2180, 2180, 2180, 2180, 2180, 2180, 2180, 2180,
- 2180, 2180, 2180, 2180, 2180, 2180, 2180, 2180, 2180, 2180,
- 2181, 2181, 2182, 2184, 2183, 2185, 2185, 2186, 2186, 2186,
- 2186, 2186, 2186, 2186, 2186, 2186, 2186, 2186, 2186, 2186,
- 2186, 2186, 2186, 2186, 2186, 2186, 2186, 2186, 2187, 2187,
- 2188, 2189, 2189, 2189, 2189, 2189, 2189, 2189, 2189, 2189,
- 2189, 2189, 2189, 2189, 2189, 2190, 2190, 2191, 2191, 2192,
- 2192, 2193, 2194, 2195, 2195, 2196, 2196, 2196, 2197, 2197,
- 2197, 2198, 2198, 2198, 2198, 2198, 2198, 2198, 2198, 2198,
- 2198, 2199, 2199, 2200, 2200, 2200, 2200, 2201, 2201, 2202,
- 2202, 2202, 2202, 2202, 2202, 2203, 2203, 2204, 2205, 2206,
- 2206, 2207, 2208, 2208, 2209, 2209, 2210, 2211, 2212, 2213,
- 2213, 2214, 2215, 2215, 2216, 2217, 2217, 2218, 2219, 2219,
- 2219, 2220, 2221, 2221, 2222, 2223, 2223, 2224, 2224, 2225,
- 2226, 2226, 2227, 2228, 2228, 2229, 2229, 2230, 2231, 2232,
- 2232, 2233, 2233, 2233, 2234, 2234, 2235, 2235, 2236, 2236,
- 2237, 2237, 2238, 2238, 2238, 2238, 2238, 2238, 2238, 2238,
- 2238, 2239, 2240, 2240, 2241, 2241, 2241, 2242, 2242, 2242,
- 2242, 2242, 2242, 2242, 2243, 2243, 2243, 2243, 2243, 2243,
- 2244, 2245, 2246, 2247, 2248, 2248, 2249, 2249, 2250, 2251,
- 2251, 2252, 2252, 2253, 2253, 2253, 2254, 2254, 2255, 2255,
- 2256, 2256, 2256, 2257, 2257, 2257, 2258, 2258, 2258, 2259,
- 2259, 2260, 2260, 2261, 2261, 2262, 2262, 2262, 2263, 2264,
- 2265, 2265, 2266, 2267, 2268, 2269, 2270, 2271, 2272, 2272,
- 2272, 2272, 2273, 2273, 2274, 2274, 2275, 2276, 2276, 2277,
- 2277, 2277, 2277, 2278, 2279, 2280, 2281, 2281, 2283, 2282,
- 2284, 2284, 2285, 2286, 2286, 2287, 2288, 2289, 2290, 2290,
- 2291, 2291, 2292, 2292, 2292, 2292, 2292, 2292, 2293, 2293,
- 2294, 2294, 2295, 2295, 2296, 2296, 2296, 2296, 2297, 2297,
- 2297, 2297, 2297, 2297, 2297, 2297, 2297, 2297, 2297, 2297,
- 2297, 2297, 2298, 2298, 2299, 2299, 2299, 2299, 2300, 2300,
- 2300, 2300, 2300, 2301, 2301, 2301, 2302, 2302, 2302, 2303,
- 2303, 2303, 2305, 2304, 2306, 2306, 2307, 2307, 2308, 2308,
- 2309, 2309, 2310, 2311, 2311, 2312, 2312, 2312, 2313, 2313,
- 2314, 2314, 2315, 2315, 2316, 2316, 2316, 2317, 2317, 2318,
- 2318, 2318, 2319, 2319, 2320, 2320, 2321, 2321, 2321, 2321,
- 2321, 2321, 2321, 2321, 2322, 2322, 2323, 2323, 2324, 2324,
- 2325, 2325, 2325, 2325, 2326, 2326, 2326, 2326, 2326, 2326,
- 2326, 2326, 2326, 2326, 2326, 2326, 2326, 2326, 2326, 2326,
- 2326, 2326, 2326, 2326, 2326, 2326, 2326, 2326, 2326, 2326,
- 2326, 2326, 2326, 2326, 2326, 2326, 2326, 2326, 2326, 2326,
- 2326, 2326, 2326, 2326, 2326, 2326, 2326, 2326, 2326, 2326,
- 2326, 2326, 2326, 2326, 2326, 2326, 2327, 2327, 2327, 2327,
- 2327, 2327, 2327, 2327, 2327, 2327, 2327, 2327, 2327, 2327,
- 2327, 2327, 2327, 2327, 2327, 2327, 2327, 2327, 2327, 2328,
- 2328, 2329, 2329, 2330, 2331, 2331, 2331, 2332, 2333, 2334,
- 2335, 2335, 2335, 2336, 2336, 2336, 2336, 2337, 2337, 2338,
- 2338, 2338, 2338, 2338, 2338, 2339, 2339, 2339, 2340, 2340,
- 2341, 2341, 2342, 2342, 2343, 2343, 2344, 2344, 2344, 2345,
- 2345, 2346, 2346, 2347, 2347, 2348, 2348, 2349, 2349, 2350,
- 2350, 2351, 2351, 2352, 2352, 2353, 2353, 2354, 2354, 2355,
- 2355, 2356, 2356, 2357, 2357, 2358, 2358, 2359, 2359, 2360,
- 2360, 2361, 2361, 2362, 2362, 2363, 2363, 2364, 2364, 2364,
- 2365, 2365, 2365, 2366, 2366, 2367, 2367, 2368, 2368, 2369,
- 2369, 2370, 2370, 2371, 2371, 2371, 2372, 2372, 2372, 2373,
- 2373, 2373, 2373, 2374, 2374, 2374, 2375, 2375, 2376, 2376,
- 2377, 2377, 2377, 2378, 2378, 2378, 2379, 2379, 2380, 2380,
- 2381, 2381, 2382, 2382, 2383, 2383, 2384, 2384, 2385, 2385,
- 2386, 2386, 2387, 2387, 2388, 2388, 2388, 2389, 2389, 2389,
- 2389, 2390, 2390, 2391, 2391, 2392, 2392, 2393, 2393, 2394,
- 2394, 2395, 2395, 2396, 2396, 2396, 2397, 2397, 2398, 2398,
- 2399, 2399, 2400, 2400, 2400, 2401, 2401, 2402, 2402, 2403,
- 2403, 2404, 2404, 2405, 2405, 2406, 2406, 2407, 2407, 2408,
- 2408, 2409, 2409, 2410, 2410, 2411, 2411, 2412, 2412, 2413,
- 2413, 2414, 2414, 2414, 2415, 2415, 2416, 2416, 2417, 2417,
- 2418, 2418, 2419, 2419, 2420, 2420, 2421, 2421, 2422, 2422,
- 2422, 2422, 2423, 2423, 2424, 2424, 2425, 2425, 2426, 2426,
- 2427, 2427, 2428, 2428, 2429, 2429, 2430, 2430, 2430, 2431,
- 2431, 2432, 2432, 2433, 2433, 2434, 2434, 2435, 2435, 2436,
- 2436, 2437, 2437, 2438, 2438, 2439, 2439, 2440, 2440, 2441,
- 2441, 2442, 2442, 2443, 2443, 2444, 2444
-};
-
- /* YYR2[YYN] -- Number of symbols on the right hand side of rule YYN. */
-static const yytype_uint8 yyr2[] =
-{
- 0, 2, 0, 2, 1, 1, 0, 3, 1, 2,
- 1, 1, 1, 1, 0, 2, 4, 4, 0, 1,
- 1, 2, 0, 4, 0, 4, 0, 0, 14, 0,
- 0, 14, 0, 0, 6, 1, 0, 0, 5, 0,
- 0, 5, 0, 3, 0, 0, 4, 0, 0, 4,
- 0, 0, 6, 0, 1, 0, 4, 1, 1, 1,
- 6, 1, 5, 1, 1, 1, 1, 0, 2, 0,
- 3, 1, 1, 1, 1, 2, 2, 1, 1, 0,
- 3, 5, 0, 3, 1, 1, 1, 1, 0, 5,
- 0, 3, 1, 1, 1, 0, 4, 1, 1, 1,
- 1, 3, 0, 1, 1, 3, 2, 0, 1, 1,
- 3, 0, 1, 1, 2, 1, 1, 1, 1, 1,
- 0, 1, 0, 4, 0, 3, 0, 3, 0, 4,
- 0, 2, 3, 2, 1, 2, 1, 1, 1, 1,
- 5, 2, 3, 2, 3, 4, 4, 8, 8, 3,
- 4, 1, 1, 1, 1, 1, 2, 0, 1, 0,
- 4, 0, 2, 3, 1, 2, 3, 3, 3, 3,
- 3, 1, 2, 2, 2, 1, 2, 2, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 0, 3, 1, 1, 2, 3, 3,
- 1, 0, 1, 1, 3, 4, 0, 4, 0, 4,
- 0, 4, 0, 2, 2, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 2, 1, 1, 2, 1,
- 3, 0, 4, 1, 3, 1, 1, 1, 1, 1,
- 1, 1, 1, 0, 2, 2, 0, 2, 2, 4,
- 1, 2, 3, 1, 2, 1, 2, 3, 1, 2,
- 3, 6, 1, 2, 1, 3, 4, 0, 4, 1,
- 1, 5, 0, 3, 3, 5, 3, 4, 3, 3,
- 0, 4, 4, 1, 0, 3, 0, 2, 0, 2,
- 0, 0, 6, 2, 2, 0, 2, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 5, 5, 6,
- 6, 4, 0, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 3, 0, 1, 1, 1, 1, 1,
- 4, 1, 1, 1, 9, 0, 1, 0, 4, 1,
- 0, 4, 3, 1, 3, 2, 3, 4, 4, 8,
- 8, 6, 1, 1, 1, 1, 1, 1, 5, 0,
- 1, 1, 0, 5, 2, 2, 2, 0, 5, 6,
- 1, 0, 1, 2, 0, 2, 3, 1, 1, 3,
- 1, 2, 4, 0, 5, 1, 1, 1, 1, 7,
- 0, 2, 1, 2, 0, 2, 2, 1, 4, 3,
- 1, 1, 3, 2, 2, 2, 3, 3, 4, 4,
- 4, 4, 4, 0, 2, 2, 0, 2, 3, 1,
- 2, 1, 1, 1, 1, 5, 0, 1, 1, 1,
- 4, 4, 4, 4, 1, 6, 6, 7, 4, 6,
- 4, 6, 4, 0, 6, 1, 2, 2, 0, 2,
- 6, 2, 2, 3, 0, 1, 5, 2, 0, 1,
- 2, 3, 1, 2, 1, 1, 1, 0, 10, 0,
- 1, 1, 3, 1, 0, 3, 0, 2, 2, 0,
- 5, 3, 1, 1, 0, 2, 2, 2, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 5, 0, 1,
- 1, 4, 7, 9, 0, 3, 0, 2, 0, 2,
- 3, 5, 5, 1, 1, 1, 1, 3, 5, 0,
- 2, 1, 1, 1, 4, 2, 2, 4, 1, 1,
- 1, 1, 1, 1, 1, 4, 0, 2, 2, 2,
- 2, 1, 2, 1, 0, 0, 5, 0, 2, 2,
- 1, 0, 5, 0, 2, 4, 3, 4, 0, 1,
- 1, 1, 2, 4, 4, 4, 4, 4, 4, 4,
- 4, 4, 4, 4, 11, 0, 1, 1, 2, 4,
- 4, 4, 6, 4, 3, 4, 0, 1, 1, 1,
- 2, 4, 4, 4, 4, 4, 4, 6, 1, 0,
- 0, 5, 0, 0, 2, 2, 3, 1, 1, 1,
- 0, 4, 4, 2, 2, 0, 1, 1, 1, 1,
- 0, 2, 1, 2, 3, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 2, 1, 1, 1, 1, 1, 1, 1, 1, 6,
- 0, 2, 0, 4, 0, 1, 5, 0, 7, 2,
- 2, 1, 3, 1, 1, 2, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 0, 1, 1, 2,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 2, 3, 0, 1, 3, 3, 3, 0, 1, 3,
- 0, 2, 0, 1, 2, 0, 4, 1, 2, 1,
- 1, 0, 4, 1, 1, 3, 1, 1, 1, 1,
- 0, 3, 0, 5, 3, 1, 0, 2, 1, 3,
- 2, 3, 3, 3, 2, 3, 0, 2, 1, 1,
- 1, 1, 1, 1, 2, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 2, 3, 2, 1, 3, 3, 4, 3, 3, 3,
- 4, 3, 3, 1, 1, 1, 1, 1, 1, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 1,
- 1, 1, 1, 1, 1, 1, 1, 0, 2, 0,
- 2, 3, 0, 1, 2, 3, 0, 2, 0, 1,
- 1, 1, 1, 0, 1, 1, 1, 1, 1, 1,
- 0, 1, 3, 3, 2, 6, 0, 2, 6, 8,
- 7, 0, 2, 0, 2, 0, 2, 0, 3, 0,
- 3, 0, 1, 0, 2, 0, 3, 1, 1, 1,
- 1, 2, 4, 1, 1, 0, 1, 3, 1, 2,
- 1, 2, 2, 0, 1, 1, 3, 1, 3, 3,
- 4, 4, 3, 1, 2, 3, 4, 4, 2, 0,
- 2, 3, 0, 1, 3, 3, 1, 3, 2, 2,
- 1, 2, 1, 2, 0, 4, 1, 1, 2, 3,
- 1, 0, 1, 1, 4, 3, 1, 1, 0, 2,
- 7, 2, 3, 0, 2, 2, 2, 3, 1, 1,
- 3, 1, 1, 1, 1, 1, 1, 1, 3, 3,
- 3, 2, 2, 2, 4, 1, 0, 0, 5, 1,
- 0, 0, 5, 0, 0, 0, 6, 0, 2, 0,
- 0, 7, 0, 2, 2, 2, 4, 1, 1, 2,
- 2, 1, 1, 1, 1, 2, 1, 4, 2, 1,
- 3, 2, 1, 1, 0, 2, 1, 1, 1, 1,
- 1, 3, 3, 4, 4, 4, 3, 0, 2, 0,
- 5, 3, 0, 2, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 3, 1, 1, 3, 3, 1, 1, 1, 0,
- 2, 2, 0, 2, 0, 2, 2, 1, 3, 1,
- 2, 1, 1, 1, 1, 4, 0, 3, 2, 1,
- 1, 3, 4, 5, 4, 5, 1, 1, 0, 2,
- 1, 1, 1, 2, 1, 2, 3, 0, 2, 0,
- 2, 2, 3, 2, 0, 2, 1, 2, 2, 4,
- 0, 1, 1, 1, 1, 2, 1, 1, 2, 1,
- 4, 2, 0, 0, 0, 6, 0, 1, 2, 3,
- 1, 0, 4, 0, 0, 7, 3, 0, 2, 2,
- 2, 1, 1, 2, 2, 1, 1, 1, 1, 1,
- 1, 1, 3, 3, 3, 3, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 4, 1, 1,
- 2, 3, 2, 2, 2, 3, 3, 3, 3, 1,
- 1, 1, 1, 1, 1, 1, 1, 2, 2, 2,
- 2, 0, 2, 1, 2, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 0, 1, 1, 2, 1,
- 3, 5, 3, 2, 2, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 2, 3, 3, 1, 2, 3, 3,
- 3, 1, 2, 1, 2, 0, 1, 1, 1, 1,
- 1, 1, 1, 2, 1, 1, 0, 1, 4, 0,
- 1, 1, 4, 0, 1, 1, 3, 2, 0, 2,
- 0, 1, 0, 0, 0, 12, 0, 4, 0, 0,
- 3, 0, 3, 1, 2, 5, 0, 2, 2, 0,
- 1, 3, 3, 4, 2, 1, 3, 0, 5, 0,
- 1, 0, 2, 2, 0, 0, 0, 0, 9, 0,
- 2, 1, 1, 0, 3, 1, 1, 1, 1, 0,
- 6, 0, 2, 2, 2, 0, 1, 0, 0, 3,
- 0, 2, 2, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 0, 3,
- 2, 0, 4, 0, 4, 0, 5, 3, 3, 3,
- 3, 4, 3, 4, 3, 3, 4, 4, 4, 3,
- 3, 4, 3, 4, 5, 3, 4, 3, 3, 2,
- 3, 1, 1, 0, 3, 0, 1, 5, 4, 4,
- 1, 3, 3, 1, 1, 0, 1, 1, 2, 1,
- 1, 1, 2, 3, 1, 2, 1, 3, 1, 2,
- 0, 3, 0, 3, 2, 3, 3, 3, 1, 1,
- 1, 2, 1, 3, 3, 1, 2, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 4, 1, 1, 1, 1, 4, 2, 1, 1,
- 3, 3, 3, 3, 3, 4, 0, 1, 1, 2,
- 1, 1, 1, 1, 1, 1, 1, 0, 1, 0,
- 4, 4, 5, 6, 8, 0, 2, 0, 1, 0,
- 3, 4, 5, 0, 2, 0, 2, 0, 3, 1,
- 2, 4, 0, 2, 0, 4, 0, 9, 0, 0,
- 4, 1, 1, 1, 0, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 2, 0, 2, 1, 1, 0,
- 0, 3, 1, 2, 2, 2, 3, 0, 2, 2,
- 2, 0, 3, 2, 2, 4, 1, 1, 1, 1,
- 0, 2, 2, 0, 1, 2, 2, 0, 1, 2,
- 0, 1, 0, 3, 1, 1, 1, 2, 1, 1,
- 0, 3, 1, 1, 2, 3, 0, 3, 2, 1,
- 3, 4, 0, 4, 0, 3, 0, 4, 4, 0,
- 1, 1, 0, 3, 0, 0, 4, 0, 3, 2,
- 1, 0, 4, 4, 3, 1, 2, 0, 1, 0,
- 3, 3, 0, 3, 0, 2, 1, 2, 1, 0,
- 4, 3, 3, 3, 3, 2, 4, 1, 1, 1,
- 1, 1, 1, 2, 1, 1, 2, 0, 3, 1,
- 1, 0, 2, 1, 2, 1, 2, 1, 2, 1,
- 1, 2, 0, 1, 2, 2, 2, 2, 1, 1,
- 0, 3, 2, 0, 3, 1, 2, 1, 1, 1,
- 0, 5, 0, 1, 1, 2, 3, 3, 3, 3,
- 2, 0, 0, 5, 1, 1, 0, 0, 7, 0,
- 5, 1, 1, 1, 0, 1, 0, 2, 1, 2,
- 1, 1, 2, 1, 2, 1, 5, 1, 1, 1,
- 2, 1, 1, 0, 1, 1, 1, 1, 0, 1,
- 3, 3, 1, 1, 4, 3, 1, 2, 2, 1,
- 3, 3, 1, 2, 2, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 3, 1, 3, 3, 3, 3,
- 1, 1, 0, 1, 0, 4, 4, 6, 6, 8,
- 8, 0, 1, 0, 3, 1, 0, 3, 0, 6,
- 4, 0, 4, 2, 1, 3, 1, 1, 1, 2,
- 1, 1, 2, 1, 2, 2, 2, 2, 2, 2,
- 2, 1, 2, 3, 1, 3, 2, 1, 1, 1,
- 1, 0, 2, 0, 1, 0, 3, 0, 7, 0,
- 1, 0, 1, 0, 1, 1, 2, 1, 1, 0,
- 3, 0, 2, 1, 2, 1, 1, 1, 0, 2,
- 2, 3, 0, 3, 1, 0, 3, 1, 0, 3,
- 3, 4, 0, 3, 0, 3, 0, 6, 1, 5,
- 3, 2, 0, 1, 0, 0, 0, 1, 0, 3,
- 5, 0, 2, 0, 3, 3, 0, 2, 1, 2,
- 4, 1, 1, 1, 1, 1, 1, 1, 0, 3,
- 0, 3, 1, 2, 0, 3, 2, 2, 0, 3,
- 3, 0, 1, 1, 1, 1, 2, 1, 1, 1,
- 0, 4, 0, 5, 5, 1, 1, 2, 1, 1,
- 1, 2, 0, 3, 1, 1, 0, 3, 2, 5,
- 1, 2, 2, 2, 1, 1, 1, 2, 1, 2,
- 4, 2, 0, 1, 1, 1, 1, 4, 0, 1,
- 1, 2, 2, 3, 3, 1, 0, 5, 0, 0,
- 9, 0, 2, 1, 2, 1, 0, 1, 0, 5,
- 7, 0, 2, 0, 3, 0, 4, 2, 2, 0,
- 1, 0, 3, 3, 4, 0, 4, 4, 6, 0,
- 1, 0, 3, 1, 2, 6, 0, 1, 1, 1,
- 1, 1, 0, 3, 0, 1, 1, 2, 1, 2,
- 2, 1, 1, 1, 2, 1, 1, 1, 1, 1,
- 3, 1, 1, 1, 1, 0, 3, 4, 0, 6,
- 0, 5, 0, 1, 1, 1, 1, 3, 0, 2,
- 1, 3, 3, 0, 3, 1, 1, 1, 3, 6,
- 0, 2, 0, 3, 0, 3, 2, 1, 1, 0,
- 4, 7, 0, 2, 0, 1, 2, 1, 2, 3,
- 3, 1, 0, 1, 1, 4, 4, 2, 0, 1,
- 1, 3, 2, 0, 3, 1, 1, 0, 1, 1,
- 0, 4, 5, 1, 1, 0, 2, 2, 0, 1,
- 2, 0, 1, 2, 0, 1, 0, 3, 2, 1,
- 0, 4, 4, 0, 1, 0, 4, 5, 0, 1,
- 2, 3, 0, 1, 1, 1, 0, 4, 0, 5,
- 4, 5, 0, 2, 0, 3, 0, 1, 2, 3,
- 0, 2, 0, 0, 3, 2, 1, 5, 1, 0,
- 1, 2, 2, 5, 2, 2, 2, 2, 0, 2,
- 0, 3, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 4, 3, 1, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 4, 7, 7, 3,
- 5, 4, 1, 2, 3, 1, 2, 3, 3, 4,
- 4, 0, 3, 0, 7, 0, 5, 0, 2, 0,
- 3, 0, 1, 0, 2, 4, 0, 2, 4, 0,
- 4, 4, 0, 3, 0, 4, 1, 1, 1, 2,
- 2, 2, 2, 1, 2, 1, 0, 1, 1, 0,
- 4, 2, 2, 2, 0, 2, 1, 4, 4, 0,
- 1, 1, 1, 1, 1, 1, 1, 0, 4, 5,
- 0, 2, 1, 2, 2, 0, 3, 1, 1, 0,
- 4, 0, 1, 0, 4, 4, 6, 6, 8, 0,
- 1, 0, 3, 0, 1, 0, 3, 1, 2, 0,
- 3, 6, 0, 3, 2, 0, 4, 6, 0, 3,
- 1, 3, 2, 2, 2, 3, 0, 3, 0, 3,
- 0, 1, 0, 3, 1, 2, 0, 3, 1, 1,
- 1, 1, 1, 7, 0, 1, 1, 1, 1, 1,
- 1, 4, 1, 2, 1, 2, 3, 0, 1, 2,
- 1, 3, 1, 1, 4, 2, 1, 2, 1, 2,
- 1, 1, 0, 4, 6, 0, 2, 0, 4, 3,
- 3, 1, 1, 0, 1, 1, 0, 1, 1, 0,
- 5, 0, 0, 12, 0, 1, 1, 2, 2, 2,
- 1, 1, 0, 4, 0, 3, 0, 3, 1, 2,
- 3, 0, 3, 1, 2, 3, 3, 0, 3, 1,
- 2, 3, 0, 1, 1, 1, 1, 0, 2, 1,
- 2, 1, 2, 2, 2, 2, 1, 1, 3, 0,
- 1, 0, 5, 0, 10, 0, 3, 0, 2, 0,
- 3, 1, 2, 0, 2, 2, 0, 1, 3, 1,
- 1, 0, 1, 2, 1, 1, 0, 2, 2, 0,
- 1, 2, 0, 1, 2, 0, 2, 2, 0, 1,
- 2, 0, 1, 2, 0, 2, 2, 0, 1, 2,
- 0, 1, 2, 2, 2, 2, 2, 0, 1, 2,
- 0, 1, 2, 2, 2, 0, 1, 2, 0, 1,
- 2, 0, 1, 2, 2, 0, 1, 2, 0, 1,
- 2, 0, 2, 0, 3, 2, 1, 0, 2, 0,
- 3, 1, 1, 1, 0, 2, 1, 2, 1, 2,
- 3, 3, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 0, 2, 1, 2, 1, 1, 2,
- 2, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 0, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 2, 1, 1, 1,
- 1, 1, 1, 1, 3, 0, 1, 1, 3, 3,
- 1, 3, 3, 3, 3, 3, 3, 3, 3, 3,
- 1, 3, 1, 2, 2, 2, 1, 3, 1, 1,
- 3, 1, 3, 1, 3, 1, 2, 2, 1, 1,
- 2, 1, 1, 2, 2, 3, 1, 1, 1, 1,
- 2, 1, 1, 2, 1, 0, 2, 1, 1, 1,
- 3, 1, 1, 2, 1, 0, 1, 1, 2, 1,
- 1, 2, 1, 1, 1, 1, 1, 1, 1, 1,
- 2, 1, 1, 3, 0, 1, 1, 2, 1, 1,
- 1, 1, 1, 1, 1, 2, 2, 2, 4, 3,
- 1, 1, 1, 2, 1, 1, 1, 1, 1, 1,
- 1, 2, 2, 2, 1, 1, 1, 2, 2, 2,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 2, 1, 1, 1, 1, 1, 1, 3, 2,
- 2, 1, 1, 2, 1, 2, 1, 1, 1, 3,
- 2, 2, 1, 1, 1, 1, 1, 3, 0, 2,
- 1, 3, 3, 4, 5, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 2,
- 1, 3, 1, 1, 1, 1, 1, 1, 2, 5,
- 5, 5, 5, 6, 5, 5, 5, 5, 5, 5,
- 3, 3, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 0, 4, 5, 0, 3, 2, 1,
- 3, 3, 0, 2, 1, 3, 1, 3, 1, 3,
- 1, 3, 0, 0, 1, 0, 3, 2, 0, 1,
- 0, 2, 0, 2, 0, 1, 1, 0, 1, 0,
- 1, 2, 0, 2, 0, 3, 1, 1, 1, 1,
- 1, 1, 1, 1, 0, 2, 0, 5, 0, 3,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 0, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 0, 1,
- 0, 1, 0, 1, 0, 1, 0, 1, 1, 0,
- 1, 0, 1, 0, 1, 0, 1, 0, 1, 0,
- 1, 0, 1, 0, 1, 0, 1, 0, 1, 0,
- 1, 0, 1, 0, 1, 0, 3, 0, 1, 0,
- 1, 0, 1, 0, 1, 0, 1, 0, 1, 1,
- 0, 1, 2, 0, 1, 0, 1, 0, 1, 0,
- 1, 0, 1, 0, 1, 1, 0, 1, 1, 0,
- 1, 1, 1, 0, 1, 1, 0, 1, 0, 1,
- 0, 1, 1, 0, 2, 2, 0, 1, 0, 1,
- 0, 1, 0, 1, 0, 1, 0, 1, 1, 1,
- 0, 1, 0, 1, 0, 1, 1, 0, 2, 1,
- 1, 0, 1, 0, 1, 0, 1, 0, 1, 0,
- 1, 0, 1, 0, 1, 1, 0, 1, 0, 1,
- 0, 1, 0, 1, 2, 0, 1, 0, 1, 0,
- 1, 0, 1, 0, 1, 0, 1, 0, 1, 0,
- 1, 0, 1, 0, 1, 0, 1, 0, 3, 0,
- 1, 0, 1, 1, 0, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 2,
- 2, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 2, 1, 2, 1, 2, 1, 2,
- 1, 2, 1, 2, 1, 2, 2
-};
-
-
-#define yyerrok (yyerrstatus = 0)
-#define yyclearin (yychar = YYEMPTY)
-#define YYEMPTY (-2)
-#define YYEOF 0
-
-#define YYACCEPT goto yyacceptlab
-#define YYABORT goto yyabortlab
-#define YYERROR goto yyerrorlab
-
-
-#define YYRECOVERING() (!!yyerrstatus)
-
-#define YYBACKUP(Token, Value) \
-do \
- if (yychar == YYEMPTY) \
- { \
- yychar = (Token); \
- yylval = (Value); \
- YYPOPSTACK (yylen); \
- yystate = *yyssp; \
- goto yybackup; \
- } \
- else \
- { \
- yyerror (YY_("syntax error: cannot back up")); \
- YYERROR; \
- } \
-while (0)
-
-/* Error token number */
-#define YYTERROR 1
-#define YYERRCODE 256
-
-
-
-/* Enable debugging if requested. */
-#if YYDEBUG
-
-# ifndef YYFPRINTF
-# include <stdio.h> /* INFRINGES ON USER NAME SPACE */
-# define YYFPRINTF fprintf
-# endif
-
-# define YYDPRINTF(Args) \
-do { \
- if (yydebug) \
- YYFPRINTF Args; \
-} while (0)
-
-/* This macro is provided for backward compatibility. */
-#ifndef YY_LOCATION_PRINT
-# define YY_LOCATION_PRINT(File, Loc) ((void) 0)
-#endif
-
-
-# define YY_SYMBOL_PRINT(Title, Type, Value, Location) \
-do { \
- if (yydebug) \
- { \
- YYFPRINTF (stderr, "%s ", Title); \
- yy_symbol_print (stderr, \
- Type, Value); \
- YYFPRINTF (stderr, "\n"); \
- } \
-} while (0)
-
-
-/*----------------------------------------.
-| Print this symbol's value on YYOUTPUT. |
-`----------------------------------------*/
-
-static void
-yy_symbol_value_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep)
-{
- FILE *yyo = yyoutput;
- YYUSE (yyo);
- if (!yyvaluep)
- return;
-# ifdef YYPRINT
- if (yytype < YYNTOKENS)
- YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep);
-# endif
- YYUSE (yytype);
-}
-
-
-/*--------------------------------.
-| Print this symbol on YYOUTPUT. |
-`--------------------------------*/
-
-static void
-yy_symbol_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep)
-{
- YYFPRINTF (yyoutput, "%s %s (",
- yytype < YYNTOKENS ? "token" : "nterm", yytname[yytype]);
-
- yy_symbol_value_print (yyoutput, yytype, yyvaluep);
- YYFPRINTF (yyoutput, ")");
-}
-
-/*------------------------------------------------------------------.
-| yy_stack_print -- Print the state stack from its BOTTOM up to its |
-| TOP (included). |
-`------------------------------------------------------------------*/
-
-static void
-yy_stack_print (yytype_int16 *yybottom, yytype_int16 *yytop)
-{
- YYFPRINTF (stderr, "Stack now");
- for (; yybottom <= yytop; yybottom++)
- {
- int yybot = *yybottom;
- YYFPRINTF (stderr, " %d", yybot);
- }
- YYFPRINTF (stderr, "\n");
-}
-
-# define YY_STACK_PRINT(Bottom, Top) \
-do { \
- if (yydebug) \
- yy_stack_print ((Bottom), (Top)); \
-} while (0)
-
-
-/*------------------------------------------------.
-| Report that the YYRULE is going to be reduced. |
-`------------------------------------------------*/
-
-static void
-yy_reduce_print (yytype_int16 *yyssp, YYSTYPE *yyvsp, int yyrule)
-{
- unsigned long int yylno = yyrline[yyrule];
- int yynrhs = yyr2[yyrule];
- int yyi;
- YYFPRINTF (stderr, "Reducing stack by rule %d (line %lu):\n",
- yyrule - 1, yylno);
- /* The symbols being reduced. */
- for (yyi = 0; yyi < yynrhs; yyi++)
- {
- YYFPRINTF (stderr, " $%d = ", yyi + 1);
- yy_symbol_print (stderr,
- yystos[yyssp[yyi + 1 - yynrhs]],
- &(yyvsp[(yyi + 1) - (yynrhs)])
- );
- YYFPRINTF (stderr, "\n");
- }
-}
-
-# define YY_REDUCE_PRINT(Rule) \
-do { \
- if (yydebug) \
- yy_reduce_print (yyssp, yyvsp, Rule); \
-} while (0)
-
-/* Nonzero means print parse trace. It is left uninitialized so that
- multiple parsers can coexist. */
-int yydebug;
-#else /* !YYDEBUG */
-# define YYDPRINTF(Args)
-# define YY_SYMBOL_PRINT(Title, Type, Value, Location)
-# define YY_STACK_PRINT(Bottom, Top)
-# define YY_REDUCE_PRINT(Rule)
-#endif /* !YYDEBUG */
-
-
-/* YYINITDEPTH -- initial size of the parser's stacks. */
-#ifndef YYINITDEPTH
-# define YYINITDEPTH 200
-#endif
-
-/* YYMAXDEPTH -- maximum size the stacks can grow to (effective only
- if the built-in stack extension method is used).
-
- Do not make this value too large; the results are undefined if
- YYSTACK_ALLOC_MAXIMUM < YYSTACK_BYTES (YYMAXDEPTH)
- evaluated with infinite-precision integer arithmetic. */
-
-#ifndef YYMAXDEPTH
-# define YYMAXDEPTH 10000
-#endif
-
-
-#if YYERROR_VERBOSE
-
-# ifndef yystrlen
-# if defined __GLIBC__ && defined _STRING_H
-# define yystrlen strlen
-# else
-/* Return the length of YYSTR. */
-static YYSIZE_T
-yystrlen (const char *yystr)
-{
- YYSIZE_T yylen;
- for (yylen = 0; yystr[yylen]; yylen++)
- continue;
- return yylen;
-}
-# endif
-# endif
-
-# ifndef yystpcpy
-# if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE
-# define yystpcpy stpcpy
-# else
-/* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in
- YYDEST. */
-static char *
-yystpcpy (char *yydest, const char *yysrc)
-{
- char *yyd = yydest;
- const char *yys = yysrc;
-
- while ((*yyd++ = *yys++) != '\0')
- continue;
-
- return yyd - 1;
-}
-# endif
-# endif
-
-# ifndef yytnamerr
-/* Copy to YYRES the contents of YYSTR after stripping away unnecessary
- quotes and backslashes, so that it's suitable for yyerror. The
- heuristic is that double-quoting is unnecessary unless the string
- contains an apostrophe, a comma, or backslash (other than
- backslash-backslash). YYSTR is taken from yytname. If YYRES is
- null, do not copy; instead, return the length of what the result
- would have been. */
-static YYSIZE_T
-yytnamerr (char *yyres, const char *yystr)
-{
- if (*yystr == '"')
- {
- YYSIZE_T yyn = 0;
- char const *yyp = yystr;
-
- for (;;)
- switch (*++yyp)
- {
- case '\'':
- case ',':
- goto do_not_strip_quotes;
-
- case '\\':
- if (*++yyp != '\\')
- goto do_not_strip_quotes;
- /* Fall through. */
- default:
- if (yyres)
- yyres[yyn] = *yyp;
- yyn++;
- break;
-
- case '"':
- if (yyres)
- yyres[yyn] = '\0';
- return yyn;
- }
- do_not_strip_quotes: ;
- }
-
- if (! yyres)
- return yystrlen (yystr);
-
- return yystpcpy (yyres, yystr) - yyres;
-}
-# endif
-
-/* Copy into *YYMSG, which is of size *YYMSG_ALLOC, an error message
- about the unexpected token YYTOKEN for the state stack whose top is
- YYSSP.
-
- Return 0 if *YYMSG was successfully written. Return 1 if *YYMSG is
- not large enough to hold the message. In that case, also set
- *YYMSG_ALLOC to the required number of bytes. Return 2 if the
- required number of bytes is too large to store. */
-static int
-yysyntax_error (YYSIZE_T *yymsg_alloc, char **yymsg,
- yytype_int16 *yyssp, int yytoken)
-{
- YYSIZE_T yysize0 = yytnamerr (YY_NULLPTR, yytname[yytoken]);
- YYSIZE_T yysize = yysize0;
- enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 };
- /* Internationalized format string. */
- const char *yyformat = YY_NULLPTR;
- /* Arguments of yyformat. */
- char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM];
- /* Number of reported tokens (one for the "unexpected", one per
- "expected"). */
- int yycount = 0;
-
- /* There are many possibilities here to consider:
- - If this state is a consistent state with a default action, then
- the only way this function was invoked is if the default action
- is an error action. In that case, don't check for expected
- tokens because there are none.
- - The only way there can be no lookahead present (in yychar) is if
- this state is a consistent state with a default action. Thus,
- detecting the absence of a lookahead is sufficient to determine
- that there is no unexpected or expected token to report. In that
- case, just report a simple "syntax error".
- - Don't assume there isn't a lookahead just because this state is a
- consistent state with a default action. There might have been a
- previous inconsistent state, consistent state with a non-default
- action, or user semantic action that manipulated yychar.
- - Of course, the expected token list depends on states to have
- correct lookahead information, and it depends on the parser not
- to perform extra reductions after fetching a lookahead from the
- scanner and before detecting a syntax error. Thus, state merging
- (from LALR or IELR) and default reductions corrupt the expected
- token list. However, the list is correct for canonical LR with
- one exception: it will still contain any token that will not be
- accepted due to an error action in a later state.
- */
- if (yytoken != YYEMPTY)
- {
- int yyn = yypact[*yyssp];
- yyarg[yycount++] = yytname[yytoken];
- if (!yypact_value_is_default (yyn))
- {
- /* Start YYX at -YYN if negative to avoid negative indexes in
- YYCHECK. In other words, skip the first -YYN actions for
- this state because they are default actions. */
- int yyxbegin = yyn < 0 ? -yyn : 0;
- /* Stay within bounds of both yycheck and yytname. */
- int yychecklim = YYLAST - yyn + 1;
- int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS;
- int yyx;
-
- for (yyx = yyxbegin; yyx < yyxend; ++yyx)
- if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR
- && !yytable_value_is_error (yytable[yyx + yyn]))
- {
- if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM)
- {
- yycount = 1;
- yysize = yysize0;
- break;
- }
- yyarg[yycount++] = yytname[yyx];
- {
- YYSIZE_T yysize1 = yysize + yytnamerr (YY_NULLPTR, yytname[yyx]);
- if (! (yysize <= yysize1
- && yysize1 <= YYSTACK_ALLOC_MAXIMUM))
- return 2;
- yysize = yysize1;
- }
- }
- }
- }
-
- switch (yycount)
- {
-# define YYCASE_(N, S) \
- case N: \
- yyformat = S; \
- break
- YYCASE_(0, YY_("syntax error"));
- YYCASE_(1, YY_("syntax error, unexpected %s"));
- YYCASE_(2, YY_("syntax error, unexpected %s, expecting %s"));
- YYCASE_(3, YY_("syntax error, unexpected %s, expecting %s or %s"));
- YYCASE_(4, YY_("syntax error, unexpected %s, expecting %s or %s or %s"));
- YYCASE_(5, YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s"));
-# undef YYCASE_
- }
-
- {
- YYSIZE_T yysize1 = yysize + yystrlen (yyformat);
- if (! (yysize <= yysize1 && yysize1 <= YYSTACK_ALLOC_MAXIMUM))
- return 2;
- yysize = yysize1;
- }
-
- if (*yymsg_alloc < yysize)
- {
- *yymsg_alloc = 2 * yysize;
- if (! (yysize <= *yymsg_alloc
- && *yymsg_alloc <= YYSTACK_ALLOC_MAXIMUM))
- *yymsg_alloc = YYSTACK_ALLOC_MAXIMUM;
- return 1;
- }
-
- /* Avoid sprintf, as that infringes on the user's name space.
- Don't have undefined behavior even if the translation
- produced a string with the wrong number of "%s"s. */
- {
- char *yyp = *yymsg;
- int yyi = 0;
- while ((*yyp = *yyformat) != '\0')
- if (*yyp == '%' && yyformat[1] == 's' && yyi < yycount)
- {
- yyp += yytnamerr (yyp, yyarg[yyi++]);
- yyformat += 2;
- }
- else
- {
- yyp++;
- yyformat++;
- }
- }
- return 0;
-}
-#endif /* YYERROR_VERBOSE */
-
-/*-----------------------------------------------.
-| Release the memory associated to this symbol. |
-`-----------------------------------------------*/
-
-static void
-yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep)
-{
- YYUSE (yyvaluep);
- if (!yymsg)
- yymsg = "Deleting";
- YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp);
-
- YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
- YYUSE (yytype);
- YY_IGNORE_MAYBE_UNINITIALIZED_END
-}
-
-
-
-
-/* The lookahead symbol. */
-int yychar;
-
-/* The semantic value of the lookahead symbol. */
-YYSTYPE yylval;
-/* Number of syntax errors so far. */
-int yynerrs;
-
-
-/*----------.
-| yyparse. |
-`----------*/
-
-int
-yyparse (void)
-{
- int yystate;
- /* Number of tokens to shift before error messages enabled. */
- int yyerrstatus;
-
- /* The stacks and their tools:
- 'yyss': related to states.
- 'yyvs': related to semantic values.
-
- Refer to the stacks through separate pointers, to allow yyoverflow
- to reallocate them elsewhere. */
-
- /* The state stack. */
- yytype_int16 yyssa[YYINITDEPTH];
- yytype_int16 *yyss;
- yytype_int16 *yyssp;
-
- /* The semantic value stack. */
- YYSTYPE yyvsa[YYINITDEPTH];
- YYSTYPE *yyvs;
- YYSTYPE *yyvsp;
-
- YYSIZE_T yystacksize;
-
- int yyn;
- int yyresult;
- /* Lookahead token as an internal (translated) token number. */
- int yytoken = 0;
- /* The variables used to return semantic value and location from the
- action routines. */
- YYSTYPE yyval;
-
-#if YYERROR_VERBOSE
- /* Buffer for error messages, and its allocated size. */
- char yymsgbuf[128];
- char *yymsg = yymsgbuf;
- YYSIZE_T yymsg_alloc = sizeof yymsgbuf;
-#endif
-
-#define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N))
-
- /* The number of symbols on the RHS of the reduced rule.
- Keep to zero when no symbol should be popped. */
- int yylen = 0;
-
- yyssp = yyss = yyssa;
- yyvsp = yyvs = yyvsa;
- yystacksize = YYINITDEPTH;
-
- YYDPRINTF ((stderr, "Starting parse\n"));
-
- yystate = 0;
- yyerrstatus = 0;
- yynerrs = 0;
- yychar = YYEMPTY; /* Cause a token to be read. */
- goto yysetstate;
-
-/*------------------------------------------------------------.
-| yynewstate -- Push a new state, which is found in yystate. |
-`------------------------------------------------------------*/
- yynewstate:
- /* In all cases, when you get here, the value and location stacks
- have just been pushed. So pushing a state here evens the stacks. */
- yyssp++;
-
- yysetstate:
- *yyssp = yystate;
-
- if (yyss + yystacksize - 1 <= yyssp)
- {
- /* Get the current used size of the three stacks, in elements. */
- YYSIZE_T yysize = yyssp - yyss + 1;
-
-#ifdef yyoverflow
- {
- /* Give user a chance to reallocate the stack. Use copies of
- these so that the &'s don't force the real ones into
- memory. */
- YYSTYPE *yyvs1 = yyvs;
- yytype_int16 *yyss1 = yyss;
-
- /* Each stack pointer address is followed by the size of the
- data in use in that stack, in bytes. This used to be a
- conditional around just the two extra args, but that might
- be undefined if yyoverflow is a macro. */
- yyoverflow (YY_("memory exhausted"),
- &yyss1, yysize * sizeof (*yyssp),
- &yyvs1, yysize * sizeof (*yyvsp),
- &yystacksize);
-
- yyss = yyss1;
- yyvs = yyvs1;
- }
-#else /* no yyoverflow */
-# ifndef YYSTACK_RELOCATE
- goto yyexhaustedlab;
-# else
- /* Extend the stack our own way. */
- if (YYMAXDEPTH <= yystacksize)
- goto yyexhaustedlab;
- yystacksize *= 2;
- if (YYMAXDEPTH < yystacksize)
- yystacksize = YYMAXDEPTH;
-
- {
- yytype_int16 *yyss1 = yyss;
- union yyalloc *yyptr =
- (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize));
- if (! yyptr)
- goto yyexhaustedlab;
- YYSTACK_RELOCATE (yyss_alloc, yyss);
- YYSTACK_RELOCATE (yyvs_alloc, yyvs);
-# undef YYSTACK_RELOCATE
- if (yyss1 != yyssa)
- YYSTACK_FREE (yyss1);
- }
-# endif
-#endif /* no yyoverflow */
-
- yyssp = yyss + yysize - 1;
- yyvsp = yyvs + yysize - 1;
-
- YYDPRINTF ((stderr, "Stack size increased to %lu\n",
- (unsigned long int) yystacksize));
-
- if (yyss + yystacksize - 1 <= yyssp)
- YYABORT;
- }
-
- YYDPRINTF ((stderr, "Entering state %d\n", yystate));
-
- if (yystate == YYFINAL)
- YYACCEPT;
-
- goto yybackup;
-
-/*-----------.
-| yybackup. |
-`-----------*/
-yybackup:
-
- /* Do appropriate processing given the current state. Read a
- lookahead token if we need one and don't already have one. */
-
- /* First try to decide what to do without reference to lookahead token. */
- yyn = yypact[yystate];
- if (yypact_value_is_default (yyn))
- goto yydefault;
-
- /* Not known => get a lookahead token if don't already have one. */
-
- /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol. */
- if (yychar == YYEMPTY)
- {
- YYDPRINTF ((stderr, "Reading a token: "));
- yychar = yylex ();
- }
-
- if (yychar <= YYEOF)
- {
- yychar = yytoken = YYEOF;
- YYDPRINTF ((stderr, "Now at end of input.\n"));
- }
- else
- {
- yytoken = YYTRANSLATE (yychar);
- YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc);
- }
-
- /* If the proper action on seeing token YYTOKEN is to reduce or to
- detect an error, take that action. */
- yyn += yytoken;
- if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken)
- goto yydefault;
- yyn = yytable[yyn];
- if (yyn <= 0)
- {
- if (yytable_value_is_error (yyn))
- goto yyerrlab;
- yyn = -yyn;
- goto yyreduce;
- }
-
- /* Count tokens shifted since error; after three, turn off error
- status. */
- if (yyerrstatus)
- yyerrstatus--;
-
- /* Shift the lookahead token. */
- YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc);
-
- /* Discard the shifted token. */
- yychar = YYEMPTY;
-
- yystate = yyn;
- YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
- *++yyvsp = yylval;
- YY_IGNORE_MAYBE_UNINITIALIZED_END
-
- goto yynewstate;
-
-
-/*-----------------------------------------------------------.
-| yydefault -- do the default action for the current state. |
-`-----------------------------------------------------------*/
-yydefault:
- yyn = yydefact[yystate];
- if (yyn == 0)
- goto yyerrlab;
- goto yyreduce;
-
-
-/*-----------------------------.
-| yyreduce -- Do a reduction. |
-`-----------------------------*/
-yyreduce:
- /* yyn is the number of a rule to reduce with. */
- yylen = yyr2[yyn];
-
- /* If YYLEN is nonzero, implement the default value of the action:
- '$$ = $1'.
-
- Otherwise, the following line sets YYVAL to garbage.
- This behavior is undocumented and Bison
- users should not rely upon it. Assigning to YYVAL
- unconditionally makes the parser a bit smaller, and it avoids a
- GCC warning that YYVAL may be used uninitialized. */
- yyval = yyvsp[1-yylen];
-
-
- YY_REDUCE_PRINT (yyn);
- switch (yyn)
- {
- case 2:
-#line 3571 "parser.y" /* yacc.c:1646 */
- {
- const char *backup_source_file = cb_source_file;
-
- clear_initial_values ();
- defined_prog_list = NULL;
- cobc_cs_check = 0;
- main_flag_set = 0;
-
- clear_initial_values ();
- current_program = cb_build_program (NULL, 0);
-
- cb_source_file = "register-definition";
- cb_set_intr_when_compiled ();
- cb_build_registers ();
- cb_add_external_defined_registers ();
- cb_source_file = backup_source_file;
- }
-#line 12791 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3:
-#line 3589 "parser.y" /* yacc.c:1646 */
- {
- if (!current_program->flag_validated) {
- current_program->flag_validated = 1;
- cb_validate_program_body (current_program);
- }
- if (depth > 1) {
- cb_error (_("multiple PROGRAM-ID's without matching END PROGRAM"));
- }
- if (cobc_flag_main && !main_flag_set) {
- cb_error (_("executable requested but no program found"));
- }
- if (errorcount > 0) {
- YYABORT;
- }
- if (!current_program->entry_list) {
- emit_main_entry (current_program, NULL);
- }
- }
-#line 12814 "parser.c" /* yacc.c:1646 */
- break;
-
- case 6:
-#line 3616 "parser.y" /* yacc.c:1646 */
- {
- first_prog = 1;
- depth = 0;
- setup_from_identification = 0;
- }
-#line 12824 "parser.c" /* yacc.c:1646 */
- break;
-
- case 14:
-#line 3638 "parser.y" /* yacc.c:1646 */
- {
- program_init_without_program_id ();
- }
-#line 12832 "parser.c" /* yacc.c:1646 */
- break;
-
- case 15:
-#line 3643 "parser.y" /* yacc.c:1646 */
- {
- last_source_line = cb_source_line;
- clean_up_program (NULL, COB_MODULE_TYPE_PROGRAM);
- }
-#line 12841 "parser.c" /* yacc.c:1646 */
- break;
-
- case 18:
-#line 3669 "parser.y" /* yacc.c:1646 */
- {
- last_source_line = cb_source_line;
- clean_up_program (NULL, COB_MODULE_TYPE_PROGRAM);
- }
-#line 12850 "parser.c" /* yacc.c:1646 */
- break;
-
- case 22:
-#line 3683 "parser.y" /* yacc.c:1646 */
- {
- last_source_line = cb_source_line;
- check_area_a_of ("END PROGRAM");
- }
-#line 12859 "parser.c" /* yacc.c:1646 */
- break;
-
- case 23:
-#line 3688 "parser.y" /* yacc.c:1646 */
- {
- first_nested_program = 0;
- clean_up_program ((yyvsp[-1]), COB_MODULE_TYPE_PROGRAM);
- }
-#line 12868 "parser.c" /* yacc.c:1646 */
- break;
-
- case 24:
-#line 3696 "parser.y" /* yacc.c:1646 */
- {
- last_source_line = cb_source_line;
- check_area_a_of ("END FUNCTION");
- }
-#line 12877 "parser.c" /* yacc.c:1646 */
- break;
-
- case 25:
-#line 3701 "parser.y" /* yacc.c:1646 */
- {
- clean_up_program ((yyvsp[-1]), COB_MODULE_TYPE_FUNCTION);
- }
-#line 12885 "parser.c" /* yacc.c:1646 */
- break;
-
- case 26:
-#line 3711 "parser.y" /* yacc.c:1646 */
- {
- /* Error if program_id_name is a literal */
-
- /* Check that we either have no previous program or it was also a prototype */
- if (current_program->next_program && !current_program->flag_prototype) {
- /* Technically, prototypes must come before all other *source units*. */
- cb_error (_("prototypes must be come before any program/function definitions"));
- }
-
- if (setup_program ((yyvsp[-4]), (yyvsp[-3]), COB_MODULE_TYPE_PROGRAM, 1)) {
- YYABORT;
- }
- setup_prototype ((yyvsp[-4]), (yyvsp[-3]), COB_MODULE_TYPE_PROGRAM, 1);
- cobc_cs_check = 0;
- cobc_in_id = 0;
-
- CB_UNFINISHED ("PROGRAM PROTOTYPE");
-
- /*
- Must record:
- * externalised name
- * type of source unit (program/function/class/interface)
- * description of parameters, whether they are BY REFERENCE or BY VALUE, whether they are OPTIONAL
- * description of return item
- * exceptions that may be raised
- * entry convention
- * object properties
- * methods contained
- * type declarations required
- * whether DECIMAL-POINT IS COMMA is required
- * CURRENCY SYMBOLS and their corresponding currency strings
- * any external locales associated with linkage items
- */
- }
-#line 12924 "parser.c" /* yacc.c:1646 */
- break;
-
- case 27:
-#line 3746 "parser.y" /* yacc.c:1646 */
- {
- if (!current_program->entry_convention) {
- current_program->entry_convention = cb_int (CB_CONV_COBOL);
- }
- }
-#line 12934 "parser.c" /* yacc.c:1646 */
- break;
-
- case 28:
-#line 3754 "parser.y" /* yacc.c:1646 */
- {
- cb_check_definition_matches_prototype (current_program);
-
- /* Write information to external repository, if permitted */
- }
-#line 12944 "parser.c" /* yacc.c:1646 */
- break;
-
- case 29:
-#line 3766 "parser.y" /* yacc.c:1646 */
- {
- /* Error if program_id_name is a literal */
-
- if (setup_program ((yyvsp[-4]), (yyvsp[-3]), COB_MODULE_TYPE_FUNCTION, 1)) {
- YYABORT;
- }
- setup_prototype ((yyvsp[-4]), (yyvsp[-3]), COB_MODULE_TYPE_FUNCTION, 1);
- cobc_cs_check = 0;
- cobc_in_id = 0;
-
- CB_UNFINISHED ("FUNCTION PROTOTYPE");
-
- /*
- Must record:
- * externalised name
- * type of source unit (program/function/class/interface)
- * description of parameters, whether they are BY REFERENCE or BY VALUE, whether they are OPTIONAL
- * description of return item
- * exceptions that may be raised
- * entry convention
- * object properties
- * methods contained
- * type declarations required
- * whether DECIMAL-POINT IS COMMA is required
- * CURRENCY SYMBOLS and their corresponding currency strings
- * any external locales associated with linkage items
- */
- }
-#line 12977 "parser.c" /* yacc.c:1646 */
- break;
-
- case 30:
-#line 3795 "parser.y" /* yacc.c:1646 */
- {
- if (!current_program->entry_convention) {
- current_program->entry_convention = cb_int (CB_CONV_COBOL);
- }
- }
-#line 12987 "parser.c" /* yacc.c:1646 */
- break;
-
- case 31:
-#line 3803 "parser.y" /* yacc.c:1646 */
- {
- cb_check_definition_matches_prototype (current_program);
-
- /* Write information to external repository, if permitted */
- }
-#line 12997 "parser.c" /* yacc.c:1646 */
- break;
-
- case 33:
-#line 3812 "parser.y" /* yacc.c:1646 */
- { check_area_a_of ("PROCEDURE DIVISION"); }
-#line 13003 "parser.c" /* yacc.c:1646 */
- break;
-
- case 34:
-#line 3814 "parser.y" /* yacc.c:1646 */
- {
- cb_validate_parameters_and_returning (current_program, (yyvsp[-2]));
- current_program->num_proc_params = cb_list_length ((yyvsp[-2]));
- /* add pseudo-entry as it contains the actual USING parameters */
- emit_main_entry (current_program, (yyvsp[-2]));
- }
-#line 13014 "parser.c" /* yacc.c:1646 */
- break;
-
- case 35:
-#line 3824 "parser.y" /* yacc.c:1646 */
- { check_area_a_of ("CONTROL DIVISION"); }
-#line 13020 "parser.c" /* yacc.c:1646 */
- break;
-
- case 37:
-#line 3828 "parser.y" /* yacc.c:1646 */
- {
- cb_verify (cb_control_division, "CONTROL DIVISION");
- }
-#line 13028 "parser.c" /* yacc.c:1646 */
- break;
-
- case 40:
-#line 3836 "parser.y" /* yacc.c:1646 */
- { check_area_a_of ("DEFAULT SECTION"); }
-#line 13034 "parser.c" /* yacc.c:1646 */
- break;
-
- case 41:
-#line 3839 "parser.y" /* yacc.c:1646 */
- {
- cobc_cs_check = 0;
- }
-#line 13042 "parser.c" /* yacc.c:1646 */
- break;
-
- case 45:
-#line 3853 "parser.y" /* yacc.c:1646 */
- { check_non_area_a ((yyvsp[0])); }
-#line 13048 "parser.c" /* yacc.c:1646 */
- break;
-
- case 46:
-#line 3855 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("ACCEPT statement in DEFAULT SECTION");
- /* TODO: setup_default_accept ($3); */
- }
-#line 13057 "parser.c" /* yacc.c:1646 */
- break;
-
- case 48:
-#line 3863 "parser.y" /* yacc.c:1646 */
- { check_non_area_a ((yyvsp[0])); }
-#line 13063 "parser.c" /* yacc.c:1646 */
- break;
-
- case 49:
-#line 3865 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("DISPLAY statement in DEFAULT SECTION");
- /* TODO: setup_default_display ($3); */
- }
-#line 13072 "parser.c" /* yacc.c:1646 */
- break;
-
- case 50:
-#line 3876 "parser.y" /* yacc.c:1646 */
- {
- cb_validate_program_environment (current_program);
- }
-#line 13080 "parser.c" /* yacc.c:1646 */
- break;
-
- case 51:
-#line 3880 "parser.y" /* yacc.c:1646 */
- {
- /* note:
- we also validate all references we found so far here */
- cb_validate_program_data (current_program);
- within_typedef_definition = 0;
- }
-#line 13091 "parser.c" /* yacc.c:1646 */
- break;
-
- case 55:
-#line 3897 "parser.y" /* yacc.c:1646 */
- { check_area_a_of ("IDENTIFICATION DIVISION"); }
-#line 13097 "parser.c" /* yacc.c:1646 */
- break;
-
- case 56:
-#line 3899 "parser.y" /* yacc.c:1646 */
- {
- setup_program_start ();
- setup_from_identification = 1;
- }
-#line 13106 "parser.c" /* yacc.c:1646 */
- break;
-
- case 59:
-#line 3912 "parser.y" /* yacc.c:1646 */
- {
- cobc_in_id = 1;
- save_tree = NULL;
- }
-#line 13115 "parser.c" /* yacc.c:1646 */
- break;
-
- case 60:
-#line 3920 "parser.y" /* yacc.c:1646 */
- {
- if (setup_program ((yyvsp[-3]), (yyvsp[-2]), COB_MODULE_TYPE_PROGRAM, 0)) {
- YYABORT;
- }
-
-
- setup_prototype ((yyvsp[-3]), (yyvsp[-2]), COB_MODULE_TYPE_PROGRAM, 1);
-
- if ((yyvsp[-1])) {
- if (!current_program->nested_level) {
- cb_error (_("COMMON may only be used in a contained program"));
- } else {
- current_program->flag_common = 1;
- cb_add_common_prog (current_program);
- }
- }
-
- /* TODO: do that more clean, this and above was only moved here
- to fix a shift/reduce conflict with program prototype */
- if (save_tree == cb_int1) {
- current_program->flag_initial = 1;
- } else if (save_tree == cb_int2) {
- current_program->flag_recursive = 1;
- }
-
- cobc_cs_check = 0;
- cobc_in_id = 0;
- }
-#line 13148 "parser.c" /* yacc.c:1646 */
- break;
-
- case 61:
-#line 3952 "parser.y" /* yacc.c:1646 */
- {
- cobc_in_id = 1;
- }
-#line 13156 "parser.c" /* yacc.c:1646 */
- break;
-
- case 62:
-#line 3959 "parser.y" /* yacc.c:1646 */
- {
- if (setup_program ((yyvsp[-2]), (yyvsp[-1]), COB_MODULE_TYPE_FUNCTION, 0)) {
- YYABORT;
- }
- setup_prototype ((yyvsp[-2]), (yyvsp[-1]), COB_MODULE_TYPE_FUNCTION, 1);
- cobc_cs_check = 0;
- cobc_in_id = 0;
- }
-#line 13169 "parser.c" /* yacc.c:1646 */
- break;
-
- case 63:
-#line 3971 "parser.y" /* yacc.c:1646 */
- {
- if (CB_REFERENCE_P ((yyvsp[0])) && CB_WORD_COUNT ((yyvsp[0])) > 0) {
- redefinition_error ((yyvsp[0]));
- }
- /*
- The program name is a key part of defining the current_program, so we
- mustn't lose it (unlike in undefined_word).
- */
- (yyval) = (yyvsp[0]);
- }
-#line 13184 "parser.c" /* yacc.c:1646 */
- break;
-
- case 64:
-#line 3982 "parser.y" /* yacc.c:1646 */
- {
- cb_trim_program_id ((yyvsp[0]));
- }
-#line 13192 "parser.c" /* yacc.c:1646 */
- break;
-
- case 66:
-#line 3990 "parser.y" /* yacc.c:1646 */
- {
- cb_trim_program_id ((yyvsp[0]));
- }
-#line 13200 "parser.c" /* yacc.c:1646 */
- break;
-
- case 67:
-#line 3996 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 13206 "parser.c" /* yacc.c:1646 */
- break;
-
- case 68:
-#line 3997 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 13212 "parser.c" /* yacc.c:1646 */
- break;
-
- case 69:
-#line 4001 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 13218 "parser.c" /* yacc.c:1646 */
- break;
-
- case 70:
-#line 4002 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[-1]); }
-#line 13224 "parser.c" /* yacc.c:1646 */
- break;
-
- case 71:
-#line 4007 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int1;
- }
-#line 13232 "parser.c" /* yacc.c:1646 */
- break;
-
- case 72:
-#line 4011 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int2;
- }
-#line 13240 "parser.c" /* yacc.c:1646 */
- break;
-
- case 74:
-#line 4016 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING (_("CALL prototypes"));
- }
-#line 13248 "parser.c" /* yacc.c:1646 */
- break;
-
- case 77:
-#line 4028 "parser.y" /* yacc.c:1646 */
- {
- save_tree = cb_int1;
- }
-#line 13256 "parser.c" /* yacc.c:1646 */
- break;
-
- case 78:
-#line 4032 "parser.y" /* yacc.c:1646 */
- {
- save_tree = cb_int2;
- }
-#line 13264 "parser.c" /* yacc.c:1646 */
- break;
-
- case 80:
-#line 4041 "parser.y" /* yacc.c:1646 */
- {
- cobc_cs_check = 0;
- }
-#line 13272 "parser.c" /* yacc.c:1646 */
- break;
-
- case 84:
-#line 4061 "parser.y" /* yacc.c:1646 */
- {
-/* FIXME: the IBM-compatible ARITHMETIC should only be disabled
- for the specified program (and its nested programs)
- note: ibm-strict.conf has no OPTIONS paragraph, but ibm.conf does */
- cb_arithmetic_osvs = 0;
- }
-#line 13283 "parser.c" /* yacc.c:1646 */
- break;
-
- case 85:
-#line 4068 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("STANDARD ARITHMETIC");
- }
-#line 13291 "parser.c" /* yacc.c:1646 */
- break;
-
- case 86:
-#line 4072 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("STANDARD-BINARY ARITHMETIC");
- }
-#line 13299 "parser.c" /* yacc.c:1646 */
- break;
-
- case 87:
-#line 4076 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("STANDARD-DECIMAL ARITHMETIC");
- }
-#line 13307 "parser.c" /* yacc.c:1646 */
- break;
-
- case 88:
-#line 4091 "parser.y" /* yacc.c:1646 */
- {
- default_rounded_mode = cb_int (COB_STORE_ROUND);
- }
-#line 13315 "parser.c" /* yacc.c:1646 */
- break;
-
- case 89:
-#line 4095 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[0])) {
- default_rounded_mode = (yyvsp[0]);
- } else {
- default_rounded_mode = cb_int (COB_STORE_ROUND);
- }
- }
-#line 13327 "parser.c" /* yacc.c:1646 */
- break;
-
- case 91:
-#line 4107 "parser.y" /* yacc.c:1646 */
- {
- current_program->entry_convention = (yyvsp[0]);
- }
-#line 13335 "parser.c" /* yacc.c:1646 */
- break;
-
- case 92:
-#line 4114 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int (CB_CONV_COBOL);
- }
-#line 13343 "parser.c" /* yacc.c:1646 */
- break;
-
- case 93:
-#line 4118 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int0;
- }
-#line 13351 "parser.c" /* yacc.c:1646 */
- break;
-
- case 94:
-#line 4122 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int (CB_CONV_STDCALL);
- }
-#line 13359 "parser.c" /* yacc.c:1646 */
- break;
-
- case 96:
-#line 4130 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("INTERMEDIATE ROUNDING");
- }
-#line 13367 "parser.c" /* yacc.c:1646 */
- break;
-
- case 97:
-#line 4137 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int (COB_STORE_ROUND | COB_STORE_NEAR_AWAY_FROM_ZERO);
- }
-#line 13375 "parser.c" /* yacc.c:1646 */
- break;
-
- case 98:
-#line 4141 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int (COB_STORE_ROUND | COB_STORE_NEAR_EVEN);
- }
-#line 13383 "parser.c" /* yacc.c:1646 */
- break;
-
- case 99:
-#line 4145 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int (COB_STORE_ROUND | COB_STORE_PROHIBITED);
- }
-#line 13391 "parser.c" /* yacc.c:1646 */
- break;
-
- case 100:
-#line 4149 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int (COB_STORE_ROUND | COB_STORE_TRUNCATION);
- }
-#line 13399 "parser.c" /* yacc.c:1646 */
- break;
-
- case 104:
-#line 4166 "parser.y" /* yacc.c:1646 */
- { check_area_a_of ("ENVIRONMENT DIVISION"); }
-#line 13405 "parser.c" /* yacc.c:1646 */
- break;
-
- case 105:
-#line 4169 "parser.y" /* yacc.c:1646 */
- {
- header_check |= COBC_HD_ENVIRONMENT_DIVISION;
- }
-#line 13413 "parser.c" /* yacc.c:1646 */
- break;
-
- case 109:
-#line 4185 "parser.y" /* yacc.c:1646 */
- { check_area_a_of ("CONFIGURATION SECTION"); }
-#line 13419 "parser.c" /* yacc.c:1646 */
- break;
-
- case 110:
-#line 4188 "parser.y" /* yacc.c:1646 */
- {
- check_headers_present (COBC_HD_ENVIRONMENT_DIVISION, 0, 0, 0);
- header_check |= COBC_HD_CONFIGURATION_SECTION;
- if (current_program->nested_level) {
- cb_error (_("%s not allowed in nested programs"), "CONFIGURATION SECTION");
- }
- }
-#line 13431 "parser.c" /* yacc.c:1646 */
- break;
-
- case 122:
-#line 4223 "parser.y" /* yacc.c:1646 */
- {
- check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
- COBC_HD_CONFIGURATION_SECTION, 0, 0);
- check_conf_section_order (COBC_HD_SOURCE_COMPUTER);
- set_conf_section_part (COBC_HD_SOURCE_COMPUTER);
- }
-#line 13442 "parser.c" /* yacc.c:1646 */
- break;
-
- case 127:
-#line 4239 "parser.y" /* yacc.c:1646 */
- {
- current_program->flag_debugging = 1;
- needs_debug_item = 1;
- cobc_cs_check = 0;
- cb_build_debug_item ();
- }
-#line 13453 "parser.c" /* yacc.c:1646 */
- break;
-
- case 128:
-#line 4251 "parser.y" /* yacc.c:1646 */
- {
- check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
- COBC_HD_CONFIGURATION_SECTION, 0, 0);
- check_conf_section_order (COBC_HD_OBJECT_COMPUTER);
- set_conf_section_part (COBC_HD_OBJECT_COMPUTER);
- }
-#line 13464 "parser.c" /* yacc.c:1646 */
- break;
-
- case 129:
-#line 4258 "parser.y" /* yacc.c:1646 */
- {
- cobc_cs_check = 0;
- }
-#line 13472 "parser.c" /* yacc.c:1646 */
- break;
-
- case 140:
-#line 4284 "parser.y" /* yacc.c:1646 */
- {
- cb_verify (cb_memory_size_clause, "MEMORY SIZE");
- }
-#line 13480 "parser.c" /* yacc.c:1646 */
- break;
-
- case 141:
-#line 4292 "parser.y" /* yacc.c:1646 */
- {
- current_program->collating_sequence = alphanumeric_collation;
- current_program->collating_sequence_n = national_collation;
- }
-#line 13489 "parser.c" /* yacc.c:1646 */
- break;
-
- case 143:
-#line 4305 "parser.y" /* yacc.c:1646 */
- {
- alphanumeric_collation = (yyvsp[0]);
- }
-#line 13497 "parser.c" /* yacc.c:1646 */
- break;
-
- case 144:
-#line 4309 "parser.y" /* yacc.c:1646 */
- {
- alphanumeric_collation = (yyvsp[-1]);
- CB_PENDING_X ((yyvsp[0]), "NATIONAL COLLATING SEQUENCE");
- national_collation = (yyvsp[0]);
- }
-#line 13507 "parser.c" /* yacc.c:1646 */
- break;
-
- case 145:
-#line 4315 "parser.y" /* yacc.c:1646 */
- {
- alphanumeric_collation = (yyvsp[0]);
- }
-#line 13515 "parser.c" /* yacc.c:1646 */
- break;
-
- case 146:
-#line 4319 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING_X ((yyvsp[0]), "NATIONAL COLLATING SEQUENCE");
- national_collation = (yyvsp[0]);
- }
-#line 13524 "parser.c" /* yacc.c:1646 */
- break;
-
- case 147:
-#line 4325 "parser.y" /* yacc.c:1646 */
- {
- alphanumeric_collation = (yyvsp[-4]);
- CB_PENDING_X ((yyvsp[0]), "NATIONAL COLLATING SEQUENCE");
- national_collation = (yyvsp[0]);
- }
-#line 13534 "parser.c" /* yacc.c:1646 */
- break;
-
- case 148:
-#line 4332 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING_X ((yyvsp[-4]), "NATIONAL COLLATING SEQUENCE");
- national_collation = (yyvsp[-4]);
- alphanumeric_collation = (yyvsp[0]);
- }
-#line 13544 "parser.c" /* yacc.c:1646 */
- break;
-
- case 149:
-#line 4341 "parser.y" /* yacc.c:1646 */
- {
- if (cb_verify (cb_section_segments, "SEGMENT LIMIT")) {
- int segnum = cb_get_int ((yyvsp[0]));
- if (segnum == 0 || segnum > 49) {
- cb_error (_("segment-number must be in range of values 1 to 49"));
- (yyval) = NULL;
- }
- }
- /* Ignore */
- }
-#line 13559 "parser.c" /* yacc.c:1646 */
- break;
-
- case 150:
-#line 4355 "parser.y" /* yacc.c:1646 */
- {
- if (current_program->classification) {
- cb_error (_("duplicate CLASSIFICATION clause"));
- } else {
- current_program->classification = (yyvsp[0]);
- }
- }
-#line 13571 "parser.c" /* yacc.c:1646 */
- break;
-
- case 151:
-#line 4366 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 13579 "parser.c" /* yacc.c:1646 */
- break;
-
- case 152:
-#line 4370 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 13587 "parser.c" /* yacc.c:1646 */
- break;
-
- case 153:
-#line 4374 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int1;
- }
-#line 13595 "parser.c" /* yacc.c:1646 */
- break;
-
- case 154:
-#line 4378 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int1;
- }
-#line 13603 "parser.c" /* yacc.c:1646 */
- break;
-
- case 159:
-#line 4395 "parser.y" /* yacc.c:1646 */
- {
- check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
- COBC_HD_CONFIGURATION_SECTION, 0, 0);
- check_conf_section_order (COBC_HD_REPOSITORY);
- set_conf_section_part (COBC_HD_REPOSITORY);
- }
-#line 13614 "parser.c" /* yacc.c:1646 */
- break;
-
- case 160:
-#line 4402 "parser.y" /* yacc.c:1646 */
- {
- cobc_in_repository = 0;
- }
-#line 13622 "parser.c" /* yacc.c:1646 */
- break;
-
- case 163:
-#line 4411 "parser.y" /* yacc.c:1646 */
- {
- yyerrok;
- }
-#line 13630 "parser.c" /* yacc.c:1646 */
- break;
-
- case 166:
-#line 4423 "parser.y" /* yacc.c:1646 */
- {
- functions_are_all = 1;
- }
-#line 13638 "parser.c" /* yacc.c:1646 */
- break;
-
- case 167:
-#line 4427 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[-1]) != cb_error_node) {
- setup_prototype ((yyvsp[-1]), (yyvsp[0]), COB_MODULE_TYPE_FUNCTION, 0);
- }
- }
-#line 13648 "parser.c" /* yacc.c:1646 */
- break;
-
- case 169:
-#line 4434 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[-1]) != cb_error_node
- && cb_verify (cb_program_prototypes, _("PROGRAM phrase"))) {
- setup_prototype ((yyvsp[-1]), (yyvsp[0]), COB_MODULE_TYPE_PROGRAM, 0);
- }
- }
-#line 13659 "parser.c" /* yacc.c:1646 */
- break;
-
- case 170:
-#line 4441 "parser.y" /* yacc.c:1646 */
- {
- yyerrok;
- }
-#line 13667 "parser.c" /* yacc.c:1646 */
- break;
-
- case 171:
-#line 4448 "parser.y" /* yacc.c:1646 */
- {
- current_program->function_spec_list =
- cb_list_add (current_program->function_spec_list, (yyvsp[0]));
- }
-#line 13676 "parser.c" /* yacc.c:1646 */
- break;
-
- case 172:
-#line 4453 "parser.y" /* yacc.c:1646 */
- {
- current_program->function_spec_list =
- cb_list_add (current_program->function_spec_list, (yyvsp[0]));
- }
-#line 13685 "parser.c" /* yacc.c:1646 */
- break;
-
- case 173:
-#line 4464 "parser.y" /* yacc.c:1646 */
- {
- check_duplicate = 0;
- check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
- COBC_HD_CONFIGURATION_SECTION, 0, 0);
- check_conf_section_order (COBC_HD_SPECIAL_NAMES);
- set_conf_section_part (COBC_HD_SPECIAL_NAMES);
- if (current_program->nested_level) {
- cb_error (_("%s not allowed in nested programs"), "SPECIAL-NAMES");
- }
- cobc_cs_check = CB_CS_SPECIAL_NAMES;
- }
-#line 13701 "parser.c" /* yacc.c:1646 */
- break;
-
- case 193:
-#line 4511 "parser.y" /* yacc.c:1646 */
- {
- check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
- COBC_HD_CONFIGURATION_SECTION,
- COBC_HD_SPECIAL_NAMES, 0);
- check_duplicate = 0;
- if (current_program->nested_level) {
- cb_error (_("%s not allowed in nested programs"), "SPECIAL-NAMES");
- save_tree = NULL;
- } else {
- /* lookup system name with special translation
- note: result in NULL + raised error if not found */
- save_tree = get_system_name_translated ((yyvsp[0]));
- }
- }
-#line 13720 "parser.c" /* yacc.c:1646 */
- break;
-
- case 195:
-#line 4529 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 13726 "parser.c" /* yacc.c:1646 */
- break;
-
- case 196:
-#line 4531 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_build_reference ("TERMINAL"); }
-#line 13732 "parser.c" /* yacc.c:1646 */
- break;
-
- case 197:
-#line 4535 "parser.y" /* yacc.c:1646 */
- {
- if (save_tree) {
- if (CB_SYSTEM_NAME(save_tree)->token != CB_DEVICE_CONSOLE) {
- cb_error_x (save_tree, _("invalid %s clause"), "");
- } else {
- current_program->flag_console_is_crt = 1;
- }
- }
- }
-#line 13746 "parser.c" /* yacc.c:1646 */
- break;
-
- case 198:
-#line 4546 "parser.y" /* yacc.c:1646 */
- {
- if (save_tree) {
- if (CB_SYSTEM_NAME(save_tree)->token != CB_FEATURE_CONVENTION) {
- cb_error_x (save_tree, _("invalid %s clause"), "SPECIAL NAMES");
- } else if (CB_VALID_TREE ((yyvsp[0]))) {
- const char *name = CB_NAME ((yyvsp[0]));
- CB_SYSTEM_NAME(save_tree)->value = (yyvsp[-2]);
- cb_define ((yyvsp[0]), save_tree);
- CB_CHAIN_PAIR (current_program->mnemonic_spec_list,
- (yyvsp[0]), save_tree);
- /* remove non-standard context-sensitive words when identical to mnemonic */
- if (cb_strcasecmp (name, "EXTERN" ) == 0
- || cb_strcasecmp (name, "STDCALL") == 0
- || cb_strcasecmp (name, "WINAPI") == 0
- || cb_strcasecmp (name, "STATIC" ) == 0
- || cb_strcasecmp (name, "C" ) == 0
- || cb_strcasecmp (name, "PASCAL" ) == 0) {
- remove_context_sensitivity (name, CB_CS_CALL);
- }
- }
- }
- }
-#line 13773 "parser.c" /* yacc.c:1646 */
- break;
-
- case 199:
-#line 4569 "parser.y" /* yacc.c:1646 */
- {
- if (save_tree && CB_VALID_TREE ((yyvsp[-1]))) {
- cb_define ((yyvsp[-1]), save_tree);
- CB_CHAIN_PAIR (current_program->mnemonic_spec_list,
- (yyvsp[-1]), save_tree);
- }
- }
-#line 13785 "parser.c" /* yacc.c:1646 */
- break;
-
- case 203:
-#line 4585 "parser.y" /* yacc.c:1646 */
- {
- check_on_off_duplicate = 0;
- }
-#line 13793 "parser.c" /* yacc.c:1646 */
- break;
-
- case 204:
-#line 4592 "parser.y" /* yacc.c:1646 */
- {
- cb_tree x;
-
- /* cb_define_switch_name checks param validity */
- x = cb_define_switch_name ((yyvsp[0]), save_tree, (yyvsp[-2]) == cb_int1);
- if (x) {
- if ((yyvsp[-2]) == cb_int1) {
- check_repeated ("ON", SYN_CLAUSE_1, &check_on_off_duplicate);
- } else {
- check_repeated ("OFF", SYN_CLAUSE_2, &check_on_off_duplicate);
- }
- CB_CHAIN_PAIR (current_program->mnemonic_spec_list, (yyvsp[0]), x);
- }
- }
-#line 13812 "parser.c" /* yacc.c:1646 */
- break;
-
- case 205:
-#line 4607 "parser.y" /* yacc.c:1646 */
- {
- cb_tree x;
-
- /* cb_define_switch_name checks param validity */
- x = cb_define_switch_name ((yyvsp[0]), save_tree, (yyvsp[-2]) == cb_int1);
- if (x) {
- if ((yyvsp[-2]) == cb_int1) {
- check_repeated ("ON", SYN_CLAUSE_1, &check_on_off_duplicate);
- } else {
- check_repeated ("OFF", SYN_CLAUSE_2, &check_on_off_duplicate);
- }
- CB_CHAIN_PAIR (current_program->mnemonic_spec_list, (yyvsp[0]), x);
- }
- }
-#line 13831 "parser.c" /* yacc.c:1646 */
- break;
-
- case 206:
-#line 4627 "parser.y" /* yacc.c:1646 */
- {
- check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
- COBC_HD_CONFIGURATION_SECTION,
- COBC_HD_SPECIAL_NAMES, 0);
- if (current_program->nested_level) {
- cb_error (_("%s not allowed in nested programs"), "SPECIAL-NAMES");
- (yyval) = NULL;
- } else {
- /* Returns null on error */
- (yyval) = cb_build_alphabet_name ((yyvsp[0]));
- }
- }
-#line 13848 "parser.c" /* yacc.c:1646 */
- break;
-
- case 207:
-#line 4640 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[-1])) {
- current_program->alphabet_name_list =
- cb_list_add (current_program->alphabet_name_list, (yyvsp[-1]));
- }
- cobc_cs_check = 0;
- }
-#line 13860 "parser.c" /* yacc.c:1646 */
- break;
-
- case 208:
-#line 4651 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[-1]);
- if ((yyvsp[-1])) {
- CB_ALPHABET_NAME ((yyvsp[-1]))->alphabet_target = CB_ALPHABET_ALPHANUMERIC;
- }
- }
-#line 13871 "parser.c" /* yacc.c:1646 */
- break;
-
- case 210:
-#line 4659 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[-1]);
- if ((yyvsp[-1])) {
- CB_ALPHABET_NAME((yyvsp[-1]))->alphabet_target = CB_ALPHABET_NATIONAL;
- }
- }
-#line 13882 "parser.c" /* yacc.c:1646 */
- break;
-
- case 216:
-#line 4680 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[(-1) - (1)])) {
- CB_ALPHABET_NAME ((yyvsp[(-1) - (1)]))->alphabet_type = CB_ALPHABET_ASCII;
- }
- }
-#line 13892 "parser.c" /* yacc.c:1646 */
- break;
-
- case 217:
-#line 4686 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[(-1) - (1)])) {
- CB_ALPHABET_NAME ((yyvsp[(-1) - (1)]))->alphabet_type = CB_ALPHABET_ASCII;
- }
- }
-#line 13902 "parser.c" /* yacc.c:1646 */
- break;
-
- case 218:
-#line 4692 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[(-1) - (1)])) {
- CB_ALPHABET_NAME ((yyvsp[(-1) - (1)]))->alphabet_type = CB_ALPHABET_EBCDIC;
- }
- }
-#line 13912 "parser.c" /* yacc.c:1646 */
- break;
-
- case 219:
-#line 4698 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[(-1) - (1)])) {
- CB_ALPHABET_NAME ((yyvsp[(-1) - (1)]))->alphabet_type = CB_ALPHABET_ASCII;
- }
- }
-#line 13922 "parser.c" /* yacc.c:1646 */
- break;
-
- case 221:
-#line 4708 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[(-1) - (1)])) {
- CB_PENDING_X ((yyvsp[(-1) - (1)]), "ALPHABET UCS-4");
- CB_ALPHABET_NAME ((yyvsp[(-1) - (1)]))->alphabet_type = CB_ALPHABET_UCS_4;
- }
- }
-#line 13933 "parser.c" /* yacc.c:1646 */
- break;
-
- case 222:
-#line 4715 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[(-1) - (1)])) {
- CB_PENDING_X ((yyvsp[(-1) - (1)]), "ALPHABET UTF-8");
- CB_ALPHABET_NAME ((yyvsp[(-1) - (1)]))->alphabet_type = CB_ALPHABET_UTF_8;
- }
- }
-#line 13944 "parser.c" /* yacc.c:1646 */
- break;
-
- case 223:
-#line 4722 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[(-1) - (1)])) {
- CB_PENDING_X ((yyvsp[(-1) - (1)]), "ALPHABET UTF-16");
- CB_ALPHABET_NAME ((yyvsp[(-1) - (1)]))->alphabet_type = CB_ALPHABET_UTF_16;
- }
- }
-#line 13955 "parser.c" /* yacc.c:1646 */
- break;
-
- case 224:
-#line 4732 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[(-1) - (1)])) {
- CB_ALPHABET_NAME ((yyvsp[(-1) - (1)]))->alphabet_type = CB_ALPHABET_NATIVE;
- }
- }
-#line 13965 "parser.c" /* yacc.c:1646 */
- break;
-
- case 225:
-#line 4738 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[(-1) - (2)])) {
- CB_ALPHABET_NAME ((yyvsp[(-1) - (2)]))->alphabet_type = CB_ALPHABET_LOCALE;
- CB_ALPHABET_NAME ((yyvsp[(-1) - (2)]))->custom_list = (yyvsp[0]);
- CB_PENDING_X ((yyvsp[(-1) - (2)]), "LOCALE ALPHABET");
- }
- }
-#line 13977 "parser.c" /* yacc.c:1646 */
- break;
-
- case 226:
-#line 4746 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[(-1) - (1)])) {
- CB_ALPHABET_NAME ((yyvsp[(-1) - (1)]))->alphabet_type = CB_ALPHABET_CUSTOM;
- CB_ALPHABET_NAME ((yyvsp[(-1) - (1)]))->custom_list = (yyvsp[0]);
- }
- }
-#line 13988 "parser.c" /* yacc.c:1646 */
- break;
-
- case 227:
-#line 4756 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_LIST_INIT ((yyvsp[0]));
- }
-#line 13996 "parser.c" /* yacc.c:1646 */
- break;
-
- case 228:
-#line 4760 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0]));
- }
-#line 14004 "parser.c" /* yacc.c:1646 */
- break;
-
- case 229:
-#line 4767 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 14012 "parser.c" /* yacc.c:1646 */
- break;
-
- case 230:
-#line 4771 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_BUILD_PAIR ((yyvsp[-2]), (yyvsp[0]));
- }
-#line 14020 "parser.c" /* yacc.c:1646 */
- break;
-
- case 231:
-#line 4775 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_LIST_INIT ((yyvsp[-1]));
- }
-#line 14028 "parser.c" /* yacc.c:1646 */
- break;
-
- case 232:
-#line 4779 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[-1]);
- }
-#line 14036 "parser.c" /* yacc.c:1646 */
- break;
-
- case 233:
-#line 4786 "parser.y" /* yacc.c:1646 */
- {
- cb_list_add ((yyvsp[-1]), (yyvsp[0]));
- }
-#line 14044 "parser.c" /* yacc.c:1646 */
- break;
-
- case 234:
-#line 4790 "parser.y" /* yacc.c:1646 */
- {
- cb_list_add ((yyvsp[-3]), (yyvsp[0]));
- }
-#line 14052 "parser.c" /* yacc.c:1646 */
- break;
-
- case 235:
-#line 4796 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 14058 "parser.c" /* yacc.c:1646 */
- break;
-
- case 236:
-#line 4797 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_space; }
-#line 14064 "parser.c" /* yacc.c:1646 */
- break;
-
- case 237:
-#line 4798 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_zero; }
-#line 14070 "parser.c" /* yacc.c:1646 */
- break;
-
- case 238:
-#line 4799 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_quote; }
-#line 14076 "parser.c" /* yacc.c:1646 */
- break;
-
- case 239:
-#line 4800 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_norm_high; /* -> special case, not cb_high */ }
-#line 14082 "parser.c" /* yacc.c:1646 */
- break;
-
- case 240:
-#line 4801 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_norm_low; }
-#line 14088 "parser.c" /* yacc.c:1646 */
- break;
-
- case 241:
-#line 4805 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_space; }
-#line 14094 "parser.c" /* yacc.c:1646 */
- break;
-
- case 242:
-#line 4806 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_zero; }
-#line 14100 "parser.c" /* yacc.c:1646 */
- break;
-
- case 243:
-#line 4811 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 14108 "parser.c" /* yacc.c:1646 */
- break;
-
- case 244:
-#line 4815 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 14116 "parser.c" /* yacc.c:1646 */
- break;
-
- case 245:
-#line 4819 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int0;
- }
-#line 14124 "parser.c" /* yacc.c:1646 */
- break;
-
- case 246:
-#line 4826 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 14132 "parser.c" /* yacc.c:1646 */
- break;
-
- case 247:
-#line 4830 "parser.y" /* yacc.c:1646 */
- {
- /* note: IN is really mandatory here */
- (yyval) = (yyvsp[0]);
- }
-#line 14141 "parser.c" /* yacc.c:1646 */
- break;
-
- case 248:
-#line 4841 "parser.y" /* yacc.c:1646 */
- {
- check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
- COBC_HD_CONFIGURATION_SECTION,
- COBC_HD_SPECIAL_NAMES, 0);
- if (current_program->nested_level) {
- cb_error (_("%s not allowed in nested programs"), "SPECIAL-NAMES");
- } else {
- cb_tree type = CB_PAIR_X ((yyvsp[-1]));
- cb_tree chars_list = CB_PAIR_Y ((yyvsp[-1]));
- cb_tree alph = (yyvsp[0]);
-
- /* TODO: at least add a check that $3 and $6 match by type */
- if (type && !alph) {
- cb_error_x (type, _("type does not match alphabet"));
- } else
- if (type) {
- CB_PENDING_X (type, "NATIONAL SYMBOLIC CHARACTER");
- }
- CB_CHAIN_PAIR (current_program->symbolic_char_list, chars_list, alph);
- }
- }
-#line 14167 "parser.c" /* yacc.c:1646 */
- break;
-
- case 249:
-#line 4868 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_BUILD_PAIR ((yyvsp[-1]), (yyvsp[0]));
- }
-#line 14175 "parser.c" /* yacc.c:1646 */
- break;
-
- case 250:
-#line 4875 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 14183 "parser.c" /* yacc.c:1646 */
- break;
-
- case 251:
-#line 4879 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[0])) {
- (yyval) = cb_list_append ((yyvsp[-1]), (yyvsp[0]));
- } else {
- (yyval) = (yyvsp[-1]);
- }
- }
-#line 14195 "parser.c" /* yacc.c:1646 */
- break;
-
- case 252:
-#line 4890 "parser.y" /* yacc.c:1646 */
- {
- cb_tree l1;
- cb_tree l2;
-
- if (cb_list_length ((yyvsp[-2])) != cb_list_length ((yyvsp[0]))) {
- cb_error (_("invalid %s clause"), "SYMBOLIC");
- (yyval) = NULL;
- } else {
- l1 = (yyvsp[-2]);
- l2 = (yyvsp[0]);
- for (; l1; l1 = CB_CHAIN (l1), l2 = CB_CHAIN (l2)) {
- CB_PURPOSE (l1) = CB_VALUE (l2);
- }
- (yyval) = (yyvsp[-2]);
- }
- }
-#line 14216 "parser.c" /* yacc.c:1646 */
- break;
-
- case 253:
-#line 4910 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[0]) == NULL) {
- (yyval) = NULL;
- } else {
- (yyval) = CB_LIST_INIT ((yyvsp[0]));
- }
- }
-#line 14228 "parser.c" /* yacc.c:1646 */
- break;
-
- case 254:
-#line 4918 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[0]) == NULL) {
- (yyval) = (yyvsp[-1]);
- } else {
- (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0]));
- }
- }
-#line 14240 "parser.c" /* yacc.c:1646 */
- break;
-
- case 255:
-#line 4928 "parser.y" /* yacc.c:1646 */
- { (yyval) = CB_LIST_INIT ((yyvsp[0])); }
-#line 14246 "parser.c" /* yacc.c:1646 */
- break;
-
- case 256:
-#line 4929 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0])); }
-#line 14252 "parser.c" /* yacc.c:1646 */
- break;
-
- case 257:
-#line 4938 "parser.y" /* yacc.c:1646 */
- {
- check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
- COBC_HD_CONFIGURATION_SECTION,
- COBC_HD_SPECIAL_NAMES, 0);
- if (current_program->nested_level) {
- cb_error (_("%s not allowed in nested programs"), "SPECIAL-NAMES");
- }
- (void)cb_verify (cb_symbolic_constant, "SYMBOLIC CONSTANT");
- }
-#line 14266 "parser.c" /* yacc.c:1646 */
- break;
-
- case 260:
-#line 4956 "parser.y" /* yacc.c:1646 */
- {
- struct cb_field *f;
-
- f = CB_FIELD (cb_build_constant ((yyvsp[-2]), (yyvsp[0])));
- f->flag_item_78 = 1;
- f->flag_constant = 1;
- f->flag_is_global = 1;
- f->level = 1;
- f->values = (yyvsp[0]);
- cb_needs_01 = 1;
- /* Ignore return value */
- (void)cb_validate_78_item (f, 0);
- }
-#line 14284 "parser.c" /* yacc.c:1646 */
- break;
-
- case 261:
-#line 4975 "parser.y" /* yacc.c:1646 */
- {
- cb_tree x;
-
- check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
- COBC_HD_CONFIGURATION_SECTION,
- COBC_HD_SPECIAL_NAMES, 0);
- if (current_program->nested_level) {
- cb_error (_("%s not allowed in nested programs"), "SPECIAL-NAMES");
- } else {
- /* Returns null on error */
- x = cb_build_class_name ((yyvsp[-4]), (yyvsp[-1]));
- if (x) {
- current_program->class_name_list =
- cb_list_add (current_program->class_name_list, x);
- }
- /* TODO: at least add a check that $3 and $6 match by type */
- if ((yyvsp[-3]) && !(yyvsp[0])) {
- cb_error_x ((yyvsp[-3]), _("type does not match alphabet"));
- } else
- if ((yyvsp[-3])) {
- CB_PENDING_X ((yyvsp[-3]), "NATIONAL CLASS");
- }
- if ((yyvsp[0])) {
- CB_PENDING_X ((yyvsp[0]), _("CLASS IS integer IN alphabet-name"));
- }
- }
- }
-#line 14316 "parser.c" /* yacc.c:1646 */
- break;
-
- case 262:
-#line 5005 "parser.y" /* yacc.c:1646 */
- { (yyval) = CB_LIST_INIT ((yyvsp[0])); }
-#line 14322 "parser.c" /* yacc.c:1646 */
- break;
-
- case 263:
-#line 5006 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0])); }
-#line 14328 "parser.c" /* yacc.c:1646 */
- break;
-
- case 264:
-#line 5011 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 14336 "parser.c" /* yacc.c:1646 */
- break;
-
- case 265:
-#line 5015 "parser.y" /* yacc.c:1646 */
- {
- if (CB_TREE_CLASS ((yyvsp[-2])) != CB_CLASS_NUMERIC
- && CB_LITERAL_P ((yyvsp[-2])) && CB_LITERAL ((yyvsp[-2]))->size != 1) {
- cb_error (_("CLASS literal with THRU must have size 1"));
- }
- if (CB_TREE_CLASS ((yyvsp[0])) != CB_CLASS_NUMERIC
- && CB_LITERAL_P ((yyvsp[0])) && CB_LITERAL ((yyvsp[0]))->size != 1) {
- cb_error (_("CLASS literal with THRU must have size 1"));
- }
- if (cb_literal_value ((yyvsp[-2])) <= cb_literal_value ((yyvsp[0]))) {
- (yyval) = CB_BUILD_PAIR ((yyvsp[-2]), (yyvsp[0]));
- } else {
- (yyval) = CB_BUILD_PAIR ((yyvsp[0]), (yyvsp[-2]));
- }
- }
-#line 14356 "parser.c" /* yacc.c:1646 */
- break;
-
- case 266:
-#line 5036 "parser.y" /* yacc.c:1646 */
- {
- check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
- COBC_HD_CONFIGURATION_SECTION,
- COBC_HD_SPECIAL_NAMES, 0);
- if (current_program->nested_level) {
- cb_error (_("%s not allowed in nested programs"), "SPECIAL-NAMES");
- } else {
- /* Returns null on error */
- cb_tree l = cb_build_locale_name ((yyvsp[-2]), (yyvsp[0]));
- if (l) {
- current_program->locale_list =
- cb_list_add (current_program->locale_list, l);
- }
- }
- }
-#line 14376 "parser.c" /* yacc.c:1646 */
- break;
-
- case 267:
-#line 5057 "parser.y" /* yacc.c:1646 */
- {
- check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
- COBC_HD_CONFIGURATION_SECTION,
- COBC_HD_SPECIAL_NAMES, 0);
- if (current_program->nested_level) {
- cb_error (_("%s not allowed in nested programs"), "SPECIAL-NAMES");
- (yyval) = NULL;
- } else {
- /* Returns null on error */
- (yyval) = cb_build_schema_name ((yyvsp[0]));
- }
- }
-#line 14393 "parser.c" /* yacc.c:1646 */
- break;
-
- case 268:
-#line 5070 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[-1])) {
- current_program->schema_name_list =
- cb_list_add (current_program->schema_name_list, (yyvsp[-1]));
- }
- cobc_cs_check = 0;
- }
-#line 14405 "parser.c" /* yacc.c:1646 */
- break;
-
- case 269:
-#line 5081 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[-1]);
- if ((yyvsp[-1])) {
- CB_SCHEMA_NAME ((yyvsp[-1]))->data = (const char *) CB_LITERAL ((yyvsp[0]))->data;
- }
- }
-#line 14416 "parser.c" /* yacc.c:1646 */
- break;
-
- case 270:
-#line 5088 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[-1]);
- if ((yyvsp[-1])) {
- CB_SCHEMA_NAME ((yyvsp[-1]))->data = CB_REFERENCE ((yyvsp[0]))->word->name;
- }
- }
-#line 14427 "parser.c" /* yacc.c:1646 */
- break;
-
- case 271:
-#line 5100 "parser.y" /* yacc.c:1646 */
- {
- check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
- COBC_HD_CONFIGURATION_SECTION,
- COBC_HD_SPECIAL_NAMES, 0);
- if (current_program->nested_level) {
- cb_error (_("%s not allowed in nested programs"), "SPECIAL-NAMES");
- } else {
- unsigned int error_ind = 0;
-
- /* FIXME: actual allowed (depending on dialect), see FR #246 */
- check_repeated ("CURRENCY", SYN_CLAUSE_1, &check_duplicate);
-
- /* checks of CURRENCY SIGN (being currency string) when separate */
- if ((yyvsp[0])) {
- unsigned int char_seen = 0;
- unsigned char *s = CB_LITERAL ((yyvsp[-1]))->data;
-
- CB_PENDING_X ((yyvsp[-1]), _("separate currency symbol and currency string"));
- while (*s) {
- switch (*s) {
- case '0':
- case '1':
- case '2':
- case '3':
- case '4':
- case '5':
- case '6':
- case '7':
- case '8':
- case '9':
- case '+':
- case '-':
- case ',':
- case '.':
- case '*':
- error_ind = 1;
- break;
- case ' ':
- break;
- default:
- char_seen = 1;
- break;
- }
- s++;
- }
- if (!char_seen) {
- error_ind = 1;
- }
- }
- if (error_ind) {
- cb_error_x ((yyvsp[-1]), _("invalid CURRENCY SIGN '%s'"), (char*)CB_LITERAL ((yyvsp[-1]))->data);
- }
- if ((yyvsp[0])) {
- set_currency_picture_symbol ((yyvsp[0]));
- } else {
- if (!error_ind) {
- set_currency_picture_symbol ((yyvsp[-1]));
- }
- }
- }
- }
-#line 14493 "parser.c" /* yacc.c:1646 */
- break;
-
- case 272:
-#line 5166 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 14501 "parser.c" /* yacc.c:1646 */
- break;
-
- case 273:
-#line 5170 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 14509 "parser.c" /* yacc.c:1646 */
- break;
-
- case 274:
-#line 5179 "parser.y" /* yacc.c:1646 */
- {
- check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
- COBC_HD_CONFIGURATION_SECTION,
- COBC_HD_SPECIAL_NAMES, 0);
- if (current_program->nested_level) {
- cb_error (_("%s not allowed in nested programs"), "SPECIAL-NAMES");
- } else {
- check_repeated ("DECIMAL-POINT", SYN_CLAUSE_2, &check_duplicate);
- current_program->decimal_point = ',';
- current_program->numeric_separator = '.';
- }
- }
-#line 14526 "parser.c" /* yacc.c:1646 */
- break;
-
- case 275:
-#line 5198 "parser.y" /* yacc.c:1646 */
- {
- check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
- COBC_HD_CONFIGURATION_SECTION,
- COBC_HD_SPECIAL_NAMES, 0);
- if (current_program->nested_level) {
- cb_error (_("%s not allowed in nested programs"), "SPECIAL-NAMES");
- } else {
- current_program->flag_trailing_separate = 1;
- }
- }
-#line 14541 "parser.c" /* yacc.c:1646 */
- break;
-
- case 276:
-#line 5214 "parser.y" /* yacc.c:1646 */
- {
- check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
- COBC_HD_CONFIGURATION_SECTION,
- COBC_HD_SPECIAL_NAMES, 0);
- if (current_program->nested_level) {
- cb_error (_("%s not allowed in nested programs"), "SPECIAL-NAMES");
- } else {
- check_repeated ("CURSOR", SYN_CLAUSE_3, &check_duplicate);
- current_program->cursor_pos = (yyvsp[0]);
- }
- }
-#line 14557 "parser.c" /* yacc.c:1646 */
- break;
-
- case 277:
-#line 5232 "parser.y" /* yacc.c:1646 */
- {
- check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
- COBC_HD_CONFIGURATION_SECTION,
- COBC_HD_SPECIAL_NAMES, 0);
- if (current_program->nested_level) {
- cb_error (_("%s not allowed in nested programs"), "SPECIAL-NAMES");
- } else {
- check_repeated ("CRT STATUS", SYN_CLAUSE_4, &check_duplicate);
- current_program->crt_status = (yyvsp[0]);
- }
- }
-#line 14573 "parser.c" /* yacc.c:1646 */
- break;
-
- case 278:
-#line 5250 "parser.y" /* yacc.c:1646 */
- {
- check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
- COBC_HD_CONFIGURATION_SECTION,
- COBC_HD_SPECIAL_NAMES, 0);
- if (current_program->nested_level) {
- cb_error (_("%s not allowed in nested programs"), "SPECIAL-NAMES");
- } else {
- check_repeated ("SCREEN CONTROL", SYN_CLAUSE_5, &check_duplicate);
- CB_PENDING ("SCREEN CONTROL");
- }
- }
-#line 14589 "parser.c" /* yacc.c:1646 */
- break;
-
- case 279:
-#line 5267 "parser.y" /* yacc.c:1646 */
- {
- check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
- COBC_HD_CONFIGURATION_SECTION,
- COBC_HD_SPECIAL_NAMES, 0);
- if (current_program->nested_level) {
- cb_error (_("%s not allowed in nested programs"), "SPECIAL-NAMES");
- } else {
- check_repeated ("EVENT STATUS", SYN_CLAUSE_6, &check_duplicate);
- CB_PENDING ("EVENT STATUS");
- }
- }
-#line 14605 "parser.c" /* yacc.c:1646 */
- break;
-
- case 280:
-#line 5284 "parser.y" /* yacc.c:1646 */
- {
- check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
- COBC_HD_CONFIGURATION_SECTION,
- COBC_HD_SPECIAL_NAMES, 0);
- check_duplicate = 0;
- if (current_program->nested_level) {
- cb_error (_("%s not allowed in nested programs"), "SPECIAL-NAMES");
- save_tree = NULL;
- } else {
- /* lookup system name
- note: result in NULL + raised error if not found */
- save_tree = get_system_name ("TOP");
- }
- }
-#line 14624 "parser.c" /* yacc.c:1646 */
- break;
-
- case 281:
-#line 5299 "parser.y" /* yacc.c:1646 */
- {
- if (save_tree && CB_VALID_TREE ((yyvsp[0]))) {
- cb_define ((yyvsp[0]), save_tree);
- CB_CHAIN_PAIR (current_program->mnemonic_spec_list,
- (yyvsp[0]), save_tree);
- }
- }
-#line 14636 "parser.c" /* yacc.c:1646 */
- break;
-
- case 283:
-#line 5317 "parser.y" /* yacc.c:1646 */
- { check_area_a_of ("INPUT-OUTPUT SECTION"); }
-#line 14642 "parser.c" /* yacc.c:1646 */
- break;
-
- case 285:
-#line 5320 "parser.y" /* yacc.c:1646 */
- {
- check_headers_present (COBC_HD_ENVIRONMENT_DIVISION, 0, 0, 0);
- header_check |= COBC_HD_INPUT_OUTPUT_SECTION;
- }
-#line 14651 "parser.c" /* yacc.c:1646 */
- break;
-
- case 287:
-#line 5330 "parser.y" /* yacc.c:1646 */
- {
- check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
- COBC_HD_INPUT_OUTPUT_SECTION, 0, 0);
- header_check |= COBC_HD_FILE_CONTROL;
- }
-#line 14661 "parser.c" /* yacc.c:1646 */
- break;
-
- case 290:
-#line 5342 "parser.y" /* yacc.c:1646 */
- { check_non_area_a ((yyvsp[0])); }
-#line 14667 "parser.c" /* yacc.c:1646 */
- break;
-
- case 291:
-#line 5344 "parser.y" /* yacc.c:1646 */
- {
- char buff[COB_MINI_BUFF];
-
- check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
- COBC_HD_INPUT_OUTPUT_SECTION,
- COBC_HD_FILE_CONTROL, 0);
- check_duplicate = 0;
- if (CB_VALID_TREE ((yyvsp[0]))) {
- /* Build new file */
- current_file = build_file ((yyvsp[0]));
- current_file->optional = CB_INTEGER ((yyvsp[-1]))->val;
-
- /* Add file to current program list */
- CB_ADD_TO_CHAIN (CB_TREE (current_file),
- current_program->file_list);
- } else {
- /* Create dummy file */
- snprintf (buff, COB_MINI_BUFF, "SELECT on line %d",
- cb_source_line);
- current_file = build_file (cb_build_reference (buff));
- CB_ADD_TO_CHAIN (CB_TREE (current_file),
- current_program->file_list);
-
- }
- key_type = NO_KEY;
- }
-#line 14698 "parser.c" /* yacc.c:1646 */
- break;
-
- case 292:
-#line 5371 "parser.y" /* yacc.c:1646 */
- {
- cobc_cs_check = 0;
- if (CB_VALID_TREE ((yyvsp[-2]))) {
- if (current_file->organization == COB_ORG_INDEXED
- && key_type == RELATIVE_KEY) {
- cb_error_x (current_file->key,
- _("cannot use RELATIVE KEY clause on INDEXED files"));
- } else if (current_file->organization == COB_ORG_RELATIVE
- && key_type == RECORD_KEY) {
- cb_error_x (current_file->key,
- _("cannot use RECORD KEY clause on RELATIVE files"));
- }
-
- validate_file (current_file, (yyvsp[-2]));
- }
- }
-#line 14719 "parser.c" /* yacc.c:1646 */
- break;
-
- case 294:
-#line 5392 "parser.y" /* yacc.c:1646 */
- {
- yyerrok;
- }
-#line 14727 "parser.c" /* yacc.c:1646 */
- break;
-
- case 296:
-#line 5399 "parser.y" /* yacc.c:1646 */
- {
- /* reset context-sensitive words for next clauses */
- cobc_cs_check = CB_CS_SELECT;
- }
-#line 14736 "parser.c" /* yacc.c:1646 */
- break;
-
- case 317:
-#line 5450 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("ASSIGN", SYN_CLAUSE_1, &check_duplicate);
- if (ext_dyn_specified) {
- cb_error (_("EXTERNAL/DYNAMIC cannot be used with literals"));
- }
-
- current_file->assign_type = CB_ASSIGN_EXT_FILE_NAME_REQUIRED;
- current_file->assign = cb_build_assignment_name (current_file, (yyvsp[0]));
- }
-#line 14750 "parser.c" /* yacc.c:1646 */
- break;
-
- case 318:
-#line 5460 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("ASSIGN", SYN_CLAUSE_1, &check_duplicate);
-
- /* current_file->assign_type is set by _ext_clause */
- if (!ext_dyn_specified) {
- current_file->flag_assign_no_keyword = 1;
- }
- current_file->assign = cb_build_assignment_name (current_file, (yyvsp[0]));
- }
-#line 14764 "parser.c" /* yacc.c:1646 */
- break;
-
- case 319:
-#line 5470 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("ASSIGN", SYN_CLAUSE_1, &check_duplicate);
- if (ext_dyn_specified) {
- cb_error (_("EXTERNAL/DYNAMIC cannot be used with USING/VARYING"));
- }
- cb_verify (cb_assign_using_variable, "ASSIGN USING/VARYING variable");
-
- current_file->assign_type = CB_ASSIGN_VARIABLE_REQUIRED;
- current_file->assign = cb_build_assignment_name (current_file, (yyvsp[0]));
- }
-#line 14779 "parser.c" /* yacc.c:1646 */
- break;
-
- case 320:
-#line 5481 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("ASSIGN", SYN_CLAUSE_1, &check_duplicate);
- if (ext_dyn_specified) {
- cb_error (_("EXTERNAL/DYNAMIC cannot be used with DISK FROM"));
- }
- cb_verify (cb_assign_disk_from, "ASSIGN DISK FROM");
-
- current_file->assign_type = CB_ASSIGN_VARIABLE_REQUIRED;
- current_file->assign = cb_build_assignment_name (current_file, (yyvsp[0]));
- }
-#line 14794 "parser.c" /* yacc.c:1646 */
- break;
-
- case 321:
-#line 5492 "parser.y" /* yacc.c:1646 */
- {
- if (assign_device == CB_ASSIGN_DISPLAY_DEVICE) {
- current_file->assign =
- cb_build_alphanumeric_literal ("stdout", (size_t)6);
- current_file->special = COB_SELECT_STDOUT;
- } else if (assign_device == CB_ASSIGN_KEYBOARD_DEVICE) {
- current_file->assign =
- cb_build_alphanumeric_literal ("stdin", (size_t)5);
- current_file->special = COB_SELECT_STDIN;
- } else if (assign_device == CB_ASSIGN_PRINTER_DEVICE) {
- current_file->organization = COB_ORG_LINE_SEQUENTIAL;
- current_file->assign =
- cb_build_alphanumeric_literal ("PRINTER", (size_t)7);
- } else if (assign_device == CB_ASSIGN_PRINTER_1_DEVICE) {
- current_file->organization = COB_ORG_LINE_SEQUENTIAL;
- current_file->assign =
- cb_build_alphanumeric_literal ("PRINTER-1", (size_t)9);
- } else if (assign_device == CB_ASSIGN_PRINT_DEVICE) {
- current_file->organization = COB_ORG_LINE_SEQUENTIAL;
- current_file->assign =
- cb_build_alphanumeric_literal ("LPT1", (size_t)4);
- } else if (assign_device == CB_ASSIGN_LINE_SEQ_DEVICE
- || assign_device == CB_ASSIGN_GENERAL_DEVICE) {
- current_file->flag_fileid = 1;
- }
- }
-#line 14825 "parser.c" /* yacc.c:1646 */
- break;
-
- case 322:
-#line 5522 "parser.y" /* yacc.c:1646 */
- {
- assign_device = CB_ASSIGN_NO_DEVICE;
- }
-#line 14833 "parser.c" /* yacc.c:1646 */
- break;
-
- case 323:
-#line 5526 "parser.y" /* yacc.c:1646 */
- {
- assign_device = CB_ASSIGN_NO_DEVICE;
- }
-#line 14841 "parser.c" /* yacc.c:1646 */
- break;
-
- case 325:
-#line 5534 "parser.y" /* yacc.c:1646 */
- {
- assign_device = CB_ASSIGN_GENERAL_DEVICE;
- }
-#line 14849 "parser.c" /* yacc.c:1646 */
- break;
-
- case 326:
-#line 5538 "parser.y" /* yacc.c:1646 */
- {
- current_file->organization = COB_ORG_LINE_SEQUENTIAL;
- assign_device = CB_ASSIGN_LINE_SEQ_DEVICE;
- }
-#line 14858 "parser.c" /* yacc.c:1646 */
- break;
-
- case 327:
-#line 5543 "parser.y" /* yacc.c:1646 */
- {
- assign_device = CB_ASSIGN_DISPLAY_DEVICE;
- }
-#line 14866 "parser.c" /* yacc.c:1646 */
- break;
-
- case 328:
-#line 5547 "parser.y" /* yacc.c:1646 */
- {
- assign_device = CB_ASSIGN_KEYBOARD_DEVICE;
- }
-#line 14874 "parser.c" /* yacc.c:1646 */
- break;
-
- case 329:
-#line 5555 "parser.y" /* yacc.c:1646 */
- {
- assign_device = CB_ASSIGN_PRINTER_DEVICE;
- current_file->organization = COB_ORG_LINE_SEQUENTIAL;
- current_file->flag_line_adv = 1;
- }
-#line 14884 "parser.c" /* yacc.c:1646 */
- break;
-
- case 330:
-#line 5561 "parser.y" /* yacc.c:1646 */
- {
- assign_device = CB_ASSIGN_PRINTER_1_DEVICE;
- current_file->organization = COB_ORG_LINE_SEQUENTIAL;
- current_file->flag_line_adv = 1;
- }
-#line 14894 "parser.c" /* yacc.c:1646 */
- break;
-
- case 331:
-#line 5567 "parser.y" /* yacc.c:1646 */
- {
- assign_device = CB_ASSIGN_PRINT_DEVICE;
- current_file->organization = COB_ORG_LINE_SEQUENTIAL;
- current_file->flag_line_adv = 1;
- }
-#line 14904 "parser.c" /* yacc.c:1646 */
- break;
-
- case 343:
-#line 5594 "parser.y" /* yacc.c:1646 */
- {
- current_file->flag_line_adv = 1;
- }
-#line 14912 "parser.c" /* yacc.c:1646 */
- break;
-
- case 344:
-#line 5601 "parser.y" /* yacc.c:1646 */
- {
- ext_dyn_specified = 0;
- current_file->assign_type = cb_assign_type_default;
- }
-#line 14921 "parser.c" /* yacc.c:1646 */
- break;
-
- case 345:
-#line 5606 "parser.y" /* yacc.c:1646 */
- {
- ext_dyn_specified = 1;
- cb_verify (cb_assign_ext_dyn, _("ASSIGN EXTERNAL/DYNAMIC"));
- }
-#line 14930 "parser.c" /* yacc.c:1646 */
- break;
-
- case 346:
-#line 5614 "parser.y" /* yacc.c:1646 */
- {
- current_file->assign_type = CB_ASSIGN_EXT_FILE_NAME_REQUIRED;
- }
-#line 14938 "parser.c" /* yacc.c:1646 */
- break;
-
- case 347:
-#line 5618 "parser.y" /* yacc.c:1646 */
- {
- current_file->assign_type = CB_ASSIGN_VARIABLE_REQUIRED;
- }
-#line 14946 "parser.c" /* yacc.c:1646 */
- break;
-
- case 350:
-#line 5632 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("ACCESS", SYN_CLAUSE_2, &check_duplicate);
- }
-#line 14954 "parser.c" /* yacc.c:1646 */
- break;
-
- case 351:
-#line 5638 "parser.y" /* yacc.c:1646 */
- { current_file->access_mode = COB_ACCESS_SEQUENTIAL; }
-#line 14960 "parser.c" /* yacc.c:1646 */
- break;
-
- case 352:
-#line 5639 "parser.y" /* yacc.c:1646 */
- { current_file->access_mode = COB_ACCESS_DYNAMIC; }
-#line 14966 "parser.c" /* yacc.c:1646 */
- break;
-
- case 353:
-#line 5640 "parser.y" /* yacc.c:1646 */
- { current_file->access_mode = COB_ACCESS_RANDOM; }
-#line 14972 "parser.c" /* yacc.c:1646 */
- break;
-
- case 354:
-#line 5648 "parser.y" /* yacc.c:1646 */
- {
- struct cb_alt_key *p;
- struct cb_alt_key *l;
-
- cb_tree composite_key;
-
- p = cobc_parse_malloc (sizeof (struct cb_alt_key));
- p->key = (yyvsp[-4]);
- p->component_list = NULL;
- if ((yyvsp[-2])) {
- p->duplicates = CB_INTEGER ((yyvsp[-2]))->val;
- } else {
- /* note: we may add a compiler configuration here,
- as at least ICOBOL defaults to WITH DUPLICATES
- for ALTERNATE keys if not explicit deactivated
- */
- p->duplicates = 0;
- }
- p->password = (yyvsp[-1]);
- if ((yyvsp[0])) {
- p->tf_suppress = 1;
- p->char_suppress = CB_INTEGER ((yyvsp[0]))->val;
- } else {
- p->tf_suppress = 0;
- }
- p->next = NULL;
-
- /* handle split keys */
- if ((yyvsp[-3])) {
- /* generate field (in w-s) for composite-key */
- composite_key = cb_build_field((yyvsp[-4]));
- if (composite_key == cb_error_node) {
- YYERROR;
- } else {
- composite_key->category = CB_CATEGORY_ALPHANUMERIC;
- ((struct cb_field *)composite_key)->count = 1;
- p->key = cb_build_field_reference((struct cb_field *)composite_key, NULL);
- p->component_list = key_component_list;
- }
- }
-
- /* Add to the end of list */
- if (current_file->alt_key_list == NULL) {
- current_file->alt_key_list = p;
- } else {
- l = current_file->alt_key_list;
- for (; l->next; l = l->next) { ; }
- l->next = p;
- }
- }
-#line 15027 "parser.c" /* yacc.c:1646 */
- break;
-
- case 355:
-#line 5702 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 15035 "parser.c" /* yacc.c:1646 */
- break;
-
- case 357:
-#line 5710 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("PASSWORD clause");
- }
-#line 15043 "parser.c" /* yacc.c:1646 */
- break;
-
- case 358:
-#line 5714 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 15051 "parser.c" /* yacc.c:1646 */
- break;
-
- case 359:
-#line 5722 "parser.y" /* yacc.c:1646 */
- {
- if (current_file->organization == COB_ORG_INDEXED) {
- cb_error (_("%s only valid with ORGANIZATION %s"), "WITH ENCRYPTION", "INDEXED");
- } else {
- CB_PENDING ("WITH ENCRYPTION");
- current_file->password = cb_int0;
- }
- }
-#line 15064 "parser.c" /* yacc.c:1646 */
- break;
-
- case 360:
-#line 5734 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 15072 "parser.c" /* yacc.c:1646 */
- break;
-
- case 361:
-#line 5738 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int (cb_literal_value ((yyvsp[0])));
- }
-#line 15080 "parser.c" /* yacc.c:1646 */
- break;
-
- case 362:
-#line 5742 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int (cb_literal_value ((yyvsp[0])));
- }
-#line 15088 "parser.c" /* yacc.c:1646 */
- break;
-
- case 363:
-#line 5752 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("COLLATING", SYN_CLAUSE_3, &check_duplicate);
- current_file->collating_sequence = alphanumeric_collation;
- current_file->collating_sequence_n = national_collation;
- CB_PENDING ("FILE COLLATING SEQUENCE");
- }
-#line 15099 "parser.c" /* yacc.c:1646 */
- break;
-
- case 365:
-#line 5767 "parser.y" /* yacc.c:1646 */
- {
- alphanumeric_collation = (yyvsp[0]);
- }
-#line 15107 "parser.c" /* yacc.c:1646 */
- break;
-
- case 366:
-#line 5771 "parser.y" /* yacc.c:1646 */
- {
- alphanumeric_collation = (yyvsp[-1]);
- CB_PENDING_X ((yyvsp[0]), "NATIONAL COLLATING SEQUENCE");
- national_collation = (yyvsp[0]);
- }
-#line 15117 "parser.c" /* yacc.c:1646 */
- break;
-
- case 367:
-#line 5777 "parser.y" /* yacc.c:1646 */
- {
- alphanumeric_collation = (yyvsp[0]);
- }
-#line 15125 "parser.c" /* yacc.c:1646 */
- break;
-
- case 368:
-#line 5781 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING_X ((yyvsp[0]), "NATIONAL COLLATING SEQUENCE");
- national_collation = (yyvsp[0]);
- }
-#line 15134 "parser.c" /* yacc.c:1646 */
- break;
-
- case 369:
-#line 5787 "parser.y" /* yacc.c:1646 */
- {
- alphanumeric_collation = (yyvsp[-4]);
- CB_PENDING_X ((yyvsp[0]), "NATIONAL COLLATING SEQUENCE");
- national_collation = (yyvsp[0]);
- }
-#line 15144 "parser.c" /* yacc.c:1646 */
- break;
-
- case 370:
-#line 5794 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING_X ((yyvsp[-4]), "NATIONAL COLLATING SEQUENCE");
- national_collation = (yyvsp[-4]);
- alphanumeric_collation = (yyvsp[0]);
- }
-#line 15154 "parser.c" /* yacc.c:1646 */
- break;
-
- case 371:
-#line 5803 "parser.y" /* yacc.c:1646 */
- {
- /* note: both entries must be resolved later on
- and also attached to the correct key later, so just store in a list here: */
- current_file->collating_sequence_keys =
- cb_list_add(current_file->collating_sequence_keys, CB_BUILD_PAIR ((yyvsp[0]), (yyvsp[-2])));
- CB_PENDING ("KEY COLLATING SEQUENCE");
- }
-#line 15166 "parser.c" /* yacc.c:1646 */
- break;
-
- case 372:
-#line 5814 "parser.y" /* yacc.c:1646 */
- {
- if (CB_ALPHABET_NAME_P (cb_ref ((yyvsp[0])))) {
- (yyval) = (yyvsp[0]);
- } else {
- cb_error_x ((yyvsp[0]), _("'%s' is not an alphabet-name"),
- cb_name ((yyvsp[0])));
- (yyval) = cb_error_node;
- }
- }
-#line 15180 "parser.c" /* yacc.c:1646 */
- break;
-
- case 373:
-#line 5824 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = build_colseq (CB_COLSEQ_NATIVE);
- }
-#line 15188 "parser.c" /* yacc.c:1646 */
- break;
-
- case 374:
-#line 5828 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = build_colseq (CB_COLSEQ_ASCII);
- }
-#line 15196 "parser.c" /* yacc.c:1646 */
- break;
-
- case 375:
-#line 5832 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = build_colseq (CB_COLSEQ_ASCII);
- }
-#line 15204 "parser.c" /* yacc.c:1646 */
- break;
-
- case 376:
-#line 5836 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = build_colseq (CB_COLSEQ_EBCDIC);
- }
-#line 15212 "parser.c" /* yacc.c:1646 */
- break;
-
- case 377:
-#line 5840 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = build_colseq (CB_COLSEQ_ASCII);
- }
-#line 15220 "parser.c" /* yacc.c:1646 */
- break;
-
- case 378:
-#line 5849 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("STATUS", SYN_CLAUSE_4, &check_duplicate);
- current_file->file_status = (yyvsp[-1]);
- if ((yyvsp[0])) {
- /* Ignore VSAM STATUS field */
- cb_verify (cb_vsam_status, _("VSAM status"));
- }
- }
-#line 15233 "parser.c" /* yacc.c:1646 */
- break;
-
- case 382:
-#line 5868 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("LOCK", SYN_CLAUSE_5, &check_duplicate);
- }
-#line 15241 "parser.c" /* yacc.c:1646 */
- break;
-
- case 384:
-#line 5876 "parser.y" /* yacc.c:1646 */
- {
- current_file->lock_mode |= COB_LOCK_MANUAL;
- }
-#line 15249 "parser.c" /* yacc.c:1646 */
- break;
-
- case 385:
-#line 5880 "parser.y" /* yacc.c:1646 */
- {
- current_file->lock_mode |= COB_LOCK_AUTOMATIC;
- }
-#line 15257 "parser.c" /* yacc.c:1646 */
- break;
-
- case 386:
-#line 5884 "parser.y" /* yacc.c:1646 */
- {
- current_file->lock_mode |= COB_LOCK_EXCLUSIVE;
- }
-#line 15265 "parser.c" /* yacc.c:1646 */
- break;
-
- case 389:
-#line 5893 "parser.y" /* yacc.c:1646 */
- {
- current_file->lock_mode |= COB_LOCK_MULTIPLE;
- }
-#line 15273 "parser.c" /* yacc.c:1646 */
- break;
-
- case 390:
-#line 5897 "parser.y" /* yacc.c:1646 */
- {
- current_file->lock_mode |= COB_LOCK_MULTIPLE;
- }
-#line 15281 "parser.c" /* yacc.c:1646 */
- break;
-
- case 393:
-#line 5908 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("WITH ROLLBACK");
- }
-#line 15289 "parser.c" /* yacc.c:1646 */
- break;
-
- case 395:
-#line 5915 "parser.y" /* yacc.c:1646 */
- {
- if (current_file->organization == COB_ORG_INDEXED) {
- current_file->lock_mode |= COB_LOCK_EXCLUSIVE;
- /* TODO: pass extra flag to fileio */
- CB_PENDING ("WITH MASS-UPDATE");
- } else {
- cb_error (_("%s only valid with ORGANIZATION %s"), "MASS-UPDATE", "INDEXED");
- }
- }
-#line 15303 "parser.c" /* yacc.c:1646 */
- break;
-
- case 398:
-#line 5936 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("ORGANIZATION", SYN_CLAUSE_6, &check_duplicate);
- error_if_record_delimiter_incompatible (COB_ORG_INDEXED, "INDEXED");
- current_file->organization = COB_ORG_INDEXED;
- }
-#line 15313 "parser.c" /* yacc.c:1646 */
- break;
-
- case 399:
-#line 5942 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("ORGANIZATION", SYN_CLAUSE_6, &check_duplicate);
- error_if_record_delimiter_incompatible (COB_ORG_SEQUENTIAL, "SEQUENTIAL");
- current_file->organization = COB_ORG_SEQUENTIAL;
- }
-#line 15323 "parser.c" /* yacc.c:1646 */
- break;
-
- case 400:
-#line 5948 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("ORGANIZATION", SYN_CLAUSE_6, &check_duplicate);
- error_if_record_delimiter_incompatible (COB_ORG_RELATIVE, "RELATIVE");
- current_file->organization = COB_ORG_RELATIVE;
- }
-#line 15333 "parser.c" /* yacc.c:1646 */
- break;
-
- case 401:
-#line 5954 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("ORGANIZATION", SYN_CLAUSE_6, &check_duplicate);
- error_if_record_delimiter_incompatible (COB_ORG_LINE_SEQUENTIAL,
- "LINE SEQUENTIAL");
- current_file->organization = COB_ORG_LINE_SEQUENTIAL;
- }
-#line 15344 "parser.c" /* yacc.c:1646 */
- break;
-
- case 402:
-#line 5967 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("PADDING", SYN_CLAUSE_7, &check_duplicate);
- cb_verify (cb_padding_character_clause, "PADDING CHARACTER");
- }
-#line 15353 "parser.c" /* yacc.c:1646 */
- break;
-
- case 403:
-#line 5977 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("RECORD DELIMITER", SYN_CLAUSE_8, &check_duplicate);
- current_file->flag_delimiter = 1;
- }
-#line 15362 "parser.c" /* yacc.c:1646 */
- break;
-
- case 405:
-#line 5986 "parser.y" /* yacc.c:1646 */
- {
- if (current_file->organization != COB_ORG_SEQUENTIAL) {
- cb_error (_("RECORD DELIMITER %s only allowed with SEQUENTIAL files"),
- "STANDARD-1");
- current_file->flag_delimiter = 0;
- } else if (cb_verify (cb_record_delimiter, _("RECORD DELIMITER clause"))) {
- cb_warning (cb_warn_additional,
- _("%s ignored"), "RECORD DELIMITER STANDARD-1");
- }
- }
-#line 15377 "parser.c" /* yacc.c:1646 */
- break;
-
- case 406:
-#line 5997 "parser.y" /* yacc.c:1646 */
- {
- if (current_file->organization != COB_ORG_SEQUENTIAL
- && current_file->organization != COB_ORG_LINE_SEQUENTIAL) {
- cb_error (_("RECORD DELIMITER %s only allowed with (LINE) SEQUENTIAL files"),
- "LINE-SEQUENTIAL");
- current_file->flag_delimiter = 0;
- }
-
- if (cb_verify (cb_record_delimiter, _("RECORD DELIMITER clause"))
- && cb_verify (cb_sequential_delimiters, _("LINE-SEQUENTIAL phrase"))) {
- current_file->organization = COB_ORG_LINE_SEQUENTIAL;
- }
- }
-#line 15395 "parser.c" /* yacc.c:1646 */
- break;
-
- case 407:
-#line 6011 "parser.y" /* yacc.c:1646 */
- {
- if (current_file->organization != COB_ORG_SEQUENTIAL) {
- cb_error (_("RECORD DELIMITER %s only allowed with SEQUENTIAL files"),
- "BINARY-SEQUENTIAL");
- current_file->flag_delimiter = 0;
- }
-
- if (cb_verify (cb_record_delimiter, _("RECORD DELIMITER clause"))
- && cb_verify (cb_sequential_delimiters, _("BINARY-SEQUENTIAL phrase"))) {
- current_file->organization = COB_ORG_SEQUENTIAL;
- }
- }
-#line 15412 "parser.c" /* yacc.c:1646 */
- break;
-
- case 408:
-#line 6024 "parser.y" /* yacc.c:1646 */
- {
- if (current_file->organization != COB_ORG_SEQUENTIAL
- && current_file->organization != COB_ORG_LINE_SEQUENTIAL) {
- cb_error (_("RECORD DELIMITER clause only allowed with (LINE) SEQUENTIAL files"));
- current_file->flag_delimiter = 0;
- } else if (cb_verify (cb_record_delimiter, _("RECORD DELIMITER clause"))) {
- cb_warning (cb_warn_additional,
- _("RECORD DELIMITER %s not recognized; will be ignored"), cb_name ((yyvsp[0])));
- }
- }
-#line 15427 "parser.c" /* yacc.c:1646 */
- break;
-
- case 409:
-#line 6040 "parser.y" /* yacc.c:1646 */
- {
- cb_tree composite_key;
-
- check_repeated ("RECORD KEY", SYN_CLAUSE_9, &check_duplicate);
- current_file->key = (yyvsp[-3]);
- key_type = RECORD_KEY;
-
- /* handle split keys */
- if ((yyvsp[-2])) {
- /* generate field (in w-s) for composite-key */
- composite_key = cb_build_field ((yyvsp[-3]));
- if (composite_key == cb_error_node) {
- YYERROR;
- } else {
- composite_key->category = CB_CATEGORY_ALPHANUMERIC;
- ((struct cb_field *)composite_key)->count = 1;
- current_file->key = cb_build_field_reference ((struct cb_field *)composite_key, NULL);
- current_file->component_list = key_component_list;
- }
- }
- current_file->password = (yyvsp[-1]);
- if ((yyvsp[0])) {
- /* note: we *may* add a compiler configuration here,
- as most dialects do not allow this clause
- on primary keys */
- if (CB_INTEGER ((yyvsp[0]))->val) {
- /* note: see ACUCOBOL docs for implementation notes, including [RE]WRITE rules
- and "if the underlying (file) system does not support them OPEN
- result in (sucessfull) io-status 0M" */
- CB_PENDING (_("DUPLICATES for primary keys"));
- };
-
- }
- }
-#line 15466 "parser.c" /* yacc.c:1646 */
- break;
-
- case 410:
-#line 6078 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 15474 "parser.c" /* yacc.c:1646 */
- break;
-
- case 411:
-#line 6082 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int0;
- }
-#line 15482 "parser.c" /* yacc.c:1646 */
- break;
-
- case 414:
-#line 6093 "parser.y" /* yacc.c:1646 */
- {
- key_component_list = NULL;
- }
-#line 15490 "parser.c" /* yacc.c:1646 */
- break;
-
- case 417:
-#line 6103 "parser.y" /* yacc.c:1646 */
- {
- struct cb_key_component *c;
- struct cb_key_component *comp = cobc_main_malloc (sizeof(struct cb_key_component));
- comp->next = NULL;
- comp->component = (yyvsp[0]);
- if (key_component_list == NULL) {
- key_component_list = comp;
- } else {
- for (c = key_component_list; c->next != NULL; c = c->next);
- c->next = comp;
- }
- }
-#line 15507 "parser.c" /* yacc.c:1646 */
- break;
-
- case 418:
-#line 6121 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("RELATIVE KEY", SYN_CLAUSE_10, &check_duplicate);
- current_file->key = (yyvsp[0]);
- key_type = RELATIVE_KEY;
- }
-#line 15517 "parser.c" /* yacc.c:1646 */
- break;
-
- case 419:
-#line 6132 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("RESERVE", SYN_CLAUSE_11, &check_duplicate);
- }
-#line 15525 "parser.c" /* yacc.c:1646 */
- break;
-
- case 422:
-#line 6146 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("SHARING", SYN_CLAUSE_12, &check_duplicate);
- current_file->sharing = (yyvsp[0]);
- }
-#line 15534 "parser.c" /* yacc.c:1646 */
- break;
-
- case 423:
-#line 6158 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 15540 "parser.c" /* yacc.c:1646 */
- break;
-
- case 424:
-#line 6159 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int (COB_LOCK_OPEN_EXCLUSIVE); }
-#line 15546 "parser.c" /* yacc.c:1646 */
- break;
-
- case 425:
-#line 6160 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 15552 "parser.c" /* yacc.c:1646 */
- break;
-
- case 426:
-#line 6167 "parser.y" /* yacc.c:1646 */
- {
- (void)cb_verify (CB_OBSOLETE, "FILE-LIMIT");
- check_repeated ("FILE-LIMIT", SYN_CLAUSE_13, &check_duplicate);
- }
-#line 15561 "parser.c" /* yacc.c:1646 */
- break;
-
- case 429:
-#line 6182 "parser.y" /* yacc.c:1646 */
- {
- (void)cb_verify (CB_OBSOLETE, "ACTUAL KEY");
- check_repeated ("ACTUAL KEY", SYN_CLAUSE_14, &check_duplicate);
- }
-#line 15570 "parser.c" /* yacc.c:1646 */
- break;
-
- case 430:
-#line 6192 "parser.y" /* yacc.c:1646 */
- {
- (void)cb_verify (CB_OBSOLETE, "NOMINAL KEY");
- check_repeated ("NOMINAL KEY", SYN_CLAUSE_15, &check_duplicate);
- }
-#line 15579 "parser.c" /* yacc.c:1646 */
- break;
-
- case 431:
-#line 6202 "parser.y" /* yacc.c:1646 */
- {
- (void)cb_verify (CB_OBSOLETE, "TRACK-AREA");
- check_repeated ("TRACK-AREA", SYN_CLAUSE_16, &check_duplicate);
- }
-#line 15588 "parser.c" /* yacc.c:1646 */
- break;
-
- case 432:
-#line 6212 "parser.y" /* yacc.c:1646 */
- {
- (void)cb_verify (CB_OBSOLETE, "TRACK-LIMIT");
- check_repeated ("TRACK-LIMIT", SYN_CLAUSE_17, &check_duplicate);
- }
-#line 15597 "parser.c" /* yacc.c:1646 */
- break;
-
- case 434:
-#line 6223 "parser.y" /* yacc.c:1646 */
- {
- cobc_cs_check = 0;
- }
-#line 15605 "parser.c" /* yacc.c:1646 */
- break;
-
- case 435:
-#line 6230 "parser.y" /* yacc.c:1646 */
- {
- check_headers_present(COBC_HD_ENVIRONMENT_DIVISION,
- COBC_HD_INPUT_OUTPUT_SECTION, 0, 0);
- header_check |= COBC_HD_I_O_CONTROL;
-}
-#line 15615 "parser.c" /* yacc.c:1646 */
- break;
-
- case 438:
-#line 6240 "parser.y" /* yacc.c:1646 */
- {
- yyerrok;
- }
-#line 15623 "parser.c" /* yacc.c:1646 */
- break;
-
- case 445:
-#line 6261 "parser.y" /* yacc.c:1646 */
- {
- cb_tree l;
-
- check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
- COBC_HD_INPUT_OUTPUT_SECTION,
- COBC_HD_I_O_CONTROL, 0);
- switch (CB_INTEGER ((yyvsp[-3]))->val) {
- case 0:
- /* SAME AREA */
- break;
- case 1:
- /* SAME RECORD */
- for (l = (yyvsp[0]); l; l = CB_CHAIN (l)) {
- if (CB_VALID_TREE (CB_VALUE (l))) {
- CB_FILE (cb_ref (CB_VALUE (l)))->same_clause = same_area;
- }
- }
- same_area++;
- break;
- case 2:
- /* SAME SORT-MERGE */
- break;
- }
- }
-#line 15652 "parser.c" /* yacc.c:1646 */
- break;
-
- case 446:
-#line 6288 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int0; }
-#line 15658 "parser.c" /* yacc.c:1646 */
- break;
-
- case 447:
-#line 6289 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int1; }
-#line 15664 "parser.c" /* yacc.c:1646 */
- break;
-
- case 448:
-#line 6290 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int2; }
-#line 15670 "parser.c" /* yacc.c:1646 */
- break;
-
- case 449:
-#line 6291 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int2; }
-#line 15676 "parser.c" /* yacc.c:1646 */
- break;
-
- case 450:
-#line 6298 "parser.y" /* yacc.c:1646 */
- {
- current_program->apply_commit = (yyvsp[0]);
- CB_PENDING("APPLY COMMIT");
- }
-#line 15685 "parser.c" /* yacc.c:1646 */
- break;
-
- case 451:
-#line 6303 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("APPLY LOCK-HOLDING");
- }
-#line 15693 "parser.c" /* yacc.c:1646 */
- break;
-
- case 452:
-#line 6307 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("APPLY PRINT-CONTROL");
- }
-#line 15701 "parser.c" /* yacc.c:1646 */
- break;
-
- case 454:
-#line 6312 "parser.y" /* yacc.c:1646 */
- {
- cb_verify (CB_OBSOLETE, _("DOS/VS APPLY phrase"));
- }
-#line 15709 "parser.c" /* yacc.c:1646 */
- break;
-
- case 463:
-#line 6332 "parser.y" /* yacc.c:1646 */
- {
- /* Fake for TAPE */
- cobc_cs_check = CB_CS_ASSIGN;
- }
-#line 15718 "parser.c" /* yacc.c:1646 */
- break;
-
- case 464:
-#line 6337 "parser.y" /* yacc.c:1646 */
- {
- check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
- COBC_HD_INPUT_OUTPUT_SECTION,
- COBC_HD_I_O_CONTROL, 0);
- cb_verify (cb_multiple_file_tape_clause, "MULTIPLE FILE TAPE");
- cobc_cs_check = 0;
- }
-#line 15730 "parser.c" /* yacc.c:1646 */
- break;
-
- case 487:
-#line 6417 "parser.y" /* yacc.c:1646 */
- {
- current_storage = CB_STORAGE_WORKING;
- }
-#line 15738 "parser.c" /* yacc.c:1646 */
- break;
-
- case 491:
-#line 6432 "parser.y" /* yacc.c:1646 */
- { check_area_a_of ("DATA DIVISION"); }
-#line 15744 "parser.c" /* yacc.c:1646 */
- break;
-
- case 492:
-#line 6435 "parser.y" /* yacc.c:1646 */
- {
- header_check |= COBC_HD_DATA_DIVISION;
- }
-#line 15752 "parser.c" /* yacc.c:1646 */
- break;
-
- case 493:
-#line 6442 "parser.y" /* yacc.c:1646 */
- { check_area_a_of ("FILE SECTION"); }
-#line 15758 "parser.c" /* yacc.c:1646 */
- break;
-
- case 495:
-#line 6445 "parser.y" /* yacc.c:1646 */
- {
- current_storage = CB_STORAGE_FILE;
- check_headers_present (COBC_HD_DATA_DIVISION, 0, 0, 0);
- header_check |= COBC_HD_FILE_SECTION;
- }
-#line 15768 "parser.c" /* yacc.c:1646 */
- break;
-
- case 498:
-#line 6459 "parser.y" /* yacc.c:1646 */
- {
- if (CB_VALID_TREE (current_file)) {
- if (CB_VALID_TREE ((yyvsp[0]))) {
- /* Do not keep Record if this is really a report */
- if (!current_file->reports) {
- finalize_file (current_file, CB_FIELD ((yyvsp[0])));
- }
- } else if (!current_file->reports) {
- cb_error (_("RECORD description missing or invalid"));
- }
- }
- }
-#line 15785 "parser.c" /* yacc.c:1646 */
- break;
-
- case 499:
-#line 6477 "parser.y" /* yacc.c:1646 */
- {
- current_storage = CB_STORAGE_FILE;
- check_headers_present (COBC_HD_DATA_DIVISION,
- COBC_HD_FILE_SECTION, 0, 0);
- check_duplicate = 0;
- if (CB_INVALID_TREE ((yyvsp[0]))) {
- current_file = NULL;
- YYERROR;
- }
- current_file = CB_FILE (cb_ref ((yyvsp[0])));
- current_file->description_entry = (yyvsp[0]);
- if (CB_VALID_TREE (current_file)) {
- if ((yyvsp[-1]) == cb_int1) {
- current_file->organization = COB_ORG_SORT;
- }
- /* note: this is a HACK and should be moved */
- if (current_file->flag_finalized) {
- cb_error_x ((yyvsp[0]), _("duplicate file description for %s"),
- cb_name (CB_TREE (current_file)));
- }
- }
- }
-#line 15812 "parser.c" /* yacc.c:1646 */
- break;
-
- case 501:
-#line 6501 "parser.y" /* yacc.c:1646 */
- {
- yyerrok;
- }
-#line 15820 "parser.c" /* yacc.c:1646 */
- break;
-
- case 502:
-#line 6508 "parser.y" /* yacc.c:1646 */
- {
- check_area_a_of ("FD");
- (yyval) = cb_int0;
- }
-#line 15829 "parser.c" /* yacc.c:1646 */
- break;
-
- case 503:
-#line 6513 "parser.y" /* yacc.c:1646 */
- {
- check_area_a_of ("SD");
- (yyval) = cb_int1;
- }
-#line 15838 "parser.c" /* yacc.c:1646 */
- break;
-
- case 506:
-#line 6525 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("EXTERNAL", SYN_CLAUSE_1, &check_duplicate);
-#if 0 /* RXWRXW - Global/External */
- if (current_file->flag_global) {
- cb_error (_("%s and %s are mutually exclusive"), "EXTERNAL", "GLOBAL");
- }
-#endif
- current_file->flag_external = 1;
- }
-#line 15852 "parser.c" /* yacc.c:1646 */
- break;
-
- case 507:
-#line 6535 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("GLOBAL", SYN_CLAUSE_2, &check_duplicate);
-#if 0 /* RXWRXW - Global/External */
- if (current_file->flag_external) {
- cb_error (_("%s and %s are mutually exclusive"), "EXTERNAL", "GLOBAL");
- }
-#endif
- if (current_program->prog_type == COB_MODULE_TYPE_FUNCTION) {
- cb_error (_("%s is invalid in a user FUNCTION"), "GLOBAL");
- } else {
- current_file->flag_global = 1;
- current_program->flag_file_global = 1;
- }
- }
-#line 15871 "parser.c" /* yacc.c:1646 */
- break;
-
- case 517:
-#line 6565 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("BLOCK", SYN_CLAUSE_3, &check_duplicate);
- /* ignore */
- }
-#line 15880 "parser.c" /* yacc.c:1646 */
- break;
-
- case 521:
-#line 6578 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("RECORD", SYN_CLAUSE_4, &check_duplicate);
- if (current_file->organization == COB_ORG_LINE_SEQUENTIAL) {
- cb_warning (cb_warn_additional, _("RECORD clause ignored for LINE SEQUENTIAL"));
- } else {
- set_record_size (NULL, (yyvsp[-1]));
- }
- }
-#line 15893 "parser.c" /* yacc.c:1646 */
- break;
-
- case 522:
-#line 6588 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("RECORD", SYN_CLAUSE_4, &check_duplicate);
- if (current_file->organization == COB_ORG_LINE_SEQUENTIAL) {
- cb_warning (cb_warn_additional, _("RECORD clause ignored for LINE SEQUENTIAL"));
- } else {
- set_record_size ((yyvsp[-4]), (yyvsp[-2]));
- if ((yyvsp[0])) {
- cb_verify (cb_record_contains_depending_clause, "RECORD CONTAINS DEPENDING");
- current_file->record_depending = (yyvsp[0]);
- current_file->flag_check_record_varying_limits =
- current_file->record_min == 0 || current_file->record_max == 0;
- }
- }
- }
-#line 15912 "parser.c" /* yacc.c:1646 */
- break;
-
- case 523:
-#line 6604 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("RECORD", SYN_CLAUSE_4, &check_duplicate);
- set_record_size ((yyvsp[-3]), (yyvsp[-2]));
- current_file->record_depending = (yyvsp[0]);
- current_file->flag_check_record_varying_limits =
- current_file->record_min == 0 || current_file->record_max == 0;
- }
-#line 15924 "parser.c" /* yacc.c:1646 */
- break;
-
- case 524:
-#line 6614 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 15930 "parser.c" /* yacc.c:1646 */
- break;
-
- case 525:
-#line 6615 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 15936 "parser.c" /* yacc.c:1646 */
- break;
-
- case 526:
-#line 6619 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 15942 "parser.c" /* yacc.c:1646 */
- break;
-
- case 527:
-#line 6620 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 15948 "parser.c" /* yacc.c:1646 */
- break;
-
- case 528:
-#line 6624 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 15954 "parser.c" /* yacc.c:1646 */
- break;
-
- case 529:
-#line 6625 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 15960 "parser.c" /* yacc.c:1646 */
- break;
-
- case 530:
-#line 6633 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("LABEL", SYN_CLAUSE_5, &check_duplicate);
- cb_verify (cb_label_records_clause, "LABEL RECORDS");
- }
-#line 15969 "parser.c" /* yacc.c:1646 */
- break;
-
- case 531:
-#line 6644 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("VALUE OF", SYN_CLAUSE_6, &check_duplicate);
- cb_verify (cb_value_of_clause, "VALUE OF");
- }
-#line 15978 "parser.c" /* yacc.c:1646 */
- break;
-
- case 532:
-#line 6649 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("VALUE OF", SYN_CLAUSE_6, &check_duplicate);
- cb_verify (cb_value_of_clause, "VALUE OF");
- if (!current_file->assign) {
- current_file->assign = cb_build_assignment_name (current_file, (yyvsp[0]));
- }
- }
-#line 15990 "parser.c" /* yacc.c:1646 */
- break;
-
- case 537:
-#line 6672 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("DATA", SYN_CLAUSE_7, &check_duplicate);
- cb_verify (cb_data_records_clause, "DATA RECORDS");
- }
-#line 15999 "parser.c" /* yacc.c:1646 */
- break;
-
- case 538:
-#line 6684 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("LINAGE", SYN_CLAUSE_8, &check_duplicate);
- if (current_file->organization != COB_ORG_LINE_SEQUENTIAL &&
- current_file->organization != COB_ORG_SEQUENTIAL) {
- cb_error (_("LINAGE clause with wrong file type"));
- } else {
- current_file->linage = (yyvsp[-2]);
- current_file->organization = COB_ORG_LINE_SEQUENTIAL;
- if (current_linage == 0) {
- linage_file = current_file;
- }
- current_linage++;
- }
- }
-#line 16018 "parser.c" /* yacc.c:1646 */
- break;
-
- case 544:
-#line 6712 "parser.y" /* yacc.c:1646 */
- {
- current_file->latfoot = (yyvsp[0]);
- }
-#line 16026 "parser.c" /* yacc.c:1646 */
- break;
-
- case 545:
-#line 6719 "parser.y" /* yacc.c:1646 */
- {
- current_file->lattop = (yyvsp[0]);
- }
-#line 16034 "parser.c" /* yacc.c:1646 */
- break;
-
- case 546:
-#line 6726 "parser.y" /* yacc.c:1646 */
- {
- current_file->latbot = (yyvsp[0]);
- }
-#line 16042 "parser.c" /* yacc.c:1646 */
- break;
-
- case 547:
-#line 6735 "parser.y" /* yacc.c:1646 */
- {
- cobc_cs_check ^= CB_CS_RECORDING;
- check_repeated ("RECORDING", SYN_CLAUSE_9, &check_duplicate);
- /* ignore */
- }
-#line 16052 "parser.c" /* yacc.c:1646 */
- break;
-
- case 552:
-#line 6748 "parser.y" /* yacc.c:1646 */
- {
- if (current_file->organization != COB_ORG_SEQUENTIAL) {
- cb_error (_("RECORDING MODE U or S can only be used with RECORD SEQUENTIAL files"));
- }
- }
-#line 16062 "parser.c" /* yacc.c:1646 */
- break;
-
- case 555:
-#line 6764 "parser.y" /* yacc.c:1646 */
- {
- struct cb_alphabet_name *al;
-
- check_repeated ("CODE SET", SYN_CLAUSE_10, &check_duplicate);
-
- if (CB_VALID_TREE ((yyvsp[-1]))) {
- al = CB_ALPHABET_NAME (cb_ref ((yyvsp[-1])));
- /* FIXME: should be set depending on program alphabet */
- switch (al->alphabet_type) {
- case CB_ALPHABET_CUSTOM:
- CB_PENDING ("custom CODE-SET");
- current_file->code_set = al;
- break;
-#ifdef COB_EBCDIC_MACHINE
- case CB_ALPHABET_ASCII:
-#else
- case CB_ALPHABET_EBCDIC:
-#endif
- CB_UNFINISHED ("CODE-SET");
- current_file->code_set = al;
- break;
- default:
- if (get_warn_opt_value (cb_warn_additional) != COBC_WARN_DISABLED) {
- cb_note_x (cb_warn_additional, (yyvsp[-1]), _("ignoring CODE-SET '%s'"),
- cb_name ((yyvsp[-1])));
- }
- break;
- }
- }
-
- if (current_file->organization != COB_ORG_LINE_SEQUENTIAL &&
- current_file->organization != COB_ORG_SEQUENTIAL) {
- cb_error (_("CODE-SET clause invalid for file type"));
- }
-
- }
-#line 16103 "parser.c" /* yacc.c:1646 */
- break;
-
- case 557:
-#line 6804 "parser.y" /* yacc.c:1646 */
- {
- current_file->code_set_items = CB_LIST ((yyvsp[0]));
- }
-#line 16111 "parser.c" /* yacc.c:1646 */
- break;
-
- case 558:
-#line 6813 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("REPORT", SYN_CLAUSE_11, &check_duplicate);
- if (current_file->organization != COB_ORG_LINE_SEQUENTIAL &&
- current_file->organization != COB_ORG_SEQUENTIAL) {
- cb_error (_("REPORT clause with wrong file type"));
- } else {
- current_file->reports = (yyvsp[0]);
- current_file->organization = COB_ORG_LINE_SEQUENTIAL;
- current_file->flag_line_adv = 1;
- }
- }
-#line 16127 "parser.c" /* yacc.c:1646 */
- break;
-
- case 561:
-#line 6833 "parser.y" /* yacc.c:1646 */
- {
- if (CB_VALID_TREE ((yyvsp[0]))) {
- current_report = build_report ((yyvsp[0]));
- current_report->file = current_file;
- current_program->report_list =
- cb_list_add (current_program->report_list,
- CB_TREE (current_report));
- if (report_count == 0) {
- report_instance = current_report;
- }
- report_count++;
- }
- }
-#line 16145 "parser.c" /* yacc.c:1646 */
- break;
-
- case 562:
-#line 6847 "parser.y" /* yacc.c:1646 */
- {
- if (CB_VALID_TREE ((yyvsp[0]))) {
- current_report = build_report ((yyvsp[0]));
- current_report->file = current_file;
- current_program->report_list =
- cb_list_add (current_program->report_list,
- CB_TREE (current_report));
-#if 0 /* not possible, as long as we don't have this code
- twice instead of in a function */
- if (report_count == 0) {
- report_instance = current_report;
- }
-#endif
- report_count++;
- }
- }
-#line 16166 "parser.c" /* yacc.c:1646 */
- break;
-
- case 563:
-#line 6867 "parser.y" /* yacc.c:1646 */
- { check_area_a_of ("COMMUNICATION SECTION"); }
-#line 16172 "parser.c" /* yacc.c:1646 */
- break;
-
- case 565:
-#line 6870 "parser.y" /* yacc.c:1646 */
- {
- current_storage = CB_STORAGE_COMMUNICATION;
- check_headers_present (COBC_HD_DATA_DIVISION, 0, 0, 0);
- header_check |= COBC_HD_COMMUNICATION_SECTION;
- /* add a compiler configuration if either */
- if (cb_std_define != CB_STD_85
- && cb_std_define != CB_STD_RM
- && cb_std_define != CB_STD_GC
- && !cb_relaxed_syntax_checks) {
- cb_verify (CB_UNCONFORMABLE, "COMMUNICATION SECTION");
- } else if (cb_verify (CB_OBSOLETE, "COMMUNICATION SECTION")) {
- CB_PENDING ("COMMUNICATION SECTION");
- }
- }
-#line 16191 "parser.c" /* yacc.c:1646 */
- break;
-
- case 569:
-#line 6894 "parser.y" /* yacc.c:1646 */
- {
- if (CB_VALID_TREE (current_cd)) {
- if (CB_VALID_TREE ((yyvsp[0]))) {
- cb_finalize_cd (current_cd, CB_FIELD ((yyvsp[0])));
- } else if (!current_cd->record) {
- cb_error (_("CD record missing"));
- }
- }
- }
-#line 16205 "parser.c" /* yacc.c:1646 */
- break;
-
- case 570:
-#line 6907 "parser.y" /* yacc.c:1646 */
- { check_area_a_of ("CD"); }
-#line 16211 "parser.c" /* yacc.c:1646 */
- break;
-
- case 571:
-#line 6910 "parser.y" /* yacc.c:1646 */
- {
- /* CD internally defines a new file */
- if (CB_VALID_TREE ((yyvsp[0]))) {
- current_cd = cb_build_cd ((yyvsp[0]));
-
- CB_ADD_TO_CHAIN (CB_TREE (current_cd),
- current_program->cd_list);
- } else {
- current_cd = NULL;
- /* TODO: Is this necessary? */
- if (current_program->cd_list) {
- current_program->cd_list
- = CB_CHAIN (current_program->cd_list);
- }
- }
- check_duplicate = 0;
- }
-#line 16233 "parser.c" /* yacc.c:1646 */
- break;
-
- case 618:
-#line 7017 "parser.y" /* yacc.c:1646 */
- { check_area_a_of ("WORKING-STORAGE SECTION"); }
-#line 16239 "parser.c" /* yacc.c:1646 */
- break;
-
- case 620:
-#line 7021 "parser.y" /* yacc.c:1646 */
- {
- check_headers_present (COBC_HD_DATA_DIVISION, 0, 0, 0);
- header_check |= COBC_HD_WORKING_STORAGE_SECTION;
- current_storage = CB_STORAGE_WORKING;
- }
-#line 16249 "parser.c" /* yacc.c:1646 */
- break;
-
- case 621:
-#line 7027 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[0])) {
- CB_FIELD_ADD (current_program->working_storage, CB_FIELD ((yyvsp[0])));
- }
- }
-#line 16259 "parser.c" /* yacc.c:1646 */
- break;
-
- case 622:
-#line 7036 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 16267 "parser.c" /* yacc.c:1646 */
- break;
-
- case 623:
-#line 7040 "parser.y" /* yacc.c:1646 */
- {
- current_field = NULL;
- control_field = NULL;
- description_field = NULL;
- cb_clear_real_field ();
- }
-#line 16278 "parser.c" /* yacc.c:1646 */
- break;
-
- case 624:
-#line 7047 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = get_finalized_description_tree ();
- }
-#line 16286 "parser.c" /* yacc.c:1646 */
- break;
-
- case 630:
-#line 7062 "parser.y" /* yacc.c:1646 */
- {
- const int level = cb_get_level ((yyvsp[-1]));
- if (current_field && !CB_INVALID_TREE (current_field->external_definition)) {
- /* finalize last field if target of SAME AS / type-name */
- inherit_external_definition (level);
- }
- if (set_current_field (level, (yyvsp[0]))) {
- YYERROR;
- }
- save_tree = NULL;
- }
-#line 16302 "parser.c" /* yacc.c:1646 */
- break;
-
- case 631:
-#line 7074 "parser.y" /* yacc.c:1646 */
- {
- if (!qualifier) {
- current_field->flag_filler = 1;
- }
- if (!description_field) {
- description_field = current_field;
- }
- }
-#line 16315 "parser.c" /* yacc.c:1646 */
- break;
-
- case 632:
-#line 7083 "parser.y" /* yacc.c:1646 */
- {
- /* note: this construct "eats" the error, the actual field
- definition (level + name) is already parsed and added to the tree */
- yyerrok;
- cb_unput_dot ();
- check_pic_duplicate = 0;
- check_duplicate = 0;
-#if 0 /* CHECKME - *Why* would we want to change the field here? */
- current_field = cb_get_real_field ();
-#endif
- }
-#line 16331 "parser.c" /* yacc.c:1646 */
- break;
-
- case 633:
-#line 7118 "parser.y" /* yacc.c:1646 */
- {
- const int level = cb_get_level ((yyvsp[0]));
- switch (level) {
- case 1:
- case 77:
- check_area_a ((yyvsp[0]));
- break;
- default:
- break;
- }
- (yyval) = (yyvsp[0]);
- }
-#line 16348 "parser.c" /* yacc.c:1646 */
- break;
-
- case 634:
-#line 7131 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 16356 "parser.c" /* yacc.c:1646 */
- break;
-
- case 637:
-#line 7143 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_filler ();
- qualifier = NULL;
- keys_list = NULL;
- non_const_word = 0;
- }
-#line 16367 "parser.c" /* yacc.c:1646 */
- break;
-
- case 639:
-#line 7154 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- qualifier = (yyvsp[0]);
- keys_list = NULL;
- non_const_word = 0;
- }
-#line 16378 "parser.c" /* yacc.c:1646 */
- break;
-
- case 640:
-#line 7164 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 16386 "parser.c" /* yacc.c:1646 */
- break;
-
- case 641:
-#line 7168 "parser.y" /* yacc.c:1646 */
- {
- if (current_program->prog_type == COB_MODULE_TYPE_FUNCTION) {
- cb_error (_("%s is invalid in a user FUNCTION"), "GLOBAL");
- (yyval) = NULL;
- } else {
- (yyval) = cb_null;
- }
- }
-#line 16399 "parser.c" /* yacc.c:1646 */
- break;
-
- case 642:
-#line 7179 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 16405 "parser.c" /* yacc.c:1646 */
- break;
-
- case 643:
-#line 7180 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_build_const_length ((yyvsp[0])); }
-#line 16411 "parser.c" /* yacc.c:1646 */
- break;
-
- case 644:
-#line 7182 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_build_const_length ((yyvsp[0])); }
-#line 16417 "parser.c" /* yacc.c:1646 */
- break;
-
- case 645:
-#line 7187 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 16425 "parser.c" /* yacc.c:1646 */
- break;
-
- case 646:
-#line 7191 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 16433 "parser.c" /* yacc.c:1646 */
- break;
-
- case 647:
-#line 7197 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int1;
- }
-#line 16441 "parser.c" /* yacc.c:1646 */
- break;
-
- case 648:
-#line 7201 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int2;
- }
-#line 16449 "parser.c" /* yacc.c:1646 */
- break;
-
- case 649:
-#line 7205 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int4;
- }
-#line 16457 "parser.c" /* yacc.c:1646 */
- break;
-
- case 650:
-#line 7209 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int8;
- }
-#line 16465 "parser.c" /* yacc.c:1646 */
- break;
-
- case 651:
-#line 7213 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int ((int)sizeof(long));
- }
-#line 16473 "parser.c" /* yacc.c:1646 */
- break;
-
- case 652:
-#line 7217 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int ((int)sizeof(void *));
- }
-#line 16481 "parser.c" /* yacc.c:1646 */
- break;
-
- case 653:
-#line 7221 "parser.y" /* yacc.c:1646 */
- {
- if (cb_binary_comp_1) {
- (yyval) = cb_int2;
- } else {
- (yyval) = cb_int ((int)sizeof(float));
- }
- }
-#line 16493 "parser.c" /* yacc.c:1646 */
- break;
-
- case 654:
-#line 7229 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int ((int)sizeof(float));
- }
-#line 16501 "parser.c" /* yacc.c:1646 */
- break;
-
- case 655:
-#line 7233 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int ((int)sizeof(double));
- }
-#line 16509 "parser.c" /* yacc.c:1646 */
- break;
-
- case 656:
-#line 7237 "parser.y" /* yacc.c:1646 */
- {
-#if 1 /* fixed-sized as in field.c */
- (yyval) = cb_int (16);
-#else
- (yyval) = cb_int ((int)sizeof(long double));
-#endif
- }
-#line 16521 "parser.c" /* yacc.c:1646 */
- break;
-
- case 657:
-#line 7245 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int4;
- }
-#line 16529 "parser.c" /* yacc.c:1646 */
- break;
-
- case 658:
-#line 7249 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int8;
- }
-#line 16537 "parser.c" /* yacc.c:1646 */
- break;
-
- case 659:
-#line 7253 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int16;
- }
-#line 16545 "parser.c" /* yacc.c:1646 */
- break;
-
- case 660:
-#line 7257 "parser.y" /* yacc.c:1646 */
- {
- yyerrok;
- cb_unput_dot ();
- check_pic_duplicate = 0;
- check_duplicate = 0;
- current_field = cb_get_real_field ();
- }
-#line 16557 "parser.c" /* yacc.c:1646 */
- break;
-
- case 669:
-#line 7288 "parser.y" /* yacc.c:1646 */
- {
- cb_tree renames_target = cb_ref ((yyvsp[-1]));
-
- size_t sav = cb_needs_01;
- cb_needs_01 = 0;
-
- non_const_word = 0;
-
- if (set_current_field (66, (yyvsp[-4]))) {
- /* error in the definition, no further checks possible */
- } else if (renames_target == cb_error_node) {
- /* error in the target, skip further checks */
- current_field->flag_invalid = 1;
- } else {
- cb_tree renames_thru = (yyvsp[0]);
-
- current_field->redefines = CB_FIELD (renames_target);
- if (renames_thru) {
- renames_thru = cb_ref (renames_thru);
- }
- if (CB_VALID_TREE (renames_thru)) {
- current_field->rename_thru = CB_FIELD (renames_thru);
- } else {
- /* If there is no THRU clause, RENAMES acts like REDEFINES. */
- current_field->pic = current_field->redefines->pic;
- }
-
- if (cb_validate_renames_item (current_field, (yyvsp[-1]), (yyvsp[0]))) {
- current_field->flag_invalid = 1;
- } else {
- /* ensure the reference was validated as this
- also calculates the reference' picture and size */
- if (!current_field->redefines->flag_is_verified) {
- cb_validate_field (current_field->redefines);
- }
- }
- }
- cb_needs_01 = sav;
- }
-#line 16601 "parser.c" /* yacc.c:1646 */
- break;
-
- case 670:
-#line 7331 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 16609 "parser.c" /* yacc.c:1646 */
- break;
-
- case 671:
-#line 7335 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]) == cb_error_node ? NULL : (yyvsp[0]);
- }
-#line 16617 "parser.c" /* yacc.c:1646 */
- break;
-
- case 672:
-#line 7342 "parser.y" /* yacc.c:1646 */
- {
- if (set_current_field (88, (yyvsp[0]))) {
- YYERROR;
- }
- }
-#line 16627 "parser.c" /* yacc.c:1646 */
- break;
-
- case 673:
-#line 7348 "parser.y" /* yacc.c:1646 */
- {
- cb_validate_88_item (current_field);
- }
-#line 16635 "parser.c" /* yacc.c:1646 */
- break;
-
- case 674:
-#line 7355 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_filler ();
- qualifier = NULL;
- keys_list = NULL;
- non_const_word = 0;
- }
-#line 16646 "parser.c" /* yacc.c:1646 */
- break;
-
- case 676:
-#line 7366 "parser.y" /* yacc.c:1646 */
- {
- cb_tree x;
- const int level = cb_get_level ((yyvsp[-4]));
-
- cobc_cs_check = 0;
- if (level != 1) {
- cb_error (_("CONSTANT item not at 01 level"));
- } else if ((yyvsp[0])) {
- if (cb_verify (cb_constant_01, "01 CONSTANT")) {
- x = cb_build_constant ((yyvsp[-3]), (yyvsp[0]));
- CB_FIELD (x)->flag_item_78 = 1;
- CB_FIELD (x)->flag_constant = 1;
- CB_FIELD (x)->level = 1;
- CB_FIELD (x)->values = (yyvsp[0]);
- cb_needs_01 = 1;
- if ((yyvsp[-1])) {
- CB_FIELD (x)->flag_is_global = 1;
- }
- /* Ignore return value */
- (void)cb_validate_78_item (CB_FIELD (x), 0);
- }
- }
- }
-#line 16674 "parser.c" /* yacc.c:1646 */
- break;
-
- case 677:
-#line 7390 "parser.y" /* yacc.c:1646 */
- {
- if (set_current_field (78, (yyvsp[0]))) {
- YYERROR;
- }
- }
-#line 16684 "parser.c" /* yacc.c:1646 */
- break;
-
- case 678:
-#line 7397 "parser.y" /* yacc.c:1646 */
- {
- /* Reset to last non-78 item */
- current_field = cb_validate_78_item (current_field, 0);
- }
-#line 16693 "parser.c" /* yacc.c:1646 */
- break;
-
- case 679:
-#line 7405 "parser.y" /* yacc.c:1646 */
- {
- /* this can be a list containing an arithmetic expression */
- if (CB_LIST_P ((yyvsp[0])) && !CB_CHAIN ((yyvsp[0]))) {
- (yyval) = CB_VALUE ((yyvsp[0]));
- } else {
- (yyval) = (yyvsp[0]);
- }
- }
-#line 16706 "parser.c" /* yacc.c:1646 */
- break;
-
- case 680:
-#line 7414 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_const_from ((yyvsp[0]));
- }
-#line 16714 "parser.c" /* yacc.c:1646 */
- break;
-
- case 681:
-#line 7421 "parser.y" /* yacc.c:1646 */
- {
- /* this can be a list containing an arithmetic expression */
- if (CB_VALID_TREE (current_field)) {
- if (CB_LIST_P ((yyvsp[0])) && !CB_CHAIN ((yyvsp[0]))) {
- current_field->values = CB_VALUE ((yyvsp[0]));
- } else {
- current_field->values = (yyvsp[0]);
- }
- }
- }
-#line 16729 "parser.c" /* yacc.c:1646 */
- break;
-
- case 682:
-#line 7432 "parser.y" /* yacc.c:1646 */
- {
- current_field->values = cb_build_const_start (current_field, (yyvsp[0]));
- }
-#line 16737 "parser.c" /* yacc.c:1646 */
- break;
-
- case 683:
-#line 7436 "parser.y" /* yacc.c:1646 */
- {
- current_field->values = cb_build_const_next (current_field);
- }
-#line 16745 "parser.c" /* yacc.c:1646 */
- break;
-
- case 684:
-#line 7442 "parser.y" /* yacc.c:1646 */
- { (yyval) = CB_LIST_INIT ((yyvsp[0])); }
-#line 16751 "parser.c" /* yacc.c:1646 */
- break;
-
- case 685:
-#line 7443 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0])); }
-#line 16757 "parser.c" /* yacc.c:1646 */
- break;
-
- case 686:
-#line 7447 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 16763 "parser.c" /* yacc.c:1646 */
- break;
-
- case 687:
-#line 7448 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_build_alphanumeric_literal ("(", 1); }
-#line 16769 "parser.c" /* yacc.c:1646 */
- break;
-
- case 688:
-#line 7449 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_build_alphanumeric_literal (")", 1); }
-#line 16775 "parser.c" /* yacc.c:1646 */
- break;
-
- case 689:
-#line 7450 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_build_alphanumeric_literal ("+", 1); }
-#line 16781 "parser.c" /* yacc.c:1646 */
- break;
-
- case 690:
-#line 7451 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_build_alphanumeric_literal ("-", 1); }
-#line 16787 "parser.c" /* yacc.c:1646 */
- break;
-
- case 691:
-#line 7452 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_build_alphanumeric_literal ("*", 1); }
-#line 16793 "parser.c" /* yacc.c:1646 */
- break;
-
- case 692:
-#line 7453 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_build_alphanumeric_literal ("/", 1); }
-#line 16799 "parser.c" /* yacc.c:1646 */
- break;
-
- case 693:
-#line 7454 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_build_alphanumeric_literal ("&", 1); }
-#line 16805 "parser.c" /* yacc.c:1646 */
- break;
-
- case 694:
-#line 7455 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_build_alphanumeric_literal ("|", 1); }
-#line 16811 "parser.c" /* yacc.c:1646 */
- break;
-
- case 695:
-#line 7456 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_build_alphanumeric_literal ("^", 1); }
-#line 16817 "parser.c" /* yacc.c:1646 */
- break;
-
- case 698:
-#line 7466 "parser.y" /* yacc.c:1646 */
- {
- save_tree = cb_int0;
- }
-#line 16825 "parser.c" /* yacc.c:1646 */
- break;
-
- case 729:
-#line 7503 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("VALIDATE");
- }
-#line 16833 "parser.c" /* yacc.c:1646 */
- break;
-
- case 730:
-#line 7513 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("REDEFINES", SYN_CLAUSE_1, &check_pic_duplicate);
- if (save_tree != NULL) {
- cb_verify_x ((yyvsp[0]), cb_free_redefines_position,
- _("REDEFINES clause not following entry-name"));
- }
-
- current_field->redefines = cb_resolve_redefines (current_field, (yyvsp[0]));
- if (current_field->redefines == NULL) {
- current_field->flag_is_verified = 1;
- current_field->flag_invalid = 1;
- YYERROR;
- }
- }
-#line 16852 "parser.c" /* yacc.c:1646 */
- break;
-
- case 731:
-#line 7534 "parser.y" /* yacc.c:1646 */
- {
- if (!check_repeated ("LIKE", SYN_CLAUSE_30, &check_pic_duplicate)) {
- if (current_field->external_definition) {
- emit_conflicting_clause_message ("TYPE TO", "SAME AS");
- }
- setup_external_definition ((yyvsp[-1]), 0);
- current_field->like_modifier = (yyvsp[0]);
- CB_PENDING_X ((yyvsp[-1]), "LIKE clause");
- }
- }
-#line 16867 "parser.c" /* yacc.c:1646 */
- break;
-
- case 732:
-#line 7547 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int0; }
-#line 16873 "parser.c" /* yacc.c:1646 */
- break;
-
- case 733:
-#line 7548 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 16879 "parser.c" /* yacc.c:1646 */
- break;
-
- case 734:
-#line 7552 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[-1]);
- }
-#line 16887 "parser.c" /* yacc.c:1646 */
- break;
-
- case 735:
-#line 7561 "parser.y" /* yacc.c:1646 */
- {
- if (!check_repeated ("SAME AS", SYN_CLAUSE_30, &check_pic_duplicate)) {
- if (current_field->external_definition) {
- emit_conflicting_clause_message ("TYPE TO", "SAME AS");
- }
- cb_verify (cb_same_as_clause, _("SAME AS clause"));
- setup_external_definition ((yyvsp[0]), 0);
- }
-
-
- }
-#line 16903 "parser.c" /* yacc.c:1646 */
- break;
-
- case 736:
-#line 7580 "parser.y" /* yacc.c:1646 */
- {
- if (current_field->flag_is_typedef) {
- emit_duplicate_clause_message ("TYPEDEF");
- YYERROR;
- }
- /* note: no explicit verification as all dialects with this reserved word use it */
- current_field->flag_is_typedef = 1;
- within_typedef_definition = 1;
-
- if (current_field->level != 1 && current_field->level != 77) {
- cb_error (_("%s only allowed at 01/77 level"), "TYPEDEF");
- }
- if (!qualifier) {
- cb_error (_("%s requires a data name"), "TYPEDEF");
- }
- if (current_storage == CB_STORAGE_SCREEN
- || current_storage == CB_STORAGE_REPORT) {
- cb_error (_("%s not allowed in %s"), "TYPEDEF",
- enum_explain_storage(current_storage));
- }
- }
-#line 16929 "parser.c" /* yacc.c:1646 */
- break;
-
- case 738:
-#line 7605 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("TYPEDEF STRONG");
- }
-#line 16937 "parser.c" /* yacc.c:1646 */
- break;
-
- case 739:
-#line 7615 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("EXTERNAL", SYN_CLAUSE_2, &check_pic_duplicate);
- if (current_storage != CB_STORAGE_WORKING) {
- cb_error (_("%s not allowed here"), "EXTERNAL");
- } else if (current_field->level != 1 && current_field->level != 77) {
- cb_error (_("%s only allowed at 01/77 level"), "EXTERNAL");
- } else if (!qualifier) {
- cb_error (_("%s requires a data name"), "EXTERNAL");
-#if 0 /* RXWRXW - Global/External */
- } else if (current_field->flag_is_global) {
- cb_error (_("%s and %s are mutually exclusive"), "GLOBAL", "EXTERNAL");
-#endif
- } else if (current_field->flag_item_based) {
- cb_error (_("%s and %s are mutually exclusive"), "BASED", "EXTERNAL");
- } else if (current_field->redefines) {
- cb_error (_("%s and %s are mutually exclusive"), "EXTERNAL", "REDEFINES");
- } else if (current_field->flag_occurs) {
- cb_error (_("%s and %s are mutually exclusive"), "EXTERNAL", "OCCURS");
- } else {
- current_field->flag_external = 1;
- current_program->flag_has_external = 1;
- }
- }
-#line 16965 "parser.c" /* yacc.c:1646 */
- break;
-
- case 740:
-#line 7642 "parser.y" /* yacc.c:1646 */
- {
- current_field->ename = cb_to_cname (current_field->name);
- }
-#line 16973 "parser.c" /* yacc.c:1646 */
- break;
-
- case 741:
-#line 7646 "parser.y" /* yacc.c:1646 */
- {
- current_field->ename = cb_to_cname ((const char *)CB_LITERAL ((yyvsp[0]))->data);
- }
-#line 16981 "parser.c" /* yacc.c:1646 */
- break;
-
- case 744:
-#line 7659 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("GLOBAL", SYN_CLAUSE_3, &check_pic_duplicate);
- if (current_field->level != 1 && current_field->level != 77) {
- cb_error (_("%s only allowed at 01/77 level"), "GLOBAL");
- } else if (!qualifier) {
- cb_error (_("%s requires a data name"), "GLOBAL");
-#if 0 /* RXWRXW - Global/External */
- } else if (current_field->flag_external) {
- cb_error (_("%s and %s are mutually exclusive"), "GLOBAL", "EXTERNAL");
-#endif
- } else if (current_program->prog_type == COB_MODULE_TYPE_FUNCTION) {
- cb_error (_("%s is invalid in a user FUNCTION"), "GLOBAL");
- } else if (current_storage == CB_STORAGE_LOCAL) {
- cb_error (_("%s not allowed here"), "GLOBAL");
- } else {
- current_field->flag_is_global = 1;
- }
- }
-#line 17004 "parser.c" /* yacc.c:1646 */
- break;
-
- case 745:
-#line 7683 "parser.y" /* yacc.c:1646 */
- {
- if (current_program->nested_level) {
- cb_error (_("%s not allowed in nested programs"), "SPECIAL-NAMES");
- } else {
- cb_verify (cb_special_names_clause, "SPECIAL-NAMES clause");
- }
- }
-#line 17016 "parser.c" /* yacc.c:1646 */
- break;
-
- case 747:
-#line 7695 "parser.y" /* yacc.c:1646 */
- {
- if (current_program->cursor_pos) {
- emit_duplicate_clause_message ("CURSOR");
- } else {
- current_program->cursor_pos = cb_build_reference (current_field->name);
- }
- }
-#line 17028 "parser.c" /* yacc.c:1646 */
- break;
-
- case 748:
-#line 7703 "parser.y" /* yacc.c:1646 */
- {
- if (current_program->crt_status) {
- emit_duplicate_clause_message ("CRT STATUS");
- } else {
- current_program->crt_status = cb_build_reference (current_field->name);
- }
- }
-#line 17040 "parser.c" /* yacc.c:1646 */
- break;
-
- case 749:
-#line 7720 "parser.y" /* yacc.c:1646 */
- {
-#if 0 /* not yet implemented */
- if (current_program->screen_control) {
- emit_duplicate_clause_message ("SCREEN CONTROL");
- } else {
- CB_PENDING ("SCREEN CONTROL");
- }
-#else
- CB_PENDING ("SCREEN CONTROL");
-#endif
- }
-#line 17056 "parser.c" /* yacc.c:1646 */
- break;
-
- case 750:
-#line 7732 "parser.y" /* yacc.c:1646 */
- {
-#if 0 /* not yet implemented */
- if (current_program->event_status) {
- emit_duplicate_clause_message ("EVENT STATUS");
- } else {
- CB_PENDING ("EVENT STATUS");
- }
-#else
- CB_PENDING ("EVENT STATUS");
-#endif
- }
-#line 17072 "parser.c" /* yacc.c:1646 */
- break;
-
- case 751:
-#line 7749 "parser.y" /* yacc.c:1646 */
- {
- if (current_field->level != 1 && current_field->level != 77) {
- cb_error (_ ("%s only allowed at 01/77 level"), "SELECT WHEN");
- }
- CB_PENDING ("SELECT WHEN");
- }
-#line 17083 "parser.c" /* yacc.c:1646 */
- break;
-
- case 755:
-#line 7767 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("FORMAT");
- }
-#line 17091 "parser.c" /* yacc.c:1646 */
- break;
-
- case 756:
-#line 7773 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int0; }
-#line 17097 "parser.c" /* yacc.c:1646 */
- break;
-
- case 757:
-#line 7774 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int1; }
-#line 17103 "parser.c" /* yacc.c:1646 */
- break;
-
- case 758:
-#line 7775 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int2; }
-#line 17109 "parser.c" /* yacc.c:1646 */
- break;
-
- case 759:
-#line 7782 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("VOLATILE", SYN_CLAUSE_24, &check_pic_duplicate);
- /* note: there is no reason to check current_storage as we only parse
- volatile_clause and its parent tokens where applicable,
- same is true for level 66,78,88 */
- /* missing part: always generate and initialize storage */
- CB_UNFINISHED ("VOLATILE");
- current_field->flag_volatile = 1;
- /* TODO: set VOLATILE flag for all parent fields */
- }
-#line 17124 "parser.c" /* yacc.c:1646 */
- break;
-
- case 760:
-#line 7799 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("PICTURE", SYN_CLAUSE_4, &check_pic_duplicate);
- current_field->pic = CB_PICTURE ((yyvsp[0])); /* always returned, invalid picture will have size == 0 */
- }
-#line 17133 "parser.c" /* yacc.c:1646 */
- break;
-
- case 761:
-#line 7804 "parser.y" /* yacc.c:1646 */
- {
- if ((!current_field->pic || current_field->pic->variable_length) &&
- !current_field->flag_picture_l) {
- /* Current field with PIC L was not translated */
- cb_error_x (CB_TREE (current_field->pic),
- _("%s requires DEPENDING clause"),
- _("variable-length PICTURE"));
- }
- }
-#line 17147 "parser.c" /* yacc.c:1646 */
- break;
-
- case 763:
-#line 7818 "parser.y" /* yacc.c:1646 */
- {
- /* $2 -> optional locale-name to be used */
- if ( (current_field->pic->category != CB_CATEGORY_NUMERIC
- && current_field->pic->category != CB_CATEGORY_NUMERIC_EDITED)
- || strpbrk (current_field->pic->orig, " CRDBL-*")) {
- /* CHECKME: the standard seems to forbid additional ',' */
- cb_error_x (CB_TREE (current_field->pic),
- _("a locale-format PICTURE string must only consist of '9', '.', '+', 'Z' and the currency-sign"));
- } else {
- /* TODO: check that not we're not within a CONSTANT RECORD */
- CB_PENDING_X (CB_TREE (current_field->pic), "locale-format PICTURE");
- }
- }
-#line 17165 "parser.c" /* yacc.c:1646 */
- break;
-
- case 764:
-#line 7832 "parser.y" /* yacc.c:1646 */
- {
- cb_tree depending = (yyvsp[0]);
- if (!current_field->pic->variable_length) {
- cb_error_x ((yyvsp[0]), _("DEPENDING clause needs either an "
- "OCCURS clause or a variable-length "
- "PICTURE"));
- } else
- if (current_field->pic->category != CB_CATEGORY_ALPHABETIC
- && current_field->pic->category != CB_CATEGORY_ALPHANUMERIC) {
- cb_error_x ((yyvsp[0]), _("only USAGE DISPLAY may specify a "
- "variable-length PICTURE"));
- } else
- if (current_storage == CB_STORAGE_SCREEN
- || current_storage == CB_STORAGE_REPORT) {
- cb_error_x ((yyvsp[0]), _("%s not allowed in %s"),
- _("variable-length PICTURE"),
- enum_explain_storage (current_storage));
- } else {
- /* Implicitly translate `PIC Lc... DEPENDING N` (where
- `c` may actually only be `X` or `A`) into a group
- with a single sub-field `PIC c OCCURS 1 TO N`. */
- struct cb_field * const chld =
- CB_FIELD (cb_build_field (cb_build_filler ()));
- char pic[2] = { 0 };
- pic[0] = current_field->pic->orig[1];
- chld->pic = cb_build_picture (pic);
- chld->storage = current_field->storage;
- chld->depending = depending;
- chld->flag_occurs = 1;
- chld->occurs_min = 1;
- chld->occurs_max = current_field->pic->size - 1;
- chld->parent = current_field;
- current_field->children = chld;
- cobc_parse_free (current_field->pic);
- current_field->pic = NULL;
- }
- /* Raise this flag in the error cases above, to avoid unrelated
- warning or error messages upon tentative validation of
- redefines. */
- current_field->flag_picture_l = 1;
- }
-#line 17211 "parser.c" /* yacc.c:1646 */
- break;
-
- case 766:
-#line 7878 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 17219 "parser.c" /* yacc.c:1646 */
- break;
-
- case 767:
-#line 7882 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 17227 "parser.c" /* yacc.c:1646 */
- break;
-
- case 768:
-#line 7889 "parser.y" /* yacc.c:1646 */
- {
- if (CB_LOCALE_NAME_P (cb_ref ((yyvsp[0])))) {
- (yyval) = (yyvsp[0]);
- } else {
- cb_error_x ((yyvsp[0]), _("'%s' is not a locale-name"), cb_name ((yyvsp[0])));
- (yyval) = cb_error_node;
- }
- }
-#line 17240 "parser.c" /* yacc.c:1646 */
- break;
-
- case 769:
-#line 7903 "parser.y" /* yacc.c:1646 */
- {
- cb_verify (cb_type_to_clause, _("TYPE TO clause"));
- setup_external_definition_type ((yyvsp[0]));
- }
-#line 17249 "parser.c" /* yacc.c:1646 */
- break;
-
- case 772:
-#line 7919 "parser.y" /* yacc.c:1646 */
- {
- {
- cb_tree x = cb_try_ref ((yyvsp[0]));
- if (!CB_INVALID_TREE (x) && CB_FIELD_P (x) && CB_FIELD (x)->flag_is_typedef) {
- if (!check_repeated ("USAGE", SYN_CLAUSE_5, &check_pic_duplicate)) {
- if (current_field->external_definition) {
- emit_conflicting_clause_message ("USAGE", "SAME AS / TYPE TO");
- } else {
- cb_verify (cb_usage_type_name, _("USAGE type-name"));
- /* replace usage by type definition */
- check_pic_duplicate &= ~SYN_CLAUSE_5;
- check_repeated ("USAGE/TYPE", SYN_CLAUSE_31, &check_pic_duplicate);
- setup_external_definition ((yyvsp[0]), 1);
- break; /* everything done here */
- }
- }
- YYERROR;
- }
- }
- if (is_reserved_word (CB_NAME ((yyvsp[0])))) {
- cb_error_x ((yyvsp[0]), _("'%s' is not a valid USAGE"), CB_NAME ((yyvsp[0])));
- } else if (is_default_reserved_word (CB_NAME ((yyvsp[0])))) {
- cb_error_x ((yyvsp[0]), _("'%s' is not defined, but is a reserved word in another dialect"),
- CB_NAME ((yyvsp[0])));
- } else {
- cb_error_x ((yyvsp[0]), _("unknown USAGE: %s"), CB_NAME ((yyvsp[0])));
- }
- check_and_set_usage (CB_USAGE_ERROR);
- YYERROR;
- }
-#line 17284 "parser.c" /* yacc.c:1646 */
- break;
-
- case 773:
-#line 7950 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_ERROR);
- }
-#line 17292 "parser.c" /* yacc.c:1646 */
- break;
-
- case 775:
-#line 7958 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_ERROR);
- }
-#line 17300 "parser.c" /* yacc.c:1646 */
- break;
-
- case 778:
-#line 7969 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_DISPLAY);
- }
-#line 17308 "parser.c" /* yacc.c:1646 */
- break;
-
- case 779:
-#line 7973 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_NATIONAL);
- CB_PENDING ("DBCS");
- }
-#line 17317 "parser.c" /* yacc.c:1646 */
- break;
-
- case 780:
-#line 7978 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_NATIONAL);
- CB_UNFINISHED ("USAGE NATIONAL");
- }
-#line 17326 "parser.c" /* yacc.c:1646 */
- break;
-
- case 781:
-#line 7983 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_DISPLAY);
- CB_UNFINISHED ("USAGE UTF-8");
- }
-#line 17335 "parser.c" /* yacc.c:1646 */
- break;
-
- case 782:
-#line 7991 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_BINARY);
- }
-#line 17343 "parser.c" /* yacc.c:1646 */
- break;
-
- case 783:
-#line 7995 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_BIT);
- CB_PENDING ("USAGE BIT");
- }
-#line 17352 "parser.c" /* yacc.c:1646 */
- break;
-
- case 784:
-#line 8000 "parser.y" /* yacc.c:1646 */
- {
- /* note: ALIGNED actually is a separate clause but at least
- for now we simplify it, requesting it after USAGE BIT */
- check_and_set_usage (CB_USAGE_BIT);
- CB_PENDING ("USAGE BIT");
- }
-#line 17363 "parser.c" /* yacc.c:1646 */
- break;
-
- case 785:
-#line 8007 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_BINARY);
- }
-#line 17371 "parser.c" /* yacc.c:1646 */
- break;
-
- case 786:
-#line 8011 "parser.y" /* yacc.c:1646 */
- {
- /* see FR #310 */
- CB_PENDING ("USAGE COMP-0");
- }
-#line 17380 "parser.c" /* yacc.c:1646 */
- break;
-
- case 787:
-#line 8016 "parser.y" /* yacc.c:1646 */
- {
- current_field->flag_comp_1 = 1;
- if (cb_binary_comp_1) {
- check_and_set_usage (CB_USAGE_SIGNED_SHORT);
- } else {
- check_and_set_usage (CB_USAGE_FLOAT);
- }
- }
-#line 17393 "parser.c" /* yacc.c:1646 */
- break;
-
- case 788:
-#line 8025 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_DOUBLE);
- }
-#line 17401 "parser.c" /* yacc.c:1646 */
- break;
-
- case 789:
-#line 8029 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_LONG_DOUBLE);
- CB_UNFINISHED ("FLOAT-EXTENDED");
- }
-#line 17410 "parser.c" /* yacc.c:1646 */
- break;
-
- case 790:
-#line 8034 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_PACKED);
- }
-#line 17418 "parser.c" /* yacc.c:1646 */
- break;
-
- case 791:
-#line 8038 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_BINARY);
- }
-#line 17426 "parser.c" /* yacc.c:1646 */
- break;
-
- case 792:
-#line 8042 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_COMP_5);
- }
-#line 17434 "parser.c" /* yacc.c:1646 */
- break;
-
- case 793:
-#line 8046 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_COMP_6);
- }
-#line 17442 "parser.c" /* yacc.c:1646 */
- break;
-
- case 794:
-#line 8050 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_COMP_X);
- }
-#line 17450 "parser.c" /* yacc.c:1646 */
- break;
-
- case 795:
-#line 8054 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_COMP_N);
- }
-#line 17458 "parser.c" /* yacc.c:1646 */
- break;
-
- case 796:
-#line 8058 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_FLOAT);
- }
-#line 17466 "parser.c" /* yacc.c:1646 */
- break;
-
- case 797:
-#line 8062 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_DISPLAY);
- }
-#line 17474 "parser.c" /* yacc.c:1646 */
- break;
-
- case 798:
-#line 8066 "parser.y" /* yacc.c:1646 */
- {
- /* TODO: second type which is 0-based, depending on dialect option */
- check_and_set_usage (CB_USAGE_INDEX);
- }
-#line 17483 "parser.c" /* yacc.c:1646 */
- break;
-
- case 799:
-#line 8071 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_PACKED);
- }
-#line 17491 "parser.c" /* yacc.c:1646 */
- break;
-
- case 800:
-#line 8075 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_POINTER);
- if ((yyvsp[0])) {
- CB_PENDING ("POINTER TO type-name");
- }
- current_field->flag_is_pointer = 1;
- }
-#line 17503 "parser.c" /* yacc.c:1646 */
- break;
-
- case 801:
-#line 8083 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_PROGRAM_POINTER);
- CB_PENDING ("POINTER TO prototype"); /* and function pointers... */
- current_field->flag_is_pointer = 1;
- }
-#line 17513 "parser.c" /* yacc.c:1646 */
- break;
-
- case 802:
-#line 8089 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_PROGRAM_POINTER);
- if ((yyvsp[0])) {
- CB_PENDING ("POINTER TO prototype");
- }
- current_field->flag_is_pointer = 1;
- }
-#line 17525 "parser.c" /* yacc.c:1646 */
- break;
-
- case 803:
-#line 8097 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_HNDL);
- }
-#line 17533 "parser.c" /* yacc.c:1646 */
- break;
-
- case 804:
-#line 8101 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_HNDL_WINDOW);
- }
-#line 17541 "parser.c" /* yacc.c:1646 */
- break;
-
- case 805:
-#line 8105 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_HNDL_SUBWINDOW);
- }
-#line 17549 "parser.c" /* yacc.c:1646 */
- break;
-
- case 806:
-#line 8109 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_HNDL_FONT);
- CB_PENDING ("HANDLE OF FONT");
- }
-#line 17558 "parser.c" /* yacc.c:1646 */
- break;
-
- case 807:
-#line 8114 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_HNDL_THREAD);
- }
-#line 17566 "parser.c" /* yacc.c:1646 */
- break;
-
- case 808:
-#line 8118 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_HNDL_MENU);
- CB_PENDING ("HANDLE OF MENU");
- }
-#line 17575 "parser.c" /* yacc.c:1646 */
- break;
-
- case 809:
-#line 8123 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_HNDL_VARIANT);
- }
-#line 17583 "parser.c" /* yacc.c:1646 */
- break;
-
- case 810:
-#line 8127 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_HNDL_LM);
- CB_PENDING ("HANDLE OF LAYOUT-MANAGER");
- }
-#line 17592 "parser.c" /* yacc.c:1646 */
- break;
-
- case 811:
-#line 8132 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_HNDL);
- CB_PENDING ("HANDLE OF control-type");
- }
-#line 17601 "parser.c" /* yacc.c:1646 */
- break;
-
- case 812:
-#line 8137 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_HNDL);
- cb_error_x ((yyvsp[0]), _("unknown HANDLE type: %s"), CB_NAME ((yyvsp[0])));
- }
-#line 17610 "parser.c" /* yacc.c:1646 */
- break;
-
- case 813:
-#line 8142 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_SIGNED_SHORT);
- }
-#line 17618 "parser.c" /* yacc.c:1646 */
- break;
-
- case 814:
-#line 8146 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_SIGNED_INT);
- }
-#line 17626 "parser.c" /* yacc.c:1646 */
- break;
-
- case 815:
-#line 8150 "parser.y" /* yacc.c:1646 */
- {
-#ifdef COB_32_BIT_LONG
- check_and_set_usage (CB_USAGE_SIGNED_INT);
-#else
- check_and_set_usage (CB_USAGE_SIGNED_LONG);
-#endif
- }
-#line 17638 "parser.c" /* yacc.c:1646 */
- break;
-
- case 816:
-#line 8158 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_UNSIGNED_SHORT);
- }
-#line 17646 "parser.c" /* yacc.c:1646 */
- break;
-
- case 817:
-#line 8162 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_UNSIGNED_INT);
- }
-#line 17654 "parser.c" /* yacc.c:1646 */
- break;
-
- case 818:
-#line 8166 "parser.y" /* yacc.c:1646 */
- {
-#ifdef COB_32_BIT_LONG
- check_and_set_usage (CB_USAGE_UNSIGNED_INT);
-#else
- check_and_set_usage (CB_USAGE_UNSIGNED_LONG);
-#endif
- }
-#line 17666 "parser.c" /* yacc.c:1646 */
- break;
-
- case 819:
-#line 8174 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_SIGNED_CHAR);
- }
-#line 17674 "parser.c" /* yacc.c:1646 */
- break;
-
- case 820:
-#line 8178 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_UNSIGNED_CHAR);
- }
-#line 17682 "parser.c" /* yacc.c:1646 */
- break;
-
- case 821:
-#line 8182 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_SIGNED_SHORT);
- }
-#line 17690 "parser.c" /* yacc.c:1646 */
- break;
-
- case 822:
-#line 8186 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_UNSIGNED_SHORT);
- }
-#line 17698 "parser.c" /* yacc.c:1646 */
- break;
-
- case 823:
-#line 8190 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_SIGNED_INT);
- }
-#line 17706 "parser.c" /* yacc.c:1646 */
- break;
-
- case 824:
-#line 8194 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_UNSIGNED_INT);
- }
-#line 17714 "parser.c" /* yacc.c:1646 */
- break;
-
- case 825:
-#line 8198 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_SIGNED_LONG);
- }
-#line 17722 "parser.c" /* yacc.c:1646 */
- break;
-
- case 826:
-#line 8202 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_UNSIGNED_LONG);
- }
-#line 17730 "parser.c" /* yacc.c:1646 */
- break;
-
- case 827:
-#line 8206 "parser.y" /* yacc.c:1646 */
- {
-#ifdef COB_32_BIT_LONG
- check_and_set_usage (CB_USAGE_SIGNED_INT);
-#else
- check_and_set_usage (CB_USAGE_SIGNED_LONG);
-#endif
- }
-#line 17742 "parser.c" /* yacc.c:1646 */
- break;
-
- case 828:
-#line 8214 "parser.y" /* yacc.c:1646 */
- {
-#ifdef COB_32_BIT_LONG
- check_and_set_usage (CB_USAGE_UNSIGNED_INT);
-#else
- check_and_set_usage (CB_USAGE_UNSIGNED_LONG);
-#endif
- }
-#line 17754 "parser.c" /* yacc.c:1646 */
- break;
-
- case 829:
-#line 8222 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_FP_BIN32);
- }
-#line 17762 "parser.c" /* yacc.c:1646 */
- break;
-
- case 830:
-#line 8226 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_FP_BIN64);
- }
-#line 17770 "parser.c" /* yacc.c:1646 */
- break;
-
- case 831:
-#line 8230 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_FP_BIN128);
- }
-#line 17778 "parser.c" /* yacc.c:1646 */
- break;
-
- case 832:
-#line 8234 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_FP_DEC64);
- }
-#line 17786 "parser.c" /* yacc.c:1646 */
- break;
-
- case 833:
-#line 8238 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_FP_DEC128);
- }
-#line 17794 "parser.c" /* yacc.c:1646 */
- break;
-
- case 834:
-#line 8242 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_NATIONAL);
- CB_PENDING ("DBCS");
- }
-#line 17803 "parser.c" /* yacc.c:1646 */
- break;
-
- case 835:
-#line 8247 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("USAGE", SYN_CLAUSE_5, &check_pic_duplicate);
- }
-#line 17811 "parser.c" /* yacc.c:1646 */
- break;
-
- case 836:
-#line 8251 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_DISPLAY);
- CB_UNFINISHED ("USAGE UTF-8");
- }
-#line 17820 "parser.c" /* yacc.c:1646 */
- break;
-
- case 837:
-#line 8258 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 17826 "parser.c" /* yacc.c:1646 */
- break;
-
- case 838:
-#line 8259 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 17832 "parser.c" /* yacc.c:1646 */
- break;
-
- case 839:
-#line 8263 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 17838 "parser.c" /* yacc.c:1646 */
- break;
-
- case 840:
-#line 8264 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 17844 "parser.c" /* yacc.c:1646 */
- break;
-
- case 841:
-#line 8270 "parser.y" /* yacc.c:1646 */
- {
- check_and_set_usage (CB_USAGE_OBJECT);
- CB_PENDING ("OBJECTS");
- }
-#line 17853 "parser.c" /* yacc.c:1646 */
- break;
-
- case 848:
-#line 8289 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 17859 "parser.c" /* yacc.c:1646 */
- break;
-
- case 849:
-#line 8290 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int0; }
-#line 17865 "parser.c" /* yacc.c:1646 */
- break;
-
- case 862:
-#line 8321 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("SIGN", SYN_CLAUSE_6, &check_pic_duplicate);
- current_field->flag_sign_clause = 1;
- current_field->flag_sign_separate = ((yyvsp[0]) ? 1 : 0);
- current_field->flag_sign_leading = 1;
- }
-#line 17876 "parser.c" /* yacc.c:1646 */
- break;
-
- case 863:
-#line 8328 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("SIGN", SYN_CLAUSE_6, &check_pic_duplicate);
- current_field->flag_sign_clause = 1;
- current_field->flag_sign_separate = ((yyvsp[0]) ? 1 : 0);
- current_field->flag_sign_leading = 0;
- }
-#line 17887 "parser.c" /* yacc.c:1646 */
- break;
-
- case 864:
-#line 8340 "parser.y" /* yacc.c:1646 */
- {
- if (current_field->pic && current_field->pic->orig
- && current_field->pic->orig[0] == 'U') {
- current_field->size = cb_get_int ((yyvsp[0]));
- } else {
- /* wrong place, but good enough for now */
- cb_error (_("'%s' is not USAGE UTF-8"), cb_name (CB_TREE(current_field)));
- }
- }
-#line 17901 "parser.c" /* yacc.c:1646 */
- break;
-
- case 865:
-#line 8356 "parser.y" /* yacc.c:1646 */
- {
- /* most of the field attributes are set when parsing the phrases */;
- setup_occurs ();
- setup_occurs_min_max ((yyvsp[-4]), (yyvsp[-3]));
- }
-#line 17911 "parser.c" /* yacc.c:1646 */
- break;
-
- case 867:
-#line 8365 "parser.y" /* yacc.c:1646 */
- {
- current_field->step_count = cb_get_int ((yyvsp[0]));
- }
-#line 17919 "parser.c" /* yacc.c:1646 */
- break;
-
- case 868:
-#line 8375 "parser.y" /* yacc.c:1646 */
- {
- /* most of the field attributes are set when parsing the phrases */;
- setup_occurs ();
- setup_occurs_min_max ((yyvsp[-4]), (yyvsp[-3]));
- }
-#line 17929 "parser.c" /* yacc.c:1646 */
- break;
-
- case 869:
-#line 8382 "parser.y" /* yacc.c:1646 */
- {
- current_field->flag_unbounded = 1;
- current_field->depending = (yyvsp[-1]);
- /* most of the field attributes are set when parsing the phrases */;
- setup_occurs ();
- setup_occurs_min_max ((yyvsp[-6]), cb_int0);
- }
-#line 17941 "parser.c" /* yacc.c:1646 */
- break;
-
- case 870:
-#line 8391 "parser.y" /* yacc.c:1646 */
- {
- setup_occurs ();
- current_field->occurs_min = (yyvsp[-3]) ? cb_get_int ((yyvsp[-3])) : 0;
- if ((yyvsp[-2])) {
- current_field->occurs_max = cb_get_int ((yyvsp[-2]));
- if (current_field->occurs_max <= current_field->occurs_min) {
- cb_error (_("OCCURS TO must be greater than OCCURS FROM"));
- }
- } else {
- current_field->occurs_max = 0;
- }
- CB_PENDING ("OCCURS DYNAMIC");
- }
-#line 17959 "parser.c" /* yacc.c:1646 */
- break;
-
- case 871:
-#line 8407 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 17965 "parser.c" /* yacc.c:1646 */
- break;
-
- case 872:
-#line 8408 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 17971 "parser.c" /* yacc.c:1646 */
- break;
-
- case 873:
-#line 8412 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 17977 "parser.c" /* yacc.c:1646 */
- break;
-
- case 874:
-#line 8413 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 17983 "parser.c" /* yacc.c:1646 */
- break;
-
- case 875:
-#line 8417 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 17989 "parser.c" /* yacc.c:1646 */
- break;
-
- case 876:
-#line 8418 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[-1]); }
-#line 17995 "parser.c" /* yacc.c:1646 */
- break;
-
- case 878:
-#line 8423 "parser.y" /* yacc.c:1646 */
- {
- current_field->depending = (yyvsp[0]);
- }
-#line 18003 "parser.c" /* yacc.c:1646 */
- break;
-
- case 880:
-#line 8429 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_index ((yyvsp[0]), cb_zero, 0, current_field);
- CB_FIELD_PTR ((yyval))->index_type = CB_STATIC_INT_INDEX;
- }
-#line 18012 "parser.c" /* yacc.c:1646 */
- break;
-
- case 882:
-#line 8437 "parser.y" /* yacc.c:1646 */
- {
- /* current_field->initialized = 1; */
- }
-#line 18020 "parser.c" /* yacc.c:1646 */
- break;
-
- case 885:
-#line 8446 "parser.y" /* yacc.c:1646 */
- {
- (void) cb_syntax_check (_("INDEXED should follow ASCENDING/DESCENDING"));
- }
-#line 18028 "parser.c" /* yacc.c:1646 */
- break;
-
- case 889:
-#line 8456 "parser.y" /* yacc.c:1646 */
- {
- cb_tree l;
- struct cb_key *keys;
- int i;
- int nkeys;
-
- l = (yyvsp[0]);
- nkeys = cb_list_length ((yyvsp[0]));
- keys = cobc_parse_malloc (sizeof (struct cb_key) * nkeys);
-
- for (i = 0; i < nkeys; i++) {
- keys[i].dir = CB_PURPOSE_INT (l);
- keys[i].key = CB_VALUE (l);
- l = CB_CHAIN (l);
- }
- current_field->keys = keys;
- current_field->nkeys = nkeys;
- }
-#line 18051 "parser.c" /* yacc.c:1646 */
- break;
-
- case 892:
-#line 8483 "parser.y" /* yacc.c:1646 */
- {
- cb_tree ref = NULL;
- cb_tree rchain = NULL;
- cb_tree l;
-
- /* create reference chain all the way up
- as later fields may have same name */
- if (!within_typedef_definition) {
- rchain = cb_build_full_field_reference (current_field->parent);
- }
-
- for (l = (yyvsp[0]); l; l = CB_CHAIN (l)) {
- CB_PURPOSE (l) = (yyvsp[-3]);
- ref = CB_VALUE (l);
- if (CB_VALID_TREE (ref)) {
- CB_REFERENCE (ref)->chain = rchain;
- }
- }
- keys_list = cb_list_append (keys_list, (yyvsp[0]));
- (yyval) = keys_list;
- }
-#line 18077 "parser.c" /* yacc.c:1646 */
- break;
-
- case 893:
-#line 8507 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int (COB_ASCENDING); }
-#line 18083 "parser.c" /* yacc.c:1646 */
- break;
-
- case 894:
-#line 8508 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int (COB_DESCENDING); }
-#line 18089 "parser.c" /* yacc.c:1646 */
- break;
-
- case 897:
-#line 8518 "parser.y" /* yacc.c:1646 */
- {
- current_field->index_list = (yyvsp[0]);
- }
-#line 18097 "parser.c" /* yacc.c:1646 */
- break;
-
- case 898:
-#line 8524 "parser.y" /* yacc.c:1646 */
- { (yyval) = CB_LIST_INIT ((yyvsp[0])); }
-#line 18103 "parser.c" /* yacc.c:1646 */
- break;
-
- case 899:
-#line 8526 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0])); }
-#line 18109 "parser.c" /* yacc.c:1646 */
- break;
-
- case 900:
-#line 8531 "parser.y" /* yacc.c:1646 */
- {
- const enum cb_storage storage = current_field->storage;
- const cb_tree init_val = cb_default_byte == CB_DEFAULT_BYTE_INIT
- ? cb_int1 : NULL;
- (yyval) = cb_build_index ((yyvsp[0]), init_val, 1U, current_field);
- if (storage == CB_STORAGE_LOCAL) {
- CB_FIELD_PTR ((yyval))->index_type = CB_INT_INDEX;
- } else {
- CB_FIELD_PTR ((yyval))->index_type = CB_STATIC_INT_INDEX;
- }
- }
-#line 18125 "parser.c" /* yacc.c:1646 */
- break;
-
- case 901:
-#line 8549 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("JUSTIFIED", SYN_CLAUSE_8, &check_pic_duplicate);
- current_field->flag_justified = 1;
- }
-#line 18134 "parser.c" /* yacc.c:1646 */
- break;
-
- case 902:
-#line 8560 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("SYNCHRONIZED", SYN_CLAUSE_9, &check_pic_duplicate);
- if (cb_verify (cb_synchronized_clause, _("SYNCHRONIZED clause"))) {
- current_field->flag_synchronized = 1;
- }
- if (with_attrs && cb_verify (cb_sync_left_right, _("LEFT/RIGHT phrases in SYNCHRONIZED clause"))) {
- if (current_field->flag_synchronized) {
- if (with_attrs == 1) {
- current_field->flag_sync_left = 1;
- } else {
- current_field->flag_sync_right = 1;
- }
- }
- CB_PENDING ("SYNCHRONIZED LEFT/RIGHT");
- }
- }
-#line 18155 "parser.c" /* yacc.c:1646 */
- break;
-
- case 903:
-#line 8579 "parser.y" /* yacc.c:1646 */
- { with_attrs = 0; }
-#line 18161 "parser.c" /* yacc.c:1646 */
- break;
-
- case 904:
-#line 8580 "parser.y" /* yacc.c:1646 */
- { with_attrs = 1; }
-#line 18167 "parser.c" /* yacc.c:1646 */
- break;
-
- case 905:
-#line 8581 "parser.y" /* yacc.c:1646 */
- { with_attrs = -1; }
-#line 18173 "parser.c" /* yacc.c:1646 */
- break;
-
- case 906:
-#line 8589 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("BLANK", SYN_CLAUSE_10, &check_pic_duplicate);
- current_field->flag_blank_zero = 1;
- }
-#line 18182 "parser.c" /* yacc.c:1646 */
- break;
-
- case 907:
-#line 8600 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("BASED", SYN_CLAUSE_11, &check_pic_duplicate);
- if (current_storage == CB_STORAGE_FILE) {
- cb_error (_("%s not allowed here"), "BASED");
- } else if (current_field->level != 1 && current_field->level != 77) {
- cb_error (_("%s only allowed at 01/77 level"), "BASED");
- } else if (!qualifier) {
- cb_error (_("%s requires a data name"), "BASED");
- } else if (current_field->flag_external) {
- cb_error (_("%s and %s are mutually exclusive"), "BASED", "EXTERNAL");
- } else if (current_field->redefines) {
- cb_error (_("%s and %s are mutually exclusive"), "BASED", "REDEFINES");
- } else if (current_field->flag_any_length) {
- cb_error (_("%s and %s are mutually exclusive"), "BASED", "ANY LENGTH");
- } else if (current_field->flag_occurs) {
- cb_error (_("%s and %s are mutually exclusive"), "BASED", "OCCURS");
- } else {
- current_field->flag_item_based = 1;
- }
- }
-#line 18207 "parser.c" /* yacc.c:1646 */
- break;
-
- case 908:
-#line 8627 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("VALUE", SYN_CLAUSE_12, &check_pic_duplicate);
- current_field->values = (yyvsp[0]);
- }
-#line 18216 "parser.c" /* yacc.c:1646 */
- break;
-
- case 909:
-#line 8641 "parser.y" /* yacc.c:1646 */
- {
- /* note: "VALUE _is" would also be correct, but we ignore that
- because of parser conflicts */
- check_repeated ("VALUE", SYN_CLAUSE_12, &check_pic_duplicate);
- current_field->values = (yyvsp[0]);
- }
-#line 18227 "parser.c" /* yacc.c:1646 */
- break;
-
- case 910:
-#line 8649 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("VALUE", SYN_CLAUSE_12, &check_pic_duplicate);
- /* note: bad parsing of "01 var PIC XX VALUES 'AB'." goes here, too,
- if there is no 'repeated' and we have only one item: handle as "VALUE IS" */
- if (!(yyvsp[0]) && cb_list_length ((yyvsp[-1])) == 1) {
- cb_tree x = CB_TREE (current_field);
- current_field->values = CB_LIST ((yyvsp[-1]))->value;
- if (cb_relaxed_syntax_checks) {
- cb_warning_x (COBC_WARN_FILLER, x, _("unexpected %s"), "VALUES ARE");
- } else {
- cb_error_x (x, _("unexpected %s"), "VALUES ARE");
- }
- } else {
- cb_tree value_table_item = cb_build_table_values ((yyvsp[-1]), NULL, NULL, (yyvsp[0]));
- /* note: this format can actually be specified multiple times,
- but we expect the part without FROM first */
- current_field->values = CB_LIST_INIT (value_table_item);
- }
- }
-#line 18251 "parser.c" /* yacc.c:1646 */
- break;
-
- case 911:
-#line 8670 "parser.y" /* yacc.c:1646 */
- {
- cb_tree value_table_item = cb_build_table_values ((yyvsp[-1]), NULL, NULL, (yyvsp[0]));
- /* note: this format can actually be specified multiple times,
- but we expect the part without FROM first */
- current_field->values = CB_LIST_INIT (value_table_item);
- check_repeated ("VALUE", SYN_CLAUSE_12, &check_pic_duplicate);
- /* note: "VALUE _is" with optional repeated would also be correct,
- but we ignore that because of parser conflicts */
- }
-#line 18265 "parser.c" /* yacc.c:1646 */
- break;
-
- case 912:
-#line 8681 "parser.y" /* yacc.c:1646 */
- {
- cb_tree value_table_item = cb_build_table_values ((yyvsp[-1]), (yyvsp[-2]), NULL, (yyvsp[0]));
- /* note: this format can actually be specified multiple times */
- if (!current_field->values) {
- check_repeated ("VALUE", SYN_CLAUSE_12, &check_pic_duplicate);
- current_field->values = CB_LIST_INIT (value_table_item);
- } else {
- current_field->values = cb_list_add (current_field->values, value_table_item);
- }
- }
-#line 18280 "parser.c" /* yacc.c:1646 */
- break;
-
- case 913:
-#line 8694 "parser.y" /* yacc.c:1646 */
- { (yyval) = CB_LIST_INIT ((yyvsp[0])); }
-#line 18286 "parser.c" /* yacc.c:1646 */
- break;
-
- case 914:
-#line 8695 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0])); }
-#line 18292 "parser.c" /* yacc.c:1646 */
- break;
-
- case 915:
-#line 8700 "parser.y" /* yacc.c:1646 */
- {
- /* note: actual matching to amount of subs (OCCURS) is
- postponed as this phrase can be specified later
- and/or in a higher level */
-
- cb_tree to_subs = (yyvsp[0]);
- if (to_subs) {
- if (cb_list_length ((yyvsp[-1])) != cb_list_length (to_subs)) {
- cb_error_x (to_subs, _("amount of entries in FROM and TO must match"));
- to_subs = NULL;
- } else {
- cb_tree f = (yyvsp[-1]), t = to_subs;
- while (f) {
- int f_idx = cb_get_int (CB_VALUE (f));
- int t_idx = cb_get_int (CB_VALUE (t));
- if (f_idx > t_idx) {
- cb_error_x ((yyvsp[-1]),
- _("entry in FROM (%d) must be <= entry in TO (%d)"),
- f_idx, t_idx);
- break;
- }
- f = CB_CHAIN (f);
- t = CB_CHAIN (t);
- }
- }
- }
- (yyval) = cb_build_table_values ((yyvsp[-2]), (yyvsp[-1]), (yyvsp[0]), NULL);
- }
-#line 18325 "parser.c" /* yacc.c:1646 */
- break;
-
- case 916:
-#line 8731 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[-2]); }
-#line 18331 "parser.c" /* yacc.c:1646 */
- break;
-
- case 917:
-#line 8732 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[-2]); }
-#line 18337 "parser.c" /* yacc.c:1646 */
- break;
-
- case 918:
-#line 8736 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 18343 "parser.c" /* yacc.c:1646 */
- break;
-
- case 919:
-#line 8740 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 18349 "parser.c" /* yacc.c:1646 */
- break;
-
- case 920:
-#line 8741 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 18355 "parser.c" /* yacc.c:1646 */
- break;
-
- case 921:
-#line 8746 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_list_reverse ((yyvsp[-1]));
- }
-#line 18363 "parser.c" /* yacc.c:1646 */
- break;
-
- case 922:
-#line 8752 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 18369 "parser.c" /* yacc.c:1646 */
- break;
-
- case 923:
-#line 8753 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 18375 "parser.c" /* yacc.c:1646 */
- break;
-
- case 924:
-#line 8757 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[-1]); }
-#line 18381 "parser.c" /* yacc.c:1646 */
- break;
-
- case 925:
-#line 8758 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_null; }
-#line 18387 "parser.c" /* yacc.c:1646 */
- break;
-
- case 926:
-#line 8763 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_LIST_INIT ((yyvsp[0]));
- }
-#line 18395 "parser.c" /* yacc.c:1646 */
- break;
-
- case 927:
-#line 8767 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_list_add ((yyvsp[-2]), (yyvsp[0]));
- }
-#line 18403 "parser.c" /* yacc.c:1646 */
- break;
-
- case 930:
-#line 8779 "parser.y" /* yacc.c:1646 */
- { (yyval) = CB_LIST_INIT ((yyvsp[0])); }
-#line 18409 "parser.c" /* yacc.c:1646 */
- break;
-
- case 931:
-#line 8780 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0])); }
-#line 18415 "parser.c" /* yacc.c:1646 */
- break;
-
- case 933:
-#line 8790 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("VALUE", SYN_CLAUSE_12, &check_pic_duplicate);
- current_field->values = (yyvsp[0]);
- }
-#line 18424 "parser.c" /* yacc.c:1646 */
- break;
-
- case 934:
-#line 8799 "parser.y" /* yacc.c:1646 */
- {
- current_field->values = (yyvsp[0]);
- }
-#line 18432 "parser.c" /* yacc.c:1646 */
- break;
-
- case 937:
-#line 8818 "parser.y" /* yacc.c:1646 */
- { (yyval) = CB_LIST_INIT ((yyvsp[0])); }
-#line 18438 "parser.c" /* yacc.c:1646 */
- break;
-
- case 938:
-#line 8819 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0])); }
-#line 18444 "parser.c" /* yacc.c:1646 */
- break;
-
- case 939:
-#line 8823 "parser.y" /* yacc.c:1646 */
- { (yyval) = CB_BUILD_PAIR ((yyvsp[-2]), (yyvsp[0])); }
-#line 18450 "parser.c" /* yacc.c:1646 */
- break;
-
- case 944:
-#line 8836 "parser.y" /* yacc.c:1646 */
- {
- current_field->false_88 = CB_LIST_INIT ((yyvsp[0]));
- }
-#line 18458 "parser.c" /* yacc.c:1646 */
- break;
-
- case 945:
-#line 8847 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("VALIDATE");
- }
-#line 18466 "parser.c" /* yacc.c:1646 */
- break;
-
- case 946:
-#line 8853 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int0; }
-#line 18472 "parser.c" /* yacc.c:1646 */
- break;
-
- case 947:
-#line 8854 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int1; }
-#line 18478 "parser.c" /* yacc.c:1646 */
- break;
-
- case 949:
-#line 8860 "parser.y" /* yacc.c:1646 */
- {
- /* PENDING, but message already above */
- }
-#line 18486 "parser.c" /* yacc.c:1646 */
- break;
-
- case 950:
-#line 8870 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("VALIDATE");
- }
-#line 18494 "parser.c" /* yacc.c:1646 */
- break;
-
- case 951:
-#line 8876 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int1; }
-#line 18500 "parser.c" /* yacc.c:1646 */
- break;
-
- case 952:
-#line 8877 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int0; }
-#line 18506 "parser.c" /* yacc.c:1646 */
- break;
-
- case 953:
-#line 8881 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 18512 "parser.c" /* yacc.c:1646 */
- break;
-
- case 954:
-#line 8882 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int0; }
-#line 18518 "parser.c" /* yacc.c:1646 */
- break;
-
- case 955:
-#line 8883 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int1; }
-#line 18524 "parser.c" /* yacc.c:1646 */
- break;
-
- case 956:
-#line 8884 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int2; }
-#line 18530 "parser.c" /* yacc.c:1646 */
- break;
-
- case 957:
-#line 8891 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("VALIDATE");
- }
-#line 18538 "parser.c" /* yacc.c:1646 */
- break;
-
- case 959:
-#line 8898 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 18544 "parser.c" /* yacc.c:1646 */
- break;
-
- case 960:
-#line 8905 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("VALIDATE");
- }
-#line 18552 "parser.c" /* yacc.c:1646 */
- break;
-
- case 968:
-#line 8924 "parser.y" /* yacc.c:1646 */
- {
- /* FIXME: it _seems_ that reference_list would be
- better, but that doesn't handle indices / refmod */
- CB_PENDING ("VALIDATE");
- }
-#line 18562 "parser.c" /* yacc.c:1646 */
- break;
-
- case 969:
-#line 8935 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("VALIDATE");
- }
-#line 18570 "parser.c" /* yacc.c:1646 */
- break;
-
- case 970:
-#line 8944 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("VALIDATE");
- }
-#line 18578 "parser.c" /* yacc.c:1646 */
- break;
-
- case 971:
-#line 8954 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("ANY", SYN_CLAUSE_14, &check_pic_duplicate);
- if (current_field->flag_item_based) {
- cb_error (_("%s and %s are mutually exclusive"), "BASED", "ANY LENGTH");
- } else {
- current_field->flag_any_length = 1;
- }
- }
-#line 18591 "parser.c" /* yacc.c:1646 */
- break;
-
- case 972:
-#line 8963 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("ANY", SYN_CLAUSE_14, &check_pic_duplicate);
- if (current_field->flag_item_based) {
- cb_error (_("%s and %s are mutually exclusive"), "BASED", "ANY NUMERIC");
- } else {
- current_field->flag_any_length = 1;
- current_field->flag_any_numeric = 1;
- }
- }
-#line 18605 "parser.c" /* yacc.c:1646 */
- break;
-
- case 973:
-#line 8978 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("EXTERNAL-FORM", SYN_CLAUSE_2, &check_pic_duplicate);
- CB_PENDING ("EXTERNAL-FORM");
- if (current_storage != CB_STORAGE_WORKING) {
- cb_error (_("%s not allowed here"), "EXTERNAL-FORM");
- } else if (current_field->level != 1) { /* docs say: at group level */
- cb_error (_("%s only allowed at 01 level"), "EXTERNAL-FORM");
- } else if (!qualifier) {
- cb_error (_("%s requires a data name"), "EXTERNAL-FORM");
- } else if (current_field->redefines) {
- cb_error (_("%s and %s combination not allowed"), "EXTERNAL-FORM", "REDEFINES");
- } else {
- current_field->flag_is_external_form = 1;
- }
- }
-#line 18625 "parser.c" /* yacc.c:1646 */
- break;
-
- case 974:
-#line 9001 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("IDENTIFIED BY", SYN_CLAUSE_3, &check_pic_duplicate);
- if (!current_field->flag_is_external_form) {
- CB_PENDING ("EXTERNAL-FORM (IDENTIFIED BY)");
- if (current_storage != CB_STORAGE_WORKING) {
- cb_error (_("%s not allowed here"), "IDENTIFIED BY");
- } else if (!qualifier) {
- cb_error (_("%s requires a data name"), "IDENTIFIED BY");
- } else if (current_field->redefines) {
- cb_error (_("%s and %s combination not allowed"), "IDENTIFIED BY", "REDEFINES");
- }
- }
- current_field->external_form_identifier = (yyvsp[0]);
- }
-#line 18644 "parser.c" /* yacc.c:1646 */
- break;
-
- case 975:
-#line 9019 "parser.y" /* yacc.c:1646 */
- { check_area_a_of ("LOCAL-STORAGE SECTION"); }
-#line 18650 "parser.c" /* yacc.c:1646 */
- break;
-
- case 977:
-#line 9022 "parser.y" /* yacc.c:1646 */
- {
- check_headers_present (COBC_HD_DATA_DIVISION, 0, 0, 0);
- header_check |= COBC_HD_LOCAL_STORAGE_SECTION;
- current_storage = CB_STORAGE_LOCAL;
- if (current_program->nested_level) {
- cb_error (_("%s not allowed in nested programs"), "LOCAL-STORAGE");
- } else if (cb_local_implies_recursive) {
- current_program->flag_recursive = 1;
- }
- }
-#line 18665 "parser.c" /* yacc.c:1646 */
- break;
-
- case 978:
-#line 9033 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[0])) {
- /* note: we may added internal items like INDEXES already,
- so ADD, not SET */
- CB_FIELD_ADD (current_program->local_storage, CB_FIELD ((yyvsp[0])));
- }
- }
-#line 18677 "parser.c" /* yacc.c:1646 */
- break;
-
- case 979:
-#line 9045 "parser.y" /* yacc.c:1646 */
- { check_area_a_of ("LINKAGE SECTION"); }
-#line 18683 "parser.c" /* yacc.c:1646 */
- break;
-
- case 981:
-#line 9048 "parser.y" /* yacc.c:1646 */
- {
- check_headers_present (COBC_HD_DATA_DIVISION, 0, 0, 0);
- header_check |= COBC_HD_LINKAGE_SECTION;
- current_storage = CB_STORAGE_LINKAGE;
- }
-#line 18693 "parser.c" /* yacc.c:1646 */
- break;
-
- case 982:
-#line 9054 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[0])) {
- /* note: we may added internal items like INDEXES already,
- so ADD, not SET */
- CB_FIELD_ADD (current_program->linkage_storage, CB_FIELD ((yyvsp[0])));
- }
- }
-#line 18705 "parser.c" /* yacc.c:1646 */
- break;
-
- case 984:
-#line 9066 "parser.y" /* yacc.c:1646 */
- { check_area_a_of ("REPORT SECTION"); }
-#line 18711 "parser.c" /* yacc.c:1646 */
- break;
-
- case 985:
-#line 9068 "parser.y" /* yacc.c:1646 */
- {
- header_check |= COBC_HD_REPORT_SECTION;
- current_storage = CB_STORAGE_REPORT;
- description_field = NULL;
- current_program->flag_report = 1;
- cb_clear_real_field ();
- }
-#line 18723 "parser.c" /* yacc.c:1646 */
- break;
-
- case 989:
-#line 9085 "parser.y" /* yacc.c:1646 */
- { check_area_a_of ("RD"); }
-#line 18729 "parser.c" /* yacc.c:1646 */
- break;
-
- case 990:
-#line 9087 "parser.y" /* yacc.c:1646 */
- {
- if (CB_INVALID_TREE ((yyvsp[0]))) {
- YYERROR;
- } else {
- current_field = NULL;
- control_field = NULL;
- description_field = NULL;
- current_report = CB_REPORT_PTR ((yyvsp[0]));
- }
- check_duplicate = 0;
- }
-#line 18745 "parser.c" /* yacc.c:1646 */
- break;
-
- case 991:
-#line 9101 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = get_finalized_description_tree ();
-
- current_program->report_storage = description_field;
- current_program->flag_report = 1;
- if (current_report->records == NULL) {
- current_report->records = description_field;
- }
- finalize_report (current_report, description_field);
- }
-#line 18760 "parser.c" /* yacc.c:1646 */
- break;
-
- case 994:
-#line 9116 "parser.y" /* yacc.c:1646 */
- {
- yyerrok;
- }
-#line 18768 "parser.c" /* yacc.c:1646 */
- break;
-
- case 995:
-#line 9123 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("GLOBAL", SYN_CLAUSE_1, &check_duplicate);
- current_report->global = 1;
- cb_error (_("GLOBAL is not allowed with RD"));
- }
-#line 18778 "parser.c" /* yacc.c:1646 */
- break;
-
- case 996:
-#line 9129 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("CODE", SYN_CLAUSE_2, &check_duplicate);
- current_report->code_clause = (yyvsp[0]);
- }
-#line 18787 "parser.c" /* yacc.c:1646 */
- break;
-
- case 999:
-#line 9141 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("CONTROL", SYN_CLAUSE_3, &check_duplicate);
- }
-#line 18795 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1003:
-#line 9154 "parser.y" /* yacc.c:1646 */
- {
- current_report->control_final = 1;
- }
-#line 18803 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1006:
-#line 9166 "parser.y" /* yacc.c:1646 */
- {
- /* Add field to current control list */
- CB_ADD_TO_CHAIN ((yyvsp[0]), current_report->controls);
- }
-#line 18812 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1007:
-#line 9177 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("PAGE", SYN_CLAUSE_4, &check_duplicate);
- if (!current_report->heading) {
- current_report->heading = 1;
- }
- if (!current_report->first_detail) {
- current_report->first_detail = current_report->heading;
- }
- if (!current_report->last_control) {
- if (current_report->last_detail) {
- current_report->last_control = current_report->last_detail;
- } else if (current_report->footing) {
- current_report->last_control = current_report->footing;
- } else {
- current_report->last_control = current_report->lines;
- }
- if (current_report->t_last_detail) {
- current_report->t_last_control = current_report->t_last_detail;
- } else if (current_report->t_footing) {
- current_report->t_last_control = current_report->t_footing;
- } else if(current_report->t_lines) {
- current_report->t_last_control = current_report->t_lines;
- }
- }
- if (!current_report->last_detail && !current_report->footing) {
- current_report->last_detail = current_report->lines;
- current_report->footing = current_report->lines;
- } else if (!current_report->last_detail) {
- current_report->last_detail = current_report->footing;
- } else if (!current_report->footing) {
- current_report->footing = current_report->last_detail;
- }
- /* PAGE LIMIT values checked in finalize_report in typeck.c */
- }
-#line 18851 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1008:
-#line 9215 "parser.y" /* yacc.c:1646 */
- {
- if (CB_LITERAL_P ((yyvsp[-1]))) {
- current_report->lines = cb_get_int ((yyvsp[-1]));
- if (current_report->lines > 999) {
- cb_error ("PAGE LIMIT lines > 999");
- }
- } else {
- current_report->t_lines = (yyvsp[-1]);
- }
- }
-#line 18866 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1010:
-#line 9227 "parser.y" /* yacc.c:1646 */
- {
- if (CB_LITERAL_P ((yyvsp[-2]))) {
- current_report->lines = cb_get_int ((yyvsp[-2]));
- if (current_report->lines > 999) {
- cb_error ("PAGE LIMIT lines > 999");
- }
- } else {
- current_report->t_lines = (yyvsp[-2]);
- }
- }
-#line 18881 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1011:
-#line 9241 "parser.y" /* yacc.c:1646 */
- {
- /* may be repeated later by page detail */
- check_repeated ("LINE LIMIT", SYN_CLAUSE_5, &check_duplicate);
- if (CB_LITERAL_P ((yyvsp[-1]))) {
- current_report->columns = cb_get_int ((yyvsp[-1]));
- } else {
- current_report->t_columns = (yyvsp[-1]);
- }
- }
-#line 18895 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1021:
-#line 9269 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("LINE LIMIT", SYN_CLAUSE_5, &check_duplicate);
- if (CB_LITERAL_P ((yyvsp[0]))) {
- current_report->columns = cb_get_int ((yyvsp[0]));
- } else {
- current_report->t_columns = (yyvsp[0]);
- }
- }
-#line 18908 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1022:
-#line 9281 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("HEADING", SYN_CLAUSE_6, &check_duplicate);
- error_if_no_page_lines_limit ("HEADING");
-
- if (CB_LITERAL_P ((yyvsp[0]))) {
- current_report->heading = cb_get_int ((yyvsp[0]));
- } else {
- current_report->t_heading = (yyvsp[0]);
- }
- }
-#line 18923 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1023:
-#line 9295 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("FIRST DETAIL", SYN_CLAUSE_7, &check_duplicate);
- error_if_no_page_lines_limit ("FIRST DETAIL");
-
- if (CB_LITERAL_P ((yyvsp[0]))) {
- current_report->first_detail = cb_get_int ((yyvsp[0]));
- } else {
- current_report->t_first_detail = (yyvsp[0]);
- }
- }
-#line 18938 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1024:
-#line 9309 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("LAST CONTROL HEADING", SYN_CLAUSE_8, &check_duplicate);
- error_if_no_page_lines_limit ("LAST CONTROL HEADING");
-
- if (CB_LITERAL_P ((yyvsp[0]))) {
- current_report->last_control = cb_get_int ((yyvsp[0]));
- } else {
- current_report->t_last_control = (yyvsp[0]);
- }
- }
-#line 18953 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1025:
-#line 9323 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("LAST DETAIL", SYN_CLAUSE_9, &check_duplicate);
- error_if_no_page_lines_limit ("LAST DETAIL");
-
- if (CB_LITERAL_P ((yyvsp[0]))) {
- current_report->last_detail = cb_get_int ((yyvsp[0]));
- } else {
- current_report->t_last_detail = (yyvsp[0]);
- }
- }
-#line 18968 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1026:
-#line 9337 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("FOOTING", SYN_CLAUSE_10, &check_duplicate);
- error_if_no_page_lines_limit ("FOOTING");
-
- if (CB_LITERAL_P ((yyvsp[0]))) {
- current_report->footing = cb_get_int ((yyvsp[0]));
- } else {
- current_report->t_footing = (yyvsp[0]);
- }
- }
-#line 18983 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1029:
-#line 9355 "parser.y" /* yacc.c:1646 */
- {
- const int level = cb_get_level ((yyvsp[-1]));
- if (set_current_field (level, (yyvsp[0]))) {
- YYERROR;
- }
- if (!description_field) {
- description_field = current_field;
- }
- }
-#line 18997 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1030:
-#line 9365 "parser.y" /* yacc.c:1646 */
- {
- build_sum_counter (current_report, current_field);
- }
-#line 19005 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1031:
-#line 9369 "parser.y" /* yacc.c:1646 */
- {
- yyerrok;
- check_pic_duplicate = 0;
- check_duplicate = 0;
- current_field = cb_get_real_field ();
- }
-#line 19016 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1051:
-#line 9403 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("TYPE IS", SYN_CLAUSE_16, &check_pic_duplicate);
- }
-#line 19024 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1052:
-#line 9410 "parser.y" /* yacc.c:1646 */
- {
- current_field->report_flag |= COB_REPORT_HEADING;
- }
-#line 19032 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1053:
-#line 9414 "parser.y" /* yacc.c:1646 */
- {
- current_field->report_flag |= COB_REPORT_PAGE_HEADING;
- }
-#line 19040 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1056:
-#line 9420 "parser.y" /* yacc.c:1646 */
- {
- if (current_report != NULL) {
- current_report->has_detail = 1;
- }
- current_field->report_flag |= COB_REPORT_DETAIL;
- }
-#line 19051 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1057:
-#line 9427 "parser.y" /* yacc.c:1646 */
- {
- current_field->report_flag |= COB_REPORT_PAGE_FOOTING;
- }
-#line 19059 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1058:
-#line 9431 "parser.y" /* yacc.c:1646 */
- {
- current_field->report_flag |= COB_REPORT_FOOTING;
- }
-#line 19067 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1059:
-#line 9438 "parser.y" /* yacc.c:1646 */
- {
- current_field->report_flag |= COB_REPORT_CONTROL_HEADING;
- }
-#line 19075 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1060:
-#line 9442 "parser.y" /* yacc.c:1646 */
- {
- current_field->report_flag |= COB_REPORT_CONTROL_HEADING;
- current_field->report_control = (yyvsp[-1]);
- if ((yyvsp[0])) {
- current_field->report_flag |= COB_REPORT_PAGE;
- }
- }
-#line 19087 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1061:
-#line 9450 "parser.y" /* yacc.c:1646 */
- {
- current_field->report_flag |= COB_REPORT_CONTROL_HEADING_FINAL;
- }
-#line 19095 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1062:
-#line 9459 "parser.y" /* yacc.c:1646 */
- {(yyval) = NULL;}
-#line 19101 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1063:
-#line 9460 "parser.y" /* yacc.c:1646 */
- {(yyval) = cb_int0;}
-#line 19107 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1064:
-#line 9465 "parser.y" /* yacc.c:1646 */
- {
- current_field->report_flag |= COB_REPORT_CONTROL_FOOTING;
- }
-#line 19115 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1065:
-#line 9469 "parser.y" /* yacc.c:1646 */
- {
- current_field->report_flag |= COB_REPORT_CONTROL_FOOTING;
- current_field->report_control = (yyvsp[-1]);
- }
-#line 19124 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1066:
-#line 9474 "parser.y" /* yacc.c:1646 */
- {
- current_field->report_flag |= COB_REPORT_CONTROL_FOOTING_FINAL;
- }
-#line 19132 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1067:
-#line 9478 "parser.y" /* yacc.c:1646 */
- {
- current_field->report_flag |= COB_REPORT_CONTROL_FOOTING;
- current_field->report_flag |= COB_REPORT_ALL;
- }
-#line 19141 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1068:
-#line 9486 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("NEXT GROUP", SYN_CLAUSE_17, &check_pic_duplicate);
- }
-#line 19149 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1069:
-#line 9493 "parser.y" /* yacc.c:1646 */
- {
- if (CB_LITERAL_P((yyvsp[0])) && CB_LITERAL ((yyvsp[0]))->sign > 0) {
- current_field->report_flag |= COB_REPORT_NEXT_GROUP_PLUS;
- } else {
- current_field->report_flag |= COB_REPORT_NEXT_GROUP_LINE;
- }
- current_field->next_group_line = cb_get_int ((yyvsp[0]));
- }
-#line 19162 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1070:
-#line 9502 "parser.y" /* yacc.c:1646 */
- {
- current_field->report_flag |= COB_REPORT_NEXT_GROUP_PLUS;
- current_field->next_group_line = cb_get_int((yyvsp[0]));
- }
-#line 19171 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1071:
-#line 9507 "parser.y" /* yacc.c:1646 */
- {
- current_field->report_flag |= COB_REPORT_NEXT_GROUP_PAGE;
- }
-#line 19179 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1075:
-#line 9520 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("SUM", SYN_CLAUSE_19, &check_pic_duplicate);
- current_field->report_sum_list = (yyvsp[-1]);
- }
-#line 19188 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1078:
-#line 9529 "parser.y" /* yacc.c:1646 */
- {
- current_field->report_sum_upon = (yyvsp[0]);
- }
-#line 19196 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1079:
-#line 9536 "parser.y" /* yacc.c:1646 */
- {
- current_field->report_reset = (yyvsp[0]);
- }
-#line 19204 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1080:
-#line 9540 "parser.y" /* yacc.c:1646 */
- {
- current_field->report_flag |= COB_REPORT_RESET_FINAL;
- }
-#line 19212 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1081:
-#line 9547 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("PRESENT", SYN_CLAUSE_20, &check_pic_duplicate);
- current_field->report_when = (yyvsp[0]);
- }
-#line 19221 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1082:
-#line 9552 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("PRESENT", SYN_CLAUSE_20, &check_pic_duplicate);
- current_field->report_flag |= COB_REPORT_PRESENT;
- current_field->report_flag &= ~COB_REPORT_BEFORE;
- }
-#line 19231 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1083:
-#line 9558 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("PRESENT", SYN_CLAUSE_20, &check_pic_duplicate);
- current_field->report_flag |= COB_REPORT_PRESENT;
- current_field->report_flag &= ~COB_REPORT_BEFORE;
- current_field->report_flag |= COB_REPORT_PAGE;
- }
-#line 19242 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1084:
-#line 9565 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("PRESENT", SYN_CLAUSE_20, &check_pic_duplicate);
- current_field->report_flag |= COB_REPORT_PRESENT;
- current_field->report_flag |= COB_REPORT_BEFORE;
- }
-#line 19252 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1085:
-#line 9571 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("PRESENT", SYN_CLAUSE_20, &check_pic_duplicate);
- current_field->report_flag |= COB_REPORT_PRESENT;
- current_field->report_flag |= COB_REPORT_BEFORE;
- current_field->report_flag |= COB_REPORT_PAGE;
- }
-#line 19263 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1086:
-#line 9581 "parser.y" /* yacc.c:1646 */
- {
- current_field->report_flag |= COB_REPORT_PRESENT;
- }
-#line 19271 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1087:
-#line 9585 "parser.y" /* yacc.c:1646 */
- {
- current_field->report_flag |= COB_REPORT_PRESENT;
- current_field->report_flag |= COB_REPORT_NEGATE;
- }
-#line 19280 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1090:
-#line 9598 "parser.y" /* yacc.c:1646 */
- {
- current_field->report_flag |= COB_REPORT_PAGE;
- }
-#line 19288 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1091:
-#line 9602 "parser.y" /* yacc.c:1646 */
- {
- current_field->report_control = (yyvsp[0]);
- }
-#line 19296 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1093:
-#line 9610 "parser.y" /* yacc.c:1646 */
- {
- current_field->report_vary_list = (yyvsp[0]);
- }
-#line 19304 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1094:
-#line 9616 "parser.y" /* yacc.c:1646 */
- { (yyval) = CB_LIST_INIT ((yyvsp[0])); }
-#line 19310 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1095:
-#line 9618 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0])); }
-#line 19316 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1096:
-#line 9623 "parser.y" /* yacc.c:1646 */
- {
- cb_tree x;
- CB_PENDING ("RW VARYING clause");
-
- /* TODO: come back to this later, ISO rules are different, possibly needs a dialect option */
- if (CB_WORD_COUNT ((yyvsp[-2])) == 0) {
- x = cb_build_field (cb_build_reference (CB_NAME ((yyvsp[-2]))));
- CB_FIELD (x)->usage = CB_USAGE_INDEX;
- CB_FIELD (x)->index_type = CB_STATIC_INT_INDEX;
- if ((yyvsp[-1])) {
- /* Note: this is a hack until we support VARYING here (as done in trunk) */
- CB_FIELD (x)->values = CB_LIST_INIT ((yyvsp[-1]));
- } else {
- CB_FIELD (x)->values = CB_LIST_INIT (cb_zero);
- }
- CB_FIELD (x)->size = sizeof(int);
- CB_FIELD (x)->count++;
- CB_FIELD (x)->flag_real_binary = 1;
- CB_FIELD (x)->flag_internal_register = 1;
- CB_TREE (x)->category = CB_CATEGORY_NUMERIC;
- cb_validate_field (CB_FIELD (x));
- CB_FIELD_ADD (current_program->working_storage, CB_FIELD (x));
- } else {
- struct cb_field *f = CB_FIELD (cb_ref ((yyvsp[-2])));
- if (f->usage != CB_USAGE_INDEX
- || !f->flag_internal_register)
- cb_error_x ((yyvsp[-2]), _("%s is not valid for VARYING"),f->name);
- x = CB_TREE (f);
- }
-
- (yyval) = cb_build_vary (x, (yyvsp[-1]), (yyvsp[0]));
- }
-#line 19353 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1097:
-#line 9659 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 19361 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1098:
-#line 9663 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 19369 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1099:
-#line 9670 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 19377 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1100:
-#line 9674 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 19385 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1101:
-#line 9681 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("LINE", SYN_CLAUSE_21, &check_pic_duplicate);
- current_field->report_flag |= COB_REPORT_LINE;
- if (current_field->flag_occurs) {
- cb_error (_("LINE with OCCURS is not supported"));
- }
- }
-#line 19397 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1106:
-#line 9702 "parser.y" /* yacc.c:1646 */
- {
- current_field->report_flag |= COB_REPORT_LINE_NEXT_PAGE;
- }
-#line 19405 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1107:
-#line 9706 "parser.y" /* yacc.c:1646 */
- {
- current_field->report_line = cb_get_int ((yyvsp[0]));
- if ((yyvsp[-1])) {
- current_field->report_flag |= COB_REPORT_LINE_PLUS;
- if (current_field->report_line == 0) {
- CB_PENDING ("LINE PLUS 0");
- }
- }
- }
-#line 19419 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1108:
-#line 9720 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("COLUMN", SYN_CLAUSE_18, &check_pic_duplicate);
- if ((current_field->report_flag & (COB_REPORT_COLUMN_LEFT|COB_REPORT_COLUMN_RIGHT|COB_REPORT_COLUMN_CENTER))
- && (current_field->report_flag & COB_REPORT_COLUMN_PLUS)) {
- if (cb_relaxed_syntax_checks) {
- cb_warning (COBC_WARN_FILLER, _("PLUS is not recommended with LEFT, RIGHT or CENTER"));
- } else {
- cb_error (_("PLUS is not allowed with LEFT, RIGHT or CENTER"));
- }
- }
- }
-#line 19435 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1112:
-#line 9744 "parser.y" /* yacc.c:1646 */
- {
- current_field->report_flag |= COB_REPORT_COLUMN_LEFT;
- }
-#line 19443 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1113:
-#line 9748 "parser.y" /* yacc.c:1646 */
- {
- current_field->report_flag |= COB_REPORT_COLUMN_RIGHT;
- }
-#line 19451 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1114:
-#line 9752 "parser.y" /* yacc.c:1646 */
- {
- current_field->report_flag |= COB_REPORT_COLUMN_CENTER;
- }
-#line 19459 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1115:
-#line 9759 "parser.y" /* yacc.c:1646 */
- {
- int colnum = cb_get_int ((yyvsp[0]));
- if (colnum != 0) {
- if (current_field->parent
- && current_field->parent->children == current_field
- && (current_field->parent->report_flag & COB_REPORT_LINE)) {
- cb_warning (COBC_WARN_FILLER, _("PLUS is ignored on first field of line"));
- if (current_field->step_count == 0) {
- current_field->step_count = colnum;
- }
- } else {
- current_field->report_flag |= COB_REPORT_COLUMN_PLUS;
- }
- } else {
- colnum = 0;
- }
- if (current_field->report_column == 0) {
- current_field->report_column = colnum;
- }
- current_field->report_num_col++;
- }
-#line 19485 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1119:
-#line 9790 "parser.y" /* yacc.c:1646 */
- {
- int colnum;
- colnum = cb_get_int ((yyvsp[0]));
- if (colnum < 0) {
- /* already handled by integer check */
- } else if (colnum == 0) {
- cb_error (_("invalid COLUMN integer; must be > 0"));
- } else if (colnum <= current_field->report_column) {
- cb_warning (COBC_WARN_FILLER, _("COLUMN numbers should increase"));
- }
- current_field->report_column_list =
- cb_list_append (current_field->report_column_list, CB_LIST_INIT ((yyvsp[0])));
- if (current_field->report_column == 0) {
- current_field->report_column = colnum;
- }
- current_field->report_num_col++;
- }
-#line 19507 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1120:
-#line 9811 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("SOURCE", SYN_CLAUSE_22, &check_pic_duplicate);
- current_field->report_source = (yyvsp[-1]);
- }
-#line 19516 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1121:
-#line 9819 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("GROUP", SYN_CLAUSE_23, &check_pic_duplicate);
- current_field->report_flag |= COB_REPORT_GROUP_INDICATE;
- }
-#line 19525 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1123:
-#line 9828 "parser.y" /* yacc.c:1646 */
- { check_area_a_of ("SCREEN SECTION"); }
-#line 19531 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1124:
-#line 9830 "parser.y" /* yacc.c:1646 */
- {
- cobc_cs_check = CB_CS_SCREEN;
- current_storage = CB_STORAGE_SCREEN;
- current_field = NULL;
- description_field = NULL;
- cb_clear_real_field ();
- }
-#line 19543 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1125:
-#line 9838 "parser.y" /* yacc.c:1646 */
- {
- if (description_field) {
- get_finalized_description_tree ();
- /* note: we may added internal items like INDEXES already,
- so ADD, not SET */
- CB_FIELD_ADD (current_program->screen_storage, description_field);
- current_program->flag_screen = 1;
- }
- cobc_cs_check = 0;
- }
-#line 19558 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1131:
-#line 9863 "parser.y" /* yacc.c:1646 */
- {
- const int level = cb_get_level ((yyvsp[-1]));
- if (set_current_field (level, (yyvsp[0]))) {
- YYERROR;
- }
- }
-#line 19569 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1132:
-#line 9870 "parser.y" /* yacc.c:1646 */
- {
- validate_screen_attributes ();
- }
-#line 19577 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1133:
-#line 9875 "parser.y" /* yacc.c:1646 */
- {
- const int level = cb_get_level ((yyvsp[-1]));
- if (set_current_field (level, (yyvsp[0]))) {
- YYERROR;
- }
- }
-#line 19588 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1134:
-#line 9882 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("GRAPHICAL CONTROL");
- }
-#line 19596 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1135:
-#line 9887 "parser.y" /* yacc.c:1646 */
- {
- validate_screen_attributes ();
- cobc_cs_check = CB_CS_SCREEN;
- }
-#line 19605 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1136:
-#line 9893 "parser.y" /* yacc.c:1646 */
- {
- /*
- Tree associated with level number has already been freed; we don't
- need to do anything here.
- */
- yyerrok;
- cb_unput_dot ();
- check_pic_duplicate = 0;
- check_duplicate = 0;
-#if 1 /* RXWRXW Screen field */
- if (current_field) {
- current_field->flag_is_verified = 1;
- current_field->flag_invalid = 1;
- }
-#endif
- current_field = cb_get_real_field ();
- }
-#line 19627 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1139:
-#line 9919 "parser.y" /* yacc.c:1646 */
- {
- set_screen_attr_with_conflict ("BLANK LINE", COB_SCREEN_BLANK_LINE,
- "BLANK SCREEN", COB_SCREEN_BLANK_SCREEN);
- }
-#line 19636 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1140:
-#line 9924 "parser.y" /* yacc.c:1646 */
- {
- set_screen_attr_with_conflict ("BLANK SCREEN", COB_SCREEN_BLANK_SCREEN,
- "BLANK LINE", COB_SCREEN_BLANK_LINE);
- }
-#line 19645 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1141:
-#line 9929 "parser.y" /* yacc.c:1646 */
- {
- set_screen_attr ("BELL", COB_SCREEN_BELL);
- }
-#line 19653 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1142:
-#line 9933 "parser.y" /* yacc.c:1646 */
- {
- set_screen_attr ("BLINK", COB_SCREEN_BLINK);
- }
-#line 19661 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1143:
-#line 9937 "parser.y" /* yacc.c:1646 */
- {
- set_screen_attr_with_conflict ("ERASE EOL", COB_SCREEN_ERASE_EOL,
- "ERASE EOS", COB_SCREEN_ERASE_EOS);
- }
-#line 19670 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1144:
-#line 9942 "parser.y" /* yacc.c:1646 */
- {
- set_screen_attr_with_conflict ("ERASE EOS", COB_SCREEN_ERASE_EOS,
- "ERASE EOL", COB_SCREEN_ERASE_EOL);
- }
-#line 19679 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1145:
-#line 9947 "parser.y" /* yacc.c:1646 */
- {
- set_screen_attr_with_conflict ("HIGHLIGHT", COB_SCREEN_HIGHLIGHT,
- "LOWLIGHT", COB_SCREEN_LOWLIGHT);
- }
-#line 19688 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1146:
-#line 9952 "parser.y" /* yacc.c:1646 */
- {
- set_screen_attr_with_conflict ("LOWLIGHT", COB_SCREEN_LOWLIGHT,
- "HIGHLIGHT", COB_SCREEN_HIGHLIGHT);
- }
-#line 19697 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1147:
-#line 9957 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("STANDARD intensity");
-#if 0 /* in general we could simply remove high/low, but for syntax checks
- we still need a flag */
- set_screen_attr_with_conflict ("LOWLIGHT", COB_SCREEN_LOWLIGHT,
- "HIGHLIGHT", COB_SCREEN_HIGHLIGHT);
-#endif
- }
-#line 19710 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1148:
-#line 9966 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("BACKGROUND intensity");
- }
-#line 19718 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1149:
-#line 9970 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("BACKGROUND intensity");
- }
-#line 19726 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1150:
-#line 9974 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("BACKGROUND intensity");
- }
-#line 19734 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1151:
-#line 9978 "parser.y" /* yacc.c:1646 */
- {
- set_screen_attr ("REVERSE-VIDEO", COB_SCREEN_REVERSE);
- }
-#line 19742 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1152:
-#line 9982 "parser.y" /* yacc.c:1646 */
- {
- /* set_screen_attr ("SIZE", COB_SCREEN_SIZE); */
- CB_PENDING ("SIZE clause");
- current_field->size = cb_get_int ((yyvsp[0]));
- }
-#line 19752 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1153:
-#line 9988 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING (_("screen positions from data-item"));
- }
-#line 19760 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1154:
-#line 9992 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING (_("screen positions from data-item"));
- CB_PENDING ("SIZE clause");
- }
-#line 19769 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1155:
-#line 9997 "parser.y" /* yacc.c:1646 */
- {
- /* set_screen_attr ("SIZE", COB_SCREEN_SIZE); */
- CB_PENDING ("SIZE clause");
- current_field->size = cb_get_int ((yyvsp[0]));
- }
-#line 19779 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1156:
-#line 10003 "parser.y" /* yacc.c:1646 */
- {
- set_screen_attr ("UNDERLINE", COB_SCREEN_UNDERLINE);
- }
-#line 19787 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1157:
-#line 10007 "parser.y" /* yacc.c:1646 */
- {
- set_screen_attr ("OVERLINE", COB_SCREEN_OVERLINE);
- }
-#line 19795 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1158:
-#line 10011 "parser.y" /* yacc.c:1646 */
- {
- set_screen_attr ("GRID", COB_SCREEN_GRID);
- CB_PENDING ("GRID");
- }
-#line 19804 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1159:
-#line 10016 "parser.y" /* yacc.c:1646 */
- {
- set_screen_attr ("LEFTLINE", COB_SCREEN_LEFTLINE);
- }
-#line 19812 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1160:
-#line 10020 "parser.y" /* yacc.c:1646 */
- {
- set_screen_attr ("RIGHTLINE", COB_SCREEN_RIGHTLINE);
- }
-#line 19820 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1161:
-#line 10024 "parser.y" /* yacc.c:1646 */
- {
- set_screen_attr_with_conflict ("AUTO", COB_SCREEN_AUTO,
- "TAB", COB_SCREEN_TAB);
- }
-#line 19829 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1162:
-#line 10029 "parser.y" /* yacc.c:1646 */
- {
- set_screen_attr_with_conflict ("TAB", COB_SCREEN_TAB,
- "AUTO", COB_SCREEN_AUTO);
- }
-#line 19838 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1163:
-#line 10034 "parser.y" /* yacc.c:1646 */
- {
- set_screen_attr_with_conflict ("SECURE", COB_SCREEN_SECURE,
- "NO-ECHO", COB_SCREEN_NO_ECHO);
- }
-#line 19847 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1164:
-#line 10039 "parser.y" /* yacc.c:1646 */
- {
- if (cb_no_echo_means_secure) {
- set_screen_attr ("SECURE", COB_SCREEN_SECURE);
- } else {
- set_screen_attr_with_conflict ("NO-ECHO", COB_SCREEN_NO_ECHO,
- "SECURE", COB_SCREEN_SECURE);
- }
- }
-#line 19860 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1165:
-#line 10048 "parser.y" /* yacc.c:1646 */
- {
- set_screen_attr ("REQUIRED", COB_SCREEN_REQUIRED);
- }
-#line 19868 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1166:
-#line 10052 "parser.y" /* yacc.c:1646 */
- {
- set_screen_attr ("FULL", COB_SCREEN_FULL);
- }
-#line 19876 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1167:
-#line 10056 "parser.y" /* yacc.c:1646 */
- {
- /* FIXME: ACUCOBOL and (undocumented) MF have CHARACTER as optional here */
- set_screen_attr ("PROMPT", COB_SCREEN_PROMPT);
- current_field->screen_prompt = (yyvsp[0]);
- }
-#line 19886 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1168:
-#line 10062 "parser.y" /* yacc.c:1646 */
- {
- set_screen_attr ("PROMPT", COB_SCREEN_PROMPT);
- }
-#line 19894 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1169:
-#line 10066 "parser.y" /* yacc.c:1646 */
- {
- set_screen_attr ("INITIAL", COB_SCREEN_INITIAL);
- }
-#line 19902 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1170:
-#line 10070 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("LINE", SYN_CLAUSE_16, &check_pic_duplicate);
- }
-#line 19910 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1171:
-#line 10074 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("LINES clause"); /* note: should only occur with controls */
- }
-#line 19918 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1172:
-#line 10078 "parser.y" /* yacc.c:1646 */
- {
- /*check_repeated ("CLINE", SYN_CLAUSE_5000, &check_pic_duplicate);*/
- }
-#line 19926 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1173:
-#line 10082 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("COLUMN", SYN_CLAUSE_17, &check_pic_duplicate);
- }
-#line 19934 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1174:
-#line 10086 "parser.y" /* yacc.c:1646 */
- {
- /*check_repeated ("CCOL", SYN_CLAUSE_5001, &check_pic_duplicate);*/
- }
-#line 19942 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1175:
-#line 10090 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("COLOR", SYN_CLAUSE_25, &check_pic_duplicate);
- current_field->screen_color = (yyvsp[0]);
- CB_PENDING ("COLOR clause (SCREEN)"); /* no place in cob_screen */
- }
-#line 19952 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1176:
-#line 10096 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("CONTROL", SYN_CLAUSE_24, &check_duplicate);
- current_field->screen_control = (yyvsp[0]);
- CB_PENDING ("CONTROL clause (SCREEN)"); /* no place in cob_screen */
- }
-#line 19962 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1177:
-#line 10102 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("FOREGROUND-COLOR", SYN_CLAUSE_18, &check_pic_duplicate);
- current_field->screen_foreg = (yyvsp[0]);
- }
-#line 19971 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1178:
-#line 10107 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("BACKGROUND-COLOR", SYN_CLAUSE_19, &check_pic_duplicate);
- current_field->screen_backg = (yyvsp[0]);
- }
-#line 19980 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1187:
-#line 10123 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = check_not_88_level ((yyvsp[0]));
-
- check_repeated ("USING", SYN_CLAUSE_20, &check_pic_duplicate);
- current_field->screen_from = (yyval);
- current_field->screen_to = (yyval);
- current_field->screen_flag |= COB_SCREEN_INPUT;
- }
-#line 19993 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1188:
-#line 10132 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("FROM", SYN_CLAUSE_21, &check_pic_duplicate);
- current_field->screen_from = (yyvsp[0]);
- }
-#line 20002 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1189:
-#line 10137 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = check_not_88_level ((yyvsp[0]));
-
- check_repeated ("TO", SYN_CLAUSE_22, &check_pic_duplicate);
- current_field->screen_to = (yyval);
- current_field->screen_flag |= COB_SCREEN_INPUT;
- }
-#line 20014 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1190:
-#line 10148 "parser.y" /* yacc.c:1646 */
- {
- /* omitting VALUE is at least allowed in MS-COBOL, MF-COBOL, ACUCOBOL for SCREEN VALUE,
- and not according to XOPEN uses 85-std which has no SCREEN SECTION and newer Standards */
- if (!(yyvsp[-1]) && cb_std_define >= CB_STD_85) {
- cb_error (_("missing %s"), "VALUE");
- }
- check_repeated ("VALUE", SYN_CLAUSE_12, &check_pic_duplicate);
- current_field->values = (yyvsp[0]);
- }
-#line 20028 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1191:
-#line 10160 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 20034 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1192:
-#line 10161 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int0; }
-#line 20040 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1194:
-#line 10167 "parser.y" /* yacc.c:1646 */
- {
- cobc_cs_check |= CB_CS_GRAPHICAL_CONTROL;
- }
-#line 20048 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1495:
-#line 10757 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 20054 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1496:
-#line 10758 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 20060 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1497:
-#line 10762 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int0; }
-#line 20066 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1500:
-#line 10770 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int1; }
-#line 20072 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1504:
-#line 10782 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[-1]); }
-#line 20078 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1505:
-#line 10783 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int1; }
-#line 20084 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1506:
-#line 10787 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 20090 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1507:
-#line 10788 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int0; }
-#line 20096 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1508:
-#line 10793 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[0])) {
- current_field->screen_line = (yyvsp[0]);
- }
- }
-#line 20106 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1510:
-#line 10803 "parser.y" /* yacc.c:1646 */
- {
- current_field->screen_flag |= COB_SCREEN_LINE_PLUS;
- }
-#line 20114 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1511:
-#line 10807 "parser.y" /* yacc.c:1646 */
- {
- current_field->screen_flag |= COB_SCREEN_LINE_MINUS;
- }
-#line 20122 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1512:
-#line 10814 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[0])) {
- current_field->screen_column = (yyvsp[0]);
- }
- }
-#line 20132 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1513:
-#line 10823 "parser.y" /* yacc.c:1646 */
- {
- /* Nothing */
- }
-#line 20140 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1514:
-#line 10827 "parser.y" /* yacc.c:1646 */
- {
- current_field->screen_flag |= COB_SCREEN_COLUMN_PLUS;
- }
-#line 20148 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1515:
-#line 10831 "parser.y" /* yacc.c:1646 */
- {
- current_field->screen_flag |= COB_SCREEN_COLUMN_MINUS;
- }
-#line 20156 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1516:
-#line 10838 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING (_("OCCURS screen items"));
- check_repeated ("OCCURS", SYN_CLAUSE_23, &check_pic_duplicate);
- current_field->occurs_max = cb_get_int ((yyvsp[-1]));
- current_field->occurs_min = current_field->occurs_max;
- current_field->indexes++;
- current_field->flag_occurs = 1;
- }
-#line 20169 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1517:
-#line 10850 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING (_("GLOBAL screen items"));
- }
-#line 20177 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1520:
-#line 10864 "parser.y" /* yacc.c:1646 */
- {
- current_section = NULL;
- current_paragraph = NULL;
- check_pic_duplicate = 0;
- check_duplicate = 0;
- if (!current_program->entry_convention) {
- current_program->entry_convention = cb_int (CB_CONV_COBOL);
- }
- }
-#line 20191 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1522:
-#line 10878 "parser.y" /* yacc.c:1646 */
- {
- check_area_a_of ("PROCEDURE DIVISION");
- current_section = NULL;
- current_paragraph = NULL;
- check_pic_duplicate = 0;
- check_duplicate = 0;
- cobc_in_procedure = 1U;
- cb_set_system_names ();
- last_source_line = cb_source_line;
- }
-#line 20206 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1523:
-#line 10890 "parser.y" /* yacc.c:1646 */
- {
- cb_tree call_conv = (yyvsp[-3]);
- if ((yyvsp[-2])) {
- call_conv = (yyvsp[-2]);
- if ((yyvsp[-3])) {
- /* note: $3 is likely to be a reference to SPECIAL-NAMES */
- cb_error_x ((yyvsp[-2]), _("%s and %s are mutually exclusive"),
- "CALL-CONVENTION", "WITH LINKAGE");
- }
- }
- if (call_conv) {
- if (current_program->entry_convention) {
- cb_warning (COBC_WARN_FILLER,
- _("overriding convention specified in ENTRY-CONVENTION"));
- }
- current_program->entry_convention = call_conv;
- } else if (!current_program->entry_convention) {
- current_program->entry_convention = cb_int (CB_CONV_COBOL);
- }
- header_check |= COBC_HD_PROCEDURE_DIVISION;
- }
-#line 20232 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1524:
-#line 10913 "parser.y" /* yacc.c:1646 */
- {
- if (current_program->flag_main
- && !current_program->flag_chained && (yyvsp[-4])) {
- cb_error (_("executable program requested but PROCEDURE/ENTRY has USING clause"));
- }
-
- emit_main_entry (current_program, (yyvsp[-4]));
-
- cb_check_definition_matches_prototype (current_program);
- }
-#line 20247 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1525:
-#line 10924 "parser.y" /* yacc.c:1646 */
- {
- if (current_paragraph) {
- if (current_paragraph->exit_label) {
- emit_statement (current_paragraph->exit_label);
- }
- emit_statement (cb_build_perform_exit (current_paragraph));
- }
- if (current_section) {
- if (current_section->exit_label) {
- emit_statement (current_section->exit_label);
- }
- emit_statement (cb_build_perform_exit (current_section));
- }
- }
-#line 20266 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1526:
-#line 10939 "parser.y" /* yacc.c:1646 */
- {
- cb_tree label;
-
- /* No PROCEDURE DIVISION header here */
- /* Only a statement is allowed as first element */
- /* Thereafter, sections/paragraphs may be used */
- check_pic_duplicate = 0;
- check_duplicate = 0;
- if (!current_program->entry_convention) {
- current_program->entry_convention = cb_int (CB_CONV_COBOL);
- }
- cobc_in_procedure = 1U;
- label = cb_build_reference ("MAIN SECTION");
- current_section = CB_LABEL (cb_build_label (label, NULL));
- current_section->flag_section = 1;
- current_section->flag_dummy_section = 1;
- current_section->flag_skip_label = !!skip_statements;
- current_section->flag_declaratives = !!in_declaratives;
- current_section->xref.skip = 1;
- emit_statement (CB_TREE (current_section));
- label = cb_build_reference ("MAIN PARAGRAPH");
- current_paragraph = CB_LABEL (cb_build_label (label, NULL));
- current_paragraph->flag_declaratives = !!in_declaratives;
- current_paragraph->flag_skip_label = !!skip_statements;
- current_paragraph->flag_dummy_paragraph = 1;
- current_paragraph->xref.skip = 1;
- emit_statement (CB_TREE (current_paragraph));
- cb_set_system_names ();
- }
-#line 20300 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1528:
-#line 10975 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 20308 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1529:
-#line 10979 "parser.y" /* yacc.c:1646 */
- {
- call_mode = CB_CALL_BY_REFERENCE;
- size_mode = CB_SIZE_UNSET;
- }
-#line 20317 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1530:
-#line 10984 "parser.y" /* yacc.c:1646 */
- {
- if (cb_list_length ((yyvsp[0])) > MAX_CALL_FIELD_PARAMS) {
- cb_error (_("number of arguments exceeds maximum %d"),
- MAX_CALL_FIELD_PARAMS);
- }
- (yyval) = (yyvsp[0]);
- }
-#line 20329 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1531:
-#line 10992 "parser.y" /* yacc.c:1646 */
- {
- call_mode = CB_CALL_BY_REFERENCE;
- if (current_program->prog_type == COB_MODULE_TYPE_FUNCTION) {
- cb_error (_("CHAINING invalid in user FUNCTION"));
- } else {
- current_program->flag_chained = 1;
- }
- }
-#line 20342 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1532:
-#line 11001 "parser.y" /* yacc.c:1646 */
- {
- if (cb_list_length ((yyvsp[0])) > MAX_CALL_FIELD_PARAMS) {
- cb_error (_("number of arguments exceeds maximum %d"),
- MAX_CALL_FIELD_PARAMS);
- }
- (yyval) = (yyvsp[0]);
- }
-#line 20354 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1533:
-#line 11011 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 20360 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1534:
-#line 11013 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_list_append ((yyvsp[-1]), (yyvsp[0])); }
-#line 20366 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1535:
-#line 11018 "parser.y" /* yacc.c:1646 */
- {
- cb_tree x = cb_build_identifier ((yyvsp[-1]), 0);
- if ((yyvsp[-2]) == cb_int1
- && CB_VALID_TREE (x)) {
- cb_tree fx = cb_ref (x);
- if (fx != cb_error_node) {
- CB_FIELD (fx)->flag_is_pdiv_opt = 1;
- }
- }
-
- if (call_mode == CB_CALL_BY_VALUE
- && CB_REFERENCE_P ((yyvsp[-1]))
- && CB_FIELD (cb_ref ((yyvsp[-1])))->flag_any_length) {
- cb_error_x ((yyvsp[-1]), _("ANY LENGTH items may only be BY REFERENCE formal parameters"));
- }
-
- (yyval) = CB_BUILD_PAIR (cb_int (call_mode), x);
- CB_SIZES ((yyval)) = size_mode;
- }
-#line 20390 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1537:
-#line 11042 "parser.y" /* yacc.c:1646 */
- {
- call_mode = CB_CALL_BY_REFERENCE;
- }
-#line 20398 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1538:
-#line 11046 "parser.y" /* yacc.c:1646 */
- {
- if (current_program->flag_chained) {
- cb_error (_("%s not allowed in CHAINED programs"), "BY VALUE");
- } else {
- CB_UNFINISHED (_("parameters passed BY VALUE"));
- call_mode = CB_CALL_BY_VALUE;
- }
- }
-#line 20411 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1541:
-#line 11063 "parser.y" /* yacc.c:1646 */
- {
- if (call_mode != CB_CALL_BY_VALUE) {
- cb_error (_("SIZE only allowed for BY VALUE items"));
- } else {
- size_mode = CB_SIZE_AUTO;
- }
- }
-#line 20423 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1542:
-#line 11071 "parser.y" /* yacc.c:1646 */
- {
- /* TODO: handle all this for prototypes */
- if (call_mode != CB_CALL_BY_VALUE) {
- cb_error (_("SIZE only allowed for BY VALUE items"));
- } else {
- size_mode = CB_SIZE_4;
- }
- }
-#line 20436 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1543:
-#line 11080 "parser.y" /* yacc.c:1646 */
- {
- if (call_mode != CB_CALL_BY_VALUE) {
- cb_error (_("SIZE only allowed for BY VALUE items"));
- } else {
- size_mode = CB_SIZE_AUTO | CB_SIZE_UNSIGNED;
- }
- }
-#line 20448 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1544:
-#line 11088 "parser.y" /* yacc.c:1646 */
- {
- if (size_mode) {
- size_mode |= CB_SIZE_UNSIGNED;
- }
- }
-#line 20458 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1546:
-#line 11098 "parser.y" /* yacc.c:1646 */
- {
- unsigned char *s = CB_LITERAL ((yyvsp[0]))->data;
- size_mode = 0;
-
- if (call_mode != CB_CALL_BY_VALUE) {
- cb_error (_("SIZE only allowed for BY VALUE items"));
- } else if (CB_LITERAL ((yyvsp[0]))->size != 1) {
- cb_error_x ((yyvsp[0]), _("invalid value for SIZE"));
- } else {
- size_mode = 0;
- switch (*s) {
- case '1':
- size_mode = CB_SIZE_1;
- break;
- case '2':
- size_mode = CB_SIZE_2;
- break;
- case '4':
- size_mode = CB_SIZE_4;
- break;
- case '8':
- size_mode = CB_SIZE_8;
- break;
-#if 0 /* reserved */
- case '16':
- size_mode = CB_SIZE_16;
- break;
- case '32':
- size_mode = CB_SIZE_32;
- break;
-#endif
- default:
- cb_error_x ((yyvsp[0]), _("invalid value for SIZE"));
- break;
- }
- }
- }
-#line 20500 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1548:
-#line 11144 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING_X ((yyvsp[-1]), _("MEMORY SIZE phrase in CALL statement"));
- }
-#line 20508 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1549:
-#line 11151 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int0;
- }
-#line 20516 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1550:
-#line 11155 "parser.y" /* yacc.c:1646 */
- {
- if (cb_verify (cb_using_optional, "USING OPTIONAL")) {
- if (cb_using_optional == CB_WARNING) {
- cb_using_optional = CB_OK; /* tested for with exception checking */
- }
- if (call_mode != CB_CALL_BY_REFERENCE) {
- cb_error (_("OPTIONAL only allowed for BY REFERENCE items"));
- (yyval) = cb_int0;
- } else {
- (yyval) = cb_int1;
- }
- } else {
- (yyval) = cb_int0;
- }
- }
-#line 20536 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1551:
-#line 11174 "parser.y" /* yacc.c:1646 */
- {
- if (current_program->prog_type == COB_MODULE_TYPE_FUNCTION) {
- cb_error (_("RETURNING clause is required for a FUNCTION"));
- }
- }
-#line 20546 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1552:
-#line 11180 "parser.y" /* yacc.c:1646 */
- {
- if (current_program->flag_main) {
- cb_error (_("RETURNING clause cannot be OMITTED for main program"));
- }
- if (current_program->prog_type == COB_MODULE_TYPE_FUNCTION) {
- cb_error (_("RETURNING clause cannot be OMITTED for a FUNCTION"));
- }
- current_program->flag_void = 1;
- }
-#line 20560 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1553:
-#line 11190 "parser.y" /* yacc.c:1646 */
- {
- struct cb_field *f;
-
- if (cb_ref ((yyvsp[0])) != cb_error_node) {
- f = CB_FIELD_PTR ((yyvsp[0]));
- /* standard rule: returning item is allocated in the
- activating runtime element */
- if (f->storage != CB_STORAGE_LINKAGE) {
- cb_error (_("RETURNING item is not defined in LINKAGE SECTION"));
- } else if (f->level != 1 && f->level != 77) {
- cb_error (_("RETURNING item must have level 01"));
- } else if (f->flag_occurs) {
- cb_error (_("RETURNING item should not have OCCURS"));
- } else {
- if (current_program->prog_type == COB_MODULE_TYPE_FUNCTION) {
- if (f->flag_any_length) {
- cb_error (_("function RETURNING item may not be ANY LENGTH"));
- }
- f->flag_is_returning = 1;
- }
-#if 0 /* doesn't work for programs, will be fixed with allocating in the source-unit */
- current_program->returning = (yyvsp[0]);
-#else
- if (current_program->prog_type == COB_MODULE_TYPE_FUNCTION) {
- current_program->returning = (yyvsp[0]);
- } else {
- CB_PENDING ("program RETURNING");
- }
-#endif
- }
- }
- }
-#line 20597 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1555:
-#line 11227 "parser.y" /* yacc.c:1646 */
- {
- check_area_a_of ("DECLARATIVES");
- in_declaratives = 1;
- emit_statement (cb_build_comment ("DECLARATIVES"));
- }
-#line 20607 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1556:
-#line 11234 "parser.y" /* yacc.c:1646 */
- { check_area_a_of ("END DECLARATIVES"); }
-#line 20613 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1557:
-#line 11236 "parser.y" /* yacc.c:1646 */
- {
- if (needs_field_debug) {
- start_debug = 1;
- }
- in_declaratives = 0;
- in_debugging = 0;
- if (current_paragraph) {
- if (current_paragraph->exit_label) {
- emit_statement (current_paragraph->exit_label);
- }
- emit_statement (cb_build_perform_exit (current_paragraph));
- current_paragraph = NULL;
- }
- if (current_section) {
- if (current_section->exit_label) {
- emit_statement (current_section->exit_label);
- }
- current_section->flag_fatal_check = 1;
- emit_statement (cb_build_perform_exit (current_section));
- current_section = NULL;
- }
- skip_statements = 0;
- emit_statement (cb_build_comment ("END DECLARATIVES"));
- check_unreached = 0;
- }
-#line 20643 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1563:
-#line 11275 "parser.y" /* yacc.c:1646 */
- {
- if (next_label_list) {
- cb_tree plabel;
- char name[32];
-
- snprintf (name, sizeof(name), "L$%d", next_label_id);
- plabel = cb_build_label (cb_build_reference (name), NULL);
- CB_LABEL (plabel)->flag_next_sentence = 1;
- emit_statement (plabel);
- current_program->label_list =
- cb_list_append (current_program->label_list, next_label_list);
- next_label_list = NULL;
- next_label_id++;
- }
- /* check_unreached = 0; */
- cb_end_statement();
- }
-#line 20665 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1566:
-#line 11295 "parser.y" /* yacc.c:1646 */
- {
- /* check_unreached = 0; */
- cb_end_statement();
- }
-#line 20674 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1567:
-#line 11306 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 20682 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1568:
-#line 11310 "parser.y" /* yacc.c:1646 */
- {
- check_area_a ((yyvsp[0]));
- (yyval) = (yyvsp[0]);
- }
-#line 20691 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1569:
-#line 11318 "parser.y" /* yacc.c:1646 */
- {
- non_const_word = 0;
- check_unreached = 0;
- if (cb_build_section_name ((yyvsp[-1]), 0) == cb_error_node) {
- YYERROR;
- }
-
- /* Exit the last paragraph/section */
- if (current_paragraph) {
- if (current_paragraph->exit_label) {
- emit_statement (current_paragraph->exit_label);
- }
- emit_statement (cb_build_perform_exit (current_paragraph));
- }
- if (current_section) {
- if (current_section->exit_label) {
- emit_statement (current_section->exit_label);
- }
- emit_statement (cb_build_perform_exit (current_section));
- }
- if (current_program->flag_debugging && !in_debugging) {
- if (current_paragraph || current_section) {
- emit_statement (cb_build_comment (
- "DEBUGGING - Fall through"));
- emit_statement (cb_build_debug (cb_debug_contents,
- "FALL THROUGH", NULL));
- }
- }
-
- /* Begin a new section */
- current_section = CB_LABEL (cb_build_label ((yyvsp[-1]), NULL));
- current_section->flag_section = 1;
- /* Careful here, one negation */
- current_section->flag_real_label = !in_debugging;
- current_section->flag_declaratives = !!in_declaratives;
- current_section->flag_skip_label = !!skip_statements;
- current_paragraph = NULL;
- }
-#line 20734 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1570:
-#line 11358 "parser.y" /* yacc.c:1646 */
- {
- emit_statement (CB_TREE (current_section));
- }
-#line 20742 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1573:
-#line 11369 "parser.y" /* yacc.c:1646 */
- {
- cb_tree label;
-
- non_const_word = 0;
- check_unreached = 0;
- if (cb_build_section_name ((yyvsp[-1]), 1) == cb_error_node) {
- YYERROR;
- }
-
- /* Exit the last paragraph */
- if (current_paragraph) {
- if (current_paragraph->exit_label) {
- emit_statement (current_paragraph->exit_label);
- }
- emit_statement (cb_build_perform_exit (current_paragraph));
- if (current_program->flag_debugging && !in_debugging) {
- emit_statement (cb_build_comment (
- "DEBUGGING - Fall through"));
- emit_statement (cb_build_debug (cb_debug_contents,
- "FALL THROUGH", NULL));
- }
- }
-
- /* Begin a new paragraph */
- if (!current_section) {
- label = cb_build_reference ("MAIN SECTION");
- current_section = CB_LABEL (cb_build_label (label, NULL));
- current_section->flag_section = 1;
- current_section->flag_dummy_section = 1;
- current_section->flag_declaratives = !!in_declaratives;
- current_section->flag_skip_label = !!skip_statements;
- current_section->xref.skip = 1;
- emit_statement (CB_TREE (current_section));
- }
- current_paragraph = CB_LABEL (cb_build_label ((yyvsp[-1]), current_section));
- current_paragraph->flag_declaratives = !!in_declaratives;
- current_paragraph->flag_skip_label = !!skip_statements;
- current_paragraph->flag_real_label = !in_debugging;
- current_paragraph->segment = current_section->segment;
- emit_statement (CB_TREE (current_paragraph));
- }
-#line 20788 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1574:
-#line 11414 "parser.y" /* yacc.c:1646 */
- {
- non_const_word = 0;
- check_unreached = 0;
- if (cb_build_section_name ((yyvsp[-1]), 0) != cb_error_node) {
- if (is_reserved_word (CB_NAME ((yyvsp[-1])))) {
- cb_note_x (COB_WARNOPT_NONE, (yyvsp[-1]),
- _("'%s' is not a statement"), CB_NAME ((yyvsp[-1])));
- } else if (is_default_reserved_word (CB_NAME ((yyvsp[-1])))) {
- cb_note_x (COB_WARNOPT_NONE, (yyvsp[-1]),
- _("unknown statement '%s'; it may exist in another dialect"),
- CB_NAME ((yyvsp[-1])));
- } else {
- cb_note_x (COB_WARNOPT_NONE, (yyvsp[-1]),
- _("unknown statement '%s'"), CB_NAME ((yyvsp[-1])));
- }
- }
- YYERROR;
- }
-#line 20811 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1575:
-#line 11436 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 20819 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1576:
-#line 11440 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- if (cb_verify (cb_section_segments, _("section segments"))) {
- int segnum = cb_get_int ((yyvsp[0]));
- if (segnum > 99) {
- cb_error (_("SECTION segment-number must be less than or equal to 99"));
- } else {
- if (in_declaratives && segnum > 49) {
- cb_error (_("SECTION segment-number in DECLARATIVES must be less than 50"));
- }
- if (!in_declaratives) {
- current_program->flag_segments = 1;
- current_section->segment = segnum;
- } else {
- /* Simon: old version did not allow segments in declaratives at all
- ToDo: check codegen for possible missing parts */
- CB_PENDING (_("SECTION segment within DECLARATIVES"));
- }
- }
- }
- }
-#line 20845 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1577:
-#line 11468 "parser.y" /* yacc.c:1646 */
- {
- /* push exec_list on the stack ($1), then unset */
- (yyval) = current_program->exec_list;
- if (!skip_statements) {
- current_program->exec_list = NULL;
- } else {
- /* Provide "something" in case we never add statements
- to the program while parsing it below in "statements"
- to not break checks for "do we have any statements"
- by "callers".
- Not adding statements which are parsed will for example
- happen in DECLARATIVES with not-active USE FOR DEBUGGING. */
- cb_tree note = cb_build_comment ("skipped statements");
- current_program->exec_list = CB_BUILD_CHAIN (note, NULL);
- }
- check_unreached = 0;
- }
-#line 20867 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1578:
-#line 11485 "parser.y" /* yacc.c:1646 */
- {
- /* push statement on the stack ($2), then unset */
- (yyval) = CB_TREE (current_statement);
- current_statement = NULL;
- }
-#line 20877 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1579:
-#line 11491 "parser.y" /* yacc.c:1646 */
- {
- /* reorder exec_list which was filled in "statements" and push to stack ($$),
- then backup exec_list and statement from the stack ($1, $2) */
- (yyval) = cb_list_reverse (current_program->exec_list);
- current_program->exec_list = (yyvsp[-2]);
- current_statement = CB_STATEMENT ((yyvsp[-1]));
- }
-#line 20889 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1580:
-#line 11501 "parser.y" /* yacc.c:1646 */
- {
- if (!current_section) {
- cb_tree label = cb_build_reference ("MAIN SECTION");
- current_section = CB_LABEL (cb_build_label (label, NULL));
- current_section->flag_section = 1;
- current_section->flag_dummy_section = 1;
- current_section->flag_skip_label = !!skip_statements;
- current_section->flag_declaratives = !!in_declaratives;
- current_section->xref.skip = 1;
- emit_statement (CB_TREE (current_section));
- }
- if (!current_paragraph) {
- cb_tree label = cb_build_reference ("MAIN PARAGRAPH");
- current_paragraph = CB_LABEL (cb_build_label (label, NULL));
- current_paragraph->common.source_file
- = current_section->common.source_file;
- current_paragraph->common.source_line
- = current_section->common.source_line;
- current_paragraph->flag_declaratives = !!in_declaratives;
- current_paragraph->flag_skip_label = !!skip_statements;
- current_paragraph->flag_dummy_paragraph = 1;
- current_paragraph->xref.skip = 1;
- emit_statement (CB_TREE (current_paragraph));
- }
- if (check_headers_present (COBC_HD_PROCEDURE_DIVISION, 0, 0, 0) == 1) {
- if (current_program->prog_type == COB_MODULE_TYPE_PROGRAM) {
- emit_main_entry (current_program, NULL);
- }
- }
-
- cobc_apply_turn_directives ();
- }
-#line 20926 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1581:
-#line 11534 "parser.y" /* yacc.c:1646 */
- {
- cobc_cs_check = 0;
- cobc_apply_turn_directives ();
- }
-#line 20935 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1582:
-#line 11539 "parser.y" /* yacc.c:1646 */
- {
- cobc_cs_check = 0;
- cobc_apply_turn_directives ();
- }
-#line 20944 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1648:
-#line 11614 "parser.y" /* yacc.c:1646 */
- { check_non_area_a ((yyvsp[0])); }
-#line 20950 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1649:
-#line 11616 "parser.y" /* yacc.c:1646 */
- {
- if (cb_verify (cb_next_sentence_phrase, "NEXT SENTENCE")) {
- cb_tree label;
- char name[32];
-
- begin_statement (STMT_NEXT_SENTENCE, 0);
- sprintf (name, "L$%d", next_label_id);
- label = cb_build_reference (name);
- next_label_list = cb_list_add (next_label_list, label);
- emit_statement (cb_build_goto (label, NULL));
- } else {
- cb_tree note = cb_build_comment ("skipped NEXT SENTENCE");
- emit_statement (note);
- }
- check_unreached = 0;
- }
-#line 20971 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1650:
-#line 11633 "parser.y" /* yacc.c:1646 */
- {
- emit_statement (cb_error_node);
- yyerrok;
- cobc_cs_check = 0;
- }
-#line 20981 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1651:
-#line 11645 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_ACCEPT, TERM_ACCEPT);
- cobc_cs_check = CB_CS_ACCEPT;
- }
-#line 20990 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1653:
-#line 11655 "parser.y" /* yacc.c:1646 */
- {
- check_duplicate = 0;
- check_line_col_duplicate = 0;
- line_column = NULL;
- }
-#line 21000 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1654:
-#line 11661 "parser.y" /* yacc.c:1646 */
- {
- /* Check for invalid use of screen clauses */
- if (current_statement->attr_ptr
- || (!is_screen_field ((yyvsp[-3])) && line_column)) {
- cb_verify_x ((yyvsp[-3]), cb_accept_display_extensions,
- _("non-standard ACCEPT"));
- }
-
- if (cb_accept_update && !has_dispattr (COB_SCREEN_NO_UPDATE)) {
- set_dispattr (COB_SCREEN_UPDATE);
- }
- if (cb_accept_auto && !has_dispattr (COB_SCREEN_TAB)) {
- set_dispattr (COB_SCREEN_AUTO);
- }
- if ((yyvsp[-3]) == cb_null && current_statement->attr_ptr) {
- if (current_statement->attr_ptr->prompt) {
- emit_conflicting_clause_message ("ACCEPT OMITTED",
- _("PROMPT clause"));
- }
- if (current_statement->attr_ptr->size_is) {
- emit_conflicting_clause_message ("ACCEPT OMITTED",
- _("SIZE IS clause"));
- }
- }
- cobc_cs_check = 0;
- cb_emit_accept ((yyvsp[-3]), line_column, current_statement->attr_ptr);
- }
-#line 21032 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1655:
-#line 11689 "parser.y" /* yacc.c:1646 */
- {
- check_duplicate = 0;
- check_line_col_duplicate = 0;
- line_column = NULL;
- }
-#line 21042 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1656:
-#line 11695 "parser.y" /* yacc.c:1646 */
- {
- cobc_cs_check = 0;
- CB_PENDING ("ACCEPT FROM SCREEN");
- }
-#line 21051 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1657:
-#line 11700 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_accept_line_or_col ((yyvsp[-2]), 0);
- }
-#line 21059 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1658:
-#line 11704 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_accept_line_or_col ((yyvsp[-2]), 1);
- }
-#line 21067 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1659:
-#line 11708 "parser.y" /* yacc.c:1646 */
- {
- /* information about terminal and its capabilities
- cb_emit_accept_terminal_info ($1); */
- CB_PENDING ("ACCEPT FROM TERMINAL INFO");
- }
-#line 21077 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1660:
-#line 11714 "parser.y" /* yacc.c:1646 */
- {
- /* information about OS and runtime features
- cb_emit_accept_system_info ($1); */
- CB_PENDING ("ACCEPT FROM SYSTEM INFO");
- }
-#line 21087 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1661:
-#line 11720 "parser.y" /* yacc.c:1646 */
- {
- cobc_cs_check = 0;
- cb_emit_accept_date_yyyymmdd ((yyvsp[-3]));
- }
-#line 21096 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1662:
-#line 11725 "parser.y" /* yacc.c:1646 */
- {
- cobc_cs_check = 0;
- cb_emit_accept_date ((yyvsp[-2]));
- }
-#line 21105 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1663:
-#line 11730 "parser.y" /* yacc.c:1646 */
- {
- cobc_cs_check = 0;
- cb_emit_accept_day_yyyyddd ((yyvsp[-3]));
- }
-#line 21114 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1664:
-#line 11735 "parser.y" /* yacc.c:1646 */
- {
- cobc_cs_check = 0;
- cb_emit_accept_day ((yyvsp[-2]));
- }
-#line 21123 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1665:
-#line 11740 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_accept_day_of_week ((yyvsp[-2]));
- }
-#line 21131 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1666:
-#line 11746 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_accept_escape_key ((yyvsp[-3]));
- }
-#line 21139 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1667:
-#line 11752 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_accept_exception_status ((yyvsp[-3]));
- }
-#line 21147 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1668:
-#line 11756 "parser.y" /* yacc.c:1646 */
- {
- /* check is data from keyboard available? "1", else "0"
- cb_emit_accept_input_status ($1); */
- CB_PENDING ("ACCEPT FROM INPUT STATUS");
- }
-#line 21157 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1669:
-#line 11762 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_accept_time ((yyvsp[-2]), 0);
- }
-#line 21165 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1670:
-#line 11766 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_accept_time ((yyvsp[-2]), 1);
- }
-#line 21173 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1671:
-#line 11770 "parser.y" /* yacc.c:1646 */
- {
- cobc_cs_check = 0;
- cb_emit_accept_user_name ((yyvsp[-3]));
- }
-#line 21182 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1672:
-#line 11775 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_accept_command_line ((yyvsp[-2]));
- }
-#line 21190 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1673:
-#line 11779 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_accept_environment ((yyvsp[-3]));
- }
-#line 21198 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1674:
-#line 11783 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_get_environment ((yyvsp[-1]), (yyvsp[-4]));
- }
-#line 21206 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1675:
-#line 11787 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_accept_arg_number ((yyvsp[-2]));
- }
-#line 21214 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1676:
-#line 11791 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_accept_arg_value ((yyvsp[-3]));
- }
-#line 21222 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1677:
-#line 11795 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_accept_mnemonic ((yyvsp[-2]), (yyvsp[0]));
- }
-#line 21230 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1678:
-#line 11799 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_accept_name ((yyvsp[-2]), (yyvsp[0]));
- }
-#line 21238 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1679:
-#line 11803 "parser.y" /* yacc.c:1646 */
- {
- cb_verify_x ((yyvsp[-1]), cb_accept_display_extensions,
- _("non-standard ACCEPT"));
-
- if (cb_accept_update && !has_dispattr (COB_SCREEN_NO_UPDATE)) {
- set_dispattr (COB_SCREEN_UPDATE);
- }
- if (cb_accept_auto && !has_dispattr (COB_SCREEN_TAB)) {
- set_dispattr (COB_SCREEN_AUTO);
- }
- cobc_cs_check = 0;
- cb_emit_accept ((yyvsp[-1]), line_column, current_statement->attr_ptr);
- }
-#line 21256 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1680:
-#line 11817 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("ACCEPT MESSAGE COUNT");
- }
-#line 21264 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1682:
-#line 11825 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_null;
- }
-#line 21272 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1683:
-#line 11831 "parser.y" /* yacc.c:1646 */
- {
- check_duplicate = 0;
- check_line_col_duplicate = 0;
- line_column = NULL;
- }
-#line 21282 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1684:
-#line 11837 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 21290 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1687:
-#line 11849 "parser.y" /* yacc.c:1646 */
- {
- line_column = CB_BUILD_PAIR ((yyvsp[-3]), (yyvsp[-1]));
- }
-#line 21298 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1688:
-#line 11853 "parser.y" /* yacc.c:1646 */
- {
- line_column = CB_BUILD_PAIR ((yyvsp[-2]), cb_int0);
- }
-#line 21306 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1689:
-#line 11857 "parser.y" /* yacc.c:1646 */
- {
- line_column = CB_BUILD_PAIR (cb_int0, (yyvsp[-1]));
- }
-#line 21314 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1690:
-#line 11864 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 21322 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1691:
-#line 11868 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_binary_op ((yyvsp[-2]), '+', (yyvsp[0]));
- }
-#line 21330 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1692:
-#line 11872 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_binary_op ((yyvsp[-2]), '-', (yyvsp[0]));
- }
-#line 21338 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1700:
-#line 11896 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("FROM CRT", SYN_CLAUSE_2, &check_duplicate);
- }
-#line 21346 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1701:
-#line 11900 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("MODE IS BLOCK", SYN_CLAUSE_3, &check_duplicate);
- }
-#line 21354 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1703:
-#line 11905 "parser.y" /* yacc.c:1646 */
- {
- check_repeated (_("TIME-OUT or BEFORE TIME clauses"), SYN_CLAUSE_4,
- &check_duplicate);
- set_attribs (0, NULL, NULL, NULL, (yyvsp[0]), NULL, NULL, NULL, NULL, NULL);
- }
-#line 21364 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1710:
-#line 11930 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_comment ("AT"); /* for position only */
- }
-#line 21372 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1711:
-#line 11934 "parser.y" /* yacc.c:1646 */
- {
- set_attr_with_conflict ("LINE", SYN_CLAUSE_1,
- _("AT screen-location"), SYN_CLAUSE_3, 1,
- &check_line_col_duplicate);
-
- if (((CB_LITERAL_P ((yyvsp[0])) || CB_INTEGER_P ((yyvsp[0]))) && cb_get_int ((yyvsp[0])) == 0)
- || (yyvsp[0]) == cb_zero) {
- cb_verify_x ((yyvsp[-1]), cb_accept_display_extensions, "LINE 0");
- }
-
- if (!line_column) {
- line_column = CB_BUILD_PAIR ((yyvsp[0]), cb_int0);
- } else if (CB_PAIR_P (line_column)) {
- /* note: if line_column is set but no pair, we already
- raised a conflict error as AT pos was used before */
- CB_PAIR_X (line_column) = (yyvsp[0]);
- }
- }
-#line 21395 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1712:
-#line 11953 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_comment ("AT"); /* for position only */
- }
-#line 21403 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1713:
-#line 11957 "parser.y" /* yacc.c:1646 */
- {
- set_attr_with_conflict ("COLUMN", SYN_CLAUSE_2,
- _("AT screen-location"), SYN_CLAUSE_3, 1,
- &check_line_col_duplicate);
-
- if (((CB_LITERAL_P ((yyvsp[0])) || CB_INTEGER_P ((yyvsp[0]))) && cb_get_int ((yyvsp[0])) == 0)
- || (yyvsp[0]) == cb_zero) {
- cb_verify_x ((yyvsp[-1]), cb_accept_display_extensions, "COLUMN 0");
- }
-
- if (!line_column) {
- line_column = CB_BUILD_PAIR (cb_int0, (yyvsp[0]));
- } else if (CB_PAIR_P (line_column)) {
- /* note: if line_column is set but no pair, we already
- raised a conflict error as AT pos was used before */
- CB_PAIR_Y (line_column) = (yyvsp[0]);
- }
- }
-#line 21426 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1714:
-#line 11976 "parser.y" /* yacc.c:1646 */
- {
- set_attr_with_conflict (_("AT screen-location"), SYN_CLAUSE_3,
- _("LINE or COLUMN"), SYN_CLAUSE_1 | SYN_CLAUSE_2,
- 1, &check_line_col_duplicate);
-
- cb_verify (cb_accept_display_extensions, "AT clause");
-
- line_column = (yyvsp[0]);
- }
-#line 21440 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1715:
-#line 11989 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 21448 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1716:
-#line 11996 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 21456 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1717:
-#line 12003 "parser.y" /* yacc.c:1646 */
- {
- cobc_cs_check = 0;
- }
-#line 21464 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1718:
-#line 12010 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("AUTO", SYN_CLAUSE_5, &check_duplicate);
- set_dispattr_with_conflict ("AUTO", COB_SCREEN_AUTO,
- "TAB", COB_SCREEN_TAB);
- }
-#line 21474 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1719:
-#line 12016 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("TAB", SYN_CLAUSE_6, &check_duplicate);
- set_dispattr_with_conflict ("TAB", COB_SCREEN_TAB,
- "AUTO", COB_SCREEN_AUTO);
- }
-#line 21484 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1720:
-#line 12022 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("BELL", SYN_CLAUSE_7, &check_duplicate);
- set_dispattr (COB_SCREEN_BELL);
- }
-#line 21493 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1721:
-#line 12027 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("BELL", SYN_CLAUSE_7, &check_duplicate);
- /* FIXME: do we need a COB_NO_SCREEN_BELL here?
- set_dispattr (COB_SCREEN_BELL); */
- }
-#line 21503 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1722:
-#line 12033 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("BLINK", SYN_CLAUSE_8, &check_duplicate);
- set_dispattr (COB_SCREEN_BLINK);
- }
-#line 21512 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1723:
-#line 12038 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("COLOR", SYN_CLAUSE_30, &check_duplicate);
- set_attribs (0, NULL, NULL, NULL, NULL, NULL, NULL, NULL, (yyvsp[0]), NULL);
- }
-#line 21521 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1724:
-#line 12043 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("CONTROL", SYN_CLAUSE_31, &check_duplicate);
- set_attribs (0, NULL, NULL, NULL, NULL, NULL, NULL, (yyvsp[0]), NULL, NULL);
- }
-#line 21530 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1725:
-#line 12048 "parser.y" /* yacc.c:1646 */
- {
- /* note: aliased by CONVERT */
- check_repeated ("CONVERSION", SYN_CLAUSE_9, &check_duplicate);
- set_dispattr (COB_SCREEN_CONV);
- CB_PENDING ("ACCEPT CONVERSION");
- }
-#line 21541 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1726:
-#line 12055 "parser.y" /* yacc.c:1646 */
- {
- /* FIXME: arithmetic expression should be possible, too! */
- struct cb_program *prog = current_program;
- while (prog) {
- if (!prog->nested_level) {
- if (prog->cursor_pos) {
- emit_duplicate_clause_message ("CURSOR");
- } else {
- check_repeated ("CURSOR", SYN_CLAUSE_32, &check_duplicate);
- set_attribs (0, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, (yyvsp[0]));
- }
- break;
- }
- prog = prog->next_program;
- }
- }
-#line 21562 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1727:
-#line 12072 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("FULL", SYN_CLAUSE_10, &check_duplicate);
- set_dispattr (COB_SCREEN_FULL);
- }
-#line 21571 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1728:
-#line 12077 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("LEFTLINE", SYN_CLAUSE_12, &check_duplicate);
- set_dispattr (COB_SCREEN_LEFTLINE);
- }
-#line 21580 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1729:
-#line 12082 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("RIGHTLINE", SYN_CLAUSE_12, &check_duplicate);
- set_dispattr (COB_SCREEN_RIGHTLINE);
- }
-#line 21589 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1730:
-#line 12087 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("LOWER", SYN_CLAUSE_13, &check_duplicate);
- set_dispattr_with_conflict ("LOWER", COB_SCREEN_LOWER,
- "UPPER", COB_SCREEN_UPPER);
- }
-#line 21599 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1731:
-#line 12093 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("HIGHLIGHT", SYN_CLAUSE_11, &check_duplicate);
- set_dispattr_with_conflict ("HIGHLIGHT", COB_SCREEN_HIGHLIGHT,
- "LOWLIGHT", COB_SCREEN_LOWLIGHT);
- }
-#line 21609 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1732:
-#line 12099 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("LOWLIGHT", SYN_CLAUSE_14, &check_duplicate);
- set_dispattr_with_conflict ("LOWLIGHT", COB_SCREEN_LOWLIGHT,
- "HIGHLIGHT", COB_SCREEN_HIGHLIGHT);
- }
-#line 21619 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1733:
-#line 12106 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("SAME phrase");
- /* may not be specified along with the UNDERLINED, BLINK, REVERSED,
- HIGH, LOW, STANDARD, COLOR, FOREGROUND-COLOR, or BACKGROUND-COLOR phrases */
- }
-#line 21629 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1734:
-#line 12112 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("STANDARD intensity");
- }
-#line 21637 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1735:
-#line 12116 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("BACKGROUND intensity");
- }
-#line 21645 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1736:
-#line 12120 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("BACKGROUND intensity");
- }
-#line 21653 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1737:
-#line 12124 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("BACKGROUND intensity");
- }
-#line 21661 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1738:
-#line 12128 "parser.y" /* yacc.c:1646 */
- {
- if (cb_no_echo_means_secure) {
- check_repeated ("SECURE", SYN_CLAUSE_20, &check_duplicate);
- set_dispattr (COB_SCREEN_SECURE);
- } else {
- check_repeated ("NO-ECHO", SYN_CLAUSE_15, &check_duplicate);
- set_dispattr_with_conflict ("NO-ECHO", COB_SCREEN_NO_ECHO,
- "SECURE", COB_SCREEN_SECURE);
- }
- }
-#line 21676 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1739:
-#line 12139 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("OVERLINE", SYN_CLAUSE_16, &check_duplicate);
- set_dispattr (COB_SCREEN_OVERLINE);
- }
-#line 21685 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1740:
-#line 12144 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("UNDERLINE", SYN_CLAUSE_22, &check_duplicate);
- set_dispattr (COB_SCREEN_UNDERLINE);
- }
-#line 21694 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1741:
-#line 12149 "parser.y" /* yacc.c:1646 */
- {
- /* Note: CHARACTER optional in ACUCOBOL, required by others */
- check_repeated ("PROMPT", SYN_CLAUSE_17, &check_duplicate);
- set_attribs (COB_SCREEN_PROMPT, NULL, NULL, NULL, NULL, (yyvsp[0]), NULL, NULL, NULL, NULL);
- }
-#line 21704 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1742:
-#line 12155 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("PROMPT", SYN_CLAUSE_17, &check_duplicate);
- set_dispattr (COB_SCREEN_PROMPT);
- }
-#line 21713 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1743:
-#line 12160 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("REQUIRED", SYN_CLAUSE_18, &check_duplicate);
- set_dispattr (COB_SCREEN_REQUIRED);
- }
-#line 21722 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1744:
-#line 12165 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("REVERSE-VIDEO", SYN_CLAUSE_19, &check_duplicate);
- set_dispattr (COB_SCREEN_REVERSE);
- }
-#line 21731 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1745:
-#line 12170 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("SECURE", SYN_CLAUSE_20, &check_duplicate);
- set_dispattr_with_conflict ("SECURE", COB_SCREEN_SECURE,
- "NO-ECHO", COB_SCREEN_NO_ECHO);
- }
-#line 21741 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1746:
-#line 12176 "parser.y" /* yacc.c:1646 */
- {
- /* FIXME: arithmetic expression should be possible, too! */
- check_repeated ("SIZE", SYN_CLAUSE_21, &check_duplicate);
- set_attribs (0, NULL, NULL, NULL, NULL, NULL, (yyvsp[0]), NULL, NULL, NULL);
- }
-#line 21751 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1747:
-#line 12182 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("NO UPDATE", SYN_CLAUSE_23, &check_duplicate);
- set_dispattr_with_conflict ("NO UPDATE", COB_SCREEN_NO_UPDATE,
- "UPDATE", COB_SCREEN_UPDATE);
- }
-#line 21761 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1748:
-#line 12188 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("UPDATE", SYN_CLAUSE_24, &check_duplicate);
- set_dispattr_with_conflict ("UPDATE", COB_SCREEN_UPDATE,
- "NO UPDATE", COB_SCREEN_NO_UPDATE);
- }
-#line 21771 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1749:
-#line 12194 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("UPPER", SYN_CLAUSE_25, &check_duplicate);
- set_dispattr_with_conflict ("UPPER", COB_SCREEN_UPPER,
- "LOWER", COB_SCREEN_LOWER);
- }
-#line 21781 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1750:
-#line 12200 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("FOREGROUND-COLOR", SYN_CLAUSE_26, &check_duplicate);
- set_attribs (0, (yyvsp[0]), NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL);
- }
-#line 21790 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1751:
-#line 12205 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("BACKGROUND-COLOR", SYN_CLAUSE_27, &check_duplicate);
- set_attribs (0, NULL, (yyvsp[0]), NULL, NULL, NULL, NULL, NULL, NULL, NULL);
- }
-#line 21799 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1752:
-#line 12210 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("SCROLL UP", SYN_CLAUSE_28, &check_duplicate);
- set_attribs_with_conflict (NULL, NULL, (yyvsp[0]), NULL, NULL, NULL,
- "SCROLL UP", COB_SCREEN_SCROLL_UP,
- "SCROLL DOWN", COB_SCREEN_SCROLL_DOWN);
- }
-#line 21810 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1753:
-#line 12217 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("SCROLL DOWN", SYN_CLAUSE_19, &check_duplicate);
- set_attribs_with_conflict (NULL, NULL, (yyvsp[0]), NULL, NULL, NULL,
- "SCROLL DOWN", COB_SCREEN_SCROLL_DOWN,
- "SCROLL UP", COB_SCREEN_SCROLL_UP);
- }
-#line 21821 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1754:
-#line 12224 "parser.y" /* yacc.c:1646 */
- {
- check_repeated (_("TIME-OUT or BEFORE TIME clauses"), SYN_CLAUSE_4,
- &check_duplicate);
- set_attribs (0, NULL, NULL, NULL, (yyvsp[0]), NULL, NULL, NULL, NULL, NULL);
- }
-#line 21831 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1758:
-#line 12237 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("CONTROL KEY", SYN_CLAUSE_29, &check_duplicate);
- CB_PENDING ("CONTROL KEY");
-#if 0 /* should generate the following *after* the ACCEPT is finished */
- cb_emit_accept_escape_key ((yyvsp[0]));
-#endif
- }
-#line 21843 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1767:
-#line 12265 "parser.y" /* yacc.c:1646 */
- {
- TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), ACCEPT);
- }
-#line 21851 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1768:
-#line 12269 "parser.y" /* yacc.c:1646 */
- {
- check_non_area_a_of ("END-ACCEPT");
- TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), ACCEPT);
-# if 0 /* activate only for debugging purposes for attribs
- FIXME: Replace by DEBUG_LOG function */
- if (current_statement->attr_ptr) {
- print_bits (current_statement->attr_ptr->dispattrs);
- } else {
- fputs("No Attribs", stderr);
- }
-#endif
- }
-#line 21868 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1769:
-#line 12288 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_ADD, TERM_ADD);
- }
-#line 21876 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1771:
-#line 12297 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_arithmetic ((yyvsp[-1]), '+', cb_build_binary_list ((yyvsp[-3]), '+'));
- }
-#line 21884 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1772:
-#line 12301 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[-3])) {
- cb_list_add ((yyvsp[-4]), (yyvsp[-3]));
- }
- cb_emit_arithmetic ((yyvsp[-1]), 0, cb_build_binary_list ((yyvsp[-4]), '+'));
- }
-#line 21895 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1773:
-#line 12308 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_corresponding (cb_build_add, (yyvsp[-2]), (yyvsp[-4]), (yyvsp[-1]));
- }
-#line 21903 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1774:
-#line 12312 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("ADD TABLE");
- cb_emit_tab_arithmetic (cb_build_add, (yyvsp[-4]), (yyvsp[-6]), (yyvsp[-3]), (yyvsp[-2]), (yyvsp[-1]));
- }
-#line 21912 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1775:
-#line 12319 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 21918 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1776:
-#line 12320 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 21924 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1777:
-#line 12325 "parser.y" /* yacc.c:1646 */
- {
- TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), ADD);
- }
-#line 21932 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1778:
-#line 12329 "parser.y" /* yacc.c:1646 */
- {
- check_non_area_a_of ("END-ADD");
- TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), ADD);
- }
-#line 21941 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1779:
-#line 12340 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_ALLOCATE, 0);
- cobc_cs_check = CB_CS_ALLOCATE;
- current_statement->flag_no_based = 1;
- }
-#line 21951 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1781:
-#line 12350 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_allocate_identifier ((yyvsp[-3]), (yyvsp[0]), (yyvsp[-2]) != NULL);
- }
-#line 21959 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1782:
-#line 12354 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[0]) == NULL) {
- cb_error_x (CB_TREE (current_statement),
- _("ALLOCATE CHARACTERS requires RETURNING clause"));
- } else {
- cb_emit_allocate_characters ((yyvsp[-4]), (yyvsp[-2]), (yyvsp[0]));
- }
- }
-#line 21972 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1784:
-#line 12367 "parser.y" /* yacc.c:1646 */
- {
- int adressing = cb_get_int ((yyvsp[0]));
-
- if (adressing == 24
- || adressing == 31) {
- cb_warning (COBC_WARN_FILLER, _("ignoring %s phrase"), "LOC");
- } else {
- cb_error (_("addressing mode should be either 24 or 31 bit"));
- }
- }
-#line 21987 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1785:
-#line 12379 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 21993 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1786:
-#line 12380 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 21999 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1787:
-#line 12388 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_ALTER, 0);
- cb_verify (cb_alter_statement, "ALTER");
- }
-#line 22008 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1791:
-#line 12402 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_alter ((yyvsp[-3]), (yyvsp[0]));
- }
-#line 22016 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1794:
-#line 12414 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_CALL, TERM_CALL);
- cobc_cs_check = CB_CS_CALL;
- call_nothing = 0;
- cobc_allow_program_name = 1;
- }
-#line 22027 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1795:
-#line 12422 "parser.y" /* yacc.c:1646 */
- {
- cobc_cs_check = 0;
- }
-#line 22035 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1796:
-#line 12429 "parser.y" /* yacc.c:1646 */
- {
- cobc_allow_program_name = 0;
- }
-#line 22043 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1797:
-#line 12437 "parser.y" /* yacc.c:1646 */
- {
- int call_conv = 0;
- int call_conv_local = 0;
-
- if (current_program->prog_type == COB_MODULE_TYPE_PROGRAM
- && !current_program->flag_recursive
- && is_recursive_call ((yyvsp[-6]))) {
- cb_tree x = CB_TREE (current_statement);
- if (cb_verify_x (x, cb_self_call_recursive, _("CALL to own PROGRAM-ID"))) {
- cb_note_x (cb_warn_dialect, x, _("assuming RECURSIVE attribute"));
- current_program->flag_recursive = 1;
- }
- }
- call_conv = current_call_convention;
- if ((yyvsp[-3])) {
- if (current_call_convention & CB_CONV_STATIC_LINK) {
- call_conv = CB_INTEGER ((yyvsp[-3]))->val | CB_CONV_STATIC_LINK;
- } else {
- call_conv = CB_INTEGER ((yyvsp[-3]))->val;
- }
- if ((yyvsp[-8])) {
- /* note: $1 is likely to be a reference to SPECIAL-NAMES */
- cb_error_x ((yyvsp[-3]), _("%s and %s are mutually exclusive"),
- "CALL-CONVENTION", "WITH LINKAGE");
- }
- }
- if ((CB_PAIR_X ((yyvsp[0])) != NULL)
- && (call_conv & CB_CONV_STATIC_LINK)) {
- cb_warning_x (COBC_WARN_FILLER, (yyvsp[-6]),
- _("STATIC CALL convention ignored because of ON EXCEPTION"));
- call_conv &= ~CB_CONV_STATIC_LINK;
- }
- if ((yyvsp[-8])) {
- if (CB_INTEGER_P ((yyvsp[-8]))) {
- call_conv_local = CB_INTEGER ((yyvsp[-8]))->val;
- if ((CB_PAIR_X ((yyvsp[0])) != NULL)
- && (call_conv_local & CB_CONV_STATIC_LINK)) {
- cb_warning_x (COBC_WARN_FILLER, (yyvsp[-8]),
- _("ON EXCEPTION ignored because of STATIC CALL"));
- CB_PAIR_X ((yyvsp[0])) = NULL;
- }
- call_conv |= call_conv_local;
- if (CB_INTEGER ((yyvsp[-8]))->val & CB_CONV_COBOL) {
- call_conv &= ~CB_CONV_STDCALL;
- } else {
- call_conv &= ~CB_CONV_COBOL;
- }
- } else {
- call_conv = cb_get_int((yyvsp[-8]));
- }
- }
-
- /* Check parameter conformance, if we can work out what is being called. */
- if (CB_LITERAL_P ((yyvsp[-6]))) {
- cb_check_conformance ((yyvsp[-6]), (yyvsp[-2]), (yyvsp[-1]));
- } else if (CB_REFERENCE_P ((yyvsp[-6]))) {
- cb_tree ref = cb_ref ((yyvsp[-6]));
- if ((CB_FIELD_P (ref) && CB_FIELD (ref)->flag_item_78)
- || CB_PROGRAM_P (ref)
- || CB_PROTOTYPE_P (ref)) {
- cb_check_conformance ((yyvsp[-6]), (yyvsp[-2]), (yyvsp[-1]));
- }
- }
-
- /* For CALL ... RETURNING NOTHING, set the call convention bit */
- if (call_nothing) {
- call_conv |= CB_CONV_NO_RET_UPD;
- }
- cb_emit_call ((yyvsp[-6]), (yyvsp[-2]), (yyvsp[-1]), CB_PAIR_X ((yyvsp[0])), CB_PAIR_Y ((yyvsp[0])),
- cb_int (call_conv), (yyvsp[-7]), (yyvsp[-4]));
- }
-#line 22119 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1798:
-#line 12512 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 22127 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1799:
-#line 12516 "parser.y" /* yacc.c:1646 */
- {
- /* FIXME: hack - fake cs for context-sensitive WITH ... LINKAGE */
- cobc_cs_check |= CB_CS_OPTIONS;
- (yyval) = cb_build_comment ("WITH"); /* for position only */
- }
-#line 22137 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1800:
-#line 12522 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[-1]);
- copy_pos ((yyval), (yyvsp[-2]));
- cobc_cs_check ^= CB_CS_OPTIONS;
- cb_verify_x ((yyval), cb_call_convention_linkage, "WITH ... LINKAGE");
- }
-#line 22148 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1801:
-#line 12532 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int (CB_CONV_STDCALL);
- }
-#line 22156 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1802:
-#line 12536 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int (CB_CONV_C);
- }
-#line 22164 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1803:
-#line 12540 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int (CB_CONV_PASCAL);
- }
-#line 22172 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1804:
-#line 12547 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 22180 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1805:
-#line 12551 "parser.y" /* yacc.c:1646 */
- {
- cb_verify (cb_call_convention_mnemonic, "CALL-/ENTRY-CONVENTION");
- (yyval) = (yyvsp[0]);
- }
-#line 22189 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1806:
-#line 12559 "parser.y" /* yacc.c:1646 */
- {
- if (current_call_convention & CB_CONV_COBOL) {
- (yyval) = cb_int (CB_CONV_STATIC_LINK | CB_CONV_COBOL);
- } else {
- (yyval) = cb_int (CB_CONV_STATIC_LINK);
- }
- }
-#line 22201 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1807:
-#line 12567 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int (CB_CONV_STDCALL);
- }
-#line 22209 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1808:
-#line 12571 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int (CB_CONV_STDCALL | CB_CONV_STATIC_LINK);
- }
-#line 22217 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1809:
-#line 12575 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int (CB_CONV_C);
- }
-#line 22225 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1810:
-#line 12579 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int (CB_CONV_C);
- }
-#line 22233 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1811:
-#line 12583 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int (CB_CONV_PASCAL);
- }
-#line 22241 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1812:
-#line 12587 "parser.y" /* yacc.c:1646 */
- {
- cb_tree x;
-
- x = cb_ref ((yyvsp[0]));
- if (CB_VALID_TREE (x)) {
- if (CB_SYSTEM_NAME(x)->token != CB_FEATURE_CONVENTION) {
- cb_error_x ((yyvsp[0]), _("invalid mnemonic name"));
- (yyval) = NULL;
- } else {
- (yyval) = CB_SYSTEM_NAME(x)->value;
- }
- } else {
- (yyval) = NULL;
- }
- }
-#line 22261 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1813:
-#line 12606 "parser.y" /* yacc.c:1646 */
- {
- if (CB_LITERAL_P ((yyvsp[0]))) {
- cb_trim_program_id ((yyvsp[0]));
- }
- }
-#line 22271 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1814:
-#line 12612 "parser.y" /* yacc.c:1646 */
- {
- cb_verify (cb_program_prototypes, _("CALL/CANCEL with program-prototype-name"));
- /* hack to push the prototype name */
- if ((yyvsp[0]) && CB_REFERENCE_P ((yyvsp[0]))) {
- if ((yyvsp[-1])) {
- cb_warning_x (COBC_WARN_FILLER, (yyvsp[-1]), _("id/literal ignored, using prototype name"));
- }
- (yyval) = (yyvsp[0]);
- } else if ((yyvsp[-1]) && CB_LITERAL_P ((yyvsp[-1]))) {
- (yyval) = (yyvsp[-1]);
- } else {
- cb_error (_("NESTED phrase is only valid with literal"));
- (yyval) = cb_error_node;
- }
- }
-#line 22291 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1815:
-#line 12631 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 22299 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1816:
-#line 12636 "parser.y" /* yacc.c:1646 */
- {
- if (CB_LITERAL_P ((yyvsp[-1]))) {
- cb_trim_program_id ((yyvsp[-1]));
- }
- (yyval) = (yyvsp[-1]);
- }
-#line 22310 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1817:
-#line 12646 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("NESTED phrase for CALL statement");
- }
-#line 22318 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1819:
-#line 12654 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 22326 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1820:
-#line 12658 "parser.y" /* yacc.c:1646 */
- {
- call_mode = CB_CALL_BY_REFERENCE;
- size_mode = CB_SIZE_UNSET;
- }
-#line 22335 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1821:
-#line 12663 "parser.y" /* yacc.c:1646 */
- {
- if (cb_list_length ((yyvsp[0])) > MAX_CALL_FIELD_PARAMS) {
- cb_error_x (CB_TREE (current_statement),
- _("number of arguments exceeds maximum %d"),
- MAX_CALL_FIELD_PARAMS);
- }
- (yyval) = (yyvsp[0]);
- }
-#line 22348 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1822:
-#line 12674 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 22354 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1823:
-#line 12676 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_list_append ((yyvsp[-1]), (yyvsp[0])); }
-#line 22360 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1824:
-#line 12681 "parser.y" /* yacc.c:1646 */
- {
- if (call_mode != CB_CALL_BY_REFERENCE) {
- cb_error_x (CB_TREE (current_statement),
- _("%s only allowed when arguments are passed %s"),
- "OMITTED", "BY REFERENCE");
- }
- (yyval) = CB_BUILD_PAIR (cb_int (call_mode), cb_null);
- }
-#line 22373 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1825:
-#line 12690 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_call_parameter ((yyvsp[0]), call_mode, size_mode);
- }
-#line 22381 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1826:
-#line 12694 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_call_parameter ((yyvsp[0]), call_mode, size_mode);
- /* note: the OpenCOBOL extension keeps the size... - that is possibly problematic
- recheck: drop that extension with GC 4.0 - or prefer the scanner adjustment
- to fix the conflict?
- */
- }
-#line 22393 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1828:
-#line 12719 "parser.y" /* yacc.c:1646 */
- {
- call_mode = CB_CALL_BY_REFERENCE;
- }
-#line 22401 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1829:
-#line 12723 "parser.y" /* yacc.c:1646 */
- {
-#if 0 /* CHECKME: seems to only belong to PROCEDURE DIVISION - but this is a different token */
- if (current_program->flag_chained) {
- cb_error_x (CB_TREE (current_statement),
- _("%s not allowed in CHAINED programs"), "BY CONTENT");
- } else {
- call_mode = CB_CALL_BY_CONTENT;
- }
-#else
- call_mode = CB_CALL_BY_CONTENT;
-#endif
- }
-#line 22418 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1830:
-#line 12736 "parser.y" /* yacc.c:1646 */
- {
-#if 0 /* CHECKME: seems to only belong to PROCEDURE DIVISION - but this is a different token */
- if (current_program->flag_chained) {
- cb_error_x (CB_TREE (current_statement),
- _("%s not allowed in CHAINED programs"), "BY VALUE");
- } else {
- call_mode = CB_CALL_BY_VALUE;
- }
-#else
- call_mode = CB_CALL_BY_VALUE;
-#endif
- }
-#line 22435 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1831:
-#line 12752 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 22443 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1832:
-#line 12756 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 22451 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1833:
-#line 12760 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_null;
- }
-#line 22459 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1834:
-#line 12764 "parser.y" /* yacc.c:1646 */
- {
- call_nothing = CB_CONV_NO_RET_UPD;
- (yyval) = cb_null;
- }
-#line 22468 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1835:
-#line 12769 "parser.y" /* yacc.c:1646 */
- {
- struct cb_field *f;
-
- if (cb_ref ((yyvsp[0])) != cb_error_node) {
- f = CB_FIELD_PTR ((yyvsp[0]));
- if (f->level != 1 && f->level != 77) {
- cb_error (_("RETURNING item must have level 01 or 77"));
- (yyval) = NULL;
- } else if (f->storage != CB_STORAGE_LINKAGE &&
- !f->flag_item_based) {
- cb_error (_("RETURNING item must be a LINKAGE SECTION item or have BASED clause"));
- (yyval) = NULL;
- } else {
- (yyval) = cb_build_address ((yyvsp[0]));
- }
- } else {
- (yyval) = NULL;
- }
- }
-#line 22492 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1840:
-#line 12802 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_BUILD_PAIR (NULL, NULL);
- }
-#line 22500 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1841:
-#line 12806 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_BUILD_PAIR ((yyvsp[-1]), (yyvsp[0]));
- }
-#line 22508 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1842:
-#line 12810 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[0])) {
- cb_verify (cb_not_exception_before_exception,
- _("NOT EXCEPTION before EXCEPTION"));
- }
- (yyval) = CB_BUILD_PAIR ((yyvsp[0]), (yyvsp[-1]));
- }
-#line 22520 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1843:
-#line 12821 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 22528 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1844:
-#line 12825 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 22536 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1845:
-#line 12832 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 22544 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1846:
-#line 12836 "parser.y" /* yacc.c:1646 */
- {
- cb_verify (cb_call_overflow, "ON OVERFLOW");
- (yyval) = (yyvsp[0]);
- }
-#line 22553 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1847:
-#line 12844 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 22561 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1848:
-#line 12848 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 22569 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1849:
-#line 12855 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 22577 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1850:
-#line 12862 "parser.y" /* yacc.c:1646 */
- {
- TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), CALL);
- }
-#line 22585 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1851:
-#line 12866 "parser.y" /* yacc.c:1646 */
- {
- check_non_area_a_of ("END-CALL");
- TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), CALL);
- }
-#line 22594 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1852:
-#line 12877 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_CANCEL, 0);
- cobc_allow_program_name = 1;
- }
-#line 22603 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1853:
-#line 12882 "parser.y" /* yacc.c:1646 */
- {
- cobc_allow_program_name = 0;
- }
-#line 22611 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1855:
-#line 12890 "parser.y" /* yacc.c:1646 */
- {
- const char *all_name = "CANCEL ALL";
- struct cb_literal *all = build_literal (CB_CATEGORY_ALPHANUMERIC, all_name, strlen (all_name));
- cb_emit_cancel (CB_TREE(all));
- }
-#line 22621 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1856:
-#line 12899 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_cancel ((yyvsp[0]));
- }
-#line 22629 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1857:
-#line 12903 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_cancel ((yyvsp[0]));
- }
-#line 22637 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1859:
-#line 12911 "parser.y" /* yacc.c:1646 */
- {
- cb_verify (cb_program_prototypes, _("CALL/CANCEL with program-prototype-name"));
- }
-#line 22645 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1860:
-#line 12920 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_CLOSE, 0);
- }
-#line 22653 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1864:
-#line 12933 "parser.y" /* yacc.c:1646 */
- {
- /* We need to create a list with a CLOSE statement for every file
- within the current_statement instead of nesting them, which
- is what would happen if we don't save the current statement
- and restore it. */
- struct cb_statement * saved_current_statement = current_statement ;
- begin_implicit_statement (current_statement, (yyvsp[-1]));
- cb_emit_close ((yyvsp[-1]), (yyvsp[0]));
- current_statement = saved_current_statement ;
- }
-#line 22668 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1865:
-#line 12944 "parser.y" /* yacc.c:1646 */
- {
- struct cb_statement * saved_current_statement = current_statement ;
- begin_implicit_statement (current_statement, (yyvsp[-1]));
- cb_emit_close ((yyvsp[-1]), (yyvsp[0]));
- current_statement = saved_current_statement ;
- }
-#line 22679 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1866:
-#line 12953 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int (COB_CLOSE_NORMAL); }
-#line 22685 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1867:
-#line 12954 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int (COB_CLOSE_NO_REWIND); }
-#line 22691 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1868:
-#line 12955 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int (COB_CLOSE_LOCK); }
-#line 22697 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1869:
-#line 12956 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int (COB_CLOSE_UNIT); }
-#line 22703 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1870:
-#line 12957 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int (COB_CLOSE_UNIT_REMOVAL); }
-#line 22709 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1871:
-#line 12958 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int (COB_CLOSE_UNIT); }
-#line 22715 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1872:
-#line 12963 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("GRAPHICAL WINDOW");
- current_statement->statement = STMT_CLOSE_WINDOW;
- }
-#line 22724 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1873:
-#line 12968 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_close_window ((yyvsp[-1]), (yyvsp[0]));
- }
-#line 22732 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1874:
-#line 12974 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 22738 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1875:
-#line 12975 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int0; }
-#line 22744 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1876:
-#line 12983 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_COMPUTE, TERM_COMPUTE);
- }
-#line 22752 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1878:
-#line 12992 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_arithmetic ((yyvsp[-3]), 0, (yyvsp[-1]));
- }
-#line 22760 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1879:
-#line 12999 "parser.y" /* yacc.c:1646 */
- {
- TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), COMPUTE);
- }
-#line 22768 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1880:
-#line 13003 "parser.y" /* yacc.c:1646 */
- {
- check_non_area_a_of ("END-COMPUTE");
- TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), COMPUTE);
- }
-#line 22777 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1881:
-#line 13014 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_COMMIT, 0);
- cb_emit_commit ();
- }
-#line 22786 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1882:
-#line 13025 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_comment ("CONTINUE");
- if (cobc_in_area_a) {
- (yyval)->source_column = -1;
- }
- }
-#line 22797 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1883:
-#line 13032 "parser.y" /* yacc.c:1646 */
- {
- if (!(yyvsp[0])) {
- /* Do not check unreached for CONTINUE without after phrase */
- unsigned int save_unreached = check_unreached;
- check_unreached = 0;
- begin_statement_at_tree_pos (STMT_CONTINUE, 0, (yyvsp[-1]));
- cb_emit_continue (NULL);
- check_unreached = save_unreached;
- } else {
- begin_statement_at_tree_pos (STMT_CONTINUE_AFTER, 0, (yyvsp[-1]));
- cb_emit_continue ((yyvsp[0]));
- }
- }
-#line 22815 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1884:
-#line 13049 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 22823 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1885:
-#line 13052 "parser.y" /* yacc.c:1646 */
- {
- /* FIXME: hack - fake cs for context-sensitive SECONDS */
- cobc_cs_check = CB_CS_RETRY;
- }
-#line 22832 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1886:
-#line 13057 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[-1]);
- }
-#line 22840 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1887:
-#line 13067 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_DESTROY, 0);
- CB_PENDING ("GRAPHICAL CONTROL");
- }
-#line 22849 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1889:
-#line 13076 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_destroy (NULL);
- }
-#line 22857 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1890:
-#line 13083 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_destroy ((yyvsp[0]));
- }
-#line 22865 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1891:
-#line 13093 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_DELETE, TERM_DELETE);
- }
-#line 22873 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1893:
-#line 13102 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_delete ((yyvsp[-3]));
- }
-#line 22881 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1894:
-#line 13106 "parser.y" /* yacc.c:1646 */
- {
- current_statement->statement = STMT_DELETE_FILE;
- }
-#line 22889 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1895:
-#line 13113 "parser.y" /* yacc.c:1646 */
- {
- struct cb_statement * saved_current_statement = current_statement ;
- begin_implicit_statement (current_statement, (yyvsp[0]));
- cb_emit_delete_file ((yyvsp[0]));
- current_statement = saved_current_statement ;
- }
-#line 22900 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1896:
-#line 13120 "parser.y" /* yacc.c:1646 */
- {
- struct cb_statement * saved_current_statement = current_statement ;
- begin_implicit_statement (current_statement, (yyvsp[0]));
- cb_emit_delete_file ((yyvsp[0]));
- current_statement = saved_current_statement ;
- }
-#line 22911 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1897:
-#line 13130 "parser.y" /* yacc.c:1646 */
- {
- TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), DELETE);
- }
-#line 22919 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1898:
-#line 13134 "parser.y" /* yacc.c:1646 */
- {
- check_non_area_a_of ("END-DELETE");
- TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), DELETE);
- }
-#line 22928 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1899:
-#line 13145 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_DISABLE, 0);
- }
-#line 22936 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1903:
-#line 13159 "parser.y" /* yacc.c:1646 */
- {
- /* Add cb_verify for <= COBOL-85 */
- }
-#line 22944 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1909:
-#line 13177 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_DISPLAY, TERM_DISPLAY);
- cobc_cs_check = CB_CS_DISPLAY;
- display_type = UNKNOWN_DISPLAY;
- is_first_display_item = 1;
- }
-#line 22955 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1911:
-#line 13189 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_env_name ((yyvsp[-2]));
- }
-#line 22963 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1912:
-#line 13193 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_env_value ((yyvsp[-2]));
- }
-#line 22971 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1913:
-#line 13197 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_arg_number ((yyvsp[-2]));
- }
-#line 22979 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1914:
-#line 13201 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_command_line ((yyvsp[-2]));
- }
-#line 22987 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1916:
-#line 13206 "parser.y" /* yacc.c:1646 */
- {
- /* note: aliased by CONVERT */
- set_dispattr (COB_SCREEN_CONV);
- CB_PENDING ("DISPLAY WITH CONVERSION");
- }
-#line 22997 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1923:
-#line 13221 "parser.y" /* yacc.c:1646 */
- {
- if (CB_VALID_TREE((yyvsp[0]))) {
- error_if_different_display_type (CB_LIST((yyvsp[0])), NULL, NULL, NULL);
- cb_emit_display ((yyvsp[0]), NULL, cb_int1, NULL, NULL, 0,
- display_type);
- }
- }
-#line 23009 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1924:
-#line 13229 "parser.y" /* yacc.c:1646 */
- {
- if (CB_VALID_TREE((yyvsp[0]))) {
- set_display_type (CB_LIST((yyvsp[0])), NULL, NULL, NULL);
- cb_emit_display ((yyvsp[0]), NULL, cb_int1, NULL, NULL, 1,
- display_type);
- }
- }
-#line 23021 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1927:
-#line 13245 "parser.y" /* yacc.c:1646 */
- {
- check_duplicate = 0;
- check_line_col_duplicate = 0;
- advancing_value = cb_int1;
- upon_value = NULL;
- line_column = NULL;
- }
-#line 23033 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1928:
-#line 13253 "parser.y" /* yacc.c:1646 */
- {
- if (CB_VALID_TREE((yyvsp[-2]))) {
- struct cb_list *l = CB_LIST((yyvsp[-2]));
- if (l->value == cb_null) {
- /* Emit DISPLAY OMITTED. */
- CB_UNFINISHED_X (CB_TREE (current_statement), "DISPLAY OMITTED");
- error_if_no_advancing_in_screen_display (advancing_value);
- }
-
- /* Emit device or screen DISPLAY. */
-
- /*
- Check that disp_list does not contain an invalid mix of fields.
- */
- if (display_type == UNKNOWN_DISPLAY) {
- set_display_type (l, upon_value, line_column,
- current_statement->attr_ptr);
- } else {
- error_if_different_display_type (l, upon_value,
- line_column,
- current_statement->attr_ptr);
- }
- }
-
- if (display_type == SCREEN_DISPLAY
- || display_type == FIELD_ON_SCREEN_DISPLAY) {
- error_if_no_advancing_in_screen_display (advancing_value);
- }
-
- cb_emit_display ((yyvsp[-2]), upon_value, advancing_value, line_column,
- current_statement->attr_ptr,
- is_first_display_item, display_type);
-
- is_first_display_item = 0;
- }
-#line 23073 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1929:
-#line 13292 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 23081 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1930:
-#line 13296 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_LIST_INIT (cb_null);
- }
-#line 23089 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1937:
-#line 13318 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("UPON", SYN_CLAUSE_1, &check_duplicate);
- }
-#line 23097 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1938:
-#line 13322 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("NO ADVANCING", SYN_CLAUSE_2, &check_duplicate);
- advancing_value = cb_int0;
- }
-#line 23106 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1939:
-#line 13327 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("MODE IS BLOCK", SYN_CLAUSE_3, &check_duplicate);
- }
-#line 23114 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1942:
-#line 13336 "parser.y" /* yacc.c:1646 */
- {
- upon_value = NULL;
- }
-#line 23122 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1944:
-#line 13344 "parser.y" /* yacc.c:1646 */
- {
- upon_value = cb_build_display_mnemonic ((yyvsp[0]));
- }
-#line 23130 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1945:
-#line 13348 "parser.y" /* yacc.c:1646 */
- {
- upon_value = cb_build_display_name ((yyvsp[0]));
- }
-#line 23138 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1946:
-#line 13352 "parser.y" /* yacc.c:1646 */
- {
- upon_value = cb_int2;
- }
-#line 23146 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1947:
-#line 13356 "parser.y" /* yacc.c:1646 */
- {
- upon_value = cb_null;
- }
-#line 23154 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1950:
-#line 13368 "parser.y" /* yacc.c:1646 */
- {
- check_duplicate = SYN_CLAUSE_10;
- check_line_col_duplicate = 0;
- line_column = NULL;
- set_dispattr_with_conflict ("ERASE EOS", COB_SCREEN_ERASE_EOS,
- "ERASE EOL", COB_SCREEN_ERASE_EOL);
- }
-#line 23166 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1951:
-#line 13376 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_display (CB_LIST_INIT (cb_space), cb_null, cb_int1, line_column,
- current_statement->attr_ptr, 1, FIELD_ON_SCREEN_DISPLAY);
- }
-#line 23175 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1952:
-#line 13386 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_display ((yyvsp[-1]), cb_null, cb_int1, line_column,
- current_statement->attr_ptr, 1, FIELD_ON_SCREEN_DISPLAY);
- }
-#line 23184 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1953:
-#line 13393 "parser.y" /* yacc.c:1646 */
- {
- check_duplicate = 0;
- check_line_col_duplicate = 0;
- line_column = NULL;
- }
-#line 23194 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1954:
-#line 13399 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 23202 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1955:
-#line 13406 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_LIST_INIT ((yyvsp[0]));
- }
-#line 23210 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1956:
-#line 13410 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0]));
- }
-#line 23218 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1959:
-#line 13419 "parser.y" /* yacc.c:1646 */
- {
- set_dispattr_with_conflict ("ERASE EOS", COB_SCREEN_ERASE_EOS,
- "ERASE EOL", COB_SCREEN_ERASE_EOL);
- (yyval) = cb_space;
- }
-#line 23228 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1960:
-#line 13428 "parser.y" /* yacc.c:1646 */
- {
- CB_UNFINISHED_X (CB_TREE (current_statement), "DISPLAY MESSAGE");
- upon_value = NULL;
- }
-#line 23237 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1961:
-#line 13433 "parser.y" /* yacc.c:1646 */
- {
- /* for now: minimal support for display and prompt only */
- if (upon_value) {
- cb_emit_display (CB_LIST_INIT (upon_value), NULL, NULL, NULL,
- NULL, 1, FIELD_ON_SCREEN_DISPLAY);
- }
- cb_emit_display ((yyvsp[-2]), NULL, NULL, NULL,
- NULL, 1, FIELD_ON_SCREEN_DISPLAY);
- cb_emit_accept (cb_null, NULL, NULL);
- }
-#line 23252 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1966:
-#line 13457 "parser.y" /* yacc.c:1646 */
- {
- upon_value = (yyvsp[0]);
- }
-#line 23260 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1971:
-#line 13468 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("GRAPHICAL WINDOW");
- current_statement->statement = STMT_DISPLAY_WINDOW;
- }
-#line 23269 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1972:
-#line 13473 "parser.y" /* yacc.c:1646 */
- {
- check_duplicate = 0;
- check_line_col_duplicate = 0;
- line_column = NULL;
- upon_value = NULL; /* Hack: stores the POP-UP AREA */
- }
-#line 23280 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1973:
-#line 13480 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_display_window (NULL, upon_value, (yyvsp[-2]), line_column,
- current_statement->attr_ptr);
- }
-#line 23289 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1976:
-#line 13493 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("GRAPHICAL WINDOW");
- current_statement->statement = STMT_DISPLAY_WINDOW;
- /* current_statement->name = "DISPLAY FLOATING WINDOW"; */
- current_statement->statement = STMT_DISPLAY_WINDOW;
- }
-#line 23300 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1977:
-#line 13500 "parser.y" /* yacc.c:1646 */
- {
- check_duplicate = 0;
- check_line_col_duplicate = 0;
- line_column = NULL;
- upon_value = NULL; /* Hack: stores the POP-UP AREA */
- }
-#line 23311 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1978:
-#line 13507 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[-5])) {
- /* TODO: set "CELL WIDTH" and "CELL HEIGHT" to "LABEL FONT" */
- /* if not set already */
- }
- cb_emit_display_window (cb_int0, upon_value, (yyvsp[-2]), line_column,
- current_statement->attr_ptr);
- }
-#line 23324 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1979:
-#line 13519 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("GRAPHICAL WINDOW");
- /* current_statement->name = "DISPLAY INITIAL WINDOW"; */
- current_statement->statement = STMT_DISPLAY_WINDOW;
- check_duplicate = 0;
- check_line_col_duplicate = 0;
- line_column = NULL;
- upon_value = NULL; /* Hack: stores the POP-UP AREA */
- /* TODO: initialize attributes for SHADOW, BOTTOM */
- }
-#line 23339 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1980:
-#line 13530 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[-3])) {
- /* TODO: set "CELL WIDTH" and "CELL HEIGHT" to "LABEL FONT" */
- /* if not set already */
- }
- cb_emit_display_window ((yyvsp[-4]), upon_value, NULL, line_column,
- current_statement->attr_ptr);
- }
-#line 23352 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1981:
-#line 13541 "parser.y" /* yacc.c:1646 */
- {(yyval) = cb_int1;}
-#line 23358 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1982:
-#line 13542 "parser.y" /* yacc.c:1646 */
- {(yyval) = cb_int2;}
-#line 23364 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1983:
-#line 13543 "parser.y" /* yacc.c:1646 */
- {(yyval) = cb_int3;}
-#line 23370 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1984:
-#line 13547 "parser.y" /* yacc.c:1646 */
- {(yyval) = NULL;}
-#line 23376 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1985:
-#line 13548 "parser.y" /* yacc.c:1646 */
- {(yyval) = cb_int1;}
-#line 23382 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1986:
-#line 13553 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 23390 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1987:
-#line 13557 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 23398 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1988:
-#line 13564 "parser.y" /* yacc.c:1646 */
- {
- struct cb_field *f;
-
- if (cb_ref ((yyvsp[0])) != cb_error_node) {
- f = CB_FIELD_PTR ((yyvsp[0]));
- if (f->usage != CB_USAGE_HNDL_WINDOW
- && f->usage != CB_USAGE_HNDL_SUBWINDOW) {
- cb_error_x ((yyvsp[0]), _("HANDLE must be a %s HANDLE"), "WINDOW");
- }
- }
- (yyval) = (yyvsp[0]);
- }
-#line 23415 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1989:
-#line 13577 "parser.y" /* yacc.c:1646 */
- {
- struct cb_field *f;
-
- if (cb_ref ((yyvsp[0])) != cb_error_node) {
- f = CB_FIELD_PTR ((yyvsp[0]));
- if (f->usage != CB_USAGE_HNDL) {
- cb_error_x ((yyvsp[0]), _("HANDLE must be a generic HANDLE"));
- }
- }
- (yyval) = (yyvsp[0]);
- }
-#line 23431 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1990:
-#line 13589 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_null;
- }
-#line 23439 "parser.c" /* yacc.c:1646 */
- break;
-
- case 1994:
-#line 13604 "parser.y" /* yacc.c:1646 */
- {
- /* TODO: store */
- }
-#line 23447 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2001:
-#line 13616 "parser.y" /* yacc.c:1646 */
- { /* TODO: set attribute */ }
-#line 23453 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2002:
-#line 13619 "parser.y" /* yacc.c:1646 */
- { /* TODO: set attribute */ }
-#line 23459 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2003:
-#line 13623 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int0; }
-#line 23465 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2004:
-#line 13624 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int0; }
-#line 23471 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2005:
-#line 13625 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int1; }
-#line 23477 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2006:
-#line 13629 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int0; }
-#line 23483 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2007:
-#line 13630 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int1; }
-#line 23489 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2008:
-#line 13631 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int1; }
-#line 23495 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2009:
-#line 13632 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int2; }
-#line 23501 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2014:
-#line 13648 "parser.y" /* yacc.c:1646 */
- {
- if (upon_value) {
- emit_duplicate_clause_message("POP-UP AREA");
- }
- upon_value = (yyvsp[0]);
- }
-#line 23512 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2015:
-#line 13658 "parser.y" /* yacc.c:1646 */
- {
- if (current_statement->statement != STMT_DISPLAY_WINDOW) {
- cb_error_x ((yyvsp[0]), _("HANDLE clause invalid for %s"),
- cb_statement_name[current_statement->statement]);
- upon_value = cb_error_node;
- } else{
- if (upon_value) {
- emit_duplicate_clause_message("POP-UP AREA / HANDLE IN");
- }
- upon_value = (yyvsp[0]);
- }
- }
-#line 23529 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2016:
-#line 13674 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("BELL", SYN_CLAUSE_4, &check_duplicate);
- set_dispattr (COB_SCREEN_BELL);
- }
-#line 23538 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2017:
-#line 13679 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("BLANK LINE", SYN_CLAUSE_5, &check_duplicate);
- set_dispattr_with_conflict ("BLANK LINE", COB_SCREEN_BLANK_LINE,
- "BLANK SCREEN", COB_SCREEN_BLANK_SCREEN);
- }
-#line 23548 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2018:
-#line 13685 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("BLANK SCREEN", SYN_CLAUSE_6, &check_duplicate);
- set_dispattr_with_conflict ("BLANK SCREEN", COB_SCREEN_BLANK_SCREEN,
- "BLANK LINE", COB_SCREEN_BLANK_LINE);
- }
-#line 23558 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2019:
-#line 13691 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("BLINK", SYN_CLAUSE_7, &check_duplicate);
- set_dispattr (COB_SCREEN_BLINK);
- }
-#line 23567 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2020:
-#line 13696 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("COLOR", SYN_CLAUSE_21, &check_duplicate);
- set_attribs (0, NULL, NULL, NULL, NULL, NULL, NULL, NULL, (yyvsp[0]), NULL);
- }
-#line 23576 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2021:
-#line 13701 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("CONTROL", SYN_CLAUSE_22, &check_duplicate);
- set_attribs (0, NULL, NULL, NULL, NULL, NULL, NULL, (yyvsp[0]), NULL, NULL);
- }
-#line 23585 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2022:
-#line 13706 "parser.y" /* yacc.c:1646 */
- {
- /* note: aliased by CONVERT */
- check_repeated ("CONVERSION", SYN_CLAUSE_8, &check_duplicate);
- set_dispattr (COB_SCREEN_CONV);
- CB_PENDING ("CONVERSION");
- }
-#line 23596 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2023:
-#line 13713 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("ERASE EOL", SYN_CLAUSE_9, &check_duplicate);
- set_dispattr_with_conflict ("ERASE EOL", COB_SCREEN_ERASE_EOL,
- "ERASE EOS", COB_SCREEN_ERASE_EOS);
- }
-#line 23606 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2024:
-#line 13719 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("ERASE EOS", SYN_CLAUSE_10, &check_duplicate);
- set_dispattr_with_conflict ("ERASE EOS", COB_SCREEN_ERASE_EOS,
- "ERASE EOL", COB_SCREEN_ERASE_EOL);
- }
-#line 23616 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2025:
-#line 13725 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("HIGHLIGHT", SYN_CLAUSE_11, &check_duplicate);
- set_dispattr_with_conflict ("HIGHLIGHT", COB_SCREEN_HIGHLIGHT,
- "LOWLIGHT", COB_SCREEN_LOWLIGHT);
- }
-#line 23626 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2026:
-#line 13731 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("LOWLIGHT", SYN_CLAUSE_12, &check_duplicate);
- set_dispattr_with_conflict ("LOWLIGHT", COB_SCREEN_LOWLIGHT,
- "HIGHLIGHT", COB_SCREEN_HIGHLIGHT);
- }
-#line 23636 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2027:
-#line 13738 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("SAME phrase");
- /* may not be specified along with the UNDERLINED, BLINK, REVERSED,
- HIGH, LOW, STANDARD, COLOR, FOREGROUND-COLOR, or BACKGROUND-COLOR phrases */
- }
-#line 23646 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2028:
-#line 13744 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("STANDARD intensity");
- }
-#line 23654 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2029:
-#line 13748 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("BACKGROUND intensity");
- }
-#line 23662 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2030:
-#line 13752 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("BACKGROUND intensity");
- }
-#line 23670 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2031:
-#line 13756 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("BACKGROUND intensity");
- }
-#line 23678 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2032:
-#line 13760 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("OVERLINE", SYN_CLAUSE_13, &check_duplicate);
- set_dispattr (COB_SCREEN_OVERLINE);
- }
-#line 23687 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2033:
-#line 13765 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("REVERSE-VIDEO", SYN_CLAUSE_14, &check_duplicate);
- set_dispattr (COB_SCREEN_REVERSE);
- }
-#line 23696 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2034:
-#line 13770 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("SIZE", SYN_CLAUSE_15, &check_duplicate);
- set_attribs (0, NULL, NULL, NULL, NULL, NULL, (yyvsp[0]), NULL, NULL, NULL);
- }
-#line 23705 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2035:
-#line 13775 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("UNDERLINE", SYN_CLAUSE_16, &check_duplicate);
- set_dispattr (COB_SCREEN_UNDERLINE);
- }
-#line 23714 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2036:
-#line 13780 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("FOREGROUND-COLOR", SYN_CLAUSE_17, &check_duplicate);
- set_attribs (0, (yyvsp[0]), NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL);
- }
-#line 23723 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2037:
-#line 13785 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("BACKGROUND-COLOR", SYN_CLAUSE_18, &check_duplicate);
- set_attribs (0, NULL, (yyvsp[0]), NULL, NULL, NULL, NULL, NULL, NULL, NULL);
- }
-#line 23732 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2038:
-#line 13790 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("SCROLL UP", SYN_CLAUSE_19, &check_duplicate);
- set_attribs_with_conflict (NULL, NULL, (yyvsp[0]), NULL, NULL, NULL,
- "SCROLL UP", COB_SCREEN_SCROLL_UP,
- "SCROLL DOWN", COB_SCREEN_SCROLL_DOWN);
- }
-#line 23743 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2039:
-#line 13797 "parser.y" /* yacc.c:1646 */
- {
- check_repeated ("SCROLL DOWN", SYN_CLAUSE_20, &check_duplicate);
- set_attribs_with_conflict (NULL, NULL, (yyvsp[0]), NULL, NULL, NULL,
- "SCROLL DOWN", COB_SCREEN_SCROLL_DOWN,
- "SCROLL UP", COB_SCREEN_SCROLL_UP);
- }
-#line 23754 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2040:
-#line 13806 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 23760 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2041:
-#line 13807 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 23766 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2042:
-#line 13812 "parser.y" /* yacc.c:1646 */
- {
- TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), DISPLAY);
- }
-#line 23774 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2043:
-#line 13816 "parser.y" /* yacc.c:1646 */
- {
- check_non_area_a_of ("END-DISPLAY");
- TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), DISPLAY);
- }
-#line 23783 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2044:
-#line 13827 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_DIVIDE, TERM_DIVIDE);
- }
-#line 23791 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2046:
-#line 13836 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_arithmetic ((yyvsp[-1]), '/', (yyvsp[-3]));
- }
-#line 23799 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2047:
-#line 13840 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_arithmetic ((yyvsp[-1]), 0, cb_build_binary_op ((yyvsp[-3]), '/', (yyvsp[-5])));
- }
-#line 23807 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2048:
-#line 13844 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_arithmetic ((yyvsp[-1]), 0, cb_build_binary_op ((yyvsp[-5]), '/', (yyvsp[-3])));
- }
-#line 23815 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2049:
-#line 13848 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_divide ((yyvsp[-5]), (yyvsp[-7]), (yyvsp[-3]), (yyvsp[-1]));
- }
-#line 23823 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2050:
-#line 13852 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_divide ((yyvsp[-7]), (yyvsp[-5]), (yyvsp[-3]), (yyvsp[-1]));
- }
-#line 23831 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2051:
-#line 13859 "parser.y" /* yacc.c:1646 */
- {
- TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), DIVIDE);
- }
-#line 23839 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2052:
-#line 13863 "parser.y" /* yacc.c:1646 */
- {
- check_non_area_a_of ("END-DIVIDE");
- TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), DIVIDE);
- }
-#line 23848 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2053:
-#line 13874 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_ENABLE, 0);
- }
-#line 23856 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2055:
-#line 13883 "parser.y" /* yacc.c:1646 */
- {check_area_a_of ("ENTRY"); }
-#line 23862 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2056:
-#line 13886 "parser.y" /* yacc.c:1646 */
- {
- check_unreached = 0;
- begin_statement (STMT_ENTRY, 0);
- current_statement->flag_no_based = 1;
- }
-#line 23872 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2058:
-#line 13893 "parser.y" /* yacc.c:1646 */
- {
- check_unreached = 0;
- begin_statement (STMT_ENTRY_FOR_GO_TO, 0);
- }
-#line 23881 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2059:
-#line 13899 "parser.y" /* yacc.c:1646 */
- {
- if (cb_verify_x (CB_TREE (current_statement), cb_goto_entry, "ENTRY FOR GO TO")) {
- emit_entry_goto ((char *)(CB_LITERAL ((yyvsp[0]))->data));
- }
- }
-#line 23891 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2060:
-#line 13908 "parser.y" /* yacc.c:1646 */
- {
- if (current_program->nested_level) {
- cb_error (_("%s is invalid in nested program"), "ENTRY");
- } else if (current_program->prog_type == COB_MODULE_TYPE_FUNCTION) {
- cb_error (_("%s is invalid in a user FUNCTION"), "ENTRY");
- } else if (cb_verify (cb_entry_statement, "ENTRY")) {
- cb_tree call_conv = (yyvsp[-3]);
- if ((yyvsp[-1])) {
- call_conv = (yyvsp[-1]);
- if ((yyvsp[-3])) {
- /* note: $1 is likely to be a reference to SPECIAL-NAMES */
- cb_error_x ((yyvsp[-1]), _("%s and %s are mutually exclusive"),
- "CALL-CONVENTION", "WITH LINKAGE");
- }
- }
- if (!cobc_check_valid_name ((char *)(CB_LITERAL ((yyvsp[-2]))->data), ENTRY_NAME)) {
- emit_entry ((char *)(CB_LITERAL ((yyvsp[-2]))->data), 1, (yyvsp[0]), call_conv);
- }
- }
- }
-#line 23916 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2061:
-#line 13935 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_EVALUATE, TERM_EVALUATE);
- eval_level++;
- if (eval_level >= EVAL_DEPTH) {
- cb_error (_("maximum evaluate depth exceeded (%d)"),
- EVAL_DEPTH);
- eval_level = 0;
- eval_inc = 0;
- eval_inc2 = 0;
- YYERROR;
- } else {
- for (eval_inc = 0; eval_inc < EVAL_DEPTH; ++eval_inc) {
- eval_check[eval_level][eval_inc] = NULL;
- }
- eval_inc = 0;
- eval_inc2 = 0;
- }
- cb_end_cond (cb_any);
- cb_save_cond ();
- cb_true_side ();
- }
-#line 23942 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2063:
-#line 13962 "parser.y" /* yacc.c:1646 */
- {
- if (!skip_statements) {
- cb_emit_evaluate ((yyvsp[-1]), (yyvsp[0]));
- }
- eval_level--;
- }
-#line 23953 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2064:
-#line 13971 "parser.y" /* yacc.c:1646 */
- { (yyval) = CB_LIST_INIT ((yyvsp[0])); }
-#line 23959 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2065:
-#line 13973 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_list_add ((yyvsp[-2]), (yyvsp[0])); }
-#line 23965 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2066:
-#line 13978 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- eval_check[eval_level][eval_inc++] = (yyvsp[0]);
- if (eval_inc >= EVAL_DEPTH) {
- cb_error (_("maximum evaluate depth exceeded (%d)"),
- EVAL_DEPTH);
- eval_inc = 0;
- YYERROR;
- }
- }
-#line 23980 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2067:
-#line 13989 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_true;
- eval_check[eval_level][eval_inc++] = NULL;
- if (eval_inc >= EVAL_DEPTH) {
- cb_error (_("maximum evaluate depth exceeded (%d)"),
- EVAL_DEPTH);
- eval_inc = 0;
- YYERROR;
- }
- }
-#line 23995 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2068:
-#line 14000 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_false;
- eval_check[eval_level][eval_inc++] = cb_false;
- if (eval_inc >= EVAL_DEPTH) {
- cb_error (_("maximum evaluate depth exceeded (%d)"),
- EVAL_DEPTH);
- eval_inc = 0;
- YYERROR;
- }
- }
-#line 24010 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2069:
-#line 14014 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[0])) {
- (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0]));
- } else {
- (yyval) = (yyvsp[-1]);
- }
- }
-#line 24022 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2070:
-#line 14023 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 24030 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2071:
-#line 14029 "parser.y" /* yacc.c:1646 */
- { (yyval) = CB_LIST_INIT ((yyvsp[0])); }
-#line 24036 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2072:
-#line 14031 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0])); }
-#line 24042 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2073:
-#line 14035 "parser.y" /* yacc.c:1646 */
- { check_non_area_a_of ("END-EVALUATE"); }
-#line 24048 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2074:
-#line 14041 "parser.y" /* yacc.c:1646 */
- {
- /* FIXME: build STMT_WHEN directly in the parser instead of
- in cb_build_evaluate, this will also provide the correct
- source location directly */
- (yyval) = CB_BUILD_CHAIN ((yyvsp[0]), (yyvsp[-1]));
- if (!is_valid_statement_tree ((yyvsp[0]))) {
- cb_error_x ((yyvsp[-1]), _("%s without imperative statement"), "WHEN");
- }
- eval_inc2 = 0;
- }
-#line 24063 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2075:
-#line 14052 "parser.y" /* yacc.c:1646 */
- {
- eval_inc2 = 0;
- cb_verify (cb_missing_statement,
- _("WHEN without imperative statement"));
- /* Note: we don't clear the EVALUATE terminator here
- as we'd have to skip this later
- [side effect: possible warning about missing terminator] */
- (yyval) = CB_BUILD_CHAIN (CB_LIST_INIT (cb_build_continue ()), (yyvsp[-1]));
- }
-#line 24077 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2076:
-#line 14062 "parser.y" /* yacc.c:1646 */
- {
- eval_inc2 = 0;
- cb_verify (cb_missing_statement,
- _("WHEN without imperative statement"));
- /* Put the dot token back into the stack for reparse */
- cb_unput_dot ();
- (yyval) = CB_BUILD_CHAIN (CB_LIST_INIT (cb_build_continue ()), (yyvsp[-1]));
- }
-#line 24090 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2077:
-#line 14074 "parser.y" /* yacc.c:1646 */
- {
- /* FIXME: build STMT_WHEN_OTHER directly in the parser instead of
- in cb_build_evaluate */
- check_non_area_a_of ("WHEN OTHER");
- (yyval) = cb_build_comment ("WHEN OTHER");
- }
-#line 24101 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2078:
-#line 14085 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_BUILD_CHAIN ((yyvsp[0]), NULL);
- if (!is_valid_statement_tree ((yyvsp[0]))) {
- cb_error_x ((yyvsp[-1]), _("%s without imperative statement"), "WHEN OTHER");
- }
- eval_inc2 = 0;
- }
-#line 24113 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2079:
-#line 14093 "parser.y" /* yacc.c:1646 */
- {
- eval_inc2 = 0;
- cb_verify_x ((yyvsp[-1]), cb_missing_statement,
- _("WHEN OTHER without imperative statement"));
- /* Note: we don't clear the EVALUATE terminator here
- as we'd have to skip this later
- [side effect: possible warning about missing terminator] */
- (yyval) = NULL;
- }
-#line 24127 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2080:
-#line 14103 "parser.y" /* yacc.c:1646 */
- {
- eval_inc2 = 0;
- cb_verify_x ((yyvsp[-1]), cb_missing_statement,
- _("WHEN OTHER without imperative statement"));
- /* Put the dot token back into the stack for reparse */
- cb_unput_dot ();
- (yyval) = NULL;
- }
-#line 24140 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2081:
-#line 14115 "parser.y" /* yacc.c:1646 */
- {
- /* FIXME: build STMT_WHEN directly in the parser instead of
- in cb_build_evaluate */
- check_non_area_a_of ("WHEN");
- (yyval) = cb_build_comment ("WHEN");
- }
-#line 24151 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2082:
-#line 14126 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_LIST_INIT ((yyvsp[0]));
- copy_pos ((yyval), (yyvsp[-1]));
- eval_inc2 = 0;
- }
-#line 24161 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2083:
-#line 14134 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_list_add ((yyvsp[-2]), (yyvsp[0]));
- copy_pos ((yyval), (yyvsp[-1]));
- eval_inc2 = 0;
- }
-#line 24171 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2084:
-#line 14142 "parser.y" /* yacc.c:1646 */
- { (yyval) = CB_LIST_INIT ((yyvsp[0])); }
-#line 24177 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2085:
-#line 14144 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_list_add ((yyvsp[-2]), (yyvsp[0])); }
-#line 24183 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2086:
-#line 14149 "parser.y" /* yacc.c:1646 */
- {
- cb_tree not0;
- cb_tree e1;
- cb_tree e2;
- cb_tree x;
- cb_tree parm1;
-
- not0 = cb_int0;
- e2 = (yyvsp[0]);
- x = NULL;
- parm1 = (yyvsp[-1]);
- if (eval_check[eval_level][eval_inc2]
- && eval_check[eval_level][eval_inc2] != cb_false) {
- /* Check if the first token is NOT */
- /* It may belong to the EVALUATE, however see */
- /* below when it may be part of a partial expression */
- if (CB_PURPOSE_INT (parm1) == '!') {
- /* Pop stack if subject not TRUE / FALSE */
- not0 = cb_int1;
- x = parm1;
- parm1 = CB_CHAIN (parm1);
- }
- /* Partial expression handling */
- switch (CB_PURPOSE_INT (parm1)) {
- /* Relational conditions */
- case '<':
- case '>':
- case '[':
- case ']':
- case '~':
- case '=':
- /* Class conditions */
- case '9':
- case 'A':
- case 'L':
- case 'U':
- case 'P':
- case 'N':
- case 'O':
- case 'C':
- if (e2) {
- cb_error_x (e2, _("invalid THROUGH usage"));
- e2 = NULL;
- }
- not0 = CB_PURPOSE (parm1);
- if (x) {
- /* Rebind the NOT to the partial expression */
- parm1 = cb_build_list (cb_int ('!'), NULL, parm1);
- }
- /* Insert subject at head of list */
- parm1 = cb_build_list (cb_int ('x'),
- eval_check[eval_level][eval_inc2], parm1);
- break;
- }
- }
-
- /* Build expr now */
- e1 = cb_build_expr (parm1);
-
- eval_inc2++;
- (yyval) = CB_BUILD_PAIR (not0, CB_BUILD_PAIR (e1, e2));
-
- if (eval_check[eval_level][eval_inc2-1] == cb_false) {
- /* It was EVALUATE FALSE; So flip condition */
- if (e1 == cb_true)
- e1 = cb_false;
- else if (e1 == cb_false)
- e1 = cb_true;
- }
- cb_terminate_cond ();
- cb_end_cond (e1);
- cb_save_cond ();
- cb_true_side ();
- }
-#line 24262 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2087:
-#line 14223 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_any; eval_inc2++; }
-#line 24268 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2088:
-#line 14224 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_true; eval_inc2++; }
-#line 24274 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2089:
-#line 14225 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_false; eval_inc2++; }
-#line 24280 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2090:
-#line 14226 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_error_node; eval_inc2++; }
-#line 24286 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2091:
-#line 14230 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 24292 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2092:
-#line 14231 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 24298 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2093:
-#line 14236 "parser.y" /* yacc.c:1646 */
- {
- TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), EVALUATE);
- }
-#line 24306 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2094:
-#line 14240 "parser.y" /* yacc.c:1646 */
- {
- TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), EVALUATE);
- }
-#line 24314 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2095:
-#line 14249 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_EXHIBIT, 0);
- line_column = NULL;
- cobc_cs_check = CB_CS_EXHIBIT;
- }
-#line 24324 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2096:
-#line 14255 "parser.y" /* yacc.c:1646 */
- {
- cobc_cs_check = 0;
- }
-#line 24332 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2097:
-#line 14262 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[0]) || !(yyvsp[-1])) {
- exhibit_named = 1;
- advancing_value = cb_int1;
- } else {
- exhibit_named = 0;
- }
- if ((yyvsp[-1])) {
- exhibit_changed = 1;
- /* TODO: feature for a later version (needs temporary fields,
- one per target, but not duplicated between multiple EXHIBIT) */
- CB_PENDING ("EXHIBIT CHANGED");
- /* note: literals are _always_ displayed, unchanged are replaced
- by spaces in full length (including the possible NAMED part) */
- } else {
- exhibit_changed = 0;
- }
- }
-#line 24355 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2098:
-#line 14281 "parser.y" /* yacc.c:1646 */
- {
- /* note: position-specifier, ERASE and UPON are MS-COBOL extensions,
- but we won't add an extra dialect option for this - if wanted
- we can add one for the position-specifier and use that for
- those clauses, too */
- if (upon_value != NULL) {
- /* TODO: come back to this MS-COBOL feature later */
- CB_PENDING ("EXHIBIT UPON");
- }
- if ((yyvsp[-2]) != NULL) {
- attach_attrib_to_cur_stmt ();
- current_statement->attr_ptr->dispattrs = COB_SCREEN_ERASE_EOS;
- }
- /* note: while MF does not do this, OSVS had empty line suppression for
- CHANGED - do the same ... later */
- cb_emit_display ((yyvsp[-1]), NULL, cb_int1, line_column,
- current_statement->attr_ptr,
- 0, DEVICE_DISPLAY);
- }
-#line 24379 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2099:
-#line 14302 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 24385 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2100:
-#line 14302 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int0; }
-#line 24391 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2101:
-#line 14303 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 24397 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2102:
-#line 14303 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int0; }
-#line 24403 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2103:
-#line 14304 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 24409 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2104:
-#line 14304 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int0; }
-#line 24415 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2105:
-#line 14308 "parser.y" /* yacc.c:1646 */
- {
- if (exhibit_named && !CB_LITERAL_P ((yyvsp[0]))) {
- (yyval) = CB_LIST_INIT (cb_exhbit_literal ((yyvsp[0])));
- (yyval) = cb_list_add ((yyval), (yyvsp[0]));
- } else {
- (yyval) = CB_LIST_INIT ((yyvsp[0]));
- }
- }
-#line 24428 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2106:
-#line 14317 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_list_add ((yyvsp[-1]), cb_space);
- if (exhibit_named && !CB_LITERAL_P ((yyvsp[0]))) {
- (yyval) = cb_list_add ((yyval), cb_exhbit_literal ((yyvsp[0])));
- }
- (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0]));
- }
-#line 24440 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2109:
-#line 14336 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_EXIT, 0);
- cobc_cs_check = CB_CS_EXIT;
- }
-#line 24449 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2110:
-#line 14341 "parser.y" /* yacc.c:1646 */
- {
- cobc_cs_check = 0;
- }
-#line 24457 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2111:
-#line 14348 "parser.y" /* yacc.c:1646 */
- {
- /* TODO: add dialect specific warning/error if there's another statement in
- the same sentence / procedure; if there is another statement _after_ this
- statement in the same procedure then the following generates bad code
- */
-
-#if 0 /* activating this code makes an "assumption" (see above) which is reasonable
- but not guaranteed to be correct, and breaks SQ21A and ST133A */
- /* Generate code for implicit exit of the last paragraph/section
- used with "PERFORM THRU" */
- if (current_paragraph) {
- emit_statement (cb_build_perform_exit (current_paragraph));
- }
- if (current_section) {
- emit_statement (cb_build_perform_exit (current_section));
- }
-#endif
-
- }
-#line 24481 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2112:
-#line 14368 "parser.y" /* yacc.c:1646 */
- {
- if (in_declaratives && use_global_ind) {
- cb_error_x (CB_TREE (current_statement),
- _("EXIT PROGRAM is not allowed within a USE GLOBAL procedure"));
- }
- if (current_program->prog_type != COB_MODULE_TYPE_PROGRAM) {
- cb_error_x (CB_TREE (current_statement),
- _("EXIT PROGRAM not allowed within a FUNCTION"));
- }
- if (current_program->flag_main) {
- check_unreached = 0;
- } else {
- check_unreached = 1;
- }
- current_statement->statement = STMT_EXIT_PROGRAM;
- cb_emit_exit (0);
- }
-#line 24503 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2113:
-#line 14386 "parser.y" /* yacc.c:1646 */
- {
- if (in_declaratives && use_global_ind) {
- cb_error_x (CB_TREE (current_statement),
- _("EXIT FUNCTION is not allowed within a USE GLOBAL procedure"));
- }
- if (current_program->prog_type != COB_MODULE_TYPE_FUNCTION) {
- cb_error_x (CB_TREE (current_statement),
- _("EXIT FUNCTION only allowed within a FUNCTION"));
- }
- check_unreached = 1;
- current_statement->statement = STMT_EXIT_FUNCTION;
- cb_emit_exit (0);
- }
-#line 24521 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2114:
-#line 14400 "parser.y" /* yacc.c:1646 */
- {
- struct cb_perform *p;
- cb_tree plabel;
- char name[64];
-
- if (!perform_stack) {
- cb_error_x (CB_TREE (current_statement),
- _("EXIT PERFORM is only valid with inline PERFORM"));
- } else if (CB_VALUE (perform_stack) != cb_error_node) {
- p = CB_PERFORM (CB_VALUE (perform_stack));
- if (!p->cycle_label) {
- sprintf (name, "EXIT PERFORM CYCLE %d", cb_id);
- p->cycle_label = cb_build_reference (name);
- plabel = cb_build_label (p->cycle_label, NULL);
- CB_LABEL (plabel)->flag_begin = 1;
- CB_LABEL (plabel)->flag_dummy_exit = 1;
- }
- current_statement->statement = STMT_EXIT_PERFORM_CYCLE;
- cb_emit_goto (CB_LIST_INIT (p->cycle_label), NULL);
- check_unreached = 1;
- }
- }
-#line 24548 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2115:
-#line 14423 "parser.y" /* yacc.c:1646 */
- {
- struct cb_perform *p;
- cb_tree plabel;
- char name[64];
-
- if (!perform_stack) {
- cb_error_x (CB_TREE (current_statement),
- _("EXIT PERFORM is only valid with inline PERFORM"));
- } else if (CB_VALUE (perform_stack) != cb_error_node) {
- p = CB_PERFORM (CB_VALUE (perform_stack));
- if (!p->exit_label) {
- sprintf (name, "EXIT PERFORM %d", cb_id);
- p->exit_label = cb_build_reference (name);
- plabel = cb_build_label (p->exit_label, NULL);
- CB_LABEL (plabel)->flag_begin = 1;
- CB_LABEL (plabel)->flag_dummy_exit = 1;
- }
- current_statement->statement = STMT_EXIT_PERFORM;
- cb_emit_goto (CB_LIST_INIT (p->exit_label), NULL);
- check_unreached = 1;
- }
- }
-#line 24575 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2116:
-#line 14446 "parser.y" /* yacc.c:1646 */
- {
- cb_tree plabel;
- char name[64];
-
- if (!current_section) {
- cb_error_x (CB_TREE (current_statement),
- _("EXIT SECTION is only valid with an active SECTION"));
- } else {
- if (!current_section->exit_label) {
- sprintf (name, "EXIT SECTION %d", cb_id);
- current_section->exit_label = cb_build_reference (name);
- plabel = cb_build_label (current_section->exit_label, NULL);
- CB_LABEL (plabel)->flag_begin = 1;
- CB_LABEL (plabel)->flag_dummy_exit = 1;
- }
- current_statement->statement = STMT_EXIT_SECTION;
- cb_emit_goto (CB_LIST_INIT (current_section->exit_label), NULL);
- check_unreached = 1;
- }
- }
-#line 24600 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2117:
-#line 14467 "parser.y" /* yacc.c:1646 */
- {
- cb_tree plabel;
- char name[64];
-
- if (!current_paragraph) {
- cb_error_x (CB_TREE (current_statement),
- _("EXIT PARAGRAPH is only valid with an active PARAGRAPH"));
- } else {
- if (!current_paragraph->exit_label) {
- sprintf (name, "EXIT PARAGRAPH %d", cb_id);
- current_paragraph->exit_label = cb_build_reference (name);
- plabel = cb_build_label (current_paragraph->exit_label, NULL);
- CB_LABEL (plabel)->flag_begin = 1;
- CB_LABEL (plabel)->flag_dummy_exit = 1;
- }
- current_statement->statement = STMT_EXIT_PARAGRAPH;
- cb_emit_goto (CB_LIST_INIT (current_paragraph->exit_label), NULL);
- check_unreached = 1;
- }
- }
-#line 24625 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2119:
-#line 14494 "parser.y" /* yacc.c:1646 */
- {
- if (!current_program->cb_return_code) {
- cb_error_x ((yyvsp[0]), _("RETURNING/GIVING not allowed for non-returning runtime elements"));
- } else {
- cb_emit_move ((yyvsp[0]), CB_LIST_INIT (current_program->cb_return_code));
- }
- }
-#line 24637 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2121:
-#line 14502 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("RAISE statement");
- }
-#line 24645 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2122:
-#line 14512 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_FREE, 0);
- current_statement->flag_no_based = 1;
- }
-#line 24654 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2124:
-#line 14521 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_free ((yyvsp[0]));
- }
-#line 24662 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2125:
-#line 14531 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_GENERATE, 0);
- }
-#line 24670 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2127:
-#line 14540 "parser.y" /* yacc.c:1646 */
- {
-#if 0 /* CHECKME: likely not needed */
- begin_implicit_statement (current_statement, (yyvsp[0]));
-#endif
- if ((yyvsp[0]) != cb_error_node) {
- cb_emit_generate ((yyvsp[0]));
- }
- }
-#line 24683 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2128:
-#line 14554 "parser.y" /* yacc.c:1646 */
- {
- if (!current_paragraph->flag_statement) {
- current_paragraph->flag_first_is_goto = 1;
- }
- begin_statement (STMT_GO_TO, 0);
- save_debug = start_debug;
- start_debug = 0;
- }
-#line 24696 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2130:
-#line 14567 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_goto ((yyvsp[-1]), (yyvsp[0]));
- start_debug = save_debug;
- }
-#line 24705 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2131:
-#line 14572 "parser.y" /* yacc.c:1646 */
- {
- if (cb_verify (cb_goto_entry, "ENTRY FOR GO TO")) {
- cb_emit_goto ((yyvsp[-1]), (yyvsp[0]));
- }
- start_debug = save_debug;
- }
-#line 24716 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2132:
-#line 14582 "parser.y" /* yacc.c:1646 */
- {
- check_unreached = 1;
- (yyval) = NULL;
- }
-#line 24725 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2133:
-#line 14587 "parser.y" /* yacc.c:1646 */
- {
- check_unreached = 0;
- (yyval) = (yyvsp[0]);
- }
-#line 24734 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2134:
-#line 14597 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_GOBACK, 0);
- }
-#line 24742 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2135:
-#line 14601 "parser.y" /* yacc.c:1646 */
- {
- check_unreached = 1;
- cb_emit_exit (1U);
- }
-#line 24751 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2136:
-#line 14612 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_IF, TERM_IF);
- }
-#line 24759 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2138:
-#line 14621 "parser.y" /* yacc.c:1646 */
- {
- check_non_area_a_of ("ELSE");
- (yyval) = cb_build_comment ("ELSE");
- }
-#line 24768 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2139:
-#line 14628 "parser.y" /* yacc.c:1646 */
- {
- if (is_valid_statement_tree ((yyvsp[0]))) {
- cb_emit_if ((yyvsp[(-1) - (5)]), (yyvsp[-3]), (yyvsp[0]));
- } else {
- cb_error_x ((yyvsp[-2]), _("%s without imperative statement"), "ELSE");
- }
- }
-#line 24780 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2140:
-#line 14636 "parser.y" /* yacc.c:1646 */
- {
- cb_verify_x (CB_TREE (current_statement),
- cb_missing_statement,
- _("IF without imperative statement"));
- if (is_valid_statement_tree ((yyvsp[0]))) {
- cb_emit_if ((yyvsp[(-1) - (3)]), NULL, (yyvsp[0]));
- } else {
- cb_error_x ((yyvsp[-2]), _("%s without imperative statement"), "ELSE");
- }
- }
-#line 24795 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2141:
-#line 14647 "parser.y" /* yacc.c:1646 */
- {
- if (is_valid_statement_tree ((yyvsp[0]))) {
- cb_emit_if ((yyvsp[(-1) - (2)]), (yyvsp[0]), NULL);
- } else {
- cb_error_x (CB_TREE (current_statement),
- _("%s without imperative statement"), "IF");
- }
- }
-#line 24808 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2142:
-#line 14658 "parser.y" /* yacc.c:1646 */
- {
- cb_save_cond ();
- }
-#line 24816 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2143:
-#line 14662 "parser.y" /* yacc.c:1646 */
- {
- check_non_area_a_of ("THEN");
- cb_save_cond ();
- }
-#line 24825 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2144:
-#line 14669 "parser.y" /* yacc.c:1646 */
- {
- cb_true_side ();
- }
-#line 24833 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2145:
-#line 14675 "parser.y" /* yacc.c:1646 */
- {
- cb_false_side ();
- }
-#line 24841 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2146:
-#line 14682 "parser.y" /* yacc.c:1646 */
- {
- TERMINATOR_WARNING ((yyvsp[(-4) - (0)]), IF);
- cb_terminate_cond ();
- }
-#line 24850 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2147:
-#line 14687 "parser.y" /* yacc.c:1646 */
- {
- check_non_area_a_of ("END-IF");
- TERMINATOR_CLEAR ((yyvsp[(-4) - (1)]), IF);
- cb_terminate_cond ();
- }
-#line 24860 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2148:
-#line 14699 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_INITIALIZE, 0);
- }
-#line 24868 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2150:
-#line 14708 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_initialize ((yyvsp[-4]), (yyvsp[-3]), (yyvsp[-2]), (yyvsp[-1]), (yyvsp[0]));
- }
-#line 24876 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2151:
-#line 14714 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 24882 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2152:
-#line 14715 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_true; }
-#line 24888 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2153:
-#line 14719 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 24894 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2154:
-#line 14720 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_true; }
-#line 24900 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2155:
-#line 14721 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[-2]); }
-#line 24906 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2156:
-#line 14726 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 24914 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2157:
-#line 14730 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 24922 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2158:
-#line 14737 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 24930 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2159:
-#line 14742 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_list_append ((yyvsp[-1]), (yyvsp[0]));
- }
-#line 24938 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2160:
-#line 14749 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_BUILD_PAIR ((yyvsp[-3]), (yyvsp[0]));
- }
-#line 24946 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2161:
-#line 14755 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int (CB_CATEGORY_ALPHABETIC); }
-#line 24952 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2162:
-#line 14756 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int (CB_CATEGORY_ALPHANUMERIC); }
-#line 24958 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2163:
-#line 14757 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int (CB_CATEGORY_NUMERIC); }
-#line 24964 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2164:
-#line 14758 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int (CB_CATEGORY_ALPHANUMERIC_EDITED); }
-#line 24970 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2165:
-#line 14759 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int (CB_CATEGORY_NUMERIC_EDITED); }
-#line 24976 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2166:
-#line 14760 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int (CB_CATEGORY_NATIONAL); }
-#line 24982 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2167:
-#line 14761 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int (CB_CATEGORY_NATIONAL_EDITED); }
-#line 24988 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2168:
-#line 14773 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 24996 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2169:
-#line 14777 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_true;
- }
-#line 25004 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2170:
-#line 14786 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_INITIATE, 0);
- }
-#line 25012 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2172:
-#line 14794 "parser.y" /* yacc.c:1646 */
- {
-#if 0 /* CHECKME: likely not needed */
- begin_implicit_statement (current_statement, (yyvsp[0]));
-#endif
- if ((yyvsp[0]) != cb_error_node) {
- cb_emit_initiate ((yyvsp[0]));
- }
- }
-#line 25025 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2173:
-#line 14803 "parser.y" /* yacc.c:1646 */
- {
- begin_implicit_statement (current_statement, (yyvsp[0]));
- if ((yyvsp[0]) != cb_error_node) {
- cb_emit_initiate ((yyvsp[0]));
- }
- }
-#line 25036 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2174:
-#line 14815 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_INQUIRE, 0);
- cobc_cs_check = CB_CS_INQUIRE_MODIFY;
- }
-#line 25045 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2175:
-#line 14820 "parser.y" /* yacc.c:1646 */
- {
- cobc_cs_check = 0;
- }
-#line 25053 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2178:
-#line 14834 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_INSPECT, 0);
- inspect_keyword = INSPECT_REP_DEFAULT;
- }
-#line 25062 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2180:
-#line 14843 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[-2])) {
- CB_PENDING ("INSPECT BACKWARD");
- }
- }
-#line 25072 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2181:
-#line 14851 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 25078 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2182:
-#line 14852 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int0; }
-#line 25084 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2190:
-#line 14872 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_EXAMINE, 0);
- }
-#line 25092 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2192:
-#line 14881 "parser.y" /* yacc.c:1646 */
- {
- cb_tree tally = cb_ref (cb_build_reference ("TALLY"));
- cb_emit_move (cb_zero, CB_LIST_INIT (tally));
- cb_init_tallying ();
- cb_build_tallying_data (tally);
- }
-#line 25103 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2193:
-#line 14889 "parser.y" /* yacc.c:1646 */
- {
- cb_tree x = (yyvsp[-1]), replacing_to = (yyvsp[0]);
- cb_tree t, r = cb_build_inspect_region_start ();
- switch (examine_keyword.tallying) {
- case EXAMINE_TAL_ALL:
- cb_build_tallying_all ();
- t = cb_build_tallying_value (x, r);
- break;
- case EXAMINE_TAL_LEADING:
- cb_build_tallying_leading ();
- t = cb_build_tallying_value (x, r);
- break;
- case EXAMINE_TAL_UNTIL_FIRST:
- r = cb_list_add (r, CB_BUILD_FUNCALL_1 ("cob_inspect_before", x));
- t = cb_build_tallying_characters (r);
- break;
- /* LCOV_EXCL_START */
- default:
- /* This should never happen (and therefore doesn't get a translation) */
- cb_error ("unexpected EXAMINE TALLYING %d", examine_keyword.tallying);
- COBC_ABORT ();
- /* LCOV_EXCL_STOP */
- }
- cb_emit_inspect ((yyvsp[-5]), t, TALLYING_CLAUSE);
- if (replacing_to) {
- r = cb_build_inspect_region_start ();
- switch (examine_keyword.tallying) {
- case EXAMINE_TAL_ALL:
- t = cb_build_replacing_all (x, replacing_to, r);
- break;
- case EXAMINE_TAL_LEADING:
- t = cb_build_replacing_leading (x, replacing_to, r);
- break;
- case EXAMINE_TAL_UNTIL_FIRST:
- r = cb_list_add (r, CB_BUILD_FUNCALL_1 ("cob_inspect_before", x));
- t = cb_build_replacing_characters (replacing_to, r);
- break;
- }
- cb_emit_inspect ((yyvsp[-5]), t, REPLACING_CLAUSE);
- }
- }
-#line 25149 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2194:
-#line 14932 "parser.y" /* yacc.c:1646 */
- {
- cb_tree from = (yyvsp[-2]), to = (yyvsp[0]);
- cb_tree t, r = cb_build_inspect_region_start ();
- switch (examine_keyword.replacing) {
- case EXAMINE_REP_ALL:
- t = cb_build_replacing_all (from, to, r);
- break;
- case EXAMINE_REP_LEADING:
- t = cb_build_replacing_leading (from, to, r);
- break;
- case EXAMINE_REP_FIRST:
- t = cb_build_replacing_first (from, to, r);
- break;
- case EXAMINE_REP_UNTIL_FIRST:
- r = cb_list_add (r, CB_BUILD_FUNCALL_1 ("cob_inspect_before", from));
- t = cb_build_replacing_characters (to, r);
- break;
- /* LCOV_EXCL_START */
- default:
- /* This should never happen (and therefore doesn't get a translation) */
- cb_error ("unexpected EXAMINE REPLACING %d", examine_keyword.replacing);
- COBC_ABORT ();
- /* LCOV_EXCL_STOP */
- }
- cb_emit_inspect ((yyvsp[-5]), t, REPLACING_CLAUSE);
- }
-#line 25180 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2195:
-#line 14961 "parser.y" /* yacc.c:1646 */
- { examine_keyword.tallying = EXAMINE_TAL_ALL; }
-#line 25186 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2196:
-#line 14962 "parser.y" /* yacc.c:1646 */
- { examine_keyword.tallying = EXAMINE_TAL_LEADING; }
-#line 25192 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2197:
-#line 14963 "parser.y" /* yacc.c:1646 */
- { examine_keyword.tallying = EXAMINE_TAL_UNTIL_FIRST; }
-#line 25198 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2198:
-#line 14967 "parser.y" /* yacc.c:1646 */
- { examine_keyword.replacing = EXAMINE_REP_ALL; }
-#line 25204 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2199:
-#line 14968 "parser.y" /* yacc.c:1646 */
- { examine_keyword.replacing = EXAMINE_REP_LEADING; }
-#line 25210 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2200:
-#line 14969 "parser.y" /* yacc.c:1646 */
- { examine_keyword.replacing = EXAMINE_REP_FIRST; }
-#line 25216 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2201:
-#line 14970 "parser.y" /* yacc.c:1646 */
- { examine_keyword.replacing = EXAMINE_REP_UNTIL_FIRST; }
-#line 25222 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2202:
-#line 14974 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 25228 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2203:
-#line 14975 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 25234 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2204:
-#line 14980 "parser.y" /* yacc.c:1646 */
- {
- if (CB_LITERAL_P ((yyvsp[0])) && CB_LITERAL ((yyvsp[0]))->size != 1) {
- cb_error_x ((yyvsp[0]), _("single-character literal or data item expected"));
- }
- (yyval) = (yyvsp[0]);
- }
-#line 25245 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2205:
-#line 14987 "parser.y" /* yacc.c:1646 */
- {
- struct cb_reference * const r =
- CB_REFERENCE_P ((yyvsp[0])) ? CB_REFERENCE ((yyvsp[0])) : NULL;
- if (!r || CB_FIELD_PTR ((yyvsp[0]))->size != 1) {
- cb_error_x ((yyvsp[0]), _("single-character literal or data item expected"));
- }
- (yyval) = (yyvsp[0]);
- }
-#line 25258 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2206:
-#line 15001 "parser.y" /* yacc.c:1646 */
- {
- previous_tallying_phrase = NO_PHRASE;
- cb_init_tallying ();
- }
-#line 25267 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2207:
-#line 15006 "parser.y" /* yacc.c:1646 */
- {
- if (!(previous_tallying_phrase == CHARACTERS_PHRASE
- || previous_tallying_phrase == VALUE_REGION_PHRASE)) {
- cb_error (_("TALLYING clause is incomplete"));
- } else {
- cb_emit_inspect ((yyvsp[-3]), (yyvsp[0]), TALLYING_CLAUSE);
- }
-
- (yyval) = (yyvsp[-3]);
- }
-#line 25282 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2208:
-#line 15022 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_inspect ((yyvsp[-2]), (yyvsp[0]), REPLACING_CLAUSE);
- inspect_keyword = INSPECT_REP_DEFAULT;
- }
-#line 25291 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2209:
-#line 15032 "parser.y" /* yacc.c:1646 */
- {
- cb_tree x = cb_build_converting ((yyvsp[-3]), (yyvsp[-1]), (yyvsp[0]));
- cb_emit_inspect ((yyvsp[-5]), x, CONVERTING_CLAUSE);
- }
-#line 25300 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2210:
-#line 15040 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 25308 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2211:
-#line 15044 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_list_append ((yyvsp[-1]), (yyvsp[0]));
- }
-#line 25316 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2212:
-#line 15051 "parser.y" /* yacc.c:1646 */
- {
- check_preceding_tallying_phrases (FOR_PHRASE);
- (yyval) = cb_build_tallying_data ((yyvsp[-1]));
- }
-#line 25325 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2213:
-#line 15056 "parser.y" /* yacc.c:1646 */
- {
- check_preceding_tallying_phrases (CHARACTERS_PHRASE);
- (yyval) = cb_build_tallying_characters ((yyvsp[0]));
- }
-#line 25334 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2214:
-#line 15061 "parser.y" /* yacc.c:1646 */
- {
- check_preceding_tallying_phrases (ALL_LEADING_TRAILING_PHRASES);
- (yyval) = cb_build_tallying_all ();
- }
-#line 25343 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2215:
-#line 15066 "parser.y" /* yacc.c:1646 */
- {
- check_preceding_tallying_phrases (ALL_LEADING_TRAILING_PHRASES);
- (yyval) = cb_build_tallying_leading ();
- }
-#line 25352 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2216:
-#line 15071 "parser.y" /* yacc.c:1646 */
- {
- check_preceding_tallying_phrases (ALL_LEADING_TRAILING_PHRASES);
- (yyval) = cb_build_tallying_trailing ();
- }
-#line 25361 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2217:
-#line 15076 "parser.y" /* yacc.c:1646 */
- {
- check_preceding_tallying_phrases (VALUE_REGION_PHRASE);
- (yyval) = cb_build_tallying_value ((yyvsp[-1]), (yyvsp[0]));
- }
-#line 25370 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2218:
-#line 15083 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 25376 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2219:
-#line 15084 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_list_append ((yyvsp[-1]), (yyvsp[0])); }
-#line 25382 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2220:
-#line 15089 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_replacing_characters ((yyvsp[-1]), (yyvsp[0]));
- inspect_keyword = INSPECT_REP_DEFAULT;
- }
-#line 25391 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2221:
-#line 15094 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 25399 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2223:
-#line 15101 "parser.y" /* yacc.c:1646 */
- { inspect_keyword = INSPECT_REP_ALL; }
-#line 25405 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2224:
-#line 15102 "parser.y" /* yacc.c:1646 */
- { inspect_keyword = INSPECT_REP_LEADING; }
-#line 25411 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2225:
-#line 15103 "parser.y" /* yacc.c:1646 */
- { inspect_keyword = INSPECT_REP_FIRST; }
-#line 25417 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2226:
-#line 15104 "parser.y" /* yacc.c:1646 */
- { inspect_keyword = INSPECT_REP_TRAILING; }
-#line 25423 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2227:
-#line 15109 "parser.y" /* yacc.c:1646 */
- {
- switch (inspect_keyword) {
- case INSPECT_REP_ALL:
- (yyval) = cb_build_replacing_all ((yyvsp[-3]), (yyvsp[-1]), (yyvsp[0]));
- break;
- case INSPECT_REP_LEADING:
- (yyval) = cb_build_replacing_leading ((yyvsp[-3]), (yyvsp[-1]), (yyvsp[0]));
- break;
- case INSPECT_REP_FIRST:
- (yyval) = cb_build_replacing_first ((yyvsp[-3]), (yyvsp[-1]), (yyvsp[0]));
- break;
- case INSPECT_REP_TRAILING:
- (yyval) = cb_build_replacing_trailing ((yyvsp[-3]), (yyvsp[-1]), (yyvsp[0]));
- break;
- default:
- cb_error_x (CB_TREE (current_statement),
- _("INSPECT missing ALL/FIRST/LEADING/TRAILING"));
- (yyval) = cb_build_replacing_all ((yyvsp[-3]), (yyvsp[-1]), (yyvsp[0]));
- break;
- }
- }
-#line 25449 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2228:
-#line 15136 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_inspect_region_start ();
- }
-#line 25457 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2229:
-#line 15140 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_list_add (cb_build_inspect_region_start (), (yyvsp[0]));
- }
-#line 25465 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2230:
-#line 15144 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_list_add (cb_build_inspect_region_start (), (yyvsp[0]));
- }
-#line 25473 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2231:
-#line 15148 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_list_add (cb_list_add (cb_build_inspect_region_start (), (yyvsp[-1])), (yyvsp[0]));
- }
-#line 25481 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2232:
-#line 15152 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_list_add (cb_list_add (cb_build_inspect_region_start (), (yyvsp[-1])), (yyvsp[0]));
- }
-#line 25489 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2233:
-#line 15159 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_BUILD_FUNCALL_1 ("cob_inspect_before", (yyvsp[0]));
- }
-#line 25497 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2234:
-#line 15166 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_BUILD_FUNCALL_1 ("cob_inspect_after", (yyvsp[0]));
- }
-#line 25505 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2235:
-#line 15173 "parser.y" /* yacc.c:1646 */
- { check_non_area_a ((yyvsp[0])); }
-#line 25511 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2236:
-#line 15176 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_JSON_GENERATE, TERM_JSON);
- cobc_in_json_generate_body = 1;
- cobc_cs_check = CB_CS_JSON_GENERATE;
- cb_set_register_receiving (current_program->json_code, 1);
- }
-#line 25522 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2238:
-#line 15189 "parser.y" /* yacc.c:1646 */
- {
- ml_suppress_list = NULL;
- }
-#line 25530 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2239:
-#line 15194 "parser.y" /* yacc.c:1646 */
- {
- cobc_in_json_generate_body = 0;
- cobc_cs_check = 0;
- }
-#line 25539 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2240:
-#line 15199 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_json_generate ((yyvsp[-8]), (yyvsp[-6]), (yyvsp[-5]), (yyvsp[-3]), ml_suppress_list);
- }
-#line 25547 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2241:
-#line 15205 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 25553 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2242:
-#line 15206 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 25559 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2245:
-#line 15216 "parser.y" /* yacc.c:1646 */
- {
- error_if_following_every_clause ();
- add_identifier_to_ml_suppress_conds ((yyvsp[0]));
- }
-#line 25568 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2246:
-#line 15224 "parser.y" /* yacc.c:1646 */
- {
- TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), JSON);
- }
-#line 25576 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2247:
-#line 15228 "parser.y" /* yacc.c:1646 */
- {
- TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), JSON);
- }
-#line 25584 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2248:
-#line 15237 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_JSON_PARSE, TERM_JSON);
- CB_PENDING ("JSON PARSE");
- cb_set_register_receiving (current_program->json_code, 1);
- cb_set_register_receiving (current_program->json_status, 1);
- }
-#line 25595 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2250:
-#line 15253 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("JSON PARSE");
- }
-#line 25603 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2251:
-#line 15259 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 25609 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2252:
-#line 15260 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int0; }
-#line 25615 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2253:
-#line 15267 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_MERGE, 0);
- }
-#line 25623 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2255:
-#line 15278 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_MODIFY, TERM_MODIFY);
- cobc_cs_check = CB_CS_INQUIRE_MODIFY;
- }
-#line 25632 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2256:
-#line 15284 "parser.y" /* yacc.c:1646 */
- {
- cobc_cs_check = 0;
- }
-#line 25640 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2259:
-#line 15296 "parser.y" /* yacc.c:1646 */
- {
- TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), MODIFY);
- }
-#line 25648 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2260:
-#line 15300 "parser.y" /* yacc.c:1646 */
- {
- check_non_area_a_of ("END-MODIFY");
- TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), MODIFY);
- }
-#line 25657 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2261:
-#line 15311 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_MOVE, 0);
- }
-#line 25665 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2263:
-#line 15319 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_move ((yyvsp[-2]), (yyvsp[0]));
- }
-#line 25673 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2264:
-#line 15323 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_move_corresponding ((yyvsp[-2]), (yyvsp[0]));
- }
-#line 25681 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2265:
-#line 15333 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_MULTIPLY, TERM_MULTIPLY);
- }
-#line 25689 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2267:
-#line 15342 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_arithmetic ((yyvsp[-1]), '*', (yyvsp[-3]));
- }
-#line 25697 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2268:
-#line 15346 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_arithmetic ((yyvsp[-1]), 0, cb_build_binary_op ((yyvsp[-5]), '*', (yyvsp[-3])));
- }
-#line 25705 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2269:
-#line 15353 "parser.y" /* yacc.c:1646 */
- {
- TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), MULTIPLY);
- }
-#line 25713 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2270:
-#line 15357 "parser.y" /* yacc.c:1646 */
- {
- check_non_area_a_of ("END-MULTIPLY");
- TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), MULTIPLY);
- }
-#line 25722 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2271:
-#line 15368 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_OPEN, 0);
- cobc_cs_check = CB_CS_OPEN;
- }
-#line 25731 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2275:
-#line 15382 "parser.y" /* yacc.c:1646 */
- {
- cb_tree l;
- cb_tree x;
- struct cb_statement * top_statement = current_statement ;
-
- if (((yyvsp[-5]) && (yyvsp[-3])) || ((yyvsp[-5]) && (yyvsp[0])) || ((yyvsp[-3]) && (yyvsp[0]))) {
- cb_error_x (CB_TREE (current_statement),
- _("%s and %s are mutually exclusive"), "SHARING", _("LOCK clauses"));
- }
- if ((yyvsp[0])) {
- x = (yyvsp[0]);
- } else if ((yyvsp[-3])) {
- x = (yyvsp[-3]);
- } else {
- x = (yyvsp[-5]);
- }
-
- for (l = (yyvsp[-1]); l; l = CB_CHAIN (l)) {
- if (CB_VALID_TREE (CB_VALUE (l))) {
- begin_implicit_statement (top_statement, CB_VALUE(l));
- cb_emit_open (CB_VALUE (l), (yyvsp[-4]), x);
- }
- }
- }
-#line 25760 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2276:
-#line 15410 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 25766 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2277:
-#line 15411 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int (COB_LOCK_OPEN_EXCLUSIVE); }
-#line 25772 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2278:
-#line 15415 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int (COB_OPEN_INPUT); }
-#line 25778 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2279:
-#line 15416 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int (COB_OPEN_OUTPUT); }
-#line 25784 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2280:
-#line 15417 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int (COB_OPEN_I_O); }
-#line 25790 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2281:
-#line 15418 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int (COB_OPEN_EXTEND); }
-#line 25796 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2282:
-#line 15422 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 25802 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2283:
-#line 15423 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 25808 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2284:
-#line 15427 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 25814 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2285:
-#line 15428 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 25820 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2286:
-#line 15429 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 25826 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2287:
-#line 15433 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[-1]); }
-#line 25832 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2288:
-#line 15435 "parser.y" /* yacc.c:1646 */
- {
- (void)cb_verify (CB_OBSOLETE, "OPEN LEAVE/REREAD/DISP");
- (yyval) = NULL;
- }
-#line 25841 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2289:
-#line 15442 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 25847 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2290:
-#line 15443 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 25853 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2291:
-#line 15447 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int (COB_LOCK_OPEN_EXCLUSIVE); }
-#line 25859 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2292:
-#line 15449 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int (COB_LOCK_OPEN_EXCLUSIVE);
- /* TODO: check for indexed; pass extra flag to fileio */
- CB_PENDING ("WITH MASS-UPDATE");
- }
-#line 25869 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2293:
-#line 15455 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int (COB_LOCK_OPEN_EXCLUSIVE);
- /* TODO: check for indexed; pass extra flag to fileio */
- CB_PENDING ("WITH BULK-ADDITION");
- }
-#line 25879 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2294:
-#line 15463 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int (COB_LOCK_OPEN_EXCLUSIVE); }
-#line 25885 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2295:
-#line 15464 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 25891 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2296:
-#line 15465 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 25897 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2300:
-#line 15477 "parser.y" /* yacc.c:1646 */
- {
- /* FIXME: only allow for sequential files */
- /* FIXME: only allow with INPUT or OUTPUT */
- CB_PENDING ("OPEN WITH NO REWIND");
- (yyval) = NULL;
- }
-#line 25908 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2301:
-#line 15484 "parser.y" /* yacc.c:1646 */
- {
- /* FIXME: only allow for sequential / line-sequential files */
- /* FIXME: only allow with INPUT */
- /* FIXME: add actual compiler configuration */
- if (get_warn_opt_value (cb_warn_obsolete) == COBC_WARN_AS_ERROR) {
- (void)cb_verify (CB_OBSOLETE, "OPEN REVERSED");
- } else {
- /* FIXME: set file attribute */
- CB_PENDING ("OPEN REVERSED");
- };
- (yyval) = NULL;
- }
-#line 25925 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2305:
-#line 15507 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_PERFORM, TERM_PERFORM);
- /* Turn off field debug - PERFORM is special */
- save_debug = start_debug;
- start_debug = 0;
- cobc_cs_check = CB_CS_PERFORM;
- }
-#line 25937 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2307:
-#line 15522 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_perform ((yyvsp[0]), (yyvsp[-2]), (yyvsp[-3]), (yyvsp[-1]));
- start_debug = save_debug;
- cobc_cs_check = 0;
- }
-#line 25947 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2308:
-#line 15530 "parser.y" /* yacc.c:1646 */
- {
- CB_ADD_TO_CHAIN ((yyvsp[-1]), perform_stack);
- /* Restore field debug before inline statements */
- start_debug = save_debug;
- cobc_cs_check = 0;
- }
-#line 25958 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2309:
-#line 15537 "parser.y" /* yacc.c:1646 */
- {
- perform_stack = CB_CHAIN (perform_stack);
- cb_emit_perform ((yyvsp[-4]), (yyvsp[-1]), (yyvsp[-5]), (yyvsp[-3]));
- }
-#line 25967 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2310:
-#line 15544 "parser.y" /* yacc.c:1646 */
- {
- cb_verify (cb_missing_statement,
- _("inline PERFORM without imperative statement"));
- }
-#line 25976 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2311:
-#line 15549 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_perform ((yyvsp[-3]), NULL, (yyvsp[-4]), (yyvsp[-2]));
- start_debug = save_debug;
- cobc_cs_check = 0;
- }
-#line 25986 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2312:
-#line 15558 "parser.y" /* yacc.c:1646 */
- {
- if (cb_relaxed_syntax_checks) {
- TERMINATOR_WARNING ((yyvsp[(-6) - (0)]), PERFORM);
- } else {
- TERMINATOR_ERROR ((yyvsp[(-6) - (0)]), PERFORM);
- }
- }
-#line 25998 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2313:
-#line 15566 "parser.y" /* yacc.c:1646 */
- {
- check_non_area_a_of ("END-PERFORM");
- TERMINATOR_CLEAR ((yyvsp[(-6) - (1)]), PERFORM);
- }
-#line 26007 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2314:
-#line 15574 "parser.y" /* yacc.c:1646 */
- {
- check_non_area_a_of ("END-PERFORM");
- TERMINATOR_CLEAR ((yyvsp[(-5) - (1)]), PERFORM);
- }
-#line 26016 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2315:
-#line 15579 "parser.y" /* yacc.c:1646 */
- {
- if (cb_relaxed_syntax_checks) {
- TERMINATOR_WARNING ((yyvsp[(-5) - (1)]), PERFORM);
- } else {
- TERMINATOR_ERROR ((yyvsp[(-5) - (1)]), PERFORM);
- }
- /* Put the dot token back into the stack for reparse */
- cb_unput_dot ();
- }
-#line 26030 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2316:
-#line 15592 "parser.y" /* yacc.c:1646 */
- {
- /* Return from $1 */
- CB_REFERENCE ((yyvsp[0]))->length = cb_true;
- (yyval) = CB_BUILD_PAIR ((yyvsp[0]), (yyvsp[0]));
- }
-#line 26040 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2317:
-#line 15598 "parser.y" /* yacc.c:1646 */
- {
- /* Return from $3 */
- CB_REFERENCE ((yyvsp[0]))->length = cb_true;
- (yyval) = CB_BUILD_PAIR ((yyvsp[-2]), (yyvsp[0]));
- current_program->perform_thru_list =
- cb_list_add (current_program->perform_thru_list, (yyval));
- }
-#line 26052 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2318:
-#line 15609 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_perform_once (NULL);
- }
-#line 26060 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2319:
-#line 15613 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_perform_times ((yyvsp[-1]));
- current_program->loop_counter++;
- }
-#line 26069 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2320:
-#line 15618 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_perform_forever (NULL);
- }
-#line 26077 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2321:
-#line 15622 "parser.y" /* yacc.c:1646 */
- {
- cb_tree varying;
-
- if (!(yyvsp[0])) {
- (yyval) = cb_build_perform_forever (NULL);
- } else {
- if ((yyvsp[-2]) == CB_AFTER) {
- cb_build_perform_after_until ();
- }
- varying = CB_LIST_INIT (cb_build_perform_varying (NULL, NULL, NULL, (yyvsp[0])));
- (yyval) = cb_build_perform_until ((yyvsp[-2]), varying);
- }
- }
-#line 26095 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2322:
-#line 15636 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_perform_until ((yyvsp[-2]), (yyvsp[0]));
- }
-#line 26103 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2323:
-#line 15642 "parser.y" /* yacc.c:1646 */
- { (yyval) = CB_BEFORE; }
-#line 26109 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2324:
-#line 15643 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 26115 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2325:
-#line 15647 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 26121 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2326:
-#line 15648 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 26127 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2327:
-#line 15651 "parser.y" /* yacc.c:1646 */
- { (yyval) = CB_LIST_INIT ((yyvsp[0])); }
-#line 26133 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2328:
-#line 15653 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_list_add ((yyvsp[-2]), (yyvsp[0])); }
-#line 26139 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2329:
-#line 15658 "parser.y" /* yacc.c:1646 */
- {
- cb_tree x;
- int data_type_ok = 1;
-
- if ((yyvsp[-5]) != cb_error_node
- && (yyvsp[-3]) != cb_error_node
- && (yyvsp[-2]) != cb_error_node) {
-
- if (cb_tree_category ((yyvsp[-5])) != CB_CATEGORY_NUMERIC) {
- x = cb_ref ((yyvsp[-5]));
- cb_error_x (CB_TREE (current_statement),
- _("PERFORM VARYING '%s' (line %d of %s) is not a numeric field"),
- cb_name (x),x->source_line, x->source_file);
- (yyval) = cb_int1;
- data_type_ok = 0;
- }
- if (cb_tree_category ((yyvsp[-3])) != CB_CATEGORY_NUMERIC) {
- x = cb_ref ((yyvsp[-3]));
- cb_error_x (CB_TREE (current_statement),
- _("PERFORM VARYING '%s' (line %d of %s) is not a numeric field"),
- cb_name (x),x->source_line, x->source_file);
- (yyval) = cb_int1;
- data_type_ok = 0;
- }
- if (cb_tree_category ((yyvsp[-2])) != CB_CATEGORY_NUMERIC) {
- x = cb_ref ((yyvsp[-2]));
- cb_error_x (CB_TREE (current_statement),
- _("PERFORM VARYING '%s' (line %d of %s) is not a numeric field"),
- cb_name (x),x->source_line, x->source_file);
- (yyval) = cb_int1;
- data_type_ok = 0;
- }
-
- if (data_type_ok) {
- (yyval) = cb_build_perform_varying ((yyvsp[-5]), (yyvsp[-3]), (yyvsp[-2]), (yyvsp[0]));
- }
- }
- }
-#line 26182 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2330:
-#line 15700 "parser.y" /* yacc.c:1646 */
- {
- cb_verify (cb_perform_varying_without_by, _("PERFORM VARYING without BY phrase"));
- (yyval) = cb_build_numeric_literal (0, "1", 0);
- }
-#line 26191 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2331:
-#line 15705 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 26199 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2332:
-#line 15714 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_PURGE, 0);
- }
-#line 26207 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2333:
-#line 15718 "parser.y" /* yacc.c:1646 */
- {
- }
-#line 26214 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2334:
-#line 15726 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_RAISE, 0);
- }
-#line 26222 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2336:
-#line 15734 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("RAISE statement");
- /* TODO: check for level 3 error here */
- }
-#line 26231 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2337:
-#line 15739 "parser.y" /* yacc.c:1646 */
- {
- /* easy cheating here as we don't have any OO in */
- cb_error(_("'%s' is not an object-reference"), cb_name ((yyvsp[0])));
- }
-#line 26240 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2338:
-#line 15748 "parser.y" /* yacc.c:1646 */
- {
- /* TODO:
- cb_tree exception = get_exception (CB_NAME($1));
- if (!exception) {
- cb_error (_("'%s' is not an exception-name"), CB_NAME ($1));
- }
- */
- }
-#line 26253 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2339:
-#line 15762 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_READ, TERM_READ);
- cobc_cs_check = CB_CS_READ;
- }
-#line 26262 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2341:
-#line 15772 "parser.y" /* yacc.c:1646 */
- {
- cobc_cs_check = 0;
-
- if (CB_VALID_TREE ((yyvsp[-6]))) {
- struct cb_file *cf;
-
- cf = CB_FILE(cb_ref ((yyvsp[-6])));
- if ((yyvsp[-2]) && (cf->lock_mode & COB_LOCK_AUTOMATIC)) {
- cb_error_x (CB_TREE (current_statement),
- _("LOCK clause invalid with file LOCK AUTOMATIC"));
- } else if ((yyvsp[-1]) &&
- (cf->organization != COB_ORG_RELATIVE &&
- cf->organization != COB_ORG_INDEXED)) {
- cb_error_x (CB_TREE (current_statement),
- _("KEY clause invalid with this file type"));
- } else if (current_statement->handler_type == INVALID_KEY_HANDLER &&
- (cf->organization != COB_ORG_RELATIVE &&
- cf->organization != COB_ORG_INDEXED)) {
- cb_error_x (CB_TREE (current_statement),
- _("INVALID KEY clause invalid with this file type"));
- } else {
- cb_emit_read ((yyvsp[-6]), (yyvsp[-5]), (yyvsp[-3]), (yyvsp[-1]), (yyvsp[-2]));
- }
- }
- }
-#line 26292 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2342:
-#line 15800 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 26298 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2343:
-#line 15801 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 26304 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2344:
-#line 15806 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 26312 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2345:
-#line 15810 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int3;
- }
-#line 26320 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2346:
-#line 15814 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 26328 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2347:
-#line 15818 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 26336 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2350:
-#line 15830 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("ADVANCING ON LOCK");
- }
-#line 26344 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2354:
-#line 15843 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("RETRY");
- cobc_cs_check = 0;
- }
-#line 26353 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2358:
-#line 15857 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 26359 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2360:
-#line 15863 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 26367 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2361:
-#line 15867 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int5;
- }
-#line 26375 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2362:
-#line 15871 "parser.y" /* yacc.c:1646 */
- {
- /* TODO: Merge with RETRY phrase */
- (yyval) = cb_int4;
- }
-#line 26384 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2363:
-#line 15878 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 26390 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2364:
-#line 15879 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 26396 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2367:
-#line 15889 "parser.y" /* yacc.c:1646 */
- {
- TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), READ);
- }
-#line 26404 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2368:
-#line 15893 "parser.y" /* yacc.c:1646 */
- {
- check_non_area_a_of ("END-READ");
- TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), READ);
- }
-#line 26413 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2369:
-#line 15904 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_READY_TRACE, 0);
- cb_emit_ready_trace ();
- }
-#line 26422 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2370:
-#line 15914 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_RECEIVE, TERM_RECEIVE);
- }
-#line 26430 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2384:
-#line 15957 "parser.y" /* yacc.c:1646 */
- {
- TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), RECEIVE);
- }
-#line 26438 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2385:
-#line 15961 "parser.y" /* yacc.c:1646 */
- {
- check_non_area_a_of ("END-RECEIVE");
- TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), RECEIVE);
- }
-#line 26447 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2386:
-#line 15971 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_RELEASE, 0);
- }
-#line 26455 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2388:
-#line 15979 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_release ((yyvsp[-1]), (yyvsp[0]));
- }
-#line 26463 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2389:
-#line 15989 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_RESET_TRACE, 0);
- cb_emit_reset_trace ();
- }
-#line 26472 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2390:
-#line 15999 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_RETURN, TERM_RETURN);
- }
-#line 26480 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2392:
-#line 16008 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_return ((yyvsp[-3]), (yyvsp[-1]));
- }
-#line 26488 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2393:
-#line 16015 "parser.y" /* yacc.c:1646 */
- {
- TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), RETURN);
- }
-#line 26496 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2394:
-#line 16019 "parser.y" /* yacc.c:1646 */
- {
- check_non_area_a_of ("END-RETURN");
- TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), RETURN);
- }
-#line 26505 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2395:
-#line 16030 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_REWRITE, TERM_REWRITE);
- /* Special in debugging mode */
- save_debug = start_debug;
- start_debug = 0;
- }
-#line 26516 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2397:
-#line 16042 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_rewrite ((yyvsp[-4]), (yyvsp[-3]), (yyvsp[-1]));
- start_debug = save_debug;
- }
-#line 26525 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2398:
-#line 16050 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 26533 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2400:
-#line 16058 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int1;
- }
-#line 26541 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2401:
-#line 16062 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int2;
- }
-#line 26549 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2402:
-#line 16069 "parser.y" /* yacc.c:1646 */
- {
- TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), REWRITE);
- }
-#line 26557 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2403:
-#line 16073 "parser.y" /* yacc.c:1646 */
- {
- check_non_area_a_of ("END-REWRITE");
- TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), REWRITE);
- }
-#line 26566 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2404:
-#line 16084 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_ROLLBACK, 0);
- cb_emit_rollback ();
- }
-#line 26575 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2405:
-#line 16093 "parser.y" /* yacc.c:1646 */
- { check_non_area_a ((yyvsp[0])); }
-#line 26581 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2406:
-#line 16096 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_SEARCH, TERM_SEARCH);
- }
-#line 26589 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2408:
-#line 16102 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_SEARCH_ALL, TERM_SEARCH);
- }
-#line 26597 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2410:
-#line 16112 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_emit_search ((yyvsp[-3]), (yyvsp[-2]), (yyvsp[-1]), (yyvsp[0]));
- }
-#line 26605 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2411:
-#line 16121 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_emit_search_all ((yyvsp[-4]), (yyvsp[-3]), (yyvsp[-1]), (yyvsp[0]));
- }
-#line 26613 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2412:
-#line 16127 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 26619 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2413:
-#line 16128 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 26625 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2414:
-#line 16133 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 26633 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2415:
-#line 16138 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_BUILD_PAIR ((yyvsp[-1]), (yyvsp[0]));
- }
-#line 26641 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2416:
-#line 16144 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_comment ("AT END");
- }
-#line 26649 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2417:
-#line 16151 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_LIST_INIT ((yyvsp[0]));
- }
-#line 26657 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2418:
-#line 16155 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_list_add ((yyvsp[0]), (yyvsp[-1]));
- }
-#line 26665 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2419:
-#line 16163 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_if_check_break ((yyvsp[-1]), (yyvsp[0]));
- }
-#line 26673 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2420:
-#line 16170 "parser.y" /* yacc.c:1646 */
- {
- TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), SEARCH);
- }
-#line 26681 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2421:
-#line 16174 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[-2])) {
- struct cb_search *p = CB_SEARCH ((yyvsp[-2]));
- if (p->at_end == NULL) {
- cb_tree brk = cb_build_direct ("break;", 0);
- p->at_end = CB_BUILD_PAIR ((yyvsp[0]), brk);
- }
- }
- check_non_area_a_of ("END-SEARCH");
- TERMINATOR_CLEAR ((yyvsp[(-2) - (2)]), SEARCH);
- }
-#line 26697 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2422:
-#line 16188 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_comment ("END-SEARCH");
- }
-#line 26705 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2423:
-#line 16198 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_SEND, 0);
- }
-#line 26713 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2427:
-#line 16218 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("COBOL 2023 MCS");
- }
-#line 26721 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2428:
-#line 16231 "parser.y" /* yacc.c:1646 */
- {
- /* TODO:
- cb_tree exception = get_exception (CB_NAME($1));
- if (!exception) {
- cb_error (_("'%s' is not a message-tag data item"), CB_NAME ($1));
- }
- */
- }
-#line 26734 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2431:
-#line 16248 "parser.y" /* yacc.c:1646 */
- {
- }
-#line 26741 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2432:
-#line 16267 "parser.y" /* yacc.c:1646 */
- {
- /* PENDING note in COMMUNICATION SECTION, which defines cd-names */
- }
-#line 26749 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2433:
-#line 16271 "parser.y" /* yacc.c:1646 */
- {
- /* PENDING note in COMMUNICATION SECTION, which defines cd-names */
- }
-#line 26757 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2440:
-#line 16292 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_SET, 0);
- set_attr_val_on = 0;
- set_attr_val_off = 0;
- cobc_cs_check = CB_CS_SET;
- }
-#line 26768 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2441:
-#line 16299 "parser.y" /* yacc.c:1646 */
- {
- cobc_cs_check = 0;
- }
-#line 26776 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2450:
-#line 16316 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int1; }
-#line 26782 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2451:
-#line 16317 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int0; }
-#line 26788 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2452:
-#line 16321 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int0; }
-#line 26794 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2453:
-#line 16322 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int1; }
-#line 26800 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2454:
-#line 16329 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_setenv ((yyvsp[-2]), (yyvsp[0]));
- }
-#line 26808 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2455:
-#line 16338 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_set_attribute ((yyvsp[-2]), set_attr_val_on, set_attr_val_off);
- }
-#line 26816 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2458:
-#line 16350 "parser.y" /* yacc.c:1646 */
- {
- bit_set_attr ((yyvsp[0]), COB_SCREEN_BELL);
- }
-#line 26824 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2459:
-#line 16354 "parser.y" /* yacc.c:1646 */
- {
- bit_set_attr ((yyvsp[0]), COB_SCREEN_BLINK);
- }
-#line 26832 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2460:
-#line 16358 "parser.y" /* yacc.c:1646 */
- {
- bit_set_attr ((yyvsp[0]), COB_SCREEN_HIGHLIGHT);
- check_not_highlight_and_lowlight (set_attr_val_on | set_attr_val_off,
- COB_SCREEN_HIGHLIGHT);
- }
-#line 26842 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2461:
-#line 16364 "parser.y" /* yacc.c:1646 */
- {
- bit_set_attr ((yyvsp[0]), COB_SCREEN_LOWLIGHT);
- check_not_highlight_and_lowlight (set_attr_val_on | set_attr_val_off,
- COB_SCREEN_LOWLIGHT);
- }
-#line 26852 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2462:
-#line 16370 "parser.y" /* yacc.c:1646 */
- {
- bit_set_attr ((yyvsp[0]), COB_SCREEN_REVERSE);
- }
-#line 26860 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2463:
-#line 16374 "parser.y" /* yacc.c:1646 */
- {
- bit_set_attr ((yyvsp[0]), COB_SCREEN_UNDERLINE);
- }
-#line 26868 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2464:
-#line 16378 "parser.y" /* yacc.c:1646 */
- {
- bit_set_attr ((yyvsp[0]), COB_SCREEN_LEFTLINE);
- }
-#line 26876 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2465:
-#line 16382 "parser.y" /* yacc.c:1646 */
- {
- bit_set_attr ((yyvsp[0]), COB_SCREEN_OVERLINE);
- }
-#line 26884 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2466:
-#line 16391 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_set_to ((yyvsp[-3]), cb_build_ppointer ((yyvsp[0])));
- }
-#line 26892 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2467:
-#line 16395 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_set_to_fcd ((yyvsp[-6]), (yyvsp[0]));
- }
-#line 26900 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2468:
-#line 16399 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_set_to_fcdkey ((yyvsp[-6]), (yyvsp[0]));
- }
-#line 26908 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2469:
-#line 16403 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_set_to ((yyvsp[-2]), (yyvsp[0]));
- }
-#line 26916 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2470:
-#line 16407 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_move (cb_build_length ((yyvsp[0])), (yyvsp[-4]));
- }
-#line 26924 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2471:
-#line 16416 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_set_up_down ((yyvsp[-3]), (yyvsp[-2]), (yyvsp[0]));
- }
-#line 26932 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2474:
-#line 16430 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_set_on_off ((yyvsp[-2]), (yyvsp[0]));
- }
-#line 26940 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2477:
-#line 16444 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_set_true ((yyvsp[-2]));
- }
-#line 26948 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2478:
-#line 16448 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_set_false ((yyvsp[-2]));
- }
-#line 26956 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2479:
-#line 16457 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_set_last_exception_to_off ();
- }
-#line 26964 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2480:
-#line 16466 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_set_thread_priority ((yyvsp[-3]), (yyvsp[0]));
- CB_PENDING ("THREAD");
- }
-#line 26973 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2481:
-#line 16477 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_SORT, 0);
- }
-#line 26981 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2483:
-#line 16486 "parser.y" /* yacc.c:1646 */
- {
- cb_tree x = cb_ref ((yyvsp[-3]));
-
- (yyval) = NULL;
- if (CB_VALID_TREE (x)) {
- if ((yyvsp[-2]) == NULL || CB_VALUE ((yyvsp[-2])) == NULL) {
- if (current_statement->statement == STMT_MERGE) {
- cb_error (_("MERGE requires KEY phrase"));
- (yyvsp[-2]) = cb_error_node;
- } else
- if (CB_FILE_P (x)) {
- cb_error (_("file SORT requires KEY phrase"));
- (yyvsp[-2]) = cb_error_node;
- } else {
- struct cb_field *f = CB_FIELD_PTR (x);
-/* TODO: add compiler configuration cb_sort_without_keys
- if (f->nkeys
- && cb_verify (cb_sort_without_keys, _("table SORT without keys"))) {
-*/
- if ((yyvsp[-2]) != NULL || f->nkeys) {
- cb_tree lparm;
- if ((yyvsp[-2]) == NULL) {
- /* create reference to first key */
- x = cb_ref (f->keys[0].key);
- }
- /* use the OCCURS field / its defined KEY as single sort key */
- lparm = cb_list_add (NULL, x);
- /* search order is either specified, otherwise derived from definition */
- if ((yyvsp[-2]) != NULL) {
- CB_PURPOSE (lparm) = CB_PURPOSE ((yyvsp[-2]));
- } else {
- CB_PURPOSE (lparm) = cb_int (f->keys[0].dir);
- }
- (yyvsp[-2]) = cb_list_append (NULL, lparm);
- } else {
- cb_error (_("table SORT requires KEY phrase"));
- (yyvsp[-2]) = cb_error_node;
- }
- }
- } else if (CB_FILE_P (x) && CB_FILE (x)->organization != COB_ORG_SORT) {
- cb_error_x (x, _("must be an SD filename"));
- (yyvsp[-2]) = cb_error_node;
- }
- if (CB_VALID_TREE ((yyvsp[-2]))) {
- cb_emit_sort_init ((yyvsp[-3]), (yyvsp[-2]), alphanumeric_collation, national_collation);
- (yyval) = (yyvsp[-3]);
- }
- }
- }
-#line 27035 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2484:
-#line 16536 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[-2]) && CB_VALID_TREE ((yyvsp[-6]))) {
- cb_emit_sort_finish ((yyvsp[-6]));
- }
- }
-#line 27045 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2485:
-#line 16544 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 27051 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2486:
-#line 16547 "parser.y" /* yacc.c:1646 */
- {
- cb_tree lparm = (yyvsp[0]);
- cb_tree l;
-
- if (lparm == NULL) {
- lparm = CB_LIST_INIT (NULL);
- }
- for (l = lparm; l; l = CB_CHAIN (l)) {
- CB_PURPOSE (l) = (yyvsp[-2]);
- }
- (yyval) = cb_list_append ((yyvsp[-4]), lparm);
- }
-#line 27068 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2487:
-#line 16562 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 27074 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2488:
-#line 16563 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0])); }
-#line 27080 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2490:
-#line 16568 "parser.y" /* yacc.c:1646 */
- {
- /* The GnuCOBOL sort is a stable sort. ie. dups are per default in order */
- /* Therefore nothing to do here */
- }
-#line 27089 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2493:
-#line 16581 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[0]) && CB_FILE_P (cb_ref ((yyvsp[0])))) {
- if (current_statement->statement == STMT_MERGE) {
- cb_error (_("MERGE requires USING files"));
- } else {
- cb_error (_("file SORT requires USING or INPUT PROCEDURE"));
- }
- }
- }
-#line 27103 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2494:
-#line 16591 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[-2])) {
- if (!CB_FILE_P (cb_ref ((yyvsp[-2])))) {
- cb_error (_("USING invalid with table SORT"));
- } else {
- cb_emit_sort_using ((yyvsp[-2]), (yyvsp[0]));
- }
- }
- }
-#line 27117 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2495:
-#line 16601 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[-4])) {
- if (!CB_FILE_P (cb_ref ((yyvsp[-4])))) {
- cb_error (_("INPUT PROCEDURE invalid with table SORT"));
- } else if (current_statement->statement == STMT_MERGE) {
- cb_error (_("INPUT PROCEDURE invalid with MERGE"));
- } else {
- cb_emit_sort_input ((yyvsp[0]));
- }
- }
- cobc_cs_check = 0;
- }
-#line 27134 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2496:
-#line 16617 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[(-1) - (0)]) && CB_FILE_P (cb_ref ((yyvsp[(-1) - (0)])))) {
- if (current_statement->statement == STMT_MERGE) {
- cb_error (_("MERGE requires GIVING or OUTPUT PROCEDURE"));
- } else {
- cb_error (_("file SORT requires GIVING or OUTPUT PROCEDURE"));
- }
- }
- }
-#line 27148 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2497:
-#line 16627 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[(-1) - (2)])) {
- if (!CB_FILE_P (cb_ref ((yyvsp[(-1) - (2)])))) {
- cb_error (_("GIVING invalid with table SORT"));
- } else {
- cb_emit_sort_giving ((yyvsp[(-1) - (2)]), (yyvsp[0]));
- }
- }
- }
-#line 27162 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2498:
-#line 16637 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[(-1) - (4)])) {
- if (!CB_FILE_P (cb_ref ((yyvsp[(-1) - (4)])))) {
- cb_error (_("OUTPUT PROCEDURE invalid with table SORT"));
- } else {
- cb_emit_sort_output ((yyvsp[0]));
- }
- }
- cobc_cs_check = 0;
- }
-#line 27177 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2499:
-#line 16654 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_START, TERM_START);
- start_tree = cb_int (COB_EQ);
- }
-#line 27186 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2501:
-#line 16664 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[-1]) && !(yyvsp[-2])) {
- cb_error_x (CB_TREE (current_statement),
- _("SIZE/LENGTH invalid here"));
- } else {
- cb_emit_start ((yyvsp[-3]), start_tree, (yyvsp[-2]), (yyvsp[-1]));
- }
- }
-#line 27199 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2502:
-#line 16676 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 27207 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2503:
-#line 16680 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 27215 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2504:
-#line 16687 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 27223 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2505:
-#line 16691 "parser.y" /* yacc.c:1646 */
- {
- start_tree = (yyvsp[-1]);
- (yyval) = (yyvsp[0]);
- }
-#line 27232 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2506:
-#line 16696 "parser.y" /* yacc.c:1646 */
- {
- start_tree = cb_int (COB_FI);
- (yyval) = NULL;
- }
-#line 27241 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2507:
-#line 16701 "parser.y" /* yacc.c:1646 */
- {
- start_tree = cb_int (COB_LA);
- (yyval) = NULL;
- }
-#line 27250 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2508:
-#line 16708 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int (COB_EQ); }
-#line 27256 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2509:
-#line 16709 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int ((yyvsp[-1]) ? COB_LE : COB_GT); }
-#line 27262 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2510:
-#line 16710 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int ((yyvsp[-1]) ? COB_GE : COB_LT); }
-#line 27268 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2511:
-#line 16711 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int ((yyvsp[-1]) ? COB_LT : COB_GE); }
-#line 27274 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2512:
-#line 16712 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int ((yyvsp[-1]) ? COB_GT : COB_LE); }
-#line 27280 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2513:
-#line 16714 "parser.y" /* yacc.c:1646 */
- {
- cb_error_x (CB_TREE (current_statement),
- _("NOT EQUAL condition not allowed on START statement"));
- (yyval) = cb_int (COB_NE);
- }
-#line 27290 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2516:
-#line 16728 "parser.y" /* yacc.c:1646 */
- {
- TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), START);
- }
-#line 27298 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2517:
-#line 16732 "parser.y" /* yacc.c:1646 */
- {
- check_non_area_a_of ("END-START");
- TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), START);
- }
-#line 27307 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2518:
-#line 16741 "parser.y" /* yacc.c:1646 */
- { check_non_area_a ((yyvsp[0])); }
-#line 27313 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2519:
-#line 16744 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_STOP_RUN, 0);
- cobc_cs_check = CB_CS_STOP;
- }
-#line 27322 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2520:
-#line 16749 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_stop_run ((yyvsp[0]));
- check_unreached = 1;
- cobc_cs_check = 0;
- }
-#line 27332 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2521:
-#line 16755 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_STOP_ERROR, 0);
- cb_verify (cb_stop_error_statement, "STOP ERROR");
- cb_emit_stop_error ();
- check_unreached = 1;
- }
-#line 27343 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2522:
-#line 16762 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_STOP, 0);
- cb_emit_display (CB_LIST_INIT ((yyvsp[0])), cb_int0, cb_int1, NULL,
- NULL, 1, DEVICE_DISPLAY);
- cb_emit_accept (cb_null, NULL, NULL);
- cobc_cs_check = 0;
- }
-#line 27355 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2523:
-#line 16770 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_STOP_THREAD, 0);
- cb_emit_stop_thread ((yyvsp[0]));
- cobc_cs_check = 0;
- cb_warning_x (COBC_WARN_FILLER, (yyvsp[0]),
- _("%s is replaced by %s"),
- cb_statement_name[STMT_STOP_THREAD],
- cb_statement_name[STMT_STOP_RUN]);
- }
-#line 27369 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2524:
-#line 16783 "parser.y" /* yacc.c:1646 */
- {
- if (current_program->cb_return_code) {
- (yyval) = current_program->cb_return_code;
- } else {
- (yyval) = cb_int0;
- }
- }
-#line 27381 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2525:
-#line 16791 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 27389 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2526:
-#line 16795 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 27397 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2527:
-#line 16799 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[0])) {
- (yyval) = (yyvsp[0]);
- } else {
- (yyval) = cb_int1;
- }
- }
-#line 27409 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2528:
-#line 16807 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[0])) {
- (yyval) = (yyvsp[0]);
- } else {
- (yyval) = cb_int0;
- }
- }
-#line 27421 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2529:
-#line 16817 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 27427 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2530:
-#line 16818 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 27433 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2531:
-#line 16823 "parser.y" /* yacc.c:1646 */
- {
- cb_verify (cb_stop_literal_statement, _("STOP literal"));
- }
-#line 27441 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2532:
-#line 16827 "parser.y" /* yacc.c:1646 */
- {
- cb_verify (cb_stop_identifier_statement, _("STOP identifier"));
- }
-#line 27449 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2533:
-#line 16833 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 27455 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2534:
-#line 16834 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_space; }
-#line 27461 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2535:
-#line 16835 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_zero; }
-#line 27467 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2536:
-#line 16836 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_quote; }
-#line 27473 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2537:
-#line 16843 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_STRING, TERM_STRING);
- }
-#line 27481 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2539:
-#line 16852 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_string ((yyvsp[-4]), (yyvsp[-2]), (yyvsp[-1]));
- }
-#line 27489 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2540:
-#line 16858 "parser.y" /* yacc.c:1646 */
- {
- save_tree = NULL;
- }
-#line 27497 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2541:
-#line 16862 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = save_tree;
- }
-#line 27505 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2544:
-#line 16874 "parser.y" /* yacc.c:1646 */
- {
- if (!save_tree) {
- save_tree = CB_LIST_INIT ((yyvsp[-1]));
- } else {
- save_tree = cb_list_add (save_tree, (yyvsp[-1]));
- }
- if ((yyvsp[0])) {
- save_tree = cb_list_add (save_tree, (yyvsp[0]));
- }
- }
-#line 27520 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2545:
-#line 16887 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 27526 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2546:
-#line 16889 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 27532 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2547:
-#line 16893 "parser.y" /* yacc.c:1646 */
- { (yyval) = CB_BUILD_PAIR (cb_int0, NULL); }
-#line 27538 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2548:
-#line 16894 "parser.y" /* yacc.c:1646 */
- { (yyval) = CB_BUILD_PAIR ((yyvsp[0]), NULL); }
-#line 27544 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2549:
-#line 16898 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 27550 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2550:
-#line 16899 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 27556 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2551:
-#line 16904 "parser.y" /* yacc.c:1646 */
- {
- TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), STRING);
- }
-#line 27564 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2552:
-#line 16908 "parser.y" /* yacc.c:1646 */
- {
- check_non_area_a_of ("END-STRING");
- TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), STRING);
- }
-#line 27573 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2553:
-#line 16919 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_SUBTRACT, TERM_SUBTRACT);
- }
-#line 27581 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2555:
-#line 16928 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_arithmetic ((yyvsp[-1]), '-', cb_build_binary_list ((yyvsp[-3]), '+'));
- }
-#line 27589 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2556:
-#line 16932 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_arithmetic ((yyvsp[-1]), 0, cb_build_binary_list (CB_BUILD_CHAIN ((yyvsp[-3]), (yyvsp[-5])), '-'));
- }
-#line 27597 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2557:
-#line 16936 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_corresponding (cb_build_sub, (yyvsp[-2]), (yyvsp[-4]), (yyvsp[-1]));
- }
-#line 27605 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2558:
-#line 16940 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("SUBTRACT TABLE");
- cb_emit_tab_arithmetic (cb_build_sub, (yyvsp[-4]), (yyvsp[-6]), (yyvsp[-3]), (yyvsp[-2]), (yyvsp[-1]));
- }
-#line 27614 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2559:
-#line 16948 "parser.y" /* yacc.c:1646 */
- {
- TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), SUBTRACT);
- }
-#line 27622 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2560:
-#line 16952 "parser.y" /* yacc.c:1646 */
- {
- check_non_area_a_of ("END-SUBTRACT");
- TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), SUBTRACT);
- }
-#line 27631 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2561:
-#line 16962 "parser.y" /* yacc.c:1646 */
- { check_non_area_a ((yyvsp[0])); }
-#line 27637 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2562:
-#line 16964 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_SUPPRESS, 0);
- if (!in_declaratives) {
- cb_error_x (CB_TREE (current_statement),
- _("SUPPRESS statement must be within DECLARATIVES"));
- }
- cb_emit_suppress (control_field);
- }
-#line 27650 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2565:
-#line 16982 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_TERMINATE, 0);
- }
-#line 27658 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2567:
-#line 16990 "parser.y" /* yacc.c:1646 */
- {
-#if 0 /* CHECKME: likely not needed */
- begin_implicit_statement (current_statement, (yyvsp[0]));
-#endif
- if ((yyvsp[0]) != cb_error_node) {
- cb_emit_terminate ((yyvsp[0]));
- }
- }
-#line 27671 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2568:
-#line 16999 "parser.y" /* yacc.c:1646 */
- {
- begin_implicit_statement (current_statement, (yyvsp[0]));
- if ((yyvsp[0]) != cb_error_node) {
- cb_emit_terminate ((yyvsp[0]));
- }
- }
-#line 27682 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2569:
-#line 17011 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_TRANSFORM, 0);
- }
-#line 27690 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2571:
-#line 17019 "parser.y" /* yacc.c:1646 */
- {
- cb_tree x = cb_build_converting ((yyvsp[-2]), (yyvsp[0]), cb_build_inspect_region_start ());
- cb_emit_inspect ((yyvsp[-5]), x, TRANSFORM_STATEMENT);
- }
-#line 27699 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2572:
-#line 17030 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_UNLOCK, 0);
- }
-#line 27707 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2574:
-#line 17038 "parser.y" /* yacc.c:1646 */
- {
- if (CB_VALID_TREE ((yyvsp[-1]))) {
- if (CB_FILE (cb_ref ((yyvsp[-1])))->organization == COB_ORG_SORT) {
- cb_error_x (CB_TREE (current_statement),
- _("UNLOCK invalid for SD files"));
- } else {
- cb_emit_unlock ((yyvsp[-1]));
- }
- }
- }
-#line 27722 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2575:
-#line 17054 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_UNSTRING, TERM_UNSTRING);
- }
-#line 27730 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2577:
-#line 17065 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_unstring ((yyvsp[-5]), (yyvsp[-4]), (yyvsp[-3]), (yyvsp[-2]), (yyvsp[-1]));
- }
-#line 27738 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2578:
-#line 17071 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 27744 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2579:
-#line 17073 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 27750 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2580:
-#line 17077 "parser.y" /* yacc.c:1646 */
- { (yyval) = CB_LIST_INIT ((yyvsp[0])); }
-#line 27756 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2581:
-#line 17079 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_list_add ((yyvsp[-2]), (yyvsp[0])); }
-#line 27762 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2582:
-#line 17084 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_unstring_delimited ((yyvsp[-1]), (yyvsp[0]));
- }
-#line 27770 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2583:
-#line 17090 "parser.y" /* yacc.c:1646 */
- { (yyval) = CB_LIST_INIT ((yyvsp[0])); }
-#line 27776 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2584:
-#line 17092 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0])); }
-#line 27782 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2585:
-#line 17097 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_unstring_into ((yyvsp[-2]), (yyvsp[-1]), (yyvsp[0]));
- }
-#line 27790 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2586:
-#line 17103 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 27796 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2587:
-#line 17104 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 27802 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2588:
-#line 17108 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 27808 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2589:
-#line 17109 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 27814 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2590:
-#line 17114 "parser.y" /* yacc.c:1646 */
- {
- TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), UNSTRING);
- }
-#line 27822 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2591:
-#line 17118 "parser.y" /* yacc.c:1646 */
- {
- check_non_area_a_of ("END-UNSTRING");
- TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), UNSTRING);
- }
-#line 27831 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2592:
-#line 17128 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_VALIDATE, 0);
- }
-#line 27839 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2593:
-#line 17132 "parser.y" /* yacc.c:1646 */
- {
-#if 0 /* FIXME: at least add syntax checks here */
- cb_emit_validate ((yyvsp[0]));
-#else
- CB_PENDING ("VALIDATE");
-#endif
- }
-#line 27851 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2594:
-#line 17143 "parser.y" /* yacc.c:1646 */
- {
- check_validate_item ((yyvsp[0]));
- (yyval) = CB_LIST_INIT ((yyvsp[0]));
- }
-#line 27860 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2595:
-#line 17148 "parser.y" /* yacc.c:1646 */
- {
- check_validate_item ((yyvsp[0]));
- (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0]));
- }
-#line 27869 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2596:
-#line 17159 "parser.y" /* yacc.c:1646 */
- {
- skip_statements = 0;
- in_debugging = 0;
- }
-#line 27878 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2603:
-#line 17177 "parser.y" /* yacc.c:1646 */
- {
- if (!in_declaratives) {
- cb_error (_("USE statement must be within DECLARATIVES"));
- } else if (!current_section) {
- cb_error (_("SECTION header missing before USE statement"));
- } else {
- current_section->flag_begin = 1;
- current_section->flag_return = 1;
- current_section->flag_declarative_exit = 1;
- current_section->flag_real_label = 1;
- current_section->flag_skip_label = 0;
- /* TODO: Use cobc_ec_turn? */
- CB_EXCEPTION_ENABLE (COB_EC_I_O) = 1;
- if (use_global_ind) {
- current_section->flag_global = 1;
- current_program->global_list =
- cb_list_add (current_program->global_list,
- CB_TREE (current_section));
- }
- emit_statement (cb_build_comment ("USE AFTER ERROR"));
- }
- }
-#line 27905 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2604:
-#line 17203 "parser.y" /* yacc.c:1646 */
- {
- use_global_ind = 0;
- }
-#line 27913 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2605:
-#line 17207 "parser.y" /* yacc.c:1646 */
- {
- if (current_program->prog_type == COB_MODULE_TYPE_FUNCTION) {
- cb_error (_("%s is invalid in a user FUNCTION"), "GLOBAL");
- } else {
- use_global_ind = 1;
- current_program->flag_global_use = 1;
- }
- }
-#line 27926 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2606:
-#line 17219 "parser.y" /* yacc.c:1646 */
- {
- cb_tree l;
-
- for (l = (yyvsp[0]); l; l = CB_CHAIN (l)) {
- if (CB_VALID_TREE (CB_VALUE (l))) {
- setup_use_file (CB_FILE (cb_ref (CB_VALUE (l))));
- }
- }
- }
-#line 27940 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2607:
-#line 17229 "parser.y" /* yacc.c:1646 */
- {
- current_program->global_handler[COB_OPEN_INPUT].handler_label = current_section;
- current_program->global_handler[COB_OPEN_INPUT].handler_prog = current_program;
- }
-#line 27949 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2608:
-#line 17234 "parser.y" /* yacc.c:1646 */
- {
- current_program->global_handler[COB_OPEN_OUTPUT].handler_label = current_section;
- current_program->global_handler[COB_OPEN_OUTPUT].handler_prog = current_program;
- }
-#line 27958 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2609:
-#line 17239 "parser.y" /* yacc.c:1646 */
- {
- current_program->global_handler[COB_OPEN_I_O].handler_label = current_section;
- current_program->global_handler[COB_OPEN_I_O].handler_prog = current_program;
- }
-#line 27967 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2610:
-#line 17244 "parser.y" /* yacc.c:1646 */
- {
- current_program->global_handler[COB_OPEN_EXTEND].handler_label = current_section;
- current_program->global_handler[COB_OPEN_EXTEND].handler_prog = current_program;
- }
-#line 27976 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2611:
-#line 17252 "parser.y" /* yacc.c:1646 */
- {
- cb_tree plabel;
- char name[64];
-
- cb_verify (cb_use_for_debugging, "USE FOR DEBUGGING");
-
- if (!in_declaratives) {
- cb_error (_("USE statement must be within DECLARATIVES"));
- } else if (current_program->nested_level) {
- cb_error (_("USE DEBUGGING not supported in contained program"));
- } else {
- in_debugging = 1;
- current_section->flag_begin = 1;
- current_section->flag_return = 1;
- current_section->flag_declarative_exit = 1;
- current_section->flag_real_label = 0;
- current_section->flag_is_debug_sect = 1;
- if (!needs_debug_item) {
- needs_debug_item = 1;
- cb_build_debug_item ();
- }
- if (!current_program->flag_debugging) {
- skip_statements = 1;
- current_section->flag_skip_label = 1;
- } else {
- current_program->flag_gen_debug = 1;
- sprintf (name, "EXIT SECTION %d", cb_id);
- plabel = cb_build_reference (name);
- plabel = cb_build_label (plabel, NULL);
- CB_LABEL (plabel)->flag_begin = 1;
- CB_LABEL (plabel)->flag_dummy_exit = 1;
- current_section->exit_label = plabel;
- emit_statement (cb_build_comment ("USE FOR DEBUGGING"));
- }
- }
- }
-#line 28017 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2614:
-#line 17297 "parser.y" /* yacc.c:1646 */
- {
- if (current_program->flag_debugging) {
-
- cb_tree z = CB_LIST_INIT ((yyvsp[0]));
- current_program->debug_list =
- cb_list_append (current_program->debug_list, z);
- /* Check backward refs to file/data names */
- if (CB_WORD_COUNT ((yyvsp[0])) > 0) {
- cb_tree l = CB_VALUE (CB_WORD_ITEMS ((yyvsp[0])));
- switch (CB_TREE_TAG (l)) {
- case CB_TAG_CD:
- if (CB_CD (l)->flag_field_debug) {
- cb_error_x ((yyvsp[0]), _("duplicate DEBUGGING target: '%s'"),
- cb_name (l));
- } else {
- CB_CD (l)->debug_section = current_section;
- CB_CD (l)->flag_field_debug = 1;
- }
- break;
- case CB_TAG_FILE:
- if (CB_FILE (l)->flag_fl_debug) {
- cb_error_x ((yyvsp[0]), _("duplicate DEBUGGING target: '%s'"),
- cb_name (l));
- } else {
- CB_FILE (l)->debug_section = current_section;
- CB_FILE (l)->flag_fl_debug = 1;
- }
- break;
- case CB_TAG_FIELD:
- {
- struct cb_field* fld;
- cb_tree x = cb_ref ((yyvsp[0]));
- if (!x || !CB_FIELD_P (x)) {
- break;
- }
- fld = CB_FIELD (x);
- if (fld->flag_item_78) {
- cb_error_x ((yyvsp[0]), _("constant item cannot be used here"));
- } else if (fld->flag_field_debug) {
- cb_error_x ((yyvsp[0]), _("duplicate DEBUGGING target: '%s'"),
- cb_name (x));
- } else {
- needs_field_debug = 1;
- fld->debug_section = current_section;
- fld->flag_field_debug = 1;
- CB_PURPOSE (z) = x;
- }
- }
- break;
- default:
- /* Label refs will be checked later (forward/backward ref) */
- break;
- }
- }
- CB_REFERENCE ((yyvsp[0]))->debug_section = current_section;
- CB_REFERENCE ((yyvsp[0]))->flag_debug_code = 1;
- CB_REFERENCE ((yyvsp[0]))->flag_all_debug = 0;
- }
- }
-#line 28081 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2615:
-#line 17357 "parser.y" /* yacc.c:1646 */
- {
- if (current_program->flag_debugging) {
- if (current_program->all_procedure) {
- cb_error (_("duplicate USE DEBUGGING ON ALL PROCEDURES"));
- } else {
- current_program->all_procedure = current_section;
- }
- }
- }
-#line 28095 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2616:
-#line 17367 "parser.y" /* yacc.c:1646 */
- {
- if (current_program->flag_debugging && (yyvsp[0]) != cb_error_node) {
- cb_tree x = cb_ref ((yyvsp[0]));
- struct cb_field *fld = CB_FIELD (x);
- if (fld->flag_field_debug) {
- cb_error_x ((yyvsp[0]), _("duplicate DEBUGGING target: '%s'"),
- cb_name (x));
- } else {
- struct cb_reference *r = CB_REFERENCE ((yyvsp[0]));
- needs_field_debug = 1;
- fld->debug_section = current_section;
- fld->flag_field_debug = 1;
- fld->flag_all_debug = 1;
- r->debug_section = current_section;
- r->flag_debug_code = 1;
- r->flag_all_debug = 1;
- CB_CHAIN_PAIR (current_program->debug_list, x, (yyvsp[0]));
- }
- }
- }
-#line 28120 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2621:
-#line 17397 "parser.y" /* yacc.c:1646 */
- {
- if (current_program->nested_level) {
- cb_error (_("%s is invalid in nested program"), "USE AT");
- }
- }
-#line 28130 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2622:
-#line 17406 "parser.y" /* yacc.c:1646 */
- {
- emit_statement (cb_build_comment ("USE AT PROGRAM START"));
- CB_PENDING ("USE AT PROGRAM START");
- /* emit_entry ("_AT_START", 0, NULL, NULL); */
- }
-#line 28140 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2623:
-#line 17412 "parser.y" /* yacc.c:1646 */
- {
- emit_statement (cb_build_comment ("USE AT PROGRAM END"));
- CB_PENDING ("USE AT PROGRAM END");
- /* emit_entry ("_AT_END", 0, NULL, NULL); */
- }
-#line 28150 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2624:
-#line 17422 "parser.y" /* yacc.c:1646 */
- {
- current_section->flag_real_label = 1;
- current_section->flag_declaratives = 1;
- current_section->flag_begin = 1;
- current_section->flag_return = 1;
- current_section->flag_declarative_exit = 1;
- current_section->flag_real_label = 1;
- current_section->flag_skip_label = 0;
-
- if ((yyvsp[0]) != cb_error_node) {
- char wrk[COB_MINI_BUFF];
- struct cb_field *f = CB_FIELD_PTR((yyvsp[0]));
- control_field = f;
- f->report_decl_id = current_section->id;
- if (f->report != NULL) {
- f->report->has_declarative = 1;
- }
- snprintf (wrk, COB_MINI_MAX, "USE BEFORE REPORTING %s is %s%d",
- f->name, CB_PREFIX_LABEL, current_section->id);
- emit_statement (cb_build_comment (cobc_parse_strdup(wrk)));
- }
- }
-#line 28177 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2628:
-#line 17458 "parser.y" /* yacc.c:1646 */
- {
- current_section->flag_real_label = 1;
- emit_statement (cb_build_comment ("USE AFTER EXCEPTION CONDITION"));
- CB_PENDING ("USE AFTER EXCEPTION CONDITION");
- }
-#line 28187 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2629:
-#line 17464 "parser.y" /* yacc.c:1646 */
- {
- cb_tree l;
-
- for (l = (yyvsp[0]); l; l = CB_CHAIN (l)) {
- if (CB_VALID_TREE (CB_VALUE (l))) {
- setup_use_file (CB_FILE (cb_ref (CB_VALUE (l))));
- }
- }
- current_section->flag_real_label = 1;
- emit_statement(cb_build_comment("USE AFTER EXCEPTION CONDITION"));
- CB_PENDING ("USE AFTER EXCEPTION CONDITION");
- }
-#line 28204 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2632:
-#line 17487 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_WRITE, TERM_WRITE);
- /* Special in debugging mode */
- save_debug = start_debug;
- start_debug = 0;
- }
-#line 28215 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2634:
-#line 17499 "parser.y" /* yacc.c:1646 */
- {
- if (CB_VALID_TREE ((yyvsp[-5]))) {
- cb_emit_write ((yyvsp[-5]), (yyvsp[-4]), (yyvsp[-3]), (yyvsp[-1]));
- }
- start_debug = save_debug;
- }
-#line 28226 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2635:
-#line 17508 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 28232 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2636:
-#line 17509 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 28238 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2637:
-#line 17514 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int0;
- }
-#line 28246 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2638:
-#line 17518 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_write_advancing_lines ((yyvsp[-3]), (yyvsp[-1]));
- }
-#line 28254 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2639:
-#line 17522 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_write_advancing_mnemonic ((yyvsp[-2]), (yyvsp[0]));
- }
-#line 28262 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2640:
-#line 17526 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_write_advancing_page ((yyvsp[-2]));
- }
-#line 28270 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2641:
-#line 17532 "parser.y" /* yacc.c:1646 */
- { (yyval) = CB_BEFORE; }
-#line 28276 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2642:
-#line 17533 "parser.y" /* yacc.c:1646 */
- { (yyval) = CB_AFTER; }
-#line 28282 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2646:
-#line 17544 "parser.y" /* yacc.c:1646 */
- {
- TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), WRITE);
- }
-#line 28290 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2647:
-#line 17548 "parser.y" /* yacc.c:1646 */
- {
- check_non_area_a_of ("END-WRITE");
- TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), WRITE);
- }
-#line 28299 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2648:
-#line 17556 "parser.y" /* yacc.c:1646 */
- { check_non_area_a ((yyvsp[0])); }
-#line 28305 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2649:
-#line 17559 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_XML_GENERATE, TERM_XML);
- cobc_in_xml_generate_body = 1;
- cobc_cs_check = CB_CS_XML_GENERATE;
- cb_set_register_receiving (current_program->xml_code, 1);
- }
-#line 28316 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2651:
-#line 17572 "parser.y" /* yacc.c:1646 */
- {
- xml_encoding = NULL;
- with_xml_dec = 0;
- with_attrs = 0;
- ml_suppress_list = NULL;
- }
-#line 28327 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2652:
-#line 17583 "parser.y" /* yacc.c:1646 */
- {
- cobc_in_xml_generate_body = 0;
- cobc_cs_check = 0;
- }
-#line 28336 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2653:
-#line 17588 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_xml_generate ((yyvsp[-11]), (yyvsp[-9]), (yyvsp[-8]), xml_encoding, with_xml_dec,
- with_attrs, (yyvsp[-5]), (yyvsp[-4]), (yyvsp[-3]), ml_suppress_list);
- }
-#line 28345 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2659:
-#line 17610 "parser.y" /* yacc.c:1646 */
- {
- xml_encoding = (yyvsp[0]);
- if (with_xml_dec) {
- cb_error (_("ENCODING clause must come before XML-DECLARATION"));
- } else if (with_attrs) {
- cb_error (_("ENCODING clause must come before ATTRIBUTES"));
- }
- cb_verify (cb_xml_generate_extra_phrases,
- _("XML GENERATE ENCODING clause"));
- CB_PENDING ("XML GENERATE ENCODING");
- }
-#line 28361 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2660:
-#line 17622 "parser.y" /* yacc.c:1646 */
- {
- with_xml_dec = 1;
- if (with_attrs) {
- cb_error (_("XML-DECLARATION clause must come before ATTRIBUTES"));
- }
- cb_verify (cb_xml_generate_extra_phrases,
- _("XML GENERATE XML-DECLARATION clause"));
- }
-#line 28374 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2661:
-#line 17631 "parser.y" /* yacc.c:1646 */
- {
- with_attrs = 1;
- cb_verify (cb_xml_generate_extra_phrases,
- _("XML GENERATE WITH ATTRIBUTES clause"));
- }
-#line 28384 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2662:
-#line 17640 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 28392 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2663:
-#line 17644 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_BUILD_PAIR ((yyvsp[-1]), (yyvsp[0]));
- cb_verify (cb_xml_generate_extra_phrases,
- _("XML GENERATE NAMESPACE clause"));
- }
-#line 28402 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2664:
-#line 17653 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_null;
- }
-#line 28410 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2665:
-#line 17657 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 28418 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2666:
-#line 17664 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 28426 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2667:
-#line 17668 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- cb_verify (cb_xml_generate_extra_phrases,
- _("XML GENERATE NAME OF clause"));
- }
-#line 28436 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2668:
-#line 17677 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_LIST_INIT ((yyvsp[0]));
- }
-#line 28444 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2669:
-#line 17681 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0]));
- }
-#line 28452 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2670:
-#line 17688 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_BUILD_PAIR ((yyvsp[-2]), (yyvsp[0]));
- }
-#line 28460 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2671:
-#line 17695 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 28468 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2672:
-#line 17699 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 28476 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2673:
-#line 17706 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_LIST_INIT ((yyvsp[0]));
- }
-#line 28484 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2674:
-#line 17710 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0]));
- }
-#line 28492 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2675:
-#line 17717 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_BUILD_PAIR ((yyvsp[-2]), (yyvsp[0]));
- }
-#line 28500 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2676:
-#line 17721 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_BUILD_PAIR ((yyvsp[-2]), cb_null);
- }
-#line 28508 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2677:
-#line 17728 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 28516 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2678:
-#line 17732 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- cb_verify (cb_xml_generate_extra_phrases,
- _("XML GENERATE TYPE OF clause"));
- }
-#line 28526 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2679:
-#line 17741 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_LIST_INIT ((yyvsp[0]));
- }
-#line 28534 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2680:
-#line 17745 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0]));
- }
-#line 28542 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2681:
-#line 17752 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_BUILD_PAIR ((yyvsp[-2]), (yyvsp[0]));
- }
-#line 28550 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2682:
-#line 17759 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int ((int) CB_ML_ANY_TYPE);
- }
-#line 28558 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2684:
-#line 17766 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int ((int) CB_ML_ATTRIBUTE); }
-#line 28564 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2685:
-#line 17767 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int ((int) CB_ML_ELEMENT); }
-#line 28570 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2686:
-#line 17768 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int ((int) CB_ML_CONTENT); }
-#line 28576 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2688:
-#line 17774 "parser.y" /* yacc.c:1646 */
- {
- cb_verify (cb_xml_generate_extra_phrases,
- _("XML GENERATE SUPPRESS clause"));
- }
-#line 28585 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2691:
-#line 17787 "parser.y" /* yacc.c:1646 */
- {
- error_if_following_every_clause ();
- add_identifier_to_ml_suppress_conds ((yyvsp[0]));
- }
-#line 28594 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2692:
-#line 17792 "parser.y" /* yacc.c:1646 */
- {
- error_if_following_every_clause ();
- add_type_to_ml_suppress_conds (ml_suppress_category, (enum cb_ml_type) CB_INTEGER ((yyvsp[0]))->val);
- }
-#line 28603 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2693:
-#line 17797 "parser.y" /* yacc.c:1646 */
- {
- add_when_to_ml_suppress_conds ((yyvsp[0]));
- }
-#line 28611 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2694:
-#line 17804 "parser.y" /* yacc.c:1646 */
- {
- ml_suppress_category = CB_ML_SUPPRESS_CAT_NUMERIC;
- (yyval) = (yyvsp[0]);
- }
-#line 28620 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2695:
-#line 17809 "parser.y" /* yacc.c:1646 */
- {
- ml_suppress_category = CB_ML_SUPPRESS_CAT_NONNUMERIC;
- (yyval) = (yyvsp[0]);
- }
-#line 28629 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2696:
-#line 17814 "parser.y" /* yacc.c:1646 */
- {
- ml_suppress_category = CB_ML_SUPPRESS_CAT_ANY;
- (yyval) = (yyvsp[0]);
- }
-#line 28638 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2697:
-#line 17822 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_LIST_INIT ((yyvsp[0]));
- }
-#line 28646 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2698:
-#line 17826 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_list_add ((yyvsp[-2]), (yyvsp[0]));
- }
-#line 28654 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2699:
-#line 17833 "parser.y" /* yacc.c:1646 */
- {
- TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), XML);
- }
-#line 28662 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2700:
-#line 17837 "parser.y" /* yacc.c:1646 */
- {
- check_non_area_a_of ("END-XML");
- TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), XML);
- }
-#line 28671 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2701:
-#line 17848 "parser.y" /* yacc.c:1646 */
- {
- begin_statement (STMT_XML_PARSE, TERM_XML);
- CB_PENDING ("XML PARSE");
- cobc_cs_check = CB_CS_XML_PARSE;
- cb_set_register_receiving (current_program->xml_code, 1);
- cb_set_register_receiving (current_program->xml_event, 1);
- cb_set_register_receiving (current_program->xml_text, 1);
- cb_set_register_receiving (current_program->xml_ntext, 0);
- if (cb_xml_parse_xmlss) {
- cb_set_register_receiving (current_program->xml_namespace, 1);
- cb_set_register_receiving (current_program->xml_namespace_prefix, 1);
- cb_set_register_receiving (current_program->xml_nnamespace, 1);
- cb_set_register_receiving (current_program->xml_nnamespace_prefix, 1);
- }
- if (cb_xml_parse_xmlss) {
- cb_set_register_receiving (current_program->xml_information, 0);
- }
- }
-#line 28694 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2703:
-#line 17876 "parser.y" /* yacc.c:1646 */
- {
- if (((yyvsp[-6]) || (yyvsp[-5]) || (yyvsp[-4])) && !cb_xml_parse_xmlss) {
- cb_verify_x (CB_TREE (current_statement),
- CB_ERROR, "XML PARSE XMLSS");
- }
- cobc_cs_check = 0;
- }
-#line 28706 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2704:
-#line 17884 "parser.y" /* yacc.c:1646 */
- {
- cb_emit_xml_parse ((yyvsp[-9]), (yyvsp[-2]), (yyvsp[-7]) == cb_true, (yyvsp[-8]), (yyvsp[-6]));
- }
-#line 28714 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2705:
-#line 17891 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 28722 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2706:
-#line 17895 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING ("XML PARSE ENCODING");
- (yyval) = (yyvsp[0]);
- }
-#line 28731 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2707:
-#line 17902 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 28737 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2708:
-#line 17903 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_true; }
-#line 28743 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2709:
-#line 17907 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 28749 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2710:
-#line 17909 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 28755 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2712:
-#line 17915 "parser.y" /* yacc.c:1646 */
- {
- if (CB_SCHEMA_NAME_P (cb_ref ((yyvsp[0])))) {
- (yyval) = (yyvsp[0]);
- } else {
- cb_error_x ((yyvsp[0]), _("'%s' is not a schema name"), CB_NAME ((yyvsp[0])));
- (yyval) = cb_error_node;
- }
- }
-#line 28768 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2715:
-#line 17933 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[0])) {
- cb_verify (cb_not_exception_before_exception,
- _("NOT EXCEPTION before EXCEPTION"));
- }
- }
-#line 28779 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2716:
-#line 17943 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 28787 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2717:
-#line 17947 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int1;
- }
-#line 28795 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2718:
-#line 17954 "parser.y" /* yacc.c:1646 */
- {
- current_statement->handler_type = ACCEPT_HANDLER;
- current_statement->ex_handler = (yyvsp[0]);
- if (!is_valid_statement_tree ((yyvsp[0]))) {
- cb_error (_("%s without imperative statement"),
- (yyvsp[-2]) == cb_int0 ? "ON ESCAPE" : "ON EXCEPTION");
- }
- }
-#line 28808 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2719:
-#line 17965 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int0; }
-#line 28814 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2720:
-#line 17966 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int1; }
-#line 28820 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2723:
-#line 17976 "parser.y" /* yacc.c:1646 */
- {
- current_statement->handler_type = ACCEPT_HANDLER;
- current_statement->not_ex_handler = (yyvsp[0]);
- if (!is_valid_statement_tree ((yyvsp[0]))) {
- cb_error (_("%s without imperative statement"),
- (yyvsp[-1]) == cb_int0 ? "NOT ON ESCAPE" : "NOT ON EXCEPTION");
- }
- }
-#line 28833 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2724:
-#line 17987 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int0; }
-#line 28839 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2725:
-#line 17988 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int0; }
-#line 28845 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2728:
-#line 17996 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[0])) {
- cb_verify (cb_not_exception_before_exception,
- _("NOT EXCEPTION before EXCEPTION"));
- }
- }
-#line 28856 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2729:
-#line 18006 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 28864 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2730:
-#line 18010 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int1;
- }
-#line 28872 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2731:
-#line 18017 "parser.y" /* yacc.c:1646 */
- {
- current_statement->handler_type = get_handler_type_from_statement(current_statement);
- current_statement->ex_handler = (yyvsp[0]);
- if (!is_valid_statement_tree ((yyvsp[0]))) {
- cb_error (_("%s without imperative statement"), "ON EXCEPTION");
- }
- }
-#line 28884 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2734:
-#line 18033 "parser.y" /* yacc.c:1646 */
- {
- current_statement->handler_type = get_handler_type_from_statement (current_statement);
- current_statement->not_ex_handler = (yyvsp[0]);
- if (!is_valid_statement_tree ((yyvsp[0]))) {
- cb_error (_("%s without imperative statement"), "NOT ON EXCEPTION");
- }
- }
-#line 28896 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2735:
-#line 18046 "parser.y" /* yacc.c:1646 */
- {
- /* no [NOT] ON SIZE ERROR is specified (= no explicit handling) */
- }
-#line 28904 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2737:
-#line 18051 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[0])) {
- cb_verify (cb_not_exception_before_exception,
- _("NOT SIZE ERROR before SIZE ERROR"));
- }
- }
-#line 28915 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2738:
-#line 18061 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 28923 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2739:
-#line 18065 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int1;
- }
-#line 28931 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2740:
-#line 18072 "parser.y" /* yacc.c:1646 */
- {
- current_statement->handler_type = SIZE_ERROR_HANDLER;
- if (is_valid_statement_tree ((yyvsp[0]))) {
- current_statement->ex_handler = (yyvsp[0]);
- } else {
- cb_error (_("%s without imperative statement"), "ON SIZE ERROR");
- }
- }
-#line 28944 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2743:
-#line 18089 "parser.y" /* yacc.c:1646 */
- {
- current_statement->handler_type = SIZE_ERROR_HANDLER;
- if (is_valid_statement_tree ((yyvsp[0]))) {
- current_statement->not_ex_handler = (yyvsp[0]);
- } else {
- cb_error (_("%s without imperative statement"), "NOT ON SIZE ERROR");
- }
- }
-#line 28957 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2746:
-#line 18105 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[0])) {
- cb_verify (cb_not_exception_before_exception,
- _("NOT OVERFLOW before OVERFLOW"));
- }
- }
-#line 28968 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2747:
-#line 18115 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 28976 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2748:
-#line 18119 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int1;
- }
-#line 28984 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2749:
-#line 18126 "parser.y" /* yacc.c:1646 */
- {
- current_statement->handler_type = OVERFLOW_HANDLER;
- if (is_valid_statement_tree ((yyvsp[0]))) {
- current_statement->ex_handler = (yyvsp[0]);
- } else {
- cb_error (_("%s without imperative statement"), "ON OVERFLOW");
- }
- }
-#line 28997 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2752:
-#line 18143 "parser.y" /* yacc.c:1646 */
- {
- current_statement->handler_type = OVERFLOW_HANDLER;
- if (is_valid_statement_tree ((yyvsp[0]))) {
- current_statement->not_ex_handler = (yyvsp[0]);
- } else {
- cb_error (_("%s without imperative statement"), "NOT ON OVERFLOW");
- }
- }
-#line 29010 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2754:
-#line 18159 "parser.y" /* yacc.c:1646 */
- {
- cb_verify (cb_not_exception_before_exception, _("NOT AT END before AT END"));
- }
-#line 29018 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2756:
-#line 18173 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[0])) {
- cb_verify (cb_not_exception_before_exception, _("NOT AT END before AT END"));
- }
- }
-#line 29028 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2757:
-#line 18182 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 29036 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2758:
-#line 18186 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int1;
- }
-#line 29044 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2759:
-#line 18193 "parser.y" /* yacc.c:1646 */
- {
- current_statement->handler_type = AT_END_HANDLER;
- if (is_valid_statement_tree ((yyvsp[0]))) {
- current_statement->ex_handler = (yyvsp[0]);
- } else {
- cb_error (_("%s without imperative statement"), "AT END");
- }
- }
-#line 29057 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2762:
-#line 18210 "parser.y" /* yacc.c:1646 */
- {
- current_statement->handler_type = AT_END_HANDLER;
- if (is_valid_statement_tree ((yyvsp[0]))) {
- current_statement->not_ex_handler = (yyvsp[0]);
- } else {
- cb_error (_("%s without imperative statement"), "NOT AT END");
- }
- }
-#line 29070 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2764:
-#line 18225 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[0])) {
- cb_verify (cb_not_exception_before_exception,
- _("NOT AT END-OF-PAGE before AT END-OF-PAGE"));
- }
- }
-#line 29081 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2765:
-#line 18235 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 29089 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2766:
-#line 18239 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int1;
- }
-#line 29097 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2767:
-#line 18246 "parser.y" /* yacc.c:1646 */
- {
- current_statement->handler_type = EOP_HANDLER;
- if (is_valid_statement_tree ((yyvsp[0]))) {
- current_statement->ex_handler = (yyvsp[0]);
- } else {
- cb_error (_("%s without imperative statement"), "AT END OF PAGE");
- }
- }
-#line 29110 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2770:
-#line 18263 "parser.y" /* yacc.c:1646 */
- {
- current_statement->handler_type = EOP_HANDLER;
- if (is_valid_statement_tree ((yyvsp[0]))) {
- current_statement->not_ex_handler = (yyvsp[0]);
- } else {
- cb_error (_("%s without imperative statement"), "NOT AT END OF PAGE");
- }
- }
-#line 29123 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2774:
-#line 18283 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[0])) {
- cb_verify (cb_not_exception_before_exception,
- _("NOT INVALID KEY before INVALID KEY"));
- }
- }
-#line 29134 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2775:
-#line 18293 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 29142 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2776:
-#line 18297 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int1;
- }
-#line 29150 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2777:
-#line 18304 "parser.y" /* yacc.c:1646 */
- {
- current_statement->handler_type = INVALID_KEY_HANDLER;
- if (is_valid_statement_tree ((yyvsp[0]))) {
- current_statement->ex_handler = (yyvsp[0]);
- } else {
- cb_error (_("%s without imperative statement"), "INVALID KEY");
- }
- }
-#line 29163 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2780:
-#line 18321 "parser.y" /* yacc.c:1646 */
- {
- current_statement->handler_type = INVALID_KEY_HANDLER;
- if (is_valid_statement_tree ((yyvsp[0]))) {
- current_statement->not_ex_handler = (yyvsp[0]);
- } else {
- cb_error (_("%s without imperative statement"), "NOT INVALID KEY");
- }
- }
-#line 29176 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2781:
-#line 18335 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 29184 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2782:
-#line 18339 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int1;
- CB_PENDING ("THREAD");
- }
-#line 29193 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2783:
-#line 18347 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 29201 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2784:
-#line 18351 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- CB_PENDING ("THREAD");
- }
-#line 29210 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2785:
-#line 18359 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 29218 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2786:
-#line 18363 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 29226 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2787:
-#line 18372 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_one;
- }
-#line 29234 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2788:
-#line 18376 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[-1]);
- }
-#line 29242 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2789:
-#line 18382 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 29248 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2790:
-#line 18383 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 29254 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2791:
-#line 18396 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_cond ((yyvsp[0]));
- cb_end_cond ((yyval));
- }
-#line 29263 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2792:
-#line 18401 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_error_node;
- cb_end_cond ((yyval));
- }
-#line 29272 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2793:
-#line 18409 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_expr ((yyvsp[0]));
- }
-#line 29280 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2794:
-#line 18415 "parser.y" /* yacc.c:1646 */
- {
- current_expr = NULL;
- cb_exp_line = cb_source_line;
- }
-#line 29289 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2795:
-#line 18420 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_list_reverse (current_expr);
- }
-#line 29297 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2798:
-#line 18431 "parser.y" /* yacc.c:1646 */
- { push_expr ('x', (yyvsp[0])); }
-#line 29303 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2801:
-#line 18436 "parser.y" /* yacc.c:1646 */
- { push_expr ('x', cb_zero); }
-#line 29309 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2802:
-#line 18438 "parser.y" /* yacc.c:1646 */
- { push_expr ('(', NULL); }
-#line 29315 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2803:
-#line 18439 "parser.y" /* yacc.c:1646 */
- { push_expr (')', NULL); }
-#line 29321 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2804:
-#line 18441 "parser.y" /* yacc.c:1646 */
- { push_expr ('+', NULL); }
-#line 29327 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2805:
-#line 18442 "parser.y" /* yacc.c:1646 */
- { push_expr ('-', NULL); }
-#line 29333 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2806:
-#line 18443 "parser.y" /* yacc.c:1646 */
- { push_expr ('*', NULL); }
-#line 29339 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2807:
-#line 18444 "parser.y" /* yacc.c:1646 */
- { push_expr ('/', NULL); }
-#line 29345 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2808:
-#line 18445 "parser.y" /* yacc.c:1646 */
- { push_expr ('^', NULL); }
-#line 29351 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2810:
-#line 18448 "parser.y" /* yacc.c:1646 */
- { push_expr ('&', NULL); }
-#line 29357 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2811:
-#line 18449 "parser.y" /* yacc.c:1646 */
- { push_expr ('|', NULL); }
-#line 29363 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2812:
-#line 18450 "parser.y" /* yacc.c:1646 */
- { push_expr ('a', NULL); }
-#line 29369 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2813:
-#line 18451 "parser.y" /* yacc.c:1646 */
- { push_expr ('o', NULL); }
-#line 29375 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2814:
-#line 18452 "parser.y" /* yacc.c:1646 */
- { push_expr ('e', NULL); }
-#line 29381 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2815:
-#line 18453 "parser.y" /* yacc.c:1646 */
- { push_expr ('n', NULL); }
-#line 29387 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2816:
-#line 18454 "parser.y" /* yacc.c:1646 */
- { push_expr ('l', NULL); }
-#line 29393 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2817:
-#line 18455 "parser.y" /* yacc.c:1646 */
- { push_expr ('r', NULL); }
-#line 29399 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2818:
-#line 18456 "parser.y" /* yacc.c:1646 */
- { push_expr ('c', NULL); }
-#line 29405 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2819:
-#line 18457 "parser.y" /* yacc.c:1646 */
- { push_expr ('d', NULL); }
-#line 29411 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2820:
-#line 18462 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_cond ((yyvsp[0]));
- cb_end_cond ((yyval));
- }
-#line 29420 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2821:
-#line 18467 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_error_node;
- cb_end_cond ((yyval));
- }
-#line 29429 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2822:
-#line 18475 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_expr ((yyvsp[0]));
- }
-#line 29437 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2823:
-#line 18481 "parser.y" /* yacc.c:1646 */
- {
- current_expr = NULL;
- cb_exp_line = cb_source_line;
- }
-#line 29446 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2824:
-#line 18486 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_list_reverse (current_expr);
- }
-#line 29454 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2827:
-#line 18497 "parser.y" /* yacc.c:1646 */
- { push_expr ('x', (yyvsp[0])); }
-#line 29460 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2830:
-#line 18500 "parser.y" /* yacc.c:1646 */
- { push_expr ('x', cb_zero); }
-#line 29466 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2831:
-#line 18502 "parser.y" /* yacc.c:1646 */
- { push_expr ('(', NULL); }
-#line 29472 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2832:
-#line 18503 "parser.y" /* yacc.c:1646 */
- { push_expr (')', NULL); }
-#line 29478 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2833:
-#line 18505 "parser.y" /* yacc.c:1646 */
- { push_expr ('+', NULL); }
-#line 29484 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2834:
-#line 18506 "parser.y" /* yacc.c:1646 */
- { push_expr ('-', NULL); }
-#line 29490 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2835:
-#line 18507 "parser.y" /* yacc.c:1646 */
- { push_expr ('*', NULL); }
-#line 29496 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2836:
-#line 18508 "parser.y" /* yacc.c:1646 */
- { push_expr ('/', NULL); }
-#line 29502 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2837:
-#line 18509 "parser.y" /* yacc.c:1646 */
- { push_expr ('^', NULL); }
-#line 29508 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2838:
-#line 18511 "parser.y" /* yacc.c:1646 */
- { push_expr ('&', NULL); }
-#line 29514 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2839:
-#line 18512 "parser.y" /* yacc.c:1646 */
- { push_expr ('|', NULL); }
-#line 29520 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2840:
-#line 18513 "parser.y" /* yacc.c:1646 */
- { push_expr ('a', NULL); }
-#line 29526 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2841:
-#line 18514 "parser.y" /* yacc.c:1646 */
- { push_expr ('o', NULL); }
-#line 29532 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2842:
-#line 18515 "parser.y" /* yacc.c:1646 */
- { push_expr ('e', NULL); }
-#line 29538 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2843:
-#line 18516 "parser.y" /* yacc.c:1646 */
- { push_expr ('n', NULL); }
-#line 29544 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2844:
-#line 18517 "parser.y" /* yacc.c:1646 */
- { push_expr ('l', NULL); }
-#line 29550 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2845:
-#line 18518 "parser.y" /* yacc.c:1646 */
- { push_expr ('r', NULL); }
-#line 29556 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2846:
-#line 18519 "parser.y" /* yacc.c:1646 */
- { push_expr ('c', NULL); }
-#line 29562 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2847:
-#line 18520 "parser.y" /* yacc.c:1646 */
- { push_expr ('d', NULL); }
-#line 29568 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2850:
-#line 18529 "parser.y" /* yacc.c:1646 */
- { push_expr ('!', NULL); }
-#line 29574 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2851:
-#line 18532 "parser.y" /* yacc.c:1646 */
- { push_expr ('C', (yyvsp[0])); }
-#line 29580 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2852:
-#line 18534 "parser.y" /* yacc.c:1646 */
- { push_expr ('=', NULL); }
-#line 29586 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2853:
-#line 18535 "parser.y" /* yacc.c:1646 */
- { push_expr ('>', NULL); }
-#line 29592 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2854:
-#line 18536 "parser.y" /* yacc.c:1646 */
- { push_expr ('<', NULL); }
-#line 29598 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2855:
-#line 18537 "parser.y" /* yacc.c:1646 */
- { push_expr (']', NULL); }
-#line 29604 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2856:
-#line 18538 "parser.y" /* yacc.c:1646 */
- { push_expr ('[', NULL); }
-#line 29610 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2857:
-#line 18539 "parser.y" /* yacc.c:1646 */
- { push_expr ('~', NULL); }
-#line 29616 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2858:
-#line 18541 "parser.y" /* yacc.c:1646 */
- { push_expr ('O', NULL); }
-#line 29622 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2859:
-#line 18542 "parser.y" /* yacc.c:1646 */
- { push_expr ('9', NULL); }
-#line 29628 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2860:
-#line 18543 "parser.y" /* yacc.c:1646 */
- { push_expr ('A', NULL); }
-#line 29634 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2861:
-#line 18544 "parser.y" /* yacc.c:1646 */
- { push_expr ('L', NULL); }
-#line 29640 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2862:
-#line 18545 "parser.y" /* yacc.c:1646 */
- { push_expr ('U', NULL); }
-#line 29646 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2863:
-#line 18549 "parser.y" /* yacc.c:1646 */
- { push_expr ('P', NULL); }
-#line 29652 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2864:
-#line 18550 "parser.y" /* yacc.c:1646 */
- { push_expr ('N', NULL); }
-#line 29658 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2873:
-#line 18580 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_LIST_INIT ((yyvsp[0]));
- }
-#line 29666 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2874:
-#line 18584 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_list_add ((yyvsp[-2]), (yyvsp[0]));
- }
-#line 29674 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2878:
-#line 18596 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_build_binary_op ((yyvsp[-2]), '+', (yyvsp[0])); }
-#line 29680 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2879:
-#line 18597 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_build_binary_op ((yyvsp[-2]), '-', (yyvsp[0])); }
-#line 29686 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2880:
-#line 18598 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 29692 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2881:
-#line 18602 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_build_binary_op ((yyvsp[-2]), '*', (yyvsp[0])); }
-#line 29698 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2882:
-#line 18603 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_build_binary_op ((yyvsp[-2]), '/', (yyvsp[0])); }
-#line 29704 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2883:
-#line 18604 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_build_binary_op ((yyvsp[-2]), 'a', (yyvsp[0])); }
-#line 29710 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2884:
-#line 18605 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_build_binary_op ((yyvsp[-2]), 'o', (yyvsp[0])); }
-#line 29716 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2885:
-#line 18606 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_build_binary_op ((yyvsp[-2]), 'e', (yyvsp[0])); }
-#line 29722 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2886:
-#line 18607 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_build_binary_op ((yyvsp[-2]), 'l', (yyvsp[0])); }
-#line 29728 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2887:
-#line 18608 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_build_binary_op ((yyvsp[-2]), 'r', (yyvsp[0])); }
-#line 29734 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2888:
-#line 18609 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_build_binary_op ((yyvsp[-2]), 'c', (yyvsp[0])); }
-#line 29740 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2889:
-#line 18610 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_build_binary_op ((yyvsp[-2]), 'd', (yyvsp[0])); }
-#line 29746 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2890:
-#line 18611 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 29752 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2891:
-#line 18616 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_binary_op ((yyvsp[-2]), '^', (yyvsp[0]));
- }
-#line 29760 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2892:
-#line 18619 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 29766 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2893:
-#line 18623 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 29772 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2894:
-#line 18624 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_build_binary_op (cb_zero, '-', (yyvsp[0])); }
-#line 29778 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2895:
-#line 18625 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_build_binary_op (cb_zero, 'n', (yyvsp[0])); }
-#line 29784 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2896:
-#line 18626 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 29790 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2897:
-#line 18629 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[-1]); }
-#line 29796 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2898:
-#line 18630 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 29802 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2899:
-#line 18641 "parser.y" /* yacc.c:1646 */
- {
- if (current_linage > 1) {
- cb_error (_("LINAGE-COUNTER must be qualified here"));
- (yyval) = cb_error_node;
- } else if (current_linage == 0) {
- cb_error (_("invalid LINAGE-COUNTER usage"));
- (yyval) = cb_error_node;
- } else {
- (yyval) = linage_file->linage_ctr;
- }
- }
-#line 29818 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2900:
-#line 18653 "parser.y" /* yacc.c:1646 */
- {
- if (CB_FILE_P (cb_ref ((yyvsp[0])))) {
- (yyval) = CB_FILE (cb_ref ((yyvsp[0])))->linage_ctr;
- } else {
- cb_error_x ((yyvsp[0]), _("'%s' is not a file name"), CB_NAME ((yyvsp[0])));
- (yyval) = cb_error_node;
- }
- }
-#line 29831 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2901:
-#line 18662 "parser.y" /* yacc.c:1646 */
- {
- if (report_count > 1) {
- if (current_report != NULL) {
- (yyval) = current_report->line_counter;
- } else {
- cb_error (_("LINE-COUNTER must be qualified here"));
- (yyval) = cb_error_node;
- }
- } else if (report_count == 0) {
- cb_error (_("invalid LINE-COUNTER usage"));
- (yyval) = cb_error_node;
- } else {
- (yyval) = report_instance->line_counter;
- }
- }
-#line 29851 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2902:
-#line 18678 "parser.y" /* yacc.c:1646 */
- {
- if (CB_REF_OR_REPORT_P ((yyvsp[0]))) {
- (yyval) = CB_REPORT_PTR ((yyvsp[0]))->line_counter;
- } else {
- cb_error_x ((yyvsp[0]), _("'%s' is not a report name"), CB_NAME ((yyvsp[0])));
- (yyval) = cb_error_node;
- }
- }
-#line 29864 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2903:
-#line 18687 "parser.y" /* yacc.c:1646 */
- {
- if (report_count > 1) {
- if (current_report != NULL) {
- (yyval) = current_report->page_counter;
- } else {
- cb_error (_("PAGE-COUNTER must be qualified here"));
- (yyval) = cb_error_node;
- }
- } else if (report_count == 0) {
- cb_error (_("invalid PAGE-COUNTER usage"));
- (yyval) = cb_error_node;
- } else {
- (yyval) = report_instance->page_counter;
- }
- }
-#line 29884 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2904:
-#line 18703 "parser.y" /* yacc.c:1646 */
- {
- if (CB_REF_OR_REPORT_P ((yyvsp[0]))) {
- (yyval) = CB_REPORT_PTR ((yyvsp[0]))->page_counter;
- } else {
- cb_error_x ((yyvsp[0]), _("'%s' is not a report name"), CB_NAME ((yyvsp[0])));
- (yyval) = cb_error_node;
- }
- }
-#line 29897 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2905:
-#line 18717 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 29903 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2906:
-#line 18719 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_list_append ((yyvsp[-1]), (yyvsp[0])); }
-#line 29909 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2907:
-#line 18724 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_BUILD_PAIR ((yyvsp[0]), (yyvsp[-1]));
- }
-#line 29917 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2908:
-#line 18732 "parser.y" /* yacc.c:1646 */
- { cb_build_identifier ((yyvsp[0]), 0); }
-#line 29923 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2909:
-#line 18739 "parser.y" /* yacc.c:1646 */
- {
- if (!CB_FILE_P (cb_ref ((yyvsp[0])))) {
- (yyval) = (yyvsp[0]);
- } else {
- cb_error_x ((yyvsp[0]), _("%s requires a record name as subject"),
- cb_statement_name[current_statement->statement]);
- (yyval) = cb_error_node;
- }
- }
-#line 29937 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2910:
-#line 18749 "parser.y" /* yacc.c:1646 */
- {
- if (CB_FILE_P (cb_ref ((yyvsp[0])))) {
- (yyval) = (yyvsp[0]);
- } else {
- cb_error_x ((yyvsp[0]), _("'%s' is not a file name"), CB_NAME ((yyvsp[0])));
- (yyval) = cb_error_node;
- }
- }
-#line 29950 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2911:
-#line 18763 "parser.y" /* yacc.c:1646 */
- {
- cb_tree x;
-
- x = cb_ref ((yyvsp[0]));
- if (!CB_FIELD_P (x)) {
- (yyval) = cb_error_node;
- } else if (!CB_FIELD (x)->index_list) {
- cb_error_x ((yyvsp[0]), _("'%s' not indexed"), cb_name ((yyvsp[0])));
- cb_note_x (COB_WARNOPT_NONE, x, _("'%s' defined here"), cb_name (x));
- (yyval) = cb_error_node;
- } else if (CB_FIELD (x)->nkeys == 0
- && current_statement->statement == STMT_SEARCH_ALL) {
- cb_error_x ((yyvsp[0]), _("SEARCH ALL requires KEY phrase"));
- cb_note_x (COB_WARNOPT_NONE, x, _("'%s' defined here"), cb_name (x));
- (yyval) = cb_error_node;
- } else {
- (yyval) = (yyvsp[0]);
- }
- }
-#line 29974 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2912:
-#line 18788 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_LIST_INIT ((yyvsp[0]));
- }
-#line 29982 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2913:
-#line 18792 "parser.y" /* yacc.c:1646 */
- {
- cb_tree l;
-
- if (CB_VALID_TREE ((yyvsp[0]))) {
- for (l = (yyvsp[-1]); l; l = CB_CHAIN (l)) {
- if (CB_VALID_TREE (CB_VALUE (l)) &&
- !strcasecmp (CB_NAME ((yyvsp[0])), CB_NAME (CB_VALUE (l)))) {
- cb_error_x ((yyvsp[0]), _("multiple reference to '%s' "),
- CB_NAME ((yyvsp[0])));
- break;
- }
- }
- if (!l) {
- (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0]));
- }
- }
- }
-#line 30004 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2914:
-#line 18813 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_LIST_INIT ((yyvsp[0]));
- }
-#line 30012 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2915:
-#line 18817 "parser.y" /* yacc.c:1646 */
- {
- cb_tree l;
-
- if (CB_VALID_TREE ((yyvsp[0]))) {
- for (l = (yyvsp[-2]); l; l = CB_CHAIN (l)) {
- if (CB_VALID_TREE (CB_VALUE (l)) &&
- !strcasecmp (CB_NAME ((yyvsp[0])), CB_NAME (CB_VALUE (l)))) {
- cb_error_x ((yyvsp[0]), _("multiple reference to '%s' "),
- CB_NAME ((yyvsp[-1])));
- break;
- }
- }
- if (!l) {
- (yyval) = cb_list_add ((yyvsp[-2]), (yyvsp[0]));
- }
- }
- }
-#line 30034 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2916:
-#line 18838 "parser.y" /* yacc.c:1646 */
- {
- if (CB_FILE_P (cb_ref ((yyvsp[0])))) {
- (yyval) = (yyvsp[0]);
- } else {
- cb_error_x ((yyvsp[0]), _("'%s' is not a file name"), CB_NAME ((yyvsp[0])));
- (yyval) = cb_error_node;
- }
- }
-#line 30047 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2917:
-#line 18850 "parser.y" /* yacc.c:1646 */
- {
- if (CB_CD_P (cb_ref ((yyvsp[0])))) {
- (yyval) = (yyvsp[0]);
- } else {
- cb_error_x ((yyvsp[0]), _("'%s' is not a CD name"), CB_NAME ((yyvsp[0])));
- (yyval) = cb_error_node;
- }
- }
-#line 30060 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2918:
-#line 18864 "parser.y" /* yacc.c:1646 */
- {
- if (CB_REF_OR_REPORT_P ((yyvsp[0]))) {
- (yyval) = (yyvsp[0]);
- } else {
- cb_error (_("'%s' is not a valid report name"), CB_NAME ((yyvsp[0])));
- (yyval) = cb_error_node;
- }
- }
-#line 30073 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2919:
-#line 18877 "parser.y" /* yacc.c:1646 */
- { (yyval) = CB_LIST_INIT ((yyvsp[0])); }
-#line 30079 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2920:
-#line 18879 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0])); }
-#line 30085 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2921:
-#line 18883 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 30091 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2922:
-#line 18889 "parser.y" /* yacc.c:1646 */
- { (yyval) = CB_LIST_INIT ((yyvsp[0])); }
-#line 30097 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2923:
-#line 18891 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0])); }
-#line 30103 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2924:
-#line 18896 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_reference ((char *)(CB_LITERAL ((yyvsp[0]))->data));
- }
-#line 30111 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2925:
-#line 18905 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 30117 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2926:
-#line 18907 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0])); }
-#line 30123 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2927:
-#line 18912 "parser.y" /* yacc.c:1646 */
- {
- struct cb_reference *r = CB_REFERENCE ((yyvsp[0]));
-
- r->offset = CB_TREE (current_section);
- r->flag_in_decl = !!in_declaratives;
- r->flag_ignored = cb_set_ignore_error (-1);
-
- (yyval) = (yyvsp[0]);
- CB_ADD_TO_CHAIN ((yyvsp[0]), current_program->label_list);
- }
-#line 30138 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2930:
-#line 18928 "parser.y" /* yacc.c:1646 */
- {
- CB_REFERENCE ((yyvsp[-2]))->chain = (yyvsp[0]);
- }
-#line 30146 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2931:
-#line 18935 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_reference ((char *)(CB_LITERAL ((yyvsp[0]))->data));
- (yyval)->source_file = (yyvsp[0])->source_file;
- (yyval)->source_line = (yyvsp[0])->source_line;
- }
-#line 30156 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2932:
-#line 18945 "parser.y" /* yacc.c:1646 */
- { (yyval) = CB_LIST_INIT ((yyvsp[0])); }
-#line 30162 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2933:
-#line 18946 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0])); }
-#line 30168 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2934:
-#line 18951 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- CB_ADD_TO_CHAIN ((yyval), current_program->reference_list);
- }
-#line 30177 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2935:
-#line 18958 "parser.y" /* yacc.c:1646 */
- {(yyval) = NULL;}
-#line 30183 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2936:
-#line 18959 "parser.y" /* yacc.c:1646 */
- {(yyval) = (yyvsp[0]);}
-#line 30189 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2937:
-#line 18963 "parser.y" /* yacc.c:1646 */
- { (yyval) = CB_LIST_INIT ((yyvsp[0])); }
-#line 30195 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2938:
-#line 18964 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0])); }
-#line 30201 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2939:
-#line 18969 "parser.y" /* yacc.c:1646 */
- {
- if (!within_typedef_definition) {
- CB_ADD_TO_CHAIN ((yyvsp[0]), current_program->reference_list);
- }
- }
-#line 30211 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2940:
-#line 18981 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_LIST_INIT ((yyvsp[0]));
- }
-#line 30219 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2941:
-#line 18985 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0]));
- }
-#line 30227 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2942:
-#line 18992 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- CB_REFERENCE((yyval))->flag_optional = 1;
- CB_ADD_TO_CHAIN ((yyval), current_program->reference_list);
- }
-#line 30237 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2945:
-#line 19008 "parser.y" /* yacc.c:1646 */
- {
- if (CB_WORD_COUNT ((yyvsp[0])) > 0) {
- redefinition_error ((yyvsp[0]));
- (yyval) = cb_error_node;
- } else {
- (yyval) = (yyvsp[0]);
- }
- }
-#line 30250 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2946:
-#line 19017 "parser.y" /* yacc.c:1646 */
- {
- yyclearin;
- yyerrok;
- (yyval) = cb_error_node;
- }
-#line 30260 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2947:
-#line 19026 "parser.y" /* yacc.c:1646 */
- {
- if (CB_WORD_COUNT ((yyvsp[0])) > 0) {
- redefinition_error ((yyvsp[0]));
- (yyval) = cb_error_node;
- } else {
- (yyval) = (yyvsp[0]);
- }
- }
-#line 30273 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2948:
-#line 19040 "parser.y" /* yacc.c:1646 */
- {
- if (CB_REFERENCE ((yyvsp[0]))->flag_duped || CB_WORD_COUNT ((yyvsp[0])) > 0) {
- redefinition_error ((yyvsp[0]));
- (yyval) = NULL;
- } else {
- CB_WORD_COUNT ((yyvsp[0]))++;
- (yyval) = (yyvsp[0]);
- }
- }
-#line 30287 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2949:
-#line 19057 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_LIST_INIT ((yyvsp[0]));
- }
-#line 30295 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2950:
-#line 19061 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0]));
- }
-#line 30303 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2953:
-#line 19070 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_address ((yyvsp[0]));
- }
-#line 30311 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2954:
-#line 19076 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 30317 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2955:
-#line 19077 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 30323 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2956:
-#line 19082 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_LIST_INIT ((yyvsp[0]));
- }
-#line 30331 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2957:
-#line 19086 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0]));
- }
-#line 30339 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2965:
-#line 19106 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_length ((yyvsp[0]));
- }
-#line 30347 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2966:
-#line 19110 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_length ((yyvsp[0]));
- }
-#line 30355 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2967:
-#line 19114 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_length ((yyvsp[0]));
- }
-#line 30363 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2968:
-#line 19118 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_ppointer ((yyvsp[0]));
- }
-#line 30371 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2969:
-#line 19122 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_address (check_not_88_level ((yyvsp[0])));
- }
-#line 30379 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2970:
-#line 19126 "parser.y" /* yacc.c:1646 */
- {
- cb_tree x;
- cb_tree switch_id;
-
- x = cb_ref ((yyvsp[0]));
- if (CB_VALID_TREE (x)) {
- if (CB_SYSTEM_NAME (x)->category != CB_SWITCH_NAME) {
- cb_error_x ((yyvsp[0]), _("invalid mnemonic identifier"));
- (yyval) = cb_error_node;
- } else {
- switch_id = cb_int (CB_SYSTEM_NAME (x)->token);
- (yyval) = CB_BUILD_FUNCALL_1 ("cob_switch_value", switch_id);
- }
- } else {
- (yyval) = cb_error_node;
- }
- }
-#line 30401 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2971:
-#line 19147 "parser.y" /* yacc.c:1646 */
- {
- /* FIXME: check with "lookup_register ("LENGTH OF") != NULL"
- if we actually want to do this,
- otherwise raise an error "not defined in this dialect"
- */
- }
-#line 30412 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2972:
-#line 19157 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_LIST_INIT ((yyvsp[0]));
- }
-#line 30420 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2973:
-#line 19161 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0]));
- }
-#line 30428 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2981:
-#line 19178 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_length ((yyvsp[0]));
- }
-#line 30436 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2982:
-#line 19182 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_length ((yyvsp[0]));
- }
-#line 30444 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2983:
-#line 19186 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_length ((yyvsp[0]));
- }
-#line 30452 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2987:
-#line 19196 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_length ((yyvsp[0]));
- }
-#line 30460 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2988:
-#line 19200 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_length ((yyvsp[0]));
- }
-#line 30468 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2989:
-#line 19204 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_length ((yyvsp[0]));
- }
-#line 30476 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2990:
-#line 19211 "parser.y" /* yacc.c:1646 */
- {
- if (CB_TREE_CATEGORY ((yyvsp[0])) != CB_CATEGORY_ALPHANUMERIC) {
- cb_error_x ((yyvsp[0]), _("an alphanumeric literal is expected here"));
- (yyval) = cb_error_node;
- } else {
- (yyval) = (yyvsp[0]);
- }
- }
-#line 30489 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2991:
-#line 19223 "parser.y" /* yacc.c:1646 */
- {
- if (CB_TREE_CATEGORY ((yyvsp[0])) != CB_CATEGORY_NUMERIC) {
- cb_error_x ((yyvsp[0]), _("a numeric literal is expected here"));
- (yyval) = cb_error_node;
- } else {
- (yyval) = (yyvsp[0]);
- }
- }
-#line 30502 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2992:
-#line 19235 "parser.y" /* yacc.c:1646 */
- {
- if (CB_TREE_CATEGORY ((yyvsp[0])) == CB_CATEGORY_NUMERIC) {
- cb_error_x ((yyvsp[0]), _("a non-numeric literal is expected here"));
- (yyval) = cb_error_node;
- } else {
- (yyval) = (yyvsp[0]);
- }
- }
-#line 30515 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2993:
-#line 19247 "parser.y" /* yacc.c:1646 */
- {
- if (cb_tree_category ((yyvsp[0])) != CB_CATEGORY_NUMERIC
- || cb_get_int ((yyvsp[0])) == 0) {
- cb_error (_("non-zero value expected"));
- (yyval) = cb_int1;
- } else {
- (yyval) = (yyvsp[0]);
- }
- }
-#line 30529 "parser.c" /* yacc.c:1646 */
- break;
-
- case 2998:
-#line 19271 "parser.y" /* yacc.c:1646 */
- {
- error_if_not_usage_display_or_nonnumeric_lit ((yyvsp[0]));
- }
-#line 30537 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3000:
-#line 19279 "parser.y" /* yacc.c:1646 */
- {
- error_if_not_usage_display_or_nonnumeric_lit ((yyvsp[0]));
- }
-#line 30545 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3002:
-#line 19287 "parser.y" /* yacc.c:1646 */
- {
- error_if_not_usage_display_or_nonnumeric_lit ((yyvsp[0]));
- }
-#line 30553 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3008:
-#line 19305 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = check_not_88_level ((yyvsp[0]));
- }
-#line 30561 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3010:
-#line 19313 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = check_not_88_level ((yyvsp[0]));
- }
-#line 30569 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3013:
-#line 19322 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = check_not_88_level ((yyvsp[0]));
- }
-#line 30577 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3016:
-#line 19331 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = check_not_88_level ((yyvsp[0]));
- }
-#line 30585 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3018:
-#line 19336 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_zero;
- }
-#line 30593 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3019:
-#line 19345 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = check_not_88_level ((yyvsp[0]));
- }
-#line 30601 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3023:
-#line 19361 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = check_not_88_level ((yyvsp[0]));
- }
-#line 30609 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3025:
-#line 19369 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = check_not_88_level ((yyvsp[0]));
- }
-#line 30617 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3028:
-#line 19379 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_build_identifier ((yyvsp[0]), 0); }
-#line 30623 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3029:
-#line 19383 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_build_identifier ((yyvsp[0]), 1); }
-#line 30629 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3030:
-#line 19387 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]); }
-#line 30635 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3031:
-#line 19388 "parser.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[-1]); }
-#line 30641 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3032:
-#line 19393 "parser.y" /* yacc.c:1646 */
- {
- error_if_not_usage_display_or_nonnumeric_lit ((yyvsp[0]));
- }
-#line 30649 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3033:
-#line 19400 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[0]) != cb_error_node
- && cb_tree_category ((yyvsp[0])) != CB_CATEGORY_NUMERIC) {
- cb_error_x ((yyvsp[0]), _("'%s' is not numeric"), cb_name ((yyvsp[0])));
- }
- }
-#line 30660 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3034:
-#line 19410 "parser.y" /* yacc.c:1646 */
- {
- cb_tree x = NULL;
- if (CB_REFERENCE_P ((yyvsp[0]))) {
- x = cb_ref ((yyvsp[0]));
- }
- if (x && (CB_FIELD_P (x) || CB_FILE_P (x))) {
- (yyval) = cb_build_identifier ((yyvsp[0]), 0);
- } else {
- if (x != cb_error_node) {
- cb_error_x ((yyvsp[0]), _("'%s' is not a field or file"), cb_name ((yyvsp[0])));
- }
- (yyval) = cb_error_node;
- }
- }
-#line 30679 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3035:
-#line 19429 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = validated_field_reference ((yyvsp[0]));
- }
-#line 30687 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3036:
-#line 19438 "parser.y" /* yacc.c:1646 */
- {
- cb_tree x = CB_REFERENCE_P ((yyvsp[0])) ? cb_ref ((yyvsp[0])) : NULL;
-
- if (x && CB_FIELD_P (x) && CB_FIELD (x)->flag_is_typedef) {
- (yyval) = (yyvsp[0]);
- } else {
- if (x != cb_error_node) {
- cb_error_x ((yyvsp[0]), _("'%s' is not a type-name"), cb_name ((yyvsp[0])));
- }
- (yyval) = cb_error_node;
- }
- }
-#line 30704 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3037:
-#line 19454 "parser.y" /* yacc.c:1646 */
- {
- cb_tree x = validated_field_reference ((yyvsp[0]));
- if (x != cb_error_node) {
- (yyval) = cb_build_identifier ((yyvsp[0]), 0);
- } else {
- (yyval) = cb_error_node;
- }
- }
-#line 30717 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3038:
-#line 19466 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[-2]);
- if (start_debug) {
- cb_check_field_debug ((yyvsp[-2]));
- }
- }
-#line 30728 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3039:
-#line 19473 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[-1]);
- if (start_debug) {
- cb_check_field_debug ((yyvsp[-1]));
- }
- }
-#line 30739 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3040:
-#line 19480 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[-1]);
- if (start_debug) {
- cb_check_field_debug ((yyvsp[-1]));
- }
- }
-#line 30750 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3041:
-#line 19487 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- if (start_debug) {
- cb_check_field_debug ((yyvsp[0]));
- }
- }
-#line 30761 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3042:
-#line 19497 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_LIST_INIT ((yyvsp[0]));
- }
-#line 30769 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3043:
-#line 19501 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0]));
- }
-#line 30777 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3044:
-#line 19508 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_LIST_INIT ((yyvsp[0]));
- }
-#line 30785 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3045:
-#line 19512 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0]));
- }
-#line 30793 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3046:
-#line 19519 "parser.y" /* yacc.c:1646 */
- {
- cb_tree target = cb_try_ref ((yyvsp[0]));
- if (CB_FIELD_P (target)) {
- const struct cb_field *f = CB_FIELD (target);
- struct cb_reference *r = CB_REFERENCE ((yyvsp[0]));
- if (r->offset) {
- cb_error_x ((yyvsp[0]), _("'%s' cannot be reference modified"), "VALIDATE FOR");
- }
- if (f->flag_occurs && current_field->flag_occurs) {
- /* HACK, should be done correct later, for now adjusts subscript-check */
- r->flag_all = 1;
- }
- (yyval) = cb_build_identifier ((yyvsp[0]), 0);
- } else {
- cb_error_x ((yyvsp[0]), _("'%s' is not a field"), cb_name (target));
- }
- (yyval) = target;
- }
-#line 30816 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3047:
-#line 19541 "parser.y" /* yacc.c:1646 */
- {
- if (CB_REFERENCE_P ((yyvsp[0]))) {
- CB_REFERENCE ((yyvsp[0]))->flag_target = 1;
- if (cb_listing_xref) {
- cobc_xref_set_receiving ((yyvsp[0]));
- }
- }
- if (start_debug) {
- cb_check_field_debug ((yyvsp[0]));
- }
- (yyval) = cb_build_identifier ((yyvsp[0]), 0);
- }
-#line 30833 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3048:
-#line 19554 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_identifier ((yyvsp[0]), 0);
- }
-#line 30841 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3049:
-#line 19561 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[-2]);
- }
-#line 30849 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3050:
-#line 19565 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[-1]);
- }
-#line 30857 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3051:
-#line 19569 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[-1]);
- }
-#line 30865 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3052:
-#line 19573 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 30873 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3053:
-#line 19580 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- if ((yyvsp[0]) != cb_error_node) {
- CB_REFERENCE ((yyvsp[0]))->flag_target = 1;
- if (cb_listing_xref) {
- cobc_xref_set_receiving ((yyvsp[0]));
- }
- if (start_debug) {
- cb_check_field_debug ((yyvsp[0]));
- }
- }
- }
-#line 30890 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3054:
-#line 19596 "parser.y" /* yacc.c:1646 */
- {
- cb_tree x = cb_ref ((yyvsp[0]));
- if (!CB_FIELD_P (x)) {
- (yyval) = cb_error_node;
- } else {
- (yyval) = (yyvsp[0]);
- }
- }
-#line 30903 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3055:
-#line 19609 "parser.y" /* yacc.c:1646 */
- {
- cb_tree x = NULL;
- (yyval) = (yyvsp[0]);
- if (start_debug) {
- cb_check_field_debug ((yyvsp[0]));
- }
- if (CB_REFERENCE_P ((yyvsp[0]))) {
- x = cb_ref ((yyvsp[0]));
- }
- if (x && CB_FIELD_P (x)) {
- (yyval) = cb_build_identifier ((yyvsp[0]), 0);
- error_if_not_usage_display_or_nonnumeric_lit ((yyvsp[0]));
- } else if (x && CB_ALPHABET_NAME_P (x)) {
- /* TODO: add check for subscript/ ref-mod here [not allowed] */
- (yyval) = cb_build_identifier ((yyvsp[0]), 0);
- } else {
- if (x != cb_error_node) {
- cb_error_x ((yyvsp[0]), _("'%s' is not a field or alphabet"), cb_name ((yyvsp[0])));
- }
- (yyval) = cb_error_node;
- }
- }
-#line 30930 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3056:
-#line 19635 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 30938 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3057:
-#line 19639 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[-2]);
- CB_REFERENCE ((yyvsp[-2]))->chain = (yyvsp[0]);
- }
-#line 30947 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3058:
-#line 19646 "parser.y" /* yacc.c:1646 */
- {
- start_tree = NULL; /* actually not needed - initialized for clarity only */
- }
-#line 30955 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3059:
-#line 19650 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[0]) == cb_error_node) {
- cb_error_x (start_tree, _("a subscripted data-item cannot be used here"));
- }
- (yyval) = start_tree;
- }
-#line 30966 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3060:
-#line 19660 "parser.y" /* yacc.c:1646 */
- {
- start_tree = (yyvsp[0]);
- (yyval) = (yyvsp[0]);
- }
-#line 30975 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3061:
-#line 19665 "parser.y" /* yacc.c:1646 */
- {
- start_tree = (yyvsp[-2]);
- (yyval) = cb_error_node;
- }
-#line 30984 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3062:
-#line 19673 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[-3]);
- CB_REFERENCE ((yyvsp[-3]))->subs = cb_list_reverse ((yyvsp[-1]));
- }
-#line 30993 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3063:
-#line 19681 "parser.y" /* yacc.c:1646 */
- {
- if (cb_ref ((yyvsp[-4])) != cb_error_node) {
- if (cb_tree_category ((yyvsp[-4])) == CB_CATEGORY_NATIONAL ||
- cb_tree_category ((yyvsp[-4])) == CB_CATEGORY_NATIONAL_EDITED) {
- (yyvsp[-2]) = cb_build_binary_op ((yyvsp[-2]), '*', cb_int2);
- (yyvsp[-2]) = cb_build_binary_op ((yyvsp[-2]), '-', cb_int1);
- } else {
- CB_TREE ((yyvsp[-4]))->category = CB_CATEGORY_ALPHANUMERIC;
- }
- }
- CB_REFERENCE ((yyvsp[-4]))->offset = (yyvsp[-2]);
- }
-#line 31010 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3064:
-#line 19694 "parser.y" /* yacc.c:1646 */
- {
- if (cb_ref ((yyvsp[-5])) != cb_error_node) {
- if (cb_tree_category ((yyvsp[-5])) == CB_CATEGORY_NATIONAL ||
- cb_tree_category ((yyvsp[-5])) == CB_CATEGORY_NATIONAL_EDITED) {
- (yyvsp[-3]) = cb_build_binary_op ((yyvsp[-3]), '*', cb_int2);
- (yyvsp[-3]) = cb_build_binary_op ((yyvsp[-3]), '-', cb_int1);
- (yyvsp[-1]) = cb_build_binary_op ((yyvsp[-1]), '*', cb_int2);
- } else {
- CB_TREE ((yyvsp[-5]))->category = CB_CATEGORY_ALPHANUMERIC;
- }
- }
- CB_REFERENCE ((yyvsp[-5]))->offset = (yyvsp[-3]);
- CB_REFERENCE ((yyvsp[-5]))->length = (yyvsp[-1]);
- }
-#line 31029 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3065:
-#line 19714 "parser.y" /* yacc.c:1646 */
- {
- if (cb_tree_category ((yyvsp[0])) != CB_CATEGORY_NUMERIC
- || !CB_LITERAL_P((yyvsp[0]))
- || CB_LITERAL ((yyvsp[0]))->sign
- || CB_LITERAL ((yyvsp[0]))->scale) {
- cb_error (_("unsigned integer value expected"));
- (yyval) = cb_build_numeric_literal (-1, "1", 0);
- } else {
- (yyval) = (yyvsp[0]);
- }
- }
-#line 31045 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3066:
-#line 19729 "parser.y" /* yacc.c:1646 */
- {
- if (cb_tree_category ((yyvsp[0])) != CB_CATEGORY_NUMERIC) {
- cb_error (_("integer value expected"));
- (yyval) = cb_int1;
- } else if (CB_LITERAL_P ((yyvsp[0]))
- && (CB_LITERAL ((yyvsp[0]))->sign || CB_LITERAL ((yyvsp[0]))->scale)) {
- cb_error (_("integer value expected"));
- (yyval) = cb_int1;
- } else {
- int n = cb_get_int ((yyvsp[0]));
- if (n < 1 || n > 256) {
- cb_error (_("invalid symbolic integer"));
- (yyval) = cb_int1;
- } else {
- (yyval) = (yyvsp[0]);
- }
- }
- }
-#line 31068 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3067:
-#line 19751 "parser.y" /* yacc.c:1646 */
- {
- if (cb_tree_category ((yyvsp[0])) != CB_CATEGORY_NUMERIC
- || !CB_LITERAL_P((yyvsp[0]))
- || CB_LITERAL ((yyvsp[0]))->sign
- || CB_LITERAL ((yyvsp[0]))->scale) {
- cb_error (_("unsigned positive integer value expected"));
- (yyval) = cb_int1;
- } else {
- if (cb_get_int ((yyvsp[0])) < 1) {
- cb_error (_("unsigned positive integer value expected"));
- (yyval) = cb_int1;
- } else {
- (yyval) = (yyvsp[0]);
- }
- }
- }
-#line 31089 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3068:
-#line 19771 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 31097 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3069:
-#line 19775 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int0;
- }
-#line 31105 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3070:
-#line 19782 "parser.y" /* yacc.c:1646 */
- {
- if (cb_tree_category ((yyvsp[0])) == CB_CATEGORY_NUMERIC) {
- if (CB_LITERAL ((yyvsp[0]))->sign || CB_LITERAL ((yyvsp[0]))->scale) {
- cb_error_x ((yyvsp[0]), _("integer value expected"));
- } else {
- int n = cb_get_int ((yyvsp[0]));
- /* FIXME: national class has bigger "number of characters in its character set" */
- if (n < 1 || n > 256) {
- cb_error_x ((yyvsp[0]), _("CLASS value %d outside of range for the used character set"), n);
- }
- }
- }
- (yyval) = (yyvsp[0]);
- }
-#line 31124 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3071:
-#line 19797 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 31132 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3072:
-#line 19804 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_space; }
-#line 31138 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3073:
-#line 19805 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_zero; }
-#line 31144 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3074:
-#line 19806 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_quote; }
-#line 31150 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3075:
-#line 19807 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_high; }
-#line 31156 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3076:
-#line 19808 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_low; }
-#line 31162 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3077:
-#line 19809 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_null; /* CHECKME: is that valid in all used cases? */}
-#line 31168 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3078:
-#line 19814 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 31176 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3079:
-#line 19818 "parser.y" /* yacc.c:1646 */
- {
- if (CB_LITERAL_P ((yyvsp[0]))) {
- /* We must not alter the original definition */
- struct cb_literal *l;
- l = cobc_parse_malloc (sizeof(struct cb_literal));
- *l = *(CB_LITERAL((yyvsp[0])));
- l->all = 1;
- (yyval) = CB_TREE (l);
- } else {
- (yyval) = (yyvsp[0]);
- }
- }
-#line 31193 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3080:
-#line 19834 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 31201 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3081:
-#line 19838 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_concat_literals ((yyvsp[-2]), (yyvsp[0]));
- }
-#line 31209 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3084:
-#line 19846 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_space; }
-#line 31215 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3085:
-#line 19847 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_zero; }
-#line 31221 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3086:
-#line 19848 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_high; }
-#line 31227 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3087:
-#line 19849 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_low; }
-#line 31233 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3088:
-#line 19856 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_intrinsic ((yyvsp[-1]), NULL, (yyvsp[0]), 0);
- }
-#line 31241 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3089:
-#line 19860 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_intrinsic ((yyvsp[-4]), CB_LIST_INIT ((yyvsp[-2])), (yyvsp[0]), 0);
- }
-#line 31249 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3090:
-#line 19864 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_intrinsic ((yyvsp[-4]), (yyvsp[-2]), (yyvsp[0]), 0);
- }
-#line 31257 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3091:
-#line 19868 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_intrinsic ((yyvsp[-4]), (yyvsp[-2]), (yyvsp[0]), 0);
- }
-#line 31265 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3092:
-#line 19872 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_intrinsic ((yyvsp[-4]), (yyvsp[-2]), NULL, 0);
- }
-#line 31273 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3093:
-#line 19876 "parser.y" /* yacc.c:1646 */
- {
- CB_PENDING (_("PHYSICAL argument for LENGTH functions"));
- (yyval) = cb_build_intrinsic ((yyvsp[-5]), (yyvsp[-3]), NULL, 0);
- }
-#line 31282 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3094:
-#line 19881 "parser.y" /* yacc.c:1646 */
- {
- /* note: no ref-mod allowed, parsing here to error in the following function */
- (yyval) = cb_build_intrinsic ((yyvsp[-4]), (yyvsp[-2]), (yyvsp[0]), 0);
- }
-#line 31291 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3095:
-#line 19886 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_intrinsic ((yyvsp[-4]), (yyvsp[-2]), (yyvsp[0]), 0);
- }
-#line 31299 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3096:
-#line 19890 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_intrinsic ((yyvsp[-4]), (yyvsp[-2]), (yyvsp[0]), 0);
- }
-#line 31307 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3097:
-#line 19894 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_intrinsic ((yyvsp[-4]), (yyvsp[-2]), (yyvsp[0]), 0);
- }
-#line 31315 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3098:
-#line 19898 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_intrinsic ((yyvsp[-4]), (yyvsp[-2]), (yyvsp[0]), 0);
- }
-#line 31323 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3099:
-#line 19902 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_intrinsic ((yyvsp[-4]), (yyvsp[-2]), (yyvsp[0]), 0);
- }
-#line 31331 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3100:
-#line 19906 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_intrinsic ((yyvsp[-2]), (yyvsp[-1]), (yyvsp[0]), 0);
- }
-#line 31339 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3101:
-#line 19910 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_build_intrinsic ((yyvsp[-2]), (yyvsp[-1]), (yyvsp[0]), 1);
- }
-#line 31347 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3113:
-#line 19937 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 31355 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3114:
-#line 19941 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_BUILD_PAIR ((yyvsp[-2]), NULL);
- }
-#line 31363 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3115:
-#line 19945 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = CB_BUILD_PAIR ((yyvsp[-3]), (yyvsp[-1]));
- }
-#line 31371 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3116:
-#line 19952 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 31379 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3117:
-#line 19956 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[-1]);
- }
-#line 31387 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3118:
-#line 19960 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 31395 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3119:
-#line 19967 "parser.y" /* yacc.c:1646 */
- {
- cb_tree x;
-
- x = CB_LIST_INIT ((yyvsp[0]));
- (yyval) = cb_list_add (x, cb_int0);
- }
-#line 31406 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3120:
-#line 19974 "parser.y" /* yacc.c:1646 */
- {
- cb_tree x;
-
- x = CB_LIST_INIT ((yyvsp[-2]));
- (yyval) = cb_list_add (x, cb_int1);
- }
-#line 31417 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3121:
-#line 19981 "parser.y" /* yacc.c:1646 */
- {
- cb_tree x;
-
- x = CB_LIST_INIT ((yyvsp[-2]));
- (yyval) = cb_list_add (x, cb_int2);
- }
-#line 31428 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3122:
-#line 19990 "parser.y" /* yacc.c:1646 */
- {
- suppress_data_exceptions = 1;
- }
-#line 31436 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3123:
-#line 19994 "parser.y" /* yacc.c:1646 */
- {
- suppress_data_exceptions = 0;
- if (CB_NUMERIC_LITERAL_P((yyvsp[0]))) {
- cb_error_x ((yyvsp[0]), _("a non-numeric literal is expected here"));
- (yyval) = CB_LIST_INIT (cb_error_node);
- } else {
- (yyval) = CB_LIST_INIT ((yyvsp[0]));
- }
- }
-#line 31450 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3124:
-#line 20007 "parser.y" /* yacc.c:1646 */
- {
- cb_tree x;
-
- x = CB_LIST_INIT ((yyvsp[0]));
- (yyval) = cb_list_add (x, cb_null);
- }
-#line 31461 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3125:
-#line 20014 "parser.y" /* yacc.c:1646 */
- {
- cb_tree x;
-
- x = CB_LIST_INIT ((yyvsp[-2]));
- (yyval) = cb_list_add (x, (yyvsp[0]));
- }
-#line 31472 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3126:
-#line 20024 "parser.y" /* yacc.c:1646 */
- {
- cb_tree x;
-
- x = CB_LIST_INIT ((yyvsp[0]));
- (yyval) = cb_list_add (x, cb_null);
- }
-#line 31483 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3127:
-#line 20031 "parser.y" /* yacc.c:1646 */
- {
- cb_tree x;
-
- x = CB_LIST_INIT ((yyvsp[-2]));
- (yyval) = cb_list_add (x, cb_ref ((yyvsp[0])));
- }
-#line 31494 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3128:
-#line 20041 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_list_add ((yyvsp[0]), cb_int0);
- }
-#line 31502 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3129:
-#line 20045 "parser.y" /* yacc.c:1646 */
- {
- const int num_args = cb_list_length ((yyvsp[-2]));
-
- if (num_args == 4) {
- cb_error_x ((yyvsp[-2]), _("cannot specify offset and SYSTEM-OFFSET at the same time"));
- }
-
- (yyval) = cb_list_add ((yyvsp[-2]), cb_int1);
- }
-#line 31516 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3130:
-#line 20058 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_list_add ((yyvsp[0]), cb_int0);
- }
-#line 31524 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3131:
-#line 20062 "parser.y" /* yacc.c:1646 */
- {
- const int num_args = cb_list_length ((yyvsp[-2]));
-
- if (num_args == 3) {
- cb_error_x ((yyvsp[-2]), _("cannot specify offset and SYSTEM-OFFSET at the same time"));
- }
-
- (yyval) = cb_list_add ((yyvsp[-2]), cb_int1);
- }
-#line 31538 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3132:
-#line 20076 "parser.y" /* yacc.c:1646 */
- {
- non_const_word = 1;
- }
-#line 31546 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3133:
-#line 20084 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int0; }
-#line 31552 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3134:
-#line 20085 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int1; }
-#line 31558 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3135:
-#line 20089 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 31564 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3136:
-#line 20090 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int0; }
-#line 31570 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3137:
-#line 20091 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int1; }
-#line 31576 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3138:
-#line 20095 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 31582 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3139:
-#line 20096 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int1; }
-#line 31588 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3140:
-#line 20101 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- }
-#line 31596 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3141:
-#line 20105 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 31604 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3142:
-#line 20112 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_low;
- }
-#line 31612 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3143:
-#line 20116 "parser.y" /* yacc.c:1646 */
- {
- /* GC extension */
- (yyval) = (yyvsp[0]);
- }
-#line 31621 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3144:
-#line 20124 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int0; }
-#line 31627 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3145:
-#line 20125 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int1; }
-#line 31633 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3146:
-#line 20126 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int2; }
-#line 31639 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3147:
-#line 20130 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 31645 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3148:
-#line 20131 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_true; }
-#line 31651 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3149:
-#line 20135 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int (cb_flag_optional_file); }
-#line 31657 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3150:
-#line 20136 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int1; }
-#line 31663 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3151:
-#line 20137 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int0; }
-#line 31669 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3152:
-#line 20142 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int0;
- }
-#line 31677 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3153:
-#line 20146 "parser.y" /* yacc.c:1646 */
- {
- if ((yyvsp[0])) {
- (yyval) = (yyvsp[0]);
- } else {
- (yyval) = default_rounded_mode;
- }
- cobc_cs_check = 0;
- }
-#line 31690 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3154:
-#line 20158 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = NULL;
- cobc_cs_check = 0;
- }
-#line 31699 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3155:
-#line 20163 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- cobc_cs_check = 0;
- }
-#line 31708 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3156:
-#line 20171 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int (COB_STORE_ROUND | COB_STORE_AWAY_FROM_ZERO);
- }
-#line 31716 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3157:
-#line 20175 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int (COB_STORE_ROUND | COB_STORE_NEAR_AWAY_FROM_ZERO);
- }
-#line 31724 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3158:
-#line 20179 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int (COB_STORE_ROUND | COB_STORE_NEAR_EVEN);
- }
-#line 31732 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3159:
-#line 20183 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int (COB_STORE_ROUND | COB_STORE_NEAR_TOWARD_ZERO);
- }
-#line 31740 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3160:
-#line 20187 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int (COB_STORE_ROUND | COB_STORE_PROHIBITED);
- }
-#line 31748 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3161:
-#line 20191 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int (COB_STORE_ROUND | COB_STORE_TOWARD_GREATER);
- }
-#line 31756 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3162:
-#line 20195 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int (COB_STORE_ROUND | COB_STORE_TOWARD_LESSER);
- }
-#line 31764 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3163:
-#line 20199 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = cb_int (COB_STORE_ROUND | COB_STORE_TRUNCATION);
- }
-#line 31772 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3164:
-#line 20205 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 31778 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3165:
-#line 20206 "parser.y" /* yacc.c:1646 */
- { (yyval) = cb_int1; }
-#line 31784 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3166:
-#line 20210 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 31790 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3167:
-#line 20212 "parser.y" /* yacc.c:1646 */
- {
- cb_tree x;
-
- x = CB_LIST_INIT ((yyvsp[-3]));
- (yyval) = cb_list_add (x, (yyvsp[-1]));
- }
-#line 31801 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3168:
-#line 20221 "parser.y" /* yacc.c:1646 */
- { (yyval) = NULL; }
-#line 31807 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3169:
-#line 20223 "parser.y" /* yacc.c:1646 */
- {
- (yyval) = (yyvsp[0]);
- }
-#line 31815 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3170:
-#line 20232 "parser.y" /* yacc.c:1646 */
- {
- cobc_repeat_last_token = 1;
- }
-#line 31823 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3171:
-#line 20236 "parser.y" /* yacc.c:1646 */
- {
- check_non_area_a ((yyvsp[0]));
- cobc_repeat_last_token = 1;
- }
-#line 31832 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3172:
-#line 20241 "parser.y" /* yacc.c:1646 */
- {
- cobc_repeat_last_token = 0;
- }
-#line 31840 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3173:
-#line 20245 "parser.y" /* yacc.c:1646 */
- {
- check_non_area_a_of (_("terminator"));
- cobc_repeat_last_token = 0;
- }
-#line 31849 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3250:
-#line 20334 "parser.y" /* yacc.c:1646 */
- {
- if (!cb_verify (cb_missing_period, _("optional period"))) {
- YYERROR;
- }
- }
-#line 31859 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3252:
-#line 20344 "parser.y" /* yacc.c:1646 */
- {
- if (!cb_verify (cb_missing_period, _("optional period"))) {
- YYERROR;
- }
- cobc_repeat_last_token = 1;
- }
-#line 31870 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3253:
-#line 20354 "parser.y" /* yacc.c:1646 */
- {
- /* No need to raise the error for *_IN_AREA_A tokens */
- (void) cb_verify (cb_missing_period, _("optional period"));
- cobc_repeat_last_token = 1;
- }
-#line 31880 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3256:
-#line 20365 "parser.y" /* yacc.c:1646 */
- {
- if (!cb_verify (cb_missing_period, _("optional period"))) {
- YYERROR;
- }
- cobc_repeat_last_token = 1;
- }
-#line 31891 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3262:
-#line 20386 "parser.y" /* yacc.c:1646 */
- {
- if (!cb_verify (cb_missing_period, _("optional period"))) {
- YYERROR;
- }
- cobc_repeat_last_token = 1;
- }
-#line 31902 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3276:
-#line 20406 "parser.y" /* yacc.c:1646 */
- {
- if (!cb_verify (cb_missing_period, _("optional period"))) {
- YYERROR;
- }
- }
-#line 31912 "parser.c" /* yacc.c:1646 */
- break;
-
- case 3277:
-#line 20412 "parser.y" /* yacc.c:1646 */
- {
- /* No need to raise the error for *_IN_AREA_A tokens */
- (void) cb_verify (cb_missing_period, _("optional period"));
- cobc_repeat_last_token = 1;
- }
-#line 31922 "parser.c" /* yacc.c:1646 */
- break;
-
-
-#line 31926 "parser.c" /* yacc.c:1646 */
- default: break;
- }
- /* User semantic actions sometimes alter yychar, and that requires
- that yytoken be updated with the new translation. We take the
- approach of translating immediately before every use of yytoken.
- One alternative is translating here after every semantic action,
- but that translation would be missed if the semantic action invokes
- YYABORT, YYACCEPT, or YYERROR immediately after altering yychar or
- if it invokes YYBACKUP. In the case of YYABORT or YYACCEPT, an
- incorrect destructor might then be invoked immediately. In the
- case of YYERROR or YYBACKUP, subsequent parser actions might lead
- to an incorrect destructor call or verbose syntax error message
- before the lookahead is translated. */
- YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc);
-
- YYPOPSTACK (yylen);
- yylen = 0;
- YY_STACK_PRINT (yyss, yyssp);
-
- *++yyvsp = yyval;
-
- /* Now 'shift' the result of the reduction. Determine what state
- that goes to, based on the state we popped back to and the rule
- number reduced by. */
-
- yyn = yyr1[yyn];
-
- yystate = yypgoto[yyn - YYNTOKENS] + *yyssp;
- if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp)
- yystate = yytable[yystate];
- else
- yystate = yydefgoto[yyn - YYNTOKENS];
-
- goto yynewstate;
-
-
-/*--------------------------------------.
-| yyerrlab -- here on detecting error. |
-`--------------------------------------*/
-yyerrlab:
- /* Make sure we have latest lookahead translation. See comments at
- user semantic actions for why this is necessary. */
- yytoken = yychar == YYEMPTY ? YYEMPTY : YYTRANSLATE (yychar);
-
- /* If not already recovering from an error, report this error. */
- if (!yyerrstatus)
- {
- ++yynerrs;
-#if ! YYERROR_VERBOSE
- yyerror (YY_("syntax error"));
-#else
-# define YYSYNTAX_ERROR yysyntax_error (&yymsg_alloc, &yymsg, \
- yyssp, yytoken)
- {
- char const *yymsgp = YY_("syntax error");
- int yysyntax_error_status;
- yysyntax_error_status = YYSYNTAX_ERROR;
- if (yysyntax_error_status == 0)
- yymsgp = yymsg;
- else if (yysyntax_error_status == 1)
- {
- if (yymsg != yymsgbuf)
- YYSTACK_FREE (yymsg);
- yymsg = (char *) YYSTACK_ALLOC (yymsg_alloc);
- if (!yymsg)
- {
- yymsg = yymsgbuf;
- yymsg_alloc = sizeof yymsgbuf;
- yysyntax_error_status = 2;
- }
- else
- {
- yysyntax_error_status = YYSYNTAX_ERROR;
- yymsgp = yymsg;
- }
- }
- yyerror (yymsgp);
- if (yysyntax_error_status == 2)
- goto yyexhaustedlab;
- }
-# undef YYSYNTAX_ERROR
-#endif
- }
-
-
-
- if (yyerrstatus == 3)
- {
- /* If just tried and failed to reuse lookahead token after an
- error, discard it. */
-
- if (yychar <= YYEOF)
- {
- /* Return failure if at end of input. */
- if (yychar == YYEOF)
- YYABORT;
- }
- else
- {
- yydestruct ("Error: discarding",
- yytoken, &yylval);
- yychar = YYEMPTY;
- }
- }
-
- /* Else will try to reuse lookahead token after shifting the error
- token. */
- goto yyerrlab1;
-
-
-/*---------------------------------------------------.
-| yyerrorlab -- error raised explicitly by YYERROR. |
-`---------------------------------------------------*/
-yyerrorlab:
-
- /* Pacify compilers like GCC when the user code never invokes
- YYERROR and the label yyerrorlab therefore never appears in user
- code. */
- if (/*CONSTCOND*/ 0)
- goto yyerrorlab;
-
- /* Do not reclaim the symbols of the rule whose action triggered
- this YYERROR. */
- YYPOPSTACK (yylen);
- yylen = 0;
- YY_STACK_PRINT (yyss, yyssp);
- yystate = *yyssp;
- goto yyerrlab1;
-
-
-/*-------------------------------------------------------------.
-| yyerrlab1 -- common code for both syntax error and YYERROR. |
-`-------------------------------------------------------------*/
-yyerrlab1:
- yyerrstatus = 3; /* Each real token shifted decrements this. */
-
- for (;;)
- {
- yyn = yypact[yystate];
- if (!yypact_value_is_default (yyn))
- {
- yyn += YYTERROR;
- if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR)
- {
- yyn = yytable[yyn];
- if (0 < yyn)
- break;
- }
- }
-
- /* Pop the current state because it cannot handle the error token. */
- if (yyssp == yyss)
- YYABORT;
-
-
- yydestruct ("Error: popping",
- yystos[yystate], yyvsp);
- YYPOPSTACK (1);
- yystate = *yyssp;
- YY_STACK_PRINT (yyss, yyssp);
- }
-
- YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
- *++yyvsp = yylval;
- YY_IGNORE_MAYBE_UNINITIALIZED_END
-
-
- /* Shift the error token. */
- YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp);
-
- yystate = yyn;
- goto yynewstate;
-
-
-/*-------------------------------------.
-| yyacceptlab -- YYACCEPT comes here. |
-`-------------------------------------*/
-yyacceptlab:
- yyresult = 0;
- goto yyreturn;
-
-/*-----------------------------------.
-| yyabortlab -- YYABORT comes here. |
-`-----------------------------------*/
-yyabortlab:
- yyresult = 1;
- goto yyreturn;
-
-#if !defined yyoverflow || YYERROR_VERBOSE
-/*-------------------------------------------------.
-| yyexhaustedlab -- memory exhaustion comes here. |
-`-------------------------------------------------*/
-yyexhaustedlab:
- yyerror (YY_("memory exhausted"));
- yyresult = 2;
- /* Fall through. */
-#endif
-
-yyreturn:
- if (yychar != YYEMPTY)
- {
- /* Make sure we have latest lookahead translation. See comments at
- user semantic actions for why this is necessary. */
- yytoken = YYTRANSLATE (yychar);
- yydestruct ("Cleanup: discarding lookahead",
- yytoken, &yylval);
- }
- /* Do not reclaim the symbols of the rule whose action triggered
- this YYABORT or YYACCEPT. */
- YYPOPSTACK (yylen);
- YY_STACK_PRINT (yyss, yyssp);
- while (yyssp != yyss)
- {
- yydestruct ("Cleanup: popping",
- yystos[*yyssp], yyvsp);
- YYPOPSTACK (1);
- }
-#ifndef yyoverflow
- if (yyss != yyssa)
- YYSTACK_FREE (yyss);
-#endif
-#if YYERROR_VERBOSE
- if (yymsg != yymsgbuf)
- YYSTACK_FREE (yymsg);
-#endif
- return yyresult;
-}
-#line 20535 "parser.y" /* yacc.c:1906 */
-
diff --git a/cobc/parser.h b/cobc/parser.h
deleted file mode 100644
index 278e8f7..0000000
--- a/cobc/parser.h
+++ /dev/null
@@ -1,1035 +0,0 @@
-/* A Bison parser, made by GNU Bison 3.0.4. */
-
-/* Bison interface for Yacc-like parsers in C
-
- Copyright (C) 1984, 1989-1990, 2000-2015 Free Software Foundation, Inc.
-
- This program 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.
-
- This program 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 this program. If not, see <http://www.gnu.org/licenses/>. */
-
-/* As a special exception, you may create a larger work that contains
- part or all of the Bison parser skeleton and distribute that work
- under terms of your choice, so long as that work isn't itself a
- parser generator using the skeleton or a modified version thereof
- as a parser skeleton. Alternatively, if you modify or redistribute
- the parser skeleton itself, you may (at your option) remove this
- special exception, which will cause the skeleton and the resulting
- Bison output files to be licensed under the GNU General Public
- License without this special exception.
-
- This special exception was added by the Free Software Foundation in
- version 2.2 of Bison. */
-
-#ifndef YY_YY_PARSER_H_INCLUDED
-# define YY_YY_PARSER_H_INCLUDED
-/* Debug traces. */
-#ifndef YYDEBUG
-# define YYDEBUG 0
-#endif
-#if YYDEBUG
-extern int yydebug;
-#endif
-
-/* Token type. */
-#ifndef YYTOKENTYPE
-# define YYTOKENTYPE
- enum yytokentype
- {
- TOKEN_EOF = 0,
- THREEDIMENSIONAL = 258,
- ABSENT = 259,
- ACCEPT = 260,
- ACCESS = 261,
- ACTIVEX = 262,
- ACTIVE_CLASS = 263,
- ACTION = 264,
- ACTUAL = 265,
- ADD = 266,
- ADDRESS = 267,
- ADJUSTABLE_COLUMNS = 268,
- ADVANCING = 269,
- AFTER = 270,
- ALIGNED = 271,
- ALIGNMENT = 272,
- ALL = 273,
- ALLOCATE = 274,
- ALLOWING = 275,
- ALPHABET = 276,
- ALPHABETIC = 277,
- ALPHABETIC_LOWER = 278,
- ALPHABETIC_UPPER = 279,
- ALPHANUMERIC = 280,
- ALPHANUMERIC_EDITED = 281,
- ALSO = 282,
- ALTER = 283,
- ALTERNATE = 284,
- AND = 285,
- ANY = 286,
- APPLY = 287,
- ARE = 288,
- AREA = 289,
- AREAS = 290,
- ARGUMENT_NUMBER = 291,
- ARGUMENT_VALUE = 292,
- ARITHMETIC = 293,
- AS = 294,
- ASCENDING = 295,
- ASCII = 296,
- ASSIGN = 297,
- AT = 298,
- AT_END = 299,
- ATTRIBUTE = 300,
- ATTRIBUTES = 301,
- AUTHOR = 302,
- AUTO = 303,
- AUTO_DECIMAL = 304,
- AUTO_SPIN = 305,
- AUTOMATIC = 306,
- AWAY_FROM_ZERO = 307,
- B_AND = 308,
- B_NOT = 309,
- B_OR = 310,
- B_XOR = 311,
- B_SHIFT_L = 312,
- B_SHIFT_R = 313,
- B_SHIFT_LC = 314,
- B_SHIFT_RC = 315,
- BACKGROUND_COLOR = 316,
- BACKGROUND_HIGH = 317,
- BACKGROUND_LOW = 318,
- BACKGROUND_STANDARD = 319,
- BACKWARD = 320,
- BAR = 321,
- BASED = 322,
- BEFORE = 323,
- BELL = 324,
- BINARY = 325,
- BINARY_C_LONG = 326,
- BINARY_CHAR = 327,
- BINARY_DOUBLE = 328,
- BINARY_LONG = 329,
- BINARY_SEQUENTIAL = 330,
- BINARY_SHORT = 331,
- BIT = 332,
- BITMAP = 333,
- BITMAP_END = 334,
- BITMAP_HANDLE = 335,
- BITMAP_NUMBER = 336,
- BITMAP_START = 337,
- BITMAP_TIMER = 338,
- BITMAP_TRAILING = 339,
- BITMAP_TRANSPARENT_COLOR = 340,
- BITMAP_WIDTH = 341,
- BLANK = 342,
- BLINK = 343,
- BLOCK = 344,
- BOOLEAN = 345,
- BOTTOM = 346,
- BOX = 347,
- BOXED = 348,
- BULK_ADDITION = 349,
- BUSY = 350,
- BUTTONS = 351,
- BY = 352,
- BYTE_LENGTH = 353,
- C = 354,
- CALENDAR_FONT = 355,
- CALL = 356,
- CANCEL = 357,
- CANCEL_BUTTON = 358,
- CAPACITY = 359,
- CARD_PUNCH = 360,
- CARD_READER = 361,
- CASSETTE = 362,
- CCOL = 363,
- CD = 364,
- CELL = 365,
- CELL_COLOR = 366,
- CELL_DATA = 367,
- CELL_FONT = 368,
- CELL_PROTECTION = 369,
- CENTER = 370,
- CENTERED = 371,
- CENTERED_HEADINGS = 372,
- CENTURY_DATE = 373,
- CF = 374,
- CH = 375,
- CHAINING = 376,
- CHANGED = 377,
- CHARACTER = 378,
- CHARACTERS = 379,
- CHECK_BOX = 380,
- CLASS = 381,
- CLASSIFICATION = 382,
- CLASS_NAME = 383,
- CLEAR_SELECTION = 384,
- CLINE = 385,
- CLINES = 386,
- CLOSE = 387,
- COBOL = 388,
- CODE = 389,
- CODE_SET = 390,
- COLLATING = 391,
- COL = 392,
- COLOR = 393,
- COLORS = 394,
- COLS = 395,
- COLUMN = 396,
- COLUMN_COLOR = 397,
- COLUMN_DIVIDERS = 398,
- COLUMN_FONT = 399,
- COLUMN_HEADINGS = 400,
- COLUMN_PROTECTION = 401,
- COLUMNS = 402,
- COMBO_BOX = 403,
- COMMA = 404,
- COMMAND_LINE = 405,
- COMMA_DELIM = 406,
- COMMIT = 407,
- COMMON = 408,
- COMMUNICATION = 409,
- COMP = 410,
- COMPUTE = 411,
- COMP_0 = 412,
- COMP_1 = 413,
- COMP_2 = 414,
- COMP_3 = 415,
- COMP_4 = 416,
- COMP_5 = 417,
- COMP_6 = 418,
- COMP_N = 419,
- COMP_X = 420,
- CONCATENATE_FUNC = 421,
- CONDITION = 422,
- CONFIGURATION = 423,
- CONSTANT = 424,
- CONTAINS = 425,
- CONTENT = 426,
- CONTENT_LENGTH_FUNC = 427,
- CONTENT_OF_FUNC = 428,
- CONTINUE = 429,
- CONTROL = 430,
- CONTROLS = 431,
- CONVERSION = 432,
- CONVERTING = 433,
- COPY = 434,
- COPY_SELECTION = 435,
- CORE_INDEX = 436,
- CORRESPONDING = 437,
- COUNT = 438,
- CRT = 439,
- CRT_UNDER = 440,
- CSIZE = 441,
- CURRENCY = 442,
- CURRENT_DATE_FUNC = 443,
- CURSOR = 444,
- CURSOR_COL = 445,
- CURSOR_COLOR = 446,
- CURSOR_FRAME_WIDTH = 447,
- CURSOR_ROW = 448,
- CURSOR_X = 449,
- CURSOR_Y = 450,
- CUSTOM_PRINT_TEMPLATE = 451,
- CYCLE = 452,
- CYL_INDEX = 453,
- CYL_OVERFLOW = 454,
- DASHED = 455,
- DATA = 456,
- DATA_COLUMNS = 457,
- DATA_POINTER = 458,
- DATA_TYPES = 459,
- DATE = 460,
- DATE_COMPILED = 461,
- DATE_ENTRY = 462,
- DATE_MODIFIED = 463,
- DATE_WRITTEN = 464,
- DAY = 465,
- DAY_OF_WEEK = 466,
- DE = 467,
- DEBUGGING = 468,
- DECIMAL_POINT = 469,
- DECLARATIVES = 470,
- DEFAULT = 471,
- DEFAULT_BUTTON = 472,
- DEFAULT_FONT = 473,
- DELETE = 474,
- DELIMITED = 475,
- DELIMITER = 476,
- DEPENDING = 477,
- DESCENDING = 478,
- DESTINATION = 479,
- DESTROY = 480,
- DETAIL = 481,
- DISABLE = 482,
- DISC = 483,
- DISK = 484,
- DISP = 485,
- DISPLAY = 486,
- DISPLAY_1 = 487,
- DISPLAY_COLUMNS = 488,
- DISPLAY_FORMAT = 489,
- DISPLAY_OF_FUNC = 490,
- DIVIDE = 491,
- DIVIDERS = 492,
- DIVIDER_COLOR = 493,
- DIVISION = 494,
- DOTDASH = 495,
- DOTTED = 496,
- DRAG_COLOR = 497,
- DROP_DOWN = 498,
- DROP_LIST = 499,
- DOWN = 500,
- DUPLICATES = 501,
- DYNAMIC = 502,
- EBCDIC = 503,
- EC = 504,
- ECHO = 505,
- EGI = 506,
- EIGHTY_EIGHT = 507,
- ENABLE = 508,
- ELEMENT = 509,
- ELSE = 510,
- EMI = 511,
- ENCRYPTION = 512,
- ENCODING = 513,
- END = 514,
- END_ACCEPT = 515,
- END_ADD = 516,
- END_CALL = 517,
- END_COMPUTE = 518,
- END_COLOR = 519,
- END_DELETE = 520,
- END_DISPLAY = 521,
- END_DIVIDE = 522,
- END_EVALUATE = 523,
- END_FUNCTION = 524,
- END_IF = 525,
- END_JSON = 526,
- END_MODIFY = 527,
- END_MULTIPLY = 528,
- END_PERFORM = 529,
- END_PROGRAM = 530,
- END_READ = 531,
- END_RECEIVE = 532,
- END_RETURN = 533,
- END_REWRITE = 534,
- END_SEARCH = 535,
- END_SEND = 536,
- END_START = 537,
- END_STRING = 538,
- END_SUBTRACT = 539,
- END_UNSTRING = 540,
- END_WRITE = 541,
- END_XML = 542,
- ENGRAVED = 543,
- ENSURE_VISIBLE = 544,
- ENTRY = 545,
- ENTRY_CONVENTION = 546,
- ENTRY_FIELD = 547,
- ENTRY_REASON = 548,
- ENVIRONMENT = 549,
- ENVIRONMENT_NAME = 550,
- ENVIRONMENT_VALUE = 551,
- EOL = 552,
- EOP = 553,
- EOS = 554,
- EQUAL = 555,
- ERASE = 556,
- ERROR = 557,
- ESCAPE = 558,
- ESCAPE_BUTTON = 559,
- ESI = 560,
- EVALUATE = 561,
- EVENT = 562,
- EVENT_LIST = 563,
- EVENT_STATUS = 564,
- EVERY = 565,
- EXAMINE = 566,
- EXCEPTION = 567,
- EXCEPTION_CONDITION = 568,
- EXCEPTION_VALUE = 569,
- EXPAND = 570,
- EXCLUSIVE = 571,
- EXHIBIT = 572,
- EXIT = 573,
- EXPONENTIATION = 574,
- EXTEND = 575,
- EXTENDED_SEARCH = 576,
- EXTERNAL = 577,
- EXTERNAL_FORM = 578,
- F = 579,
- FACTORY = 580,
- FD = 581,
- FH__FCD = 582,
- FH__KEYDEF = 583,
- FILE_CONTROL = 584,
- FILE_ID = 585,
- FILE_LIMIT = 586,
- FILE_LIMITS = 587,
- FILE_NAME = 588,
- FILE_POS = 589,
- FILL_COLOR = 590,
- FILL_COLOR2 = 591,
- FILL_PERCENT = 592,
- FILLER = 593,
- FINAL = 594,
- FINISH_REASON = 595,
- FIRST = 596,
- FIXED = 597,
- FIXED_FONT = 598,
- FIXED_WIDTH = 599,
- FLAT = 600,
- FLAT_BUTTONS = 601,
- FLOAT_BINARY_128 = 602,
- FLOAT_BINARY_32 = 603,
- FLOAT_BINARY_64 = 604,
- FLOAT_DECIMAL_16 = 605,
- FLOAT_DECIMAL_34 = 606,
- FLOAT_DECIMAL_7 = 607,
- FLOAT_EXTENDED = 608,
- FLOAT_LONG = 609,
- FLOAT_SHORT = 610,
- FLOATING = 611,
- FONT = 612,
- FOOTING = 613,
- FOR = 614,
- FOREGROUND_COLOR = 615,
- FOREVER = 616,
- FORMAT = 617,
- FORMATTED_DATE_FUNC = 618,
- FORMATTED_DATETIME_FUNC = 619,
- FORMATTED_TIME_FUNC = 620,
- FRAME = 621,
- FRAMED = 622,
- FREE = 623,
- FROM = 624,
- FROM_CRT = 625,
- FULL = 626,
- FULL_HEIGHT = 627,
- FUNCTION = 628,
- FUNCTION_ID = 629,
- FUNCTION_NAME = 630,
- FUNCTION_POINTER = 631,
- GENERATE = 632,
- GIVING = 633,
- GLOBAL = 634,
- GO = 635,
- GO_BACK = 636,
- GO_FORWARD = 637,
- GO_HOME = 638,
- GO_SEARCH = 639,
- GOBACK = 640,
- GRAPHICAL = 641,
- GREATER = 642,
- GREATER_OR_EQUAL = 643,
- GRID = 644,
- GROUP = 645,
- GROUP_VALUE = 646,
- HANDLE = 647,
- HAS_CHILDREN = 648,
- HEADING = 649,
- HEADING_COLOR = 650,
- HEADING_DIVIDER_COLOR = 651,
- HEADING_FONT = 652,
- HEAVY = 653,
- HEIGHT_IN_CELLS = 654,
- HIDDEN_DATA = 655,
- HIGHLIGHT = 656,
- HIGH_COLOR = 657,
- HIGH_VALUE = 658,
- HOT_TRACK = 659,
- HSCROLL = 660,
- HSCROLL_POS = 661,
- ICON = 662,
- ID = 663,
- IDENTIFIED = 664,
- IDENTIFICATION = 665,
- IF = 666,
- IGNORE = 667,
- IGNORING = 668,
- IN = 669,
- INDEPENDENT = 670,
- INDEX = 671,
- INDEXED = 672,
- INDICATE = 673,
- INITIALIZE = 674,
- INITIALIZED = 675,
- INITIATE = 676,
- INPUT = 677,
- INPUT_OUTPUT = 678,
- INQUIRE = 679,
- INSERTION_INDEX = 680,
- INSERT_ROWS = 681,
- INSPECT = 682,
- INSTALLATION = 683,
- INTERMEDIATE = 684,
- INTO = 685,
- INTRINSIC = 686,
- INVALID = 687,
- INVALID_KEY = 688,
- IS = 689,
- ITEM = 690,
- ITEM_TEXT = 691,
- ITEM_TO_ADD = 692,
- ITEM_TO_DELETE = 693,
- ITEM_TO_EMPTY = 694,
- ITEM_VALUE = 695,
- I_O = 696,
- I_O_CONTROL = 697,
- JSON = 698,
- JUSTIFIED = 699,
- KEPT = 700,
- KEY = 701,
- KEYBOARD = 702,
- LABEL = 703,
- LABEL_OFFSET = 704,
- LARGE_FONT = 705,
- LARGE_OFFSET = 706,
- LAST = 707,
- LAST_ROW = 708,
- LAYOUT_DATA = 709,
- LAYOUT_MANAGER = 710,
- LEADING = 711,
- LEADING_SHIFT = 712,
- LEAVE = 713,
- LEFT = 714,
- LEFTLINE = 715,
- LEFT_TEXT = 716,
- LENGTH = 717,
- LENGTH_OF = 718,
- LENGTH_FUNC = 719,
- LESS = 720,
- LESS_OR_EQUAL = 721,
- LEVEL_NUMBER = 722,
- LIKE = 723,
- LIMIT = 724,
- LIMITS = 725,
- LINAGE = 726,
- LINAGE_COUNTER = 727,
- LINE = 728,
- LINE_COUNTER = 729,
- LINE_LIMIT = 730,
- LINE_SEQUENTIAL = 731,
- LINES = 732,
- LINES_AT_ROOT = 733,
- LINKAGE = 734,
- LIST_BOX = 735,
- LITERAL = 736,
- LM_RESIZE = 737,
- LOC = 738,
- LOCALE = 739,
- LOCALE_DATE_FUNC = 740,
- LOCALE_TIME_FUNC = 741,
- LOCALE_TIME_FROM_FUNC = 742,
- LOCAL_STORAGE = 743,
- LOCK = 744,
- LOCK_HOLDING = 745,
- LONG_DATE = 746,
- LOWER = 747,
- LOWERED = 748,
- LOWER_CASE_FUNC = 749,
- LOWLIGHT = 750,
- LOW_COLOR = 751,
- LOW_VALUE = 752,
- MAGNETIC_TAPE = 753,
- MANUAL = 754,
- MASS_UPDATE = 755,
- MASTER_INDEX = 756,
- MAX_LINES = 757,
- MAX_PROGRESS = 758,
- MAX_TEXT = 759,
- MAX_VAL = 760,
- MEMORY = 761,
- MEDIUM_FONT = 762,
- MENU = 763,
- MERGE = 764,
- MESSAGE = 765,
- MICROSECOND_TIME = 766,
- MINUS = 767,
- MIN_VAL = 768,
- MNEMONIC_NAME = 769,
- MODE = 770,
- MODIFY = 771,
- MODULES = 772,
- MOVE = 773,
- MULTILINE = 774,
- MULTIPLE = 775,
- MULTIPLY = 776,
- NAME = 777,
- NAMED = 778,
- NAMESPACE = 779,
- NAMESPACE_PREFIX = 780,
- NATIONAL = 781,
- NATIONAL_EDITED = 782,
- NATIONAL_OF_FUNC = 783,
- NATIVE = 784,
- NAVIGATE_URL = 785,
- NEAREST_AWAY_FROM_ZERO = 786,
- NEAREST_EVEN = 787,
- NEAREST_TOWARD_ZERO = 788,
- NEGATIVE = 789,
- NESTED = 790,
- NEW = 791,
- NEXT = 792,
- NEXT_ITEM = 793,
- NEXT_GROUP = 794,
- NEXT_PAGE = 795,
- NO = 796,
- NO_ADVANCING = 797,
- NO_AUTOSEL = 798,
- NO_AUTO_DEFAULT = 799,
- NO_BOX = 800,
- NO_DATA = 801,
- NO_DIVIDERS = 802,
- NO_ECHO = 803,
- NO_F4 = 804,
- NO_FOCUS = 805,
- NO_GROUP_TAB = 806,
- NO_KEY_LETTER = 807,
- NO_SEARCH = 808,
- NO_UPDOWN = 809,
- NOMINAL = 810,
- NONE = 811,
- NONNUMERIC = 812,
- NORMAL = 813,
- NOT = 814,
- NOTAB = 815,
- NOTHING = 816,
- NOTIFY = 817,
- NOTIFY_CHANGE = 818,
- NOTIFY_DBLCLICK = 819,
- NOTIFY_SELCHANGE = 820,
- NOT_AT_END = 821,
- NOT_EOP = 822,
- NOT_ON_ESCAPE = 823,
- NOT_EQUAL = 824,
- NOT_ON_EXCEPTION = 825,
- NOT_INVALID_KEY = 826,
- NOT_ON_OVERFLOW = 827,
- NOT_SIZE_ERROR = 828,
- NUM_COL_HEADINGS = 829,
- NUM_ROWS = 830,
- NUMBER = 831,
- NUMBERS = 832,
- NUMERIC = 833,
- NUMERIC_EDITED = 834,
- NUMVALC_FUNC = 835,
- OBJECT = 836,
- OBJECT_COMPUTER = 837,
- OCCURS = 838,
- OF = 839,
- OFF = 840,
- OK_BUTTON = 841,
- OMITTED = 842,
- ON = 843,
- ONLY = 844,
- ON_ESCAPE = 845,
- ON_EXCEPTION = 846,
- OPEN = 847,
- OPTIONAL = 848,
- OPTIONS = 849,
- OR = 850,
- ORDER = 851,
- ORGANIZATION = 852,
- OTHER = 853,
- OTHERS = 854,
- OUTPUT = 855,
- OVERLAP_LEFT = 856,
- OVERLAP_TOP = 857,
- OVERLINE = 858,
- PACKED_DECIMAL = 859,
- PADDING = 860,
- PASCAL = 861,
- PAGE = 862,
- PAGE_COUNTER = 863,
- PAGE_SETUP = 864,
- PAGED = 865,
- PARAGRAPH = 866,
- PARENT = 867,
- PARSE = 868,
- PASSWORD = 869,
- PERFORM = 870,
- PERMANENT = 871,
- PH = 872,
- PF = 873,
- PHYSICAL = 874,
- PICTURE = 875,
- PICTURE_SYMBOL = 876,
- PIXEL = 877,
- PLACEMENT = 878,
- PLUS = 879,
- POINTER = 880,
- POP_UP = 881,
- POS = 882,
- POSITION = 883,
- POSITION_SHIFT = 884,
- POSITIVE = 885,
- PRESENT = 886,
- PREVIOUS = 887,
- PRINT = 888,
- PRINT_CONTROL = 889,
- PRINT_NO_PROMPT = 890,
- PRINT_PREVIEW = 891,
- PRINTER = 892,
- PRINTER_1 = 893,
- PRINTING = 894,
- PRIORITY = 895,
- PROCEDURE = 896,
- PROCEDURES = 897,
- PROCEED = 898,
- PROCESSING = 899,
- PROGRAM = 900,
- PROGRAM_ID = 901,
- PROGRAM_NAME = 902,
- PROGRAM_POINTER = 903,
- PROGRESS = 904,
- PROHIBITED = 905,
- PROMPT = 906,
- PROPERTIES = 907,
- PROPERTY = 908,
- PROTECTED = 909,
- PROTOTYPE = 910,
- PURGE = 911,
- PUSH_BUTTON = 912,
- QUERY_INDEX = 913,
- QUEUE = 914,
- QUOTE = 915,
- RADIO_BUTTON = 916,
- RAISE = 917,
- RAISED = 918,
- RAISING = 919,
- RANDOM = 920,
- RD = 921,
- READ = 922,
- READERS = 923,
- READ_ONLY = 924,
- READY_TRACE = 925,
- RECEIVE = 926,
- RECEIVED = 927,
- RECORD = 928,
- RECORD_DATA = 929,
- RECORD_OVERFLOW = 930,
- RECORD_TO_ADD = 931,
- RECORD_TO_DELETE = 932,
- RECORDING = 933,
- RECORDS = 934,
- RECURSIVE = 935,
- REDEFINES = 936,
- REEL = 937,
- REFERENCE = 938,
- REFERENCES = 939,
- REFRESH = 940,
- REGION_COLOR = 941,
- RELATION = 942,
- RELATIVE = 943,
- RELEASE = 944,
- REMAINDER = 945,
- REMARKS = 946,
- REMOVAL = 947,
- RENAMES = 948,
- REORG_CRITERIA = 949,
- REPEATED = 950,
- REPLACE = 951,
- REPLACING = 952,
- REPORT = 953,
- REPORTING = 954,
- REPORTS = 955,
- REPOSITORY = 956,
- REQUIRED = 957,
- REREAD = 958,
- RERUN = 959,
- RESERVE = 960,
- RESET = 961,
- RESET_TRACE = 962,
- RESET_GRID = 963,
- RESET_LIST = 964,
- RESET_TABS = 965,
- RETRY = 966,
- RETURN = 967,
- RETURNING = 968,
- REVERSE = 969,
- REVERSE_FUNC = 970,
- REVERSE_VIDEO = 971,
- REVERSED = 972,
- REWIND = 973,
- REWRITE = 974,
- RF = 975,
- RH = 976,
- RIGHT = 977,
- RIGHT_ALIGN = 978,
- RIGHTLINE = 979,
- RIMMED = 980,
- ROLLBACK = 981,
- ROUNDED = 982,
- ROUNDING = 983,
- ROW_COLOR = 984,
- ROW_COLOR_PATTERN = 985,
- ROW_DIVIDERS = 986,
- ROW_FONT = 987,
- ROW_HEADINGS = 988,
- ROW_PROTECTION = 989,
- RUN = 990,
- S = 991,
- SAME = 992,
- SAVE_AS = 993,
- SAVE_AS_NO_PROMPT = 994,
- SCREEN = 995,
- SCREEN_CONTROL = 996,
- SCROLL = 997,
- SCROLL_BAR = 998,
- SD = 999,
- SEARCH = 1000,
- SEARCH_OPTIONS = 1001,
- SEARCH_TEXT = 1002,
- SECONDS = 1003,
- SECTION = 1004,
- SECURE = 1005,
- SECURITY = 1006,
- SEGMENT = 1007,
- SEGMENT_LIMIT = 1008,
- SELECT = 1009,
- SELECTION_INDEX = 1010,
- SELECTION_TEXT = 1011,
- SELECT_ALL = 1012,
- SELF_ACT = 1013,
- SEMI_COLON = 1014,
- SEND = 1015,
- SENTENCE = 1016,
- SEPARATE = 1017,
- SEPARATION = 1018,
- SEQUENCE = 1019,
- SEQUENTIAL = 1020,
- SET = 1021,
- SEVENTY_EIGHT = 1022,
- SHADING = 1023,
- SHADOW = 1024,
- SHARING = 1025,
- SHORT_DATE = 1026,
- SHOW_LINES = 1027,
- SHOW_NONE = 1028,
- SHOW_SEL_ALWAYS = 1029,
- SIGN = 1030,
- SIGNED = 1031,
- SIGNED_INT = 1032,
- SIGNED_LONG = 1033,
- SIGNED_SHORT = 1034,
- SIXTY_SIX = 1035,
- SIZE = 1036,
- SIZE_ERROR = 1037,
- SMALL_FONT = 1038,
- SORT = 1039,
- SORT_MERGE = 1040,
- SORT_ORDER = 1041,
- SOURCE = 1042,
- SOURCE_COMPUTER = 1043,
- SPACE = 1044,
- SPECIAL_NAMES = 1045,
- SPINNER = 1046,
- SQUARE = 1047,
- STANDARD = 1048,
- STANDARD_1 = 1049,
- STANDARD_2 = 1050,
- STANDARD_BINARY = 1051,
- STANDARD_DECIMAL = 1052,
- START = 1053,
- START_X = 1054,
- START_Y = 1055,
- STATIC = 1056,
- STATIC_LIST = 1057,
- STATUS = 1058,
- STATUS_BAR = 1059,
- STATUS_TEXT = 1060,
- STDCALL = 1061,
- STEP = 1062,
- STOP = 1063,
- STRING = 1064,
- STRONG = 1065,
- STYLE = 1066,
- SUB_QUEUE_1 = 1067,
- SUB_QUEUE_2 = 1068,
- SUB_QUEUE_3 = 1069,
- SUBSTITUTE_FUNC = 1070,
- SUBSTITUTE_CASE_FUNC = 1071,
- SUBTRACT = 1072,
- SUBWINDOW = 1073,
- SUM = 1074,
- SUPPRESS = 1075,
- SUPPRESS_XML = 1076,
- SYMBOLIC = 1077,
- SYNCHRONIZED = 1078,
- SYSTEM_DEFAULT = 1079,
- SYSTEM_INFO = 1080,
- SYSTEM_OFFSET = 1081,
- TAB = 1082,
- TAB_TO_ADD = 1083,
- TAB_TO_DELETE = 1084,
- TABLE = 1085,
- TALLYING = 1086,
- TEMPORARY = 1087,
- TAPE = 1088,
- TERMINAL = 1089,
- TERMINATE = 1090,
- TERMINAL_INFO = 1091,
- TERMINATION_VALUE = 1092,
- TEST = 1093,
- TEXT = 1094,
- THAN = 1095,
- THEN = 1096,
- THREAD = 1097,
- THREADS = 1098,
- THRU = 1099,
- THUMB_POSITION = 1100,
- TILED_HEADINGS = 1101,
- TIME = 1102,
- TIME_OUT = 1103,
- TIMES = 1104,
- TITLE = 1105,
- TITLE_POSITION = 1106,
- TO = 1107,
- TOK_AMPER = 1108,
- TOK_CLOSE_PAREN = 1109,
- TOK_COLON = 1110,
- TOK_DIV = 1111,
- TOK_DOT = 1112,
- TOK_EQUAL = 1113,
- TOK_EXTERN = 1114,
- TOK_FALSE = 1115,
- TOK_FILE = 1116,
- TOK_GREATER = 1117,
- TOK_INITIAL = 1118,
- TOK_LESS = 1119,
- TOK_MINUS = 1120,
- TOK_MUL = 1121,
- TOK_NULL = 1122,
- TOK_OVERFLOW = 1123,
- TOK_OPEN_PAREN = 1124,
- TOK_PLUS = 1125,
- TOK_TRUE = 1126,
- TOP = 1127,
- TOWARD_GREATER = 1128,
- TOWARD_LESSER = 1129,
- TRACK = 1130,
- TRACKS = 1131,
- TRACK_AREA = 1132,
- TRACK_LIMIT = 1133,
- TRADITIONAL_FONT = 1134,
- TRAILING = 1135,
- TRAILING_SHIFT = 1136,
- TRANSFORM = 1137,
- TRANSPARENT = 1138,
- TREE_VIEW = 1139,
- TRIM_FUNC = 1140,
- TRUNCATION = 1141,
- TYPE = 1142,
- TYPEDEF = 1143,
- U = 1144,
- UCS_4 = 1145,
- UNBOUNDED = 1146,
- UNDERLINE = 1147,
- UNFRAMED = 1148,
- UNIT = 1149,
- UNLOCK = 1150,
- UNSIGNED = 1151,
- UNSIGNED_INT = 1152,
- UNSIGNED_LONG = 1153,
- UNSIGNED_SHORT = 1154,
- UNSORTED = 1155,
- UNSTRING = 1156,
- UNTIL = 1157,
- UP = 1158,
- UPDATE = 1159,
- UPDATERS = 1160,
- UPON = 1161,
- UPON_ARGUMENT_NUMBER = 1162,
- UPON_COMMAND_LINE = 1163,
- UPON_ENVIRONMENT_NAME = 1164,
- UPON_ENVIRONMENT_VALUE = 1165,
- UPPER = 1166,
- UPPER_CASE_FUNC = 1167,
- USAGE = 1168,
- USE = 1169,
- USE_ALT = 1170,
- USE_RETURN = 1171,
- USE_TAB = 1172,
- USER = 1173,
- USER_DEFAULT = 1174,
- USER_FUNCTION_NAME = 1175,
- USING = 1176,
- UTF_8 = 1177,
- UTF_16 = 1178,
- V = 1179,
- VALID = 1180,
- VALIDATE = 1181,
- VAL_STATUS = 1182,
- VALIDATE_STATUS = 1183,
- VALIDATING = 1184,
- VALUE = 1185,
- VALUE_FORMAT = 1186,
- VALUES = 1187,
- VARIABLE = 1188,
- VARIANT = 1189,
- VARYING = 1190,
- VERTICAL = 1191,
- VERY_HEAVY = 1192,
- VIRTUAL_WIDTH = 1193,
- VOLATILE = 1194,
- VPADDING = 1195,
- VSCROLL = 1196,
- VSCROLL_BAR = 1197,
- VSCROLL_POS = 1198,
- VTOP = 1199,
- WAIT = 1200,
- WEB_BROWSER = 1201,
- WHEN = 1202,
- WHEN_COMPILED_FUNC = 1203,
- WHEN_XML = 1204,
- WIDTH = 1205,
- WIDTH_IN_CELLS = 1206,
- WINAPI = 1207,
- WINDOW = 1208,
- WITH = 1209,
- WORD = 1210,
- WORDS = 1211,
- WORKING_STORAGE = 1212,
- WRAP = 1213,
- WRITE = 1214,
- WRITE_ONLY = 1215,
- WRITE_VERIFY = 1216,
- WRITERS = 1217,
- X = 1218,
- XML = 1219,
- XML_DECLARATION = 1220,
- XML_SCHEMA = 1221,
- Y = 1222,
- YYYYDDD = 1223,
- YYYYMMDD = 1224,
- ZERO = 1225,
- LEVEL_NUMBER_IN_AREA_A = 1226,
- WORD_IN_AREA_A = 1227,
- SHIFT_PREFER = 1228
- };
-#endif
-
-/* Value type. */
-#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
-typedef int YYSTYPE;
-# define YYSTYPE_IS_TRIVIAL 1
-# define YYSTYPE_IS_DECLARED 1
-#endif
-
-
-extern YYSTYPE yylval;
-
-int yyparse (void);
-
-#endif /* !YY_YY_PARSER_H_INCLUDED */
diff --git a/cobc/pplex.c b/cobc/pplex.c
deleted file mode 100644
index 766676c..0000000
--- a/cobc/pplex.c
+++ /dev/null
@@ -1,10051 +0,0 @@
-#line 2 "pplex.c"
-
-#line 4 "pplex.c"
-
-#define YY_INT_ALIGNED short int
-
-/* A lexical scanner generated by flex */
-
-#define yy_create_buffer pp_create_buffer
-#define yy_delete_buffer pp_delete_buffer
-#define yy_flex_debug pp_flex_debug
-#define yy_init_buffer pp_init_buffer
-#define yy_flush_buffer pp_flush_buffer
-#define yy_load_buffer_state pp_load_buffer_state
-#define yy_switch_to_buffer pp_switch_to_buffer
-#define yyin ppin
-#define yyleng ppleng
-#define yylex pplex
-#define yylineno pplineno
-#define yyout ppout
-#define yyrestart pprestart
-#define yytext pptext
-#define yywrap ppwrap
-#define yyalloc ppalloc
-#define yyrealloc pprealloc
-#define yyfree ppfree
-
-#define FLEX_SCANNER
-#define YY_FLEX_MAJOR_VERSION 2
-#define YY_FLEX_MINOR_VERSION 6
-#define YY_FLEX_SUBMINOR_VERSION 1
-#if YY_FLEX_SUBMINOR_VERSION > 0
-#define FLEX_BETA
-#endif
-
-/* First, we deal with platform-specific or compiler-specific issues. */
-
-/* begin standard C headers. */
-#include <stdio.h>
-#include <string.h>
-#include <errno.h>
-#include <stdlib.h>
-
-/* end standard C headers. */
-
-/* flex integer type definitions */
-
-#ifndef FLEXINT_H
-#define FLEXINT_H
-
-/* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */
-
-#if defined (__STDC_VERSION__) && __STDC_VERSION__ >= 199901L
-
-/* C99 says to define __STDC_LIMIT_MACROS before including stdint.h,
- * if you want the limit (max/min) macros for int types.
- */
-#ifndef __STDC_LIMIT_MACROS
-#define __STDC_LIMIT_MACROS 1
-#endif
-
-#include <inttypes.h>
-typedef int8_t flex_int8_t;
-typedef uint8_t flex_uint8_t;
-typedef int16_t flex_int16_t;
-typedef uint16_t flex_uint16_t;
-typedef int32_t flex_int32_t;
-typedef uint32_t flex_uint32_t;
-#else
-typedef signed char flex_int8_t;
-typedef short int flex_int16_t;
-typedef int flex_int32_t;
-typedef unsigned char flex_uint8_t;
-typedef unsigned short int flex_uint16_t;
-typedef unsigned int flex_uint32_t;
-
-/* Limits of integral types. */
-#ifndef INT8_MIN
-#define INT8_MIN (-128)
-#endif
-#ifndef INT16_MIN
-#define INT16_MIN (-32767-1)
-#endif
-#ifndef INT32_MIN
-#define INT32_MIN (-2147483647-1)
-#endif
-#ifndef INT8_MAX
-#define INT8_MAX (127)
-#endif
-#ifndef INT16_MAX
-#define INT16_MAX (32767)
-#endif
-#ifndef INT32_MAX
-#define INT32_MAX (2147483647)
-#endif
-#ifndef UINT8_MAX
-#define UINT8_MAX (255U)
-#endif
-#ifndef UINT16_MAX
-#define UINT16_MAX (65535U)
-#endif
-#ifndef UINT32_MAX
-#define UINT32_MAX (4294967295U)
-#endif
-
-#endif /* ! C99 */
-
-#endif /* ! FLEXINT_H */
-
-/* TODO: this is always defined, so inline it */
-#define yyconst const
-
-#if defined(__GNUC__) && __GNUC__ >= 3
-#define yynoreturn __attribute__((__noreturn__))
-#else
-#define yynoreturn
-#endif
-
-/* Returned upon end-of-file. */
-#define YY_NULL 0
-
-/* Promotes a possibly negative, possibly signed char to an unsigned
- * integer for use as an array index. If the signed char is negative,
- * we want to instead treat it as an 8-bit unsigned char, hence the
- * double cast.
- */
-#define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c)
-
-/* Enter a start condition. This macro really ought to take a parameter,
- * but we do it the disgusting crufty way forced on us by the ()-less
- * definition of BEGIN.
- */
-#define BEGIN (yy_start) = 1 + 2 *
-
-/* Translate the current start state into a value that can be later handed
- * to BEGIN to return to the state. The YYSTATE alias is for lex
- * compatibility.
- */
-#define YY_START (((yy_start) - 1) / 2)
-#define YYSTATE YY_START
-
-/* Action number for EOF rule of a given start state. */
-#define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
-
-/* Special action meaning "start processing a new file". */
-#define YY_NEW_FILE pprestart(ppin )
-
-#define YY_END_OF_BUFFER_CHAR 0
-
-/* Size of default input buffer. */
-#ifndef YY_BUF_SIZE
-#ifdef __ia64__
-/* On IA-64, the buffer size is 16k, not 8k.
- * Moreover, YY_BUF_SIZE is 2*YY_READ_BUF_SIZE in the general case.
- * Ditto for the __ia64__ case accordingly.
- */
-#define YY_BUF_SIZE 32768
-#else
-#define YY_BUF_SIZE 16384
-#endif /* __ia64__ */
-#endif
-
-/* The state buf must be large enough to hold one state per character in the main buffer.
- */
-#define YY_STATE_BUF_SIZE ((YY_BUF_SIZE + 2) * sizeof(yy_state_type))
-
-#ifndef YY_TYPEDEF_YY_BUFFER_STATE
-#define YY_TYPEDEF_YY_BUFFER_STATE
-typedef struct yy_buffer_state *YY_BUFFER_STATE;
-#endif
-
-#ifndef YY_TYPEDEF_YY_SIZE_T
-#define YY_TYPEDEF_YY_SIZE_T
-typedef size_t yy_size_t;
-#endif
-
-extern int ppleng;
-
-extern FILE *ppin, *ppout;
-
-#define EOB_ACT_CONTINUE_SCAN 0
-#define EOB_ACT_END_OF_FILE 1
-#define EOB_ACT_LAST_MATCH 2
-
- #define YY_LESS_LINENO(n)
- #define YY_LINENO_REWIND_TO(ptr)
-
-/* Return all but the first "n" matched characters back to the input stream. */
-#define yyless(n) \
- do \
- { \
- /* Undo effects of setting up pptext. */ \
- yy_size_t yyless_macro_arg = (n); \
- YY_LESS_LINENO(yyless_macro_arg);\
- *yy_cp = (yy_hold_char); \
- YY_RESTORE_YY_MORE_OFFSET \
- (yy_c_buf_p) = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \
- YY_DO_BEFORE_ACTION; /* set up pptext again */ \
- } \
- while ( 0 )
-
-#define unput(c) yyunput( c, (yytext_ptr) )
-
-#ifndef YY_STRUCT_YY_BUFFER_STATE
-#define YY_STRUCT_YY_BUFFER_STATE
-struct yy_buffer_state
- {
- FILE *yy_input_file;
-
- char *yy_ch_buf; /* input buffer */
- char *yy_buf_pos; /* current position in input buffer */
-
- /* Size of input buffer in bytes, not including room for EOB
- * characters.
- */
- int yy_buf_size;
-
- /* Number of characters read into yy_ch_buf, not including EOB
- * characters.
- */
- int yy_n_chars;
-
- /* Whether we "own" the buffer - i.e., we know we created it,
- * and can realloc() it to grow it, and should free() it to
- * delete it.
- */
- int yy_is_our_buffer;
-
- /* Whether this is an "interactive" input source; if so, and
- * if we're using stdio for input, then we want to use getc()
- * instead of fread(), to make sure we stop fetching input after
- * each newline.
- */
- int yy_is_interactive;
-
- /* Whether we're considered to be at the beginning of a line.
- * If so, '^' rules will be active on the next match, otherwise
- * not.
- */
- int yy_at_bol;
-
- int yy_bs_lineno; /**< The line count. */
- int yy_bs_column; /**< The column count. */
-
- /* Whether to try to fill the input buffer when we reach the
- * end of it.
- */
- int yy_fill_buffer;
-
- int yy_buffer_status;
-
-#define YY_BUFFER_NEW 0
-#define YY_BUFFER_NORMAL 1
- /* When an EOF's been seen but there's still some text to process
- * then we mark the buffer as YY_EOF_PENDING, to indicate that we
- * shouldn't try reading from the input source any more. We might
- * still have a bunch of tokens to match, though, because of
- * possible backing-up.
- *
- * When we actually see the EOF, we change the status to "new"
- * (via pprestart()), so that the user can continue scanning by
- * just pointing ppin at a new input file.
- */
-#define YY_BUFFER_EOF_PENDING 2
-
- };
-#endif /* !YY_STRUCT_YY_BUFFER_STATE */
-
-/* Stack of input buffers. */
-static size_t yy_buffer_stack_top = 0; /**< index of top of stack. */
-static size_t yy_buffer_stack_max = 0; /**< capacity of stack. */
-static YY_BUFFER_STATE * yy_buffer_stack = NULL; /**< Stack as an array. */
-
-/* We provide macros for accessing buffer states in case in the
- * future we want to put the buffer states in a more general
- * "scanner state".
- *
- * Returns the top of the stack, or NULL.
- */
-#define YY_CURRENT_BUFFER ( (yy_buffer_stack) \
- ? (yy_buffer_stack)[(yy_buffer_stack_top)] \
- : NULL)
-
-/* Same as previous macro, but useful when we know that the buffer stack is not
- * NULL or when we need an lvalue. For internal use only.
- */
-#define YY_CURRENT_BUFFER_LVALUE (yy_buffer_stack)[(yy_buffer_stack_top)]
-
-/* yy_hold_char holds the character lost when pptext is formed. */
-static char yy_hold_char;
-static int yy_n_chars; /* number of characters read into yy_ch_buf */
-int ppleng;
-
-/* Points to current character in buffer. */
-static char *yy_c_buf_p = NULL;
-static int yy_init = 0; /* whether we need to initialize */
-static int yy_start = 0; /* start state number */
-
-/* Flag which is used to allow ppwrap()'s to do buffer switches
- * instead of setting up a fresh ppin. A bit of a hack ...
- */
-static int yy_did_buffer_switch_on_eof;
-
-void pprestart (FILE *input_file );
-void pp_switch_to_buffer (YY_BUFFER_STATE new_buffer );
-YY_BUFFER_STATE pp_create_buffer (FILE *file,int size );
-void pp_delete_buffer (YY_BUFFER_STATE b );
-void pp_flush_buffer (YY_BUFFER_STATE b );
-void pppush_buffer_state (YY_BUFFER_STATE new_buffer );
-void pppop_buffer_state (void );
-
-static void ppensure_buffer_stack (void );
-static void pp_load_buffer_state (void );
-static void pp_init_buffer (YY_BUFFER_STATE b,FILE *file );
-
-#define YY_FLUSH_BUFFER pp_flush_buffer(YY_CURRENT_BUFFER )
-
-YY_BUFFER_STATE pp_scan_buffer (char *base,yy_size_t size );
-YY_BUFFER_STATE pp_scan_string (yyconst char *yy_str );
-YY_BUFFER_STATE pp_scan_bytes (yyconst char *bytes,int len );
-
-void *ppalloc (yy_size_t );
-void *pprealloc (void *,yy_size_t );
-void ppfree (void * );
-
-#define yy_new_buffer pp_create_buffer
-
-#define yy_set_interactive(is_interactive) \
- { \
- if ( ! YY_CURRENT_BUFFER ){ \
- ppensure_buffer_stack (); \
- YY_CURRENT_BUFFER_LVALUE = \
- pp_create_buffer(ppin,YY_BUF_SIZE ); \
- } \
- YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \
- }
-
-#define yy_set_bol(at_bol) \
- { \
- if ( ! YY_CURRENT_BUFFER ){\
- ppensure_buffer_stack (); \
- YY_CURRENT_BUFFER_LVALUE = \
- pp_create_buffer(ppin,YY_BUF_SIZE ); \
- } \
- YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \
- }
-
-#define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol)
-
-/* Begin user sect3 */
-
-typedef unsigned char YY_CHAR;
-
-FILE *ppin = NULL, *ppout = NULL;
-
-typedef int yy_state_type;
-
-extern int pplineno;
-
-int pplineno = 1;
-
-extern char *pptext;
-#ifdef yytext_ptr
-#undef yytext_ptr
-#endif
-#define yytext_ptr pptext
-
-static yy_state_type yy_get_previous_state (void );
-static yy_state_type yy_try_NUL_trans (yy_state_type current_state );
-static int yy_get_next_buffer (void );
-static void yynoreturn yy_fatal_error (yyconst char* msg );
-
-/* Done after the current pattern has been matched and before the
- * corresponding action - sets up pptext.
- */
-#define YY_DO_BEFORE_ACTION \
- (yytext_ptr) = yy_bp; \
- ppleng = (int) (yy_cp - yy_bp); \
- (yy_hold_char) = *yy_cp; \
- *yy_cp = '\0'; \
- (yy_c_buf_p) = yy_cp;
-
-#define YY_NUM_RULES 255
-#define YY_END_OF_BUFFER 256
-/* This struct is not used in this scanner,
- but its presence is necessary. */
-struct yy_trans_info
- {
- flex_int32_t yy_verify;
- flex_int32_t yy_nxt;
- };
-static yyconst flex_int16_t yy_accept[2867] =
- { 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 256, 72, 64, 65, 72, 72, 67, 68, 72, 72,
- 72, 69, 72, 69, 72, 69, 69, 69, 69, 69,
- 69, 69, 69, 72, 65, 72, 45, 72, 72, 67,
- 68, 72, 72, 72, 69, 72, 69, 72, 72, 69,
- 69, 69, 69, 69, 69, 69, 69, 69, 69, 255,
- 73, 74, 255, 255, 255, 255, 74, 174, 75, 172,
-
- 174, 174, 174, 174, 74, 45, 255, 255, 255, 74,
- 75, 87, 255, 255, 255, 255, 255, 255, 213, 195,
- 196, 213, 213, 213, 213, 213, 210, 198, 210, 213,
- 213, 210, 210, 210, 210, 210, 210, 210, 210, 210,
- 210, 196, 45, 229, 214, 215, 229, 229, 223, 224,
- 229, 229, 229, 226, 220, 226, 229, 229, 226, 226,
- 226, 226, 226, 226, 226, 215, 45, 236, 230, 231,
- 236, 236, 236, 236, 236, 233, 236, 233, 236, 236,
- 233, 231, 45, 254, 237, 238, 254, 254, 242, 243,
- 254, 254, 254, 251, 239, 251, 254, 254, 251, 251,
-
- 251, 251, 251, 251, 251, 238, 45, 52, 53, 255,
- 48, 255, 255, 255, 255, 53, 50, 91, 91, 91,
- 91, 91, 255, 255, 255, 74, 109, 75, 107, 109,
- 109, 109, 109, 109, 174, 74, 255, 255, 255, 255,
- 161, 75, 158, 161, 161, 161, 161, 161, 161, 161,
- 161, 161, 161, 161, 74, 255, 255, 255, 255, 171,
- 75, 168, 171, 171, 171, 171, 171, 255, 255, 255,
- 74, 193, 75, 191, 189, 190, 186, 193, 193, 193,
- 193, 193, 193, 193, 193, 193, 193, 255, 255, 75,
- 255, 255, 255, 255, 76, 78, 255, 255, 78, 45,
-
- 65, 0, 71, 0, 71, 1, 0, 70, 64, 66,
- 69, 69, 65, 69, 69, 69, 69, 69, 69, 69,
- 69, 69, 0, 0, 65, 45, 0, 0, 0, 0,
- 0, 0, 0, 0, 71, 0, 0, 0, 0, 0,
- 0, 33, 33, 33, 33, 33, 33, 0, 71, 1,
- 0, 70, 66, 69, 69, 65, 21, 69, 69, 69,
- 69, 69, 69, 69, 69, 69, 69, 69, 69, 69,
- 74, 0, 173, 0, 173, 0, 172, 74, 174, 172,
- 174, 174, 174, 45, 0, 88, 0, 88, 0, 87,
- 74, 85, 0, 0, 0, 0, 0, 196, 0, 212,
-
- 0, 212, 0, 211, 195, 210, 0, 210, 208, 0,
- 210, 209, 199, 210, 210, 200, 210, 210, 210, 210,
- 215, 0, 228, 0, 228, 0, 227, 214, 226, 226,
- 218, 219, 221, 226, 222, 226, 226, 231, 0, 235,
- 0, 235, 0, 234, 230, 233, 233, 232, 238, 0,
- 253, 0, 253, 0, 252, 237, 251, 251, 246, 251,
- 247, 240, 251, 251, 241, 251, 53, 52, 0, 0,
- 0, 0, 91, 91, 91, 90, 0, 108, 0, 108,
- 0, 107, 74, 109, 107, 103, 109, 109, 109, 109,
- 174, 79, 0, 0, 159, 0, 159, 0, 160, 0,
-
- 158, 161, 158, 158, 161, 161, 161, 161, 161, 161,
- 161, 161, 161, 161, 161, 161, 161, 161, 161, 161,
- 161, 0, 169, 0, 169, 0, 170, 0, 168, 171,
- 168, 168, 171, 171, 171, 163, 171, 0, 192, 0,
- 192, 0, 191, 74, 193, 191, 187, 188, 185, 193,
- 193, 193, 175, 193, 193, 179, 193, 193, 178, 0,
- 194, 0, 194, 0, 0, 0, 0, 78, 0, 77,
- 0, 77, 45, 0, 0, 1, 69, 69, 69, 69,
- 0, 69, 69, 69, 69, 69, 69, 0, 0, 65,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 33,
- 33, 33, 33, 33, 33, 21, 0, 0, 0, 0,
- 0, 0, 71, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 33, 33, 33, 33, 33,
- 33, 33, 33, 25, 33, 33, 0, 71, 0, 1,
- 0, 70, 66, 69, 69, 65, 19, 0, 20, 20,
- 6, 20, 20, 20, 20, 20, 20, 20, 69, 69,
- 69, 69, 69, 69, 0, 69, 69, 69, 69, 69,
- 69, 69, 69, 0, 0, 174, 174, 174, 174, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 197, 197,
-
- 210, 210, 210, 210, 210, 210, 210, 0, 0, 226,
- 226, 226, 0, 0, 0, 0, 251, 251, 251, 250,
- 251, 0, 0, 0, 0, 91, 0, 0, 109, 104,
- 109, 109, 80, 162, 0, 0, 161, 161, 161, 161,
- 161, 161, 161, 161, 161, 161, 161, 161, 161, 161,
- 161, 161, 161, 161, 161, 161, 161, 161, 161, 161,
- 161, 0, 0, 171, 171, 164, 171, 0, 0, 193,
- 193, 193, 193, 176, 184, 193, 0, 0, 0, 100,
- 0, 0, 0, 0, 0, 0, 0, 0, 69, 69,
- 69, 69, 0, 69, 69, 69, 69, 69, 69, 0,
-
- 0, 65, 0, 0, 0, 0, 0, 0, 0, 0,
- 33, 33, 33, 33, 33, 33, 21, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 33, 33, 33, 33, 33, 33,
- 21, 0, 0, 0, 0, 0, 0, 0, 0, 33,
- 33, 33, 25, 33, 33, 0, 20, 20, 6, 20,
- 20, 20, 20, 20, 20, 20, 0, 0, 0, 0,
- 0, 0, 71, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 33,
- 33, 33, 33, 33, 33, 33, 25, 33, 33, 33,
-
- 33, 33, 29, 33, 24, 0, 71, 0, 0, 1,
- 0, 70, 66, 69, 69, 65, 0, 20, 20, 20,
- 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
- 20, 20, 20, 12, 20, 20, 20, 20, 20, 20,
- 20, 35, 36, 0, 69, 69, 69, 69, 69, 0,
- 0, 69, 69, 69, 69, 69, 69, 69, 69, 69,
- 0, 0, 174, 174, 174, 174, 0, 0, 0, 0,
- 0, 0, 82, 0, 0, 204, 205, 210, 210, 210,
- 210, 210, 0, 0, 226, 226, 226, 0, 0, 0,
- 0, 248, 249, 251, 251, 0, 0, 0, 0, 91,
-
- 0, 0, 109, 109, 109, 0, 0, 161, 161, 161,
- 161, 161, 161, 161, 161, 161, 161, 161, 161, 161,
- 161, 161, 161, 161, 161, 161, 161, 161, 161, 161,
- 161, 161, 161, 161, 161, 161, 161, 161, 161, 161,
- 161, 161, 0, 0, 171, 171, 165, 0, 0, 193,
- 193, 193, 181, 182, 0, 0, 98, 0, 0, 0,
- 0, 0, 0, 69, 40, 69, 69, 0, 69, 69,
- 69, 69, 69, 0, 0, 0, 65, 0, 0, 0,
- 0, 0, 0, 0, 0, 33, 33, 33, 33, 33,
- 33, 21, 0, 0, 0, 0, 0, 33, 33, 33,
-
- 25, 33, 33, 0, 20, 20, 6, 20, 20, 20,
- 20, 20, 20, 20, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 33, 33, 33, 33, 33, 33, 21, 0, 0,
- 0, 0, 0, 0, 0, 0, 33, 33, 33, 25,
- 33, 33, 0, 20, 20, 6, 20, 20, 20, 20,
- 20, 20, 20, 0, 0, 0, 0, 0, 0, 0,
- 0, 33, 33, 33, 29, 33, 24, 0, 20, 20,
- 20, 20, 20, 20, 20, 12, 20, 20, 20, 20,
- 20, 20, 20, 36, 0, 0, 0, 0, 0, 0,
-
- 71, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 33, 33, 33, 33, 33, 33, 33, 25, 33, 33,
- 33, 33, 29, 33, 24, 33, 26, 28, 33, 33,
- 0, 71, 0, 0, 1, 0, 70, 66, 69, 69,
- 65, 0, 20, 20, 20, 20, 20, 20, 20, 12,
- 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
- 20, 20, 20, 20, 20, 20, 20, 20, 10, 20,
- 20, 36, 36, 0, 69, 40, 69, 69, 58, 0,
- 0, 0, 69, 69, 69, 69, 69, 69, 59, 60,
-
- 61, 69, 0, 92, 174, 174, 174, 0, 0, 0,
- 0, 210, 210, 210, 210, 210, 226, 226, 226, 251,
- 251, 0, 0, 0, 0, 91, 109, 109, 109, 161,
- 161, 161, 161, 161, 161, 161, 117, 161, 161, 161,
- 121, 161, 161, 161, 161, 161, 161, 161, 161, 161,
- 161, 161, 161, 161, 161, 161, 161, 161, 161, 161,
- 161, 161, 161, 161, 161, 161, 161, 161, 161, 161,
- 171, 171, 193, 177, 193, 0, 101, 0, 0, 69,
- 69, 69, 0, 69, 69, 69, 69, 69, 0, 0,
- 0, 65, 0, 0, 0, 0, 0, 0, 0, 0,
-
- 33, 33, 33, 33, 33, 33, 21, 0, 0, 0,
- 0, 0, 33, 33, 33, 25, 33, 33, 0, 20,
- 20, 6, 20, 20, 20, 20, 20, 20, 20, 0,
- 0, 0, 0, 0, 33, 33, 33, 29, 33, 24,
- 0, 20, 20, 20, 20, 20, 20, 20, 12, 20,
- 20, 20, 20, 20, 20, 20, 36, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 33, 33, 33, 33, 33, 33,
- 21, 0, 0, 0, 0, 0, 0, 0, 0, 33,
- 33, 33, 25, 33, 33, 0, 20, 20, 6, 20,
-
- 20, 20, 20, 20, 20, 20, 0, 0, 0, 0,
- 0, 0, 0, 0, 33, 33, 33, 29, 33, 24,
- 0, 20, 20, 20, 20, 20, 20, 20, 12, 20,
- 20, 20, 20, 20, 20, 20, 36, 0, 0, 0,
- 0, 0, 0, 0, 0, 33, 26, 28, 33, 33,
- 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
- 20, 10, 20, 20, 36, 36, 58, 0, 59, 60,
- 61, 0, 0, 71, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 37, 37, 0, 0, 0, 33, 33, 33,
-
- 33, 33, 33, 33, 25, 33, 33, 33, 33, 29,
- 33, 24, 26, 28, 33, 33, 33, 33, 0, 33,
- 33, 0, 71, 0, 0, 1, 0, 70, 66, 69,
- 69, 65, 0, 20, 20, 20, 20, 20, 20, 20,
- 20, 20, 20, 20, 20, 10, 20, 20, 20, 20,
- 20, 20, 13, 15, 20, 20, 20, 7, 20, 20,
- 11, 36, 36, 0, 69, 69, 69, 0, 58, 0,
- 0, 0, 0, 69, 69, 69, 69, 69, 69, 0,
- 59, 0, 60, 0, 61, 62, 62, 0, 0, 93,
- 95, 174, 81, 0, 0, 0, 210, 210, 210, 210,
-
- 210, 226, 226, 226, 251, 251, 0, 0, 0, 0,
- 89, 109, 109, 109, 161, 161, 110, 112, 161, 161,
- 116, 118, 161, 161, 122, 161, 161, 161, 161, 161,
- 161, 161, 161, 161, 161, 161, 161, 161, 161, 161,
- 161, 161, 161, 161, 161, 161, 161, 161, 161, 161,
- 161, 153, 161, 155, 161, 171, 171, 193, 193, 99,
- 0, 96, 69, 69, 69, 0, 69, 69, 69, 69,
- 69, 0, 0, 0, 0, 0, 0, 0, 65, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 33, 33,
- 33, 33, 33, 33, 21, 0, 0, 0, 0, 0,
-
- 33, 33, 33, 25, 33, 33, 0, 20, 20, 6,
- 20, 20, 20, 20, 20, 20, 20, 0, 0, 0,
- 0, 0, 33, 33, 33, 29, 33, 24, 0, 20,
- 20, 20, 20, 20, 20, 20, 12, 20, 20, 20,
- 20, 20, 20, 20, 36, 0, 0, 0, 0, 0,
- 33, 26, 28, 33, 33, 20, 20, 20, 20, 20,
- 20, 20, 20, 20, 20, 20, 10, 20, 20, 36,
- 36, 36, 0, 58, 0, 59, 60, 61, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 33, 33, 33, 33, 33, 33,
-
- 21, 0, 0, 0, 0, 0, 0, 0, 0, 33,
- 33, 33, 25, 33, 33, 0, 20, 20, 6, 20,
- 20, 20, 20, 20, 20, 20, 0, 0, 0, 0,
- 0, 0, 0, 0, 33, 33, 33, 29, 33, 24,
- 0, 20, 20, 20, 20, 20, 20, 20, 12, 20,
- 20, 20, 20, 20, 20, 20, 36, 0, 0, 0,
- 0, 0, 0, 0, 0, 33, 26, 28, 33, 33,
- 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
- 20, 10, 20, 20, 36, 36, 36, 0, 37, 37,
- 58, 0, 0, 0, 59, 60, 61, 0, 33, 33,
-
- 0, 33, 33, 20, 20, 20, 20, 13, 15, 20,
- 20, 20, 7, 20, 20, 11, 36, 0, 58, 0,
- 0, 59, 0, 60, 0, 61, 62, 62, 0, 0,
- 71, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 37, 37, 0, 0, 0, 0, 0, 0, 33, 33,
- 33, 33, 33, 33, 33, 25, 33, 33, 33, 33,
- 29, 33, 24, 26, 28, 33, 33, 33, 0, 33,
- 33, 33, 33, 0, 30, 31, 0, 0, 71, 0,
- 0, 0, 0, 1, 1, 1, 0, 70, 66, 69,
-
- 69, 65, 0, 20, 20, 20, 20, 20, 13, 15,
- 20, 20, 20, 7, 20, 20, 11, 20, 20, 20,
- 20, 20, 20, 20, 20, 20, 20, 36, 36, 36,
- 36, 0, 0, 69, 69, 69, 0, 58, 0, 0,
- 0, 0, 0, 0, 69, 69, 69, 69, 69, 69,
- 0, 59, 0, 60, 0, 61, 0, 0, 0, 0,
- 94, 86, 0, 0, 206, 210, 210, 210, 210, 216,
- 226, 226, 244, 251, 0, 0, 49, 0, 109, 109,
- 109, 111, 113, 161, 161, 161, 161, 161, 161, 161,
- 161, 161, 161, 128, 161, 161, 161, 161, 161, 161,
-
- 161, 161, 161, 161, 130, 161, 161, 161, 161, 161,
- 161, 161, 161, 161, 161, 161, 161, 154, 171, 171,
- 183, 180, 0, 0, 69, 69, 0, 69, 41, 69,
- 42, 57, 0, 0, 0, 0, 0, 0, 0, 65,
- 0, 0, 0, 0, 0, 0, 0, 33, 21, 0,
- 0, 0, 0, 0, 33, 0, 20, 6, 20, 20,
- 20, 20, 20, 20, 20, 0, 0, 0, 0, 0,
- 33, 20, 20, 20, 20, 20, 20, 20, 12, 20,
- 20, 20, 20, 20, 20, 20, 36, 0, 0, 0,
- 0, 33, 20, 20, 20, 20, 20, 20, 20, 20,
-
- 20, 20, 20, 10, 20, 20, 58, 0, 59, 60,
- 61, 0, 33, 0, 62, 62, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 37,
- 37, 0, 0, 0, 0, 0, 0, 0, 33, 33,
- 33, 33, 33, 0, 33, 33, 25, 33, 33, 33,
- 33, 29, 33, 24, 26, 28, 33, 33, 33, 0,
- 33, 33, 33, 0, 30, 31, 33, 27, 0, 0,
- 0, 0, 0, 0, 1, 1, 1, 1, 66, 65,
- 0, 20, 20, 20, 20, 20, 20, 20, 20, 20,
-
- 20, 20, 20, 20, 3, 20, 20, 16, 20, 20,
- 20, 9, 36, 36, 36, 36, 0, 0, 0, 58,
- 0, 36, 0, 59, 0, 60, 0, 61, 0, 0,
- 83, 202, 210, 201, 207, 226, 217, 245, 0, 0,
- 0, 102, 105, 109, 161, 161, 161, 119, 123, 161,
- 161, 161, 161, 129, 161, 161, 131, 161, 161, 161,
- 161, 161, 161, 161, 161, 161, 161, 161, 161, 161,
- 161, 149, 161, 151, 152, 161, 161, 167, 166, 97,
- 0, 69, 56, 0, 69, 69, 0, 0, 0, 0,
- 65, 0, 0, 0, 0, 0, 0, 0, 33, 21,
-
- 0, 0, 0, 0, 0, 33, 0, 20, 6, 20,
- 20, 20, 20, 20, 20, 20, 0, 0, 0, 0,
- 0, 33, 20, 20, 20, 20, 20, 20, 20, 12,
- 20, 20, 20, 20, 20, 20, 20, 0, 0, 0,
- 0, 33, 20, 20, 20, 20, 20, 20, 20, 20,
- 20, 20, 20, 10, 20, 20, 58, 0, 59, 60,
- 61, 0, 33, 20, 20, 20, 20, 13, 15, 20,
- 20, 20, 7, 20, 20, 11, 0, 0, 0, 0,
- 0, 33, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 38, 39, 23, 0, 0, 0, 0,
-
- 1, 1, 1, 20, 20, 20, 14, 20, 8, 20,
- 0, 203, 225, 0, 0, 0, 106, 161, 114, 120,
- 161, 124, 161, 161, 161, 161, 161, 161, 161, 161,
- 161, 161, 150, 161, 161, 161, 161, 161, 161, 161,
- 161, 147, 161, 161, 0, 0, 0, 69, 69, 0,
- 0, 44, 0, 0, 0, 44, 0, 0, 0, 0,
- 44, 0, 1, 1, 1, 20, 20, 4, 20, 20,
- 84, 0, 0, 0, 115, 161, 161, 161, 161, 161,
- 161, 161, 161, 161, 161, 161, 148, 161, 135, 161,
- 161, 161, 161, 145, 161, 161, 0, 0, 54, 69,
-
- 55, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 1, 1, 20, 20, 20, 20, 0, 0, 0, 125,
- 161, 161, 161, 161, 161, 136, 161, 161, 161, 146,
- 132, 161, 138, 161, 161, 161, 161, 0, 0, 69,
- 0, 0, 0, 0, 0, 0, 32, 0, 0, 1,
- 1, 20, 20, 20, 20, 0, 0, 0, 161, 126,
- 161, 133, 137, 161, 139, 161, 161, 161, 161, 161,
- 156, 0, 0, 69, 0, 0, 0, 0, 0, 0,
- 0, 0, 1, 1, 20, 2, 17, 20, 0, 0,
- 0, 161, 134, 161, 161, 140, 161, 161, 157, 0,
-
- 63, 69, 0, 0, 43, 0, 43, 0, 0, 43,
- 1, 1, 20, 20, 0, 0, 0, 127, 141, 161,
- 161, 142, 0, 0, 0, 22, 0, 1, 20, 20,
- 51, 0, 161, 161, 46, 34, 34, 34, 1, 20,
- 20, 0, 161, 143, 34, 34, 34, 34, 34, 1,
- 18, 20, 0, 144, 34, 34, 20, 0, 34, 34,
- 20, 0, 20, 47, 5, 0
- } ;
-
-static yyconst YY_CHAR yy_ec[256] =
- { 0,
- 1, 1, 1, 1, 1, 1, 1, 1, 2, 3,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 4, 1, 5, 6, 7, 1, 1, 8, 9,
- 10, 11, 12, 13, 14, 15, 16, 17, 18, 19,
- 20, 17, 17, 17, 17, 17, 17, 16, 21, 22,
- 23, 24, 1, 25, 26, 27, 28, 29, 30, 31,
- 32, 33, 34, 35, 36, 37, 38, 39, 40, 41,
- 42, 43, 44, 45, 46, 47, 48, 49, 50, 51,
- 1, 16, 1, 1, 52, 1, 53, 54, 55, 56,
-
- 57, 58, 59, 60, 61, 62, 63, 64, 65, 66,
- 67, 68, 69, 70, 71, 72, 73, 74, 75, 76,
- 77, 78, 1, 1, 1, 1, 1, 79, 79, 79,
- 79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
- 79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
- 79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
- 79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
- 79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
- 79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
- 79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
-
- 79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
- 79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
- 79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
- 79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
- 79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
- 79, 79, 79, 79, 79
- } ;
-
-static yyconst YY_CHAR yy_meta[80] =
- { 0,
- 1, 2, 3, 4, 5, 6, 1, 5, 7, 5,
- 8, 6, 9, 10, 11, 6, 12, 12, 12, 12,
- 13, 6, 5, 6, 14, 12, 12, 12, 12, 12,
- 12, 12, 12, 12, 12, 12, 12, 12, 12, 12,
- 12, 12, 12, 12, 12, 12, 12, 12, 12, 12,
- 12, 10, 12, 12, 12, 12, 12, 12, 12, 12,
- 12, 12, 12, 12, 12, 12, 12, 12, 12, 12,
- 12, 12, 12, 12, 12, 12, 12, 12, 15
- } ;
-
-static yyconst flex_uint16_t yy_base[3081] =
- { 0,
- 0, 79, 158, 229, 298, 371, 446, 181, 525, 185,
- 604, 629, 654, 186, 731, 800, 869, 937, 1007, 1068,
- 1129, 189, 292, 228, 1208, 190, 1287, 193, 1366, 194,
- 301, 233, 374, 237, 201, 751, 1443, 1512, 775, 1583,
- 4022,17331,17331, 3998, 3996, 3992,17331,17331, 3932, 206,
- 320, 347, 390, 417, 204, 188, 247, 382, 766, 278,
- 381, 778, 735, 0, 1605, 3947, 1675, 1747, 3933, 0,
- 0, 3877, 799, 833, 1826, 845, 1851, 207, 3875, 868,
- 882, 898, 971, 1454, 1442, 1037, 1481, 1471, 1511,17331,
- 17331, 276, 3882, 3875, 3854, 950, 1091, 959, 982, 1027,
-
- 205, 723, 818, 794, 834,17331, 3872, 3861, 1100, 1542,
- 1522, 1551, 178, 284, 297, 284, 295, 309,17331,17331,
- 3853, 3762, 3755, 3698, 1582, 1600, 1608, 1619, 1638, 266,
- 3689, 724, 876, 251, 728, 1639, 810, 784, 862, 861,
- 1436, 270,17331,17331,17331, 3706, 3697, 3674,17331,17331,
- 3657, 1668, 1708, 1720, 1765, 1779, 275, 3640, 407, 1046,
- 1437, 916, 811, 1462, 1601, 417,17331,17331,17331, 3658,
- 3629, 3625, 3605, 1792, 1874, 1866, 1882, 1890, 347, 3561,
- 411, 741,17331,17331,17331, 3551, 3549, 3545,17331,17331,
- 3493, 1898, 1916, 1908, 1924, 1932, 396, 3493, 1627, 1047,
-
- 736, 1482, 1933, 893, 1632, 764,17331,17331, 3493, 875,
- 17331, 376, 384, 800, 847, 767,17331, 1947, 1955, 908,
- 920, 1646, 3475, 3448, 1963, 1980, 1989, 1997, 2005, 1653,
- 929, 1773, 1972, 1521, 1998, 941, 3450, 3409, 3378, 1804,
- 1938, 2016, 2023, 2024, 1655, 2029, 1539, 3371, 1674, 1648,
- 1735, 2030, 1685, 2017, 1030, 3369, 3352, 3321, 2032, 2055,
- 2082, 2088, 3308, 923, 1749, 2078, 1633, 3317, 3311, 2101,
- 2109, 2120, 2128, 2136, 881,17331, 3258, 979, 1964, 2110,
- 1691, 1917, 2144, 2145, 2119, 2148, 2151, 3262, 3243,17331,
- 876, 1011, 999, 1058,17331, 0, 3240, 3234, 3227, 0,
-
- 3167, 3092, 2150, 3083, 2163, 0, 2175, 2189,17331, 3054,
- 0, 2202, 3042, 2024, 1073, 1054, 2210, 1524, 1640, 1725,
- 1745, 1729, 0, 0, 2264, 2334, 2406, 2991, 1752, 1752,
- 1926, 1991, 2026, 2969, 2179, 2221, 2483, 2176, 2032, 2053,
- 2555, 2634, 2081, 2190, 2119, 2143, 2180, 2950, 2215, 0,
- 2233, 2260, 2952, 2713, 2738, 2946, 2763, 2280, 2330, 2307,
- 2424, 2367, 2476, 2455, 2438, 2501, 2517, 2587, 2655, 2830,
- 1101, 2937, 2240, 2932, 2266, 2573, 2600, 2663, 0, 2672,
- 2209, 2193, 2213,17331, 2927, 2284, 2916, 2293, 2684, 2692,
- 2840,17331, 2199, 2203, 2235, 2258, 2251, 2906, 2903, 2311,
-
- 2892, 2334, 2849, 2859,17331, 2881, 2867, 2875,17331, 990,
- 2355, 2850, 2836, 2388, 2340, 2701, 2331, 2292, 2379, 2348,
- 2704, 2683, 2482, 2678, 2529, 2886, 2894,17331, 0, 2902,
- 17331, 0, 0, 2289, 0, 2299, 2330, 2665, 2660, 2564,
- 2595, 2577, 2910, 2918,17331, 0, 2926,17331, 2571, 2568,
- 2591, 2550, 2610, 2934, 2942,17331, 0, 2950,17331, 2329,
- 0, 0, 2381, 2407, 2403, 2412, 2539,17331, 2423, 2968,
- 2441, 2461, 0, 2960, 2461, 0, 2536, 2634, 2500, 2643,
- 2973, 2982, 2990, 0, 2999, 0, 2473, 2492, 2495, 2531,
- 2556, 0, 2480, 2461, 2676, 2456, 2713, 2435,17331, 3009,
-
- 3015, 0, 3021, 2965, 2608, 2641, 2635, 2800, 2817, 2826,
- 2832, 2861, 2854, 2960, 3028, 2964, 2990, 2983, 2976, 2986,
- 3000, 2418, 3033, 2401, 3043, 2380,17331, 3056, 3070, 0,
- 3083, 3060, 3035, 3038, 3036, 0, 3024, 2371, 3087, 2364,
- 3091, 3099, 3107, 3117, 0, 3126,17331,17331,17331, 3082,
- 3069, 3093, 0, 3084, 3084, 0, 3086, 3107, 0, 2354,
- 3134, 2349, 3144, 3103, 3107, 3128, 3103, 0, 2301, 3150,
- 2282, 3160, 0, 3177, 3185, 0, 3112, 3109, 3127, 3149,
- 3203, 3146, 3150, 3156, 3154, 3156, 3175, 0, 0, 3256,
- 3328, 2237, 3182, 3176, 3170, 3181, 3185, 0, 3405, 3477,
-
- 2220, 3194, 3185, 3183, 3180, 3195, 3190, 3193, 3556, 3235,
- 3312, 3634, 3704, 3357, 3400, 3775, 3192, 3200, 3191, 3207,
- 3198, 2236, 3254, 3290, 3215, 3223, 3234, 3852, 3248, 3227,
- 3247, 3244, 3262, 3257, 3924, 4003, 3281, 3268, 3291, 3324,
- 3319, 3332, 3336, 0, 3335, 3323, 2220, 3360, 3402, 0,
- 3495, 3509, 2222, 4082, 4107, 2183,17331, 4132, 4209, 3370,
- 3402, 3374, 3339, 3411, 3398, 3395, 3479, 3380, 3588, 3603,
- 3624, 3524, 3632, 3641, 3611, 3670, 3700, 3711, 3847, 3855,
- 3897, 3942, 3957, 3736, 3885, 3391, 3412, 3402, 3436, 3979,
- 3969, 3441, 3466, 3459, 3474, 3472, 4016, 4026, 2156, 4034,
-
- 3535, 3480, 3520, 3544, 3567, 3578, 3596, 4051, 4059, 3489,
- 3548, 3564, 4210, 4238, 4270, 4278, 3588, 3608, 3636, 0,
- 3636, 3646, 3637, 3647, 3650, 3685, 4288, 4296, 3681, 0,
- 3689, 3707, 0,17331, 4306, 4314, 3702, 3716, 3710, 3819,
- 3824, 3835, 3838, 3837, 3857, 3863, 3864, 4309, 3899, 3904,
- 3918, 3912, 3924, 3937, 4176, 3979, 3988, 3992, 3995, 4010,
- 4022, 4337, 4326, 4045, 4048, 0, 4185, 4355, 4365, 4187,
- 4196, 4206, 4189, 0, 0, 4195, 4382, 4390, 4190,17331,
- 4202, 4214, 4201, 4229, 4400, 4408, 4418, 4426, 4233, 4281,
- 4288, 4277, 4318, 4316, 4320, 4327, 4345, 4355, 4411, 0,
-
- 0, 4443, 4515, 2087, 4379, 4394, 4398, 4406, 4414, 4594,
- 4499, 4578, 4672, 4742, 4623, 4628, 4813, 4412, 4421, 4412,
- 4419, 4409, 0, 4890, 4962, 2067, 4432, 4420, 4419, 4419,
- 4433, 4428, 4431, 5041, 4657, 4717, 5119, 5189, 4720, 4946,
- 5260, 4429, 4429, 4447, 4455, 4465, 4466, 4474, 4496, 5025,
- 5070, 5338, 5075, 5408, 5478, 4558, 5548, 4521, 4516, 4515,
- 4517, 4599, 4525, 4527, 4583, 4517, 4665, 4536, 4537, 4525,
- 4583, 2076, 4624, 4788, 4891, 4595, 4624, 4613, 5618, 4643,
- 4638, 4660, 4655, 4675, 4664, 4657, 4671, 4675, 5690, 5769,
- 4716, 4682, 4695, 4701, 4723, 4712, 0, 4716, 4711, 4721,
-
- 4738, 4740, 2062, 4737, 0, 2058, 4881, 4908, 4936, 0,
- 4980, 4995, 2044, 5848, 5873, 2024, 5898, 5977, 4876, 4885,
- 4866, 4907, 5046, 4926, 4952, 4964, 4955, 4974, 5007, 5009,
- 5016, 5055, 5041, 0, 5055, 5039, 5056, 5059, 5056, 5060,
- 5081,17331, 6056, 5126, 5151, 5183, 5192, 5330, 5339, 5357,
- 5091, 5372, 5385, 5403, 5428, 5444, 5468, 5221, 5476, 5496,
- 5209, 5523, 5097, 5095, 5114, 5124, 5540, 5582, 5109, 5112,
- 5112, 5141,17331, 5550, 5619, 2011, 1990, 5145, 5163, 5340,
- 5173, 5180, 5636, 5663, 5181, 5192, 5188, 5712, 5735, 5745,
- 5791, 0, 0, 5196, 5194, 5298, 5301, 5327, 5324, 5353,
-
- 5783, 5808, 5343, 5354, 5369, 5818, 5826, 5383, 5384, 5379,
- 5411, 5417, 5421, 5443, 5456, 257, 5458, 5471, 5468, 5510,
- 5476, 5467, 5506, 5523, 5520, 5531, 5550, 5540, 5550, 5541,
- 5567, 5589, 5593, 5591, 5582, 5600, 5608, 5604, 5603, 5623,
- 5623, 5669, 5911, 5928, 5673, 5665, 0, 5938, 5946, 5679,
- 5682, 5695, 0, 0, 5956, 5999,17331, 5697, 5715, 5713,
- 5769, 5991, 6016, 5765,17331, 5774, 5779, 5767, 5781, 5791,
- 5886, 5889, 5885, 6010, 0, 0, 6132, 6204, 1965, 5899,
- 5900, 5897, 5934, 5960, 6283, 6045, 6080, 6361, 6431, 6083,
- 6088, 6502, 5968, 5985, 5985, 5992, 5982, 6188, 6267, 6580,
-
- 6312, 6650, 6720, 6044, 6790, 6067, 6064, 6037, 5997, 6108,
- 6011, 6008, 6117, 6073, 6167, 6100, 6120, 6111, 6127, 0,
- 6860, 6932, 1947, 6196, 6131, 6128, 6125, 6142, 6161, 6196,
- 7011, 6317, 6346, 7089, 7159, 6406, 6409, 7230, 6198, 6196,
- 6209, 6212, 6201, 6202, 6212, 6206, 6585, 6588, 7308, 6596,
- 7378, 7448, 6273, 7518, 6292, 6309, 6215, 6222, 6345, 6229,
- 6246, 6301, 6263, 6416, 6272, 6297, 6293, 6339, 6335, 6344,
- 6359, 7589, 7659, 6604, 6658, 6669, 6674, 978, 6367, 6377,
- 6388, 6390, 6386, 6410, 6416, 0, 6420, 6407, 6423, 6425,
- 6413, 6413, 6417, 7730, 6582, 6419, 6438, 2604, 6439, 1949,
-
- 5074, 6729, 6753, 6543, 6557, 6579, 7807, 6643, 6578, 6633,
- 6623, 6640, 6628, 6629, 6650, 6652, 6748, 6652, 6674, 7879,
- 7958, 6716, 6674, 6711, 6726, 6740, 6730, 0, 6728, 6717,
- 6744, 6746, 1926, 6744, 0, 6742, 0, 1924, 6778, 6748,
- 1916, 5236, 6480, 6824, 0, 6853, 6861, 1918, 8037, 8062,
- 1910, 8087, 8166, 6758, 6769, 6767, 6755, 6804, 6780, 0,
- 6787, 6785, 6798, 6819, 6810, 6813, 6826, 6846, 6845, 6853,
- 6848, 6860, 6862, 1898, 6852, 6850, 6867, 1892, 0, 6855,
- 6860, 8245, 8324, 6946, 6964, 0, 7029, 7045, 6981, 7071,
- 6866, 6855, 7084, 7092, 7121, 7151, 7163, 7300, 7181, 7193,
-
- 7310, 7328, 7355, 0, 6869, 6918, 6914, 6930, 6916, 6930,
- 6931, 6971, 6991, 7015, 6999, 7025, 6929, 6942, 6946, 7000,
- 7016, 7014, 7019, 7039, 7035, 7026, 7061, 7055, 7065, 7064,
- 7065, 7070, 7081, 7096, 7092, 7090, 0, 7097, 7148, 1880,
- 0, 7105, 7149, 7166, 7298, 7293, 7290, 7285, 7306, 7293,
- 7314, 7322, 7317, 7316, 7319, 7329, 7347, 7335, 7347, 7371,
- 7357, 7343, 7358, 7363, 7356, 7357, 7362, 7363, 7356, 7366,
- 7369, 7370, 7376, 0, 7377, 7364,17331, 7381, 7396, 7390,
- 7394, 7389, 7404, 7409, 7411, 7404, 7413, 7405, 7415, 1459,
- 1554, 8400, 8472, 3703, 7453, 7455, 7470, 7472, 7490, 8551,
-
- 7524, 7567, 8629, 8699, 7574, 7637, 8770, 7473, 7484, 7475,
- 7495, 7485, 7652, 7723, 8848, 7745, 8918, 8988, 7456, 9058,
- 7513, 7470, 7506, 7415, 7568, 7449, 7468, 7493, 7465, 7662,
- 7588, 7592, 7601, 7647, 9129, 9199, 7756, 7942, 7799, 7863,
- 1045, 7579, 7550, 7573, 7576, 7577, 7630, 7593, 0, 7600,
- 7608, 7638, 7641, 7632, 7632, 7642, 9270, 7760, 7724, 7761,
- 4791, 7817, 1571, 9347, 9419, 3939, 7921, 7715, 7793, 7801,
- 7819, 7651, 7894, 9498, 8150, 8193, 9576, 9646, 8238, 8271,
- 9717, 7835, 7757, 7927, 7996, 7987, 7910, 7943, 7983, 8317,
- 8351, 9795, 8362, 9865, 9935, 7766,10005, 7886, 7959, 7797,
-
- 7657, 7962, 7695, 7726, 7878, 7746, 8102, 8115, 8103, 8146,
- 8131, 8198, 8144, 8228,10076,10146, 8395, 8456, 8535, 8580,
- 1462, 7972, 7818, 7883, 7884, 7872, 7961, 7961, 0, 7982,
- 7965, 7998, 8070, 8071, 8071, 8075,10217, 8126, 8195, 8272,
- 8283, 8214, 8227, 6593, 8280,10295, 8585, 8674, 8641,10365,
- 8085, 8084, 8099, 8093, 8105, 8171, 1882, 8162, 8169, 8247,
- 1874, 0, 8236, 8246,10436, 8354, 2161, 8339, 3272, 4491,
- 4902, 8359, 3583, 8398, 8527, 8702, 8433, 8240, 8263,10513,
- 8373, 8387, 8579, 8500, 8494, 8566, 8458, 8589, 8628, 8614,
- 8636, 8292,17331, 1594, 8658, 8712,10585,10664, 8470, 8262,
-
- 8277, 8322, 8620, 8330, 0, 8361, 8389, 8417, 8434, 1866,
- 8458, 0, 0, 1815, 8663, 8463, 8495, 8489, 8609, 8540,
- 8572, 4684, 8730, 8847, 8868, 1620, 8895, 8912, 2377,10743,
- 10768, 2518,10793,10872, 8630, 8643, 8671, 8684, 8695, 8697,
- 1811, 8687, 8691, 8707, 1806, 0, 8695, 8700, 1801, 8816,
- 8817, 8820, 0, 1781, 8828, 1753, 8829, 0, 8830, 8841,
- 0,10951,11030, 8890, 8920, 8936, 8954, 5923, 3002, 8982,
- 8930, 8850, 8976, 8989, 9010, 9033, 9051, 9061, 9119, 6793,
- 3585, 6806, 3675, 8010, 3747,17331, 4215, 9139, 9052, 0,
- 0, 8834,17331, 8843, 8830, 8878, 8967, 9057, 8944, 8892,
-
- 9058, 8980, 8980, 8976, 8984, 8978, 9012, 9052, 9055, 9045,
- 0, 9054, 9065, 9053, 9053, 9069, 0, 0, 9107, 9114,
- 0, 0, 9108, 9102, 0, 9110, 1751, 9125, 9113, 9113,
- 9105, 9117, 9131, 9122, 9134, 9131, 9135, 9122, 9139, 9151,
- 9151, 9158, 9158, 9164, 9166, 9194, 9170, 9166, 9171, 9182,
- 9183, 0, 9188, 0, 9183, 9178, 9178, 9191, 9180,17331,
- 9196,17331, 8446, 9275, 9286, 9182, 9298, 9300, 9302, 9305,
- 9324, 9200, 1719, 4977, 9203, 5033, 5717, 9306,11106,11177,
- 8116, 9342, 9331, 9369, 9332, 9372, 9513, 9560, 1704, 9299,
- 9345, 9210, 9236, 9380,11246, 9448, 9461, 9457, 9526, 9550,
-
- 9330, 9413, 9360, 1688, 9340, 9275, 9358, 1673, 9500, 9420,
- 9430, 9435, 9566, 9510, 9421, 9509, 9506, 9632, 9561, 9577,
- 9603, 9614, 9613, 9568, 9567, 971, 9548, 1668, 3570, 9630,
- 9604, 9631, 9634, 9638, 9773, 9637, 1659, 9644, 9642, 9354,
- 9648, 9411, 9525, 9775, 9798, 9801, 9802, 9805, 9839, 9850,
- 9624, 1647, 1488, 9821, 9796, 9647, 9843, 9649, 9808, 9846,
- 9785, 1616, 9845, 9815, 9848, 1840, 1618, 9847, 9854, 9881,
- 1597, 9908, 9927, 8218, 9930, 9690, 9938, 9939, 9964, 8121,
- 8917, 9962, 1585,11318, 9921, 9987, 9991, 9947, 9993, 9999,
- 10019,10034,11397, 0,10068,10084,11475,11545,10092,10130,
-
- 11616,10060,10147,10223,10088,10233,10157,10096,10232,10245,
- 10248,11694,10283,11764,11834, 9915,11904,10116, 9866, 9852,
- 9217, 9927, 9649, 9858,10017, 9855,10181,10054,10256,10297,
- 10282,10310,10332,10338,11975,12045,10346,10384,10429,10462,
- 1988,10136, 9919, 9966, 9963, 9981,10201,10011, 0,10055,
- 10096,10120,10128,10133,10135,10152,12116,10320,10464,10347,
- 10458,10366,10476,10541,10510,12194,10569,10648,10856,12264,
- 10162,10173,10222,10222,10237,10241, 1582,10235,10283,10330,
- 1567, 0,10336,10344,12335,10408, 0,10523,10360,10390,
- 10409,10607,10610,10470,10538,10612,10634,10690,10485,10457,
-
- 10691,10445,10405, 2161,10514,10592,10540, 1548, 2256,10521,
- 2478,10599, 1542,10537,10671, 1528, 1518,10702,10679,10818,
- 10710,10735,10808,10809,10817,10820,10826,10836, 922,10844,
- 6026,10886,10903,10920,10964,10591,10606,12412,10981,10931,
- 10982,11015,11039,11047,10842,11055,11059,11065,10925,10976,
- 10846,10984,11070,11093,11097,11103,11139,12483, 1706,11133,
- 11140,10706,10992,11151,11073, 2314,11155,11190,11199,11215,
- 2962,11221, 2444, 7182, 8286,11235,11164,11239,10687,11254,
- 11307,11334,11263,10811, 7783, 8941, 820,11180,10884,11253,
- 11347,11425,11444, 1497,11000,10810,11465,11474,11121,11365,
-
- 11539,11259,11346,11352,11412,11470,11389,11513,11421,11497,
- 11696,11526,11700,11558,11702,11728,11562,11759,11567,11770,
- 11786,11711,11774,11799,11815,11826,11842,11587, 1879,11844,
- 11582,11871,11500,11788,11897,11967,11445, 1479,11910,11899,
- 10623,10885,10966,10890,11978,11983,12010,12037,12017,12052,
- 11848, 1453,11872, 1443,11915, 1428,12057,12080,10990,10800,
- 0,17331,10651,10809, 1433,10915,10999,10934,11047, 0,
- 11021,11041, 0,11053,10509,11055,17331,11047,11066,11110,
- 11156, 0, 0,11196,11199,11186,11228,11223,11248,11241,
- 11312,11304,11319, 0,11539,11410,11423,11437,11436, 1107,
-
- 11451,11453,11467,11495, 0,11529,11533,11545,11554,11544,
- 11668,11668,11684,11687,11689,11689,11693, 0,11710,11709,
- 0, 0,11719,11981,11994,12077,11718,12121,17331,12140,
- 17331,17331,11713,11748, 4220,11765,11777,11831,11902,12551,
- 12622, 2054,11835,11855,11919,11825,11824,12131,12691,11900,
- 11886,11933,12038,11999,12144,12083,12147,12156,12205,12160,
- 12216,12200,12218,12256,12236,12259,11997,12041,11986,11953,
- 12208,12341,12289,12351,12366,12378,12407,12361,12286,12381,
- 12422,12427,12485,12487,12496,12498,12299,12130,12034, 6718,
- 12122,12493,12500,12511,12569,12545,12535,12579,12596,12614,
-
- 12624,12629,12639,12659,12686,12701, 6308,12262, 8209, 8576,
- 8943,12697,12559,12349,11942, 1091,12439,12726,12720,11766,
- 5372,12152,12251,12764,11971,12132,12761,12562,12249,12338,
- 12129,12333,12211,12245,12141,12303,12775,12348,12374,12096,
- 1082,12379,12384,12371,12435,12788,12794,12419, 8994,12769,
- 12656,12642,12713,12702,12816,12801,11392,12819,12823,12830,
- 12834,12563,12838,12527,12673,12865,12869,12841,12850,12273,
- 12881,12894,12898,12415,12845,12903,12911,12912,12422,12640,
- 5464,12583,12913,12930,12480, 4267,12543,12745, 4318, 4347,
- 12906,12921,12941,12951,12960,12975,12970,12980,12995,13004,
-
- 13010,13015,13019,12999,13030,13050,13053,13065,13076,13078,
- 13088,13091,13094, 2923,13117,13120,13136,10719, 8747,17331,
- 13147,13150, 9248,17331, 9597,17331,10250,17331,13161,12529,
- 17331, 1088,12582, 1048, 1043,12602, 0, 0,13122,12648,
- 12704, 0, 0,12717,12762,12766,12772, 0, 0,12827,
- 12836,12815,12835, 0,12865,12928, 0,12943,12931,12960,
- 12997,13002,13006,13026,13079,13068, 1021,13103,13092,13105,
- 13123, 0,13132, 0, 0,13127,13126, 0, 0,17331,
- 13136,13174,17331,13140,13188,13195,13151,13143,13148,13147,
- 979, 950, 890,13161,13165,13159,13168,13171,13218, 871,
-
- 13169,13188,13179,13187,13178,13224,13230,13236,13233,13262,
- 13253,13266,13294,13277,13305,13311,13328,13255,13257,13265,
- 13276,13335,13339,13350,13352,13355,13367,13387,13390,13405,
- 13414,13424,13430,13439,13441,13450,13468,13272,13291, 2613,
- 13294,13395,13473,13477,13496,13479,13511,13515,13521,13530,
- 13545,13548,13550,13563,13576,13581, 2662,13281, 2737, 2848,
- 3360,13488,13556,13593,13591,13610,13619,13623,13628,13634,
- 13647,13659,13662,13671,13674,13686, 3401,13294, 3450, 3536,
- 3753,13379,13697,13444,13399,13412,13584,13603,13421,13700,
- 13702, 834,13685,17331,17331,13469,13334,13542,13671,13625,
-
- 13406,13539,13615,13723,13713,13729,13738,13740,13753,13756,
- 13641, 834, 0,13650,13666,13694, 0,13695, 0, 0,
- 13700, 0, 806,13720,13714,13720,13722,13720, 796,13743,
- 13731,13746, 0,13746,13751,13744,13754,13739,13744,13736,
- 13757, 0,13747,13753,13745,13812,13755,13819,13823,13765,
- 13756,17331,13759,13826,13794, 784,13800,13779,13768,13812,
- 750,13833,13797, 0,13798,13843,13849, 749,13872,13876,
- 17331,13827,13813,13819, 0,13835,13823,13829,13841,13845,
- 13835,13855,13866,13851,13858,13872, 0,13867, 0,13878,
- 13880,13857,13870, 0,13872,13885,13879,13874,17331,13939,
-
- 17331,13884,13887,13881,13910,13920,13884,13893,13927,13938,
- 13913,13906,13953,13964,13966,13976,13913,13931,13933, 0,
- 13956,13954,13958,13958,13957, 0,13970,13971,13948, 0,
- 0,13957, 0, 726,13977,13978,13962,13968,13985,14014,
- 13976,13976,13979,14021,14023, 423,17331,14028,14029,13998,
- 14000,14041,14045,14047,14074,14013,14015,14080,14021, 0,
- 14024, 0, 0,14019, 0, 379,14045,14034,14037,14034,
- 0,14058,14064,14101,14065,14069,14072,14106,14105, 2108,
- 14104,14110,14084,14088,14123,14126,14128,14151,14093,14099,
- 14160,14126, 0,14131,14119, 0,14133,14131, 0,14126,
-
- 17331,14176,14195,14131,17331,14166, 382, 377,14138, 274,
- 14134, 0,14208,14203,14155,14219,14170, 0, 0,14177,
- 14182, 0,14185, 223, 3040, 213, 953, 180,14232,14241,
- 17331,14198,14191,14204,17331, 0,14305,14384,14463,14235,
- 14251,14196,14218, 0, 0,14542, 5345,14621, 5848,14700,
- 14260,14279,14216, 0,14275,14318,14321,14219,14343,14351,
- 14362,14231,14372,17331,14347,17331,14779,14794,14809,14824,
- 14839,14854,14869,14876,14891,14906,14921,14936,14951,14966,
- 14981,14996,15003,15018,15033,15048,15063,15070,15085,15100,
- 15107,15122,15137,15144,15159,15174,15181,15188,15203,15218,
-
- 15225,15240,15255,15270,15276,15291,15306,15321,15327,15342,
- 15357,15364,15379,15394,15406,15421,15436,15451,15466,15481,
- 15487,15502,15517,15532,15547,15562,15577,15592,15607,15622,
- 15637,15652,15658,15673,15688,15703,15718,15724,15731,15746,
- 15761,15767,15782,15797,15803,15818,15833,15839,15845,15860,
- 15875,15881,15896,15911,15926,15932,15947,15962,15977,15983,
- 15998,16013,16019,16034,16049,16061,16076,16091,16106,16112,
- 16127,16142,16157,16172,16187,16202,16217,16232,16247,16262,
- 16268,16274,16280,16286,16292,16298,16304,16310,16316,16322,
- 16328,16343,16358,16373,16388,16403,16418,16433,16448,16463,
-
- 16478,16493,16508,16514,16520,16526,16532,16538,16544,16550,
- 16556,16562,16568,16583,16598,16613,16628,16643,16658,16673,
- 16688,16703,16718,16733,16748,16763,16769,16775,16781,16787,
- 16793,16799,16805,16811,16817,16823,16838,16853,16868,16883,
- 16898,16913,16928,16943,16958,16973,16988,17003,17018,17033,
- 17039,17045,17051,17057,17063,17069,17075,17081,17087,17100,
- 17115,17130,17145,17159,17173,17188,17201,17213,17218,17224,
- 17230,17236,17242,17248,17254,17260,17272,17285,17300,17315
- } ;
-
-static yyconst flex_int16_t yy_def[3081] =
- { 0,
- 2866, 2866, 2867, 2867, 2868, 2868, 2866, 7, 2866, 9,
- 2869, 2869, 2866, 13, 2868, 2868, 2868, 2868, 2870, 2870,
- 2866, 21, 4, 4, 2866, 25, 2866, 27, 2866, 29,
- 4, 4, 4, 4, 2868, 2868, 2868, 2868, 2871, 2871,
- 2866, 2866, 2866, 2866, 2872, 2873, 2866, 2866, 2866, 2866,
- 2866, 2874, 2866, 2874, 2866, 2874, 2874, 2874, 2874, 2874,
- 2874, 2874, 2874, 2875, 2876, 2877, 2876, 2878, 2879, 2875,
- 2875, 2875, 2875, 2875, 2880, 2875, 2880, 2875, 2875, 77,
- 77, 77, 77, 77, 77, 77, 77, 77, 77, 2866,
- 2866, 2866, 2881, 2882, 2866, 2866, 2866, 2883, 2866, 2883,
-
- 2883, 2883, 2883, 2883, 2866, 2866, 2884, 2885, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2886, 2887, 2866, 2866, 2866, 2888, 2866, 2888, 2866,
- 2866, 2888, 2888, 2888, 2888, 2888, 2888, 2888, 2888, 2888,
- 2888, 2866, 2866, 2866, 2866, 2866, 2889, 2890, 2866, 2866,
- 2866, 2866, 2866, 2891, 2866, 2891, 2866, 2866, 2891, 2891,
- 2891, 2891, 2891, 2891, 2891, 2866, 2866, 2866, 2866, 2866,
- 2892, 2893, 2866, 2866, 2866, 2894, 2866, 2894, 2866, 2866,
- 2894, 2866, 2866, 2866, 2866, 2866, 2895, 2896, 2866, 2866,
- 2866, 2866, 2866, 2897, 2866, 2897, 2866, 2866, 2897, 2897,
-
- 2897, 2897, 2897, 2897, 2897, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2898, 2898, 2898,
- 2898, 2898, 2899, 2900, 2866, 2866, 2901, 2866, 2901, 2901,
- 2901, 2901, 2901, 2901, 2883, 2866, 2902, 2903, 2904, 2866,
- 2905, 2866, 2905, 2905, 2905, 2905, 2905, 2905, 2905, 2905,
- 2905, 2905, 2905, 2905, 2866, 2906, 2907, 2908, 2866, 2909,
- 2866, 2909, 2909, 2909, 2909, 2909, 2909, 2910, 2911, 2866,
- 2866, 2912, 2866, 2912, 2866, 2866, 2866, 2912, 2912, 2912,
- 2912, 2912, 2912, 2912, 2912, 2912, 2912, 2913, 2914, 2866,
- 2866, 2866, 2866, 2866, 2866, 2915, 2916, 2917, 2915, 2915,
-
- 2866, 2918, 2866, 2919, 2866, 2920, 2866, 2866, 2866, 2866,
- 2921, 2921, 2866, 2921, 2921, 2921, 2921, 2921, 2921, 2921,
- 2921, 2921, 2922, 2923, 2923, 2924, 2925, 2923, 2923, 2923,
- 2923, 2923, 2923, 2926, 2922, 2866, 2923, 2923, 2923, 2923,
- 2927, 2927, 342, 342, 342, 342, 342, 2928, 2922, 2929,
- 2922, 2922, 2922, 2930, 2930, 2922, 2866, 355, 355, 355,
- 355, 355, 355, 355, 355, 355, 355, 355, 355, 355,
- 2866, 2931, 2866, 2932, 2866, 2866, 2866, 2866, 2933, 2933,
- 2933, 2933, 2933, 2866, 2934, 2866, 2935, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2936, 2866,
-
- 2937, 2866, 2866, 2866, 2866, 2938, 2939, 2938, 2866, 2939,
- 2938, 2938, 2938, 2938, 2938, 2938, 2938, 2938, 2938, 2938,
- 2866, 2940, 2866, 2941, 2866, 2866, 2866, 2866, 2942, 2942,
- 2866, 2942, 2942, 2942, 2942, 2942, 2942, 2866, 2943, 2866,
- 2944, 2866, 2866, 2866, 2866, 2945, 2945, 2866, 2866, 2946,
- 2866, 2947, 2866, 2866, 2866, 2866, 2948, 2948, 2866, 2948,
- 2948, 2948, 2948, 2948, 2948, 2948, 2866, 2866, 2866, 2866,
- 2866, 2866, 2949, 2949, 2949, 2949, 2950, 2866, 2951, 2866,
- 2866, 2866, 2866, 2952, 2952, 2952, 2952, 2952, 2952, 2952,
- 2933, 2933, 2866, 2953, 2866, 2954, 2866, 2955, 2866, 2866,
-
- 2866, 2956, 2956, 2866, 2956, 2956, 2956, 2956, 2956, 2956,
- 2956, 2956, 2956, 2956, 2956, 2956, 2956, 2956, 2956, 2956,
- 2956, 2957, 2866, 2958, 2866, 2959, 2866, 2866, 2866, 2960,
- 2960, 2866, 2960, 2960, 2960, 2960, 2960, 2961, 2866, 2962,
- 2866, 2866, 2866, 2866, 2963, 2963, 2866, 2866, 2866, 2963,
- 2963, 2963, 2963, 2963, 2963, 2963, 2963, 2963, 2963, 2964,
- 2866, 2965, 2866, 2866, 2866, 2866, 2866, 2966, 2967, 2866,
- 2968, 2866, 2966, 2866, 2866, 2969, 2970, 2970, 2970, 2970,
- 2866, 2970, 2970, 2970, 2970, 2970, 2970, 2971, 2972, 2972,
- 2973, 2972, 2972, 2972, 2972, 2972, 2972, 2974, 2974, 2975,
-
- 2974, 2974, 2974, 2974, 2974, 2974, 2974, 2974, 2973, 609,
- 609, 609, 609, 609, 609, 2866, 2972, 2972, 2972, 2972,
- 2972, 2976, 2971, 2971, 2866, 2866, 2866, 2972, 2972, 2972,
- 2972, 2972, 2972, 2972, 2977, 2977, 636, 636, 636, 636,
- 636, 636, 636, 636, 636, 636, 2978, 2971, 2971, 2979,
- 2971, 2971, 2971, 2980, 2980, 2971, 2866, 2866, 658, 659,
- 659, 659, 659, 659, 659, 659, 659, 659, 655, 655,
- 655, 655, 655, 655, 2971, 655, 655, 655, 655, 655,
- 655, 655, 655, 2866, 2866, 2981, 2981, 2981, 2981, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2982, 2982,
-
- 2983, 2983, 2983, 2983, 2983, 2983, 2983, 2866, 2866, 2984,
- 2984, 2984, 2866, 2866, 2866, 2866, 2985, 2985, 2985, 2985,
- 2985, 2866, 2866, 2866, 2866, 2986, 2866, 2866, 2987, 2987,
- 2987, 2987, 2981, 2866, 2866, 2866, 2988, 2988, 2988, 2988,
- 2988, 2988, 2988, 2988, 2988, 2988, 2988, 2988, 2988, 2988,
- 2988, 2988, 2988, 2988, 2988, 2988, 2988, 2988, 2988, 2988,
- 2988, 2866, 2866, 2989, 2989, 2989, 2989, 2866, 2866, 2990,
- 2990, 2990, 2990, 2990, 2990, 2990, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2991, 2991,
- 2991, 2991, 2866, 2991, 2991, 2991, 2991, 2991, 2991, 2992,
-
- 2993, 2993, 2994, 2993, 2993, 2993, 2993, 2993, 2993, 2994,
- 810, 810, 810, 810, 810, 810, 2866, 2993, 2993, 2993,
- 2993, 2993, 2995, 2995, 2996, 2995, 2995, 2995, 2995, 2995,
- 2995, 2995, 2995, 2996, 834, 834, 834, 834, 834, 834,
- 2866, 2995, 2995, 2995, 2995, 2995, 2995, 2995, 2995, 810,
- 810, 810, 810, 810, 810, 817, 817, 857, 857, 857,
- 857, 857, 857, 857, 857, 857, 2993, 2993, 2993, 2993,
- 2993, 2997, 2992, 2992, 2992, 2866, 2866, 2866, 2993, 2993,
- 2993, 2993, 2993, 2993, 2993, 2993, 2993, 2993, 2998, 2998,
- 890, 890, 890, 890, 890, 890, 890, 890, 890, 890,
-
- 890, 890, 890, 890, 890, 2999, 2992, 2992, 2992, 3000,
- 2992, 2992, 2992, 3001, 3001, 2992, 3002, 3002, 918, 918,
- 918, 918, 918, 918, 918, 918, 918, 918, 918, 918,
- 918, 918, 918, 918, 918, 918, 918, 918, 918, 918,
- 918, 2866, 3003, 2992, 915, 915, 915, 915, 915, 2992,
- 2992, 915, 915, 915, 915, 915, 915, 915, 915, 915,
- 2866, 2866, 3004, 3004, 3004, 3004, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 3005, 3005, 3005, 3005, 3005,
- 3005, 3005, 2866, 2866, 3006, 3006, 3006, 2866, 2866, 2866,
- 2866, 3007, 3007, 3007, 3007, 2866, 2866, 2866, 2866, 3008,
-
- 2866, 2866, 3009, 3009, 3009, 2866, 2866, 3010, 3010, 3010,
- 3010, 3010, 3010, 3010, 3010, 3010, 3010, 3010, 3010, 3010,
- 3010, 3010, 3010, 3010, 3010, 3010, 3010, 3010, 3010, 3010,
- 3010, 3010, 3010, 3010, 3010, 3010, 3010, 3010, 3010, 3010,
- 3010, 3010, 2866, 2866, 3011, 3011, 3011, 2866, 2866, 3012,
- 3012, 3012, 3012, 3012, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 3013, 2866, 3013, 3013, 2866, 3013, 3013,
- 3013, 3013, 3013, 2866, 3014, 3015, 3015, 3016, 3015, 3015,
- 3015, 3015, 3015, 3015, 3016, 1085, 1085, 1085, 1085, 1085,
- 1085, 2866, 3015, 3015, 3015, 3015, 3015, 1085, 1085, 1085,
-
- 1085, 1085, 1085, 1092, 1092, 1105, 1105, 1105, 1105, 1105,
- 1105, 1105, 1105, 1105, 3015, 3015, 3015, 3015, 3015, 3017,
- 3017, 3018, 3017, 3017, 3017, 3017, 3017, 3017, 3017, 3017,
- 3018, 1131, 1131, 1131, 1131, 1131, 1131, 2866, 3017, 3017,
- 3017, 3017, 3017, 3017, 3017, 3017, 1131, 1131, 1131, 1131,
- 1131, 1131, 1138, 1138, 1154, 1154, 1154, 1154, 1154, 1154,
- 1154, 1154, 1154, 3017, 3017, 3017, 3017, 3017, 3017, 3017,
- 3017, 1085, 1085, 1085, 1085, 1085, 1085, 1105, 1105, 1105,
- 1105, 1105, 1105, 1105, 1105, 1105, 1105, 1105, 1105, 1105,
- 1105, 1105, 1105, 3019, 3015, 3015, 3015, 3015, 3015, 3020,
-
- 3014, 3014, 3014, 2866, 2866, 2866, 3015, 3015, 3015, 3015,
- 3015, 3015, 3015, 3015, 3015, 3015, 3015, 3015, 3015, 3021,
- 3021, 1221, 1221, 1221, 1221, 1221, 1221, 1221, 1221, 1221,
- 1221, 1221, 1221, 1221, 1221, 1221, 1221, 1221, 1221, 1221,
- 3022, 3014, 3014, 3014, 3023, 3014, 3014, 3014, 3024, 3024,
- 3014, 3025, 3025, 1253, 1253, 1253, 1253, 1253, 1253, 1253,
- 1253, 1253, 1253, 1253, 1253, 1253, 1253, 1253, 1253, 1253,
- 1253, 1253, 1253, 1253, 1253, 1253, 1253, 1253, 1253, 1253,
- 1253, 3026, 3026, 3014, 1250, 3014, 1250, 1250, 1250, 3014,
- 3014, 3014, 1250, 1250, 1250, 1250, 1250, 1250, 1250, 1250,
-
- 1250, 1250, 3014, 3027, 3027, 3027, 3027, 2866, 2866, 2866,
- 2866, 3028, 3028, 3028, 3028, 3028, 3029, 3029, 3029, 3030,
- 3030, 2866, 2866, 2866, 2866, 3031, 3032, 3032, 3032, 3033,
- 3033, 3033, 3033, 3033, 3033, 3033, 3033, 3033, 3033, 3033,
- 3033, 3033, 3033, 3033, 3033, 3033, 3033, 3033, 3033, 3033,
- 3033, 3033, 3033, 3033, 3033, 3033, 3033, 3033, 3033, 3033,
- 3033, 3033, 3033, 3033, 3033, 3033, 3033, 3033, 3033, 3033,
- 3034, 3034, 3035, 3035, 3035, 2866, 2866, 2866, 2866, 3036,
- 3036, 3036, 2866, 3036, 3036, 3036, 3036, 3036, 2866, 3037,
- 3038, 3038, 3039, 3038, 3038, 3038, 3038, 3038, 3038, 3039,
-
- 1400, 1400, 1400, 1400, 1400, 1400, 2866, 3038, 3038, 3038,
- 3038, 3038, 1400, 1400, 1400, 1400, 1400, 1400, 1407, 1407,
- 1420, 1420, 1420, 1420, 1420, 1420, 1420, 1420, 1420, 3038,
- 3038, 3038, 3038, 3038, 1400, 1400, 1400, 1400, 1400, 1400,
- 1420, 1420, 1420, 1420, 1420, 1420, 1420, 1420, 1420, 1420,
- 1420, 1420, 1420, 1420, 1420, 1420, 3040, 3038, 3038, 3038,
- 3038, 3038, 3041, 3041, 3042, 3041, 3041, 3041, 3041, 3041,
- 3041, 3041, 3041, 3042, 1474, 1474, 1474, 1474, 1474, 1474,
- 2866, 3041, 3041, 3041, 3041, 3041, 3041, 3041, 3041, 1474,
- 1474, 1474, 1474, 1474, 1474, 1481, 1481, 1497, 1497, 1497,
-
- 1497, 1497, 1497, 1497, 1497, 1497, 3041, 3041, 3041, 3041,
- 3041, 3041, 3041, 3041, 1474, 1474, 1474, 1474, 1474, 1474,
- 1497, 1497, 1497, 1497, 1497, 1497, 1497, 1497, 1497, 1497,
- 1497, 1497, 1497, 1497, 1497, 1497, 3043, 3041, 3041, 3041,
- 3041, 3041, 3041, 3041, 3041, 1400, 1400, 1400, 1400, 1400,
- 1420, 1420, 1420, 1420, 1420, 1420, 1420, 1420, 1420, 1420,
- 1420, 1420, 1420, 1420, 3040, 1565, 3038, 3038, 3038, 3038,
- 3038, 3038, 3044, 3037, 3037, 3037, 2866, 2866, 2866, 3038,
- 3038, 3038, 3038, 3038, 3038, 3038, 3038, 3038, 3038, 3038,
- 3038, 3038, 2866, 3038, 3038, 3038, 3045, 3045, 1598, 1598,
-
- 1598, 1598, 1598, 1598, 1598, 1598, 1598, 1598, 1598, 1598,
- 1598, 1598, 1598, 1598, 1598, 1598, 1598, 1598, 3037, 1598,
- 1598, 3046, 3037, 3037, 3037, 3047, 3037, 3037, 3037, 3048,
- 3048, 3037, 3049, 3049, 1634, 1634, 1634, 1634, 1634, 1634,
- 1634, 1634, 1634, 1634, 1634, 1634, 1634, 1634, 1634, 1634,
- 1634, 1634, 1634, 1634, 1634, 1634, 1634, 1634, 1634, 1634,
- 1634, 3050, 3050, 3037, 1631, 1631, 1631, 3037, 3037, 3037,
- 3037, 3037, 3037, 1631, 1631, 1631, 1631, 1631, 1631, 3037,
- 3037, 3037, 3037, 3037, 3037, 2866, 3037, 3037, 3037, 3051,
- 3051, 3051, 2866, 2866, 2866, 2866, 3052, 3052, 3052, 3052,
-
- 3052, 3053, 3053, 3053, 3054, 3054, 2866, 2866, 2866, 2866,
- 3055, 3056, 3056, 3056, 3057, 3057, 3057, 3057, 3057, 3057,
- 3057, 3057, 3057, 3057, 3057, 3057, 3057, 3057, 3057, 3057,
- 3057, 3057, 3057, 3057, 3057, 3057, 3057, 3057, 3057, 3057,
- 3057, 3057, 3057, 3057, 3057, 3057, 3057, 3057, 3057, 3057,
- 3057, 3057, 3057, 3057, 3057, 3058, 3058, 3059, 3059, 2866,
- 2866, 2866, 3060, 3060, 3060, 2866, 3060, 3060, 3060, 3060,
- 3060, 2866, 2866, 2866, 2866, 3037, 3037, 3037, 3037, 1598,
- 3037, 3037, 3037, 3037, 3037, 3037, 1598, 1598, 1598, 1598,
- 1598, 1598, 1598, 1598, 1634, 3037, 3037, 3037, 3037, 3037,
-
- 1598, 1598, 1598, 1598, 1598, 1598, 1795, 1634, 1634, 1634,
- 1634, 1634, 1634, 1634, 1634, 1634, 1634, 3037, 3037, 3037,
- 3037, 3037, 1598, 1598, 1598, 1598, 1598, 1598, 1634, 1634,
- 1634, 1634, 1634, 1634, 1634, 1634, 1634, 1634, 1634, 1634,
- 1634, 1634, 1634, 1634, 1663, 3037, 3037, 3037, 3037, 3037,
- 1598, 1598, 1598, 1598, 1598, 1634, 1634, 1634, 1634, 1634,
- 1634, 1634, 1634, 1634, 1634, 1634, 1634, 1634, 1634, 1663,
- 1663, 1663, 3037, 3037, 3037, 3037, 3037, 3037, 3037, 3038,
- 3038, 3038, 1580, 3061, 3038, 3038, 3038, 3038, 3038, 3038,
- 3038, 3038, 3061, 1893, 1893, 1893, 1893, 1893, 1893, 1893,
-
- 2866, 3038, 3038, 3038, 3038, 3038, 3038, 3038, 3038, 1893,
- 1893, 1893, 1893, 1893, 1893, 1901, 1901, 1917, 1917, 1917,
- 1917, 1917, 1917, 1917, 1917, 1917, 3038, 3038, 3038, 3038,
- 3038, 3038, 3038, 3038, 1893, 1893, 1893, 1893, 1893, 1893,
- 1917, 1917, 1917, 1917, 1917, 1917, 1917, 1917, 1917, 1917,
- 1917, 1917, 1917, 1917, 1917, 1917, 3062, 3038, 3038, 3038,
- 3038, 3038, 3038, 3038, 3038, 1893, 1893, 1893, 1893, 1893,
- 1917, 1917, 1917, 1917, 1917, 1917, 1917, 1917, 1917, 1917,
- 1917, 1917, 1917, 1917, 3062, 1985, 1985, 3038, 3038, 3038,
- 3038, 3038, 3038, 3038, 3038, 3038, 3038, 3038, 1598, 1598,
-
- 3037, 1598, 1598, 1634, 1634, 1634, 1634, 1634, 1634, 1634,
- 1634, 1634, 1634, 1634, 1634, 1634, 1663, 3037, 3037, 3037,
- 3037, 3037, 3037, 3037, 3037, 3037, 3037, 3037, 3063, 3063,
- 2866, 3063, 2866, 2866, 2866, 2866, 2866, 3037, 3037, 3037,
- 3037, 3037, 3037, 3037, 3037, 3037, 3037, 3037, 3037, 3037,
- 3037, 3037, 3037, 3037, 3037, 3037, 3064, 3064, 3064, 3064,
- 3064, 3064, 3064, 3064, 3064, 3064, 3064, 3064, 3064, 3064,
- 3064, 3064, 3064, 3064, 3064, 3064, 3064, 3064, 2866, 3064,
- 3064, 3064, 3064, 2866, 3064, 3064, 3065, 3065, 2866, 3065,
- 2866, 2866, 2866, 3066, 3066, 3066, 2866, 2866, 2866, 3060,
-
- 3060, 2866, 3067, 3067, 3067, 3067, 3067, 3067, 3067, 3067,
- 3067, 3067, 3067, 3067, 3067, 3067, 3067, 3067, 3067, 3067,
- 3067, 3067, 3067, 3067, 3067, 3067, 3067, 3068, 3068, 3068,
- 3068, 2866, 2866, 3060, 3060, 3060, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 3060, 3060, 3060, 3060, 3060, 3060,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 3069, 2866, 2866, 2866, 3070, 3070, 3070, 3070, 3070, 3071,
- 3071, 3071, 3072, 3072, 2866, 2866, 2866, 2866, 3073, 3073,
- 3073, 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3074,
- 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3074,
-
- 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3074,
- 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3075, 3075,
- 3076, 3076, 2866, 2866, 3060, 3060, 2866, 3060, 2866, 3060,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 3064, 2866, 2866, 2866, 2866, 2866, 2866, 3064, 3067, 2866,
- 2866, 2866, 2866, 2866, 3064, 2249, 3067, 3067, 3067, 3067,
- 3067, 3067, 3067, 3067, 3067, 2866, 2866, 2866, 2866, 2866,
- 3064, 3067, 3067, 3067, 3067, 3067, 3067, 3067, 3067, 3067,
- 3067, 3067, 3067, 3067, 3067, 3067, 3068, 2866, 2866, 2866,
- 2866, 3064, 3067, 3067, 3067, 3067, 3067, 3067, 3067, 3067,
-
- 3067, 3067, 3067, 3067, 3067, 3067, 2866, 2866, 2866, 2866,
- 2866, 2866, 3064, 2866, 2866, 2866, 3037, 3037, 2866, 3063,
- 3063, 3063, 3063, 2866, 2866, 2866, 2240, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2241, 3064, 3064,
- 3064, 3064, 3064, 2241, 3064, 3064, 3064, 3064, 3064, 3064,
- 3064, 3064, 3064, 3064, 3064, 3064, 3064, 3064, 3064, 2866,
- 3064, 3064, 3064, 2866, 3064, 3064, 3064, 3064, 2866, 3065,
- 3065, 3065, 3065, 2866, 3066, 3066, 3066, 3066, 2866, 2866,
- 3067, 3067, 3067, 3067, 3067, 3067, 3067, 3067, 3067, 3067,
-
- 3067, 3067, 3067, 3067, 3067, 3067, 3067, 3067, 3067, 3067,
- 3067, 3067, 3068, 3068, 3068, 3068, 2866, 2866, 2866, 2866,
- 2866, 3068, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 3070, 3070, 3070, 3070, 3071, 3071, 3072, 2866, 2866,
- 2866, 3073, 3073, 3073, 3074, 3074, 3074, 3074, 3074, 3074,
- 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3074,
- 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3074,
- 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3075, 3075, 2866,
- 2866, 3060, 2866, 2866, 3060, 3060, 2866, 2866, 2866, 2866,
- 2240, 2241, 2866, 2866, 2866, 2866, 2866, 2866, 3064, 2249,
-
- 2866, 2866, 2866, 2866, 2866, 3064, 2249, 3067, 3067, 3067,
- 3067, 3067, 3067, 3067, 3067, 3067, 2866, 2866, 2866, 2866,
- 2866, 3064, 3067, 3067, 3067, 3067, 3067, 3067, 3067, 3067,
- 3067, 3067, 3067, 3067, 3067, 3067, 3067, 2866, 2866, 2866,
- 2866, 3064, 3067, 3067, 3067, 3067, 3067, 3067, 3067, 3067,
- 3067, 3067, 3067, 3067, 3067, 3067, 2866, 2866, 2866, 2866,
- 2866, 2866, 3064, 3067, 3067, 3067, 3067, 3067, 3067, 3067,
- 3067, 3067, 3067, 3067, 3067, 3067, 2866, 2866, 2866, 2866,
- 2866, 3064, 2866, 2866, 2866, 2866, 3063, 3063, 3063, 2866,
- 2866, 2327, 2866, 2866, 2866, 2866, 2866, 3065, 3065, 3065,
-
- 3066, 3066, 3066, 3067, 3067, 3067, 3067, 3067, 3067, 3067,
- 2866, 3070, 3071, 2866, 2866, 2866, 3073, 3074, 3074, 3074,
- 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3074,
- 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3074,
- 3074, 3074, 3074, 3074, 2866, 2866, 2866, 3060, 3060, 2866,
- 2866, 2866, 2866, 3067, 3063, 3063, 3063, 2866, 2866, 3065,
- 3065, 3065, 3066, 3066, 3066, 3067, 3067, 2866, 3067, 3067,
- 2866, 2866, 2866, 2866, 3074, 3074, 3074, 3074, 3074, 3074,
- 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3074,
- 3074, 3074, 3074, 3074, 3074, 3074, 2866, 2866, 2866, 3060,
-
- 2866, 2866, 2866, 2866, 3063, 3063, 2866, 2866, 3065, 3065,
- 3066, 3066, 3067, 3067, 3067, 3067, 2866, 2866, 2866, 3074,
- 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3074,
- 3074, 3074, 3074, 3074, 3074, 3074, 3074, 2866, 2866, 3060,
- 2866, 2866, 2866, 3063, 3063, 2866, 2866, 3065, 3065, 3066,
- 3066, 3067, 3067, 3067, 3067, 2866, 2866, 2866, 3074, 3074,
- 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3074,
- 3074, 2866, 2866, 3060, 2866, 2866, 2866, 3063, 3063, 2866,
- 3065, 3065, 3066, 3066, 3067, 3067, 3067, 3067, 2866, 2866,
- 2866, 3074, 3074, 3074, 3074, 3074, 3074, 3074, 3074, 2866,
-
- 2866, 3060, 2866, 2866, 2866, 3063, 3063, 2866, 3065, 3065,
- 3066, 3066, 3067, 3067, 2866, 2866, 2866, 3074, 3074, 3074,
- 3074, 3074, 2866, 2866, 3063, 2866, 3065, 3066, 3067, 3067,
- 2866, 2866, 3074, 3074, 2866, 3077, 3078, 3079, 3080, 3067,
- 3067, 2866, 3074, 3074, 3077, 3078, 3077, 3079, 3077, 3080,
- 3067, 3067, 2866, 3074, 3077, 3077, 3067, 2866, 3077, 3077,
- 3067, 2866, 3067, 2866, 3067, 0, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
-
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
-
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866
- } ;
-
-static yyconst flex_uint16_t yy_nxt[17411] =
- { 0,
- 42, 42, 43, 44, 45, 42, 42, 46, 47, 48,
- 49, 50, 51, 52, 53, 42, 54, 54, 54, 54,
- 55, 42, 42, 42, 42, 56, 56, 57, 58, 56,
- 56, 56, 56, 59, 56, 56, 56, 56, 56, 56,
- 60, 56, 61, 62, 56, 56, 56, 63, 56, 56,
- 56, 56, 56, 56, 57, 58, 56, 56, 56, 56,
- 59, 56, 56, 56, 56, 56, 56, 60, 56, 61,
- 62, 56, 56, 56, 63, 56, 56, 56, 56, 64,
- 64, 43, 65, 66, 67, 68, 69, 70, 71, 72,
- 73, 74, 75, 76, 64, 77, 77, 77, 77, 78,
-
- 64, 64, 79, 64, 80, 80, 81, 82, 83, 80,
- 80, 80, 84, 80, 80, 80, 80, 80, 80, 85,
- 80, 86, 87, 88, 80, 80, 89, 80, 80, 80,
- 80, 80, 80, 81, 82, 83, 80, 80, 80, 84,
- 80, 80, 80, 80, 80, 80, 85, 80, 86, 87,
- 88, 80, 80, 89, 80, 80, 80, 80, 90, 90,
- 91, 92, 93, 90, 90, 94, 90, 90, 95, 96,
- 97, 98, 99, 90, 100, 100, 100, 100, 92, 90,
- 90, 90, 90, 2839, 142, 102, 143, 103, 166, 206,
- 167, 207, 105, 255, 106, 106, 105, 105, 106, 106,
-
- 2866, 104, 2866, 91, 92, 288, 309, 313, 289, 309,
- 356, 95, 102, 92, 103, 290, 2826, 2866, 307, 2866,
- 307, 92, 308, 308, 308, 308, 2836, 392, 104, 90,
- 90, 91, 105, 93, 106, 90, 94, 90, 90, 95,
- 96, 97, 98, 99, 90, 100, 100, 100, 100, 92,
- 90, 90, 90, 90, 392, 101, 102, 101, 103, 2866,
- 101, 2866, 101, 2866, 101, 410, 101, 235, 405, 398,
- 1340, 101, 104, 398, 1341, 384, 101, 428, 421, 371,
- 101, 305, 101, 102, 101, 103, 314, 101, 371, 101,
- 2866, 101, 2866, 101, 235, 92, 371, 90, 101, 104,
-
- 91, 92, 107, 101, 92, 108, 90, 101, 95, 109,
- 110, 109, 111, 314, 112, 112, 112, 112, 92, 101,
- 319, 101, 309, 310, 113, 393, 394, 114, 101, 395,
- 101, 235, 307, 396, 307, 101, 308, 308, 308, 308,
- 115, 116, 397, 117, 101, 118, 101, 319, 101, 445,
- 438, 113, 393, 394, 114, 101, 395, 101, 235, 307,
- 396, 307, 101, 312, 312, 312, 312, 115, 116, 397,
- 117, 101, 118, 91, 105, 107, 106, 92, 108, 90,
- 2826, 95, 109, 110, 109, 111, 303, 112, 112, 112,
- 112, 92, 2795, 2866, 2866, 2866, 2866, 113, 456, 449,
-
- 114, 101, 307, 101, 307, 469, 308, 308, 308, 308,
- 320, 315, 470, 115, 116, 316, 117, 101, 118, 2866,
- 421, 2866, 384, 2866, 113, 2866, 2780, 114, 101, 307,
- 101, 307, 469, 312, 312, 312, 312, 320, 315, 470,
- 115, 116, 316, 117, 101, 118, 119, 119, 120, 121,
- 122, 119, 119, 123, 119, 119, 124, 125, 126, 127,
- 128, 119, 129, 129, 129, 129, 130, 119, 131, 119,
- 119, 132, 133, 134, 134, 134, 134, 134, 134, 135,
- 134, 134, 136, 134, 134, 137, 138, 134, 139, 140,
- 141, 134, 134, 134, 134, 134, 134, 134, 132, 133,
-
- 134, 134, 134, 134, 134, 134, 135, 134, 134, 136,
- 134, 134, 137, 138, 134, 139, 140, 141, 134, 134,
- 134, 134, 134, 134, 134, 144, 144, 145, 146, 147,
- 144, 144, 148, 149, 150, 151, 152, 153, 154, 155,
- 144, 156, 156, 156, 156, 157, 144, 158, 144, 144,
- 159, 160, 159, 159, 159, 159, 159, 159, 161, 159,
- 159, 162, 159, 159, 163, 159, 159, 164, 159, 165,
- 159, 159, 159, 159, 159, 159, 159, 159, 160, 159,
- 159, 159, 159, 159, 159, 161, 159, 159, 162, 159,
- 159, 163, 159, 159, 164, 159, 165, 159, 159, 159,
-
- 159, 159, 159, 159, 168, 168, 169, 170, 171, 168,
- 168, 172, 168, 168, 173, 174, 175, 176, 177, 168,
- 178, 178, 178, 178, 179, 168, 180, 168, 168, 168,
- 168, 169, 182, 171, 183, 168, 172, 168, 168, 173,
- 174, 175, 176, 177, 168, 178, 178, 178, 178, 179,
- 168, 180, 168, 168, 184, 184, 185, 186, 187, 184,
- 184, 188, 189, 190, 191, 192, 193, 194, 195, 184,
- 196, 196, 196, 196, 197, 184, 198, 184, 184, 199,
- 200, 201, 201, 201, 201, 201, 201, 202, 201, 201,
- 203, 201, 201, 204, 201, 201, 201, 201, 205, 201,
-
- 201, 201, 201, 201, 201, 201, 199, 200, 201, 201,
- 201, 201, 201, 201, 202, 201, 201, 203, 201, 201,
- 204, 201, 201, 201, 201, 205, 201, 201, 201, 201,
- 201, 201, 201, 208, 209, 2866, 2866, 2866, 410, 2768,
- 2866, 95, 410, 210, 438, 211, 384, 2866, 2866, 2866,
- 2866, 210, 2668, 91, 105, 288, 106, 305, 289, 212,
- 411, 95, 381, 92, 213, 290, 413, 449, 322, 384,
- 467, 92, 384, 214, 215, 90, 90, 295, 2866, 297,
- 2866, 90, 298, 90, 90, 95, 212, 411, 303, 381,
- 2866, 213, 2866, 413, 317, 322, 2866, 90, 410, 90,
-
- 214, 215, 208, 216, 318, 106, 2866, 321, 2866, 2683,
- 95, 351, 210, 351, 211, 352, 352, 352, 352, 2677,
- 210, 317, 2866, 2866, 410, 2866, 417, 305, 212, 471,
- 2866, 318, 2866, 213, 321, 309, 353, 371, 383, 384,
- 416, 435, 214, 215, 2380, 351, 371, 351, 410, 352,
- 352, 352, 352, 417, 371, 212, 471, 351, 2866, 351,
- 213, 352, 352, 352, 352, 383, 382, 416, 435, 214,
- 215, 208, 209, 2866, 2866, 410, 410, 468, 467, 95,
- 323, 210, 323, 217, 354, 354, 354, 354, 2866, 210,
- 410, 418, 472, 382, 323, 2866, 323, 212, 354, 354,
-
- 354, 354, 213, 547, 548, 2866, 419, 2866, 358, 564,
- 323, 214, 323, 2500, 354, 354, 354, 354, 418, 472,
- 2866, 359, 2866, 465, 212, 412, 303, 360, 2866, 213,
- 2866, 361, 2866, 419, 2866, 358, 564, 2866, 214, 208,
- 216, 2866, 106, 2866, 371, 434, 2320, 95, 359, 210,
- 465, 217, 412, 371, 360, 533, 2838, 210, 361, 475,
- 305, 371, 376, 493, 376, 212, 377, 377, 377, 377,
- 213, 376, 434, 376, 2866, 380, 380, 380, 380, 214,
- 657, 1441, 533, 323, 2076, 323, 475, 354, 354, 354,
- 354, 2866, 212, 2866, 376, 2238, 376, 213, 377, 377,
-
- 377, 377, 2866, 2866, 2866, 362, 214, 90, 90, 91,
- 92, 93, 90, 90, 94, 90, 90, 95, 96, 97,
- 218, 99, 90, 219, 219, 219, 219, 92, 90, 90,
- 90, 90, 362, 371, 2637, 384, 565, 221, 566, 376,
- 222, 376, 371, 380, 380, 380, 380, 657, 1829, 323,
- 371, 323, 493, 354, 354, 354, 354, 410, 2866, 2866,
- 2866, 2866, 410, 565, 221, 566, 366, 222, 90, 90,
- 91, 105, 93, 106, 90, 94, 90, 90, 95, 96,
- 97, 218, 99, 90, 219, 219, 219, 219, 92, 90,
- 90, 90, 90, 366, 371, 432, 461, 567, 221, 579,
-
- 580, 222, 410, 378, 371, 376, 2234, 377, 377, 377,
- 377, 371, 389, 371, 389, 2234, 390, 390, 390, 390,
- 2461, 371, 432, 461, 567, 221, 579, 580, 222, 90,
- 90, 91, 92, 223, 90, 90, 224, 90, 90, 95,
- 225, 226, 227, 228, 90, 229, 229, 229, 229, 92,
- 90, 90, 90, 90, 230, 231, 232, 231, 231, 231,
- 231, 231, 231, 231, 231, 231, 231, 231, 233, 234,
- 231, 231, 231, 231, 231, 231, 231, 231, 231, 231,
- 231, 230, 231, 232, 231, 231, 231, 231, 231, 231,
- 231, 231, 231, 231, 231, 233, 234, 231, 231, 231,
-
- 231, 231, 231, 231, 231, 231, 231, 231, 90, 90,
- 91, 236, 237, 90, 90, 238, 239, 90, 95, 240,
- 92, 241, 242, 90, 243, 243, 243, 243, 92, 90,
- 90, 90, 90, 244, 245, 246, 247, 248, 249, 248,
- 248, 248, 248, 248, 248, 250, 251, 252, 248, 248,
- 253, 254, 248, 248, 248, 248, 248, 248, 248, 248,
- 244, 245, 246, 247, 248, 249, 248, 248, 248, 248,
- 248, 248, 250, 251, 252, 248, 248, 253, 254, 248,
- 248, 248, 248, 248, 248, 248, 248, 90, 90, 91,
- 92, 256, 90, 90, 257, 258, 90, 95, 259, 92,
-
- 260, 261, 90, 262, 262, 262, 262, 92, 90, 90,
- 90, 90, 263, 263, 264, 263, 263, 263, 263, 263,
- 263, 263, 263, 265, 263, 263, 266, 263, 263, 263,
- 263, 263, 263, 263, 267, 263, 263, 263, 263, 263,
- 263, 264, 263, 263, 263, 263, 263, 263, 263, 263,
- 265, 263, 263, 266, 263, 263, 263, 263, 263, 263,
- 263, 267, 263, 263, 263, 263, 90, 90, 91, 92,
- 268, 90, 90, 269, 90, 90, 95, 270, 271, 272,
- 273, 90, 274, 274, 274, 274, 92, 275, 276, 277,
- 90, 278, 278, 278, 279, 280, 278, 281, 278, 282,
-
- 278, 278, 283, 278, 284, 285, 278, 278, 278, 286,
- 287, 278, 278, 278, 278, 278, 278, 278, 278, 278,
- 278, 279, 280, 278, 281, 278, 282, 278, 278, 283,
- 278, 284, 285, 278, 278, 278, 286, 287, 278, 278,
- 278, 278, 278, 278, 278, 91, 92, 410, 2866, 2866,
- 410, 2866, 2234, 95, 323, 92, 323, 290, 354, 354,
- 354, 354, 1774, 92, 657, 1941, 323, 2234, 323, 1775,
- 354, 354, 354, 354, 2866, 433, 2866, 2234, 420, 291,
- 292, 293, 363, 323, 365, 323, 294, 354, 354, 354,
- 354, 436, 364, 323, 2866, 323, 2866, 354, 354, 354,
-
- 354, 2078, 433, 2234, 369, 420, 291, 292, 293, 363,
- 367, 365, 2238, 294, 91, 105, 368, 106, 436, 364,
- 462, 2385, 95, 323, 92, 323, 290, 354, 354, 354,
- 354, 369, 92, 2866, 389, 2866, 389, 367, 390, 390,
- 390, 390, 2238, 368, 370, 371, 490, 462, 291, 292,
- 293, 583, 2238, 2866, 391, 294, 389, 1777, 390, 390,
- 390, 390, 371, 389, 1778, 389, 2238, 390, 390, 390,
- 390, 370, 2238, 490, 1881, 291, 292, 293, 583, 512,
- 2014, 1882, 294, 90, 90, 295, 299, 297, 300, 90,
- 298, 90, 90, 95, 403, 2010, 403, 1777, 404, 404,
-
- 404, 404, 405, 398, 1778, 90, 512, 90, 325, 2317,
- 326, 327, 403, 2866, 403, 2866, 404, 404, 404, 404,
- 403, 2238, 407, 2095, 408, 408, 408, 408, 328, 2111,
- 2096, 403, 329, 403, 330, 404, 404, 404, 404, 2866,
- 2238, 2866, 2238, 437, 2866, 331, 2866, 2866, 332, 333,
- 403, 2866, 407, 410, 408, 408, 408, 408, 2866, 329,
- 2866, 330, 2866, 460, 414, 2866, 537, 2866, 415, 2866,
- 437, 2238, 331, 514, 466, 332, 333, 336, 337, 584,
- 426, 327, 426, 2238, 427, 427, 427, 427, 2866, 476,
- 460, 414, 2238, 537, 508, 415, 486, 2238, 328, 2866,
-
- 514, 466, 338, 2866, 330, 2866, 584, 2866, 339, 2866,
- 428, 421, 2238, 513, 518, 331, 476, 340, 332, 333,
- 426, 508, 426, 486, 427, 427, 427, 427, 2238, 338,
- 2234, 330, 426, 552, 426, 339, 430, 430, 430, 430,
- 513, 518, 331, 2234, 340, 332, 333, 323, 341, 2866,
- 341, 323, 323, 323, 323, 323, 323, 323, 323, 323,
- 552, 323, 323, 2866, 2189, 585, 2124, 323, 323, 323,
- 323, 323, 586, 587, 515, 343, 344, 426, 617, 426,
- 345, 427, 427, 427, 427, 2866, 618, 2866, 534, 346,
- 347, 426, 585, 426, 2122, 430, 430, 430, 430, 586,
-
- 587, 515, 343, 344, 443, 617, 443, 345, 444, 444,
- 444, 444, 487, 618, 2118, 534, 346, 347, 500, 2115,
- 501, 501, 501, 501, 2111, 323, 323, 323, 2078, 323,
- 323, 323, 323, 323, 323, 323, 323, 323, 351, 487,
- 351, 323, 355, 355, 355, 355, 323, 323, 323, 323,
- 323, 323, 323, 2115, 323, 323, 323, 323, 323, 323,
- 323, 323, 323, 351, 2238, 351, 323, 355, 355, 355,
- 355, 323, 323, 323, 323, 323, 445, 438, 443, 2076,
- 443, 2866, 447, 447, 447, 447, 443, 2014, 443, 2866,
- 444, 444, 444, 444, 443, 2010, 443, 1725, 444, 444,
-
- 444, 444, 443, 2234, 443, 1659, 447, 447, 447, 447,
- 454, 1655, 454, 1632, 455, 455, 455, 455, 456, 449,
- 454, 1629, 454, 1623, 458, 458, 458, 458, 454, 2866,
- 454, 2866, 455, 455, 455, 455, 454, 1618, 454, 1615,
- 455, 455, 455, 455, 454, 2866, 454, 2866, 458, 458,
- 458, 458, 500, 1574, 503, 503, 503, 503, 463, 376,
- 553, 376, 464, 474, 474, 474, 474, 376, 619, 376,
- 1481, 474, 474, 474, 474, 481, 2866, 481, 2866, 482,
- 482, 482, 482, 371, 2866, 463, 2866, 553, 1407, 464,
- 657, 1829, 483, 550, 481, 619, 482, 482, 482, 482,
-
- 371, 481, 488, 481, 410, 485, 485, 485, 485, 481,
- 2866, 481, 2866, 482, 482, 482, 482, 481, 489, 481,
- 550, 485, 485, 485, 485, 410, 620, 1251, 491, 488,
- 500, 2866, 504, 504, 504, 504, 492, 500, 2866, 503,
- 503, 503, 503, 2866, 2866, 489, 528, 1248, 529, 529,
- 529, 529, 505, 620, 509, 491, 519, 520, 516, 621,
- 521, 510, 577, 492, 578, 1242, 506, 507, 511, 528,
- 633, 531, 531, 531, 531, 1239, 517, 2500, 2234, 505,
- 1201, 509, 634, 519, 520, 516, 621, 521, 510, 577,
- 1138, 578, 2866, 506, 507, 511, 528, 633, 532, 532,
-
- 532, 532, 528, 517, 531, 531, 531, 531, 535, 634,
- 1092, 2780, 371, 542, 641, 542, 536, 543, 543, 543,
- 543, 544, 2866, 542, 2866, 543, 543, 543, 543, 371,
- 2808, 2866, 542, 2866, 542, 535, 546, 546, 546, 546,
- 542, 641, 542, 536, 543, 543, 543, 543, 542, 644,
- 542, 551, 546, 546, 546, 546, 2866, 2866, 2866, 2866,
- 2866, 556, 2866, 2866, 2018, 2866, 574, 574, 574, 574,
- 410, 1778, 645, 554, 2118, 2019, 644, 557, 551, 575,
- 575, 575, 575, 558, 555, 2238, 916, 307, 556, 307,
- 559, 308, 308, 308, 308, 624, 624, 624, 624, 645,
-
- 554, 307, 617, 307, 557, 308, 308, 308, 308, 646,
- 558, 555, 581, 581, 307, 632, 307, 559, 312, 312,
- 312, 312, 581, 336, 336, 913, 642, 907, 643, 617,
- 581, 649, 649, 649, 649, 686, 646, 687, 688, 582,
- 873, 689, 632, 841, 692, 651, 693, 651, 625, 652,
- 652, 652, 652, 642, 626, 643, 684, 684, 684, 684,
- 817, 694, 686, 627, 687, 688, 582, 590, 689, 2122,
- 591, 692, 651, 693, 651, 625, 652, 652, 652, 652,
- 2238, 626, 685, 685, 685, 685, 695, 592, 694, 572,
- 627, 593, 588, 594, 588, 696, 654, 654, 654, 654,
-
- 690, 690, 690, 690, 595, 570, 410, 596, 597, 691,
- 691, 691, 691, 695, 710, 2866, 669, 2866, 593, 588,
- 594, 588, 696, 654, 654, 654, 654, 697, 697, 697,
- 697, 595, 705, 672, 596, 597, 336, 599, 2234, 711,
- 600, 710, 588, 669, 588, 410, 654, 654, 654, 654,
- 698, 698, 698, 698, 410, 712, 563, 601, 561, 705,
- 672, 602, 410, 603, 704, 703, 711, 604, 670, 410,
- 671, 541, 717, 707, 605, 539, 606, 607, 608, 588,
- 2099, 588, 712, 654, 654, 654, 654, 1775, 602, 527,
- 603, 704, 703, 410, 604, 670, 674, 671, 701, 717,
-
- 707, 605, 410, 606, 607, 608, 589, 609, 525, 609,
- 589, 589, 589, 589, 589, 589, 589, 589, 589, 706,
- 589, 589, 523, 674, 718, 701, 589, 589, 589, 589,
- 589, 702, 719, 720, 611, 612, 588, 721, 588, 613,
- 654, 654, 654, 654, 499, 2866, 706, 2866, 614, 615,
- 588, 718, 588, 722, 654, 654, 654, 654, 702, 719,
- 720, 611, 612, 497, 721, 495, 613, 588, 2234, 588,
- 673, 654, 654, 654, 654, 614, 615, 678, 581, 675,
- 722, 724, 677, 734, 589, 336, 628, 725, 675, 591,
- 588, 2124, 654, 654, 654, 654, 675, 673, 708, 708,
-
- 708, 708, 2238, 726, 678, 676, 592, 480, 724, 677,
- 629, 729, 594, 588, 725, 588, 630, 654, 654, 654,
- 654, 2102, 730, 595, 731, 631, 596, 597, 1775, 588,
- 726, 588, 676, 654, 654, 654, 654, 629, 729, 594,
- 478, 679, 467, 630, 680, 709, 709, 709, 709, 730,
- 595, 731, 631, 596, 597, 588, 635, 453, 635, 588,
- 588, 588, 588, 588, 588, 588, 588, 588, 679, 588,
- 588, 680, 451, 732, 449, 588, 588, 588, 588, 588,
- 713, 713, 713, 713, 637, 376, 733, 376, 638, 377,
- 377, 377, 377, 714, 714, 714, 714, 639, 640, 588,
-
- 732, 588, 442, 654, 654, 654, 654, 715, 715, 715,
- 715, 637, 376, 733, 376, 638, 377, 377, 377, 377,
- 681, 1569, 1570, 1571, 639, 640, 716, 716, 716, 716,
- 2559, 2560, 2561, 588, 588, 588, 737, 588, 588, 588,
- 588, 588, 588, 588, 588, 588, 588, 681, 588, 588,
- 727, 727, 727, 727, 588, 588, 588, 588, 588, 728,
- 728, 728, 728, 737, 440, 2577, 371, 588, 438, 588,
- 738, 654, 654, 654, 654, 378, 2420, 376, 739, 377,
- 377, 377, 377, 371, 376, 425, 376, 423, 380, 380,
- 380, 380, 735, 735, 735, 735, 389, 738, 389, 682,
-
- 390, 390, 390, 390, 389, 739, 389, 421, 390, 390,
- 390, 390, 588, 588, 588, 410, 588, 588, 588, 588,
- 588, 588, 588, 588, 588, 588, 682, 588, 588, 736,
- 736, 736, 736, 588, 588, 588, 588, 588, 588, 588,
- 2579, 588, 588, 588, 588, 588, 588, 588, 588, 588,
- 651, 2424, 651, 588, 655, 655, 655, 655, 588, 588,
- 588, 588, 588, 588, 588, 657, 658, 588, 588, 588,
- 588, 588, 588, 588, 588, 588, 659, 588, 588, 659,
- 659, 659, 659, 588, 588, 588, 588, 588, 659, 659,
- 660, 661, 662, 659, 659, 659, 663, 659, 659, 664,
-
- 659, 659, 659, 665, 659, 666, 667, 668, 659, 659,
- 659, 659, 659, 659, 659, 659, 659, 660, 661, 662,
- 659, 659, 659, 663, 659, 659, 664, 659, 659, 659,
- 665, 659, 666, 667, 668, 659, 659, 659, 659, 659,
- 659, 588, 588, 371, 588, 740, 654, 654, 654, 654,
- 410, 2580, 391, 741, 389, 742, 390, 390, 390, 390,
- 371, 403, 2426, 403, 410, 404, 404, 404, 404, 743,
- 744, 403, 740, 403, 683, 404, 404, 404, 404, 403,
- 741, 403, 742, 700, 700, 700, 700, 403, 745, 407,
- 746, 408, 408, 408, 408, 410, 743, 744, 426, 402,
-
- 426, 683, 427, 427, 427, 427, 426, 400, 426, 398,
- 427, 427, 427, 427, 426, 745, 426, 746, 430, 430,
- 430, 430, 443, 388, 443, 2866, 444, 444, 444, 444,
- 443, 386, 443, 2866, 444, 444, 444, 444, 443, 375,
- 443, 373, 447, 447, 447, 447, 454, 2866, 454, 656,
- 455, 455, 455, 455, 454, 653, 454, 648, 455, 455,
- 455, 455, 454, 2866, 454, 2866, 458, 458, 458, 458,
- 581, 581, 376, 623, 376, 2367, 474, 474, 474, 474,
- 581, 504, 504, 504, 504, 481, 2234, 481, 581, 482,
- 482, 482, 482, 371, 481, 747, 481, 723, 482, 482,
-
- 482, 482, 483, 756, 481, 1774, 482, 482, 482, 482,
- 371, 481, 1775, 481, 616, 485, 485, 485, 485, 757,
- 758, 759, 747, 500, 723, 504, 504, 504, 504, 500,
- 756, 501, 501, 501, 501, 500, 760, 503, 503, 503,
- 503, 748, 761, 2837, 303, 313, 757, 758, 759, 762,
- 762, 762, 762, 749, 750, 751, 752, 310, 753, 763,
- 763, 763, 763, 760, 764, 765, 766, 754, 767, 761,
- 528, 755, 532, 532, 532, 532, 532, 532, 532, 532,
- 749, 750, 751, 752, 528, 753, 529, 529, 529, 529,
- 305, 764, 765, 766, 754, 767, 303, 528, 755, 531,
-
- 531, 531, 531, 768, 768, 768, 768, 769, 769, 769,
- 769, 542, 770, 542, 771, 543, 543, 543, 543, 542,
- 371, 542, 772, 543, 543, 543, 543, 773, 774, 544,
- 775, 542, 776, 543, 543, 543, 543, 371, 542, 770,
- 542, 771, 546, 546, 546, 546, 779, 780, 784, 772,
- 777, 777, 777, 777, 773, 774, 789, 775, 790, 776,
- 778, 778, 778, 778, 781, 782, 785, 785, 785, 785,
- 301, 783, 791, 779, 780, 784, 786, 786, 786, 786,
- 787, 302, 792, 789, 794, 790, 795, 796, 788, 787,
- 797, 781, 782, 787, 787, 787, 787, 788, 783, 791,
-
- 798, 788, 788, 788, 788, 581, 581, 799, 818, 792,
- 819, 794, 820, 795, 796, 581, 821, 797, 822, 844,
- 842, 845, 846, 581, 847, 848, 849, 798, 867, 868,
- 869, 793, 573, 843, 799, 818, 801, 819, 801, 820,
- 870, 572, 871, 821, 570, 822, 844, 842, 845, 846,
- 563, 847, 848, 849, 876, 867, 868, 869, 793, 802,
- 843, 877, 803, 878, 811, 884, 561, 870, 811, 871,
- 874, 874, 874, 874, 818, 2021, 885, 811, 811, 804,
- 549, 876, 1778, 805, 886, 806, 2022, 883, 877, 887,
- 878, 811, 884, 875, 872, 811, 807, 888, 897, 808,
-
- 809, 818, 875, 885, 811, 811, 875, 875, 875, 875,
- 805, 886, 806, 801, 883, 801, 887, 895, 541, 896,
- 898, 539, 2866, 807, 888, 897, 808, 809, 801, 810,
- 527, 810, 801, 801, 801, 801, 801, 801, 801, 801,
- 801, 811, 801, 801, 895, 850, 896, 898, 801, 801,
- 801, 801, 801, 899, 811, 811, 812, 813, 801, 525,
- 801, 814, 900, 2581, 903, 901, 904, 905, 811, 934,
- 815, 816, 850, 523, 2428, 902, 908, 908, 908, 908,
- 899, 811, 811, 812, 813, 2866, 854, 499, 814, 900,
- 811, 903, 901, 904, 905, 928, 934, 815, 816, 811,
-
- 811, 801, 902, 801, 2577, 909, 801, 336, 824, 929,
- 932, 825, 933, 854, 909, 2420, 497, 811, 909, 909,
- 909, 909, 928, 937, 938, 941, 811, 811, 826, 855,
- 963, 930, 827, 811, 828, 931, 929, 932, 829, 933,
- 935, 964, 811, 811, 936, 830, 965, 831, 832, 833,
- 937, 938, 941, 2579, 495, 480, 855, 963, 930, 827,
- 811, 828, 931, 966, 2424, 829, 969, 935, 964, 811,
- 811, 936, 830, 965, 831, 832, 833, 823, 834, 478,
- 834, 823, 823, 823, 823, 823, 823, 823, 823, 823,
- 966, 823, 823, 969, 410, 970, 467, 823, 823, 823,
-
- 823, 823, 971, 972, 973, 836, 837, 911, 939, 911,
- 838, 912, 912, 912, 912, 459, 306, 985, 940, 839,
- 840, 911, 970, 911, 977, 912, 912, 912, 912, 971,
- 972, 973, 836, 837, 410, 939, 800, 838, 800, 2580,
- 914, 914, 914, 914, 985, 940, 839, 840, 978, 410,
- 2426, 977, 453, 451, 449, 823, 801, 810, 410, 810,
- 801, 801, 801, 801, 801, 801, 801, 801, 801, 947,
- 801, 801, 657, 2103, 976, 978, 801, 801, 801, 801,
- 801, 410, 979, 448, 986, 813, 2030, 2031, 1774, 814,
- 942, 943, 410, 2032, 2238, 1775, 947, 987, 815, 816,
-
- 944, 976, 800, 980, 914, 914, 914, 914, 944, 979,
- 410, 986, 813, 581, 950, 800, 814, 800, 981, 914,
- 914, 914, 914, 950, 987, 815, 816, 992, 306, 982,
- 980, 950, 442, 440, 801, 801, 800, 801, 800, 951,
- 914, 914, 914, 914, 800, 981, 800, 945, 914, 914,
- 914, 914, 993, 800, 992, 800, 982, 914, 914, 914,
- 914, 438, 431, 811, 994, 948, 951, 811, 949, 995,
- 851, 996, 852, 946, 945, 997, 811, 811, 1774, 993,
- 306, 425, 800, 998, 800, 1775, 914, 914, 914, 914,
- 811, 994, 948, 999, 811, 949, 995, 851, 996, 852,
-
- 946, 423, 997, 811, 811, 801, 1777, 801, 952, 421,
- 998, 409, 800, 1778, 800, 1008, 914, 914, 914, 914,
- 999, 306, 1000, 800, 1003, 800, 1795, 914, 914, 914,
- 914, 1004, 1005, 811, 853, 952, 953, 811, 954, 961,
- 372, 1011, 955, 1012, 1009, 1010, 811, 811, 961, 1000,
- 1774, 1003, 961, 961, 961, 961, 2581, 1775, 1004, 1005,
- 811, 853, 402, 953, 811, 954, 400, 2428, 1011, 955,
- 1012, 1009, 1010, 811, 811, 801, 801, 657, 856, 801,
- 801, 801, 801, 801, 801, 801, 801, 801, 857, 801,
- 801, 857, 857, 857, 857, 801, 801, 801, 801, 801,
-
- 857, 857, 858, 859, 860, 857, 857, 857, 861, 857,
- 857, 862, 857, 857, 857, 863, 857, 864, 865, 866,
- 857, 857, 857, 857, 857, 857, 857, 857, 857, 858,
- 859, 860, 857, 857, 857, 861, 857, 857, 862, 857,
- 857, 857, 863, 857, 864, 865, 866, 857, 857, 857,
- 857, 857, 857, 801, 336, 879, 398, 1013, 803, 800,
- 1014, 800, 1015, 914, 914, 914, 914, 800, 388, 800,
- 1018, 914, 914, 914, 914, 804, 386, 306, 1016, 880,
- 1017, 806, 375, 956, 1013, 881, 373, 1014, 962, 1015,
- 1019, 1020, 807, 1021, 882, 808, 809, 962, 357, 957,
-
- 350, 962, 962, 962, 962, 1016, 880, 1017, 806, 800,
- 956, 800, 881, 914, 914, 914, 914, 1019, 1020, 807,
- 1021, 882, 808, 809, 800, 889, 957, 889, 800, 800,
- 800, 800, 800, 800, 800, 800, 800, 958, 800, 800,
- 349, 1029, 1881, 1030, 800, 800, 800, 800, 800, 1882,
- 1031, 335, 1032, 891, 800, 306, 800, 892, 914, 914,
- 914, 914, 1901, 1033, 958, 1034, 893, 894, 1029, 800,
- 1030, 800, 968, 914, 914, 914, 914, 1031, 959, 1032,
- 891, 968, 967, 385, 892, 968, 968, 968, 968, 960,
- 1033, 967, 1034, 893, 894, 967, 967, 967, 967, 305,
-
- 303, 301, 800, 800, 800, 959, 800, 800, 800, 800,
- 800, 800, 800, 800, 800, 800, 960, 800, 800, 974,
- 399, 2866, 1037, 800, 800, 800, 800, 800, 974, 975,
- 1038, 1039, 974, 974, 974, 974, 2866, 1040, 975, 1041,
- 2866, 2866, 975, 975, 975, 975, 403, 1042, 407, 1037,
- 700, 700, 700, 700, 983, 422, 2866, 1038, 1039, 2866,
- 2866, 2866, 984, 983, 1040, 2866, 1041, 983, 983, 983,
- 983, 984, 1045, 1046, 1042, 984, 984, 984, 984, 2866,
- 2866, 800, 800, 800, 2866, 800, 800, 800, 800, 800,
- 800, 800, 800, 800, 800, 2866, 800, 800, 2866, 1045,
-
- 1046, 2866, 800, 800, 800, 800, 800, 800, 800, 2866,
- 800, 800, 800, 800, 800, 800, 800, 800, 800, 911,
- 2866, 911, 800, 915, 915, 915, 915, 800, 800, 800,
- 800, 800, 800, 800, 657, 917, 800, 800, 800, 800,
- 800, 800, 800, 800, 800, 918, 800, 800, 918, 918,
- 918, 918, 800, 800, 800, 800, 800, 918, 918, 919,
- 920, 921, 918, 918, 918, 922, 918, 918, 923, 918,
- 918, 918, 924, 918, 925, 926, 927, 918, 918, 918,
- 918, 918, 918, 918, 918, 918, 919, 920, 921, 918,
- 918, 918, 922, 918, 918, 923, 918, 918, 918, 924,
-
- 918, 925, 926, 927, 918, 918, 918, 918, 918, 918,
- 800, 2866, 800, 988, 439, 2866, 1035, 1047, 1774, 1036,
- 1050, 1051, 988, 2235, 2866, 1775, 988, 988, 988, 988,
- 2236, 1052, 1053, 1054, 1057, 1058, 918, 918, 918, 1059,
- 1060, 989, 918, 1035, 1047, 918, 1036, 1050, 1051, 918,
- 989, 918, 918, 918, 989, 989, 989, 989, 1052, 1053,
- 1054, 1057, 1058, 918, 918, 918, 1059, 1060, 2866, 918,
- 2386, 1061, 918, 990, 450, 1064, 918, 2387, 918, 918,
- 918, 991, 990, 1065, 1065, 2866, 990, 990, 990, 990,
- 991, 1001, 477, 1065, 991, 991, 991, 991, 1061, 1002,
-
- 1001, 1065, 1064, 2866, 1001, 1001, 1001, 1001, 1002, 1006,
- 494, 2866, 1002, 1002, 1002, 1002, 2866, 1007, 1006, 1066,
- 1067, 2389, 1006, 1006, 1006, 1006, 1007, 2866, 2236, 1044,
- 1007, 1007, 1007, 1007, 1022, 1023, 1024, 1025, 1044, 1026,
- 1043, 522, 1044, 1044, 1044, 1044, 1066, 1067, 1027, 1043,
- 2390, 1068, 1028, 1043, 1043, 1043, 1043, 2236, 1048, 538,
- 1069, 1022, 1023, 1024, 1025, 1070, 1026, 1048, 1049, 1071,
- 1072, 1048, 1048, 1048, 1048, 1027, 2866, 1049, 1068, 1028,
- 2866, 1049, 1049, 1049, 1049, 1055, 560, 1069, 1073, 2866,
- 2866, 2866, 1070, 1056, 1055, 2866, 1071, 1072, 1055, 1055,
-
- 1055, 1055, 1056, 1062, 569, 1093, 1056, 1056, 1056, 1056,
- 2866, 1063, 1062, 1074, 1074, 1073, 1062, 1062, 1062, 1062,
- 1063, 787, 302, 1074, 1063, 1063, 1063, 1063, 1094, 788,
- 787, 1074, 1093, 304, 787, 787, 787, 787, 788, 2866,
- 1095, 1096, 788, 788, 788, 788, 1077, 1097, 1115, 1078,
- 1116, 1117, 1118, 1119, 1141, 1094, 2866, 1142, 1139, 2866,
- 2866, 1143, 1144, 1145, 1146, 1164, 1079, 1095, 1096, 1165,
- 1080, 1140, 1081, 2866, 1097, 1115, 1166, 1116, 1117, 1118,
- 1119, 1141, 1167, 1082, 1142, 1139, 1083, 1084, 1143, 1144,
- 1145, 1146, 1164, 2866, 2023, 2866, 1165, 1080, 1140, 1081,
-
- 1076, 1778, 1076, 1166, 1168, 2024, 1169, 1170, 2866, 1167,
- 1082, 2866, 2866, 1083, 1084, 1076, 1085, 2866, 1085, 1076,
- 1076, 1076, 1076, 1076, 1076, 1076, 1076, 1076, 1086, 1076,
- 1076, 1168, 1086, 1169, 1170, 1076, 1076, 1076, 1076, 1076,
- 1171, 1086, 1086, 1087, 1088, 1182, 1180, 1186, 1089, 1183,
- 1189, 1184, 2866, 1185, 2866, 1086, 1190, 1090, 1091, 1086,
- 1181, 1178, 1193, 1196, 1197, 1198, 2866, 1171, 1086, 1086,
- 1087, 1088, 1182, 1180, 1186, 1089, 1183, 1189, 1184, 1076,
- 1185, 1076, 2866, 1190, 1090, 1091, 1179, 1181, 2866, 1193,
- 1196, 1197, 1198, 1076, 1076, 1085, 2866, 1085, 1076, 1076,
-
- 1076, 1076, 1076, 1076, 1076, 1076, 1076, 1086, 1076, 1076,
- 2866, 1098, 1191, 1179, 1076, 1076, 1076, 1076, 1076, 1199,
- 1086, 1086, 1192, 1088, 1076, 2866, 1076, 1089, 1187, 1076,
- 2866, 1076, 1188, 2866, 1086, 1204, 1090, 1091, 1098, 1191,
- 1202, 1202, 1202, 1202, 2866, 2866, 1199, 1086, 1086, 1192,
- 1088, 1205, 1102, 1206, 1089, 1187, 1086, 1103, 1120, 1188,
- 1120, 1086, 1204, 1090, 1091, 1086, 1086, 942, 1194, 1093,
- 1086, 1086, 1076, 1076, 2866, 1076, 1212, 1195, 1205, 1102,
- 1206, 2866, 1211, 1086, 1103, 1195, 1132, 2088, 1086, 1213,
- 1132, 2089, 1086, 1086, 2090, 1214, 1093, 1086, 1086, 1132,
-
- 1132, 1086, 1215, 1212, 1216, 1086, 1217, 1218, 1099, 1211,
- 1100, 1219, 1228, 1132, 1086, 1086, 1213, 1132, 1120, 2866,
- 1120, 1120, 1214, 1120, 1229, 2866, 1132, 1132, 1086, 1215,
- 1230, 1216, 1086, 1217, 1218, 1099, 2866, 1100, 1219, 1228,
- 1233, 1086, 1086, 1076, 2866, 1076, 1132, 1234, 2866, 1151,
- 1147, 1229, 1226, 1132, 1227, 1235, 1231, 1230, 2866, 1132,
- 1132, 1236, 1132, 1132, 2866, 2866, 1232, 1233, 1237, 1238,
- 1240, 1086, 1101, 1132, 1234, 1086, 1151, 1147, 2866, 1226,
- 1132, 1227, 1235, 1231, 1086, 1086, 1132, 1132, 1236, 1132,
- 1132, 1203, 1200, 1232, 1777, 1237, 1238, 1240, 1086, 1101,
-
- 1203, 1778, 1086, 2866, 1203, 1203, 1203, 1203, 1876, 1877,
- 1878, 1086, 1086, 1076, 1076, 657, 1104, 1076, 1076, 1076,
- 1076, 1076, 1076, 1076, 1076, 1076, 1105, 1076, 1076, 1105,
- 1105, 1105, 1105, 1076, 1076, 1076, 1076, 1076, 1105, 1105,
- 1106, 1107, 1108, 1105, 1105, 1105, 1109, 1105, 1105, 1110,
- 1105, 1105, 1105, 1111, 1105, 1112, 1113, 1114, 1105, 1105,
- 1105, 1105, 1105, 1105, 1105, 1105, 1105, 1106, 1107, 1108,
- 1105, 1105, 1105, 1109, 1105, 1105, 1110, 1105, 1105, 1105,
- 1111, 1105, 1112, 1113, 1114, 1105, 1105, 1105, 1105, 1105,
- 1105, 1076, 336, 1121, 1203, 1200, 1122, 1243, 1243, 1243,
-
- 1243, 1254, 1258, 1203, 1259, 2025, 2866, 1203, 1203, 1203,
- 1203, 1244, 1778, 1123, 1256, 1255, 2026, 1124, 1257, 1125,
- 1244, 2866, 2866, 1126, 1244, 1244, 1244, 1244, 1254, 1258,
- 1127, 1259, 1128, 1129, 1130, 2866, 2866, 1260, 2866, 1244,
- 2866, 1256, 1255, 1241, 1124, 1257, 1125, 1120, 1244, 1120,
- 1126, 1263, 1244, 1244, 1244, 1244, 2866, 1127, 2866, 1128,
- 1129, 1130, 1120, 1131, 1260, 1131, 1120, 1120, 1120, 1120,
- 1120, 1120, 1120, 1120, 1120, 1152, 1120, 1120, 1263, 1132,
- 2235, 1264, 1120, 1120, 1120, 1120, 1120, 2236, 1132, 1132,
- 1133, 1134, 1246, 1265, 1246, 1135, 1247, 1247, 1247, 1247,
-
- 1267, 2234, 1152, 1266, 1136, 1137, 1132, 1246, 1264, 1246,
- 1268, 1247, 1247, 1247, 1247, 1132, 1132, 1133, 1134, 2866,
- 1265, 2866, 1135, 2866, 2866, 2866, 1076, 1267, 1076, 2866,
- 1266, 1136, 1137, 1269, 2866, 2866, 1774, 1268, 2866, 1270,
- 1120, 1120, 1131, 1775, 1131, 1120, 1120, 1120, 1120, 1120,
- 1120, 1120, 1120, 1120, 1086, 1120, 1120, 2238, 1086, 1271,
- 1269, 1120, 1120, 1120, 1120, 1120, 1270, 1086, 1172, 1274,
- 1134, 1076, 2866, 1076, 1135, 1261, 1076, 2866, 1076, 1262,
- 1275, 1086, 1276, 1136, 1137, 1086, 1271, 1277, 1272, 1278,
- 1575, 1575, 1575, 1575, 1086, 1172, 1274, 1134, 1273, 1086,
-
- 1279, 1135, 1261, 1173, 1086, 1280, 1262, 1275, 1086, 1276,
- 1136, 1137, 1086, 1174, 1277, 1272, 1278, 1086, 1086, 1120,
- 1120, 2866, 1120, 1281, 1292, 1273, 1086, 1279, 942, 1284,
- 1173, 1086, 1280, 1304, 2866, 1086, 2866, 1305, 1284, 1086,
- 1174, 2866, 2866, 2866, 1086, 1086, 1284, 1306, 1132, 1307,
- 1281, 1292, 1132, 1308, 1309, 1148, 1310, 1149, 2866, 410,
- 1304, 1132, 1132, 1075, 1305, 1075, 2866, 1249, 1249, 1249,
- 1249, 1311, 2866, 2866, 1306, 1132, 1307, 410, 1312, 1132,
- 1308, 1309, 1148, 1310, 1149, 1065, 1286, 410, 1132, 1132,
- 1120, 2866, 1120, 1285, 410, 1286, 2866, 1075, 1311, 1249,
-
- 1249, 1249, 1249, 1286, 1075, 1312, 1075, 1313, 1249, 1249,
- 1249, 1249, 961, 372, 1317, 1315, 1316, 1318, 1132, 1150,
- 1285, 961, 1132, 1287, 1319, 961, 961, 961, 961, 1320,
- 1321, 1132, 1132, 1075, 1313, 1075, 2866, 1249, 1299, 1300,
- 1301, 1317, 1315, 1316, 1318, 1132, 1150, 2866, 2866, 1132,
- 1287, 1319, 1624, 1624, 1624, 1624, 1320, 1321, 1132, 1132,
- 1120, 1120, 657, 1153, 1120, 1120, 1120, 1120, 1120, 1120,
- 1120, 1120, 1120, 1154, 1120, 1120, 1154, 1154, 1154, 1154,
- 1120, 1120, 1120, 1120, 1120, 1154, 1154, 1155, 1156, 1157,
- 1154, 1154, 1154, 1158, 1154, 1154, 1159, 1154, 1154, 1154,
-
- 1160, 1154, 1161, 1162, 1163, 1154, 1154, 1154, 1154, 1154,
- 1154, 1154, 1154, 1154, 1155, 1156, 1157, 1154, 1154, 1154,
- 1158, 1154, 1154, 1159, 1154, 1154, 1154, 1160, 1154, 1161,
- 1162, 1163, 1154, 1154, 1154, 1154, 1154, 1154, 1120, 1076,
- 2866, 1076, 1075, 1322, 1075, 1323, 1249, 1249, 1249, 1249,
- 2866, 1075, 1324, 1075, 410, 1249, 1249, 1249, 1249, 581,
- 1290, 2855, 2855, 2855, 2855, 1314, 1175, 1086, 1325, 1290,
- 1322, 1086, 1323, 1288, 2866, 2321, 303, 1290, 1326, 1324,
- 1086, 1086, 2322, 1289, 1075, 1291, 1075, 1327, 1249, 1249,
- 1249, 1249, 1314, 1175, 1086, 1325, 1328, 1075, 1086, 1075,
-
- 1288, 1249, 1249, 1249, 1249, 1326, 1329, 1086, 1086, 1076,
- 1289, 1076, 1291, 2866, 1327, 1075, 1293, 1075, 2866, 1249,
- 1249, 1249, 1249, 1328, 1334, 1330, 1331, 1332, 1333, 2866,
- 1294, 2866, 1295, 1329, 2866, 2866, 2866, 1086, 1335, 1176,
- 1075, 1086, 1075, 1293, 1249, 1249, 1249, 1249, 1336, 1337,
- 1086, 1086, 1330, 1331, 1332, 1333, 1075, 1294, 1075, 1295,
- 1249, 1249, 1249, 1249, 1086, 1335, 1176, 2381, 1086, 1297,
- 1296, 305, 2866, 1338, 2382, 1336, 1337, 1086, 1086, 1076,
- 1075, 1076, 1075, 2866, 1249, 1249, 1249, 1249, 1075, 1347,
- 1075, 1339, 1249, 1249, 1249, 1249, 1297, 1296, 1074, 1303,
-
- 1338, 1298, 1342, 2866, 1343, 1302, 1344, 1086, 1303, 1349,
- 1075, 1086, 1249, 1249, 1249, 1249, 1303, 2866, 1339, 1348,
- 1086, 1086, 1177, 1345, 2866, 2866, 962, 2866, 1298, 1342,
- 374, 1343, 1302, 1344, 1086, 962, 1349, 1346, 1086, 962,
- 962, 962, 962, 967, 385, 1350, 1348, 1086, 1086, 1177,
- 2866, 1076, 967, 974, 399, 1351, 967, 967, 967, 967,
- 1352, 2866, 974, 2866, 1346, 2866, 974, 974, 974, 974,
- 1353, 2866, 1350, 2866, 2866, 1105, 1105, 1105, 1354, 1357,
- 1355, 1105, 1351, 1356, 1105, 968, 1358, 1352, 1105, 387,
- 1105, 1105, 1105, 2866, 968, 2866, 1359, 1353, 968, 968,
-
- 968, 968, 1105, 1105, 1105, 1354, 1357, 1355, 1105, 2866,
- 1356, 1105, 2866, 1358, 2866, 1105, 1360, 1105, 1105, 1105,
- 336, 1207, 975, 1359, 1078, 2866, 401, 2866, 2866, 1361,
- 1362, 975, 1363, 2866, 2866, 975, 975, 975, 975, 983,
- 422, 1079, 1364, 1360, 1365, 1208, 1366, 1081, 983, 1367,
- 1368, 1209, 983, 983, 983, 983, 1361, 1362, 1082, 1363,
- 1210, 1083, 1084, 2866, 2866, 1369, 984, 2866, 2866, 1364,
- 424, 1365, 1208, 1366, 1081, 984, 1367, 1368, 1209, 984,
- 984, 984, 984, 2866, 2866, 1082, 2866, 1210, 1083, 1084,
- 1075, 1220, 1369, 1220, 1075, 1075, 1075, 1075, 1075, 1075,
-
- 1075, 1075, 1075, 2866, 1075, 1075, 2866, 1370, 1371, 1372,
- 1075, 1075, 1075, 1075, 1075, 988, 439, 1373, 1374, 1222,
- 1774, 2866, 2866, 1223, 988, 2866, 2866, 1775, 988, 988,
- 988, 988, 1224, 1225, 1370, 1371, 1372, 2866, 989, 1375,
- 1376, 2238, 441, 2866, 1373, 1374, 1222, 989, 990, 450,
- 1223, 989, 989, 989, 989, 1377, 2866, 990, 1378, 1224,
- 1225, 990, 990, 990, 990, 2866, 1375, 1376, 1075, 1075,
- 1075, 2866, 1075, 1075, 1075, 1075, 1075, 1075, 1075, 1075,
- 1075, 1075, 1377, 1075, 1075, 1378, 1001, 477, 2866, 1075,
- 1075, 1075, 1075, 1075, 991, 1001, 1379, 2866, 452, 1001,
-
- 1001, 1001, 1001, 991, 1380, 1381, 2866, 991, 991, 991,
- 991, 1002, 1382, 1383, 1384, 479, 2866, 2866, 2866, 1385,
- 1002, 1006, 494, 1379, 1002, 1002, 1002, 1002, 2866, 1007,
- 1006, 1380, 1381, 496, 1006, 1006, 1006, 1006, 1007, 1382,
- 1383, 1384, 1007, 1007, 1007, 1007, 1385, 1075, 1075, 1075,
- 2866, 1075, 1075, 1075, 1075, 1075, 1075, 1075, 1075, 1075,
- 1075, 2866, 1075, 1075, 2856, 2856, 2856, 2856, 1075, 1075,
- 1075, 1075, 1075, 1075, 1075, 2866, 1075, 1075, 1075, 1075,
- 1075, 1075, 1075, 1075, 1075, 1246, 2866, 1246, 1075, 1250,
- 1250, 1250, 1250, 1075, 1075, 1075, 1075, 1075, 1075, 1075,
-
- 657, 1252, 1075, 1075, 1075, 1075, 1075, 1075, 1075, 1075,
- 1075, 1386, 1075, 1075, 1043, 522, 1387, 2866, 1075, 1075,
- 1075, 1075, 1075, 1043, 1388, 1408, 2137, 1043, 1043, 1043,
- 1043, 1044, 2866, 1775, 1409, 524, 2866, 2138, 1386, 1410,
- 1044, 1048, 538, 1387, 1044, 1044, 1044, 1044, 2866, 1049,
- 1048, 1388, 1408, 540, 1048, 1048, 1048, 1048, 1049, 1055,
- 560, 1409, 1049, 1049, 1049, 1049, 1410, 2866, 1055, 1411,
- 2866, 2866, 1055, 1055, 1055, 1055, 1075, 1075, 1075, 2866,
- 1075, 1075, 1075, 1075, 1075, 1075, 1075, 1075, 1075, 1075,
- 2866, 1075, 1075, 1412, 1062, 569, 1411, 1075, 1075, 1075,
-
- 1075, 1075, 1056, 1062, 1430, 2866, 562, 1062, 1062, 1062,
- 1062, 1056, 1074, 1074, 1431, 1056, 1056, 1056, 1056, 1063,
- 1412, 2866, 1074, 571, 1432, 1433, 1434, 1449, 1063, 2866,
- 1074, 1430, 1063, 1063, 1063, 1063, 1452, 1453, 1389, 2866,
- 2866, 1431, 574, 574, 574, 574, 1391, 1441, 1391, 2866,
- 2234, 1432, 1433, 1434, 1449, 1075, 1075, 1075, 942, 1282,
- 2866, 1075, 1075, 1452, 1453, 1389, 1075, 1075, 1282, 1075,
- 1075, 1075, 1442, 1447, 1401, 1448, 1282, 1075, 1401, 1075,
- 1075, 1391, 2866, 1391, 1391, 2866, 1391, 1401, 1401, 1391,
- 2866, 1391, 1443, 1445, 2866, 2866, 2866, 1446, 2866, 1442,
-
- 1447, 1401, 1448, 2866, 2866, 1401, 1444, 1075, 2866, 1401,
- 2866, 2866, 1417, 1413, 1401, 1401, 1401, 1418, 1456, 1443,
- 1445, 1401, 1401, 1401, 1446, 1401, 1401, 1459, 2866, 2866,
- 1401, 1401, 2866, 1444, 1075, 1392, 1401, 1450, 1393, 1417,
- 1413, 1451, 2866, 1401, 1418, 1456, 1454, 1460, 1401, 1401,
- 1401, 1461, 1401, 1401, 1459, 1394, 1455, 1401, 1401, 1395,
- 2866, 1396, 2866, 1462, 1450, 1484, 1485, 1486, 1451, 942,
- 1457, 1487, 1397, 1454, 1460, 1398, 1399, 2866, 1461, 1458,
- 2866, 2866, 2866, 1455, 2866, 2866, 1395, 1458, 1396, 1391,
- 1462, 1391, 1484, 1485, 1486, 2866, 1488, 2866, 1487, 1397,
-
- 2866, 2866, 1398, 1399, 1391, 1400, 2866, 1400, 1391, 1391,
- 1391, 1391, 1391, 1391, 1391, 1391, 1391, 1401, 1391, 1391,
- 2866, 1401, 1482, 1488, 1391, 1391, 1391, 1391, 1391, 1489,
- 1401, 1435, 1402, 1403, 1507, 1483, 1508, 1404, 1509, 1510,
- 1511, 2866, 1512, 2866, 1401, 1513, 1405, 1406, 1401, 1482,
- 1514, 1527, 1529, 1528, 1532, 2866, 1489, 1401, 1435, 1402,
- 1403, 1507, 1483, 1508, 1404, 1509, 1510, 1511, 1391, 1512,
- 1391, 2866, 1513, 1405, 1406, 1533, 1521, 1514, 1527, 1529,
- 1528, 1532, 1391, 1391, 1400, 2866, 1400, 1391, 1391, 1391,
- 1391, 1391, 1391, 1391, 1391, 1391, 1401, 1391, 1391, 2866,
-
- 1436, 1522, 1533, 1391, 1391, 1391, 1391, 1391, 1536, 1401,
- 1437, 2577, 1403, 1391, 2866, 1391, 1404, 1523, 1463, 2866,
- 1463, 1539, 2420, 1401, 1540, 1405, 1406, 1436, 1522, 1541,
- 1534, 1524, 2234, 2866, 2866, 1536, 1401, 1437, 1525, 1403,
- 1535, 1401, 1526, 1404, 1523, 1401, 1475, 1463, 1539, 1463,
- 1475, 1540, 1405, 1406, 1401, 1401, 1541, 1534, 1524, 1475,
- 1475, 1391, 1391, 2866, 1391, 1525, 1542, 1535, 1401, 1526,
- 2866, 1543, 1401, 1475, 1530, 1475, 2866, 1475, 1531, 1490,
- 2866, 1401, 1401, 2866, 1544, 2866, 1475, 1475, 1475, 1475,
- 1401, 2866, 2866, 1542, 1401, 1545, 1445, 1414, 1543, 1415,
-
- 1446, 1530, 1475, 1401, 1401, 1531, 1490, 1463, 2866, 1463,
- 1463, 1544, 1463, 1551, 1552, 1475, 1475, 1401, 942, 1537,
- 1553, 1401, 1545, 1445, 1414, 2866, 1415, 1446, 1538, 1554,
- 1401, 1401, 1391, 2866, 1391, 1494, 1538, 2866, 1495, 1475,
- 1551, 1552, 1475, 1555, 1557, 1558, 2866, 1553, 1475, 1475,
- 1559, 1475, 1475, 1556, 1560, 1561, 1554, 1562, 1563, 1564,
- 1401, 1416, 1494, 1567, 1401, 1495, 1475, 1568, 1572, 1475,
- 1555, 1557, 1558, 1401, 1401, 1475, 1475, 1559, 1475, 1475,
- 1556, 1560, 1561, 1625, 1562, 1563, 1564, 1401, 1416, 2866,
- 1567, 1401, 1625, 2866, 1568, 1572, 1625, 1625, 1625, 1625,
-
- 1401, 1401, 1391, 1391, 657, 1419, 1391, 1391, 1391, 1391,
- 1391, 1391, 1391, 1391, 1391, 1420, 1391, 1391, 1420, 1420,
- 1420, 1420, 1391, 1391, 1391, 1391, 1391, 1420, 1420, 1421,
- 1422, 1423, 1420, 1420, 1420, 1424, 1420, 1420, 1425, 1420,
- 1420, 1420, 1426, 1420, 1427, 1428, 1429, 1420, 1420, 1420,
- 1420, 1420, 1420, 1420, 1420, 1420, 1421, 1422, 1423, 1420,
- 1420, 1420, 1424, 1420, 1420, 1425, 1420, 1420, 1420, 1426,
- 1420, 1427, 1428, 1429, 1420, 1420, 1420, 1420, 1420, 1420,
- 1391, 1391, 2866, 1391, 942, 1458, 1463, 2866, 1463, 1463,
- 2866, 1463, 1577, 1578, 1458, 2866, 1881, 1463, 2866, 1463,
-
- 2866, 2866, 1458, 1882, 2866, 1391, 2866, 1391, 1438, 1401,
- 1995, 1996, 1997, 1401, 1475, 1579, 1585, 1475, 1475, 1577,
- 1578, 1516, 1401, 1401, 2866, 1475, 2866, 1475, 1515, 1475,
- 1475, 1517, 2866, 1548, 2866, 1438, 1401, 1401, 1475, 1475,
- 1401, 1475, 1579, 1585, 1475, 1475, 1401, 1401, 1516, 1401,
- 1401, 1391, 1475, 1391, 1475, 1515, 1475, 1475, 1517, 1391,
- 1548, 1391, 1586, 1587, 1401, 1475, 1475, 1588, 1589, 1408,
- 1391, 1549, 1391, 1401, 1401, 1391, 2866, 1391, 1590, 1401,
- 2866, 1439, 1584, 1401, 2866, 2866, 1591, 1401, 1592, 1586,
- 1587, 1401, 1401, 1401, 1588, 1589, 1408, 1595, 1401, 1596,
-
- 1401, 1401, 1550, 1401, 1605, 1590, 1401, 1401, 1439, 1584,
- 1401, 1401, 1401, 1591, 1401, 1592, 1401, 1401, 1401, 1401,
- 1401, 1391, 2866, 1391, 1595, 1401, 1596, 1401, 1401, 1550,
- 1401, 1605, 1576, 1573, 1401, 2559, 2560, 2561, 1401, 1401,
- 1606, 1576, 2234, 1401, 1401, 1576, 1576, 1576, 1576, 1401,
- 1593, 1594, 1603, 1401, 1604, 1607, 1576, 1573, 1610, 1611,
- 1594, 1612, 1401, 1401, 1440, 1576, 2866, 1606, 1594, 1576,
- 1576, 1576, 1576, 1608, 1613, 1614, 1401, 1616, 1617, 1603,
- 1401, 1604, 1607, 1609, 1619, 1610, 1611, 1621, 1612, 1401,
- 1401, 1440, 2866, 1391, 1635, 1636, 2151, 1637, 1638, 2866,
-
- 1608, 1613, 1614, 1775, 1616, 1617, 2866, 2152, 1641, 2153,
- 1609, 1620, 1642, 2866, 1621, 2866, 1775, 1420, 1420, 1420,
- 2154, 1635, 1636, 1420, 1637, 1638, 1420, 1625, 1643, 1644,
- 1420, 1622, 1420, 1420, 1420, 1641, 1625, 1639, 1620, 1642,
- 1625, 1625, 1625, 1625, 1420, 1420, 1420, 1640, 2866, 1645,
- 1420, 2866, 2866, 1420, 1646, 1643, 1644, 1420, 1647, 1420,
- 1420, 1420, 336, 1464, 1639, 1627, 1465, 1627, 1648, 1628,
- 1628, 1628, 1628, 1627, 1640, 1627, 1645, 1628, 1628, 1628,
- 1628, 1646, 1649, 1466, 1650, 1647, 1651, 1467, 1652, 1468,
- 1653, 1654, 1656, 1469, 1657, 1648, 1658, 1660, 1661, 1672,
-
- 1470, 1673, 1471, 1472, 1473, 2866, 2866, 1690, 2866, 1649,
- 2866, 1650, 2866, 1651, 1467, 1652, 1468, 1653, 1654, 1656,
- 1469, 1657, 2866, 1658, 1660, 1661, 1672, 1470, 1673, 1471,
- 1472, 1473, 1463, 1474, 1690, 1474, 1463, 1463, 1463, 1463,
- 1463, 1463, 1463, 1463, 1463, 1691, 1463, 1463, 942, 1664,
- 1692, 2866, 1463, 1463, 1463, 1463, 1463, 2866, 1664, 1693,
- 1476, 1477, 1694, 1695, 1696, 1478, 1664, 1702, 2866, 1703,
- 2866, 2866, 1691, 2866, 1479, 1480, 1390, 1692, 1390, 1704,
- 1630, 1630, 1630, 1630, 1668, 410, 1693, 1476, 1477, 1694,
- 1695, 1696, 1478, 1390, 1702, 1669, 1703, 1630, 1630, 1630,
-
- 1630, 1479, 1480, 1665, 2866, 410, 1704, 2866, 2866, 1697,
- 1463, 1463, 1474, 410, 1474, 1463, 1463, 1463, 1463, 1463,
- 1463, 1463, 1463, 1463, 1698, 1463, 1463, 2866, 1700, 410,
- 1665, 1463, 1463, 1463, 1463, 1463, 1697, 2866, 1705, 410,
- 1477, 1390, 1699, 1390, 1478, 1630, 1630, 1630, 1630, 1706,
- 1707, 1698, 1708, 1479, 1480, 1700, 2866, 1390, 1701, 1390,
- 1666, 1630, 1630, 1630, 1630, 1705, 1709, 1477, 1710, 1699,
- 1711, 1478, 2866, 581, 1670, 2866, 1706, 1707, 1667, 1708,
- 1479, 1480, 2866, 1670, 2866, 1701, 1712, 1666, 1713, 1463,
- 1463, 1670, 1463, 1709, 1714, 1710, 1390, 1711, 1390, 1671,
-
- 1630, 1630, 1630, 1630, 1390, 1667, 1390, 1715, 1630, 1630,
- 1630, 1630, 2866, 1712, 1716, 1713, 1717, 1674, 1475, 1718,
- 1675, 1714, 1475, 1719, 1720, 1491, 1671, 1492, 1721, 1722,
- 1726, 1475, 1475, 1390, 1715, 1390, 2866, 1630, 1630, 1630,
- 1630, 1716, 2866, 1717, 1674, 1475, 1718, 1675, 2866, 1475,
- 1719, 1720, 1491, 2866, 1492, 1721, 1722, 1726, 1475, 1475,
- 1463, 1723, 1463, 1390, 1676, 1390, 2866, 1630, 1630, 1630,
- 1630, 2866, 2866, 2866, 2866, 1390, 1677, 1390, 2866, 1630,
- 1630, 1630, 1630, 2866, 1680, 2866, 1724, 1727, 1475, 1493,
- 1678, 1676, 1475, 1390, 1728, 1681, 1682, 1630, 1630, 1630,
-
- 1630, 1475, 1475, 1677, 2866, 1390, 2234, 1683, 2866, 1630,
- 1630, 1630, 1630, 1724, 1727, 1475, 1493, 1678, 2866, 1475,
- 2866, 1728, 2866, 2866, 2866, 2866, 2866, 2866, 1475, 1475,
- 1463, 1463, 657, 1496, 1463, 1463, 1463, 1463, 1463, 1463,
- 1463, 1463, 1463, 1497, 1463, 1463, 1497, 1497, 1497, 1497,
- 1463, 1463, 1463, 1463, 1463, 1497, 1497, 1498, 1499, 1500,
- 1497, 1497, 1497, 1501, 1497, 1497, 1502, 1497, 1497, 1497,
- 1503, 1497, 1504, 1505, 1506, 1497, 1497, 1497, 1497, 1497,
- 1497, 1497, 1497, 1497, 1498, 1499, 1500, 1497, 1497, 1497,
- 1501, 1497, 1497, 1502, 1497, 1497, 1497, 1503, 1497, 1504,
-
- 1505, 1506, 1497, 1497, 1497, 1497, 1497, 1497, 1463, 1463,
- 2866, 1463, 1390, 1684, 1390, 2866, 1630, 1630, 1630, 1630,
- 2866, 2866, 1390, 2866, 1685, 1729, 1630, 1630, 1630, 1630,
- 1686, 1687, 1730, 1731, 1732, 1733, 1518, 1475, 1734, 1679,
- 1687, 1475, 1390, 1735, 1630, 1630, 1630, 1630, 1687, 1736,
- 1475, 1475, 1729, 1737, 2866, 1738, 2866, 1074, 1688, 1730,
- 1731, 1732, 1733, 1518, 1475, 1734, 1679, 1688, 1475, 1739,
- 1735, 1740, 1741, 1742, 1743, 1688, 1736, 1475, 1475, 1463,
- 1737, 1463, 1738, 1689, 1744, 1746, 1747, 1748, 1749, 1750,
- 1751, 1752, 1753, 2866, 2866, 1754, 1739, 1755, 1740, 1741,
-
- 1742, 1743, 1756, 1757, 1745, 1758, 1759, 1475, 1760, 1519,
- 1689, 1475, 1746, 1747, 1748, 1749, 1750, 1751, 1752, 1753,
- 1475, 1475, 1754, 1761, 1755, 1762, 1763, 1764, 1765, 1756,
- 1757, 1745, 1758, 1759, 1475, 1760, 1519, 1766, 1475, 1767,
- 1768, 1769, 1770, 1771, 1772, 1837, 2866, 1475, 1475, 1463,
- 1761, 1463, 1762, 1763, 1764, 1765, 1777, 2866, 1777, 1829,
- 2866, 2866, 2866, 1778, 1766, 1778, 1767, 1768, 1769, 1770,
- 1771, 1772, 1837, 1777, 1840, 1777, 1777, 1475, 1777, 1796,
- 1778, 1475, 1778, 1778, 1830, 1778, 2866, 1777, 1777, 1797,
- 1475, 1475, 1520, 1777, 1778, 1778, 2866, 1841, 1777, 1833,
-
- 1778, 1840, 2866, 1834, 1475, 1778, 1796, 1799, 1475, 1818,
- 1844, 1830, 1798, 1819, 1820, 2866, 1797, 1475, 1475, 1520,
- 2866, 1463, 1842, 1800, 1841, 1776, 1833, 1777, 1821, 1822,
- 1834, 2866, 1843, 2866, 1799, 2866, 1818, 1844, 1831, 1798,
- 1819, 1820, 1835, 2866, 1836, 1497, 1497, 1497, 2866, 1842,
- 1800, 1497, 1832, 1789, 1497, 1821, 1822, 1789, 1497, 1843,
- 1497, 1497, 1497, 2866, 2866, 1831, 1789, 1789, 1776, 1835,
- 1777, 1836, 1497, 1497, 1497, 1776, 2866, 1777, 1497, 1832,
- 1789, 1497, 2866, 2866, 1789, 1497, 1856, 1497, 1497, 1497,
- 1391, 1777, 1391, 1789, 1789, 1777, 1789, 1838, 1778, 1857,
-
- 1801, 1839, 1778, 1805, 1777, 2866, 1858, 1789, 1833, 1789,
- 1789, 1778, 1834, 1856, 2866, 1847, 1789, 1789, 1401, 1848,
- 1859, 1862, 1401, 1789, 1838, 1863, 1857, 1801, 1839, 1546,
- 1805, 1401, 1401, 1858, 1789, 1833, 1789, 1789, 1776, 1834,
- 1777, 1849, 1847, 1789, 1789, 1401, 1848, 1859, 1862, 1401,
- 1777, 1864, 1863, 1776, 1881, 1777, 1546, 1778, 1401, 1401,
- 1391, 1882, 1391, 1860, 942, 1845, 1806, 2866, 1849, 1865,
- 1789, 1866, 1778, 1861, 1846, 2866, 1867, 1868, 1864, 1789,
- 1789, 1789, 1846, 1850, 1869, 1789, 1908, 1949, 1401, 1547,
- 1860, 2866, 1401, 1806, 1789, 1823, 1865, 1789, 1866, 2866,
-
- 1861, 1401, 1401, 1867, 1868, 2866, 1789, 1789, 1789, 2866,
- 1850, 1869, 1789, 1908, 1949, 1401, 1547, 2866, 1881, 1401,
- 1952, 1789, 1823, 2866, 1776, 1882, 1777, 1777, 1401, 1401,
- 1391, 1391, 942, 1565, 1778, 1391, 1391, 2866, 2866, 2866,
- 1391, 1391, 1565, 1391, 1391, 1391, 1776, 1952, 1777, 1904,
- 1565, 1391, 1789, 1391, 1391, 1953, 1824, 1776, 2866, 1777,
- 1881, 2866, 942, 1873, 1777, 1789, 1825, 1882, 1874, 1941,
- 1778, 1778, 1846, 2866, 1789, 2866, 1904, 2866, 1789, 1789,
- 1846, 1391, 1953, 1824, 2866, 1853, 2866, 1789, 1789, 1789,
- 1875, 1956, 1789, 1825, 1942, 1874, 1881, 1928, 1789, 1789,
-
- 1776, 1789, 1777, 1882, 1881, 1789, 2866, 2234, 1391, 336,
- 1580, 1882, 1853, 1393, 1789, 1789, 1789, 1875, 1956, 2866,
- 1777, 1942, 1881, 2866, 1928, 1789, 1789, 1778, 1789, 1882,
- 1394, 1905, 1855, 1947, 1581, 1948, 1396, 2866, 1881, 2866,
- 1582, 1789, 1789, 1906, 2866, 1882, 1879, 1397, 1907, 1583,
- 1398, 1399, 2866, 2866, 1971, 1789, 2866, 2866, 1905, 1855,
- 1947, 1581, 1948, 1396, 1776, 2866, 1777, 1582, 1789, 1789,
- 1906, 1927, 2866, 1879, 1397, 1907, 1583, 1398, 1399, 1390,
- 1597, 1971, 1597, 1390, 1390, 1390, 1390, 1390, 1390, 1390,
- 1390, 1390, 1789, 1390, 1390, 2866, 1789, 1881, 1927, 1390,
-
- 1390, 1390, 1390, 1390, 1882, 1789, 1789, 1954, 1599, 1972,
- 2866, 1943, 1600, 1881, 1973, 1974, 2866, 1955, 2866, 1789,
- 1882, 1601, 1602, 1789, 1881, 1944, 2866, 1909, 2866, 2866,
- 1881, 1882, 1789, 1789, 1954, 1599, 1972, 1882, 1943, 1600,
- 2866, 1973, 1974, 1776, 1955, 1777, 1881, 1902, 1601, 1602,
- 1932, 2866, 1944, 1882, 1909, 1854, 1929, 1390, 1390, 1390,
- 1903, 1390, 1390, 1390, 1390, 1390, 1390, 1390, 1390, 1390,
- 1390, 1789, 1390, 1390, 1902, 1789, 1933, 1932, 1390, 1390,
- 1390, 1390, 1390, 1929, 1789, 1789, 1881, 1903, 1945, 1977,
- 1881, 1950, 1946, 1882, 1975, 1951, 2866, 1882, 1789, 1881,
-
- 2866, 1945, 1789, 1933, 1976, 1946, 1882, 1978, 1979, 2866,
- 2866, 1789, 1789, 2155, 2866, 1945, 1977, 2866, 1950, 1946,
- 1775, 1975, 1951, 1930, 2156, 2866, 1931, 1934, 1945, 1980,
- 2866, 1976, 1946, 2866, 1978, 1979, 1390, 1390, 1390, 2866,
- 1390, 1390, 1390, 1390, 1390, 1390, 1390, 1390, 1390, 1390,
- 1930, 1390, 1390, 1931, 1934, 2866, 1980, 1390, 1390, 1390,
- 1390, 1390, 1390, 1390, 2866, 1390, 1390, 1390, 1390, 1390,
- 1390, 1390, 1390, 1390, 1627, 2866, 1627, 1390, 1631, 1631,
- 1631, 1631, 1390, 1390, 1390, 1390, 1390, 1390, 1390, 657,
- 1633, 1390, 1390, 1390, 1390, 1390, 1390, 1390, 1390, 1390,
-
- 1981, 1390, 1390, 2866, 942, 1957, 1881, 1390, 1390, 1390,
- 1390, 1390, 1882, 1882, 1958, 1982, 1983, 1984, 1881, 1774,
- 2866, 2004, 1958, 2005, 1777, 1882, 1775, 1981, 942, 1988,
- 1960, 1778, 2006, 2007, 1881, 2008, 1882, 2866, 1958, 2249,
- 2238, 1882, 1982, 1983, 1984, 2317, 1958, 1881, 2004, 1881,
- 2005, 1880, 2866, 1881, 1882, 2866, 1882, 1960, 1962, 2006,
- 2007, 2866, 2008, 2866, 1959, 1390, 1390, 1390, 2866, 1390,
- 1390, 1390, 1390, 1390, 1390, 1390, 1390, 1390, 1390, 1895,
- 1390, 1390, 1961, 1895, 1964, 1962, 1390, 1390, 1390, 1390,
- 1390, 1959, 1895, 1895, 1880, 2866, 1881, 1593, 1989, 2866,
-
- 2009, 1881, 2011, 2866, 2866, 1882, 1895, 1990, 1882, 1961,
- 1895, 1964, 2579, 2012, 2866, 1990, 2866, 1881, 2866, 1895,
- 1895, 2137, 1895, 2424, 1882, 2866, 1910, 2009, 1775, 2011,
- 1881, 1881, 2138, 2234, 1963, 1895, 1895, 1882, 1882, 1880,
- 2012, 1881, 2238, 1993, 1390, 1390, 1390, 942, 1662, 1895,
- 1390, 1390, 1994, 1910, 2866, 1390, 1390, 1662, 1390, 1390,
- 1390, 1963, 1895, 1895, 1965, 1662, 1390, 1914, 1390, 1390,
- 1993, 1895, 1880, 2866, 1881, 1881, 2013, 2866, 2015, 1994,
- 1895, 1895, 1882, 1881, 2016, 2036, 1881, 2866, 2037, 2866,
- 1882, 1965, 2066, 1882, 1914, 1777, 1390, 2866, 1895, 2369,
-
- 1915, 2866, 1778, 2013, 1895, 2015, 2067, 1895, 1895, 1998,
- 2234, 2016, 2036, 1895, 1895, 2037, 1991, 2054, 1880, 2066,
- 1881, 2866, 2866, 1390, 1390, 1390, 2866, 1915, 1992, 1390,
- 1390, 1895, 2866, 2067, 1390, 1390, 1998, 1390, 1390, 1390,
- 1895, 1895, 1777, 1991, 2054, 1390, 1895, 1390, 1390, 1778,
- 1895, 2068, 1880, 2866, 1881, 1992, 2866, 2017, 2071, 1895,
- 1935, 1686, 2027, 1880, 2866, 1881, 1871, 2866, 2866, 1778,
- 2866, 2028, 2866, 1895, 1871, 1390, 1777, 1895, 2068, 2028,
- 1895, 2866, 2020, 1778, 1936, 2071, 1895, 1935, 2866, 2866,
- 1777, 1895, 2072, 1895, 1937, 1895, 1880, 1778, 1881, 1796,
-
- 2866, 1774, 1390, 1779, 1895, 1895, 1780, 1895, 1775, 2020,
- 1778, 1936, 2042, 2866, 2033, 2033, 2033, 2033, 1895, 2072,
- 1895, 1937, 1895, 1781, 1968, 2043, 1796, 1782, 1895, 1783,
- 2866, 1895, 1895, 2073, 2866, 1593, 1593, 1895, 1895, 2042,
- 1784, 2866, 2866, 1785, 1786, 1593, 2866, 2074, 2224, 2224,
- 2866, 1968, 2043, 1593, 1782, 1895, 1783, 1880, 2224, 1881,
- 2073, 1777, 2866, 2075, 1895, 1895, 2224, 1784, 1778, 1969,
- 1785, 1786, 1776, 1787, 2074, 1788, 1776, 1776, 1776, 1776,
- 1776, 1776, 1778, 1776, 1776, 1895, 1776, 1776, 2866, 1895,
- 2075, 2077, 1776, 1776, 1776, 1776, 1776, 1777, 1895, 1895,
-
- 1790, 1791, 2081, 1777, 1778, 1792, 2064, 2048, 2065, 2866,
- 1778, 2866, 1895, 2866, 1793, 1794, 1895, 2866, 2077, 2866,
- 2082, 2046, 2083, 2866, 2866, 1895, 1895, 1790, 1791, 2081,
- 2034, 2029, 1792, 2064, 2048, 2065, 1880, 1775, 1881, 2035,
- 2045, 1793, 1794, 2035, 2035, 2035, 2035, 2082, 2046, 2083,
- 1776, 1776, 1787, 2866, 1788, 1776, 1776, 1776, 1776, 1776,
- 1776, 1778, 1776, 1776, 1895, 1776, 1776, 2045, 1970, 1777,
- 2085, 1776, 1776, 1776, 1776, 1776, 1778, 1895, 1895, 2580,
- 1791, 1880, 1777, 1881, 1792, 2866, 1776, 2866, 1777, 1778,
- 2426, 1895, 1777, 1793, 1794, 1970, 2866, 2085, 2866, 1778,
-
- 2234, 2866, 2866, 2866, 1895, 1895, 2047, 1791, 2044, 1895,
- 2086, 1792, 1774, 1895, 1789, 2866, 1593, 2051, 1789, 1775,
- 1793, 1794, 1895, 1895, 1778, 2049, 2052, 1789, 1789, 1776,
- 1776, 1777, 1777, 2047, 2052, 2044, 1895, 2086, 1778, 1777,
- 1895, 1789, 1776, 2866, 1777, 1789, 1778, 2001, 2866, 1895,
- 1895, 2084, 2049, 2069, 1789, 1789, 2866, 2866, 1789, 2866,
- 2866, 1777, 1789, 2070, 2050, 1802, 2105, 1803, 1778, 2079,
- 1789, 1789, 1789, 2866, 2002, 1776, 2866, 1777, 2084, 2866,
- 2069, 2053, 2106, 1789, 1789, 1789, 2055, 2000, 2866, 1789,
- 2070, 2050, 1802, 2105, 1803, 2866, 2080, 1789, 1789, 1789,
-
- 1776, 2002, 1777, 1789, 2107, 2034, 2029, 1789, 2053, 2106,
- 1789, 1789, 1775, 2055, 2035, 1777, 1789, 1789, 2035, 2035,
- 2035, 2035, 1778, 2080, 2108, 2109, 2110, 2112, 1789, 1804,
- 1789, 2107, 1789, 1774, 1789, 2113, 2114, 2116, 2117, 2056,
- 1775, 1789, 1789, 1789, 1789, 2866, 2091, 2091, 2091, 2091,
- 2419, 2108, 2109, 2110, 2112, 1789, 1804, 2236, 2866, 1789,
- 2866, 2420, 2113, 2114, 2116, 2117, 2056, 2866, 1789, 1789,
- 1776, 1776, 657, 1807, 1776, 1776, 1776, 1776, 1776, 1776,
- 1778, 1776, 1776, 1808, 1776, 1776, 1808, 1808, 1808, 1808,
- 1776, 1776, 1776, 1776, 1776, 1808, 1808, 1809, 1810, 1811,
-
- 1808, 1808, 1808, 1812, 1808, 1808, 1813, 1808, 1808, 1808,
- 1814, 1808, 1815, 1816, 1817, 1808, 1808, 1808, 1808, 1808,
- 1808, 1808, 1808, 1808, 1809, 1810, 1811, 1808, 1808, 1808,
- 1812, 1808, 1808, 1813, 1808, 1808, 1808, 1814, 1808, 1815,
- 1816, 1817, 1808, 1808, 1808, 1808, 1808, 1808, 1776, 1776,
- 2092, 1777, 2119, 1774, 2866, 2120, 2121, 1775, 2866, 2093,
- 1775, 2123, 2125, 2093, 2093, 2093, 2093, 2126, 2127, 2866,
- 2161, 2092, 2162, 2866, 2163, 2087, 1826, 1789, 1775, 2119,
- 2093, 1789, 2120, 2121, 2093, 2093, 2093, 2093, 2123, 2125,
- 1789, 1789, 942, 2132, 2126, 2127, 2143, 2161, 1774, 2162,
-
- 1775, 2163, 2133, 1826, 1789, 1775, 410, 2097, 1789, 2097,
- 2133, 2098, 2098, 2098, 2098, 1774, 2164, 1789, 1789, 1776,
- 1777, 1777, 1775, 2143, 2097, 2866, 2097, 1778, 2098, 2098,
- 2098, 2098, 1773, 1774, 1773, 2168, 2100, 2100, 2100, 2100,
- 1775, 2317, 2866, 2164, 2866, 2866, 2581, 1789, 1773, 1827,
- 1773, 1789, 2100, 2100, 2100, 2100, 2134, 2428, 410, 2866,
- 1789, 1789, 2168, 2142, 2866, 2234, 1773, 2234, 1773, 2135,
- 2100, 2100, 2100, 2100, 1789, 2866, 1827, 2167, 1789, 1774,
- 2866, 410, 2866, 2134, 581, 2139, 1775, 1789, 1789, 1776,
- 2142, 1777, 1775, 2136, 2140, 2866, 2135, 2866, 2165, 2866,
-
- 2866, 1773, 2140, 1773, 2167, 2100, 2100, 2100, 2100, 2144,
- 2141, 2170, 2866, 2171, 2172, 2173, 2174, 1789, 2866, 2145,
- 2136, 1789, 1773, 2866, 1773, 2165, 2100, 2100, 2100, 2100,
- 1789, 1789, 1828, 2866, 2866, 2866, 2144, 2141, 2170, 2146,
- 2171, 2172, 2173, 2174, 1789, 1773, 2145, 1773, 1789, 2100,
- 2100, 2100, 2100, 2866, 2866, 1774, 2175, 1789, 1789, 1828,
- 2866, 1777, 1775, 1773, 2866, 1773, 2146, 2100, 2100, 2100,
- 2100, 410, 410, 1773, 2866, 1773, 2147, 2100, 2100, 2100,
- 2100, 2160, 2176, 2175, 2177, 1808, 1808, 1808, 2148, 2178,
- 2149, 1808, 2179, 2180, 1808, 2166, 2169, 2181, 1808, 2182,
-
- 1808, 1808, 1808, 2147, 2866, 2866, 2866, 2183, 2160, 2176,
- 2866, 2177, 1808, 1808, 1808, 2148, 2178, 2149, 1808, 2179,
- 2180, 1808, 2166, 2169, 2181, 1808, 2182, 1808, 1808, 1808,
- 1776, 1773, 1777, 1773, 2183, 2100, 2100, 2100, 2100, 2184,
- 2866, 1074, 2157, 2185, 2198, 2866, 2186, 2187, 2188, 1775,
- 2190, 2158, 2191, 2192, 2193, 2194, 2195, 2150, 1789, 2158,
- 2196, 2197, 1789, 2200, 2199, 2201, 2184, 2159, 2202, 1851,
- 2185, 1789, 1789, 2186, 2187, 2188, 2203, 2190, 2204, 2191,
- 2192, 2193, 2194, 2195, 2150, 1789, 2205, 2196, 2197, 1789,
- 2200, 2199, 2201, 2206, 2159, 2202, 1851, 2207, 1789, 1789,
-
- 1776, 2216, 1777, 2203, 2208, 2204, 2211, 2209, 2212, 2213,
- 2214, 2215, 2218, 2205, 2866, 2866, 2219, 2220, 2217, 2221,
- 2206, 2210, 2222, 2223, 2207, 2227, 2233, 2234, 1789, 1852,
- 2237, 2208, 1789, 2211, 2238, 2212, 2213, 2214, 2215, 2218,
- 2066, 1789, 1789, 2219, 2220, 2217, 2221, 1837, 2210, 2222,
- 2223, 2423, 2227, 2233, 2866, 1789, 1852, 2237, 2236, 1789,
- 2238, 2866, 2424, 2866, 2866, 2067, 2866, 2066, 1789, 1789,
- 1776, 1776, 942, 1870, 1837, 1776, 1776, 2866, 2866, 2866,
- 1778, 1776, 1872, 1776, 1776, 1776, 2866, 2866, 2866, 2866,
- 1872, 1776, 2067, 1776, 1776, 2866, 2866, 2866, 2866, 2238,
-
- 2866, 2866, 2229, 2229, 2866, 2866, 2866, 2231, 2231, 1774,
- 2866, 2866, 2229, 2225, 2866, 2230, 1775, 2231, 2866, 2073,
- 2229, 1776, 2866, 2238, 2226, 2231, 2232, 2232, 2866, 2866,
- 2238, 2228, 2255, 2239, 1774, 1774, 2232, 2866, 2232, 2866,
- 2225, 1775, 1775, 2866, 2232, 1774, 2073, 2866, 1776, 336,
- 1883, 2226, 1775, 1884, 2238, 2238, 2238, 1882, 2228, 2255,
- 2239, 2103, 2866, 2866, 2238, 2251, 2238, 2253, 2250, 2238,
- 1885, 2072, 1774, 2271, 1886, 1774, 1887, 2866, 2238, 1775,
- 1888, 2064, 1775, 2065, 2238, 2302, 2272, 1889, 2071, 1890,
- 1891, 1892, 2251, 2238, 2253, 2250, 2238, 2866, 2072, 2866,
-
- 2271, 1886, 2866, 1887, 2238, 2254, 2866, 1888, 2064, 2068,
- 2065, 2252, 2302, 2272, 1889, 2071, 1890, 1891, 1892, 1880,
- 1893, 2866, 1894, 1880, 1880, 1880, 1880, 1880, 1880, 1882,
- 1880, 1880, 2254, 1880, 1880, 2238, 2068, 2238, 2252, 1880,
- 1880, 1880, 1880, 1880, 2238, 2238, 2069, 1896, 1897, 2275,
- 2283, 1774, 1898, 2276, 2238, 2304, 2070, 2866, 1775, 2238,
- 1774, 1899, 1900, 2866, 1774, 2279, 2277, 1775, 2278, 2866,
- 2866, 1775, 2238, 2069, 1896, 1897, 2275, 2283, 2866, 1898,
- 2276, 2238, 2304, 2070, 2266, 2238, 2866, 2866, 1899, 1900,
- 2267, 2866, 2279, 2277, 2866, 2278, 2268, 1880, 1880, 1893,
-
- 2866, 1894, 1880, 1880, 1880, 1880, 1880, 1880, 1882, 1880,
- 1880, 2266, 1880, 1880, 2057, 2866, 2058, 2267, 1880, 1880,
- 1880, 1880, 1880, 2268, 2238, 2273, 2866, 1897, 2866, 1774,
- 2238, 1898, 2866, 2238, 2238, 2282, 1775, 2238, 2284, 2274,
- 1899, 1900, 2060, 2866, 2866, 2866, 2061, 2866, 2285, 2238,
- 2238, 2286, 2273, 1774, 1897, 2062, 2063, 2866, 1898, 2269,
- 1775, 2057, 2282, 2058, 1774, 2284, 2274, 1899, 1900, 2060,
- 2305, 1775, 2238, 2061, 2238, 2285, 1880, 1880, 2286, 1881,
- 1774, 2077, 2062, 2063, 2238, 2238, 2269, 1775, 2288, 2060,
- 2238, 2238, 2238, 2061, 2270, 2280, 2075, 2305, 2074, 2281,
-
- 2425, 2238, 2062, 2063, 2289, 1895, 1774, 2236, 2077, 1895,
- 2866, 2426, 1911, 1775, 1912, 2288, 2060, 1774, 1895, 1895,
- 2061, 2270, 2280, 2075, 1775, 2074, 2281, 2238, 2238, 2062,
- 2063, 2289, 1895, 2866, 942, 2287, 1895, 2238, 2238, 1911,
- 2293, 1912, 1775, 2290, 2133, 1895, 1895, 1880, 2238, 1881,
- 2291, 2866, 2133, 2292, 2238, 2238, 2238, 2294, 2238, 2275,
- 2313, 2238, 2238, 2276, 2295, 2299, 2238, 2293, 2238, 2300,
- 2290, 2238, 2238, 2238, 1840, 1895, 1913, 2291, 2303, 1895,
- 2292, 2296, 2107, 2105, 2294, 2301, 2275, 2313, 1895, 1895,
- 2276, 2295, 2299, 2151, 2866, 2866, 2300, 2866, 2866, 2866,
-
- 1775, 1840, 1895, 1913, 2152, 2303, 1895, 2866, 2296, 2107,
- 2105, 2866, 2301, 2866, 2238, 1895, 1895, 1880, 1880, 657,
- 1916, 1880, 1880, 1880, 1880, 1880, 1880, 1882, 1880, 1880,
- 1917, 1880, 1880, 1917, 1917, 1917, 1917, 1880, 1880, 1880,
- 1880, 1880, 1917, 1917, 1918, 1919, 1920, 1917, 1917, 1917,
- 1921, 1917, 1917, 1922, 1917, 1917, 1917, 1923, 1917, 1924,
- 1925, 1926, 1917, 1917, 1917, 1917, 1917, 1917, 1917, 1917,
- 1917, 1918, 1919, 1920, 1917, 1917, 1917, 1921, 1917, 1917,
- 1922, 1917, 1917, 1917, 1923, 1917, 1924, 1925, 1926, 1917,
- 1917, 1917, 1917, 1917, 1917, 1880, 1880, 2238, 1881, 2238,
-
- 942, 2128, 2866, 942, 2132, 1774, 2297, 2866, 1774, 2238,
- 2130, 1775, 1775, 2133, 2110, 1775, 2298, 2306, 2130, 2866,
- 2238, 2133, 2238, 1938, 1895, 2238, 2238, 2079, 1895, 2238,
- 2866, 2866, 2238, 2297, 2308, 2081, 2866, 1895, 1895, 2238,
- 2866, 2110, 1774, 2298, 2306, 2238, 2307, 2866, 2108, 1775,
- 1938, 1895, 2866, 1774, 2080, 1895, 2309, 2310, 2311, 2113,
- 1775, 2308, 2081, 2238, 1895, 1895, 1880, 2238, 1881, 2238,
- 2238, 2238, 2238, 2307, 2238, 2108, 2109, 2114, 2238, 2312,
- 2866, 2080, 2106, 942, 2128, 2112, 2113, 1841, 1835, 2116,
- 1836, 2866, 2117, 2130, 1895, 1833, 1939, 2866, 1895, 1834,
-
- 1844, 2130, 2866, 2109, 2114, 2238, 2312, 1895, 1895, 2106,
- 942, 2128, 2112, 2866, 1841, 1835, 2116, 1836, 1829, 2117,
- 2130, 1895, 1833, 1939, 1777, 1895, 1834, 1844, 2130, 942,
- 2132, 1778, 2238, 1774, 1895, 1895, 1880, 1775, 1881, 2133,
- 1775, 2153, 2155, 1830, 1795, 2317, 2866, 2133, 1775, 1775,
- 1777, 2238, 2154, 2156, 2238, 1856, 1838, 1778, 2866, 2866,
- 1839, 2866, 2238, 2238, 1895, 1777, 1686, 2315, 1895, 2866,
- 1830, 2317, 1778, 2314, 1775, 2866, 2316, 1895, 1895, 1940,
- 2866, 2866, 1856, 1838, 2316, 2043, 2317, 1839, 2238, 2318,
- 1777, 1895, 1857, 1858, 1777, 1895, 1777, 1778, 2866, 2866,
-
- 2314, 1778, 1777, 1778, 1895, 1895, 1940, 2866, 1881, 1778,
- 2866, 2317, 2043, 1796, 2866, 2317, 2318, 2317, 2866, 1857,
- 1858, 2866, 1777, 2317, 1859, 1797, 2042, 2866, 2044, 1778,
- 2866, 2866, 1917, 1917, 1917, 1798, 2866, 1777, 1917, 1862,
- 1796, 1917, 2866, 2317, 1778, 1917, 1842, 1917, 1917, 1917,
- 2866, 1859, 1797, 2042, 1799, 2044, 1843, 1777, 2317, 1917,
- 1917, 1917, 1798, 1777, 1778, 1917, 1862, 1800, 1917, 1776,
- 1778, 1777, 1917, 1842, 1917, 1917, 1917, 1880, 2317, 1881,
- 1863, 1799, 2866, 1843, 2317, 1776, 2866, 1777, 2866, 2866,
- 2866, 1777, 2866, 1776, 1800, 1777, 1818, 1789, 1778, 1777,
-
- 2866, 1789, 2866, 2048, 2866, 1895, 1778, 1863, 2866, 1895,
- 1789, 1789, 2317, 1789, 2866, 2046, 1966, 1801, 1895, 1895,
- 2317, 1805, 2866, 1818, 1789, 1789, 1789, 1789, 1789, 1821,
- 2048, 1776, 1895, 1777, 1789, 1789, 1895, 1789, 1789, 1864,
- 1789, 1831, 2046, 1966, 1801, 1895, 1895, 1880, 1805, 1881,
- 1777, 1865, 1789, 1789, 1789, 1832, 1821, 1778, 1866, 1806,
- 1777, 1789, 1789, 1789, 2866, 1833, 1864, 1778, 1831, 1834,
- 2866, 2317, 1789, 1789, 2866, 1895, 1967, 1867, 1865, 1895,
- 1868, 2317, 1832, 942, 1845, 1866, 1806, 2045, 1895, 1895,
- 1789, 1778, 1833, 1846, 1869, 2866, 1834, 2047, 2004, 1789,
-
- 1789, 1846, 1895, 1967, 1867, 2317, 1895, 1868, 2866, 2866,
- 2866, 2866, 2005, 2866, 2045, 1895, 1895, 1880, 1880, 942,
- 1985, 1869, 1880, 1880, 2047, 2004, 1777, 1882, 1880, 1987,
- 1880, 1880, 1880, 1778, 1860, 1777, 1777, 1987, 1880, 2005,
- 1880, 1880, 1778, 1778, 1861, 2866, 1776, 2317, 1777, 1776,
- 2866, 1777, 1819, 2427, 2866, 2006, 2317, 2317, 2866, 1777,
- 2236, 1860, 2007, 2866, 2428, 2866, 1778, 2008, 1880, 2866,
- 2009, 1861, 1820, 2866, 1789, 2011, 1822, 1789, 1789, 1819,
- 2317, 1824, 2006, 1847, 1776, 1777, 1777, 1789, 1823, 2007,
- 1789, 1825, 1778, 2866, 2008, 1880, 1776, 2009, 1777, 1820,
-
- 1777, 1789, 2011, 1822, 1789, 1789, 2317, 1778, 1824, 1848,
- 1847, 2866, 1789, 1777, 1789, 1823, 1789, 1789, 1825, 2866,
- 1778, 2317, 942, 1873, 1789, 1789, 1789, 2012, 1789, 2866,
- 1778, 1999, 1846, 2049, 2317, 1777, 1848, 1789, 1789, 1789,
- 1846, 1777, 1778, 1789, 2317, 2866, 2050, 1776, 1778, 1777,
- 1777, 1789, 1789, 1789, 2012, 1789, 2317, 1778, 1999, 2013,
- 2049, 2866, 2317, 1777, 1789, 1789, 1776, 2866, 1777, 1777,
- 1778, 2317, 1849, 2050, 1850, 1853, 1778, 2866, 2015, 1789,
- 2866, 2866, 2016, 2866, 2317, 1776, 2013, 1777, 1789, 1789,
- 2317, 1874, 2866, 1777, 1789, 1875, 2866, 1854, 1789, 1849,
-
- 1778, 1850, 1853, 2866, 2003, 2015, 1789, 1789, 1789, 2016,
- 2866, 2017, 2018, 1789, 2317, 1789, 1789, 1789, 1874, 1778,
- 1871, 1789, 1875, 2019, 2866, 1789, 1789, 1789, 1871, 2238,
- 1776, 2003, 1777, 2317, 1789, 1789, 1776, 1776, 942, 1870,
- 1789, 1776, 1776, 2086, 1789, 2866, 1778, 1776, 1872, 1776,
- 1776, 1776, 2866, 1789, 1789, 2866, 1872, 1776, 1789, 1776,
- 1776, 1777, 1855, 1776, 2866, 1777, 1593, 2051, 1778, 2238,
- 2086, 1789, 1789, 1777, 1778, 2085, 2052, 2866, 2866, 1777,
- 1778, 2238, 2317, 2866, 2052, 1789, 1778, 1776, 2317, 1855,
- 2083, 1789, 2866, 2866, 2317, 1789, 2866, 2056, 1789, 1789,
-
- 2317, 2054, 2085, 2053, 1789, 1789, 2866, 2866, 2866, 2238,
- 2082, 2439, 2439, 1777, 1776, 336, 2038, 2083, 1789, 1780,
- 1778, 2439, 1789, 1778, 2056, 942, 1873, 2866, 2054, 2439,
- 2053, 1789, 1789, 1778, 2317, 1846, 1781, 2082, 2238, 1879,
- 2039, 2021, 1783, 1846, 1777, 2238, 2040, 2317, 1778, 2866,
- 2119, 1778, 2022, 1784, 2123, 2041, 1785, 1786, 1876, 1877,
- 1878, 2238, 2317, 2866, 2238, 2317, 1879, 2039, 2866, 1783,
- 1776, 2866, 1777, 2040, 2126, 2866, 2121, 2119, 2866, 2866,
- 1784, 2123, 2041, 1785, 1786, 1773, 2057, 2866, 2058, 1773,
- 1773, 1773, 1773, 1773, 1773, 1775, 1773, 1773, 1789, 1773,
-
- 1773, 2126, 1789, 2121, 2866, 1773, 1773, 1773, 1773, 1773,
- 1777, 1789, 1789, 1777, 2060, 2023, 2238, 1778, 2061, 2325,
- 1778, 2866, 1778, 2238, 2866, 1789, 2024, 2062, 2063, 1789,
- 2120, 2317, 2125, 2326, 2317, 2055, 2317, 2025, 1789, 1789,
- 2866, 2060, 2866, 2866, 1778, 2061, 2325, 2234, 2026, 1776,
- 2866, 1777, 2866, 2020, 2062, 2063, 1068, 2120, 2317, 2125,
- 2326, 2000, 2055, 1773, 1773, 1773, 2866, 1774, 1773, 1773,
- 1773, 1773, 1773, 1773, 1775, 1773, 1773, 1789, 1773, 1773,
- 2020, 1789, 1774, 1068, 1773, 1773, 1773, 1773, 1773, 1775,
- 1789, 1789, 1686, 2027, 1774, 2238, 2430, 2866, 2127, 2866,
-
- 1778, 1775, 2028, 2238, 1789, 2137, 2866, 2866, 1789, 2866,
- 2028, 2234, 1775, 2151, 2317, 2238, 2138, 1789, 1789, 2866,
- 1775, 942, 2418, 2430, 2152, 2127, 2238, 2866, 2866, 2374,
- 2234, 2418, 2866, 2084, 2238, 2358, 2866, 2866, 1774, 2418,
- 2866, 2866, 1773, 1773, 1773, 1775, 1774, 1773, 1773, 1773,
- 1773, 1773, 1773, 1775, 1773, 1773, 2374, 1773, 1773, 2238,
- 2084, 2866, 2358, 1773, 1773, 1773, 1773, 1773, 1773, 1773,
- 2866, 1774, 1773, 1773, 1773, 1773, 1773, 1773, 1775, 1773,
- 2097, 2866, 2097, 1773, 2101, 2101, 2101, 2101, 1773, 1773,
- 1773, 1773, 1773, 1773, 1773, 657, 2103, 1773, 1773, 1773,
-
- 1773, 1773, 1773, 1775, 1773, 1773, 2866, 1773, 1773, 2866,
- 2866, 2153, 1774, 1773, 1773, 1773, 1773, 1773, 1775, 1775,
- 2155, 1774, 2154, 1774, 2234, 2866, 2233, 1775, 1775, 1774,
- 1775, 2156, 2238, 2238, 2385, 2234, 1775, 2388, 2431, 1774,
- 2379, 2238, 2238, 2866, 2238, 1774, 1775, 2321, 303, 1774,
- 2238, 2866, 1775, 2233, 2322, 2866, 1775, 1776, 2866, 1777,
- 2238, 2319, 2001, 2866, 2388, 2431, 2238, 2379, 2320, 2866,
- 2238, 1773, 1773, 1773, 2866, 1774, 1773, 1773, 1773, 1773,
- 1773, 1773, 1775, 1773, 1773, 1789, 1773, 1773, 2319, 2002,
- 303, 2337, 1773, 1773, 1773, 1773, 1773, 2866, 1789, 1789,
-
- 575, 575, 575, 575, 2866, 2866, 787, 302, 2234, 2234,
- 2320, 2866, 1789, 2323, 2234, 787, 2002, 2866, 2337, 787,
- 787, 787, 787, 2324, 302, 1789, 1789, 2234, 1774, 410,
- 2236, 1383, 787, 2227, 1774, 1775, 787, 787, 787, 787,
- 2323, 1775, 2866, 2866, 2234, 2866, 2432, 2866, 410, 2238,
- 1773, 1773, 1773, 942, 2128, 2238, 1773, 1773, 1383, 2866,
- 2227, 1775, 1773, 2130, 1773, 1773, 1773, 787, 302, 2332,
- 2342, 2130, 1773, 2432, 1773, 1773, 787, 2434, 2866, 1774,
- 787, 787, 787, 787, 1774, 1774, 1775, 1774, 2234, 2866,
- 2234, 1775, 1775, 2866, 1775, 2866, 2332, 2342, 2866, 1766,
-
- 2238, 2343, 1773, 2386, 2434, 2238, 2238, 2250, 2238, 2866,
- 2387, 2333, 2866, 410, 2234, 2866, 2234, 2866, 1774, 1772,
- 2331, 2359, 2866, 2866, 2385, 1775, 1766, 2866, 2343, 1773,
- 1773, 1773, 2866, 2131, 2250, 1773, 1773, 2433, 2333, 2238,
- 1775, 1773, 1774, 1773, 1773, 1773, 1772, 2331, 2359, 1775,
- 1774, 1773, 2866, 1773, 1773, 2334, 2866, 1775, 1774, 2436,
- 2866, 410, 1774, 2238, 2433, 1775, 2335, 1593, 2340, 1775,
- 2866, 2238, 2437, 1774, 2866, 1775, 2866, 2341, 2435, 2238,
- 1775, 1773, 2334, 2238, 2438, 2341, 2436, 2336, 2440, 2238,
- 2866, 2338, 2441, 2335, 2238, 2339, 1774, 2234, 2344, 2437,
-
- 1774, 2362, 2866, 1775, 2866, 2435, 1774, 1775, 1773, 2240,
- 2442, 2438, 2241, 1775, 2336, 2440, 1775, 2238, 2338, 2441,
- 2345, 2238, 2339, 2866, 2389, 2344, 2346, 2238, 2362, 2242,
- 2238, 2236, 2347, 2243, 2866, 2244, 2866, 2442, 2866, 2443,
- 2348, 2866, 2348, 2866, 2866, 2234, 2245, 2345, 2866, 2246,
- 2247, 2866, 2866, 2346, 2866, 2866, 2866, 2234, 2866, 2347,
- 2243, 2866, 2244, 2234, 2234, 2866, 2443, 2866, 2350, 2355,
- 2357, 2356, 2351, 2245, 2866, 2234, 2246, 2247, 2057, 2234,
- 2058, 2352, 2353, 2381, 2360, 2444, 2363, 305, 2234, 2866,
- 2382, 2866, 2866, 2866, 2361, 2350, 2355, 2357, 2356, 2351,
-
- 2866, 2238, 2866, 2372, 2380, 2248, 2060, 2866, 2352, 2353,
- 2061, 2360, 2444, 2363, 2234, 2866, 2866, 2866, 2866, 2062,
- 2063, 2361, 2866, 2234, 2866, 2445, 2446, 2866, 2866, 2365,
- 2372, 2447, 2248, 2060, 2364, 2866, 2866, 2061, 2866, 2234,
- 2866, 2370, 2866, 2866, 2366, 2234, 2062, 2063, 657, 2256,
- 2866, 2866, 2445, 2446, 2368, 2866, 2365, 2866, 2447, 2234,
- 305, 2364, 2390, 2234, 2866, 2448, 2866, 2449, 2371, 2236,
- 2238, 2366, 2373, 2257, 2258, 2259, 2450, 2380, 2234, 2260,
- 2383, 2368, 2261, 2234, 2375, 2451, 2262, 2234, 2263, 2264,
- 2265, 2866, 2448, 2378, 2449, 2371, 2866, 2866, 2866, 2373,
-
- 2257, 2258, 2259, 2450, 2866, 2866, 2260, 2383, 2866, 2261,
- 2866, 2375, 2451, 2262, 2866, 2263, 2264, 2265, 1776, 1787,
- 2378, 1788, 1776, 1776, 1776, 1776, 1776, 1776, 1778, 1776,
- 1776, 2234, 1776, 1776, 2866, 2866, 2866, 2866, 1776, 1776,
- 1776, 1776, 2317, 2866, 2866, 2376, 1790, 1791, 657, 2391,
- 788, 1792, 2452, 2453, 2866, 2866, 2236, 2454, 2234, 788,
- 1793, 1794, 2866, 788, 788, 788, 788, 2866, 2866, 2866,
- 2234, 2234, 2376, 1790, 1791, 2866, 2234, 2866, 1792, 2452,
- 2453, 2866, 2866, 2377, 2454, 2866, 2866, 1793, 1794, 2234,
- 2866, 2866, 2866, 2866, 2866, 2866, 1776, 1776, 1787, 2866,
-
- 1788, 1776, 1776, 1776, 1776, 1776, 1776, 1778, 1776, 1776,
- 2377, 1776, 1776, 2234, 2866, 2866, 2866, 1776, 1776, 1776,
- 1776, 2317, 2866, 2866, 2866, 2393, 1791, 2395, 2384, 2866,
- 1792, 2866, 304, 2866, 2866, 2236, 2234, 788, 2457, 1793,
- 1794, 788, 788, 788, 788, 2234, 2866, 788, 2419, 2234,
- 2866, 304, 2866, 1791, 2395, 2236, 788, 1792, 2458, 2420,
- 788, 788, 788, 788, 2866, 2457, 1793, 1794, 2234, 2234,
- 2459, 2866, 2866, 2866, 2460, 1776, 1776, 307, 1777, 307,
- 2866, 308, 308, 308, 308, 2458, 307, 2462, 307, 2234,
- 308, 308, 308, 308, 2234, 2463, 2866, 2459, 2234, 2866,
-
- 2866, 2460, 942, 2418, 1789, 2464, 2394, 2866, 1789, 2866,
- 2397, 1802, 2418, 1803, 2462, 2866, 2866, 1789, 1789, 2866,
- 2418, 2234, 2463, 2866, 2234, 2866, 2866, 2465, 2866, 2866,
- 2866, 1789, 2464, 2394, 2866, 1789, 2866, 2234, 1802, 2399,
- 1803, 2866, 2866, 2866, 1789, 1789, 1776, 2866, 1777, 2396,
- 2234, 307, 2455, 307, 2465, 312, 312, 312, 312, 2866,
- 2866, 2866, 2866, 2234, 2866, 2866, 2456, 2466, 2866, 2866,
- 2866, 2467, 2866, 2468, 1789, 1804, 2396, 2866, 1789, 2866,
- 2404, 2469, 2234, 2470, 2866, 2416, 2234, 1789, 1789, 942,
- 2413, 2234, 2236, 2456, 2466, 2866, 2866, 2236, 2467, 2415,
-
- 2468, 1789, 1804, 2866, 2866, 1789, 2234, 2415, 2469, 2866,
- 2470, 2234, 2866, 2866, 1789, 1789, 1776, 1776, 657, 1807,
- 1776, 1776, 1776, 1776, 1776, 1776, 1778, 1776, 1776, 1808,
- 1776, 1776, 1808, 1808, 1808, 1808, 1776, 1776, 1776, 1776,
- 2317, 1808, 1808, 1809, 1810, 1811, 1808, 1808, 1808, 1812,
- 1808, 1808, 1813, 1808, 1808, 1808, 1814, 1808, 1815, 1816,
- 1817, 1808, 1808, 1808, 1808, 1808, 1808, 1808, 1808, 1808,
- 1809, 1810, 1811, 1808, 1808, 1808, 1812, 1808, 1808, 1813,
- 1808, 1808, 1808, 1814, 1808, 1815, 1816, 1817, 1808, 1808,
- 1808, 1808, 1808, 1808, 1776, 1776, 2866, 1777, 2866, 2866,
-
- 2866, 2471, 2866, 2866, 2866, 2866, 2866, 2472, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2473, 2474, 2866, 2475, 2476,
- 2234, 2866, 1826, 1789, 2234, 2866, 2234, 1789, 2471, 2398,
- 2866, 2866, 2477, 2400, 2472, 2234, 1789, 1789, 2866, 2401,
- 2866, 2478, 2473, 2474, 2407, 2475, 2476, 2479, 2480, 1826,
- 1789, 2484, 2234, 2866, 1789, 2402, 2398, 2866, 2487, 2477,
- 2400, 2866, 2866, 1789, 1789, 1776, 2401, 1777, 2478, 2866,
- 303, 2407, 2866, 2866, 2479, 2480, 2866, 2866, 2484, 2866,
- 2866, 2866, 2402, 2234, 2866, 2487, 2403, 2488, 2866, 2866,
- 2224, 2224, 2237, 1789, 2234, 1827, 2866, 1789, 2234, 2405,
-
- 2224, 2866, 2866, 2489, 2408, 2587, 1789, 1789, 2224, 2866,
- 2234, 2406, 2234, 2403, 2488, 2866, 2490, 2866, 2866, 2237,
- 1789, 2866, 1827, 2234, 1789, 2866, 2405, 2866, 2866, 2866,
- 2489, 2408, 2587, 1789, 1789, 1776, 2866, 1777, 2406, 2234,
- 2866, 2866, 2409, 2490, 2866, 2866, 942, 2415, 2234, 2234,
- 2234, 2423, 2866, 2410, 2866, 2234, 2415, 2505, 2236, 2234,
- 2504, 2501, 2424, 1789, 2415, 2411, 2234, 1789, 2234, 2409,
- 2488, 2412, 2234, 942, 2417, 2425, 1789, 1789, 1828, 2234,
- 2410, 2236, 2236, 2418, 2505, 2866, 2426, 2504, 2501, 2502,
- 1789, 2418, 2411, 2866, 1789, 2234, 2234, 2488, 2412, 2866,
-
- 2866, 581, 581, 1789, 1789, 1828, 2866, 1777, 2866, 2866,
- 2234, 581, 581, 2421, 2866, 2518, 2502, 2866, 2427, 581,
- 2236, 2234, 581, 2234, 2234, 2236, 2234, 793, 2489, 2428,
- 581, 1808, 1808, 1808, 2234, 2225, 2517, 1808, 793, 2234,
- 1808, 2490, 2518, 2234, 1808, 2235, 1808, 1808, 1808, 2866,
- 2866, 2866, 2236, 2866, 793, 2489, 2866, 2234, 1808, 1808,
- 1808, 2503, 2225, 2517, 1808, 793, 2234, 1808, 2490, 2866,
- 2866, 1808, 2519, 1808, 1808, 1808, 1776, 2234, 1777, 2866,
- 2866, 2866, 2866, 2224, 2224, 2229, 2229, 2866, 2503, 2541,
- 2866, 2234, 2866, 2224, 2866, 2229, 2866, 2866, 2866, 2519,
-
- 2590, 2224, 2234, 2229, 1789, 2226, 2866, 2234, 1789, 2481,
- 2234, 2228, 942, 2422, 2866, 1851, 2541, 1789, 1789, 2231,
- 2231, 2234, 2418, 2234, 2538, 2482, 2540, 2590, 2866, 2231,
- 2418, 1789, 2226, 2866, 2234, 1789, 2481, 2231, 2228, 2866,
- 2866, 2234, 1851, 2521, 1789, 1789, 1776, 2866, 1777, 2866,
- 2230, 2538, 2482, 2540, 2232, 2232, 2866, 2866, 2234, 1074,
- 2429, 2234, 2234, 2558, 2232, 2234, 2232, 2236, 2539, 1074,
- 2521, 2520, 2232, 2866, 1789, 1852, 2234, 1074, 1789, 2483,
- 2483, 2234, 1074, 1074, 2866, 1389, 2391, 1789, 1789, 2483,
- 2558, 2483, 1074, 2236, 2866, 2539, 2866, 2483, 2520, 2235,
-
- 1074, 1789, 1852, 2866, 2234, 1789, 2236, 2866, 1389, 2866,
- 2866, 2523, 1389, 2866, 1789, 1789, 1776, 1776, 942, 1870,
- 2234, 1776, 1776, 2866, 2866, 2866, 1778, 1776, 1872, 1776,
- 1776, 1776, 2866, 2866, 2866, 1389, 1872, 1776, 2523, 1776,
- 2317, 2866, 2866, 2866, 2866, 2866, 2234, 2866, 2485, 2866,
- 2866, 2562, 2866, 2234, 2234, 2234, 303, 2866, 2866, 2866,
- 2866, 2591, 2866, 2866, 2506, 2234, 2866, 1776, 2234, 1204,
- 2866, 2234, 2524, 2486, 2557, 2485, 2866, 1578, 2562, 2323,
- 2234, 2866, 2866, 2866, 2234, 2526, 2525, 2522, 2591, 2527,
- 2530, 2506, 2866, 2866, 1776, 1776, 1204, 1777, 2866, 2524,
-
- 2486, 2557, 2866, 2866, 1578, 2866, 2323, 2866, 2866, 2866,
- 2866, 2866, 2526, 2525, 2522, 2866, 2527, 2530, 2866, 2866,
- 2866, 2866, 2866, 1789, 2234, 2533, 2866, 1789, 2866, 2234,
- 1999, 2866, 2234, 2866, 2866, 2234, 1789, 1789, 2866, 2866,
- 2234, 2528, 2234, 2529, 2866, 2531, 2866, 2534, 2542, 2532,
- 1789, 1206, 2533, 2866, 1789, 303, 2866, 1999, 2866, 2866,
- 2234, 942, 2422, 1789, 1789, 1776, 2866, 1777, 2528, 2234,
- 2529, 2418, 2531, 2234, 2534, 2542, 2532, 2588, 1206, 2418,
- 2234, 2537, 2866, 2234, 2866, 2535, 2234, 877, 2866, 2866,
- 2589, 2866, 2866, 1789, 1577, 2536, 2866, 1789, 2866, 2866,
-
- 2866, 942, 2413, 2003, 2588, 2578, 1789, 1789, 2537, 2236,
- 2234, 2415, 2535, 2234, 877, 2374, 2866, 2589, 2866, 2415,
- 1789, 1577, 2536, 2234, 1789, 2543, 2866, 2234, 2866, 2866,
- 2003, 2866, 2578, 1789, 1789, 1776, 1776, 942, 1870, 1579,
- 1776, 1776, 2374, 2866, 2866, 1778, 1776, 1872, 1776, 1776,
- 1776, 2866, 2543, 2866, 2866, 1872, 1776, 2234, 1776, 2317,
- 1205, 2866, 2234, 2866, 2866, 2234, 1579, 878, 2866, 2866,
- 2526, 2866, 2234, 2234, 2527, 2234, 2866, 2544, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2234, 1776, 1205, 2866, 2549,
- 2234, 2866, 2583, 2036, 878, 2234, 2545, 2526, 2234, 2037,
-
- 2590, 2527, 2234, 2234, 2544, 2234, 2550, 2325, 2234, 2866,
- 2866, 2326, 2866, 1776, 336, 2327, 2549, 2866, 2241, 2583,
- 2036, 2546, 1775, 2545, 2866, 2866, 2037, 2590, 2866, 2866,
- 2866, 2234, 2866, 2550, 2325, 2242, 2238, 2866, 2326, 2328,
- 2547, 2244, 1774, 2866, 2379, 2329, 2234, 2349, 2546, 1775,
- 2548, 2234, 2245, 2597, 2330, 2246, 2247, 2866, 2552, 2234,
- 2866, 2866, 2866, 2238, 2591, 2551, 2328, 2547, 2244, 2866,
- 2866, 2379, 2329, 2866, 2349, 2866, 2866, 2548, 2584, 2245,
- 2597, 2330, 2246, 2247, 2348, 2552, 2354, 2866, 2866, 2866,
- 2866, 2591, 2551, 2236, 2866, 2866, 2866, 2866, 2866, 2866,
-
- 2866, 2866, 2866, 2866, 2866, 2584, 2866, 2234, 2866, 2234,
- 2866, 2234, 2350, 2866, 2866, 2553, 2351, 2234, 2866, 2601,
- 2234, 2866, 2234, 2866, 2234, 2352, 2353, 2866, 2866, 2563,
- 2866, 2554, 2866, 2866, 2866, 2234, 2564, 2866, 2866, 2350,
- 2556, 2555, 2553, 2351, 2866, 2866, 2601, 2866, 2866, 2866,
- 2565, 2866, 2352, 2353, 2491, 2866, 2563, 2492, 2554, 2234,
- 2866, 2236, 2866, 2564, 2866, 2568, 2866, 2556, 2555, 2234,
- 2388, 2866, 2866, 2611, 2493, 2234, 2367, 2565, 2494, 2866,
- 2495, 2866, 2866, 2234, 2582, 2567, 2234, 2866, 2501, 2866,
- 305, 2496, 2568, 2234, 2497, 2498, 410, 2388, 2866, 2866,
-
- 2611, 876, 2566, 2234, 2866, 2494, 2866, 2495, 2569, 2570,
- 2383, 2582, 2567, 2612, 2866, 2501, 2866, 2866, 2496, 2866,
- 2234, 2497, 2498, 2348, 2866, 2348, 2866, 2866, 876, 2566,
- 2866, 2866, 2866, 2613, 2866, 2569, 2866, 2383, 2234, 2866,
- 2612, 2866, 2866, 2866, 2866, 2866, 2234, 305, 2234, 2866,
- 2499, 2350, 2574, 2234, 2571, 2351, 2866, 2866, 2573, 2866,
- 2613, 2866, 2866, 2234, 2352, 2353, 2866, 2866, 2572, 2866,
- 2866, 2358, 2866, 2866, 2866, 2615, 2866, 2499, 2350, 2598,
- 2866, 2571, 2351, 2234, 2866, 2573, 2357, 2866, 2866, 2866,
- 2866, 2352, 2353, 657, 2507, 2572, 2866, 2866, 2358, 1686,
-
- 1686, 2866, 2615, 2866, 2866, 2354, 2598, 2866, 2866, 1686,
- 2234, 2866, 2236, 2357, 2866, 2234, 2866, 1686, 2508, 2509,
- 2510, 2234, 942, 2422, 2511, 2234, 2866, 2512, 2575, 1774,
- 2349, 2513, 2418, 2514, 2515, 2516, 1775, 2866, 2866, 2576,
- 2418, 2866, 2359, 2866, 2234, 2508, 2509, 2510, 2616, 2866,
- 2238, 2511, 2585, 2866, 2512, 2575, 2866, 2349, 2513, 2617,
- 2514, 2515, 2516, 336, 2592, 2586, 2576, 2324, 302, 2359,
- 2866, 2602, 2866, 2866, 2236, 2616, 787, 1593, 1593, 2585,
- 787, 787, 787, 787, 2603, 2866, 2617, 1593, 2593, 2618,
- 2594, 2594, 2586, 2866, 626, 1593, 2595, 2595, 2602, 2234,
-
- 2594, 2619, 2866, 627, 2866, 2355, 2595, 2356, 2594, 2620,
- 2866, 2603, 2234, 2866, 2595, 2593, 2618, 2866, 2234, 2866,
- 2866, 626, 2866, 2866, 2866, 2866, 2866, 2866, 2619, 2362,
- 627, 2866, 2355, 2866, 2356, 2866, 2620, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2360,
- 2363, 2866, 2621, 2866, 2866, 2866, 2362, 2866, 2866, 2361,
- 2365, 2622, 2866, 2366, 2623, 2866, 2866, 2364, 2866, 2866,
- 2866, 2368, 2866, 2624, 2866, 2370, 2360, 2363, 2369, 2621,
- 2372, 2866, 2866, 2373, 2866, 2866, 2361, 2365, 2622, 2866,
- 2366, 2623, 2625, 2866, 2364, 2866, 2866, 2866, 2368, 2866,
-
- 2624, 2866, 2371, 2866, 2866, 2866, 2866, 2372, 657, 2391,
- 2373, 2375, 2866, 2866, 2596, 2866, 2236, 2866, 2866, 2625,
- 305, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2378, 2371,
- 2866, 2866, 2376, 2384, 2866, 2866, 2866, 304, 2375, 2599,
- 2236, 2866, 788, 2866, 2866, 2866, 788, 788, 788, 788,
- 2866, 2866, 2600, 2866, 2866, 2378, 2627, 2866, 2866, 2376,
- 2626, 2866, 2866, 2866, 2404, 2866, 2599, 2866, 2403, 2629,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2600,
- 2866, 2628, 2866, 2866, 2866, 2866, 2866, 2626, 2630, 2405,
- 2866, 2866, 2866, 2866, 2866, 2403, 2629, 2866, 2866, 2866,
-
- 2406, 2866, 2866, 2407, 2866, 2866, 2866, 2866, 2628, 2866,
- 2408, 2866, 2866, 2866, 2866, 2630, 2405, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2631, 2866, 2866, 2406, 2866, 2866,
- 2407, 2866, 2866, 2866, 2866, 2632, 2866, 2408, 2409, 2866,
- 2866, 2866, 2410, 2866, 2412, 2633, 2605, 2866, 2866, 2411,
- 2866, 2631, 2866, 2866, 2866, 2866, 2866, 2634, 2604, 2866,
- 2866, 2866, 2632, 2866, 2866, 2409, 2866, 2866, 2866, 2410,
- 2866, 2412, 2633, 2605, 2866, 2866, 2411, 2866, 2866, 2866,
- 2866, 2866, 2866, 2607, 2634, 2604, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 942, 2413, 2866, 2606,
-
- 2866, 2866, 2866, 2866, 2236, 2608, 2415, 2866, 2635, 2609,
- 2607, 2866, 2866, 2636, 2415, 2866, 2610, 2866, 2866, 942,
- 2415, 2866, 2866, 2416, 2439, 2439, 2606, 2866, 2638, 2415,
- 2236, 2639, 2608, 2866, 2439, 2635, 2609, 2415, 942, 2417,
- 2636, 2866, 2439, 2610, 2866, 2640, 2236, 2866, 2418, 581,
- 2421, 2641, 942, 2415, 2866, 2638, 2418, 2236, 2639, 581,
- 2866, 2642, 2415, 1074, 2429, 2614, 2643, 581, 2644, 2645,
- 2415, 2236, 2640, 1074, 2866, 793, 2646, 2646, 2641, 2647,
- 2866, 1074, 2650, 2651, 2652, 2653, 2646, 2501, 2642, 1389,
- 2866, 2866, 2614, 2643, 2646, 2644, 2645, 2866, 2866, 2502,
-
- 2866, 2503, 793, 2504, 2505, 2517, 2647, 2866, 2866, 2650,
- 2651, 2652, 2653, 2648, 2501, 2866, 1389, 2518, 2519, 2866,
- 2520, 2866, 2521, 2649, 2866, 2866, 2502, 2866, 2503, 2866,
- 2504, 2505, 2517, 2654, 2866, 2866, 2866, 2866, 2866, 2866,
- 2648, 2866, 2866, 2866, 2518, 2519, 2866, 2520, 2866, 2521,
- 2649, 2506, 2866, 2866, 2866, 2866, 2866, 2866, 2523, 2866,
- 2866, 2524, 2526, 2866, 2866, 2866, 2527, 2522, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2525, 2866, 2866, 2506, 2866,
- 2866, 2866, 2538, 2530, 2539, 2523, 2866, 2866, 2524, 2526,
- 2866, 2866, 2866, 2527, 2522, 2531, 2866, 2866, 2528, 2532,
-
- 2529, 2866, 2525, 2866, 2866, 2540, 2534, 2866, 2866, 2538,
- 2530, 2539, 2541, 2866, 2866, 2866, 2557, 2866, 2866, 2533,
- 2558, 2866, 2531, 2562, 2578, 2528, 2532, 2529, 2866, 2866,
- 942, 2422, 2540, 2534, 2535, 2866, 2866, 2583, 2866, 2541,
- 2418, 2866, 2866, 2557, 2536, 2866, 2533, 2558, 2418, 2866,
- 2562, 2578, 2866, 2866, 2866, 2866, 2537, 2866, 2866, 2866,
- 2866, 2535, 2866, 2866, 2583, 2866, 2866, 2659, 2526, 2866,
- 2866, 2536, 2527, 2866, 2866, 2542, 2866, 2866, 2544, 2866,
- 2866, 2866, 2866, 2537, 2866, 2545, 2543, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2659, 2526, 2866, 2866, 2866, 2527,
-
- 2866, 2866, 2542, 2866, 2866, 2544, 2866, 2866, 2866, 2866,
- 2546, 2866, 2545, 2543, 2866, 2866, 2866, 2866, 2549, 2866,
- 2547, 2866, 2866, 2234, 2866, 303, 2866, 2866, 2377, 2866,
- 2548, 2563, 2866, 2866, 2866, 2652, 2234, 2546, 2866, 2550,
- 2866, 2866, 2866, 2866, 2866, 2549, 2663, 2547, 2866, 2866,
- 2653, 2866, 2866, 2866, 2866, 2377, 2866, 2548, 2563, 2657,
- 2866, 2552, 2652, 2866, 2866, 2866, 2550, 2551, 2234, 2553,
- 2866, 2866, 2596, 2663, 2866, 2866, 2866, 2653, 2866, 2866,
- 2866, 2866, 2866, 2866, 2651, 2554, 2657, 2866, 2552, 2866,
- 1686, 1686, 2866, 2866, 2551, 2555, 2553, 2866, 2866, 2866,
-
- 1686, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 1686, 2564,
- 2556, 2651, 2554, 2866, 2866, 2658, 2565, 2866, 2866, 2567,
- 2866, 2866, 2555, 2866, 2866, 2866, 2866, 2866, 2866, 2566,
- 2866, 2866, 2866, 2866, 2570, 2866, 2564, 2556, 2866, 2866,
- 2866, 2568, 2658, 2565, 2569, 2866, 2567, 2866, 2866, 305,
- 2866, 2866, 2866, 2866, 2866, 2866, 2566, 2866, 2866, 2866,
- 2866, 2866, 2866, 2574, 2866, 2866, 2866, 2866, 2568, 2866,
- 2571, 2569, 2866, 2866, 2866, 2664, 2866, 2573, 2866, 2866,
- 2866, 2582, 2660, 2866, 2866, 2866, 2866, 2866, 303, 2572,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2571, 2866, 2866,
-
- 2866, 2866, 2664, 2866, 2573, 2866, 2393, 303, 2582, 2660,
- 2866, 2866, 2866, 2866, 2866, 2866, 2572, 2866, 2575, 2576,
- 2866, 2866, 2866, 2866, 2655, 2866, 2866, 2394, 2866, 2866,
- 2866, 2866, 305, 2866, 2866, 2866, 2866, 2866, 2866, 2656,
- 2866, 2397, 2866, 2866, 2866, 2575, 2576, 2866, 2395, 2866,
- 2866, 2655, 2866, 2665, 2394, 2396, 2866, 2866, 2866, 2866,
- 2399, 2866, 2866, 2662, 2866, 2866, 2656, 2398, 2866, 2866,
- 2671, 2866, 2866, 2866, 2866, 2395, 2866, 2866, 305, 2672,
- 2665, 2866, 2396, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2662, 2673, 2400, 2866, 2398, 2866, 2866, 2671, 2866, 942,
-
- 2422, 2402, 2594, 2594, 2595, 2595, 2672, 2661, 2401, 2418,
- 2866, 2501, 2594, 2866, 2595, 2866, 2866, 2418, 2673, 2400,
- 2594, 2866, 2595, 2866, 876, 2866, 2866, 2674, 2402, 2866,
- 2675, 2866, 2668, 2866, 2661, 2401, 2866, 2866, 2501, 2866,
- 2866, 2866, 2866, 2866, 2676, 2678, 2679, 2866, 2866, 2680,
- 2866, 876, 2667, 2866, 2674, 2866, 2866, 2675, 2866, 2866,
- 2681, 2666, 2866, 2866, 2866, 2682, 2866, 2669, 2684, 2670,
- 2685, 2676, 2678, 2679, 2686, 2687, 2680, 2866, 2688, 2667,
- 2866, 2689, 2690, 2691, 2692, 2693, 2694, 2681, 2666, 2695,
- 2696, 2697, 2682, 2699, 2669, 2684, 2702, 2685, 303, 2866,
-
- 2703, 2686, 2687, 2704, 303, 2688, 2707, 2708, 2689, 2690,
- 2691, 2692, 2693, 2694, 2646, 2646, 2695, 2696, 2697, 305,
- 2699, 2866, 2866, 2702, 2646, 2701, 2701, 2703, 657, 2654,
- 2704, 2866, 2646, 2707, 2708, 2701, 2866, 2701, 2705, 2866,
- 305, 2711, 2712, 2701, 2706, 2866, 2866, 2866, 2866, 2698,
- 2866, 2866, 2866, 2866, 2717, 2866, 2709, 2718, 2719, 2866,
- 2720, 2721, 2866, 2700, 2866, 2705, 2722, 2866, 2711, 2712,
- 2723, 2706, 2724, 2866, 2866, 2866, 2698, 2710, 2866, 2866,
- 2725, 2717, 2866, 2709, 2718, 2719, 2866, 2720, 2721, 2713,
- 2700, 2714, 2726, 2722, 2727, 2728, 2866, 2723, 2729, 2724,
-
- 2866, 2730, 2731, 2732, 2710, 2733, 2734, 2725, 2735, 2736,
- 2737, 2715, 2738, 2739, 303, 2866, 2713, 2741, 2714, 2726,
- 2742, 2727, 2728, 2743, 303, 2729, 2716, 2746, 2730, 2731,
- 2732, 2747, 2733, 2734, 305, 2735, 2736, 2737, 2715, 2738,
- 2739, 2866, 2866, 2744, 2741, 305, 2750, 2742, 2751, 2866,
- 2743, 2866, 2866, 2716, 2746, 2866, 2866, 2756, 2747, 2866,
- 2748, 2866, 2745, 2866, 2757, 2866, 2866, 2866, 2866, 2866,
- 2744, 2758, 2740, 2750, 2866, 2751, 2866, 2866, 2866, 2866,
- 2749, 2759, 2752, 2760, 2756, 2761, 2866, 2748, 2866, 2745,
- 2866, 2757, 2753, 2762, 2763, 2764, 2765, 2766, 2758, 2740,
-
- 2866, 2767, 2769, 2770, 2754, 2755, 2771, 2749, 2759, 2752,
- 2760, 2772, 2761, 2773, 2775, 2776, 2866, 2866, 2777, 2753,
- 2762, 2763, 2764, 2765, 2766, 303, 2866, 303, 2767, 2769,
- 2770, 2754, 2755, 2771, 2866, 305, 305, 2783, 2772, 2784,
- 2773, 2775, 2776, 2866, 2866, 2777, 2789, 2866, 2866, 2866,
- 2866, 2866, 2866, 2774, 2790, 2866, 2866, 2866, 2792, 2793,
- 2778, 2866, 2779, 2794, 2783, 2866, 2784, 2781, 2782, 2866,
- 2796, 2866, 2797, 2789, 2798, 2787, 2866, 2866, 2799, 2785,
- 2774, 2790, 2791, 2791, 2866, 2792, 2793, 2778, 2786, 2779,
- 2794, 2800, 2791, 2801, 2781, 2782, 2803, 2796, 2866, 2797,
-
- 2791, 2798, 2787, 2866, 2866, 2799, 2785, 2804, 2805, 303,
- 303, 305, 2866, 2866, 2866, 2786, 2788, 305, 2800, 2866,
- 2801, 2866, 2811, 2803, 2812, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2815, 2866, 2804, 2805, 2866, 2816, 2866, 2802,
- 2866, 2807, 2809, 2788, 2806, 305, 2810, 2866, 2866, 2811,
- 2866, 2812, 2866, 2866, 2866, 2818, 2819, 2820, 2821, 2815,
- 2822, 2866, 2791, 2791, 2816, 2823, 2802, 2813, 2807, 2809,
- 303, 2806, 2791, 2810, 2824, 2866, 2866, 2828, 581, 581,
- 2791, 2827, 2818, 2819, 2820, 2821, 2866, 2822, 581, 2866,
- 2814, 2866, 2823, 2831, 2813, 2866, 581, 2646, 2646, 2832,
-
- 2866, 2824, 2833, 2817, 2828, 2866, 2866, 2646, 2827, 2825,
- 2866, 2866, 2866, 2866, 2866, 2646, 2830, 2814, 2866, 2834,
- 2831, 581, 581, 2835, 2866, 2842, 2832, 2866, 2843, 2833,
- 2817, 581, 2866, 2844, 2866, 2866, 2825, 2866, 2866, 581,
- 2853, 2829, 2866, 2866, 2866, 2866, 2834, 2854, 2866, 2858,
- 2835, 2866, 2842, 2866, 2866, 2843, 2866, 2866, 2862, 2866,
- 2844, 2866, 2866, 2866, 2866, 2866, 2866, 2853, 2829, 2864,
- 2866, 2840, 2866, 2851, 2854, 2866, 2858, 2841, 2859, 2846,
- 2852, 2866, 2866, 2866, 2866, 2862, 2866, 2859, 2866, 2866,
- 2866, 2859, 2859, 2859, 2859, 2866, 2864, 2866, 2840, 2866,
-
- 2851, 2866, 2866, 2866, 2841, 302, 302, 2852, 2866, 2847,
- 302, 302, 2866, 2866, 2866, 302, 302, 2857, 302, 302,
- 302, 2860, 2866, 2866, 2866, 2866, 302, 2866, 302, 302,
- 2860, 2866, 2866, 2866, 2860, 2860, 2860, 2860, 2866, 2866,
- 2866, 2866, 2866, 2866, 2857, 2866, 2859, 2846, 2866, 2866,
- 2866, 2866, 2861, 2866, 2860, 2859, 302, 2866, 2848, 2859,
- 2859, 2859, 2859, 2860, 2866, 2866, 2866, 2860, 2860, 2860,
- 2860, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2861,
- 2866, 2866, 2866, 302, 304, 304, 2866, 2866, 2866, 304,
- 304, 2849, 2866, 2866, 304, 304, 2866, 304, 304, 304,
-
- 2866, 2866, 2866, 2866, 2865, 304, 2863, 304, 304, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2865, 2866, 2863, 2866, 304, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 304, 576, 576, 2866, 2866, 2866, 576, 576,
- 2866, 2866, 2866, 576, 576, 2866, 576, 576, 576, 2866,
- 2866, 2866, 2866, 2866, 576, 2866, 576, 576, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
-
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 576, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 576, 302, 302, 2866, 2866, 2847, 302, 302, 2866,
- 2866, 2866, 302, 302, 2866, 302, 302, 302, 2866, 2866,
- 2866, 2866, 2866, 302, 2866, 302, 302, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 302, 2866, 2866, 2866, 2866, 2866, 2866,
-
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 302, 304, 304, 2866, 2866, 2866, 304, 304, 2849, 2866,
- 2866, 304, 304, 2866, 304, 304, 304, 2866, 2866, 2866,
- 2866, 2866, 304, 2866, 304, 304, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 304, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 304,
-
- 576, 576, 2866, 2866, 2866, 576, 576, 2866, 2866, 2866,
- 576, 576, 2866, 576, 576, 576, 2866, 2866, 2866, 2866,
- 2866, 576, 2866, 576, 576, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 576, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 576, 101,
- 101, 101, 101, 101, 101, 101, 101, 101, 101, 101,
- 101, 101, 101, 101, 90, 90, 90, 90, 90, 90,
-
- 90, 90, 90, 90, 90, 90, 90, 90, 90, 181,
- 181, 181, 181, 181, 181, 181, 181, 181, 181, 181,
- 181, 181, 181, 181, 220, 220, 220, 220, 220, 220,
- 220, 220, 220, 220, 220, 220, 220, 220, 220, 296,
- 296, 296, 296, 296, 296, 296, 296, 296, 296, 296,
- 296, 296, 296, 296, 302, 302, 2866, 302, 302, 302,
- 302, 302, 302, 302, 302, 302, 302, 302, 302, 304,
- 304, 2866, 304, 304, 304, 304, 304, 304, 304, 304,
- 304, 304, 304, 304, 311, 311, 311, 311, 2866, 2866,
- 311, 323, 323, 2866, 323, 323, 323, 323, 323, 323,
-
- 323, 323, 323, 323, 323, 323, 324, 324, 2866, 324,
- 324, 324, 324, 324, 324, 324, 324, 324, 324, 324,
- 324, 334, 334, 2866, 334, 334, 334, 334, 334, 334,
- 334, 334, 334, 334, 334, 334, 342, 342, 2866, 342,
- 342, 342, 342, 342, 342, 342, 342, 342, 342, 342,
- 342, 348, 348, 2866, 348, 348, 348, 348, 348, 348,
- 348, 348, 348, 348, 348, 348, 354, 354, 2866, 354,
- 354, 354, 354, 354, 354, 354, 354, 354, 354, 354,
- 354, 372, 372, 2866, 372, 372, 372, 372, 372, 372,
- 372, 372, 372, 372, 372, 372, 374, 374, 2866, 374,
-
- 374, 374, 374, 374, 374, 374, 374, 374, 374, 374,
- 374, 379, 379, 379, 379, 2866, 2866, 379, 385, 385,
- 2866, 385, 385, 385, 385, 385, 385, 385, 385, 385,
- 385, 385, 385, 387, 387, 2866, 387, 387, 387, 387,
- 387, 387, 387, 387, 387, 387, 387, 387, 399, 399,
- 2866, 399, 399, 399, 399, 399, 399, 399, 399, 399,
- 399, 399, 399, 401, 401, 2866, 401, 401, 401, 401,
- 401, 401, 401, 401, 401, 401, 401, 401, 406, 406,
- 406, 406, 2866, 2866, 406, 422, 422, 2866, 422, 422,
- 422, 422, 422, 422, 422, 422, 422, 422, 422, 422,
-
- 424, 424, 2866, 424, 424, 424, 424, 424, 424, 424,
- 424, 424, 424, 424, 424, 429, 429, 429, 429, 2866,
- 2866, 429, 439, 439, 2866, 439, 439, 439, 439, 439,
- 439, 439, 439, 439, 439, 439, 439, 441, 441, 2866,
- 441, 441, 441, 441, 441, 441, 441, 441, 441, 441,
- 441, 441, 446, 446, 446, 446, 2866, 2866, 446, 450,
- 450, 2866, 450, 450, 450, 450, 450, 450, 450, 450,
- 450, 450, 450, 450, 452, 452, 2866, 452, 452, 452,
- 452, 452, 452, 452, 452, 452, 452, 452, 452, 457,
- 457, 457, 457, 2866, 2866, 457, 473, 473, 473, 473,
-
- 2866, 2866, 473, 477, 477, 2866, 477, 477, 477, 477,
- 477, 477, 477, 477, 477, 477, 477, 477, 479, 479,
- 2866, 479, 479, 479, 479, 479, 479, 479, 479, 479,
- 479, 479, 479, 484, 484, 484, 484, 2866, 2866, 484,
- 494, 494, 2866, 494, 494, 494, 494, 494, 494, 494,
- 494, 494, 494, 494, 494, 496, 496, 2866, 496, 496,
- 496, 496, 496, 496, 496, 496, 496, 496, 496, 496,
- 498, 498, 2866, 498, 498, 498, 2866, 498, 498, 498,
- 498, 498, 498, 498, 498, 502, 502, 502, 2866, 2866,
- 502, 522, 522, 2866, 522, 522, 522, 522, 522, 522,
-
- 522, 522, 522, 522, 522, 522, 524, 524, 2866, 524,
- 524, 524, 524, 524, 524, 524, 524, 524, 524, 524,
- 524, 526, 526, 2866, 526, 526, 526, 2866, 526, 526,
- 526, 526, 526, 526, 526, 526, 530, 530, 530, 2866,
- 2866, 530, 538, 538, 2866, 538, 538, 538, 538, 538,
- 538, 538, 538, 538, 538, 538, 538, 540, 540, 2866,
- 540, 540, 540, 540, 540, 540, 540, 540, 540, 540,
- 540, 540, 545, 545, 545, 545, 2866, 2866, 545, 560,
- 560, 2866, 560, 560, 560, 560, 560, 560, 560, 560,
- 560, 560, 560, 560, 562, 562, 2866, 562, 562, 562,
-
- 562, 562, 562, 562, 562, 562, 562, 562, 562, 568,
- 2866, 568, 2866, 2866, 568, 568, 568, 568, 568, 2866,
- 568, 569, 569, 2866, 569, 569, 569, 569, 569, 569,
- 569, 569, 569, 569, 569, 569, 571, 571, 2866, 571,
- 571, 571, 571, 571, 571, 571, 571, 571, 571, 571,
- 571, 302, 302, 2866, 302, 302, 302, 302, 302, 302,
- 302, 302, 302, 302, 302, 302, 304, 304, 2866, 304,
- 304, 304, 304, 304, 304, 304, 304, 304, 304, 304,
- 304, 576, 576, 2866, 576, 576, 576, 576, 576, 576,
- 576, 576, 576, 576, 576, 576, 311, 2866, 311, 2866,
-
- 2866, 311, 588, 588, 2866, 588, 588, 588, 588, 588,
- 588, 588, 588, 588, 588, 588, 588, 589, 589, 2866,
- 589, 589, 589, 589, 589, 589, 589, 589, 589, 589,
- 589, 589, 598, 598, 598, 598, 598, 598, 598, 598,
- 598, 598, 598, 598, 598, 598, 598, 610, 610, 2866,
- 610, 610, 610, 610, 610, 610, 610, 610, 610, 610,
- 610, 610, 622, 622, 2866, 622, 622, 622, 622, 622,
- 622, 622, 622, 622, 622, 622, 622, 636, 636, 2866,
- 636, 636, 636, 636, 636, 636, 636, 636, 636, 636,
- 636, 636, 647, 647, 2866, 647, 647, 647, 647, 647,
-
- 647, 647, 647, 647, 647, 647, 647, 650, 650, 2866,
- 650, 650, 650, 650, 650, 650, 650, 650, 650, 650,
- 650, 650, 654, 654, 2866, 654, 654, 654, 654, 654,
- 654, 654, 654, 654, 654, 654, 654, 372, 372, 2866,
- 372, 372, 372, 372, 372, 372, 372, 372, 372, 372,
- 372, 372, 374, 374, 2866, 374, 374, 374, 374, 374,
- 374, 374, 374, 374, 374, 374, 374, 379, 2866, 379,
- 2866, 2866, 379, 385, 385, 2866, 385, 385, 385, 385,
- 385, 385, 385, 385, 385, 385, 385, 385, 387, 387,
- 2866, 387, 387, 387, 387, 387, 387, 387, 387, 387,
-
- 387, 387, 387, 399, 399, 2866, 399, 399, 399, 399,
- 399, 399, 399, 399, 399, 399, 399, 399, 401, 401,
- 2866, 401, 401, 401, 401, 401, 401, 401, 401, 401,
- 401, 401, 401, 406, 406, 406, 2866, 2866, 406, 699,
- 699, 699, 699, 2866, 2866, 699, 422, 422, 2866, 422,
- 422, 422, 422, 422, 422, 422, 422, 422, 422, 422,
- 422, 424, 424, 2866, 424, 424, 424, 424, 424, 424,
- 424, 424, 424, 424, 424, 424, 429, 2866, 429, 2866,
- 2866, 429, 439, 439, 2866, 439, 439, 439, 439, 439,
- 439, 439, 439, 439, 439, 439, 439, 441, 441, 2866,
-
- 441, 441, 441, 441, 441, 441, 441, 441, 441, 441,
- 441, 441, 446, 2866, 446, 2866, 2866, 446, 450, 450,
- 2866, 450, 450, 450, 450, 450, 450, 450, 450, 450,
- 450, 450, 450, 452, 452, 2866, 452, 452, 452, 452,
- 452, 452, 452, 452, 452, 452, 452, 452, 457, 2866,
- 457, 2866, 2866, 457, 473, 2866, 473, 2866, 2866, 473,
- 477, 477, 2866, 477, 477, 477, 477, 477, 477, 477,
- 477, 477, 477, 477, 477, 479, 479, 2866, 479, 479,
- 479, 479, 479, 479, 479, 479, 479, 479, 479, 479,
- 484, 2866, 484, 2866, 2866, 484, 494, 494, 2866, 494,
-
- 494, 494, 494, 494, 494, 494, 494, 494, 494, 494,
- 494, 496, 496, 2866, 496, 496, 496, 496, 496, 496,
- 496, 496, 496, 496, 496, 496, 498, 498, 2866, 498,
- 498, 498, 2866, 498, 498, 498, 498, 498, 498, 498,
- 498, 502, 2866, 502, 2866, 2866, 502, 522, 522, 2866,
- 522, 522, 522, 522, 522, 522, 522, 522, 522, 522,
- 522, 522, 524, 524, 2866, 524, 524, 524, 524, 524,
- 524, 524, 524, 524, 524, 524, 524, 526, 526, 2866,
- 526, 526, 526, 2866, 526, 526, 526, 526, 526, 526,
- 526, 526, 530, 2866, 530, 2866, 2866, 530, 538, 538,
-
- 2866, 538, 538, 538, 538, 538, 538, 538, 538, 538,
- 538, 538, 538, 540, 540, 2866, 540, 540, 540, 540,
- 540, 540, 540, 540, 540, 540, 540, 540, 545, 2866,
- 545, 2866, 2866, 545, 560, 560, 2866, 560, 560, 560,
- 560, 560, 560, 560, 560, 560, 560, 560, 560, 562,
- 562, 2866, 562, 562, 562, 562, 562, 562, 562, 562,
- 562, 562, 562, 562, 568, 2866, 568, 2866, 2866, 568,
- 568, 568, 568, 568, 2866, 568, 569, 569, 2866, 569,
- 569, 569, 569, 569, 569, 569, 569, 569, 569, 569,
- 569, 571, 571, 2866, 571, 571, 571, 571, 571, 571,
-
- 571, 571, 571, 571, 571, 571, 576, 576, 2866, 576,
- 576, 576, 576, 576, 576, 576, 576, 576, 576, 576,
- 576, 311, 2866, 311, 2866, 2866, 311, 800, 800, 2866,
- 800, 800, 800, 800, 800, 800, 800, 800, 800, 800,
- 800, 800, 801, 801, 2866, 801, 801, 801, 801, 801,
- 801, 801, 801, 801, 801, 801, 801, 811, 811, 2866,
- 811, 811, 811, 811, 811, 811, 811, 811, 811, 811,
- 811, 811, 823, 823, 2866, 823, 823, 823, 823, 823,
- 823, 823, 823, 823, 823, 823, 823, 835, 835, 2866,
- 835, 835, 835, 835, 835, 835, 835, 835, 835, 835,
-
- 835, 835, 872, 872, 2866, 872, 872, 872, 872, 872,
- 872, 872, 872, 872, 872, 872, 872, 890, 890, 2866,
- 890, 890, 890, 890, 890, 890, 890, 890, 890, 890,
- 890, 890, 906, 906, 2866, 906, 906, 906, 906, 906,
- 906, 906, 906, 906, 906, 906, 906, 910, 910, 2866,
- 910, 910, 910, 910, 910, 910, 910, 910, 910, 910,
- 910, 910, 914, 914, 2866, 914, 914, 914, 914, 914,
- 914, 914, 914, 914, 914, 914, 914, 379, 2866, 379,
- 2866, 2866, 379, 699, 699, 699, 2866, 2866, 699, 406,
- 406, 406, 2866, 2866, 406, 429, 2866, 429, 2866, 2866,
-
- 429, 457, 2866, 457, 2866, 2866, 457, 473, 2866, 473,
- 2866, 2866, 473, 484, 2866, 484, 2866, 2866, 484, 502,
- 2866, 502, 2866, 2866, 502, 530, 2866, 530, 2866, 2866,
- 530, 545, 2866, 545, 2866, 2866, 545, 311, 2866, 311,
- 2866, 2866, 311, 1075, 1075, 2866, 1075, 1075, 1075, 1075,
- 1075, 1075, 1075, 1075, 1075, 1075, 1075, 1075, 1076, 1076,
- 2866, 1076, 1076, 1076, 1076, 1076, 1076, 1076, 1076, 1076,
- 1076, 1076, 1076, 1086, 1086, 2866, 1086, 1086, 1086, 1086,
- 1086, 1086, 1086, 1086, 1086, 1086, 1086, 1086, 1120, 1120,
- 2866, 1120, 1120, 1120, 1120, 1120, 1120, 1120, 1120, 1120,
-
- 1120, 1120, 1120, 1132, 1132, 2866, 1132, 1132, 1132, 1132,
- 1132, 1132, 1132, 1132, 1132, 1132, 1132, 1132, 1200, 1200,
- 2866, 1200, 1200, 1200, 1200, 1200, 1200, 1200, 1200, 1200,
- 1200, 1200, 1200, 1221, 1221, 2866, 1221, 1221, 1221, 1221,
- 1221, 1221, 1221, 1221, 1221, 1221, 1221, 1221, 1241, 1241,
- 2866, 1241, 1241, 1241, 1241, 1241, 1241, 1241, 1241, 1241,
- 1241, 1241, 1241, 1245, 1245, 2866, 1245, 1245, 1245, 1245,
- 1245, 1245, 1245, 1245, 1245, 1245, 1245, 1245, 1249, 1249,
- 2866, 1249, 1249, 1249, 1249, 1249, 1249, 1249, 1249, 1249,
- 1249, 1249, 1249, 1253, 1253, 1253, 1253, 1253, 1253, 1253,
-
- 1253, 1253, 1253, 1253, 1253, 1253, 1253, 1253, 1283, 1283,
- 1283, 1283, 1283, 1283, 1283, 1283, 1283, 1283, 1283, 1283,
- 1283, 1283, 1283, 379, 2866, 379, 2866, 2866, 379, 406,
- 406, 406, 2866, 2866, 406, 429, 2866, 429, 2866, 2866,
- 429, 457, 2866, 457, 2866, 2866, 457, 473, 2866, 473,
- 2866, 2866, 473, 484, 2866, 484, 2866, 2866, 484, 502,
- 2866, 502, 2866, 2866, 502, 530, 2866, 530, 2866, 2866,
- 530, 545, 2866, 545, 2866, 2866, 545, 311, 2866, 311,
- 2866, 2866, 311, 1390, 1390, 2866, 1390, 1390, 1390, 1390,
- 1390, 1390, 1390, 1390, 1390, 1390, 1390, 1390, 1391, 1391,
-
- 2866, 1391, 1391, 1391, 1391, 1391, 1391, 1391, 1391, 1391,
- 1391, 1391, 1391, 1401, 1401, 2866, 1401, 1401, 1401, 1401,
- 1401, 1401, 1401, 1401, 1401, 1401, 1401, 1401, 1463, 1463,
- 2866, 1463, 1463, 1463, 1463, 1463, 1463, 1463, 1463, 1463,
- 1463, 1463, 1463, 1475, 1475, 2866, 1475, 1475, 1475, 1475,
- 1475, 1475, 1475, 1475, 1475, 1475, 1475, 1475, 1566, 1566,
- 1566, 1566, 1566, 1566, 1566, 1566, 1566, 1566, 1566, 1566,
- 1566, 1566, 1566, 1573, 1573, 2866, 1573, 1573, 1573, 1573,
- 1573, 1573, 1573, 1573, 1573, 1573, 1573, 1573, 1598, 1598,
- 2866, 1598, 1598, 1598, 1598, 1598, 1598, 1598, 1598, 1598,
-
- 1598, 1598, 1598, 1622, 1622, 2866, 1622, 1622, 1622, 1622,
- 1622, 1622, 1622, 1622, 1622, 1622, 1622, 1622, 1626, 1626,
- 2866, 1626, 1626, 1626, 1626, 1626, 1626, 1626, 1626, 1626,
- 1626, 1626, 1626, 1630, 1630, 2866, 1630, 1630, 1630, 1630,
- 1630, 1630, 1630, 1630, 1630, 1630, 1630, 1630, 1634, 1634,
- 1634, 1634, 1634, 1634, 1634, 1634, 1634, 1634, 1634, 1634,
- 1634, 1634, 1634, 1663, 1663, 1663, 1663, 1663, 1663, 1663,
- 1663, 1663, 1663, 1663, 1663, 1663, 1663, 1663, 379, 2866,
- 379, 2866, 2866, 379, 406, 406, 406, 2866, 2866, 406,
- 429, 2866, 429, 2866, 2866, 429, 457, 2866, 457, 2866,
-
- 2866, 457, 473, 2866, 473, 2866, 2866, 473, 484, 2866,
- 484, 2866, 2866, 484, 502, 2866, 502, 2866, 2866, 502,
- 530, 2866, 530, 2866, 2866, 530, 545, 2866, 545, 2866,
- 2866, 545, 311, 2866, 311, 2866, 2866, 311, 1773, 1773,
- 2866, 1773, 1773, 1773, 1773, 1773, 1773, 1773, 1773, 1773,
- 1773, 1773, 1773, 1776, 1776, 2866, 1776, 1776, 1776, 1776,
- 1776, 1776, 1776, 1776, 1776, 1776, 1776, 1776, 1789, 1789,
- 2866, 1789, 1789, 1789, 1789, 1789, 1789, 1789, 1789, 1789,
- 1789, 1789, 1789, 1871, 1871, 1871, 1871, 1871, 1871, 1871,
- 1871, 1871, 1871, 1871, 1871, 1871, 1871, 1871, 1880, 1880,
-
- 2866, 1880, 1880, 1880, 1880, 1880, 1880, 1880, 1880, 1880,
- 1880, 1880, 1880, 1895, 1895, 2866, 1895, 1895, 1895, 1895,
- 1895, 1895, 1895, 1895, 1895, 1895, 1895, 1895, 1986, 1986,
- 1986, 1986, 1986, 1986, 1986, 1986, 1986, 1986, 1986, 1986,
- 1986, 1986, 1986, 2029, 2029, 2866, 2029, 2029, 2029, 2029,
- 2029, 2029, 2029, 2029, 2029, 2029, 2029, 2029, 2059, 2059,
- 2866, 2059, 2059, 2059, 2059, 2059, 2059, 2059, 2059, 2059,
- 2059, 2059, 2059, 2087, 2087, 2866, 2087, 2087, 2087, 2087,
- 2087, 2087, 2087, 2087, 2087, 2087, 2087, 2087, 2094, 2094,
- 2866, 2094, 2094, 2094, 2094, 2094, 2094, 2094, 2094, 2094,
-
- 2094, 2094, 2094, 2100, 2100, 2866, 2100, 2100, 2100, 2100,
- 2100, 2100, 2100, 2100, 2100, 2100, 2100, 2100, 2104, 2104,
- 2104, 2104, 2104, 2104, 2104, 2104, 2104, 2104, 2104, 2104,
- 2104, 2104, 2104, 2129, 2129, 2129, 2129, 2129, 2129, 2129,
- 2129, 2129, 2129, 2129, 2129, 2129, 2129, 2129, 379, 2866,
- 379, 2866, 2866, 379, 406, 406, 406, 2866, 2866, 406,
- 429, 2866, 429, 2866, 2866, 429, 457, 2866, 457, 2866,
- 2866, 457, 473, 2866, 473, 2866, 2866, 473, 484, 2866,
- 484, 2866, 2866, 484, 502, 2866, 502, 2866, 2866, 502,
- 530, 2866, 530, 2866, 2866, 530, 545, 2866, 545, 2866,
-
- 2866, 545, 311, 311, 2866, 2866, 2866, 2866, 311, 311,
- 2866, 311, 311, 2866, 311, 1789, 1789, 2866, 1789, 1789,
- 1789, 1789, 1789, 1789, 1789, 1789, 1789, 1789, 1789, 1789,
- 1871, 1871, 1871, 1871, 1871, 1871, 1871, 1871, 1871, 1871,
- 1871, 1871, 1871, 1871, 1871, 302, 302, 2866, 302, 302,
- 302, 302, 302, 302, 302, 302, 302, 302, 302, 302,
- 2349, 2866, 2349, 2866, 2866, 2866, 2866, 2866, 2349, 2866,
- 2349, 2866, 2349, 304, 304, 2866, 304, 304, 304, 304,
- 304, 304, 304, 304, 304, 304, 304, 304, 576, 576,
- 2866, 576, 576, 576, 576, 576, 576, 576, 576, 576,
-
- 576, 576, 576, 2392, 2392, 2866, 2866, 2866, 2392, 2866,
- 2392, 2866, 2392, 2866, 2392, 2414, 2414, 2414, 2866, 2414,
- 2414, 2414, 2866, 2866, 2414, 2414, 2414, 379, 2866, 379,
- 2866, 2866, 379, 406, 406, 406, 2866, 2866, 406, 429,
- 2866, 429, 2866, 2866, 429, 457, 2866, 457, 2866, 2866,
- 457, 484, 2866, 484, 2866, 2866, 484, 502, 2866, 502,
- 2866, 2866, 502, 530, 2866, 530, 2866, 2866, 530, 545,
- 2866, 545, 2866, 2866, 545, 2845, 2845, 2866, 2845, 2866,
- 2845, 2866, 2866, 2845, 2845, 2846, 2846, 2866, 2846, 2846,
- 2846, 2846, 2846, 2846, 2846, 2846, 2846, 2846, 2846, 2846,
-
- 2848, 2848, 2866, 2848, 2848, 2848, 2848, 2848, 2848, 2848,
- 2848, 2848, 2848, 2848, 2848, 2850, 2850, 2866, 2850, 2850,
- 2850, 2850, 2850, 2850, 2850, 2850, 2850, 2850, 2850, 2850,
- 41, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
-
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866
- } ;
-
-static yyconst flex_int16_t yy_chk[17411] =
- { 0,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
-
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 3, 3,
- 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
- 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
- 3, 3, 3, 2828, 8, 3, 8, 3, 10, 14,
- 10, 14, 22, 26, 22, 26, 28, 30, 28, 30,
-
- 56, 3, 56, 35, 35, 35, 55, 55, 35, 78,
- 78, 35, 3, 35, 3, 35, 2826, 101, 50, 101,
- 50, 35, 50, 50, 50, 50, 2824, 113, 3, 4,
- 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
- 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
- 4, 4, 4, 4, 113, 24, 4, 24, 4, 57,
- 32, 57, 32, 134, 34, 134, 34, 24, 130, 130,
- 1016, 24, 4, 142, 1016, 142, 32, 157, 157, 92,
- 34, 2810, 24, 4, 24, 4, 57, 32, 92, 32,
- 60, 34, 60, 34, 24, 23, 92, 23, 24, 4,
-
- 5, 5, 5, 32, 31, 5, 31, 34, 5, 5,
- 5, 5, 5, 57, 5, 5, 5, 5, 5, 23,
- 60, 23, 51, 51, 5, 114, 115, 5, 31, 116,
- 31, 23, 51, 117, 51, 23, 51, 51, 51, 51,
- 5, 5, 118, 5, 31, 5, 23, 60, 23, 179,
- 179, 5, 114, 115, 5, 31, 116, 31, 23, 52,
- 117, 52, 23, 52, 52, 52, 52, 5, 5, 118,
- 5, 31, 5, 6, 6, 6, 6, 33, 6, 33,
- 2808, 6, 6, 6, 6, 6, 2807, 6, 6, 6,
- 6, 6, 2766, 61, 58, 61, 58, 6, 197, 197,
-
- 6, 33, 53, 33, 53, 212, 53, 53, 53, 53,
- 61, 58, 213, 6, 6, 58, 6, 33, 6, 159,
- 166, 159, 166, 181, 6, 181, 2746, 6, 33, 54,
- 33, 54, 212, 54, 54, 54, 54, 61, 58, 213,
- 6, 6, 58, 6, 33, 6, 7, 7, 7, 7,
- 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
- 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
- 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
- 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
- 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
-
- 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
- 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
- 7, 7, 7, 7, 7, 9, 9, 9, 9, 9,
- 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,
- 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,
- 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,
- 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,
- 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,
- 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,
- 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,
-
- 9, 9, 9, 9, 11, 11, 11, 11, 11, 11,
- 11, 11, 11, 11, 11, 11, 11, 11, 11, 11,
- 11, 11, 11, 11, 11, 11, 11, 11, 11, 12,
- 12, 12, 12, 12, 12, 12, 12, 12, 12, 12,
- 12, 12, 12, 12, 12, 12, 12, 12, 12, 12,
- 12, 12, 12, 12, 13, 13, 13, 13, 13, 13,
- 13, 13, 13, 13, 13, 13, 13, 13, 13, 13,
- 13, 13, 13, 13, 13, 13, 13, 13, 13, 13,
- 13, 13, 13, 13, 13, 13, 13, 13, 13, 13,
- 13, 13, 13, 13, 13, 13, 13, 13, 13, 13,
-
- 13, 13, 13, 13, 13, 13, 13, 13, 13, 13,
- 13, 13, 13, 13, 13, 13, 13, 13, 13, 13,
- 13, 13, 13, 13, 13, 13, 13, 13, 13, 13,
- 13, 13, 13, 15, 15, 102, 132, 102, 132, 2734,
- 135, 15, 135, 15, 182, 15, 182, 63, 201, 63,
- 201, 15, 2668, 36, 36, 36, 36, 2661, 36, 15,
- 132, 36, 102, 36, 15, 36, 135, 206, 63, 206,
- 216, 36, 216, 15, 15, 39, 39, 39, 59, 39,
- 59, 39, 39, 39, 39, 39, 15, 132, 2656, 102,
- 62, 15, 62, 135, 59, 63, 138, 39, 138, 39,
-
- 15, 15, 16, 16, 59, 16, 104, 62, 104, 2629,
- 16, 73, 16, 73, 16, 73, 73, 73, 73, 2623,
- 16, 59, 137, 163, 137, 163, 138, 2087, 16, 214,
- 103, 59, 103, 16, 62, 74, 74, 105, 104, 105,
- 137, 163, 16, 16, 2087, 74, 105, 74, 2612, 74,
- 74, 74, 74, 138, 105, 16, 214, 76, 2592, 76,
- 16, 76, 76, 76, 76, 104, 103, 137, 163, 16,
- 16, 17, 17, 140, 139, 140, 139, 210, 210, 17,
- 80, 17, 80, 17, 80, 80, 80, 80, 133, 17,
- 133, 139, 215, 103, 81, 2500, 81, 17, 81, 81,
-
- 81, 81, 17, 275, 275, 204, 140, 204, 81, 291,
- 82, 17, 82, 2493, 82, 82, 82, 82, 139, 215,
- 220, 81, 220, 204, 17, 133, 2029, 82, 162, 17,
- 162, 82, 221, 140, 221, 81, 291, 264, 17, 18,
- 18, 231, 18, 231, 236, 162, 2029, 18, 81, 18,
- 204, 18, 133, 236, 82, 264, 2827, 18, 82, 221,
- 2827, 236, 96, 236, 96, 18, 96, 96, 96, 96,
- 18, 98, 162, 98, 2492, 98, 98, 98, 98, 18,
- 1178, 1178, 264, 83, 1826, 83, 221, 83, 83, 83,
- 83, 278, 18, 278, 99, 1826, 99, 18, 99, 99,
-
- 99, 99, 410, 2491, 410, 83, 18, 19, 19, 19,
- 19, 19, 19, 19, 19, 19, 19, 19, 19, 19,
- 19, 19, 19, 19, 19, 19, 19, 19, 19, 19,
- 19, 19, 83, 255, 2467, 255, 292, 19, 293, 100,
- 19, 100, 255, 100, 100, 100, 100, 1441, 1441, 86,
- 255, 86, 255, 86, 86, 86, 86, 2435, 160, 200,
- 160, 200, 2434, 292, 19, 293, 86, 19, 20, 20,
- 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
- 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
- 20, 20, 20, 86, 97, 160, 200, 294, 20, 315,
-
- 316, 20, 2432, 97, 371, 97, 2341, 97, 97, 97,
- 97, 97, 109, 371, 109, 2316, 109, 109, 109, 109,
- 2200, 371, 160, 200, 294, 20, 315, 316, 20, 21,
- 21, 21, 21, 21, 21, 21, 21, 21, 21, 21,
- 21, 21, 21, 21, 21, 21, 21, 21, 21, 21,
- 21, 21, 21, 21, 21, 21, 21, 21, 21, 21,
- 21, 21, 21, 21, 21, 21, 21, 21, 21, 21,
- 21, 21, 21, 21, 21, 21, 21, 21, 21, 21,
- 21, 21, 21, 21, 21, 21, 21, 21, 21, 21,
- 21, 21, 21, 21, 21, 21, 21, 21, 21, 21,
-
- 21, 21, 21, 21, 21, 21, 21, 21, 25, 25,
- 25, 25, 25, 25, 25, 25, 25, 25, 25, 25,
- 25, 25, 25, 25, 25, 25, 25, 25, 25, 25,
- 25, 25, 25, 25, 25, 25, 25, 25, 25, 25,
- 25, 25, 25, 25, 25, 25, 25, 25, 25, 25,
- 25, 25, 25, 25, 25, 25, 25, 25, 25, 25,
- 25, 25, 25, 25, 25, 25, 25, 25, 25, 25,
- 25, 25, 25, 25, 25, 25, 25, 25, 25, 25,
- 25, 25, 25, 25, 25, 25, 25, 27, 27, 27,
- 27, 27, 27, 27, 27, 27, 27, 27, 27, 27,
-
- 27, 27, 27, 27, 27, 27, 27, 27, 27, 27,
- 27, 27, 27, 27, 27, 27, 27, 27, 27, 27,
- 27, 27, 27, 27, 27, 27, 27, 27, 27, 27,
- 27, 27, 27, 27, 27, 27, 27, 27, 27, 27,
- 27, 27, 27, 27, 27, 27, 27, 27, 27, 27,
- 27, 27, 27, 27, 27, 27, 27, 27, 27, 27,
- 27, 27, 27, 27, 27, 27, 29, 29, 29, 29,
- 29, 29, 29, 29, 29, 29, 29, 29, 29, 29,
- 29, 29, 29, 29, 29, 29, 29, 29, 29, 29,
- 29, 29, 29, 29, 29, 29, 29, 29, 29, 29,
-
- 29, 29, 29, 29, 29, 29, 29, 29, 29, 29,
- 29, 29, 29, 29, 29, 29, 29, 29, 29, 29,
- 29, 29, 29, 29, 29, 29, 29, 29, 29, 29,
- 29, 29, 29, 29, 29, 29, 29, 29, 29, 29,
- 29, 29, 29, 29, 29, 37, 37, 2165, 141, 161,
- 141, 161, 2156, 37, 85, 37, 85, 37, 85, 85,
- 85, 85, 1390, 37, 1521, 1521, 84, 2154, 84, 1390,
- 84, 84, 84, 84, 164, 161, 164, 2152, 141, 37,
- 37, 37, 84, 88, 85, 88, 37, 88, 88, 88,
- 88, 164, 84, 87, 202, 87, 202, 87, 87, 87,
-
- 87, 1853, 161, 2138, 88, 141, 37, 37, 37, 84,
- 87, 85, 1853, 37, 38, 38, 87, 38, 164, 84,
- 202, 2094, 38, 89, 38, 89, 38, 89, 89, 89,
- 89, 88, 38, 234, 111, 234, 111, 87, 111, 111,
- 111, 111, 2017, 87, 89, 110, 234, 202, 38, 38,
- 38, 318, 2016, 247, 110, 38, 110, 1391, 110, 110,
- 110, 110, 110, 112, 1391, 112, 2013, 112, 112, 112,
- 112, 89, 2008, 234, 1463, 38, 38, 38, 318, 247,
- 1981, 1463, 38, 40, 40, 40, 40, 40, 40, 40,
- 40, 40, 40, 40, 125, 1977, 125, 1594, 125, 125,
-
- 125, 125, 126, 126, 1594, 40, 247, 40, 65, 1883,
- 65, 65, 126, 165, 126, 165, 126, 126, 126, 126,
- 127, 1871, 127, 1626, 127, 127, 127, 127, 65, 1862,
- 1626, 128, 65, 128, 65, 128, 128, 128, 128, 199,
- 1862, 199, 1867, 165, 205, 65, 205, 267, 65, 65,
- 129, 136, 129, 136, 129, 129, 129, 129, 222, 65,
- 222, 65, 250, 199, 136, 230, 267, 230, 136, 245,
- 165, 1852, 65, 250, 205, 65, 65, 67, 67, 319,
- 152, 67, 152, 1837, 152, 152, 152, 152, 249, 222,
- 199, 136, 1828, 267, 245, 136, 230, 1808, 67, 253,
-
- 250, 205, 67, 281, 67, 281, 319, 2059, 67, 2059,
- 153, 153, 1804, 249, 253, 67, 222, 67, 67, 67,
- 153, 245, 153, 230, 153, 153, 153, 153, 1789, 67,
- 2059, 67, 154, 281, 154, 67, 154, 154, 154, 154,
- 249, 253, 67, 1773, 67, 67, 67, 68, 68, 251,
- 68, 68, 68, 68, 68, 68, 68, 68, 68, 68,
- 281, 68, 68, 265, 1727, 320, 1656, 68, 68, 68,
- 68, 68, 321, 322, 251, 68, 68, 155, 329, 155,
- 68, 155, 155, 155, 155, 232, 330, 232, 265, 68,
- 68, 156, 320, 156, 1654, 156, 156, 156, 156, 321,
-
- 322, 251, 68, 68, 174, 329, 174, 68, 174, 174,
- 174, 174, 232, 330, 1649, 265, 68, 68, 240, 1645,
- 240, 240, 240, 240, 1641, 68, 75, 75, 1614, 75,
- 75, 75, 75, 75, 75, 75, 75, 75, 75, 232,
- 75, 75, 75, 75, 75, 75, 75, 75, 75, 75,
- 75, 77, 77, 1866, 77, 77, 77, 77, 77, 77,
- 77, 77, 77, 77, 1866, 77, 77, 77, 77, 77,
- 77, 77, 77, 77, 77, 77, 175, 175, 176, 1610,
- 176, 2129, 176, 176, 176, 176, 175, 1561, 175, 2129,
- 175, 175, 175, 175, 177, 1557, 177, 1340, 177, 177,
-
- 177, 177, 178, 2129, 178, 1278, 178, 178, 178, 178,
- 192, 1274, 192, 1251, 192, 192, 192, 192, 193, 193,
- 194, 1248, 194, 1241, 194, 194, 194, 194, 193, 282,
- 193, 282, 193, 193, 193, 193, 195, 1238, 195, 1233,
- 195, 195, 195, 195, 196, 203, 196, 203, 196, 196,
- 196, 196, 241, 1200, 241, 241, 241, 241, 203, 218,
- 282, 218, 203, 218, 218, 218, 218, 219, 331, 219,
- 1123, 219, 219, 219, 219, 225, 279, 225, 279, 225,
- 225, 225, 225, 226, 233, 203, 233, 282, 1079, 203,
- 1941, 1941, 226, 279, 226, 331, 226, 226, 226, 226,
-
- 226, 227, 233, 227, 977, 227, 227, 227, 227, 228,
- 235, 228, 235, 228, 228, 228, 228, 229, 233, 229,
- 279, 229, 229, 229, 229, 976, 332, 916, 235, 233,
- 242, 254, 242, 242, 242, 242, 235, 243, 244, 243,
- 243, 243, 243, 246, 252, 233, 259, 913, 259, 259,
- 259, 259, 244, 332, 246, 235, 254, 254, 252, 333,
- 254, 246, 314, 235, 314, 906, 244, 244, 246, 260,
- 339, 260, 260, 260, 260, 903, 252, 2242, 2242, 244,
- 872, 246, 340, 254, 254, 252, 333, 254, 246, 314,
- 826, 314, 266, 244, 244, 246, 261, 339, 261, 261,
-
- 261, 261, 262, 252, 262, 262, 262, 262, 266, 340,
- 804, 2780, 271, 270, 343, 270, 266, 270, 270, 270,
- 270, 271, 280, 271, 280, 271, 271, 271, 271, 271,
- 2780, 285, 272, 285, 272, 266, 272, 272, 272, 272,
- 273, 343, 273, 266, 273, 273, 273, 273, 274, 345,
- 274, 280, 274, 274, 274, 274, 283, 284, 283, 284,
- 286, 285, 286, 287, 1567, 287, 303, 303, 303, 303,
- 699, 1567, 346, 283, 2004, 1567, 345, 286, 280, 305,
- 305, 305, 305, 287, 284, 2004, 656, 307, 285, 307,
- 287, 307, 307, 307, 307, 335, 335, 335, 335, 346,
-
- 283, 308, 338, 308, 286, 308, 308, 308, 308, 347,
- 287, 284, 317, 317, 312, 338, 312, 287, 312, 312,
- 312, 312, 317, 336, 336, 653, 344, 647, 344, 338,
- 317, 349, 349, 349, 349, 381, 347, 382, 383, 317,
- 622, 383, 338, 601, 393, 351, 394, 351, 336, 351,
- 351, 351, 351, 344, 336, 344, 373, 373, 373, 373,
- 592, 395, 381, 336, 382, 383, 317, 325, 383, 2009,
- 325, 393, 352, 394, 352, 336, 352, 352, 352, 352,
- 2009, 336, 375, 375, 375, 375, 396, 325, 395, 571,
- 336, 325, 358, 325, 358, 397, 358, 358, 358, 358,
-
- 386, 386, 386, 386, 325, 569, 418, 325, 325, 388,
- 388, 388, 388, 396, 434, 2066, 358, 2066, 325, 360,
- 325, 360, 397, 360, 360, 360, 360, 400, 400, 400,
- 400, 325, 418, 360, 325, 325, 326, 326, 2066, 436,
- 326, 434, 359, 358, 359, 417, 359, 359, 359, 359,
- 402, 402, 402, 402, 415, 437, 562, 326, 560, 418,
- 360, 326, 420, 326, 417, 415, 436, 326, 359, 411,
- 359, 540, 460, 420, 326, 538, 326, 326, 326, 362,
- 1629, 362, 437, 362, 362, 362, 362, 1629, 326, 526,
- 326, 417, 415, 419, 326, 359, 362, 359, 411, 460,
-
- 420, 326, 414, 326, 326, 326, 327, 327, 524, 327,
- 327, 327, 327, 327, 327, 327, 327, 327, 327, 419,
- 327, 327, 522, 362, 463, 411, 327, 327, 327, 327,
- 327, 414, 464, 465, 327, 327, 361, 466, 361, 327,
- 361, 361, 361, 361, 498, 2073, 419, 2073, 327, 327,
- 365, 463, 365, 469, 365, 365, 365, 365, 414, 464,
- 465, 327, 327, 496, 466, 494, 327, 364, 2073, 364,
- 361, 364, 364, 364, 364, 327, 327, 365, 363, 363,
- 469, 471, 364, 493, 327, 337, 337, 472, 363, 337,
- 363, 2011, 363, 363, 363, 363, 363, 361, 423, 423,
-
- 423, 423, 2011, 475, 365, 363, 337, 479, 471, 364,
- 337, 487, 337, 366, 472, 366, 337, 366, 366, 366,
- 366, 1632, 488, 337, 489, 337, 337, 337, 1632, 367,
- 475, 367, 363, 367, 367, 367, 367, 337, 487, 337,
- 477, 366, 467, 337, 367, 425, 425, 425, 425, 488,
- 337, 489, 337, 337, 337, 341, 341, 452, 341, 341,
- 341, 341, 341, 341, 341, 341, 341, 341, 366, 341,
- 341, 367, 450, 490, 449, 341, 341, 341, 341, 341,
- 440, 440, 440, 440, 341, 376, 491, 376, 341, 376,
- 376, 376, 376, 442, 442, 442, 442, 341, 341, 368,
-
- 490, 368, 441, 368, 368, 368, 368, 451, 451, 451,
- 451, 341, 377, 491, 377, 341, 377, 377, 377, 377,
- 368, 1198, 1198, 1198, 341, 341, 453, 453, 453, 453,
- 2540, 2540, 2540, 341, 342, 342, 505, 342, 342, 342,
- 342, 342, 342, 342, 342, 342, 342, 368, 342, 342,
- 478, 478, 478, 478, 342, 342, 342, 342, 342, 480,
- 480, 480, 480, 505, 439, 2557, 378, 369, 438, 369,
- 506, 369, 369, 369, 369, 378, 2557, 378, 507, 378,
- 378, 378, 378, 378, 380, 424, 380, 422, 380, 380,
- 380, 380, 495, 495, 495, 495, 389, 506, 389, 369,
-
- 389, 389, 389, 389, 390, 507, 390, 421, 390, 390,
- 390, 390, 342, 354, 354, 416, 354, 354, 354, 354,
- 354, 354, 354, 354, 354, 354, 369, 354, 354, 497,
- 497, 497, 497, 354, 354, 354, 354, 354, 355, 355,
- 2559, 355, 355, 355, 355, 355, 355, 355, 355, 355,
- 355, 2559, 355, 355, 355, 355, 355, 355, 355, 355,
- 355, 355, 355, 357, 357, 357, 357, 357, 357, 357,
- 357, 357, 357, 357, 357, 357, 357, 357, 357, 357,
- 357, 357, 357, 357, 357, 357, 357, 357, 357, 357,
- 357, 357, 357, 357, 357, 357, 357, 357, 357, 357,
-
- 357, 357, 357, 357, 357, 357, 357, 357, 357, 357,
- 357, 357, 357, 357, 357, 357, 357, 357, 357, 357,
- 357, 357, 357, 357, 357, 357, 357, 357, 357, 357,
- 357, 357, 357, 357, 357, 357, 357, 357, 357, 357,
- 357, 357, 370, 391, 370, 508, 370, 370, 370, 370,
- 413, 2560, 391, 509, 391, 510, 391, 391, 391, 391,
- 391, 403, 2560, 403, 412, 403, 403, 403, 403, 511,
- 511, 404, 508, 404, 370, 404, 404, 404, 404, 407,
- 509, 407, 510, 407, 407, 407, 407, 408, 512, 408,
- 513, 408, 408, 408, 408, 406, 511, 511, 426, 401,
-
- 426, 370, 426, 426, 426, 426, 427, 399, 427, 398,
- 427, 427, 427, 427, 430, 512, 430, 513, 430, 430,
- 430, 430, 443, 387, 443, 2414, 443, 443, 443, 443,
- 444, 385, 444, 2414, 444, 444, 444, 444, 447, 374,
- 447, 372, 447, 447, 447, 447, 454, 2414, 454, 356,
- 454, 454, 454, 454, 455, 353, 455, 348, 455, 455,
- 455, 455, 458, 2071, 458, 2071, 458, 458, 458, 458,
- 470, 470, 474, 334, 474, 2071, 474, 474, 474, 474,
- 470, 504, 504, 504, 504, 481, 2071, 481, 470, 481,
- 481, 481, 481, 483, 482, 514, 482, 470, 482, 482,
-
- 482, 482, 483, 516, 483, 1669, 483, 483, 483, 483,
- 483, 485, 1669, 485, 328, 485, 485, 485, 485, 517,
- 518, 519, 514, 500, 470, 500, 500, 500, 500, 501,
- 516, 501, 501, 501, 501, 503, 520, 503, 503, 503,
- 503, 515, 521, 2825, 2825, 313, 517, 518, 519, 523,
- 523, 523, 523, 515, 515, 515, 515, 310, 515, 525,
- 525, 525, 525, 520, 533, 534, 535, 515, 537, 521,
- 528, 515, 528, 528, 528, 528, 532, 532, 532, 532,
- 515, 515, 515, 515, 529, 515, 529, 529, 529, 529,
- 304, 533, 534, 535, 515, 537, 302, 531, 515, 531,
-
- 531, 531, 531, 539, 539, 539, 539, 541, 541, 541,
- 541, 542, 550, 542, 551, 542, 542, 542, 542, 543,
- 544, 543, 552, 543, 543, 543, 543, 554, 555, 544,
- 557, 544, 558, 544, 544, 544, 544, 544, 546, 550,
- 546, 551, 546, 546, 546, 546, 564, 565, 567, 552,
- 561, 561, 561, 561, 554, 555, 577, 557, 578, 558,
- 563, 563, 563, 563, 566, 566, 570, 570, 570, 570,
- 301, 566, 579, 564, 565, 567, 572, 572, 572, 572,
- 574, 574, 580, 577, 582, 578, 583, 584, 575, 574,
- 585, 566, 566, 574, 574, 574, 574, 575, 566, 579,
-
- 586, 575, 575, 575, 575, 581, 581, 587, 593, 580,
- 594, 582, 595, 583, 584, 581, 596, 585, 597, 603,
- 602, 604, 605, 581, 606, 607, 608, 586, 617, 618,
- 619, 581, 299, 602, 587, 593, 610, 594, 610, 595,
- 620, 298, 621, 596, 297, 597, 603, 602, 604, 605,
- 289, 606, 607, 608, 625, 617, 618, 619, 581, 590,
- 602, 626, 590, 627, 610, 630, 288, 620, 610, 621,
- 623, 623, 623, 623, 629, 1569, 631, 610, 610, 590,
- 277, 625, 1569, 590, 632, 590, 1569, 629, 626, 633,
- 627, 610, 630, 624, 624, 610, 590, 634, 638, 590,
-
- 590, 629, 624, 631, 610, 610, 624, 624, 624, 624,
- 590, 632, 590, 611, 629, 611, 633, 637, 269, 637,
- 639, 268, 263, 590, 634, 638, 590, 590, 591, 591,
- 258, 591, 591, 591, 591, 591, 591, 591, 591, 591,
- 591, 611, 591, 591, 637, 611, 637, 639, 591, 591,
- 591, 591, 591, 640, 611, 611, 591, 591, 614, 257,
- 614, 591, 641, 2561, 643, 642, 645, 646, 611, 663,
- 591, 591, 611, 256, 2561, 642, 648, 648, 648, 648,
- 640, 611, 611, 591, 591, 248, 614, 239, 591, 641,
- 614, 643, 642, 645, 646, 660, 663, 591, 591, 614,
-
- 614, 615, 642, 615, 2577, 649, 591, 599, 599, 660,
- 662, 599, 662, 614, 649, 2577, 238, 614, 649, 649,
- 649, 649, 660, 665, 666, 668, 614, 614, 599, 615,
- 686, 661, 599, 615, 599, 661, 660, 662, 599, 662,
- 664, 687, 615, 615, 664, 599, 688, 599, 599, 599,
- 665, 666, 668, 2579, 237, 224, 615, 686, 661, 599,
- 615, 599, 661, 689, 2579, 599, 692, 664, 687, 615,
- 615, 664, 599, 688, 599, 599, 599, 600, 600, 223,
- 600, 600, 600, 600, 600, 600, 600, 600, 600, 600,
- 689, 600, 600, 692, 702, 693, 209, 600, 600, 600,
-
- 600, 600, 694, 695, 696, 600, 600, 651, 667, 651,
- 600, 651, 651, 651, 651, 198, 191, 710, 667, 600,
- 600, 652, 693, 652, 702, 652, 652, 652, 652, 694,
- 695, 696, 600, 600, 703, 667, 672, 600, 672, 2580,
- 672, 672, 672, 672, 710, 667, 600, 600, 703, 701,
- 2580, 702, 188, 187, 186, 600, 609, 609, 704, 609,
- 609, 609, 609, 609, 609, 609, 609, 609, 609, 672,
- 609, 609, 1829, 1829, 701, 703, 609, 609, 609, 609,
- 609, 705, 704, 180, 711, 609, 1573, 1573, 1681, 609,
- 669, 669, 706, 1573, 1829, 1681, 672, 712, 609, 609,
-
- 669, 701, 669, 705, 669, 669, 669, 669, 669, 704,
- 707, 711, 609, 675, 675, 670, 609, 670, 706, 670,
- 670, 670, 670, 675, 712, 609, 609, 717, 173, 707,
- 705, 675, 172, 171, 609, 612, 671, 612, 671, 675,
- 671, 671, 671, 671, 673, 706, 673, 670, 673, 673,
- 673, 673, 718, 674, 717, 674, 707, 674, 674, 674,
- 674, 170, 158, 612, 719, 673, 675, 612, 674, 721,
- 612, 722, 612, 671, 670, 723, 612, 612, 1683, 718,
- 151, 148, 676, 724, 676, 1683, 676, 676, 676, 676,
- 612, 719, 673, 725, 612, 674, 721, 612, 722, 612,
-
- 671, 147, 723, 612, 612, 613, 1394, 613, 676, 146,
- 724, 131, 677, 1394, 677, 737, 677, 677, 677, 677,
- 725, 124, 726, 678, 729, 678, 1394, 678, 678, 678,
- 678, 731, 732, 613, 613, 676, 677, 613, 678, 684,
- 684, 738, 678, 739, 737, 737, 613, 613, 684, 726,
- 1685, 729, 684, 684, 684, 684, 2581, 1685, 731, 732,
- 613, 613, 123, 677, 613, 678, 122, 2581, 738, 678,
- 739, 737, 737, 613, 613, 616, 616, 616, 616, 616,
- 616, 616, 616, 616, 616, 616, 616, 616, 616, 616,
- 616, 616, 616, 616, 616, 616, 616, 616, 616, 616,
-
- 616, 616, 616, 616, 616, 616, 616, 616, 616, 616,
- 616, 616, 616, 616, 616, 616, 616, 616, 616, 616,
- 616, 616, 616, 616, 616, 616, 616, 616, 616, 616,
- 616, 616, 616, 616, 616, 616, 616, 616, 616, 616,
- 616, 616, 616, 616, 616, 616, 616, 616, 616, 616,
- 616, 616, 616, 616, 628, 628, 121, 740, 628, 679,
- 741, 679, 742, 679, 679, 679, 679, 680, 108, 680,
- 745, 680, 680, 680, 680, 628, 107, 95, 743, 628,
- 744, 628, 94, 679, 740, 628, 93, 741, 685, 742,
- 745, 746, 628, 747, 628, 628, 628, 685, 79, 680,
-
- 72, 685, 685, 685, 685, 743, 628, 744, 628, 681,
- 679, 681, 628, 681, 681, 681, 681, 745, 746, 628,
- 747, 628, 628, 628, 635, 635, 680, 635, 635, 635,
- 635, 635, 635, 635, 635, 635, 635, 681, 635, 635,
- 69, 749, 1466, 750, 635, 635, 635, 635, 635, 1466,
- 751, 66, 752, 635, 682, 49, 682, 635, 682, 682,
- 682, 682, 1466, 753, 681, 754, 635, 635, 749, 683,
- 750, 683, 691, 683, 683, 683, 683, 751, 682, 752,
- 635, 691, 690, 690, 635, 691, 691, 691, 691, 683,
- 753, 690, 754, 635, 635, 690, 690, 690, 690, 46,
-
- 45, 44, 635, 636, 636, 682, 636, 636, 636, 636,
- 636, 636, 636, 636, 636, 636, 683, 636, 636, 697,
- 697, 41, 756, 636, 636, 636, 636, 636, 697, 698,
- 757, 758, 697, 697, 697, 697, 0, 759, 698, 760,
- 0, 0, 698, 698, 698, 698, 700, 761, 700, 756,
- 700, 700, 700, 700, 708, 708, 0, 757, 758, 0,
- 0, 0, 709, 708, 759, 0, 760, 708, 708, 708,
- 708, 709, 764, 765, 761, 709, 709, 709, 709, 0,
- 0, 636, 654, 654, 0, 654, 654, 654, 654, 654,
- 654, 654, 654, 654, 654, 0, 654, 654, 0, 764,
-
- 765, 0, 654, 654, 654, 654, 654, 655, 655, 0,
- 655, 655, 655, 655, 655, 655, 655, 655, 655, 655,
- 0, 655, 655, 655, 655, 655, 655, 655, 655, 655,
- 655, 655, 658, 658, 658, 658, 658, 658, 658, 658,
- 658, 658, 658, 658, 658, 658, 658, 658, 658, 658,
- 658, 658, 658, 658, 658, 658, 658, 658, 658, 658,
- 658, 658, 658, 658, 658, 658, 658, 658, 658, 658,
- 658, 658, 658, 658, 658, 658, 658, 658, 658, 658,
- 658, 658, 658, 658, 658, 658, 658, 658, 658, 658,
- 658, 658, 658, 658, 658, 658, 658, 658, 658, 658,
-
- 658, 658, 658, 658, 658, 658, 658, 658, 658, 658,
- 658, 659, 659, 713, 713, 0, 755, 767, 1687, 755,
- 770, 771, 713, 2235, 0, 1687, 713, 713, 713, 713,
- 2235, 772, 773, 776, 779, 781, 659, 659, 659, 782,
- 783, 714, 659, 755, 767, 659, 755, 770, 771, 659,
- 714, 659, 659, 659, 714, 714, 714, 714, 772, 773,
- 776, 779, 781, 659, 659, 659, 782, 783, 0, 659,
- 2386, 784, 659, 715, 715, 789, 659, 2386, 659, 659,
- 659, 716, 715, 790, 790, 0, 715, 715, 715, 715,
- 716, 727, 727, 790, 716, 716, 716, 716, 784, 728,
-
- 727, 790, 789, 0, 727, 727, 727, 727, 728, 735,
- 735, 0, 728, 728, 728, 728, 0, 736, 735, 791,
- 792, 2389, 735, 735, 735, 735, 736, 0, 2389, 763,
- 736, 736, 736, 736, 748, 748, 748, 748, 763, 748,
- 762, 762, 763, 763, 763, 763, 791, 792, 748, 762,
- 2390, 793, 748, 762, 762, 762, 762, 2390, 768, 768,
- 794, 748, 748, 748, 748, 795, 748, 768, 769, 796,
- 797, 768, 768, 768, 768, 748, 0, 769, 793, 748,
- 0, 769, 769, 769, 769, 777, 777, 794, 798, 0,
- 0, 0, 795, 778, 777, 0, 796, 797, 777, 777,
-
- 777, 777, 778, 785, 785, 805, 778, 778, 778, 778,
- 0, 786, 785, 799, 799, 798, 785, 785, 785, 785,
- 786, 787, 787, 799, 786, 786, 786, 786, 806, 788,
- 787, 799, 805, 788, 787, 787, 787, 787, 788, 0,
- 807, 808, 788, 788, 788, 788, 802, 809, 818, 802,
- 819, 820, 821, 822, 828, 806, 0, 829, 827, 0,
- 0, 830, 831, 832, 833, 842, 802, 807, 808, 843,
- 802, 827, 802, 0, 809, 818, 844, 819, 820, 821,
- 822, 828, 845, 802, 829, 827, 802, 802, 830, 831,
- 832, 833, 842, 0, 1570, 0, 843, 802, 827, 802,
-
- 811, 1570, 811, 844, 846, 1570, 847, 848, 0, 845,
- 802, 0, 0, 802, 802, 803, 803, 0, 803, 803,
- 803, 803, 803, 803, 803, 803, 803, 803, 811, 803,
- 803, 846, 811, 847, 848, 803, 803, 803, 803, 803,
- 849, 811, 811, 803, 803, 859, 858, 861, 803, 859,
- 863, 860, 0, 860, 0, 811, 864, 803, 803, 811,
- 858, 856, 866, 868, 869, 870, 0, 849, 811, 811,
- 803, 803, 859, 858, 861, 803, 859, 863, 860, 812,
- 860, 812, 0, 864, 803, 803, 856, 858, 0, 866,
- 868, 869, 870, 803, 810, 810, 0, 810, 810, 810,
-
- 810, 810, 810, 810, 810, 810, 810, 812, 810, 810,
- 0, 812, 865, 856, 810, 810, 810, 810, 810, 871,
- 812, 812, 865, 810, 815, 0, 815, 810, 862, 816,
- 0, 816, 862, 0, 812, 876, 810, 810, 812, 865,
- 873, 873, 873, 873, 0, 0, 871, 812, 812, 865,
- 810, 877, 815, 878, 810, 862, 815, 816, 835, 862,
- 835, 816, 876, 810, 810, 815, 815, 867, 867, 880,
- 816, 816, 810, 813, 0, 813, 881, 867, 877, 815,
- 878, 0, 880, 815, 816, 867, 835, 1622, 816, 882,
- 835, 1622, 815, 815, 1622, 883, 880, 816, 816, 835,
-
- 835, 813, 884, 881, 885, 813, 886, 887, 813, 880,
- 813, 888, 892, 835, 813, 813, 882, 835, 836, 0,
- 836, 839, 883, 839, 893, 0, 835, 835, 813, 884,
- 894, 885, 813, 886, 887, 813, 0, 813, 888, 892,
- 896, 813, 813, 814, 0, 814, 836, 898, 0, 839,
- 836, 893, 891, 839, 891, 899, 895, 894, 0, 836,
- 836, 900, 839, 839, 0, 0, 895, 896, 901, 902,
- 904, 814, 814, 836, 898, 814, 839, 836, 0, 891,
- 839, 891, 899, 895, 814, 814, 836, 836, 900, 839,
- 839, 874, 874, 895, 1461, 901, 902, 904, 814, 814,
-
- 874, 1461, 814, 0, 874, 874, 874, 874, 1461, 1461,
- 1461, 814, 814, 817, 817, 817, 817, 817, 817, 817,
- 817, 817, 817, 817, 817, 817, 817, 817, 817, 817,
- 817, 817, 817, 817, 817, 817, 817, 817, 817, 817,
- 817, 817, 817, 817, 817, 817, 817, 817, 817, 817,
- 817, 817, 817, 817, 817, 817, 817, 817, 817, 817,
- 817, 817, 817, 817, 817, 817, 817, 817, 817, 817,
- 817, 817, 817, 817, 817, 817, 817, 817, 817, 817,
- 817, 817, 817, 817, 817, 817, 817, 817, 817, 817,
- 817, 817, 824, 824, 875, 875, 824, 907, 907, 907,
-
- 907, 919, 921, 875, 921, 1571, 0, 875, 875, 875,
- 875, 908, 1571, 824, 920, 919, 1571, 824, 920, 824,
- 908, 0, 0, 824, 908, 908, 908, 908, 919, 921,
- 824, 921, 824, 824, 824, 0, 0, 922, 0, 909,
- 0, 920, 919, 909, 824, 920, 824, 840, 909, 840,
- 824, 924, 909, 909, 909, 909, 0, 824, 0, 824,
- 824, 824, 825, 825, 922, 825, 825, 825, 825, 825,
- 825, 825, 825, 825, 825, 840, 825, 825, 924, 840,
- 1774, 925, 825, 825, 825, 825, 825, 1774, 840, 840,
- 825, 825, 911, 926, 911, 825, 911, 911, 911, 911,
-
- 927, 1774, 840, 926, 825, 825, 840, 912, 925, 912,
- 928, 912, 912, 912, 912, 840, 840, 825, 825, 0,
- 926, 0, 825, 0, 0, 0, 850, 927, 850, 0,
- 926, 825, 825, 929, 0, 0, 1776, 928, 0, 930,
- 825, 834, 834, 1776, 834, 834, 834, 834, 834, 834,
- 834, 834, 834, 834, 850, 834, 834, 1776, 850, 931,
- 929, 834, 834, 834, 834, 834, 930, 850, 850, 933,
- 834, 851, 0, 851, 834, 923, 853, 0, 853, 923,
- 935, 850, 936, 834, 834, 850, 931, 937, 932, 938,
- 1201, 1201, 1201, 1201, 850, 850, 933, 834, 932, 851,
-
- 939, 834, 923, 851, 853, 940, 923, 935, 853, 936,
- 834, 834, 851, 851, 937, 932, 938, 853, 853, 834,
- 837, 0, 837, 941, 951, 932, 851, 939, 944, 944,
- 851, 853, 940, 963, 0, 853, 0, 964, 944, 851,
- 851, 0, 0, 0, 853, 853, 944, 965, 837, 966,
- 941, 951, 837, 969, 970, 837, 971, 837, 0, 978,
- 963, 837, 837, 945, 964, 945, 0, 945, 945, 945,
- 945, 972, 0, 0, 965, 837, 966, 979, 978, 837,
- 969, 970, 837, 971, 837, 946, 946, 981, 837, 837,
- 838, 0, 838, 945, 982, 946, 0, 946, 972, 946,
-
- 946, 946, 946, 946, 947, 978, 947, 979, 947, 947,
- 947, 947, 961, 961, 985, 981, 982, 986, 838, 838,
- 945, 961, 838, 947, 987, 961, 961, 961, 961, 994,
- 995, 838, 838, 958, 979, 958, 0, 958, 958, 958,
- 958, 985, 981, 982, 986, 838, 838, 0, 0, 838,
- 947, 987, 1242, 1242, 1242, 1242, 994, 995, 838, 838,
- 841, 841, 841, 841, 841, 841, 841, 841, 841, 841,
- 841, 841, 841, 841, 841, 841, 841, 841, 841, 841,
- 841, 841, 841, 841, 841, 841, 841, 841, 841, 841,
- 841, 841, 841, 841, 841, 841, 841, 841, 841, 841,
-
- 841, 841, 841, 841, 841, 841, 841, 841, 841, 841,
- 841, 841, 841, 841, 841, 841, 841, 841, 841, 841,
- 841, 841, 841, 841, 841, 841, 841, 841, 841, 841,
- 841, 841, 841, 841, 841, 841, 841, 841, 841, 852,
- 0, 852, 948, 996, 948, 997, 948, 948, 948, 948,
- 0, 949, 998, 949, 980, 949, 949, 949, 949, 950,
- 950, 2847, 2847, 2847, 2847, 980, 852, 852, 999, 950,
- 996, 852, 997, 948, 0, 2321, 2321, 950, 1000, 998,
- 852, 852, 2321, 949, 952, 950, 952, 1003, 952, 952,
- 952, 952, 980, 852, 852, 999, 1004, 953, 852, 953,
-
- 948, 953, 953, 953, 953, 1000, 1005, 852, 852, 854,
- 949, 854, 950, 0, 1003, 954, 952, 954, 0, 954,
- 954, 954, 954, 1004, 1011, 1008, 1008, 1009, 1010, 0,
- 953, 0, 954, 1005, 0, 0, 0, 854, 1011, 854,
- 955, 854, 955, 952, 955, 955, 955, 955, 1012, 1013,
- 854, 854, 1008, 1008, 1009, 1010, 956, 953, 956, 954,
- 956, 956, 956, 956, 854, 1011, 854, 2381, 854, 956,
- 955, 2381, 0, 1014, 2381, 1012, 1013, 854, 854, 855,
- 957, 855, 957, 0, 957, 957, 957, 957, 959, 1021,
- 959, 1015, 959, 959, 959, 959, 956, 955, 960, 960,
-
- 1014, 957, 1017, 0, 1018, 959, 1019, 855, 960, 1022,
- 960, 855, 960, 960, 960, 960, 960, 0, 1015, 1021,
- 855, 855, 855, 1020, 0, 0, 962, 0, 957, 1017,
- 962, 1018, 959, 1019, 855, 962, 1022, 1020, 855, 962,
- 962, 962, 962, 967, 967, 1023, 1021, 855, 855, 855,
- 857, 857, 967, 974, 974, 1024, 967, 967, 967, 967,
- 1025, 0, 974, 0, 1020, 0, 974, 974, 974, 974,
- 1026, 0, 1023, 0, 0, 857, 857, 857, 1027, 1029,
- 1028, 857, 1024, 1028, 857, 968, 1030, 1025, 857, 968,
- 857, 857, 857, 0, 968, 0, 1031, 1026, 968, 968,
-
- 968, 968, 857, 857, 857, 1027, 1029, 1028, 857, 0,
- 1028, 857, 0, 1030, 0, 857, 1032, 857, 857, 857,
- 879, 879, 975, 1031, 879, 0, 975, 0, 0, 1033,
- 1034, 975, 1035, 0, 0, 975, 975, 975, 975, 983,
- 983, 879, 1036, 1032, 1037, 879, 1038, 879, 983, 1039,
- 1040, 879, 983, 983, 983, 983, 1033, 1034, 879, 1035,
- 879, 879, 879, 0, 0, 1041, 984, 0, 0, 1036,
- 984, 1037, 879, 1038, 879, 984, 1039, 1040, 879, 984,
- 984, 984, 984, 0, 0, 879, 0, 879, 879, 879,
- 889, 889, 1041, 889, 889, 889, 889, 889, 889, 889,
-
- 889, 889, 889, 0, 889, 889, 0, 1042, 1045, 1046,
- 889, 889, 889, 889, 889, 988, 988, 1050, 1051, 889,
- 1777, 0, 0, 889, 988, 0, 0, 1777, 988, 988,
- 988, 988, 889, 889, 1042, 1045, 1046, 0, 989, 1052,
- 1058, 1777, 989, 0, 1050, 1051, 889, 989, 990, 990,
- 889, 989, 989, 989, 989, 1059, 0, 990, 1060, 889,
- 889, 990, 990, 990, 990, 0, 1052, 1058, 889, 890,
- 890, 0, 890, 890, 890, 890, 890, 890, 890, 890,
- 890, 890, 1059, 890, 890, 1060, 1001, 1001, 0, 890,
- 890, 890, 890, 890, 991, 1001, 1061, 0, 991, 1001,
-
- 1001, 1001, 1001, 991, 1064, 1066, 0, 991, 991, 991,
- 991, 1002, 1067, 1068, 1069, 1002, 0, 0, 0, 1070,
- 1002, 1006, 1006, 1061, 1002, 1002, 1002, 1002, 0, 1007,
- 1006, 1064, 1066, 1007, 1006, 1006, 1006, 1006, 1007, 1067,
- 1068, 1069, 1007, 1007, 1007, 1007, 1070, 890, 914, 914,
- 0, 914, 914, 914, 914, 914, 914, 914, 914, 914,
- 914, 0, 914, 914, 2849, 2849, 2849, 2849, 914, 914,
- 914, 914, 914, 915, 915, 0, 915, 915, 915, 915,
- 915, 915, 915, 915, 915, 915, 0, 915, 915, 915,
- 915, 915, 915, 915, 915, 915, 915, 915, 917, 917,
-
- 917, 917, 917, 917, 917, 917, 917, 917, 917, 917,
- 917, 1071, 917, 917, 1043, 1043, 1072, 0, 917, 917,
- 917, 917, 917, 1043, 1073, 1080, 1668, 1043, 1043, 1043,
- 1043, 1044, 0, 1668, 1081, 1044, 0, 1668, 1071, 1082,
- 1044, 1048, 1048, 1072, 1044, 1044, 1044, 1044, 0, 1049,
- 1048, 1073, 1080, 1049, 1048, 1048, 1048, 1048, 1049, 1055,
- 1055, 1081, 1049, 1049, 1049, 1049, 1082, 0, 1055, 1083,
- 0, 0, 1055, 1055, 1055, 1055, 917, 918, 918, 918,
- 918, 918, 918, 918, 918, 918, 918, 918, 918, 918,
- 0, 918, 918, 1084, 1062, 1062, 1083, 918, 918, 918,
-
- 918, 918, 1056, 1062, 1093, 0, 1056, 1062, 1062, 1062,
- 1062, 1056, 1074, 1074, 1094, 1056, 1056, 1056, 1056, 1063,
- 1084, 0, 1074, 1063, 1095, 1096, 1097, 1109, 1063, 0,
- 1074, 1093, 1063, 1063, 1063, 1063, 1111, 1112, 1074, 0,
- 0, 1094, 2031, 2031, 2031, 2031, 1086, 1104, 1086, 0,
- 2031, 1095, 1096, 1097, 1109, 918, 943, 943, 943, 943,
- 0, 943, 943, 1111, 1112, 1074, 943, 943, 943, 943,
- 943, 943, 1104, 1108, 1086, 1108, 943, 943, 1086, 943,
- 943, 1087, 0, 1087, 1090, 0, 1090, 1086, 1086, 1091,
- 0, 1091, 1106, 1107, 0, 0, 0, 1107, 0, 1104,
-
- 1108, 1086, 1108, 0, 0, 1086, 1106, 943, 0, 1087,
- 0, 0, 1090, 1087, 1086, 1086, 1090, 1091, 1114, 1106,
- 1107, 1091, 1087, 1087, 1107, 1090, 1090, 1116, 0, 0,
- 1091, 1091, 0, 1106, 943, 1077, 1087, 1110, 1077, 1090,
- 1087, 1110, 0, 1090, 1091, 1114, 1113, 1117, 1091, 1087,
- 1087, 1118, 1090, 1090, 1116, 1077, 1113, 1091, 1091, 1077,
- 0, 1077, 0, 1119, 1110, 1125, 1126, 1127, 1110, 1115,
- 1115, 1128, 1077, 1113, 1117, 1077, 1077, 0, 1118, 1115,
- 0, 0, 0, 1113, 0, 0, 1077, 1115, 1077, 1098,
- 1119, 1098, 1125, 1126, 1127, 0, 1129, 0, 1128, 1077,
-
- 0, 0, 1077, 1077, 1078, 1078, 0, 1078, 1078, 1078,
- 1078, 1078, 1078, 1078, 1078, 1078, 1078, 1098, 1078, 1078,
- 0, 1098, 1124, 1129, 1078, 1078, 1078, 1078, 1078, 1130,
- 1098, 1098, 1078, 1078, 1139, 1124, 1140, 1078, 1141, 1142,
- 1143, 0, 1144, 0, 1098, 1145, 1078, 1078, 1098, 1124,
- 1146, 1157, 1158, 1157, 1160, 0, 1130, 1098, 1098, 1078,
- 1078, 1139, 1124, 1140, 1078, 1141, 1142, 1143, 1099, 1144,
- 1099, 0, 1145, 1078, 1078, 1161, 1153, 1146, 1157, 1158,
- 1157, 1160, 1078, 1085, 1085, 0, 1085, 1085, 1085, 1085,
- 1085, 1085, 1085, 1085, 1085, 1085, 1099, 1085, 1085, 0,
-
- 1099, 1153, 1161, 1085, 1085, 1085, 1085, 1085, 1163, 1099,
- 1099, 2307, 1085, 1101, 0, 1101, 1085, 1155, 1132, 0,
- 1132, 1165, 2307, 1099, 1166, 1085, 1085, 1099, 1153, 1167,
- 1162, 1155, 2307, 0, 0, 1163, 1099, 1099, 1156, 1085,
- 1162, 1101, 1156, 1085, 1155, 1101, 1132, 1133, 1165, 1133,
- 1132, 1166, 1085, 1085, 1101, 1101, 1167, 1162, 1155, 1132,
- 1132, 1085, 1088, 0, 1088, 1156, 1168, 1162, 1101, 1156,
- 0, 1169, 1101, 1132, 1159, 1133, 0, 1132, 1159, 1133,
- 0, 1101, 1101, 0, 1170, 0, 1132, 1132, 1133, 1133,
- 1088, 0, 0, 1168, 1088, 1171, 1179, 1088, 1169, 1088,
-
- 1179, 1159, 1133, 1088, 1088, 1159, 1133, 1136, 0, 1136,
- 1137, 1170, 1137, 1180, 1181, 1133, 1133, 1088, 1164, 1164,
- 1182, 1088, 1171, 1179, 1088, 0, 1088, 1179, 1164, 1183,
- 1088, 1088, 1089, 0, 1089, 1136, 1164, 0, 1137, 1136,
- 1180, 1181, 1137, 1184, 1185, 1187, 0, 1182, 1136, 1136,
- 1188, 1137, 1137, 1184, 1189, 1190, 1183, 1191, 1192, 1193,
- 1089, 1089, 1136, 1196, 1089, 1137, 1136, 1197, 1199, 1137,
- 1184, 1185, 1187, 1089, 1089, 1136, 1136, 1188, 1137, 1137,
- 1184, 1189, 1190, 1243, 1191, 1192, 1193, 1089, 1089, 0,
- 1196, 1089, 1243, 0, 1197, 1199, 1243, 1243, 1243, 1243,
-
- 1089, 1089, 1092, 1092, 1092, 1092, 1092, 1092, 1092, 1092,
- 1092, 1092, 1092, 1092, 1092, 1092, 1092, 1092, 1092, 1092,
- 1092, 1092, 1092, 1092, 1092, 1092, 1092, 1092, 1092, 1092,
- 1092, 1092, 1092, 1092, 1092, 1092, 1092, 1092, 1092, 1092,
- 1092, 1092, 1092, 1092, 1092, 1092, 1092, 1092, 1092, 1092,
- 1092, 1092, 1092, 1092, 1092, 1092, 1092, 1092, 1092, 1092,
- 1092, 1092, 1092, 1092, 1092, 1092, 1092, 1092, 1092, 1092,
- 1092, 1092, 1092, 1092, 1092, 1092, 1092, 1092, 1092, 1092,
- 1092, 1100, 0, 1100, 1195, 1195, 1147, 0, 1147, 1148,
- 0, 1148, 1204, 1205, 1195, 0, 1544, 1150, 0, 1150,
-
- 0, 0, 1195, 1544, 0, 1174, 0, 1174, 1100, 1100,
- 1544, 1544, 1544, 1100, 1147, 1206, 1209, 1148, 1147, 1204,
- 1205, 1148, 1100, 1100, 0, 1150, 0, 1147, 1147, 1150,
- 1148, 1148, 0, 1174, 0, 1100, 1100, 1174, 1150, 1150,
- 1100, 1147, 1206, 1209, 1148, 1147, 1174, 1174, 1148, 1100,
- 1100, 1102, 1150, 1102, 1147, 1147, 1150, 1148, 1148, 1175,
- 1174, 1175, 1210, 1211, 1174, 1150, 1150, 1212, 1213, 1208,
- 1176, 1175, 1176, 1174, 1174, 1177, 0, 1177, 1214, 1102,
- 0, 1102, 1208, 1102, 0, 0, 1215, 1175, 1216, 1210,
- 1211, 1175, 1102, 1102, 1212, 1213, 1208, 1218, 1176, 1219,
-
- 1175, 1175, 1176, 1177, 1223, 1214, 1102, 1177, 1102, 1208,
- 1102, 1176, 1176, 1215, 1175, 1216, 1177, 1177, 1175, 1102,
- 1102, 1103, 0, 1103, 1218, 1176, 1219, 1175, 1175, 1176,
- 1177, 1223, 1202, 1202, 1177, 2290, 2290, 2290, 1176, 1176,
- 1224, 1202, 2290, 1177, 1177, 1202, 1202, 1202, 1202, 1103,
- 1217, 1217, 1222, 1103, 1222, 1225, 1203, 1203, 1227, 1229,
- 1217, 1230, 1103, 1103, 1103, 1203, 0, 1224, 1217, 1203,
- 1203, 1203, 1203, 1226, 1231, 1232, 1103, 1234, 1236, 1222,
- 1103, 1222, 1225, 1226, 1239, 1227, 1229, 1240, 1230, 1103,
- 1103, 1103, 1105, 1105, 1254, 1255, 1680, 1256, 1257, 0,
-
- 1226, 1231, 1232, 1680, 1234, 1236, 0, 1680, 1259, 1682,
- 1226, 1239, 1261, 0, 1240, 0, 1682, 1105, 1105, 1105,
- 1682, 1254, 1255, 1105, 1256, 1257, 1105, 1244, 1262, 1263,
- 1105, 1244, 1105, 1105, 1105, 1259, 1244, 1258, 1239, 1261,
- 1244, 1244, 1244, 1244, 1105, 1105, 1105, 1258, 0, 1264,
- 1105, 0, 0, 1105, 1265, 1262, 1263, 1105, 1266, 1105,
- 1105, 1105, 1121, 1121, 1258, 1246, 1121, 1246, 1267, 1246,
- 1246, 1246, 1246, 1247, 1258, 1247, 1264, 1247, 1247, 1247,
- 1247, 1265, 1268, 1121, 1269, 1266, 1270, 1121, 1271, 1121,
- 1272, 1273, 1275, 1121, 1276, 1267, 1277, 1280, 1281, 1291,
-
- 1121, 1292, 1121, 1121, 1121, 0, 0, 1305, 0, 1268,
- 0, 1269, 0, 1270, 1121, 1271, 1121, 1272, 1273, 1275,
- 1121, 1276, 0, 1277, 1280, 1281, 1291, 1121, 1292, 1121,
- 1121, 1121, 1122, 1122, 1305, 1122, 1122, 1122, 1122, 1122,
- 1122, 1122, 1122, 1122, 1122, 1306, 1122, 1122, 1284, 1284,
- 1307, 0, 1122, 1122, 1122, 1122, 1122, 0, 1284, 1308,
- 1122, 1122, 1309, 1310, 1311, 1122, 1284, 1317, 0, 1318,
- 0, 0, 1306, 0, 1122, 1122, 1285, 1307, 1285, 1319,
- 1285, 1285, 1285, 1285, 1289, 1312, 1308, 1122, 1122, 1309,
- 1310, 1311, 1122, 1289, 1317, 1289, 1318, 1289, 1289, 1289,
-
- 1289, 1122, 1122, 1285, 0, 1313, 1319, 0, 0, 1312,
- 1122, 1131, 1131, 1315, 1131, 1131, 1131, 1131, 1131, 1131,
- 1131, 1131, 1131, 1131, 1313, 1131, 1131, 0, 1315, 1314,
- 1285, 1131, 1131, 1131, 1131, 1131, 1312, 0, 1320, 1316,
- 1131, 1287, 1314, 1287, 1131, 1287, 1287, 1287, 1287, 1321,
- 1322, 1313, 1323, 1131, 1131, 1315, 0, 1288, 1316, 1288,
- 1287, 1288, 1288, 1288, 1288, 1320, 1324, 1131, 1325, 1314,
- 1326, 1131, 0, 1290, 1290, 0, 1321, 1322, 1288, 1323,
- 1131, 1131, 0, 1290, 0, 1316, 1327, 1287, 1328, 1131,
- 1134, 1290, 1134, 1324, 1329, 1325, 1293, 1326, 1293, 1290,
-
- 1293, 1293, 1293, 1293, 1294, 1288, 1294, 1330, 1294, 1294,
- 1294, 1294, 0, 1327, 1331, 1328, 1332, 1293, 1134, 1333,
- 1294, 1329, 1134, 1334, 1335, 1134, 1290, 1134, 1336, 1338,
- 1342, 1134, 1134, 1295, 1330, 1295, 0, 1295, 1295, 1295,
- 1295, 1331, 0, 1332, 1293, 1134, 1333, 1294, 0, 1134,
- 1334, 1335, 1134, 0, 1134, 1336, 1338, 1342, 1134, 1134,
- 1135, 1339, 1135, 1296, 1295, 1296, 0, 1296, 1296, 1296,
- 1296, 0, 0, 0, 0, 1297, 1296, 1297, 0, 1297,
- 1297, 1297, 1297, 2074, 1299, 2074, 1339, 1343, 1135, 1135,
- 1297, 1295, 1135, 1299, 1344, 1299, 1300, 1299, 1299, 1299,
-
- 1299, 1135, 1135, 1296, 0, 1300, 2074, 1300, 0, 1300,
- 1300, 1300, 1300, 1339, 1343, 1135, 1135, 1297, 0, 1135,
- 0, 1344, 0, 0, 0, 0, 0, 0, 1135, 1135,
- 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
- 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
- 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
- 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
- 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
- 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
- 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
-
- 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1149,
- 0, 1149, 1298, 1301, 1298, 0, 1298, 1298, 1298, 1298,
- 0, 0, 1301, 0, 1301, 1345, 1301, 1301, 1301, 1301,
- 1302, 1302, 1346, 1347, 1348, 1349, 1149, 1149, 1350, 1298,
- 1302, 1149, 1302, 1351, 1302, 1302, 1302, 1302, 1302, 1352,
- 1149, 1149, 1345, 1353, 0, 1354, 0, 1303, 1303, 1346,
- 1347, 1348, 1349, 1149, 1149, 1350, 1298, 1303, 1149, 1355,
- 1351, 1356, 1357, 1358, 1359, 1303, 1352, 1149, 1149, 1151,
- 1353, 1151, 1354, 1303, 1360, 1361, 1362, 1363, 1364, 1365,
- 1366, 1367, 1368, 0, 0, 1369, 1355, 1370, 1356, 1357,
-
- 1358, 1359, 1371, 1372, 1360, 1373, 1375, 1151, 1376, 1151,
- 1303, 1151, 1361, 1362, 1363, 1364, 1365, 1366, 1367, 1368,
- 1151, 1151, 1369, 1378, 1370, 1379, 1380, 1381, 1382, 1371,
- 1372, 1360, 1373, 1375, 1151, 1376, 1151, 1383, 1151, 1384,
- 1385, 1386, 1387, 1388, 1389, 1424, 0, 1151, 1151, 1152,
- 1378, 1152, 1379, 1380, 1381, 1382, 1395, 0, 1396, 1419,
- 0, 0, 0, 1395, 1383, 1396, 1384, 1385, 1386, 1387,
- 1388, 1389, 1424, 1397, 1426, 1398, 1408, 1152, 1410, 1395,
- 1397, 1152, 1398, 1408, 1419, 1410, 0, 1409, 1412, 1396,
- 1152, 1152, 1152, 1399, 1409, 1412, 0, 1427, 1411, 1422,
-
- 1399, 1426, 0, 1422, 1152, 1411, 1395, 1398, 1152, 1408,
- 1429, 1419, 1397, 1409, 1410, 0, 1396, 1152, 1152, 1152,
- 1154, 1154, 1428, 1399, 1427, 1401, 1422, 1401, 1411, 1412,
- 1422, 0, 1428, 0, 1398, 0, 1408, 1429, 1421, 1397,
- 1409, 1410, 1423, 0, 1423, 1154, 1154, 1154, 0, 1428,
- 1399, 1154, 1421, 1401, 1154, 1411, 1412, 1401, 1154, 1428,
- 1154, 1154, 1154, 0, 0, 1421, 1401, 1401, 1402, 1423,
- 1402, 1423, 1154, 1154, 1154, 1405, 0, 1405, 1154, 1421,
- 1401, 1154, 0, 0, 1401, 1154, 1443, 1154, 1154, 1154,
- 1172, 1431, 1172, 1401, 1401, 1432, 1402, 1425, 1431, 1444,
-
- 1402, 1425, 1432, 1405, 1433, 0, 1445, 1405, 1442, 1402,
- 1402, 1433, 1442, 1443, 0, 1431, 1405, 1405, 1172, 1432,
- 1446, 1448, 1172, 1402, 1425, 1450, 1444, 1402, 1425, 1172,
- 1405, 1172, 1172, 1445, 1405, 1442, 1402, 1402, 1406, 1442,
- 1406, 1433, 1431, 1405, 1405, 1172, 1432, 1446, 1448, 1172,
- 1434, 1451, 1450, 1413, 1472, 1413, 1172, 1434, 1172, 1172,
- 1173, 1472, 1173, 1447, 1430, 1430, 1406, 0, 1433, 1452,
- 1406, 1453, 1430, 1447, 1430, 0, 1454, 1455, 1451, 1406,
- 1406, 1413, 1430, 1434, 1456, 1413, 1472, 1501, 1173, 1173,
- 1447, 0, 1173, 1406, 1413, 1413, 1452, 1406, 1453, 0,
-
- 1447, 1173, 1173, 1454, 1455, 0, 1406, 1406, 1413, 0,
- 1434, 1456, 1413, 1472, 1501, 1173, 1173, 0, 1468, 1173,
- 1503, 1413, 1413, 0, 1414, 1468, 1414, 1459, 1173, 1173,
- 1194, 1194, 1194, 1194, 1459, 1194, 1194, 0, 0, 0,
- 1194, 1194, 1194, 1194, 1194, 1194, 1416, 1503, 1416, 1468,
- 1194, 1194, 1414, 1194, 1194, 1504, 1414, 1437, 0, 1437,
- 1483, 0, 1458, 1458, 1460, 1414, 1414, 1483, 1459, 1496,
- 1458, 1460, 1458, 0, 1416, 0, 1468, 0, 1416, 1414,
- 1458, 1194, 1504, 1414, 2085, 1437, 2085, 1416, 1416, 1437,
- 1460, 1506, 1414, 1414, 1496, 1459, 1469, 1483, 1437, 1437,
-
- 1439, 1416, 1439, 1469, 1470, 1416, 0, 2085, 1194, 1207,
- 1207, 1470, 1437, 1207, 1416, 1416, 1437, 1460, 1506, 0,
- 1462, 1496, 1471, 0, 1483, 1437, 1437, 1462, 1439, 1471,
- 1207, 1469, 1439, 1500, 1207, 1500, 1207, 0, 1482, 0,
- 1207, 1439, 1439, 1470, 0, 1482, 1462, 1207, 1471, 1207,
- 1207, 1207, 0, 0, 1523, 1439, 0, 0, 1469, 1439,
- 1500, 1207, 1500, 1207, 1440, 0, 1440, 1207, 1439, 1439,
- 1470, 1482, 0, 1462, 1207, 1471, 1207, 1207, 1207, 1220,
- 1220, 1523, 1220, 1220, 1220, 1220, 1220, 1220, 1220, 1220,
- 1220, 1220, 1440, 1220, 1220, 0, 1440, 1473, 1482, 1220,
-
- 1220, 1220, 1220, 1220, 1473, 1440, 1440, 1505, 1220, 1524,
- 0, 1498, 1220, 1487, 1525, 1526, 0, 1505, 0, 1440,
- 1487, 1220, 1220, 1440, 1467, 1498, 0, 1473, 0, 0,
- 1484, 1467, 1440, 1440, 1505, 1220, 1524, 1484, 1498, 1220,
- 0, 1525, 1526, 1438, 1505, 1438, 1488, 1467, 1220, 1220,
- 1487, 0, 1498, 1488, 1473, 1438, 1484, 1220, 1221, 1221,
- 1467, 1221, 1221, 1221, 1221, 1221, 1221, 1221, 1221, 1221,
- 1221, 1438, 1221, 1221, 1467, 1438, 1488, 1487, 1221, 1221,
- 1221, 1221, 1221, 1484, 1438, 1438, 1489, 1467, 1499, 1528,
- 1486, 1502, 1499, 1489, 1527, 1502, 0, 1486, 1438, 1485,
-
- 0, 1522, 1438, 1488, 1527, 1522, 1485, 1530, 1531, 0,
- 0, 1438, 1438, 1684, 0, 1499, 1528, 0, 1502, 1499,
- 1684, 1527, 1502, 1485, 1684, 0, 1486, 1489, 1522, 1532,
- 0, 1527, 1522, 0, 1530, 1531, 1221, 1249, 1249, 0,
- 1249, 1249, 1249, 1249, 1249, 1249, 1249, 1249, 1249, 1249,
- 1485, 1249, 1249, 1486, 1489, 0, 1532, 1249, 1249, 1249,
- 1249, 1249, 1250, 1250, 0, 1250, 1250, 1250, 1250, 1250,
- 1250, 1250, 1250, 1250, 1250, 0, 1250, 1250, 1250, 1250,
- 1250, 1250, 1250, 1250, 1250, 1250, 1250, 1252, 1252, 1252,
- 1252, 1252, 1252, 1252, 1252, 1252, 1252, 1252, 1252, 1252,
-
- 1533, 1252, 1252, 0, 1507, 1507, 1509, 1252, 1252, 1252,
- 1252, 1252, 1507, 1509, 1507, 1534, 1535, 1536, 1508, 1781,
- 0, 1551, 1507, 1552, 1880, 1508, 1781, 1533, 1538, 1538,
- 1509, 1880, 1553, 1554, 1511, 1555, 1538, 0, 1538, 1781,
- 1781, 1511, 1534, 1535, 1536, 1880, 1538, 1513, 1551, 1510,
- 1552, 1475, 0, 1475, 1513, 0, 1510, 1509, 1511, 1553,
- 1554, 0, 1555, 0, 1508, 1252, 1253, 1253, 1253, 1253,
- 1253, 1253, 1253, 1253, 1253, 1253, 1253, 1253, 1253, 1475,
- 1253, 1253, 1510, 1475, 1513, 1511, 1253, 1253, 1253, 1253,
- 1253, 1508, 1475, 1475, 1476, 0, 1476, 1539, 1539, 0,
-
- 1556, 1512, 1558, 0, 0, 1539, 1475, 1539, 1512, 1510,
- 1475, 1513, 2309, 1559, 0, 1539, 0, 1542, 0, 1475,
- 1475, 1874, 1476, 2309, 1542, 0, 1476, 1556, 1874, 1558,
- 1543, 1514, 1874, 2309, 1512, 1476, 1476, 1543, 1514, 1479,
- 1559, 1479, 1874, 1542, 1253, 1282, 1282, 1282, 1282, 1476,
- 1282, 1282, 1543, 1476, 0, 1282, 1282, 1282, 1282, 1282,
- 1282, 1512, 1476, 1476, 1514, 1282, 1282, 1479, 1282, 1282,
- 1542, 1479, 1480, 0, 1480, 1540, 1560, 0, 1563, 1543,
- 1479, 1479, 1540, 1545, 1564, 1578, 1541, 2075, 1579, 2075,
- 1545, 1514, 1600, 1541, 1479, 1592, 1282, 0, 1479, 2075,
-
- 1480, 0, 1592, 1560, 1480, 1563, 1601, 1479, 1479, 1545,
- 2075, 1564, 1578, 1480, 1480, 1579, 1540, 1592, 1490, 1600,
- 1490, 0, 0, 1282, 1283, 1283, 1283, 1480, 1541, 1283,
- 1283, 1480, 0, 1601, 1283, 1283, 1545, 1283, 1283, 1283,
- 1480, 1480, 1568, 1540, 1592, 1283, 1490, 1283, 1283, 1568,
- 1490, 1602, 1491, 0, 1491, 1541, 1566, 1566, 1604, 1490,
- 1490, 1572, 1572, 1493, 0, 1493, 1566, 0, 0, 1572,
- 0, 1572, 0, 1490, 1566, 1283, 1581, 1490, 1602, 1572,
- 1491, 0, 1568, 1581, 1491, 1604, 1490, 1490, 0, 0,
- 1582, 1493, 1606, 1491, 1491, 1493, 1517, 1582, 1517, 1581,
-
- 0, 1574, 1283, 1392, 1493, 1493, 1392, 1491, 1574, 1568,
- 1392, 1491, 1581, 0, 1574, 1574, 1574, 1574, 1493, 1606,
- 1491, 1491, 1493, 1392, 1517, 1582, 1581, 1392, 1517, 1392,
- 0, 1493, 1493, 1607, 0, 1577, 1577, 1517, 1517, 1581,
- 1392, 0, 0, 1392, 1392, 1577, 0, 1608, 1763, 1763,
- 0, 1517, 1582, 1577, 1392, 1517, 1392, 1518, 1763, 1518,
- 1607, 1587, 0, 1609, 1517, 1517, 1763, 1392, 1587, 1518,
- 1392, 1392, 1393, 1393, 1608, 1393, 1393, 1393, 1393, 1393,
- 1393, 1393, 1393, 1393, 1393, 1518, 1393, 1393, 0, 1518,
- 1609, 1611, 1393, 1393, 1393, 1393, 1393, 1585, 1518, 1518,
-
- 1393, 1393, 1616, 1584, 1585, 1393, 1599, 1587, 1599, 0,
- 1584, 0, 1518, 0, 1393, 1393, 1518, 0, 1611, 0,
- 1617, 1585, 1618, 0, 0, 1518, 1518, 1393, 1393, 1616,
- 1575, 1575, 1393, 1599, 1587, 1599, 1519, 1575, 1519, 1575,
- 1584, 1393, 1393, 1575, 1575, 1575, 1575, 1617, 1585, 1618,
- 1393, 1400, 1400, 0, 1400, 1400, 1400, 1400, 1400, 1400,
- 1400, 1400, 1400, 1400, 1519, 1400, 1400, 1584, 1519, 1586,
- 1620, 1400, 1400, 1400, 1400, 1400, 1586, 1519, 1519, 2310,
- 1400, 1520, 1583, 1520, 1400, 0, 1547, 0, 1547, 1583,
- 2310, 1519, 1588, 1400, 1400, 1519, 0, 1620, 0, 1588,
-
- 2310, 0, 0, 0, 1519, 1519, 1586, 1400, 1583, 1520,
- 1621, 1400, 1619, 1520, 1547, 0, 1590, 1590, 1547, 1619,
- 1400, 1400, 1520, 1520, 1590, 1588, 1590, 1547, 1547, 1400,
- 1403, 1589, 1403, 1586, 1590, 1583, 1520, 1621, 1589, 1591,
- 1520, 1547, 1549, 0, 1549, 1547, 1591, 1549, 0, 1520,
- 1520, 1619, 1588, 1603, 1547, 1547, 0, 0, 1403, 0,
- 0, 1595, 1403, 1603, 1589, 1403, 1635, 1403, 1595, 1615,
- 1549, 1403, 1403, 0, 1549, 1548, 0, 1548, 1619, 0,
- 1603, 1591, 1636, 1549, 1549, 1403, 1595, 1548, 0, 1403,
- 1603, 1589, 1403, 1635, 1403, 0, 1615, 1549, 1403, 1403,
-
- 1404, 1549, 1404, 1548, 1637, 1576, 1576, 1548, 1591, 1636,
- 1549, 1549, 1576, 1595, 1576, 1596, 1548, 1548, 1576, 1576,
- 1576, 1576, 1596, 1615, 1638, 1639, 1640, 1642, 1404, 1404,
- 1548, 1637, 1404, 1623, 1548, 1643, 1644, 1647, 1648, 1596,
- 1623, 1404, 1404, 1548, 1548, 0, 1623, 1623, 1623, 1623,
- 2419, 1638, 1639, 1640, 1642, 1404, 1404, 2419, 0, 1404,
- 0, 2419, 1643, 1644, 1647, 1648, 1596, 0, 1404, 1404,
- 1407, 1407, 1407, 1407, 1407, 1407, 1407, 1407, 1407, 1407,
- 1407, 1407, 1407, 1407, 1407, 1407, 1407, 1407, 1407, 1407,
- 1407, 1407, 1407, 1407, 1407, 1407, 1407, 1407, 1407, 1407,
-
- 1407, 1407, 1407, 1407, 1407, 1407, 1407, 1407, 1407, 1407,
- 1407, 1407, 1407, 1407, 1407, 1407, 1407, 1407, 1407, 1407,
- 1407, 1407, 1407, 1407, 1407, 1407, 1407, 1407, 1407, 1407,
- 1407, 1407, 1407, 1407, 1407, 1407, 1407, 1407, 1407, 1407,
- 1407, 1407, 1407, 1407, 1407, 1407, 1407, 1407, 1407, 1415,
- 1624, 1415, 1650, 1672, 0, 1651, 1652, 1624, 0, 1624,
- 1672, 1655, 1657, 1624, 1624, 1624, 1624, 1659, 1660, 0,
- 1692, 1625, 1694, 0, 1695, 1625, 1415, 1415, 1625, 1650,
- 1625, 1415, 1651, 1652, 1625, 1625, 1625, 1625, 1655, 1657,
- 1415, 1415, 1664, 1664, 1659, 1660, 1672, 1692, 1627, 1694,
-
- 1664, 1695, 1664, 1415, 1415, 1627, 1700, 1627, 1415, 1627,
- 1664, 1627, 1627, 1627, 1627, 1628, 1696, 1415, 1415, 1417,
- 1881, 1417, 1628, 1672, 1628, 0, 1628, 1881, 1628, 1628,
- 1628, 1628, 1665, 1671, 1665, 1700, 1665, 1665, 1665, 1665,
- 1671, 1881, 2086, 1696, 2086, 0, 2311, 1417, 1666, 1417,
- 1666, 1417, 1666, 1666, 1666, 1666, 1665, 2311, 1699, 0,
- 1417, 1417, 1700, 1671, 0, 2086, 1667, 2311, 1667, 1666,
- 1667, 1667, 1667, 1667, 1417, 0, 1417, 1699, 1417, 1673,
- 0, 1697, 0, 1665, 1670, 1670, 1673, 1417, 1417, 1418,
- 1671, 1418, 1670, 1667, 1670, 2349, 1666, 2349, 1697, 0,
-
- 0, 1674, 1670, 1674, 1699, 1674, 1674, 1674, 1674, 1673,
- 1670, 1702, 0, 1703, 1704, 1705, 1706, 1418, 2349, 1674,
- 1667, 1418, 1675, 0, 1675, 1697, 1675, 1675, 1675, 1675,
- 1418, 1418, 1418, 0, 0, 0, 1673, 1670, 1702, 1675,
- 1703, 1704, 1705, 1706, 1418, 1676, 1674, 1676, 1418, 1676,
- 1676, 1676, 1676, 0, 0, 1689, 1707, 1418, 1418, 1418,
- 1420, 1420, 1689, 1677, 0, 1677, 1675, 1677, 1677, 1677,
- 1677, 1698, 1701, 1678, 0, 1678, 1676, 1678, 1678, 1678,
- 1678, 1689, 1708, 1707, 1709, 1420, 1420, 1420, 1677, 1710,
- 1678, 1420, 1712, 1713, 1420, 1698, 1701, 1714, 1420, 1715,
-
- 1420, 1420, 1420, 1676, 0, 0, 0, 1716, 1689, 1708,
- 0, 1709, 1420, 1420, 1420, 1677, 1710, 1678, 1420, 1712,
- 1713, 1420, 1698, 1701, 1714, 1420, 1715, 1420, 1420, 1420,
- 1435, 1679, 1435, 1679, 1716, 1679, 1679, 1679, 1679, 1719,
- 0, 1688, 1688, 1720, 1736, 0, 1723, 1724, 1726, 1688,
- 1728, 1688, 1729, 1730, 1731, 1732, 1733, 1679, 1435, 1688,
- 1734, 1735, 1435, 1737, 1736, 1738, 1719, 1688, 1739, 1435,
- 1720, 1435, 1435, 1723, 1724, 1726, 1740, 1728, 1741, 1729,
- 1730, 1731, 1732, 1733, 1679, 1435, 1742, 1734, 1735, 1435,
- 1737, 1736, 1738, 1743, 1688, 1739, 1435, 1744, 1435, 1435,
-
- 1436, 1753, 1436, 1740, 1745, 1741, 1747, 1746, 1748, 1749,
- 1750, 1751, 1755, 1742, 0, 0, 1756, 1757, 1753, 1758,
- 1743, 1746, 1759, 1761, 1744, 1766, 1772, 1775, 1436, 1436,
- 1775, 1745, 1436, 1747, 1792, 1748, 1749, 1750, 1751, 1755,
- 1792, 1436, 1436, 1756, 1757, 1753, 1758, 1921, 1746, 1759,
- 1761, 2423, 1766, 1772, 0, 1436, 1436, 1775, 2423, 1436,
- 1793, 0, 2423, 0, 0, 1793, 0, 1792, 1436, 1436,
- 1457, 1457, 1457, 1457, 1921, 1457, 1457, 1764, 1764, 0,
- 1457, 1457, 1457, 1457, 1457, 1457, 0, 1764, 1765, 1765,
- 1457, 1457, 1793, 1457, 1457, 1764, 0, 0, 1765, 1806,
-
- 1767, 1767, 1768, 1768, 1769, 1769, 1765, 1770, 1770, 1778,
- 1767, 0, 1768, 1764, 1769, 1769, 1778, 1770, 1767, 1806,
- 1768, 1457, 1769, 1790, 1765, 1770, 1771, 1771, 0, 0,
- 1778, 1767, 1790, 1778, 1783, 1785, 1771, 0, 1771, 0,
- 1764, 1783, 1785, 0, 1771, 1782, 1806, 0, 1457, 1464,
- 1464, 1765, 1782, 1464, 1801, 1783, 1785, 1464, 1767, 1790,
- 1778, 1807, 0, 0, 1805, 1783, 1782, 1785, 1782, 1791,
- 1464, 1805, 1784, 1801, 1464, 1786, 1464, 0, 1840, 1784,
- 1464, 1791, 1786, 1791, 1803, 1840, 1807, 1464, 1803, 1464,
- 1464, 1464, 1783, 1784, 1785, 1782, 1786, 0, 1805, 0,
-
- 1801, 1464, 0, 1464, 1794, 1786, 0, 1464, 1791, 1794,
- 1791, 1784, 1840, 1807, 1464, 1803, 1464, 1464, 1464, 1465,
- 1465, 0, 1465, 1465, 1465, 1465, 1465, 1465, 1465, 1465,
- 1465, 1465, 1786, 1465, 1465, 1842, 1794, 1802, 1784, 1465,
- 1465, 1465, 1465, 1465, 1810, 1815, 1802, 1465, 1465, 1810,
- 1815, 1796, 1465, 1810, 1811, 1842, 1802, 0, 1796, 1812,
- 1798, 1465, 1465, 0, 1797, 1812, 1811, 1798, 1811, 0,
- 0, 1797, 1796, 1802, 1465, 1465, 1810, 1815, 0, 1465,
- 1810, 1798, 1842, 1802, 1796, 1797, 0, 0, 1465, 1465,
- 1797, 0, 1812, 1811, 0, 1811, 1798, 1465, 1474, 1474,
-
- 0, 1474, 1474, 1474, 1474, 1474, 1474, 1474, 1474, 1474,
- 1474, 1796, 1474, 1474, 1787, 0, 1787, 1797, 1474, 1474,
- 1474, 1474, 1474, 1798, 1809, 1809, 0, 1474, 0, 1799,
- 1817, 1474, 0, 1816, 1814, 1814, 1799, 1787, 1816, 1809,
- 1474, 1474, 1787, 0, 0, 0, 1787, 0, 1816, 1843,
- 1799, 1817, 1809, 1800, 1474, 1787, 1787, 0, 1474, 1799,
- 1800, 1788, 1814, 1788, 1819, 1816, 1809, 1474, 1474, 1787,
- 1843, 1819, 1827, 1787, 1800, 1816, 1474, 1477, 1817, 1477,
- 1820, 1827, 1787, 1787, 1788, 1819, 1799, 1820, 1819, 1788,
- 1813, 1825, 1824, 1788, 1800, 1813, 1825, 1843, 1824, 1813,
-
- 2425, 1820, 1788, 1788, 1820, 1477, 1821, 2425, 1827, 1477,
- 0, 2425, 1477, 1821, 1477, 1819, 1788, 1822, 1477, 1477,
- 1788, 1800, 1813, 1825, 1822, 1824, 1813, 1821, 1831, 1788,
- 1788, 1820, 1477, 0, 1818, 1818, 1477, 1823, 1822, 1477,
- 1831, 1477, 1818, 1821, 1818, 1477, 1477, 1478, 1851, 1478,
- 1822, 0, 1818, 1823, 1830, 1832, 1818, 1832, 1833, 1830,
- 1851, 1836, 1834, 1830, 1833, 1836, 1839, 1831, 1838, 1838,
- 1821, 1856, 1841, 1858, 1923, 1478, 1478, 1822, 1841, 1478,
- 1823, 1834, 1858, 1856, 1832, 1839, 1830, 1851, 1478, 1478,
- 1830, 1833, 1836, 1876, 0, 0, 1838, 0, 0, 0,
-
- 1876, 1923, 1478, 1478, 1876, 1841, 1478, 0, 1834, 1858,
- 1856, 0, 1839, 0, 1876, 1478, 1478, 1481, 1481, 1481,
- 1481, 1481, 1481, 1481, 1481, 1481, 1481, 1481, 1481, 1481,
- 1481, 1481, 1481, 1481, 1481, 1481, 1481, 1481, 1481, 1481,
- 1481, 1481, 1481, 1481, 1481, 1481, 1481, 1481, 1481, 1481,
- 1481, 1481, 1481, 1481, 1481, 1481, 1481, 1481, 1481, 1481,
- 1481, 1481, 1481, 1481, 1481, 1481, 1481, 1481, 1481, 1481,
- 1481, 1481, 1481, 1481, 1481, 1481, 1481, 1481, 1481, 1481,
- 1481, 1481, 1481, 1481, 1481, 1481, 1481, 1481, 1481, 1481,
- 1481, 1481, 1481, 1481, 1481, 1481, 1492, 1835, 1492, 1844,
-
- 1845, 1845, 0, 1846, 1846, 1847, 1835, 0, 1848, 1861,
- 1845, 1846, 1847, 1846, 1861, 1848, 1835, 1844, 1845, 0,
- 1855, 1846, 1845, 1492, 1492, 1846, 1847, 1854, 1492, 1848,
- 0, 0, 1859, 1835, 1848, 1855, 0, 1492, 1492, 1864,
- 0, 1861, 1849, 1835, 1844, 1854, 1847, 0, 1859, 1849,
- 1492, 1492, 0, 1850, 1854, 1492, 1849, 1849, 1849, 1864,
- 1850, 1848, 1855, 1849, 1492, 1492, 1494, 1857, 1494, 1863,
- 1860, 1868, 1865, 1847, 1850, 1859, 1860, 1865, 1869, 1850,
- 0, 1854, 1857, 1870, 1870, 1863, 1864, 1924, 1920, 1868,
- 1920, 0, 1869, 1870, 1494, 1919, 1494, 0, 1494, 1919,
-
- 1926, 1870, 0, 1860, 1865, 1870, 1850, 1494, 1494, 1857,
- 1872, 1872, 1863, 0, 1924, 1920, 1868, 1920, 1916, 1869,
- 1872, 1494, 1919, 1494, 1885, 1494, 1919, 1926, 1872, 1873,
- 1873, 1885, 1872, 1875, 1494, 1494, 1495, 1873, 1495, 1873,
- 1875, 1877, 1878, 1916, 1885, 1885, 0, 1873, 1877, 1878,
- 1888, 1873, 1877, 1878, 1875, 1943, 1922, 1888, 0, 0,
- 1922, 0, 1877, 1878, 1495, 1882, 1879, 1879, 1495, 0,
- 1916, 1888, 1882, 1875, 1879, 0, 1879, 1495, 1495, 1495,
- 0, 0, 1943, 1922, 1879, 1888, 1882, 1922, 1879, 1882,
- 1886, 1495, 1944, 1945, 1887, 1495, 1889, 1886, 0, 0,
-
- 1875, 1887, 1890, 1889, 1495, 1495, 1495, 1497, 1497, 1890,
- 0, 1886, 1888, 1886, 0, 1887, 1882, 1889, 0, 1944,
- 1945, 0, 1891, 1890, 1946, 1887, 1886, 0, 1890, 1891,
- 0, 0, 1497, 1497, 1497, 1889, 0, 1892, 1497, 1948,
- 1886, 1497, 0, 1891, 1892, 1497, 1925, 1497, 1497, 1497,
- 0, 1946, 1887, 1886, 1891, 1890, 1925, 1928, 1892, 1497,
- 1497, 1497, 1889, 1902, 1928, 1497, 1948, 1892, 1497, 1895,
- 1902, 1895, 1497, 1925, 1497, 1497, 1497, 1515, 1928, 1515,
- 1950, 1891, 0, 1925, 1902, 1896, 0, 1896, 0, 0,
- 0, 1905, 0, 1899, 1892, 1899, 1902, 1895, 1905, 1908,
-
- 0, 1895, 0, 1928, 0, 1515, 1908, 1950, 0, 1515,
- 1895, 1895, 1905, 1896, 0, 1905, 1515, 1896, 1515, 1515,
- 1908, 1899, 0, 1902, 1895, 1899, 1896, 1896, 1895, 1908,
- 1928, 1900, 1515, 1900, 1899, 1899, 1515, 1895, 1895, 1951,
- 1896, 1918, 1905, 1515, 1896, 1515, 1515, 1516, 1899, 1516,
- 1903, 1952, 1899, 1896, 1896, 1918, 1908, 1903, 1953, 1900,
- 1907, 1899, 1899, 1900, 0, 1942, 1951, 1907, 1918, 1942,
- 0, 1903, 1900, 1900, 0, 1516, 1516, 1954, 1952, 1516,
- 1955, 1907, 1918, 1927, 1927, 1953, 1900, 1903, 1516, 1516,
- 1900, 1927, 1942, 1927, 1956, 0, 1942, 1907, 1971, 1900,
-
- 1900, 1927, 1516, 1516, 1954, 1927, 1516, 1955, 0, 0,
- 0, 0, 1972, 0, 1903, 1516, 1516, 1537, 1537, 1537,
- 1537, 1956, 1537, 1537, 1907, 1971, 1904, 1537, 1537, 1537,
- 1537, 1537, 1537, 1904, 1947, 1909, 1906, 1537, 1537, 1972,
- 1537, 1537, 1909, 1906, 1947, 0, 1910, 1904, 1910, 1911,
- 0, 1911, 1904, 2427, 0, 1973, 1909, 1906, 0, 1929,
- 2427, 1947, 1974, 0, 2427, 0, 1929, 1975, 1537, 0,
- 1976, 1947, 1906, 0, 1910, 1978, 1909, 1911, 1910, 1904,
- 1929, 1911, 1973, 1929, 1913, 1931, 1913, 1910, 1910, 1974,
- 1911, 1911, 1931, 0, 1975, 1537, 1546, 1976, 1546, 1906,
-
- 1930, 1910, 1978, 1909, 1911, 1910, 1931, 1930, 1911, 1931,
- 1929, 0, 1913, 1932, 1910, 1910, 1913, 1911, 1911, 0,
- 1932, 1930, 1958, 1958, 1546, 1913, 1913, 1979, 1546, 0,
- 1958, 1546, 1958, 1930, 1932, 1933, 1931, 1546, 1546, 1913,
- 1958, 1934, 1933, 1913, 1958, 0, 1932, 1937, 1934, 1937,
- 1960, 1546, 1913, 1913, 1979, 1546, 1933, 1960, 1546, 1980,
- 1930, 0, 1934, 1989, 1546, 1546, 1550, 0, 1550, 1962,
- 1989, 1960, 1933, 1932, 1934, 1937, 1962, 0, 1983, 1937,
- 0, 0, 1984, 0, 1989, 1938, 1980, 1938, 1937, 1937,
- 1962, 1960, 0, 1990, 1550, 1962, 0, 1938, 1550, 1933,
-
- 1990, 1934, 1937, 0, 1550, 1983, 1937, 1550, 1550, 1984,
- 1986, 1986, 1991, 1938, 1990, 1937, 1937, 1938, 1960, 1991,
- 1986, 1550, 1962, 1991, 0, 1550, 1938, 1938, 1986, 2003,
- 1939, 1550, 1939, 1991, 1550, 1550, 1565, 1565, 1565, 1565,
- 1938, 1565, 1565, 2003, 1938, 0, 1565, 1565, 1565, 1565,
- 1565, 1565, 0, 1938, 1938, 0, 1565, 1565, 1939, 1565,
- 1565, 1961, 1939, 1940, 0, 1940, 1959, 1959, 1961, 2002,
- 2003, 1939, 1939, 1994, 1959, 2002, 1959, 0, 0, 1963,
- 1994, 2000, 1961, 0, 1959, 1939, 1963, 1565, 1959, 1939,
- 2000, 1940, 0, 0, 1994, 1940, 0, 1994, 1939, 1939,
-
- 1963, 1963, 2002, 1961, 1940, 1940, 0, 0, 0, 1999,
- 1999, 2175, 2175, 1965, 1565, 1580, 1580, 2000, 1940, 1580,
- 1965, 2175, 1940, 1580, 1994, 1988, 1988, 0, 1963, 2175,
- 1961, 1940, 1940, 1988, 1965, 1988, 1580, 1999, 2005, 1965,
- 1580, 1995, 1580, 1988, 1964, 2010, 1580, 1988, 1995, 0,
- 2005, 1964, 1995, 1580, 2010, 1580, 1580, 1580, 1964, 1964,
- 1964, 2014, 1995, 0, 2007, 1964, 1965, 1580, 0, 1580,
- 1967, 0, 1967, 1580, 2014, 0, 2007, 2005, 0, 0,
- 1580, 2010, 1580, 1580, 1580, 1597, 1597, 0, 1597, 1597,
- 1597, 1597, 1597, 1597, 1597, 1597, 1597, 1597, 1967, 1597,
-
- 1597, 2014, 1967, 2007, 0, 1597, 1597, 1597, 1597, 1597,
- 1992, 1967, 1967, 1993, 1597, 1996, 2006, 1992, 1597, 2036,
- 1993, 0, 1996, 2012, 0, 1967, 1996, 1597, 1597, 1967,
- 2006, 1992, 2012, 2037, 1993, 1992, 1996, 1997, 1967, 1967,
- 0, 1597, 0, 0, 1997, 1597, 2036, 2141, 1997, 1968,
- 0, 1968, 0, 1993, 1597, 1597, 2141, 2006, 1997, 2012,
- 2037, 1968, 1992, 1597, 1598, 1598, 0, 1598, 1598, 1598,
- 1598, 1598, 1598, 1598, 1598, 1598, 1598, 1968, 1598, 1598,
- 1993, 1968, 2019, 2141, 1598, 1598, 1598, 1598, 1598, 2019,
- 1968, 1968, 1998, 1998, 2001, 2015, 2163, 0, 2015, 0,
-
- 1998, 2001, 1998, 2019, 1968, 2018, 0, 2062, 1968, 2062,
- 1998, 2079, 2018, 2021, 1998, 2001, 2018, 1968, 1968, 0,
- 2021, 2418, 2418, 2163, 2021, 2015, 2018, 0, 0, 2079,
- 2062, 2418, 0, 2001, 2021, 2062, 0, 0, 2022, 2418,
- 0, 0, 1598, 1630, 1630, 2022, 1630, 1630, 1630, 1630,
- 1630, 1630, 1630, 1630, 1630, 1630, 2079, 1630, 1630, 2022,
- 2001, 0, 2062, 1630, 1630, 1630, 1630, 1630, 1631, 1631,
- 0, 1631, 1631, 1631, 1631, 1631, 1631, 1631, 1631, 1631,
- 1631, 0, 1631, 1631, 1631, 1631, 1631, 1631, 1631, 1631,
- 1631, 1631, 1631, 1633, 1633, 1633, 1633, 1633, 1633, 1633,
-
- 1633, 1633, 1633, 1633, 1633, 1633, 0, 1633, 1633, 0,
- 0, 2023, 2024, 1633, 1633, 1633, 1633, 1633, 2023, 2024,
- 2025, 2020, 2023, 2026, 2160, 0, 2160, 2025, 2020, 2027,
- 2026, 2025, 2023, 2024, 2096, 2084, 2027, 2096, 2164, 2028,
- 2084, 2025, 2020, 0, 2026, 2045, 2028, 2030, 2030, 2051,
- 2027, 0, 2045, 2160, 2030, 0, 2051, 1969, 0, 1969,
- 2028, 2020, 1969, 0, 2096, 2164, 2045, 2084, 2030, 0,
- 2051, 1633, 1634, 1634, 1634, 1634, 1634, 1634, 1634, 1634,
- 1634, 1634, 1634, 1634, 1634, 1969, 1634, 1634, 2020, 1969,
- 2032, 2045, 1634, 1634, 1634, 1634, 1634, 0, 1969, 1969,
-
- 2089, 2089, 2089, 2089, 0, 0, 2033, 2033, 2089, 2142,
- 2032, 0, 1969, 2032, 2144, 2033, 1969, 0, 2045, 2033,
- 2033, 2033, 2033, 2034, 2034, 1969, 1969, 2033, 2049, 2166,
- 2034, 2142, 2034, 2144, 2040, 2049, 2034, 2034, 2034, 2034,
- 2032, 2040, 0, 0, 2034, 0, 2166, 0, 2168, 2049,
- 1634, 1662, 1662, 1662, 1662, 2040, 1662, 1662, 2142, 0,
- 2144, 1662, 1662, 1662, 1662, 1662, 1662, 2035, 2035, 2040,
- 2049, 1662, 1662, 2166, 1662, 1662, 2035, 2168, 0, 2050,
- 2035, 2035, 2035, 2035, 2039, 2041, 2050, 2052, 2035, 0,
- 2143, 2039, 2041, 2063, 2052, 2063, 2040, 2049, 0, 2143,
-
- 2050, 2050, 1662, 2095, 2168, 2039, 2041, 2039, 2052, 0,
- 2095, 2041, 0, 2167, 2159, 0, 2063, 0, 2042, 2159,
- 2039, 2063, 0, 0, 2095, 2042, 2143, 0, 2050, 1662,
- 1663, 1663, 1663, 1663, 2039, 1663, 1663, 2167, 2041, 2042,
- 1663, 1663, 2043, 1663, 1663, 1663, 2159, 2039, 2063, 2043,
- 2044, 1663, 0, 1663, 1663, 2042, 0, 2044, 2046, 2171,
- 0, 2169, 2047, 2043, 2167, 2046, 2043, 2048, 2048, 2047,
- 0, 2044, 2172, 2053, 2065, 2048, 2065, 2048, 2169, 2046,
- 2053, 1663, 2042, 2047, 2174, 2048, 2171, 2044, 2176, 2048,
- 0, 2046, 2178, 2043, 2053, 2047, 2054, 2065, 2053, 2172,
-
- 2055, 2065, 0, 2054, 0, 2169, 2056, 2055, 1663, 1779,
- 2179, 2174, 1779, 2056, 2044, 2176, 1779, 2054, 2046, 2178,
- 2054, 2055, 2047, 0, 2099, 2053, 2055, 2056, 2065, 1779,
- 1779, 2099, 2056, 1779, 2060, 1779, 2060, 2179, 0, 2180,
- 2057, 2061, 2057, 2061, 0, 2099, 1779, 2054, 0, 1779,
- 1779, 0, 2064, 2055, 2064, 0, 2067, 2060, 2067, 2056,
- 1779, 0, 1779, 2057, 2061, 2077, 2180, 2077, 2057, 2060,
- 2061, 2060, 2057, 1779, 0, 2064, 1779, 1779, 1780, 2067,
- 1780, 2057, 2057, 2088, 2064, 2181, 2067, 2088, 2077, 0,
- 2088, 2068, 0, 2068, 2064, 2057, 2060, 2061, 2060, 2057,
-
- 2069, 1780, 2069, 2077, 2088, 1780, 1780, 0, 2057, 2057,
- 1780, 2064, 2181, 2067, 2068, 0, 2070, 0, 2070, 1780,
- 1780, 2064, 2072, 2069, 2072, 2184, 2185, 0, 0, 2069,
- 2077, 2186, 1780, 1780, 2068, 0, 2076, 1780, 2076, 2070,
- 2078, 2076, 2078, 0, 2070, 2072, 1780, 1780, 1795, 1795,
- 0, 0, 2184, 2185, 2072, 2080, 2069, 2080, 2186, 2076,
- 2090, 2068, 2102, 2078, 2083, 2187, 2083, 2188, 2076, 2102,
- 1795, 2070, 2078, 1795, 1795, 1795, 2189, 2090, 2080, 1795,
- 2090, 2072, 1795, 2102, 2080, 2190, 1795, 2083, 1795, 1795,
- 1795, 0, 2187, 2083, 2188, 2076, 0, 0, 0, 2078,
-
- 1795, 1795, 1795, 2189, 0, 0, 1795, 2090, 2081, 1795,
- 2081, 2080, 2190, 1795, 0, 1795, 1795, 1795, 1884, 1884,
- 2083, 1884, 1884, 1884, 1884, 1884, 1884, 1884, 1884, 1884,
- 1884, 2081, 1884, 1884, 0, 2082, 0, 2082, 1884, 1884,
- 1884, 1884, 1884, 0, 0, 2081, 1884, 1884, 2103, 2103,
- 2091, 1884, 2191, 2192, 2104, 2104, 2103, 2193, 2082, 2091,
- 1884, 1884, 2104, 2091, 2091, 2091, 2091, 2100, 2100, 0,
- 2103, 2091, 2081, 1884, 1884, 0, 2104, 2100, 1884, 2191,
- 2192, 0, 0, 2082, 2193, 2100, 0, 1884, 1884, 2100,
- 0, 2107, 2107, 2357, 0, 2357, 1884, 1893, 1893, 2107,
-
- 1893, 1893, 1893, 1893, 1893, 1893, 1893, 1893, 1893, 1893,
- 2082, 1893, 1893, 2107, 2105, 2105, 2357, 1893, 1893, 1893,
- 1893, 1893, 2105, 2109, 2109, 2105, 1893, 2107, 2092, 0,
- 1893, 2109, 2092, 0, 0, 2092, 2105, 2092, 2196, 1893,
- 1893, 2092, 2092, 2092, 2092, 2109, 0, 2093, 2137, 2092,
- 0, 2093, 0, 1893, 2107, 2137, 2093, 1893, 2197, 2137,
- 2093, 2093, 2093, 2093, 0, 2196, 1893, 1893, 2093, 2137,
- 2198, 0, 2106, 2106, 2199, 1893, 1897, 2097, 1897, 2097,
- 2106, 2097, 2097, 2097, 2097, 2197, 2098, 2201, 2098, 2097,
- 2098, 2098, 2098, 2098, 2106, 2202, 0, 2198, 2098, 2110,
-
- 2110, 2199, 2133, 2133, 1897, 2203, 2106, 2110, 1897, 0,
- 2110, 1897, 2133, 1897, 2201, 2108, 2108, 1897, 1897, 0,
- 2133, 2110, 2202, 2108, 2133, 0, 0, 2204, 2112, 2112,
- 0, 1897, 2203, 2106, 0, 1897, 2112, 2108, 1897, 2112,
- 1897, 2101, 2101, 0, 1897, 1897, 1898, 0, 1898, 2108,
- 2112, 2101, 2195, 2101, 2204, 2101, 2101, 2101, 2101, 2101,
- 2114, 2114, 0, 2101, 2117, 2117, 2195, 2206, 2114, 2119,
- 2119, 2207, 2117, 2208, 1898, 1898, 2108, 2119, 1898, 0,
- 2119, 2209, 2114, 2210, 2131, 2131, 2117, 1898, 1898, 2128,
- 2128, 2119, 2131, 2195, 2206, 0, 0, 2128, 2207, 2128,
-
- 2208, 1898, 1898, 0, 0, 1898, 2131, 2128, 2209, 0,
- 2210, 2128, 0, 0, 1898, 1898, 1901, 1901, 1901, 1901,
- 1901, 1901, 1901, 1901, 1901, 1901, 1901, 1901, 1901, 1901,
- 1901, 1901, 1901, 1901, 1901, 1901, 1901, 1901, 1901, 1901,
- 1901, 1901, 1901, 1901, 1901, 1901, 1901, 1901, 1901, 1901,
- 1901, 1901, 1901, 1901, 1901, 1901, 1901, 1901, 1901, 1901,
- 1901, 1901, 1901, 1901, 1901, 1901, 1901, 1901, 1901, 1901,
- 1901, 1901, 1901, 1901, 1901, 1901, 1901, 1901, 1901, 1901,
- 1901, 1901, 1901, 1901, 1901, 1901, 1901, 1901, 1901, 1901,
- 1901, 1901, 1901, 1901, 1901, 1912, 0, 1912, 2111, 2111,
-
- 0, 2211, 2113, 2113, 2115, 2115, 2111, 2212, 0, 0,
- 2113, 0, 2115, 2122, 2122, 2213, 2214, 0, 2215, 2216,
- 2111, 2122, 1912, 1912, 2113, 0, 2115, 1912, 2211, 2111,
- 2116, 2116, 2217, 2113, 2212, 2122, 1912, 1912, 2116, 2115,
- 0, 2219, 2213, 2214, 2122, 2215, 2216, 2220, 2223, 1912,
- 1912, 2227, 2116, 0, 1912, 2116, 2111, 0, 2233, 2217,
- 2113, 2118, 2118, 1912, 1912, 1914, 2115, 1914, 2219, 2118,
- 2320, 2122, 2120, 2120, 2220, 2223, 2123, 2123, 2227, 0,
- 2120, 0, 2116, 2118, 2123, 2233, 2118, 2234, 2121, 2121,
- 2134, 2134, 2236, 1914, 2120, 1914, 2121, 1914, 2123, 2120,
-
- 2134, 2124, 2124, 2237, 2123, 2320, 1914, 1914, 2134, 2124,
- 2121, 2121, 2134, 2118, 2234, 0, 2237, 2125, 2125, 2236,
- 1914, 0, 1914, 2124, 1914, 2125, 2120, 0, 2126, 2126,
- 2237, 2123, 2320, 1914, 1914, 1915, 2126, 1915, 2121, 2125,
- 0, 0, 2124, 2237, 2127, 2127, 2130, 2130, 2247, 2246,
- 2126, 2151, 2127, 2125, 2130, 2238, 2130, 2247, 2151, 2243,
- 2246, 2243, 2151, 1915, 2130, 2126, 2127, 1915, 2130, 2124,
- 2238, 2127, 2151, 2132, 2132, 2153, 1915, 1915, 1915, 2244,
- 2125, 2132, 2153, 2132, 2247, 0, 2153, 2246, 2243, 2244,
- 1915, 2132, 2126, 0, 1915, 2132, 2153, 2238, 2127, 2135,
-
- 2135, 2140, 2140, 1915, 1915, 1915, 1917, 1917, 0, 2135,
- 2251, 2140, 2139, 2139, 0, 2251, 2244, 2135, 2155, 2140,
- 2139, 2135, 2139, 2140, 2250, 2155, 2239, 2140, 2239, 2155,
- 2139, 1917, 1917, 1917, 2139, 2135, 2250, 1917, 2139, 2155,
- 1917, 2239, 2251, 2245, 1917, 2315, 1917, 1917, 1917, 0,
- 0, 0, 2315, 0, 2140, 2239, 0, 2252, 1917, 1917,
- 1917, 2245, 2135, 2250, 1917, 2139, 2315, 1917, 2239, 2136,
- 2136, 1917, 2252, 1917, 1917, 1917, 1935, 2270, 1935, 2136,
- 2145, 2145, 0, 2224, 2224, 2146, 2146, 2136, 2245, 2270,
- 2145, 2136, 0, 2224, 0, 2146, 2225, 2225, 2145, 2252,
-
- 2325, 2224, 2145, 2146, 1935, 2136, 2225, 2146, 1935, 2224,
- 2269, 2145, 2147, 2147, 2225, 1935, 2270, 1935, 1935, 2149,
- 2149, 2267, 2147, 2254, 2267, 2225, 2269, 2325, 0, 2149,
- 2147, 1935, 2136, 0, 2147, 1935, 2224, 2149, 2145, 2148,
- 2148, 2149, 1935, 2254, 1935, 1935, 1936, 0, 1936, 2148,
- 2148, 2267, 2225, 2269, 2150, 2150, 0, 2148, 2289, 2157,
- 2157, 2148, 2253, 2289, 2150, 2268, 2150, 2157, 2268, 2157,
- 2254, 2253, 2150, 0, 1936, 1936, 2150, 2157, 1936, 2226,
- 2226, 2157, 2158, 2158, 0, 2157, 2256, 1936, 1936, 2226,
- 2289, 2226, 2158, 2256, 0, 2268, 0, 2226, 2253, 2340,
-
- 2158, 1936, 1936, 0, 2158, 1936, 2340, 0, 2158, 0,
- 0, 2256, 2157, 0, 1936, 1936, 1957, 1957, 1957, 1957,
- 2340, 1957, 1957, 2228, 2228, 0, 1957, 1957, 1957, 1957,
- 1957, 1957, 2248, 2228, 2248, 2158, 1957, 1957, 2256, 1957,
- 1957, 2228, 2230, 2230, 0, 2255, 2291, 2255, 2228, 2257,
- 2257, 2291, 2230, 2331, 2288, 2248, 2322, 2257, 2258, 2258,
- 2230, 2326, 2260, 2260, 2248, 2335, 2258, 1957, 2255, 2331,
- 2260, 2257, 2257, 2230, 2288, 2228, 0, 2335, 2291, 2322,
- 2258, 0, 0, 0, 2260, 2258, 2257, 2255, 2326, 2258,
- 2260, 2248, 0, 0, 1957, 1966, 2331, 1966, 0, 2257,
-
- 2230, 2288, 2262, 2262, 2335, 0, 2322, 2259, 2259, 2271,
- 2262, 2271, 2258, 2257, 2255, 2259, 2258, 2260, 2261, 2261,
- 2263, 2263, 0, 1966, 2262, 2262, 2261, 1966, 2263, 2259,
- 1966, 0, 2271, 0, 0, 2333, 1966, 1966, 2265, 2265,
- 2261, 2259, 2263, 2259, 0, 2261, 2265, 2263, 2271, 2261,
- 1966, 2333, 2262, 0, 1966, 2323, 0, 1966, 2264, 2264,
- 2265, 2266, 2266, 1966, 1966, 1970, 2264, 1970, 2259, 2334,
- 2259, 2266, 2261, 2329, 2263, 2271, 2261, 2323, 2333, 2266,
- 2264, 2265, 0, 2266, 0, 2264, 2308, 2329, 2279, 2279,
- 2323, 2273, 2273, 1970, 2334, 2264, 2279, 1970, 0, 2273,
-
- 0, 2287, 2287, 1970, 2323, 2308, 1970, 1970, 2265, 2287,
- 2279, 2287, 2264, 2273, 2329, 2370, 0, 2323, 0, 2287,
- 1970, 2334, 2264, 2287, 1970, 2273, 0, 2336, 0, 0,
- 1970, 0, 2308, 1970, 1970, 1985, 1985, 1985, 1985, 2336,
- 1985, 1985, 2370, 2272, 2272, 1985, 1985, 1985, 1985, 1985,
- 1985, 2272, 2273, 2274, 2274, 1985, 1985, 2332, 1985, 1985,
- 2332, 2274, 2330, 2278, 2278, 2272, 2336, 2330, 2275, 2275,
- 2272, 2278, 2338, 2314, 2272, 2274, 2275, 2274, 0, 0,
- 2276, 2276, 0, 2280, 2280, 2278, 1985, 2332, 2276, 2278,
- 2275, 2280, 2314, 2338, 2330, 2344, 2275, 2272, 2339, 2339,
-
- 2344, 2272, 2276, 2342, 2274, 2280, 2280, 2342, 2343, 2277,
- 2277, 2343, 0, 1985, 2038, 2038, 2278, 2277, 2038, 2314,
- 2338, 2276, 2038, 2275, 2281, 2281, 2339, 2344, 0, 2282,
- 2282, 2277, 2281, 2280, 2342, 2038, 2038, 2282, 2343, 2038,
- 2277, 2038, 2317, 2348, 2374, 2038, 2281, 2348, 2276, 2317,
- 2277, 2282, 2038, 2379, 2038, 2038, 2038, 0, 2282, 2345,
- 0, 0, 0, 2317, 2345, 2281, 2038, 2277, 2038, 0,
- 0, 2374, 2038, 0, 2348, 0, 0, 2277, 2317, 2038,
- 2379, 2038, 2038, 2038, 2058, 2282, 2058, 2283, 2283, 2284,
- 2284, 2345, 2281, 2058, 2292, 2283, 2292, 2284, 2285, 2285,
-
- 2286, 2286, 2293, 2293, 0, 2317, 2285, 2058, 2286, 2283,
- 2293, 2284, 2058, 2294, 2294, 2283, 2058, 2292, 0, 2385,
- 2285, 2294, 2286, 0, 2293, 2058, 2058, 0, 2364, 2292,
- 2364, 2284, 0, 0, 0, 2294, 2293, 2297, 2297, 2058,
- 2286, 2285, 2283, 2058, 0, 2297, 2385, 2296, 2296, 0,
- 2294, 2364, 2058, 2058, 2240, 2296, 2292, 2240, 2284, 2297,
- 2313, 2240, 2313, 2293, 2362, 2297, 2362, 2286, 2285, 2296,
- 2387, 2295, 2295, 2430, 2240, 2240, 2362, 2294, 2240, 2295,
- 2240, 2298, 2298, 2313, 2313, 2296, 2328, 2362, 2328, 2298,
- 2382, 2240, 2297, 2295, 2240, 2240, 2433, 2387, 2299, 2299,
-
- 2430, 2328, 2295, 2298, 0, 2240, 2299, 2240, 2298, 2299,
- 2382, 2313, 2296, 2433, 0, 2328, 2300, 2300, 2240, 0,
- 2299, 2240, 2240, 2241, 2300, 2241, 2301, 2301, 2328, 2295,
- 0, 2302, 2302, 2436, 2301, 2298, 0, 2382, 2300, 2302,
- 2433, 2303, 2303, 2352, 0, 2352, 2241, 2380, 2301, 2303,
- 2241, 2241, 2303, 2302, 2300, 2241, 0, 2351, 2302, 2351,
- 2436, 2304, 2304, 2303, 2241, 2241, 2352, 0, 2301, 2304,
- 0, 2352, 0, 0, 2365, 2440, 2365, 2241, 2241, 2380,
- 2351, 2300, 2241, 2304, 0, 2302, 2351, 0, 2305, 2305,
- 0, 2241, 2241, 2249, 2249, 2301, 2305, 2365, 2352, 2312,
-
- 2312, 2249, 2440, 2306, 2306, 2354, 2380, 0, 0, 2312,
- 2305, 2306, 2354, 2351, 2353, 2249, 2353, 2312, 2249, 2249,
- 2249, 2312, 2319, 2319, 2249, 2306, 2354, 2249, 2305, 2318,
- 2354, 2249, 2319, 2249, 2249, 2249, 2318, 2353, 0, 2306,
- 2319, 0, 2353, 0, 2319, 2249, 2249, 2249, 2441, 0,
- 2318, 2249, 2318, 0, 2249, 2305, 0, 2354, 2249, 2444,
- 2249, 2249, 2249, 2327, 2327, 2318, 2306, 2324, 2324, 2353,
- 2350, 2388, 2350, 0, 2324, 2441, 2324, 2337, 2337, 2318,
- 2324, 2324, 2324, 2324, 2388, 0, 2444, 2337, 2327, 2445,
- 2346, 2346, 2318, 2350, 2327, 2337, 2347, 2347, 2388, 2337,
-
- 2346, 2446, 2356, 2327, 2356, 2350, 2347, 2350, 2346, 2447,
- 0, 2388, 2346, 0, 2347, 2327, 2445, 2355, 2347, 2355,
- 2358, 2327, 2358, 0, 2359, 2356, 2359, 0, 2446, 2356,
- 2327, 2360, 2350, 2360, 2350, 2361, 2447, 2361, 0, 2363,
- 2355, 2363, 2368, 2358, 2368, 0, 2375, 2359, 2375, 2355,
- 2358, 2369, 2450, 2369, 2360, 0, 2356, 0, 2361, 2355,
- 2360, 2451, 2363, 2361, 2452, 2368, 2366, 2359, 2366, 2375,
- 2367, 2363, 2367, 2453, 2369, 2367, 2355, 2358, 2366, 2450,
- 2368, 0, 2371, 2369, 2371, 0, 2355, 2360, 2451, 2366,
- 2361, 2452, 2455, 2367, 2359, 2372, 0, 2372, 2363, 2373,
-
- 2453, 2373, 2367, 0, 2376, 2371, 2376, 2368, 2391, 2391,
- 2369, 2371, 2377, 2378, 2377, 2378, 2391, 0, 2372, 2455,
- 2383, 0, 2373, 2392, 2392, 0, 0, 2376, 2373, 2367,
- 2391, 2392, 2372, 2384, 0, 2377, 2378, 2384, 2371, 2383,
- 2384, 0, 2384, 2393, 2393, 2392, 2384, 2384, 2384, 2384,
- 0, 2393, 2383, 2394, 2394, 2373, 2458, 0, 0, 2372,
- 2456, 2394, 2395, 2395, 2394, 2393, 2383, 0, 2393, 2459,
- 2395, 0, 2397, 2397, 0, 2394, 0, 2396, 2396, 2383,
- 2397, 2458, 2398, 2398, 2395, 2396, 0, 2456, 2460, 2395,
- 2398, 0, 0, 0, 2397, 2393, 2459, 2399, 2399, 2396,
-
- 2396, 2404, 2404, 2397, 2398, 2399, 2400, 2400, 2458, 2404,
- 2398, 0, 2401, 2401, 2400, 2460, 2395, 2402, 2402, 2399,
- 2401, 2403, 2403, 2404, 2461, 2402, 0, 2396, 2400, 2403,
- 2397, 0, 2405, 2405, 2401, 2462, 0, 2398, 2399, 2402,
- 2405, 0, 2400, 2403, 2402, 2463, 2404, 0, 0, 2401,
- 0, 2461, 2406, 2406, 2405, 2407, 2407, 2464, 2403, 0,
- 2406, 0, 2462, 2407, 0, 2399, 0, 2408, 2408, 2400,
- 0, 2402, 2463, 2404, 2406, 2408, 2401, 2407, 2409, 2409,
- 2410, 2410, 0, 2407, 2464, 2403, 2409, 0, 2410, 2408,
- 2411, 2411, 0, 2412, 2412, 0, 2413, 2413, 2411, 2406,
-
- 2409, 2412, 2410, 0, 2413, 2409, 2413, 0, 2465, 2410,
- 2407, 0, 2411, 2466, 2413, 2412, 2411, 0, 2413, 2415,
- 2415, 0, 2416, 2416, 2439, 2439, 2406, 2415, 2468, 2415,
- 2416, 2469, 2409, 0, 2439, 2465, 2410, 2415, 2417, 2417,
- 2466, 2415, 2439, 2411, 2416, 2470, 2417, 0, 2417, 2421,
- 2421, 2471, 2422, 2422, 0, 2468, 2417, 2421, 2469, 2421,
- 2422, 2473, 2422, 2429, 2429, 2439, 2476, 2421, 2477, 2481,
- 2422, 2429, 2470, 2429, 2422, 2421, 2482, 2482, 2471, 2484,
- 0, 2429, 2487, 2488, 2489, 2490, 2482, 2494, 2473, 2429,
- 2485, 2485, 2439, 2476, 2482, 2477, 2481, 2486, 2486, 2495,
-
- 2485, 2496, 2421, 2497, 2498, 2501, 2484, 2486, 2485, 2487,
- 2488, 2489, 2490, 2485, 2494, 2486, 2429, 2502, 2503, 2499,
- 2504, 2499, 2505, 2486, 0, 2506, 2495, 2506, 2496, 0,
- 2497, 2498, 2501, 2507, 0, 2509, 2509, 0, 2508, 2508,
- 2485, 0, 2499, 2509, 2502, 2503, 2508, 2504, 2506, 2505,
- 2486, 2499, 0, 0, 2507, 2511, 2511, 2509, 2507, 0,
- 2508, 2508, 2509, 2511, 2510, 2510, 2509, 2506, 2512, 2512,
- 0, 0, 2510, 0, 0, 2508, 2512, 2511, 2499, 2514,
- 2514, 0, 2518, 2511, 2519, 2507, 2510, 2514, 2508, 2509,
- 2512, 0, 0, 2509, 2506, 2512, 2513, 2513, 2510, 2512,
-
- 2510, 2514, 2508, 0, 2513, 2520, 2514, 2515, 2515, 2518,
- 2511, 2519, 2521, 2516, 2516, 2515, 2538, 0, 2513, 2513,
- 2539, 2516, 2512, 2541, 2558, 2510, 2512, 2510, 0, 2515,
- 2517, 2517, 2520, 2514, 2515, 2516, 2522, 2578, 2522, 2521,
- 2517, 2523, 2523, 2538, 2515, 0, 2513, 2539, 2517, 2523,
- 2541, 2558, 2524, 2524, 2525, 2525, 2516, 2526, 2526, 2522,
- 2524, 2515, 2525, 2523, 2578, 2526, 0, 2597, 2523, 2527,
- 2527, 2515, 2523, 0, 2524, 2522, 2525, 2527, 2525, 2526,
- 2582, 0, 2582, 2516, 0, 2526, 2524, 0, 0, 2528,
- 2528, 2527, 2529, 2529, 2597, 2523, 2542, 2528, 2542, 2523,
-
- 2529, 0, 2522, 2582, 0, 2525, 0, 2530, 2530, 0,
- 2527, 2528, 2526, 2524, 2529, 2530, 2531, 2531, 2529, 2542,
- 2528, 0, 0, 2585, 2531, 2589, 2532, 2532, 2582, 2530,
- 2528, 2542, 2533, 2533, 2532, 2585, 2586, 2527, 2531, 2531,
- 2533, 2534, 2534, 2535, 2535, 2529, 2601, 2528, 2532, 2534,
- 2586, 2535, 2536, 2536, 2533, 2582, 0, 2528, 2542, 2589,
- 2536, 2533, 2585, 2534, 0, 2535, 2531, 2532, 2584, 2534,
- 2537, 2537, 2596, 2601, 2536, 2543, 2543, 2586, 2537, 2544,
- 2544, 2546, 2546, 2543, 2584, 2535, 2589, 2544, 2533, 2546,
- 2562, 2562, 2537, 0, 2532, 2536, 2534, 2543, 2545, 2545,
-
- 2562, 2544, 0, 2546, 0, 0, 2545, 0, 2562, 2543,
- 2537, 2584, 2535, 2547, 2547, 2596, 2544, 2548, 2548, 2546,
- 2545, 2547, 2536, 2549, 2549, 2548, 0, 0, 0, 2545,
- 0, 2549, 2550, 2550, 2549, 2547, 2543, 2537, 0, 2548,
- 2550, 2547, 2596, 2544, 2548, 2549, 2546, 2551, 2551, 2598,
- 2552, 2552, 2553, 2553, 2550, 2551, 2545, 2563, 2552, 2563,
- 2553, 0, 0, 2553, 0, 2554, 2554, 0, 2547, 2551,
- 2550, 2548, 2552, 2554, 2553, 2602, 0, 2552, 2555, 2555,
- 2563, 2563, 2598, 2556, 2556, 0, 2555, 2554, 2587, 2551,
- 0, 2556, 0, 2565, 2565, 2564, 2564, 2550, 0, 0,
-
- 2555, 2565, 2602, 2564, 2552, 2556, 2564, 2588, 2563, 2598,
- 0, 0, 2566, 2566, 0, 2565, 2551, 2564, 2555, 2556,
- 2566, 2567, 2567, 0, 2587, 2568, 2568, 2565, 0, 2567,
- 2569, 2569, 2600, 2568, 2566, 0, 2570, 2570, 2569, 2588,
- 0, 2569, 0, 2567, 2570, 2555, 2556, 2568, 2566, 2571,
- 2571, 2587, 2569, 2603, 2565, 2567, 0, 2571, 2570, 0,
- 2571, 2572, 2572, 2600, 2573, 2573, 2588, 2570, 0, 2572,
- 2611, 2571, 2573, 2574, 2574, 2566, 2575, 2575, 2599, 2614,
- 2603, 2574, 2567, 2572, 2575, 0, 2573, 0, 2576, 2576,
- 2600, 2615, 2572, 0, 2570, 2574, 2576, 2611, 2575, 2583,
-
- 2583, 2575, 2590, 2590, 2591, 2591, 2614, 2599, 2574, 2583,
- 2576, 2593, 2590, 0, 2591, 2605, 2605, 2583, 2615, 2572,
- 2590, 0, 2591, 2605, 2593, 2604, 2604, 2616, 2575, 0,
- 2618, 2606, 2606, 2604, 2599, 2574, 0, 2605, 2593, 2606,
- 2607, 2607, 2608, 2608, 2621, 2624, 2625, 2604, 2607, 2626,
- 2608, 2593, 2605, 2606, 2616, 2609, 2609, 2618, 2610, 2610,
- 2627, 2604, 2607, 2609, 2608, 2628, 2610, 2608, 2630, 2610,
- 2631, 2621, 2624, 2625, 2632, 2634, 2626, 2609, 2635, 2605,
- 2610, 2636, 2637, 2638, 2639, 2640, 2641, 2627, 2604, 2643,
- 2644, 2645, 2628, 2647, 2608, 2630, 2650, 2631, 2655, 0,
-
- 2651, 2632, 2634, 2653, 2657, 2635, 2658, 2659, 2636, 2637,
- 2638, 2639, 2640, 2641, 2646, 2646, 2643, 2644, 2645, 2660,
- 2647, 2648, 2648, 2650, 2646, 2649, 2649, 2651, 2654, 2654,
- 2653, 2648, 2646, 2658, 2659, 2649, 2654, 2649, 2655, 2648,
- 2662, 2663, 2665, 2649, 2657, 2666, 2666, 0, 0, 2646,
- 2654, 2667, 2667, 2666, 2672, 0, 2660, 2673, 2674, 2667,
- 2676, 2677, 0, 2648, 0, 2655, 2678, 2666, 2663, 2665,
- 2679, 2657, 2680, 2667, 2669, 2669, 2646, 2662, 2670, 2670,
- 2681, 2672, 2669, 2660, 2673, 2674, 2670, 2676, 2677, 2666,
- 2648, 2667, 2682, 2678, 2683, 2684, 2669, 2679, 2685, 2680,
-
- 2670, 2686, 2688, 2690, 2662, 2691, 2692, 2681, 2693, 2695,
- 2696, 2669, 2697, 2698, 2705, 0, 2666, 2702, 2667, 2682,
- 2703, 2683, 2684, 2704, 2706, 2685, 2670, 2707, 2686, 2688,
- 2690, 2708, 2691, 2692, 2709, 2693, 2695, 2696, 2669, 2697,
- 2698, 2700, 2700, 2705, 2702, 2710, 2711, 2703, 2712, 0,
- 2704, 2700, 0, 2670, 2707, 2713, 2713, 2717, 2708, 2700,
- 2709, 0, 2706, 2713, 2718, 0, 2714, 2714, 2715, 2715,
- 2705, 2719, 2700, 2711, 2714, 2712, 2715, 2713, 2716, 2716,
- 2710, 2721, 2713, 2722, 2717, 2723, 2716, 2709, 2714, 2706,
- 2715, 2718, 2714, 2724, 2725, 2727, 2728, 2729, 2719, 2700,
-
- 2716, 2732, 2735, 2736, 2715, 2716, 2737, 2710, 2721, 2713,
- 2722, 2738, 2723, 2739, 2741, 2742, 2740, 2740, 2743, 2714,
- 2724, 2725, 2727, 2728, 2729, 2744, 2740, 2745, 2732, 2735,
- 2736, 2715, 2716, 2737, 2740, 2748, 2749, 2750, 2738, 2751,
- 2739, 2741, 2742, 2752, 2752, 2743, 2756, 2753, 2753, 2754,
- 2754, 2752, 0, 2740, 2757, 2753, 0, 2754, 2759, 2761,
- 2744, 0, 2745, 2764, 2750, 2752, 2751, 2748, 2749, 2753,
- 2767, 2754, 2768, 2756, 2769, 2754, 2755, 2755, 2770, 2752,
- 2740, 2757, 2758, 2758, 2755, 2759, 2761, 2744, 2753, 2745,
- 2764, 2772, 2758, 2773, 2748, 2749, 2775, 2767, 2755, 2768,
-
- 2758, 2769, 2754, 2774, 2774, 2770, 2752, 2776, 2777, 2779,
- 2778, 2781, 0, 2774, 0, 2753, 2755, 2782, 2772, 0,
- 2773, 2774, 2783, 2775, 2784, 2785, 2785, 0, 2786, 2786,
- 2787, 2787, 2789, 2785, 2776, 2777, 2786, 2790, 2787, 2774,
- 0, 2779, 2781, 2755, 2778, 2809, 2782, 2785, 0, 2783,
- 2786, 2784, 2787, 2788, 2788, 2792, 2794, 2795, 2797, 2789,
- 2798, 2788, 2791, 2791, 2790, 2800, 2774, 2785, 2779, 2781,
- 2806, 2778, 2791, 2782, 2804, 2788, 0, 2811, 2802, 2802,
- 2791, 2809, 2792, 2794, 2795, 2797, 0, 2798, 2802, 0,
- 2788, 0, 2800, 2815, 2785, 0, 2802, 2803, 2803, 2817,
-
- 0, 2804, 2820, 2791, 2811, 2814, 2814, 2803, 2809, 2806,
- 2813, 2813, 0, 2814, 0, 2803, 2814, 2788, 2813, 2821,
- 2815, 2816, 2816, 2823, 0, 2832, 2817, 2814, 2833, 2820,
- 2791, 2816, 2813, 2834, 2829, 2829, 2806, 2840, 2840, 2816,
- 2842, 2813, 2829, 2830, 2830, 2840, 2821, 2843, 0, 2853,
- 2823, 2830, 2832, 2841, 2841, 2833, 2829, 0, 2858, 2840,
- 2834, 2841, 2851, 2851, 0, 2830, 0, 2842, 2813, 2862,
- 2851, 2829, 0, 2840, 2843, 2841, 2853, 2830, 2855, 2855,
- 2841, 2852, 2852, 0, 2851, 2858, 0, 2855, 0, 2852,
- 0, 2855, 2855, 2855, 2855, 0, 2862, 0, 2829, 0,
-
- 2840, 0, 0, 2852, 2830, 2837, 2837, 2841, 0, 2837,
- 2837, 2837, 0, 0, 0, 2837, 2837, 2852, 2837, 2837,
- 2837, 2856, 0, 2857, 2857, 0, 2837, 0, 2837, 2837,
- 2856, 2857, 0, 0, 2856, 2856, 2856, 2856, 0, 0,
- 0, 0, 0, 0, 2852, 2857, 2859, 2859, 0, 2865,
- 2865, 0, 2857, 0, 2860, 2859, 2837, 2865, 2860, 2859,
- 2859, 2859, 2859, 2860, 2861, 2861, 0, 2860, 2860, 2860,
- 2860, 2865, 2861, 0, 2863, 2863, 0, 0, 0, 2857,
- 0, 0, 2863, 2837, 2838, 2838, 2861, 0, 0, 2838,
- 2838, 2838, 0, 0, 2838, 2838, 2863, 2838, 2838, 2838,
-
- 0, 0, 0, 0, 2863, 2838, 2861, 2838, 2838, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 2863, 0, 2861, 0, 2838, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 2838, 2839, 2839, 0, 0, 0, 2839, 2839,
- 0, 0, 0, 2839, 2839, 0, 2839, 2839, 2839, 0,
- 0, 0, 0, 0, 2839, 0, 2839, 2839, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 2839, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 2839, 2846, 2846, 0, 0, 2846, 2846, 2846, 0,
- 0, 0, 2846, 2846, 0, 2846, 2846, 2846, 0, 0,
- 0, 0, 0, 2846, 0, 2846, 2846, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 2846, 0, 0, 0, 0, 0, 0,
-
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 2846, 2848, 2848, 0, 0, 0, 2848, 2848, 2848, 0,
- 0, 2848, 2848, 0, 2848, 2848, 2848, 0, 0, 0,
- 0, 0, 2848, 0, 2848, 2848, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 2848, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 2848,
-
- 2850, 2850, 0, 0, 0, 2850, 2850, 0, 0, 0,
- 2850, 2850, 0, 2850, 2850, 2850, 0, 0, 0, 0,
- 0, 2850, 0, 2850, 2850, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 2850, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 2850, 2867,
- 2867, 2867, 2867, 2867, 2867, 2867, 2867, 2867, 2867, 2867,
- 2867, 2867, 2867, 2867, 2868, 2868, 2868, 2868, 2868, 2868,
-
- 2868, 2868, 2868, 2868, 2868, 2868, 2868, 2868, 2868, 2869,
- 2869, 2869, 2869, 2869, 2869, 2869, 2869, 2869, 2869, 2869,
- 2869, 2869, 2869, 2869, 2870, 2870, 2870, 2870, 2870, 2870,
- 2870, 2870, 2870, 2870, 2870, 2870, 2870, 2870, 2870, 2871,
- 2871, 2871, 2871, 2871, 2871, 2871, 2871, 2871, 2871, 2871,
- 2871, 2871, 2871, 2871, 2872, 2872, 0, 2872, 2872, 2872,
- 2872, 2872, 2872, 2872, 2872, 2872, 2872, 2872, 2872, 2873,
- 2873, 0, 2873, 2873, 2873, 2873, 2873, 2873, 2873, 2873,
- 2873, 2873, 2873, 2873, 2874, 2874, 2874, 2874, 0, 0,
- 2874, 2875, 2875, 0, 2875, 2875, 2875, 2875, 2875, 2875,
-
- 2875, 2875, 2875, 2875, 2875, 2875, 2876, 2876, 0, 2876,
- 2876, 2876, 2876, 2876, 2876, 2876, 2876, 2876, 2876, 2876,
- 2876, 2877, 2877, 0, 2877, 2877, 2877, 2877, 2877, 2877,
- 2877, 2877, 2877, 2877, 2877, 2877, 2878, 2878, 0, 2878,
- 2878, 2878, 2878, 2878, 2878, 2878, 2878, 2878, 2878, 2878,
- 2878, 2879, 2879, 0, 2879, 2879, 2879, 2879, 2879, 2879,
- 2879, 2879, 2879, 2879, 2879, 2879, 2880, 2880, 0, 2880,
- 2880, 2880, 2880, 2880, 2880, 2880, 2880, 2880, 2880, 2880,
- 2880, 2881, 2881, 0, 2881, 2881, 2881, 2881, 2881, 2881,
- 2881, 2881, 2881, 2881, 2881, 2881, 2882, 2882, 0, 2882,
-
- 2882, 2882, 2882, 2882, 2882, 2882, 2882, 2882, 2882, 2882,
- 2882, 2883, 2883, 2883, 2883, 0, 0, 2883, 2884, 2884,
- 0, 2884, 2884, 2884, 2884, 2884, 2884, 2884, 2884, 2884,
- 2884, 2884, 2884, 2885, 2885, 0, 2885, 2885, 2885, 2885,
- 2885, 2885, 2885, 2885, 2885, 2885, 2885, 2885, 2886, 2886,
- 0, 2886, 2886, 2886, 2886, 2886, 2886, 2886, 2886, 2886,
- 2886, 2886, 2886, 2887, 2887, 0, 2887, 2887, 2887, 2887,
- 2887, 2887, 2887, 2887, 2887, 2887, 2887, 2887, 2888, 2888,
- 2888, 2888, 0, 0, 2888, 2889, 2889, 0, 2889, 2889,
- 2889, 2889, 2889, 2889, 2889, 2889, 2889, 2889, 2889, 2889,
-
- 2890, 2890, 0, 2890, 2890, 2890, 2890, 2890, 2890, 2890,
- 2890, 2890, 2890, 2890, 2890, 2891, 2891, 2891, 2891, 0,
- 0, 2891, 2892, 2892, 0, 2892, 2892, 2892, 2892, 2892,
- 2892, 2892, 2892, 2892, 2892, 2892, 2892, 2893, 2893, 0,
- 2893, 2893, 2893, 2893, 2893, 2893, 2893, 2893, 2893, 2893,
- 2893, 2893, 2894, 2894, 2894, 2894, 0, 0, 2894, 2895,
- 2895, 0, 2895, 2895, 2895, 2895, 2895, 2895, 2895, 2895,
- 2895, 2895, 2895, 2895, 2896, 2896, 0, 2896, 2896, 2896,
- 2896, 2896, 2896, 2896, 2896, 2896, 2896, 2896, 2896, 2897,
- 2897, 2897, 2897, 0, 0, 2897, 2898, 2898, 2898, 2898,
-
- 0, 0, 2898, 2899, 2899, 0, 2899, 2899, 2899, 2899,
- 2899, 2899, 2899, 2899, 2899, 2899, 2899, 2899, 2900, 2900,
- 0, 2900, 2900, 2900, 2900, 2900, 2900, 2900, 2900, 2900,
- 2900, 2900, 2900, 2901, 2901, 2901, 2901, 0, 0, 2901,
- 2902, 2902, 0, 2902, 2902, 2902, 2902, 2902, 2902, 2902,
- 2902, 2902, 2902, 2902, 2902, 2903, 2903, 0, 2903, 2903,
- 2903, 2903, 2903, 2903, 2903, 2903, 2903, 2903, 2903, 2903,
- 2904, 2904, 0, 2904, 2904, 2904, 0, 2904, 2904, 2904,
- 2904, 2904, 2904, 2904, 2904, 2905, 2905, 2905, 0, 0,
- 2905, 2906, 2906, 0, 2906, 2906, 2906, 2906, 2906, 2906,
-
- 2906, 2906, 2906, 2906, 2906, 2906, 2907, 2907, 0, 2907,
- 2907, 2907, 2907, 2907, 2907, 2907, 2907, 2907, 2907, 2907,
- 2907, 2908, 2908, 0, 2908, 2908, 2908, 0, 2908, 2908,
- 2908, 2908, 2908, 2908, 2908, 2908, 2909, 2909, 2909, 0,
- 0, 2909, 2910, 2910, 0, 2910, 2910, 2910, 2910, 2910,
- 2910, 2910, 2910, 2910, 2910, 2910, 2910, 2911, 2911, 0,
- 2911, 2911, 2911, 2911, 2911, 2911, 2911, 2911, 2911, 2911,
- 2911, 2911, 2912, 2912, 2912, 2912, 0, 0, 2912, 2913,
- 2913, 0, 2913, 2913, 2913, 2913, 2913, 2913, 2913, 2913,
- 2913, 2913, 2913, 2913, 2914, 2914, 0, 2914, 2914, 2914,
-
- 2914, 2914, 2914, 2914, 2914, 2914, 2914, 2914, 2914, 2915,
- 0, 2915, 0, 0, 2915, 2915, 2915, 2915, 2915, 0,
- 2915, 2916, 2916, 0, 2916, 2916, 2916, 2916, 2916, 2916,
- 2916, 2916, 2916, 2916, 2916, 2916, 2917, 2917, 0, 2917,
- 2917, 2917, 2917, 2917, 2917, 2917, 2917, 2917, 2917, 2917,
- 2917, 2918, 2918, 0, 2918, 2918, 2918, 2918, 2918, 2918,
- 2918, 2918, 2918, 2918, 2918, 2918, 2919, 2919, 0, 2919,
- 2919, 2919, 2919, 2919, 2919, 2919, 2919, 2919, 2919, 2919,
- 2919, 2920, 2920, 0, 2920, 2920, 2920, 2920, 2920, 2920,
- 2920, 2920, 2920, 2920, 2920, 2920, 2921, 0, 2921, 0,
-
- 0, 2921, 2922, 2922, 0, 2922, 2922, 2922, 2922, 2922,
- 2922, 2922, 2922, 2922, 2922, 2922, 2922, 2923, 2923, 0,
- 2923, 2923, 2923, 2923, 2923, 2923, 2923, 2923, 2923, 2923,
- 2923, 2923, 2924, 2924, 2924, 2924, 2924, 2924, 2924, 2924,
- 2924, 2924, 2924, 2924, 2924, 2924, 2924, 2925, 2925, 0,
- 2925, 2925, 2925, 2925, 2925, 2925, 2925, 2925, 2925, 2925,
- 2925, 2925, 2926, 2926, 0, 2926, 2926, 2926, 2926, 2926,
- 2926, 2926, 2926, 2926, 2926, 2926, 2926, 2927, 2927, 0,
- 2927, 2927, 2927, 2927, 2927, 2927, 2927, 2927, 2927, 2927,
- 2927, 2927, 2928, 2928, 0, 2928, 2928, 2928, 2928, 2928,
-
- 2928, 2928, 2928, 2928, 2928, 2928, 2928, 2929, 2929, 0,
- 2929, 2929, 2929, 2929, 2929, 2929, 2929, 2929, 2929, 2929,
- 2929, 2929, 2930, 2930, 0, 2930, 2930, 2930, 2930, 2930,
- 2930, 2930, 2930, 2930, 2930, 2930, 2930, 2931, 2931, 0,
- 2931, 2931, 2931, 2931, 2931, 2931, 2931, 2931, 2931, 2931,
- 2931, 2931, 2932, 2932, 0, 2932, 2932, 2932, 2932, 2932,
- 2932, 2932, 2932, 2932, 2932, 2932, 2932, 2933, 0, 2933,
- 0, 0, 2933, 2934, 2934, 0, 2934, 2934, 2934, 2934,
- 2934, 2934, 2934, 2934, 2934, 2934, 2934, 2934, 2935, 2935,
- 0, 2935, 2935, 2935, 2935, 2935, 2935, 2935, 2935, 2935,
-
- 2935, 2935, 2935, 2936, 2936, 0, 2936, 2936, 2936, 2936,
- 2936, 2936, 2936, 2936, 2936, 2936, 2936, 2936, 2937, 2937,
- 0, 2937, 2937, 2937, 2937, 2937, 2937, 2937, 2937, 2937,
- 2937, 2937, 2937, 2938, 2938, 2938, 0, 0, 2938, 2939,
- 2939, 2939, 2939, 0, 0, 2939, 2940, 2940, 0, 2940,
- 2940, 2940, 2940, 2940, 2940, 2940, 2940, 2940, 2940, 2940,
- 2940, 2941, 2941, 0, 2941, 2941, 2941, 2941, 2941, 2941,
- 2941, 2941, 2941, 2941, 2941, 2941, 2942, 0, 2942, 0,
- 0, 2942, 2943, 2943, 0, 2943, 2943, 2943, 2943, 2943,
- 2943, 2943, 2943, 2943, 2943, 2943, 2943, 2944, 2944, 0,
-
- 2944, 2944, 2944, 2944, 2944, 2944, 2944, 2944, 2944, 2944,
- 2944, 2944, 2945, 0, 2945, 0, 0, 2945, 2946, 2946,
- 0, 2946, 2946, 2946, 2946, 2946, 2946, 2946, 2946, 2946,
- 2946, 2946, 2946, 2947, 2947, 0, 2947, 2947, 2947, 2947,
- 2947, 2947, 2947, 2947, 2947, 2947, 2947, 2947, 2948, 0,
- 2948, 0, 0, 2948, 2949, 0, 2949, 0, 0, 2949,
- 2950, 2950, 0, 2950, 2950, 2950, 2950, 2950, 2950, 2950,
- 2950, 2950, 2950, 2950, 2950, 2951, 2951, 0, 2951, 2951,
- 2951, 2951, 2951, 2951, 2951, 2951, 2951, 2951, 2951, 2951,
- 2952, 0, 2952, 0, 0, 2952, 2953, 2953, 0, 2953,
-
- 2953, 2953, 2953, 2953, 2953, 2953, 2953, 2953, 2953, 2953,
- 2953, 2954, 2954, 0, 2954, 2954, 2954, 2954, 2954, 2954,
- 2954, 2954, 2954, 2954, 2954, 2954, 2955, 2955, 0, 2955,
- 2955, 2955, 0, 2955, 2955, 2955, 2955, 2955, 2955, 2955,
- 2955, 2956, 0, 2956, 0, 0, 2956, 2957, 2957, 0,
- 2957, 2957, 2957, 2957, 2957, 2957, 2957, 2957, 2957, 2957,
- 2957, 2957, 2958, 2958, 0, 2958, 2958, 2958, 2958, 2958,
- 2958, 2958, 2958, 2958, 2958, 2958, 2958, 2959, 2959, 0,
- 2959, 2959, 2959, 0, 2959, 2959, 2959, 2959, 2959, 2959,
- 2959, 2959, 2960, 0, 2960, 0, 0, 2960, 2961, 2961,
-
- 0, 2961, 2961, 2961, 2961, 2961, 2961, 2961, 2961, 2961,
- 2961, 2961, 2961, 2962, 2962, 0, 2962, 2962, 2962, 2962,
- 2962, 2962, 2962, 2962, 2962, 2962, 2962, 2962, 2963, 0,
- 2963, 0, 0, 2963, 2964, 2964, 0, 2964, 2964, 2964,
- 2964, 2964, 2964, 2964, 2964, 2964, 2964, 2964, 2964, 2965,
- 2965, 0, 2965, 2965, 2965, 2965, 2965, 2965, 2965, 2965,
- 2965, 2965, 2965, 2965, 2966, 0, 2966, 0, 0, 2966,
- 2966, 2966, 2966, 2966, 0, 2966, 2967, 2967, 0, 2967,
- 2967, 2967, 2967, 2967, 2967, 2967, 2967, 2967, 2967, 2967,
- 2967, 2968, 2968, 0, 2968, 2968, 2968, 2968, 2968, 2968,
-
- 2968, 2968, 2968, 2968, 2968, 2968, 2969, 2969, 0, 2969,
- 2969, 2969, 2969, 2969, 2969, 2969, 2969, 2969, 2969, 2969,
- 2969, 2970, 0, 2970, 0, 0, 2970, 2971, 2971, 0,
- 2971, 2971, 2971, 2971, 2971, 2971, 2971, 2971, 2971, 2971,
- 2971, 2971, 2972, 2972, 0, 2972, 2972, 2972, 2972, 2972,
- 2972, 2972, 2972, 2972, 2972, 2972, 2972, 2973, 2973, 0,
- 2973, 2973, 2973, 2973, 2973, 2973, 2973, 2973, 2973, 2973,
- 2973, 2973, 2974, 2974, 0, 2974, 2974, 2974, 2974, 2974,
- 2974, 2974, 2974, 2974, 2974, 2974, 2974, 2975, 2975, 0,
- 2975, 2975, 2975, 2975, 2975, 2975, 2975, 2975, 2975, 2975,
-
- 2975, 2975, 2976, 2976, 0, 2976, 2976, 2976, 2976, 2976,
- 2976, 2976, 2976, 2976, 2976, 2976, 2976, 2977, 2977, 0,
- 2977, 2977, 2977, 2977, 2977, 2977, 2977, 2977, 2977, 2977,
- 2977, 2977, 2978, 2978, 0, 2978, 2978, 2978, 2978, 2978,
- 2978, 2978, 2978, 2978, 2978, 2978, 2978, 2979, 2979, 0,
- 2979, 2979, 2979, 2979, 2979, 2979, 2979, 2979, 2979, 2979,
- 2979, 2979, 2980, 2980, 0, 2980, 2980, 2980, 2980, 2980,
- 2980, 2980, 2980, 2980, 2980, 2980, 2980, 2981, 0, 2981,
- 0, 0, 2981, 2982, 2982, 2982, 0, 0, 2982, 2983,
- 2983, 2983, 0, 0, 2983, 2984, 0, 2984, 0, 0,
-
- 2984, 2985, 0, 2985, 0, 0, 2985, 2986, 0, 2986,
- 0, 0, 2986, 2987, 0, 2987, 0, 0, 2987, 2988,
- 0, 2988, 0, 0, 2988, 2989, 0, 2989, 0, 0,
- 2989, 2990, 0, 2990, 0, 0, 2990, 2991, 0, 2991,
- 0, 0, 2991, 2992, 2992, 0, 2992, 2992, 2992, 2992,
- 2992, 2992, 2992, 2992, 2992, 2992, 2992, 2992, 2993, 2993,
- 0, 2993, 2993, 2993, 2993, 2993, 2993, 2993, 2993, 2993,
- 2993, 2993, 2993, 2994, 2994, 0, 2994, 2994, 2994, 2994,
- 2994, 2994, 2994, 2994, 2994, 2994, 2994, 2994, 2995, 2995,
- 0, 2995, 2995, 2995, 2995, 2995, 2995, 2995, 2995, 2995,
-
- 2995, 2995, 2995, 2996, 2996, 0, 2996, 2996, 2996, 2996,
- 2996, 2996, 2996, 2996, 2996, 2996, 2996, 2996, 2997, 2997,
- 0, 2997, 2997, 2997, 2997, 2997, 2997, 2997, 2997, 2997,
- 2997, 2997, 2997, 2998, 2998, 0, 2998, 2998, 2998, 2998,
- 2998, 2998, 2998, 2998, 2998, 2998, 2998, 2998, 2999, 2999,
- 0, 2999, 2999, 2999, 2999, 2999, 2999, 2999, 2999, 2999,
- 2999, 2999, 2999, 3000, 3000, 0, 3000, 3000, 3000, 3000,
- 3000, 3000, 3000, 3000, 3000, 3000, 3000, 3000, 3001, 3001,
- 0, 3001, 3001, 3001, 3001, 3001, 3001, 3001, 3001, 3001,
- 3001, 3001, 3001, 3002, 3002, 3002, 3002, 3002, 3002, 3002,
-
- 3002, 3002, 3002, 3002, 3002, 3002, 3002, 3002, 3003, 3003,
- 3003, 3003, 3003, 3003, 3003, 3003, 3003, 3003, 3003, 3003,
- 3003, 3003, 3003, 3004, 0, 3004, 0, 0, 3004, 3005,
- 3005, 3005, 0, 0, 3005, 3006, 0, 3006, 0, 0,
- 3006, 3007, 0, 3007, 0, 0, 3007, 3008, 0, 3008,
- 0, 0, 3008, 3009, 0, 3009, 0, 0, 3009, 3010,
- 0, 3010, 0, 0, 3010, 3011, 0, 3011, 0, 0,
- 3011, 3012, 0, 3012, 0, 0, 3012, 3013, 0, 3013,
- 0, 0, 3013, 3014, 3014, 0, 3014, 3014, 3014, 3014,
- 3014, 3014, 3014, 3014, 3014, 3014, 3014, 3014, 3015, 3015,
-
- 0, 3015, 3015, 3015, 3015, 3015, 3015, 3015, 3015, 3015,
- 3015, 3015, 3015, 3016, 3016, 0, 3016, 3016, 3016, 3016,
- 3016, 3016, 3016, 3016, 3016, 3016, 3016, 3016, 3017, 3017,
- 0, 3017, 3017, 3017, 3017, 3017, 3017, 3017, 3017, 3017,
- 3017, 3017, 3017, 3018, 3018, 0, 3018, 3018, 3018, 3018,
- 3018, 3018, 3018, 3018, 3018, 3018, 3018, 3018, 3019, 3019,
- 3019, 3019, 3019, 3019, 3019, 3019, 3019, 3019, 3019, 3019,
- 3019, 3019, 3019, 3020, 3020, 0, 3020, 3020, 3020, 3020,
- 3020, 3020, 3020, 3020, 3020, 3020, 3020, 3020, 3021, 3021,
- 0, 3021, 3021, 3021, 3021, 3021, 3021, 3021, 3021, 3021,
-
- 3021, 3021, 3021, 3022, 3022, 0, 3022, 3022, 3022, 3022,
- 3022, 3022, 3022, 3022, 3022, 3022, 3022, 3022, 3023, 3023,
- 0, 3023, 3023, 3023, 3023, 3023, 3023, 3023, 3023, 3023,
- 3023, 3023, 3023, 3024, 3024, 0, 3024, 3024, 3024, 3024,
- 3024, 3024, 3024, 3024, 3024, 3024, 3024, 3024, 3025, 3025,
- 3025, 3025, 3025, 3025, 3025, 3025, 3025, 3025, 3025, 3025,
- 3025, 3025, 3025, 3026, 3026, 3026, 3026, 3026, 3026, 3026,
- 3026, 3026, 3026, 3026, 3026, 3026, 3026, 3026, 3027, 0,
- 3027, 0, 0, 3027, 3028, 3028, 3028, 0, 0, 3028,
- 3029, 0, 3029, 0, 0, 3029, 3030, 0, 3030, 0,
-
- 0, 3030, 3031, 0, 3031, 0, 0, 3031, 3032, 0,
- 3032, 0, 0, 3032, 3033, 0, 3033, 0, 0, 3033,
- 3034, 0, 3034, 0, 0, 3034, 3035, 0, 3035, 0,
- 0, 3035, 3036, 0, 3036, 0, 0, 3036, 3037, 3037,
- 0, 3037, 3037, 3037, 3037, 3037, 3037, 3037, 3037, 3037,
- 3037, 3037, 3037, 3038, 3038, 0, 3038, 3038, 3038, 3038,
- 3038, 3038, 3038, 3038, 3038, 3038, 3038, 3038, 3039, 3039,
- 0, 3039, 3039, 3039, 3039, 3039, 3039, 3039, 3039, 3039,
- 3039, 3039, 3039, 3040, 3040, 3040, 3040, 3040, 3040, 3040,
- 3040, 3040, 3040, 3040, 3040, 3040, 3040, 3040, 3041, 3041,
-
- 0, 3041, 3041, 3041, 3041, 3041, 3041, 3041, 3041, 3041,
- 3041, 3041, 3041, 3042, 3042, 0, 3042, 3042, 3042, 3042,
- 3042, 3042, 3042, 3042, 3042, 3042, 3042, 3042, 3043, 3043,
- 3043, 3043, 3043, 3043, 3043, 3043, 3043, 3043, 3043, 3043,
- 3043, 3043, 3043, 3044, 3044, 0, 3044, 3044, 3044, 3044,
- 3044, 3044, 3044, 3044, 3044, 3044, 3044, 3044, 3045, 3045,
- 0, 3045, 3045, 3045, 3045, 3045, 3045, 3045, 3045, 3045,
- 3045, 3045, 3045, 3046, 3046, 0, 3046, 3046, 3046, 3046,
- 3046, 3046, 3046, 3046, 3046, 3046, 3046, 3046, 3047, 3047,
- 0, 3047, 3047, 3047, 3047, 3047, 3047, 3047, 3047, 3047,
-
- 3047, 3047, 3047, 3048, 3048, 0, 3048, 3048, 3048, 3048,
- 3048, 3048, 3048, 3048, 3048, 3048, 3048, 3048, 3049, 3049,
- 3049, 3049, 3049, 3049, 3049, 3049, 3049, 3049, 3049, 3049,
- 3049, 3049, 3049, 3050, 3050, 3050, 3050, 3050, 3050, 3050,
- 3050, 3050, 3050, 3050, 3050, 3050, 3050, 3050, 3051, 0,
- 3051, 0, 0, 3051, 3052, 3052, 3052, 0, 0, 3052,
- 3053, 0, 3053, 0, 0, 3053, 3054, 0, 3054, 0,
- 0, 3054, 3055, 0, 3055, 0, 0, 3055, 3056, 0,
- 3056, 0, 0, 3056, 3057, 0, 3057, 0, 0, 3057,
- 3058, 0, 3058, 0, 0, 3058, 3059, 0, 3059, 0,
-
- 0, 3059, 3060, 3060, 0, 0, 0, 0, 3060, 3060,
- 0, 3060, 3060, 0, 3060, 3061, 3061, 0, 3061, 3061,
- 3061, 3061, 3061, 3061, 3061, 3061, 3061, 3061, 3061, 3061,
- 3062, 3062, 3062, 3062, 3062, 3062, 3062, 3062, 3062, 3062,
- 3062, 3062, 3062, 3062, 3062, 3063, 3063, 0, 3063, 3063,
- 3063, 3063, 3063, 3063, 3063, 3063, 3063, 3063, 3063, 3063,
- 3064, 0, 3064, 0, 0, 0, 0, 0, 3064, 0,
- 3064, 0, 3064, 3065, 3065, 0, 3065, 3065, 3065, 3065,
- 3065, 3065, 3065, 3065, 3065, 3065, 3065, 3065, 3066, 3066,
- 0, 3066, 3066, 3066, 3066, 3066, 3066, 3066, 3066, 3066,
-
- 3066, 3066, 3066, 3067, 3067, 0, 0, 0, 3067, 0,
- 3067, 0, 3067, 0, 3067, 3068, 3068, 3068, 0, 3068,
- 3068, 3068, 0, 0, 3068, 3068, 3068, 3069, 0, 3069,
- 0, 0, 3069, 3070, 3070, 3070, 0, 0, 3070, 3071,
- 0, 3071, 0, 0, 3071, 3072, 0, 3072, 0, 0,
- 3072, 3073, 0, 3073, 0, 0, 3073, 3074, 0, 3074,
- 0, 0, 3074, 3075, 0, 3075, 0, 0, 3075, 3076,
- 0, 3076, 0, 0, 3076, 3077, 3077, 0, 3077, 0,
- 3077, 0, 0, 3077, 3077, 3078, 3078, 0, 3078, 3078,
- 3078, 3078, 3078, 3078, 3078, 3078, 3078, 3078, 3078, 3078,
-
- 3079, 3079, 0, 3079, 3079, 3079, 3079, 3079, 3079, 3079,
- 3079, 3079, 3079, 3079, 3079, 3080, 3080, 0, 3080, 3080,
- 3080, 3080, 3080, 3080, 3080, 3080, 3080, 3080, 3080, 3080,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866,
-
- 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866, 2866
- } ;
-
-static yy_state_type yy_last_accepting_state;
-static char *yy_last_accepting_cpos;
-
-extern int pp_flex_debug;
-int pp_flex_debug = 0;
-
-/* The intent behind this definition is that it'll catch
- * any uses of REJECT which flex missed.
- */
-#define REJECT reject_used_but_not_detected
-#define yymore() yymore_used_but_not_detected
-#define YY_MORE_ADJ 0
-#define YY_RESTORE_YY_MORE_OFFSET
-char *pptext;
-#line 1 "pplex.l"
-/*
- Copyright (C) 2001-2012, 2014-2023 Free Software Foundation, Inc.
- Written by Keisuke Nishida, Roger While, Simon Sobisch, Dave Pitts
-
- 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 <https://www.gnu.org/licenses/>.
-*/
-#line 52 "pplex.l"
-#undef YY_READ_BUF_SIZE
-#define YY_READ_BUF_SIZE 32768
-#undef YY_BUF_SIZE
-#define YY_BUF_SIZE 32768
-
-#define YY_SKIP_YYWRAP
-static int ppwrap (void) {
- return 1;
-}
-
-#define PPLEX_BUFF_LEN 512
-#define YY_INPUT(buf,result,max_size) result = ppinput (buf, max_size);
-#define ECHO fputs (pptext, ppout)
-
-#define YY_USER_INIT \
- if (!plexbuff1) { \
- plexbuff1 = cobc_malloc ((size_t)COB_SMALL_BUFF); \
- } \
- if (!plexbuff2) { \
- plexbuff2 = cobc_malloc ((size_t)COB_SMALL_BUFF); \
- } \
- requires_listing_line = 1; \
- comment_allowed = 1;
-
-#include "config.h"
-
-#ifdef HAVE_UNISTD_H
-#include <unistd.h>
-#else
-#define YY_NO_UNISTD_H 1
-#endif
-#include <ctype.h>
-#include <sys/stat.h>
-#include <sys/types.h>
-#include <string.h>
-#ifdef HAVE_STRINGS_H
-#include <strings.h>
-#endif
-
-#define COB_IN_PPLEX 1
-#include "cobc.h"
-#include "tree.h"
-#include "ppparse.h"
-
-#ifdef _WIN32
-#include <io.h> /* for access */
-#endif
-
-/* ignore unused functions here as flex generates unused ones */
-#ifdef __GNUC__
-#if defined (__clang__) || __GNUC__ > 4 || (__GNUC__ == 4 && __GNUC_MINOR__ >= 4)
-#pragma GCC diagnostic ignored "-Wunused-function"
-#endif
-#endif
-
-#define PLEX_COND_DEPTH 16
-
-struct copy_info {
- struct copy_info *next;
- struct copy_info *prev;
- struct list_files *containing_files;
- const char *file;
- char *dname;
- struct cb_replace_list *replacing;
- YY_BUFFER_STATE buffer;
- int line;
- int quotation_mark;
- int source_format;
-};
-
-struct plex_stack {
- unsigned int cmd;
- unsigned int skip;
- unsigned int cond;
- int line;
-};
-
-/* Global variables */
-
-/* Local variables */
-static char *plexbuff1 = NULL;
-static char *plexbuff2 = NULL;
-static struct list_files *old_list_file = NULL;
-static size_t newline_count = 0;
-static size_t within_comment = 0;
-static size_t inside_bracket = 0;
-static size_t consecutive_quotation = 0;
-static size_t need_continuation = 0;
-static size_t buffer_overflow = 0;
-static size_t comment_allowed;
-static unsigned int plex_skip_input = 0;
-static unsigned int plex_nest_depth = 0;
-static int quotation_mark = 0;
-static int echo_newline = 0;
-static int listing_line = 0;
-static int requires_listing_line;
-static enum cb_format source_format = CB_FORMAT_AUTO;
-static int indicator_column = 7;
-static int text_column = 72; /* end of area B (in single-byte
- characters) */
-static int floating_area_b = 0; /* whether indicator is optional */
-static int fill_continued_alnums = 1; /* whether continued alphanumeric
- literals should be filled with
- spaces up to text column */
-static int emit_area_a_tokens = 0;
-
-static char display_msg[PPLEX_BUFF_LEN];
-
-static struct copy_info *copy_stack = NULL;
-
-static struct plex_stack plex_cond_stack[PLEX_COND_DEPTH];
-
-/* Function declarations */
-static int ppinput (char *, const size_t);
-static void ppecho (const char *text, const char *token );
-
-static void switch_to_buffer (const int, const char *,
- const YY_BUFFER_STATE);
-static void check_listing (const char *, const unsigned int);
-static void skip_to_eol (void);
-static void count_newlines (const char *);
-static void display_finish (void);
-static void get_new_listing_file (void);
-static void output_pending_newlines (FILE *);
-
-static struct cb_text_list *pp_text_list_add (struct cb_text_list *,
- const char *, const size_t);
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-#line 5460 "pplex.c"
-
-#define INITIAL 0
-#define CALL_DIRECTIVE_STATE 1
-#define COBOL_WORDS_DIRECTIVE_STATE 2
-#define COPY_STATE 3
-#define REPLACING_STATE 4
-#define PSEUDO_STATE 5
-#define REPLACE_STATE 6
-#define CONTROL_DIVISION_STATE 7
-#define SUBSTITUTION_SECTION_STATE 8
-#define SOURCE_DIRECTIVE_STATE 9
-#define DEFINE_DIRECTIVE_STATE 10
-#define ON_OFF_DIRECTIVE_STATE 11
-#define SET_DIRECTIVE_STATE 12
-#define TURN_DIRECTIVE_STATE 13
-#define IF_DIRECTIVE_STATE 14
-#define ELSE_DIRECTIVE_STATE 15
-#define ENDIF_DIRECTIVE_STATE 16
-#define ALNUM_LITERAL_STATE 17
-#define CONTROL_STATEMENT_STATE 18
-#define DISPLAY_DIRECTIVE_STATE 19
-
-#ifndef YY_NO_UNISTD_H
-/* Special case for "unistd.h", since it is non-ANSI. We include it way
- * down here because we want the user's section 1 to have been scanned first.
- * The user has a chance to override it with an option.
- */
-#include <unistd.h>
-#endif
-
-#ifndef YY_EXTRA_TYPE
-#define YY_EXTRA_TYPE void *
-#endif
-
-static int yy_init_globals (void );
-
-/* Accessor methods to globals.
- These are made visible to non-reentrant scanners for convenience. */
-
-int pplex_destroy (void );
-
-/* Macros after this point can all be overridden by user definitions in
- * section 1.
- */
-
-#ifndef YY_SKIP_YYWRAP
-#ifdef __cplusplus
-extern "C" int ppwrap (void );
-#else
-extern int ppwrap (void );
-#endif
-#endif
-
-#ifndef YY_NO_UNPUT
-
- static void yyunput (int c,char *buf_ptr );
-
-#endif
-
-#ifndef yytext_ptr
-static void yy_flex_strncpy (char *,yyconst char *,int );
-#endif
-
-#ifdef YY_NEED_STRLEN
-static int yy_flex_strlen (yyconst char * );
-#endif
-
-#ifndef YY_NO_INPUT
-
-#ifdef __cplusplus
-static int yyinput (void );
-#else
-static int input (void );
-#endif
-
-#endif
-
- static int yy_start_stack_ptr = 0;
- static int yy_start_stack_depth = 0;
- static int *yy_start_stack = NULL;
-
- static void yy_push_state (int _new_state );
-
- static void yy_pop_state (void );
-
-/* Amount of stuff to slurp up with each read. */
-#ifndef YY_READ_BUF_SIZE
-#ifdef __ia64__
-/* On IA-64, the buffer size is 16k, not 8k */
-#define YY_READ_BUF_SIZE 16384
-#else
-#define YY_READ_BUF_SIZE 8192
-#endif /* __ia64__ */
-#endif
-
-/* Copy whatever the last rule matched to the standard output. */
-#ifndef ECHO
-/* This used to be an fputs(), but since the string might contain NUL's,
- * we now use fwrite().
- */
-#define ECHO do { if (fwrite( pptext, (size_t) ppleng, 1, ppout )) {} } while (0)
-#endif
-
-/* Gets input and stuffs it into "buf". number of characters read, or YY_NULL,
- * is returned in "result".
- */
-#ifndef YY_INPUT
-#define YY_INPUT(buf,result,max_size) \
- if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) \
- { \
- int c = '*'; \
- int n; \
- for ( n = 0; n < max_size && \
- (c = getc( ppin )) != EOF && c != '\n'; ++n ) \
- buf[n] = (char) c; \
- if ( c == '\n' ) \
- buf[n++] = (char) c; \
- if ( c == EOF && ferror( ppin ) ) \
- YY_FATAL_ERROR( "input in flex scanner failed" ); \
- result = n; \
- } \
- else \
- { \
- errno=0; \
- while ( (result = (int) fread(buf, 1, (yy_size_t) max_size, ppin)) == 0 && ferror(ppin)) \
- { \
- if( errno != EINTR) \
- { \
- YY_FATAL_ERROR( "input in flex scanner failed" ); \
- break; \
- } \
- errno=0; \
- clearerr(ppin); \
- } \
- }\
-\
-
-#endif
-
-/* No semi-colon after return; correct usage is to write "yyterminate();" -
- * we don't want an extra ';' after the "return" because that will cause
- * some compilers to complain about unreachable statements.
- */
-#ifndef yyterminate
-#define yyterminate() return YY_NULL
-#endif
-
-/* Number of entries by which start-condition stack grows. */
-#ifndef YY_START_STACK_INCR
-#define YY_START_STACK_INCR 25
-#endif
-
-/* Report a fatal error. */
-#ifndef YY_FATAL_ERROR
-#define YY_FATAL_ERROR(msg) yy_fatal_error( msg )
-#endif
-
-/* end tables serialization structures and prototypes */
-
-/* Default declaration of generated scanner - a define so the user can
- * easily add parameters.
- */
-#ifndef YY_DECL
-#define YY_DECL_IS_OURS 1
-
-extern int pplex (void);
-
-#define YY_DECL int pplex (void)
-#endif /* !YY_DECL */
-
-/* Code executed at the beginning of each rule, after pptext and ppleng
- * have been set up.
- */
-#ifndef YY_USER_ACTION
-#define YY_USER_ACTION
-#endif
-
-/* Code executed at the end of each rule. */
-#ifndef YY_BREAK
-#define YY_BREAK /*LINTED*/break;
-#endif
-
-#define YY_RULE_SETUP \
- if ( ppleng > 0 ) \
- YY_CURRENT_BUFFER_LVALUE->yy_at_bol = \
- (pptext[ppleng - 1] == '\n'); \
- YY_USER_ACTION
-
-/** The main scanner function which does all the work.
- */
-YY_DECL
-{
- yy_state_type yy_current_state;
- char *yy_cp, *yy_bp;
- int yy_act;
-
- if ( !(yy_init) )
- {
- (yy_init) = 1;
-
-#ifdef YY_USER_INIT
- YY_USER_INIT;
-#endif
-
- if ( ! (yy_start) )
- (yy_start) = 1; /* first start state */
-
- if ( ! ppin )
- ppin = stdin;
-
- if ( ! ppout )
- ppout = stdout;
-
- if ( ! YY_CURRENT_BUFFER ) {
- ppensure_buffer_stack ();
- YY_CURRENT_BUFFER_LVALUE =
- pp_create_buffer(ppin,YY_BUF_SIZE );
- }
-
- pp_load_buffer_state( );
- }
-
- {
-#line 213 "pplex.l"
-
-
-
-
-
-#line 5690 "pplex.c"
-
- while ( /*CONSTCOND*/1 ) /* loops until end-of-file is reached */
- {
- yy_cp = (yy_c_buf_p);
-
- /* Support of pptext. */
- *yy_cp = (yy_hold_char);
-
- /* yy_bp points to the position in yy_ch_buf of the start of
- * the current run.
- */
- yy_bp = yy_cp;
-
- yy_current_state = (yy_start);
- yy_current_state += YY_AT_BOL();
-yy_match:
- do
- {
- YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)] ;
- if ( yy_accept[yy_current_state] )
- {
- (yy_last_accepting_state) = yy_current_state;
- (yy_last_accepting_cpos) = yy_cp;
- }
- while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
- {
- yy_current_state = (int) yy_def[yy_current_state];
- if ( yy_current_state >= 2867 )
- yy_c = yy_meta[(unsigned int) yy_c];
- }
- yy_current_state = yy_nxt[yy_base[yy_current_state] + (flex_int16_t) yy_c];
- ++yy_cp;
- }
- while ( yy_current_state != 2866 );
- yy_cp = (yy_last_accepting_cpos);
- yy_current_state = (yy_last_accepting_state);
-
-yy_find_action:
- yy_act = yy_accept[yy_current_state];
-
- YY_DO_BEFORE_ACTION;
-
-do_action: /* This label is used only to access EOF actions. */
-
- switch ( yy_act )
- { /* beginning of action switch */
- case 0: /* must back up */
- /* undo the effects of YY_DO_BEFORE_ACTION */
- *yy_cp = (yy_hold_char);
- yy_cp = (yy_last_accepting_cpos);
- yy_current_state = (yy_last_accepting_state);
- goto yy_find_action;
-
-case 1:
-YY_RULE_SETUP
-#line 218 "pplex.l"
-{
- /* 2002+: inline comment */
- #if 0 /* RXWRXW - Directive state */
- if (YY_START != DIRECTIVE_STATE && YY_START != SET_DIRECTIVE_STATE) {
- ppecho (" ", NULL);
- }
- #endif
-}
- YY_BREAK
-case 2:
-YY_RULE_SETUP
-#line 227 "pplex.l"
-{
- /* 202x+: directive for setting source format */
- BEGIN COBOL_WORDS_DIRECTIVE_STATE;
- output_pending_newlines (ppout);
- return COBOL_WORDS_DIRECTIVE;
-}
- YY_BREAK
-case 3:
-YY_RULE_SETUP
-#line 234 "pplex.l"
-{
- /* 2002+: definition of compiler constants display message during compilation */
- /* Define here to preempt next debug rule below */
- BEGIN DEFINE_DIRECTIVE_STATE;
- output_pending_newlines (ppout);
- return DEFINE_DIRECTIVE;
-}
- YY_BREAK
-case 4:
-YY_RULE_SETUP
-#line 242 "pplex.l"
-{
- /* previous OpenCOBOL/GnuCOBOL 2.x extension, added in COBOL 202x with slightly different syntax:
- display message during compilation --> needs a dialect option to switch to the appropriate state */
- display_msg[0] = 0;
- output_pending_newlines (ppout);
- BEGIN DISPLAY_DIRECTIVE_STATE;
-}
- YY_BREAK
-case 5:
-YY_RULE_SETUP
-#line 250 "pplex.l"
-{
- /* 202x: directive to allow zero ref-mod */
- BEGIN ON_OFF_DIRECTIVE_STATE;
- output_pending_newlines (ppout);
- return REFMOD_DIRECTIVE;
-}
- YY_BREAK
-case 6:
-YY_RULE_SETUP
-#line 257 "pplex.l"
-{
- /* 2002 (only) floating debug line */
- /* Remove line if debugging lines not activated */
- /* Otherwise ignore the directive part of the line */
- (void) cb_verify (cb_debugging_mode, _("debugging indicator"));
- if (!cb_flag_debugging_line) {
- skip_to_eol ();
- }
-}
- YY_BREAK
-case 7:
-YY_RULE_SETUP
-#line 267 "pplex.l"
-{
- /* 2002+: listing directive for page eject with optional comment
- Note: processed in cobc.c */
- skip_to_eol ();
-}
- YY_BREAK
-case 8:
-YY_RULE_SETUP
-#line 273 "pplex.l"
-{
- /* 2002+: listing directive for (de-)activating the listing,
- ON implied for empty value
- Note: further checks in ppparse.y, processed in cobc.c */
- BEGIN ON_OFF_DIRECTIVE_STATE;
- output_pending_newlines (ppout);
- return LISTING_DIRECTIVE;
-}
- YY_BREAK
-case 9:
-YY_RULE_SETUP
-#line 282 "pplex.l"
-{
- /* 2002+: directive for setting source format */
- BEGIN SOURCE_DIRECTIVE_STATE;
- output_pending_newlines (ppout);
- return SOURCE_DIRECTIVE;
-}
- YY_BREAK
-case 10:
-YY_RULE_SETUP
-#line 289 "pplex.l"
-{
- /* OpenCOBOL/GnuCOBOL 2.0 extension: MF SET directive in 2002+ style format */
- BEGIN SET_DIRECTIVE_STATE;
- output_pending_newlines (ppout);
- return SET_DIRECTIVE;
-}
- YY_BREAK
-case 11:
-YY_RULE_SETUP
-#line 296 "pplex.l"
-{
- /* 2002+: directive for (de-)activating exception checks */
- BEGIN TURN_DIRECTIVE_STATE;
- output_pending_newlines (ppout);
- return TURN_DIRECTIVE;
-}
- YY_BREAK
-case 12:
-YY_RULE_SETUP
-#line 303 "pplex.l"
-{
- /* 2002+: conditional compilation */
- BEGIN IF_DIRECTIVE_STATE;
- output_pending_newlines (ppout);
- return IF_DIRECTIVE;
-}
- YY_BREAK
-case 13:
-#line 310 "pplex.l"
-case 14:
-YY_RULE_SETUP
-#line 310 "pplex.l"
-{
- /* OpenCOBOL extension: conditional compilation combined ELSE IF,
- 2002+ style format */
- BEGIN IF_DIRECTIVE_STATE;
- output_pending_newlines (ppout);
- return ELIF_DIRECTIVE;
-}
- YY_BREAK
-case 15:
-YY_RULE_SETUP
-#line 317 "pplex.l"
-{
- /* 2002+: conditional compilation */
- BEGIN ELSE_DIRECTIVE_STATE;
- output_pending_newlines (ppout);
- return ELSE_DIRECTIVE;
-}
- YY_BREAK
-case 16:
-YY_RULE_SETUP
-#line 323 "pplex.l"
-{
- /* 2002+: conditional compilation */
- BEGIN ENDIF_DIRECTIVE_STATE;
- output_pending_newlines (ppout);
- return ENDIF_DIRECTIVE;
-}
- YY_BREAK
-case 17:
-YY_RULE_SETUP
-#line 330 "pplex.l"
-{
- /* 2002+: more then 60 seconds per minute (currently always set to off),
- OFF implied for empty value */
- BEGIN ON_OFF_DIRECTIVE_STATE;
- output_pending_newlines (ppout);
- return LEAP_SECOND_DIRECTIVE;
-}
- YY_BREAK
-case 18:
-YY_RULE_SETUP
-#line 338 "pplex.l"
-{
- /* 2002+: convention for CALL/CANCEL */
- BEGIN CALL_DIRECTIVE_STATE;
- output_pending_newlines (ppout);
- return CALL_DIRECTIVE;
-}
- YY_BREAK
-case 19:
-/* rule 19 can match eol */
-YY_RULE_SETUP
-#line 345 "pplex.l"
-{
- /* empty 2002+ style directive */
- cb_plex_warning (COBC_WARN_FILLER, newline_count,
- _("ignoring empty directive"));
- unput ('\n');
-}
- YY_BREAK
-case 20:
-YY_RULE_SETUP
-#line 352 "pplex.l"
-{
- /* unknown 2002+ style directive */
- char *s;
-
- s = strchr (pptext, '>');
- cb_plex_warning (COBC_WARN_FILLER, newline_count,
- _("ignoring invalid directive: '%s'"), s);
- skip_to_eol ();
-}
- YY_BREAK
-case 21:
-YY_RULE_SETUP
-#line 362 "pplex.l"
-{
- /* unknown 2002+ style directive */
- cb_plex_warning (COBC_WARN_FILLER, newline_count,
- _("ignoring invalid directive"));
- skip_to_eol ();
-}
- YY_BREAK
-case 22:
-YY_RULE_SETUP
-#line 369 "pplex.l"
-{
- /* MF extension: include @(#)text\0 in the object file */
- /* we just add a warning for now, maybe implement it later */
- CB_PENDING (_("VCS directive"));
- skip_to_eol ();
-}
- YY_BREAK
-case 23:
-YY_RULE_SETUP
-#line 376 "pplex.l"
-{
- /* MF extension: display message during compilation */
- display_msg[0] = 0;
- BEGIN DISPLAY_DIRECTIVE_STATE;
- output_pending_newlines (ppout);
-}
- YY_BREAK
-case 24:
-YY_RULE_SETUP
-#line 383 "pplex.l"
-{
- /* MF extension: SET directive */
- /* TODO: check position of the $SET directive */
- BEGIN SET_DIRECTIVE_STATE;
- output_pending_newlines (ppout);
- return SET_DIRECTIVE;
-}
- YY_BREAK
-case 25:
-YY_RULE_SETUP
-#line 391 "pplex.l"
-{
- /* MF extension: conditional compilation */
- BEGIN IF_DIRECTIVE_STATE;
- output_pending_newlines (ppout);
- return IF_DIRECTIVE;
-}
- YY_BREAK
-case 26:
-#line 398 "pplex.l"
-case 27:
-YY_RULE_SETUP
-#line 398 "pplex.l"
-{
- /* OpenCOBOL/GnuCOBOL 2.0 extension: conditional compilation combined ELSE IF,
- MF style format */
- BEGIN IF_DIRECTIVE_STATE;
- output_pending_newlines (ppout);
- return ELIF_DIRECTIVE;
-}
- YY_BREAK
-case 28:
-YY_RULE_SETUP
-#line 405 "pplex.l"
-{
- /* MF extension: conditional compilation */
- BEGIN ELSE_DIRECTIVE_STATE;
- output_pending_newlines (ppout);
- return ELSE_DIRECTIVE;
-}
- YY_BREAK
-case 29:
-#line 412 "pplex.l"
-case 30:
-YY_RULE_SETUP
-#line 412 "pplex.l"
-{
- /* MF extension: conditional compilation, second undocumented */
- BEGIN ENDIF_DIRECTIVE_STATE;
- output_pending_newlines (ppout);
- return ENDIF_DIRECTIVE;
-}
- YY_BREAK
-case 31:
-#line 419 "pplex.l"
-case 32:
-YY_RULE_SETUP
-#line 419 "pplex.l"
-{
- /* MF extension for logical marking of a block in the editor */
- /* _possibly_ check: MF rule "$REGION and $IF statements must not overlap." */
- skip_to_eol ();
-}
- YY_BREAK
-case 33:
-YY_RULE_SETUP
-#line 425 "pplex.l"
-{
- /* unknown MF style directive */
- char *s;
-
- s = strchr (pptext, '$');
- cb_plex_warning (COBC_WARN_FILLER, newline_count,
- _("ignoring invalid directive: '%s'"), s);
- skip_to_eol ();
-}
- YY_BREAK
-case 34:
-YY_RULE_SETUP
-#line 435 "pplex.l"
-{
- /* Fujitsu COBOL extension for specifying command line options */
- /* TODO: check position of the @OPTIONS directive */
- char *s = strchr (pptext, '@');
- cb_plex_warning (COBC_WARN_FILLER, newline_count - 1,
- _("ignoring unknown directive: '%s'"), s);
- skip_to_eol ();
-}
- YY_BREAK
-case 35:
-/* rule 35 can match eol */
-YY_RULE_SETUP
-#line 444 "pplex.l"
-{
- /* IBM COBOL extension for specifying compiler options */
- /* TODO: The CBL (PROCESS) statement must be placed before any
- comment lines, IDENTIFICATION DIVISION, or other
- compiler-directing statements. */
- /* empty - so ignored */
- skip_to_eol ();
-}
- YY_BREAK
-case 36:
-YY_RULE_SETUP
-#line 453 "pplex.l"
-{
- /* IBM COBOL extension for specifying compiler options */
- /* TODO: The CBL (PROCESS) statement must be placed before any
- comment lines, IDENTIFICATION DIVISION, or other
- compiler-directing statements. */
- char *s = pptext;
- while (*s == ' ') s++;
- cb_plex_warning (COBC_WARN_FILLER, newline_count - 1,
- _("ignoring unknown directive: '%s'"), s);
- skip_to_eol ();
-/*
-}
- This test was deemed to produce more issues than it is useful,
- see bug #839 and others
-
-^{MAYBE_AREA_A}[ ]*"$" {
- cb_plex_warning (COBC_WARN_FILLER, newline_count,
- _("spurious '$' detected - ignored"));
- skip_to_eol ();
-*/
-}
- YY_BREAK
-/* Strip any Area A marker leading to COPY, INCLUDE, and REPLACE right now as
- at this stage they may not be seen on the line that directly follows the
- marker. However, we still need to count the lines we are skipping this
- way. */
-case 37:
-/* rule 37 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up pptext */
-YY_LINENO_REWIND_TO(yy_cp - 5);
-(yy_c_buf_p) = yy_cp -= 5;
-YY_DO_BEFORE_ACTION; /* set up pptext again */
-YY_RULE_SETUP
-#line 479 "pplex.l"
-{ count_newlines (pptext); }
- YY_BREAK
-case 38:
-/* rule 38 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up pptext */
-YY_LINENO_REWIND_TO(yy_cp - 8);
-(yy_c_buf_p) = yy_cp -= 8;
-YY_DO_BEFORE_ACTION; /* set up pptext again */
-YY_RULE_SETUP
-#line 480 "pplex.l"
-{ count_newlines (pptext); }
- YY_BREAK
-case 39:
-/* rule 39 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up pptext */
-YY_LINENO_REWIND_TO(yy_cp - 8);
-(yy_c_buf_p) = yy_cp -= 8;
-YY_DO_BEFORE_ACTION; /* set up pptext again */
-YY_RULE_SETUP
-#line 481 "pplex.l"
-{ count_newlines (pptext); }
- YY_BREAK
-case 40:
-/* rule 40 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up pptext */
-YY_LINENO_REWIND_TO(yy_bp + 4);
-(yy_c_buf_p) = yy_cp = yy_bp + 4;
-YY_DO_BEFORE_ACTION; /* set up pptext again */
-YY_RULE_SETUP
-#line 483 "pplex.l"
-{
- yy_push_state (COPY_STATE);
- if (cb_src_list_file) {
- get_new_listing_file ();
- }
- return COPY;
-}
- YY_BREAK
-case 41:
-/* rule 41 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up pptext */
-YY_LINENO_REWIND_TO(yy_bp + 7);
-(yy_c_buf_p) = yy_cp = yy_bp + 7;
-YY_DO_BEFORE_ACTION; /* set up pptext again */
-YY_RULE_SETUP
-#line 491 "pplex.l"
-{
- /* Note: ++INCLUDE/-INC (include only the data records,
- must be specified in column 8/1) and are not implemented yet */
- yy_push_state (COPY_STATE);
- if (cb_src_list_file) {
- get_new_listing_file ();
- }
- return COPY;
-}
- YY_BREAK
-case 42:
-/* rule 42 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up pptext */
-YY_LINENO_REWIND_TO(yy_bp + 7);
-(yy_c_buf_p) = yy_cp = yy_bp + 7;
-YY_DO_BEFORE_ACTION; /* set up pptext again */
-YY_RULE_SETUP
-#line 501 "pplex.l"
-{
- yy_push_state (REPLACE_STATE);
- return REPLACE;
-}
- YY_BREAK
-case 43:
-#line 507 "pplex.l"
-case 44:
-YY_RULE_SETUP
-#line 507 "pplex.l"
-{
- BEGIN CONTROL_STATEMENT_STATE;
- output_pending_newlines (ppout);
- return CONTROL_STATEMENT;
-}
- YY_BREAK
-case 45:
-YY_RULE_SETUP
-#line 513 "pplex.l"
-{
- /* Output a special marker that precedes lines starting in area A. This
- is required to detect some missing periods.
-
- See "(*area-a*)" in `ppinput' function below for the code that emits
- the `#'.
-
- The optional space before '#' in the definition of AREA_A is only
- needed to properly handle the first line in each buffer, that for
- some reason always starts with a space.
- */
- fprintf (ppout, "#area_a\n");
-}
- YY_BREAK
-case 46:
-/* rule 46 can match eol */
-YY_RULE_SETUP
-#line 527 "pplex.l"
-{
- /* Syntax extension for GCOS: such a division may include a SUBSTITUTION
- SECTION that records source text replacement statements, along with a
- DEFAULT SECTION where compile-time defaults are specified. */
- /* cf `ppparse.y`, grammar entry `program_with_control_division`, along
- with `parser.y`, entry `_control_division`. */
- ppecho (pptext, NULL);
- yy_push_state (CONTROL_DIVISION_STATE);
- return CONTROL_DIVISION;
-}
- YY_BREAK
-
-case 47:
-/* rule 47 can match eol */
-YY_RULE_SETUP
-#line 539 "pplex.l"
-{
- yy_push_state (SUBSTITUTION_SECTION_STATE);
- return SUBSTITUTION_SECTION;
- }
- YY_BREAK
-case 48:
-YY_RULE_SETUP
-#line 543 "pplex.l"
-{
- /* Pass dots to the parser to handle DEFAULT SECTION. */
- ppecho (pptext, NULL);
- return DOT;
- }
- YY_BREAK
-
-
-case 49:
-YY_RULE_SETUP
-#line 552 "pplex.l"
-{
- yy_push_state (REPLACE_STATE);
- return REPLACE;
- }
- YY_BREAK
-
-
-case 50:
-YY_RULE_SETUP
-#line 558 "pplex.l"
-{
- /* Intercept dots within the SUBSTITUTION SECTION */
- return DOT;
- }
- YY_BREAK
-
-
-case 51:
-/* rule 51 can match eol */
-YY_RULE_SETUP
-#line 566 "pplex.l"
-{
- /* Pop any control division-related start condition state. */
- while (YY_START == CONTROL_DIVISION_STATE ||
- YY_START == SUBSTITUTION_SECTION_STATE)
- yy_pop_state ();
- ppecho (pptext, NULL);
- }
- YY_BREAK
-case 52:
-/* rule 52 can match eol */
-YY_RULE_SETUP
-#line 573 "pplex.l"
-{
- ECHO;
- check_listing (pptext, 0);
- cb_source_line++;
- }
- YY_BREAK
-case 53:
-YY_RULE_SETUP
-#line 578 "pplex.l"
-{ /* ignore */ }
- YY_BREAK
-
-
-case 54:
-/* rule 54 can match eol */
-YY_RULE_SETUP
-#line 584 "pplex.l"
-{
- /* Pop any control division-related start condition state. */
- while (YY_START == CONTROL_DIVISION_STATE ||
- YY_START == SUBSTITUTION_SECTION_STATE)
- yy_pop_state ();
- /* Allow comment sentences/paragraphs */
- comment_allowed = 1;
- ppecho (pptext, NULL);
-}
- YY_BREAK
-case 55:
-/* rule 55 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up pptext */
-YY_LINENO_REWIND_TO(yy_bp + 10);
-(yy_c_buf_p) = yy_cp = yy_bp + 10;
-YY_DO_BEFORE_ACTION; /* set up pptext again */
-YY_RULE_SETUP
-#line 594 "pplex.l"
-{
- /* Allow comment sentences/paragraphs */
- comment_allowed = 1;
- ppecho (pptext, NULL);
-}
- YY_BREAK
-case 56:
-/* rule 56 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up pptext */
-YY_LINENO_REWIND_TO(yy_bp + 8);
-(yy_c_buf_p) = yy_cp = yy_bp + 8;
-YY_DO_BEFORE_ACTION; /* set up pptext again */
-YY_RULE_SETUP
-#line 600 "pplex.l"
-{
- /* Disallow comment sentences/paragraphs */
- comment_allowed = 0;
- ppecho (pptext, NULL);
-}
- YY_BREAK
-case 57:
-/* rule 57 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up pptext */
-YY_LINENO_REWIND_TO(yy_bp + 7);
-(yy_c_buf_p) = yy_cp = yy_bp + 7;
-YY_DO_BEFORE_ACTION; /* set up pptext again */
-YY_RULE_SETUP
-#line 606 "pplex.l"
-{
- /* Disallow comment sentences/paragraphs */
- comment_allowed = 0;
- ppecho (pptext, NULL);
-}
- YY_BREAK
-case 58:
-#line 613 "pplex.l"
-case 59:
-#line 614 "pplex.l"
-case 60:
-#line 615 "pplex.l"
-case 61:
-YY_RULE_SETUP
-#line 615 "pplex.l"
-{
- /* These words can either be a listing-directive statement,
- a reserved word, or a user-defined word...
- some implementations (dis-)allow the (optional) "."
- some start column 8+ some column 12+
- We ignore the detailed rules and just do the parsing. */
- if (cb_verify (cb_listing_statements, pptext)) {
- /* handle as listing-directive statement */
- skip_to_eol();
- return LISTING_STATEMENT;
- } else if (cb_listing_statements == CB_SKIP) {
- /* handle later (normal reserved / user defined word) */
- ECHO;
- check_listing (pptext, 0);
- } else {
- /* Ignore */
- }
-}
- YY_BREAK
-case 62:
-/* rule 62 can match eol */
-YY_RULE_SETUP
-#line 634 "pplex.l"
-{
- /* This word can either be a listing-directive statement,
- a reserved word, or a user-defined word...
- some implementations (dis-)allow the (optional) "."
- some start column 8+ some column 12+,
- most limit the literal length (we cut in cobc.c)
- We ignore the detailed rules and just do the parsing. */
- if (cb_verify (cb_title_statement, pptext)) {
- /* handle as listing-directive statement */
- BEGIN ALNUM_LITERAL_STATE;
- output_pending_newlines (ppout);
- return TITLE_STATEMENT;
- } else if (cb_title_statement == CB_SKIP) {
- /* handle later (normal reserved / user defined word) */
- ECHO;
- check_listing (pptext, 0);
- } else {
- /* Ignore */
- }
-}
- YY_BREAK
-case 63:
-/* rule 63 can match eol */
-YY_RULE_SETUP
-#line 655 "pplex.l"
-{
- /* Pick up early - Also activates debugging lines */
- cb_verify (cb_debugging_mode, "DEBUGGING MODE");
- cb_flag_debugging_line = 1;
- ppecho (pptext, NULL);
-}
- YY_BREAK
-case 64:
-/* rule 64 can match eol */
-YY_RULE_SETUP
-#line 662 "pplex.l"
-{
- ppecho ("\n", NULL);
- cb_source_line++;
-}
- YY_BREAK
-case 65:
-YY_RULE_SETUP
-#line 667 "pplex.l"
-{
- ppecho (" ", pptext);
-}
- YY_BREAK
-case 66:
-YY_RULE_SETUP
-#line 671 "pplex.l"
-{
- if (inside_bracket) {
- ppecho (", ", NULL);
- } else {
- ppecho (" ", pptext);
- }
-}
- YY_BREAK
-case 67:
-YY_RULE_SETUP
-#line 679 "pplex.l"
-{
- inside_bracket++;
- ppecho (pptext, NULL);
-}
- YY_BREAK
-case 68:
-YY_RULE_SETUP
-#line 684 "pplex.l"
-{
- if (inside_bracket) {
- inside_bracket--;
- }
- ppecho (pptext, NULL);
-}
- YY_BREAK
-case 69:
-#line 692 "pplex.l"
-case 70:
-#line 693 "pplex.l"
-case 71:
-#line 694 "pplex.l"
-case 72:
-YY_RULE_SETUP
-#line 694 "pplex.l"
-{
- ppecho (pptext, NULL);
-}
- YY_BREAK
-
-case 73:
-/* rule 73 can match eol */
-YY_RULE_SETUP
-#line 710 "pplex.l"
-{
- BEGIN INITIAL;
- unput ('\n');
- return TERMINATOR;
- }
- YY_BREAK
-case 74:
-YY_RULE_SETUP
-#line 715 "pplex.l"
-{ /* ignore */ }
- YY_BREAK
-case 75:
-YY_RULE_SETUP
-#line 716 "pplex.l"
-{
- return DOT;
- }
- YY_BREAK
-
-
-case 76:
-/* rule 76 can match eol */
-YY_RULE_SETUP
-#line 722 "pplex.l"
-{
- BEGIN INITIAL;
- display_finish();
- }
- YY_BREAK
-case 77:
-YY_RULE_SETUP
-#line 727 "pplex.l"
-{
- pptext[ppleng - 1] = 0;
- strncat (display_msg, pptext + 1, (size_t)(PPLEX_BUFF_LEN - 1));
- }
- YY_BREAK
-case 78:
-YY_RULE_SETUP
-#line 732 "pplex.l"
-{
- strncat (display_msg, pptext, (size_t)(PPLEX_BUFF_LEN - 1));
- }
- YY_BREAK
-
-
-case 79:
-YY_RULE_SETUP
-#line 738 "pplex.l"
-{ return ON; }
- YY_BREAK
-case 80:
-YY_RULE_SETUP
-#line 739 "pplex.l"
-{ return OFF; }
- YY_BREAK
-
-
-case 81:
-YY_RULE_SETUP
-#line 743 "pplex.l"
-{ return EQUATE; }
- YY_BREAK
-case 82:
-YY_RULE_SETUP
-#line 744 "pplex.l"
-{ return WITH; }
- YY_BREAK
-case 83:
-YY_RULE_SETUP
-#line 745 "pplex.l"
-{ return UNDEFINE; }
- YY_BREAK
-case 84:
-YY_RULE_SETUP
-#line 746 "pplex.l"
-{ return SUBSTITUTE; }
- YY_BREAK
-case 85:
-YY_RULE_SETUP
-#line 747 "pplex.l"
-{ return BY; }
- YY_BREAK
-case 86:
-YY_RULE_SETUP
-#line 748 "pplex.l"
-{ return RESERVE; }
- YY_BREAK
-case 87:
-#line 750 "pplex.l"
-case 88:
-YY_RULE_SETUP
-#line 750 "pplex.l"
-{
- pplval.s = cobc_plex_strdup (pptext);
- return LITERAL;
- }
- YY_BREAK
-
-
-case 89:
-YY_RULE_SETUP
-#line 757 "pplex.l"
-{ return FORMAT; }
- YY_BREAK
-case 90:
-YY_RULE_SETUP
-#line 758 "pplex.l"
-{ return IS; }
- YY_BREAK
-case 91:
-YY_RULE_SETUP
-#line 759 "pplex.l"
-{
- pplval.s = cobc_plex_strdup (pptext);
- return VARIABLE_NAME;
- }
- YY_BREAK
-
-
-case 92:
-YY_RULE_SETUP
-#line 766 "pplex.l"
-{ return COBOL; }
- YY_BREAK
-case 93:
-YY_RULE_SETUP
-#line 767 "pplex.l"
-{ return TOK_EXTERN; }
- YY_BREAK
-case 94:
-YY_RULE_SETUP
-#line 768 "pplex.l"
-{ return STDCALL; }
- YY_BREAK
-case 95:
-YY_RULE_SETUP
-#line 769 "pplex.l"
-{ return STATIC; }
- YY_BREAK
-
-
-case 96:
-YY_RULE_SETUP
-#line 773 "pplex.l"
-{ return SOURCE; }
- YY_BREAK
-case 97:
-YY_RULE_SETUP
-#line 774 "pplex.l"
-{ return NOSOURCE; }
- YY_BREAK
-case 98:
-YY_RULE_SETUP
-#line 775 "pplex.l"
-{ return LIST; }
- YY_BREAK
-case 99:
-YY_RULE_SETUP
-#line 776 "pplex.l"
-{ return NOLIST; }
- YY_BREAK
-case 100:
-YY_RULE_SETUP
-#line 777 "pplex.l"
-{ return MAP; }
- YY_BREAK
-case 101:
-YY_RULE_SETUP
-#line 778 "pplex.l"
-{ return NOMAP; }
- YY_BREAK
-
-
-/* OpenCOBOL/GnuCOBOL 2.0 extension: MF $SET CONSTANT in 2002+ style as
- >> DEFINE CONSTANT var [AS] literal archaic extension:
- use plain >> DEFINE var [AS] literal for conditional compilation and
- use 01 CONSTANT with/without FROM clause for constant definitions */
-case 102:
-YY_RULE_SETUP
-#line 786 "pplex.l"
-{
- return CONSTANT;
- }
- YY_BREAK
-case 103:
-YY_RULE_SETUP
-#line 789 "pplex.l"
-{
- return AS;
- }
- YY_BREAK
-case 104:
-YY_RULE_SETUP
-#line 792 "pplex.l"
-{
- return OFF;
- }
- YY_BREAK
-case 105:
-YY_RULE_SETUP
-#line 795 "pplex.l"
-{
- return OVERRIDE;
- }
- YY_BREAK
-case 106:
-YY_RULE_SETUP
-#line 798 "pplex.l"
-{
- return PARAMETER;
- }
- YY_BREAK
-case 107:
-#line 802 "pplex.l"
-case 108:
-YY_RULE_SETUP
-#line 802 "pplex.l"
-{
- pplval.s = cobc_plex_strdup (pptext);
- return LITERAL;
- }
- YY_BREAK
-case 109:
-YY_RULE_SETUP
-#line 806 "pplex.l"
-{
- pplval.s = cobc_plex_strdup (pptext);
- return VARIABLE_NAME;
- }
- YY_BREAK
-
-
-case 110:
-#line 814 "pplex.l"
-case 111:
-YY_RULE_SETUP
-#line 814 "pplex.l"
-{
- return ADDRSV;
- }
- YY_BREAK
-case 112:
-#line 818 "pplex.l"
-case 113:
-YY_RULE_SETUP
-#line 818 "pplex.l"
-{
- return ADDSYN;
- }
- YY_BREAK
-case 114:
-#line 822 "pplex.l"
-case 115:
-YY_RULE_SETUP
-#line 822 "pplex.l"
-{
- return AREACHECK;
- }
- YY_BREAK
-case 116:
-YY_RULE_SETUP
-#line 825 "pplex.l"
-{
- return ASSIGN;
- }
- YY_BREAK
-case 117:
-YY_RULE_SETUP
-#line 828 "pplex.l"
-{
- return BOUND;
- }
- YY_BREAK
-case 118:
-YY_RULE_SETUP
-#line 831 "pplex.l"
-{
- return CALLFH;
- }
- YY_BREAK
-case 119:
-#line 835 "pplex.l"
-case 120:
-YY_RULE_SETUP
-#line 835 "pplex.l"
-{
- return CHECKNUM;
- }
- YY_BREAK
-case 121:
-#line 839 "pplex.l"
-case 122:
-YY_RULE_SETUP
-#line 839 "pplex.l"
-{
- return COMP1;
- }
- YY_BREAK
-case 123:
-YY_RULE_SETUP
-#line 842 "pplex.l"
-{
- return CONSTANT;
- }
- YY_BREAK
-case 124:
-#line 846 "pplex.l"
-case 125:
-YY_RULE_SETUP
-#line 846 "pplex.l"
-{
- return DPC_IN_DATA;
- }
- YY_BREAK
-case 126:
-#line 850 "pplex.l"
-case 127:
-YY_RULE_SETUP
-#line 850 "pplex.l"
-{
- return FOLDCOPYNAME;
- }
- YY_BREAK
-case 128:
-#line 854 "pplex.l"
-case 129:
-YY_RULE_SETUP
-#line 854 "pplex.l"
-{
- return MAKESYN;
- }
- YY_BREAK
-case 130:
-#line 858 "pplex.l"
-case 131:
-YY_RULE_SETUP
-#line 858 "pplex.l"
-{
- return NOBOUND;
- }
- YY_BREAK
-case 132:
-#line 862 "pplex.l"
-case 133:
-#line 863 "pplex.l"
-case 134:
-YY_RULE_SETUP
-#line 863 "pplex.l"
-{
- return NOAREACHECK;
- }
- YY_BREAK
-case 135:
-#line 867 "pplex.l"
-case 136:
-#line 868 "pplex.l"
-case 137:
-YY_RULE_SETUP
-#line 868 "pplex.l"
-{
- return NOCHECKNUM;
- }
- YY_BREAK
-case 138:
-#line 872 "pplex.l"
-case 139:
-#line 873 "pplex.l"
-case 140:
-#line 874 "pplex.l"
-case 141:
-YY_RULE_SETUP
-#line 874 "pplex.l"
-{
- return NODPC_IN_DATA;
- }
- YY_BREAK
-case 142:
-#line 878 "pplex.l"
-case 143:
-#line 879 "pplex.l"
-case 144:
-YY_RULE_SETUP
-#line 879 "pplex.l"
-{
- return NOFOLDCOPYNAME;
- }
- YY_BREAK
-case 145:
-#line 883 "pplex.l"
-case 146:
-YY_RULE_SETUP
-#line 883 "pplex.l"
-{
- return NOODOSLIDE;
- }
- YY_BREAK
-case 147:
-#line 887 "pplex.l"
-case 148:
-YY_RULE_SETUP
-#line 887 "pplex.l"
-{
- return NOSSRANGE;
- }
- YY_BREAK
-case 149:
-#line 891 "pplex.l"
-case 150:
-YY_RULE_SETUP
-#line 891 "pplex.l"
-{
- return NOSPZERO;
- }
- YY_BREAK
-case 151:
-YY_RULE_SETUP
-#line 894 "pplex.l"
-{
- return ODOSLIDE;
- }
- YY_BREAK
-case 152:
-YY_RULE_SETUP
-#line 897 "pplex.l"
-{
- return OVERRIDE;
- }
- YY_BREAK
-case 153:
-YY_RULE_SETUP
-#line 900 "pplex.l"
-{
- return REMOVE;
- }
- YY_BREAK
-case 154:
-YY_RULE_SETUP
-#line 903 "pplex.l"
-{
- return SSRANGE;
- }
- YY_BREAK
-case 155:
-YY_RULE_SETUP
-#line 906 "pplex.l"
-{
- return SPZERO;
- }
- YY_BREAK
-case 156:
-#line 910 "pplex.l"
-case 157:
-YY_RULE_SETUP
-#line 910 "pplex.l"
-{
- return SOURCEFORMAT;
- }
- YY_BREAK
-/*"AS" { - not available with MF compilers -
- return AS;
- }*/
-case 158:
-#line 917 "pplex.l"
-case 159:
-#line 918 "pplex.l"
-case 160:
-YY_RULE_SETUP
-#line 918 "pplex.l"
-{
- pplval.s = cobc_plex_strdup (pptext);
- return LITERAL;
- }
- YY_BREAK
-case 161:
-YY_RULE_SETUP
-#line 922 "pplex.l"
-{
- pplval.s = cobc_plex_strdup (pptext);
- return VARIABLE_NAME;
- }
- YY_BREAK
-case 162:
-YY_RULE_SETUP
-#line 926 "pplex.l"
-{
- /* MF rule: "The equals signs must be surrounded by spaces." */
- return EQ;
- }
- YY_BREAK
-
-
-case 163:
-YY_RULE_SETUP
-#line 933 "pplex.l"
-{
- return ON;
- }
- YY_BREAK
-case 164:
-YY_RULE_SETUP
-#line 936 "pplex.l"
-{
- return OFF;
- }
- YY_BREAK
-case 165:
-YY_RULE_SETUP
-#line 939 "pplex.l"
-{
- return WITH;
- }
- YY_BREAK
-case 166:
-YY_RULE_SETUP
-#line 942 "pplex.l"
-{
- return LOCATION;
- }
- YY_BREAK
-case 167:
-YY_RULE_SETUP
-#line 945 "pplex.l"
-{
- return CHECKING;
- }
- YY_BREAK
-case 168:
-#line 949 "pplex.l"
-case 169:
-YY_RULE_SETUP
-#line 949 "pplex.l"
-{
- pplval.s = cobc_plex_strdup (pptext);
- return LITERAL;
- }
- YY_BREAK
-case 170:
-YY_RULE_SETUP
-#line 953 "pplex.l"
-{
- pptext[ppleng - 1] = 0;
- pplval.s = cobc_plex_strdup (pptext + 1);
- return LITERAL;
- }
- YY_BREAK
-case 171:
-YY_RULE_SETUP
-#line 958 "pplex.l"
-{
- pplval.s = cobc_plex_strdup (pptext);
- return VARIABLE_NAME;
- }
- YY_BREAK
-
-
-case 172:
-#line 970 "pplex.l"
-case 173:
-YY_RULE_SETUP
-#line 970 "pplex.l"
-{
- return LITERAL;
- }
- YY_BREAK
-case 174:
-YY_RULE_SETUP
-#line 973 "pplex.l"
-{
- return GARBAGE;
- }
- YY_BREAK
-
-
-case 175:
-YY_RULE_SETUP
-#line 979 "pplex.l"
-{ return IS; }
- YY_BREAK
-case 176:
-YY_RULE_SETUP
-#line 980 "pplex.l"
-{ return NOT; }
- YY_BREAK
-case 177:
-YY_RULE_SETUP
-#line 981 "pplex.l"
-{ return EQUAL; }
- YY_BREAK
-case 178:
-YY_RULE_SETUP
-#line 982 "pplex.l"
-{ return TO; }
- YY_BREAK
-case 179:
-YY_RULE_SETUP
-#line 983 "pplex.l"
-{ return OR; }
- YY_BREAK
-case 180:
-YY_RULE_SETUP
-#line 984 "pplex.l"
-{ return GREATER; }
- YY_BREAK
-case 181:
-YY_RULE_SETUP
-#line 985 "pplex.l"
-{ return LESS; }
- YY_BREAK
-case 182:
-YY_RULE_SETUP
-#line 986 "pplex.l"
-{ return THAN; }
- YY_BREAK
-case 183:
-YY_RULE_SETUP
-#line 987 "pplex.l"
-{ return DEFINED; }
- YY_BREAK
-case 184:
-YY_RULE_SETUP
-#line 988 "pplex.l"
-{ return SET; }
- YY_BREAK
-case 185:
-YY_RULE_SETUP
-#line 989 "pplex.l"
-{ return GE; }
- YY_BREAK
-case 186:
-YY_RULE_SETUP
-#line 990 "pplex.l"
-{ return GT; }
- YY_BREAK
-case 187:
-YY_RULE_SETUP
-#line 991 "pplex.l"
-{ return LE; }
- YY_BREAK
-case 188:
-YY_RULE_SETUP
-#line 992 "pplex.l"
-{ return NE; }
- YY_BREAK
-case 189:
-YY_RULE_SETUP
-#line 993 "pplex.l"
-{ return LT; }
- YY_BREAK
-case 190:
-YY_RULE_SETUP
-#line 994 "pplex.l"
-{ return EQ; }
- YY_BREAK
-case 191:
-#line 996 "pplex.l"
-case 192:
-YY_RULE_SETUP
-#line 996 "pplex.l"
-{
- pplval.s = cobc_plex_strdup (pptext);
- return LITERAL;
- }
- YY_BREAK
-case 193:
-YY_RULE_SETUP
-#line 1000 "pplex.l"
-{
- pplval.s = cobc_plex_strdup (pptext);
- return VARIABLE_NAME;
- }
- YY_BREAK
-
-
-case 194:
-YY_RULE_SETUP
-#line 1007 "pplex.l"
-{
- return LITERAL;
- }
- YY_BREAK
-
-
-case 195:
-/* rule 195 can match eol */
-YY_RULE_SETUP
-#line 1013 "pplex.l"
-{
- ECHO;
- check_listing (pptext, 0);
- cb_source_line++;
- }
- YY_BREAK
-case 196:
-YY_RULE_SETUP
-#line 1018 "pplex.l"
-{ /* ignore */ }
- YY_BREAK
-case 197:
-YY_RULE_SETUP
-#line 1019 "pplex.l"
-{
- /* special case to allow copybook names with periods
- without a literal
- given the rule: not starting, not ending, not doubled
- *unlikely* to need a configuration option */
- pplval.s = cobc_plex_strdup (pptext);
- return TEXT_NAME;
- }
- YY_BREAK
-case 198:
-YY_RULE_SETUP
-#line 1027 "pplex.l"
-{
- /* note: if we get into the REPLACING state, then
- that one handles the dot and pops this state */
- yy_pop_state ();
- return DOT;
- }
- YY_BREAK
-/* for COPY IN/OF lib */
-case 199:
-YY_RULE_SETUP
-#line 1034 "pplex.l"
-{ return IN; }
- YY_BREAK
-case 200:
-YY_RULE_SETUP
-#line 1035 "pplex.l"
-{ return OF; }
- YY_BREAK
-case 201:
-YY_RULE_SETUP
-#line 1037 "pplex.l"
-{ return SUPPRESS; }
- YY_BREAK
-case 202:
-YY_RULE_SETUP
-#line 1038 "pplex.l"
-{ return PRINTING; }
- YY_BREAK
-case 203:
-YY_RULE_SETUP
-#line 1039 "pplex.l"
-{ yy_push_state (REPLACING_STATE); return REPLACING; }
- YY_BREAK
-case 204:
-YY_RULE_SETUP
-#line 1040 "pplex.l"
-{ return ALSO; }
- YY_BREAK
-case 205:
-YY_RULE_SETUP
-#line 1041 "pplex.l"
-{ return LAST; }
- YY_BREAK
-/* for error handling only, only used in REPLACING state */
-case 206:
-YY_RULE_SETUP
-#line 1044 "pplex.l"
-{ return LEADING; }
- YY_BREAK
-case 207:
-YY_RULE_SETUP
-#line 1045 "pplex.l"
-{ return TRAILING; }
- YY_BREAK
-case 208:
-YY_RULE_SETUP
-#line 1046 "pplex.l"
-{ return EQEQ; }
- YY_BREAK
-case 209:
-YY_RULE_SETUP
-#line 1047 "pplex.l"
-{ return BY; }
- YY_BREAK
-case 210:
-#line 1050 "pplex.l"
-case 211:
-#line 1051 "pplex.l"
-case 212:
-#line 1052 "pplex.l"
-case 213:
-YY_RULE_SETUP
-#line 1052 "pplex.l"
-{
- pplval.s = cobc_plex_strdup (pptext);
- return TOKEN;
- }
- YY_BREAK
-
-
-case 214:
-/* rule 214 can match eol */
-YY_RULE_SETUP
-#line 1059 "pplex.l"
-{
- ECHO;
- check_listing (pptext, 0);
- cb_source_line++;
- }
- YY_BREAK
-case 215:
-YY_RULE_SETUP
-#line 1064 "pplex.l"
-{ /* ignore */ }
- YY_BREAK
-case 216:
-YY_RULE_SETUP
-#line 1066 "pplex.l"
-{ return LEADING; }
- YY_BREAK
-case 217:
-YY_RULE_SETUP
-#line 1067 "pplex.l"
-{ return TRAILING; }
- YY_BREAK
-case 218:
-YY_RULE_SETUP
-#line 1068 "pplex.l"
-{ yy_push_state (PSEUDO_STATE); return EQEQ; }
- YY_BREAK
-case 219:
-YY_RULE_SETUP
-#line 1069 "pplex.l"
-{ return BY; }
- YY_BREAK
-case 220:
-YY_RULE_SETUP
-#line 1070 "pplex.l"
-{
- yy_pop_state ();
- yy_pop_state ();
- return DOT;
- }
- YY_BREAK
-/* for qualification and subscripting */
-case 221:
-YY_RULE_SETUP
-#line 1076 "pplex.l"
-{ return IN; }
- YY_BREAK
-case 222:
-YY_RULE_SETUP
-#line 1077 "pplex.l"
-{ return OF; }
- YY_BREAK
-case 223:
-YY_RULE_SETUP
-#line 1078 "pplex.l"
-{ return '('; }
- YY_BREAK
-case 224:
-YY_RULE_SETUP
-#line 1079 "pplex.l"
-{ return ')'; }
- YY_BREAK
-/* for error handling only, only used in COPY state */
-case 225:
-YY_RULE_SETUP
-#line 1082 "pplex.l"
-{ return REPLACING; }
- YY_BREAK
-case 226:
-#line 1085 "pplex.l"
-case 227:
-#line 1086 "pplex.l"
-case 228:
-#line 1087 "pplex.l"
-case 229:
-YY_RULE_SETUP
-#line 1087 "pplex.l"
-{
- pplval.s = cobc_plex_strdup (pptext);
- return TOKEN;
- }
- YY_BREAK
-
-
-case 230:
-/* rule 230 can match eol */
-YY_RULE_SETUP
-#line 1094 "pplex.l"
-{
- ECHO;
- check_listing (pptext, 0);
- cb_source_line++;
- }
- YY_BREAK
-case 231:
-YY_RULE_SETUP
-#line 1100 "pplex.l"
-{
- pplval.s = cobc_plex_strdup (" ");
- return TOKEN;
- }
- YY_BREAK
-case 232:
-YY_RULE_SETUP
-#line 1105 "pplex.l"
-{
- yy_pop_state ();
- return EQEQ;
- }
- YY_BREAK
-case 233:
-#line 1111 "pplex.l"
-case 234:
-#line 1112 "pplex.l"
-case 235:
-#line 1113 "pplex.l"
-case 236:
-YY_RULE_SETUP
-#line 1113 "pplex.l"
-{
- pplval.s = cobc_plex_strdup (pptext);
- return TOKEN;
- }
- YY_BREAK
-
-
-case 237:
-/* rule 237 can match eol */
-YY_RULE_SETUP
-#line 1120 "pplex.l"
-{
- ECHO;
- check_listing (pptext, 0);
- cb_source_line++;
- }
- YY_BREAK
-case 238:
-YY_RULE_SETUP
-#line 1125 "pplex.l"
-{ /* ignore */ }
- YY_BREAK
-case 239:
-YY_RULE_SETUP
-#line 1126 "pplex.l"
-{
- yy_pop_state ();
- return DOT;
- }
- YY_BREAK
-/* for qualification and subscripting */
-case 240:
-YY_RULE_SETUP
-#line 1131 "pplex.l"
-{ return IN; }
- YY_BREAK
-case 241:
-YY_RULE_SETUP
-#line 1132 "pplex.l"
-{ return OF; }
- YY_BREAK
-case 242:
-YY_RULE_SETUP
-#line 1133 "pplex.l"
-{ return '('; }
- YY_BREAK
-case 243:
-YY_RULE_SETUP
-#line 1134 "pplex.l"
-{ return ')'; }
- YY_BREAK
-case 244:
-YY_RULE_SETUP
-#line 1136 "pplex.l"
-{ return LEADING; }
- YY_BREAK
-case 245:
-YY_RULE_SETUP
-#line 1137 "pplex.l"
-{ return TRAILING; }
- YY_BREAK
-case 246:
-YY_RULE_SETUP
-#line 1138 "pplex.l"
-{ yy_push_state (PSEUDO_STATE); return EQEQ; }
- YY_BREAK
-case 247:
-YY_RULE_SETUP
-#line 1139 "pplex.l"
-{ return BY; }
- YY_BREAK
-case 248:
-YY_RULE_SETUP
-#line 1140 "pplex.l"
-{ return ALSO; }
- YY_BREAK
-case 249:
-YY_RULE_SETUP
-#line 1141 "pplex.l"
-{ return LAST; }
- YY_BREAK
-case 250:
-YY_RULE_SETUP
-#line 1142 "pplex.l"
-{ return OFF; }
- YY_BREAK
-case 251:
-#line 1145 "pplex.l"
-case 252:
-#line 1146 "pplex.l"
-case 253:
-#line 1147 "pplex.l"
-case 254:
-YY_RULE_SETUP
-#line 1147 "pplex.l"
-{
- pplval.s = cobc_plex_strdup (pptext);
- return TOKEN;
- }
- YY_BREAK
-
-case YY_STATE_EOF(INITIAL):
-case YY_STATE_EOF(CALL_DIRECTIVE_STATE):
-case YY_STATE_EOF(COBOL_WORDS_DIRECTIVE_STATE):
-case YY_STATE_EOF(COPY_STATE):
-case YY_STATE_EOF(REPLACING_STATE):
-case YY_STATE_EOF(PSEUDO_STATE):
-case YY_STATE_EOF(REPLACE_STATE):
-case YY_STATE_EOF(CONTROL_DIVISION_STATE):
-case YY_STATE_EOF(SUBSTITUTION_SECTION_STATE):
-case YY_STATE_EOF(SOURCE_DIRECTIVE_STATE):
-case YY_STATE_EOF(DEFINE_DIRECTIVE_STATE):
-case YY_STATE_EOF(ON_OFF_DIRECTIVE_STATE):
-case YY_STATE_EOF(SET_DIRECTIVE_STATE):
-case YY_STATE_EOF(TURN_DIRECTIVE_STATE):
-case YY_STATE_EOF(IF_DIRECTIVE_STATE):
-case YY_STATE_EOF(ELSE_DIRECTIVE_STATE):
-case YY_STATE_EOF(ENDIF_DIRECTIVE_STATE):
-case YY_STATE_EOF(ALNUM_LITERAL_STATE):
-case YY_STATE_EOF(CONTROL_STATEMENT_STATE):
-case YY_STATE_EOF(DISPLAY_DIRECTIVE_STATE):
-#line 1153 "pplex.l"
-{
- struct copy_info *current_copy_info = copy_stack;
-
- pp_delete_buffer (YY_CURRENT_BUFFER);
-
- /* Terminate at the end of all input */
- if (current_copy_info->next == NULL) {
- output_pending_newlines (ppout); /* CHECKME: do we want to drop those? */
- /* Check dangling IF/ELSE */
- for (; plex_nest_depth > 0; --plex_nest_depth) {
- cb_source_line = plex_cond_stack[plex_nest_depth].line;
- cb_error (_("IF/ELIF/ELSE directive without matching END-IF"));
- }
- plex_nest_depth = 0;
- cobc_free (current_copy_info->dname);
- cobc_free (current_copy_info);
- listing_line = 0;
- requires_listing_line = 1;
- need_continuation = 0;
- buffer_overflow = 0;
- within_comment = 0;
- newline_count = 0;
- inside_bracket = 0;
- comment_allowed = 1;
- cb_free_replace ();
- copy_stack = NULL;
- quotation_mark = 0;
- consecutive_quotation = 0;
- yyterminate ();
- }
-
- /* Close the current file (can be NULL if open failed) */
- if (ppin) {
- fclose (ppin);
- ppin = NULL;
- }
-
- if (current_copy_info->containing_files) {
- cb_current_file = current_copy_info->containing_files;
- }
-
- /* Switch to previous buffer */
- switch_to_buffer (current_copy_info->line, current_copy_info->file,
- current_copy_info->buffer);
-
- /* Restore variables */
- cb_set_copy_replacing_list (current_copy_info->replacing);
- quotation_mark = current_copy_info->quotation_mark;
- cobc_set_source_format (current_copy_info->source_format);
-
- copy_stack = current_copy_info->next;
- cobc_free (current_copy_info->dname);
- cobc_free (current_copy_info);
-}
- YY_BREAK
-case 255:
-YY_RULE_SETUP
-#line 1208 "pplex.l"
-ECHO;
- YY_BREAK
-#line 7584 "pplex.c"
-
- case YY_END_OF_BUFFER:
- {
- /* Amount of text matched not including the EOB char. */
- int yy_amount_of_matched_text = (int) (yy_cp - (yytext_ptr)) - 1;
-
- /* Undo the effects of YY_DO_BEFORE_ACTION. */
- *yy_cp = (yy_hold_char);
- YY_RESTORE_YY_MORE_OFFSET
-
- if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_NEW )
- {
- /* We're scanning a new file or input source. It's
- * possible that this happened because the user
- * just pointed ppin at a new source and called
- * pplex(). If so, then we have to assure
- * consistency between YY_CURRENT_BUFFER and our
- * globals. Here is the right place to do so, because
- * this is the first action (other than possibly a
- * back-up) that will match for the new input source.
- */
- (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
- YY_CURRENT_BUFFER_LVALUE->yy_input_file = ppin;
- YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL;
- }
-
- /* Note that here we test for yy_c_buf_p "<=" to the position
- * of the first EOB in the buffer, since yy_c_buf_p will
- * already have been incremented past the NUL character
- * (since all states make transitions on EOB to the
- * end-of-buffer state). Contrast this with the test
- * in input().
- */
- if ( (yy_c_buf_p) <= &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
- { /* This was really a NUL. */
- yy_state_type yy_next_state;
-
- (yy_c_buf_p) = (yytext_ptr) + yy_amount_of_matched_text;
-
- yy_current_state = yy_get_previous_state( );
-
- /* Okay, we're now positioned to make the NUL
- * transition. We couldn't have
- * yy_get_previous_state() go ahead and do it
- * for us because it doesn't know how to deal
- * with the possibility of jamming (and we don't
- * want to build jamming into it because then it
- * will run more slowly).
- */
-
- yy_next_state = yy_try_NUL_trans( yy_current_state );
-
- yy_bp = (yytext_ptr) + YY_MORE_ADJ;
-
- if ( yy_next_state )
- {
- /* Consume the NUL. */
- yy_cp = ++(yy_c_buf_p);
- yy_current_state = yy_next_state;
- goto yy_match;
- }
-
- else
- {
- yy_cp = (yy_last_accepting_cpos);
- yy_current_state = (yy_last_accepting_state);
- goto yy_find_action;
- }
- }
-
- else switch ( yy_get_next_buffer( ) )
- {
- case EOB_ACT_END_OF_FILE:
- {
- (yy_did_buffer_switch_on_eof) = 0;
-
- if ( ppwrap( ) )
- {
- /* Note: because we've taken care in
- * yy_get_next_buffer() to have set up
- * pptext, we can now set up
- * yy_c_buf_p so that if some total
- * hoser (like flex itself) wants to
- * call the scanner after we return the
- * YY_NULL, it'll still work - another
- * YY_NULL will get returned.
- */
- (yy_c_buf_p) = (yytext_ptr) + YY_MORE_ADJ;
-
- yy_act = YY_STATE_EOF(YY_START);
- goto do_action;
- }
-
- else
- {
- if ( ! (yy_did_buffer_switch_on_eof) )
- YY_NEW_FILE;
- }
- break;
- }
-
- case EOB_ACT_CONTINUE_SCAN:
- (yy_c_buf_p) =
- (yytext_ptr) + yy_amount_of_matched_text;
-
- yy_current_state = yy_get_previous_state( );
-
- yy_cp = (yy_c_buf_p);
- yy_bp = (yytext_ptr) + YY_MORE_ADJ;
- goto yy_match;
-
- case EOB_ACT_LAST_MATCH:
- (yy_c_buf_p) =
- &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)];
-
- yy_current_state = yy_get_previous_state( );
-
- yy_cp = (yy_c_buf_p);
- yy_bp = (yytext_ptr) + YY_MORE_ADJ;
- goto yy_find_action;
- }
- break;
- }
-
- default:
- YY_FATAL_ERROR(
- "fatal flex scanner internal error--no action found" );
- } /* end of action switch */
- } /* end of scanning one token */
- } /* end of user's declarations */
-} /* end of pplex */
-
-/* yy_get_next_buffer - try to read in a new buffer
- *
- * Returns a code representing an action:
- * EOB_ACT_LAST_MATCH -
- * EOB_ACT_CONTINUE_SCAN - continue scanning from current position
- * EOB_ACT_END_OF_FILE - end of file
- */
-static int yy_get_next_buffer (void)
-{
- char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf;
- char *source = (yytext_ptr);
- yy_size_t number_to_move, i;
- int ret_val;
-
- if ( (yy_c_buf_p) > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] )
- YY_FATAL_ERROR(
- "fatal flex scanner internal error--end of buffer missed" );
-
- if ( YY_CURRENT_BUFFER_LVALUE->yy_fill_buffer == 0 )
- { /* Don't try to fill the buffer, so this is an EOF. */
- if ( (yy_c_buf_p) - (yytext_ptr) - YY_MORE_ADJ == 1 )
- {
- /* We matched a single character, the EOB, so
- * treat this as a final EOF.
- */
- return EOB_ACT_END_OF_FILE;
- }
-
- else
- {
- /* We matched some text prior to the EOB, first
- * process it.
- */
- return EOB_ACT_LAST_MATCH;
- }
- }
-
- /* Try to read more data. */
-
- /* First move last chars to start of buffer. */
- number_to_move = (yy_size_t) ((yy_c_buf_p) - (yytext_ptr)) - 1;
-
- for ( i = 0; i < number_to_move; ++i )
- *(dest++) = *(source++);
-
- if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_EOF_PENDING )
- /* don't do the read, it's not guaranteed to return an EOF,
- * just force an EOF
- */
- YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars) = 0;
-
- else
- {
- int num_to_read =
- YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1;
-
- while ( num_to_read <= 0 )
- { /* Not enough room in the buffer - grow it. */
-
- /* just a shorter name for the current buffer */
- YY_BUFFER_STATE b = YY_CURRENT_BUFFER_LVALUE;
-
- int yy_c_buf_p_offset =
- (int) ((yy_c_buf_p) - b->yy_ch_buf);
-
- if ( b->yy_is_our_buffer )
- {
- int new_size = b->yy_buf_size * 2;
-
- if ( new_size <= 0 )
- b->yy_buf_size += b->yy_buf_size / 8;
- else
- b->yy_buf_size *= 2;
-
- b->yy_ch_buf = (char *)
- /* Include room in for 2 EOB chars. */
- pprealloc((void *) b->yy_ch_buf,(yy_size_t) (b->yy_buf_size + 2) );
- }
- else
- /* Can't grow it, we don't own it. */
- b->yy_ch_buf = NULL;
-
- if ( ! b->yy_ch_buf )
- YY_FATAL_ERROR(
- "fatal error - scanner input buffer overflow" );
-
- (yy_c_buf_p) = &b->yy_ch_buf[yy_c_buf_p_offset];
-
- num_to_read = YY_CURRENT_BUFFER_LVALUE->yy_buf_size -
- number_to_move - 1;
-
- }
-
- if ( num_to_read > YY_READ_BUF_SIZE )
- num_to_read = YY_READ_BUF_SIZE;
-
- /* Read in more data. */
- YY_INPUT( (&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]),
- (yy_n_chars), num_to_read );
-
- YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
- }
-
- if ( (yy_n_chars) == 0 )
- {
- if ( number_to_move == YY_MORE_ADJ )
- {
- ret_val = EOB_ACT_END_OF_FILE;
- pprestart(ppin );
- }
-
- else
- {
- ret_val = EOB_ACT_LAST_MATCH;
- YY_CURRENT_BUFFER_LVALUE->yy_buffer_status =
- YY_BUFFER_EOF_PENDING;
- }
- }
-
- else
- ret_val = EOB_ACT_CONTINUE_SCAN;
-
- if ((int) ((yy_n_chars) + number_to_move) > YY_CURRENT_BUFFER_LVALUE->yy_buf_size) {
- /* Extend the array by 50%, plus the number we really need. */
- int new_size = (yy_n_chars) + number_to_move + ((yy_n_chars) >> 1);
- YY_CURRENT_BUFFER_LVALUE->yy_ch_buf = (char *) pprealloc((void *) YY_CURRENT_BUFFER_LVALUE->yy_ch_buf,(yy_size_t) new_size );
- if ( ! YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
- YY_FATAL_ERROR( "out of dynamic memory in yy_get_next_buffer()" );
- }
-
- (yy_n_chars) += number_to_move;
- YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] = YY_END_OF_BUFFER_CHAR;
- YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] = YY_END_OF_BUFFER_CHAR;
-
- (yytext_ptr) = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[0];
-
- return ret_val;
-}
-
-/* yy_get_previous_state - get the state just before the EOB char was reached */
-
- static yy_state_type yy_get_previous_state (void)
-{
- yy_state_type yy_current_state;
- char *yy_cp;
-
- yy_current_state = (yy_start);
- yy_current_state += YY_AT_BOL();
-
- for ( yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp )
- {
- YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
- if ( yy_accept[yy_current_state] )
- {
- (yy_last_accepting_state) = yy_current_state;
- (yy_last_accepting_cpos) = yy_cp;
- }
- while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
- {
- yy_current_state = (int) yy_def[yy_current_state];
- if ( yy_current_state >= 2867 )
- yy_c = yy_meta[(unsigned int) yy_c];
- }
- yy_current_state = yy_nxt[yy_base[yy_current_state] + (flex_int16_t) yy_c];
- }
-
- return yy_current_state;
-}
-
-/* yy_try_NUL_trans - try to make a transition on the NUL character
- *
- * synopsis
- * next_state = yy_try_NUL_trans( current_state );
- */
- static yy_state_type yy_try_NUL_trans (yy_state_type yy_current_state )
-{
- int yy_is_jam;
- char *yy_cp = (yy_c_buf_p);
-
- YY_CHAR yy_c = 1;
- if ( yy_accept[yy_current_state] )
- {
- (yy_last_accepting_state) = yy_current_state;
- (yy_last_accepting_cpos) = yy_cp;
- }
- while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
- {
- yy_current_state = (int) yy_def[yy_current_state];
- if ( yy_current_state >= 2867 )
- yy_c = yy_meta[(unsigned int) yy_c];
- }
- yy_current_state = yy_nxt[yy_base[yy_current_state] + (flex_int16_t) yy_c];
- yy_is_jam = (yy_current_state == 2866);
-
- return yy_is_jam ? 0 : yy_current_state;
-}
-
-#ifndef YY_NO_UNPUT
-
- static void yyunput (int c, char * yy_bp )
-{
- char *yy_cp;
-
- yy_cp = (yy_c_buf_p);
-
- /* undo effects of setting up pptext */
- *yy_cp = (yy_hold_char);
-
- if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
- { /* need to shift things up to make room */
- /* +2 for EOB chars. */
- int number_to_move = (yy_n_chars) + 2;
- char *dest = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[
- YY_CURRENT_BUFFER_LVALUE->yy_buf_size + 2];
- char *source =
- &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move];
-
- while ( source > YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
- *--dest = *--source;
-
- yy_cp += (int) (dest - source);
- yy_bp += (int) (dest - source);
- YY_CURRENT_BUFFER_LVALUE->yy_n_chars =
- (yy_n_chars) = (int) YY_CURRENT_BUFFER_LVALUE->yy_buf_size;
-
- if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
- YY_FATAL_ERROR( "flex scanner push-back overflow" );
- }
-
- *--yy_cp = (char) c;
-
- (yytext_ptr) = yy_bp;
- (yy_hold_char) = *yy_cp;
- (yy_c_buf_p) = yy_cp;
-}
-
-#endif
-
-#ifndef YY_NO_INPUT
-#ifdef __cplusplus
- static int yyinput (void)
-#else
- static int input (void)
-#endif
-
-{
- int c;
-
- *(yy_c_buf_p) = (yy_hold_char);
-
- if ( *(yy_c_buf_p) == YY_END_OF_BUFFER_CHAR )
- {
- /* yy_c_buf_p now points to the character we want to return.
- * If this occurs *before* the EOB characters, then it's a
- * valid NUL; if not, then we've hit the end of the buffer.
- */
- if ( (yy_c_buf_p) < &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
- /* This was really a NUL. */
- *(yy_c_buf_p) = '\0';
-
- else
- { /* need more input */
- int offset = (yy_c_buf_p) - (yytext_ptr);
- ++(yy_c_buf_p);
-
- switch ( yy_get_next_buffer( ) )
- {
- case EOB_ACT_LAST_MATCH:
- /* This happens because yy_g_n_b()
- * sees that we've accumulated a
- * token and flags that we need to
- * try matching the token before
- * proceeding. But for input(),
- * there's no matching to consider.
- * So convert the EOB_ACT_LAST_MATCH
- * to EOB_ACT_END_OF_FILE.
- */
-
- /* Reset buffer status. */
- pprestart(ppin );
-
- /*FALLTHROUGH*/
-
- case EOB_ACT_END_OF_FILE:
- {
- if ( ppwrap( ) )
- return 0;
-
- if ( ! (yy_did_buffer_switch_on_eof) )
- YY_NEW_FILE;
-#ifdef __cplusplus
- return yyinput();
-#else
- return input();
-#endif
- }
-
- case EOB_ACT_CONTINUE_SCAN:
- (yy_c_buf_p) = (yytext_ptr) + offset;
- break;
- }
- }
- }
-
- c = *(unsigned char *) (yy_c_buf_p); /* cast for 8-bit char's */
- *(yy_c_buf_p) = '\0'; /* preserve pptext */
- (yy_hold_char) = *++(yy_c_buf_p);
-
- YY_CURRENT_BUFFER_LVALUE->yy_at_bol = (c == '\n');
-
- return c;
-}
-#endif /* ifndef YY_NO_INPUT */
-
-/** Immediately switch to a different input stream.
- * @param input_file A readable stream.
- *
- * @note This function does not reset the start condition to @c INITIAL .
- */
- void pprestart (FILE * input_file )
-{
-
- if ( ! YY_CURRENT_BUFFER ){
- ppensure_buffer_stack ();
- YY_CURRENT_BUFFER_LVALUE =
- pp_create_buffer(ppin,YY_BUF_SIZE );
- }
-
- pp_init_buffer(YY_CURRENT_BUFFER,input_file );
- pp_load_buffer_state( );
-}
-
-/** Switch to a different input buffer.
- * @param new_buffer The new input buffer.
- *
- */
- void pp_switch_to_buffer (YY_BUFFER_STATE new_buffer )
-{
-
- /* TODO. We should be able to replace this entire function body
- * with
- * pppop_buffer_state();
- * pppush_buffer_state(new_buffer);
- */
- ppensure_buffer_stack ();
- if ( YY_CURRENT_BUFFER == new_buffer )
- return;
-
- if ( YY_CURRENT_BUFFER )
- {
- /* Flush out information for old buffer. */
- *(yy_c_buf_p) = (yy_hold_char);
- YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
- YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
- }
-
- YY_CURRENT_BUFFER_LVALUE = new_buffer;
- pp_load_buffer_state( );
-
- /* We don't actually know whether we did this switch during
- * EOF (ppwrap()) processing, but the only time this flag
- * is looked at is after ppwrap() is called, so it's safe
- * to go ahead and always set it.
- */
- (yy_did_buffer_switch_on_eof) = 1;
-}
-
-static void pp_load_buffer_state (void)
-{
- (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
- (yytext_ptr) = (yy_c_buf_p) = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos;
- ppin = YY_CURRENT_BUFFER_LVALUE->yy_input_file;
- (yy_hold_char) = *(yy_c_buf_p);
-}
-
-/** Allocate and initialize an input buffer state.
- * @param file A readable stream.
- * @param size The character buffer size in bytes. When in doubt, use @c YY_BUF_SIZE.
- *
- * @return the allocated buffer state.
- */
- YY_BUFFER_STATE pp_create_buffer (FILE * file, int size )
-{
- YY_BUFFER_STATE b;
-
- b = (YY_BUFFER_STATE) ppalloc(sizeof( struct yy_buffer_state ) );
- if ( ! b )
- YY_FATAL_ERROR( "out of dynamic memory in pp_create_buffer()" );
-
- b->yy_buf_size = size;
-
- /* yy_ch_buf has to be 2 characters longer than the size given because
- * we need to put in 2 end-of-buffer characters.
- */
- b->yy_ch_buf = (char *) ppalloc((yy_size_t) (b->yy_buf_size + 2) );
- if ( ! b->yy_ch_buf )
- YY_FATAL_ERROR( "out of dynamic memory in pp_create_buffer()" );
-
- b->yy_is_our_buffer = 1;
-
- pp_init_buffer(b,file );
-
- return b;
-}
-
-/** Destroy the buffer.
- * @param b a buffer created with pp_create_buffer()
- *
- */
- void pp_delete_buffer (YY_BUFFER_STATE b )
-{
-
- if ( ! b )
- return;
-
- if ( b == YY_CURRENT_BUFFER ) /* Not sure if we should pop here. */
- YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0;
-
- if ( b->yy_is_our_buffer )
- ppfree((void *) b->yy_ch_buf );
-
- ppfree((void *) b );
-}
-
-/* Initializes or reinitializes a buffer.
- * This function is sometimes called more than once on the same buffer,
- * such as during a pprestart() or at EOF.
- */
- static void pp_init_buffer (YY_BUFFER_STATE b, FILE * file )
-
-{
- int oerrno = errno;
-
- pp_flush_buffer(b );
-
- b->yy_input_file = file;
- b->yy_fill_buffer = 1;
-
- /* If b is the current buffer, then pp_init_buffer was _probably_
- * called from pprestart() or through yy_get_next_buffer.
- * In that case, we don't want to reset the lineno or column.
- */
- if (b != YY_CURRENT_BUFFER){
- b->yy_bs_lineno = 1;
- b->yy_bs_column = 0;
- }
-
- b->yy_is_interactive = 0;
-
- errno = oerrno;
-}
-
-/** Discard all buffered characters. On the next scan, YY_INPUT will be called.
- * @param b the buffer state to be flushed, usually @c YY_CURRENT_BUFFER.
- *
- */
- void pp_flush_buffer (YY_BUFFER_STATE b )
-{
- if ( ! b )
- return;
-
- b->yy_n_chars = 0;
-
- /* We always need two end-of-buffer characters. The first causes
- * a transition to the end-of-buffer state. The second causes
- * a jam in that state.
- */
- b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR;
- b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
-
- b->yy_buf_pos = &b->yy_ch_buf[0];
-
- b->yy_at_bol = 1;
- b->yy_buffer_status = YY_BUFFER_NEW;
-
- if ( b == YY_CURRENT_BUFFER )
- pp_load_buffer_state( );
-}
-
-/** Pushes the new state onto the stack. The new state becomes
- * the current state. This function will allocate the stack
- * if necessary.
- * @param new_buffer The new state.
- *
- */
-void pppush_buffer_state (YY_BUFFER_STATE new_buffer )
-{
- if (new_buffer == NULL)
- return;
-
- ppensure_buffer_stack();
-
- /* This block is copied from pp_switch_to_buffer. */
- if ( YY_CURRENT_BUFFER )
- {
- /* Flush out information for old buffer. */
- *(yy_c_buf_p) = (yy_hold_char);
- YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
- YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
- }
-
- /* Only push if top exists. Otherwise, replace top. */
- if (YY_CURRENT_BUFFER)
- (yy_buffer_stack_top)++;
- YY_CURRENT_BUFFER_LVALUE = new_buffer;
-
- /* copied from pp_switch_to_buffer. */
- pp_load_buffer_state( );
- (yy_did_buffer_switch_on_eof) = 1;
-}
-
-/** Removes and deletes the top of the stack, if present.
- * The next element becomes the new top.
- *
- */
-void pppop_buffer_state (void)
-{
- if (!YY_CURRENT_BUFFER)
- return;
-
- pp_delete_buffer(YY_CURRENT_BUFFER );
- YY_CURRENT_BUFFER_LVALUE = NULL;
- if ((yy_buffer_stack_top) > 0)
- --(yy_buffer_stack_top);
-
- if (YY_CURRENT_BUFFER) {
- pp_load_buffer_state( );
- (yy_did_buffer_switch_on_eof) = 1;
- }
-}
-
-/* Allocates the stack if it does not exist.
- * Guarantees space for at least one push.
- */
-static void ppensure_buffer_stack (void)
-{
- int num_to_alloc;
-
- if (!(yy_buffer_stack)) {
-
- /* First allocation is just for 2 elements, since we don't know if this
- * scanner will even need a stack. We use 2 instead of 1 to avoid an
- * immediate realloc on the next call.
- */
- num_to_alloc = 1; /* After all that talk, this was set to 1 anyways... */
- (yy_buffer_stack) = (struct yy_buffer_state**)ppalloc
- (num_to_alloc * sizeof(struct yy_buffer_state*)
- );
- if ( ! (yy_buffer_stack) )
- YY_FATAL_ERROR( "out of dynamic memory in ppensure_buffer_stack()" );
-
- memset((yy_buffer_stack), 0, num_to_alloc * sizeof(struct yy_buffer_state*));
-
- (yy_buffer_stack_max) = num_to_alloc;
- (yy_buffer_stack_top) = 0;
- return;
- }
-
- if ((yy_buffer_stack_top) >= ((yy_buffer_stack_max)) - 1){
-
- /* Increase the buffer to prepare for a possible push. */
- yy_size_t grow_size = 8 /* arbitrary grow size */;
-
- num_to_alloc = (yy_buffer_stack_max) + grow_size;
- (yy_buffer_stack) = (struct yy_buffer_state**)pprealloc
- ((yy_buffer_stack),
- num_to_alloc * sizeof(struct yy_buffer_state*)
- );
- if ( ! (yy_buffer_stack) )
- YY_FATAL_ERROR( "out of dynamic memory in ppensure_buffer_stack()" );
-
- /* zero only the new slots.*/
- memset((yy_buffer_stack) + (yy_buffer_stack_max), 0, grow_size * sizeof(struct yy_buffer_state*));
- (yy_buffer_stack_max) = num_to_alloc;
- }
-}
-
- static void yy_push_state (int _new_state )
-{
- if ( (yy_start_stack_ptr) >= (yy_start_stack_depth) )
- {
- yy_size_t new_size;
-
- (yy_start_stack_depth) += YY_START_STACK_INCR;
- new_size = (yy_size_t) (yy_start_stack_depth) * sizeof( int );
-
- if ( ! (yy_start_stack) )
- (yy_start_stack) = (int *) ppalloc(new_size );
-
- else
- (yy_start_stack) = (int *) pprealloc((void *) (yy_start_stack),new_size );
-
- if ( ! (yy_start_stack) )
- YY_FATAL_ERROR( "out of memory expanding start-condition stack" );
- }
-
- (yy_start_stack)[(yy_start_stack_ptr)++] = YY_START;
-
- BEGIN(_new_state);
-}
-
- static void yy_pop_state (void)
-{
- if ( --(yy_start_stack_ptr) < 0 )
- YY_FATAL_ERROR( "start-condition stack underflow" );
-
- BEGIN((yy_start_stack)[(yy_start_stack_ptr)]);
-}
-
-#ifndef YY_EXIT_FAILURE
-#define YY_EXIT_FAILURE 2
-#endif
-
-static void yynoreturn yy_fatal_error (yyconst char* msg )
-{
- (void) fprintf( stderr, "%s\n", msg );
- exit( YY_EXIT_FAILURE );
-}
-
-/* Redefine yyless() so it works in section 3 code. */
-
-#undef yyless
-#define yyless(n) \
- do \
- { \
- /* Undo effects of setting up pptext. */ \
- yy_size_t yyless_macro_arg = (n); \
- YY_LESS_LINENO(yyless_macro_arg);\
- pptext[ppleng] = (yy_hold_char); \
- (yy_c_buf_p) = pptext + yyless_macro_arg; \
- (yy_hold_char) = *(yy_c_buf_p); \
- *(yy_c_buf_p) = '\0'; \
- ppleng = yyless_macro_arg; \
- } \
- while ( 0 )
-
-/* Accessor methods (get/set functions) to struct members. */
-
-/** Get the current token.
- *
- */
-
-static int yy_init_globals (void)
-{
- /* Initialization is the same as for the non-reentrant scanner.
- * This function is called from pplex_destroy(), so don't allocate here.
- */
-
- (yy_buffer_stack) = NULL;
- (yy_buffer_stack_top) = 0;
- (yy_buffer_stack_max) = 0;
- (yy_c_buf_p) = NULL;
- (yy_init) = 0;
- (yy_start) = 0;
-
- (yy_start_stack_ptr) = 0;
- (yy_start_stack_depth) = 0;
- (yy_start_stack) = NULL;
-
-/* Defined in main.c */
-#ifdef YY_STDINIT
- ppin = stdin;
- ppout = stdout;
-#else
- ppin = NULL;
- ppout = NULL;
-#endif
-
- /* For future reference: Set errno on error, since we are called by
- * pplex_init()
- */
- return 0;
-}
-
-/* pplex_destroy is for both reentrant and non-reentrant scanners. */
-int pplex_destroy (void)
-{
-
- /* Pop the buffer stack, destroying each element. */
- while(YY_CURRENT_BUFFER){
- pp_delete_buffer(YY_CURRENT_BUFFER );
- YY_CURRENT_BUFFER_LVALUE = NULL;
- pppop_buffer_state();
- }
-
- /* Destroy the stack itself. */
- ppfree((yy_buffer_stack) );
- (yy_buffer_stack) = NULL;
-
- /* Destroy the start condition stack. */
- ppfree((yy_start_stack) );
- (yy_start_stack) = NULL;
-
- /* Reset the globals. This is important in a non-reentrant scanner so the next time
- * pplex() is called, initialization will occur. */
- yy_init_globals( );
-
- return 0;
-}
-
-/*
- * Internal utility routines.
- */
-
-#ifndef yytext_ptr
-static void yy_flex_strncpy (char* s1, yyconst char * s2, int n )
-{
-
- int i;
- for ( i = 0; i < n; ++i )
- s1[i] = s2[i];
-}
-#endif
-
-#ifdef YY_NEED_STRLEN
-static int yy_flex_strlen (yyconst char * s )
-{
- int n;
- for ( n = 0; s[n]; ++n )
- ;
-
- return n;
-}
-#endif
-
-void *ppalloc (yy_size_t size )
-{
- return malloc(size);
-}
-
-void *pprealloc (void * ptr, yy_size_t size )
-{
-
- /* The cast to (char *) in the following accommodates both
- * implementations that use char* generic pointers, and those
- * that use void* generic pointers. It works with the latter
- * because both ANSI C and C++ allow castless assignment from
- * any pointer type to void*, and deal with argument conversions
- * as though doing an assignment.
- */
- return realloc(ptr, size);
-}
-
-void ppfree (void * ptr )
-{
- free( (char *) ptr ); /* see pprealloc() for (char *) cast */
-}
-
-#define YYTABLES_NAME "yytables"
-
-#line 1208 "pplex.l"
-
-
-
-/* Global functions */
-
-static int
-is_fixed_indicator (char c){
- switch (c){ /* same indicators as in ppinput() */
- case ' ':
- case '-':
- case 'd':
- case 'D':
- case '*':
- case '/':
- case '\\':
- case '$':
- return 1;
- default:
- return 0;
- }
-}
-
-/* open file with the specified 'name', then check for BOM (skipped) and if
- in reference-format "auto" also for "likely free-format" */
-static FILE *
-ppopen_get_file (const char *name)
-{
- struct copy_info *current_copy_info;
-
- /* special case stdin;
- note that we cannot handle BOM or deduce source format in this case
- as rewind() clears the input buffer if used on stdin (and output in
- console has normally no BOM at all), therefore compile from stdin
- _has to_ specify free format if needed (or, more reasonable, use a CDF
- directive to specify that) */
- if (strcmp (name, COB_DASH) == 0) {
- return stdin;
- }
-
- /* check for recursive inclusion */
- for (current_copy_info = copy_stack; current_copy_info; current_copy_info = current_copy_info->next) {
- /* FIXME: for WIN32 compare with cleaning / and \ (COPY "lib/file" vs COPY "lib\file"),
- ideally open first, then check if we have the same physical file
- (would also fix recursion check for symlinked files) */
- if (!strcmp (name, current_copy_info->dname)) {
- struct cb_tree_common loc;
- for (current_copy_info = current_copy_info->next; current_copy_info; current_copy_info = current_copy_info->prev) {
- int line;
- if (current_copy_info->prev) {
- line = current_copy_info->prev->line;
- } else {
- line = cb_source_line;
- }
- cb_inclusion_note (current_copy_info->dname, line);
- }
- loc.source_file = name;
- loc.source_line = -1;
- cb_error_x (&loc, _("recursive inclusion"));
- return 0;
- }
- }
-
- /* try to open the file with the given name */
-#ifdef __OS400__
- ppin = fopen (name, "r");
-#else
- ppin = fopen (name, "rb");
-#endif
- if (!ppin) {
- cb_error ("%s: %s", name, cb_get_strerror ());
- /* Note: postpone error exit as we need the saved buffers later on */
- return 0;
- }
-
- /* Check for BOM and, if source-format was not specified, also for free-form */
- {
- int fseek_to = 0 ;
-#define COBC_LOOKAHEAD 20
- unsigned char buffer[COBC_LOOKAHEAD];
- int nread = fread (buffer, 1, COBC_LOOKAHEAD, ppin);
-
- /* check for and skip UTF-8 BOM */
- if (nread >= 3 && buffer[0] == 0xEF && buffer[1] == 0xBB && buffer[2] == 0xBF) {
- fseek_to = 3;
- }
-
- /* try to deduce source format */
- if (source_format == CB_FORMAT_AUTO) {
- int pos = fseek_to;
- /* if indicator is wrong on first line with source, switch to free format */
- /* skip empty lines */
- char last_pos_7 = ' ';
- int amount_of_0a_seen = 0;
- int line_pos = 0;
- while (nread - pos > 7) {
- switch (buffer[pos]) {
- case '\r':
- break;
- case '\n':
- amount_of_0a_seen++;
- line_pos = 0;
- break;
- case '\t':
- buffer[pos] = ' ';
- line_pos++;
- while (line_pos % cb_tab_width != 0) {
- line_pos++;
- }
- break;
- default:
- line_pos++;
- break;
- }
- if (line_pos >= 7) {
- last_pos_7 = buffer[pos];
- break;
- }
- pos++;
- }
- /* check tab or indicator */
- if (!is_fixed_indicator (last_pos_7)) {
- struct cb_tree_common loc;
- loc.source_file = name;
- loc.source_line = 1 + amount_of_0a_seen;
- loc.source_column = 7;
- cb_note_x (COB_WARNOPT_NONE, &loc, _("free format detected"));
- (void)cobc_deciph_source_format ("FREE");
- }
- }
- fseek (ppin, fseek_to, SEEK_SET);
- }
-
- return ppin;
-}
-
-/* open file (source or coypbook) for further processing */
-int
-ppopen (const char *name, struct cb_replace_list *replacing_list)
-{
- struct copy_info *current_copy_info;
- char *dname;
- struct cb_replace_list *current_replace_list;
-
- if (ppin) {
- for (; newline_count > 0; newline_count--) {
- ungetc ('\n', ppin);
- }
- }
-
- /* open copy/source file, or use stdin */
- ppin = ppopen_get_file (name);
-
- /* note: detection of free format in ppopen_get_file above (not for stdin) */
- if (source_format == CB_FORMAT_AUTO) {
- cobc_set_source_format (CB_FORMAT_FIXED);
- }
-
- /* store listing information if requested */
- if (cb_current_file) {
- if (cb_current_file->source_format == CB_FORMAT_AUTO) {
- cb_current_file->source_format = cobc_get_source_format ();
- }
- /* this must be delayed until after format detection */
- cobc_set_listing_header_code ();
- /* Save name for listing */
- if (!cb_current_file->name) {
- cb_current_file->name = cobc_strdup (name);
- }
- cb_current_file->copy_line = cb_source_line;
- }
-
- /* add opened file to dependency list */
- if (cb_depend_file) {
- cb_depend_list = pp_text_list_add (cb_depend_list, name, strlen (name));
- }
-
- /* preserve the current buffer */
- current_replace_list = cb_get_copy_replacing_list();
- current_copy_info = cobc_malloc (sizeof (struct copy_info));
- current_copy_info->file = cb_source_file;
- current_copy_info->buffer = YY_CURRENT_BUFFER;
-
- /* save variables */
- current_copy_info->replacing = current_replace_list;
- current_copy_info->line = cb_source_line;
- current_copy_info->quotation_mark = quotation_mark;
- current_copy_info->source_format = cobc_get_source_format ();
-
- current_copy_info->next = copy_stack;
- current_copy_info->containing_files = old_list_file;
- if (copy_stack) {
- copy_stack->prev = current_copy_info;
- }
- copy_stack = current_copy_info;
-
- /* set replacing list */
- if (replacing_list) {
- if (current_replace_list) {
- replacing_list->last->next = current_replace_list;
- replacing_list->last = current_replace_list->last;
- }
- cb_set_copy_replacing_list (replacing_list);
- if (cb_src_list_file) {
- cb_set_print_replace_list (replacing_list);
- }
- }
-
- dname = cobc_strdup (name);
- current_copy_info->dname = dname;
-#if 0 /* Simon: better adjust the output where needed */
- {
- char *s = dname;
- while (*s) {
- if (*s == '\\') {
- *s = '/';
- }
- s++;
- }
- }
-#endif
-
- /* switch to new buffer */
- switch_to_buffer (1, dname, pp_create_buffer (ppin, YY_BUF_SIZE));
-
- /* postponed errror handling */
- if (!ppin) {
- return -1;
- }
- return 0;
-}
-
-static const char *
-ppcopy_try_open (const char *dir, const char *name, int has_ext)
-{
- struct cb_text_list *el = cb_extension_list;
- const char *extension = "";
- struct stat st;
-
- for (;;) {
- if (dir) {
- snprintf (plexbuff2, (size_t)COB_SMALL_MAX, "%s%c%s%s",
- dir, SLASH_CHAR, name, extension);
- } else {
- snprintf (plexbuff2, (size_t)COB_SMALL_MAX, "%s%s",
- name, extension);
- }
- plexbuff2[COB_SMALL_MAX] = 0;
-#if 0 /* TODO: output in separate COB_DEBUG_LOG */
- printf ("checking COPY file: %s... ", plexbuff2);
- printf ("Found!\n");
- printf ("%s\n", cb_get_strerror ());
-#endif
- /* Must be an accessible, regular file */
- if (access (plexbuff2, R_OK) == 0
- && stat (plexbuff2, &st) == 0
- && S_ISREG (st.st_mode)) {
- return plexbuff2;
- }
-#ifdef COB_MULTI_EXTENSION /* compat to older GC versions */
- COB_UNUSED (has_ext):
-#else
- if (has_ext) {
- break;
- }
-#endif
- if (!el) {
- break;
- }
- extension = el->text;
- el = el->next;
- }
- return NULL;
-}
-
-/* try to locate the file by searching,
- each with all known copybook extensions:
- 1 - as is
- 2 - all known copybook directories */
-static const char *
-ppcopy_find_file (char *name, int has_ext)
-{
- const char *filename;
- {
- const size_t len = strlen (name);
- size_t i;
-#if defined (_WIN32) || defined (__DJGPP__)
- const char from = '/';
- const char to = '\\';
-#else
- const char from = '\\';
- const char to = '/';
-#endif
- for (i = 0; i < len; i++) {
- if (name[i] == from) {
- name[i] = to;
- }
- }
- }
-
- /* try name as is + extensions ... */
- filename = ppcopy_try_open (NULL, name, has_ext);
- if (filename) {
- return filename;
- }
-
- /* ... if not found, try in copybook directories */
- if (*name != SLASH_CHAR
-#if defined (_WIN32) || defined (__DJGPP__)
- && *(name + 1) != ':' /* note: the name is at least 2 bytes... */
-#endif
- ) {
- struct cb_text_list *il;
- for (il = cb_include_list; il; il = il->next) {
- filename = ppcopy_try_open (il->text, name, has_ext);
- if (filename) {
- return filename;
- }
- }
- }
-
- /* no candidate found */
- return NULL;
-}
-
-static COB_INLINE COB_A_INLINE void
-output_pending_newlines (FILE *stream)
-{
- if (echo_newline > 9) {
- /* too much newlines (likely becaue of conditional compilation or
- long comment blocks, for example from EXEC SQL preparsers),
- so generate source directive from the already adjusted static vars
- instead of spitting out possibly hundreds of empty lines */
- fprintf (stream, "\n#line %d \"%s\"\n", cb_source_line, cb_source_file);
- echo_newline = 0;
- } else {
- while (echo_newline > 1) {
- fputc ('\n', stream);
- echo_newline--;
- }
- echo_newline = 0;
- }
-}
-
-int
-ppcopy (const char *name, const char *lib, struct cb_replace_list *replace_list)
-{
- const char *filename = NULL;
- const int has_ext = (strchr (name, '.') != NULL);
-
- output_pending_newlines (ppout);
-
- if (cb_current_file) {
- cb_current_file->copy_line = cb_source_line;
- }
-
- /* TODO: open with path relative to the current file's path,
- if any (applies both to with and without "lib") */
-
- /* Locate and open COPY file */
- if (lib) {
- const char *lib_env = NULL;
-
- /* check for library-name with directory-name via environment
- (as emulation of specifying a library-name via JCL) */
- if (*lib >= 'A' && *lib <= 'Z') {
- char envname[COB_MINI_BUFF];
-
- snprintf (envname, (size_t)COB_MINI_MAX, "COB_COPY_LIB_%s", lib);
- envname[COB_MINI_MAX] = 0;
- lib_env = getenv (envname);
-
- if (lib_env) {
- if (*lib_env) {
- /* TODO: if lib_env is not a full path:
- prefix by current active file */
- snprintf (plexbuff1, (size_t)COB_SMALL_MAX, "%s%c%s",
- lib_env, SLASH_CHAR, name);
- plexbuff1[COB_SMALL_MAX] = 0;
- filename = ppcopy_find_file (plexbuff1, has_ext);
- } else {
- strcpy (plexbuff1, name);
- filename = ppcopy_find_file (plexbuff1, has_ext);
- }
- }
- }
- /* check for library-name as directory-name */
- if (!filename && !lib_env) {
- /* TODO: if lib is not a full path:
- prefix by current active file */
- snprintf (plexbuff1, (size_t)COB_SMALL_MAX, "%s%c%s",
- lib, SLASH_CHAR, name);
- plexbuff1[COB_SMALL_MAX] = 0;
- filename = ppcopy_find_file (plexbuff1, has_ext);
- }
-
- /* try without library name, if not resolved by env */
- if (!filename && !lib_env) {
- strcpy (plexbuff1, name);
- filename = ppcopy_find_file (plexbuff1, has_ext);
- if (filename) {
- cb_plex_warning (COBC_WARN_FILLER, 0,
- _("copybook not found in library '%s', library-name ignored"),
- lib);
- }
- }
-
- /* restore original name for error handling */
- if (!filename) {
- snprintf (plexbuff1, (size_t)COB_SMALL_MAX, "%s%c%s",
- lib, SLASH_CHAR, name);
- plexbuff1[COB_SMALL_MAX] = 0;
- }
- } else {
- strcpy (plexbuff1, name);
- filename = ppcopy_find_file (plexbuff1, has_ext);
- }
-
- /* expected case: filename found */
- if (likely (filename)) {
- if (ppopen (filename, replace_list) == 0) {
- /* expected case: copybook could be processed */
- return 0;
- }
- /* otherwise fall-trough to error handling */
- } else {
- /* ensure to have errno from name as specified, not from another file */
- (void)access (plexbuff1, R_OK);
- /* pass file error as we have no more places to check */
- cb_error ("%s: %s", plexbuff1, cb_get_strerror ());
- }
-
- /* On COPY, open error restore old file */
- cb_current_file = old_list_file;
- fprintf (ppout, "#line %d \"%s\"\n", cb_source_line, cb_source_file);
- return -1;
-}
-
-/* `newline_count` is one line ahead when the two functions below are called
- (from `ppparse.y`). */
-
-unsigned int
-ppparse_verify (const enum cb_support tag, const char *feature)
-{
- return cb_plex_verify (newline_count-1, tag, feature);
-}
-
-void
-ppparse_error (const char *err_msg)
-{
- cb_plex_error (newline_count-1, "%s", err_msg);
-}
-
-int
-cobc_has_areacheck_directive (const char * directive) {
- if (source_format != CB_FORMAT_FIXED &&
- source_format != CB_FORMAT_FREE &&
- source_format != CB_FORMAT_AUTO ) {
- return 1;
- } else {
- cb_plex_warning (COBC_WARN_FILLER, newline_count,
- _("ignoring %s directive because of %s"),
- directive, "-fformat=fixed/free");
- return 0;
- }
-}
-
-/* Sets `source_format`, `indicator_column`, `text_column`, `floating_area_b`,
- `fill_continued_alnums`, and `cobc_areacheck`, based on the given source
- format. */
-void
-cobc_set_source_format (const enum cb_format sf) {
- source_format = sf;
-
- switch (source_format) {
- case CB_FORMAT_XOPEN_FFF:
- case CB_FORMAT_ICOBOL_CRT:
- case CB_FORMAT_ACUTERM:
- case CB_FORMAT_COBOLX:
- indicator_column = 1;
- floating_area_b = source_format != CB_FORMAT_COBOLX;
- fill_continued_alnums = 0;
- break;
- default:
- indicator_column = 7;
- floating_area_b = 0;
- fill_continued_alnums = 1;
- break;
- }
-
- switch (source_format) {
- case CB_FORMAT_FIXED:
- case CB_FORMAT_AUTO:
- case CB_FORMAT_COBOL85:
- text_column = cb_config_text_column; /* 72 by default */
- break;
- case CB_FORMAT_VARIABLE:
- /* This value matches most MF Visual COBOL 4.0 version. */
- text_column = 250;
- break;
- case CB_FORMAT_ACUTERM:
- case CB_FORMAT_ICOBOL_CRT:
- /* CHECKME:
- https://sf.net/p/gnucobol/feature-requests/29/#c2d0/8d2f */
- text_column = 320;
- break;
- case CB_FORMAT_XOPEN_FFF:
- case CB_FORMAT_COBOLX:
- case CB_FORMAT_ICOBOL_XCARD:
- /* For X/Open, this is the number of "bytes" allowed on single
- source line as per the X/Open CAE Specification (1991),
- Section 7.4 "Limits". */
- text_column = 255;
- break;
- case CB_FORMAT_FREE:
- /* text-column should be ignored: put an invalid value to catch
- some bugs. */
- text_column = -1;
- break;
- }
-
- switch (source_format) {
- case CB_FORMAT_FIXED:
- case CB_FORMAT_FREE:
- case CB_FORMAT_AUTO:
- case CB_FORMAT_XOPEN_FFF:
- emit_area_a_tokens = 0;
- cobc_areacheck = 0;
- break;
- default:
- emit_area_a_tokens = 1;
- cobc_areacheck = cb_areacheck;
- }
-}
-
-enum cb_format cobc_get_source_format (void) { return source_format; }
-int cobc_get_indicator_column (void) { return indicator_column; }
-int cobc_get_text_column (void) { return text_column; }
-
-/* The three functions below return indexes on the lines (starting from 0), not
- character positions (counted from 1). */
-int cobc_get_indicator (void) {
- return indicator_column - 1;
-}
-int cobc_get_margin_a (const int indicator_width) {
- return indicator_column + indicator_width - 1;
-}
-int cobc_get_margin_b (const int indicator_width) {
- /* careful, for COBOL 2002 there is no margin B */
- return indicator_column + indicator_width + 3;
-}
-
-static int
-cobc_parse_source_format (enum cb_format *const out, const char *const sfname) {
- enum cb_format format;
- if (!cb_strcasecmp (sfname, "FIXED")) {
- format = CB_FORMAT_FIXED;
- } else if (!cb_strcasecmp (sfname, "FREE")) {
- /* Note: SOURCEFORMAT"FREE" in MicroFocus dialect actually
- selects an X/Open-derived free-form format. */
- format = (cb_std_define == CB_STD_MF)
- ? CB_FORMAT_XOPEN_FFF
- : CB_FORMAT_FREE;
- } else if (!cb_strcasecmp (sfname, "COBOL85")) {
- format = CB_FORMAT_COBOL85;
- } else if (!cb_strcasecmp (sfname, "VARIABLE")) {
- format = CB_FORMAT_VARIABLE;
- } else if (!cb_strcasecmp (sfname, "XOPEN")) {
- format = CB_FORMAT_XOPEN_FFF;
- } else if (!cb_strcasecmp (sfname, "XCARD")) {
- format = CB_FORMAT_ICOBOL_XCARD;
- } else if (!cb_strcasecmp (sfname, "CRT")) {
- format = CB_FORMAT_ICOBOL_CRT;
- } else if (!cb_strcasecmp (sfname, "TERMINAL")) {
- format = CB_FORMAT_ACUTERM;
- } else if (!cb_strcasecmp (sfname, "COBOLX")) {
- format = CB_FORMAT_COBOLX;
- } else if (!cb_strcasecmp (sfname, "AUTO")) {
- format = CB_FORMAT_AUTO;
- } else {
- return 1; /* invalid argument */
- }
- *out = format;
- return 0;
-}
-
-int cobc_deciph_source_format (const char *sfname) {
- enum cb_format format;
- if (cobc_parse_source_format (&format, sfname) == 0) {
- cobc_set_source_format (format);
- return 0;
- }
- return 1;
-}
-
-void
-plex_clear_vars (void)
-{
- /* Reset variables */
- plex_skip_input = 0;
- plex_nest_depth = 0;
- memset (plex_cond_stack, 0, sizeof(plex_cond_stack));
- requires_listing_line = 1;
- comment_allowed = 1;
- echo_newline = 0;
-}
-
-void
-plex_clear_all (void)
-{
- if (plexbuff1) {
- cobc_free (plexbuff1);
- plexbuff1 = NULL;
- }
- if (plexbuff2) {
- cobc_free (plexbuff2);
- plexbuff2 = NULL;
- }
-}
-
-void
-plex_call_destroy (void)
-{
- struct copy_info* ci;
-
- while (copy_stack) {
- ci = copy_stack;
- copy_stack = ci->next;
- if (ci->dname) {
- cobc_free (ci->dname);
- }
- cobc_free (ci);
- }
-
- (void)pplex_destroy ();
-}
-
-void
-plex_action_directive (const enum cb_directive_action cmdtype, const unsigned int is_true)
-{
- unsigned int n;
-
- /* Action IF/ELSE/END-IF/ELIF */
- switch (cmdtype) {
- case PLEX_ACT_IF:
- /* Push stack - First occurrence is dummy */
- if (++plex_nest_depth >= PLEX_COND_DEPTH) {
- /* LCOV_EXCL_START */
- cobc_err_msg (_("directive nest depth exceeded: %d"),
- PLEX_COND_DEPTH);
- COBC_ABORT ();
- /* LCOV_EXCL_STOP */
- }
- plex_cond_stack[plex_nest_depth].cmd = 1U;
- /* Intersection with previous - first is always 0 */
- n = plex_cond_stack[plex_nest_depth - 1].skip | !is_true;
- plex_cond_stack[plex_nest_depth].skip = n;
- plex_cond_stack[plex_nest_depth].cond = is_true;
- plex_cond_stack[plex_nest_depth].line = cb_source_line;
- plex_skip_input = n;
- return;
- case PLEX_ACT_ELSE:
- /* Must have an associated IF/ELIF */
- if (!plex_nest_depth ||
- plex_cond_stack[plex_nest_depth].cmd != 1) {
- cb_plex_error (newline_count,
- _("ELSE directive without matching IF/ELIF"));
- return;
- }
- plex_cond_stack[plex_nest_depth].cmd = 2U;
- /* Reverse any IF/ELIF condition */
- n = plex_cond_stack[plex_nest_depth].cond;
- plex_cond_stack[plex_nest_depth].skip = n;
- plex_cond_stack[plex_nest_depth].line = cb_source_line;
- /* Intersection with previous */
- plex_skip_input = plex_cond_stack[plex_nest_depth - 1].skip | n;
- return;
- case PLEX_ACT_END:
- /* Must have an associated IF/ELIF/ELSE */
- if (!plex_nest_depth ||
- !plex_cond_stack[plex_nest_depth].cmd) {
- cb_plex_error (newline_count,
- _("END-IF directive without matching IF/ELIF/ELSE"));
- return;
- }
- plex_cond_stack[plex_nest_depth].cmd = 0;
- plex_cond_stack[plex_nest_depth].skip = 0;
- plex_cond_stack[plex_nest_depth].cond = 0;
- plex_cond_stack[plex_nest_depth].line = 0;
- /* Pop stack - set skip to previous */
- plex_nest_depth--;
- plex_skip_input = plex_cond_stack[plex_nest_depth].skip;
- return;
- case PLEX_ACT_ELIF:
- /* Must have an associated IF/ELIF */
- if (!plex_nest_depth ||
- plex_cond_stack[plex_nest_depth].cmd != 1) {
- cb_plex_error (newline_count,
- _("ELIF directive without matching IF/ELIF"));
- return;
- }
- plex_cond_stack[plex_nest_depth].line = cb_source_line;
- if (plex_cond_stack[plex_nest_depth].cond) {
- /* Previous IF or one of previous ELIF was true */
- /* Set to skip */
- n = 1U;
- } else if (is_true) {
- /* Condition is true */
- plex_cond_stack[plex_nest_depth].cond = 1U;
- n = 0;
- } else {
- /* Set to skip */
- n = 1U;
- }
- plex_cond_stack[plex_nest_depth].skip = n;
- /* Intersection with previous */
- plex_skip_input = plex_cond_stack[plex_nest_depth - 1].skip | n;
- return;
- default:
- /* LCOV_EXCL_START */
- cobc_err_msg (_("invalid internal case: %u"),
- cmdtype);
- COBC_ABORT ();
- /* LCOV_EXCL_STOP */
- }
-}
-
-/* Local functions */
-
-static void
-get_new_listing_file (void)
-{
- struct list_files *newfile = cobc_malloc (sizeof (struct list_files));
-
- if (!cb_current_file->copy_head) {
- cb_current_file->copy_head = newfile;
- }
- if (cb_current_file->copy_tail) {
- cb_current_file->copy_tail->next = newfile;
- }
- cb_current_file->copy_tail = newfile;
-
- newfile->copy_line = cb_source_line;
- newfile->source_format = cobc_get_source_format ();
- old_list_file = cb_current_file;
- cb_current_file = newfile;
-}
-
-void
-cb_set_print_replace_list (struct cb_replace_list *list)
-{
- struct cb_replace_list *r;
- const struct cb_text_list *l;
- struct list_replace *repl;
- size_t length;
-
- for (r = list; r; r = r->next) {
- const struct cb_replace_src *src = r->src;
- repl = cobc_malloc (sizeof (struct list_replace));
- repl->firstline = r->line_num;
- repl->lead_trail = src->lead_trail;
- repl->strict_partial = src->strict;
- repl->lastline = cb_source_line;
-
- for (l = src->text_list, length = 0; l; l = l->next) {
- length += strlen (l->text);
- }
- repl->from = cobc_malloc (length + 2);
- for (l = src->text_list; l; l = l->next) {
- strcat (repl->from, l->text);
- }
-
- for (l = r->new_text, length = 0; l; l = l->next) {
- length += strlen (l->text);
- }
- repl->to = cobc_malloc (length + 2);
- for (l = r->new_text; l; l = l->next) {
- strcat (repl->to, l->text);
- }
-
- if (cb_current_file->replace_tail) {
- cb_current_file->replace_tail->next = repl;
- }
- if (!cb_current_file->replace_head) {
- cb_current_file->replace_head = repl;
- }
- cb_current_file->replace_tail = repl;
- }
-}
-
-static void
-switch_to_buffer (const int line, const char *file, const YY_BUFFER_STATE buffer)
-{
- output_pending_newlines (ppout);
-
- /* Reset file/line */
- cb_source_line = line;
- cb_source_file = file;
- fprintf (ppout, "#line %d \"%s\"\n", line, file);
- /* Switch buffer */
- pp_switch_to_buffer (buffer);
-}
-
-static COB_INLINE COB_A_INLINE int
-is_cobol_word_char (const char c)
-{
- return c == '-' || c == '_' || isalnum (c);
-}
-
-/* copies the next word in str to word_buff of size buff_len, and
-returns the length of the copy. If the word is longer than buff_len,
-returns 0. */
-static int
-get_word (const char *str, char *word_buff, size_t buff_len)
-{
- int length = 0;
- if (str) {
- while (*str == ' ' || *str == ',' || *str == ';') {
- ++str;
- }
- while (is_cobol_word_char(*str)){
- if (length++ == buff_len) return 0;
- *word_buff++ = (unsigned char)toupper((unsigned char)*str++);
- }
- }
- return length;
-}
-
-static int
-is_condition_directive_clause (const char *buff)
-{
- char p[12]; /* size of maximal comparison, here END-EVALUATE */
- int len;
-
- if (buff[0] == '$') {
- buff++;
- } else if (buff[0] == '>' && buff[1] == '>') {
- buff += 2;
- }
-
- len = get_word (buff, p, sizeof(p));
- switch (len){
- case 2: return !memcmp (p, "IF", len);
- case 3: return !memcmp (p, "END", len);
- case 4: return !memcmp (p, "ELSE", len)
- || !memcmp (p, "ELIF", len)
- || !memcmp (p, "WHEN", len);
- case 6: return !memcmp (p, "END-IF", len);
- case 8: return !memcmp (p, "EVALUATE", len);
- case 12: return !memcmp (p, "END-EVALUATE", len);
- }
- return 0;
-}
-
-static int
-next_word_is_comment_paragraph_name (const char *buff)
-{
- char p[13+1]; /* size of maximal comparison + 1, here
- DATE-MODIFIED. We need +1 because we may
- have to add a terminating 0 to pass the
- string to cb_plex_verify(). */
- int len;
-
- if (cb_comment_paragraphs == CB_IGNORE) return 0;
-
- len = get_word (buff, p, sizeof(p)-1);
-
- switch (len){
- case 6: if (memcmp (p, "AUTHOR", len)) return 0;
- break;
- case 7: if (memcmp (p, "REMARKS", len)) return 0;
- break;
- case 8: if (memcmp (p, "SECURITY", len)) return 0;
- break;
- case 12: if (memcmp (p, "DATE-WRITTEN", len)
- && memcmp (p, "INSTALLATION", len)) return 0;
- break;
- case 13: if (memcmp (p, "DATE-MODIFIED", len)
- && memcmp (p, "DATE-COMPILED", len)) return 0;
- break;
- default: return 0;
- }
- /* this part is reached only if a comparison above was successful */
-
- /* check so we get warnings / errors, but leave result unchanged */
- p[len] = 0;
- cb_plex_verify (newline_count, cb_comment_paragraphs, p);
- return 1;
-}
-
-static COB_INLINE COB_A_INLINE int
-is_space_or_nl (const char c)
-{
- return c == ' ' || c == '\n';
-}
-
-/* FIXME: try to optimize as this function used 25-10% (according to callgrind)
- of the complete time spent in a sample run with
- -fsyntax-only on 880 production code files (2,500,000 LOC)
- --> too much [Note: 10% are spent in getc and therefore could only
- be optimized by using a buffered read instead]
-*/
-static int
-ppinput (char *buff, const size_t max_size)
-{
- char *bp;
- size_t gotcr;
- size_t line_overflow;
- size_t continuation;
- size_t indicator_width;
- int ipchar;
- int i;
- int n;
- int coln;
- int in_area_a;
- struct list_skip *skip;
-
- /* check that we actually have input to process
- (isn't the case if something went wrong beforehand) */
- /* LCOV_EXCL_START */
- if (unlikely (ppin == NULL)) {
- return YY_NULL; /* fake eof (no further processing of the not available file) */
- }
- /* LCOV_EXCL_STOP */
-
- /* Read line(s) */
-
- continuation = 0;
-start:
- if (unlikely (buffer_overflow ||
- (newline_count + PPLEX_BUFF_LEN) >= max_size)) {
- if (need_continuation || continuation) {
- cb_plex_error (newline_count,
- _("buffer overrun - too many continuation lines"));
-#if 0 /* CHECKME: does anything breaks if we don't fake EOF here? */
- return YY_NULL; /* fake eof (no further processing) */
-#endif
- }
- if (newline_count < max_size) {
- /* FIXME: this doesn't check the buffer size ! */
- memset (buff, '\n', newline_count);
- buff[newline_count] = 0;
- ipchar = (int)newline_count;
- newline_count = 0;
- buffer_overflow = 0;
- return ipchar;
- }
- buffer_overflow = 1;
- ipchar = max_size - 1;
- memset (buff, '\n', (size_t)ipchar);
- buff[ipchar] = 0;
- newline_count -= ipchar;
- return ipchar;
- }
- gotcr = 0;
- line_overflow = 0;
- ipchar = 0;
- for (n = 0; ipchar != '\n';) {
- if (unlikely (n == PPLEX_BUFF_LEN)) {
- if (line_overflow != 2) {
- line_overflow = 1;
- }
- }
- ipchar = getc (ppin);
- if (unlikely (ipchar == EOF)) {
- if (n > 0) {
- /* No end of line at end of file
- ignore if all space,
- otherwise raise an error */
- do {
- if (buff[--n] != ' ') break;
- } while (n != 0);
- if (n != 0) break;
- }
- if (newline_count == 0) {
- return YY_NULL;
- }
- /* FIXME: this doesn't check the buffer size ! */
- memset (buff, '\n', newline_count);
- buff[newline_count] = 0;
- ipchar = (int)newline_count;
- newline_count = 0;
- return ipchar;
- }
-#ifndef COB_EBCDIC_MACHINE
- if (unlikely (ipchar == 0x1A && !n)) {
- continue;
- }
-#endif
- if (unlikely (gotcr)) {
- gotcr = 0;
- if (ipchar != '\n') {
- if (likely (line_overflow == 0)) {
- buff[n++] = '\r';
- } else {
- line_overflow = 2;
- }
- }
- }
- if (unlikely (ipchar == '\r')) {
- gotcr = 1;
- continue;
- }
- if (unlikely (ipchar == '\t')) {
- if (likely (line_overflow == 0)) {
- buff[n++] = ' ';
- while (n % cb_tab_width != 0) {
- buff[n++] = ' ';
- }
- if (unlikely (n > PPLEX_BUFF_LEN)) {
- n = PPLEX_BUFF_LEN;
- }
- }
- continue;
- }
- if (likely (line_overflow == 0)) {
- buff[n++] = (char)ipchar;
- } else if (!is_space_or_nl ((char)ipchar)) {
- line_overflow = 2;
- }
- }
-
- if (buff[n - 1] != '\n') {
- /* FIXME: cb_source_line is one too low when CB_FORMAT_FREE is used
- [but only during ppinput() in pplex.l ?]
- Workaround for now: Temporary newline_count + 1
- */
- if (source_format == CB_FORMAT_FREE) {
- if (line_overflow == 0) {
- cb_plex_warning (cb_missing_newline, newline_count + 1,
- _("line not terminated by a newline"));
- n++;
- } else if (line_overflow == 2) {
- cb_plex_warning (COBC_WARN_FILLER, newline_count + 1,
- _("source text exceeds %d bytes, will be truncated"),
- PPLEX_BUFF_LEN);
- }
- } else {
- if (line_overflow == 0) {
- cb_plex_warning (cb_missing_newline, newline_count,
- _("line not terminated by a newline"));
- n++;
- } else if (line_overflow == 2) {
- cb_plex_warning (COBC_WARN_FILLER, newline_count,
- _("source text exceeds %d bytes, will be truncated"),
- PPLEX_BUFF_LEN);
- }
- }
- buff[n++] = '\n';
- }
- buff[n] = 0;
-
- /* check for vcs conflict marker */
- if (n == 8 || (n > 8 && isspace((unsigned char) buff[7]))) {
- if (memcmp("<<<<<<<", buff, 7) == 0
- || memcmp("=======", buff, 7) == 0
- || memcmp(">>>>>>>", buff, 7) == 0) {
- /* FIXME: the different line numbers (see test "conflict markers"
- are definitely a bug to solve in short time */
- if (source_format == CB_FORMAT_FREE) {
- ++newline_count;
- }
- cb_plex_error (newline_count,
- _("version control conflict marker in file"));
- if (source_format != CB_FORMAT_FREE) {
- ++newline_count;
- }
- goto start;
- }
- }
-
- if (source_format == CB_FORMAT_FREE) {
- bp = buff;
- } else {
- if (n <= indicator_column) {
- /* Line too short */
- newline_count++;
- goto start;
- }
-
- if (buff[0] == '*'
- && cb_flag_mfcomment
- && CB_MFCOMMENT_APPLIES (source_format)) {
- newline_count++;
- goto start;
- }
-
- /* Check if text is longer than text_column */
- if (n > text_column + 1) {
- /* Show warning if it is not whitespace
- (postponed after checking for comments by setting
- line_overflow to first column that leads to
- "source text too long")
- */
- if (get_warn_opt_value (cb_warn_column_overflow) && line_overflow == 0) {
- for (coln = text_column; coln < n; ++coln) {
- if (!is_space_or_nl (buff[coln])) {
- line_overflow = coln;
- break;
- }
- }
- } else {
- line_overflow = 0;
- }
- /* Remove it */
- buff[text_column] = '\n';
- buff[text_column + 1] = 0;
- n = text_column + 1;
- } else {
- line_overflow = 0;
- }
-
- memset (buff, ' ', (size_t)(indicator_column - 1));
- /* Note we allow directive lines to start in the indicator column */
- bp = &buff[indicator_column - 1];
-
- /* Special case: acucomment must be checked here as we'd pass comments
- as directives otherwise */
- if (cb_flag_acucomment && buff[indicator_column - 1] == '$') {
- buff[indicator_column - 1] = '*';
- }
- }
-
- /* Check for directives/floating comment at first non-space of line */
- ipchar = 0;
- for (; *bp; bp++) {
- if (*bp != ' ') {
- if ((*bp == '$' && bp[1] != ' ')
- || (*bp == '>' && bp[1] == '>')) {
- /* Directive */
- ipchar = 1;
- } else if (*bp == '*' && bp[1] == '>') {
- /* Float comment */
- newline_count++;
- goto start;
- } else if (cb_flag_acucomment && *bp == '|') {
- /* ACU Float comment */
- newline_count++;
- goto start;
- }
- break;
- }
- }
- if (ipchar && (!plex_skip_input
- || is_condition_directive_clause (bp))) {
- /* Directive - pass complete line with NL to ppparse */
- if (newline_count) {
- /* FIXME: this doesn't check the buffer size ! */
- /* Move including NL and NULL byte */
- memmove (buff + newline_count, buff, (size_t)n + 1);
- memset (buff, '\n', newline_count);
- n += newline_count;
- newline_count = 0;
- }
- return n;
- }
-
- if (plex_skip_input) {
- /* Skipping input */
- newline_count++;
- if (cb_src_list_file) {
- skip = cobc_malloc (sizeof (struct list_skip));
- skip->skipline = cb_source_line + (int)newline_count;
-
- if (cb_current_file->skip_tail) {
- cb_current_file->skip_tail->next = skip;
- }
- cb_current_file->skip_tail = skip;
-
- if (!cb_current_file->skip_head) {
- cb_current_file->skip_head = skip;
- }
- }
- goto start;
- }
-
- /*
- Check that line isn't start of ID DIVISION comment paragraph.
- */
- if (comment_allowed && next_word_is_comment_paragraph_name (bp)) {
- /* Skip comments until the end of line. */
- within_comment = 1;
- ++newline_count;
- goto start;
- }
-
- /* Return when free format (no floating comments removed!) */
- if (source_format == CB_FORMAT_FREE) {
- within_comment = 0;
- if (newline_count) {
- memmove (buff + newline_count, buff, (size_t)n + 1);
- memset (buff, '\n', newline_count);
- n += newline_count;
- newline_count = 0;
- }
- return n;
- }
-
- /* Fixed format */
-
- /* Check the indicator */
- indicator_width = 1;
- switch (buff[indicator_column - 1]) {
- case ' ':
- if (floating_area_b) { /* indicator is optional */
- indicator_width = 0;
- }
- break;
- case '-':
- if (source_format == CB_FORMAT_XOPEN_FFF) {
- /* X/Open free-form does not interpret '-' as
- continuation indicator */
- indicator_width = 0;
- break;
- }
- if (unlikely (within_comment)) {
- cb_plex_error (newline_count,
- _("invalid continuation in comment entry"));
- newline_count++;
- goto start;
- } else if (!need_continuation) {
- cb_plex_verify (newline_count, cb_word_continuation,
- _("continuation of COBOL words"));
- }
- continuation = 1;
- break;
- case 'd':
- case 'D':
- if (source_format == CB_FORMAT_ACUTERM) {
- indicator_width = 0;
- break; /* ACU terminal: this 'D' denotes a nominal text line */
- } else if (source_format == CB_FORMAT_XOPEN_FFF) {
- if (buff[indicator_column - 1] == 'D' &&
- buff[indicator_column] == ' ') {
- indicator_width = 2;
- } else {
- /* X/Open free-form: not a debugging line */
- indicator_width = 0;
- break;
- }
- }
- /* Debugging line */
- (void) cb_verify (cb_debugging_mode, _("debugging indicator"));
- if (cb_flag_debugging_line) {
- break;
- }
- newline_count++;
- goto start;
- case '*': /* Comment line */
- case '/': /* Comment line requested page-break in listing */
- newline_count++;
- goto start;
- case '\\':
- if (buff[indicator_column] == 'D' &&
- source_format == CB_FORMAT_ACUTERM) {
- /* ACUTERM debugging line */
- (void) cb_verify (cb_debugging_mode, _("debugging indicator"));
- indicator_width = 2;
- if (cb_flag_debugging_line) {
- break;
- }
- } else {
- /* Invalid ACU terminal indicator? */
- cb_plex_error (newline_count,
- _("invalid indicator '\\' at column %d"),
- indicator_column);
- }
- newline_count++;
- goto start;
- default:
- if (floating_area_b) { /* indicator is optional */
- indicator_width = 0;
- break;
- }
- /* Invalid indicator */
- cb_plex_error (newline_count,
- _("invalid indicator '%c' at column %d"),
- buff[indicator_column - 1], indicator_column);
- /* Note: Treat as comment line to allow further parsing
- instead of aborting compilation */
- newline_count++;
- goto start;
- }
-
- /* Skip comments that follow after AUTHORS, etc. */
- if (unlikely (within_comment)) {
- /* Check all of "Area A" */
- const int margin_a = cobc_get_margin_a (indicator_width);
- const int margin_b = cobc_get_margin_b (indicator_width);
- const int ipchar_max = (n - 1 < margin_b) ? n - 1 : margin_b;
- for (ipchar = margin_a;
- ipchar < ipchar_max && buff[ipchar] == ' ';
- ++ipchar);
- if (ipchar == ipchar_max) {
- newline_count++;
- goto start;
- }
- within_comment = 0;
- }
-
- /* Skip blank lines */
- for (i = indicator_column; buff[i] == ' '; ++i);
- if (buff[i] == '\n') {
- newline_count++;
- goto start;
- }
-
- /* Substitute spaces for indicator, and check whether area A is blank */
- {
- const int margin_a = cobc_get_margin_a (indicator_width);
- const int margin_b = cobc_get_margin_b (indicator_width);
- for (i = indicator_column - 1; i < margin_a; i++) {
- buff[i] = ' ';
- }
- bp = buff + margin_a;
-
- in_area_a = 0;
- if (emit_area_a_tokens) {
- for (i = margin_a; i < margin_b; i++)
- in_area_a |= buff[i] != ' ';
- }
- }
-
- if (unlikely (continuation)) {
- /* Line continuation */
- need_continuation = 0;
- for (; *bp == ' '; ++bp) {
- ;
- }
- /* Validate concatenation */
- if (consecutive_quotation) {
- if (bp[0] == quotation_mark && bp[1] == quotation_mark) {
- bp++;
- } else {
- cb_plex_error (newline_count,
- _("invalid line continuation"));
- return YY_NULL;
- }
- quotation_mark = 0;
- consecutive_quotation = 0;
- } else if (quotation_mark) {
- /* Literal concatenation */
- if (*bp == quotation_mark) {
- bp++;
- } else {
- cb_plex_error (newline_count,
- _("invalid line continuation"));
- return YY_NULL;
- }
- }
- } else {
- /* Normal line */
- if (need_continuation) {
- cb_plex_error (newline_count,
- _("continuation character expected"));
- need_continuation = 0;
- }
- quotation_mark = 0;
- consecutive_quotation = 0;
- }
-
- /* Check if string literal is to be continued */
- for (i = bp - buff; buff[i] != '\n'; ++i) {
- /* Pick up floating comment and force loop exit */
- if (!quotation_mark && ((buff[i] == '*' && buff[i + 1] == '>') ||
- (cb_flag_acucomment && buff[i] == '|'))) {
- /* remove indicator "source text too long" if the column
- leading to the indicator comes after the floating comment
- */
- if (i < text_column) {
- line_overflow = 0;
- }
- /* Set to null, 'i' is predecremented further below */
- buff[i] = 0;
- break;
- } else if (buff[i] == '\'' || buff[i] == '"') {
- if (quotation_mark == 0) {
- /* Literal start */
- quotation_mark = buff[i];
- } else if (quotation_mark == buff[i]) {
- if (i == text_column - 1) {
- /* Consecutive quotation */
- consecutive_quotation = 1;
- } else {
- /* Literal end */
- quotation_mark = 0;
- }
- }
- }
- }
-
- if (unlikely (quotation_mark)) {
- /* Expecting continuation */
- if (!consecutive_quotation) {
- need_continuation = 1;
- }
- if (fill_continued_alnums) {
- for (; i < text_column;) {
- buff[i++] = ' ';
- }
- }
- buff[i] = 0;
- } else {
- /* Truncate trailing spaces, including the newline */
- for (i--; i >= 0 && buff[i] == ' '; i--) {
- ;
- }
- if (i < 0) {
- /* Empty line after removing floating comment */
- newline_count++;
- goto start;
- }
- if (buff[i] == '\'' || buff[i] == '\"') {
- buff[++i] = ' ';
- }
- buff[i + 1] = 0;
- }
-
- /* Show warning if text is longer than text_column
- and not whitespace (postponed here) */
- if (line_overflow != 0) {
- cb_plex_warning (cb_warn_source_after_code, newline_count,
- _("source text after program-text area (column %d)"),
- text_column);
- }
-
- if (unlikely (continuation)) {
- gotcr = strlen (bp);
- memmove (buff, bp, gotcr + 1);
- newline_count++;
- } else {
- /* Insert newlines at the start of the buffer */
- gotcr = strlen (buff);
- if (in_area_a) {
- /* (*area-a*): prepend special marker `#', indicating
- the current non-continuation line starts in area A
- (see "AREA_A" and "MAYBE_AREA_A"... in lexer rules
- above).
-
- Assumes `buff' is large enough for one extra char. */
- memmove (buff + 1, buff, gotcr + 1);
- buff[0] = '#';
- gotcr += 1;
- }
- if (newline_count != 0) {
- memmove (buff + newline_count, buff, gotcr + 1);
- memset (buff, '\n', newline_count);
- gotcr += newline_count;
- }
- newline_count = 1;
- }
- return (int)gotcr;
-}
-
-static struct cb_text_list *
-pp_text_list_add (struct cb_text_list *list, const char *text,
- const size_t size)
-{
- struct cb_text_list *p;
- void *tp;
-
- p = cobc_plex_malloc (sizeof (struct cb_text_list));
- tp = cobc_plex_malloc (size + 1);
- memcpy (tp, text, size);
- p->text = tp;
- if (!list) {
- p->last = p;
- return p;
- }
- list->last->next = p;
- list->last = p;
- return list;
-}
-
-static void
-ppecho (const char *text, const char *token)
-{
- cb_ppecho_copy_replace (text, token);
-}
-
-static void
-skip_to_eol (void)
-{
- int c;
-
- /* Skip bytes to end of line */
- while ((c = input ()) != EOF) {
- if (c == '\n') {
- break;
- }
- }
- if (c != EOF) {
- unput (c);
- }
-}
-
-static void
-count_newlines (const char *p)
-{
- for (; *p; p++)
- if (*p == '\n')
- newline_count++;
-}
-
-static void
-display_finish (void)
-{
- if (!plex_skip_input) {
- int msg_len = strlen (display_msg) - 1;
- while (msg_len != 0 && display_msg[msg_len] == ' ') {
- display_msg[msg_len--] = 0;
- }
- puts (display_msg);
- display_msg[0] = 0;
- }
- unput ('\n');
-}
-
-void cb_ppecho_direct (const char *text, const char *token )
-{
- if (text[0] == '\n' && text[1] == 0) {
- if (echo_newline == 0) {
- /* always keep one trailing \n */
- fputc ('\n', ppout);
- }
- echo_newline++;
- } else {
- output_pending_newlines (ppout);
- fputs (text, ppout);
- }
- if (cb_listing_file) {
- check_listing (token != NULL ? token : text, 0);
- }
-}
-
-static void
-check_listing (const char *text, const unsigned int comment)
-{
- const char *s;
- char c;
-
- /* Check for listing */
- if (!cb_listing_file) {
- /* Nothing to do */
- return;
- }
- if (!text) {
- return;
- }
-#ifndef COB_INTERNAL_XREF
- if (cobc_gen_listing == 2) {
- /* Passed to cobxref */
- fputs (text, cb_listing_file);
- return;
- }
-#endif
- if (comment) {
- c = '*';
- } else {
- c = ' ';
- }
-
- if (requires_listing_line) {
- fprintf (cb_listing_file, "%6d%c", ++listing_line, c);
- }
-
- if (requires_listing_line
- && source_format != CB_FORMAT_FREE) {
- if (strlen (text) >= (size_t)indicator_column) {
- s = text + indicator_column - 1;
- } else if (strchr (text, '\n')) {
- s = "\n"; /* no sequence area, but line break */
- } else {
- s = ""; /* do not output sequence area */
- }
- } else {
- s = text;
- }
- fputs (s, cb_listing_file);
- if (strchr (text, '\n')) {
- requires_listing_line = 1;
- } else {
- requires_listing_line = 0;
- }
-}
-
diff --git a/cobc/ppparse.c b/cobc/ppparse.c
deleted file mode 100644
index 76bc5e3..0000000
--- a/cobc/ppparse.c
+++ /dev/null
@@ -1,3787 +0,0 @@
-/* A Bison parser, made by GNU Bison 3.0.4. */
-
-/* Bison implementation for Yacc-like parsers in C
-
- Copyright (C) 1984, 1989-1990, 2000-2015 Free Software Foundation, Inc.
-
- This program 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.
-
- This program 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 this program. If not, see <http://www.gnu.org/licenses/>. */
-
-/* As a special exception, you may create a larger work that contains
- part or all of the Bison parser skeleton and distribute that work
- under terms of your choice, so long as that work isn't itself a
- parser generator using the skeleton or a modified version thereof
- as a parser skeleton. Alternatively, if you modify or redistribute
- the parser skeleton itself, you may (at your option) remove this
- special exception, which will cause the skeleton and the resulting
- Bison output files to be licensed under the GNU General Public
- License without this special exception.
-
- This special exception was added by the Free Software Foundation in
- version 2.2 of Bison. */
-
-/* C LALR(1) parser skeleton written by Richard Stallman, by
- simplifying the original so-called "semantic" parser. */
-
-/* All symbols defined below should begin with yy or YY, to avoid
- infringing on user name space. This should be done even for local
- variables, as they might otherwise be expanded by user macros.
- There are some unavoidable exceptions within include files to
- define necessary library symbols; they are noted "INFRINGES ON
- USER NAME SPACE" below. */
-
-/* Identify Bison output. */
-#define YYBISON 1
-
-/* Bison version. */
-#define YYBISON_VERSION "3.0.4"
-
-/* Skeleton name. */
-#define YYSKELETON_NAME "yacc.c"
-
-/* Pure parsers. */
-#define YYPURE 0
-
-/* Push parsers. */
-#define YYPUSH 0
-
-/* Pull parsers. */
-#define YYPULL 1
-
-
-/* Substitute the variable and function names. */
-#define yyparse ppparse
-#define yylex pplex
-#define yyerror pperror
-#define yydebug ppdebug
-#define yynerrs ppnerrs
-
-#define yylval pplval
-#define yychar ppchar
-
-/* Copy the first part of user declarations. */
-#line 34 "ppparse.y" /* yacc.c:339 */
-
-#include "config.h"
-
-#include <stdio.h>
-#include <stdarg.h>
-#include <stdlib.h>
-#include <string.h>
-#ifdef HAVE_STRINGS_H
-#include <strings.h>
-#endif
-#include <ctype.h>
-
-#define COB_IN_PPPARSE 1
-#include "cobc.h"
-#include "tree.h"
-
-#ifndef _STDLIB_H
-#define _STDLIB_H 1
-#endif
-
-#define pperror(x) cb_error_always ("%s", x)
-
-#define COND_EQ 0
-#define COND_LT 1U
-#define COND_GT 2U
-#define COND_LE 3U
-#define COND_GE 4U
-#define COND_NE 5U
-
-/* Global variables */
-
-int current_call_convention;
-
-/* Local variables */
-
-static struct cb_define_struct *ppp_setvar_list = NULL;
-static enum cb_directive_action current_cmd = PLEX_ACT_IF;
-
-/* Local functions */
-
-/* Strips the given string from its quotation characters, if any. Returns its
- argument as is otherwise. */
-static char *
-unquote (char *name)
-{
- size_t size;
- if ((name[0] == '\'' || name[0] == '"') && (size = strlen (name)) > 1 &&
- (name[0] == name[size - 1])) {
- name[size - 1] = '\0';
- name++;
- }
- return name;
-}
-#define fix_filename(filename) unquote (filename)
-
-static int
-literal_is_space_keyword (char *lit)
-{
- return (strcmp ("SPACE", lit) == 0
- || strcmp ("SPACES", lit) == 0);
-}
-
-static char *
-literal_token (char *t, int allow_spaces)
-{
- if (t[0] == '\'' || t[0] == '"') {
- if (cb_partial_replace_when_literal_src != CB_SKIP)
- (void) ppparse_verify (cb_partial_replace_when_literal_src,
- _("partial replacing with literal"));
- } else if (allow_spaces && literal_is_space_keyword (t)) {
- if (cb_partial_replace_when_literal_src != CB_SKIP)
- (void) ppparse_verify (cb_partial_replace_when_literal_src,
- _("partial replacing with literal"));
- t[0] = '\0';
- } else {
- ppparse_error (_("unexpected COBOL word in partial replacement "
- "phrase"));
- }
- return unquote (t);
-}
-
-static char *
-fold_lower (char *name)
-{
- unsigned char *p;
-
- for (p = (unsigned char *)name; *p; p++) {
- *p = (cob_u8_t)tolower (*p);
- }
- return name;
-}
-
-static char *
-fold_upper (char *name)
-{
- unsigned char *p;
-
- for (p = (unsigned char *)name; *p; p++) {
- *p = (cob_u8_t)toupper (*p);
- }
- return name;
-}
-
-static struct cb_replace_src *
-ppp_replace_src (const struct cb_text_list * const text_list,
- const unsigned int literal_src)
-{
- const unsigned int allow_empty_replacement =
- !literal_src || cb_partial_replace_when_literal_src != CB_SKIP;
- struct cb_replace_src *s = cobc_plex_malloc (sizeof (struct cb_replace_src));
- /* Note the two next fields are re-assessed in ppp_replace_list_add below */
- s->lead_trail = CB_REPLACE_ALL;
- s->strict = allow_empty_replacement ? 0 : 1;
- s->text_list = text_list;
- return s;
-}
-
-static struct cb_replace_list *
-ppp_replace_list_add (struct cb_replace_list *list,
- struct cb_replace_src *src,
- const struct cb_text_list *new_text,
- const unsigned int lead_or_trail)
-{
- struct cb_replace_list *p;
-
- p = cobc_plex_malloc (sizeof (struct cb_replace_list));
- p->line_num = cb_source_line;
- src->lead_trail = lead_or_trail;
- if (!lead_or_trail) {
- /* Strictness flag is irrelevant for non-LEADING nor TRAILING
- replacements */
- src->strict = 0;
- } else {
- /* Use replacement text to decide strictness of partial match */
- const unsigned char *c;
- int has_space = new_text->next != NULL;
- for (c = (unsigned char *) new_text->text; !has_space && *c; c++) {
- has_space = isspace(*c);
- }
- if (has_space) {
- /* Note: as it appears, multi-word or spaces in
- replacing is forbidden on GCOS. */
- ppparse_error (_("invalid partial replacing operand"));
- return NULL;
- }
- src->strict = src->strict && *new_text->text == '\0';
- }
- p->src = src;
- p->new_text = new_text;
- if (!list) {
- p->last = p;
- return p;
- }
- list->last->next = p;
- list->last = p;
- return list;
-}
-
-static unsigned int
-ppp_set_value (struct cb_define_struct *p, const char *value)
-{
- const char *s;
- size_t size;
- unsigned int dotseen;
-
- p->value = NULL;
- p->sign = 0;
- p->int_part = 0;
- p->dec_part = 0;
-
- if (!value) {
- p->deftype = PLEX_DEF_NONE;
- return 0;
- }
-
- if (*value == '"' || *value == '\'') {
- s = value + 1;
- size = strlen (s) - 1;
- if (s[size] != *value) {
- p->deftype = PLEX_DEF_NONE;
- return 1;
- }
- p->deftype = PLEX_DEF_LIT;
- p->value = cobc_plex_strdup (s);
- p->value[size] = 0;
- return 0;
- }
-
- if (*value == '(') {
- /* actual MicroFocus Format for numeric values: (numlit) */
- s = value + 1;
- size = strlen (s) - 1;
- if (s[size] != ')') {
- p->deftype = PLEX_DEF_NONE;
- return 1;
- }
- p->deftype = PLEX_DEF_NUM;
- p->value = cobc_plex_strdup (s);
- p->value[size] = 0;
- } else {
- /* compatibility because this was supported since OpenCOBOL 2.0 */
- p->deftype = PLEX_DEF_NUM;
- p->value = cobc_plex_strdup (value);
- }
-
- p->sign = 0;
- s = p->value;
- if (*s == '+') {
- s++;
- } else if (*s == '-') {
- s++;
- p->sign = 1;
- }
- dotseen = 0;
- for ( ; *s; ++s) {
- if (*s == '.') {
- if (dotseen) {
- p->deftype = PLEX_DEF_NONE;
- return 1;
- }
- dotseen = 1;
- continue;
- }
- if (*s > '9' || *s < '0') {
- p->deftype = PLEX_DEF_NONE;
- return 1;
- }
- if (!dotseen) {
- p->int_part = (p->int_part * 10) + (*s - '0');
- } else {
- p->dec_part = (p->dec_part * 10) + (*s - '0');
- }
- }
-
- if (!p->int_part && !p->dec_part) {
- p->sign = 0; /* zero is unsigned */
- }
- return 0;
-}
-
-static unsigned int
-ppp_compare_vals (const struct cb_define_struct *p1,
- const struct cb_define_struct *p2,
- const unsigned int cond)
-{
- int result;
-
- if (!p1 || !p2) {
- return 0;
- }
- if (p1->deftype != PLEX_DEF_LIT && p1->deftype != PLEX_DEF_NUM) {
- return 0;
- }
- if (p2->deftype != PLEX_DEF_LIT && p2->deftype != PLEX_DEF_NUM) {
- return 0;
- }
- if (p1->deftype != p2->deftype) {
- cb_warning (COBC_WARN_FILLER, _("directive comparison on different types"));
- return 0;
- }
- if (p1->deftype == PLEX_DEF_LIT) {
- result = strcmp (p1->value, p2->value);
- } else {
- if (p1->sign && !p2->sign) {
- result = -1;
- } else if (!p1->sign && p2->sign) {
- result = 1;
- } else if (p1->int_part < p2->int_part) {
- if (p1->sign) {
- result = 1;
- } else {
- result = -1;
- }
- } else if (p1->int_part > p2->int_part) {
- if (p1->sign) {
- result = -1;
- } else {
- result = 1;
- }
- } else if (p1->dec_part < p2->dec_part) {
- if (p1->sign) {
- result = 1;
- } else {
- result = -1;
- }
- } else if (p1->dec_part > p2->dec_part) {
- if (p1->sign) {
- result = -1;
- } else {
- result = 1;
- }
- } else {
- result = 0;
- }
- }
- switch (cond) {
- case COND_EQ:
- return (result == 0);
- case COND_LT:
- return (result < 0);
- case COND_GT:
- return (result > 0);
- case COND_LE:
- return (result <= 0);
- case COND_GE:
- return (result >= 0);
- case COND_NE:
- return (result != 0);
- default:
- break;
- }
- return 0;
-}
-
-static struct cb_define_struct *
-ppp_define_add (struct cb_define_struct *list, const char *name,
- const char *text, const unsigned int override)
-{
- struct cb_define_struct *p;
- struct cb_define_struct *l;
-
- /* Check duplicate */
- for (l = list; l; l = l->next) {
- if (!strcasecmp (name, l->name)) {
- if (!override && l->deftype != PLEX_DEF_DEL) {
- cb_error (_("duplicate DEFINE directive '%s'"), name);
- return NULL;
- }
- if (l->value) {
- l->value = NULL;
- }
- if (ppp_set_value (l, text)) {
- cb_error (_("invalid constant %s in DEFINE directive"), text);
- return NULL;
- }
- return list;
- }
- }
-
- p = cobc_plex_malloc (sizeof (struct cb_define_struct));
- p->name = cobc_plex_strdup (name);
- if (ppp_set_value (p, text)) {
- cb_error (_ ("invalid constant %s in DEFINE directive"), text);
- return NULL;
- }
-
- if (!list) {
- p->last = p;
- return p;
- }
- list->last->next = p;
- list->last = p;
- return list;
-}
-
-static void
-ppp_define_del (const char *name)
-{
- struct cb_define_struct *l;
-
- for (l = ppp_setvar_list; l; l = l->next) {
- if (!strcmp (name, l->name)) {
- l->deftype = PLEX_DEF_DEL;
- if (l->value) {
- l->value = NULL;
- }
- l->sign = 0;
- l->int_part = 0;
- l->dec_part = 0;
- break;
- }
- }
-}
-
-void
-ppp_clear_lists (void)
-{
- ppp_setvar_list = NULL;
-}
-
-struct cb_define_struct *
-ppp_search_lists (const char *name)
-{
- struct cb_define_struct *p;
-
- for (p = ppp_setvar_list; p; p = p->next) {
- if (p->name == NULL) {
- continue;
- }
- if (!strcasecmp (name, p->name)) {
- if (p->deftype != PLEX_DEF_DEL) {
- return p;
- }
- break;
- }
- }
- return NULL;
-}
-
-static struct cb_text_list *
-ppp_list_add (struct cb_text_list *list, const char *text)
-{
- struct cb_text_list *p;
-
- p = cobc_plex_malloc (sizeof (struct cb_text_list));
- p->text = cobc_plex_strdup (text);
- if (!list) {
- p->last = p;
- return p;
- }
- list->last->next = p;
- list->last = p;
- return list;
-}
-
-static struct cb_text_list *
-ppp_list_append (struct cb_text_list *list_1, struct cb_text_list *list_2)
-{
- struct cb_text_list *list_1_end;
-
- if (!list_1) {
- return list_2;
- }
-
- for (list_1_end = list_1;
- list_1_end->next;
- list_1_end = list_1_end->next);
- list_1_end->next = list_2;
- list_2->last = list_1_end;
-
- return list_1;
-}
-
-static unsigned int
-ppp_search_comp_vars (const char *name)
-{
-#undef CB_PARSE_DEF
-#define CB_PARSE_DEF(x,z) if (!cb_strcasecmp (name, x)) return (z);
-#include "ppparse.def"
-#undef CB_PARSE_DEF
- cb_warning (COBC_WARN_FILLER, _("compiler flag '%s' unknown"), name);
- return 0;
-}
-
-static unsigned int
-ppp_check_needs_quote (const char *envval)
-{
- const char *s;
- size_t size;
- unsigned int dot_seen;
- unsigned int sign_seen;
-
- /* Non-quoted value - Check if possible numeric */
- dot_seen = 0;
- sign_seen = 0;
- size = 0;
- s = envval;
- if (*s == '+' || *s == '-') {
- sign_seen = 1;
- size++;
- s++;
- }
- for (; *s; ++s) {
- if (*s == '.') {
- if (dot_seen) {
- break;
- }
- dot_seen = 1;
- size++;
- continue;
- }
- if (*s > '9' || *s < '0') {
- break;
- }
- size++;
- }
-
- if (*s || size <= ((size_t)dot_seen + sign_seen)) {
- return 1;
- }
- return 0;
-}
-
-static void
-ppp_error_invalid_option (const char *directive, const char *option)
-{
- if (option) {
- cb_error (_("invalid %s directive option '%s'"), directive, option);
- } else {
- cb_error (_("invalid %s directive option"), directive);
- }
-}
-
-static void
-append_to_turn_list (struct cb_text_list *ec_names, int enable, int with_location)
-{
- struct cb_turn_list *l;
- struct cb_turn_list *turn_list_end;
-
- /* Add turn directive data to end of cb_turn_list */
- l = cobc_plex_malloc (sizeof (struct cb_turn_list));
- l->ec_names = ec_names;
- l->enable = enable;
- l->with_location = with_location;
- l->next = NULL;
- /* The line number is set properly in the scanner */
- l->line = -1;
-
- if (cb_turn_list) {
- for (turn_list_end = cb_turn_list;
- turn_list_end->next;
- turn_list_end = turn_list_end->next);
- turn_list_end->next = l;
- } else {
- cb_turn_list = l;
- }
-
- /*
- Output #TURN so we can assign a line number to this data later in the
- scanner.
- */
- fprintf (ppout, "#TURN\n");
-}
-
-/* Global functions */
-
-void
-ppparse_clear_vars (const struct cb_define_struct *p)
-{
- const struct cb_define_struct *q;
-
- ppp_setvar_list = NULL;
- /* Set standard DEFINE's */
- if (cb_perform_osvs) {
- ppp_setvar_list = ppp_define_add (ppp_setvar_list,
- "PERFORM-TYPE",
- "'OSVS'", 0);
- } else {
- ppp_setvar_list = ppp_define_add (ppp_setvar_list,
- "PERFORM-TYPE",
- "'MF'", 0);
- }
- if (cb_ebcdic_sign) {
- ppp_setvar_list = ppp_define_add (ppp_setvar_list,
- "SIGN",
- "'EBCDIC'", 0);
- } else {
- ppp_setvar_list = ppp_define_add (ppp_setvar_list,
- "SIGN",
- "'ASCII'", 0);
- }
-#ifdef WORDS_BIGENDIAN
- ppp_setvar_list = ppp_define_add (ppp_setvar_list,
- "ENDIAN",
- "'BIG'", 0);
-#else
- ppp_setvar_list = ppp_define_add (ppp_setvar_list,
- "ENDIAN",
- "'LITTLE'", 0);
-#endif
-#if ' ' == 0x20
- ppp_setvar_list = ppp_define_add (ppp_setvar_list,
- "CHARSET",
- "'ASCII'", 0);
-#elif ' ' == 0x40
- ppp_setvar_list = ppp_define_add (ppp_setvar_list,
- "CHARSET",
- "'EBCDIC'", 0);
-#else
- ppp_setvar_list = ppp_define_add (ppp_setvar_list,
- "CHARSET",
- "'UNKNOWN'", 0);
-#endif
- /* Set DEFINE's from '-D' option(s) */
- for (q = p; q; q = q->next) {
- ppp_setvar_list = ppp_define_add (ppp_setvar_list,
- q->name,
- q->value, 0);
- }
- /* reset CALL CONVENTION */
- current_call_convention = CB_CONV_COBOL;
-}
-
-
-#line 659 "ppparse.c" /* yacc.c:339 */
-
-# ifndef YY_NULLPTR
-# if defined __cplusplus && 201103L <= __cplusplus
-# define YY_NULLPTR nullptr
-# else
-# define YY_NULLPTR 0
-# endif
-# endif
-
-/* Enabling verbose error messages. */
-#ifdef YYERROR_VERBOSE
-# undef YYERROR_VERBOSE
-# define YYERROR_VERBOSE 1
-#else
-# define YYERROR_VERBOSE 1
-#endif
-
-/* In a future release of Bison, this section will be replaced
- by #include "y.tab.h". */
-#ifndef YY_PP_PPPARSE_H_INCLUDED
-# define YY_PP_PPPARSE_H_INCLUDED
-/* Debug traces. */
-#ifndef YYDEBUG
-# define YYDEBUG 0
-#endif
-#if YYDEBUG
-extern int ppdebug;
-#endif
-
-/* Token type. */
-#ifndef YYTOKENTYPE
-# define YYTOKENTYPE
- enum yytokentype
- {
- TOKEN_EOF = 0,
- ALSO = 258,
- BY = 259,
- COPY = 260,
- EQEQ = 261,
- IN = 262,
- LAST = 263,
- LEADING = 264,
- OF = 265,
- OFF = 266,
- PRINTING = 267,
- REPLACE = 268,
- REPLACING = 269,
- SUPPRESS = 270,
- TRAILING = 271,
- DOT = 272,
- GARBAGE = 273,
- LISTING_DIRECTIVE = 274,
- LISTING_STATEMENT = 275,
- TITLE_STATEMENT = 276,
- COBOL_WORDS_DIRECTIVE = 277,
- EQUATE = 278,
- UNDEFINE = 279,
- SUBSTITUTE = 280,
- RESERVE = 281,
- CONTROL_STATEMENT = 282,
- SOURCE = 283,
- NOSOURCE = 284,
- LIST = 285,
- NOLIST = 286,
- MAP = 287,
- NOMAP = 288,
- LEAP_SECOND_DIRECTIVE = 289,
- CONTROL_DIVISION = 290,
- SUBSTITUTION_SECTION = 291,
- SOURCE_DIRECTIVE = 292,
- FORMAT = 293,
- IS = 294,
- CALL_DIRECTIVE = 295,
- COBOL = 296,
- TOK_EXTERN = 297,
- STDCALL = 298,
- STATIC = 299,
- DEFINE_DIRECTIVE = 300,
- AS = 301,
- PARAMETER = 302,
- OVERRIDE = 303,
- REFMOD_DIRECTIVE = 304,
- SET_DIRECTIVE = 305,
- ADDRSV = 306,
- ADDSYN = 307,
- AREACHECK = 308,
- NOAREACHECK = 309,
- ASSIGN = 310,
- BOUND = 311,
- CALLFH = 312,
- CHECKNUM = 313,
- COMP1 = 314,
- CONSTANT = 315,
- DPC_IN_DATA = 316,
- FOLDCOPYNAME = 317,
- MAKESYN = 318,
- NOBOUND = 319,
- NOCHECKNUM = 320,
- NODPC_IN_DATA = 321,
- NOFOLDCOPYNAME = 322,
- NOODOSLIDE = 323,
- NOSPZERO = 324,
- NOSSRANGE = 325,
- ODOSLIDE = 326,
- REMOVE = 327,
- SOURCEFORMAT = 328,
- SPZERO = 329,
- SSRANGE = 330,
- IF_DIRECTIVE = 331,
- ELSE_DIRECTIVE = 332,
- ENDIF_DIRECTIVE = 333,
- ELIF_DIRECTIVE = 334,
- GE = 335,
- LE = 336,
- LT = 337,
- GT = 338,
- EQ = 339,
- NE = 340,
- NOT = 341,
- THAN = 342,
- TO = 343,
- OR = 344,
- EQUAL = 345,
- GREATER = 346,
- LESS = 347,
- SET = 348,
- DEFINED = 349,
- TURN_DIRECTIVE = 350,
- ON = 351,
- CHECKING = 352,
- WITH = 353,
- LOCATION = 354,
- TERMINATOR = 355,
- TOKEN = 356,
- TEXT_NAME = 357,
- VARIABLE_NAME = 358,
- LITERAL = 359
- };
-#endif
-
-/* Value type. */
-#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
-
-union YYSTYPE
-{
-#line 619 "ppparse.y" /* yacc.c:355 */
-
- char *s;
- struct cb_text_list *l;
- struct cb_replace_src *p;
- struct cb_replace_list *r;
- struct cb_define_struct *ds;
- unsigned int ui;
- int si;
-
-#line 815 "ppparse.c" /* yacc.c:355 */
-};
-
-typedef union YYSTYPE YYSTYPE;
-# define YYSTYPE_IS_TRIVIAL 1
-# define YYSTYPE_IS_DECLARED 1
-#endif
-
-
-extern YYSTYPE pplval;
-
-int ppparse (void);
-
-#endif /* !YY_PP_PPPARSE_H_INCLUDED */
-
-/* Copy the second part of user declarations. */
-
-#line 832 "ppparse.c" /* yacc.c:358 */
-
-#ifdef short
-# undef short
-#endif
-
-#ifdef YYTYPE_UINT8
-typedef YYTYPE_UINT8 yytype_uint8;
-#else
-typedef unsigned char yytype_uint8;
-#endif
-
-#ifdef YYTYPE_INT8
-typedef YYTYPE_INT8 yytype_int8;
-#else
-typedef signed char yytype_int8;
-#endif
-
-#ifdef YYTYPE_UINT16
-typedef YYTYPE_UINT16 yytype_uint16;
-#else
-typedef unsigned short int yytype_uint16;
-#endif
-
-#ifdef YYTYPE_INT16
-typedef YYTYPE_INT16 yytype_int16;
-#else
-typedef short int yytype_int16;
-#endif
-
-#ifndef YYSIZE_T
-# ifdef __SIZE_TYPE__
-# define YYSIZE_T __SIZE_TYPE__
-# elif defined size_t
-# define YYSIZE_T size_t
-# elif ! defined YYSIZE_T
-# include <stddef.h> /* INFRINGES ON USER NAME SPACE */
-# define YYSIZE_T size_t
-# else
-# define YYSIZE_T unsigned int
-# endif
-#endif
-
-#define YYSIZE_MAXIMUM ((YYSIZE_T) -1)
-
-#ifndef YY_
-# if defined YYENABLE_NLS && YYENABLE_NLS
-# if ENABLE_NLS
-# include <libintl.h> /* INFRINGES ON USER NAME SPACE */
-# define YY_(Msgid) dgettext ("bison-runtime", Msgid)
-# endif
-# endif
-# ifndef YY_
-# define YY_(Msgid) Msgid
-# endif
-#endif
-
-#ifndef YY_ATTRIBUTE
-# if (defined __GNUC__ \
- && (2 < __GNUC__ || (__GNUC__ == 2 && 96 <= __GNUC_MINOR__))) \
- || defined __SUNPRO_C && 0x5110 <= __SUNPRO_C
-# define YY_ATTRIBUTE(Spec) __attribute__(Spec)
-# else
-# define YY_ATTRIBUTE(Spec) /* empty */
-# endif
-#endif
-
-#ifndef YY_ATTRIBUTE_PURE
-# define YY_ATTRIBUTE_PURE YY_ATTRIBUTE ((__pure__))
-#endif
-
-#ifndef YY_ATTRIBUTE_UNUSED
-# define YY_ATTRIBUTE_UNUSED YY_ATTRIBUTE ((__unused__))
-#endif
-
-#if !defined _Noreturn \
- && (!defined __STDC_VERSION__ || __STDC_VERSION__ < 201112)
-# if defined _MSC_VER && 1200 <= _MSC_VER
-# define _Noreturn __declspec (noreturn)
-# else
-# define _Noreturn YY_ATTRIBUTE ((__noreturn__))
-# endif
-#endif
-
-/* Suppress unused-variable warnings by "using" E. */
-#if ! defined lint || defined __GNUC__
-# define YYUSE(E) ((void) (E))
-#else
-# define YYUSE(E) /* empty */
-#endif
-
-#if defined __GNUC__ && 407 <= __GNUC__ * 100 + __GNUC_MINOR__
-/* Suppress an incorrect diagnostic about yylval being uninitialized. */
-# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN \
- _Pragma ("GCC diagnostic push") \
- _Pragma ("GCC diagnostic ignored \"-Wuninitialized\"")\
- _Pragma ("GCC diagnostic ignored \"-Wmaybe-uninitialized\"")
-# define YY_IGNORE_MAYBE_UNINITIALIZED_END \
- _Pragma ("GCC diagnostic pop")
-#else
-# define YY_INITIAL_VALUE(Value) Value
-#endif
-#ifndef YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
-# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
-# define YY_IGNORE_MAYBE_UNINITIALIZED_END
-#endif
-#ifndef YY_INITIAL_VALUE
-# define YY_INITIAL_VALUE(Value) /* Nothing. */
-#endif
-
-
-#if ! defined yyoverflow || YYERROR_VERBOSE
-
-/* The parser invokes alloca or malloc; define the necessary symbols. */
-
-# ifdef YYSTACK_USE_ALLOCA
-# if YYSTACK_USE_ALLOCA
-# ifdef __GNUC__
-# define YYSTACK_ALLOC __builtin_alloca
-# elif defined __BUILTIN_VA_ARG_INCR
-# include <alloca.h> /* INFRINGES ON USER NAME SPACE */
-# elif defined _AIX
-# define YYSTACK_ALLOC __alloca
-# elif defined _MSC_VER
-# include <malloc.h> /* INFRINGES ON USER NAME SPACE */
-# define alloca _alloca
-# else
-# define YYSTACK_ALLOC alloca
-# if ! defined _ALLOCA_H && ! defined EXIT_SUCCESS
-# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
- /* Use EXIT_SUCCESS as a witness for stdlib.h. */
-# ifndef EXIT_SUCCESS
-# define EXIT_SUCCESS 0
-# endif
-# endif
-# endif
-# endif
-# endif
-
-# ifdef YYSTACK_ALLOC
- /* Pacify GCC's 'empty if-body' warning. */
-# define YYSTACK_FREE(Ptr) do { /* empty */; } while (0)
-# ifndef YYSTACK_ALLOC_MAXIMUM
- /* The OS might guarantee only one guard page at the bottom of the stack,
- and a page size can be as small as 4096 bytes. So we cannot safely
- invoke alloca (N) if N exceeds 4096. Use a slightly smaller number
- to allow for a few compiler-allocated temporary stack slots. */
-# define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2006 */
-# endif
-# else
-# define YYSTACK_ALLOC YYMALLOC
-# define YYSTACK_FREE YYFREE
-# ifndef YYSTACK_ALLOC_MAXIMUM
-# define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM
-# endif
-# if (defined __cplusplus && ! defined EXIT_SUCCESS \
- && ! ((defined YYMALLOC || defined malloc) \
- && (defined YYFREE || defined free)))
-# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
-# ifndef EXIT_SUCCESS
-# define EXIT_SUCCESS 0
-# endif
-# endif
-# ifndef YYMALLOC
-# define YYMALLOC malloc
-# if ! defined malloc && ! defined EXIT_SUCCESS
-void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */
-# endif
-# endif
-# ifndef YYFREE
-# define YYFREE free
-# if ! defined free && ! defined EXIT_SUCCESS
-void free (void *); /* INFRINGES ON USER NAME SPACE */
-# endif
-# endif
-# endif
-#endif /* ! defined yyoverflow || YYERROR_VERBOSE */
-
-
-#if (! defined yyoverflow \
- && (! defined __cplusplus \
- || (defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL)))
-
-/* A type that is properly aligned for any stack member. */
-union yyalloc
-{
- yytype_int16 yyss_alloc;
- YYSTYPE yyvs_alloc;
-};
-
-/* The size of the maximum gap between one aligned stack and the next. */
-# define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1)
-
-/* The size of an array large to enough to hold all stacks, each with
- N elements. */
-# define YYSTACK_BYTES(N) \
- ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE)) \
- + YYSTACK_GAP_MAXIMUM)
-
-# define YYCOPY_NEEDED 1
-
-/* Relocate STACK from its old location to the new one. The
- local variables YYSIZE and YYSTACKSIZE give the old and new number of
- elements in the stack, and YYPTR gives the new location of the
- stack. Advance YYPTR to a properly aligned location for the next
- stack. */
-# define YYSTACK_RELOCATE(Stack_alloc, Stack) \
- do \
- { \
- YYSIZE_T yynewbytes; \
- YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \
- Stack = &yyptr->Stack_alloc; \
- yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \
- yyptr += yynewbytes / sizeof (*yyptr); \
- } \
- while (0)
-
-#endif
-
-#if defined YYCOPY_NEEDED && YYCOPY_NEEDED
-/* Copy COUNT objects from SRC to DST. The source and destination do
- not overlap. */
-# ifndef YYCOPY
-# if defined __GNUC__ && 1 < __GNUC__
-# define YYCOPY(Dst, Src, Count) \
- __builtin_memcpy (Dst, Src, (Count) * sizeof (*(Src)))
-# else
-# define YYCOPY(Dst, Src, Count) \
- do \
- { \
- YYSIZE_T yyi; \
- for (yyi = 0; yyi < (Count); yyi++) \
- (Dst)[yyi] = (Src)[yyi]; \
- } \
- while (0)
-# endif
-# endif
-#endif /* !YYCOPY_NEEDED */
-
-/* YYFINAL -- State number of the termination state. */
-#define YYFINAL 5
-/* YYLAST -- Last index in YYTABLE. */
-#define YYLAST 318
-
-/* YYNTOKENS -- Number of terminals. */
-#define YYNTOKENS 107
-/* YYNNTS -- Number of nonterminals. */
-#define YYNNTS 77
-/* YYNRULES -- Number of rules. */
-#define YYNRULES 220
-/* YYNSTATES -- Number of states. */
-#define YYNSTATES 316
-
-/* YYTRANSLATE[YYX] -- Symbol number corresponding to YYX as returned
- by yylex, with out-of-bounds checking. */
-#define YYUNDEFTOK 2
-#define YYMAXUTOK 359
-
-#define YYTRANSLATE(YYX) \
- ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK)
-
-/* YYTRANSLATE[TOKEN-NUM] -- Symbol number corresponding to TOKEN-NUM
- as returned by yylex, without out-of-bounds checking. */
-static const yytype_uint8 yytranslate[] =
-{
- 0, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 105, 106, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 1, 2, 3, 4,
- 5, 6, 7, 8, 9, 10, 11, 12, 13, 14,
- 15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
- 25, 26, 27, 28, 29, 30, 31, 32, 33, 34,
- 35, 36, 37, 38, 39, 40, 41, 42, 43, 44,
- 45, 46, 47, 48, 49, 50, 51, 52, 53, 54,
- 55, 56, 57, 58, 59, 60, 61, 62, 63, 64,
- 65, 66, 67, 68, 69, 70, 71, 72, 73, 74,
- 75, 76, 77, 78, 79, 80, 81, 82, 83, 84,
- 85, 86, 87, 88, 89, 90, 91, 92, 93, 94,
- 95, 96, 97, 98, 99, 100, 101, 102, 103, 104
-};
-
-#if YYDEBUG
- /* YYRLINE[YYN] -- Source line where rule number YYN was defined. */
-static const yytype_uint16 yyrline[] =
-{
- 0, 788, 788, 789, 797, 798, 799, 800, 804, 809,
- 812, 813, 816, 817, 821, 822, 826, 827, 828, 829,
- 833, 834, 835, 836, 837, 838, 839, 840, 842, 841,
- 847, 846, 851, 855, 860, 859, 872, 873, 881, 882,
- 890, 891, 895, 911, 912, 919, 926, 932, 944, 949,
- 953, 957, 962, 974, 988, 1000, 1004, 1010, 1015, 1020,
- 1024, 1028, 1032, 1037, 1045, 1049, 1056, 1063, 1074, 1079,
- 1084, 1125, 1129, 1136, 1137, 1144, 1152, 1153, 1160, 1168,
- 1169, 1176, 1185, 1188, 1195, 1200, 1208, 1217, 1225, 1226,
- 1230, 1239, 1272, 1276, 1292, 1299, 1307, 1314, 1322, 1332,
- 1335, 1336, 1340, 1341, 1345, 1346, 1350, 1351, 1352, 1353,
- 1354, 1355, 1358, 1359, 1362, 1364, 1368, 1372, 1379, 1383,
- 1390, 1394, 1398, 1405, 1406, 1410, 1411, 1415, 1416, 1420,
- 1425, 1430, 1435, 1442, 1449, 1456, 1466, 1481, 1489, 1490,
- 1491, 1495, 1496, 1500, 1513, 1527, 1531, 1535, 1539, 1543,
- 1547, 1551, 1555, 1559, 1563, 1567, 1574, 1579, 1586, 1595,
- 1608, 1611, 1618, 1619, 1622, 1624, 1629, 1632, 1639, 1640,
- 1647, 1651, 1658, 1662, 1666, 1670, 1677, 1681, 1706, 1710,
- 1714, 1718, 1725, 1735, 1739, 1747, 1751, 1755, 1762, 1766,
- 1773, 1777, 1784, 1791, 1806, 1810, 1818, 1822, 1829, 1849,
- 1852, 1860, 1863, 1871, 1874, 1882, 1885, 1891, 1891, 1892,
- 1892, 1893, 1893, 1894, 1894, 1895, 1895, 1896, 1896, 1897,
- 1897
-};
-#endif
-
-#if YYDEBUG || YYERROR_VERBOSE || 1
-/* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM.
- First, the terminals, then, starting at YYNTOKENS, nonterminals. */
-static const char *const yytname[] =
-{
- "\"end of file\"", "error", "$undefined", "ALSO", "BY", "COPY",
- "\"==\"", "IN", "LAST", "LEADING", "OF", "OFF", "PRINTING", "REPLACE",
- "REPLACING", "SUPPRESS", "TRAILING", "\".\"", "\"word\"",
- "LISTING_DIRECTIVE", "LISTING_STATEMENT", "TITLE_STATEMENT",
- "COBOL_WORDS_DIRECTIVE", "EQUATE", "UNDEFINE", "SUBSTITUTE", "RESERVE",
- "CONTROL_STATEMENT", "SOURCE", "NOSOURCE", "LIST", "NOLIST", "MAP",
- "NOMAP", "LEAP_SECOND_DIRECTIVE", "\"CONTROL DIVISION\"",
- "\"SUBSTITUTION SECTION\"", "SOURCE_DIRECTIVE", "FORMAT", "IS",
- "CALL_DIRECTIVE", "COBOL", "\"EXTERN\"", "STDCALL", "STATIC",
- "DEFINE_DIRECTIVE", "AS", "PARAMETER", "OVERRIDE", "REFMOD_DIRECTIVE",
- "SET_DIRECTIVE", "ADDRSV", "ADDSYN", "AREACHECK", "NOAREACHECK",
- "ASSIGN", "BOUND", "CALLFH", "CHECKNUM", "COMP1", "CONSTANT",
- "\"DPC-IN-DATA\"", "FOLDCOPYNAME", "MAKESYN", "NOBOUND", "NOCHECKNUM",
- "\"NODPC-IN-DATA\"", "NOFOLDCOPYNAME", "NOODOSLIDE", "NOSPZERO",
- "NOSSRANGE", "ODOSLIDE", "REMOVE", "SOURCEFORMAT", "SPZERO", "SSRANGE",
- "IF_DIRECTIVE", "ELSE_DIRECTIVE", "ENDIF_DIRECTIVE", "ELIF_DIRECTIVE",
- "\">=\"", "\"<=\"", "\"<\"", "\">\"", "\"=\"", "\"<>\"", "NOT", "THAN",
- "TO", "OR", "EQUAL", "GREATER", "LESS", "SET", "DEFINED",
- "TURN_DIRECTIVE", "ON", "CHECKING", "WITH", "LOCATION",
- "\"end of line\"", "\"Word or Literal\"", "\"Text-Name\"",
- "\"Variable\"", "\"Literal\"", "'('", "')'", "$accept",
- "program_structure", "program_with_control_division",
- "control_division_no_replace", "control_division_with_replace",
- "statement_list", "statement_no_replace_list", "statement",
- "statement_no_replace", "directive", "$@1", "$@2", "$@3",
- "if_directive_if", "if_directive_elif", "set_directive", "set_choice",
- "alnum_list", "alnum_equality_list", "alnum_equality", "alnum_with_list",
- "alnum_with", "alnum_by_list", "alnum_by", "set_options",
- "refmod_directive", "source_directive", "_literal", "define_directive",
- "cobol_words_directive", "listing_directive", "listing_statement",
- "control_options", "control_option", "_dot", "leap_second_directive",
- "turn_directive", "ec_list", "on_or_off", "on_with_loc", "with_loc",
- "call_directive", "call_choice", "if_directive", "garbage",
- "variable_or_literal", "object_id", "condition_clause", "copy_statement",
- "copy_source", "_copy_in", "in_or_of", "_copy_suppress",
- "_copy_replacing", "replace_statement_with_dot", "replace_statement",
- "replacing_list", "text_src", "text_dst", "text_partial_src",
- "text_partial_dst", "token_list", "identifier", "subscripts",
- "lead_trail", "unquoted_literal", "_override", "_not", "_also", "_last",
- "_as", "_format", "_is", "_printing", "_on", "_than", "_to", YY_NULLPTR
-};
-#endif
-
-# ifdef YYPRINT
-/* YYTOKNUM[NUM] -- (External) token number corresponding to the
- (internal) symbol number NUM (which must be that of a token). */
-static const yytype_uint16 yytoknum[] =
-{
- 0, 256, 257, 258, 259, 260, 261, 262, 263, 264,
- 265, 266, 267, 268, 269, 270, 271, 272, 273, 274,
- 275, 276, 277, 278, 279, 280, 281, 282, 283, 284,
- 285, 286, 287, 288, 289, 290, 291, 292, 293, 294,
- 295, 296, 297, 298, 299, 300, 301, 302, 303, 304,
- 305, 306, 307, 308, 309, 310, 311, 312, 313, 314,
- 315, 316, 317, 318, 319, 320, 321, 322, 323, 324,
- 325, 326, 327, 328, 329, 330, 331, 332, 333, 334,
- 335, 336, 337, 338, 339, 340, 341, 342, 343, 344,
- 345, 346, 347, 348, 349, 350, 351, 352, 353, 354,
- 355, 356, 357, 358, 359, 40, 41
-};
-# endif
-
-#define YYPACT_NINF -198
-
-#define yypact_value_is_default(Yystate) \
- (!!((Yystate) == (-198)))
-
-#define YYTABLE_NINF -208
-
-#define yytable_value_is_error(Yytable_value) \
- 0
-
- /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
- STATE-NUM. */
-static const yytype_int16 yypact[] =
-{
- -13, 9, 47, 123, 32, -198, 19, 43, 37, -198,
- -29, 61, 208, 38, 56, -198, -45, 41, 215, -198,
- -198, -198, -198, -15, -198, -198, -30, -198, -198, -198,
- 24, 79, -198, 170, 83, 123, 88, -198, -198, 67,
- -198, -198, 22, 115, -198, -198, -198, 124, 51, 52,
- 55, 52, -198, -198, -198, -198, -198, -198, -198, 50,
- -198, -198, -198, -198, -198, -198, 114, 49, 58, -28,
- -198, -198, -198, -198, -198, -198, -198, 62, 52, 62,
- -198, -198, 63, -198, 63, -198, 63, 59, 63, 108,
- 62, -198, -198, -198, -198, -198, -198, -198, -198, 52,
- 108, -198, 65, -33, 215, -198, 8, 15, -198, -198,
- -47, -198, 148, -198, 157, -198, -198, -198, -198, -198,
- 156, -62, 73, -198, -198, -198, 22, 178, 17, 2,
- -198, -198, 84, 85, 51, -198, -198, 81, 189, 55,
- -198, 81, -198, 94, -198, -43, -198, -198, -198, -198,
- 49, -198, 108, -198, -5, 111, 62, -198, 81, -198,
- -198, -198, -198, -198, 92, -198, 63, -198, 81, 10,
- -198, -198, -198, 99, -198, -198, 4, 6, -198, -198,
- 13, -198, -198, -198, -198, -1, -198, -198, -198, 123,
- 170, 186, 191, -198, -198, 26, 202, 2, 23, 107,
- 110, 112, 113, -198, 205, -198, 125, -198, -198, 126,
- -198, -198, -198, -198, -198, 138, -198, 164, 164, 139,
- -198, -198, -198, -198, -198, -198, 130, 130, -198, -198,
- -198, -198, 3, 118, -198, -198, -198, -198, -198, -198,
- -198, 22, 210, -198, -198, 23, 224, 28, -198, -198,
- -198, 17, -198, -198, -198, -37, 238, 29, -198, -198,
- 164, -198, -198, -198, -198, -198, 141, 96, -198, -198,
- 22, -198, -198, 29, -198, 30, -198, -198, -198, 31,
- -198, -198, -198, -198, -198, -198, -198, -198, -198, 162,
- 158, 158, -198, -198, 36, 36, -198, -198, -198, 245,
- -198, -198, -198, 163, 165, -198, -198, -198, -198, -198,
- 166, 167, 162, 162, -198, -198
-};
-
- /* YYDEFACT[STATE-NUM] -- Default reduction number in state STATE-NUM.
- Performed when YYTABLE does not specify something else to do. Zero
- means the default is an error. */
-static const yytype_uint8 yydefact[] =
-{
- 10, 0, 0, 3, 10, 1, 0, 203, 99, 102,
- 0, 0, 0, 114, 209, 34, 0, 215, 0, 28,
- 32, 33, 30, 0, 11, 14, 0, 18, 16, 15,
- 0, 0, 2, 6, 0, 4, 0, 158, 159, 160,
- 204, 206, 0, 0, 101, 100, 26, 112, 0, 0,
- 0, 0, 22, 106, 107, 108, 109, 110, 111, 112,
- 104, 116, 115, 27, 210, 20, 211, 0, 0, 207,
- 142, 21, 94, 85, 216, 24, 84, 0, 0, 0,
- 46, 56, 0, 48, 50, 51, 0, 0, 0, 207,
- 0, 57, 58, 59, 60, 61, 62, 63, 64, 0,
- 207, 69, 88, 82, 23, 40, 0, 0, 118, 25,
- 0, 17, 0, 168, 8, 10, 12, 157, 162, 163,
- 164, 0, 0, 196, 197, 190, 170, 0, 177, 0,
- 171, 113, 0, 0, 95, 76, 71, 96, 0, 97,
- 79, 98, 105, 0, 212, 0, 129, 130, 131, 132,
- 35, 127, 207, 208, 0, 0, 65, 73, 44, 45,
- 198, 47, 49, 52, 0, 53, 0, 55, 66, 0,
- 89, 70, 43, 0, 41, 37, 211, 211, 29, 36,
- 0, 138, 39, 31, 38, 0, 119, 169, 9, 5,
- 7, 213, 166, 161, 188, 0, 0, 0, 0, 0,
- 0, 0, 0, 184, 0, 103, 0, 77, 72, 0,
- 80, 19, 86, 87, 128, 0, 92, 199, 199, 0,
- 74, 42, 54, 68, 67, 83, 201, 201, 140, 141,
- 139, 122, 121, 0, 126, 117, 120, 124, 13, 214,
- 165, 0, 0, 176, 189, 0, 0, 0, 181, 182,
- 172, 180, 191, 192, 194, 0, 0, 0, 78, 81,
- 199, 200, 91, 90, 75, 202, 0, 0, 123, 125,
- 167, 156, 174, 0, 178, 0, 195, 193, 183, 0,
- 187, 173, 93, 150, 152, 153, 151, 154, 155, 219,
- 217, 217, 134, 133, 0, 0, 175, 179, 185, 0,
- 220, 149, 218, 146, 148, 144, 143, 135, 136, 186,
- 0, 0, 219, 219, 145, 147
-};
-
- /* YYPGOTO[NTERM-NUM]. */
-static const yytype_int16 yypgoto[] =
-{
- -198, -198, -198, -198, -198, 0, -198, -198, -32, -198,
- -198, -198, -198, -198, -198, -198, 149, -34, -198, -67,
- -198, 121, -198, 119, -198, -198, -198, -198, -198, -198,
- -198, -198, -198, 200, 201, -198, -198, -198, -198, -198,
- 60, -198, 143, 154, -198, -16, -4, -3, -198, 173,
- -198, -198, -198, -198, -198, 181, 21, -124, 53, 100,
- 27, 54, -179, -198, -123, -31, -197, 69, -198, -198,
- -27, -198, -25, -198, -198, 11, -164
-};
-
- /* YYDEFGOTO[NTERM-NUM]. */
-static const yytype_int16 yydefgoto[] =
-{
- -1, 2, 32, 33, 34, 3, 190, 24, 25, 26,
- 106, 107, 67, 178, 183, 104, 105, 137, 156, 157,
- 134, 135, 139, 140, 172, 75, 65, 171, 71, 52,
- 46, 27, 59, 60, 132, 63, 109, 110, 235, 236,
- 237, 150, 151, 179, 180, 181, 307, 294, 28, 39,
- 120, 121, 192, 242, 29, 30, 126, 127, 250, 204,
- 281, 195, 128, 255, 129, 161, 262, 266, 42, 43,
- 154, 66, 145, 240, 76, 303, 301
-};
-
- /* YYTABLE[YYPACT[STATE-NUM]] -- What to do in state STATE-NUM. If
- positive, shift that token. If negative, reduce the rule whose
- number is the opposite. If YYTABLE_NINF, syntax error. */
-static const yytype_int16 yytable[] =
-{
- 72, 115, 196, 197, 35, -141, 216, -142, 202, 175,
- 231, 223, 159, 153, 228, 68, 182, 141, 153, 251,
- 36, 263, 1, 167, 199, 112, 4, 200, 122, 247,
- 248, 123, 243, 249, 274, 279, 297, 298, 124, 37,
- 38, 113, 217, 144, 158, 144, 40, 5, 44, 61,
- 185, 41, 73, 162, -205, 163, 186, 165, 69, 70,
- 212, 213, 166, 282, 276, 168, 251, 131, 31, 277,
- 111, -207, -141, 169, 118, 47, 173, 119, 53, 54,
- 55, 56, 57, 58, 48, 49, 50, 51, 108, 220,
- 146, 147, 148, 149, 64, 232, 114, 233, 234, 218,
- 116, 233, 234, 203, -141, 117, -142, -141, -141, -142,
- -142, 176, 177, -137, 160, 189, 229, 70, 176, 177,
- 37, 38, 201, 125, 125, 215, 130, 244, 6, 194,
- 280, 244, 299, 45, 62, 222, 7, 74, 224, 305,
- 306, 131, 8, 9, 10, 11, 196, 197, 314, 315,
- 12, 226, 227, 144, 153, 133, 136, 13, 238, 138,
- 14, 152, 164, 15, 230, 187, 155, 160, 16, 170,
- 7, 191, 17, 18, 194, 6, 283, 284, 285, 286,
- 287, 288, 198, 206, 205, 208, 289, 290, 291, 8,
- 9, 10, 11, 209, 211, 219, 221, 12, 239, 19,
- 20, 21, 22, 225, 13, 241, 245, 14, 252, 257,
- 15, 253, 261, 254, 256, 16, 265, 269, 23, 17,
- 18, 283, 284, 285, 286, 287, 288, 271, 273, 258,
- 259, 289, 290, 291, 292, 293, 53, 54, 55, 56,
- 57, 58, 260, 264, 278, 302, 19, 20, 21, 22,
- 300, 309, 310, 174, 311, 207, 312, 313, 210, 142,
- 143, 184, 270, 77, 295, 23, 78, 79, 80, 81,
- 82, 83, 84, 85, 86, 87, 88, 89, 90, 91,
- 92, 93, 94, 95, 96, 97, 98, 99, 100, 101,
- 102, 308, 268, 214, 193, 188, 267, 246, 272, 0,
- 296, 275, 304, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 103
-};
-
-static const yytype_int16 yycheck[] =
-{
- 16, 33, 126, 126, 4, 1, 11, 1, 6, 1,
- 11, 1, 79, 46, 1, 60, 1, 51, 46, 198,
- 1, 218, 35, 90, 7, 1, 17, 10, 6, 6,
- 7, 9, 6, 10, 6, 6, 6, 6, 16, 101,
- 102, 17, 47, 39, 78, 39, 3, 0, 11, 11,
- 97, 8, 11, 84, 11, 86, 103, 88, 103, 104,
- 103, 104, 89, 260, 101, 99, 245, 17, 36, 106,
- 100, 104, 100, 100, 7, 104, 103, 10, 28, 29,
- 30, 31, 32, 33, 23, 24, 25, 26, 103, 156,
- 41, 42, 43, 44, 38, 96, 17, 98, 99, 104,
- 17, 98, 99, 101, 100, 17, 100, 103, 104, 103,
- 104, 103, 104, 100, 104, 115, 103, 104, 103, 104,
- 101, 102, 105, 101, 101, 152, 11, 101, 5, 101,
- 101, 101, 101, 96, 96, 166, 13, 96, 169, 103,
- 104, 17, 19, 20, 21, 22, 270, 270, 312, 313,
- 27, 176, 177, 39, 46, 104, 104, 34, 190, 104,
- 37, 103, 103, 40, 180, 17, 104, 104, 45, 104,
- 13, 15, 49, 50, 101, 5, 80, 81, 82, 83,
- 84, 85, 4, 98, 100, 104, 90, 91, 92, 19,
- 20, 21, 22, 4, 100, 84, 104, 27, 12, 76,
- 77, 78, 79, 104, 34, 14, 4, 37, 101, 4,
- 40, 101, 48, 101, 101, 45, 86, 99, 95, 49,
- 50, 80, 81, 82, 83, 84, 85, 17, 4, 104,
- 104, 90, 91, 92, 93, 94, 28, 29, 30, 31,
- 32, 33, 104, 104, 6, 87, 76, 77, 78, 79,
- 88, 6, 89, 104, 89, 134, 90, 90, 139, 59,
- 59, 107, 241, 48, 267, 95, 51, 52, 53, 54,
- 55, 56, 57, 58, 59, 60, 61, 62, 63, 64,
- 65, 66, 67, 68, 69, 70, 71, 72, 73, 74,
- 75, 295, 232, 150, 121, 114, 227, 197, 245, -1,
- 273, 247, 291, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, 103
-};
-
- /* YYSTOS[STATE-NUM] -- The (internal number of the) accessing
- symbol of state STATE-NUM. */
-static const yytype_uint8 yystos[] =
-{
- 0, 35, 108, 112, 17, 0, 5, 13, 19, 20,
- 21, 22, 27, 34, 37, 40, 45, 49, 50, 76,
- 77, 78, 79, 95, 114, 115, 116, 138, 155, 161,
- 162, 36, 109, 110, 111, 112, 1, 101, 102, 156,
- 3, 8, 175, 176, 11, 96, 137, 104, 23, 24,
- 25, 26, 136, 28, 29, 30, 31, 32, 33, 139,
- 140, 11, 96, 142, 38, 133, 178, 119, 60, 103,
- 104, 135, 152, 11, 96, 132, 181, 48, 51, 52,
- 53, 54, 55, 56, 57, 58, 59, 60, 61, 62,
- 63, 64, 65, 66, 67, 68, 69, 70, 71, 72,
- 73, 74, 75, 103, 122, 123, 117, 118, 103, 143,
- 144, 100, 1, 17, 17, 115, 17, 17, 7, 10,
- 157, 158, 6, 9, 16, 101, 163, 164, 169, 171,
- 11, 17, 141, 104, 127, 128, 104, 124, 104, 129,
- 130, 124, 140, 141, 39, 179, 41, 42, 43, 44,
- 148, 149, 103, 46, 177, 104, 125, 126, 124, 126,
- 104, 172, 172, 172, 103, 172, 177, 126, 124, 177,
- 104, 134, 131, 177, 123, 1, 103, 104, 120, 150,
- 151, 152, 1, 121, 150, 97, 103, 17, 162, 112,
- 113, 15, 159, 156, 101, 168, 164, 171, 4, 7,
- 10, 105, 6, 101, 166, 100, 98, 128, 104, 4,
- 130, 100, 103, 104, 149, 177, 11, 47, 104, 84,
- 126, 104, 172, 1, 172, 104, 179, 179, 1, 103,
- 152, 11, 96, 98, 99, 145, 146, 147, 115, 12,
- 180, 14, 160, 6, 101, 4, 166, 6, 7, 10,
- 165, 169, 101, 101, 101, 170, 101, 4, 104, 104,
- 104, 48, 173, 173, 104, 86, 174, 174, 147, 99,
- 163, 17, 165, 4, 6, 168, 101, 106, 6, 6,
- 101, 167, 173, 80, 81, 82, 83, 84, 85, 90,
- 91, 92, 93, 94, 154, 154, 167, 6, 6, 101,
- 88, 183, 87, 182, 182, 103, 104, 153, 153, 6,
- 89, 89, 90, 90, 183, 183
-};
-
- /* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */
-static const yytype_uint8 yyr1[] =
-{
- 0, 107, 108, 108, 109, 109, 109, 109, 110, 111,
- 112, 112, 113, 113, 114, 114, 115, 115, 115, 115,
- 116, 116, 116, 116, 116, 116, 116, 116, 117, 116,
- 118, 116, 116, 116, 119, 116, 120, 120, 121, 121,
- 122, 122, 123, 123, 123, 123, 123, 123, 123, 123,
- 123, 123, 123, 123, 123, 123, 123, 123, 123, 123,
- 123, 123, 123, 123, 123, 123, 123, 123, 123, 123,
- 123, 124, 124, 125, 125, 126, 127, 127, 128, 129,
- 129, 130, 131, 131, 132, 132, 133, 133, 134, 134,
- 135, 135, 135, 135, 135, 136, 136, 136, 136, 137,
- 137, 137, 138, 138, 139, 139, 140, 140, 140, 140,
- 140, 140, 141, 141, 142, 142, 142, 143, 144, 144,
- 145, 145, 145, 146, 146, 147, 147, 148, 148, 149,
- 149, 149, 149, 150, 150, 150, 150, 150, 151, 151,
- 151, 152, 152, 153, 153, 154, 154, 154, 154, 154,
- 154, 154, 154, 154, 154, 154, 155, 155, 156, 156,
- 157, 157, 158, 158, 159, 159, 160, 160, 161, 161,
- 162, 162, 163, 163, 163, 163, 164, 164, 165, 165,
- 165, 165, 165, 166, 166, 167, 167, 167, 168, 168,
- 169, 169, 169, 169, 170, 170, 171, 171, 172, 173,
- 173, 174, 174, 175, 175, 176, 176, 177, 177, 178,
- 178, 179, 179, 180, 180, 181, 181, 182, 182, 183,
- 183
-};
-
- /* YYR2[YYN] -- Number of symbols on the right hand side of rule YYN. */
-static const yytype_uint8 yyr2[] =
-{
- 0, 2, 3, 1, 1, 3, 1, 3, 2, 3,
- 0, 2, 0, 2, 1, 1, 1, 2, 1, 4,
- 2, 2, 2, 2, 2, 2, 2, 2, 0, 3,
- 0, 3, 1, 1, 0, 3, 1, 1, 1, 1,
- 1, 2, 3, 2, 2, 2, 1, 2, 1, 2,
- 1, 1, 2, 2, 3, 2, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 2, 2, 3, 3, 1,
- 2, 1, 2, 1, 2, 3, 1, 2, 3, 1,
- 2, 3, 0, 2, 1, 1, 3, 3, 0, 1,
- 4, 4, 3, 5, 1, 2, 2, 2, 2, 0,
- 1, 1, 1, 4, 1, 2, 1, 1, 1, 1,
- 1, 1, 0, 1, 0, 1, 1, 3, 1, 2,
- 1, 1, 1, 2, 1, 2, 1, 1, 2, 1,
- 1, 1, 1, 4, 4, 5, 5, 1, 1, 2,
- 2, 1, 1, 1, 1, 5, 2, 5, 2, 2,
- 1, 1, 1, 1, 1, 1, 6, 3, 1, 1,
- 0, 2, 1, 1, 0, 2, 0, 2, 2, 3,
- 3, 3, 3, 4, 4, 5, 3, 1, 2, 3,
- 1, 1, 1, 3, 1, 2, 3, 1, 1, 2,
- 1, 3, 3, 4, 1, 2, 1, 1, 1, 0,
- 1, 0, 1, 0, 1, 0, 1, 0, 1, 0,
- 1, 0, 1, 0, 1, 0, 1, 0, 1, 0,
- 1
-};
-
-
-#define yyerrok (yyerrstatus = 0)
-#define yyclearin (yychar = YYEMPTY)
-#define YYEMPTY (-2)
-#define YYEOF 0
-
-#define YYACCEPT goto yyacceptlab
-#define YYABORT goto yyabortlab
-#define YYERROR goto yyerrorlab
-
-
-#define YYRECOVERING() (!!yyerrstatus)
-
-#define YYBACKUP(Token, Value) \
-do \
- if (yychar == YYEMPTY) \
- { \
- yychar = (Token); \
- yylval = (Value); \
- YYPOPSTACK (yylen); \
- yystate = *yyssp; \
- goto yybackup; \
- } \
- else \
- { \
- yyerror (YY_("syntax error: cannot back up")); \
- YYERROR; \
- } \
-while (0)
-
-/* Error token number */
-#define YYTERROR 1
-#define YYERRCODE 256
-
-
-
-/* Enable debugging if requested. */
-#if YYDEBUG
-
-# ifndef YYFPRINTF
-# include <stdio.h> /* INFRINGES ON USER NAME SPACE */
-# define YYFPRINTF fprintf
-# endif
-
-# define YYDPRINTF(Args) \
-do { \
- if (yydebug) \
- YYFPRINTF Args; \
-} while (0)
-
-/* This macro is provided for backward compatibility. */
-#ifndef YY_LOCATION_PRINT
-# define YY_LOCATION_PRINT(File, Loc) ((void) 0)
-#endif
-
-
-# define YY_SYMBOL_PRINT(Title, Type, Value, Location) \
-do { \
- if (yydebug) \
- { \
- YYFPRINTF (stderr, "%s ", Title); \
- yy_symbol_print (stderr, \
- Type, Value); \
- YYFPRINTF (stderr, "\n"); \
- } \
-} while (0)
-
-
-/*----------------------------------------.
-| Print this symbol's value on YYOUTPUT. |
-`----------------------------------------*/
-
-static void
-yy_symbol_value_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep)
-{
- FILE *yyo = yyoutput;
- YYUSE (yyo);
- if (!yyvaluep)
- return;
-# ifdef YYPRINT
- if (yytype < YYNTOKENS)
- YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep);
-# endif
- YYUSE (yytype);
-}
-
-
-/*--------------------------------.
-| Print this symbol on YYOUTPUT. |
-`--------------------------------*/
-
-static void
-yy_symbol_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep)
-{
- YYFPRINTF (yyoutput, "%s %s (",
- yytype < YYNTOKENS ? "token" : "nterm", yytname[yytype]);
-
- yy_symbol_value_print (yyoutput, yytype, yyvaluep);
- YYFPRINTF (yyoutput, ")");
-}
-
-/*------------------------------------------------------------------.
-| yy_stack_print -- Print the state stack from its BOTTOM up to its |
-| TOP (included). |
-`------------------------------------------------------------------*/
-
-static void
-yy_stack_print (yytype_int16 *yybottom, yytype_int16 *yytop)
-{
- YYFPRINTF (stderr, "Stack now");
- for (; yybottom <= yytop; yybottom++)
- {
- int yybot = *yybottom;
- YYFPRINTF (stderr, " %d", yybot);
- }
- YYFPRINTF (stderr, "\n");
-}
-
-# define YY_STACK_PRINT(Bottom, Top) \
-do { \
- if (yydebug) \
- yy_stack_print ((Bottom), (Top)); \
-} while (0)
-
-
-/*------------------------------------------------.
-| Report that the YYRULE is going to be reduced. |
-`------------------------------------------------*/
-
-static void
-yy_reduce_print (yytype_int16 *yyssp, YYSTYPE *yyvsp, int yyrule)
-{
- unsigned long int yylno = yyrline[yyrule];
- int yynrhs = yyr2[yyrule];
- int yyi;
- YYFPRINTF (stderr, "Reducing stack by rule %d (line %lu):\n",
- yyrule - 1, yylno);
- /* The symbols being reduced. */
- for (yyi = 0; yyi < yynrhs; yyi++)
- {
- YYFPRINTF (stderr, " $%d = ", yyi + 1);
- yy_symbol_print (stderr,
- yystos[yyssp[yyi + 1 - yynrhs]],
- &(yyvsp[(yyi + 1) - (yynrhs)])
- );
- YYFPRINTF (stderr, "\n");
- }
-}
-
-# define YY_REDUCE_PRINT(Rule) \
-do { \
- if (yydebug) \
- yy_reduce_print (yyssp, yyvsp, Rule); \
-} while (0)
-
-/* Nonzero means print parse trace. It is left uninitialized so that
- multiple parsers can coexist. */
-int yydebug;
-#else /* !YYDEBUG */
-# define YYDPRINTF(Args)
-# define YY_SYMBOL_PRINT(Title, Type, Value, Location)
-# define YY_STACK_PRINT(Bottom, Top)
-# define YY_REDUCE_PRINT(Rule)
-#endif /* !YYDEBUG */
-
-
-/* YYINITDEPTH -- initial size of the parser's stacks. */
-#ifndef YYINITDEPTH
-# define YYINITDEPTH 200
-#endif
-
-/* YYMAXDEPTH -- maximum size the stacks can grow to (effective only
- if the built-in stack extension method is used).
-
- Do not make this value too large; the results are undefined if
- YYSTACK_ALLOC_MAXIMUM < YYSTACK_BYTES (YYMAXDEPTH)
- evaluated with infinite-precision integer arithmetic. */
-
-#ifndef YYMAXDEPTH
-# define YYMAXDEPTH 10000
-#endif
-
-
-#if YYERROR_VERBOSE
-
-# ifndef yystrlen
-# if defined __GLIBC__ && defined _STRING_H
-# define yystrlen strlen
-# else
-/* Return the length of YYSTR. */
-static YYSIZE_T
-yystrlen (const char *yystr)
-{
- YYSIZE_T yylen;
- for (yylen = 0; yystr[yylen]; yylen++)
- continue;
- return yylen;
-}
-# endif
-# endif
-
-# ifndef yystpcpy
-# if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE
-# define yystpcpy stpcpy
-# else
-/* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in
- YYDEST. */
-static char *
-yystpcpy (char *yydest, const char *yysrc)
-{
- char *yyd = yydest;
- const char *yys = yysrc;
-
- while ((*yyd++ = *yys++) != '\0')
- continue;
-
- return yyd - 1;
-}
-# endif
-# endif
-
-# ifndef yytnamerr
-/* Copy to YYRES the contents of YYSTR after stripping away unnecessary
- quotes and backslashes, so that it's suitable for yyerror. The
- heuristic is that double-quoting is unnecessary unless the string
- contains an apostrophe, a comma, or backslash (other than
- backslash-backslash). YYSTR is taken from yytname. If YYRES is
- null, do not copy; instead, return the length of what the result
- would have been. */
-static YYSIZE_T
-yytnamerr (char *yyres, const char *yystr)
-{
- if (*yystr == '"')
- {
- YYSIZE_T yyn = 0;
- char const *yyp = yystr;
-
- for (;;)
- switch (*++yyp)
- {
- case '\'':
- case ',':
- goto do_not_strip_quotes;
-
- case '\\':
- if (*++yyp != '\\')
- goto do_not_strip_quotes;
- /* Fall through. */
- default:
- if (yyres)
- yyres[yyn] = *yyp;
- yyn++;
- break;
-
- case '"':
- if (yyres)
- yyres[yyn] = '\0';
- return yyn;
- }
- do_not_strip_quotes: ;
- }
-
- if (! yyres)
- return yystrlen (yystr);
-
- return yystpcpy (yyres, yystr) - yyres;
-}
-# endif
-
-/* Copy into *YYMSG, which is of size *YYMSG_ALLOC, an error message
- about the unexpected token YYTOKEN for the state stack whose top is
- YYSSP.
-
- Return 0 if *YYMSG was successfully written. Return 1 if *YYMSG is
- not large enough to hold the message. In that case, also set
- *YYMSG_ALLOC to the required number of bytes. Return 2 if the
- required number of bytes is too large to store. */
-static int
-yysyntax_error (YYSIZE_T *yymsg_alloc, char **yymsg,
- yytype_int16 *yyssp, int yytoken)
-{
- YYSIZE_T yysize0 = yytnamerr (YY_NULLPTR, yytname[yytoken]);
- YYSIZE_T yysize = yysize0;
- enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 };
- /* Internationalized format string. */
- const char *yyformat = YY_NULLPTR;
- /* Arguments of yyformat. */
- char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM];
- /* Number of reported tokens (one for the "unexpected", one per
- "expected"). */
- int yycount = 0;
-
- /* There are many possibilities here to consider:
- - If this state is a consistent state with a default action, then
- the only way this function was invoked is if the default action
- is an error action. In that case, don't check for expected
- tokens because there are none.
- - The only way there can be no lookahead present (in yychar) is if
- this state is a consistent state with a default action. Thus,
- detecting the absence of a lookahead is sufficient to determine
- that there is no unexpected or expected token to report. In that
- case, just report a simple "syntax error".
- - Don't assume there isn't a lookahead just because this state is a
- consistent state with a default action. There might have been a
- previous inconsistent state, consistent state with a non-default
- action, or user semantic action that manipulated yychar.
- - Of course, the expected token list depends on states to have
- correct lookahead information, and it depends on the parser not
- to perform extra reductions after fetching a lookahead from the
- scanner and before detecting a syntax error. Thus, state merging
- (from LALR or IELR) and default reductions corrupt the expected
- token list. However, the list is correct for canonical LR with
- one exception: it will still contain any token that will not be
- accepted due to an error action in a later state.
- */
- if (yytoken != YYEMPTY)
- {
- int yyn = yypact[*yyssp];
- yyarg[yycount++] = yytname[yytoken];
- if (!yypact_value_is_default (yyn))
- {
- /* Start YYX at -YYN if negative to avoid negative indexes in
- YYCHECK. In other words, skip the first -YYN actions for
- this state because they are default actions. */
- int yyxbegin = yyn < 0 ? -yyn : 0;
- /* Stay within bounds of both yycheck and yytname. */
- int yychecklim = YYLAST - yyn + 1;
- int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS;
- int yyx;
-
- for (yyx = yyxbegin; yyx < yyxend; ++yyx)
- if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR
- && !yytable_value_is_error (yytable[yyx + yyn]))
- {
- if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM)
- {
- yycount = 1;
- yysize = yysize0;
- break;
- }
- yyarg[yycount++] = yytname[yyx];
- {
- YYSIZE_T yysize1 = yysize + yytnamerr (YY_NULLPTR, yytname[yyx]);
- if (! (yysize <= yysize1
- && yysize1 <= YYSTACK_ALLOC_MAXIMUM))
- return 2;
- yysize = yysize1;
- }
- }
- }
- }
-
- switch (yycount)
- {
-# define YYCASE_(N, S) \
- case N: \
- yyformat = S; \
- break
- YYCASE_(0, YY_("syntax error"));
- YYCASE_(1, YY_("syntax error, unexpected %s"));
- YYCASE_(2, YY_("syntax error, unexpected %s, expecting %s"));
- YYCASE_(3, YY_("syntax error, unexpected %s, expecting %s or %s"));
- YYCASE_(4, YY_("syntax error, unexpected %s, expecting %s or %s or %s"));
- YYCASE_(5, YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s"));
-# undef YYCASE_
- }
-
- {
- YYSIZE_T yysize1 = yysize + yystrlen (yyformat);
- if (! (yysize <= yysize1 && yysize1 <= YYSTACK_ALLOC_MAXIMUM))
- return 2;
- yysize = yysize1;
- }
-
- if (*yymsg_alloc < yysize)
- {
- *yymsg_alloc = 2 * yysize;
- if (! (yysize <= *yymsg_alloc
- && *yymsg_alloc <= YYSTACK_ALLOC_MAXIMUM))
- *yymsg_alloc = YYSTACK_ALLOC_MAXIMUM;
- return 1;
- }
-
- /* Avoid sprintf, as that infringes on the user's name space.
- Don't have undefined behavior even if the translation
- produced a string with the wrong number of "%s"s. */
- {
- char *yyp = *yymsg;
- int yyi = 0;
- while ((*yyp = *yyformat) != '\0')
- if (*yyp == '%' && yyformat[1] == 's' && yyi < yycount)
- {
- yyp += yytnamerr (yyp, yyarg[yyi++]);
- yyformat += 2;
- }
- else
- {
- yyp++;
- yyformat++;
- }
- }
- return 0;
-}
-#endif /* YYERROR_VERBOSE */
-
-/*-----------------------------------------------.
-| Release the memory associated to this symbol. |
-`-----------------------------------------------*/
-
-static void
-yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep)
-{
- YYUSE (yyvaluep);
- if (!yymsg)
- yymsg = "Deleting";
- YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp);
-
- YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
- YYUSE (yytype);
- YY_IGNORE_MAYBE_UNINITIALIZED_END
-}
-
-
-
-
-/* The lookahead symbol. */
-int yychar;
-
-/* The semantic value of the lookahead symbol. */
-YYSTYPE yylval;
-/* Number of syntax errors so far. */
-int yynerrs;
-
-
-/*----------.
-| yyparse. |
-`----------*/
-
-int
-yyparse (void)
-{
- int yystate;
- /* Number of tokens to shift before error messages enabled. */
- int yyerrstatus;
-
- /* The stacks and their tools:
- 'yyss': related to states.
- 'yyvs': related to semantic values.
-
- Refer to the stacks through separate pointers, to allow yyoverflow
- to reallocate them elsewhere. */
-
- /* The state stack. */
- yytype_int16 yyssa[YYINITDEPTH];
- yytype_int16 *yyss;
- yytype_int16 *yyssp;
-
- /* The semantic value stack. */
- YYSTYPE yyvsa[YYINITDEPTH];
- YYSTYPE *yyvs;
- YYSTYPE *yyvsp;
-
- YYSIZE_T yystacksize;
-
- int yyn;
- int yyresult;
- /* Lookahead token as an internal (translated) token number. */
- int yytoken = 0;
- /* The variables used to return semantic value and location from the
- action routines. */
- YYSTYPE yyval;
-
-#if YYERROR_VERBOSE
- /* Buffer for error messages, and its allocated size. */
- char yymsgbuf[128];
- char *yymsg = yymsgbuf;
- YYSIZE_T yymsg_alloc = sizeof yymsgbuf;
-#endif
-
-#define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N))
-
- /* The number of symbols on the RHS of the reduced rule.
- Keep to zero when no symbol should be popped. */
- int yylen = 0;
-
- yyssp = yyss = yyssa;
- yyvsp = yyvs = yyvsa;
- yystacksize = YYINITDEPTH;
-
- YYDPRINTF ((stderr, "Starting parse\n"));
-
- yystate = 0;
- yyerrstatus = 0;
- yynerrs = 0;
- yychar = YYEMPTY; /* Cause a token to be read. */
- goto yysetstate;
-
-/*------------------------------------------------------------.
-| yynewstate -- Push a new state, which is found in yystate. |
-`------------------------------------------------------------*/
- yynewstate:
- /* In all cases, when you get here, the value and location stacks
- have just been pushed. So pushing a state here evens the stacks. */
- yyssp++;
-
- yysetstate:
- *yyssp = yystate;
-
- if (yyss + yystacksize - 1 <= yyssp)
- {
- /* Get the current used size of the three stacks, in elements. */
- YYSIZE_T yysize = yyssp - yyss + 1;
-
-#ifdef yyoverflow
- {
- /* Give user a chance to reallocate the stack. Use copies of
- these so that the &'s don't force the real ones into
- memory. */
- YYSTYPE *yyvs1 = yyvs;
- yytype_int16 *yyss1 = yyss;
-
- /* Each stack pointer address is followed by the size of the
- data in use in that stack, in bytes. This used to be a
- conditional around just the two extra args, but that might
- be undefined if yyoverflow is a macro. */
- yyoverflow (YY_("memory exhausted"),
- &yyss1, yysize * sizeof (*yyssp),
- &yyvs1, yysize * sizeof (*yyvsp),
- &yystacksize);
-
- yyss = yyss1;
- yyvs = yyvs1;
- }
-#else /* no yyoverflow */
-# ifndef YYSTACK_RELOCATE
- goto yyexhaustedlab;
-# else
- /* Extend the stack our own way. */
- if (YYMAXDEPTH <= yystacksize)
- goto yyexhaustedlab;
- yystacksize *= 2;
- if (YYMAXDEPTH < yystacksize)
- yystacksize = YYMAXDEPTH;
-
- {
- yytype_int16 *yyss1 = yyss;
- union yyalloc *yyptr =
- (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize));
- if (! yyptr)
- goto yyexhaustedlab;
- YYSTACK_RELOCATE (yyss_alloc, yyss);
- YYSTACK_RELOCATE (yyvs_alloc, yyvs);
-# undef YYSTACK_RELOCATE
- if (yyss1 != yyssa)
- YYSTACK_FREE (yyss1);
- }
-# endif
-#endif /* no yyoverflow */
-
- yyssp = yyss + yysize - 1;
- yyvsp = yyvs + yysize - 1;
-
- YYDPRINTF ((stderr, "Stack size increased to %lu\n",
- (unsigned long int) yystacksize));
-
- if (yyss + yystacksize - 1 <= yyssp)
- YYABORT;
- }
-
- YYDPRINTF ((stderr, "Entering state %d\n", yystate));
-
- if (yystate == YYFINAL)
- YYACCEPT;
-
- goto yybackup;
-
-/*-----------.
-| yybackup. |
-`-----------*/
-yybackup:
-
- /* Do appropriate processing given the current state. Read a
- lookahead token if we need one and don't already have one. */
-
- /* First try to decide what to do without reference to lookahead token. */
- yyn = yypact[yystate];
- if (yypact_value_is_default (yyn))
- goto yydefault;
-
- /* Not known => get a lookahead token if don't already have one. */
-
- /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol. */
- if (yychar == YYEMPTY)
- {
- YYDPRINTF ((stderr, "Reading a token: "));
- yychar = yylex ();
- }
-
- if (yychar <= YYEOF)
- {
- yychar = yytoken = YYEOF;
- YYDPRINTF ((stderr, "Now at end of input.\n"));
- }
- else
- {
- yytoken = YYTRANSLATE (yychar);
- YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc);
- }
-
- /* If the proper action on seeing token YYTOKEN is to reduce or to
- detect an error, take that action. */
- yyn += yytoken;
- if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken)
- goto yydefault;
- yyn = yytable[yyn];
- if (yyn <= 0)
- {
- if (yytable_value_is_error (yyn))
- goto yyerrlab;
- yyn = -yyn;
- goto yyreduce;
- }
-
- /* Count tokens shifted since error; after three, turn off error
- status. */
- if (yyerrstatus)
- yyerrstatus--;
-
- /* Shift the lookahead token. */
- YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc);
-
- /* Discard the shifted token. */
- yychar = YYEMPTY;
-
- yystate = yyn;
- YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
- *++yyvsp = yylval;
- YY_IGNORE_MAYBE_UNINITIALIZED_END
-
- goto yynewstate;
-
-
-/*-----------------------------------------------------------.
-| yydefault -- do the default action for the current state. |
-`-----------------------------------------------------------*/
-yydefault:
- yyn = yydefact[yystate];
- if (yyn == 0)
- goto yyerrlab;
- goto yyreduce;
-
-
-/*-----------------------------.
-| yyreduce -- Do a reduction. |
-`-----------------------------*/
-yyreduce:
- /* yyn is the number of a rule to reduce with. */
- yylen = yyr2[yyn];
-
- /* If YYLEN is nonzero, implement the default value of the action:
- '$$ = $1'.
-
- Otherwise, the following line sets YYVAL to garbage.
- This behavior is undocumented and Bison
- users should not rely upon it. Assigning to YYVAL
- unconditionally makes the parser a bit smaller, and it avoids a
- GCC warning that YYVAL may be used uninitialized. */
- yyval = yyvsp[1-yylen];
-
-
- YY_REDUCE_PRINT (yyn);
- switch (yyn)
- {
- case 28:
-#line 842 "ppparse.y" /* yacc.c:1646 */
- {
- current_cmd = PLEX_ACT_IF;
- }
-#line 2192 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 30:
-#line 847 "ppparse.y" /* yacc.c:1646 */
- {
- current_cmd = PLEX_ACT_ELIF;
- }
-#line 2200 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 32:
-#line 852 "ppparse.y" /* yacc.c:1646 */
- {
- plex_action_directive (PLEX_ACT_ELSE, 0);
- }
-#line 2208 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 33:
-#line 856 "ppparse.y" /* yacc.c:1646 */
- {
- plex_action_directive (PLEX_ACT_END, 0);
- }
-#line 2216 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 34:
-#line 860 "ppparse.y" /* yacc.c:1646 */
- {
- current_call_convention = 0;
- }
-#line 2224 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 35:
-#line 864 "ppparse.y" /* yacc.c:1646 */
- {
- if (current_call_convention == CB_CONV_STATIC_LINK) {
- current_call_convention |= CB_CONV_COBOL;
- };
- }
-#line 2234 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 37:
-#line 874 "ppparse.y" /* yacc.c:1646 */
- {
- cb_error (_("invalid %s directive"), "IF");
- yyerrok;
- }
-#line 2243 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 39:
-#line 883 "ppparse.y" /* yacc.c:1646 */
- {
- cb_error (_("invalid %s directive"), "ELIF");
- yyerrok;
- }
-#line 2252 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 42:
-#line 896 "ppparse.y" /* yacc.c:1646 */
- {
- /* note: the old version was _as LITERAL but MF doesn't support this */
- struct cb_define_struct *p;
-
- p = ppp_define_add (ppp_setvar_list, (yyvsp[-1].s), (yyvsp[0].s), 1);
- if (p) {
- ppp_setvar_list = p;
- p = p->last;
- if (p->deftype == PLEX_DEF_NUM) {
- fprintf (ppout, "#DEFLIT %s %s\n", (yyvsp[-1].s), p->value);
- } else {
- fprintf (ppout, "#DEFLIT %s \"%s\"\n", (yyvsp[-1].s), p->value);
- }
- }
- }
-#line 2272 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 44:
-#line 913 "ppparse.y" /* yacc.c:1646 */
- {
- struct cb_text_list *l;
- for (l = (yyvsp[0].l); l; l = l->next) {
- fprintf (ppout, "#ADDRSV %s\n", l->text);
- }
- }
-#line 2283 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 45:
-#line 920 "ppparse.y" /* yacc.c:1646 */
- {
- struct cb_text_list *l;
- for (l = (yyvsp[0].l); l; l = l->next->next) {
- fprintf (ppout, "#ADDSYN %s %s\n", l->text, l->next->text);
- }
- }
-#line 2294 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 46:
-#line 927 "ppparse.y" /* yacc.c:1646 */
- {
- if (cobc_has_areacheck_directive ("AREACHECK")) {
- fprintf (ppout, "#AREACHECK\n");
- }
- }
-#line 2304 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 47:
-#line 933 "ppparse.y" /* yacc.c:1646 */
- {
- char *p = (yyvsp[0].s);
-
- if (!cb_strcasecmp (p, "EXTERNAL")) {
- fprintf (ppout, "#ASSIGN %d\n", (int)CB_ASSIGN_EXT_FILE_NAME_REQUIRED);
- } else if (!cb_strcasecmp (p, "DYNAMIC")) {
- fprintf (ppout, "#ASSIGN %d\n", (int)CB_ASSIGN_VARIABLE_DEFAULT);
- } else {
- ppp_error_invalid_option ("ASSIGN", p);
- }
- }
-#line 2320 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 48:
-#line 945 "ppparse.y" /* yacc.c:1646 */
- {
- /* Enable EC-BOUND-SUBSCRIPT checking */
- append_to_turn_list (ppp_list_add (NULL, "EC-BOUND-SUBSCRIPT"), 1, 0);
- }
-#line 2329 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 49:
-#line 950 "ppparse.y" /* yacc.c:1646 */
- {
- fprintf (ppout, "#CALLFH \"%s\"\n", (yyvsp[0].s));
- }
-#line 2337 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 50:
-#line 954 "ppparse.y" /* yacc.c:1646 */
- {
- fprintf (ppout, "#CALLFH \"EXTFH\"\n");
- }
-#line 2345 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 51:
-#line 958 "ppparse.y" /* yacc.c:1646 */
- {
- /* Enable EC-DATA-INCOMPATIBLE checking */
- append_to_turn_list (ppp_list_add (NULL, "EC-DATA-INCOMPATIBLE"), 1, 0);
- }
-#line 2354 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 52:
-#line 963 "ppparse.y" /* yacc.c:1646 */
- {
- char *p = (yyvsp[0].s);
-
- if (!cb_strcasecmp (p, "BINARY")) {
- cb_binary_comp_1 = 1;
- } else if (!cb_strcasecmp (p, "FLOAT")) {
- cb_binary_comp_1 = 0;
- } else {
- ppp_error_invalid_option ("COMP1", p);
- }
- }
-#line 2370 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 53:
-#line 975 "ppparse.y" /* yacc.c:1646 */
- {
- char *p = (yyvsp[0].s);
-
- if (!cb_strcasecmp (p, "XML")) {
- cb_dpc_in_data = CB_DPC_IN_XML;
- } else if (!cb_strcasecmp (p, "JSON")) {
- cb_dpc_in_data = CB_DPC_IN_JSON;
- } else if (!cb_strcasecmp (p, "ALL")) {
- cb_dpc_in_data = CB_DPC_IN_ALL;
- } else {
- ppp_error_invalid_option ("DPC-IN-DATA", p);
- }
- }
-#line 2388 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 54:
-#line 989 "ppparse.y" /* yacc.c:1646 */
- {
- char *p = (yyvsp[0].s);
-
- if (!cb_strcasecmp (p, "UPPER")) {
- cb_fold_copy = COB_FOLD_UPPER;
- } else if (!cb_strcasecmp (p, "LOWER")) {
- cb_fold_copy = COB_FOLD_LOWER;
- } else {
- ppp_error_invalid_option ("FOLD-COPY-NAME", p);
- }
- }
-#line 2404 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 55:
-#line 1001 "ppparse.y" /* yacc.c:1646 */
- {
- fprintf (ppout, "#MAKESYN %s %s\n", (yyvsp[0].l)->text, (yyvsp[0].l)->next->text);
- }
-#line 2412 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 56:
-#line 1005 "ppparse.y" /* yacc.c:1646 */
- {
- if (cobc_has_areacheck_directive ("NOAREACHECK")) {
- fprintf (ppout, "#NOAREACHECK\n");
- }
- }
-#line 2422 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 57:
-#line 1011 "ppparse.y" /* yacc.c:1646 */
- {
- /* Disable EC-BOUND-SUBSCRIPT checking */
- append_to_turn_list (ppp_list_add (NULL, "EC-BOUND-SUBSCRIPT"), 0, 0);
- }
-#line 2431 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 58:
-#line 1016 "ppparse.y" /* yacc.c:1646 */
- {
- /* Disable EC-DATA-INCOMPATIBLE checking */
- append_to_turn_list (ppp_list_add (NULL, "EC-DATA-INCOMPATIBLE"), 0, 0);
- }
-#line 2440 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 59:
-#line 1021 "ppparse.y" /* yacc.c:1646 */
- {
- cb_dpc_in_data = CB_DPC_IN_NONE;
- }
-#line 2448 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 60:
-#line 1025 "ppparse.y" /* yacc.c:1646 */
- {
- cb_fold_copy = 0;
- }
-#line 2456 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 61:
-#line 1029 "ppparse.y" /* yacc.c:1646 */
- {
- fprintf (ppout, "#ODOSLIDE 0\n");
- }
-#line 2464 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 62:
-#line 1033 "ppparse.y" /* yacc.c:1646 */
- {
- CB_PENDING ("SPZERO");
- /* TODO: cb_space_is_zero = 0; */
- }
-#line 2473 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 63:
-#line 1038 "ppparse.y" /* yacc.c:1646 */
- {
- /* Disable EC-BOUND-SUBSCRIPT and -REF-MOD checking */
- struct cb_text_list *txt = ppp_list_add (NULL, "EC-BOUND-SUBSCRIPT");
- txt = ppp_list_add (txt, "EC-BOUND-REF-MOD");
-
- append_to_turn_list (txt, 0, 0);
- }
-#line 2485 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 64:
-#line 1046 "ppparse.y" /* yacc.c:1646 */
- {
- fprintf (ppout, "#ODOSLIDE 1\n");
- }
-#line 2493 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 65:
-#line 1050 "ppparse.y" /* yacc.c:1646 */
- {
- struct cb_text_list *l;
- for (l = (yyvsp[0].l); l; l = l->next->next) {
- fprintf (ppout, "#OVERRIDE %s %s\n", l->text, l->next->text);
- }
- }
-#line 2504 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 66:
-#line 1057 "ppparse.y" /* yacc.c:1646 */
- {
- struct cb_text_list *l;
- for (l = (yyvsp[0].l); l; l = l->next) {
- fprintf (ppout, "#REMOVE %s\n", l->text);
- }
- }
-#line 2515 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 67:
-#line 1064 "ppparse.y" /* yacc.c:1646 */
- {
- char *p = (yyvsp[0].s);
-
- if (cobc_deciph_source_format (p) != 0) {
- ppp_error_invalid_option ("SOURCEFORMAT", p);
- }
- if (cb_src_list_file) {
- cb_current_file->source_format = cobc_get_source_format ();
- }
- }
-#line 2530 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 68:
-#line 1075 "ppparse.y" /* yacc.c:1646 */
- {
- /* FIXME: we should consume until end of line here! */
- ppp_error_invalid_option ("SOURCEFORMAT", NULL);
- }
-#line 2539 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 69:
-#line 1080 "ppparse.y" /* yacc.c:1646 */
- {
- CB_PENDING ("SPZERO");
- /* TODO: cb_space_is_zero = 1; */
- }
-#line 2548 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 70:
-#line 1085 "ppparse.y" /* yacc.c:1646 */
- {
- char *p = (yyvsp[0].s);
- char ep = 0;
-
- /* Remove surrounding quotes/brackets */
- if (p) {
- size_t size;
- ++p;
- size = strlen (p) - 1;
- p[size] = '\0';
- if (size == 1 && *p >= '1' && *p <= '3') {
- ep = *p;
- }
- } else {
- ep = '2';
- }
-
- /* Enable EC-BOUND-SUBSCRIPT and -REF-MOD checking */
- if (ep) {
- struct cb_text_list *txt;
- if (ep == '3') {
- /* SSRANGE"3": REF-MOD, with zero length allowed (at runtime) */
- fprintf (ppout, "#REFMOD_ZERO 1\n");
- } else if (ep == '2') {
- /* SSRANGE"2": REF-MOD, zero length not allowed */
- fprintf (ppout, "#REFMOD_ZERO 0\n");
- } else /* if (ep == '1') */ {
- /* SSRANGE"1": REF-MOD minimal - check only for zero/negative */
- fprintf (ppout, "#REFMOD_ZERO 2\n");
- }
- txt = ppp_list_add (NULL, "EC-BOUND-SUBSCRIPT");
- txt = ppp_list_add (txt, "EC-BOUND-REF-MOD");
- append_to_turn_list (txt, 1, 0);
- } else {
- ppp_error_invalid_option ("SSRANGE", p);
- }
- }
-#line 2590 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 71:
-#line 1126 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.l) = ppp_list_add (NULL, (yyvsp[0].s));
- }
-#line 2598 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 72:
-#line 1130 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.l) = ppp_list_add ((yyvsp[-1].l), (yyvsp[0].s));
- }
-#line 2606 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 74:
-#line 1138 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.l) = ppp_list_append ((yyvsp[-1].l), (yyvsp[0].l));
- }
-#line 2614 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 75:
-#line 1145 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.l) = ppp_list_add (NULL, (yyvsp[-2].s));
- (yyval.l) = ppp_list_add ((yyval.l), (yyvsp[0].s));
- }
-#line 2623 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 77:
-#line 1154 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.l) = ppp_list_append ((yyvsp[-1].l), (yyvsp[0].l));
- }
-#line 2631 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 78:
-#line 1161 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.l) = ppp_list_add (NULL, (yyvsp[-2].s));
- (yyval.l) = ppp_list_add ((yyval.l), (yyvsp[0].s));
- }
-#line 2640 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 80:
-#line 1170 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.l) = ppp_list_append ((yyvsp[-1].l), (yyvsp[0].l));
- }
-#line 2648 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 81:
-#line 1177 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.l) = ppp_list_add (NULL, (yyvsp[-2].s));
- (yyval.l) = ppp_list_add ((yyval.l), (yyvsp[0].s));
- }
-#line 2657 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 82:
-#line 1185 "ppparse.y" /* yacc.c:1646 */
- {
- fprintf (ppout, "#OPTION %s\n", (yyvsp[0].s));
- }
-#line 2665 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 83:
-#line 1189 "ppparse.y" /* yacc.c:1646 */
- {
- fprintf (ppout, "#OPTION %s %s\n", (yyvsp[-2].s), (yyvsp[0].s));
- }
-#line 2673 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 84:
-#line 1196 "ppparse.y" /* yacc.c:1646 */
- {
- cb_ref_mod_zero_length = 1;
- fprintf (ppout, "#OPTION REFMOD_ZERO 1\n");
- }
-#line 2682 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 85:
-#line 1201 "ppparse.y" /* yacc.c:1646 */
- {
- cb_ref_mod_zero_length = 0;
- fprintf (ppout, "#OPTION REFMOD_ZERO 0\n");
- }
-#line 2691 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 86:
-#line 1209 "ppparse.y" /* yacc.c:1646 */
- {
- if (cobc_deciph_source_format ((yyvsp[0].s)) != 0) {
- ppp_error_invalid_option ("SOURCE", (yyvsp[0].s));
- }
- if (cb_src_list_file) {
- cb_current_file->source_format = cobc_get_source_format ();
- }
- }
-#line 2704 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 87:
-#line 1218 "ppparse.y" /* yacc.c:1646 */
- {
- ppp_error_invalid_option ("SOURCE", (yyvsp[0].s));
- YYERROR;
- }
-#line 2713 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 88:
-#line 1225 "ppparse.y" /* yacc.c:1646 */
- { (yyval.s) = NULL; }
-#line 2719 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 90:
-#line 1231 "ppparse.y" /* yacc.c:1646 */
- {
- struct cb_define_struct *p;
-
- p = ppp_define_add (ppp_setvar_list, (yyvsp[-3].s), (yyvsp[-1].s), (yyvsp[0].ui));
- if (p) {
- ppp_setvar_list = p;
- }
- }
-#line 2732 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 91:
-#line 1240 "ppparse.y" /* yacc.c:1646 */
- {
- char *s;
- char *q;
- struct cb_define_struct *p;
-
- s = getenv ((yyvsp[-3].s));
- q = NULL;
- if (s && *s && *s != ' ') {
- if (*s == '"' || *s == '\'') {
- const size_t size = strlen (s) - 1U;
- /* Ignore if improperly quoted */
- if (s[0] == s[size]) {
- q = s;
- }
- } else {
- if (ppp_check_needs_quote (s)) {
- /* Alphanumeric literal */
- q = cobc_plex_malloc (strlen (s) + 4U);
- sprintf (q, "'%s'", s);
- } else {
- /* Numeric literal */
- q = s;
- }
- }
- }
- if (q) {
- p = ppp_define_add (ppp_setvar_list, (yyvsp[-3].s), q, (yyvsp[0].ui));
- if (p) {
- ppp_setvar_list = p;
- }
- }
- }
-#line 2769 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 92:
-#line 1273 "ppparse.y" /* yacc.c:1646 */
- {
- ppp_define_del ((yyvsp[-2].s));
- }
-#line 2777 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 93:
-#line 1277 "ppparse.y" /* yacc.c:1646 */
- {
- /* OpenCOBOL/GnuCOBOL 2.0 extension: MF $SET CONSTANT in 2002+ style as
- >> DEFINE CONSTANT var [AS] literal archaic extension:
- use plain >> DEFINE var [AS] literal for conditional compilation and
- use 01 CONSTANT with/without FROM clause for constant definitions */
- struct cb_define_struct *p;
-
- if (cb_verify (cb_define_constant_directive, ">> DEFINE CONSTANT var")) {
- p = ppp_define_add (ppp_setvar_list, (yyvsp[-3].s), (yyvsp[-1].s), (yyvsp[0].ui));
- if (p) {
- ppp_setvar_list = p;
- fprintf (ppout, "#DEFLIT %s %s%s\n", (yyvsp[-3].s), (yyvsp[-1].s), (yyvsp[0].ui) ? " OVERRIDE" : "");
- }
- }
- }
-#line 2797 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 94:
-#line 1293 "ppparse.y" /* yacc.c:1646 */
- {
- cb_error (_("invalid %s directive"), "DEFINE/SET");
- }
-#line 2805 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 95:
-#line 1300 "ppparse.y" /* yacc.c:1646 */
- {
- struct cb_text_list* l;
- /* GC-Extension: standard has only one literal combination here */
- for (l = (yyvsp[0].l); l; l = l->next->next) {
- fprintf (ppout, "#ADDSYN-STD %s %s\n", l->text, l->next->text);
- }
- }
-#line 2817 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 96:
-#line 1308 "ppparse.y" /* yacc.c:1646 */
- {
- struct cb_text_list *l;
- for (l = (yyvsp[0].l); l; l = l->next) {
- fprintf (ppout, "#REMOVE-STD %s\n", l->text);
- }
- }
-#line 2828 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 97:
-#line 1315 "ppparse.y" /* yacc.c:1646 */
- {
- struct cb_text_list* l;
- /* GC-Extension: standard has only one literal combination here */
- for (l = (yyvsp[0].l); l; l = l->next->next) {
- fprintf (ppout, "#OVERRIDE-STD %s %s\n", l->text, l->next->text);
- }
- }
-#line 2840 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 98:
-#line 1323 "ppparse.y" /* yacc.c:1646 */
- {
- struct cb_text_list *l;
- for (l = (yyvsp[0].l); l; l = l->next) {
- fprintf (ppout, "#ADDRSV %s\n", l->text);
- }
- }
-#line 2851 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 115:
-#line 1365 "ppparse.y" /* yacc.c:1646 */
- {
- CB_PENDING (_("LEAP-SECOND ON directive"));
- }
-#line 2859 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 117:
-#line 1373 "ppparse.y" /* yacc.c:1646 */
- {
- append_to_turn_list ((yyvsp[-2].l), !!(yyvsp[0].ui), (yyvsp[0].ui) == 2U);
- }
-#line 2867 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 118:
-#line 1380 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.l) = ppp_list_add (NULL, (yyvsp[0].s));
- }
-#line 2875 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 119:
-#line 1384 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.l) = ppp_list_add ((yyvsp[-1].l), (yyvsp[0].s));
- }
-#line 2883 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 120:
-#line 1391 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.ui) = 2U;
- }
-#line 2891 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 121:
-#line 1395 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.ui) = 1U;
- }
-#line 2899 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 122:
-#line 1399 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.ui) = 0;
- }
-#line 2907 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 129:
-#line 1421 "ppparse.y" /* yacc.c:1646 */
- {
- current_call_convention |= CB_CONV_COBOL;
- current_call_convention &= ~CB_CONV_STDCALL;
- }
-#line 2916 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 130:
-#line 1426 "ppparse.y" /* yacc.c:1646 */
- {
- current_call_convention &= ~CB_CONV_STDCALL;
- current_call_convention &= ~CB_CONV_COBOL;
- }
-#line 2925 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 131:
-#line 1431 "ppparse.y" /* yacc.c:1646 */
- {
- current_call_convention |= CB_CONV_STDCALL;
- current_call_convention &= ~CB_CONV_COBOL;
- }
-#line 2934 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 132:
-#line 1436 "ppparse.y" /* yacc.c:1646 */
- {
- current_call_convention |= CB_CONV_STATIC_LINK;
- }
-#line 2942 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 133:
-#line 1443 "ppparse.y" /* yacc.c:1646 */
- {
- unsigned int found;
-
- found = (ppp_search_lists ((yyvsp[-3].s)) != NULL);
- plex_action_directive (current_cmd, found ^ (yyvsp[-1].ui));
- }
-#line 2953 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 134:
-#line 1450 "ppparse.y" /* yacc.c:1646 */
- {
- unsigned int found;
-
- found = ppp_search_comp_vars ((yyvsp[-3].s));
- plex_action_directive (current_cmd, found ^ (yyvsp[-1].ui));
- }
-#line 2964 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 135:
-#line 1457 "ppparse.y" /* yacc.c:1646 */
- {
- struct cb_define_struct *p;
- unsigned int found;
-
- found = 0;
- p = ppp_search_lists ((yyvsp[-4].s));
- found = ppp_compare_vals (p, (yyvsp[0].ds), (yyvsp[-1].ui));
- plex_action_directive (current_cmd, found ^ (yyvsp[-2].ui));
- }
-#line 2978 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 136:
-#line 1467 "ppparse.y" /* yacc.c:1646 */
- {
- struct cb_define_struct *p;
- unsigned int found;
-
- found = 0;
- p = cobc_plex_malloc (sizeof (struct cb_define_struct));
- p->next = NULL;
- if (ppp_set_value (p, (yyvsp[-4].s))) {
- cb_error (_("invalid constant"));
- } else {
- found = ppp_compare_vals (p, (yyvsp[0].ds), (yyvsp[-1].ui));
- }
- plex_action_directive (current_cmd, found ^ (yyvsp[-2].ui));
- }
-#line 2997 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 137:
-#line 1482 "ppparse.y" /* yacc.c:1646 */
- {
- plex_action_directive (current_cmd, 0);
- YYERROR;
- }
-#line 3006 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 143:
-#line 1501 "ppparse.y" /* yacc.c:1646 */
- {
- struct cb_define_struct *p;
-
- p = cobc_plex_malloc (sizeof (struct cb_define_struct));
- p->next = NULL;
- if (ppp_set_value (p, (yyvsp[0].s))) {
- cb_error (_("invalid constant"));
- (yyval.ds) = NULL;
- } else {
- (yyval.ds) = p;
- }
- }
-#line 3023 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 144:
-#line 1514 "ppparse.y" /* yacc.c:1646 */
- {
- struct cb_define_struct *p;
-
- p = ppp_search_lists ((yyvsp[0].s));
- if (p != NULL && p->deftype != PLEX_DEF_NONE) {
- (yyval.ds) = p;
- } else {
- (yyval.ds) = NULL;
- }
- }
-#line 3038 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 145:
-#line 1528 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.ui) = COND_GE;
- }
-#line 3046 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 146:
-#line 1532 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.ui) = COND_GT;
- }
-#line 3054 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 147:
-#line 1536 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.ui) = COND_LE;
- }
-#line 3062 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 148:
-#line 1540 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.ui) = COND_LT;
- }
-#line 3070 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 149:
-#line 1544 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.ui) = COND_EQ;
- }
-#line 3078 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 150:
-#line 1548 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.ui) = COND_GE;
- }
-#line 3086 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 151:
-#line 1552 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.ui) = COND_GT;
- }
-#line 3094 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 152:
-#line 1556 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.ui) = COND_LE;
- }
-#line 3102 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 153:
-#line 1560 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.ui) = COND_LT;
- }
-#line 3110 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 154:
-#line 1564 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.ui) = COND_EQ;
- }
-#line 3118 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 155:
-#line 1568 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.ui) = COND_NE;
- }
-#line 3126 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 156:
-#line 1575 "ppparse.y" /* yacc.c:1646 */
- {
- fputc ('\n', ppout);
- ppcopy ((yyvsp[-4].s), (yyvsp[-3].s), (yyvsp[-1].r));
- }
-#line 3135 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 157:
-#line 1580 "ppparse.y" /* yacc.c:1646 */
- {
- yyerrok;
- }
-#line 3143 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 158:
-#line 1587 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.s) = fix_filename ((yyvsp[0].s));
- if (cb_fold_copy == COB_FOLD_LOWER) {
- (yyval.s) = fold_lower ((yyval.s));
- } else if (cb_fold_copy == COB_FOLD_UPPER) {
- (yyval.s) = fold_upper ((yyval.s));
- }
- }
-#line 3156 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 159:
-#line 1596 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.s) = (yyvsp[0].s);
- if (cb_fold_copy == COB_FOLD_LOWER) {
- (yyval.s) = fold_lower ((yyval.s));
- } else {
- (yyval.s) = fold_upper ((yyval.s));
- }
- }
-#line 3169 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 160:
-#line 1608 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.s) = NULL;
- }
-#line 3177 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 161:
-#line 1612 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.s) = (yyvsp[0].s);
- }
-#line 3185 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 166:
-#line 1629 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.r) = NULL;
- }
-#line 3193 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 167:
-#line 1633 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.r) = (yyvsp[0].r);
- }
-#line 3201 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 169:
-#line 1641 "ppparse.y" /* yacc.c:1646 */
- {
- yyerrok;
- }
-#line 3209 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 170:
-#line 1648 "ppparse.y" /* yacc.c:1646 */
- {
- cb_set_replace_list ((yyvsp[0].r), (yyvsp[-1].ui));
- }
-#line 3217 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 171:
-#line 1652 "ppparse.y" /* yacc.c:1646 */
- {
- cb_set_replace_list (NULL, (yyvsp[-1].ui));
- }
-#line 3225 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 172:
-#line 1659 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.r) = ppp_replace_list_add (NULL, (yyvsp[-2].p), (yyvsp[0].l), 0);
- }
-#line 3233 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 173:
-#line 1663 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.r) = ppp_replace_list_add (NULL, (yyvsp[-2].p), (yyvsp[0].l), (yyvsp[-3].ui));
- }
-#line 3241 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 174:
-#line 1667 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.r) = ppp_replace_list_add ((yyvsp[-3].r), (yyvsp[-2].p), (yyvsp[0].l), 0);
- }
-#line 3249 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 175:
-#line 1671 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.r) = ppp_replace_list_add ((yyvsp[-4].r), (yyvsp[-2].p), (yyvsp[0].l), (yyvsp[-3].ui));
- }
-#line 3257 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 176:
-#line 1678 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.p) = ppp_replace_src ((yyvsp[-1].l), 0);
- }
-#line 3265 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 177:
-#line 1682 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.p) = ppp_replace_src ((yyvsp[0].l), 0);
-/* CHECKME later (parser conflict)
- }
-| IN
- {
- / * as we need this word, which is valid as replacement,
- also for qualification, we need to explicit make it
- a word if given alone * /
- $$ = ppp_list_add (NULL, "IN");
- $$ = ppp_replace_src ($$, 0);
- }
-| OF
- {
- / * as we need this word, which is valid as replacement,
- also for qualification, we need to explicit make it
- a word if given alone * /
- $$ = ppp_list_add (NULL, "OF");
- $$ = ppp_replace_src ($$, 0);
-*/
- }
-#line 3291 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 178:
-#line 1707 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.l) = NULL;
- }
-#line 3299 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 179:
-#line 1711 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.l) = (yyvsp[-1].l);
- }
-#line 3307 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 180:
-#line 1715 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.l) = (yyvsp[0].l);
- }
-#line 3315 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 181:
-#line 1719 "ppparse.y" /* yacc.c:1646 */
- {
- /* as we need this word, which is valid as replacement,
- also for qualification, we need to explicit make it
- a word if given alone */
- (yyval.l) = ppp_list_add (NULL, "IN");
- }
-#line 3326 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 182:
-#line 1726 "ppparse.y" /* yacc.c:1646 */
- {
- /* as we need this word, which is valid as replacement,
- also for qualification, we need to explicit make it
- a word if given alone */
- (yyval.l) = ppp_list_add (NULL, "OF");
- }
-#line 3337 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 183:
-#line 1736 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.p) = ppp_replace_src (ppp_list_add (NULL, (yyvsp[-1].s)), 0);
- }
-#line 3345 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 184:
-#line 1740 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.p) = ppp_replace_src (ppp_list_add (NULL, literal_token ((yyvsp[0].s), 0)),
- ((yyvsp[0].s)[0] == '\'' || (yyvsp[0].s)[0] == '"'));
- }
-#line 3354 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 185:
-#line 1748 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.l) = NULL;
- }
-#line 3362 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 186:
-#line 1752 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.l) = ppp_list_add (NULL, (yyvsp[-1].s));
- }
-#line 3370 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 187:
-#line 1756 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.l) = ppp_list_add (NULL, literal_token ((yyvsp[0].s), 1));
- }
-#line 3378 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 188:
-#line 1763 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.l) = ppp_list_add (NULL, (yyvsp[0].s));
- }
-#line 3386 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 189:
-#line 1767 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.l) = ppp_list_add ((yyvsp[-1].l), (yyvsp[0].s));
- }
-#line 3394 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 190:
-#line 1774 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.l) = ppp_list_add (NULL, (yyvsp[0].s));
- }
-#line 3402 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 191:
-#line 1778 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.l) = ppp_list_add ((yyvsp[-2].l), " ");
- (yyval.l) = ppp_list_add ((yyval.l), "IN");
- (yyval.l) = ppp_list_add ((yyval.l), " ");
- (yyval.l) = ppp_list_add ((yyval.l), (yyvsp[0].s));
- }
-#line 3413 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 192:
-#line 1785 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.l) = ppp_list_add ((yyvsp[-2].l), " ");
- (yyval.l) = ppp_list_add ((yyval.l), "OF");
- (yyval.l) = ppp_list_add ((yyval.l), " ");
- (yyval.l) = ppp_list_add ((yyval.l), (yyvsp[0].s));
- }
-#line 3424 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 193:
-#line 1792 "ppparse.y" /* yacc.c:1646 */
- {
- struct cb_text_list *l;
-
- (yyval.l) = ppp_list_add ((yyvsp[-3].l), " ");
- (yyval.l) = ppp_list_add ((yyval.l), "(");
- (yyvsp[-1].l) = ppp_list_add ((yyvsp[-1].l), ")");
- for (l = (yyval.l); l->next; l = l->next) {
- ;
- }
- l->next = (yyvsp[-1].l);
- }
-#line 3440 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 194:
-#line 1807 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.l) = ppp_list_add (NULL, (yyvsp[0].s));
- }
-#line 3448 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 195:
-#line 1811 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.l) = ppp_list_add ((yyvsp[-1].l), " ");
- (yyval.l) = ppp_list_add ((yyval.l), (yyvsp[0].s));
- }
-#line 3457 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 196:
-#line 1819 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.ui) = CB_REPLACE_LEADING;
- }
-#line 3465 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 197:
-#line 1823 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.ui) = CB_REPLACE_TRAILING;
- }
-#line 3473 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 198:
-#line 1830 "ppparse.y" /* yacc.c:1646 */
- {
- /* Do not reuse unquote as some literals here may be delimited with
- parentheses */
- char *p = (yyvsp[0].s);
- size_t size;
-
- /* Remove surrounding quotes/brackets */
- ++p;
- size = strlen (p) - 1;
- p[size] = '\0';
-
- (yyval.s) = p;
- }
-#line 3491 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 199:
-#line 1849 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.ui) = 0;
- }
-#line 3499 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 200:
-#line 1853 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.ui) = 1U;
- }
-#line 3507 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 201:
-#line 1860 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.ui) = 0;
- }
-#line 3515 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 202:
-#line 1864 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.ui) = 1U;
- }
-#line 3523 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 203:
-#line 1871 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.ui) = 0;
- }
-#line 3531 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 204:
-#line 1875 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.ui) = 1U;
- }
-#line 3539 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 205:
-#line 1882 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.ui) = 0;
- }
-#line 3547 "ppparse.c" /* yacc.c:1646 */
- break;
-
- case 206:
-#line 1886 "ppparse.y" /* yacc.c:1646 */
- {
- (yyval.ui) = 1U;
- }
-#line 3555 "ppparse.c" /* yacc.c:1646 */
- break;
-
-
-#line 3559 "ppparse.c" /* yacc.c:1646 */
- default: break;
- }
- /* User semantic actions sometimes alter yychar, and that requires
- that yytoken be updated with the new translation. We take the
- approach of translating immediately before every use of yytoken.
- One alternative is translating here after every semantic action,
- but that translation would be missed if the semantic action invokes
- YYABORT, YYACCEPT, or YYERROR immediately after altering yychar or
- if it invokes YYBACKUP. In the case of YYABORT or YYACCEPT, an
- incorrect destructor might then be invoked immediately. In the
- case of YYERROR or YYBACKUP, subsequent parser actions might lead
- to an incorrect destructor call or verbose syntax error message
- before the lookahead is translated. */
- YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc);
-
- YYPOPSTACK (yylen);
- yylen = 0;
- YY_STACK_PRINT (yyss, yyssp);
-
- *++yyvsp = yyval;
-
- /* Now 'shift' the result of the reduction. Determine what state
- that goes to, based on the state we popped back to and the rule
- number reduced by. */
-
- yyn = yyr1[yyn];
-
- yystate = yypgoto[yyn - YYNTOKENS] + *yyssp;
- if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp)
- yystate = yytable[yystate];
- else
- yystate = yydefgoto[yyn - YYNTOKENS];
-
- goto yynewstate;
-
-
-/*--------------------------------------.
-| yyerrlab -- here on detecting error. |
-`--------------------------------------*/
-yyerrlab:
- /* Make sure we have latest lookahead translation. See comments at
- user semantic actions for why this is necessary. */
- yytoken = yychar == YYEMPTY ? YYEMPTY : YYTRANSLATE (yychar);
-
- /* If not already recovering from an error, report this error. */
- if (!yyerrstatus)
- {
- ++yynerrs;
-#if ! YYERROR_VERBOSE
- yyerror (YY_("syntax error"));
-#else
-# define YYSYNTAX_ERROR yysyntax_error (&yymsg_alloc, &yymsg, \
- yyssp, yytoken)
- {
- char const *yymsgp = YY_("syntax error");
- int yysyntax_error_status;
- yysyntax_error_status = YYSYNTAX_ERROR;
- if (yysyntax_error_status == 0)
- yymsgp = yymsg;
- else if (yysyntax_error_status == 1)
- {
- if (yymsg != yymsgbuf)
- YYSTACK_FREE (yymsg);
- yymsg = (char *) YYSTACK_ALLOC (yymsg_alloc);
- if (!yymsg)
- {
- yymsg = yymsgbuf;
- yymsg_alloc = sizeof yymsgbuf;
- yysyntax_error_status = 2;
- }
- else
- {
- yysyntax_error_status = YYSYNTAX_ERROR;
- yymsgp = yymsg;
- }
- }
- yyerror (yymsgp);
- if (yysyntax_error_status == 2)
- goto yyexhaustedlab;
- }
-# undef YYSYNTAX_ERROR
-#endif
- }
-
-
-
- if (yyerrstatus == 3)
- {
- /* If just tried and failed to reuse lookahead token after an
- error, discard it. */
-
- if (yychar <= YYEOF)
- {
- /* Return failure if at end of input. */
- if (yychar == YYEOF)
- YYABORT;
- }
- else
- {
- yydestruct ("Error: discarding",
- yytoken, &yylval);
- yychar = YYEMPTY;
- }
- }
-
- /* Else will try to reuse lookahead token after shifting the error
- token. */
- goto yyerrlab1;
-
-
-/*---------------------------------------------------.
-| yyerrorlab -- error raised explicitly by YYERROR. |
-`---------------------------------------------------*/
-yyerrorlab:
-
- /* Pacify compilers like GCC when the user code never invokes
- YYERROR and the label yyerrorlab therefore never appears in user
- code. */
- if (/*CONSTCOND*/ 0)
- goto yyerrorlab;
-
- /* Do not reclaim the symbols of the rule whose action triggered
- this YYERROR. */
- YYPOPSTACK (yylen);
- yylen = 0;
- YY_STACK_PRINT (yyss, yyssp);
- yystate = *yyssp;
- goto yyerrlab1;
-
-
-/*-------------------------------------------------------------.
-| yyerrlab1 -- common code for both syntax error and YYERROR. |
-`-------------------------------------------------------------*/
-yyerrlab1:
- yyerrstatus = 3; /* Each real token shifted decrements this. */
-
- for (;;)
- {
- yyn = yypact[yystate];
- if (!yypact_value_is_default (yyn))
- {
- yyn += YYTERROR;
- if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR)
- {
- yyn = yytable[yyn];
- if (0 < yyn)
- break;
- }
- }
-
- /* Pop the current state because it cannot handle the error token. */
- if (yyssp == yyss)
- YYABORT;
-
-
- yydestruct ("Error: popping",
- yystos[yystate], yyvsp);
- YYPOPSTACK (1);
- yystate = *yyssp;
- YY_STACK_PRINT (yyss, yyssp);
- }
-
- YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
- *++yyvsp = yylval;
- YY_IGNORE_MAYBE_UNINITIALIZED_END
-
-
- /* Shift the error token. */
- YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp);
-
- yystate = yyn;
- goto yynewstate;
-
-
-/*-------------------------------------.
-| yyacceptlab -- YYACCEPT comes here. |
-`-------------------------------------*/
-yyacceptlab:
- yyresult = 0;
- goto yyreturn;
-
-/*-----------------------------------.
-| yyabortlab -- YYABORT comes here. |
-`-----------------------------------*/
-yyabortlab:
- yyresult = 1;
- goto yyreturn;
-
-#if !defined yyoverflow || YYERROR_VERBOSE
-/*-------------------------------------------------.
-| yyexhaustedlab -- memory exhaustion comes here. |
-`-------------------------------------------------*/
-yyexhaustedlab:
- yyerror (YY_("memory exhausted"));
- yyresult = 2;
- /* Fall through. */
-#endif
-
-yyreturn:
- if (yychar != YYEMPTY)
- {
- /* Make sure we have latest lookahead translation. See comments at
- user semantic actions for why this is necessary. */
- yytoken = YYTRANSLATE (yychar);
- yydestruct ("Cleanup: discarding lookahead",
- yytoken, &yylval);
- }
- /* Do not reclaim the symbols of the rule whose action triggered
- this YYABORT or YYACCEPT. */
- YYPOPSTACK (yylen);
- YY_STACK_PRINT (yyss, yyssp);
- while (yyssp != yyss)
- {
- yydestruct ("Cleanup: popping",
- yystos[*yyssp], yyvsp);
- YYPOPSTACK (1);
- }
-#ifndef yyoverflow
- if (yyss != yyssa)
- YYSTACK_FREE (yyss);
-#endif
-#if YYERROR_VERBOSE
- if (yymsg != yymsgbuf)
- YYSTACK_FREE (yymsg);
-#endif
- return yyresult;
-}
-#line 1899 "ppparse.y" /* yacc.c:1906 */
-
diff --git a/cobc/ppparse.h b/cobc/ppparse.h
deleted file mode 100644
index f4c08fa..0000000
--- a/cobc/ppparse.h
+++ /dev/null
@@ -1,182 +0,0 @@
-/* A Bison parser, made by GNU Bison 3.0.4. */
-
-/* Bison interface for Yacc-like parsers in C
-
- Copyright (C) 1984, 1989-1990, 2000-2015 Free Software Foundation, Inc.
-
- This program 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.
-
- This program 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 this program. If not, see <http://www.gnu.org/licenses/>. */
-
-/* As a special exception, you may create a larger work that contains
- part or all of the Bison parser skeleton and distribute that work
- under terms of your choice, so long as that work isn't itself a
- parser generator using the skeleton or a modified version thereof
- as a parser skeleton. Alternatively, if you modify or redistribute
- the parser skeleton itself, you may (at your option) remove this
- special exception, which will cause the skeleton and the resulting
- Bison output files to be licensed under the GNU General Public
- License without this special exception.
-
- This special exception was added by the Free Software Foundation in
- version 2.2 of Bison. */
-
-#ifndef YY_PP_PPPARSE_H_INCLUDED
-# define YY_PP_PPPARSE_H_INCLUDED
-/* Debug traces. */
-#ifndef YYDEBUG
-# define YYDEBUG 0
-#endif
-#if YYDEBUG
-extern int ppdebug;
-#endif
-
-/* Token type. */
-#ifndef YYTOKENTYPE
-# define YYTOKENTYPE
- enum yytokentype
- {
- TOKEN_EOF = 0,
- ALSO = 258,
- BY = 259,
- COPY = 260,
- EQEQ = 261,
- IN = 262,
- LAST = 263,
- LEADING = 264,
- OF = 265,
- OFF = 266,
- PRINTING = 267,
- REPLACE = 268,
- REPLACING = 269,
- SUPPRESS = 270,
- TRAILING = 271,
- DOT = 272,
- GARBAGE = 273,
- LISTING_DIRECTIVE = 274,
- LISTING_STATEMENT = 275,
- TITLE_STATEMENT = 276,
- COBOL_WORDS_DIRECTIVE = 277,
- EQUATE = 278,
- UNDEFINE = 279,
- SUBSTITUTE = 280,
- RESERVE = 281,
- CONTROL_STATEMENT = 282,
- SOURCE = 283,
- NOSOURCE = 284,
- LIST = 285,
- NOLIST = 286,
- MAP = 287,
- NOMAP = 288,
- LEAP_SECOND_DIRECTIVE = 289,
- CONTROL_DIVISION = 290,
- SUBSTITUTION_SECTION = 291,
- SOURCE_DIRECTIVE = 292,
- FORMAT = 293,
- IS = 294,
- CALL_DIRECTIVE = 295,
- COBOL = 296,
- TOK_EXTERN = 297,
- STDCALL = 298,
- STATIC = 299,
- DEFINE_DIRECTIVE = 300,
- AS = 301,
- PARAMETER = 302,
- OVERRIDE = 303,
- REFMOD_DIRECTIVE = 304,
- SET_DIRECTIVE = 305,
- ADDRSV = 306,
- ADDSYN = 307,
- AREACHECK = 308,
- NOAREACHECK = 309,
- ASSIGN = 310,
- BOUND = 311,
- CALLFH = 312,
- CHECKNUM = 313,
- COMP1 = 314,
- CONSTANT = 315,
- DPC_IN_DATA = 316,
- FOLDCOPYNAME = 317,
- MAKESYN = 318,
- NOBOUND = 319,
- NOCHECKNUM = 320,
- NODPC_IN_DATA = 321,
- NOFOLDCOPYNAME = 322,
- NOODOSLIDE = 323,
- NOSPZERO = 324,
- NOSSRANGE = 325,
- ODOSLIDE = 326,
- REMOVE = 327,
- SOURCEFORMAT = 328,
- SPZERO = 329,
- SSRANGE = 330,
- IF_DIRECTIVE = 331,
- ELSE_DIRECTIVE = 332,
- ENDIF_DIRECTIVE = 333,
- ELIF_DIRECTIVE = 334,
- GE = 335,
- LE = 336,
- LT = 337,
- GT = 338,
- EQ = 339,
- NE = 340,
- NOT = 341,
- THAN = 342,
- TO = 343,
- OR = 344,
- EQUAL = 345,
- GREATER = 346,
- LESS = 347,
- SET = 348,
- DEFINED = 349,
- TURN_DIRECTIVE = 350,
- ON = 351,
- CHECKING = 352,
- WITH = 353,
- LOCATION = 354,
- TERMINATOR = 355,
- TOKEN = 356,
- TEXT_NAME = 357,
- VARIABLE_NAME = 358,
- LITERAL = 359
- };
-#endif
-
-/* Value type. */
-#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
-
-union YYSTYPE
-{
-#line 619 "ppparse.y" /* yacc.c:1909 */
-
- char *s;
- struct cb_text_list *l;
- struct cb_replace_src *p;
- struct cb_replace_list *r;
- struct cb_define_struct *ds;
- unsigned int ui;
- int si;
-
-#line 170 "ppparse.h" /* yacc.c:1909 */
-};
-
-typedef union YYSTYPE YYSTYPE;
-# define YYSTYPE_IS_TRIVIAL 1
-# define YYSTYPE_IS_DECLARED 1
-#endif
-
-
-extern YYSTYPE pplval;
-
-int ppparse (void);
-
-#endif /* !YY_PP_PPPARSE_H_INCLUDED */
diff --git a/cobc/scanner.c b/cobc/scanner.c
deleted file mode 100644
index 7d798c9..0000000
--- a/cobc/scanner.c
+++ /dev/null
@@ -1,6303 +0,0 @@
-#line 2 "scanner.c"
-
-#line 4 "scanner.c"
-
-#define YY_INT_ALIGNED short int
-
-/* A lexical scanner generated by flex */
-
-#define FLEX_SCANNER
-#define YY_FLEX_MAJOR_VERSION 2
-#define YY_FLEX_MINOR_VERSION 6
-#define YY_FLEX_SUBMINOR_VERSION 1
-#if YY_FLEX_SUBMINOR_VERSION > 0
-#define FLEX_BETA
-#endif
-
-/* First, we deal with platform-specific or compiler-specific issues. */
-
-/* begin standard C headers. */
-#include <stdio.h>
-#include <string.h>
-#include <errno.h>
-#include <stdlib.h>
-
-/* end standard C headers. */
-
-/* flex integer type definitions */
-
-#ifndef FLEXINT_H
-#define FLEXINT_H
-
-/* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */
-
-#if defined (__STDC_VERSION__) && __STDC_VERSION__ >= 199901L
-
-/* C99 says to define __STDC_LIMIT_MACROS before including stdint.h,
- * if you want the limit (max/min) macros for int types.
- */
-#ifndef __STDC_LIMIT_MACROS
-#define __STDC_LIMIT_MACROS 1
-#endif
-
-#include <inttypes.h>
-typedef int8_t flex_int8_t;
-typedef uint8_t flex_uint8_t;
-typedef int16_t flex_int16_t;
-typedef uint16_t flex_uint16_t;
-typedef int32_t flex_int32_t;
-typedef uint32_t flex_uint32_t;
-#else
-typedef signed char flex_int8_t;
-typedef short int flex_int16_t;
-typedef int flex_int32_t;
-typedef unsigned char flex_uint8_t;
-typedef unsigned short int flex_uint16_t;
-typedef unsigned int flex_uint32_t;
-
-/* Limits of integral types. */
-#ifndef INT8_MIN
-#define INT8_MIN (-128)
-#endif
-#ifndef INT16_MIN
-#define INT16_MIN (-32767-1)
-#endif
-#ifndef INT32_MIN
-#define INT32_MIN (-2147483647-1)
-#endif
-#ifndef INT8_MAX
-#define INT8_MAX (127)
-#endif
-#ifndef INT16_MAX
-#define INT16_MAX (32767)
-#endif
-#ifndef INT32_MAX
-#define INT32_MAX (2147483647)
-#endif
-#ifndef UINT8_MAX
-#define UINT8_MAX (255U)
-#endif
-#ifndef UINT16_MAX
-#define UINT16_MAX (65535U)
-#endif
-#ifndef UINT32_MAX
-#define UINT32_MAX (4294967295U)
-#endif
-
-#endif /* ! C99 */
-
-#endif /* ! FLEXINT_H */
-
-/* TODO: this is always defined, so inline it */
-#define yyconst const
-
-#if defined(__GNUC__) && __GNUC__ >= 3
-#define yynoreturn __attribute__((__noreturn__))
-#else
-#define yynoreturn
-#endif
-
-/* Returned upon end-of-file. */
-#define YY_NULL 0
-
-/* Promotes a possibly negative, possibly signed char to an unsigned
- * integer for use as an array index. If the signed char is negative,
- * we want to instead treat it as an 8-bit unsigned char, hence the
- * double cast.
- */
-#define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c)
-
-/* Enter a start condition. This macro really ought to take a parameter,
- * but we do it the disgusting crufty way forced on us by the ()-less
- * definition of BEGIN.
- */
-#define BEGIN (yy_start) = 1 + 2 *
-
-/* Translate the current start state into a value that can be later handed
- * to BEGIN to return to the state. The YYSTATE alias is for lex
- * compatibility.
- */
-#define YY_START (((yy_start) - 1) / 2)
-#define YYSTATE YY_START
-
-/* Action number for EOF rule of a given start state. */
-#define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
-
-/* Special action meaning "start processing a new file". */
-#define YY_NEW_FILE yyrestart(yyin )
-
-#define YY_END_OF_BUFFER_CHAR 0
-
-/* Size of default input buffer. */
-#ifndef YY_BUF_SIZE
-#ifdef __ia64__
-/* On IA-64, the buffer size is 16k, not 8k.
- * Moreover, YY_BUF_SIZE is 2*YY_READ_BUF_SIZE in the general case.
- * Ditto for the __ia64__ case accordingly.
- */
-#define YY_BUF_SIZE 32768
-#else
-#define YY_BUF_SIZE 16384
-#endif /* __ia64__ */
-#endif
-
-/* The state buf must be large enough to hold one state per character in the main buffer.
- */
-#define YY_STATE_BUF_SIZE ((YY_BUF_SIZE + 2) * sizeof(yy_state_type))
-
-#ifndef YY_TYPEDEF_YY_BUFFER_STATE
-#define YY_TYPEDEF_YY_BUFFER_STATE
-typedef struct yy_buffer_state *YY_BUFFER_STATE;
-#endif
-
-#ifndef YY_TYPEDEF_YY_SIZE_T
-#define YY_TYPEDEF_YY_SIZE_T
-typedef size_t yy_size_t;
-#endif
-
-extern int yyleng;
-
-extern FILE *yyin, *yyout;
-
-#define EOB_ACT_CONTINUE_SCAN 0
-#define EOB_ACT_END_OF_FILE 1
-#define EOB_ACT_LAST_MATCH 2
-
- #define YY_LESS_LINENO(n)
- #define YY_LINENO_REWIND_TO(ptr)
-
-/* Return all but the first "n" matched characters back to the input stream. */
-#define yyless(n) \
- do \
- { \
- /* Undo effects of setting up yytext. */ \
- yy_size_t yyless_macro_arg = (n); \
- YY_LESS_LINENO(yyless_macro_arg);\
- *yy_cp = (yy_hold_char); \
- YY_RESTORE_YY_MORE_OFFSET \
- (yy_c_buf_p) = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \
- YY_DO_BEFORE_ACTION; /* set up yytext again */ \
- } \
- while ( 0 )
-
-#define unput(c) yyunput( c, (yytext_ptr) )
-
-#ifndef YY_STRUCT_YY_BUFFER_STATE
-#define YY_STRUCT_YY_BUFFER_STATE
-struct yy_buffer_state
- {
- FILE *yy_input_file;
-
- char *yy_ch_buf; /* input buffer */
- char *yy_buf_pos; /* current position in input buffer */
-
- /* Size of input buffer in bytes, not including room for EOB
- * characters.
- */
- int yy_buf_size;
-
- /* Number of characters read into yy_ch_buf, not including EOB
- * characters.
- */
- int yy_n_chars;
-
- /* Whether we "own" the buffer - i.e., we know we created it,
- * and can realloc() it to grow it, and should free() it to
- * delete it.
- */
- int yy_is_our_buffer;
-
- /* Whether this is an "interactive" input source; if so, and
- * if we're using stdio for input, then we want to use getc()
- * instead of fread(), to make sure we stop fetching input after
- * each newline.
- */
- int yy_is_interactive;
-
- /* Whether we're considered to be at the beginning of a line.
- * If so, '^' rules will be active on the next match, otherwise
- * not.
- */
- int yy_at_bol;
-
- int yy_bs_lineno; /**< The line count. */
- int yy_bs_column; /**< The column count. */
-
- /* Whether to try to fill the input buffer when we reach the
- * end of it.
- */
- int yy_fill_buffer;
-
- int yy_buffer_status;
-
-#define YY_BUFFER_NEW 0
-#define YY_BUFFER_NORMAL 1
- /* When an EOF's been seen but there's still some text to process
- * then we mark the buffer as YY_EOF_PENDING, to indicate that we
- * shouldn't try reading from the input source any more. We might
- * still have a bunch of tokens to match, though, because of
- * possible backing-up.
- *
- * When we actually see the EOF, we change the status to "new"
- * (via yyrestart()), so that the user can continue scanning by
- * just pointing yyin at a new input file.
- */
-#define YY_BUFFER_EOF_PENDING 2
-
- };
-#endif /* !YY_STRUCT_YY_BUFFER_STATE */
-
-/* Stack of input buffers. */
-static size_t yy_buffer_stack_top = 0; /**< index of top of stack. */
-static size_t yy_buffer_stack_max = 0; /**< capacity of stack. */
-static YY_BUFFER_STATE * yy_buffer_stack = NULL; /**< Stack as an array. */
-
-/* We provide macros for accessing buffer states in case in the
- * future we want to put the buffer states in a more general
- * "scanner state".
- *
- * Returns the top of the stack, or NULL.
- */
-#define YY_CURRENT_BUFFER ( (yy_buffer_stack) \
- ? (yy_buffer_stack)[(yy_buffer_stack_top)] \
- : NULL)
-
-/* Same as previous macro, but useful when we know that the buffer stack is not
- * NULL or when we need an lvalue. For internal use only.
- */
-#define YY_CURRENT_BUFFER_LVALUE (yy_buffer_stack)[(yy_buffer_stack_top)]
-
-/* yy_hold_char holds the character lost when yytext is formed. */
-static char yy_hold_char;
-static int yy_n_chars; /* number of characters read into yy_ch_buf */
-int yyleng;
-
-/* Points to current character in buffer. */
-static char *yy_c_buf_p = NULL;
-static int yy_init = 0; /* whether we need to initialize */
-static int yy_start = 0; /* start state number */
-
-/* Flag which is used to allow yywrap()'s to do buffer switches
- * instead of setting up a fresh yyin. A bit of a hack ...
- */
-static int yy_did_buffer_switch_on_eof;
-
-void yyrestart (FILE *input_file );
-void yy_switch_to_buffer (YY_BUFFER_STATE new_buffer );
-YY_BUFFER_STATE yy_create_buffer (FILE *file,int size );
-void yy_delete_buffer (YY_BUFFER_STATE b );
-void yy_flush_buffer (YY_BUFFER_STATE b );
-void yypush_buffer_state (YY_BUFFER_STATE new_buffer );
-void yypop_buffer_state (void );
-
-static void yyensure_buffer_stack (void );
-static void yy_load_buffer_state (void );
-static void yy_init_buffer (YY_BUFFER_STATE b,FILE *file );
-
-#define YY_FLUSH_BUFFER yy_flush_buffer(YY_CURRENT_BUFFER )
-
-YY_BUFFER_STATE yy_scan_buffer (char *base,yy_size_t size );
-YY_BUFFER_STATE yy_scan_string (yyconst char *yy_str );
-YY_BUFFER_STATE yy_scan_bytes (yyconst char *bytes,int len );
-
-void *yyalloc (yy_size_t );
-void *yyrealloc (void *,yy_size_t );
-void yyfree (void * );
-
-#define yy_new_buffer yy_create_buffer
-
-#define yy_set_interactive(is_interactive) \
- { \
- if ( ! YY_CURRENT_BUFFER ){ \
- yyensure_buffer_stack (); \
- YY_CURRENT_BUFFER_LVALUE = \
- yy_create_buffer(yyin,YY_BUF_SIZE ); \
- } \
- YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \
- }
-
-#define yy_set_bol(at_bol) \
- { \
- if ( ! YY_CURRENT_BUFFER ){\
- yyensure_buffer_stack (); \
- YY_CURRENT_BUFFER_LVALUE = \
- yy_create_buffer(yyin,YY_BUF_SIZE ); \
- } \
- YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \
- }
-
-#define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol)
-
-/* Begin user sect3 */
-
-typedef unsigned char YY_CHAR;
-
-FILE *yyin = NULL, *yyout = NULL;
-
-typedef int yy_state_type;
-
-extern int yylineno;
-
-int yylineno = 1;
-
-extern char *yytext;
-#ifdef yytext_ptr
-#undef yytext_ptr
-#endif
-#define yytext_ptr yytext
-
-static yy_state_type yy_get_previous_state (void );
-static yy_state_type yy_try_NUL_trans (yy_state_type current_state );
-static int yy_get_next_buffer (void );
-static void yynoreturn yy_fatal_error (yyconst char* msg );
-
-/* Done after the current pattern has been matched and before the
- * corresponding action - sets up yytext.
- */
-#define YY_DO_BEFORE_ACTION \
- (yytext_ptr) = yy_bp; \
- yyleng = (int) (yy_cp - yy_bp); \
- (yy_hold_char) = *yy_cp; \
- *yy_cp = '\0'; \
- (yy_c_buf_p) = yy_cp;
-
-#define YY_NUM_RULES 139
-#define YY_END_OF_BUFFER 140
-/* This struct is not used in this scanner,
- but its presence is necessary. */
-struct yy_trans_info
- {
- flex_int32_t yy_verify;
- flex_int32_t yy_nxt;
- };
-static yyconst flex_int16_t yy_accept[1124] =
- { 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 140, 134, 19, 55, 25, 134, 125, 50, 51, 129,
- 130, 131, 124, 128, 52, 126, 56, 132, 127, 133,
- 118, 118, 118, 118, 118, 118, 118, 118, 118, 118,
- 118, 118, 118, 118, 118, 118, 118, 118, 118, 118,
- 118, 55, 21, 130, 60, 131, 124, 52, 130, 66,
- 131, 52, 136, 55, 56, 136, 55, 136, 138, 55,
- 56, 137, 55, 138, 55, 47, 122, 54, 0, 123,
- 0, 52, 118, 118, 118, 56, 56, 119, 121, 120,
- 118, 118, 118, 0, 0, 0, 118, 118, 118, 118,
-
- 118, 118, 118, 118, 0, 0, 0, 118, 0, 0,
- 118, 118, 28, 118, 118, 118, 118, 0, 118, 118,
- 118, 118, 118, 118, 118, 118, 118, 32, 118, 118,
- 118, 118, 0, 0, 0, 0, 0, 118, 118, 118,
- 118, 118, 0, 21, 21, 21, 21, 21, 21, 21,
- 21, 21, 21, 0, 54, 60, 60, 59, 0, 52,
- 0, 54, 65, 64, 63, 0, 52, 136, 135, 136,
- 136, 136, 136, 136, 136, 136, 136, 136, 137, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 53, 118,
- 118, 118, 118, 118, 0, 0, 42, 45, 0, 41,
-
- 0, 0, 118, 118, 118, 118, 118, 118, 118, 0,
- 40, 49, 0, 39, 118, 0, 38, 0, 37, 118,
- 118, 118, 29, 118, 0, 118, 0, 0, 46, 0,
- 22, 118, 118, 118, 118, 118, 118, 118, 118, 118,
- 0, 0, 118, 118, 0, 27, 48, 0, 26, 0,
- 36, 0, 35, 0, 21, 21, 21, 21, 21, 21,
- 21, 21, 21, 21, 21, 21, 0, 0, 57, 53,
- 64, 0, 0, 61, 53, 136, 136, 136, 136, 136,
- 136, 136, 136, 136, 136, 136, 136, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 118,
-
- 118, 0, 0, 0, 0, 44, 0, 43, 0, 118,
- 118, 118, 118, 118, 118, 118, 118, 118, 118, 118,
- 0, 0, 0, 0, 31, 0, 30, 0, 0, 0,
- 0, 118, 118, 118, 118, 118, 118, 118, 118, 118,
- 118, 0, 34, 0, 33, 118, 118, 0, 21, 21,
- 21, 21, 21, 21, 21, 21, 21, 21, 21, 21,
- 21, 58, 62, 136, 136, 136, 136, 136, 136, 136,
- 136, 136, 136, 136, 136, 136, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 118,
- 118, 0, 0, 0, 0, 0, 0, 118, 118, 118,
-
- 0, 118, 118, 118, 118, 0, 0, 118, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 118, 118, 118, 118, 113, 0, 118, 118, 0,
- 0, 114, 0, 0, 21, 21, 21, 21, 21, 21,
- 21, 21, 21, 21, 21, 21, 21, 21, 136, 136,
- 136, 136, 136, 136, 136, 136, 136, 136, 136, 136,
- 136, 136, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 118, 0, 0,
- 0, 0, 0, 0, 0, 118, 0, 118, 0, 118,
- 118, 118, 118, 0, 0, 0, 0, 0, 0, 0,
-
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 118, 0, 0, 118, 0,
- 118, 118, 0, 0, 0, 0, 0, 0, 0, 21,
- 21, 21, 21, 21, 21, 21, 21, 21, 21, 21,
- 21, 21, 21, 21, 21, 14, 136, 136, 136, 136,
- 136, 136, 136, 0, 136, 136, 136, 136, 136, 136,
- 136, 136, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 118, 0,
- 97, 0, 100, 82, 0, 0, 0, 0, 118, 0,
- 118, 118, 103, 0, 0, 0, 0, 0, 0, 0,
-
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 23, 0,
- 0, 0, 0, 118, 0, 0, 0, 0, 0, 0,
- 0, 21, 21, 21, 21, 21, 21, 21, 20, 21,
- 21, 21, 21, 21, 21, 136, 136, 136, 136, 136,
- 136, 136, 20, 136, 136, 136, 136, 136, 136, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 118, 0, 0, 0, 0, 0,
- 0, 118, 0, 24, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 104, 0, 96, 0,
-
- 99, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 118, 0, 0,
- 0, 0, 0, 0, 0, 0, 21, 3, 21, 5,
- 21, 21, 18, 21, 21, 1, 21, 2, 20, 21,
- 21, 21, 21, 21, 21, 10, 21, 136, 0, 136,
- 0, 136, 136, 0, 136, 0, 136, 0, 20, 136,
- 136, 136, 136, 136, 136, 0, 136, 0, 0, 0,
- 0, 0, 0, 0, 0, 111, 0, 118, 0, 0,
- 0, 0, 79, 0, 118, 70, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 112, 116, 0, 0, 0, 0, 0,
- 21, 21, 18, 17, 21, 21, 6, 21, 21, 21,
- 21, 21, 136, 136, 0, 136, 0, 136, 136, 136,
- 136, 136, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 84, 0, 0, 0, 0, 0, 0, 0, 0,
- 117, 0, 78, 78, 0, 0, 81, 0, 87, 0,
- 0, 0, 0, 0, 0, 0, 93, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 105, 21,
- 21, 13, 21, 21, 21, 8, 21, 21, 21, 136,
-
- 136, 136, 0, 136, 0, 136, 136, 136, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 85, 0, 88, 0,
- 0, 91, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 90, 0, 0, 0, 0, 21, 15, 21,
- 21, 21, 21, 21, 136, 136, 0, 136, 136, 136,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 67,
- 0, 0, 0, 0, 102, 0, 0, 0, 0, 0,
- 101, 101, 0, 0, 0, 98, 0, 73, 74, 0,
- 0, 0, 0, 0, 21, 4, 21, 12, 21, 21,
-
- 21, 9, 136, 0, 136, 136, 136, 136, 0, 0,
- 0, 0, 0, 0, 0, 68, 72, 0, 0, 76,
- 76, 0, 83, 86, 0, 0, 0, 0, 95, 0,
- 94, 0, 0, 0, 0, 0, 0, 16, 21, 21,
- 136, 0, 0, 0, 0, 0, 0, 0, 0, 77,
- 77, 0, 0, 92, 0, 0, 0, 0, 0, 0,
- 0, 0, 21, 7, 21, 136, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 89, 69, 71, 80,
- 0, 0, 0, 11, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 75, 75, 0, 0, 0, 0, 115,
-
- 0, 0, 0, 0, 109, 0, 0, 0, 0, 0,
- 0, 0, 110, 0, 0, 0, 108, 0, 0, 106,
- 0, 107, 0
- } ;
-
-static yyconst YY_CHAR yy_ec[256] =
- { 0,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 2,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 3, 1, 4, 5, 1, 6, 7, 8, 9,
- 10, 11, 12, 13, 14, 15, 16, 17, 17, 18,
- 18, 18, 18, 18, 18, 18, 18, 19, 20, 21,
- 22, 23, 1, 24, 25, 26, 27, 28, 29, 30,
- 31, 32, 33, 34, 35, 36, 37, 38, 39, 40,
- 41, 42, 43, 44, 45, 46, 47, 48, 49, 50,
- 24, 24, 24, 24, 51, 24, 52, 53, 54, 55,
-
- 56, 57, 58, 59, 60, 34, 61, 62, 63, 64,
- 65, 66, 67, 68, 69, 70, 71, 72, 73, 74,
- 75, 76, 24, 24, 24, 24, 1, 77, 78, 78,
- 78, 78, 78, 78, 78, 78, 78, 78, 78, 78,
- 78, 78, 78, 78, 78, 78, 78, 78, 78, 78,
- 78, 78, 78, 78, 78, 78, 78, 78, 78, 79,
- 79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
- 79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
- 79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
- 79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
-
- 79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
- 79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
- 79, 79, 79, 78, 78, 78, 78, 78, 78, 78,
- 78, 78, 78, 78, 78, 78, 78, 78, 78, 78,
- 78, 78, 78, 78, 78, 78, 78, 78, 78, 78,
- 78, 78, 80, 80, 80
- } ;
-
-static yyconst YY_CHAR yy_meta[81] =
- { 0,
- 1, 2, 3, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 4, 1, 1, 5, 5, 1, 6,
- 1, 1, 1, 7, 5, 5, 5, 5, 5, 5,
- 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
- 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
- 8, 5, 5, 5, 5, 5, 5, 5, 5, 5,
- 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
- 5, 5, 5, 5, 5, 5, 8, 8, 8, 8
- } ;
-
-static yyconst flex_uint16_t yy_base[1191] =
- { 0,
- 0, 78, 72, 88, 95, 111, 115, 117, 177, 257,
- 1752, 4101, 4101, 1747, 4101, 77, 4101, 4101, 4101, 1711,
- 79, 81, 124, 4101, 151, 4101, 101, 88, 4101, 1696,
- 268, 158, 156, 276, 281, 302, 288, 307, 360, 436,
- 358, 328, 348, 502, 351, 383, 400, 462, 404, 429,
- 160, 127, 557, 116, 79, 123, 471, 232, 129, 508,
- 136, 481, 0, 1705, 140, 102, 152, 603, 4101, 1697,
- 141, 0, 153, 649, 1677, 134, 4101, 186, 210, 212,
- 440, 488, 510, 528, 519, 1674, 156, 4101, 4101, 4101,
- 573, 602, 676, 1661, 199, 1652, 646, 655, 670, 554,
-
- 678, 708, 688, 702, 1643, 0, 1636, 723, 1628, 1604,
- 746, 726, 4101, 757, 748, 817, 799, 201, 831, 802,
- 814, 807, 833, 838, 862, 840, 876, 4101, 855, 917,
- 893, 909, 1607, 0, 1592, 1590, 1581, 884, 887, 922,
- 933, 925, 460, 0, 508, 63, 192, 191, 201, 166,
- 323, 257, 244, 573, 205, 1585, 230, 619, 963, 968,
- 886, 227, 1566, 1541, 941, 1003, 976, 0, 0, 963,
- 266, 272, 273, 304, 255, 329, 344, 260, 0, 980,
- 351, 361, 359, 369, 359, 502, 386, 400, 1011, 985,
- 1016, 993, 1023, 1027, 1055, 1547, 4101, 224, 1533, 4101,
-
- 1536, 1528, 1084, 1063, 1079, 1071, 1089, 1093, 1104, 1529,
- 4101, 0, 1513, 4101, 1109, 1513, 4101, 1500, 4101, 1122,
- 1134, 1140, 4101, 1151, 1195, 1191, 1499, 1490, 267, 1223,
- 1193, 1203, 1195, 1224, 1250, 1262, 1243, 1245, 1279, 1281,
- 1493, 1470, 1297, 1293, 1465, 4101, 0, 1457, 4101, 1404,
- 4101, 1388, 4101, 1311, 397, 412, 434, 461, 463, 479,
- 493, 513, 539, 515, 713, 550, 282, 270, 644, 1319,
- 1380, 681, 596, 765, 1333, 654, 679, 557, 587, 688,
- 600, 609, 711, 681, 750, 755, 700, 783, 785, 729,
- 755, 802, 808, 813, 815, 887, 814, 1013, 888, 1313,
-
- 1335, 904, 1027, 909, 1369, 4101, 1348, 4101, 1365, 1368,
- 1355, 1349, 1435, 1373, 1388, 1406, 1409, 1460, 1479, 1492,
- 909, 999, 1570, 1338, 4101, 1323, 4101, 1090, 997, 1067,
- 1009, 1445, 1440, 1456, 1496, 1564, 1542, 1393, 1450, 1578,
- 1594, 1316, 4101, 1306, 4101, 1603, 1635, 1053, 1517, 1085,
- 1086, 1130, 1148, 1095, 1150, 1148, 1171, 1180, 1197, 1200,
- 1203, 617, 776, 1559, 1203, 1244, 1248, 1250, 1270, 1309,
- 1248, 1319, 1341, 1353, 1371, 1412, 1582, 1349, 1361, 1447,
- 1484, 1389, 1400, 1485, 1494, 1500, 1513, 1522, 1572, 1650,
- 1620, 1589, 1447, 1600, 1601, 1616, 1620, 1676, 1689, 1660,
-
- 1704, 1683, 1654, 1709, 1712, 1733, 1746, 1772, 1776, 1623,
- 1650, 1671, 1756, 1683, 1738, 1571, 1592, 1658, 1677, 1708,
- 1707, 1767, 1824, 1845, 1798, 4101, 1811, 1827, 1801, 1851,
- 1884, 4101, 1879, 1745, 1737, 1744, 1778, 1742, 1771, 1806,
- 1042, 1774, 1828, 1827, 1826, 1830, 1826, 1306, 1831, 1839,
- 1864, 1854, 1871, 1875, 1423, 1847, 1881, 1884, 1879, 1883,
- 1879, 1529, 1883, 1878, 1903, 1898, 1901, 1899, 1946, 1896,
- 1904, 1905, 1900, 1905, 1899, 1304, 1959, 1941, 1906, 1971,
- 1987, 1993, 1937, 1938, 1996, 2008, 2021, 1998, 1936, 1991,
- 2003, 2023, 2033, 1976, 1955, 1992, 2090, 1987, 2008, 2013,
-
- 2023, 2059, 2039, 2017, 2041, 2046, 2017, 2094, 2062, 2030,
- 2073, 2070, 2060, 2063, 2079, 2095, 2119, 2125, 2134, 2081,
- 2115, 2130, 2084, 2099, 2111, 2114, 2128, 2117, 2132, 2111,
- 2123, 2132, 2140, 2124, 2138, 2128, 845, 2187, 2126, 2154,
- 2163, 2166, 2172, 2173, 1298, 4101, 2131, 2169, 2178, 2186,
- 2176, 2183, 2173, 928, 2213, 2169, 2194, 2187, 2188, 2194,
- 2195, 1562, 1296, 2182, 2194, 2193, 2209, 2198, 2207, 2197,
- 2242, 2201, 2228, 2222, 2223, 2229, 2234, 2237, 2251, 2229,
- 4101, 2231, 4101, 4101, 2244, 2241, 2235, 2231, 2267, 2233,
- 2259, 2302, 2306, 2311, 2331, 2287, 2280, 2284, 2296, 2297,
-
- 2301, 2294, 2303, 2345, 2366, 2385, 2388, 2330, 2327, 2345,
- 2391, 2307, 2360, 2352, 2362, 2404, 2366, 2412, 2424, 2367,
- 2368, 2437, 2377, 2398, 2275, 2389, 2390, 2396, 2396, 2399,
- 2450, 1295, 467, 2402, 1283, 1265, 1254, 1247, 0, 2408,
- 2424, 2426, 2433, 1194, 601, 1673, 2480, 2433, 1233, 1224,
- 2477, 2484, 0, 2428, 2444, 2446, 2456, 1148, 2493, 1187,
- 693, 2456, 1184, 1178, 1176, 1174, 2435, 2463, 2465, 2477,
- 1119, 786, 2506, 2479, 2496, 2477, 2485, 2474, 2480, 2521,
- 2491, 2513, 2543, 2515, 2558, 2552, 2500, 2566, 2512, 2502,
- 2586, 2515, 2530, 2536, 2524, 2546, 4101, 2544, 4101, 2545,
-
- 4101, 2550, 2558, 2565, 2569, 2557, 2574, 2612, 2589, 2567,
- 2631, 2584, 2637, 2596, 2601, 2591, 2596, 2652, 2661, 2680,
- 2600, 2597, 2610, 2625, 2634, 2685, 1143, 4101, 1119, 4101,
- 2647, 2642, 995, 1021, 1110, 4101, 1078, 4101, 0, 1007,
- 2643, 2648, 2655, 2639, 990, 4101, 2658, 2689, 965, 2705,
- 959, 2715, 2667, 1114, 2720, 927, 2726, 922, 0, 2730,
- 2667, 2683, 2685, 2669, 2740, 906, 2745, 2711, 2697, 897,
- 2702, 2707, 2715, 2688, 2747, 4101, 2723, 2753, 2772, 865,
- 2726, 2737, 4101, 2713, 2792, 4101, 2728, 2740, 2747, 2795,
- 2740, 2798, 2747, 2820, 2749, 2822, 2762, 2836, 2749, 2790,
-
- 2792, 2782, 2794, 2793, 2855, 2859, 2803, 2795, 2792, 2823,
- 2826, 2821, 2823, 4101, 4101, 2841, 2832, 2851, 2836, 2879,
- 2842, 2848, 999, 4101, 862, 858, 4101, 2858, 852, 1059,
- 2859, 2887, 2898, 2861, 840, 2903, 821, 2868, 806, 2905,
- 2873, 2914, 2896, 2875, 2891, 772, 1114, 2892, 2911, 2886,
- 2936, 4101, 2887, 2889, 2896, 2890, 2962, 2967, 2919, 2892,
- 4101, 2901, 2975, 4101, 2983, 2911, 4101, 2989, 4101, 2935,
- 737, 2998, 2946, 2955, 2954, 2952, 4101, 2958, 2958, 2970,
- 2979, 2983, 2971, 3023, 2990, 2992, 2986, 2988, 4101, 3026,
- 742, 4101, 2995, 721, 728, 4101, 3027, 2988, 3030, 3043,
-
- 726, 3007, 706, 3049, 698, 3057, 3000, 3062, 3055, 661,
- 3020, 3035, 3020, 3064, 3023, 3034, 3050, 3041, 3105, 3037,
- 3047, 3111, 3051, 3119, 3051, 3125, 4101, 3060, 4101, 3053,
- 3069, 4101, 3077, 3134, 3082, 3088, 3095, 3148, 3117, 3163,
- 3169, 3106, 4101, 3113, 3115, 3130, 3122, 654, 4101, 3127,
- 584, 3150, 3130, 570, 3178, 3140, 567, 3189, 3138, 3194,
- 553, 3152, 3155, 3154, 532, 3167, 3164, 3173, 3203, 4101,
- 3209, 3170, 3169, 3235, 4101, 3179, 3241, 3249, 3201, 3183,
- 3255, 4101, 3263, 3206, 3271, 4101, 3207, 4101, 4101, 3224,
- 3229, 3226, 490, 3240, 470, 4101, 462, 4101, 3277, 455,
-
- 454, 4101, 3278, 446, 433, 3292, 425, 3297, 411, 403,
- 3280, 379, 3246, 3244, 3259, 4101, 4101, 3264, 3252, 3323,
- 4101, 3325, 4101, 4101, 3271, 3331, 3328, 3281, 4101, 3282,
- 4101, 3303, 3313, 3311, 327, 3316, 3324, 4101, 307, 1157,
- 3352, 1215, 305, 3318, 3318, 3364, 3325, 3334, 3388, 3390,
- 4101, 3394, 3331, 4101, 3324, 3402, 3410, 3416, 3430, 3336,
- 3338, 3338, 301, 4101, 250, 3418, 208, 206, 3438, 3375,
- 3372, 3390, 3444, 3389, 3446, 3460, 4101, 4101, 4101, 4101,
- 3394, 3406, 3411, 4101, 3427, 3434, 3469, 3483, 3432, 3445,
- 159, 3489, 3440, 3497, 4101, 3505, 3471, 3513, 3473, 4101,
-
- 3449, 3519, 3484, 3498, 4101, 3504, 3505, 3533, 3549, 3492,
- 3503, 3506, 4101, 3568, 3502, 3502, 4101, 3572, 3521, 4101,
- 3588, 4101, 4101, 3608, 3616, 3621, 3626, 3634, 3642, 3647,
- 3649, 3657, 3665, 3673, 162, 3681, 3689, 3697, 3705, 159,
- 3713, 3721, 3729, 3737, 3745, 3753, 3761, 3769, 3777, 3785,
- 131, 3793, 3801, 3809, 3817, 3825, 3833, 3839, 3844, 3852,
- 3860, 3868, 3876, 3884, 3892, 3900, 3908, 3916, 3924, 3932,
- 3940, 3948, 3956, 3964, 3972, 3980, 3988, 3996, 4004, 4012,
- 4020, 4028, 4036, 4044, 4052, 4060, 4068, 4076, 4084, 4092
- } ;
-
-static yyconst flex_int16_t yy_def[1191] =
- { 0,
- 1123, 1, 1, 1, 1, 1, 1124, 1124, 1125, 1125,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1126, 1123, 1123, 1123, 1123, 1123,
- 1126, 1126, 1126, 1126, 1126, 1126, 1126, 1126, 1126, 1126,
- 1126, 1126, 1126, 1126, 1126, 1126, 1126, 1126, 1126, 1127,
- 1126, 1123, 1128, 1123, 1123, 1123, 1123, 1126, 1123, 1123,
- 1123, 1126, 1129, 1123, 1123, 1129, 1123, 1129, 1123, 1123,
- 1123, 1130, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1126, 1126, 1126, 1131, 1126, 1123, 1123, 1123, 1123, 1123,
- 1126, 1126, 1126, 1132, 1123, 1133, 1126, 1126, 1126, 1126,
-
- 1126, 1126, 1126, 1126, 1134, 1135, 1136, 1126, 1137, 1138,
- 1126, 1126, 1123, 1126, 1126, 1126, 1126, 1123, 1126, 1126,
- 1126, 1126, 1126, 1126, 1126, 1126, 1126, 1123, 1126, 1126,
- 1126, 1126, 1139, 1140, 1141, 1142, 1143, 1126, 1126, 1126,
- 1131, 1126, 74, 1128, 1128, 1128, 1128, 1128, 1128, 1128,
- 1128, 1128, 1128, 1123, 1123, 1123, 1123, 1123, 1123, 1126,
- 1123, 1123, 1123, 1123, 1123, 1123, 1126, 1129, 1129, 1129,
- 1129, 1129, 1129, 1129, 1129, 1129, 1129, 1129, 1130, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1126, 1126,
- 1131, 1126, 1126, 1126, 1123, 1132, 1123, 1123, 1133, 1123,
-
- 1144, 1145, 1126, 1126, 1126, 1126, 1126, 1126, 1126, 1134,
- 1123, 1135, 1136, 1123, 1126, 1137, 1123, 1138, 1123, 1126,
- 1126, 1126, 1123, 1126, 1123, 1126, 1146, 1147, 1123, 1123,
- 1126, 1126, 1126, 1126, 1126, 1126, 1126, 1126, 1126, 1126,
- 1148, 1149, 1126, 1126, 1150, 1123, 1151, 1152, 1123, 1153,
- 1123, 1154, 1123, 1123, 1128, 1128, 1128, 1128, 1128, 1128,
- 1128, 1128, 1128, 1128, 1128, 1128, 1123, 1123, 1123, 1126,
- 1123, 1123, 1123, 1123, 1126, 1129, 1129, 1129, 1129, 1129,
- 1129, 1129, 1129, 1129, 1129, 1129, 1129, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1126,
-
- 1126, 1123, 1123, 1123, 1144, 1123, 1145, 1123, 1123, 1126,
- 1126, 1126, 1126, 1126, 1126, 1126, 1126, 1126, 1126, 1126,
- 1123, 1123, 1123, 1146, 1123, 1147, 1123, 1123, 1123, 1123,
- 1123, 1126, 1126, 1126, 1126, 1126, 1126, 1126, 1126, 1126,
- 1126, 1148, 1123, 1149, 1123, 1126, 1126, 1123, 1128, 1128,
- 1128, 1128, 1128, 1128, 1128, 1128, 1128, 1128, 1128, 1128,
- 1128, 1123, 1123, 1129, 1129, 1129, 1129, 1129, 1129, 1129,
- 1129, 1129, 1129, 1129, 1129, 1129, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1126,
- 1126, 1123, 1123, 1123, 1123, 1123, 1123, 1126, 1126, 1126,
-
- 1123, 1126, 1126, 1126, 1126, 1123, 1123, 1126, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1126, 1126, 1126, 1126, 1123, 1123, 1126, 1126, 1123,
- 1123, 1123, 1123, 1123, 1128, 1128, 1128, 1128, 1128, 1128,
- 1128, 1128, 1128, 1128, 1128, 1128, 1128, 1155, 1129, 1129,
- 1129, 1129, 1129, 1129, 1129, 1129, 1129, 1129, 1129, 1129,
- 1129, 1156, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1157, 1123, 1126, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1126, 1123, 1126, 1123, 1126,
- 1126, 1126, 1126, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
-
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1126, 1123, 1123, 1126, 1123,
- 1126, 1126, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1128,
- 1128, 1128, 1128, 1128, 1128, 1128, 1128, 1128, 1128, 1128,
- 1128, 1128, 1128, 1128, 1155, 1123, 1129, 1129, 1129, 1129,
- 1129, 1129, 1129, 1123, 1129, 1129, 1129, 1129, 1129, 1129,
- 1129, 1156, 1157, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1126, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1126, 1123,
- 1126, 1126, 1126, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
-
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1126, 1123,
- 1123, 1123, 1123, 1126, 1158, 1123, 1123, 1123, 1123, 1123,
- 1123, 1159, 1160, 1128, 1128, 1128, 1161, 1162, 1163, 1128,
- 1128, 1128, 1128, 1128, 1164, 1165, 1166, 1129, 1129, 1129,
- 1167, 1168, 1169, 1129, 1129, 1129, 1129, 1129, 1170, 1171,
- 1172, 1123, 1123, 1123, 1173, 1174, 1123, 1123, 1123, 1123,
- 1123, 1175, 1123, 1123, 1126, 1123, 1123, 1123, 1123, 1123,
- 1123, 1126, 1123, 1126, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
-
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1126, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1159, 1123, 1160, 1123,
- 1160, 1128, 1123, 1128, 1161, 1123, 1162, 1123, 1163, 1176,
- 1128, 1128, 1128, 1128, 1164, 1123, 1164, 1165, 1171, 1166,
- 1172, 1166, 1129, 1123, 1167, 1173, 1168, 1174, 1169, 1177,
- 1129, 1129, 1129, 1129, 1170, 1175, 1170, 1172, 1123, 1178,
- 1123, 1123, 1123, 1123, 1175, 1123, 1123, 1126, 1123, 1123,
- 1123, 1123, 1123, 1123, 1126, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
-
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1160, 1128, 1123, 1123, 1128, 1176, 1123, 1128, 1128, 1179,
- 1128, 1164, 1166, 1129, 1123, 1177, 1178, 1129, 1129, 1180,
- 1129, 1170, 1172, 1123, 1123, 1123, 1181, 1123, 1175, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1160,
- 1128, 1123, 1128, 1128, 1179, 1123, 1179, 1128, 1164, 1166,
-
- 1129, 1129, 1123, 1180, 1181, 1180, 1129, 1170, 1172, 1123,
- 1123, 1181, 1123, 1175, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1182, 1123, 1128,
- 1128, 1179, 1128, 1183, 1184, 1129, 1123, 1180, 1129, 1185,
- 1186, 1123, 1181, 1123, 1187, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1182, 1123, 1128, 1123, 1179, 1128,
-
- 1183, 1123, 1184, 1186, 1129, 1180, 1129, 1185, 1187, 1123,
- 1181, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1188, 1128,
- 1189, 1123, 1190, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1188, 1123, 1128, 1189, 1190, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
-
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 0, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123
- } ;
-
-static yyconst flex_uint16_t yy_nxt[4182] =
- { 0,
- 12, 13, 14, 15, 12, 16, 17, 15, 18, 19,
- 20, 21, 12, 22, 23, 24, 25, 25, 26, 27,
- 28, 29, 30, 12, 31, 32, 33, 33, 34, 35,
- 36, 37, 38, 33, 33, 39, 33, 40, 41, 42,
- 33, 43, 44, 45, 46, 33, 47, 48, 33, 49,
- 12, 31, 32, 33, 33, 34, 35, 36, 37, 38,
- 33, 39, 33, 40, 41, 42, 33, 43, 44, 45,
- 46, 33, 47, 48, 33, 49, 33, 50, 51, 33,
- 52, 156, 53, 54, 55, 56, 57, 258, 58, 58,
- 52, 157, 53, 76, 76, 78, 78, 78, 78, 54,
-
- 55, 56, 57, 86, 58, 58, 59, 60, 61, 88,
- 89, 62, 62, 52, 258, 53, 13, 64, 13, 67,
- 87, 68, 59, 60, 61, 79, 79, 62, 62, 75,
- 154, 143, 155, 155, 65, 247, 65, 154, 80, 155,
- 155, 161, 86, 86, 169, 162, 162, 66, 161, 66,
- 76, 76, 162, 162, 75, 75, 143, 143, 86, 87,
- 87, 94, 95, 247, 81, 96, 212, 82, 82, 81,
- 169, 81, 1099, 81, 66, 87, 66, 69, 13, 70,
- 69, 69, 69, 69, 69, 69, 69, 69, 69, 69,
- 69, 69, 69, 69, 69, 69, 71, 69, 69, 69,
-
- 69, 81, 78, 78, 262, 97, 81, 1084, 81, 1064,
- 81, 79, 79, 79, 79, 198, 198, 229, 229, 154,
- 259, 155, 155, 260, 80, 261, 80, 69, 84, 85,
- 262, 97, 156, 84, 85, 84, 85, 84, 85, 161,
- 198, 198, 157, 162, 162, 81, 154, 259, 160, 160,
- 260, 1084, 261, 69, 69, 69, 69, 69, 13, 73,
- 69, 74, 69, 69, 69, 69, 69, 69, 69, 69,
- 69, 69, 69, 69, 69, 69, 71, 69, 69, 69,
- 69, 81, 81, 229, 229, 265, 362, 362, 266, 81,
- 279, 105, 106, 283, 81, 107, 268, 91, 269, 269,
-
- 280, 81, 1064, 92, 287, 281, 1064, 69, 1064, 84,
- 85, 93, 265, 98, 266, 81, 99, 279, 81, 283,
- 81, 100, 102, 101, 91, 103, 81, 280, 282, 92,
- 287, 81, 281, 69, 69, 69, 69, 93, 81, 98,
- 1060, 81, 99, 104, 108, 84, 85, 100, 102, 101,
- 263, 103, 81, 84, 85, 282, 284, 81, 84, 85,
- 120, 81, 118, 109, 81, 84, 85, 110, 264, 104,
- 108, 81, 286, 81, 285, 291, 121, 263, 81, 84,
- 85, 1042, 127, 284, 84, 85, 128, 120, 111, 292,
- 128, 293, 112, 294, 264, 119, 81, 295, 81, 286,
-
- 285, 81, 291, 121, 1038, 84, 85, 136, 81, 127,
- 81, 137, 1002, 81, 298, 111, 292, 81, 293, 112,
- 294, 119, 129, 295, 349, 84, 85, 1042, 84, 85,
- 130, 131, 132, 81, 1038, 84, 85, 84, 85, 113,
- 350, 298, 81, 113, 299, 83, 83, 996, 129, 81,
- 81, 349, 138, 81, 81, 1002, 130, 1040, 131, 132,
- 84, 85, 114, 1038, 115, 133, 134, 350, 730, 135,
- 299, 996, 79, 79, 116, 81, 351, 84, 85, 140,
- 731, 84, 85, 117, 254, 80, 81, 158, 158, 114,
- 81, 115, 353, 161, 81, 1123, 352, 167, 167, 159,
-
- 116, 81, 351, 1036, 189, 189, 141, 142, 83, 117,
- 163, 254, 81, 84, 85, 81, 354, 84, 85, 353,
- 164, 1123, 352, 81, 165, 165, 159, 355, 122, 296,
- 123, 81, 81, 1002, 124, 255, 166, 356, 81, 84,
- 85, 81, 354, 358, 83, 83, 125, 297, 126, 256,
- 257, 83, 81, 355, 996, 122, 296, 123, 84, 85,
- 81, 124, 255, 166, 356, 84, 85, 81, 998, 81,
- 358, 1002, 125, 297, 126, 256, 257, 357, 190, 84,
- 85, 145, 205, 146, 147, 998, 81, 84, 85, 158,
- 158, 361, 148, 149, 150, 151, 84, 85, 152, 366,
-
- 153, 159, 746, 357, 81, 191, 192, 83, 145, 205,
- 146, 147, 363, 363, 747, 81, 193, 361, 148, 149,
- 150, 151, 367, 81, 152, 366, 153, 170, 159, 171,
- 172, 84, 85, 362, 362, 158, 158, 369, 173, 174,
- 175, 176, 193, 370, 177, 194, 178, 159, 367, 201,
- 84, 85, 81, 202, 170, 996, 171, 172, 268, 81,
- 269, 269, 949, 369, 173, 174, 175, 176, 81, 370,
- 177, 194, 178, 180, 159, 181, 182, 195, 195, 84,
- 85, 364, 203, 81, 183, 184, 185, 186, 195, 81,
- 187, 81, 188, 273, 730, 195, 81, 274, 274, 896,
-
- 180, 81, 181, 182, 206, 81, 768, 365, 364, 203,
- 183, 184, 185, 186, 204, 81, 187, 368, 188, 372,
- 81, 81, 957, 84, 85, 208, 81, 949, 81, 896,
- 209, 206, 84, 85, 365, 371, 81, 951, 81, 81,
- 204, 376, 359, 949, 368, 372, 207, 84, 85, 360,
- 931, 208, 81, 84, 85, 84, 85, 209, 81, 81,
- 223, 81, 371, 222, 223, 84, 85, 376, 215, 359,
- 81, 379, 207, 81, 903, 360, 81, 273, 373, 84,
- 85, 274, 274, 220, 374, 84, 85, 746, 221, 222,
- 380, 375, 363, 363, 215, 224, 81, 379, 81, 775,
-
- 84, 85, 227, 84, 85, 373, 228, 81, 903, 220,
- 377, 374, 81, 378, 221, 81, 380, 375, 225, 225,
- 81, 224, 827, 84, 85, 84, 85, 81, 231, 225,
- 81, 381, 230, 230, 84, 85, 225, 377, 232, 384,
- 378, 892, 386, 230, 81, 382, 81, 383, 234, 81,
- 230, 81, 81, 81, 894, 231, 233, 81, 381, 827,
- 226, 538, 538, 892, 81, 232, 384, 81, 81, 386,
- 235, 382, 238, 383, 234, 81, 84, 85, 853, 84,
- 85, 81, 233, 81, 84, 85, 226, 236, 81, 81,
- 81, 84, 85, 240, 84, 85, 235, 81, 827, 238,
-
- 81, 237, 165, 165, 239, 81, 81, 746, 84, 85,
- 84, 85, 81, 236, 166, 84, 85, 84, 85, 240,
- 241, 243, 81, 738, 242, 385, 81, 237, 736, 389,
- 81, 239, 84, 85, 81, 81, 410, 81, 81, 84,
- 85, 166, 392, 81, 571, 571, 81, 395, 243, 83,
- 83, 385, 244, 84, 85, 389, 83, 165, 165, 81,
- 730, 84, 85, 410, 84, 85, 728, 81, 392, 166,
- 84, 85, 81, 395, 267, 81, 267, 268, 244, 269,
- 269, 81, 154, 190, 270, 270, 84, 85, 161, 81,
- 276, 746, 275, 275, 84, 85, 166, 823, 81, 84,
-
- 85, 823, 84, 85, 277, 278, 81, 288, 827, 824,
- 191, 192, 83, 824, 272, 273, 272, 276, 81, 274,
- 274, 289, 290, 411, 81, 419, 81, 189, 189, 81,
- 277, 278, 83, 83, 288, 81, 81, 825, 825, 83,
- 81, 421, 387, 81, 537, 84, 85, 289, 290, 388,
- 411, 300, 419, 84, 85, 301, 195, 195, 538, 538,
- 896, 81, 84, 85, 393, 394, 190, 195, 421, 387,
- 84, 85, 897, 81, 195, 388, 81, 81, 300, 738,
- 302, 434, 301, 303, 81, 309, 309, 310, 84, 85,
- 393, 394, 81, 191, 192, 83, 309, 81, 304, 312,
-
- 84, 85, 81, 309, 84, 85, 81, 302, 434, 437,
- 303, 736, 420, 81, 310, 896, 311, 81, 438, 314,
- 730, 81, 81, 441, 304, 313, 312, 912, 315, 81,
- 835, 835, 417, 316, 81, 81, 437, 418, 420, 81,
- 84, 85, 311, 81, 728, 438, 314, 81, 84, 85,
- 441, 313, 317, 81, 81, 315, 84, 85, 417, 81,
- 316, 84, 85, 418, 81, 439, 84, 85, 319, 774,
- 84, 85, 81, 1065, 1065, 738, 318, 736, 442, 317,
- 754, 84, 85, 440, 81, 733, 84, 85, 728, 443,
- 81, 439, 323, 323, 320, 319, 225, 225, 764, 84,
-
- 85, 81, 318, 323, 81, 442, 81, 225, 81, 440,
- 323, 84, 85, 444, 225, 443, 81, 84, 85, 321,
- 320, 445, 322, 334, 230, 230, 754, 451, 84, 85,
- 333, 1068, 1068, 446, 733, 230, 332, 81, 447, 444,
- 448, 81, 230, 81, 744, 81, 321, 445, 738, 322,
- 334, 328, 335, 81, 451, 736, 81, 333, 81, 446,
- 329, 330, 332, 81, 447, 331, 448, 734, 84, 85,
- 84, 85, 84, 85, 81, 81, 452, 336, 328, 335,
- 84, 85, 338, 453, 733, 454, 329, 330, 339, 457,
- 337, 331, 81, 81, 81, 81, 728, 546, 455, 546,
-
- 81, 84, 85, 452, 336, 546, 81, 546, 338, 453,
- 81, 454, 81, 345, 339, 457, 340, 337, 341, 343,
- 84, 85, 84, 85, 347, 455, 81, 84, 85, 81,
- 327, 81, 81, 154, 346, 270, 270, 456, 288, 84,
- 85, 325, 340, 81, 341, 161, 81, 81, 81, 275,
- 275, 347, 348, 290, 390, 308, 84, 85, 84, 85,
- 346, 458, 81, 81, 456, 288, 309, 309, 81, 81,
- 84, 85, 306, 465, 84, 85, 391, 309, 348, 290,
- 390, 81, 459, 81, 309, 81, 81, 458, 400, 460,
- 84, 85, 271, 466, 396, 253, 84, 85, 399, 81,
-
- 465, 81, 391, 398, 397, 81, 81, 251, 459, 461,
- 84, 85, 84, 85, 400, 460, 402, 469, 81, 81,
- 466, 396, 81, 81, 399, 554, 84, 85, 470, 398,
- 397, 403, 84, 85, 428, 461, 401, 401, 81, 555,
- 555, 404, 402, 81, 469, 84, 85, 401, 81, 462,
- 84, 85, 405, 81, 401, 470, 81, 403, 81, 81,
- 428, 406, 406, 81, 249, 84, 85, 404, 246, 81,
- 84, 85, 406, 81, 480, 462, 429, 345, 405, 406,
- 407, 407, 467, 84, 85, 81, 84, 85, 423, 422,
- 81, 407, 81, 409, 409, 81, 343, 327, 407, 424,
-
- 81, 480, 325, 429, 409, 81, 81, 219, 467, 81,
- 81, 409, 84, 85, 423, 422, 217, 84, 85, 468,
- 214, 408, 84, 85, 425, 424, 471, 84, 85, 81,
- 546, 563, 211, 84, 85, 308, 472, 84, 85, 306,
- 200, 473, 81, 427, 427, 468, 81, 408, 563, 474,
- 197, 425, 471, 271, 427, 81, 84, 85, 435, 436,
- 475, 427, 472, 546, 563, 426, 426, 473, 163, 84,
- 85, 323, 323, 84, 85, 474, 426, 81, 426, 430,
- 430, 563, 323, 426, 435, 436, 475, 156, 253, 323,
- 430, 81, 81, 251, 412, 431, 431, 430, 413, 249,
-
- 449, 450, 414, 510, 432, 432, 431, 81, 415, 476,
- 246, 219, 416, 431, 81, 432, 81, 432, 511, 84,
- 85, 412, 432, 463, 464, 413, 449, 450, 81, 414,
- 510, 217, 479, 81, 415, 476, 433, 433, 416, 481,
- 482, 84, 85, 214, 81, 511, 211, 433, 81, 463,
- 464, 477, 477, 81, 433, 84, 85, 478, 479, 200,
- 483, 484, 477, 81, 197, 481, 482, 81, 500, 477,
- 81, 84, 85, 81, 728, 749, 86, 485, 485, 75,
- 84, 85, 491, 478, 512, 81, 483, 484, 485, 81,
- 487, 487, 749, 501, 500, 485, 81, 84, 85, 75,
-
- 81, 487, 81, 488, 81, 401, 401, 75, 487, 491,
- 81, 512, 84, 85, 502, 490, 401, 90, 486, 501,
- 507, 77, 81, 401, 513, 81, 81, 84, 85, 488,
- 489, 84, 85, 81, 406, 406, 514, 84, 85, 81,
- 502, 492, 490, 493, 486, 406, 507, 407, 407, 75,
- 513, 1123, 406, 84, 85, 1123, 515, 489, 407, 81,
- 84, 85, 81, 514, 1123, 407, 84, 85, 492, 529,
- 493, 494, 534, 497, 497, 508, 495, 409, 409, 530,
- 81, 496, 515, 509, 497, 81, 84, 85, 409, 84,
- 85, 497, 531, 503, 504, 409, 529, 494, 505, 534,
-
- 535, 508, 495, 506, 532, 530, 498, 496, 516, 509,
- 1123, 81, 427, 427, 81, 499, 539, 81, 531, 503,
- 504, 1123, 81, 427, 505, 517, 517, 535, 533, 506,
- 427, 532, 522, 498, 516, 519, 517, 81, 536, 520,
- 81, 499, 539, 517, 84, 85, 518, 518, 81, 84,
- 85, 81, 430, 430, 1123, 521, 540, 518, 81, 522,
- 1123, 519, 541, 430, 518, 536, 520, 542, 543, 1123,
- 430, 544, 1123, 547, 81, 84, 85, 81, 84, 85,
- 433, 433, 521, 540, 551, 431, 431, 548, 541, 556,
- 549, 433, 523, 542, 543, 81, 431, 544, 433, 547,
-
- 552, 84, 85, 431, 84, 85, 527, 553, 524, 557,
- 525, 551, 526, 548, 550, 556, 528, 549, 523, 558,
- 559, 560, 84, 85, 561, 564, 565, 552, 568, 566,
- 569, 570, 573, 527, 553, 524, 557, 525, 572, 526,
- 574, 575, 528, 576, 577, 558, 559, 560, 554, 580,
- 561, 564, 565, 567, 81, 568, 566, 569, 570, 573,
- 477, 477, 571, 571, 572, 579, 574, 575, 1123, 576,
- 577, 477, 581, 581, 585, 580, 586, 590, 477, 1123,
- 1123, 1123, 1123, 581, 582, 581, 596, 578, 583, 583,
- 581, 81, 579, 1123, 584, 584, 1123, 485, 485, 583,
-
- 585, 583, 586, 590, 81, 584, 583, 584, 485, 485,
- 485, 81, 584, 596, 578, 485, 81, 595, 84, 85,
- 485, 81, 487, 487, 597, 1123, 1123, 485, 601, 591,
- 589, 1123, 602, 487, 594, 594, 81, 603, 1123, 587,
- 487, 81, 1123, 595, 592, 594, 81, 604, 81, 1123,
- 593, 597, 594, 81, 601, 591, 607, 589, 81, 602,
- 605, 605, 610, 588, 603, 587, 606, 608, 84, 85,
- 592, 605, 609, 81, 604, 84, 85, 593, 605, 613,
- 84, 85, 607, 81, 1123, 84, 85, 1123, 610, 588,
- 612, 497, 497, 606, 608, 611, 611, 614, 615, 609,
-
- 84, 85, 497, 616, 617, 613, 611, 618, 81, 497,
- 84, 85, 626, 611, 598, 599, 1123, 612, 1123, 1123,
- 517, 517, 623, 619, 614, 615, 518, 518, 81, 616,
- 617, 517, 625, 600, 618, 622, 622, 518, 517, 626,
- 627, 598, 599, 81, 518, 81, 622, 81, 623, 628,
- 619, 629, 630, 622, 1123, 631, 632, 624, 566, 600,
- 633, 636, 620, 634, 635, 81, 627, 1123, 621, 637,
- 1123, 638, 84, 85, 640, 628, 646, 629, 641, 630,
- 81, 631, 632, 624, 81, 566, 633, 636, 620, 639,
- 634, 635, 84, 85, 621, 642, 637, 638, 643, 644,
-
- 640, 645, 646, 538, 538, 641, 647, 84, 85, 648,
- 649, 84, 85, 650, 651, 653, 652, 654, 655, 656,
- 657, 658, 642, 659, 662, 643, 644, 660, 645, 555,
- 555, 661, 647, 663, 1123, 664, 648, 649, 665, 650,
- 666, 651, 652, 654, 653, 655, 656, 657, 658, 667,
- 659, 662, 668, 660, 669, 670, 671, 661, 571, 571,
- 663, 664, 672, 673, 81, 665, 666, 676, 1123, 677,
- 678, 679, 81, 680, 681, 667, 683, 625, 1123, 668,
- 81, 669, 670, 671, 674, 1123, 1123, 1123, 1123, 672,
- 673, 719, 719, 676, 675, 677, 684, 678, 679, 680,
-
- 681, 81, 683, 685, 685, 682, 1123, 686, 686, 81,
- 674, 689, 594, 594, 685, 81, 690, 81, 686, 81,
- 675, 685, 684, 594, 695, 686, 1123, 691, 84, 85,
- 594, 682, 688, 688, 692, 693, 84, 85, 689, 694,
- 696, 1123, 690, 688, 84, 85, 697, 697, 707, 687,
- 688, 695, 81, 691, 702, 703, 81, 697, 1123, 697,
- 692, 693, 1123, 1123, 697, 694, 696, 605, 605, 704,
- 1123, 1123, 1123, 1123, 707, 687, 1123, 1123, 605, 84,
- 85, 702, 703, 84, 85, 605, 699, 699, 708, 701,
- 701, 709, 611, 611, 698, 712, 704, 699, 700, 699,
-
- 701, 710, 701, 611, 699, 711, 711, 701, 714, 715,
- 611, 81, 1123, 427, 427, 708, 711, 709, 717, 705,
- 722, 698, 712, 711, 427, 713, 713, 710, 721, 706,
- 732, 427, 723, 416, 714, 715, 713, 81, 622, 622,
- 718, 724, 725, 713, 717, 740, 705, 722, 81, 622,
- 741, 726, 726, 742, 721, 706, 622, 732, 723, 416,
- 743, 753, 726, 716, 1123, 760, 718, 724, 725, 726,
- 761, 740, 770, 762, 81, 84, 85, 741, 736, 756,
- 742, 730, 751, 763, 769, 738, 758, 743, 753, 771,
- 716, 760, 772, 752, 746, 766, 756, 761, 770, 751,
-
- 762, 84, 85, 758, 773, 777, 767, 776, 776, 81,
- 763, 769, 766, 779, 780, 784, 771, 781, 776, 772,
- 776, 782, 783, 783, 778, 776, 81, 1123, 81, 790,
- 1123, 773, 777, 783, 793, 783, 1123, 1123, 1123, 779,
- 783, 780, 784, 781, 786, 786, 81, 782, 1123, 792,
- 785, 778, 798, 686, 686, 786, 790, 786, 795, 685,
- 685, 793, 786, 81, 686, 81, 1123, 688, 688, 796,
- 685, 686, 799, 84, 85, 792, 785, 685, 688, 798,
- 797, 503, 504, 800, 795, 688, 789, 794, 794, 801,
- 84, 85, 84, 85, 791, 796, 787, 802, 794, 799,
-
- 803, 788, 509, 804, 1123, 794, 797, 503, 504, 800,
- 807, 505, 789, 805, 805, 801, 506, 806, 1123, 808,
- 810, 791, 787, 802, 805, 811, 803, 788, 509, 812,
- 804, 805, 711, 711, 813, 816, 807, 505, 713, 713,
- 1123, 817, 506, 711, 806, 808, 818, 810, 730, 713,
- 711, 1123, 811, 814, 814, 812, 713, 819, 820, 746,
- 813, 816, 815, 815, 814, 81, 814, 817, 822, 1123,
- 499, 814, 818, 815, 828, 815, 829, 720, 720, 809,
- 815, 815, 815, 830, 819, 820, 726, 726, 831, 821,
- 728, 749, 815, 834, 815, 822, 499, 726, 838, 815,
-
- 832, 828, 81, 829, 726, 809, 730, 751, 749, 321,
- 830, 839, 730, 840, 831, 821, 730, 751, 841, 1123,
- 834, 736, 756, 844, 751, 838, 832, 738, 758, 84,
- 85, 827, 837, 845, 751, 846, 321, 848, 839, 756,
- 840, 746, 766, 847, 841, 758, 746, 766, 746, 837,
- 844, 850, 1123, 843, 851, 851, 856, 833, 854, 766,
- 845, 855, 846, 848, 766, 851, 81, 1123, 1123, 858,
- 847, 859, 851, 852, 852, 860, 1123, 1123, 850, 843,
- 862, 870, 856, 833, 852, 854, 852, 842, 855, 849,
- 865, 852, 866, 857, 857, 858, 861, 861, 859, 863,
-
- 863, 868, 860, 81, 857, 81, 862, 861, 870, 861,
- 863, 857, 864, 842, 861, 849, 865, 863, 866, 871,
- 872, 794, 794, 867, 867, 873, 874, 868, 875, 1123,
- 84, 85, 794, 879, 867, 878, 867, 869, 869, 794,
- 880, 867, 81, 730, 1123, 599, 871, 872, 869, 881,
- 869, 873, 882, 874, 875, 869, 805, 805, 883, 879,
- 877, 877, 878, 600, 884, 885, 880, 805, 886, 84,
- 85, 877, 599, 877, 805, 887, 881, 888, 877, 882,
- 889, 889, 891, 876, 883, 890, 893, 898, 746, 600,
- 884, 889, 885, 889, 886, 901, 902, 730, 889, 730,
-
- 751, 907, 887, 888, 827, 837, 896, 905, 891, 910,
- 876, 890, 746, 893, 898, 746, 766, 751, 906, 911,
- 913, 901, 837, 902, 905, 915, 917, 918, 907, 1123,
- 899, 1123, 919, 766, 920, 910, 1123, 851, 851, 909,
- 924, 900, 1123, 923, 1123, 925, 911, 913, 851, 928,
- 1123, 915, 917, 918, 914, 851, 899, 908, 919, 1123,
- 920, 1123, 916, 857, 857, 909, 924, 900, 922, 922,
- 923, 925, 930, 1123, 857, 928, 926, 926, 933, 922,
- 914, 857, 934, 908, 927, 927, 922, 926, 921, 916,
- 929, 929, 935, 936, 926, 927, 937, 927, 930, 932,
-
- 932, 929, 927, 929, 938, 933, 939, 940, 929, 934,
- 932, 941, 932, 494, 942, 921, 944, 932, 935, 936,
- 945, 950, 937, 946, 943, 943, 947, 730, 896, 953,
- 938, 746, 939, 956, 940, 943, 896, 943, 941, 494,
- 942, 959, 943, 944, 730, 751, 962, 945, 950, 946,
- 896, 905, 947, 948, 1123, 953, 730, 954, 896, 905,
- 956, 964, 751, 746, 766, 746, 966, 959, 905, 952,
- 955, 1123, 967, 962, 968, 976, 905, 963, 969, 971,
- 948, 766, 961, 978, 954, 972, 1123, 964, 974, 960,
- 1123, 965, 966, 1123, 1123, 952, 977, 955, 967, 958,
-
- 1123, 968, 976, 963, 969, 971, 970, 970, 979, 961,
- 978, 972, 922, 922, 974, 980, 960, 970, 965, 970,
- 975, 975, 977, 922, 970, 958, 926, 926, 983, 984,
- 922, 975, 985, 975, 979, 981, 981, 926, 975, 973,
- 1123, 980, 987, 1123, 926, 991, 981, 990, 982, 986,
- 986, 896, 992, 981, 983, 984, 896, 993, 985, 994,
- 986, 997, 986, 494, 988, 988, 973, 986, 1000, 987,
- 989, 989, 991, 990, 1005, 988, 1007, 988, 992, 996,
- 1004, 989, 988, 989, 993, 994, 1010, 997, 989, 494,
- 896, 905, 1012, 999, 1000, 1002, 1009, 1004, 1011, 1013,
-
- 1005, 1014, 1007, 1015, 1016, 1016, 1123, 1018, 905, 1019,
- 1017, 1017, 1010, 1009, 1022, 1016, 1123, 1016, 1012, 999,
- 1026, 1017, 1016, 1017, 1011, 1025, 1013, 1014, 1017, 1123,
- 1015, 1123, 1006, 1018, 1123, 1019, 1020, 1020, 1123, 1123,
- 1022, 1123, 1023, 1023, 1030, 1032, 1026, 1020, 1123, 1021,
- 1024, 1024, 1025, 1023, 1020, 1023, 1027, 1027, 1006, 1123,
- 1023, 1024, 1033, 1024, 1029, 1029, 1034, 1027, 1024, 1035,
- 1030, 1032, 1031, 1031, 1027, 1029, 1037, 1029, 896, 996,
- 1004, 896, 1029, 1031, 1044, 1031, 1045, 1046, 1033, 1028,
- 1031, 1047, 1034, 896, 905, 1035, 1048, 1004, 1002, 1009,
-
- 1123, 1053, 1037, 1123, 1039, 1123, 1123, 1043, 1123, 1055,
- 1044, 905, 1045, 1123, 1046, 1028, 1009, 1123, 1047, 1041,
- 1123, 1123, 1048, 1056, 1049, 1049, 1050, 1050, 1053, 1027,
- 1027, 1039, 1054, 1054, 1043, 1049, 1055, 1050, 1057, 1051,
- 1027, 1059, 1049, 1054, 1050, 1054, 1041, 1027, 1058, 1056,
- 1054, 1061, 1062, 1064, 1067, 1069, 1070, 1071, 1072, 1075,
- 1123, 787, 1028, 1123, 1057, 583, 583, 1052, 1059, 1123,
- 1082, 1067, 1076, 1081, 1058, 1083, 583, 1061, 583, 1062,
- 1123, 1069, 1070, 583, 1071, 1072, 1075, 787, 1028, 1049,
- 1049, 1073, 1073, 1052, 1123, 1050, 1050, 1082, 1076, 1081,
-
- 1049, 1083, 1073, 1077, 1077, 1123, 1050, 1049, 1051, 1073,
- 1085, 1078, 1078, 1050, 1077, 1086, 1077, 1079, 1079, 1064,
- 1067, 1077, 1078, 1123, 1078, 1087, 787, 1088, 1079, 1078,
- 1079, 1080, 1080, 1074, 1123, 1079, 1085, 1067, 1089, 857,
- 857, 1086, 1080, 1090, 1080, 1073, 1073, 701, 701, 1080,
- 857, 1087, 787, 1088, 1091, 1092, 1073, 857, 701, 1074,
- 701, 982, 982, 1073, 1089, 701, 1093, 1123, 1097, 1090,
- 1094, 1094, 982, 1098, 982, 1123, 1123, 1123, 1101, 982,
- 1091, 1094, 1092, 1095, 1051, 1051, 1108, 1074, 1094, 1123,
- 1100, 1100, 1123, 1093, 1097, 1051, 1104, 1051, 1102, 1102,
-
- 1098, 1100, 1051, 1100, 1101, 1123, 1094, 1094, 1100, 1102,
- 1106, 1096, 1108, 1074, 1105, 1105, 1102, 1094, 1107, 1095,
- 1102, 1102, 1109, 1104, 1094, 1105, 1110, 1105, 1111, 1112,
- 1118, 1102, 1105, 1114, 1113, 1113, 1106, 1096, 1102, 1115,
- 1103, 1116, 1123, 1123, 1107, 1113, 1119, 1113, 1109, 1121,
- 1095, 1095, 1113, 1110, 1123, 1111, 1112, 1118, 1123, 1114,
- 1123, 1095, 1103, 1095, 1123, 1115, 1103, 1116, 1095, 1117,
- 1117, 1123, 1119, 1120, 1120, 1123, 1121, 1123, 1123, 1123,
- 1117, 1123, 1117, 1123, 1120, 1123, 1120, 1117, 1103, 1122,
- 1122, 1120, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
-
- 1122, 1123, 1122, 1123, 1123, 1123, 1123, 1122, 63, 63,
- 63, 63, 63, 63, 63, 63, 72, 72, 72, 72,
- 72, 72, 72, 72, 83, 83, 1123, 1123, 83, 139,
- 139, 1123, 139, 139, 144, 1123, 144, 144, 144, 144,
- 144, 144, 168, 1123, 1123, 168, 168, 1123, 168, 168,
- 179, 179, 85, 85, 1123, 85, 85, 196, 1123, 196,
- 196, 196, 196, 196, 196, 199, 1123, 199, 199, 199,
- 199, 199, 199, 210, 1123, 210, 210, 210, 210, 210,
- 210, 213, 1123, 213, 213, 213, 213, 213, 213, 216,
- 1123, 216, 216, 216, 216, 216, 216, 218, 1123, 218,
-
- 218, 218, 218, 218, 218, 245, 1123, 245, 245, 245,
- 245, 245, 245, 248, 1123, 248, 248, 248, 248, 248,
- 248, 250, 1123, 250, 250, 250, 250, 250, 250, 252,
- 1123, 252, 252, 252, 252, 252, 252, 305, 1123, 305,
- 305, 305, 305, 305, 305, 307, 1123, 307, 307, 307,
- 307, 307, 307, 324, 1123, 324, 324, 324, 324, 324,
- 324, 326, 1123, 326, 326, 326, 326, 326, 326, 342,
- 1123, 342, 342, 342, 342, 342, 342, 344, 1123, 344,
- 344, 344, 344, 344, 344, 245, 1123, 245, 245, 245,
- 245, 245, 245, 248, 1123, 248, 248, 248, 248, 248,
-
- 248, 250, 1123, 250, 250, 250, 250, 250, 250, 252,
- 1123, 252, 252, 252, 252, 252, 252, 545, 545, 545,
- 545, 545, 545, 545, 545, 562, 562, 562, 562, 562,
- 562, 562, 562, 563, 563, 563, 563, 563, 563, 563,
- 563, 720, 1123, 720, 727, 727, 727, 727, 727, 727,
- 727, 727, 729, 729, 729, 729, 729, 729, 729, 729,
- 735, 735, 735, 735, 735, 735, 735, 735, 737, 737,
- 737, 737, 737, 737, 737, 737, 739, 1123, 739, 739,
- 739, 739, 739, 739, 745, 745, 745, 745, 745, 745,
- 745, 745, 748, 748, 748, 748, 748, 748, 748, 748,
-
- 750, 750, 750, 750, 750, 750, 750, 750, 755, 755,
- 755, 755, 755, 755, 755, 755, 757, 757, 757, 757,
- 757, 757, 757, 757, 759, 1123, 759, 759, 759, 759,
- 759, 759, 765, 765, 765, 765, 765, 765, 765, 765,
- 749, 749, 749, 749, 749, 749, 749, 749, 751, 751,
- 751, 751, 751, 751, 751, 751, 756, 756, 756, 756,
- 756, 756, 756, 756, 758, 758, 758, 758, 758, 758,
- 758, 758, 766, 766, 766, 766, 766, 766, 766, 766,
- 826, 826, 826, 826, 826, 826, 826, 826, 836, 836,
- 836, 836, 836, 836, 836, 836, 837, 837, 837, 837,
-
- 837, 837, 837, 837, 895, 895, 895, 895, 895, 895,
- 895, 895, 904, 904, 904, 904, 904, 904, 904, 904,
- 905, 905, 905, 905, 905, 905, 905, 905, 995, 995,
- 995, 995, 995, 995, 995, 995, 1001, 1001, 1001, 1001,
- 1001, 1001, 1001, 1001, 1003, 1003, 1003, 1003, 1003, 1003,
- 1003, 1003, 1008, 1008, 1008, 1008, 1008, 1008, 1008, 1008,
- 1004, 1004, 1004, 1004, 1004, 1004, 1004, 1004, 1009, 1009,
- 1009, 1009, 1009, 1009, 1009, 1009, 1063, 1063, 1063, 1063,
- 1063, 1063, 1063, 1063, 1066, 1066, 1066, 1066, 1066, 1066,
- 1066, 1066, 1067, 1067, 1067, 1067, 1067, 1067, 1067, 1067,
-
- 11, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123
- } ;
-
-static yyconst flex_int16_t yy_chk[4182] =
- { 0,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 2, 55, 2, 3, 3, 3, 3, 146, 3, 3,
- 4, 55, 4, 16, 16, 21, 21, 22, 22, 4,
-
- 4, 4, 4, 27, 4, 4, 5, 5, 5, 28,
- 28, 5, 5, 6, 146, 6, 7, 7, 8, 8,
- 27, 8, 6, 6, 6, 23, 23, 6, 6, 52,
- 54, 52, 54, 54, 7, 1151, 8, 56, 23, 56,
- 56, 59, 65, 71, 66, 59, 59, 7, 61, 8,
- 76, 76, 61, 61, 67, 73, 67, 73, 87, 65,
- 71, 32, 32, 1140, 25, 32, 1135, 25, 25, 33,
- 66, 32, 1091, 51, 7, 87, 8, 9, 9, 9,
- 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,
- 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,
-
- 9, 25, 78, 78, 150, 32, 33, 1068, 32, 1067,
- 51, 79, 79, 80, 80, 95, 95, 118, 118, 155,
- 147, 155, 155, 148, 79, 149, 80, 9, 25, 25,
- 150, 32, 157, 33, 33, 32, 32, 51, 51, 162,
- 198, 198, 157, 162, 162, 58, 58, 147, 58, 58,
- 148, 1065, 149, 9, 9, 9, 9, 10, 10, 10,
- 10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
- 10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
- 10, 31, 58, 229, 229, 152, 268, 268, 153, 34,
- 171, 37, 37, 175, 35, 37, 267, 31, 267, 267,
-
- 172, 37, 1063, 31, 178, 173, 1043, 10, 1039, 58,
- 58, 31, 152, 34, 153, 36, 34, 171, 31, 175,
- 38, 34, 35, 34, 31, 35, 34, 172, 174, 31,
- 178, 35, 173, 10, 10, 10, 10, 31, 37, 34,
- 1035, 42, 34, 36, 38, 31, 31, 34, 35, 34,
- 151, 35, 36, 34, 34, 174, 176, 38, 35, 35,
- 42, 43, 41, 39, 45, 37, 37, 39, 151, 36,
- 38, 41, 177, 39, 176, 181, 43, 151, 42, 36,
- 36, 1012, 45, 176, 38, 38, 46, 42, 39, 182,
- 46, 183, 39, 184, 151, 41, 46, 185, 43, 177,
-
- 176, 45, 181, 43, 1010, 42, 42, 49, 41, 45,
- 39, 49, 1009, 47, 187, 39, 182, 49, 183, 39,
- 184, 41, 46, 185, 255, 43, 43, 1007, 45, 45,
- 46, 47, 47, 46, 1005, 41, 41, 39, 39, 40,
- 256, 187, 50, 40, 188, 50, 50, 1004, 46, 40,
- 47, 255, 50, 81, 49, 1001, 46, 1000, 47, 47,
- 46, 46, 40, 997, 40, 48, 48, 256, 633, 48,
- 188, 995, 57, 57, 40, 48, 257, 47, 47, 50,
- 633, 49, 49, 40, 143, 57, 40, 57, 57, 40,
- 81, 40, 259, 62, 62, 143, 258, 62, 62, 57,
-
- 40, 82, 257, 993, 82, 82, 50, 50, 50, 40,
- 60, 143, 48, 40, 40, 44, 260, 81, 81, 259,
- 60, 143, 258, 83, 60, 60, 57, 261, 44, 186,
- 44, 62, 85, 965, 44, 145, 60, 262, 82, 48,
- 48, 84, 260, 264, 84, 84, 44, 186, 44, 145,
- 145, 84, 44, 261, 961, 44, 186, 44, 62, 62,
- 83, 44, 145, 60, 262, 82, 82, 100, 957, 85,
- 264, 954, 44, 186, 44, 145, 145, 263, 84, 44,
- 44, 53, 100, 53, 53, 951, 91, 83, 83, 154,
- 154, 266, 53, 53, 53, 53, 85, 85, 53, 278,
-
- 53, 154, 645, 263, 100, 84, 84, 84, 53, 100,
- 53, 53, 273, 273, 645, 92, 91, 266, 53, 53,
- 53, 53, 279, 91, 53, 278, 53, 68, 154, 68,
- 68, 100, 100, 362, 362, 158, 158, 281, 68, 68,
- 68, 68, 91, 282, 68, 92, 68, 158, 279, 97,
- 91, 91, 92, 97, 68, 948, 68, 68, 269, 97,
- 269, 269, 910, 281, 68, 68, 68, 68, 98, 282,
- 68, 92, 68, 74, 158, 74, 74, 93, 93, 92,
- 92, 276, 98, 99, 74, 74, 74, 74, 93, 93,
- 74, 101, 74, 272, 661, 93, 97, 272, 272, 905,
-
- 74, 103, 74, 74, 101, 98, 661, 277, 276, 98,
- 74, 74, 74, 74, 99, 104, 74, 280, 74, 284,
- 99, 102, 903, 97, 97, 103, 93, 901, 101, 895,
- 104, 101, 98, 98, 277, 283, 108, 894, 103, 112,
- 99, 287, 265, 891, 280, 284, 102, 99, 99, 265,
- 871, 103, 104, 93, 93, 101, 101, 104, 102, 111,
- 114, 115, 283, 112, 114, 103, 103, 287, 108, 265,
- 114, 290, 102, 108, 846, 265, 112, 274, 285, 104,
- 104, 274, 274, 111, 286, 102, 102, 672, 111, 112,
- 291, 286, 363, 363, 108, 115, 111, 290, 115, 672,
-
- 108, 108, 117, 112, 112, 285, 117, 114, 839, 111,
- 288, 286, 117, 289, 111, 120, 291, 286, 116, 116,
- 122, 115, 837, 111, 111, 115, 115, 121, 120, 116,
- 116, 292, 119, 119, 114, 114, 116, 288, 121, 295,
- 289, 835, 297, 119, 119, 293, 123, 294, 122, 117,
- 119, 124, 120, 126, 829, 120, 121, 122, 292, 826,
- 116, 537, 537, 825, 121, 121, 295, 116, 129, 297,
- 123, 293, 126, 294, 122, 125, 117, 117, 780, 120,
- 120, 119, 121, 123, 122, 122, 116, 124, 124, 127,
- 126, 121, 121, 129, 116, 116, 123, 138, 770, 126,
-
- 139, 125, 161, 161, 127, 129, 131, 766, 119, 119,
- 123, 123, 125, 124, 161, 124, 124, 126, 126, 129,
- 130, 131, 132, 758, 130, 296, 127, 125, 756, 299,
- 130, 127, 129, 129, 138, 140, 321, 139, 142, 125,
- 125, 161, 302, 131, 554, 554, 141, 304, 131, 141,
- 141, 296, 132, 127, 127, 299, 141, 165, 165, 132,
- 751, 138, 138, 321, 139, 139, 749, 130, 302, 165,
- 131, 131, 140, 304, 159, 142, 159, 159, 132, 159,
- 159, 160, 160, 141, 160, 160, 132, 132, 167, 167,
- 170, 745, 167, 167, 130, 130, 165, 733, 190, 140,
-
- 140, 823, 142, 142, 170, 170, 192, 180, 740, 733,
- 141, 141, 141, 823, 166, 166, 166, 170, 160, 166,
- 166, 180, 180, 322, 189, 329, 167, 189, 189, 191,
- 170, 170, 191, 191, 180, 190, 193, 734, 734, 191,
- 194, 331, 298, 192, 441, 160, 160, 180, 180, 298,
- 322, 193, 329, 167, 167, 194, 195, 195, 441, 441,
- 830, 189, 190, 190, 303, 303, 191, 195, 331, 298,
- 192, 192, 830, 193, 195, 298, 204, 194, 193, 737,
- 195, 348, 194, 195, 206, 203, 203, 204, 189, 189,
- 303, 303, 205, 191, 191, 191, 203, 203, 195, 206,
-
- 193, 193, 207, 203, 194, 194, 208, 195, 348, 350,
- 195, 735, 330, 204, 204, 847, 205, 209, 351, 208,
- 729, 206, 215, 354, 195, 207, 206, 847, 209, 205,
- 754, 754, 328, 215, 203, 220, 350, 328, 330, 207,
- 204, 204, 205, 208, 727, 351, 208, 221, 206, 206,
- 354, 207, 220, 222, 209, 209, 205, 205, 328, 215,
- 215, 203, 203, 328, 224, 352, 207, 207, 222, 671,
- 208, 208, 220, 1040, 1040, 666, 221, 665, 355, 220,
- 664, 209, 209, 353, 221, 663, 215, 215, 660, 356,
- 222, 352, 226, 226, 224, 222, 225, 225, 658, 220,
-
- 220, 224, 221, 226, 226, 355, 231, 225, 233, 353,
- 226, 221, 221, 357, 225, 356, 232, 222, 222, 225,
- 224, 358, 225, 233, 230, 230, 650, 365, 224, 224,
- 232, 1042, 1042, 359, 649, 230, 231, 234, 360, 357,
- 361, 226, 230, 231, 644, 233, 225, 358, 638, 225,
- 233, 230, 234, 232, 365, 637, 237, 232, 238, 359,
- 230, 230, 231, 235, 360, 230, 361, 636, 226, 226,
- 231, 231, 233, 233, 234, 236, 366, 235, 230, 234,
- 232, 232, 237, 367, 635, 368, 230, 230, 238, 371,
- 236, 230, 239, 237, 240, 238, 632, 563, 369, 545,
-
- 235, 234, 234, 366, 235, 476, 244, 448, 237, 367,
- 243, 368, 236, 344, 238, 371, 239, 236, 240, 342,
- 237, 237, 238, 238, 244, 369, 300, 235, 235, 239,
- 326, 240, 270, 270, 243, 270, 270, 370, 254, 236,
- 236, 324, 239, 244, 240, 275, 275, 243, 301, 275,
- 275, 244, 254, 254, 300, 307, 239, 239, 240, 240,
- 243, 372, 312, 300, 370, 254, 309, 309, 311, 270,
- 244, 244, 305, 378, 243, 243, 301, 309, 254, 254,
- 300, 310, 373, 275, 309, 301, 314, 372, 312, 374,
- 300, 300, 271, 379, 309, 252, 270, 270, 311, 312,
-
- 378, 315, 301, 310, 309, 311, 338, 250, 373, 375,
- 275, 275, 301, 301, 312, 374, 314, 382, 310, 316,
- 379, 309, 317, 314, 311, 455, 312, 312, 383, 310,
- 309, 315, 311, 311, 338, 375, 313, 313, 315, 455,
- 455, 316, 314, 338, 382, 310, 310, 313, 313, 376,
- 314, 314, 317, 333, 313, 383, 316, 315, 332, 317,
- 338, 318, 318, 339, 248, 315, 315, 316, 245, 334,
- 338, 338, 318, 318, 393, 376, 339, 242, 317, 318,
- 319, 319, 380, 316, 316, 313, 317, 317, 333, 332,
- 333, 319, 319, 320, 320, 332, 241, 228, 319, 334,
-
- 339, 393, 227, 339, 320, 320, 334, 218, 380, 335,
- 318, 320, 313, 313, 333, 332, 216, 333, 333, 381,
- 213, 319, 332, 332, 335, 334, 384, 339, 339, 319,
- 462, 462, 210, 334, 334, 202, 385, 318, 318, 201,
- 199, 386, 320, 337, 337, 381, 335, 319, 462, 387,
- 196, 335, 384, 164, 337, 337, 319, 319, 349, 349,
- 388, 337, 385, 562, 562, 336, 336, 386, 163, 320,
- 320, 323, 323, 335, 335, 387, 336, 336, 336, 340,
- 340, 562, 323, 336, 349, 349, 388, 156, 137, 323,
- 340, 340, 337, 136, 323, 341, 341, 340, 323, 135,
-
- 364, 364, 323, 416, 346, 346, 341, 341, 323, 389,
- 133, 110, 323, 341, 336, 346, 346, 346, 417, 337,
- 337, 323, 346, 377, 377, 323, 364, 364, 340, 323,
- 416, 109, 392, 391, 323, 389, 347, 347, 323, 394,
- 395, 336, 336, 107, 341, 417, 105, 347, 347, 377,
- 377, 390, 390, 346, 347, 340, 340, 391, 392, 96,
- 396, 397, 390, 390, 94, 394, 395, 403, 410, 390,
- 391, 341, 341, 400, 646, 646, 86, 398, 398, 75,
- 346, 346, 403, 391, 418, 347, 396, 397, 398, 398,
- 399, 399, 646, 411, 410, 398, 402, 391, 391, 70,
-
- 390, 399, 399, 400, 403, 401, 401, 64, 399, 403,
- 400, 418, 347, 347, 412, 402, 401, 30, 398, 411,
- 414, 20, 404, 401, 419, 405, 398, 390, 390, 400,
- 401, 403, 403, 402, 406, 406, 420, 400, 400, 399,
- 412, 404, 402, 405, 398, 406, 414, 407, 407, 14,
- 419, 11, 406, 398, 398, 0, 421, 401, 407, 404,
- 402, 402, 405, 420, 0, 407, 399, 399, 404, 434,
- 405, 406, 438, 408, 408, 415, 406, 409, 409, 435,
- 422, 407, 421, 415, 408, 408, 404, 404, 409, 405,
- 405, 408, 436, 413, 413, 409, 434, 406, 413, 438,
-
- 439, 415, 406, 413, 437, 435, 409, 407, 422, 415,
- 0, 425, 427, 427, 429, 409, 442, 422, 436, 413,
- 413, 0, 408, 427, 413, 423, 423, 439, 437, 413,
- 427, 437, 429, 409, 422, 425, 423, 423, 440, 427,
- 428, 409, 442, 423, 422, 422, 424, 424, 425, 408,
- 408, 429, 430, 430, 0, 428, 443, 424, 424, 429,
- 0, 425, 444, 430, 424, 440, 427, 445, 446, 0,
- 430, 447, 0, 449, 423, 425, 425, 428, 429, 429,
- 433, 433, 428, 443, 452, 431, 431, 450, 444, 456,
- 451, 433, 430, 445, 446, 424, 431, 447, 433, 449,
-
- 453, 423, 423, 431, 428, 428, 433, 454, 431, 457,
- 431, 452, 431, 450, 451, 456, 433, 451, 430, 458,
- 459, 460, 424, 424, 461, 463, 464, 453, 466, 465,
- 467, 468, 471, 433, 454, 431, 457, 431, 470, 431,
- 472, 473, 433, 474, 475, 458, 459, 460, 469, 479,
- 461, 463, 464, 465, 478, 466, 465, 467, 468, 471,
- 477, 477, 469, 469, 470, 478, 472, 473, 0, 474,
- 475, 477, 480, 480, 483, 479, 484, 489, 477, 0,
- 0, 0, 0, 480, 480, 480, 495, 477, 481, 481,
- 480, 478, 478, 0, 482, 482, 0, 485, 485, 481,
-
- 483, 481, 484, 489, 490, 482, 481, 482, 485, 486,
- 486, 488, 482, 495, 477, 485, 491, 494, 478, 478,
- 486, 486, 487, 487, 496, 0, 0, 486, 498, 490,
- 488, 0, 499, 487, 493, 493, 492, 500, 0, 485,
- 487, 490, 0, 494, 491, 493, 493, 501, 488, 0,
- 492, 496, 493, 491, 498, 490, 504, 488, 486, 499,
- 502, 502, 507, 487, 500, 485, 503, 505, 490, 490,
- 491, 502, 506, 492, 501, 488, 488, 492, 502, 510,
- 491, 491, 504, 493, 0, 486, 486, 0, 507, 487,
- 509, 497, 497, 503, 505, 508, 508, 511, 512, 506,
-
- 492, 492, 497, 513, 514, 510, 508, 515, 516, 497,
- 493, 493, 523, 508, 497, 497, 0, 509, 0, 0,
- 517, 517, 520, 516, 511, 512, 518, 518, 521, 513,
- 514, 517, 522, 497, 515, 519, 519, 518, 517, 523,
- 524, 497, 497, 522, 518, 516, 519, 519, 520, 525,
- 516, 526, 527, 519, 0, 528, 530, 521, 529, 497,
- 531, 534, 517, 532, 533, 521, 524, 0, 518, 535,
- 0, 536, 516, 516, 539, 525, 547, 526, 540, 527,
- 522, 528, 530, 521, 519, 529, 531, 534, 517, 538,
- 532, 533, 521, 521, 518, 541, 535, 536, 542, 543,
-
- 539, 544, 547, 538, 538, 540, 548, 522, 522, 549,
- 550, 519, 519, 551, 552, 555, 553, 556, 557, 558,
- 559, 560, 541, 561, 566, 542, 543, 564, 544, 555,
- 555, 565, 548, 567, 0, 568, 549, 550, 569, 551,
- 570, 552, 553, 556, 571, 557, 558, 559, 560, 572,
- 561, 566, 573, 564, 574, 575, 576, 565, 571, 571,
- 567, 568, 577, 578, 579, 569, 570, 580, 0, 582,
- 585, 586, 591, 587, 588, 572, 590, 625, 0, 573,
- 589, 574, 575, 576, 578, 0, 0, 0, 0, 577,
- 578, 625, 625, 580, 579, 582, 591, 585, 586, 587,
-
- 588, 579, 590, 592, 592, 589, 0, 593, 593, 591,
- 578, 596, 594, 594, 592, 592, 597, 589, 593, 593,
- 579, 592, 591, 594, 602, 593, 0, 598, 579, 579,
- 594, 589, 595, 595, 599, 600, 591, 591, 596, 601,
- 603, 0, 597, 595, 589, 589, 604, 604, 612, 594,
- 595, 602, 592, 598, 608, 609, 593, 604, 0, 604,
- 599, 600, 0, 0, 604, 601, 603, 605, 605, 610,
- 0, 0, 0, 0, 612, 594, 0, 0, 605, 592,
- 592, 608, 609, 593, 593, 605, 606, 606, 613, 607,
- 607, 614, 611, 611, 605, 617, 610, 606, 606, 606,
-
- 607, 615, 607, 611, 606, 616, 616, 607, 620, 621,
- 611, 624, 0, 618, 618, 613, 616, 614, 623, 611,
- 627, 605, 617, 616, 618, 619, 619, 615, 626, 611,
- 634, 618, 628, 611, 620, 621, 619, 619, 622, 622,
- 624, 629, 630, 619, 623, 640, 611, 627, 624, 622,
- 641, 631, 631, 642, 626, 611, 622, 634, 628, 611,
- 643, 648, 631, 622, 0, 654, 624, 629, 630, 631,
- 655, 640, 667, 656, 619, 624, 624, 641, 651, 651,
- 642, 647, 647, 657, 662, 652, 652, 643, 648, 668,
- 622, 654, 669, 647, 659, 659, 651, 655, 667, 647,
-
- 656, 619, 619, 652, 670, 674, 659, 673, 673, 675,
- 657, 662, 659, 676, 677, 681, 668, 678, 673, 669,
- 673, 679, 680, 680, 675, 673, 682, 0, 684, 687,
- 0, 670, 674, 680, 690, 680, 0, 0, 0, 676,
- 680, 677, 681, 678, 683, 683, 675, 679, 0, 689,
- 682, 675, 695, 686, 686, 683, 687, 683, 692, 685,
- 685, 690, 683, 682, 686, 684, 0, 688, 688, 693,
- 685, 686, 696, 675, 675, 689, 682, 685, 688, 695,
- 694, 698, 698, 700, 692, 688, 686, 691, 691, 702,
- 682, 682, 684, 684, 688, 693, 685, 703, 691, 696,
-
- 704, 685, 706, 707, 0, 691, 694, 698, 698, 700,
- 710, 705, 686, 708, 708, 702, 705, 709, 0, 712,
- 714, 688, 685, 703, 708, 715, 704, 685, 706, 716,
- 707, 708, 711, 711, 717, 721, 710, 705, 713, 713,
- 0, 722, 705, 711, 709, 712, 723, 714, 731, 713,
- 711, 0, 715, 718, 718, 716, 713, 724, 725, 747,
- 717, 721, 719, 719, 718, 718, 718, 722, 732, 0,
- 711, 718, 723, 719, 741, 719, 742, 719, 719, 713,
- 719, 720, 720, 743, 724, 725, 726, 726, 744, 731,
- 748, 748, 720, 753, 720, 732, 711, 726, 761, 720,
-
- 747, 741, 718, 742, 726, 713, 750, 750, 748, 726,
- 743, 762, 768, 763, 744, 731, 752, 752, 764, 0,
- 753, 755, 755, 769, 750, 761, 747, 757, 757, 718,
- 718, 760, 760, 771, 752, 772, 726, 774, 762, 755,
- 763, 765, 765, 773, 764, 757, 767, 767, 775, 760,
- 769, 777, 0, 768, 778, 778, 784, 752, 781, 765,
- 771, 782, 772, 774, 767, 778, 778, 0, 0, 787,
- 773, 788, 778, 779, 779, 789, 0, 0, 777, 768,
- 791, 799, 784, 752, 779, 781, 779, 767, 782, 775,
- 793, 779, 795, 785, 785, 787, 790, 790, 788, 792,
-
- 792, 797, 789, 778, 785, 785, 791, 790, 799, 790,
- 792, 785, 792, 767, 790, 775, 793, 792, 795, 800,
- 801, 794, 794, 796, 796, 802, 803, 797, 804, 0,
- 778, 778, 794, 808, 796, 807, 796, 798, 798, 794,
- 809, 796, 785, 821, 0, 794, 800, 801, 798, 810,
- 798, 802, 811, 803, 804, 798, 805, 805, 812, 808,
- 806, 806, 807, 794, 813, 816, 809, 805, 817, 785,
- 785, 806, 794, 806, 805, 818, 810, 819, 806, 811,
- 820, 820, 822, 805, 812, 821, 828, 831, 832, 794,
- 813, 820, 816, 820, 817, 834, 838, 843, 820, 833,
-
- 833, 841, 818, 819, 836, 836, 840, 840, 822, 844,
- 805, 821, 849, 828, 831, 842, 842, 833, 840, 845,
- 848, 834, 836, 838, 840, 850, 853, 854, 841, 0,
- 832, 0, 855, 842, 856, 844, 0, 851, 851, 843,
- 860, 833, 0, 859, 0, 862, 845, 848, 851, 866,
- 0, 850, 853, 854, 849, 851, 832, 842, 855, 0,
- 856, 0, 851, 857, 857, 843, 860, 833, 858, 858,
- 859, 862, 870, 0, 857, 866, 863, 863, 873, 858,
- 849, 857, 874, 842, 865, 865, 858, 863, 857, 851,
- 868, 868, 875, 876, 863, 865, 878, 865, 870, 872,
-
- 872, 868, 865, 868, 879, 873, 880, 881, 868, 874,
- 872, 882, 872, 863, 883, 857, 885, 872, 875, 876,
- 886, 893, 878, 887, 884, 884, 888, 890, 897, 898,
- 879, 899, 880, 902, 881, 884, 912, 884, 882, 863,
- 883, 907, 884, 885, 900, 900, 911, 886, 893, 887,
- 904, 904, 888, 890, 0, 898, 909, 899, 906, 906,
- 902, 913, 900, 908, 908, 914, 915, 907, 904, 897,
- 900, 0, 916, 911, 917, 925, 906, 912, 918, 920,
- 890, 908, 909, 930, 899, 921, 0, 913, 923, 908,
- 0, 914, 915, 0, 0, 897, 928, 900, 916, 906,
-
- 0, 917, 925, 912, 918, 920, 919, 919, 931, 909,
- 930, 921, 922, 922, 923, 933, 908, 919, 914, 919,
- 924, 924, 928, 922, 919, 906, 926, 926, 935, 936,
- 922, 924, 937, 924, 931, 934, 934, 926, 924, 922,
- 0, 933, 939, 0, 926, 944, 934, 942, 934, 938,
- 938, 952, 945, 934, 935, 936, 963, 946, 937, 947,
- 938, 950, 938, 926, 940, 940, 922, 938, 953, 939,
- 941, 941, 944, 942, 956, 940, 959, 940, 945, 955,
- 955, 941, 940, 941, 946, 947, 962, 950, 941, 926,
- 958, 958, 964, 952, 953, 960, 960, 955, 963, 966,
-
- 956, 967, 959, 968, 969, 969, 0, 972, 958, 973,
- 971, 971, 962, 960, 976, 969, 0, 969, 964, 952,
- 980, 971, 969, 971, 963, 979, 966, 967, 971, 0,
- 968, 0, 958, 972, 0, 973, 974, 974, 0, 0,
- 976, 0, 977, 977, 984, 987, 980, 974, 0, 974,
- 978, 978, 979, 977, 974, 977, 981, 981, 958, 0,
- 977, 978, 990, 978, 983, 983, 991, 981, 978, 992,
- 984, 987, 985, 985, 981, 983, 994, 983, 999, 1003,
- 1003, 1011, 983, 985, 1013, 985, 1014, 1015, 990, 981,
- 985, 1018, 991, 1006, 1006, 992, 1019, 1003, 1008, 1008,
-
- 0, 1025, 994, 0, 999, 0, 0, 1011, 0, 1028,
- 1013, 1006, 1014, 0, 1015, 981, 1008, 0, 1018, 1006,
- 0, 0, 1019, 1030, 1020, 1020, 1022, 1022, 1025, 1027,
- 1027, 999, 1026, 1026, 1011, 1020, 1028, 1022, 1032, 1022,
- 1027, 1034, 1020, 1026, 1022, 1026, 1006, 1027, 1033, 1030,
- 1026, 1036, 1037, 1041, 1041, 1044, 1045, 1047, 1048, 1053,
- 0, 1020, 1027, 0, 1032, 1046, 1046, 1022, 1034, 0,
- 1061, 1041, 1055, 1060, 1033, 1062, 1046, 1036, 1046, 1037,
- 0, 1044, 1045, 1046, 1047, 1048, 1053, 1020, 1027, 1049,
- 1049, 1050, 1050, 1022, 0, 1052, 1052, 1061, 1055, 1060,
-
- 1049, 1062, 1050, 1056, 1056, 0, 1052, 1049, 1052, 1050,
- 1070, 1057, 1057, 1052, 1056, 1071, 1056, 1058, 1058, 1066,
- 1066, 1056, 1057, 0, 1057, 1072, 1049, 1074, 1058, 1057,
- 1058, 1059, 1059, 1050, 0, 1058, 1070, 1066, 1081, 1069,
- 1069, 1071, 1059, 1082, 1059, 1073, 1073, 1075, 1075, 1059,
- 1069, 1072, 1049, 1074, 1083, 1085, 1073, 1069, 1075, 1050,
- 1075, 1076, 1076, 1073, 1081, 1075, 1086, 0, 1089, 1082,
- 1087, 1087, 1076, 1090, 1076, 0, 0, 0, 1093, 1076,
- 1083, 1087, 1085, 1087, 1088, 1088, 1101, 1073, 1087, 0,
- 1092, 1092, 0, 1086, 1089, 1088, 1097, 1088, 1094, 1094,
-
- 1090, 1092, 1088, 1092, 1093, 0, 1096, 1096, 1092, 1094,
- 1099, 1087, 1101, 1073, 1098, 1098, 1094, 1096, 1099, 1096,
- 1102, 1102, 1103, 1097, 1096, 1098, 1104, 1098, 1106, 1107,
- 1115, 1102, 1098, 1110, 1108, 1108, 1099, 1087, 1102, 1111,
- 1094, 1112, 0, 0, 1099, 1108, 1116, 1108, 1103, 1119,
- 1109, 1109, 1108, 1104, 0, 1106, 1107, 1115, 0, 1110,
- 0, 1109, 1102, 1109, 0, 1111, 1094, 1112, 1109, 1114,
- 1114, 0, 1116, 1118, 1118, 0, 1119, 0, 0, 0,
- 1114, 0, 1114, 0, 1118, 0, 1118, 1114, 1102, 1121,
- 1121, 1118, 0, 0, 0, 0, 0, 0, 0, 0,
-
- 1121, 0, 1121, 0, 0, 0, 0, 1121, 1124, 1124,
- 1124, 1124, 1124, 1124, 1124, 1124, 1125, 1125, 1125, 1125,
- 1125, 1125, 1125, 1125, 1126, 1126, 0, 0, 1126, 1127,
- 1127, 0, 1127, 1127, 1128, 0, 1128, 1128, 1128, 1128,
- 1128, 1128, 1129, 0, 0, 1129, 1129, 0, 1129, 1129,
- 1130, 1130, 1131, 1131, 0, 1131, 1131, 1132, 0, 1132,
- 1132, 1132, 1132, 1132, 1132, 1133, 0, 1133, 1133, 1133,
- 1133, 1133, 1133, 1134, 0, 1134, 1134, 1134, 1134, 1134,
- 1134, 1136, 0, 1136, 1136, 1136, 1136, 1136, 1136, 1137,
- 0, 1137, 1137, 1137, 1137, 1137, 1137, 1138, 0, 1138,
-
- 1138, 1138, 1138, 1138, 1138, 1139, 0, 1139, 1139, 1139,
- 1139, 1139, 1139, 1141, 0, 1141, 1141, 1141, 1141, 1141,
- 1141, 1142, 0, 1142, 1142, 1142, 1142, 1142, 1142, 1143,
- 0, 1143, 1143, 1143, 1143, 1143, 1143, 1144, 0, 1144,
- 1144, 1144, 1144, 1144, 1144, 1145, 0, 1145, 1145, 1145,
- 1145, 1145, 1145, 1146, 0, 1146, 1146, 1146, 1146, 1146,
- 1146, 1147, 0, 1147, 1147, 1147, 1147, 1147, 1147, 1148,
- 0, 1148, 1148, 1148, 1148, 1148, 1148, 1149, 0, 1149,
- 1149, 1149, 1149, 1149, 1149, 1150, 0, 1150, 1150, 1150,
- 1150, 1150, 1150, 1152, 0, 1152, 1152, 1152, 1152, 1152,
-
- 1152, 1153, 0, 1153, 1153, 1153, 1153, 1153, 1153, 1154,
- 0, 1154, 1154, 1154, 1154, 1154, 1154, 1155, 1155, 1155,
- 1155, 1155, 1155, 1155, 1155, 1156, 1156, 1156, 1156, 1156,
- 1156, 1156, 1156, 1157, 1157, 1157, 1157, 1157, 1157, 1157,
- 1157, 1158, 0, 1158, 1159, 1159, 1159, 1159, 1159, 1159,
- 1159, 1159, 1160, 1160, 1160, 1160, 1160, 1160, 1160, 1160,
- 1161, 1161, 1161, 1161, 1161, 1161, 1161, 1161, 1162, 1162,
- 1162, 1162, 1162, 1162, 1162, 1162, 1163, 0, 1163, 1163,
- 1163, 1163, 1163, 1163, 1164, 1164, 1164, 1164, 1164, 1164,
- 1164, 1164, 1165, 1165, 1165, 1165, 1165, 1165, 1165, 1165,
-
- 1166, 1166, 1166, 1166, 1166, 1166, 1166, 1166, 1167, 1167,
- 1167, 1167, 1167, 1167, 1167, 1167, 1168, 1168, 1168, 1168,
- 1168, 1168, 1168, 1168, 1169, 0, 1169, 1169, 1169, 1169,
- 1169, 1169, 1170, 1170, 1170, 1170, 1170, 1170, 1170, 1170,
- 1171, 1171, 1171, 1171, 1171, 1171, 1171, 1171, 1172, 1172,
- 1172, 1172, 1172, 1172, 1172, 1172, 1173, 1173, 1173, 1173,
- 1173, 1173, 1173, 1173, 1174, 1174, 1174, 1174, 1174, 1174,
- 1174, 1174, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
- 1176, 1176, 1176, 1176, 1176, 1176, 1176, 1176, 1177, 1177,
- 1177, 1177, 1177, 1177, 1177, 1177, 1178, 1178, 1178, 1178,
-
- 1178, 1178, 1178, 1178, 1179, 1179, 1179, 1179, 1179, 1179,
- 1179, 1179, 1180, 1180, 1180, 1180, 1180, 1180, 1180, 1180,
- 1181, 1181, 1181, 1181, 1181, 1181, 1181, 1181, 1182, 1182,
- 1182, 1182, 1182, 1182, 1182, 1182, 1183, 1183, 1183, 1183,
- 1183, 1183, 1183, 1183, 1184, 1184, 1184, 1184, 1184, 1184,
- 1184, 1184, 1185, 1185, 1185, 1185, 1185, 1185, 1185, 1185,
- 1186, 1186, 1186, 1186, 1186, 1186, 1186, 1186, 1187, 1187,
- 1187, 1187, 1187, 1187, 1187, 1187, 1188, 1188, 1188, 1188,
- 1188, 1188, 1188, 1188, 1189, 1189, 1189, 1189, 1189, 1189,
- 1189, 1189, 1190, 1190, 1190, 1190, 1190, 1190, 1190, 1190,
-
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
- 1123
- } ;
-
-static yy_state_type yy_last_accepting_state;
-static char *yy_last_accepting_cpos;
-
-extern int yy_flex_debug;
-int yy_flex_debug = 0;
-
-/* The intent behind this definition is that it'll catch
- * any uses of REJECT which flex missed.
- */
-#define REJECT reject_used_but_not_detected
-#define yymore() yymore_used_but_not_detected
-#define YY_MORE_ADJ 0
-#define YY_RESTORE_YY_MORE_OFFSET
-char *yytext;
-#line 1 "scanner.l"
-/*
- Copyright (C) 2001-2012, 2014-2023 Free Software Foundation, Inc.
- Written by Keisuke Nishida, Roger While, Simon Sobisch, Edwart Hart,
- Ron Norman, OSS Consortium
-
- 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 <https://www.gnu.org/licenses/>.
-*/
-#line 49 "scanner.l"
-
-#undef YY_READ_BUF_SIZE
-#define YY_READ_BUF_SIZE 32768
-#undef YY_BUF_SIZE
-#define YY_BUF_SIZE 32768
-
-#define YY_SKIP_YYWRAP
-static int yywrap (void) {
- return 1;
-}
-
-#define YY_INPUT(buf,result,max_size) \
- { \
- if (fgets (buf, (int)max_size, yyin) == NULL) { \
- result = YY_NULL; \
- } else { \
- result = strlen (buf); \
- } \
- }
-
-#define YY_USER_INIT \
- if (!plex_buff) { \
- plex_size = COB_MINI_BUFF; \
- plex_buff = cobc_malloc (plex_size); \
- } \
- if (!pic_buff1) { \
- pic1_size = COB_MINI_BUFF; \
- pic_buff1 = cobc_malloc (pic1_size); \
- } \
- if (!pic_buff2) { \
- pic2_size = COB_MINI_BUFF; \
- pic_buff2 = cobc_malloc (pic2_size); \
- }
-
-#include "config.h"
-
-#include <ctype.h>
-#include <limits.h>
-
-#include <string.h>
-#ifdef HAVE_STRINGS_H
-#include <strings.h>
-#endif
-
-#ifdef HAVE_UNISTD_H
-#include <unistd.h>
-#else
-#define YY_NO_UNISTD_H 1
-#endif
-
-#define COB_IN_SCANNER 1
-#include "cobc.h"
-#include "tree.h"
-
-/* ignore unused functions here as flex generates unused ones */
-#ifdef __GNUC__
-#if defined (__clang__) || __GNUC__ > 4 || (__GNUC__ == 4 && __GNUC_MINOR__ >= 4)
-#pragma GCC diagnostic ignored "-Wunused-function"
-#endif
-#endif
-
-#define YYSTYPE cb_tree
-#define _PARSER_H /* work around bad Windows SDK header */
-#include "parser.h"
-
-#define RETURN_TOK(expr) \
- do { \
- last_yylval = yylval; \
- second_last_token = last_token; \
- last_token = (expr); \
- return last_token; \
- } ONCE_COB
-
-#define SET_LOCATION(x) \
- do { \
- (x)->source_file = cb_source_file; \
- (x)->source_line = cb_source_line; \
- } ONCE_COB
-
-/* CONSTANT (78 level) structure */
-struct cb_level_78 {
- struct cb_level_78 *next; /* Next in chain */
- struct cb_level_78 *glob_next; /* Continued next in chain */
- struct cb_level_78 *last; /* Last in chain */
- struct cb_field *fld_78; /* Pointer to field */
- struct cb_program *prog; /* Program where defined */
- cob_u32_t name_len; /* Length of name */
- cob_u32_t not_const; /* Invalid usage check */
- cob_u32_t chk_const; /* Check global level use */
-};
-
-struct cb_top_level_78 {
- struct cb_top_level_78 *next;
- struct cb_level_78 *lev_78_ptr;
-};
-
-enum cb_literal_type {
- CB_LITERAL_DEFAULT,
- CB_LITERAL_U, /* UTF-8, work-in-progress */
- CB_LITERAL_N,
- CB_LITERAL_NC,
-};
-
-enum cb_sym_ebcdic_state {
- CB_SYM_EBCDIC_INACTIVE, /* Outside */
- CB_SYM_EBCDIC_ACTIVE, /* Inside, before or after number */
- CB_SYM_EBCDIC_AFTER_SEP /* Inside, just after a separator */
-};
-
-/* Local variables */
-
-/* local history */
-static cb_tree last_yylval; /* for repeating the last token*/
-static enum yytokentype last_token;
-static enum yytokentype second_last_token; /* for history purposes */
-
-static struct cb_level_78 *top_78_ptr = NULL;
-static struct cb_level_78 *const_78_ptr = NULL;
-static struct cb_level_78 *lev_78_ptr = NULL;
-static struct cb_level_78 *glob_lev_78_ptr = NULL;
-static char *plex_buff = NULL;
-static char *pic_buff1 = NULL;
-static char *pic_buff2 = NULL;
-static size_t plex_size;
-static size_t pic1_size;
-static size_t pic2_size;
-static unsigned int inside_bracket = 0;
-static char err_msg[COB_MINI_BUFF];
-
-/* Function declarations */
-static void read_literal (const char, const enum cb_literal_type);
-static int scan_x (const char *, const char *);
-static int scan_z (const char *, const char *);
-static int scan_h (const char *, const char *);
-static int scan_b (const char *, const char *);
-static int scan_o (const char *, const char *);
-static int scan_numeric (const char *);
-static int scan_floating_numeric (const char *);
-static void scan_picture (const char *);
-static void count_lines (const char *);
-static void scan_define_options (const char *);
-static void copy_word_in_quotes (char ** const);
-static void copy_two_words_in_quotes (char ** const, char ** const);
-static void add_synonym (const int, const int);
-static void make_synonym (void);
-static void clear_constants (void);
-
-
-
-#line 1927 "scanner.c"
-
-#define INITIAL 0
-#define DECIMAL_IS_PERIOD 1
-#define DECIMAL_IS_COMMA 2
-#define PICTURE_STATE 3
-#define FUNCTION_STATE 4
-
-#ifndef YY_NO_UNISTD_H
-/* Special case for "unistd.h", since it is non-ANSI. We include it way
- * down here because we want the user's section 1 to have been scanned first.
- * The user has a chance to override it with an option.
- */
-#include <unistd.h>
-#endif
-
-#ifndef YY_EXTRA_TYPE
-#define YY_EXTRA_TYPE void *
-#endif
-
-static int yy_init_globals (void );
-
-/* Accessor methods to globals.
- These are made visible to non-reentrant scanners for convenience. */
-
-int yylex_destroy (void );
-
-/* Macros after this point can all be overridden by user definitions in
- * section 1.
- */
-
-#ifndef YY_SKIP_YYWRAP
-#ifdef __cplusplus
-extern "C" int yywrap (void );
-#else
-extern int yywrap (void );
-#endif
-#endif
-
-#ifndef YY_NO_UNPUT
-
- static void yyunput (int c,char *buf_ptr );
-
-#endif
-
-#ifndef yytext_ptr
-static void yy_flex_strncpy (char *,yyconst char *,int );
-#endif
-
-#ifdef YY_NEED_STRLEN
-static int yy_flex_strlen (yyconst char * );
-#endif
-
-#ifndef YY_NO_INPUT
-
-#ifdef __cplusplus
-static int yyinput (void );
-#else
-static int input (void );
-#endif
-
-#endif
-
-/* Amount of stuff to slurp up with each read. */
-#ifndef YY_READ_BUF_SIZE
-#ifdef __ia64__
-/* On IA-64, the buffer size is 16k, not 8k */
-#define YY_READ_BUF_SIZE 16384
-#else
-#define YY_READ_BUF_SIZE 8192
-#endif /* __ia64__ */
-#endif
-
-/* Copy whatever the last rule matched to the standard output. */
-#ifndef ECHO
-/* This used to be an fputs(), but since the string might contain NUL's,
- * we now use fwrite().
- */
-#define ECHO do { if (fwrite( yytext, (size_t) yyleng, 1, yyout )) {} } while (0)
-#endif
-
-/* Gets input and stuffs it into "buf". number of characters read, or YY_NULL,
- * is returned in "result".
- */
-#ifndef YY_INPUT
-#define YY_INPUT(buf,result,max_size) \
- if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) \
- { \
- int c = '*'; \
- int n; \
- for ( n = 0; n < max_size && \
- (c = getc( yyin )) != EOF && c != '\n'; ++n ) \
- buf[n] = (char) c; \
- if ( c == '\n' ) \
- buf[n++] = (char) c; \
- if ( c == EOF && ferror( yyin ) ) \
- YY_FATAL_ERROR( "input in flex scanner failed" ); \
- result = n; \
- } \
- else \
- { \
- errno=0; \
- while ( (result = (int) fread(buf, 1, (yy_size_t) max_size, yyin)) == 0 && ferror(yyin)) \
- { \
- if( errno != EINTR) \
- { \
- YY_FATAL_ERROR( "input in flex scanner failed" ); \
- break; \
- } \
- errno=0; \
- clearerr(yyin); \
- } \
- }\
-\
-
-#endif
-
-/* No semi-colon after return; correct usage is to write "yyterminate();" -
- * we don't want an extra ';' after the "return" because that will cause
- * some compilers to complain about unreachable statements.
- */
-#ifndef yyterminate
-#define yyterminate() return YY_NULL
-#endif
-
-/* Number of entries by which start-condition stack grows. */
-#ifndef YY_START_STACK_INCR
-#define YY_START_STACK_INCR 25
-#endif
-
-/* Report a fatal error. */
-#ifndef YY_FATAL_ERROR
-#define YY_FATAL_ERROR(msg) yy_fatal_error( msg )
-#endif
-
-/* end tables serialization structures and prototypes */
-
-/* Default declaration of generated scanner - a define so the user can
- * easily add parameters.
- */
-#ifndef YY_DECL
-#define YY_DECL_IS_OURS 1
-
-extern int yylex (void);
-
-#define YY_DECL int yylex (void)
-#endif /* !YY_DECL */
-
-/* Code executed at the beginning of each rule, after yytext and yyleng
- * have been set up.
- */
-#ifndef YY_USER_ACTION
-#define YY_USER_ACTION
-#endif
-
-/* Code executed at the end of each rule. */
-#ifndef YY_BREAK
-#define YY_BREAK /*LINTED*/break;
-#endif
-
-#define YY_RULE_SETUP \
- if ( yyleng > 0 ) \
- YY_CURRENT_BUFFER_LVALUE->yy_at_bol = \
- (yytext[yyleng - 1] == '\n'); \
- YY_USER_ACTION
-
-/** The main scanner function which does all the work.
- */
-YY_DECL
-{
- yy_state_type yy_current_state;
- char *yy_cp, *yy_bp;
- int yy_act;
-
- if ( !(yy_init) )
- {
- (yy_init) = 1;
-
-#ifdef YY_USER_INIT
- YY_USER_INIT;
-#endif
-
- if ( ! (yy_start) )
- (yy_start) = 1; /* first start state */
-
- if ( ! yyin )
- yyin = stdin;
-
- if ( ! yyout )
- yyout = stdout;
-
- if ( ! YY_CURRENT_BUFFER ) {
- yyensure_buffer_stack ();
- YY_CURRENT_BUFFER_LVALUE =
- yy_create_buffer(yyin,YY_BUF_SIZE );
- }
-
- yy_load_buffer_state( );
- }
-
- {
-#line 205 "scanner.l"
-
-
-
- if (likely (current_program)) {
- if (current_program->decimal_point == '.') {
- BEGIN DECIMAL_IS_PERIOD;
- } else {
- BEGIN DECIMAL_IS_COMMA;
- }
- }
-
- if (cobc_repeat_last_token) {
- cobc_repeat_last_token = 0;
- yylval = last_yylval;
- return last_token;
- }
-
- cobc_in_area_a = 0;
-
-
-#line 2149 "scanner.c"
-
- while ( /*CONSTCOND*/1 ) /* loops until end-of-file is reached */
- {
- yy_cp = (yy_c_buf_p);
-
- /* Support of yytext. */
- *yy_cp = (yy_hold_char);
-
- /* yy_bp points to the position in yy_ch_buf of the start of
- * the current run.
- */
- yy_bp = yy_cp;
-
- yy_current_state = (yy_start);
- yy_current_state += YY_AT_BOL();
-yy_match:
- do
- {
- YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)] ;
- if ( yy_accept[yy_current_state] )
- {
- (yy_last_accepting_state) = yy_current_state;
- (yy_last_accepting_cpos) = yy_cp;
- }
- while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
- {
- yy_current_state = (int) yy_def[yy_current_state];
- if ( yy_current_state >= 1124 )
- yy_c = yy_meta[(unsigned int) yy_c];
- }
- yy_current_state = yy_nxt[yy_base[yy_current_state] + (flex_int16_t) yy_c];
- ++yy_cp;
- }
- while ( yy_current_state != 1123 );
- yy_cp = (yy_last_accepting_cpos);
- yy_current_state = (yy_last_accepting_state);
-
-yy_find_action:
- yy_act = yy_accept[yy_current_state];
-
- YY_DO_BEFORE_ACTION;
-
-do_action: /* This label is used only to access EOF actions. */
-
- switch ( yy_act )
- { /* beginning of action switch */
- case 0: /* must back up */
- /* undo the effects of YY_DO_BEFORE_ACTION */
- *yy_cp = (yy_hold_char);
- yy_cp = (yy_last_accepting_cpos);
- yy_current_state = (yy_last_accepting_state);
- goto yy_find_action;
-
-case 1:
-/* rule 1 can match eol */
-YY_RULE_SETUP
-#line 225 "scanner.l"
-{
- if (current_program) {
- const char *p1;
- char *p2;
- if (current_program->extfh) {
- cobc_parse_free ((void *)current_program->extfh);
- current_program->extfh = NULL;
- }
- p1 = strchr (yytext, '"');
- if (p1) {
- ++p1;
- p2 = strrchr (p1, '"');
- if (p2) {
- *p2 = 0;
- if (strcmp (p1, "EXTFH")) {
- current_program->extfh = cobc_parse_strdup (p1);
- }
- }
- }
- }
-}
- YY_BREAK
-case 2:
-/* rule 2 can match eol */
-YY_RULE_SETUP
-#line 248 "scanner.l"
-{
- scan_define_options (yytext);
-}
- YY_BREAK
-case 3:
-/* rule 3 can match eol */
-YY_RULE_SETUP
-#line 252 "scanner.l"
-{
- char *word;
-
- copy_word_in_quotes (&word);
- add_reserved_word_now (word, NULL);
- cobc_free (word);
-}
- YY_BREAK
-case 4:
-/* rule 4 can match eol */
-YY_RULE_SETUP
-#line 260 "scanner.l"
-{
- add_synonym (1, 0);
-}
- YY_BREAK
-case 5:
-/* rule 5 can match eol */
-YY_RULE_SETUP
-#line 263 "scanner.l"
-{
- add_synonym (0, 0);
-}
- YY_BREAK
-case 6:
-/* rule 6 can match eol */
-YY_RULE_SETUP
-#line 267 "scanner.l"
-{
- make_synonym ();
- }
- YY_BREAK
-case 7:
-/* rule 7 can match eol */
-YY_RULE_SETUP
-#line 271 "scanner.l"
-{
- add_synonym (1, 1);
-}
- YY_BREAK
-case 8:
-/* rule 8 can match eol */
-YY_RULE_SETUP
-#line 274 "scanner.l"
-{
- add_synonym (0, 1);
-}
- YY_BREAK
-case 9:
-/* rule 9 can match eol */
-YY_RULE_SETUP
-#line 278 "scanner.l"
-{
- char *word;
-
- copy_word_in_quotes (&word);
- if (!is_reserved_word (word)) {
- cb_error (_("'%s' is not a reserved word, so cannot be removed"),
- word);
- } else {
- remove_reserved_word_now (word);
- }
- cobc_free (word);
-}
- YY_BREAK
-case 10:
-/* rule 10 can match eol */
-YY_RULE_SETUP
-#line 291 "scanner.l"
-{
- char *word;
-
- copy_word_in_quotes (&word);
- remove_reserved_word_now (word);
- cobc_free (word);
-}
- YY_BREAK
-case 11:
-/* rule 11 can match eol */
-YY_RULE_SETUP
-#line 299 "scanner.l"
-{
- cb_ref_mod_zero_length = (yytext[13] - '0');
-}
- YY_BREAK
-case 12:
-/* rule 12 can match eol */
-YY_RULE_SETUP
-#line 303 "scanner.l"
-{
- cb_odoslide = (yytext[10] - '0');
-}
- YY_BREAK
-case 13:
-/* rule 13 can match eol */
-YY_RULE_SETUP
-#line 307 "scanner.l"
-{
- cb_assign_type_default = (enum cb_assign_type)(yytext[8] - '0');
-}
- YY_BREAK
-case 14:
-/* rule 14 can match eol */
-YY_RULE_SETUP
-#line 311 "scanner.l"
-{
- struct cb_turn_list *l;
-
- for (l = cb_turn_list; l && l->line != -1; l = l->next);
- if (l) {
- l->line = cb_source_line;
- }
-}
- YY_BREAK
-case 15:
-/* rule 15 can match eol */
-YY_RULE_SETUP
-#line 320 "scanner.l"
-{
- cobc_areacheck = 1;
-}
- YY_BREAK
-case 16:
-/* rule 16 can match eol */
-YY_RULE_SETUP
-#line 324 "scanner.l"
-{
- cobc_areacheck = 0;
-}
- YY_BREAK
-case 17:
-/* rule 17 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 328 "scanner.l"
-{
- count_lines (yytext + 9); /* skip "\n#area_a\n" */
- if (cobc_in_procedure && cobc_areacheck) {
- (void) cb_syntax_check (_("separator period in Area A"));
- }
-}
- YY_BREAK
-case 18:
-/* rule 18 can match eol */
-YY_RULE_SETUP
-#line 335 "scanner.l"
-{
- cobc_in_area_a = 1;
-}
- YY_BREAK
-case 19:
-/* rule 19 can match eol */
-YY_RULE_SETUP
-#line 339 "scanner.l"
-{
- cb_source_line++;
-}
- YY_BREAK
-case 20:
-YY_RULE_SETUP
-#line 343 "scanner.l"
-{
- /* Line directive */
- char *p1;
- char *p2;
-
- p1 = strchr (yytext, '"');
- if (p1) {
- p2 = p1 + 1;
- p1 = strrchr (p2, '"');
- if (p1) {
- *p1 = 0;
- cb_source_file = cobc_parse_strdup (p2);
- /* FIXME: only place where strol is used, replace by cobc internal
- function for base 10 (found in cobc.c already) and base 16,
- remove from configure.ac */
- cb_source_line = (int)strtol (yytext + 5, NULL, 10) - 1;
- }
- }
-}
- YY_BREAK
-case 21:
-YY_RULE_SETUP
-#line 363 "scanner.l"
-{
- /* Ignore */
-}
- YY_BREAK
-case 22:
-#line 368 "scanner.l"
-case 23:
-YY_RULE_SETUP
-#line 368 "scanner.l"
-{
- BEGIN PICTURE_STATE;
-}
- YY_BREAK
-case 24:
-YY_RULE_SETUP
-#line 372 "scanner.l"
-{
- if (!lookup_reserved_word ("FUNCTION")) {
- /* FIXME: FUNCTION is always reserved, even when explicit
- disabled via -fnot-reserved=FUNCTION ?!? */
- yylval = cb_build_reference (yytext);
- if (cobc_in_area_a) {
- RETURN_TOK (WORD_IN_AREA_A);
- } else {
- RETURN_TOK (WORD);
- }
- }
- if (cobc_in_repository || cobc_cs_check == CB_CS_EXIT) {
- yylval = NULL;
- RETURN_TOK (FUNCTION);
- }
- BEGIN FUNCTION_STATE;
-}
- YY_BREAK
-case 25:
-YY_RULE_SETUP
-#line 390 "scanner.l"
-{
- /* String literal */
- read_literal (yytext[0], CB_LITERAL_DEFAULT);
- RETURN_TOK (LITERAL);
-}
- YY_BREAK
-case 26:
-#line 397 "scanner.l"
-case 27:
-YY_RULE_SETUP
-#line 397 "scanner.l"
-{
- /* X string literal */
- RETURN_TOK (scan_x (yytext + 2, "X"));
-}
- YY_BREAK
-case 28:
-YY_RULE_SETUP
-#line 402 "scanner.l"
-{
- /* N national string (UTF16) literal */
- /* TODO: national string - needs different handling */
- read_literal (yytext [1], CB_LITERAL_N);
- RETURN_TOK (LITERAL);
-}
- YY_BREAK
-case 29:
-YY_RULE_SETUP
-#line 409 "scanner.l"
-{
- /* NC national character string literal (extension, but
- same handling as COBOL 2002 national string literal) */
- /* TODO: national string - needs different handling */
- read_literal (yytext [2], CB_LITERAL_NC);
- RETURN_TOK (LITERAL);
-}
- YY_BREAK
-case 30:
-#line 418 "scanner.l"
-case 31:
-YY_RULE_SETUP
-#line 418 "scanner.l"
-{
- /* NX string literal */
- RETURN_TOK (scan_x (yytext + 3, "NX"));
-}
- YY_BREAK
-case 32:
-YY_RULE_SETUP
-#line 423 "scanner.l"
-{
- /* UTF8 string literal */
- /* TODO: utf8 string - needs different handling */
- read_literal (yytext [1], CB_LITERAL_U);
- RETURN_TOK (LITERAL);
-}
- YY_BREAK
-case 33:
-#line 431 "scanner.l"
-case 34:
-YY_RULE_SETUP
-#line 431 "scanner.l"
-{
- /* UX string literal */
- RETURN_TOK (scan_x (yytext + 3, "UX"));
-}
- YY_BREAK
-case 35:
-#line 437 "scanner.l"
-case 36:
-YY_RULE_SETUP
-#line 437 "scanner.l"
-{
- /* Z string literal */
- RETURN_TOK (scan_z (yytext + 2, "Z"));
-}
- YY_BREAK
-case 37:
-#line 443 "scanner.l"
-case 38:
-YY_RULE_SETUP
-#line 443 "scanner.l"
-{
- /* L string literal */
- RETURN_TOK (scan_z (yytext + 2, "L"));
-}
- YY_BREAK
-case 39:
-#line 449 "scanner.l"
-case 40:
-YY_RULE_SETUP
-#line 449 "scanner.l"
-{
- /* H hexadecimal/numeric literal */
- RETURN_TOK (scan_h (yytext + 2, "H"));
-}
- YY_BREAK
-case 41:
-#line 455 "scanner.l"
-case 42:
-YY_RULE_SETUP
-#line 455 "scanner.l"
-{
- /* B boolean/numeric literal */
- RETURN_TOK (scan_b (yytext + 2, "B"));
-}
- YY_BREAK
-case 43:
-#line 461 "scanner.l"
-case 44:
-YY_RULE_SETUP
-#line 461 "scanner.l"
-{
- /* BX boolean hexadecimal string literal */
- RETURN_TOK (scan_x (yytext + 3, "BX"));
-}
- YY_BREAK
-case 45:
-YY_RULE_SETUP
-#line 466 "scanner.l"
-{
- /*
- To avoid subtle silent errors, such as B#021, this rule (and the ones
- following) here admit some invalid literals which emit errors when
- they are processed.
- */
- /* ACUCOBOL binary numeric literal */
- RETURN_TOK (scan_b (yytext + 2, "B#"));
-}
- YY_BREAK
-case 46:
-YY_RULE_SETUP
-#line 476 "scanner.l"
-{
- /* ACUCOBOL octal numeric literal */
- RETURN_TOK (scan_o (yytext + 2, "O#"));
-}
- YY_BREAK
-case 47:
-YY_RULE_SETUP
-#line 481 "scanner.l"
-{
- /* HP-COBOL octal numeric literal */
- RETURN_TOK (scan_o (yytext + 1, "%"));
-}
- YY_BREAK
-case 48:
-#line 487 "scanner.l"
-case 49:
-YY_RULE_SETUP
-#line 487 "scanner.l"
-{
- /* ACUCOBOL hexadecimal numeric literal */
- char type[3] = "x#";
- type[0] = yytext [0];
- RETURN_TOK (scan_h (yytext + 2, type));
-}
- YY_BREAK
-case 50:
-YY_RULE_SETUP
-#line 494 "scanner.l"
-{
- inside_bracket++;
- RETURN_TOK (TOK_OPEN_PAREN);
-}
- YY_BREAK
-case 51:
-YY_RULE_SETUP
-#line 499 "scanner.l"
-{
- if (inside_bracket) {
- inside_bracket--;
- }
- RETURN_TOK (TOK_CLOSE_PAREN);
-}
- YY_BREAK
-case 52:
-YY_RULE_SETUP
-#line 506 "scanner.l"
-{
- int value;
-
- /* We treat integer literals immediately after '.' as labels;
- that is, they must be level numbers or section names. */
- if (last_token == TOK_DOT || cobc_in_area_a) {
- yylval = cb_build_reference (yytext);
-
- if (!cobc_in_procedure) {
- value = atoi (yytext);
- if (value == 66) {
- /* level number 66 */
- RETURN_TOK (SIXTY_SIX);
- } else if (value == 78) {
- /* level number 78 */
- RETURN_TOK (SEVENTY_EIGHT);
- } else if (value == 88) {
- /* level number 88 */
- RETURN_TOK (EIGHTY_EIGHT);
- } else if ((value >= 1 && value <= 49) || value == 77) {
- /* level number (1 through 49, 77) */
- if (cobc_in_area_a) {
- RETURN_TOK (LEVEL_NUMBER_IN_AREA_A);
- } else {
- RETURN_TOK (LEVEL_NUMBER);
- }
- }
- }
-
- /* Integer label */
- if (cobc_in_area_a) {
- RETURN_TOK (WORD_IN_AREA_A);
- } else {
- RETURN_TOK (WORD);
- }
- }
- /* Numeric literal or referenced integer label
- remark: all transformations/checks are postponed:
- literals to tree.c,
- integer label to typeck.c (cb_build_section_name)
- */
- yylval = cb_build_numeric_literal (0, yytext, 0);
- RETURN_TOK (LITERAL);
-}
- YY_BREAK
-case 53:
-YY_RULE_SETUP
-#line 551 "scanner.l"
-{
-
- /* We treat integer literals immediately after '.' as labels;
- that is, they must be level numbers or section names. */
- if (last_token == TOK_DOT || cobc_in_area_a) {
- /* Integer label */
- yylval = cb_build_reference (yytext);
- if (cobc_in_area_a) {
- RETURN_TOK (WORD_IN_AREA_A);
- } else {
- RETURN_TOK (WORD);
- }
- }
- /* Numeric literal or referenced integer label
- remark: all transformations/checks are postponed:
- literals to tree.c,
- integer label to typeck.c (cb_build_section_name)
- */
- yylval = cb_build_numeric_literal (0, yytext, 0);
- RETURN_TOK (LITERAL);
-}
- YY_BREAK
-case 54:
-YY_RULE_SETUP
-#line 573 "scanner.l"
-{
- /* Numeric literal (signed) */
- RETURN_TOK (scan_numeric (yytext));
-}
- YY_BREAK
-case 55:
-YY_RULE_SETUP
-#line 578 "scanner.l"
-{
- /* Ignore */
-}
- YY_BREAK
-case 56:
-YY_RULE_SETUP
-#line 582 "scanner.l"
-{
- if (inside_bracket) {
- RETURN_TOK (SEMI_COLON);
- }
- /* Ignore */
-}
- YY_BREAK
-case 57:
-YY_RULE_SETUP
-#line 589 "scanner.l"
-{
- /* Numeric floating point literal */
- RETURN_TOK (scan_floating_numeric (yytext));
-}
- YY_BREAK
-case 58:
-YY_RULE_SETUP
-#line 594 "scanner.l"
-{
- /* Invalid numeric floating point literal */
- RETURN_TOK (scan_floating_numeric (yytext));
-}
- YY_BREAK
-case 59:
-YY_RULE_SETUP
-#line 599 "scanner.l"
-{
- /* Numeric literal */
- RETURN_TOK (scan_numeric (yytext));
-}
- YY_BREAK
-case 60:
-YY_RULE_SETUP
-#line 604 "scanner.l"
-{
- if (inside_bracket) {
- RETURN_TOK (COMMA_DELIM);
- }
- /* Ignore */
-}
- YY_BREAK
-case 61:
-YY_RULE_SETUP
-#line 611 "scanner.l"
-{
- /* Numeric floating point literal */
- RETURN_TOK (scan_floating_numeric (yytext));
-}
- YY_BREAK
-case 62:
-YY_RULE_SETUP
-#line 616 "scanner.l"
-{
- /* Invalid numeric floating point literal */
- RETURN_TOK (scan_floating_numeric (yytext));
-}
- YY_BREAK
-case 63:
-YY_RULE_SETUP
-#line 621 "scanner.l"
-{
- /* Numeric literal */
- RETURN_TOK (scan_numeric (yytext));
-}
- YY_BREAK
-case 64:
-YY_RULE_SETUP
-#line 626 "scanner.l"
-{
- unput (',');
-}
- YY_BREAK
-case 65:
-YY_RULE_SETUP
-#line 630 "scanner.l"
-{
- if (inside_bracket) {
- RETURN_TOK (COMMA_DELIM);
- }
- /* Ignore */
-}
- YY_BREAK
-case 66:
-YY_RULE_SETUP
-#line 637 "scanner.l"
-{
- if (inside_bracket) {
- RETURN_TOK (COMMA_DELIM);
- }
- /* Ignore */
-}
- YY_BREAK
-case 67:
-/* rule 67 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 644 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (END_PROGRAM);
-}
- YY_BREAK
-case 68:
-/* rule 68 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 649 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (END_FUNCTION);
-}
- YY_BREAK
-case 69:
-/* rule 69 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 654 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (PICTURE_SYMBOL);
-}
- YY_BREAK
-case 70:
-/* rule 70 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 659 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (FROM_CRT);
-}
- YY_BREAK
-case 71:
-/* rule 71 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 664 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (SCREEN_CONTROL);
-}
- YY_BREAK
-case 72:
-/* rule 72 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 669 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (EVENT_STATUS);
-}
- YY_BREAK
-case 73:
-/* rule 73 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 674 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (READY_TRACE);
-}
- YY_BREAK
-case 74:
-/* rule 74 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 679 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (RESET_TRACE);
-}
- YY_BREAK
-case 75:
-/* rule 75 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 684 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (GREATER_OR_EQUAL);
-}
- YY_BREAK
-case 76:
-/* rule 76 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 689 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (GREATER);
-}
- YY_BREAK
-case 77:
-/* rule 77 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 694 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (LESS_OR_EQUAL);
-}
- YY_BREAK
-case 78:
-/* rule 78 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 699 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (LESS);
-}
- YY_BREAK
-case 79:
-/* rule 79 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 704 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (EQUAL);
-}
- YY_BREAK
-case 80:
-/* rule 80 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 709 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (REPLACING);
-}
- YY_BREAK
-case 81:
-/* rule 81 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 714 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (TOP);
-}
- YY_BREAK
-case 82:
-/* rule 82 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 718 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (TOP);
-}
- YY_BREAK
-case 83:
-/* rule 83 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 723 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (BOTTOM);
-}
- YY_BREAK
-case 84:
-/* rule 84 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 727 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (BOTTOM);
-}
- YY_BREAK
-case 85:
-/* rule 85 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 732 "scanner.l"
-{
- count_lines (yytext);
- return LINE_LIMIT;
-}
- YY_BREAK
-case 86:
-/* rule 86 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 737 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (NO_ADVANCING);
-}
- YY_BREAK
-case 87:
-/* rule 87 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 742 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (NEXT_PAGE);
-}
- YY_BREAK
-case 88:
-/* rule 88 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 747 "scanner.l"
-{
- count_lines (yytext);
- return NEXT_GROUP;
-}
- YY_BREAK
-case 89:
-/* rule 89 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 752 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (NOT_SIZE_ERROR);
-}
- YY_BREAK
-case 90:
-/* rule 90 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 757 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (SIZE_ERROR);
-}
- YY_BREAK
-case 91:
-/* rule 91 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 762 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (NOT_ON_ESCAPE);
-}
- YY_BREAK
-case 92:
-/* rule 92 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 767 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (NOT_ON_EXCEPTION);
-}
- YY_BREAK
-case 93:
-/* rule 93 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 772 "scanner.l"
-{
- /* Note: plain ESCAPE is directly matched via registered words */
- count_lines (yytext);
- RETURN_TOK (ON_ESCAPE);
-}
- YY_BREAK
-case 94:
-/* rule 94 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 778 "scanner.l"
-{
- /* Note: plain EXCEPTION is directly matched via registered words */
- count_lines (yytext);
- RETURN_TOK (ON_EXCEPTION);
-}
- YY_BREAK
-case 95:
-/* rule 95 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 784 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (NOT_ON_OVERFLOW);
-}
- YY_BREAK
-case 96:
-/* rule 96 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 789 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (NOT_AT_END);
-}
- YY_BREAK
-case 97:
-/* rule 97 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 794 "scanner.l"
-{
- /* Note: plain END is directly matched via registered words */
- count_lines (yytext);
- RETURN_TOK (AT_END);
-}
- YY_BREAK
-case 98:
-/* rule 98 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 800 "scanner.l"
-{
- /* Note: plain OVERFLOW is directly matched via registered words */
- count_lines (yytext);
- RETURN_TOK (TOK_OVERFLOW);
-}
- YY_BREAK
-case 99:
-/* rule 99 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 806 "scanner.l"
-{
- /* Note: plain END-OF-PAGE / EOP is directly matched via registered words */
- /* TODO: if END-OF-PAGE/EOP are not reserved -> directly return */
- count_lines (yytext);
- RETURN_TOK (NOT_EOP);
-}
- YY_BREAK
-case 100:
-/* rule 100 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 813 "scanner.l"
-{
- /* Note: plain END-OF-PAGE / EOP is directly matched via registered words */
- /* TODO: if END-OF-PAGE/EOP are not reserved -> directly return */
- count_lines (yytext);
- RETURN_TOK (EOP);
-}
- YY_BREAK
-case 101:
-/* rule 101 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 820 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (NOT_INVALID_KEY);
-}
- YY_BREAK
-case 102:
-/* rule 102 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 825 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (INVALID_KEY);
-}
- YY_BREAK
-case 103:
-YY_RULE_SETUP
-#line 830 "scanner.l"
-{
- if (cobc_in_procedure) {
- RETURN_TOK (INVALID_KEY);
- } else {
- /* note: INVALID is a reserved word in all dialects,
- otherwise we'd lookup and return WORD as necessary */
- RETURN_TOK (INVALID);
- }
-}
- YY_BREAK
-case 104:
-/* rule 104 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 840 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (NO_DATA);
-}
- YY_BREAK
-case 105:
-/* rule 105 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 845 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (DATA);
-}
- YY_BREAK
-case 106:
-/* rule 106 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 850 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (UPON_ENVIRONMENT_NAME);
-}
- YY_BREAK
-case 107:
-/* rule 107 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 855 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (UPON_ENVIRONMENT_VALUE);
-}
- YY_BREAK
-case 108:
-/* rule 108 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 860 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (UPON_ARGUMENT_NUMBER);
-}
- YY_BREAK
-case 109:
-/* rule 109 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 865 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (UPON_COMMAND_LINE);
-}
- YY_BREAK
-case 110:
-/* rule 110 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 870 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (EXCEPTION_CONDITION);
-}
- YY_BREAK
-case 111:
-/* rule 111 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 875 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (EC);
-}
- YY_BREAK
-case 112:
-/* rule 112 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_bp + 8);
-(yy_c_buf_p) = yy_cp = yy_bp + 8;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 880 "scanner.l"
-{
- count_lines (yytext);
- if (!lookup_reserved_word ("SUPPRESS")) {
- yylval = cb_build_reference (yytext);
- RETURN_TOK (WORD);
- }
- if (cobc_in_xml_generate_body || cobc_in_json_generate_body) {
- /*
- Using the standard SUPPRESS token in JSON/XML GENERATE causes
- a shift/reduce error - the SUPPRESS could be the start of the
- SUPPRESS clause or the start of a SUPPRESS statement. While we
- could alter shift precedence to get the result we implement
- here (viz. assuming the SUPPRESS belongs to JSON/XML GENERATE),
- our current style is for bison to run with no errors.
- */
- RETURN_TOK (SUPPRESS_XML);
- } else {
- RETURN_TOK (SUPPRESS);
- }
-}
- YY_BREAK
-case 113:
-/* rule 113 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_bp + 4);
-(yy_c_buf_p) = yy_cp = yy_bp + 4;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 901 "scanner.l"
-{
- /* FIXME: seems to work fine with SUPPRESS, but not here ... */
- count_lines (yytext);
- if (!lookup_reserved_word ("SEND")) {
- yylval = cb_build_reference (yytext);
- RETURN_TOK (WORD);
- }
-#if 0
- if (current_program->cd_list) {
- /*
- Using the standard SEND token in causes shift/reduce errors
- as it could either be SEND cd-name (COBOL until 85) or
- SEND (in MCS context COBOL 202x).
- */
- RETURN_TOK (SEND);
- } else {
- RETURN_TOK (SEND_CD);
- }
-#else
- RETURN_TOK (SEND);
-#endif
-}
- YY_BREAK
-case 114:
-/* rule 114 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_bp + 4);
-(yy_c_buf_p) = yy_cp = yy_bp + 4;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 924 "scanner.l"
-{
- count_lines (yytext);
- if (cobc_in_xml_generate_body) {
- /*
- Using the standard WHEN token in XML GENERATE causes a
- shift/reduce error - the WHEN could be the start of the
- WHEN clause or the start of a WHEN statement. While we
- could alter shift precedence to get the result we implement
- here (viz. assuming the WHEN belongs to XML GENERATE), our
- current style is for bison to run with no errors.
- */
- RETURN_TOK (WHEN_XML);
- } else {
- RETURN_TOK (WHEN);
- }
-}
- YY_BREAK
-case 115:
-/* rule 115 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 941 "scanner.l"
-{
- count_lines (yytext);
- yylval = cb_build_reference ("ALTERNATE CONSOLE");
- RETURN_TOK (WORD);
-}
- YY_BREAK
-case 116:
-/* rule 116 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 947 "scanner.l"
-{
- /* ACUCOBOL extension: switch-names with space and with letter */
- char name[10];
-
- /* FIXME: move the code for filling "name" here and first
- check with "lookup_system_name (name) != NULL"
- if we actually want to do this,
- otherwise return 2 (!) WORD tokens (by adding a queue
- of tokens to be returned)
- */
- if (cobc_in_procedure) {
- /* unput characters */
- yylval = cb_build_reference ("SWITCH");
- if (isdigit((unsigned char)yytext[yyleng-2])) {
- unput (yytext[yyleng-1]);
- unput (yytext[yyleng-2]);
- } else {
- unput (yytext[yyleng-1]);
- }
- } else {
- /* we need to return a single word, reverted later in parser.y */
- strcpy (name, yytext);
- name[6] = '_';
- yylval = cb_build_reference (name);
- }
- RETURN_TOK (WORD);
-}
- YY_BREAK
-case 117:
-/* rule 117 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-YY_LINENO_REWIND_TO(yy_cp - 1);
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 975 "scanner.l"
-{
- count_lines (yytext);
- RETURN_TOK (LENGTH_OF);
-}
- YY_BREAK
-case 118:
-YY_RULE_SETUP
-#line 980 "scanner.l"
-{
- struct cb_level_78 *p78;
- struct cb_intrinsic_table *cbp;
- struct cobc_reserved *resptr;
- struct cb_text_list *tlp;
- cb_tree x;
- cb_tree l;
-
- cb_check_word_length ((unsigned int)yyleng, yytext);
-
- yytext = cb_get_hexword (yytext);
-
- /* Check Intrinsic FUNCTION name without keyword */
- if ((cobc_in_procedure && (functions_are_all || cb_intrinsic_list ||
- current_program->function_spec_list)) || cobc_in_repository) {
- cbp = lookup_intrinsic (yytext, 0);
- if (cbp) {
- if (cobc_in_repository) {
- yylval = cb_build_alphanumeric_literal (yytext, (size_t)yyleng);
- RETURN_TOK (FUNCTION_NAME);
- }
- if (functions_are_all) {
- yylval = cb_build_reference (yytext);
- RETURN_TOK ((enum yytokentype)(cbp->token));
- }
- for (tlp = cb_intrinsic_list; tlp; tlp = tlp->next) {
- if (!strcasecmp (yytext, tlp->text)) {
- yylval = cb_build_reference (yytext);
- RETURN_TOK ((enum yytokentype)(cbp->token));
- }
- }
- l = current_program->function_spec_list;
- for (; l; l = CB_CHAIN(l)) {
- x = CB_VALUE (l);
- if (!strcasecmp (yytext,
- (char *)(CB_LITERAL(x)->data))) {
- yylval = cb_build_reference (yytext);
- RETURN_TOK ((enum yytokentype)(cbp->token));
- }
- }
- }
- }
-
- /* Bail early for (END) PROGRAM-ID when not a literal */
- if ((second_last_token == PROGRAM_ID && last_token == TOK_DOT)
- || (second_last_token == FUNCTION_ID && last_token == TOK_DOT)
- || last_token == END_PROGRAM
- || last_token == END_FUNCTION) {
- /* Force PROGRAM-ID / END PROGRAM */
- if (cb_fold_call) {
- yylval = cb_build_reference (yytext);
- RETURN_TOK (PROGRAM_NAME);
- } else {
- yylval = cb_build_alphanumeric_literal (yytext, (size_t)yyleng);
- RETURN_TOK (LITERAL);
- }
- }
-
- /* Check reserved word */
- resptr = lookup_reserved_word (yytext);
- if (resptr != NULL) {
- if (resptr->nodegen) {
- /* Save location for terminator checking */
- /* Misuse comment tree to mark statement */
- yylval = cb_build_comment (NULL);
- } else {
- yylval = NULL;
- }
- RETURN_TOK (resptr->token);
- }
-
- /* New user-defined word in REPOSITORY entry */
- if (cobc_in_repository) {
- yylval = cb_build_reference (yytext);
- RETURN_TOK (WORD);
- }
-
- /* Direct recursive reference in function */
- if (current_program->prog_type == COB_MODULE_TYPE_FUNCTION
- && !functions_are_all
- && !strcasecmp (yytext, current_program->orig_program_id)) {
- yylval = cb_build_reference (yytext);
- RETURN_TOK (USER_FUNCTION_NAME);
- }
-
- /* Check prototype names */
- for (l = current_program->user_spec_list; l; l = CB_CHAIN (l)) {
- x = CB_VALUE (l);
- if (!strcasecmp (yytext, CB_PROTOTYPE (x)->name)) {
- yylval = cb_build_reference (yytext);
- RETURN_TOK (USER_FUNCTION_NAME);
- }
- }
- if (cobc_allow_program_name) {
- for (l = current_program->program_spec_list; l; l = CB_CHAIN (l)) {
- x = CB_VALUE (l);
- if (!strcasecmp (yytext, CB_PROTOTYPE (x)->name)) {
- yylval = cb_build_reference (yytext);
- RETURN_TOK (PROGRAM_NAME);
- }
- }
- }
-
- /* Check user programs */
- if (cobc_in_id) {
- const struct cb_program *program = cb_find_defined_program_by_name (yytext);
- if (program) {
- yylval = cb_build_reference (yytext);
- RETURN_TOK (PROGRAM_NAME);
- }
- }
-
- /* User word */
-
- /* Check local, global and source global CONSTANT (78) items */
-
- for (p78 = top_78_ptr; p78; p78 = p78->glob_next) {
- if (strcasecmp (yytext, p78->fld_78->name) == 0) {
- if (unlikely (non_const_word)) {
- if (p78->prog == current_program) {
- cb_error (_("a constant may not be used here - '%s'"), yytext);
- yylval = cb_error_node;
- RETURN_TOK (WORD);
- }
- if (p78->chk_const) {
- p78->not_const = 1;
- }
- break;
- }
- if (p78->chk_const && p78->not_const) {
- break;
- }
- x = p78->fld_78->values;
- if (CB_LITERAL_P (x)) {
- /* duplicate the constant literal
- to assign current source location */
- yylval = cobc_parse_malloc (sizeof (struct cb_literal));
- memcpy (yylval, x, sizeof (struct cb_literal));
- SET_LOCATION (yylval);
- } else {
- /* Note: we cannot do this for cb_zero and friends,
- as those have sepcial meanings and are checked
- by tree comparision only */
- yylval = x;
- }
- RETURN_TOK (LITERAL);
- }
- }
-
- yylval = cb_build_reference (yytext);
-
- /* Special name handling */
- if (CB_WORD_COUNT (yylval) > 0 && CB_WORD_ITEMS (yylval)) {
- x = CB_VALUE (CB_WORD_ITEMS (yylval));
- if (CB_SYSTEM_NAME_P (x)) {
- RETURN_TOK (MNEMONIC_NAME);
- } else if (CB_CLASS_NAME_P (x)) {
- RETURN_TOK (CLASS_NAME);
- }
- }
-
- if (cobc_in_area_a) {
- RETURN_TOK (WORD_IN_AREA_A);
- } else {
- RETURN_TOK (WORD);
- }
-}
- YY_BREAK
-case 119:
-YY_RULE_SETUP
-#line 1148 "scanner.l"
-{
- yylval = NULL;
- RETURN_TOK (LESS_OR_EQUAL);
-}
- YY_BREAK
-case 120:
-YY_RULE_SETUP
-#line 1153 "scanner.l"
-{
- yylval = NULL;
- RETURN_TOK (GREATER_OR_EQUAL);
-}
- YY_BREAK
-case 121:
-YY_RULE_SETUP
-#line 1158 "scanner.l"
-{
- yylval = NULL;
- RETURN_TOK (NOT_EQUAL);
-}
- YY_BREAK
-case 122:
-YY_RULE_SETUP
-#line 1163 "scanner.l"
-{
- yylval = NULL;
- RETURN_TOK (EXPONENTIATION);
-}
- YY_BREAK
-case 123:
-/* rule 123 can match eol */
-YY_RULE_SETUP
-#line 1168 "scanner.l"
-{
- /* note: according to the COBOL standard that is wrong as
- a dot is only TOK_DOT if it is followed by [ \n] or EOF
- CHECKME: switching to this would make parsing of decimals
- easier - how do other compilers handle this? */
- /* note: we explicit consume multiple . here to get the right position */
- cb_warning (COBC_WARN_FILLER, _("ignoring redundant ."));
-
-#if 0 /* it seems there is no case because of the consume above where
- the last token would be a dot */
- if (last_token != TOK_DOT) {
- yylval = NULL;
- RETURN_TOK (TOK_DOT);
- }
-#else
- yylval = NULL;
- RETURN_TOK (TOK_DOT);
-#endif
-}
- YY_BREAK
-case 124:
-YY_RULE_SETUP
-#line 1188 "scanner.l"
-{
- /* note: according to the COBOL standard that is wrong as
- a dot is only TOK_DOT if it is followed by [ \n] or EOF
- CHECKME: switching to this would make parsing of decimals
- easier - how do other compilers handle this? */
-#if 0 /* it seems there is no case because of the consume above where
- the last token would be a dot, _possibly_ EOF? */
- if (last_token != TOK_DOT) {
- yylval = NULL;
- RETURN_TOK (TOK_DOT);
- }
-#else
- yylval = NULL;
- RETURN_TOK (TOK_DOT);
-#endif
-}
- YY_BREAK
-case 125:
-YY_RULE_SETUP
-#line 1205 "scanner.l"
-{
- yylval = NULL;
- RETURN_TOK (TOK_AMPER);
-}
- YY_BREAK
-case 126:
-YY_RULE_SETUP
-#line 1210 "scanner.l"
-{
- yylval = NULL;
- RETURN_TOK (TOK_COLON);
-}
- YY_BREAK
-case 127:
-YY_RULE_SETUP
-#line 1215 "scanner.l"
-{
- yylval = NULL;
- RETURN_TOK (TOK_EQUAL);
-}
- YY_BREAK
-case 128:
-YY_RULE_SETUP
-#line 1220 "scanner.l"
-{
- yylval = NULL;
- RETURN_TOK (TOK_DIV);
-}
- YY_BREAK
-case 129:
-YY_RULE_SETUP
-#line 1225 "scanner.l"
-{
- yylval = NULL;
- RETURN_TOK (TOK_MUL);
-}
- YY_BREAK
-case 130:
-YY_RULE_SETUP
-#line 1230 "scanner.l"
-{
- yylval = NULL;
- RETURN_TOK (TOK_PLUS);
-}
- YY_BREAK
-case 131:
-YY_RULE_SETUP
-#line 1235 "scanner.l"
-{
- yylval = NULL;
- RETURN_TOK (TOK_MINUS);
-}
- YY_BREAK
-case 132:
-YY_RULE_SETUP
-#line 1240 "scanner.l"
-{
- yylval = NULL;
- RETURN_TOK (TOK_LESS);
-}
- YY_BREAK
-case 133:
-YY_RULE_SETUP
-#line 1245 "scanner.l"
-{
- yylval = NULL;
- RETURN_TOK (TOK_GREATER);
-}
- YY_BREAK
-case 134:
-YY_RULE_SETUP
-#line 1250 "scanner.l"
-{
- int c;
-
- cb_error (_("invalid symbol '%s' - skipping word"), yytext);
- while ((c = input ()) != EOF) {
- if (c == '\n' || c == ' ') {
- break;
- }
- }
- if (c != EOF) {
- unput (c);
- }
-}
- YY_BREAK
-
-case 135:
-YY_RULE_SETUP
-#line 1266 "scanner.l"
-{
- /* Ignore */
- }
- YY_BREAK
-case 136:
-YY_RULE_SETUP
-#line 1269 "scanner.l"
-{
- BEGIN INITIAL;
- scan_picture (yytext);
- RETURN_TOK (PICTURE);
- }
- YY_BREAK
-
-
-case 137:
-YY_RULE_SETUP
-#line 1277 "scanner.l"
-{
- struct cb_intrinsic_table *cbp;
- cb_tree l;
-
- BEGIN INITIAL;
-
- /* TODO: check for cb_word_length, if too long,
- then only handle up to max and error */
- yylval = cb_build_reference (yytext);
- for (l = current_program->user_spec_list; l; l = CB_CHAIN(l)) {
- cb_tree x = CB_VALUE (l);
- if (!strcasecmp (yytext, CB_PROTOTYPE (x)->name)) {
- RETURN_TOK (USER_FUNCTION_NAME);
- }
- }
- cbp = lookup_intrinsic (yytext, 0);
- if (cbp) {
- RETURN_TOK ((enum yytokentype)(cbp->token));
- }
- RETURN_TOK (FUNCTION_NAME);
- }
- YY_BREAK
-case 138:
-YY_RULE_SETUP
-#line 1298 "scanner.l"
-{
- yylval = NULL;
- RETURN_TOK (yytext[0]); /* is that correct? */
- }
- YY_BREAK
-
-case YY_STATE_EOF(INITIAL):
-case YY_STATE_EOF(DECIMAL_IS_PERIOD):
-case YY_STATE_EOF(DECIMAL_IS_COMMA):
-case YY_STATE_EOF(PICTURE_STATE):
-case YY_STATE_EOF(FUNCTION_STATE):
-#line 1304 "scanner.l"
-{
- /* At EOF - Clear variables */
- clear_constants ();
- last_token = second_last_token = 0;
- cobc_in_area_a = 0;
- inside_bracket = 0;
- yyterminate ();
-}
- YY_BREAK
-case 139:
-YY_RULE_SETUP
-#line 1313 "scanner.l"
-YY_FATAL_ERROR( "flex scanner jammed" );
- YY_BREAK
-#line 3974 "scanner.c"
-
- case YY_END_OF_BUFFER:
- {
- /* Amount of text matched not including the EOB char. */
- int yy_amount_of_matched_text = (int) (yy_cp - (yytext_ptr)) - 1;
-
- /* Undo the effects of YY_DO_BEFORE_ACTION. */
- *yy_cp = (yy_hold_char);
- YY_RESTORE_YY_MORE_OFFSET
-
- if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_NEW )
- {
- /* We're scanning a new file or input source. It's
- * possible that this happened because the user
- * just pointed yyin at a new source and called
- * yylex(). If so, then we have to assure
- * consistency between YY_CURRENT_BUFFER and our
- * globals. Here is the right place to do so, because
- * this is the first action (other than possibly a
- * back-up) that will match for the new input source.
- */
- (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
- YY_CURRENT_BUFFER_LVALUE->yy_input_file = yyin;
- YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL;
- }
-
- /* Note that here we test for yy_c_buf_p "<=" to the position
- * of the first EOB in the buffer, since yy_c_buf_p will
- * already have been incremented past the NUL character
- * (since all states make transitions on EOB to the
- * end-of-buffer state). Contrast this with the test
- * in input().
- */
- if ( (yy_c_buf_p) <= &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
- { /* This was really a NUL. */
- yy_state_type yy_next_state;
-
- (yy_c_buf_p) = (yytext_ptr) + yy_amount_of_matched_text;
-
- yy_current_state = yy_get_previous_state( );
-
- /* Okay, we're now positioned to make the NUL
- * transition. We couldn't have
- * yy_get_previous_state() go ahead and do it
- * for us because it doesn't know how to deal
- * with the possibility of jamming (and we don't
- * want to build jamming into it because then it
- * will run more slowly).
- */
-
- yy_next_state = yy_try_NUL_trans( yy_current_state );
-
- yy_bp = (yytext_ptr) + YY_MORE_ADJ;
-
- if ( yy_next_state )
- {
- /* Consume the NUL. */
- yy_cp = ++(yy_c_buf_p);
- yy_current_state = yy_next_state;
- goto yy_match;
- }
-
- else
- {
- yy_cp = (yy_last_accepting_cpos);
- yy_current_state = (yy_last_accepting_state);
- goto yy_find_action;
- }
- }
-
- else switch ( yy_get_next_buffer( ) )
- {
- case EOB_ACT_END_OF_FILE:
- {
- (yy_did_buffer_switch_on_eof) = 0;
-
- if ( yywrap( ) )
- {
- /* Note: because we've taken care in
- * yy_get_next_buffer() to have set up
- * yytext, we can now set up
- * yy_c_buf_p so that if some total
- * hoser (like flex itself) wants to
- * call the scanner after we return the
- * YY_NULL, it'll still work - another
- * YY_NULL will get returned.
- */
- (yy_c_buf_p) = (yytext_ptr) + YY_MORE_ADJ;
-
- yy_act = YY_STATE_EOF(YY_START);
- goto do_action;
- }
-
- else
- {
- if ( ! (yy_did_buffer_switch_on_eof) )
- YY_NEW_FILE;
- }
- break;
- }
-
- case EOB_ACT_CONTINUE_SCAN:
- (yy_c_buf_p) =
- (yytext_ptr) + yy_amount_of_matched_text;
-
- yy_current_state = yy_get_previous_state( );
-
- yy_cp = (yy_c_buf_p);
- yy_bp = (yytext_ptr) + YY_MORE_ADJ;
- goto yy_match;
-
- case EOB_ACT_LAST_MATCH:
- (yy_c_buf_p) =
- &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)];
-
- yy_current_state = yy_get_previous_state( );
-
- yy_cp = (yy_c_buf_p);
- yy_bp = (yytext_ptr) + YY_MORE_ADJ;
- goto yy_find_action;
- }
- break;
- }
-
- default:
- YY_FATAL_ERROR(
- "fatal flex scanner internal error--no action found" );
- } /* end of action switch */
- } /* end of scanning one token */
- } /* end of user's declarations */
-} /* end of yylex */
-
-/* yy_get_next_buffer - try to read in a new buffer
- *
- * Returns a code representing an action:
- * EOB_ACT_LAST_MATCH -
- * EOB_ACT_CONTINUE_SCAN - continue scanning from current position
- * EOB_ACT_END_OF_FILE - end of file
- */
-static int yy_get_next_buffer (void)
-{
- char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf;
- char *source = (yytext_ptr);
- yy_size_t number_to_move, i;
- int ret_val;
-
- if ( (yy_c_buf_p) > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] )
- YY_FATAL_ERROR(
- "fatal flex scanner internal error--end of buffer missed" );
-
- if ( YY_CURRENT_BUFFER_LVALUE->yy_fill_buffer == 0 )
- { /* Don't try to fill the buffer, so this is an EOF. */
- if ( (yy_c_buf_p) - (yytext_ptr) - YY_MORE_ADJ == 1 )
- {
- /* We matched a single character, the EOB, so
- * treat this as a final EOF.
- */
- return EOB_ACT_END_OF_FILE;
- }
-
- else
- {
- /* We matched some text prior to the EOB, first
- * process it.
- */
- return EOB_ACT_LAST_MATCH;
- }
- }
-
- /* Try to read more data. */
-
- /* First move last chars to start of buffer. */
- number_to_move = (yy_size_t) ((yy_c_buf_p) - (yytext_ptr)) - 1;
-
- for ( i = 0; i < number_to_move; ++i )
- *(dest++) = *(source++);
-
- if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_EOF_PENDING )
- /* don't do the read, it's not guaranteed to return an EOF,
- * just force an EOF
- */
- YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars) = 0;
-
- else
- {
- int num_to_read =
- YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1;
-
- while ( num_to_read <= 0 )
- { /* Not enough room in the buffer - grow it. */
-
- /* just a shorter name for the current buffer */
- YY_BUFFER_STATE b = YY_CURRENT_BUFFER_LVALUE;
-
- int yy_c_buf_p_offset =
- (int) ((yy_c_buf_p) - b->yy_ch_buf);
-
- if ( b->yy_is_our_buffer )
- {
- int new_size = b->yy_buf_size * 2;
-
- if ( new_size <= 0 )
- b->yy_buf_size += b->yy_buf_size / 8;
- else
- b->yy_buf_size *= 2;
-
- b->yy_ch_buf = (char *)
- /* Include room in for 2 EOB chars. */
- yyrealloc((void *) b->yy_ch_buf,(yy_size_t) (b->yy_buf_size + 2) );
- }
- else
- /* Can't grow it, we don't own it. */
- b->yy_ch_buf = NULL;
-
- if ( ! b->yy_ch_buf )
- YY_FATAL_ERROR(
- "fatal error - scanner input buffer overflow" );
-
- (yy_c_buf_p) = &b->yy_ch_buf[yy_c_buf_p_offset];
-
- num_to_read = YY_CURRENT_BUFFER_LVALUE->yy_buf_size -
- number_to_move - 1;
-
- }
-
- if ( num_to_read > YY_READ_BUF_SIZE )
- num_to_read = YY_READ_BUF_SIZE;
-
- /* Read in more data. */
- YY_INPUT( (&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]),
- (yy_n_chars), num_to_read );
-
- YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
- }
-
- if ( (yy_n_chars) == 0 )
- {
- if ( number_to_move == YY_MORE_ADJ )
- {
- ret_val = EOB_ACT_END_OF_FILE;
- yyrestart(yyin );
- }
-
- else
- {
- ret_val = EOB_ACT_LAST_MATCH;
- YY_CURRENT_BUFFER_LVALUE->yy_buffer_status =
- YY_BUFFER_EOF_PENDING;
- }
- }
-
- else
- ret_val = EOB_ACT_CONTINUE_SCAN;
-
- if ((int) ((yy_n_chars) + number_to_move) > YY_CURRENT_BUFFER_LVALUE->yy_buf_size) {
- /* Extend the array by 50%, plus the number we really need. */
- int new_size = (yy_n_chars) + number_to_move + ((yy_n_chars) >> 1);
- YY_CURRENT_BUFFER_LVALUE->yy_ch_buf = (char *) yyrealloc((void *) YY_CURRENT_BUFFER_LVALUE->yy_ch_buf,(yy_size_t) new_size );
- if ( ! YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
- YY_FATAL_ERROR( "out of dynamic memory in yy_get_next_buffer()" );
- }
-
- (yy_n_chars) += number_to_move;
- YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] = YY_END_OF_BUFFER_CHAR;
- YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] = YY_END_OF_BUFFER_CHAR;
-
- (yytext_ptr) = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[0];
-
- return ret_val;
-}
-
-/* yy_get_previous_state - get the state just before the EOB char was reached */
-
- static yy_state_type yy_get_previous_state (void)
-{
- yy_state_type yy_current_state;
- char *yy_cp;
-
- yy_current_state = (yy_start);
- yy_current_state += YY_AT_BOL();
-
- for ( yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp )
- {
- YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
- if ( yy_accept[yy_current_state] )
- {
- (yy_last_accepting_state) = yy_current_state;
- (yy_last_accepting_cpos) = yy_cp;
- }
- while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
- {
- yy_current_state = (int) yy_def[yy_current_state];
- if ( yy_current_state >= 1124 )
- yy_c = yy_meta[(unsigned int) yy_c];
- }
- yy_current_state = yy_nxt[yy_base[yy_current_state] + (flex_int16_t) yy_c];
- }
-
- return yy_current_state;
-}
-
-/* yy_try_NUL_trans - try to make a transition on the NUL character
- *
- * synopsis
- * next_state = yy_try_NUL_trans( current_state );
- */
- static yy_state_type yy_try_NUL_trans (yy_state_type yy_current_state )
-{
- int yy_is_jam;
- char *yy_cp = (yy_c_buf_p);
-
- YY_CHAR yy_c = 1;
- if ( yy_accept[yy_current_state] )
- {
- (yy_last_accepting_state) = yy_current_state;
- (yy_last_accepting_cpos) = yy_cp;
- }
- while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
- {
- yy_current_state = (int) yy_def[yy_current_state];
- if ( yy_current_state >= 1124 )
- yy_c = yy_meta[(unsigned int) yy_c];
- }
- yy_current_state = yy_nxt[yy_base[yy_current_state] + (flex_int16_t) yy_c];
- yy_is_jam = (yy_current_state == 1123);
-
- return yy_is_jam ? 0 : yy_current_state;
-}
-
-#ifndef YY_NO_UNPUT
-
- static void yyunput (int c, char * yy_bp )
-{
- char *yy_cp;
-
- yy_cp = (yy_c_buf_p);
-
- /* undo effects of setting up yytext */
- *yy_cp = (yy_hold_char);
-
- if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
- { /* need to shift things up to make room */
- /* +2 for EOB chars. */
- int number_to_move = (yy_n_chars) + 2;
- char *dest = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[
- YY_CURRENT_BUFFER_LVALUE->yy_buf_size + 2];
- char *source =
- &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move];
-
- while ( source > YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
- *--dest = *--source;
-
- yy_cp += (int) (dest - source);
- yy_bp += (int) (dest - source);
- YY_CURRENT_BUFFER_LVALUE->yy_n_chars =
- (yy_n_chars) = (int) YY_CURRENT_BUFFER_LVALUE->yy_buf_size;
-
- if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
- YY_FATAL_ERROR( "flex scanner push-back overflow" );
- }
-
- *--yy_cp = (char) c;
-
- (yytext_ptr) = yy_bp;
- (yy_hold_char) = *yy_cp;
- (yy_c_buf_p) = yy_cp;
-}
-
-#endif
-
-#ifndef YY_NO_INPUT
-#ifdef __cplusplus
- static int yyinput (void)
-#else
- static int input (void)
-#endif
-
-{
- int c;
-
- *(yy_c_buf_p) = (yy_hold_char);
-
- if ( *(yy_c_buf_p) == YY_END_OF_BUFFER_CHAR )
- {
- /* yy_c_buf_p now points to the character we want to return.
- * If this occurs *before* the EOB characters, then it's a
- * valid NUL; if not, then we've hit the end of the buffer.
- */
- if ( (yy_c_buf_p) < &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
- /* This was really a NUL. */
- *(yy_c_buf_p) = '\0';
-
- else
- { /* need more input */
- int offset = (yy_c_buf_p) - (yytext_ptr);
- ++(yy_c_buf_p);
-
- switch ( yy_get_next_buffer( ) )
- {
- case EOB_ACT_LAST_MATCH:
- /* This happens because yy_g_n_b()
- * sees that we've accumulated a
- * token and flags that we need to
- * try matching the token before
- * proceeding. But for input(),
- * there's no matching to consider.
- * So convert the EOB_ACT_LAST_MATCH
- * to EOB_ACT_END_OF_FILE.
- */
-
- /* Reset buffer status. */
- yyrestart(yyin );
-
- /*FALLTHROUGH*/
-
- case EOB_ACT_END_OF_FILE:
- {
- if ( yywrap( ) )
- return 0;
-
- if ( ! (yy_did_buffer_switch_on_eof) )
- YY_NEW_FILE;
-#ifdef __cplusplus
- return yyinput();
-#else
- return input();
-#endif
- }
-
- case EOB_ACT_CONTINUE_SCAN:
- (yy_c_buf_p) = (yytext_ptr) + offset;
- break;
- }
- }
- }
-
- c = *(unsigned char *) (yy_c_buf_p); /* cast for 8-bit char's */
- *(yy_c_buf_p) = '\0'; /* preserve yytext */
- (yy_hold_char) = *++(yy_c_buf_p);
-
- YY_CURRENT_BUFFER_LVALUE->yy_at_bol = (c == '\n');
-
- return c;
-}
-#endif /* ifndef YY_NO_INPUT */
-
-/** Immediately switch to a different input stream.
- * @param input_file A readable stream.
- *
- * @note This function does not reset the start condition to @c INITIAL .
- */
- void yyrestart (FILE * input_file )
-{
-
- if ( ! YY_CURRENT_BUFFER ){
- yyensure_buffer_stack ();
- YY_CURRENT_BUFFER_LVALUE =
- yy_create_buffer(yyin,YY_BUF_SIZE );
- }
-
- yy_init_buffer(YY_CURRENT_BUFFER,input_file );
- yy_load_buffer_state( );
-}
-
-/** Switch to a different input buffer.
- * @param new_buffer The new input buffer.
- *
- */
- void yy_switch_to_buffer (YY_BUFFER_STATE new_buffer )
-{
-
- /* TODO. We should be able to replace this entire function body
- * with
- * yypop_buffer_state();
- * yypush_buffer_state(new_buffer);
- */
- yyensure_buffer_stack ();
- if ( YY_CURRENT_BUFFER == new_buffer )
- return;
-
- if ( YY_CURRENT_BUFFER )
- {
- /* Flush out information for old buffer. */
- *(yy_c_buf_p) = (yy_hold_char);
- YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
- YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
- }
-
- YY_CURRENT_BUFFER_LVALUE = new_buffer;
- yy_load_buffer_state( );
-
- /* We don't actually know whether we did this switch during
- * EOF (yywrap()) processing, but the only time this flag
- * is looked at is after yywrap() is called, so it's safe
- * to go ahead and always set it.
- */
- (yy_did_buffer_switch_on_eof) = 1;
-}
-
-static void yy_load_buffer_state (void)
-{
- (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
- (yytext_ptr) = (yy_c_buf_p) = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos;
- yyin = YY_CURRENT_BUFFER_LVALUE->yy_input_file;
- (yy_hold_char) = *(yy_c_buf_p);
-}
-
-/** Allocate and initialize an input buffer state.
- * @param file A readable stream.
- * @param size The character buffer size in bytes. When in doubt, use @c YY_BUF_SIZE.
- *
- * @return the allocated buffer state.
- */
- YY_BUFFER_STATE yy_create_buffer (FILE * file, int size )
-{
- YY_BUFFER_STATE b;
-
- b = (YY_BUFFER_STATE) yyalloc(sizeof( struct yy_buffer_state ) );
- if ( ! b )
- YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
-
- b->yy_buf_size = size;
-
- /* yy_ch_buf has to be 2 characters longer than the size given because
- * we need to put in 2 end-of-buffer characters.
- */
- b->yy_ch_buf = (char *) yyalloc((yy_size_t) (b->yy_buf_size + 2) );
- if ( ! b->yy_ch_buf )
- YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
-
- b->yy_is_our_buffer = 1;
-
- yy_init_buffer(b,file );
-
- return b;
-}
-
-/** Destroy the buffer.
- * @param b a buffer created with yy_create_buffer()
- *
- */
- void yy_delete_buffer (YY_BUFFER_STATE b )
-{
-
- if ( ! b )
- return;
-
- if ( b == YY_CURRENT_BUFFER ) /* Not sure if we should pop here. */
- YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0;
-
- if ( b->yy_is_our_buffer )
- yyfree((void *) b->yy_ch_buf );
-
- yyfree((void *) b );
-}
-
-/* Initializes or reinitializes a buffer.
- * This function is sometimes called more than once on the same buffer,
- * such as during a yyrestart() or at EOF.
- */
- static void yy_init_buffer (YY_BUFFER_STATE b, FILE * file )
-
-{
- int oerrno = errno;
-
- yy_flush_buffer(b );
-
- b->yy_input_file = file;
- b->yy_fill_buffer = 1;
-
- /* If b is the current buffer, then yy_init_buffer was _probably_
- * called from yyrestart() or through yy_get_next_buffer.
- * In that case, we don't want to reset the lineno or column.
- */
- if (b != YY_CURRENT_BUFFER){
- b->yy_bs_lineno = 1;
- b->yy_bs_column = 0;
- }
-
- b->yy_is_interactive = 0;
-
- errno = oerrno;
-}
-
-/** Discard all buffered characters. On the next scan, YY_INPUT will be called.
- * @param b the buffer state to be flushed, usually @c YY_CURRENT_BUFFER.
- *
- */
- void yy_flush_buffer (YY_BUFFER_STATE b )
-{
- if ( ! b )
- return;
-
- b->yy_n_chars = 0;
-
- /* We always need two end-of-buffer characters. The first causes
- * a transition to the end-of-buffer state. The second causes
- * a jam in that state.
- */
- b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR;
- b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
-
- b->yy_buf_pos = &b->yy_ch_buf[0];
-
- b->yy_at_bol = 1;
- b->yy_buffer_status = YY_BUFFER_NEW;
-
- if ( b == YY_CURRENT_BUFFER )
- yy_load_buffer_state( );
-}
-
-/** Pushes the new state onto the stack. The new state becomes
- * the current state. This function will allocate the stack
- * if necessary.
- * @param new_buffer The new state.
- *
- */
-void yypush_buffer_state (YY_BUFFER_STATE new_buffer )
-{
- if (new_buffer == NULL)
- return;
-
- yyensure_buffer_stack();
-
- /* This block is copied from yy_switch_to_buffer. */
- if ( YY_CURRENT_BUFFER )
- {
- /* Flush out information for old buffer. */
- *(yy_c_buf_p) = (yy_hold_char);
- YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
- YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
- }
-
- /* Only push if top exists. Otherwise, replace top. */
- if (YY_CURRENT_BUFFER)
- (yy_buffer_stack_top)++;
- YY_CURRENT_BUFFER_LVALUE = new_buffer;
-
- /* copied from yy_switch_to_buffer. */
- yy_load_buffer_state( );
- (yy_did_buffer_switch_on_eof) = 1;
-}
-
-/** Removes and deletes the top of the stack, if present.
- * The next element becomes the new top.
- *
- */
-void yypop_buffer_state (void)
-{
- if (!YY_CURRENT_BUFFER)
- return;
-
- yy_delete_buffer(YY_CURRENT_BUFFER );
- YY_CURRENT_BUFFER_LVALUE = NULL;
- if ((yy_buffer_stack_top) > 0)
- --(yy_buffer_stack_top);
-
- if (YY_CURRENT_BUFFER) {
- yy_load_buffer_state( );
- (yy_did_buffer_switch_on_eof) = 1;
- }
-}
-
-/* Allocates the stack if it does not exist.
- * Guarantees space for at least one push.
- */
-static void yyensure_buffer_stack (void)
-{
- int num_to_alloc;
-
- if (!(yy_buffer_stack)) {
-
- /* First allocation is just for 2 elements, since we don't know if this
- * scanner will even need a stack. We use 2 instead of 1 to avoid an
- * immediate realloc on the next call.
- */
- num_to_alloc = 1; /* After all that talk, this was set to 1 anyways... */
- (yy_buffer_stack) = (struct yy_buffer_state**)yyalloc
- (num_to_alloc * sizeof(struct yy_buffer_state*)
- );
- if ( ! (yy_buffer_stack) )
- YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" );
-
- memset((yy_buffer_stack), 0, num_to_alloc * sizeof(struct yy_buffer_state*));
-
- (yy_buffer_stack_max) = num_to_alloc;
- (yy_buffer_stack_top) = 0;
- return;
- }
-
- if ((yy_buffer_stack_top) >= ((yy_buffer_stack_max)) - 1){
-
- /* Increase the buffer to prepare for a possible push. */
- yy_size_t grow_size = 8 /* arbitrary grow size */;
-
- num_to_alloc = (yy_buffer_stack_max) + grow_size;
- (yy_buffer_stack) = (struct yy_buffer_state**)yyrealloc
- ((yy_buffer_stack),
- num_to_alloc * sizeof(struct yy_buffer_state*)
- );
- if ( ! (yy_buffer_stack) )
- YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" );
-
- /* zero only the new slots.*/
- memset((yy_buffer_stack) + (yy_buffer_stack_max), 0, grow_size * sizeof(struct yy_buffer_state*));
- (yy_buffer_stack_max) = num_to_alloc;
- }
-}
-
-#ifndef YY_EXIT_FAILURE
-#define YY_EXIT_FAILURE 2
-#endif
-
-static void yynoreturn yy_fatal_error (yyconst char* msg )
-{
- (void) fprintf( stderr, "%s\n", msg );
- exit( YY_EXIT_FAILURE );
-}
-
-/* Redefine yyless() so it works in section 3 code. */
-
-#undef yyless
-#define yyless(n) \
- do \
- { \
- /* Undo effects of setting up yytext. */ \
- yy_size_t yyless_macro_arg = (n); \
- YY_LESS_LINENO(yyless_macro_arg);\
- yytext[yyleng] = (yy_hold_char); \
- (yy_c_buf_p) = yytext + yyless_macro_arg; \
- (yy_hold_char) = *(yy_c_buf_p); \
- *(yy_c_buf_p) = '\0'; \
- yyleng = yyless_macro_arg; \
- } \
- while ( 0 )
-
-/* Accessor methods (get/set functions) to struct members. */
-
-/** Get the current token.
- *
- */
-
-static int yy_init_globals (void)
-{
- /* Initialization is the same as for the non-reentrant scanner.
- * This function is called from yylex_destroy(), so don't allocate here.
- */
-
- (yy_buffer_stack) = NULL;
- (yy_buffer_stack_top) = 0;
- (yy_buffer_stack_max) = 0;
- (yy_c_buf_p) = NULL;
- (yy_init) = 0;
- (yy_start) = 0;
-
-/* Defined in main.c */
-#ifdef YY_STDINIT
- yyin = stdin;
- yyout = stdout;
-#else
- yyin = NULL;
- yyout = NULL;
-#endif
-
- /* For future reference: Set errno on error, since we are called by
- * yylex_init()
- */
- return 0;
-}
-
-/* yylex_destroy is for both reentrant and non-reentrant scanners. */
-int yylex_destroy (void)
-{
-
- /* Pop the buffer stack, destroying each element. */
- while(YY_CURRENT_BUFFER){
- yy_delete_buffer(YY_CURRENT_BUFFER );
- YY_CURRENT_BUFFER_LVALUE = NULL;
- yypop_buffer_state();
- }
-
- /* Destroy the stack itself. */
- yyfree((yy_buffer_stack) );
- (yy_buffer_stack) = NULL;
-
- /* Reset the globals. This is important in a non-reentrant scanner so the next time
- * yylex() is called, initialization will occur. */
- yy_init_globals( );
-
- return 0;
-}
-
-/*
- * Internal utility routines.
- */
-
-#ifndef yytext_ptr
-static void yy_flex_strncpy (char* s1, yyconst char * s2, int n )
-{
-
- int i;
- for ( i = 0; i < n; ++i )
- s1[i] = s2[i];
-}
-#endif
-
-#ifdef YY_NEED_STRLEN
-static int yy_flex_strlen (yyconst char * s )
-{
- int n;
- for ( n = 0; s[n]; ++n )
- ;
-
- return n;
-}
-#endif
-
-void *yyalloc (yy_size_t size )
-{
- return malloc(size);
-}
-
-void *yyrealloc (void * ptr, yy_size_t size )
-{
-
- /* The cast to (char *) in the following accommodates both
- * implementations that use char* generic pointers, and those
- * that use void* generic pointers. It works with the latter
- * because both ANSI C and C++ allow castless assignment from
- * any pointer type to void*, and deal with argument conversions
- * as though doing an assignment.
- */
- return realloc(ptr, size);
-}
-
-void yyfree (void * ptr )
-{
- free( (char *) ptr ); /* see yyrealloc() for (char *) cast */
-}
-
-#define YYTABLES_NAME "yytables"
-
-#line 1313 "scanner.l"
-
-
-
-static void
-error_literal (const char *type, const char *literal, int literal_error)
-{
- if (literal_error < 1) {
- char lit_out[CB_ERR_LITMAX + 1] = { 0 };
- /* snip literal for output, if too long or,
- unlikely error case, has a line break */
- literal_for_diagnostic (lit_out, literal);
-
-#if 0 /* national literal, check for different truncation and wcslen
- or not show it at all */
- if (strcmp (type, "national") == 0) {
- cb_error (_("invalid national literal"), lit_out);
- } else {
-#endif
- if (strcmp (type, "") == 0) {
- cb_error (_("invalid literal: '%s'"), lit_out);
- } else if (strcmp (type, "hex") == 0) {
- cb_error (_("invalid hexadecimal literal: '%s'"), lit_out);
- } else if (strcmp (type, "num") == 0) {
- cb_error (_("invalid numeric literal: '%s'"), lit_out);
- } else if (strcmp (type, "float") == 0) {
- cb_error (_("invalid floating-point literal: '%s'"), lit_out);
- } else if (literal_error < 0) {
- cb_warning (COBC_WARN_FILLER, _("invalid %s literal: '%s'"), type, lit_out);
- } else {
- cb_error (_("invalid %s literal: '%s'"), type, lit_out);
- }
-#if 0 /* national literal */
- }
-#endif
- }
- cb_note (COB_WARNOPT_NONE, 0, "%s", err_msg);
-}
-
-/* Scans a symbolic EBCDIC character given as a sequence of decimal digits
- starting with `c`, and returns the corresponding code as per the machine
- character set (ASCII or EBCDIC). */
-static cob_u8_t
-scan_ebcdic_char (int c)
-{
- char buff[10]; /* Arbitrary limit, mostly for error-reporting */
-#ifndef COB_EBCDIC_MACHINE
- static cob_u8_t ebcdic_to_ascii[256] ;
- static int ebcdic_to_ascii_initialized = 0 ;
-#endif
- unsigned int j = 0;
- do {
- buff[j++] = (char)c;
- } while ((c = input ()) != EOF && '0' <= c && c <= '9' && j < 10);
- unput (c);
- buff[j++] = 0;
- c = atoi (buff);
- if (c < 1 || c > 256) {
- cb_error (_("character code %s out of encoding range %s"),
- buff, "(1..256)");
- return '?';
- }
- c--; // in ordinal, i.e. 1..256 -> 0..255
-#ifdef COB_EBCDIC_MACHINE
- return (cob_u8_t) c;
-#else
- if (!ebcdic_to_ascii_initialized ) {
- if (cob_load_collation (cb_ebcdic_table, ebcdic_to_ascii, NULL) < 0) {
- cb_error (_("invalid parameter: %s"), "-febcdic-table");
- ebcdic_to_ascii_initialized = -1;
- } else {
- ebcdic_to_ascii_initialized = 1;
- }
- }
-
- if (ebcdic_to_ascii_initialized > 0) {
- return ebcdic_to_ascii[c];
- } else {
- return '?';
- }
-#endif
-}
-
-static void
-read_literal (const char mark, const enum cb_literal_type type)
-{
- size_t i;
- int c;
- int literal_error = 0;
- enum cb_sym_ebcdic_state ebcdic_flag = CB_SYM_EBCDIC_INACTIVE;
-
- i = 0;
- /* read until a not-escaped mark is found (see break)
- or (unlikely) we reach EOF */
- /* NO early exit possible as the literal has to be consumed */
- while ((c = input ()) != EOF) {
-#if EOF != 0
- if (unlikely (c == 0)) break; /* fixes unexpected error case */
-#endif
- if (!literal_error) {
- if (unlikely (i + 1 == plex_size)) {
- plex_size *= 2;
- if (unlikely (plex_size > (cb_lit_length + 1))) {
- plex_size = (size_t)cb_lit_length + 1;
- }
- plex_buff = cobc_realloc (plex_buff, plex_size);
- }
- plex_buff[i] = (cob_u8_t)c;
- }
-
- if (ebcdic_flag != CB_SYM_EBCDIC_INACTIVE) {
- /* While scanning symbolic EBCDIC character: */
- if (c == mark) {
- if (ebcdic_flag == CB_SYM_EBCDIC_AFTER_SEP) {
- cb_error (
- _("extraneous separator ',' at end "
- "of symbolic EBCDIC characters"));
- }
- ebcdic_flag = CB_SYM_EBCDIC_INACTIVE;
- } else if ('0' <= c && c <= '9') {
- plex_buff[i++] = scan_ebcdic_char (c);
- ebcdic_flag = CB_SYM_EBCDIC_ACTIVE;
- } else if (c == ' ') {
- /* spaces are ok everywhere */
- } else if (c == ',') {
- /* extra commas are not allowed */
- if (ebcdic_flag == CB_SYM_EBCDIC_AFTER_SEP)
- cb_error (
- _("extraneous character ',' in sequence "
- "of symbolic EBCDIC characters"));
- ebcdic_flag = CB_SYM_EBCDIC_AFTER_SEP;
- } else {
- /* other chars are invalid */
- cb_error (_("invalid character '%c' in sequence "
- "of symbolic EBCDIC characters"), c);
- ebcdic_flag = CB_SYM_EBCDIC_ACTIVE;
- }
- continue;
- }
-
- if (c == mark && (c = input ()) != (int)mark) {
- if (c == '-') {
- /* Free format continuation ("a"- 'b'- ) */
- /* Hack it as concatenation */
- unput ('&');
- } else if (type == CB_LITERAL_DEFAULT &&
- cb_gcos_ebcdic_literals &&
- '0' <= c && c <= '9') {
- /* GCOS 7: symbolic EBCDIC character in
- literals */
- unput (c);
- ebcdic_flag = CB_SYM_EBCDIC_ACTIVE;
- continue;
- } else {
- if (c == EOF || c == 0) break;
- unput (c);
- }
- break;
- }
- /* check literal size here as we have to adjust and check
- for (escaped) mark before checking the max length */
- if (unlikely (i++ == cb_lit_length)) {
- snprintf (err_msg, COB_MINI_MAX,
- _("literal length exceeds %u characters"),
- cb_lit_length);
- plex_buff[cb_lit_length] = 0; /* ensure valid C-string for error message */
- error_literal ("", plex_buff, literal_error);
- if (!literal_error) {
- literal_error = cb_lit_length;
- }
- }
- }
- if (c == EOF
-#if EOF != 0
- || c == 0 /* fixes unexpected error case */
-#endif
- ) {
- snprintf (err_msg, COB_MINI_MAX,
- _("missing terminating %c character"), mark);
- plex_buff[i] = 0; /* ensure valid C-string for error message */
- error_literal ("", plex_buff, literal_error);
- if (!literal_error) {
- literal_error = i;
- }
- }
-
- /* FIXME: Exact behavior should depend on level of support:
- * "OK" => standard behavior, e.g. normal items filled with spaces/
- zeros, DYNAMIC LENGTH items made empty
- * "warning" => current implementation, interpret '' as SPACE/ZERO
- * "ignore" => assume a space without warning; make sure zero length
- items work everywhere (should do as we support zero
- lengths via ODO items already)
- */
- if (!i) {
- cb_verify (cb_zero_length_lit, _("zero-length literal"));
- cb_warning (COBC_WARN_FILLER,
- ( type == CB_LITERAL_N || type == CB_LITERAL_NC ) ?
- _("national literal has zero length; a SPACE will be assumed") :
- _("alphanumeric literal has zero length; a SPACE will be assumed")
- );
- /* note: space gets UTF-16 converted down below */
- plex_buff[i++] = ' ';
- } else if (i > cb_lit_length) {
- i = cb_lit_length;
- }
-
- /* build literal with given size */
- plex_buff[i] = 0;
- if ( type != CB_LITERAL_N && type != CB_LITERAL_NC ) {
- if(i % 2 == 0){
- int j;
- for (j = 0; j < i; j += 2) {
- if ((0x81 <= plex_buff[j] && plex_buff[j] <= 0x9F) ||
- (0xE0 <= plex_buff[j] && plex_buff[j] <= 0xFC)) {
- if(!((0x40 <= plex_buff[j + 1] && plex_buff[j + 1] <= 0x7E) ||
- (0x80 <= plex_buff[j + 1] && plex_buff[j + 1] <= 0xFC))) {
- break;
- }
- } else {
- break;
- }
- }
- if(i != 0 && j == i){
- yylval = cb_build_national_literal (plex_buff, j);
- return;
- }
- }
- yylval = cb_build_alphanumeric_literal (plex_buff, i);
- if (type == CB_LITERAL_U) {
- CB_UNFINISHED (_("UTF-8 literal"));
- }
- } else {
- /* poor-man's conversion iso-8859 -> utf-16 */
- /* "!a0" = x'21613000' -> nx'00210061003000' */
-#if 0 /* Stopped UTF16 for Japanese N type */
- size_t new_size = i * COB_NATIONAL_SIZE;
- if (new_size + 1 > plex_size) {
- plex_size = new_size + 1;
- plex_buff = cobc_realloc (plex_buff, plex_size);
- }
- plex_buff[new_size] = 0;
- while (i) {
- i--;
- plex_buff[i * 2 + 1] = plex_buff [i];
- plex_buff[i * 2] = 0;
- }
- if (type != CB_LITERAL_NC) {
- if (cb_verify (cb_national_literals, _("national literal"))) {
- CB_UNFINISHED (_("national literal"));
- }
- } else {
- if (cb_verify (cb_nationalc_literals, _("national-character literal"))) {
- CB_UNFINISHED (_("national literal"));
- }
- }
-#endif
- yylval = cb_build_national_literal (plex_buff, i);
- }
-}
-
-static int
-scan_x (const char *text, const char *type)
-{
- char *p;
- char *e;
- char *dst;
- size_t curr_len;
- size_t result_len;
- char c;
- int literal_error = 0;
-
- /* Remark:
- The standard allows for 8,191 (normal/national/boolean) character positions */
-
- /* curr_len includes the terminating quote
- and has to be adjusted according to type */
-
- curr_len = strlen (text);
- curr_len--;
- if (curr_len == 0) {
- /* CHECKME: should this always be active or only with x"" ? */
- (void)cb_verify (cb_zero_length_lit, _("zero-length literal"));
- cb_warning (COBC_WARN_FILLER,
- _("hexadecimal literal has zero length; X'00' will be assumed"));
- memset (plex_buff, 0, 5);
- if (type[0] == 'B') {
- yylval = cb_build_numeric_literal (0, "0", 0);
- (void)cb_verify (cb_hexadecimal_boolean, _("hexadecimal-boolean literal"));
- } else if (type[0] != 'N') {
- yylval = cb_build_alphanumeric_literal (plex_buff, 1);
- } else /* type N */ {
- (void)cb_verify (cb_national_hex_literals, _("hexadecimal-national literal"));
- yylval = cb_build_national_literal (plex_buff, COB_NATIONAL_SIZE);
- }
- RETURN_TOK (LITERAL);
- }
-
- /* ensure buffers don't get too big */
- if (curr_len > (size_t)cb_lit_length + 1) {
- curr_len = cb_lit_length + 1;
- }
- if (unlikely (curr_len + 1 > plex_size)) {
- plex_size = curr_len + 1;
- cobc_free (plex_buff);
- plex_buff = cobc_malloc (plex_size);
- }
- memcpy (plex_buff, text, curr_len);
- if (type[0] == 'X' || type [0] == 'U') {
- /* characters, two half-bytes (hex) = 1 byte, add 1 halfbyte to round up
- to full bytes in case of odd digits */
- result_len = (curr_len + 1) / 2;
- } else if (type[0] == 'B') {
- result_len = curr_len * 4; /* boolean characters B -> 1110 */
- if (!cb_verify (cb_hexadecimal_boolean, _("hexadecimal-boolean literal"))) {
- yylval = cb_build_numeric_literal (0, "0", 0);
- RETURN_TOK (LITERAL);
- }
-
- /* GnuCOBOL currently only support 64 bit booleans */
- if (unlikely (result_len > 64)) {
- snprintf (err_msg, COB_MINI_MAX,
- _("literal length %lu exceeds %u characters"),
- (unsigned long) result_len, 64);
- error_literal (type, plex_buff, literal_error++);
- /* we'll get an overflow below, but that's no problem,
- an alternative would be to increment *text to only parse 64 / 4
- characters but that leads to not verified data, which is
- more important as the compilation will error-exit in any case */
- }
- } else /* type N */ {
- result_len = curr_len / (2 * COB_NATIONAL_SIZE);
- if (!cb_verify (cb_national_hex_literals, _("hexadecimal-national literal"))) {
- memset (plex_buff, 0, 5);
- yylval = cb_build_national_literal (plex_buff, COB_NATIONAL_SIZE);
- RETURN_TOK (LITERAL);
- }
- result_len = curr_len / (2 * COB_NATIONAL_SIZE); /* national characters */
- }
- if (unlikely (result_len > cb_lit_length)) {
- snprintf (err_msg, COB_MINI_MAX,
- _("literal length %lu exceeds %u characters"),
- (unsigned long) result_len, cb_lit_length);
- error_literal (type, plex_buff, literal_error++);
- }
-
- p = (char *)text;
- e = (char *)p + curr_len;
- dst = plex_buff;
-
- if (unlikely(type[0] == 'B')) {
- /* hexadecimal-boolean */
- cob_u64_t val = 0;
- for (; *p != *e; p++) {
- c = *p;
- if ('0' <= c && c <= '9') {
- c = c - '0';
- } else if ('A' <= c && c <= 'F') {
- c = c - 'A' + 10;
- } else if ('a' <= c && c <= 'f') {
- c = c - 'a' + 10;
- } else {
- snprintf (err_msg, COB_MINI_MAX,
- _("literal contains invalid character '%c'"), c);
- if (likely (literal_error == 0)) {
- memcpy (plex_buff, text, curr_len + 1);
- plex_buff[curr_len] = 0;
- }
- error_literal (type, plex_buff, literal_error++);
- /* Note: by not breaking immediately, we detect any following
- invalid chars */
- c = 0;
- }
- val = (val << 4) + c;
- }
- sprintf ((char *)plex_buff, CB_FMT_LLU, val);
- yylval = cb_build_numeric_literal (0, (const void *)plex_buff, 0);
-
- } else {
-
- /* hexadecimal */
- int high = 1;
- for (; *p != *e; p++) {
- c = (int) *p;
- if ('0' <= c && c <= '9') {
- c = c - '0';
- } else if ('A' <= c && c <= 'F') {
- c = c - 'A' + 10;
- } else if ('a' <= c && c <= 'f') {
- c = c - 'a' + 10;
- } else {
- snprintf (err_msg, COB_MINI_MAX,
- _("literal contains invalid character '%c'"), c);
- if (likely (literal_error == 0)) {
- memcpy (plex_buff, text, curr_len + 1);
- plex_buff[curr_len] = 0;
- }
- error_literal (type, plex_buff, literal_error++);
- /* Note: by not breaking immediately, we detect any following
- invalid chars
- */
- c = 0;
- }
- if (high) {
- *dst = (cob_u8_t)(c << 4);
- } else {
- *dst++ += (cob_u8_t)c;
- }
- high = 1 - high;
- }
-
- if (!high) {
- /* This is non-standard behaviour */
- *dst = (*dst >> 4);
- dst++;
- snprintf (err_msg, COB_MINI_MAX,
- _("literal does not have an even number of digits"));
- if (likely (literal_error == 0)) {
- memcpy (plex_buff, text, curr_len + 1);
- plex_buff[curr_len] = 0;
- }
- if (cb_relaxed_syntax_checks && result_len == 1) {
- error_literal (type, plex_buff, literal_error++ == 0 ? -1 : 1);
- } else {
- error_literal (type, plex_buff, literal_error++);
- }
- }
- /* TODO: for type U needs additional checks */
- if (type[0] != 'N') {
- yylval = cb_build_alphanumeric_literal (plex_buff, (size_t)(dst - plex_buff));
- } else {
- yylval = cb_build_national_literal (plex_buff, (size_t)(dst - plex_buff));
- }
- }
-
- RETURN_TOK (LITERAL);
-}
-
-static int
-scan_z (const char *text, const char *type)
-{
- /* curr_len includes the terminating quote */
- size_t curr_len = strlen (text);
-
- if (curr_len == 1) {
- curr_len--;
- snprintf (err_msg, COB_MINI_MAX,
- _("%s literals must contain at least one character"),
- type);
- error_literal (type, "", 0);
- yylval = cb_build_alphanumeric_literal ("", 1);
- RETURN_TOK (LITERAL);
- }
- if ((unsigned long)(curr_len - 1) > cb_lit_length) {
- curr_len--;
- snprintf (err_msg, COB_MINI_MAX,
- _("literal length %lu exceeds %u characters"),
- (unsigned long) curr_len, cb_lit_length);
- error_literal (type, text, 0);
- curr_len = cb_lit_length + 1; /* ensure buffers don't get too big */
- }
- if (curr_len > plex_size) {
- plex_size = curr_len;
- cobc_free (plex_buff);
- plex_buff = cobc_malloc (plex_size);
- }
- memcpy (plex_buff, text, curr_len);
- plex_buff[curr_len - 1] = 0;
-
- /* Count is correct here as the trailing quote is now a null */
- yylval = cb_build_alphanumeric_literal (plex_buff, curr_len);
- if (type[0] == 'L') {
- CB_LITERAL(yylval)->llit = 1;
- }
- RETURN_TOK (LITERAL);
-}
-
-static int
-scan_h (const char *text, const char *type)
-{
- size_t curr_len;
- char *p;
- cob_u64_t val = 0;
- int c;
- int literal_error = 0;
-
- if (type[1] == '#'
- && !cb_verify (cb_acu_literals, _("ACUCOBOL numeric literal"))) {
- /* note: early exit with valid literal */
- yylval = cb_build_numeric_literal (0, "0", 0);
- RETURN_TOK (LITERAL);
- }
-
- /* curr_len can include the terminating quote */
- curr_len = strlen (text);
- memcpy (plex_buff, text, curr_len + 1);
- if (type[1] != '#') {
- curr_len--;
- if (curr_len == 0) {
- snprintf (err_msg, COB_MINI_MAX,
- _("%s literals must contain at least one character"),
- "H");
- error_literal ("H", "", 0);
- yylval = cb_build_numeric_literal (0, "0", 0);
- RETURN_TOK (LITERAL);
- }
- plex_buff[curr_len] = 0;
- }
- if (unlikely (curr_len > 16)) {
- snprintf (err_msg, COB_MINI_MAX,
- _("literal length %lu exceeds %u characters"),
- (unsigned long) curr_len, 16);
- error_literal ("hex", plex_buff, literal_error++);
- }
-
- for (p = plex_buff; *p != 0; p++) {
- c = (int) *p;
- if ('0' <= c && c <= '9') {
- c = c - '0';
- } else if ('A' <= c && c <= 'F') {
- c = c - 'A' + 10;
- } else if ('a' <= c && c <= 'f') {
- c = c - 'a' + 10;
- } else {
- snprintf (err_msg, COB_MINI_MAX,
- _("literal contains invalid character '%c'"), c);
- error_literal (type, plex_buff, literal_error++);
- /* By not breaking immediately, we detect any following
- invalid chars
- */
- c = 0;
- }
-
- val = (val << 4) + c;
- }
-
- if (type[1] == '#') {
- /* limit for ACUCOBOL literals: UINT_MAX */
- if (val > UINT_MAX) {
- if (curr_len <= 16) {
- snprintf (err_msg, COB_MINI_MAX,
- _("literal exceeds limit %u"), UINT_MAX);
- error_literal (type, plex_buff, literal_error++);
- }
- val = UINT_MAX;
- }
- }
-
- /* Duplication? */
- sprintf ((char *)plex_buff, CB_FMT_LLU, val);
- yylval = cb_build_numeric_literal (0, (const void *)plex_buff, 0);
-
- RETURN_TOK (LITERAL);
-}
-
-static int
-scan_b (const char *text, const char *type)
-{
- /* FIXME: COBOL 2014 allows up to 8,192 boolean characters
- COBOL 2002 allows up to 160 boolean characters
- --> both identical to "literal-length" maximum
- GnuCOBOL currently only supports 64 boolean characters,
- more need a different storage
- */
-
- size_t curr_len;
- char *p;
- cob_u64_t val = 0;
- int c;
- int literal_error = 0;
-
- /* curr_len can include the terminating quote */
- curr_len = strlen (text);
-
- if (type[1] == 0) {
- if (!cb_verify (cb_numeric_boolean, _("numeric boolean literal"))) {
- /* early exit possible as complete literal is consumed */
- curr_len = 0;
- }
- if (curr_len == 1) {
- cb_verify (cb_zero_length_lit, _("zero-length literal"));
- cb_warning (COBC_WARN_FILLER,
- _("boolean literal has zero length; B'0' will be assumed"));
- }
- if (curr_len <= 1) {
- /* FIXME: we should really build a boolean literal... */
- yylval = cb_build_numeric_literal (0, "0", 0);
- RETURN_TOK (LITERAL);
- }
- } else {
- if (!cb_verify (cb_acu_literals, _("ACUCOBOL numeric literal"))) {
- yylval = cb_build_numeric_literal (0, "0", 0);
- RETURN_TOK (LITERAL);
- }
- };
- if (unlikely (curr_len >= plex_size)) {
- curr_len = plex_size - 1;
- }
- memcpy (plex_buff, text, curr_len + 1);
- if (type[1] == 0) {
- curr_len--;
- }
- plex_buff[curr_len] = 0;
- if (unlikely (curr_len > 64)) {
- snprintf (err_msg, COB_MINI_MAX,
- _("literal length %lu exceeds %u characters"),
- (unsigned long) curr_len, 64);
- error_literal (type, plex_buff, literal_error++);
- /* we'll get an overflow below, but that's no problem,
- an alternative would be to increment *text to only parse 64 / 4
- characters but that leads to not verified data, which is
- more important as the compilation will error-exit in any case */
- }
-
- for (p = plex_buff; *p != 0; p++) {
- c = (int) *p;
- if (c == '0') {
- c = 0;
- } else if (c == '1') {
- c = 1;
- } else {
- snprintf (err_msg, COB_MINI_MAX,
- _("literal contains invalid character '%c'"), c);
- error_literal (type, plex_buff, literal_error++);
- c = 0;
- }
-
- val = (val << 1) + c;
- }
- if (type[1] == '#') {
- /* limit for ACUCOBOL literals: UINT_MAX */
- if (val > UINT_MAX) {
- if (curr_len <= 64) {
- snprintf (err_msg, COB_MINI_MAX,
- _("literal exceeds limit %u"), UINT_MAX);
- error_literal (type, plex_buff, literal_error);
- }
- val = UINT_MAX;
- }
- }
-
- sprintf ((char *)plex_buff, CB_FMT_LLU, val);
- /* FIXME: we should likely build a boolean literal ... */
- yylval = cb_build_numeric_literal (0, (const void *)plex_buff, 0);
-
- RETURN_TOK (LITERAL);
-}
-
-static int
-scan_o (const char *text, const char *type)
-{
- size_t curr_len;
- cob_u64_t val = 0;
- char *p;
- char c;
- int literal_error = 0;
-
- if (type[0] == '%') {
- if (!cb_verify (cb_hp_octal_literals, _("HP COBOL octal literal"))) {
- /* early exit possible as complete literal is consumed */
- yylval = cb_build_numeric_literal (0, "0", 0);
- RETURN_TOK (LITERAL);
- }
- } else {
- if (!cb_verify (cb_acu_literals, _("ACUCOBOL numeric literal"))) {
- /* early exit possible as complete literal is consumed */
- yylval = cb_build_numeric_literal (0, "0", 0);
- RETURN_TOK (LITERAL);
- }
- }
-
- curr_len = strlen (text);
- memcpy (plex_buff, text, curr_len + 1);
- if (unlikely (curr_len > 22)) {
- snprintf (err_msg, COB_MINI_MAX,
- _("literal length %lu exceeds %u characters"),
- (unsigned long) curr_len, 22);
- error_literal (type, plex_buff, literal_error++);
- }
-
- for (p = plex_buff; *p != 0; p++) {
- c = *p;
- if ('0' <= c && c <= '7') {
- c = c - '0';
- } else {
- snprintf (err_msg, COB_MINI_MAX,
- _("literal contains invalid character '%c'"), c);
- error_literal (type, plex_buff, literal_error++);
- c = 0;
- }
-
- val = (val << 3) + c;
- }
- /* limit for ACUCOBOL literals: UINT_MAX */
- if (val > UINT_MAX) {
- if (curr_len <= 22) {
- snprintf (err_msg, COB_MINI_MAX,
- _("literal exceeds limit %u"), UINT_MAX);
- error_literal (type, plex_buff, literal_error++);
- }
- val = UINT_MAX;
- }
-
- if (type[0] == '%') {
- /* actually the rules specify that the literal type is context-sensitive
- and for alphanumeric right-filled with NULL, therefore we'd need
- a special type of literal here */
- CB_UNFINISHED ("HP COBOL octal literals");
-#if 0 /* activate to have all %literals to be alphanumeric */
- char xbuff[19];
- sprintf ((char *)&xbuff, "'%X'", (unsigned int)val);
- RETURN_TOK (scan_x ((const char *)&xbuff + 1, "X"));
-#endif
- }
-
- sprintf ((char *)plex_buff, CB_FMT_LLU, val);
- yylval = cb_build_numeric_literal (0, (const void *)plex_buff, 0);
-
- RETURN_TOK (LITERAL);
-}
-
-static int
-get_sign (const char sign)
-{
- if (sign == '+') {
- return 1;
- } else if (sign == '-') {
- return -1;
- } else {
- return 0;
- }
-}
-
-#define INCREMENT_IF_SIGNED(text, sign) \
- do { \
- if (sign) { \
- (text)++; \
- } \
- } ONCE_COB
-
-static int
-scan_numeric (const char *text)
-{
- char *p = (char *)text;
- char *s;
- int sign;
- int scale;
- size_t curr_len;
-
- /* Get sign */
- sign = get_sign (*p);
- INCREMENT_IF_SIGNED (p, sign);
-
- /* Get decimal point */
- s = strchr (p, current_program->decimal_point);
- if (s) {
- scale = (int)strlen (s) - 1;
- /* Remove decimal point */
- /* Moves trailing null */
- memmove (s, s + 1, (size_t)scale + 1);
- } else {
- scale = 0;
- }
-
- /* Note that leading zeroes are not removed from the literal. */
-
- curr_len = strlen (p);
-
- if (curr_len > COB_MAX_DIGITS) {
- /* Absolute limit */
- snprintf (err_msg, COB_MINI_MAX,
- _("literal length %lu exceeds maximum of %u digits"),
- (unsigned long) curr_len, COB_MAX_DIGITS);
- error_literal ("num", text, 0);
- p[COB_MAX_DIGITS] = 0;
- } else if (curr_len > cb_numlit_length) {
- snprintf (err_msg, COB_MINI_MAX,
- _("literal length %lu exceeds %u digits"),
- (unsigned long) curr_len, cb_numlit_length);
- error_literal ("num", text, 0);
- }
- yylval = cb_build_numeric_literal (sign, p, scale);
- RETURN_TOK (LITERAL);
-}
-
-static int
-all_zeroes (const char *str)
-{
- int i;
-
- for (i = 0; str[i] != '\0'; ++i) {
- if (str[i] != '0') {
- return 0;
- }
- }
-
- return 1;
-}
-
-static int
-significand_is_zero (const char *int_part, const char *dec_part)
-{
- return all_zeroes (int_part)
- && all_zeroes (dec_part);
-}
-
-/* Note: Exponent *digits* in literals according to COBOL 202x: 36 */
-/* Note: Exponent *digits* in literals according to COBOL 202x: 36 */
-#if COB_FLOAT_DIGITS_MAX != 36
-#error COB_FLOAT_DIGITS_MAX adjustment needed, common.h must match scanner.l
-#endif
-#define COB_FLOAT_DIGITS_CHCK_MAX 38 /* incl. sign and comma */
-#define COB_FLOAT_DIGITS_STR_WIDTH 39
-#define COB_FLOAT_DIGITS_STR_MAX 40
-
-#define COB_FLOAT_DIGITS_WIDTH "%" CB_XSTRINGIFY(COB_FLOAT_DIGITS_STR_WIDTH)
-
-static int
-scan_floating_numeric (const char *text)
-{
- size_t sig_int_len;
- size_t sig_dec_len;
- int sig_sign;
- int exp_sign;
- int scale;
- int exponent;
- int n;
- char significand_str[COB_FLOAT_DIGITS_STR_MAX] = { '\0' };
- char *significand_pos;
- char significand_dec[COB_FLOAT_DIGITS_STR_MAX] = { '\0' };
- char significand_int[COB_FLOAT_DIGITS_STR_MAX] = { '\0' };
- char exponent_str[8] = { '\0' };
- char *exponent_pos;
-
- char result[128] = { '\0' };
- unsigned int literal_error = 0;
-
- /* Separate into significand and exponent */
- n = sscanf (text, COB_FLOAT_DIGITS_WIDTH "[0-9.,+-]%*1[Ee]%7[0-9.,+-]",
- significand_str, exponent_str);
- /* We check the return for silencing warnings, but
- this should actually never happen as the flex rule ensures this */
- /* LCOV_EXCL_START */
- if (n == 0) {
-#if 1
- /* This should never happen (and therefore doesn't get a translation) */
- cb_error ("flex rule for scan_floating_numeric is wrong");
- COBC_ABORT();
-#else
- yylval = cb_error_node;
- RETURN_TOK (LITERAL);
-#endif
- }
- /* LCOV_EXCL_STOP */
-
- /* Get signs and adjust string positions accordingly */
- significand_pos = &significand_str[0];
- sig_sign = get_sign (*significand_pos);
- INCREMENT_IF_SIGNED (significand_pos, sig_sign);
-
- exponent_pos = &exponent_str[0];
- exp_sign = get_sign (*exponent_pos);
- INCREMENT_IF_SIGNED (exponent_pos, exp_sign);
-
- /* Separate significand into integer and decimal */
- n = sscanf (significand_pos,
- COB_FLOAT_DIGITS_WIDTH "[0-9]%*1[.,]" COB_FLOAT_DIGITS_WIDTH "[0-9]",
- significand_int, significand_dec);
- if (n == 0) { /* no integer part, copy after decimal-point */
- significand_int[0] = 0;
- strcpy (significand_dec, significand_pos + 1);
-#if 0 /* note: we ignore compiler warnings for possible "missing NULL-terminator
- here as we know that sscanf handles the correct with */
- significand_dec[COB_FLOAT_DIGITS_STR_MAX - 1] = 0;
- } else {
- /* silencing some warnings */
- significand_int[COB_FLOAT_DIGITS_STR_MAX - 1] = 0;
- significand_dec[COB_FLOAT_DIGITS_STR_MAX - 1] = 0;
-#endif
- }
-
- /* Validation and exponent handling */
- sig_int_len = strlen (significand_int);
- sig_dec_len = strlen (significand_dec);
- exponent = 0;
-
- if (sig_int_len + sig_dec_len > COB_FLOAT_DIGITS_MAX) {
- /* note: same message in tree.c for floating-point numeric-edited item */
- snprintf (err_msg, COB_MINI_MAX,
- _("significand has more than %d digits"), COB_FLOAT_DIGITS_MAX);
- error_literal ("float", text, literal_error++);
- } else {
- if (strchr (exponent_pos, current_program->decimal_point)) {
- snprintf (err_msg, COB_MINI_MAX,
- _("exponent has decimal point"));
- error_literal ("float", text, literal_error++);
- } else {
- if (strlen (exponent_pos) > 4) {
- /* note: same message in tree.c for floating-point numeric-edited item */
- snprintf (err_msg, COB_MINI_MAX,
- _("exponent has more than 4 digits"));
- error_literal ("float", text, literal_error++);
- } else {
- n = sscanf (exponent_pos, "%d", &exponent);
- /* We check the return for silencing warnings, but
- this should actually never happen as the flex rule ensures this */
- /* LCOV_EXCL_START */
- if (n == 0) {
-#if 1
- /* This should never happen (and therefore doesn't get a translation) */
- cb_error ("flex rule for scan_floating_numeric is wrong");
- COBC_ABORT();
-#else
- yylval = cb_error_node;
- RETURN_TOK (LITERAL);
-#endif
- }
- /* LCOV_EXCL_STOP */
- }
-
- if (exp_sign == -1) {
- exponent = -exponent;
- }
-
- /* "The maximum permitted value and minimum permitted value of
- the exponent is implementor-defined" */
- /* Exponent range -383 thru +384 for FLOAT-DECIMAL-16 */
- /* Exponent range -6143 thru +6144 for FLOAT-DECIMAL-34 */
- if (!(-6143 <= exponent && exponent <= 6144)) {
- snprintf (err_msg, COB_MINI_MAX,
- _("exponent not between -6143 and 6144"));
- error_literal ("float", text, literal_error++);
- }
- }
- }
-
- if (significand_is_zero (significand_int, significand_dec)) {
- if (sig_sign == -1) {
- snprintf (err_msg, COB_MINI_MAX,
- _("significand of 0 must be positive"));
- error_literal ("float", text, literal_error++);
- }
- if (exponent != 0) {
- snprintf (err_msg, COB_MINI_MAX,
- _("exponent of 0 must be 0"));
- error_literal ("float", text, literal_error++);
- }
- if (exp_sign == -1) {
- snprintf (err_msg, COB_MINI_MAX,
- _("exponent of 0 must be positive"));
- error_literal ("float", text, literal_error++);
- }
- }
-
- if (literal_error) {
- yylval = cb_build_numeric_literal (0, "0", 0);
- RETURN_TOK (LITERAL);
- }
-
- /* Literal data */
- strcpy (result, significand_int);
- strcat (result, significand_dec);
-
- /* Determine scale */
- /* Base scale is decimal part of the significant */
- scale = (int)sig_dec_len;
- if (exponent < 0) {
- /* Decimals; power down by scale difference */
- scale = - (exponent - scale);
- } else if (exponent > 0) {
- /* No decimals; power up by scale difference */
- if (exponent >= scale) {
- scale = - (exponent - scale);
- } else {
- scale -= exponent;
- }
- }
-
- yylval = cb_build_numeric_literal (sig_sign, result,
- scale);
- RETURN_TOK (LITERAL);
-}
-
-static void
-scan_picture (const char *text)
-{
- unsigned char *p;
-
- /* Scan a PICTURE clause */
- /* Normalize the input */
- for (p = (unsigned char *)text; *p; p++) {
- /* unput trailing '.' or ',' */
- if (p[1] == 0 && (*p == '.' || *p == ',')) {
- unput (*p);
- *p = 0;
- break;
- }
- *p = cb_toupper (*p);
- }
-
- yylval = CB_TREE (cb_build_picture (text));
-}
-
-static void
-count_lines (const char *text)
-{
- register const char *p;
-
- /* Count newlines in text */
- for (p = text; *p; p++) {
- if (*p == '\n') {
- cb_source_line++;
- }
- }
-}
-
-static void
-cb_add_const_var (const char *name, cb_tree value)
-{
- cb_tree x;
- struct cb_level_78 *p78;
- struct cb_field *f;
-
- /* Add an inline constant */
- x = cb_build_constant (cb_build_reference (name), value);
- f = CB_FIELD (x);
- f->flag_item_78 = 1;
- f->flag_is_global = 1;
- f->flag_internal_constant = 1;
- f->level = 1;
- (void)cb_validate_78_item (f, 1);
-
- /* Add constant item */
- p78 = cobc_malloc (sizeof(struct cb_level_78));
- p78->fld_78 = f;
- p78->prog = NULL;
- p78->name_len = (cob_u32_t)strlen (f->name);
- /* RXWRXW - Check this */
- p78->chk_const = 0;
- if (!const_78_ptr) {
- p78->last = p78;
- } else {
- p78->last = const_78_ptr->last;
- }
- p78->next = const_78_ptr;
- p78->glob_next = const_78_ptr;
- const_78_ptr = p78;
- if (glob_lev_78_ptr) {
- glob_lev_78_ptr->last->glob_next = const_78_ptr;
- } else if (lev_78_ptr) {
- lev_78_ptr->last->glob_next = const_78_ptr;
- } else {
- top_78_ptr = const_78_ptr;
- }
-}
-
-static void
-scan_define_options (const char *text)
-{
- char *p;
- char *s;
- char *var;
- const struct cb_level_78 *p78;
- char *q;
- unsigned char *t;
- cb_tree x;
- size_t size;
- int scale;
- int sign, override;
-
- /* Scan a source inline define */
- p = cobc_strdup (text);
-
- q = &p [strlen (p)-1];
- while(q != p
- && (isspace ((unsigned char)(*q)) || *q == '\n' || *q == '\r'))
- q--;
- q = q - 7;
- if (memcmp (q, "OVERRIDE", 8) == 0) {
- override = 1;
- while (isspace((unsigned char)(q[-1]))) q--;
- strcpy (q,"\n");
- } else {
- override = 0;
- }
-
- /* Ignore first part */
- s = strtok (p, " ");
-
- /* Variable name */
- s = strtok (NULL, " \n");
- if (!s) {
- cobc_free (p);
- return;
- }
-
- /* Check for already defined constant */
- if (!override) {
- for (p78 = top_78_ptr; p78; p78 = p78->glob_next) {
- if (strcasecmp (s, p78->fld_78->name) == 0) {
- cobc_free (p);
- return;
- }
- }
- }
-
- var = cobc_strdup (s);
-
- /* Value */
- s = strtok (NULL, "\n");
- if (!s) {
- cb_error (_("invalid CONSTANT: %s"), var);
- goto freevar;
- }
-
- if (*s == '"' || *s == '\'') {
- /* Alphanumeric literal */
- sign = *s;
- size = strlen (s);
- q = s + size - 1;
- if (q == s || *q != sign) {
- cb_error (_("invalid alphanumeric CONSTANT: %s"), s);
- goto freevar;
- }
- if (size < 3) {
- cb_error (_("empty alphanumeric CONSTANT: %s"), s);
- goto freevar;
- }
- *q = 0;
- size -= 2;
- x = cb_build_alphanumeric_literal (s + 1, size);
- } else {
- /* Get sign */
- sign = get_sign (*s);
- INCREMENT_IF_SIGNED (s, sign);
-
- /* Get decimal point */
- scale = 0;
- q = strchr (s, '.');
- if (q) {
- scale = (int)strlen (q) - 1;
- if (scale < 1) {
- cb_error (_("invalid numeric CONSTANT: %s"), s);
- goto freevar;
- }
- /* Remove decimal point */
- memmove (q, q + 1, (size_t)scale + 1);
- }
- for (t = (unsigned char *)s; *t; ++t) {
- if (*t < '0' || *t > '9') {
- cb_error (_("invalid numeric CONSTANT: %s"), s);
- goto freevar;
- }
- }
- if (strlen (s) > COB_MAX_DIGITS) {
- cb_error (_("invalid numeric CONSTANT: %s"), s);
- goto freevar;
- }
-
- x = cb_build_numeric_literal (sign, s, scale);
- }
- /* Add to constant list */
- cb_add_const_var (var, x);
-
-freevar:
- cobc_free (p);
- cobc_free (var);
-}
-
-#undef INCREMENT_IF_SIGNED
-
-/*
- For yytext of the form '#directive "a-word"' or '#directive
- (a-word)', copy a-word into word, converting it to upper-case.
-*/
-static void
-copy_word_in_quotes (char ** const word)
-{
- char *text = cobc_strdup (yytext);
- char *word_str;
- size_t word_len;
-
- /* Skip directive */
- word_str = strtok (text, " ");
-
- /* Get word and remove quotes */
- word_str = strtok (NULL, "\n");
- word_len = strlen (word_str) - 2;
- *word = cobc_malloc (word_len + 1);
- cb_memcpy_upper (*word, word_str + 1, word_len);
-
- cobc_free (text);
-}
-
-/*
- For yytext of the form '#directive "first-word" "second-word"' or '#directive
- (first-word) (second-word)', allocate copies of first-word for word1 and
- second-word for word2, converting them to upper-case.
-*/
-static void
-copy_two_words_in_quotes (char ** const word1, char ** const word2)
-{
- char *text = cobc_strdup (yytext);
- char *word1_str;
- char *word2_str;
- size_t word_len;
-
- /* Skip directive. */
- word1_str = strtok (text, " ");
-
- /* Get words and remove surrounding quotes. */
-
- word1_str = strtok (NULL, " ");
- word_len = strlen (word1_str) - 2;
- *word1 = cobc_malloc (word_len + 1);
- cb_memcpy_upper (*word1, word1_str + 1, word_len);
-
- word2_str = strtok (NULL, "\n");
- word_len = strlen (word2_str) - 2;
- *word2 = cobc_malloc (word_len + 1);
- cb_memcpy_upper (*word2, word2_str + 1, word_len);
-
- cobc_free (text);
-}
-
-static void
-add_synonym (const int std, const int synonym_replaces_original)
-{
- char *word;
- char *synonym;
-
- copy_two_words_in_quotes (&word, &synonym);
-
- if (!is_default_reserved_word (word)) {
- cb_error (_("'%s' is not a default reserved word, so cannot be aliased"),
- word);
- } else if (is_reserved_word (synonym)) {
- cb_error (_("'%s' is already reserved"), synonym);
- if (!std) {
- cb_note (COB_WARNOPT_NONE, 0, _("you may want MAKESYN instead"));
- }
- } else {
- if (synonym_replaces_original) {
- remove_reserved_word_now (word);
- }
- add_reserved_word_now (synonym, word);
- }
-
- cobc_free (word);
- cobc_free (synonym);
-}
-
-static void
-make_synonym (void)
-{
- char* new_meaning;
- char* word_to_change;
-
- copy_two_words_in_quotes (&new_meaning, &word_to_change);
-
- if (!is_default_reserved_word (new_meaning)) {
- cb_error (_("'%s' is not a default reserved word, so cannot be aliased"),
- new_meaning);
- } else if (!is_reserved_word (word_to_change)) {
- cb_error (_("'%s' is not a reserved word"), word_to_change);
- cb_note (COB_WARNOPT_NONE, 0, _("you may want ADDSYN or OVERRIDE instead"));
- } else {
- remove_reserved_word_now (word_to_change);
- add_reserved_word_now (word_to_change, new_meaning);
- }
-
- cobc_free (new_meaning);
- cobc_free (word_to_change);
-}
-
-static void
-clear_constants (void)
-{
- struct cb_level_78 *p78;
-
- while (lev_78_ptr) {
- p78 = lev_78_ptr;
- lev_78_ptr = lev_78_ptr->next;
- cobc_free (p78);
- }
- while (glob_lev_78_ptr) {
- p78 = glob_lev_78_ptr;
- glob_lev_78_ptr = glob_lev_78_ptr->next;
- cobc_free (p78);
- }
- while (const_78_ptr) {
- p78 = const_78_ptr;
- const_78_ptr = const_78_ptr->next;
- cobc_free (p78);
- }
- top_78_ptr = NULL;
-}
-
-/* Global functions */
-
-void
-ylex_clear_all (void)
-{
- /* Clear buffers after parsing all source elements */
- if (pic_buff2) {
- cobc_free (pic_buff2);
- pic_buff2 = NULL;
- }
- if (pic_buff1) {
- cobc_free (pic_buff1);
- pic_buff1 = NULL;
- }
- if (plex_buff) {
- cobc_free (plex_buff);
- plex_buff = NULL;
- }
- plex_size = 0;
- pic1_size = 0;
- pic2_size = 0;
-
-#if 1
- clear_constants ();
-#else
- cb_reset_78 ();
- cb_reset_global_78 ();
-#endif
-}
-
-void
-ylex_call_destroy (void)
-{
- /* Release flex buffers */
- (void)yylex_destroy ();
-#if 0
- const_78_ptr = NULL;
-#endif
-}
-
-void
-cb_unput_dot (void)
-{
- unput ('.');
-}
-
-/* Remove constant (78 level) items for current program */
-void
-cb_reset_78 (void)
-{
- struct cb_level_78 *p78;
-
- while (lev_78_ptr) {
- p78 = lev_78_ptr;
- lev_78_ptr = lev_78_ptr->next;
- cobc_free (p78);
- }
-
- if (glob_lev_78_ptr) {
- top_78_ptr = p78 = glob_lev_78_ptr;
- while (p78) {
- p78->not_const = 0;
- p78 = p78->next;
- }
- } else {
- top_78_ptr = const_78_ptr;
- }
-}
-
-/* Remove constant (78 level) items for top program */
-void
-cb_reset_global_78 (void)
-{
- struct cb_level_78* p78;
-
- while (glob_lev_78_ptr) {
- p78 = glob_lev_78_ptr;
- glob_lev_78_ptr = glob_lev_78_ptr->next;
- cobc_free (p78);
- }
- top_78_ptr = const_78_ptr;
-}
-
-/* Add a constant (78 level) item */
-void
-cb_add_78 (struct cb_field *f)
-{
- struct cb_level_78 *p78;
-
- p78 = cobc_malloc (sizeof(struct cb_level_78));
- p78->fld_78 = f;
- p78->prog = current_program;
- p78->name_len = (cob_u32_t)strlen (f->name);
- if (f->flag_is_global) {
- if (!glob_lev_78_ptr) {
- p78->last = p78;
- } else {
- p78->last = glob_lev_78_ptr->last;
- }
- p78->last->glob_next = const_78_ptr;
- p78->next = glob_lev_78_ptr;
- p78->glob_next = glob_lev_78_ptr;
- p78->chk_const = 1;
- glob_lev_78_ptr = p78;
- if (lev_78_ptr) {
- lev_78_ptr->last->glob_next = glob_lev_78_ptr;
- } else {
- top_78_ptr = glob_lev_78_ptr;
- }
- } else {
- if (!lev_78_ptr) {
- p78->last = p78;
- } else {
- p78->last = lev_78_ptr->last;
- }
- if (glob_lev_78_ptr) {
- p78->last->glob_next = glob_lev_78_ptr;
- } else {
- p78->last->glob_next = const_78_ptr;
- }
- p78->next = lev_78_ptr;
- p78->glob_next = lev_78_ptr;
- lev_78_ptr = p78;
- top_78_ptr = lev_78_ptr;
- }
-}
-
-struct cb_field *
-check_level_78 (const char *name)
-{
- const struct cb_level_78 *p78;
-
- /* Check against a current constant (78 level) */
- for (p78 = lev_78_ptr; p78; p78 = p78->next) {
- if (strcasecmp (name, p78->fld_78->name) == 0) {
- return p78->fld_78;
- }
- }
- /* Check against a global constant (78 level) */
- for (p78 = glob_lev_78_ptr; p78; p78 = p78->next) {
- if (strcasecmp (name, p78->fld_78->name) == 0) {
- return p78->fld_78;
- }
- }
- return NULL;
-}
-
-/*
- Find program with the program-name name in defined_prog_list. If it is not
- there, return NULL.
-*/
-struct cb_program *
-cb_find_defined_program_by_name (const char *name)
-{
- int (*cmp_func)(const char *, const char *);
- cb_tree l;
- cb_tree x;
-
- if (cb_fold_call) {
- cmp_func = &strcasecmp;
- } else {
- cmp_func = &strcmp;
- }
-
- for (l = defined_prog_list; l; l = CB_CHAIN (l)) {
- x = CB_VALUE (l);
- if ((*cmp_func)(name, CB_PROGRAM (x)->program_name) == 0) {
- return CB_PROGRAM (x);
- }
- }
-
- return NULL;
-}
-
-struct cb_program *
-cb_find_defined_program_by_id (const char *orig_id)
-{
- cb_tree l;
- cb_tree x;
-
- for (l = defined_prog_list; l; l = CB_CHAIN (l)) {
- x = CB_VALUE (l);
- if (strcmp (orig_id, CB_PROGRAM (x)->orig_program_id) == 0) {
- return CB_PROGRAM (x);
- }
- }
-
- return NULL;
-}
-
diff --git a/config.h.in b/config.h.in
deleted file mode 100644
index 05417e8..0000000
--- a/config.h.in
+++ /dev/null
@@ -1,531 +0,0 @@
-/* config.h.in. Generated from configure.ac by autoheader. */
-
-/* Define if building universal (internal helper macro) */
-#undef AC_APPLE_UNIVERSAL_BUILD
-
-/* executable name for module runner */
-#undef COBCRUN_NAME
-
-/* long int is 32 bits */
-#undef COB_32_BIT_LONG
-
-/* Pointers are longer than 32 bits */
-#undef COB_64_BIT_POINTER
-
-/* informational: build environment during compilation */
-#undef COB_BLD_BUILD
-
-/* informational: compiler during compilation */
-#undef COB_BLD_CC
-
-/* informational: compiler flags during compilation */
-#undef COB_BLD_CFLAGS
-
-/* informational: preparser flags during compilation */
-#undef COB_BLD_CPPFLAGS
-
-/* informational: linker during compilation */
-#undef COB_BLD_LD
-
-/* informational: linker flags during compilation */
-#undef COB_BLD_LDFLAGS
-
-/* compiler used by cobc */
-#undef COB_CC
-
-/* compiler flags passed to compiler by cobc */
-#undef COB_CFLAGS
-
-/* Compilation of computed gotos works */
-#undef COB_COMPUTED_GOTO
-
-/* default search path for copybooks */
-#undef COB_CONFIG_DIR
-
-/* default search path for configuration files */
-#undef COB_COPY_DIR
-
-/* Compile/link option for debugging */
-#undef COB_DEBUG_FLAGS
-
-/* Enable internal logging (Developers only!) */
-#undef COB_DEBUG_LOG
-
-/* Executable extension */
-#undef COB_EXE_EXT
-
-/* Enable experimental code (Developers only!) */
-#undef COB_EXPERIMENTAL
-
-/* Compile/link option for exporting symbols */
-#undef COB_EXPORT_DYN
-
-/* Keyword for inline */
-#undef COB_KEYWORD_INLINE
-
-/* linker flags passed to linker by cobc */
-#undef COB_LDFLAGS
-
-/* default search path for extra modules */
-#undef COB_LIBRARY_PATH
-
-/* libraries passed to linker by cobc */
-#undef COB_LIBS
-
-/* long int is long long */
-#undef COB_LI_IS_LL
-
-/* Module extension */
-#undef COB_MODULE_EXT
-
-/* Can not dlopen self */
-#undef COB_NO_SELFOPEN
-
-/* Object extension */
-#undef COB_OBJECT_EXT
-
-/* Enable minimum parameter check for system libraries */
-#undef COB_PARAM_CHECK
-
-/* Compile/link option for PIC code */
-#undef COB_PIC_FLAGS
-
-/* Compile/link option for shared code */
-#undef COB_SHARED_OPT
-
-/* Strip command */
-#undef COB_STRIP_CMD
-
-/* Enable extra checks within the compiler (Developers only!) */
-#undef COB_TREE_DEBUG
-
-/* Define to 1 if translation of program messages to the user's native
- language is requested. */
-#undef ENABLE_NLS
-
-/* Has __attribute__((aligned)) */
-#undef HAVE_ATTRIBUTE_ALIGNED
-
-/* Has __attribute__((constructor)) */
-#undef HAVE_ATTRIBUTE_CONSTRUCTOR
-
-/* Has __attribute__((pure)) */
-#undef HAVE_ATTRIBUTE_PURE
-
-/* Define to 1 if you have the `canonicalize_file_name' function. */
-#undef HAVE_CANONICALIZE_FILE_NAME
-
-/* Define to 1 if you have the Mac OS X function
- CFLocaleCopyPreferredLanguages in the CoreFoundation framework. */
-#undef HAVE_CFLOCALECOPYPREFERREDLANGUAGES
-
-/* Define to 1 if you have the Mac OS X function CFPreferencesCopyAppValue in
- the CoreFoundation framework. */
-#undef HAVE_CFPREFERENCESCOPYAPPVALUE
-
-/* Define to 1 if you have the <cjson/cJSON.h> header file. */
-#undef HAVE_CJSON_CJSON_H
-
-/* Define to 1 if you have the <cJSON.h> header file. */
-#undef HAVE_CJSON_H
-
-/* Has clock_gettime function and CLOCK_REALTIME */
-#undef HAVE_CLOCK_GETTIME
-
-/* curses has color_set function */
-#undef HAVE_COLOR_SET
-
-/* curses provides function to free all memory */
-#undef HAVE_CURSES_FREEALL
-
-/* Define to 1 if you have the <curses.h> header file. */
-#undef HAVE_CURSES_H
-
-/* Define to 1 if you have the <db.h> header file. */
-#undef HAVE_DB_H
-
-/* Define if the GNU dcgettext() function is already present or preinstalled.
- */
-#undef HAVE_DCGETTEXT
-
-/* Define to 1 if you have the declaration of `fdatasync', and to 0 if you
- don't. */
-#undef HAVE_DECL_FDATASYNC
-
-/* Define to 1 if you have the declaration of `fmemopen', and to 0 if you
- don't. */
-#undef HAVE_DECL_FMEMOPEN
-
-/* curses has define_key function */
-#undef HAVE_DEFINE_KEY
-
-/* Has designated initializers */
-#undef HAVE_DESIGNATED_INITS
-
-/* Define to 1 if you have the <disam.h> header file. */
-#undef HAVE_DISAM_H
-
-/* Define to 1 if you have the <dlfcn.h> header file. */
-#undef HAVE_DLFCN_H
-
-/* Define to 1 if you don't have `vprintf' but do have `_doprnt.' */
-#undef HAVE_DOPRNT
-
-/* Define to 1 if you have the `fcntl' function. */
-#undef HAVE_FCNTL
-
-/* Define to 1 if you have the <fcntl.h> header file. */
-#undef HAVE_FCNTL_H
-
-/* Define to 1 if you have the `fdatasync' function. */
-#undef HAVE_FDATASYNC
-
-/* Declaration of finite function in ieeefp.h instead of math.h */
-#undef HAVE_FINITE_IEEEFP_H
-
-/* Define to 1 if you have the `flockfile' function. */
-#undef HAVE_FLOCKFILE
-
-/* Define to 1 if you have the `fmemopen' function. */
-#undef HAVE_FMEMOPEN
-
-/* Define to 1 if you have the `getexecname' function. */
-#undef HAVE_GETEXECNAME
-
-/* Define if the GNU gettext() function is already present or preinstalled. */
-#undef HAVE_GETTEXT
-
-/* Define to 1 if you have the `gettimeofday' function. */
-#undef HAVE_GETTIMEOFDAY
-
-/* Define to 1 if you have the <gmp.h> header file. */
-#undef HAVE_GMP_H
-
-/* curses has has_mouse function */
-#undef HAVE_HAS_MOUSE
-
-/* Define if you have the iconv() function and it works. */
-#undef HAVE_ICONV
-
-/* Define to 1 if you have the <inttypes.h> header file. */
-#undef HAVE_INTTYPES_H
-
-/* Define to 1 if you have the <isam.h> header file. */
-#undef HAVE_ISAM_H
-
-/* Has isfinite function */
-#undef HAVE_ISFINITE
-
-/* Define to 1 if you have the <json-c/json.h> header file. */
-#undef HAVE_JSON_C_JSON_H
-
-/* Define to 1 if you have the <json.h> header file. */
-#undef HAVE_JSON_H
-
-/* Define if you have <langinfo.h> and nl_langinfo(CODESET). */
-#undef HAVE_LANGINFO_CODESET
-
-/* Define to 1 if you have the `posix4' library (-lposix4). */
-#undef HAVE_LIBPOSIX4
-
-/* Define to 1 if you have the `rt' library (-lrt). */
-#undef HAVE_LIBRT
-
-/* Define to 1 if you have the `localeconv' function. */
-#undef HAVE_LOCALECONV
-
-/* Define to 1 if you have the <locale.h> header file. */
-#undef HAVE_LOCALE_H
-
-/* Define to 1 if you have the <ltdl.h> header file. */
-#undef HAVE_LTDL_H
-
-/* Define to 1 if you have the `memmove' function. */
-#undef HAVE_MEMMOVE
-
-/* Define to 1 if you have the <memory.h> header file. */
-#undef HAVE_MEMORY_H
-
-/* Define to 1 if you have the `memset' function. */
-#undef HAVE_MEMSET
-
-/* curses has mouseinterval function */
-#undef HAVE_MOUSEINTERVAL
-
-/* curses has mousemask function and mmask_t definition */
-#undef HAVE_MOUSEMASK
-
-/* Define to 1 if you have the <mpir.h> header file. */
-#undef HAVE_MPIR_H
-
-/* Do we have mp_get_memory_functions in GMP/MPIR */
-#undef HAVE_MP_GET_MEMORY_FUNCTIONS
-
-/* Has nanosleep function */
-#undef HAVE_NANO_SLEEP
-
-/* Define to 1 if you have the <ncursesw/curses.h> header file. */
-#undef HAVE_NCURSESW_CURSES_H
-
-/* Define to 1 if you have the <ncursesw/ncurses.h> header file. */
-#undef HAVE_NCURSESW_NCURSES_H
-
-/* Define to 1 if you have the <ncurses/curses.h> header file. */
-#undef HAVE_NCURSES_CURSES_H
-
-/* Define to 1 if you have the <ncurses.h> header file. */
-#undef HAVE_NCURSES_H
-
-/* Define to 1 if you have the <ncurses/ncurses.h> header file. */
-#undef HAVE_NCURSES_NCURSES_H
-
-/* Define to 1 if you have the <pdcurses.h> header file. */
-#undef HAVE_PDCURSES_H
-
-/* Define to 1 if you have the `popen' function. */
-#undef HAVE_POPEN
-
-/* Define to 1 if you have the `raise' function. */
-#undef HAVE_RAISE
-
-/* Define to 1 if you have the `readlink' function. */
-#undef HAVE_READLINK
-
-/* Define to 1 if you have the `realpath' function. */
-#undef HAVE_REALPATH
-
-/* curses has resize_term function */
-#undef HAVE_RESIZE_TERM
-
-/* Define to 1 if you have the `setenv' function. */
-#undef HAVE_SETENV
-
-/* Define to 1 if you have the `setlocale' function. */
-#undef HAVE_SETLOCALE
-
-/* Define to 1 if you have the `sigaction' function. */
-#undef HAVE_SIGACTION
-
-/* Define to 1 if you have the <signal.h> header file. */
-#undef HAVE_SIGNAL_H
-
-/* Define to 1 if the system has the type `sig_atomic_t'. */
-#undef HAVE_SIG_ATOMIC_T
-
-/* Define to 1 if you have the <stddef.h> header file. */
-#undef HAVE_STDDEF_H
-
-/* Define to 1 if you have the <stdint.h> header file. */
-#undef HAVE_STDINT_H
-
-/* Define to 1 if you have the <stdlib.h> header file. */
-#undef HAVE_STDLIB_H
-
-/* Define to 1 if you have the `strcasecmp' function. */
-#undef HAVE_STRCASECMP
-
-/* Define to 1 if you have the `strchr' function. */
-#undef HAVE_STRCHR
-
-/* Define to 1 if you have the `strcoll' function. */
-#undef HAVE_STRCOLL
-
-/* Define to 1 if you have the `strdup' function. */
-#undef HAVE_STRDUP
-
-/* Define to 1 if you have the `strerror' function. */
-#undef HAVE_STRERROR
-
-/* Define to 1 if you have the <strings.h> header file. */
-#undef HAVE_STRINGS_H
-
-/* Define to 1 if you have the <string.h> header file. */
-#undef HAVE_STRING_H
-
-/* Define to 1 if you have the `strrchr' function. */
-#undef HAVE_STRRCHR
-
-/* Define to 1 if you have the `strstr' function. */
-#undef HAVE_STRSTR
-
-/* Define to 1 if you have the `strtol' function. */
-#undef HAVE_STRTOL
-
-/* Define to 1 if you have the <sys/stat.h> header file. */
-#undef HAVE_SYS_STAT_H
-
-/* Define to 1 if you have the <sys/time.h> header file. */
-#undef HAVE_SYS_TIME_H
-
-/* Define to 1 if you have the <sys/types.h> header file. */
-#undef HAVE_SYS_TYPES_H
-
-/* Has timezone variable */
-#undef HAVE_TIMEZONE
-
-/* Define to 1 if you have the <unistd.h> header file. */
-#undef HAVE_UNISTD_H
-
-/* ncurses has use_legacy_coding function */
-#undef HAVE_USE_LEGACY_CODING
-
-/* Define to 1 if you have the <vbisam.h> header file. */
-#undef HAVE_VBISAM_H
-
-/* Define to 1 if you have the `vprintf' function. */
-#undef HAVE_VPRINTF
-
-/* Define to 1 if you have the <xcurses/curses.h> header file. */
-#undef HAVE_XCURSES_CURSES_H
-
-/* Define to 1 if you have the <xcurses.h> header file. */
-#undef HAVE_XCURSES_H
-
-/* Define to the sub-directory where libtool stores uninstalled libraries. */
-#undef LT_OBJDIR
-
-/* Define maximum parameters for CALL */
-#undef MAX_CALL_FIELD_PARAMS
-
-/* Name of package */
-#undef PACKAGE
-
-/* Define to the address where bug reports for this package should be sent. */
-#undef PACKAGE_BUGREPORT
-
-/* Define to the full name of this package. */
-#undef PACKAGE_NAME
-
-/* Define to the full name and version of this package. */
-#undef PACKAGE_STRING
-
-/* Define to the one symbol short name of this package. */
-#undef PACKAGE_TARNAME
-
-/* Define to the home page for this package. */
-#undef PACKAGE_URL
-
-/* Define to the version of this package. */
-#undef PACKAGE_VERSION
-
-/* Define a patch level (numeric, max. 8 digits) */
-#undef PATCH_LEVEL
-
-/* The size of `long', as computed by sizeof. */
-#undef SIZEOF_LONG
-
-/* The size of `long int', as computed by sizeof. */
-#undef SIZEOF_LONG_INT
-
-/* The size of `long long', as computed by sizeof. */
-#undef SIZEOF_LONG_LONG
-
-/* The size of `void *', as computed by sizeof. */
-#undef SIZEOF_VOID_P
-
-/* Define to 1 if you have the ANSI C header files. */
-#undef STDC_HEADERS
-
-/* Define to 1 if your <sys/time.h> declares `struct tm'. */
-#undef TM_IN_SYS_TIME
-
-/* Use system dynamic loader */
-#undef USE_LIBDL
-
-/* Enable extensions on AIX 3, Interix. */
-#ifndef _ALL_SOURCE
-# undef _ALL_SOURCE
-#endif
-/* Enable GNU extensions on systems that have them. */
-#ifndef _GNU_SOURCE
-# undef _GNU_SOURCE
-#endif
-/* Enable threading extensions on Solaris. */
-#ifndef _POSIX_PTHREAD_SEMANTICS
-# undef _POSIX_PTHREAD_SEMANTICS
-#endif
-/* Enable extensions on HP NonStop. */
-#ifndef _TANDEM_SOURCE
-# undef _TANDEM_SOURCE
-#endif
-/* Enable general extensions on Solaris. */
-#ifndef __EXTENSIONS__
-# undef __EXTENSIONS__
-#endif
-
-
-/* Use CISAM as INDEXED handler */
-#undef WITH_CISAM
-
-/* Use cJSON library/source as JSON handler */
-#undef WITH_CJSON
-
-/* curses library for extended SCREEN I/O */
-#undef WITH_CURSES
-
-/* Use Berkeley DB library as INDEXED handler */
-#undef WITH_DB
-
-/* Use DISAM as INDEXED handler */
-#undef WITH_DISAM
-
-/* Compile with obsolete external INDEXED handler */
-#undef WITH_INDEX_EXTFH
-
-/* JSON handler */
-#undef WITH_JSON
-
-/* Use JSON-C library as JSON handler */
-#undef WITH_JSON_C
-
-/* Math multiple precision library */
-#undef WITH_MATH
-
-/* Compile with obsolete external SEQ/RAN handler */
-#undef WITH_SEQRA_EXTFH
-
-/* Define variable sequential file format */
-#undef WITH_VARSEQ
-
-/* Use VBISAM as INDEXED handler */
-#undef WITH_VBISAM
-
-/* Use libxml2 as XML handler */
-#undef WITH_XML2
-
-/* Define WORDS_BIGENDIAN to 1 if your processor stores words with the most
- significant byte first (like Motorola and SPARC, unlike Intel). */
-#if defined AC_APPLE_UNIVERSAL_BUILD
-# if defined __BIG_ENDIAN__
-# define WORDS_BIGENDIAN 1
-# endif
-#else
-# ifndef WORDS_BIGENDIAN
-# undef WORDS_BIGENDIAN
-# endif
-#endif
-
-/* Define to 1 if `lex' declares `yytext' as a `char *' by default, not a
- `char[]'. */
-#undef YYTEXT_POINTER
-
-/* Define to 1 if on MINIX. */
-#undef _MINIX
-
-/* Define to 2 if the system does not provide POSIX.1 features except with
- this defined. */
-#undef _POSIX_1_SOURCE
-
-/* Define to 1 if you need to in order for `stat' and other things to work. */
-#undef _POSIX_SOURCE
-
-/* Define to 1 if on HPUX. */
-#ifndef _XOPEN_SOURCE_EXTENDED
-# undef _XOPEN_SOURCE_EXTENDED
-#endif
-
-/* Define to empty if `const' does not conform to ANSI C. */
-#undef const
-
-/* Define to `unsigned int' if <sys/types.h> does not define. */
-#undef size_t
diff --git a/config/Makefile.in b/config/Makefile.in
deleted file mode 100644
index b419b52..0000000
--- a/config/Makefile.in
+++ /dev/null
@@ -1,623 +0,0 @@
-# Makefile.in generated by automake 1.16.3 from Makefile.am.
-# @configure_input@
-
-# Copyright (C) 1994-2020 Free Software Foundation, Inc.
-
-# This Makefile.in is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
-# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
-# PARTICULAR PURPOSE.
-
-@SET_MAKE@
-
-#
-# Makefile gnucobol/config
-#
-# Copyright (C) 2003-2012, 2014-2015, 2017, 2019 Free Software Foundation, Inc.
-# Written by Keisuke Nishida, Roger While, Simon Sobisch
-#
-# 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 <https://www.gnu.org/licenses/>.
-
-VPATH = @srcdir@
-am__is_gnu_make = { \
- if test -z '$(MAKELEVEL)'; then \
- false; \
- elif test -n '$(MAKE_HOST)'; then \
- true; \
- elif test -n '$(MAKE_VERSION)' && test -n '$(CURDIR)'; then \
- true; \
- else \
- false; \
- fi; \
-}
-am__make_running_with_option = \
- case $${target_option-} in \
- ?) ;; \
- *) echo "am__make_running_with_option: internal error: invalid" \
- "target option '$${target_option-}' specified" >&2; \
- exit 1;; \
- esac; \
- has_opt=no; \
- sane_makeflags=$$MAKEFLAGS; \
- if $(am__is_gnu_make); then \
- sane_makeflags=$$MFLAGS; \
- else \
- case $$MAKEFLAGS in \
- *\\[\ \ ]*) \
- bs=\\; \
- sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \
- | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \
- esac; \
- fi; \
- skip_next=no; \
- strip_trailopt () \
- { \
- flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \
- }; \
- for flg in $$sane_makeflags; do \
- test $$skip_next = yes && { skip_next=no; continue; }; \
- case $$flg in \
- *=*|--*) continue;; \
- -*I) strip_trailopt 'I'; skip_next=yes;; \
- -*I?*) strip_trailopt 'I';; \
- -*O) strip_trailopt 'O'; skip_next=yes;; \
- -*O?*) strip_trailopt 'O';; \
- -*l) strip_trailopt 'l'; skip_next=yes;; \
- -*l?*) strip_trailopt 'l';; \
- -[dEDm]) skip_next=yes;; \
- -[JT]) skip_next=yes;; \
- esac; \
- case $$flg in \
- *$$target_option*) has_opt=yes; break;; \
- esac; \
- done; \
- test $$has_opt = yes
-am__make_dryrun = (target_option=n; $(am__make_running_with_option))
-am__make_keepgoing = (target_option=k; $(am__make_running_with_option))
-pkgdatadir = $(datadir)/@PACKAGE@
-pkgincludedir = $(includedir)/@PACKAGE@
-pkglibdir = $(libdir)/@PACKAGE@
-pkglibexecdir = $(libexecdir)/@PACKAGE@
-am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
-install_sh_DATA = $(install_sh) -c -m 644
-install_sh_PROGRAM = $(install_sh) -c
-install_sh_SCRIPT = $(install_sh) -c
-INSTALL_HEADER = $(INSTALL_DATA)
-transform = $(program_transform_name)
-NORMAL_INSTALL = :
-PRE_INSTALL = :
-POST_INSTALL = :
-NORMAL_UNINSTALL = :
-PRE_UNINSTALL = :
-POST_UNINSTALL = :
-build_triplet = @build@
-host_triplet = @host@
-subdir = config
-ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
-am__aclocal_m4_deps = $(top_srcdir)/m4/ax_ac_append_to_file.m4 \
- $(top_srcdir)/m4/ax_ac_define_resolved.m4 \
- $(top_srcdir)/m4/ax_ac_print_to_file.m4 \
- $(top_srcdir)/m4/ax_add_am_macro_static.m4 \
- $(top_srcdir)/m4/ax_am_macros_static.m4 \
- $(top_srcdir)/m4/ax_check_define.m4 \
- $(top_srcdir)/m4/ax_check_gnu_make.m4 \
- $(top_srcdir)/m4/ax_code_coverage.m4 \
- $(top_srcdir)/m4/ax_file_escapes.m4 \
- $(top_srcdir)/m4/ax_prog_bison.m4 \
- $(top_srcdir)/m4/ax_prog_flex.m4 $(top_srcdir)/m4/codeset.m4 \
- $(top_srcdir)/m4/gettext.m4 $(top_srcdir)/m4/iconv.m4 \
- $(top_srcdir)/m4/intlmacosx.m4 $(top_srcdir)/m4/lib-ld.m4 \
- $(top_srcdir)/m4/lib-link.m4 $(top_srcdir)/m4/lib-prefix.m4 \
- $(top_srcdir)/m4/libtool.m4 $(top_srcdir)/m4/ltoptions.m4 \
- $(top_srcdir)/m4/ltsugar.m4 $(top_srcdir)/m4/ltversion.m4 \
- $(top_srcdir)/m4/lt~obsolete.m4 $(top_srcdir)/m4/nls.m4 \
- $(top_srcdir)/m4/pkg.m4 $(top_srcdir)/m4/po.m4 \
- $(top_srcdir)/m4/progtest.m4 $(top_srcdir)/configure.ac
-am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
- $(ACLOCAL_M4)
-DIST_COMMON = $(srcdir)/Makefile.am $(am__DIST_COMMON)
-mkinstalldirs = $(SHELL) $(top_srcdir)/build_aux/mkinstalldirs
-CONFIG_HEADER = $(top_builddir)/config.h
-CONFIG_CLEAN_FILES =
-CONFIG_CLEAN_VPATH_FILES =
-AM_V_P = $(am__v_P_@AM_V@)
-am__v_P_ = $(am__v_P_@AM_DEFAULT_V@)
-am__v_P_0 = false
-am__v_P_1 = :
-AM_V_GEN = $(am__v_GEN_@AM_V@)
-am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@)
-am__v_GEN_0 = @echo " GEN " $@;
-am__v_GEN_1 =
-AM_V_at = $(am__v_at_@AM_V@)
-am__v_at_ = $(am__v_at_@AM_DEFAULT_V@)
-am__v_at_0 = @
-am__v_at_1 =
-SOURCES =
-DIST_SOURCES =
-am__can_run_installinfo = \
- case $$AM_UPDATE_INFO_DIR in \
- n|no|NO) false;; \
- *) (install-info --version) >/dev/null 2>&1;; \
- esac
-am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
-am__vpath_adj = case $$p in \
- $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
- *) f=$$p;; \
- esac;
-am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`;
-am__install_max = 40
-am__nobase_strip_setup = \
- srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'`
-am__nobase_strip = \
- for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||"
-am__nobase_list = $(am__nobase_strip_setup); \
- for p in $$list; do echo "$$p $$p"; done | \
- sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \
- $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \
- if (++n[$$2] == $(am__install_max)) \
- { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \
- END { for (dir in files) print dir, files[dir] }'
-am__base_list = \
- sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \
- sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g'
-am__uninstall_files_from_dir = { \
- test -z "$$files" \
- || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \
- || { echo " ( cd '$$dir' && rm -f" $$files ")"; \
- $(am__cd) "$$dir" && rm -f $$files; }; \
- }
-am__installdirs = "$(DESTDIR)$(configdir)"
-DATA = $(config_DATA)
-am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP)
-am__DIST_COMMON = $(srcdir)/Makefile.in \
- $(top_srcdir)/build_aux/mkinstalldirs ChangeLog
-DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
-ACLOCAL = @ACLOCAL@
-AMTAR = @AMTAR@
-AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@
-AR = @AR@
-AS = @AS@
-AUTOCONF = @AUTOCONF@
-AUTOHEADER = @AUTOHEADER@
-AUTOMAKE = @AUTOMAKE@
-AWK = @AWK@
-BDB_CFLAGS = @BDB_CFLAGS@
-BDB_LIBS = @BDB_LIBS@
-CC = @CC@
-CCDEPMODE = @CCDEPMODE@
-CFLAGS = @CFLAGS@
-CJSON_CFLAGS = @CJSON_CFLAGS@
-CJSON_LIBS = @CJSON_LIBS@
-COBC_CPPFLAGS = @COBC_CPPFLAGS@
-COB_BIGENDIAN = @COB_BIGENDIAN@
-COB_CC = @COB_CC@
-COB_CFLAGS = @COB_CFLAGS@
-COB_CONFIG_DIR = @COB_CONFIG_DIR@
-COB_COPY_DIR = @COB_COPY_DIR@
-COB_ENABLE_DEBUG = @COB_ENABLE_DEBUG@
-COB_EXE_EXT = @COB_EXE_EXT@
-COB_FIX_LIBTOOL = @COB_FIX_LIBTOOL@
-COB_HAS_64_BIT_POINTER = @COB_HAS_64_BIT_POINTER@
-COB_HAS_CURSES = @COB_HAS_CURSES@
-COB_HAS_ISAM = @COB_HAS_ISAM@
-COB_HAS_JSON = @COB_HAS_JSON@
-COB_HAS_XML2 = @COB_HAS_XML2@
-COB_LDFLAGS = @COB_LDFLAGS@
-COB_LIBRARY_PATH = @COB_LIBRARY_PATH@
-COB_LIBS = @COB_LIBS@
-COB_MODULE_EXT = @COB_MODULE_EXT@
-COB_OBJECT_EXT = @COB_OBJECT_EXT@
-COB_PATCH_LEVEL = @COB_PATCH_LEVEL@
-CODE_COVERAGE_CFLAGS = @CODE_COVERAGE_CFLAGS@
-CODE_COVERAGE_CPPFLAGS = @CODE_COVERAGE_CPPFLAGS@
-CODE_COVERAGE_CXXFLAGS = @CODE_COVERAGE_CXXFLAGS@
-CODE_COVERAGE_ENABLED = @CODE_COVERAGE_ENABLED@
-CODE_COVERAGE_LIBS = @CODE_COVERAGE_LIBS@
-CPP = @CPP@
-CPPFLAGS = @CPPFLAGS@
-CURSES_LIBS = @CURSES_LIBS@
-CYGPATH_W = @CYGPATH_W@
-DEFS = @DEFS@
-DEPDIR = @DEPDIR@
-DIFF_FLAGS = @DIFF_FLAGS@
-DLLTOOL = @DLLTOOL@
-DSYMUTIL = @DSYMUTIL@
-DUMPBIN = @DUMPBIN@
-ECHO_C = @ECHO_C@
-ECHO_N = @ECHO_N@
-ECHO_T = @ECHO_T@
-EGREP = @EGREP@
-EXEEXT = @EXEEXT@
-FGREP = @FGREP@
-GCOV = @GCOV@
-GENHTML = @GENHTML@
-GETTEXT_MACRO_VERSION = @GETTEXT_MACRO_VERSION@
-GMP_CFLAGS = @GMP_CFLAGS@
-GMP_LIBS = @GMP_LIBS@
-GMSGFMT = @GMSGFMT@
-GMSGFMT_015 = @GMSGFMT_015@
-GREP = @GREP@
-HELP2MAN = @HELP2MAN@
-INSTALL = @INSTALL@
-INSTALL_DATA = @INSTALL_DATA@
-INSTALL_PROGRAM = @INSTALL_PROGRAM@
-INSTALL_SCRIPT = @INSTALL_SCRIPT@
-INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
-INTLLIBS = @INTLLIBS@
-INTL_MACOSX_LIBS = @INTL_MACOSX_LIBS@
-JSON_C_CFLAGS = @JSON_C_CFLAGS@
-JSON_C_LIBS = @JSON_C_LIBS@
-LCOV = @LCOV@
-LD = @LD@
-LDFLAGS = @LDFLAGS@
-LEX = @LEX@
-LEXLIB = @LEXLIB@
-LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@
-LIBCOB_CPPFLAGS = @LIBCOB_CPPFLAGS@
-LIBCOB_LIBS = @LIBCOB_LIBS@
-LIBICONV = @LIBICONV@
-LIBINTL = @LIBINTL@
-LIBOBJS = @LIBOBJS@
-LIBS = @LIBS@
-LIBTOOL = @LIBTOOL@
-LIPO = @LIPO@
-LN_S = @LN_S@
-LTLIBICONV = @LTLIBICONV@
-LTLIBINTL = @LTLIBINTL@
-LTLIBOBJS = @LTLIBOBJS@
-LT_SYS_LIBRARY_PATH = @LT_SYS_LIBRARY_PATH@
-MAKE = @MAKE@
-MAKEINFO = @MAKEINFO@
-MANIFEST_TOOL = @MANIFEST_TOOL@
-MKDIR_P = @MKDIR_P@
-MPIR_CFLAGS = @MPIR_CFLAGS@
-MPIR_LIBS = @MPIR_LIBS@
-MSGFMT = @MSGFMT@
-MSGMERGE = @MSGMERGE@
-MSGMERGE_FOR_MSGFMT_OPTION = @MSGMERGE_FOR_MSGFMT_OPTION@
-NM = @NM@
-NMEDIT = @NMEDIT@
-OBJDUMP = @OBJDUMP@
-OBJEXT = @OBJEXT@
-OTOOL = @OTOOL@
-OTOOL64 = @OTOOL64@
-PACKAGE = @PACKAGE@
-PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
-PACKAGE_NAME = @PACKAGE_NAME@
-PACKAGE_STRING = @PACKAGE_STRING@
-PACKAGE_TARNAME = @PACKAGE_TARNAME@
-PACKAGE_URL = @PACKAGE_URL@
-PACKAGE_VERSION = @PACKAGE_VERSION@
-PATH_SEPARATOR = @PATH_SEPARATOR@
-PERL = @PERL@
-PKG_CONFIG = @PKG_CONFIG@
-PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@
-PKG_CONFIG_PATH = @PKG_CONFIG_PATH@
-POSUB = @POSUB@
-PROGRAMS_LIBS = @PROGRAMS_LIBS@
-QUOTE_INCLUDE_FLAG = @QUOTE_INCLUDE_FLAG@
-RANLIB = @RANLIB@
-RC = @RC@
-SED = @SED@
-SET_MAKE = @SET_MAKE@
-SHELL = @SHELL@
-STRIP = @STRIP@
-USE_NLS = @USE_NLS@
-VERSION = @VERSION@
-XGETTEXT = @XGETTEXT@
-XGETTEXT_015 = @XGETTEXT_015@
-XGETTEXT_EXTRA_OPTIONS = @XGETTEXT_EXTRA_OPTIONS@
-XML2_CFLAGS = @XML2_CFLAGS@
-XML2_CONFIG = @XML2_CONFIG@
-XML2_LIBS = @XML2_LIBS@
-YACC = @YACC@
-YFLAGS = @YFLAGS@
-abs_builddir = @abs_builddir@
-abs_srcdir = @abs_srcdir@
-abs_top_builddir = @abs_top_builddir@
-abs_top_srcdir = @abs_top_srcdir@
-ac_ct_AR = @ac_ct_AR@
-ac_ct_CC = @ac_ct_CC@
-ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
-am__include = @am__include@
-am__leading_dot = @am__leading_dot@
-am__quote = @am__quote@
-am__tar = @am__tar@
-am__untar = @am__untar@
-bindir = @bindir@
-build = @build@
-build_alias = @build_alias@
-build_cpu = @build_cpu@
-build_os = @build_os@
-build_vendor = @build_vendor@
-builddir = @builddir@
-configured_make = @configured_make@
-datadir = @datadir@
-datarootdir = @datarootdir@
-docdir = @docdir@
-dvidir = @dvidir@
-exec_prefix = @exec_prefix@
-host = @host@
-host_alias = @host_alias@
-host_cpu = @host_cpu@
-host_os = @host_os@
-host_vendor = @host_vendor@
-htmldir = @htmldir@
-ifGNUmake = @ifGNUmake@
-ifnGNUmake = @ifnGNUmake@
-includedir = @includedir@
-infodir = @infodir@
-install_sh = @install_sh@
-libdir = @libdir@
-libexecdir = @libexecdir@
-localedir = @localedir@
-localstatedir = @localstatedir@
-mandir = @mandir@
-mkdir_p = @mkdir_p@
-oldincludedir = @oldincludedir@
-pdfdir = @pdfdir@
-prefix = @prefix@
-program_transform_name = @program_transform_name@
-psdir = @psdir@
-runstatedir = @runstatedir@
-sbindir = @sbindir@
-sharedstatedir = @sharedstatedir@
-srcdir = @srcdir@
-sysconfdir = @sysconfdir@
-target_alias = @target_alias@
-top_build_prefix = @top_build_prefix@
-top_builddir = @top_builddir@
-top_srcdir = @top_srcdir@
-configdir = @COB_CONFIG_DIR@
-config_DATA = default.conf cobol85.conf cobol2002.conf cobol2014.conf \
- acu.conf mf.conf ibm.conf mvs.conf bs2000.conf realia.conf rm.conf \
- acu-strict.conf mf-strict.conf ibm-strict.conf mvs-strict.conf \
- bs2000-strict.conf realia-strict.conf rm-strict.conf xopen.conf \
- gcos.conf gcos-strict.conf lax.conf-inc \
- cobol85.words cobol2002.words cobol2014.words \
- acu.words mf.words ibm.words mvs.words bs2000.words realia.words \
- rm.words gcos.words runtime.cfg runtime_empty.cfg \
- default.ttbl alternate.ttbl \
- ebcdic500_ascii7bit.ttbl ebcdic500_ascii8bit.ttbl ebcdic500_latin1.ttbl
-
-EXTRA_DIST = $(config_DATA)
-all: all-am
-
-.SUFFIXES:
-$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps)
- @for dep in $?; do \
- case '$(am__configure_deps)' in \
- *$$dep*) \
- ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
- && { if test -f $@; then exit 0; else break; fi; }; \
- exit 1;; \
- esac; \
- done; \
- echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu config/Makefile'; \
- $(am__cd) $(top_srcdir) && \
- $(AUTOMAKE) --gnu config/Makefile
-Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
- @case '$?' in \
- *config.status*) \
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
- *) \
- echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__maybe_remake_depfiles)'; \
- cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__maybe_remake_depfiles);; \
- esac;
-
-$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-
-$(top_srcdir)/configure: $(am__configure_deps)
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-$(ACLOCAL_M4): $(am__aclocal_m4_deps)
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-$(am__aclocal_m4_deps):
-
-mostlyclean-libtool:
- -rm -f *.lo
-
-clean-libtool:
- -rm -rf .libs _libs
-install-configDATA: $(config_DATA)
- @$(NORMAL_INSTALL)
- @list='$(config_DATA)'; test -n "$(configdir)" || list=; \
- if test -n "$$list"; then \
- echo " $(MKDIR_P) '$(DESTDIR)$(configdir)'"; \
- $(MKDIR_P) "$(DESTDIR)$(configdir)" || exit 1; \
- fi; \
- for p in $$list; do \
- if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
- echo "$$d$$p"; \
- done | $(am__base_list) | \
- while read files; do \
- echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(configdir)'"; \
- $(INSTALL_DATA) $$files "$(DESTDIR)$(configdir)" || exit $$?; \
- done
-
-uninstall-configDATA:
- @$(NORMAL_UNINSTALL)
- @list='$(config_DATA)'; test -n "$(configdir)" || list=; \
- files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \
- dir='$(DESTDIR)$(configdir)'; $(am__uninstall_files_from_dir)
-tags TAGS:
-
-ctags CTAGS:
-
-cscope cscopelist:
-
-
-distdir: $(BUILT_SOURCES)
- $(MAKE) $(AM_MAKEFLAGS) distdir-am
-
-distdir-am: $(DISTFILES)
- @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
- topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
- list='$(DISTFILES)'; \
- dist_files=`for file in $$list; do echo $$file; done | \
- sed -e "s|^$$srcdirstrip/||;t" \
- -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
- case $$dist_files in \
- */*) $(MKDIR_P) `echo "$$dist_files" | \
- sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
- sort -u` ;; \
- esac; \
- for file in $$dist_files; do \
- if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
- if test -d $$d/$$file; then \
- dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
- if test -d "$(distdir)/$$file"; then \
- find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
- fi; \
- if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
- cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
- find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
- fi; \
- cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
- else \
- test -f "$(distdir)/$$file" \
- || cp -p $$d/$$file "$(distdir)/$$file" \
- || exit 1; \
- fi; \
- done
-check-am: all-am
-check: check-am
-all-am: Makefile $(DATA)
-installdirs:
- for dir in "$(DESTDIR)$(configdir)"; do \
- test -z "$$dir" || $(MKDIR_P) "$$dir"; \
- done
-install: install-am
-install-exec: install-exec-am
-install-data: install-data-am
-uninstall: uninstall-am
-
-install-am: all-am
- @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
-
-installcheck: installcheck-am
-install-strip:
- if test -z '$(STRIP)'; then \
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- install; \
- else \
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
- fi
-mostlyclean-generic:
-
-clean-generic:
-
-distclean-generic:
- -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
- -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
-
-maintainer-clean-generic:
- @echo "This command is intended for maintainers to use"
- @echo "it deletes files that may require special tools to rebuild."
-clean: clean-am
-
-clean-am: clean-generic clean-libtool mostlyclean-am
-
-distclean: distclean-am
- -rm -f Makefile
-distclean-am: clean-am distclean-generic
-
-dvi: dvi-am
-
-dvi-am:
-
-html: html-am
-
-html-am:
-
-info: info-am
-
-info-am:
-
-install-data-am: install-configDATA
-
-install-dvi: install-dvi-am
-
-install-dvi-am:
-
-install-exec-am:
-
-install-html: install-html-am
-
-install-html-am:
-
-install-info: install-info-am
-
-install-info-am:
-
-install-man:
-
-install-pdf: install-pdf-am
-
-install-pdf-am:
-
-install-ps: install-ps-am
-
-install-ps-am:
-
-installcheck-am:
-
-maintainer-clean: maintainer-clean-am
- -rm -f Makefile
-maintainer-clean-am: distclean-am maintainer-clean-generic
-
-mostlyclean: mostlyclean-am
-
-mostlyclean-am: mostlyclean-generic mostlyclean-libtool
-
-pdf: pdf-am
-
-pdf-am:
-
-ps: ps-am
-
-ps-am:
-
-uninstall-am: uninstall-configDATA
-
-.MAKE: install-am install-strip
-
-.PHONY: all all-am check check-am clean clean-generic clean-libtool \
- cscopelist-am ctags-am distclean distclean-generic \
- distclean-libtool distdir dvi dvi-am html html-am info info-am \
- install install-am install-configDATA install-data \
- install-data-am install-dvi install-dvi-am install-exec \
- install-exec-am install-html install-html-am install-info \
- install-info-am install-man install-pdf install-pdf-am \
- install-ps install-ps-am install-strip installcheck \
- installcheck-am installdirs maintainer-clean \
- maintainer-clean-generic mostlyclean mostlyclean-generic \
- mostlyclean-libtool pdf pdf-am ps ps-am tags-am uninstall \
- uninstall-am uninstall-configDATA
-
-.PRECIOUS: Makefile
-
-
-# Tell versions [3.59,3.63) of GNU make to not export all variables.
-# Otherwise a system limit (for SysV at least) may be exceeded.
-.NOEXPORT:
diff --git a/configure b/configure
deleted file mode 100755
index fcbbe0d..0000000
--- a/configure
+++ /dev/null
@@ -1,24858 +0,0 @@
-#! /bin/sh
-# From configure.ac GnuCOBOL snapshot Revision: 5150 .
-# Guess values for system-dependent variables and create Makefiles.
-# Generated by GNU Autoconf 2.69 for GnuCOBOL OSS Consortium patch 3.2 patch2.
-#
-# Report bugs to <ws-opensource-cobol-contact@osscons.jp>.
-#
-#
-# Copyright (C) 1992-1996, 1998-2012 Free Software Foundation, Inc.
-#
-#
-# This configure script is free software; the Free Software Foundation
-# gives unlimited permission to copy, distribute and modify it.
-#
-# This file is part of GnuCOBOL.
-#
-# Copyright (C) 2001-2012, 2014-2024 Free Software Foundation, Inc.
-# Written by Keisuke Nishida, Roger While, Ron Norman, Simon Sobisch,
-# Edward Hart, OSS Consortium
-#
-## -------------------- ##
-## M4sh Initialization. ##
-## -------------------- ##
-
-# Be more Bourne compatible
-DUALCASE=1; export DUALCASE # for MKS sh
-if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then :
- emulate sh
- NULLCMD=:
- # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which
- # is contrary to our usage. Disable this feature.
- alias -g '${1+"$@"}'='"$@"'
- setopt NO_GLOB_SUBST
-else
- case `(set -o) 2>/dev/null` in #(
- *posix*) :
- set -o posix ;; #(
- *) :
- ;;
-esac
-fi
-
-
-as_nl='
-'
-export as_nl
-# Printing a long string crashes Solaris 7 /usr/bin/printf.
-as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
-as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo
-as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo
-# Prefer a ksh shell builtin over an external printf program on Solaris,
-# but without wasting forks for bash or zsh.
-if test -z "$BASH_VERSION$ZSH_VERSION" \
- && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then
- as_echo='print -r --'
- as_echo_n='print -rn --'
-elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then
- as_echo='printf %s\n'
- as_echo_n='printf %s'
-else
- if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then
- as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"'
- as_echo_n='/usr/ucb/echo -n'
- else
- as_echo_body='eval expr "X$1" : "X\\(.*\\)"'
- as_echo_n_body='eval
- arg=$1;
- case $arg in #(
- *"$as_nl"*)
- expr "X$arg" : "X\\(.*\\)$as_nl";
- arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;;
- esac;
- expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl"
- '
- export as_echo_n_body
- as_echo_n='sh -c $as_echo_n_body as_echo'
- fi
- export as_echo_body
- as_echo='sh -c $as_echo_body as_echo'
-fi
-
-# The user is always right.
-if test "${PATH_SEPARATOR+set}" != set; then
- PATH_SEPARATOR=:
- (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && {
- (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 ||
- PATH_SEPARATOR=';'
- }
-fi
-
-
-# IFS
-# We need space, tab and new line, in precisely that order. Quoting is
-# there to prevent editors from complaining about space-tab.
-# (If _AS_PATH_WALK were called with IFS unset, it would disable word
-# splitting by setting IFS to empty value.)
-IFS=" "" $as_nl"
-
-# Find who we are. Look in the path if we contain no directory separator.
-as_myself=
-case $0 in #((
- *[\\/]* ) as_myself=$0 ;;
- *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-# We did not find ourselves, most probably we were run as `sh COMMAND'
-# in which case we are not to be found in the path.
-if test "x$as_myself" = x; then
- as_myself=$0
-fi
-if test ! -f "$as_myself"; then
- $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2
- exit 1
-fi
-
-# Unset variables that we do not need and which cause bugs (e.g. in
-# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1"
-# suppresses any "Segmentation fault" message there. '((' could
-# trigger a bug in pdksh 5.2.14.
-for as_var in BASH_ENV ENV MAIL MAILPATH
-do eval test x\${$as_var+set} = xset \
- && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || :
-done
-PS1='$ '
-PS2='> '
-PS4='+ '
-
-# NLS nuisances.
-LC_ALL=C
-export LC_ALL
-LANGUAGE=C
-export LANGUAGE
-
-# CDPATH.
-(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
-
-# Use a proper internal environment variable to ensure we don't fall
- # into an infinite loop, continuously re-executing ourselves.
- if test x"${_as_can_reexec}" != xno && test "x$CONFIG_SHELL" != x; then
- _as_can_reexec=no; export _as_can_reexec;
- # We cannot yet assume a decent shell, so we have to provide a
-# neutralization value for shells without unset; and this also
-# works around shells that cannot unset nonexistent variables.
-# Preserve -v and -x to the replacement shell.
-BASH_ENV=/dev/null
-ENV=/dev/null
-(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV
-case $- in # ((((
- *v*x* | *x*v* ) as_opts=-vx ;;
- *v* ) as_opts=-v ;;
- *x* ) as_opts=-x ;;
- * ) as_opts= ;;
-esac
-exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"}
-# Admittedly, this is quite paranoid, since all the known shells bail
-# out after a failed `exec'.
-$as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2
-as_fn_exit 255
- fi
- # We don't want this to propagate to other subprocesses.
- { _as_can_reexec=; unset _as_can_reexec;}
-if test "x$CONFIG_SHELL" = x; then
- as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then :
- emulate sh
- NULLCMD=:
- # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which
- # is contrary to our usage. Disable this feature.
- alias -g '\${1+\"\$@\"}'='\"\$@\"'
- setopt NO_GLOB_SUBST
-else
- case \`(set -o) 2>/dev/null\` in #(
- *posix*) :
- set -o posix ;; #(
- *) :
- ;;
-esac
-fi
-"
- as_required="as_fn_return () { (exit \$1); }
-as_fn_success () { as_fn_return 0; }
-as_fn_failure () { as_fn_return 1; }
-as_fn_ret_success () { return 0; }
-as_fn_ret_failure () { return 1; }
-
-exitcode=0
-as_fn_success || { exitcode=1; echo as_fn_success failed.; }
-as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; }
-as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; }
-as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; }
-if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then :
-
-else
- exitcode=1; echo positional parameters were not saved.
-fi
-test x\$exitcode = x0 || exit 1
-test -x / || exit 1"
- as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO
- as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO
- eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" &&
- test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1
-test \$(( 1 + 1 )) = 2 || exit 1
-
- test -n \"\${ZSH_VERSION+set}\${BASH_VERSION+set}\" || (
- ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
- ECHO=\$ECHO\$ECHO\$ECHO\$ECHO\$ECHO
- ECHO=\$ECHO\$ECHO\$ECHO\$ECHO\$ECHO\$ECHO
- PATH=/empty FPATH=/empty; export PATH FPATH
- test \"X\`printf %s \$ECHO\`\" = \"X\$ECHO\" \\
- || test \"X\`print -r -- \$ECHO\`\" = \"X\$ECHO\" ) || exit 1"
- if (eval "$as_required") 2>/dev/null; then :
- as_have_required=yes
-else
- as_have_required=no
-fi
- if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null; then :
-
-else
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-as_found=false
-for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- as_found=:
- case $as_dir in #(
- /*)
- for as_base in sh bash ksh sh5; do
- # Try only shells that exist, to save several forks.
- as_shell=$as_dir/$as_base
- if { test -f "$as_shell" || test -f "$as_shell.exe"; } &&
- { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$as_shell"; } 2>/dev/null; then :
- CONFIG_SHELL=$as_shell as_have_required=yes
- if { $as_echo "$as_bourne_compatible""$as_suggested" | as_run=a "$as_shell"; } 2>/dev/null; then :
- break 2
-fi
-fi
- done;;
- esac
- as_found=false
-done
-$as_found || { if { test -f "$SHELL" || test -f "$SHELL.exe"; } &&
- { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$SHELL"; } 2>/dev/null; then :
- CONFIG_SHELL=$SHELL as_have_required=yes
-fi; }
-IFS=$as_save_IFS
-
-
- if test "x$CONFIG_SHELL" != x; then :
- export CONFIG_SHELL
- # We cannot yet assume a decent shell, so we have to provide a
-# neutralization value for shells without unset; and this also
-# works around shells that cannot unset nonexistent variables.
-# Preserve -v and -x to the replacement shell.
-BASH_ENV=/dev/null
-ENV=/dev/null
-(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV
-case $- in # ((((
- *v*x* | *x*v* ) as_opts=-vx ;;
- *v* ) as_opts=-v ;;
- *x* ) as_opts=-x ;;
- * ) as_opts= ;;
-esac
-exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"}
-# Admittedly, this is quite paranoid, since all the known shells bail
-# out after a failed `exec'.
-$as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2
-exit 255
-fi
-
- if test x$as_have_required = xno; then :
- $as_echo "$0: This script requires a shell more modern than all"
- $as_echo "$0: the shells that I found on your system."
- if test x${ZSH_VERSION+set} = xset ; then
- $as_echo "$0: In particular, zsh $ZSH_VERSION has bugs and should"
- $as_echo "$0: be upgraded to zsh 4.3.4 or later."
- else
- $as_echo "$0: Please tell bug-autoconf@gnu.org and
-$0: ws-opensource-cobol-contact@osscons.jp about your
-$0: system, including any error possibly output before this
-$0: message. Then install a modern shell, or manually run
-$0: the script under such a shell if you do have one."
- fi
- exit 1
-fi
-fi
-fi
-SHELL=${CONFIG_SHELL-/bin/sh}
-export SHELL
-# Unset more variables known to interfere with behavior of common tools.
-CLICOLOR_FORCE= GREP_OPTIONS=
-unset CLICOLOR_FORCE GREP_OPTIONS
-
-## --------------------- ##
-## M4sh Shell Functions. ##
-## --------------------- ##
-# as_fn_unset VAR
-# ---------------
-# Portably unset VAR.
-as_fn_unset ()
-{
- { eval $1=; unset $1;}
-}
-as_unset=as_fn_unset
-
-# as_fn_set_status STATUS
-# -----------------------
-# Set $? to STATUS, without forking.
-as_fn_set_status ()
-{
- return $1
-} # as_fn_set_status
-
-# as_fn_exit STATUS
-# -----------------
-# Exit the shell with STATUS, even in a "trap 0" or "set -e" context.
-as_fn_exit ()
-{
- set +e
- as_fn_set_status $1
- exit $1
-} # as_fn_exit
-
-# as_fn_mkdir_p
-# -------------
-# Create "$as_dir" as a directory, including parents if necessary.
-as_fn_mkdir_p ()
-{
-
- case $as_dir in #(
- -*) as_dir=./$as_dir;;
- esac
- test -d "$as_dir" || eval $as_mkdir_p || {
- as_dirs=
- while :; do
- case $as_dir in #(
- *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'(
- *) as_qdir=$as_dir;;
- esac
- as_dirs="'$as_qdir' $as_dirs"
- as_dir=`$as_dirname -- "$as_dir" ||
-$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
- X"$as_dir" : 'X\(//\)[^/]' \| \
- X"$as_dir" : 'X\(//\)$' \| \
- X"$as_dir" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X"$as_dir" |
- sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
- s//\1/
- q
- }
- /^X\(\/\/\)[^/].*/{
- s//\1/
- q
- }
- /^X\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`
- test -d "$as_dir" && break
- done
- test -z "$as_dirs" || eval "mkdir $as_dirs"
- } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir"
-
-
-} # as_fn_mkdir_p
-
-# as_fn_executable_p FILE
-# -----------------------
-# Test if FILE is an executable regular file.
-as_fn_executable_p ()
-{
- test -f "$1" && test -x "$1"
-} # as_fn_executable_p
-# as_fn_append VAR VALUE
-# ----------------------
-# Append the text in VALUE to the end of the definition contained in VAR. Take
-# advantage of any shell optimizations that allow amortized linear growth over
-# repeated appends, instead of the typical quadratic growth present in naive
-# implementations.
-if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then :
- eval 'as_fn_append ()
- {
- eval $1+=\$2
- }'
-else
- as_fn_append ()
- {
- eval $1=\$$1\$2
- }
-fi # as_fn_append
-
-# as_fn_arith ARG...
-# ------------------
-# Perform arithmetic evaluation on the ARGs, and store the result in the
-# global $as_val. Take advantage of shells that can avoid forks. The arguments
-# must be portable across $(()) and expr.
-if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then :
- eval 'as_fn_arith ()
- {
- as_val=$(( $* ))
- }'
-else
- as_fn_arith ()
- {
- as_val=`expr "$@" || test $? -eq 1`
- }
-fi # as_fn_arith
-
-
-# as_fn_error STATUS ERROR [LINENO LOG_FD]
-# ----------------------------------------
-# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are
-# provided, also output the error to LOG_FD, referencing LINENO. Then exit the
-# script with STATUS, using 1 if that was 0.
-as_fn_error ()
-{
- as_status=$1; test $as_status -eq 0 && as_status=1
- if test "$4"; then
- as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4
- fi
- $as_echo "$as_me: error: $2" >&2
- as_fn_exit $as_status
-} # as_fn_error
-
-if expr a : '\(a\)' >/dev/null 2>&1 &&
- test "X`expr 00001 : '.*\(...\)'`" = X001; then
- as_expr=expr
-else
- as_expr=false
-fi
-
-if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then
- as_basename=basename
-else
- as_basename=false
-fi
-
-if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then
- as_dirname=dirname
-else
- as_dirname=false
-fi
-
-as_me=`$as_basename -- "$0" ||
-$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \
- X"$0" : 'X\(//\)$' \| \
- X"$0" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X/"$0" |
- sed '/^.*\/\([^/][^/]*\)\/*$/{
- s//\1/
- q
- }
- /^X\/\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\/\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`
-
-# Avoid depending upon Character Ranges.
-as_cr_letters='abcdefghijklmnopqrstuvwxyz'
-as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
-as_cr_Letters=$as_cr_letters$as_cr_LETTERS
-as_cr_digits='0123456789'
-as_cr_alnum=$as_cr_Letters$as_cr_digits
-
-
- as_lineno_1=$LINENO as_lineno_1a=$LINENO
- as_lineno_2=$LINENO as_lineno_2a=$LINENO
- eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" &&
- test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || {
- # Blame Lee E. McMahon (1931-1989) for sed's syntax. :-)
- sed -n '
- p
- /[$]LINENO/=
- ' <$as_myself |
- sed '
- s/[$]LINENO.*/&-/
- t lineno
- b
- :lineno
- N
- :loop
- s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/
- t loop
- s/-\n.*//
- ' >$as_me.lineno &&
- chmod +x "$as_me.lineno" ||
- { $as_echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; }
-
- # If we had to re-execute with $CONFIG_SHELL, we're ensured to have
- # already done that, so ensure we don't try to do so again and fall
- # in an infinite loop. This has already happened in practice.
- _as_can_reexec=no; export _as_can_reexec
- # Don't try to exec as it changes $[0], causing all sort of problems
- # (the dirname of $[0] is not the place where we might find the
- # original and so on. Autoconf is especially sensitive to this).
- . "./$as_me.lineno"
- # Exit status is that of the last command.
- exit
-}
-
-ECHO_C= ECHO_N= ECHO_T=
-case `echo -n x` in #(((((
--n*)
- case `echo 'xy\c'` in
- *c*) ECHO_T=' ';; # ECHO_T is single tab character.
- xy) ECHO_C='\c';;
- *) echo `echo ksh88 bug on AIX 6.1` > /dev/null
- ECHO_T=' ';;
- esac;;
-*)
- ECHO_N='-n';;
-esac
-
-rm -f conf$$ conf$$.exe conf$$.file
-if test -d conf$$.dir; then
- rm -f conf$$.dir/conf$$.file
-else
- rm -f conf$$.dir
- mkdir conf$$.dir 2>/dev/null
-fi
-if (echo >conf$$.file) 2>/dev/null; then
- if ln -s conf$$.file conf$$ 2>/dev/null; then
- as_ln_s='ln -s'
- # ... but there are two gotchas:
- # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail.
- # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable.
- # In both cases, we have to default to `cp -pR'.
- ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe ||
- as_ln_s='cp -pR'
- elif ln conf$$.file conf$$ 2>/dev/null; then
- as_ln_s=ln
- else
- as_ln_s='cp -pR'
- fi
-else
- as_ln_s='cp -pR'
-fi
-rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file
-rmdir conf$$.dir 2>/dev/null
-
-if mkdir -p . 2>/dev/null; then
- as_mkdir_p='mkdir -p "$as_dir"'
-else
- test -d ./-p && rmdir ./-p
- as_mkdir_p=false
-fi
-
-as_test_x='test -x'
-as_executable_p=as_fn_executable_p
-
-# Sed expression to map a string onto a valid CPP name.
-as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'"
-
-# Sed expression to map a string onto a valid variable name.
-as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'"
-
-SHELL=${CONFIG_SHELL-/bin/sh}
-
-
-test -n "$DJDIR" || exec 7<&0 </dev/null
-exec 6>&1
-
-# Name of the host.
-# hostname on some systems (SVR3.2, old GNU/Linux) returns a bogus exit status,
-# so uname gets run too.
-ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q`
-
-#
-# Initializations.
-#
-ac_default_prefix=/usr/local
-ac_clean_files=
-ac_config_libobj_dir=.
-LIBOBJS=
-cross_compiling=no
-subdirs=
-MFLAGS=
-MAKEFLAGS=
-
-# Identity of this package.
-PACKAGE_NAME='GnuCOBOL OSS Consortium patch'
-PACKAGE_TARNAME='gnucobol'
-PACKAGE_VERSION='3.2 patch2'
-PACKAGE_STRING='GnuCOBOL OSS Consortium patch 3.2 patch2'
-PACKAGE_BUGREPORT='ws-opensource-cobol-contact@osscons.jp'
-PACKAGE_URL='https://github.com/opensourcecobol/gnucobol-osscons-patch'
-
-ac_unique_file="libcob.h"
-# Factoring default headers for most tests.
-ac_includes_default="\
-#include <stdio.h>
-#ifdef HAVE_SYS_TYPES_H
-# include <sys/types.h>
-#endif
-#ifdef HAVE_SYS_STAT_H
-# include <sys/stat.h>
-#endif
-#ifdef STDC_HEADERS
-# include <stdlib.h>
-# include <stddef.h>
-#else
-# ifdef HAVE_STDLIB_H
-# include <stdlib.h>
-# endif
-#endif
-#ifdef HAVE_STRING_H
-# if !defined STDC_HEADERS && defined HAVE_MEMORY_H
-# include <memory.h>
-# endif
-# include <string.h>
-#endif
-#ifdef HAVE_STRINGS_H
-# include <strings.h>
-#endif
-#ifdef HAVE_INTTYPES_H
-# include <inttypes.h>
-#endif
-#ifdef HAVE_STDINT_H
-# include <stdint.h>
-#endif
-#ifdef HAVE_UNISTD_H
-# include <unistd.h>
-#endif"
-
-gt_needs=
-ac_subst_vars='am__EXEEXT_FALSE
-am__EXEEXT_TRUE
-LTLIBOBJS
-LIBOBJS
-HELP2MAN
-COB_PATCH_LEVEL
-COB_HAS_64_BIT_POINTER
-COB_HAS_JSON
-COB_HAS_XML2
-COB_HAS_CURSES
-COB_HAS_ISAM
-COB_FIX_LIBTOOL
-COB_BIGENDIAN
-COB_ENABLE_DEBUG
-QUOTE_INCLUDE_FLAG
-COB_EXE_EXT
-COB_MODULE_EXT
-COB_OBJECT_EXT
-COB_LIBRARY_PATH
-COB_COPY_DIR
-COB_CONFIG_DIR
-COB_LIBS
-COB_LDFLAGS
-COB_CFLAGS
-COB_CC
-COB_MAKE_RUN_BINARIES_FALSE
-COB_MAKE_RUN_BINARIES_TRUE
-COB_MAKE_IX_FALSE
-COB_MAKE_IX_TRUE
-LOCAL_CJSON_FALSE
-LOCAL_CJSON_TRUE
-PERL
-POSUB
-LTLIBINTL
-LIBINTL
-INTLLIBS
-LTLIBICONV
-LIBICONV
-INTL_MACOSX_LIBS
-XGETTEXT_EXTRA_OPTIONS
-MSGMERGE_FOR_MSGFMT_OPTION
-MSGMERGE
-XGETTEXT_015
-XGETTEXT
-GMSGFMT_015
-GMSGFMT
-MSGFMT
-GETTEXT_MACRO_VERSION
-USE_NLS
-BDB_LIBS
-BDB_CFLAGS
-CURSES_LIBS
-JSON_C_LIBS
-JSON_C_CFLAGS
-CJSON_LIBS
-CJSON_CFLAGS
-XML2_CONFIG
-XML2_LIBS
-XML2_CFLAGS
-MPIR_LIBS
-MPIR_CFLAGS
-GMP_LIBS
-GMP_CFLAGS
-PKG_CONFIG_LIBDIR
-PKG_CONFIG_PATH
-PKG_CONFIG
-CODE_COVERAGE_LIBS
-CODE_COVERAGE_CXXFLAGS
-CODE_COVERAGE_CFLAGS
-CODE_COVERAGE_CPPFLAGS
-GENHTML
-LCOV
-GCOV
-ifnGNUmake
-ifGNUmake
-CODE_COVERAGE_ENABLED
-CODE_COVERAGE_ENABLED_FALSE
-CODE_COVERAGE_ENABLED_TRUE
-DIFF_FLAGS
-YFLAGS
-YACC
-LEXLIB
-LEX_OUTPUT_ROOT
-LEX
-LT_SYS_LIBRARY_PATH
-OTOOL64
-OTOOL
-LIPO
-NMEDIT
-DSYMUTIL
-MANIFEST_TOOL
-RANLIB
-LN_S
-NM
-ac_ct_DUMPBIN
-DUMPBIN
-LD
-FGREP
-SED
-host_os
-host_vendor
-host_cpu
-host
-build_os
-build_vendor
-build_cpu
-build
-LIBTOOL
-OBJDUMP
-DLLTOOL
-AS
-ac_ct_AR
-AR
-RC
-PROGRAMS_LIBS
-LIBCOB_LIBS
-LIBCOB_CPPFLAGS
-COBC_CPPFLAGS
-EGREP
-GREP
-CPP
-am__fastdepCC_FALSE
-am__fastdepCC_TRUE
-CCDEPMODE
-am__nodep
-AMDEPBACKSLASH
-AMDEP_FALSE
-AMDEP_TRUE
-am__include
-DEPDIR
-OBJEXT
-EXEEXT
-ac_ct_CC
-CPPFLAGS
-LDFLAGS
-CFLAGS
-CC
-MAKE_HAS_PREREQ_ONLY_FALSE
-MAKE_HAS_PREREQ_ONLY_TRUE
-MAKE
-configured_make
-AM_BACKSLASH
-AM_DEFAULT_VERBOSITY
-AM_DEFAULT_V
-AM_V
-am__untar
-am__tar
-AMTAR
-am__leading_dot
-SET_MAKE
-AWK
-mkdir_p
-MKDIR_P
-INSTALL_STRIP_PROGRAM
-STRIP
-install_sh
-MAKEINFO
-AUTOHEADER
-AUTOMAKE
-AUTOCONF
-ACLOCAL
-VERSION
-PACKAGE
-CYGPATH_W
-am__isrc
-INSTALL_DATA
-INSTALL_SCRIPT
-INSTALL_PROGRAM
-target_alias
-host_alias
-build_alias
-LIBS
-ECHO_T
-ECHO_N
-ECHO_C
-DEFS
-mandir
-localedir
-libdir
-psdir
-pdfdir
-dvidir
-htmldir
-infodir
-docdir
-oldincludedir
-includedir
-runstatedir
-localstatedir
-sharedstatedir
-sysconfdir
-datadir
-datarootdir
-libexecdir
-sbindir
-bindir
-program_transform_name
-prefix
-exec_prefix
-PACKAGE_URL
-PACKAGE_BUGREPORT
-PACKAGE_STRING
-PACKAGE_VERSION
-PACKAGE_TARNAME
-PACKAGE_NAME
-PATH_SEPARATOR
-SHELL
-am__quote'
-ac_subst_files=''
-ac_user_opts='
-enable_option_checking
-enable_silent_rules
-enable_debug
-enable_hardening
-enable_experimental
-enable_cobc_internal_checks
-enable_debuglog
-enable_param_check
-with_patch_level
-with_max_call_params
-enable_dependency_tracking
-enable_shared
-enable_static
-with_pic
-enable_fast_install
-with_aix_soname
-with_gnu_ld
-with_sysroot
-enable_libtool_lock
-enable_rpath
-with_gcov
-enable_code_coverage
-with_math
-with_xml2
-with_json
-with_dl
-with_varseq
-with_curses
-with_seqra_extfh
-with_cisam
-with_disam
-with_vbisam
-with_index_extfh
-with_db
-enable_nls
-with_libiconv_prefix
-with_libintl_prefix
-'
- ac_precious_vars='build_alias
-host_alias
-target_alias
-CC
-CFLAGS
-LDFLAGS
-LIBS
-CPPFLAGS
-CPP
-COBC_CPPFLAGS
-LIBCOB_CPPFLAGS
-LIBCOB_LIBS
-PROGRAMS_LIBS
-LT_SYS_LIBRARY_PATH
-YACC
-YFLAGS
-DIFF_FLAGS
-PKG_CONFIG
-PKG_CONFIG_PATH
-PKG_CONFIG_LIBDIR
-GMP_CFLAGS
-GMP_LIBS
-MPIR_CFLAGS
-MPIR_LIBS
-XML2_CFLAGS
-XML2_LIBS
-CJSON_CFLAGS
-CJSON_LIBS
-JSON_C_CFLAGS
-JSON_C_LIBS
-CURSES_LIBS
-BDB_CFLAGS
-BDB_LIBS'
-
-
-# Initialize some variables set by options.
-ac_init_help=
-ac_init_version=false
-ac_unrecognized_opts=
-ac_unrecognized_sep=
-# The variables have the same names as the options, with
-# dashes changed to underlines.
-cache_file=/dev/null
-exec_prefix=NONE
-no_create=
-no_recursion=
-prefix=NONE
-program_prefix=NONE
-program_suffix=NONE
-program_transform_name=s,x,x,
-silent=
-site=
-srcdir=
-verbose=
-x_includes=NONE
-x_libraries=NONE
-
-# Installation directory options.
-# These are left unexpanded so users can "make install exec_prefix=/foo"
-# and all the variables that are supposed to be based on exec_prefix
-# by default will actually change.
-# Use braces instead of parens because sh, perl, etc. also accept them.
-# (The list follows the same order as the GNU Coding Standards.)
-bindir='${exec_prefix}/bin'
-sbindir='${exec_prefix}/sbin'
-libexecdir='${exec_prefix}/libexec'
-datarootdir='${prefix}/share'
-datadir='${datarootdir}'
-sysconfdir='${prefix}/etc'
-sharedstatedir='${prefix}/com'
-localstatedir='${prefix}/var'
-runstatedir='${localstatedir}/run'
-includedir='${prefix}/include'
-oldincludedir='/usr/include'
-docdir='${datarootdir}/doc/${PACKAGE_TARNAME}'
-infodir='${datarootdir}/info'
-htmldir='${docdir}'
-dvidir='${docdir}'
-pdfdir='${docdir}'
-psdir='${docdir}'
-libdir='${exec_prefix}/lib'
-localedir='${datarootdir}/locale'
-mandir='${datarootdir}/man'
-
-ac_prev=
-ac_dashdash=
-for ac_option
-do
- # If the previous option needs an argument, assign it.
- if test -n "$ac_prev"; then
- eval $ac_prev=\$ac_option
- ac_prev=
- continue
- fi
-
- case $ac_option in
- *=?*) ac_optarg=`expr "X$ac_option" : '[^=]*=\(.*\)'` ;;
- *=) ac_optarg= ;;
- *) ac_optarg=yes ;;
- esac
-
- # Accept the important Cygnus configure options, so we can diagnose typos.
-
- case $ac_dashdash$ac_option in
- --)
- ac_dashdash=yes ;;
-
- -bindir | --bindir | --bindi | --bind | --bin | --bi)
- ac_prev=bindir ;;
- -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*)
- bindir=$ac_optarg ;;
-
- -build | --build | --buil | --bui | --bu)
- ac_prev=build_alias ;;
- -build=* | --build=* | --buil=* | --bui=* | --bu=*)
- build_alias=$ac_optarg ;;
-
- -cache-file | --cache-file | --cache-fil | --cache-fi \
- | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c)
- ac_prev=cache_file ;;
- -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \
- | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*)
- cache_file=$ac_optarg ;;
-
- --config-cache | -C)
- cache_file=config.cache ;;
-
- -datadir | --datadir | --datadi | --datad)
- ac_prev=datadir ;;
- -datadir=* | --datadir=* | --datadi=* | --datad=*)
- datadir=$ac_optarg ;;
-
- -datarootdir | --datarootdir | --datarootdi | --datarootd | --dataroot \
- | --dataroo | --dataro | --datar)
- ac_prev=datarootdir ;;
- -datarootdir=* | --datarootdir=* | --datarootdi=* | --datarootd=* \
- | --dataroot=* | --dataroo=* | --dataro=* | --datar=*)
- datarootdir=$ac_optarg ;;
-
- -disable-* | --disable-*)
- ac_useropt=`expr "x$ac_option" : 'x-*disable-\(.*\)'`
- # Reject names that are not valid shell variable names.
- expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
- as_fn_error $? "invalid feature name: $ac_useropt"
- ac_useropt_orig=$ac_useropt
- ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
- case $ac_user_opts in
- *"
-"enable_$ac_useropt"
-"*) ;;
- *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--disable-$ac_useropt_orig"
- ac_unrecognized_sep=', ';;
- esac
- eval enable_$ac_useropt=no ;;
-
- -docdir | --docdir | --docdi | --doc | --do)
- ac_prev=docdir ;;
- -docdir=* | --docdir=* | --docdi=* | --doc=* | --do=*)
- docdir=$ac_optarg ;;
-
- -dvidir | --dvidir | --dvidi | --dvid | --dvi | --dv)
- ac_prev=dvidir ;;
- -dvidir=* | --dvidir=* | --dvidi=* | --dvid=* | --dvi=* | --dv=*)
- dvidir=$ac_optarg ;;
-
- -enable-* | --enable-*)
- ac_useropt=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'`
- # Reject names that are not valid shell variable names.
- expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
- as_fn_error $? "invalid feature name: $ac_useropt"
- ac_useropt_orig=$ac_useropt
- ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
- case $ac_user_opts in
- *"
-"enable_$ac_useropt"
-"*) ;;
- *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--enable-$ac_useropt_orig"
- ac_unrecognized_sep=', ';;
- esac
- eval enable_$ac_useropt=\$ac_optarg ;;
-
- -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \
- | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \
- | --exec | --exe | --ex)
- ac_prev=exec_prefix ;;
- -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \
- | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \
- | --exec=* | --exe=* | --ex=*)
- exec_prefix=$ac_optarg ;;
-
- -gas | --gas | --ga | --g)
- # Obsolete; use --with-gas.
- with_gas=yes ;;
-
- -help | --help | --hel | --he | -h)
- ac_init_help=long ;;
- -help=r* | --help=r* | --hel=r* | --he=r* | -hr*)
- ac_init_help=recursive ;;
- -help=s* | --help=s* | --hel=s* | --he=s* | -hs*)
- ac_init_help=short ;;
-
- -host | --host | --hos | --ho)
- ac_prev=host_alias ;;
- -host=* | --host=* | --hos=* | --ho=*)
- host_alias=$ac_optarg ;;
-
- -htmldir | --htmldir | --htmldi | --htmld | --html | --htm | --ht)
- ac_prev=htmldir ;;
- -htmldir=* | --htmldir=* | --htmldi=* | --htmld=* | --html=* | --htm=* \
- | --ht=*)
- htmldir=$ac_optarg ;;
-
- -includedir | --includedir | --includedi | --included | --include \
- | --includ | --inclu | --incl | --inc)
- ac_prev=includedir ;;
- -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \
- | --includ=* | --inclu=* | --incl=* | --inc=*)
- includedir=$ac_optarg ;;
-
- -infodir | --infodir | --infodi | --infod | --info | --inf)
- ac_prev=infodir ;;
- -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*)
- infodir=$ac_optarg ;;
-
- -libdir | --libdir | --libdi | --libd)
- ac_prev=libdir ;;
- -libdir=* | --libdir=* | --libdi=* | --libd=*)
- libdir=$ac_optarg ;;
-
- -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \
- | --libexe | --libex | --libe)
- ac_prev=libexecdir ;;
- -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \
- | --libexe=* | --libex=* | --libe=*)
- libexecdir=$ac_optarg ;;
-
- -localedir | --localedir | --localedi | --localed | --locale)
- ac_prev=localedir ;;
- -localedir=* | --localedir=* | --localedi=* | --localed=* | --locale=*)
- localedir=$ac_optarg ;;
-
- -localstatedir | --localstatedir | --localstatedi | --localstated \
- | --localstate | --localstat | --localsta | --localst | --locals)
- ac_prev=localstatedir ;;
- -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \
- | --localstate=* | --localstat=* | --localsta=* | --localst=* | --locals=*)
- localstatedir=$ac_optarg ;;
-
- -mandir | --mandir | --mandi | --mand | --man | --ma | --m)
- ac_prev=mandir ;;
- -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*)
- mandir=$ac_optarg ;;
-
- -nfp | --nfp | --nf)
- # Obsolete; use --without-fp.
- with_fp=no ;;
-
- -no-create | --no-create | --no-creat | --no-crea | --no-cre \
- | --no-cr | --no-c | -n)
- no_create=yes ;;
-
- -no-recursion | --no-recursion | --no-recursio | --no-recursi \
- | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r)
- no_recursion=yes ;;
-
- -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \
- | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \
- | --oldin | --oldi | --old | --ol | --o)
- ac_prev=oldincludedir ;;
- -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \
- | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \
- | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*)
- oldincludedir=$ac_optarg ;;
-
- -prefix | --prefix | --prefi | --pref | --pre | --pr | --p)
- ac_prev=prefix ;;
- -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*)
- prefix=$ac_optarg ;;
-
- -program-prefix | --program-prefix | --program-prefi | --program-pref \
- | --program-pre | --program-pr | --program-p)
- ac_prev=program_prefix ;;
- -program-prefix=* | --program-prefix=* | --program-prefi=* \
- | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*)
- program_prefix=$ac_optarg ;;
-
- -program-suffix | --program-suffix | --program-suffi | --program-suff \
- | --program-suf | --program-su | --program-s)
- ac_prev=program_suffix ;;
- -program-suffix=* | --program-suffix=* | --program-suffi=* \
- | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*)
- program_suffix=$ac_optarg ;;
-
- -program-transform-name | --program-transform-name \
- | --program-transform-nam | --program-transform-na \
- | --program-transform-n | --program-transform- \
- | --program-transform | --program-transfor \
- | --program-transfo | --program-transf \
- | --program-trans | --program-tran \
- | --progr-tra | --program-tr | --program-t)
- ac_prev=program_transform_name ;;
- -program-transform-name=* | --program-transform-name=* \
- | --program-transform-nam=* | --program-transform-na=* \
- | --program-transform-n=* | --program-transform-=* \
- | --program-transform=* | --program-transfor=* \
- | --program-transfo=* | --program-transf=* \
- | --program-trans=* | --program-tran=* \
- | --progr-tra=* | --program-tr=* | --program-t=*)
- program_transform_name=$ac_optarg ;;
-
- -pdfdir | --pdfdir | --pdfdi | --pdfd | --pdf | --pd)
- ac_prev=pdfdir ;;
- -pdfdir=* | --pdfdir=* | --pdfdi=* | --pdfd=* | --pdf=* | --pd=*)
- pdfdir=$ac_optarg ;;
-
- -psdir | --psdir | --psdi | --psd | --ps)
- ac_prev=psdir ;;
- -psdir=* | --psdir=* | --psdi=* | --psd=* | --ps=*)
- psdir=$ac_optarg ;;
-
- -q | -quiet | --quiet | --quie | --qui | --qu | --q \
- | -silent | --silent | --silen | --sile | --sil)
- silent=yes ;;
-
--runstatedir | --runstatedir | --runstatedi | --runstated \
- | --runstate | --runstat | --runsta | --runst | --runs \
- | --run | --ru | --r)
- ac_prev=runstatedir ;;
- -runstatedir=* | --runstatedir=* | --runstatedi=* | --runstated=* \
- | --runstate=* | --runstat=* | --runsta=* | --runst=* | --runs=* \
- | --run=* | --ru=* | --r=*)
- runstatedir=$ac_optarg ;;
-
- -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb)
- ac_prev=sbindir ;;
- -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \
- | --sbi=* | --sb=*)
- sbindir=$ac_optarg ;;
-
- -sharedstatedir | --sharedstatedir | --sharedstatedi \
- | --sharedstated | --sharedstate | --sharedstat | --sharedsta \
- | --sharedst | --shareds | --shared | --share | --shar \
- | --sha | --sh)
- ac_prev=sharedstatedir ;;
- -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \
- | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \
- | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \
- | --sha=* | --sh=*)
- sharedstatedir=$ac_optarg ;;
-
- -site | --site | --sit)
- ac_prev=site ;;
- -site=* | --site=* | --sit=*)
- site=$ac_optarg ;;
-
- -srcdir | --srcdir | --srcdi | --srcd | --src | --sr)
- ac_prev=srcdir ;;
- -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*)
- srcdir=$ac_optarg ;;
-
- -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \
- | --syscon | --sysco | --sysc | --sys | --sy)
- ac_prev=sysconfdir ;;
- -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \
- | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*)
- sysconfdir=$ac_optarg ;;
-
- -target | --target | --targe | --targ | --tar | --ta | --t)
- ac_prev=target_alias ;;
- -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*)
- target_alias=$ac_optarg ;;
-
- -v | -verbose | --verbose | --verbos | --verbo | --verb)
- verbose=yes ;;
-
- -version | --version | --versio | --versi | --vers | -V)
- ac_init_version=: ;;
-
- -with-* | --with-*)
- ac_useropt=`expr "x$ac_option" : 'x-*with-\([^=]*\)'`
- # Reject names that are not valid shell variable names.
- expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
- as_fn_error $? "invalid package name: $ac_useropt"
- ac_useropt_orig=$ac_useropt
- ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
- case $ac_user_opts in
- *"
-"with_$ac_useropt"
-"*) ;;
- *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--with-$ac_useropt_orig"
- ac_unrecognized_sep=', ';;
- esac
- eval with_$ac_useropt=\$ac_optarg ;;
-
- -without-* | --without-*)
- ac_useropt=`expr "x$ac_option" : 'x-*without-\(.*\)'`
- # Reject names that are not valid shell variable names.
- expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
- as_fn_error $? "invalid package name: $ac_useropt"
- ac_useropt_orig=$ac_useropt
- ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
- case $ac_user_opts in
- *"
-"with_$ac_useropt"
-"*) ;;
- *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--without-$ac_useropt_orig"
- ac_unrecognized_sep=', ';;
- esac
- eval with_$ac_useropt=no ;;
-
- --x)
- # Obsolete; use --with-x.
- with_x=yes ;;
-
- -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \
- | --x-incl | --x-inc | --x-in | --x-i)
- ac_prev=x_includes ;;
- -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \
- | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*)
- x_includes=$ac_optarg ;;
-
- -x-libraries | --x-libraries | --x-librarie | --x-librari \
- | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l)
- ac_prev=x_libraries ;;
- -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \
- | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*)
- x_libraries=$ac_optarg ;;
-
- -*) as_fn_error $? "unrecognized option: \`$ac_option'
-Try \`$0 --help' for more information"
- ;;
-
- *=*)
- ac_envvar=`expr "x$ac_option" : 'x\([^=]*\)='`
- # Reject names that are not valid shell variable names.
- case $ac_envvar in #(
- '' | [0-9]* | *[!_$as_cr_alnum]* )
- as_fn_error $? "invalid variable name: \`$ac_envvar'" ;;
- esac
- eval $ac_envvar=\$ac_optarg
- export $ac_envvar ;;
-
- *)
- # FIXME: should be removed in autoconf 3.0.
- $as_echo "$as_me: WARNING: you should use --build, --host, --target" >&2
- expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null &&
- $as_echo "$as_me: WARNING: invalid host type: $ac_option" >&2
- : "${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option}"
- ;;
-
- esac
-done
-
-if test -n "$ac_prev"; then
- ac_option=--`echo $ac_prev | sed 's/_/-/g'`
- as_fn_error $? "missing argument to $ac_option"
-fi
-
-if test -n "$ac_unrecognized_opts"; then
- case $enable_option_checking in
- no) ;;
- fatal) as_fn_error $? "unrecognized options: $ac_unrecognized_opts" ;;
- *) $as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2 ;;
- esac
-fi
-
-# Check all directory arguments for consistency.
-for ac_var in exec_prefix prefix bindir sbindir libexecdir datarootdir \
- datadir sysconfdir sharedstatedir localstatedir includedir \
- oldincludedir docdir infodir htmldir dvidir pdfdir psdir \
- libdir localedir mandir runstatedir
-do
- eval ac_val=\$$ac_var
- # Remove trailing slashes.
- case $ac_val in
- */ )
- ac_val=`expr "X$ac_val" : 'X\(.*[^/]\)' \| "X$ac_val" : 'X\(.*\)'`
- eval $ac_var=\$ac_val;;
- esac
- # Be sure to have absolute directory names.
- case $ac_val in
- [\\/$]* | ?:[\\/]* ) continue;;
- NONE | '' ) case $ac_var in *prefix ) continue;; esac;;
- esac
- as_fn_error $? "expected an absolute directory name for --$ac_var: $ac_val"
-done
-
-# There might be people who depend on the old broken behavior: `$host'
-# used to hold the argument of --host etc.
-# FIXME: To remove some day.
-build=$build_alias
-host=$host_alias
-target=$target_alias
-
-# FIXME: To remove some day.
-if test "x$host_alias" != x; then
- if test "x$build_alias" = x; then
- cross_compiling=maybe
- elif test "x$build_alias" != "x$host_alias"; then
- cross_compiling=yes
- fi
-fi
-
-ac_tool_prefix=
-test -n "$host_alias" && ac_tool_prefix=$host_alias-
-
-test "$silent" = yes && exec 6>/dev/null
-
-
-ac_pwd=`pwd` && test -n "$ac_pwd" &&
-ac_ls_di=`ls -di .` &&
-ac_pwd_ls_di=`cd "$ac_pwd" && ls -di .` ||
- as_fn_error $? "working directory cannot be determined"
-test "X$ac_ls_di" = "X$ac_pwd_ls_di" ||
- as_fn_error $? "pwd does not report name of working directory"
-
-
-# Find the source files, if location was not specified.
-if test -z "$srcdir"; then
- ac_srcdir_defaulted=yes
- # Try the directory containing this script, then the parent directory.
- ac_confdir=`$as_dirname -- "$as_myself" ||
-$as_expr X"$as_myself" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
- X"$as_myself" : 'X\(//\)[^/]' \| \
- X"$as_myself" : 'X\(//\)$' \| \
- X"$as_myself" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X"$as_myself" |
- sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
- s//\1/
- q
- }
- /^X\(\/\/\)[^/].*/{
- s//\1/
- q
- }
- /^X\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`
- srcdir=$ac_confdir
- if test ! -r "$srcdir/$ac_unique_file"; then
- srcdir=..
- fi
-else
- ac_srcdir_defaulted=no
-fi
-if test ! -r "$srcdir/$ac_unique_file"; then
- test "$ac_srcdir_defaulted" = yes && srcdir="$ac_confdir or .."
- as_fn_error $? "cannot find sources ($ac_unique_file) in $srcdir"
-fi
-ac_msg="sources are in $srcdir, but \`cd $srcdir' does not work"
-ac_abs_confdir=`(
- cd "$srcdir" && test -r "./$ac_unique_file" || as_fn_error $? "$ac_msg"
- pwd)`
-# When building in place, set srcdir=.
-if test "$ac_abs_confdir" = "$ac_pwd"; then
- srcdir=.
-fi
-# Remove unnecessary trailing slashes from srcdir.
-# Double slashes in file names in object file debugging info
-# mess up M-x gdb in Emacs.
-case $srcdir in
-*/) srcdir=`expr "X$srcdir" : 'X\(.*[^/]\)' \| "X$srcdir" : 'X\(.*\)'`;;
-esac
-for ac_var in $ac_precious_vars; do
- eval ac_env_${ac_var}_set=\${${ac_var}+set}
- eval ac_env_${ac_var}_value=\$${ac_var}
- eval ac_cv_env_${ac_var}_set=\${${ac_var}+set}
- eval ac_cv_env_${ac_var}_value=\$${ac_var}
-done
-
-#
-# Report the --help message.
-#
-if test "$ac_init_help" = "long"; then
- # Omit some internal or obsolete options to make the list less imposing.
- # This message is too long to be a string in the A/UX 3.1 sh.
- cat <<_ACEOF
-\`configure' configures GnuCOBOL OSS Consortium patch 3.2 patch2 to adapt to many kinds of systems.
-
-Usage: $0 [OPTION]... [VAR=VALUE]...
-
-To assign environment variables (e.g., CC, CFLAGS...), specify them as
-VAR=VALUE. See below for descriptions of some of the useful variables.
-
-Defaults for the options are specified in brackets.
-
-Configuration:
- -h, --help display this help and exit
- --help=short display options specific to this package
- --help=recursive display the short help of all the included packages
- -V, --version display version information and exit
- -q, --quiet, --silent do not print \`checking ...' messages
- --cache-file=FILE cache test results in FILE [disabled]
- -C, --config-cache alias for \`--cache-file=config.cache'
- -n, --no-create do not create output files
- --srcdir=DIR find the sources in DIR [configure dir or \`..']
-
-Installation directories:
- --prefix=PREFIX install architecture-independent files in PREFIX
- [$ac_default_prefix]
- --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX
- [PREFIX]
-
-By default, \`make install' will install all the files in
-\`$ac_default_prefix/bin', \`$ac_default_prefix/lib' etc. You can specify
-an installation prefix other than \`$ac_default_prefix' using \`--prefix',
-for instance \`--prefix=\$HOME'.
-
-For better control, use the options below.
-
-Fine tuning of the installation directories:
- --bindir=DIR user executables [EPREFIX/bin]
- --sbindir=DIR system admin executables [EPREFIX/sbin]
- --libexecdir=DIR program executables [EPREFIX/libexec]
- --sysconfdir=DIR read-only single-machine data [PREFIX/etc]
- --sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com]
- --localstatedir=DIR modifiable single-machine data [PREFIX/var]
---runstatedir=DIR modifiable per-process data [LOCALSTATEDIR/run]
- --libdir=DIR object code libraries [EPREFIX/lib]
- --includedir=DIR C header files [PREFIX/include]
- --oldincludedir=DIR C header files for non-gcc [/usr/include]
- --datarootdir=DIR read-only arch.-independent data root [PREFIX/share]
- --datadir=DIR read-only architecture-independent data [DATAROOTDIR]
- --infodir=DIR info documentation [DATAROOTDIR/info]
- --localedir=DIR locale-dependent data [DATAROOTDIR/locale]
- --mandir=DIR man documentation [DATAROOTDIR/man]
- --docdir=DIR documentation root [DATAROOTDIR/doc/gnucobol]
- --htmldir=DIR html documentation [DOCDIR]
- --dvidir=DIR dvi documentation [DOCDIR]
- --pdfdir=DIR pdf documentation [DOCDIR]
- --psdir=DIR ps documentation [DOCDIR]
-_ACEOF
-
- cat <<\_ACEOF
-
-Program names:
- --program-prefix=PREFIX prepend PREFIX to installed program names
- --program-suffix=SUFFIX append SUFFIX to installed program names
- --program-transform-name=PROGRAM run sed PROGRAM on installed program names
-
-System types:
- --build=BUILD configure for building on BUILD [guessed]
- --host=HOST cross-compile to build programs to run on HOST [BUILD]
-_ACEOF
-fi
-
-if test -n "$ac_init_help"; then
- case $ac_init_help in
- short | recursive ) echo "Configuration of GnuCOBOL OSS Consortium patch 3.2 patch2:";;
- esac
- cat <<\_ACEOF
-
-Optional Features:
- --disable-option-checking ignore unrecognized --enable/--with options
- --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no)
- --enable-FEATURE[=ARG] include FEATURE [ARG=yes]
- --enable-silent-rules less verbose build output (undo: "make V=1")
- --disable-silent-rules verbose build output (undo: "make V=0")
- --enable-debug (GnuCOBOL) Enable -g C compiler debug option for
- cobc + libcob
- --enable-hardening, --disable-hardening
- Enable GNU C "hardening" options: define
- _FORTIFY_SOURCE and use -fstack-protector. If
- disabled, these are explicit removed from CFLAGS for
- building GnuCOBOL. Defaults to "defined by CFLAGS".
- --enable-experimental (GnuCOBOL) Enable experimental code (Developers
- only!)
- --enable-cobc-internal-checks
- (GnuCOBOL) Enable extra checks within the compiler
- (Developers only!)
- --enable-debuglog (GnuCOBOL) Enable internal logging code (Developers
- only!)
- --enable-param-check (GnuCOBOL) Enable minimum parameter check for system
- libraries (default no)
- --enable-dependency-tracking
- do not reject slow dependency extractors
- --disable-dependency-tracking
- speeds up one-time build
- --enable-shared[=PKGS] build shared libraries [default=yes]
- --enable-static[=PKGS] build static libraries [default=yes]
- --enable-fast-install[=PKGS]
- optimize for fast installation [default=yes]
- --disable-libtool-lock avoid locking (might break parallel builds)
- --disable-rpath do not hardcode runtime library paths
- --enable-code-coverage Whether to enable code coverage support
- --disable-nls do not use Native Language Support
-
-Optional Packages:
- --with-PACKAGE[=ARG] use PACKAGE [ARG=yes]
- --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no)
- --with-patch-level (GnuCOBOL) Define a patch level (default 0),
- numeric, max. 8 digits
- --with-max-call-params (GnuCOBOL) Define maximum number of parameters for
- CALL (default 192)
- --with-pic[=PKGS] try to use only PIC/non-PIC objects [default=use
- both]
- --with-aix-soname=aix|svr4|both
- shared library versioning (aka "SONAME") variant to
- provide on AIX, [default=aix].
- --with-gnu-ld assume the C compiler uses GNU ld [default=no]
- --with-sysroot[=DIR] Search for dependent libraries within DIR (or the
- compiler's sysroot if not specified).
- --with-gnu-ld assume the C compiler uses GNU ld [default=no]
- --with-gcov=GCOV use given GCOV for coverage (GCOV=gcov).
- --with-math[=ARG] (GnuCOBOL) Use math multiple precision library,
- where ARG may be: check (default), gmp, mpir
- --with-xml2 (GnuCOBOL) Use libxml2 as XML handler (default)
- --with-json[=ARG] (GnuCOBOL) Use json library/source as JSON handler,
- where ARG may be: check (default), cjson, local,
- json-c, no
- --with-dl (GnuCOBOL) Use system dynamic loader (default)
- --with-varseq (GnuCOBOL) Define variable sequential format
- (default 0)
- --with-curses[=ARG] (GnuCOBOL) Use curses library for extended SCREEN
- I/O, where ARG may be: check (default), ncursesw,
- ncurses, pdcurses, xcurses, curses, no
- --with-seqra-extfh (GnuCOBOL) Use external SEQ/RAN handler (obsolete)
- --with-cisam (GnuCOBOL) Use CISAM for INDEXED I/O
- --with-disam (GnuCOBOL) Use DISAM for INDEXED I/O
- --with-vbisam (GnuCOBOL) Use VBISAM for ISAM I/O
- --with-index-extfh (GnuCOBOL) Use external ISAM file handler (obsolete)
- --with-db (GnuCOBOL) Use Berkeley DB >= 4.1 for ISAM I/O
- (default)
- --with-libiconv-prefix[=DIR] search for libiconv in DIR/include and DIR/lib
- --without-libiconv-prefix don't search for libiconv in includedir and libdir
- --with-libintl-prefix[=DIR] search for libintl in DIR/include and DIR/lib
- --without-libintl-prefix don't search for libintl in includedir and libdir
-
-Some influential environment variables:
- CC C compiler command
- CFLAGS C compiler flags
- LDFLAGS linker flags, e.g. -L<lib dir> if you have libraries in a
- nonstandard directory <lib dir>
- LIBS libraries to pass to the linker, e.g. -l<library>
- CPPFLAGS (Objective) C/C++ preprocessor flags, e.g. -I<include dir> if
- you have headers in a nonstandard directory <include dir>
- CPP C preprocessor
- COBC_CPPFLAGS
- see CPPFLAGS, but only applied during generation of cobc
- LIBCOB_CPPFLAGS
- see CPPFLAGS, but only applied during generation of libcob
- LIBCOB_LIBS see LIBS, but only applied during generation of libcob
- PROGRAMS_LIBS
- see LIBS, but only applied during generation of programs: cobc,
- cobcrun
- LT_SYS_LIBRARY_PATH
- User-defined run-time library search path.
- YACC The `Yet Another Compiler Compiler' implementation to use.
- Defaults to the first program found out of: `bison -y', `byacc',
- `yacc'.
- YFLAGS The list of arguments that will be passed by default to $YACC.
- This script will default YFLAGS to the empty string to avoid a
- default value of `-d' given by some make applications.
- DIFF_FLAGS arguments passed to diff
- PKG_CONFIG path to pkg-config utility
- PKG_CONFIG_PATH
- directories to add to pkg-config's search path
- PKG_CONFIG_LIBDIR
- path overriding pkg-config's built-in search path
- GMP_CFLAGS C compiler flags for GMP, overriding pkg-config
- GMP_LIBS linker flags for GMP, overriding pkg-config
- MPIR_CFLAGS C compiler flags for MPIR, overriding pkg-config
- MPIR_LIBS linker flags for MPIR, overriding pkg-config
- XML2_CFLAGS C compiler flags for XML2, overriding pkg-config
- XML2_LIBS linker flags for XML2, overriding pkg-config
- CJSON_CFLAGS
- C compiler flags for CJSON, overriding pkg-config
- CJSON_LIBS linker flags for CJSON, overriding pkg-config
- JSON_C_CFLAGS
- C compiler flags for JSON_C, overriding pkg-config
- JSON_C_LIBS linker flags for JSON_C, overriding pkg-config
- CURSES_LIBS linker flags for curses lookup, overriding automatic lookup, to
- be used with explicit selection via --with-curses=arg
- BDB_CFLAGS compiler flags necessary to preprocess/compile for Berkeley DB
- BDB_LIBS linker flags for Berkeley DB, overriding automatic lookup
-
-Use these variables to override the choices made by `configure' or to help
-it to find libraries and programs with nonstandard names/locations.
-
-Report bugs to <ws-opensource-cobol-contact@osscons.jp>.
-GnuCOBOL OSS Consortium patch home page: <https://github.com/opensourcecobol/gnucobol-osscons-patch>.
-_ACEOF
-ac_status=$?
-fi
-
-if test "$ac_init_help" = "recursive"; then
- # If there are subdirs, report their specific --help.
- for ac_dir in : $ac_subdirs_all; do test "x$ac_dir" = x: && continue
- test -d "$ac_dir" ||
- { cd "$srcdir" && ac_pwd=`pwd` && srcdir=. && test -d "$ac_dir"; } ||
- continue
- ac_builddir=.
-
-case "$ac_dir" in
-.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;;
-*)
- ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'`
- # A ".." for each directory in $ac_dir_suffix.
- ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'`
- case $ac_top_builddir_sub in
- "") ac_top_builddir_sub=. ac_top_build_prefix= ;;
- *) ac_top_build_prefix=$ac_top_builddir_sub/ ;;
- esac ;;
-esac
-ac_abs_top_builddir=$ac_pwd
-ac_abs_builddir=$ac_pwd$ac_dir_suffix
-# for backward compatibility:
-ac_top_builddir=$ac_top_build_prefix
-
-case $srcdir in
- .) # We are building in place.
- ac_srcdir=.
- ac_top_srcdir=$ac_top_builddir_sub
- ac_abs_top_srcdir=$ac_pwd ;;
- [\\/]* | ?:[\\/]* ) # Absolute name.
- ac_srcdir=$srcdir$ac_dir_suffix;
- ac_top_srcdir=$srcdir
- ac_abs_top_srcdir=$srcdir ;;
- *) # Relative name.
- ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix
- ac_top_srcdir=$ac_top_build_prefix$srcdir
- ac_abs_top_srcdir=$ac_pwd/$srcdir ;;
-esac
-ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix
-
- cd "$ac_dir" || { ac_status=$?; continue; }
- # Check for guested configure.
- if test -f "$ac_srcdir/configure.gnu"; then
- echo &&
- $SHELL "$ac_srcdir/configure.gnu" --help=recursive
- elif test -f "$ac_srcdir/configure"; then
- echo &&
- $SHELL "$ac_srcdir/configure" --help=recursive
- else
- $as_echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2
- fi || ac_status=$?
- cd "$ac_pwd" || { ac_status=$?; break; }
- done
-fi
-
-test -n "$ac_init_help" && exit $ac_status
-if $ac_init_version; then
- cat <<\_ACEOF
-GnuCOBOL OSS Consortium patch configure 3.2 patch2
-generated by GNU Autoconf 2.69
-
-Copyright (C) 2012 Free Software Foundation, Inc.
-This configure script is free software; the Free Software Foundation
-gives unlimited permission to copy, distribute and modify it.
-
-This file is part of GnuCOBOL.
-
-Copyright (C) 2001-2012, 2014-2024 Free Software Foundation, Inc.
-Written by Keisuke Nishida, Roger While, Ron Norman, Simon Sobisch,
-Edward Hart, OSS Consortium
-
-_ACEOF
- exit
-fi
-
-## ------------------------ ##
-## Autoconf initialization. ##
-## ------------------------ ##
-
-# ac_fn_c_try_compile LINENO
-# --------------------------
-# Try to compile conftest.$ac_ext, and return whether this succeeded.
-ac_fn_c_try_compile ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- rm -f conftest.$ac_objext
- if { { ac_try="$ac_compile"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_compile") 2>conftest.err
- ac_status=$?
- if test -s conftest.err; then
- grep -v '^ *+' conftest.err >conftest.er1
- cat conftest.er1 >&5
- mv -f conftest.er1 conftest.err
- fi
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; } && {
- test -z "$ac_c_werror_flag" ||
- test ! -s conftest.err
- } && test -s conftest.$ac_objext; then :
- ac_retval=0
-else
- $as_echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
- ac_retval=1
-fi
- eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
- as_fn_set_status $ac_retval
-
-} # ac_fn_c_try_compile
-
-# ac_fn_c_try_cpp LINENO
-# ----------------------
-# Try to preprocess conftest.$ac_ext, and return whether this succeeded.
-ac_fn_c_try_cpp ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- if { { ac_try="$ac_cpp conftest.$ac_ext"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_cpp conftest.$ac_ext") 2>conftest.err
- ac_status=$?
- if test -s conftest.err; then
- grep -v '^ *+' conftest.err >conftest.er1
- cat conftest.er1 >&5
- mv -f conftest.er1 conftest.err
- fi
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; } > conftest.i && {
- test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" ||
- test ! -s conftest.err
- }; then :
- ac_retval=0
-else
- $as_echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
- ac_retval=1
-fi
- eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
- as_fn_set_status $ac_retval
-
-} # ac_fn_c_try_cpp
-
-# ac_fn_c_check_header_mongrel LINENO HEADER VAR INCLUDES
-# -------------------------------------------------------
-# Tests whether HEADER exists, giving a warning if it cannot be compiled using
-# the include files in INCLUDES and setting the cache variable VAR
-# accordingly.
-ac_fn_c_check_header_mongrel ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- if eval \${$3+:} false; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
-$as_echo_n "checking for $2... " >&6; }
-if eval \${$3+:} false; then :
- $as_echo_n "(cached) " >&6
-fi
-eval ac_res=\$$3
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-$as_echo "$ac_res" >&6; }
-else
- # Is the header compilable?
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 usability" >&5
-$as_echo_n "checking $2 usability... " >&6; }
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$4
-#include <$2>
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_header_compiler=yes
-else
- ac_header_compiler=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_compiler" >&5
-$as_echo "$ac_header_compiler" >&6; }
-
-# Is the header present?
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 presence" >&5
-$as_echo_n "checking $2 presence... " >&6; }
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <$2>
-_ACEOF
-if ac_fn_c_try_cpp "$LINENO"; then :
- ac_header_preproc=yes
-else
- ac_header_preproc=no
-fi
-rm -f conftest.err conftest.i conftest.$ac_ext
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_preproc" >&5
-$as_echo "$ac_header_preproc" >&6; }
-
-# So? What about this header?
-case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in #((
- yes:no: )
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&5
-$as_echo "$as_me: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&2;}
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5
-$as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;}
- ;;
- no:yes:* )
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: present but cannot be compiled" >&5
-$as_echo "$as_me: WARNING: $2: present but cannot be compiled" >&2;}
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: check for missing prerequisite headers?" >&5
-$as_echo "$as_me: WARNING: $2: check for missing prerequisite headers?" >&2;}
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: see the Autoconf documentation" >&5
-$as_echo "$as_me: WARNING: $2: see the Autoconf documentation" >&2;}
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&5
-$as_echo "$as_me: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&2;}
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5
-$as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;}
-( $as_echo "## ----------------------------------------------------- ##
-## Report this to ws-opensource-cobol-contact@osscons.jp ##
-## ----------------------------------------------------- ##"
- ) | sed "s/^/$as_me: WARNING: /" >&2
- ;;
-esac
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
-$as_echo_n "checking for $2... " >&6; }
-if eval \${$3+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- eval "$3=\$ac_header_compiler"
-fi
-eval ac_res=\$$3
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-$as_echo "$ac_res" >&6; }
-fi
- eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
-
-} # ac_fn_c_check_header_mongrel
-
-# ac_fn_c_try_run LINENO
-# ----------------------
-# Try to link conftest.$ac_ext, and return whether this succeeded. Assumes
-# that executables *can* be run.
-ac_fn_c_try_run ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- if { { ac_try="$ac_link"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_link") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; } && { ac_try='./conftest$ac_exeext'
- { { case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_try") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; }; then :
- ac_retval=0
-else
- $as_echo "$as_me: program exited with status $ac_status" >&5
- $as_echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
- ac_retval=$ac_status
-fi
- rm -rf conftest.dSYM conftest_ipa8_conftest.oo
- eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
- as_fn_set_status $ac_retval
-
-} # ac_fn_c_try_run
-
-# ac_fn_c_check_header_compile LINENO HEADER VAR INCLUDES
-# -------------------------------------------------------
-# Tests whether HEADER exists and can be compiled using the include files in
-# INCLUDES, setting the cache variable VAR accordingly.
-ac_fn_c_check_header_compile ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
-$as_echo_n "checking for $2... " >&6; }
-if eval \${$3+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$4
-#include <$2>
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- eval "$3=yes"
-else
- eval "$3=no"
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-eval ac_res=\$$3
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-$as_echo "$ac_res" >&6; }
- eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
-
-} # ac_fn_c_check_header_compile
-
-# ac_fn_c_try_link LINENO
-# -----------------------
-# Try to link conftest.$ac_ext, and return whether this succeeded.
-ac_fn_c_try_link ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- rm -f conftest.$ac_objext conftest$ac_exeext
- if { { ac_try="$ac_link"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_link") 2>conftest.err
- ac_status=$?
- if test -s conftest.err; then
- grep -v '^ *+' conftest.err >conftest.er1
- cat conftest.er1 >&5
- mv -f conftest.er1 conftest.err
- fi
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; } && {
- test -z "$ac_c_werror_flag" ||
- test ! -s conftest.err
- } && test -s conftest$ac_exeext && {
- test "$cross_compiling" = yes ||
- test -x conftest$ac_exeext
- }; then :
- ac_retval=0
-else
- $as_echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
- ac_retval=1
-fi
- # Delete the IPA/IPO (Inter Procedural Analysis/Optimization) information
- # created by the PGI compiler (conftest_ipa8_conftest.oo), as it would
- # interfere with the next link command; also delete a directory that is
- # left behind by Apple's compiler. We do this before executing the actions.
- rm -rf conftest.dSYM conftest_ipa8_conftest.oo
- eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
- as_fn_set_status $ac_retval
-
-} # ac_fn_c_try_link
-
-# ac_fn_c_check_func LINENO FUNC VAR
-# ----------------------------------
-# Tests whether FUNC exists, setting the cache variable VAR accordingly
-ac_fn_c_check_func ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
-$as_echo_n "checking for $2... " >&6; }
-if eval \${$3+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-/* Define $2 to an innocuous variant, in case <limits.h> declares $2.
- For example, HP-UX 11i <limits.h> declares gettimeofday. */
-#define $2 innocuous_$2
-
-/* System header to define __stub macros and hopefully few prototypes,
- which can conflict with char $2 (); below.
- Prefer <limits.h> to <assert.h> if __STDC__ is defined, since
- <limits.h> exists even on freestanding compilers. */
-
-#ifdef __STDC__
-# include <limits.h>
-#else
-# include <assert.h>
-#endif
-
-#undef $2
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char $2 ();
-/* The GNU C library defines this for functions which it implements
- to always fail with ENOSYS. Some functions are actually named
- something starting with __ and the normal name is an alias. */
-#if defined __stub_$2 || defined __stub___$2
-choke me
-#endif
-
-int
-main ()
-{
-return $2 ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- eval "$3=yes"
-else
- eval "$3=no"
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-fi
-eval ac_res=\$$3
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-$as_echo "$ac_res" >&6; }
- eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
-
-} # ac_fn_c_check_func
-
-# ac_fn_c_check_type LINENO TYPE VAR INCLUDES
-# -------------------------------------------
-# Tests whether TYPE exists after having included INCLUDES, setting cache
-# variable VAR accordingly.
-ac_fn_c_check_type ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
-$as_echo_n "checking for $2... " >&6; }
-if eval \${$3+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- eval "$3=no"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$4
-int
-main ()
-{
-if (sizeof ($2))
- return 0;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$4
-int
-main ()
-{
-if (sizeof (($2)))
- return 0;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
-
-else
- eval "$3=yes"
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-eval ac_res=\$$3
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-$as_echo "$ac_res" >&6; }
- eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
-
-} # ac_fn_c_check_type
-
-# ac_fn_c_check_decl LINENO SYMBOL VAR INCLUDES
-# ---------------------------------------------
-# Tests whether SYMBOL is declared in INCLUDES, setting cache variable VAR
-# accordingly.
-ac_fn_c_check_decl ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- as_decl_name=`echo $2|sed 's/ *(.*//'`
- as_decl_use=`echo $2|sed -e 's/(/((/' -e 's/)/) 0&/' -e 's/,/) 0& (/g'`
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $as_decl_name is declared" >&5
-$as_echo_n "checking whether $as_decl_name is declared... " >&6; }
-if eval \${$3+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$4
-int
-main ()
-{
-#ifndef $as_decl_name
-#ifdef __cplusplus
- (void) $as_decl_use;
-#else
- (void) $as_decl_name;
-#endif
-#endif
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- eval "$3=yes"
-else
- eval "$3=no"
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-eval ac_res=\$$3
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-$as_echo "$ac_res" >&6; }
- eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
-
-} # ac_fn_c_check_decl
-
-# ac_fn_c_compute_int LINENO EXPR VAR INCLUDES
-# --------------------------------------------
-# Tries to find the compile-time value of EXPR in a program that includes
-# INCLUDES, setting VAR accordingly. Returns whether the value could be
-# computed
-ac_fn_c_compute_int ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- if test "$cross_compiling" = yes; then
- # Depending upon the size, compute the lo and hi bounds.
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$4
-int
-main ()
-{
-static int test_array [1 - 2 * !(($2) >= 0)];
-test_array [0] = 0;
-return test_array [0];
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_lo=0 ac_mid=0
- while :; do
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$4
-int
-main ()
-{
-static int test_array [1 - 2 * !(($2) <= $ac_mid)];
-test_array [0] = 0;
-return test_array [0];
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_hi=$ac_mid; break
-else
- as_fn_arith $ac_mid + 1 && ac_lo=$as_val
- if test $ac_lo -le $ac_mid; then
- ac_lo= ac_hi=
- break
- fi
- as_fn_arith 2 '*' $ac_mid + 1 && ac_mid=$as_val
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- done
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$4
-int
-main ()
-{
-static int test_array [1 - 2 * !(($2) < 0)];
-test_array [0] = 0;
-return test_array [0];
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_hi=-1 ac_mid=-1
- while :; do
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$4
-int
-main ()
-{
-static int test_array [1 - 2 * !(($2) >= $ac_mid)];
-test_array [0] = 0;
-return test_array [0];
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_lo=$ac_mid; break
-else
- as_fn_arith '(' $ac_mid ')' - 1 && ac_hi=$as_val
- if test $ac_mid -le $ac_hi; then
- ac_lo= ac_hi=
- break
- fi
- as_fn_arith 2 '*' $ac_mid && ac_mid=$as_val
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- done
-else
- ac_lo= ac_hi=
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-# Binary search between lo and hi bounds.
-while test "x$ac_lo" != "x$ac_hi"; do
- as_fn_arith '(' $ac_hi - $ac_lo ')' / 2 + $ac_lo && ac_mid=$as_val
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$4
-int
-main ()
-{
-static int test_array [1 - 2 * !(($2) <= $ac_mid)];
-test_array [0] = 0;
-return test_array [0];
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_hi=$ac_mid
-else
- as_fn_arith '(' $ac_mid ')' + 1 && ac_lo=$as_val
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-done
-case $ac_lo in #((
-?*) eval "$3=\$ac_lo"; ac_retval=0 ;;
-'') ac_retval=1 ;;
-esac
- else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$4
-static long int longval () { return $2; }
-static unsigned long int ulongval () { return $2; }
-#include <stdio.h>
-#include <stdlib.h>
-int
-main ()
-{
-
- FILE *f = fopen ("conftest.val", "w");
- if (! f)
- return 1;
- if (($2) < 0)
- {
- long int i = longval ();
- if (i != ($2))
- return 1;
- fprintf (f, "%ld", i);
- }
- else
- {
- unsigned long int i = ulongval ();
- if (i != ($2))
- return 1;
- fprintf (f, "%lu", i);
- }
- /* Do not output a trailing newline, as this causes \r\n confusion
- on some platforms. */
- return ferror (f) || fclose (f) != 0;
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- echo >>conftest.val; read $3 <conftest.val; ac_retval=0
-else
- ac_retval=1
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-rm -f conftest.val
-
- fi
- eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
- as_fn_set_status $ac_retval
-
-} # ac_fn_c_compute_int
-cat >config.log <<_ACEOF
-This file contains any messages produced by compilers while
-running configure, to aid debugging if configure makes a mistake.
-
-It was created by GnuCOBOL OSS Consortium patch $as_me 3.2 patch2, which was
-generated by GNU Autoconf 2.69. Invocation command line was
-
- $ $0 $@
-
-_ACEOF
-exec 5>>config.log
-{
-cat <<_ASUNAME
-## --------- ##
-## Platform. ##
-## --------- ##
-
-hostname = `(hostname || uname -n) 2>/dev/null | sed 1q`
-uname -m = `(uname -m) 2>/dev/null || echo unknown`
-uname -r = `(uname -r) 2>/dev/null || echo unknown`
-uname -s = `(uname -s) 2>/dev/null || echo unknown`
-uname -v = `(uname -v) 2>/dev/null || echo unknown`
-
-/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown`
-/bin/uname -X = `(/bin/uname -X) 2>/dev/null || echo unknown`
-
-/bin/arch = `(/bin/arch) 2>/dev/null || echo unknown`
-/usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown`
-/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown`
-/usr/bin/hostinfo = `(/usr/bin/hostinfo) 2>/dev/null || echo unknown`
-/bin/machine = `(/bin/machine) 2>/dev/null || echo unknown`
-/usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown`
-/bin/universe = `(/bin/universe) 2>/dev/null || echo unknown`
-
-_ASUNAME
-
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- $as_echo "PATH: $as_dir"
- done
-IFS=$as_save_IFS
-
-} >&5
-
-cat >&5 <<_ACEOF
-
-
-## ----------- ##
-## Core tests. ##
-## ----------- ##
-
-_ACEOF
-
-
-# Keep a trace of the command line.
-# Strip out --no-create and --no-recursion so they do not pile up.
-# Strip out --silent because we don't want to record it for future runs.
-# Also quote any args containing shell meta-characters.
-# Make two passes to allow for proper duplicate-argument suppression.
-ac_configure_args=
-ac_configure_args0=
-ac_configure_args1=
-ac_must_keep_next=false
-for ac_pass in 1 2
-do
- for ac_arg
- do
- case $ac_arg in
- -no-create | --no-c* | -n | -no-recursion | --no-r*) continue ;;
- -q | -quiet | --quiet | --quie | --qui | --qu | --q \
- | -silent | --silent | --silen | --sile | --sil)
- continue ;;
- *\'*)
- ac_arg=`$as_echo "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;;
- esac
- case $ac_pass in
- 1) as_fn_append ac_configure_args0 " '$ac_arg'" ;;
- 2)
- as_fn_append ac_configure_args1 " '$ac_arg'"
- if test $ac_must_keep_next = true; then
- ac_must_keep_next=false # Got value, back to normal.
- else
- case $ac_arg in
- *=* | --config-cache | -C | -disable-* | --disable-* \
- | -enable-* | --enable-* | -gas | --g* | -nfp | --nf* \
- | -q | -quiet | --q* | -silent | --sil* | -v | -verb* \
- | -with-* | --with-* | -without-* | --without-* | --x)
- case "$ac_configure_args0 " in
- "$ac_configure_args1"*" '$ac_arg' "* ) continue ;;
- esac
- ;;
- -* ) ac_must_keep_next=true ;;
- esac
- fi
- as_fn_append ac_configure_args " '$ac_arg'"
- ;;
- esac
- done
-done
-{ ac_configure_args0=; unset ac_configure_args0;}
-{ ac_configure_args1=; unset ac_configure_args1;}
-
-# When interrupted or exit'd, cleanup temporary files, and complete
-# config.log. We remove comments because anyway the quotes in there
-# would cause problems or look ugly.
-# WARNING: Use '\'' to represent an apostrophe within the trap.
-# WARNING: Do not start the trap code with a newline, due to a FreeBSD 4.0 bug.
-trap 'exit_status=$?
- # Save into config.log some information that might help in debugging.
- {
- echo
-
- $as_echo "## ---------------- ##
-## Cache variables. ##
-## ---------------- ##"
- echo
- # The following way of writing the cache mishandles newlines in values,
-(
- for ac_var in `(set) 2>&1 | sed -n '\''s/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'\''`; do
- eval ac_val=\$$ac_var
- case $ac_val in #(
- *${as_nl}*)
- case $ac_var in #(
- *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5
-$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;;
- esac
- case $ac_var in #(
- _ | IFS | as_nl) ;; #(
- BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #(
- *) { eval $ac_var=; unset $ac_var;} ;;
- esac ;;
- esac
- done
- (set) 2>&1 |
- case $as_nl`(ac_space='\'' '\''; set) 2>&1` in #(
- *${as_nl}ac_space=\ *)
- sed -n \
- "s/'\''/'\''\\\\'\'''\''/g;
- s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\''\\2'\''/p"
- ;; #(
- *)
- sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p"
- ;;
- esac |
- sort
-)
- echo
-
- $as_echo "## ----------------- ##
-## Output variables. ##
-## ----------------- ##"
- echo
- for ac_var in $ac_subst_vars
- do
- eval ac_val=\$$ac_var
- case $ac_val in
- *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;;
- esac
- $as_echo "$ac_var='\''$ac_val'\''"
- done | sort
- echo
-
- if test -n "$ac_subst_files"; then
- $as_echo "## ------------------- ##
-## File substitutions. ##
-## ------------------- ##"
- echo
- for ac_var in $ac_subst_files
- do
- eval ac_val=\$$ac_var
- case $ac_val in
- *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;;
- esac
- $as_echo "$ac_var='\''$ac_val'\''"
- done | sort
- echo
- fi
-
- if test -s confdefs.h; then
- $as_echo "## ----------- ##
-## confdefs.h. ##
-## ----------- ##"
- echo
- cat confdefs.h
- echo
- fi
- test "$ac_signal" != 0 &&
- $as_echo "$as_me: caught signal $ac_signal"
- $as_echo "$as_me: exit $exit_status"
- } >&5
- rm -f core *.core core.conftest.* &&
- rm -f -r conftest* confdefs* conf$$* $ac_clean_files &&
- exit $exit_status
-' 0
-for ac_signal in 1 2 13 15; do
- trap 'ac_signal='$ac_signal'; as_fn_exit 1' $ac_signal
-done
-ac_signal=0
-
-# confdefs.h avoids OS command line length limits that DEFS can exceed.
-rm -f -r conftest* confdefs.h
-
-$as_echo "/* confdefs.h */" > confdefs.h
-
-# Predefined preprocessor variables.
-
-cat >>confdefs.h <<_ACEOF
-#define PACKAGE_NAME "$PACKAGE_NAME"
-_ACEOF
-
-cat >>confdefs.h <<_ACEOF
-#define PACKAGE_TARNAME "$PACKAGE_TARNAME"
-_ACEOF
-
-cat >>confdefs.h <<_ACEOF
-#define PACKAGE_VERSION "$PACKAGE_VERSION"
-_ACEOF
-
-cat >>confdefs.h <<_ACEOF
-#define PACKAGE_STRING "$PACKAGE_STRING"
-_ACEOF
-
-cat >>confdefs.h <<_ACEOF
-#define PACKAGE_BUGREPORT "$PACKAGE_BUGREPORT"
-_ACEOF
-
-cat >>confdefs.h <<_ACEOF
-#define PACKAGE_URL "$PACKAGE_URL"
-_ACEOF
-
-
-# Let the site file select an alternate cache file if it wants to.
-# Prefer an explicitly selected file to automatically selected ones.
-ac_site_file1=NONE
-ac_site_file2=NONE
-if test -n "$CONFIG_SITE"; then
- # We do not want a PATH search for config.site.
- case $CONFIG_SITE in #((
- -*) ac_site_file1=./$CONFIG_SITE;;
- */*) ac_site_file1=$CONFIG_SITE;;
- *) ac_site_file1=./$CONFIG_SITE;;
- esac
-elif test "x$prefix" != xNONE; then
- ac_site_file1=$prefix/share/config.site
- ac_site_file2=$prefix/etc/config.site
-else
- ac_site_file1=$ac_default_prefix/share/config.site
- ac_site_file2=$ac_default_prefix/etc/config.site
-fi
-for ac_site_file in "$ac_site_file1" "$ac_site_file2"
-do
- test "x$ac_site_file" = xNONE && continue
- if test /dev/null != "$ac_site_file" && test -r "$ac_site_file"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: loading site script $ac_site_file" >&5
-$as_echo "$as_me: loading site script $ac_site_file" >&6;}
- sed 's/^/| /' "$ac_site_file" >&5
- . "$ac_site_file" \
- || { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "failed to load site script $ac_site_file
-See \`config.log' for more details" "$LINENO" 5; }
- fi
-done
-
-if test -r "$cache_file"; then
- # Some versions of bash will fail to source /dev/null (special files
- # actually), so we avoid doing that. DJGPP emulates it as a regular file.
- if test /dev/null != "$cache_file" && test -f "$cache_file"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: loading cache $cache_file" >&5
-$as_echo "$as_me: loading cache $cache_file" >&6;}
- case $cache_file in
- [\\/]* | ?:[\\/]* ) . "$cache_file";;
- *) . "./$cache_file";;
- esac
- fi
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: creating cache $cache_file" >&5
-$as_echo "$as_me: creating cache $cache_file" >&6;}
- >$cache_file
-fi
-
-gt_needs="$gt_needs "
-# Check that the precious variables saved in the cache have kept the same
-# value.
-ac_cache_corrupted=false
-for ac_var in $ac_precious_vars; do
- eval ac_old_set=\$ac_cv_env_${ac_var}_set
- eval ac_new_set=\$ac_env_${ac_var}_set
- eval ac_old_val=\$ac_cv_env_${ac_var}_value
- eval ac_new_val=\$ac_env_${ac_var}_value
- case $ac_old_set,$ac_new_set in
- set,)
- { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5
-$as_echo "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;}
- ac_cache_corrupted=: ;;
- ,set)
- { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was not set in the previous run" >&5
-$as_echo "$as_me: error: \`$ac_var' was not set in the previous run" >&2;}
- ac_cache_corrupted=: ;;
- ,);;
- *)
- if test "x$ac_old_val" != "x$ac_new_val"; then
- # differences in whitespace do not lead to failure.
- ac_old_val_w=`echo x $ac_old_val`
- ac_new_val_w=`echo x $ac_new_val`
- if test "$ac_old_val_w" != "$ac_new_val_w"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' has changed since the previous run:" >&5
-$as_echo "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;}
- ac_cache_corrupted=:
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&5
-$as_echo "$as_me: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&2;}
- eval $ac_var=\$ac_old_val
- fi
- { $as_echo "$as_me:${as_lineno-$LINENO}: former value: \`$ac_old_val'" >&5
-$as_echo "$as_me: former value: \`$ac_old_val'" >&2;}
- { $as_echo "$as_me:${as_lineno-$LINENO}: current value: \`$ac_new_val'" >&5
-$as_echo "$as_me: current value: \`$ac_new_val'" >&2;}
- fi;;
- esac
- # Pass precious variables to config.status.
- if test "$ac_new_set" = set; then
- case $ac_new_val in
- *\'*) ac_arg=$ac_var=`$as_echo "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;;
- *) ac_arg=$ac_var=$ac_new_val ;;
- esac
- case " $ac_configure_args " in
- *" '$ac_arg' "*) ;; # Avoid dups. Use of quotes ensures accuracy.
- *) as_fn_append ac_configure_args " '$ac_arg'" ;;
- esac
- fi
-done
-if $ac_cache_corrupted; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
- { $as_echo "$as_me:${as_lineno-$LINENO}: error: changes in the environment can compromise the build" >&5
-$as_echo "$as_me: error: changes in the environment can compromise the build" >&2;}
- as_fn_error $? "run \`make distclean' and/or \`rm $cache_file' and start over" "$LINENO" 5
-fi
-## -------------------- ##
-## Main body of script. ##
-## -------------------- ##
-
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-
-
-
-
-
-ac_config_headers="$ac_config_headers config.h"
-
-ac_config_commands="$ac_config_commands tests/atconfig"
-
-
-ac_aux_dir=
-for ac_dir in build_aux "$srcdir"/build_aux; do
- if test -f "$ac_dir/install-sh"; then
- ac_aux_dir=$ac_dir
- ac_install_sh="$ac_aux_dir/install-sh -c"
- break
- elif test -f "$ac_dir/install.sh"; then
- ac_aux_dir=$ac_dir
- ac_install_sh="$ac_aux_dir/install.sh -c"
- break
- elif test -f "$ac_dir/shtool"; then
- ac_aux_dir=$ac_dir
- ac_install_sh="$ac_aux_dir/shtool install -c"
- break
- fi
-done
-if test -z "$ac_aux_dir"; then
- as_fn_error $? "cannot find install-sh, install.sh, or shtool in build_aux \"$srcdir\"/build_aux" "$LINENO" 5
-fi
-
-# These three variables are undocumented and unsupported,
-# and are intended to be withdrawn in a future Autoconf release.
-# They can cause serious problems if a builder's source tree is in a directory
-# whose full name contains unusual characters.
-ac_config_guess="$SHELL $ac_aux_dir/config.guess" # Please don't use this var.
-ac_config_sub="$SHELL $ac_aux_dir/config.sub" # Please don't use this var.
-ac_configure="$SHELL $ac_aux_dir/configure" # Please don't use this var.
-
-
-
-ac_config_files="$ac_config_files Makefile libcob/Makefile lib/Makefile cobc/Makefile bin/Makefile po/Makefile.in doc/Makefile config/Makefile copy/Makefile tests/Makefile tests/cobol85/Makefile extras/Makefile"
-
-
-ac_config_files="$ac_config_files bin/cob-config"
-
-ac_config_files="$ac_config_files pre-inst-env:build_aux/pre-inst-env.in"
-
-ac_config_files="$ac_config_files tests/atlocal"
-
-ac_config_files="$ac_config_files tests/run_prog_manual.sh"
-
-
-# In general: don't export/setenv but pass as option to configure
-# this has the benefit that re-runs will take the same and "sudo"
-# or later "make" (possibly as different user) will use the same
-# set of tools
-# Note for SUN Solaris (gcc)
-# options to configure: CC="gcc -m64" --libdir=/usr/local/lib/sparcv9
-# or:
-# options to configure: CFLAGS=-m64 LDFLAGS="-m64 -L/usr/local/lib/sparcv9"
-#
-# Hack for AIX 64 bit (gcc)
-# Required -
-# options to configure: CC="gcc -maix64" / CC="xlc -q64"
-# or:
-# options to configure: CFLAGS=-maix64 and LDFLAGS=-maix64
-# Note: AIX commonly uses -Lpath like GNU/Linux would use -Lpath -Rpath
-
-if test "x$OBJECT_MODE" = x; then
- echo "$CC $CFLAGS" | grep ' -maix32' 1>/dev/null 2>&1
- check1=$?
- echo "$CC $CFLAGS" | grep ' -q32' 1>/dev/null 2>&1
- check2=$?
- if test $check1 -eq 0 -o $check2 -eq 0; then
- OBJECT_MODE=32 # for libtool
- fi
- echo "$CC $CFLAGS" | grep ' -maix64' 1>/dev/null 2>&1
- check1=$?
- echo "$CC $CFLAGS" | grep ' -q64' 1>/dev/null 2>&1
- check2=$?
- if test $check1 -eq 0 -o $check2 -eq 0; then
- OBJECT_MODE=64 # for libtool
- fi
- unset check1
- unset check2
-fi
-
-if test "$OBJECT_MODE" = "64"; then
- if test "x$AR" = x; then
- if test -f /usr/ccs/bin/ar; then
- AR="/usr/ccs/bin/ar -X64"
- else
- AR="ar -X64"
- fi
- fi
- if test "x$NM" = x; then
- if test -f /usr/ccs/bin/nm; then
- NM="/usr/ccs/bin/nm -X64 -B"
- else
- NM="nm -X64 -B"
- fi
- fi
-elif test "$OBJECT_MODE" = "32"; then
- if test "x$AR" = x; then
- if test -f /usr/ccs/bin/ar; then
- AR="/usr/ccs/bin/ar -X32"
- else
- AR="ar -X32"
- fi
- fi
- if test "x$NM" = x; then
- if test -f /usr/ccs/bin/nm; then
- NM="/usr/ccs/bin/nm -X32 -B"
- else
- NM="nm -X32 -B"
- fi
- fi
-fi
-
-am__api_version='1.16'
-
-# Find a good install program. We prefer a C program (faster),
-# so one script is as good as another. But avoid the broken or
-# incompatible versions:
-# SysV /etc/install, /usr/sbin/install
-# SunOS /usr/etc/install
-# IRIX /sbin/install
-# AIX /bin/install
-# AmigaOS /C/install, which installs bootblocks on floppy discs
-# AIX 4 /usr/bin/installbsd, which doesn't work without a -g flag
-# AFS /usr/afsws/bin/install, which mishandles nonexistent args
-# SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff"
-# OS/2's system install, which has a completely different semantic
-# ./install, which can be erroneously created by make from ./install.sh.
-# Reject install programs that cannot install multiple files.
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for a BSD-compatible install" >&5
-$as_echo_n "checking for a BSD-compatible install... " >&6; }
-if test -z "$INSTALL"; then
-if ${ac_cv_path_install+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- # Account for people who put trailing slashes in PATH elements.
-case $as_dir/ in #((
- ./ | .// | /[cC]/* | \
- /etc/* | /usr/sbin/* | /usr/etc/* | /sbin/* | /usr/afsws/bin/* | \
- ?:[\\/]os2[\\/]install[\\/]* | ?:[\\/]OS2[\\/]INSTALL[\\/]* | \
- /usr/ucb/* ) ;;
- *)
- # OSF1 and SCO ODT 3.0 have their own names for install.
- # Don't use installbsd from OSF since it installs stuff as root
- # by default.
- for ac_prog in ginstall scoinst install; do
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_prog$ac_exec_ext"; then
- if test $ac_prog = install &&
- grep dspmsg "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then
- # AIX install. It has an incompatible calling convention.
- :
- elif test $ac_prog = install &&
- grep pwplus "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then
- # program-specific install script used by HP pwplus--don't use.
- :
- else
- rm -rf conftest.one conftest.two conftest.dir
- echo one > conftest.one
- echo two > conftest.two
- mkdir conftest.dir
- if "$as_dir/$ac_prog$ac_exec_ext" -c conftest.one conftest.two "`pwd`/conftest.dir" &&
- test -s conftest.one && test -s conftest.two &&
- test -s conftest.dir/conftest.one &&
- test -s conftest.dir/conftest.two
- then
- ac_cv_path_install="$as_dir/$ac_prog$ac_exec_ext -c"
- break 3
- fi
- fi
- fi
- done
- done
- ;;
-esac
-
- done
-IFS=$as_save_IFS
-
-rm -rf conftest.one conftest.two conftest.dir
-
-fi
- if test "${ac_cv_path_install+set}" = set; then
- INSTALL=$ac_cv_path_install
- else
- # As a last resort, use the slow shell script. Don't cache a
- # value for INSTALL within a source directory, because that will
- # break other packages using the cache if that directory is
- # removed, or if the value is a relative name.
- INSTALL=$ac_install_sh
- fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $INSTALL" >&5
-$as_echo "$INSTALL" >&6; }
-
-# Use test -z because SunOS4 sh mishandles braces in ${var-val}.
-# It thinks the first close brace ends the variable substitution.
-test -z "$INSTALL_PROGRAM" && INSTALL_PROGRAM='${INSTALL}'
-
-test -z "$INSTALL_SCRIPT" && INSTALL_SCRIPT='${INSTALL}'
-
-test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644'
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether build environment is sane" >&5
-$as_echo_n "checking whether build environment is sane... " >&6; }
-# Reject unsafe characters in $srcdir or the absolute working directory
-# name. Accept space and tab only in the latter.
-am_lf='
-'
-case `pwd` in
- *[\\\"\#\$\&\'\`$am_lf]*)
- as_fn_error $? "unsafe absolute working directory name" "$LINENO" 5;;
-esac
-case $srcdir in
- *[\\\"\#\$\&\'\`$am_lf\ \ ]*)
- as_fn_error $? "unsafe srcdir value: '$srcdir'" "$LINENO" 5;;
-esac
-
-# Do 'set' in a subshell so we don't clobber the current shell's
-# arguments. Must try -L first in case configure is actually a
-# symlink; some systems play weird games with the mod time of symlinks
-# (eg FreeBSD returns the mod time of the symlink's containing
-# directory).
-if (
- am_has_slept=no
- for am_try in 1 2; do
- echo "timestamp, slept: $am_has_slept" > conftest.file
- set X `ls -Lt "$srcdir/configure" conftest.file 2> /dev/null`
- if test "$*" = "X"; then
- # -L didn't work.
- set X `ls -t "$srcdir/configure" conftest.file`
- fi
- if test "$*" != "X $srcdir/configure conftest.file" \
- && test "$*" != "X conftest.file $srcdir/configure"; then
-
- # If neither matched, then we have a broken ls. This can happen
- # if, for instance, CONFIG_SHELL is bash and it inherits a
- # broken ls alias from the environment. This has actually
- # happened. Such a system could not be considered "sane".
- as_fn_error $? "ls -t appears to fail. Make sure there is not a broken
- alias in your environment" "$LINENO" 5
- fi
- if test "$2" = conftest.file || test $am_try -eq 2; then
- break
- fi
- # Just in case.
- sleep 1
- am_has_slept=yes
- done
- test "$2" = conftest.file
- )
-then
- # Ok.
- :
-else
- as_fn_error $? "newly created file is older than distributed files!
-Check your system clock" "$LINENO" 5
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-# If we didn't sleep, we still need to ensure time stamps of config.status and
-# generated files are strictly newer.
-am_sleep_pid=
-if grep 'slept: no' conftest.file >/dev/null 2>&1; then
- ( sleep 1 ) &
- am_sleep_pid=$!
-fi
-
-rm -f conftest.file
-
-test "$program_prefix" != NONE &&
- program_transform_name="s&^&$program_prefix&;$program_transform_name"
-# Use a double $ so make ignores it.
-test "$program_suffix" != NONE &&
- program_transform_name="s&\$&$program_suffix&;$program_transform_name"
-# Double any \ or $.
-# By default was `s,x,x', remove it if useless.
-ac_script='s/[\\$]/&&/g;s/;s,x,x,$//'
-program_transform_name=`$as_echo "$program_transform_name" | sed "$ac_script"`
-
-# Expand $ac_aux_dir to an absolute path.
-am_aux_dir=`cd "$ac_aux_dir" && pwd`
-
-if test x"${MISSING+set}" != xset; then
- case $am_aux_dir in
- *\ * | *\ *)
- MISSING="\${SHELL} \"$am_aux_dir/missing\"" ;;
- *)
- MISSING="\${SHELL} $am_aux_dir/missing" ;;
- esac
-fi
-# Use eval to expand $SHELL
-if eval "$MISSING --is-lightweight"; then
- am_missing_run="$MISSING "
-else
- am_missing_run=
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: 'missing' script is too old or missing" >&5
-$as_echo "$as_me: WARNING: 'missing' script is too old or missing" >&2;}
-fi
-
-if test x"${install_sh+set}" != xset; then
- case $am_aux_dir in
- *\ * | *\ *)
- install_sh="\${SHELL} '$am_aux_dir/install-sh'" ;;
- *)
- install_sh="\${SHELL} $am_aux_dir/install-sh"
- esac
-fi
-
-# Installed binaries are usually stripped using 'strip' when the user
-# run "make install-strip". However 'strip' might not be the right
-# tool to use in cross-compilation environments, therefore Automake
-# will honor the 'STRIP' environment variable to overrule this program.
-if test "$cross_compiling" != no; then
- if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args.
-set dummy ${ac_tool_prefix}strip; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_STRIP+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$STRIP"; then
- ac_cv_prog_STRIP="$STRIP" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_STRIP="${ac_tool_prefix}strip"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-STRIP=$ac_cv_prog_STRIP
-if test -n "$STRIP"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $STRIP" >&5
-$as_echo "$STRIP" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_STRIP"; then
- ac_ct_STRIP=$STRIP
- # Extract the first word of "strip", so it can be a program name with args.
-set dummy strip; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_ac_ct_STRIP+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_STRIP"; then
- ac_cv_prog_ac_ct_STRIP="$ac_ct_STRIP" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_ac_ct_STRIP="strip"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_STRIP=$ac_cv_prog_ac_ct_STRIP
-if test -n "$ac_ct_STRIP"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_STRIP" >&5
-$as_echo "$ac_ct_STRIP" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_ct_STRIP" = x; then
- STRIP=":"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- STRIP=$ac_ct_STRIP
- fi
-else
- STRIP="$ac_cv_prog_STRIP"
-fi
-
-fi
-INSTALL_STRIP_PROGRAM="\$(install_sh) -c -s"
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for a thread-safe mkdir -p" >&5
-$as_echo_n "checking for a thread-safe mkdir -p... " >&6; }
-if test -z "$MKDIR_P"; then
- if ${ac_cv_path_mkdir+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH$PATH_SEPARATOR/opt/sfw/bin
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_prog in mkdir gmkdir; do
- for ac_exec_ext in '' $ac_executable_extensions; do
- as_fn_executable_p "$as_dir/$ac_prog$ac_exec_ext" || continue
- case `"$as_dir/$ac_prog$ac_exec_ext" --version 2>&1` in #(
- 'mkdir (GNU coreutils) '* | \
- 'mkdir (coreutils) '* | \
- 'mkdir (fileutils) '4.1*)
- ac_cv_path_mkdir=$as_dir/$ac_prog$ac_exec_ext
- break 3;;
- esac
- done
- done
- done
-IFS=$as_save_IFS
-
-fi
-
- test -d ./--version && rmdir ./--version
- if test "${ac_cv_path_mkdir+set}" = set; then
- MKDIR_P="$ac_cv_path_mkdir -p"
- else
- # As a last resort, use the slow shell script. Don't cache a
- # value for MKDIR_P within a source directory, because that will
- # break other packages using the cache if that directory is
- # removed, or if the value is a relative name.
- MKDIR_P="$ac_install_sh -d"
- fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $MKDIR_P" >&5
-$as_echo "$MKDIR_P" >&6; }
-
-for ac_prog in gawk mawk nawk awk
-do
- # Extract the first word of "$ac_prog", so it can be a program name with args.
-set dummy $ac_prog; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_AWK+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$AWK"; then
- ac_cv_prog_AWK="$AWK" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_AWK="$ac_prog"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-AWK=$ac_cv_prog_AWK
-if test -n "$AWK"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AWK" >&5
-$as_echo "$AWK" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- test -n "$AWK" && break
-done
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE-make} sets \$(MAKE)" >&5
-$as_echo_n "checking whether ${MAKE-make} sets \$(MAKE)... " >&6; }
-set x ${MAKE-make}
-ac_make=`$as_echo "$2" | sed 's/+/p/g; s/[^a-zA-Z0-9_]/_/g'`
-if eval \${ac_cv_prog_make_${ac_make}_set+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat >conftest.make <<\_ACEOF
-SHELL = /bin/sh
-all:
- @echo '@@@%%%=$(MAKE)=@@@%%%'
-_ACEOF
-# GNU make sometimes prints "make[1]: Entering ...", which would confuse us.
-case `${MAKE-make} -f conftest.make 2>/dev/null` in
- *@@@%%%=?*=@@@%%%*)
- eval ac_cv_prog_make_${ac_make}_set=yes;;
- *)
- eval ac_cv_prog_make_${ac_make}_set=no;;
-esac
-rm -f conftest.make
-fi
-if eval test \$ac_cv_prog_make_${ac_make}_set = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
- SET_MAKE=
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- SET_MAKE="MAKE=${MAKE-make}"
-fi
-
-rm -rf .tst 2>/dev/null
-mkdir .tst 2>/dev/null
-if test -d .tst; then
- am__leading_dot=.
-else
- am__leading_dot=_
-fi
-rmdir .tst 2>/dev/null
-
-# Check whether --enable-silent-rules was given.
-if test "${enable_silent_rules+set}" = set; then :
- enableval=$enable_silent_rules;
-fi
-
-case $enable_silent_rules in # (((
- yes) AM_DEFAULT_VERBOSITY=0;;
- no) AM_DEFAULT_VERBOSITY=1;;
- *) AM_DEFAULT_VERBOSITY=1;;
-esac
-am_make=${MAKE-make}
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $am_make supports nested variables" >&5
-$as_echo_n "checking whether $am_make supports nested variables... " >&6; }
-if ${am_cv_make_support_nested_variables+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if $as_echo 'TRUE=$(BAR$(V))
-BAR0=false
-BAR1=true
-V=1
-am__doit:
- @$(TRUE)
-.PHONY: am__doit' | $am_make -f - >/dev/null 2>&1; then
- am_cv_make_support_nested_variables=yes
-else
- am_cv_make_support_nested_variables=no
-fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_make_support_nested_variables" >&5
-$as_echo "$am_cv_make_support_nested_variables" >&6; }
-if test $am_cv_make_support_nested_variables = yes; then
- AM_V='$(V)'
- AM_DEFAULT_V='$(AM_DEFAULT_VERBOSITY)'
-else
- AM_V=$AM_DEFAULT_VERBOSITY
- AM_DEFAULT_V=$AM_DEFAULT_VERBOSITY
-fi
-AM_BACKSLASH='\'
-
-if test "`cd $srcdir && pwd`" != "`pwd`"; then
- # Use -I$(srcdir) only when $(srcdir) != ., so that make's output
- # is not polluted with repeated "-I."
- am__isrc=' -I$(srcdir)'
- # test to see if srcdir already configured
- if test -f $srcdir/config.status; then
- as_fn_error $? "source directory already configured; run \"make distclean\" there first" "$LINENO" 5
- fi
-fi
-
-# test whether we have cygpath
-if test -z "$CYGPATH_W"; then
- if (cygpath --version) >/dev/null 2>/dev/null; then
- CYGPATH_W='cygpath -w'
- else
- CYGPATH_W=echo
- fi
-fi
-
-
-# Define the identity of the package.
- PACKAGE='gnucobol'
- VERSION='3.2 patch2'
-
-
-# Some tools Automake needs.
-
-ACLOCAL=${ACLOCAL-"${am_missing_run}aclocal-${am__api_version}"}
-
-
-AUTOCONF=${AUTOCONF-"${am_missing_run}autoconf"}
-
-
-AUTOMAKE=${AUTOMAKE-"${am_missing_run}automake-${am__api_version}"}
-
-
-AUTOHEADER=${AUTOHEADER-"${am_missing_run}autoheader"}
-
-
-MAKEINFO=${MAKEINFO-"${am_missing_run}makeinfo"}
-
-# For better backward compatibility. To be removed once Automake 1.9.x
-# dies out for good. For more background, see:
-# <https://lists.gnu.org/archive/html/automake/2012-07/msg00001.html>
-# <https://lists.gnu.org/archive/html/automake/2012-07/msg00014.html>
-mkdir_p='$(MKDIR_P)'
-
-# We need awk for the "check" target (and possibly the TAP driver). The
-# system "awk" is bad on some platforms.
-# Always define AMTAR for backward compatibility. Yes, it's still used
-# in the wild :-( We should find a proper way to deprecate it ...
-AMTAR='$${TAR-tar}'
-
-
-# We'll loop over all known methods to create a tar archive until one works.
-_am_tools='gnutar pax cpio none'
-
-am__tar='$${TAR-tar} chof - "$$tardir"' am__untar='$${TAR-tar} xf -'
-
-
-
-
-
-
-# POSIX will say in a future version that running "rm -f" with no argument
-# is OK; and we want to be able to make that assumption in our Makefile
-# recipes. So use an aggressive probe to check that the usage we want is
-# actually supported "in the wild" to an acceptable degree.
-# See automake bug#10828.
-# To make any issue more visible, cause the running configure to be aborted
-# by default if the 'rm' program in use doesn't match our expectations; the
-# user can still override this though.
-if rm -f && rm -fr && rm -rf; then : OK; else
- cat >&2 <<'END'
-Oops!
-
-Your 'rm' program seems unable to run without file operands specified
-on the command line, even when the '-f' option is present. This is contrary
-to the behaviour of most rm programs out there, and not conforming with
-the upcoming POSIX standard: <http://austingroupbugs.net/view.php?id=542>
-
-Please tell bug-automake@gnu.org about your system, including the value
-of your $PATH and any error possibly output before this message. This
-can help us improve future automake versions.
-
-END
- if test x"$ACCEPT_INFERIOR_RM_PROGRAM" = x"yes"; then
- echo 'Configuration will proceed anyway, since you have set the' >&2
- echo 'ACCEPT_INFERIOR_RM_PROGRAM variable to "yes"' >&2
- echo >&2
- else
- cat >&2 <<'END'
-Aborting the configuration process, to ensure you take notice of the issue.
-
-You can download and install GNU coreutils to get an 'rm' implementation
-that behaves properly: <https://www.gnu.org/software/coreutils/>.
-
-If you want to complete the configuration process using your problematic
-'rm' anyway, export the environment variable ACCEPT_INFERIOR_RM_PROGRAM
-to "yes", and re-run configure.
-
-END
- as_fn_error $? "Your 'rm' program is bad, sorry." "$LINENO" 5
- fi
-fi
-
-
-cat >>confdefs.h <<_ACEOF
-#define PACKAGE "$PACKAGE"
-_ACEOF
- # used for bindtextdomain and in .rc-files
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-# Check whether --enable-debug was given.
-if test "${enable_debug+set}" = set; then :
- enableval=$enable_debug;
-else
- enable_debug=no
-fi
-
-
-# Check whether --enable-hardening was given.
-if test "${enable_hardening+set}" = set; then :
- enableval=$enable_hardening;
-else
- enable_hardening="unset"
-fi
-
-
-# Check whether --enable-experimental was given.
-if test "${enable_experimental+set}" = set; then :
- enableval=$enable_experimental; if test "$enable_experimental" = yes; then
- $as_echo "#define COB_EXPERIMENTAL 1" >>confdefs.h
-
- fi
-fi
-
-
-# Check whether --enable-cobc-internal-checks was given.
-if test "${enable_cobc_internal_checks+set}" = set; then :
- enableval=$enable_cobc_internal_checks; if test "$enable_cobc_internal_checks" = yes; then
- $as_echo "#define COB_TREE_DEBUG 1" >>confdefs.h
-
- fi
-fi
-
-
-# Check whether --enable-debuglog was given.
-if test "${enable_debuglog+set}" = set; then :
- enableval=$enable_debuglog; if test "$enable_debuglog" = yes; then
- $as_echo "#define COB_DEBUG_LOG 1" >>confdefs.h
-
- fi
-fi
-
-
-# Check whether --enable-param-check was given.
-if test "${enable_param_check+set}" = set; then :
- enableval=$enable_param_check; if test "$enable_param_check" = yes; then
- $as_echo "#define COB_PARAM_CHECK 1" >>confdefs.h
-
- fi
-fi
-
-
-
-
-# Check whether --with-patch-level was given.
-if test "${with_patch_level+set}" = set; then :
- withval=$with_patch_level; case $with_patch_level in
- yes) as_fn_error $? "--with-patch-level needs an argument" "$LINENO" 5
- ;;
- no) as_fn_error $? "--without-patch-level not supported" "$LINENO" 5
- ;;
- [0-9]*)
- if test $with_patch_level -gt 99999999; then
- as_fn_error $? "patch level must not contain more than 8 digits" "$LINENO" 5
- fi
- ;;
- *) as_fn_error $? "patch level must be numeric" "$LINENO" 5
- ;;
- esac
-else
- with_patch_level=0
-fi
-
-
-cat >>confdefs.h <<_ACEOF
-#define PATCH_LEVEL $with_patch_level
-_ACEOF
-
-
-
-# Check whether --with-max-call-params was given.
-if test "${with_max_call_params+set}" = set; then :
- withval=$with_max_call_params; case $with_max_call_params in
- yes) as_fn_error $? "--with-max-call-params needs an argument" "$LINENO" 5
- ;;
- no) as_fn_error $? "--without-max-call-params not supported" "$LINENO" 5
- ;;
- 16 | 36 | 56 | 76 | 96 | 192 | 252)
- ;;
- *) as_fn_error $? "maximum number of parameters for CALL must be one of 16/36/56/76/96/192/252" "$LINENO" 5
- ;;
- esac
-else
- with_max_call_params=192
-fi
-
-
-cat >>confdefs.h <<_ACEOF
-#define MAX_CALL_FIELD_PARAMS $with_max_call_params
-_ACEOF
-
-
-
-# Basic capability tests
-
-configured_make=""
-if test -z "$MAKE"; then
- for ac_prog in make gmake gnumake
-do
- # Extract the first word of "$ac_prog", so it can be a program name with args.
-set dummy $ac_prog; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_configured_make+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$configured_make"; then
- ac_cv_prog_configured_make="$configured_make" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_configured_make="$ac_prog"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-configured_make=$ac_cv_prog_configured_make
-if test -n "$configured_make"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $configured_make" >&5
-$as_echo "$configured_make" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- test -n "$configured_make" && break
-done
-
- if test -z "$configured_make"; then
- as_fn_error $? "make not found" "$LINENO" 5
- else
- MAKE=$configured_make
-
- fi
-else
- # Extract the first word of "$MAKE", so it can be a program name with args.
-set dummy $MAKE; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_configured_make+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$configured_make"; then
- ac_cv_prog_configured_make="$configured_make" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_configured_make="$MAKE"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-configured_make=$ac_cv_prog_configured_make
-if test -n "$configured_make"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $configured_make" >&5
-$as_echo "$configured_make" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- if test -z "$configured_make"; then
- as_fn_error $? "make, configured as \"$MAKE\", was not found" "$LINENO" 5
- fi
-fi
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE} can handle common constructs" >&5
-$as_echo_n "checking whether ${MAKE} can handle common constructs... " >&6; }
-rm -f confmake.out
-cat > confmf.mk << 'END'
-NOPROG = ${SHELL} './missing' no-prog
-DEFAULTVAR = $${VAR-default}
-command = \
- somestrip=`echo "$(DEFAULTVAR)" | sed 's/.^$$\\*|/\\\\&/g'`
-test_target:
- @echo target executed > confmake.out
-END
-_am_result=no
- { echo "$as_me:$LINENO: ${MAKE} -f confmf.mk" >&5
- (${MAKE} -f confmf.mk) >&5 2>&5
- ac_status=$?
- echo "$as_me:$LINENO: \$? = $ac_status" >&5
- (exit $ac_status); }
- ## redirecting via echo to remove special chars
- __am_checkme=$(echo `cat confmake.out 2>/dev/null`)
- case $?:${__am_checkme} in #(
- '0:target executed') :
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; } ;; #(
- *) :
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "make, configured as \"$MAKE\", does not work
-See \`config.log' for more details" "$LINENO" 5; } ;;
-esac
-rm -f confmake.out confmf.mk
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE} supports order-only prerequisites" >&5
-$as_echo_n "checking whether ${MAKE} supports order-only prerequisites... " >&6; }
-rm -f confinc.* confprereq
-cat > confmf.mk << 'END'
-PREREQ := confprereq
-am__doit: am__prereq | $(PREREQ)
- @echo target am__doit. >>confinc.out
-am__prereq:
- @echo target am__prereq. >>confinc.out
-$(PREREQ):
- @touch $(PREREQ)
- @echo target $(PREREQ). >>confinc.out
-.PHONY: am__doit am__prereq
-END
-_am_result=no
- { echo "$as_me:$LINENO: ${MAKE} -f confmf.mk && ${MAKE-make} -f confmf.mk && cat confinc.out" >&5
- (${MAKE} -f confmf.mk && ${MAKE-make} -f confmf.mk && cat confinc.out) >&5 2>&5
- ac_status=$?
- echo "$as_me:$LINENO: \$? = $ac_status" >&5
- (exit $ac_status); }
- ## redirecting via echo to remove special chars
- __am_checkme=$(echo `cat confinc.out 2>/dev/null`)
- case $?:${__am_checkme} in #(
- '0:target am__prereq. target confprereq. target am__doit. target am__prereq. target am__doit.') :
- _am_result=yes ;; #(
- *) :
- ;;
-esac
-rm -f confinc.* confmf.mk confprereq
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: ${_am_result}" >&5
-$as_echo "${_am_result}" >&6; }
- if test "${_am_result}" = yes; then
- MAKE_HAS_PREREQ_ONLY_TRUE=
- MAKE_HAS_PREREQ_ONLY_FALSE='#'
-else
- MAKE_HAS_PREREQ_ONLY_TRUE='#'
- MAKE_HAS_PREREQ_ONLY_FALSE=
-fi
-
-
-curr_libs="$LIBS"
-
-enable_cflags_setting=no
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether CFLAGS -O can be modified" >&5
-$as_echo_n "checking whether CFLAGS -O can be modified... " >&6; }
-# Enable setting if the user has not specified the optimisation in CFLAGS.
-echo "$CFLAGS" | grep "\-O.*\( \|$\)" 1>/dev/null 2>/dev/null
-if test $? != 0; then
- enable_cflags_setting=yes
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_cflags_setting" >&5
-$as_echo "$enable_cflags_setting" >&6; }
-
-: ${CFLAGS="-O2"}
-
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-if test -n "$ac_tool_prefix"; then
- for ac_prog in gcc icc xlc cc
- do
- # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args.
-set dummy $ac_tool_prefix$ac_prog; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_CC+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$CC"; then
- ac_cv_prog_CC="$CC" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_CC="$ac_tool_prefix$ac_prog"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-CC=$ac_cv_prog_CC
-if test -n "$CC"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5
-$as_echo "$CC" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- test -n "$CC" && break
- done
-fi
-if test -z "$CC"; then
- ac_ct_CC=$CC
- for ac_prog in gcc icc xlc cc
-do
- # Extract the first word of "$ac_prog", so it can be a program name with args.
-set dummy $ac_prog; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_ac_ct_CC+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_CC"; then
- ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_ac_ct_CC="$ac_prog"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_CC=$ac_cv_prog_ac_ct_CC
-if test -n "$ac_ct_CC"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5
-$as_echo "$ac_ct_CC" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- test -n "$ac_ct_CC" && break
-done
-
- if test "x$ac_ct_CC" = x; then
- CC=""
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- CC=$ac_ct_CC
- fi
-fi
-
-
-test -z "$CC" && { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "no acceptable C compiler found in \$PATH
-See \`config.log' for more details" "$LINENO" 5; }
-
-# Provide some information about the compiler.
-$as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5
-set X $ac_compile
-ac_compiler=$2
-for ac_option in --version -v -V -qversion; do
- { { ac_try="$ac_compiler $ac_option >&5"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_compiler $ac_option >&5") 2>conftest.err
- ac_status=$?
- if test -s conftest.err; then
- sed '10a\
-... rest of stderr output deleted ...
- 10q' conftest.err >conftest.er1
- cat conftest.er1 >&5
- fi
- rm -f conftest.er1 conftest.err
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }
-done
-
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-ac_clean_files_save=$ac_clean_files
-ac_clean_files="$ac_clean_files a.out a.out.dSYM a.exe b.out"
-# Try to create an executable without -o first, disregard a.out.
-# It will help us diagnose broken compilers, and finding out an intuition
-# of exeext.
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C compiler works" >&5
-$as_echo_n "checking whether the C compiler works... " >&6; }
-ac_link_default=`$as_echo "$ac_link" | sed 's/ -o *conftest[^ ]*//'`
-
-# The possible output files:
-ac_files="a.out conftest.exe conftest a.exe a_out.exe b.out conftest.*"
-
-ac_rmfiles=
-for ac_file in $ac_files
-do
- case $ac_file in
- *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;;
- * ) ac_rmfiles="$ac_rmfiles $ac_file";;
- esac
-done
-rm -f $ac_rmfiles
-
-if { { ac_try="$ac_link_default"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_link_default") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then :
- # Autoconf-2.13 could set the ac_cv_exeext variable to `no'.
-# So ignore a value of `no', otherwise this would lead to `EXEEXT = no'
-# in a Makefile. We should not override ac_cv_exeext if it was cached,
-# so that the user can short-circuit this test for compilers unknown to
-# Autoconf.
-for ac_file in $ac_files ''
-do
- test -f "$ac_file" || continue
- case $ac_file in
- *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj )
- ;;
- [ab].out )
- # We found the default executable, but exeext='' is most
- # certainly right.
- break;;
- *.* )
- if test "${ac_cv_exeext+set}" = set && test "$ac_cv_exeext" != no;
- then :; else
- ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'`
- fi
- # We set ac_cv_exeext here because the later test for it is not
- # safe: cross compilers may not add the suffix if given an `-o'
- # argument, so we may need to know it at that point already.
- # Even if this section looks crufty: it has the advantage of
- # actually working.
- break;;
- * )
- break;;
- esac
-done
-test "$ac_cv_exeext" = no && ac_cv_exeext=
-
-else
- ac_file=''
-fi
-if test -z "$ac_file"; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-$as_echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
-{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error 77 "C compiler cannot create executables
-See \`config.log' for more details" "$LINENO" 5; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler default output file name" >&5
-$as_echo_n "checking for C compiler default output file name... " >&6; }
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_file" >&5
-$as_echo "$ac_file" >&6; }
-ac_exeext=$ac_cv_exeext
-
-rm -f -r a.out a.out.dSYM a.exe conftest$ac_cv_exeext b.out
-ac_clean_files=$ac_clean_files_save
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of executables" >&5
-$as_echo_n "checking for suffix of executables... " >&6; }
-if { { ac_try="$ac_link"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_link") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then :
- # If both `conftest.exe' and `conftest' are `present' (well, observable)
-# catch `conftest.exe'. For instance with Cygwin, `ls conftest' will
-# work properly (i.e., refer to `conftest.exe'), while it won't with
-# `rm'.
-for ac_file in conftest.exe conftest conftest.*; do
- test -f "$ac_file" || continue
- case $ac_file in
- *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;;
- *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'`
- break;;
- * ) break;;
- esac
-done
-else
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "cannot compute suffix of executables: cannot compile and link
-See \`config.log' for more details" "$LINENO" 5; }
-fi
-rm -f conftest conftest$ac_cv_exeext
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_exeext" >&5
-$as_echo "$ac_cv_exeext" >&6; }
-
-rm -f conftest.$ac_ext
-EXEEXT=$ac_cv_exeext
-ac_exeext=$EXEEXT
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <stdio.h>
-int
-main ()
-{
-FILE *f = fopen ("conftest.out", "w");
- return ferror (f) || fclose (f) != 0;
-
- ;
- return 0;
-}
-_ACEOF
-ac_clean_files="$ac_clean_files conftest.out"
-# Check that the compiler produces executables we can run. If not, either
-# the compiler is broken, or we cross compile.
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are cross compiling" >&5
-$as_echo_n "checking whether we are cross compiling... " >&6; }
-if test "$cross_compiling" != yes; then
- { { ac_try="$ac_link"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_link") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }
- if { ac_try='./conftest$ac_cv_exeext'
- { { case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_try") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; }; then
- cross_compiling=no
- else
- if test "$cross_compiling" = maybe; then
- cross_compiling=yes
- else
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "cannot run C compiled programs.
-If you meant to cross compile, use \`--host'.
-See \`config.log' for more details" "$LINENO" 5; }
- fi
- fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $cross_compiling" >&5
-$as_echo "$cross_compiling" >&6; }
-
-rm -f conftest.$ac_ext conftest$ac_cv_exeext conftest.out
-ac_clean_files=$ac_clean_files_save
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of object files" >&5
-$as_echo_n "checking for suffix of object files... " >&6; }
-if ${ac_cv_objext+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-rm -f conftest.o conftest.obj
-if { { ac_try="$ac_compile"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_compile") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then :
- for ac_file in conftest.o conftest.obj conftest.*; do
- test -f "$ac_file" || continue;
- case $ac_file in
- *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM ) ;;
- *) ac_cv_objext=`expr "$ac_file" : '.*\.\(.*\)'`
- break;;
- esac
-done
-else
- $as_echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
-{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "cannot compute suffix of object files: cannot compile
-See \`config.log' for more details" "$LINENO" 5; }
-fi
-rm -f conftest.$ac_cv_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_objext" >&5
-$as_echo "$ac_cv_objext" >&6; }
-OBJEXT=$ac_cv_objext
-ac_objext=$OBJEXT
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C compiler" >&5
-$as_echo_n "checking whether we are using the GNU C compiler... " >&6; }
-if ${ac_cv_c_compiler_gnu+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-#ifndef __GNUC__
- choke me
-#endif
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_compiler_gnu=yes
-else
- ac_compiler_gnu=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-ac_cv_c_compiler_gnu=$ac_compiler_gnu
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_compiler_gnu" >&5
-$as_echo "$ac_cv_c_compiler_gnu" >&6; }
-if test $ac_compiler_gnu = yes; then
- GCC=yes
-else
- GCC=
-fi
-ac_test_CFLAGS=${CFLAGS+set}
-ac_save_CFLAGS=$CFLAGS
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g" >&5
-$as_echo_n "checking whether $CC accepts -g... " >&6; }
-if ${ac_cv_prog_cc_g+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_save_c_werror_flag=$ac_c_werror_flag
- ac_c_werror_flag=yes
- ac_cv_prog_cc_g=no
- CFLAGS="-g"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_prog_cc_g=yes
-else
- CFLAGS=""
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
-
-else
- ac_c_werror_flag=$ac_save_c_werror_flag
- CFLAGS="-g"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_prog_cc_g=yes
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- ac_c_werror_flag=$ac_save_c_werror_flag
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_g" >&5
-$as_echo "$ac_cv_prog_cc_g" >&6; }
-if test "$ac_test_CFLAGS" = set; then
- CFLAGS=$ac_save_CFLAGS
-elif test $ac_cv_prog_cc_g = yes; then
- if test "$GCC" = yes; then
- CFLAGS="-g -O2"
- else
- CFLAGS="-g"
- fi
-else
- if test "$GCC" = yes; then
- CFLAGS="-O2"
- else
- CFLAGS=
- fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C89" >&5
-$as_echo_n "checking for $CC option to accept ISO C89... " >&6; }
-if ${ac_cv_prog_cc_c89+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_cv_prog_cc_c89=no
-ac_save_CC=$CC
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <stdarg.h>
-#include <stdio.h>
-struct stat;
-/* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */
-struct buf { int x; };
-FILE * (*rcsopen) (struct buf *, struct stat *, int);
-static char *e (p, i)
- char **p;
- int i;
-{
- return p[i];
-}
-static char *f (char * (*g) (char **, int), char **p, ...)
-{
- char *s;
- va_list v;
- va_start (v,p);
- s = g (p, va_arg (v,int));
- va_end (v);
- return s;
-}
-
-/* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has
- function prototypes and stuff, but not '\xHH' hex character constants.
- These don't provoke an error unfortunately, instead are silently treated
- as 'x'. The following induces an error, until -std is added to get
- proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an
- array size at least. It's necessary to write '\x00'==0 to get something
- that's true only with -std. */
-int osf4_cc_array ['\x00' == 0 ? 1 : -1];
-
-/* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters
- inside strings and character constants. */
-#define FOO(x) 'x'
-int xlc6_cc_array[FOO(a) == 'x' ? 1 : -1];
-
-int test (int i, double x);
-struct s1 {int (*f) (int a);};
-struct s2 {int (*f) (double a);};
-int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int);
-int argc;
-char **argv;
-int
-main ()
-{
-return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1];
- ;
- return 0;
-}
-_ACEOF
-for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std \
- -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__"
-do
- CC="$ac_save_CC $ac_arg"
- if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_prog_cc_c89=$ac_arg
-fi
-rm -f core conftest.err conftest.$ac_objext
- test "x$ac_cv_prog_cc_c89" != "xno" && break
-done
-rm -f conftest.$ac_ext
-CC=$ac_save_CC
-
-fi
-# AC_CACHE_VAL
-case "x$ac_cv_prog_cc_c89" in
- x)
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5
-$as_echo "none needed" >&6; } ;;
- xno)
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5
-$as_echo "unsupported" >&6; } ;;
- *)
- CC="$CC $ac_cv_prog_cc_c89"
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5
-$as_echo "$ac_cv_prog_cc_c89" >&6; } ;;
-esac
-if test "x$ac_cv_prog_cc_c89" != xno; then :
-
-fi
-
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC understands -c and -o together" >&5
-$as_echo_n "checking whether $CC understands -c and -o together... " >&6; }
-if ${am_cv_prog_cc_c_o+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
- # Make sure it works both with $CC and with simple cc.
- # Following AC_PROG_CC_C_O, we do the test twice because some
- # compilers refuse to overwrite an existing .o file with -o,
- # though they will create one.
- am_cv_prog_cc_c_o=yes
- for am_i in 1 2; do
- if { echo "$as_me:$LINENO: $CC -c conftest.$ac_ext -o conftest2.$ac_objext" >&5
- ($CC -c conftest.$ac_ext -o conftest2.$ac_objext) >&5 2>&5
- ac_status=$?
- echo "$as_me:$LINENO: \$? = $ac_status" >&5
- (exit $ac_status); } \
- && test -f conftest2.$ac_objext; then
- : OK
- else
- am_cv_prog_cc_c_o=no
- break
- fi
- done
- rm -f core conftest*
- unset am_i
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_prog_cc_c_o" >&5
-$as_echo "$am_cv_prog_cc_c_o" >&6; }
-if test "$am_cv_prog_cc_c_o" != yes; then
- # Losing compiler, so override with the script.
- # FIXME: It is wrong to rewrite CC.
- # But if we don't then we get into trouble of one sort or another.
- # A longer-term fix would be to have automake use am__CC in this case,
- # and then we could set am__CC="\$(top_srcdir)/compile \$(CC)"
- CC="$am_aux_dir/compile $CC"
-fi
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-
-DEPDIR="${am__leading_dot}deps"
-
-ac_config_commands="$ac_config_commands depfiles"
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE-make} supports the include directive" >&5
-$as_echo_n "checking whether ${MAKE-make} supports the include directive... " >&6; }
-cat > confinc.mk << 'END'
-am__doit:
- @echo this is the am__doit target >confinc.out
-.PHONY: am__doit
-END
-am__include="#"
-am__quote=
-# BSD make does it like this.
-echo '.include "confinc.mk" # ignored' > confmf.BSD
-# Other make implementations (GNU, Solaris 10, AIX) do it like this.
-echo 'include confinc.mk # ignored' > confmf.GNU
-_am_result=no
-for s in GNU BSD; do
- { echo "$as_me:$LINENO: ${MAKE-make} -f confmf.$s && cat confinc.out" >&5
- (${MAKE-make} -f confmf.$s && cat confinc.out) >&5 2>&5
- ac_status=$?
- echo "$as_me:$LINENO: \$? = $ac_status" >&5
- (exit $ac_status); }
- case $?:`cat confinc.out 2>/dev/null` in #(
- '0:this is the am__doit target') :
- case $s in #(
- BSD) :
- am__include='.include' am__quote='"' ;; #(
- *) :
- am__include='include' am__quote='' ;;
-esac ;; #(
- *) :
- ;;
-esac
- if test "$am__include" != "#"; then
- _am_result="yes ($s style)"
- break
- fi
-done
-rm -f confinc.* confmf.*
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: ${_am_result}" >&5
-$as_echo "${_am_result}" >&6; }
-
-# Check whether --enable-dependency-tracking was given.
-if test "${enable_dependency_tracking+set}" = set; then :
- enableval=$enable_dependency_tracking;
-fi
-
-if test "x$enable_dependency_tracking" != xno; then
- am_depcomp="$ac_aux_dir/depcomp"
- AMDEPBACKSLASH='\'
- am__nodep='_no'
-fi
- if test "x$enable_dependency_tracking" != xno; then
- AMDEP_TRUE=
- AMDEP_FALSE='#'
-else
- AMDEP_TRUE='#'
- AMDEP_FALSE=
-fi
-
-
-
-depcc="$CC" am_compiler_list=
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking dependency style of $depcc" >&5
-$as_echo_n "checking dependency style of $depcc... " >&6; }
-if ${am_cv_CC_dependencies_compiler_type+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then
- # We make a subdir and do the tests there. Otherwise we can end up
- # making bogus files that we don't know about and never remove. For
- # instance it was reported that on HP-UX the gcc test will end up
- # making a dummy file named 'D' -- because '-MD' means "put the output
- # in D".
- rm -rf conftest.dir
- mkdir conftest.dir
- # Copy depcomp to subdir because otherwise we won't find it if we're
- # using a relative directory.
- cp "$am_depcomp" conftest.dir
- cd conftest.dir
- # We will build objects and dependencies in a subdirectory because
- # it helps to detect inapplicable dependency modes. For instance
- # both Tru64's cc and ICC support -MD to output dependencies as a
- # side effect of compilation, but ICC will put the dependencies in
- # the current directory while Tru64 will put them in the object
- # directory.
- mkdir sub
-
- am_cv_CC_dependencies_compiler_type=none
- if test "$am_compiler_list" = ""; then
- am_compiler_list=`sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < ./depcomp`
- fi
- am__universal=false
- case " $depcc " in #(
- *\ -arch\ *\ -arch\ *) am__universal=true ;;
- esac
-
- for depmode in $am_compiler_list; do
- # Setup a source with many dependencies, because some compilers
- # like to wrap large dependency lists on column 80 (with \), and
- # we should not choose a depcomp mode which is confused by this.
- #
- # We need to recreate these files for each test, as the compiler may
- # overwrite some of them when testing with obscure command lines.
- # This happens at least with the AIX C compiler.
- : > sub/conftest.c
- for i in 1 2 3 4 5 6; do
- echo '#include "conftst'$i'.h"' >> sub/conftest.c
- # Using ": > sub/conftst$i.h" creates only sub/conftst1.h with
- # Solaris 10 /bin/sh.
- echo '/* dummy */' > sub/conftst$i.h
- done
- echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf
-
- # We check with '-c' and '-o' for the sake of the "dashmstdout"
- # mode. It turns out that the SunPro C++ compiler does not properly
- # handle '-M -o', and we need to detect this. Also, some Intel
- # versions had trouble with output in subdirs.
- am__obj=sub/conftest.${OBJEXT-o}
- am__minus_obj="-o $am__obj"
- case $depmode in
- gcc)
- # This depmode causes a compiler race in universal mode.
- test "$am__universal" = false || continue
- ;;
- nosideeffect)
- # After this tag, mechanisms are not by side-effect, so they'll
- # only be used when explicitly requested.
- if test "x$enable_dependency_tracking" = xyes; then
- continue
- else
- break
- fi
- ;;
- msvc7 | msvc7msys | msvisualcpp | msvcmsys)
- # This compiler won't grok '-c -o', but also, the minuso test has
- # not run yet. These depmodes are late enough in the game, and
- # so weak that their functioning should not be impacted.
- am__obj=conftest.${OBJEXT-o}
- am__minus_obj=
- ;;
- none) break ;;
- esac
- if depmode=$depmode \
- source=sub/conftest.c object=$am__obj \
- depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \
- $SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \
- >/dev/null 2>conftest.err &&
- grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 &&
- grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 &&
- grep $am__obj sub/conftest.Po > /dev/null 2>&1 &&
- ${MAKE-make} -s -f confmf > /dev/null 2>&1; then
- # icc doesn't choke on unknown options, it will just issue warnings
- # or remarks (even with -Werror). So we grep stderr for any message
- # that says an option was ignored or not supported.
- # When given -MP, icc 7.0 and 7.1 complain thusly:
- # icc: Command line warning: ignoring option '-M'; no argument required
- # The diagnosis changed in icc 8.0:
- # icc: Command line remark: option '-MP' not supported
- if (grep 'ignoring option' conftest.err ||
- grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else
- am_cv_CC_dependencies_compiler_type=$depmode
- break
- fi
- fi
- done
-
- cd ..
- rm -rf conftest.dir
-else
- am_cv_CC_dependencies_compiler_type=none
-fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_CC_dependencies_compiler_type" >&5
-$as_echo "$am_cv_CC_dependencies_compiler_type" >&6; }
-CCDEPMODE=depmode=$am_cv_CC_dependencies_compiler_type
-
- if
- test "x$enable_dependency_tracking" != xno \
- && test "$am_cv_CC_dependencies_compiler_type" = gcc3; then
- am__fastdepCC_TRUE=
- am__fastdepCC_FALSE='#'
-else
- am__fastdepCC_TRUE='#'
- am__fastdepCC_FALSE=
-fi
-
-
-
-
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to run the C preprocessor" >&5
-$as_echo_n "checking how to run the C preprocessor... " >&6; }
-# On Suns, sometimes $CPP names a directory.
-if test -n "$CPP" && test -d "$CPP"; then
- CPP=
-fi
-if test -z "$CPP"; then
- if ${ac_cv_prog_CPP+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- # Double quotes because CPP needs to be expanded
- for CPP in "$CC -E" "$CC -E -traditional-cpp" "/lib/cpp"
- do
- ac_preproc_ok=false
-for ac_c_preproc_warn_flag in '' yes
-do
- # Use a header file that comes with gcc, so configuring glibc
- # with a fresh cross-compiler works.
- # Prefer <limits.h> to <assert.h> if __STDC__ is defined, since
- # <limits.h> exists even on freestanding compilers.
- # On the NeXT, cc -E runs the code through the compiler's parser,
- # not just through cpp. "Syntax error" is here to catch this case.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#ifdef __STDC__
-# include <limits.h>
-#else
-# include <assert.h>
-#endif
- Syntax error
-_ACEOF
-if ac_fn_c_try_cpp "$LINENO"; then :
-
-else
- # Broken: fails on valid input.
-continue
-fi
-rm -f conftest.err conftest.i conftest.$ac_ext
-
- # OK, works on sane cases. Now check whether nonexistent headers
- # can be detected and how.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <ac_nonexistent.h>
-_ACEOF
-if ac_fn_c_try_cpp "$LINENO"; then :
- # Broken: success on invalid input.
-continue
-else
- # Passes both tests.
-ac_preproc_ok=:
-break
-fi
-rm -f conftest.err conftest.i conftest.$ac_ext
-
-done
-# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped.
-rm -f conftest.i conftest.err conftest.$ac_ext
-if $ac_preproc_ok; then :
- break
-fi
-
- done
- ac_cv_prog_CPP=$CPP
-
-fi
- CPP=$ac_cv_prog_CPP
-else
- ac_cv_prog_CPP=$CPP
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $CPP" >&5
-$as_echo "$CPP" >&6; }
-ac_preproc_ok=false
-for ac_c_preproc_warn_flag in '' yes
-do
- # Use a header file that comes with gcc, so configuring glibc
- # with a fresh cross-compiler works.
- # Prefer <limits.h> to <assert.h> if __STDC__ is defined, since
- # <limits.h> exists even on freestanding compilers.
- # On the NeXT, cc -E runs the code through the compiler's parser,
- # not just through cpp. "Syntax error" is here to catch this case.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#ifdef __STDC__
-# include <limits.h>
-#else
-# include <assert.h>
-#endif
- Syntax error
-_ACEOF
-if ac_fn_c_try_cpp "$LINENO"; then :
-
-else
- # Broken: fails on valid input.
-continue
-fi
-rm -f conftest.err conftest.i conftest.$ac_ext
-
- # OK, works on sane cases. Now check whether nonexistent headers
- # can be detected and how.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <ac_nonexistent.h>
-_ACEOF
-if ac_fn_c_try_cpp "$LINENO"; then :
- # Broken: success on invalid input.
-continue
-else
- # Passes both tests.
-ac_preproc_ok=:
-break
-fi
-rm -f conftest.err conftest.i conftest.$ac_ext
-
-done
-# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped.
-rm -f conftest.i conftest.err conftest.$ac_ext
-if $ac_preproc_ok; then :
-
-else
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "C preprocessor \"$CPP\" fails sanity check
-See \`config.log' for more details" "$LINENO" 5; }
-fi
-
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for grep that handles long lines and -e" >&5
-$as_echo_n "checking for grep that handles long lines and -e... " >&6; }
-if ${ac_cv_path_GREP+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -z "$GREP"; then
- ac_path_GREP_found=false
- # Loop through the user's path and test for each of PROGNAME-LIST
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_prog in grep ggrep; do
- for ac_exec_ext in '' $ac_executable_extensions; do
- ac_path_GREP="$as_dir/$ac_prog$ac_exec_ext"
- as_fn_executable_p "$ac_path_GREP" || continue
-# Check for GNU ac_path_GREP and select it if it is found.
- # Check for GNU $ac_path_GREP
-case `"$ac_path_GREP" --version 2>&1` in
-*GNU*)
- ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_found=:;;
-*)
- ac_count=0
- $as_echo_n 0123456789 >"conftest.in"
- while :
- do
- cat "conftest.in" "conftest.in" >"conftest.tmp"
- mv "conftest.tmp" "conftest.in"
- cp "conftest.in" "conftest.nl"
- $as_echo 'GREP' >> "conftest.nl"
- "$ac_path_GREP" -e 'GREP$' -e '-(cannot match)-' < "conftest.nl" >"conftest.out" 2>/dev/null || break
- diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break
- as_fn_arith $ac_count + 1 && ac_count=$as_val
- if test $ac_count -gt ${ac_path_GREP_max-0}; then
- # Best one so far, save it but keep looking for a better one
- ac_cv_path_GREP="$ac_path_GREP"
- ac_path_GREP_max=$ac_count
- fi
- # 10*(2^10) chars as input seems more than enough
- test $ac_count -gt 10 && break
- done
- rm -f conftest.in conftest.tmp conftest.nl conftest.out;;
-esac
-
- $ac_path_GREP_found && break 3
- done
- done
- done
-IFS=$as_save_IFS
- if test -z "$ac_cv_path_GREP"; then
- as_fn_error $? "no acceptable grep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5
- fi
-else
- ac_cv_path_GREP=$GREP
-fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_GREP" >&5
-$as_echo "$ac_cv_path_GREP" >&6; }
- GREP="$ac_cv_path_GREP"
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for egrep" >&5
-$as_echo_n "checking for egrep... " >&6; }
-if ${ac_cv_path_EGREP+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if echo a | $GREP -E '(a|b)' >/dev/null 2>&1
- then ac_cv_path_EGREP="$GREP -E"
- else
- if test -z "$EGREP"; then
- ac_path_EGREP_found=false
- # Loop through the user's path and test for each of PROGNAME-LIST
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_prog in egrep; do
- for ac_exec_ext in '' $ac_executable_extensions; do
- ac_path_EGREP="$as_dir/$ac_prog$ac_exec_ext"
- as_fn_executable_p "$ac_path_EGREP" || continue
-# Check for GNU ac_path_EGREP and select it if it is found.
- # Check for GNU $ac_path_EGREP
-case `"$ac_path_EGREP" --version 2>&1` in
-*GNU*)
- ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_found=:;;
-*)
- ac_count=0
- $as_echo_n 0123456789 >"conftest.in"
- while :
- do
- cat "conftest.in" "conftest.in" >"conftest.tmp"
- mv "conftest.tmp" "conftest.in"
- cp "conftest.in" "conftest.nl"
- $as_echo 'EGREP' >> "conftest.nl"
- "$ac_path_EGREP" 'EGREP$' < "conftest.nl" >"conftest.out" 2>/dev/null || break
- diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break
- as_fn_arith $ac_count + 1 && ac_count=$as_val
- if test $ac_count -gt ${ac_path_EGREP_max-0}; then
- # Best one so far, save it but keep looking for a better one
- ac_cv_path_EGREP="$ac_path_EGREP"
- ac_path_EGREP_max=$ac_count
- fi
- # 10*(2^10) chars as input seems more than enough
- test $ac_count -gt 10 && break
- done
- rm -f conftest.in conftest.tmp conftest.nl conftest.out;;
-esac
-
- $ac_path_EGREP_found && break 3
- done
- done
- done
-IFS=$as_save_IFS
- if test -z "$ac_cv_path_EGREP"; then
- as_fn_error $? "no acceptable egrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5
- fi
-else
- ac_cv_path_EGREP=$EGREP
-fi
-
- fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_EGREP" >&5
-$as_echo "$ac_cv_path_EGREP" >&6; }
- EGREP="$ac_cv_path_EGREP"
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for ANSI C header files" >&5
-$as_echo_n "checking for ANSI C header files... " >&6; }
-if ${ac_cv_header_stdc+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <stdlib.h>
-#include <stdarg.h>
-#include <string.h>
-#include <float.h>
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_header_stdc=yes
-else
- ac_cv_header_stdc=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-
-if test $ac_cv_header_stdc = yes; then
- # SunOS 4.x string.h does not declare mem*, contrary to ANSI.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <string.h>
-
-_ACEOF
-if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
- $EGREP "memchr" >/dev/null 2>&1; then :
-
-else
- ac_cv_header_stdc=no
-fi
-rm -f conftest*
-
-fi
-
-if test $ac_cv_header_stdc = yes; then
- # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <stdlib.h>
-
-_ACEOF
-if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
- $EGREP "free" >/dev/null 2>&1; then :
-
-else
- ac_cv_header_stdc=no
-fi
-rm -f conftest*
-
-fi
-
-if test $ac_cv_header_stdc = yes; then
- # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi.
- if test "$cross_compiling" = yes; then :
- :
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <ctype.h>
-#include <stdlib.h>
-#if ((' ' & 0x0FF) == 0x020)
-# define ISLOWER(c) ('a' <= (c) && (c) <= 'z')
-# define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c))
-#else
-# define ISLOWER(c) \
- (('a' <= (c) && (c) <= 'i') \
- || ('j' <= (c) && (c) <= 'r') \
- || ('s' <= (c) && (c) <= 'z'))
-# define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c))
-#endif
-
-#define XOR(e, f) (((e) && !(f)) || (!(e) && (f)))
-int
-main ()
-{
- int i;
- for (i = 0; i < 256; i++)
- if (XOR (islower (i), ISLOWER (i))
- || toupper (i) != TOUPPER (i))
- return 2;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
-
-else
- ac_cv_header_stdc=no
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
-fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_stdc" >&5
-$as_echo "$ac_cv_header_stdc" >&6; }
-if test $ac_cv_header_stdc = yes; then
-
-$as_echo "#define STDC_HEADERS 1" >>confdefs.h
-
-fi
-
-# On IRIX 5.3, sys/types and inttypes.h are conflicting.
-for ac_header in sys/types.h sys/stat.h stdlib.h string.h memory.h strings.h \
- inttypes.h stdint.h unistd.h
-do :
- as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh`
-ac_fn_c_check_header_compile "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default
-"
-if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
- cat >>confdefs.h <<_ACEOF
-#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
-_ACEOF
-
-fi
-
-done
-
-
-
- ac_fn_c_check_header_mongrel "$LINENO" "minix/config.h" "ac_cv_header_minix_config_h" "$ac_includes_default"
-if test "x$ac_cv_header_minix_config_h" = xyes; then :
- MINIX=yes
-else
- MINIX=
-fi
-
-
- if test "$MINIX" = yes; then
-
-$as_echo "#define _POSIX_SOURCE 1" >>confdefs.h
-
-
-$as_echo "#define _POSIX_1_SOURCE 2" >>confdefs.h
-
-
-$as_echo "#define _MINIX 1" >>confdefs.h
-
- fi
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether it is safe to define __EXTENSIONS__" >&5
-$as_echo_n "checking whether it is safe to define __EXTENSIONS__... " >&6; }
-if ${ac_cv_safe_to_define___extensions__+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-# define __EXTENSIONS__ 1
- $ac_includes_default
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_safe_to_define___extensions__=yes
-else
- ac_cv_safe_to_define___extensions__=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_safe_to_define___extensions__" >&5
-$as_echo "$ac_cv_safe_to_define___extensions__" >&6; }
- test $ac_cv_safe_to_define___extensions__ = yes &&
- $as_echo "#define __EXTENSIONS__ 1" >>confdefs.h
-
- $as_echo "#define _ALL_SOURCE 1" >>confdefs.h
-
- $as_echo "#define _GNU_SOURCE 1" >>confdefs.h
-
- $as_echo "#define _POSIX_PTHREAD_SEMANTICS 1" >>confdefs.h
-
- $as_echo "#define _TANDEM_SOURCE 1" >>confdefs.h
-
-
-
-
-# Check for the compiler used
-COB_USES_GCC_NO_ICC=no
-COB_USES_ICC_ONLY=no
-COB_USES_CLANG_ONLY=no
-COB_USES_XLC_ONLY=no
-COB_USES_WATCOMC_ONLY=no
-
-COB_USES_GCC=$GCC
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for __INTEL_COMPILER" >&5
-$as_echo_n "checking for __INTEL_COMPILER... " >&6; }
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- #ifndef __INTEL_COMPILER
- # error macro not defined
- #endif
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- COB_USES_ICC_ONLY=yes
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- if test "$COB_USES_GCC" = yes; then
- COB_USES_GCC_NO_ICC=yes
- fi
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for __clang__" >&5
-$as_echo_n "checking for __clang__... " >&6; }
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- #ifndef __clang__
- # error macro not defined
- #endif
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- COB_USES_CLANG_ONLY=yes
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for __xlc__" >&5
-$as_echo_n "checking for __xlc__... " >&6; }
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- #ifndef __xlc__
- # error macro not defined
- #endif
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- COB_USES_XLC_ONLY=yes
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for __WATCOMC__" >&5
-$as_echo_n "checking for __WATCOMC__... " >&6; }
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- #ifndef __WATCOMC__
- # error macro not defined
- #endif
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- COB_USES_WATCOMC_ONLY=yes
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for __SUNPRO_C" >&5
-$as_echo_n "checking for __SUNPRO_C... " >&6; }
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- #ifndef __SUNPRO_C
- # error macro not defined
- #endif
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- COB_USES_SUNPRO_C_ONLY=yes
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-
-curr_cflags="$CFLAGS"
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to error on warnings during configure checks" >&5
-$as_echo_n "checking how to error on warnings during configure checks... " >&6; }
-if ${gc_cv_err_warn+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- if test "$COB_USES_GCC" = yes -o "$COB_USES_WATCOMC_ONLY" = yes; then
- # COB_USES_GCC is also set with clang and icc
- ERRWARN="-Wall -Werror"
- elif test "$COB_USES_XLC_ONLY" = yes; then
- ERRWARN="-qhalt=w"
- elif test "$COB_USES_SUNPRO_C_ONLY" = yes; then
- ERRWARN="-errwarn=%all"
- else
- ERRWARN=""
- fi
- CFLAGS="$CFLAGS $ERRWARN"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-return 0;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- gc_cv_err_warn="$ERRWARN"
-else
- gc_cv_err_warn=""
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gc_cv_err_warn" >&5
-$as_echo "$gc_cv_err_warn" >&6; }
- ERRWARN="$gc_cv_err_warn"
-
-# save what we have so far as it is quite "constant"
-cat >confcache <<\_ACEOF
-# This file is a shell script that caches the results of configure
-# tests run on this system so they can be shared between configure
-# scripts and configure runs, see configure's option --config-cache.
-# It is not useful on other systems. If it contains results you don't
-# want to keep, you may remove or edit it.
-#
-# config.status only pays attention to the cache file if you give it
-# the --recheck option to rerun configure.
-#
-# `ac_cv_env_foo' variables (set or unset) will be overridden when
-# loading this file, other *unset* `ac_cv_foo' will be assigned the
-# following values.
-
-_ACEOF
-
-# The following way of writing the cache mishandles newlines in values,
-# but we know of no workaround that is simple, portable, and efficient.
-# So, we kill variables containing newlines.
-# Ultrix sh set writes to stderr and can't be redirected directly,
-# and sets the high bit in the cache file unless we assign to the vars.
-(
- for ac_var in `(set) 2>&1 | sed -n 's/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'`; do
- eval ac_val=\$$ac_var
- case $ac_val in #(
- *${as_nl}*)
- case $ac_var in #(
- *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5
-$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;;
- esac
- case $ac_var in #(
- _ | IFS | as_nl) ;; #(
- BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #(
- *) { eval $ac_var=; unset $ac_var;} ;;
- esac ;;
- esac
- done
-
- (set) 2>&1 |
- case $as_nl`(ac_space=' '; set) 2>&1` in #(
- *${as_nl}ac_space=\ *)
- # `set' does not quote correctly, so add quotes: double-quote
- # substitution turns \\\\ into \\, and sed turns \\ into \.
- sed -n \
- "s/'/'\\\\''/g;
- s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p"
- ;; #(
- *)
- # `set' quotes correctly as required by POSIX, so do not add quotes.
- sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p"
- ;;
- esac |
- sort
-) |
- sed '
- /^ac_cv_env_/b end
- t clear
- :clear
- s/^\([^=]*\)=\(.*[{}].*\)$/test "${\1+set}" = set || &/
- t end
- s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/
- :end' >>confcache
-if diff "$cache_file" confcache >/dev/null 2>&1; then :; else
- if test -w "$cache_file"; then
- if test "x$cache_file" != "x/dev/null"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5
-$as_echo "$as_me: updating cache $cache_file" >&6;}
- if test ! -f "$cache_file" || test -h "$cache_file"; then
- cat confcache >"$cache_file"
- else
- case $cache_file in #(
- */* | ?:*)
- mv -f confcache "$cache_file"$$ &&
- mv -f "$cache_file"$$ "$cache_file" ;; #(
- *)
- mv -f confcache "$cache_file" ;;
- esac
- fi
- fi
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file" >&5
-$as_echo "$as_me: not updating unwritable cache $cache_file" >&6;}
- fi
-fi
-rm -f confcache
-
-#
-## general flags for compiler and linker and tests for those
-#
-CFLAGS="$curr_cflags $ERRWARN"
-
-
-if test "x$COBC_CPPFLAGS" != x; then :
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether compilation with COBC_CPPFLAGS works" >&5
-$as_echo_n "checking whether compilation with COBC_CPPFLAGS works... " >&6; }
- curr_cppflags="$CPPFLAGS"
- CPPFLAGS="$CPPFLAGS $COBC_CPPFLAGS"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-return 0;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "cannot compile with COBC_CPPFLAGS=\"$COBC_CPPFLAGS\"
-See \`config.log' for more details" "$LINENO" 5; }
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- CPPFLAGS="$curr_cppflags"
-
-fi
-
-if test "x$LIBCOB_CPPFLAGS" != x; then :
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether compilation with LIBCOB_CPPFLAGS works" >&5
-$as_echo_n "checking whether compilation with LIBCOB_CPPFLAGS works... " >&6; }
- curr_cppflags="$CPPFLAGS"
- CPPFLAGS="$CPPFLAGS $LIBCOB_CPPFLAGS"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-return 0;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "cannot compile with LIBCOB_CPPFLAGS=\"$LIBCOB_CPPFLAGS\"
-See \`config.log' for more details" "$LINENO" 5; }
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- CPPFLAGS="$curr_cppflags"
-
-fi
-
-if test "x$LDFLAGS" != "x" -o "x$LIBS" != "x"; then :
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether linking with LDFLAGS / LIBS works" >&5
-$as_echo_n "checking whether linking with LDFLAGS / LIBS works... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-return 0;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "cannot link with LDFLAGS=\"$LDFLAGS\", / LIBS=\"$LIBS\"
-See \`config.log' for more details" "$LINENO" 5; }
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-
-fi
-
-curr_libs="$LIBS"
-
-if test "x$LIBCOB_LIBS" != x; then :
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether linking with LIBCOB_LIBS works" >&5
-$as_echo_n "checking whether linking with LIBCOB_LIBS works... " >&6; }
- LIBS="$LIBS $LIBCOB_LIBS"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-return 0;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "cannot link with LIBCOB_LIBS=\"$LIBCOB_LIBS\"
-See \`config.log' for more details" "$LINENO" 5; }
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-
-fi
-
-
-if test "x$PROGRAMS_LIBS" != x; then :
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether linking with PROGRAMS_LIBS works" >&5
-$as_echo_n "checking whether linking with PROGRAMS_LIBS works... " >&6; }
- LIBS="$LIBS $PROGRAMS_LIBS"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-return 0;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "cannot link with PROGRAMS_LIBS=\"$PROGRAMS_LIBS\"
-See \`config.log' for more details" "$LINENO" 5; }
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-
-fi
-LIBS="$curr_libs"
-CFLAGS="$curr_cflags"
-
-
-
-
-if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}windres", so it can be a program name with args.
-set dummy ${ac_tool_prefix}windres; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_RC+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$RC"; then
- ac_cv_prog_RC="$RC" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_RC="${ac_tool_prefix}windres"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-RC=$ac_cv_prog_RC
-if test -n "$RC"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $RC" >&5
-$as_echo "$RC" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_RC"; then
- ac_ct_RC=$RC
- # Extract the first word of "windres", so it can be a program name with args.
-set dummy windres; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_ac_ct_RC+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_RC"; then
- ac_cv_prog_ac_ct_RC="$ac_ct_RC" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_ac_ct_RC="windres"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_RC=$ac_cv_prog_ac_ct_RC
-if test -n "$ac_ct_RC"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_RC" >&5
-$as_echo "$ac_ct_RC" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_ct_RC" = x; then
- RC=""
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- RC=$ac_ct_RC
- fi
-else
- RC="$ac_cv_prog_RC"
-fi
-
-
-
-if test -n "$ac_tool_prefix"; then
- for ac_prog in ar lib "link -lib"
- do
- # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args.
-set dummy $ac_tool_prefix$ac_prog; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_AR+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$AR"; then
- ac_cv_prog_AR="$AR" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_AR="$ac_tool_prefix$ac_prog"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-AR=$ac_cv_prog_AR
-if test -n "$AR"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AR" >&5
-$as_echo "$AR" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- test -n "$AR" && break
- done
-fi
-if test -z "$AR"; then
- ac_ct_AR=$AR
- for ac_prog in ar lib "link -lib"
-do
- # Extract the first word of "$ac_prog", so it can be a program name with args.
-set dummy $ac_prog; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_ac_ct_AR+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_AR"; then
- ac_cv_prog_ac_ct_AR="$ac_ct_AR" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_ac_ct_AR="$ac_prog"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_AR=$ac_cv_prog_ac_ct_AR
-if test -n "$ac_ct_AR"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_AR" >&5
-$as_echo "$ac_ct_AR" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- test -n "$ac_ct_AR" && break
-done
-
- if test "x$ac_ct_AR" = x; then
- AR="false"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- AR=$ac_ct_AR
- fi
-fi
-
-: ${AR=ar}
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking the archiver ($AR) interface" >&5
-$as_echo_n "checking the archiver ($AR) interface... " >&6; }
-if ${am_cv_ar_interface+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-
- am_cv_ar_interface=ar
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-int some_variable = 0;
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- am_ar_try='$AR cru libconftest.a conftest.$ac_objext >&5'
- { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$am_ar_try\""; } >&5
- (eval $am_ar_try) 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }
- if test "$ac_status" -eq 0; then
- am_cv_ar_interface=ar
- else
- am_ar_try='$AR -NOLOGO -OUT:conftest.lib conftest.$ac_objext >&5'
- { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$am_ar_try\""; } >&5
- (eval $am_ar_try) 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }
- if test "$ac_status" -eq 0; then
- am_cv_ar_interface=lib
- else
- am_cv_ar_interface=unknown
- fi
- fi
- rm -f conftest.lib libconftest.a
-
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_ar_interface" >&5
-$as_echo "$am_cv_ar_interface" >&6; }
-
-case $am_cv_ar_interface in
-ar)
- ;;
-lib)
- # Microsoft lib, so override with the ar-lib wrapper script.
- # FIXME: It is wrong to rewrite AR.
- # But if we don't then we get into trouble of one sort or another.
- # A longer-term fix would be to have automake use am__AR in this case,
- # and then we could set am__AR="$am_aux_dir/ar-lib \$(AR)" or something
- # similar.
- AR="$am_aux_dir/ar-lib $AR"
- ;;
-unknown)
- as_fn_error $? "could not determine $AR interface" "$LINENO" 5
- ;;
-esac
-
-case `pwd` in
- *\ * | *\ *)
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Libtool does not cope well with whitespace in \`pwd\`" >&5
-$as_echo "$as_me: WARNING: Libtool does not cope well with whitespace in \`pwd\`" >&2;} ;;
-esac
-
-
-
-macro_version='2.4.6'
-macro_revision='2.4.6'
-
-
-
-
-
-
-
-
-
-
-
-
-
-ltmain=$ac_aux_dir/ltmain.sh
-
-# Make sure we can run config.sub.
-$SHELL "$ac_aux_dir/config.sub" sun4 >/dev/null 2>&1 ||
- as_fn_error $? "cannot run $SHELL $ac_aux_dir/config.sub" "$LINENO" 5
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking build system type" >&5
-$as_echo_n "checking build system type... " >&6; }
-if ${ac_cv_build+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_build_alias=$build_alias
-test "x$ac_build_alias" = x &&
- ac_build_alias=`$SHELL "$ac_aux_dir/config.guess"`
-test "x$ac_build_alias" = x &&
- as_fn_error $? "cannot guess build type; you must specify one" "$LINENO" 5
-ac_cv_build=`$SHELL "$ac_aux_dir/config.sub" $ac_build_alias` ||
- as_fn_error $? "$SHELL $ac_aux_dir/config.sub $ac_build_alias failed" "$LINENO" 5
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_build" >&5
-$as_echo "$ac_cv_build" >&6; }
-case $ac_cv_build in
-*-*-*) ;;
-*) as_fn_error $? "invalid value of canonical build" "$LINENO" 5;;
-esac
-build=$ac_cv_build
-ac_save_IFS=$IFS; IFS='-'
-set x $ac_cv_build
-shift
-build_cpu=$1
-build_vendor=$2
-shift; shift
-# Remember, the first character of IFS is used to create $*,
-# except with old shells:
-build_os=$*
-IFS=$ac_save_IFS
-case $build_os in *\ *) build_os=`echo "$build_os" | sed 's/ /-/g'`;; esac
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking host system type" >&5
-$as_echo_n "checking host system type... " >&6; }
-if ${ac_cv_host+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test "x$host_alias" = x; then
- ac_cv_host=$ac_cv_build
-else
- ac_cv_host=`$SHELL "$ac_aux_dir/config.sub" $host_alias` ||
- as_fn_error $? "$SHELL $ac_aux_dir/config.sub $host_alias failed" "$LINENO" 5
-fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_host" >&5
-$as_echo "$ac_cv_host" >&6; }
-case $ac_cv_host in
-*-*-*) ;;
-*) as_fn_error $? "invalid value of canonical host" "$LINENO" 5;;
-esac
-host=$ac_cv_host
-ac_save_IFS=$IFS; IFS='-'
-set x $ac_cv_host
-shift
-host_cpu=$1
-host_vendor=$2
-shift; shift
-# Remember, the first character of IFS is used to create $*,
-# except with old shells:
-host_os=$*
-IFS=$ac_save_IFS
-case $host_os in *\ *) host_os=`echo "$host_os" | sed 's/ /-/g'`;; esac
-
-
-# Backslashify metacharacters that are still active within
-# double-quoted strings.
-sed_quote_subst='s/\(["`$\\]\)/\\\1/g'
-
-# Same as above, but do not quote variable references.
-double_quote_subst='s/\(["`\\]\)/\\\1/g'
-
-# Sed substitution to delay expansion of an escaped shell variable in a
-# double_quote_subst'ed string.
-delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g'
-
-# Sed substitution to delay expansion of an escaped single quote.
-delay_single_quote_subst='s/'\''/'\'\\\\\\\'\''/g'
-
-# Sed substitution to avoid accidental globbing in evaled expressions
-no_glob_subst='s/\*/\\\*/g'
-
-ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
-ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO
-ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO$ECHO
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to print strings" >&5
-$as_echo_n "checking how to print strings... " >&6; }
-# Test print first, because it will be a builtin if present.
-if test "X`( print -r -- -n ) 2>/dev/null`" = X-n && \
- test "X`print -r -- $ECHO 2>/dev/null`" = "X$ECHO"; then
- ECHO='print -r --'
-elif test "X`printf %s $ECHO 2>/dev/null`" = "X$ECHO"; then
- ECHO='printf %s\n'
-else
- # Use this function as a fallback that always works.
- func_fallback_echo ()
- {
- eval 'cat <<_LTECHO_EOF
-$1
-_LTECHO_EOF'
- }
- ECHO='func_fallback_echo'
-fi
-
-# func_echo_all arg...
-# Invoke $ECHO with all args, space-separated.
-func_echo_all ()
-{
- $ECHO ""
-}
-
-case $ECHO in
- printf*) { $as_echo "$as_me:${as_lineno-$LINENO}: result: printf" >&5
-$as_echo "printf" >&6; } ;;
- print*) { $as_echo "$as_me:${as_lineno-$LINENO}: result: print -r" >&5
-$as_echo "print -r" >&6; } ;;
- *) { $as_echo "$as_me:${as_lineno-$LINENO}: result: cat" >&5
-$as_echo "cat" >&6; } ;;
-esac
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for a sed that does not truncate output" >&5
-$as_echo_n "checking for a sed that does not truncate output... " >&6; }
-if ${ac_cv_path_SED+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_script=s/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa/bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb/
- for ac_i in 1 2 3 4 5 6 7; do
- ac_script="$ac_script$as_nl$ac_script"
- done
- echo "$ac_script" 2>/dev/null | sed 99q >conftest.sed
- { ac_script=; unset ac_script;}
- if test -z "$SED"; then
- ac_path_SED_found=false
- # Loop through the user's path and test for each of PROGNAME-LIST
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_prog in sed gsed; do
- for ac_exec_ext in '' $ac_executable_extensions; do
- ac_path_SED="$as_dir/$ac_prog$ac_exec_ext"
- as_fn_executable_p "$ac_path_SED" || continue
-# Check for GNU ac_path_SED and select it if it is found.
- # Check for GNU $ac_path_SED
-case `"$ac_path_SED" --version 2>&1` in
-*GNU*)
- ac_cv_path_SED="$ac_path_SED" ac_path_SED_found=:;;
-*)
- ac_count=0
- $as_echo_n 0123456789 >"conftest.in"
- while :
- do
- cat "conftest.in" "conftest.in" >"conftest.tmp"
- mv "conftest.tmp" "conftest.in"
- cp "conftest.in" "conftest.nl"
- $as_echo '' >> "conftest.nl"
- "$ac_path_SED" -f conftest.sed < "conftest.nl" >"conftest.out" 2>/dev/null || break
- diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break
- as_fn_arith $ac_count + 1 && ac_count=$as_val
- if test $ac_count -gt ${ac_path_SED_max-0}; then
- # Best one so far, save it but keep looking for a better one
- ac_cv_path_SED="$ac_path_SED"
- ac_path_SED_max=$ac_count
- fi
- # 10*(2^10) chars as input seems more than enough
- test $ac_count -gt 10 && break
- done
- rm -f conftest.in conftest.tmp conftest.nl conftest.out;;
-esac
-
- $ac_path_SED_found && break 3
- done
- done
- done
-IFS=$as_save_IFS
- if test -z "$ac_cv_path_SED"; then
- as_fn_error $? "no acceptable sed could be found in \$PATH" "$LINENO" 5
- fi
-else
- ac_cv_path_SED=$SED
-fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_SED" >&5
-$as_echo "$ac_cv_path_SED" >&6; }
- SED="$ac_cv_path_SED"
- rm -f conftest.sed
-
-test -z "$SED" && SED=sed
-Xsed="$SED -e 1s/^X//"
-
-
-
-
-
-
-
-
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for fgrep" >&5
-$as_echo_n "checking for fgrep... " >&6; }
-if ${ac_cv_path_FGREP+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if echo 'ab*c' | $GREP -F 'ab*c' >/dev/null 2>&1
- then ac_cv_path_FGREP="$GREP -F"
- else
- if test -z "$FGREP"; then
- ac_path_FGREP_found=false
- # Loop through the user's path and test for each of PROGNAME-LIST
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_prog in fgrep; do
- for ac_exec_ext in '' $ac_executable_extensions; do
- ac_path_FGREP="$as_dir/$ac_prog$ac_exec_ext"
- as_fn_executable_p "$ac_path_FGREP" || continue
-# Check for GNU ac_path_FGREP and select it if it is found.
- # Check for GNU $ac_path_FGREP
-case `"$ac_path_FGREP" --version 2>&1` in
-*GNU*)
- ac_cv_path_FGREP="$ac_path_FGREP" ac_path_FGREP_found=:;;
-*)
- ac_count=0
- $as_echo_n 0123456789 >"conftest.in"
- while :
- do
- cat "conftest.in" "conftest.in" >"conftest.tmp"
- mv "conftest.tmp" "conftest.in"
- cp "conftest.in" "conftest.nl"
- $as_echo 'FGREP' >> "conftest.nl"
- "$ac_path_FGREP" FGREP < "conftest.nl" >"conftest.out" 2>/dev/null || break
- diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break
- as_fn_arith $ac_count + 1 && ac_count=$as_val
- if test $ac_count -gt ${ac_path_FGREP_max-0}; then
- # Best one so far, save it but keep looking for a better one
- ac_cv_path_FGREP="$ac_path_FGREP"
- ac_path_FGREP_max=$ac_count
- fi
- # 10*(2^10) chars as input seems more than enough
- test $ac_count -gt 10 && break
- done
- rm -f conftest.in conftest.tmp conftest.nl conftest.out;;
-esac
-
- $ac_path_FGREP_found && break 3
- done
- done
- done
-IFS=$as_save_IFS
- if test -z "$ac_cv_path_FGREP"; then
- as_fn_error $? "no acceptable fgrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5
- fi
-else
- ac_cv_path_FGREP=$FGREP
-fi
-
- fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_FGREP" >&5
-$as_echo "$ac_cv_path_FGREP" >&6; }
- FGREP="$ac_cv_path_FGREP"
-
-
-test -z "$GREP" && GREP=grep
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-# Check whether --with-gnu-ld was given.
-if test "${with_gnu_ld+set}" = set; then :
- withval=$with_gnu_ld; test no = "$withval" || with_gnu_ld=yes
-else
- with_gnu_ld=no
-fi
-
-ac_prog=ld
-if test yes = "$GCC"; then
- # Check if gcc -print-prog-name=ld gives a path.
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ld used by $CC" >&5
-$as_echo_n "checking for ld used by $CC... " >&6; }
- case $host in
- *-*-mingw*)
- # gcc leaves a trailing carriage return, which upsets mingw
- ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;;
- *)
- ac_prog=`($CC -print-prog-name=ld) 2>&5` ;;
- esac
- case $ac_prog in
- # Accept absolute paths.
- [\\/]* | ?:[\\/]*)
- re_direlt='/[^/][^/]*/\.\./'
- # Canonicalize the pathname of ld
- ac_prog=`$ECHO "$ac_prog"| $SED 's%\\\\%/%g'`
- while $ECHO "$ac_prog" | $GREP "$re_direlt" > /dev/null 2>&1; do
- ac_prog=`$ECHO $ac_prog| $SED "s%$re_direlt%/%"`
- done
- test -z "$LD" && LD=$ac_prog
- ;;
- "")
- # If it fails, then pretend we aren't using GCC.
- ac_prog=ld
- ;;
- *)
- # If it is relative, then search for the first ld in PATH.
- with_gnu_ld=unknown
- ;;
- esac
-elif test yes = "$with_gnu_ld"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GNU ld" >&5
-$as_echo_n "checking for GNU ld... " >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for non-GNU ld" >&5
-$as_echo_n "checking for non-GNU ld... " >&6; }
-fi
-if ${lt_cv_path_LD+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -z "$LD"; then
- lt_save_ifs=$IFS; IFS=$PATH_SEPARATOR
- for ac_dir in $PATH; do
- IFS=$lt_save_ifs
- test -z "$ac_dir" && ac_dir=.
- if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then
- lt_cv_path_LD=$ac_dir/$ac_prog
- # Check to see if the program is GNU ld. I'd rather use --version,
- # but apparently some variants of GNU ld only accept -v.
- # Break only if it was the GNU/non-GNU ld that we prefer.
- case `"$lt_cv_path_LD" -v 2>&1 </dev/null` in
- *GNU* | *'with BFD'*)
- test no != "$with_gnu_ld" && break
- ;;
- *)
- test yes != "$with_gnu_ld" && break
- ;;
- esac
- fi
- done
- IFS=$lt_save_ifs
-else
- lt_cv_path_LD=$LD # Let the user override the test with a path.
-fi
-fi
-
-LD=$lt_cv_path_LD
-if test -n "$LD"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $LD" >&5
-$as_echo "$LD" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-test -z "$LD" && as_fn_error $? "no acceptable ld found in \$PATH" "$LINENO" 5
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if the linker ($LD) is GNU ld" >&5
-$as_echo_n "checking if the linker ($LD) is GNU ld... " >&6; }
-if ${lt_cv_prog_gnu_ld+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- # I'd rather use --version here, but apparently some GNU lds only accept -v.
-case `$LD -v 2>&1 </dev/null` in
-*GNU* | *'with BFD'*)
- lt_cv_prog_gnu_ld=yes
- ;;
-*)
- lt_cv_prog_gnu_ld=no
- ;;
-esac
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_gnu_ld" >&5
-$as_echo "$lt_cv_prog_gnu_ld" >&6; }
-with_gnu_ld=$lt_cv_prog_gnu_ld
-
-
-
-
-
-
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for BSD- or MS-compatible name lister (nm)" >&5
-$as_echo_n "checking for BSD- or MS-compatible name lister (nm)... " >&6; }
-if ${lt_cv_path_NM+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$NM"; then
- # Let the user override the test.
- lt_cv_path_NM=$NM
-else
- lt_nm_to_check=${ac_tool_prefix}nm
- if test -n "$ac_tool_prefix" && test "$build" = "$host"; then
- lt_nm_to_check="$lt_nm_to_check nm"
- fi
- for lt_tmp_nm in $lt_nm_to_check; do
- lt_save_ifs=$IFS; IFS=$PATH_SEPARATOR
- for ac_dir in $PATH /usr/ccs/bin/elf /usr/ccs/bin /usr/ucb /bin; do
- IFS=$lt_save_ifs
- test -z "$ac_dir" && ac_dir=.
- tmp_nm=$ac_dir/$lt_tmp_nm
- if test -f "$tmp_nm" || test -f "$tmp_nm$ac_exeext"; then
- # Check to see if the nm accepts a BSD-compat flag.
- # Adding the 'sed 1q' prevents false positives on HP-UX, which says:
- # nm: unknown option "B" ignored
- # Tru64's nm complains that /dev/null is an invalid object file
- # MSYS converts /dev/null to NUL, MinGW nm treats NUL as empty
- case $build_os in
- mingw*) lt_bad_file=conftest.nm/nofile ;;
- *) lt_bad_file=/dev/null ;;
- esac
- case `"$tmp_nm" -B $lt_bad_file 2>&1 | sed '1q'` in
- *$lt_bad_file* | *'Invalid file or object type'*)
- lt_cv_path_NM="$tmp_nm -B"
- break 2
- ;;
- *)
- case `"$tmp_nm" -p /dev/null 2>&1 | sed '1q'` in
- */dev/null*)
- lt_cv_path_NM="$tmp_nm -p"
- break 2
- ;;
- *)
- lt_cv_path_NM=${lt_cv_path_NM="$tmp_nm"} # keep the first match, but
- continue # so that we can try to find one that supports BSD flags
- ;;
- esac
- ;;
- esac
- fi
- done
- IFS=$lt_save_ifs
- done
- : ${lt_cv_path_NM=no}
-fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_path_NM" >&5
-$as_echo "$lt_cv_path_NM" >&6; }
-if test no != "$lt_cv_path_NM"; then
- NM=$lt_cv_path_NM
-else
- # Didn't find any BSD compatible name lister, look for dumpbin.
- if test -n "$DUMPBIN"; then :
- # Let the user override the test.
- else
- if test -n "$ac_tool_prefix"; then
- for ac_prog in dumpbin "link -dump"
- do
- # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args.
-set dummy $ac_tool_prefix$ac_prog; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_DUMPBIN+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$DUMPBIN"; then
- ac_cv_prog_DUMPBIN="$DUMPBIN" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_DUMPBIN="$ac_tool_prefix$ac_prog"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-DUMPBIN=$ac_cv_prog_DUMPBIN
-if test -n "$DUMPBIN"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DUMPBIN" >&5
-$as_echo "$DUMPBIN" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- test -n "$DUMPBIN" && break
- done
-fi
-if test -z "$DUMPBIN"; then
- ac_ct_DUMPBIN=$DUMPBIN
- for ac_prog in dumpbin "link -dump"
-do
- # Extract the first word of "$ac_prog", so it can be a program name with args.
-set dummy $ac_prog; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_ac_ct_DUMPBIN+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_DUMPBIN"; then
- ac_cv_prog_ac_ct_DUMPBIN="$ac_ct_DUMPBIN" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_ac_ct_DUMPBIN="$ac_prog"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_DUMPBIN=$ac_cv_prog_ac_ct_DUMPBIN
-if test -n "$ac_ct_DUMPBIN"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DUMPBIN" >&5
-$as_echo "$ac_ct_DUMPBIN" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- test -n "$ac_ct_DUMPBIN" && break
-done
-
- if test "x$ac_ct_DUMPBIN" = x; then
- DUMPBIN=":"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- DUMPBIN=$ac_ct_DUMPBIN
- fi
-fi
-
- case `$DUMPBIN -symbols -headers /dev/null 2>&1 | sed '1q'` in
- *COFF*)
- DUMPBIN="$DUMPBIN -symbols -headers"
- ;;
- *)
- DUMPBIN=:
- ;;
- esac
- fi
-
- if test : != "$DUMPBIN"; then
- NM=$DUMPBIN
- fi
-fi
-test -z "$NM" && NM=nm
-
-
-
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking the name lister ($NM) interface" >&5
-$as_echo_n "checking the name lister ($NM) interface... " >&6; }
-if ${lt_cv_nm_interface+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_nm_interface="BSD nm"
- echo "int some_variable = 0;" > conftest.$ac_ext
- (eval echo "\"\$as_me:$LINENO: $ac_compile\"" >&5)
- (eval "$ac_compile" 2>conftest.err)
- cat conftest.err >&5
- (eval echo "\"\$as_me:$LINENO: $NM \\\"conftest.$ac_objext\\\"\"" >&5)
- (eval "$NM \"conftest.$ac_objext\"" 2>conftest.err > conftest.out)
- cat conftest.err >&5
- (eval echo "\"\$as_me:$LINENO: output\"" >&5)
- cat conftest.out >&5
- if $GREP 'External.*some_variable' conftest.out > /dev/null; then
- lt_cv_nm_interface="MS dumpbin"
- fi
- rm -f conftest*
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_nm_interface" >&5
-$as_echo "$lt_cv_nm_interface" >&6; }
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ln -s works" >&5
-$as_echo_n "checking whether ln -s works... " >&6; }
-LN_S=$as_ln_s
-if test "$LN_S" = "ln -s"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no, using $LN_S" >&5
-$as_echo "no, using $LN_S" >&6; }
-fi
-
-# find the maximum length of command line arguments
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking the maximum length of command line arguments" >&5
-$as_echo_n "checking the maximum length of command line arguments... " >&6; }
-if ${lt_cv_sys_max_cmd_len+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- i=0
- teststring=ABCD
-
- case $build_os in
- msdosdjgpp*)
- # On DJGPP, this test can blow up pretty badly due to problems in libc
- # (any single argument exceeding 2000 bytes causes a buffer overrun
- # during glob expansion). Even if it were fixed, the result of this
- # check would be larger than it should be.
- lt_cv_sys_max_cmd_len=12288; # 12K is about right
- ;;
-
- gnu*)
- # Under GNU Hurd, this test is not required because there is
- # no limit to the length of command line arguments.
- # Libtool will interpret -1 as no limit whatsoever
- lt_cv_sys_max_cmd_len=-1;
- ;;
-
- cygwin* | mingw* | cegcc*)
- # On Win9x/ME, this test blows up -- it succeeds, but takes
- # about 5 minutes as the teststring grows exponentially.
- # Worse, since 9x/ME are not pre-emptively multitasking,
- # you end up with a "frozen" computer, even though with patience
- # the test eventually succeeds (with a max line length of 256k).
- # Instead, let's just punt: use the minimum linelength reported by
- # all of the supported platforms: 8192 (on NT/2K/XP).
- lt_cv_sys_max_cmd_len=8192;
- ;;
-
- mint*)
- # On MiNT this can take a long time and run out of memory.
- lt_cv_sys_max_cmd_len=8192;
- ;;
-
- amigaos*)
- # On AmigaOS with pdksh, this test takes hours, literally.
- # So we just punt and use a minimum line length of 8192.
- lt_cv_sys_max_cmd_len=8192;
- ;;
-
- bitrig* | darwin* | dragonfly* | freebsd* | netbsd* | openbsd*)
- # This has been around since 386BSD, at least. Likely further.
- if test -x /sbin/sysctl; then
- lt_cv_sys_max_cmd_len=`/sbin/sysctl -n kern.argmax`
- elif test -x /usr/sbin/sysctl; then
- lt_cv_sys_max_cmd_len=`/usr/sbin/sysctl -n kern.argmax`
- else
- lt_cv_sys_max_cmd_len=65536 # usable default for all BSDs
- fi
- # And add a safety zone
- lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4`
- lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3`
- ;;
-
- interix*)
- # We know the value 262144 and hardcode it with a safety zone (like BSD)
- lt_cv_sys_max_cmd_len=196608
- ;;
-
- os2*)
- # The test takes a long time on OS/2.
- lt_cv_sys_max_cmd_len=8192
- ;;
-
- osf*)
- # Dr. Hans Ekkehard Plesser reports seeing a kernel panic running configure
- # due to this test when exec_disable_arg_limit is 1 on Tru64. It is not
- # nice to cause kernel panics so lets avoid the loop below.
- # First set a reasonable default.
- lt_cv_sys_max_cmd_len=16384
- #
- if test -x /sbin/sysconfig; then
- case `/sbin/sysconfig -q proc exec_disable_arg_limit` in
- *1*) lt_cv_sys_max_cmd_len=-1 ;;
- esac
- fi
- ;;
- sco3.2v5*)
- lt_cv_sys_max_cmd_len=102400
- ;;
- sysv5* | sco5v6* | sysv4.2uw2*)
- kargmax=`grep ARG_MAX /etc/conf/cf.d/stune 2>/dev/null`
- if test -n "$kargmax"; then
- lt_cv_sys_max_cmd_len=`echo $kargmax | sed 's/.*[ ]//'`
- else
- lt_cv_sys_max_cmd_len=32768
- fi
- ;;
- *)
- lt_cv_sys_max_cmd_len=`(getconf ARG_MAX) 2> /dev/null`
- if test -n "$lt_cv_sys_max_cmd_len" && \
- test undefined != "$lt_cv_sys_max_cmd_len"; then
- lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4`
- lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3`
- else
- # Make teststring a little bigger before we do anything with it.
- # a 1K string should be a reasonable start.
- for i in 1 2 3 4 5 6 7 8; do
- teststring=$teststring$teststring
- done
- SHELL=${SHELL-${CONFIG_SHELL-/bin/sh}}
- # If test is not a shell built-in, we'll probably end up computing a
- # maximum length that is only half of the actual maximum length, but
- # we can't tell.
- while { test X`env echo "$teststring$teststring" 2>/dev/null` \
- = "X$teststring$teststring"; } >/dev/null 2>&1 &&
- test 17 != "$i" # 1/2 MB should be enough
- do
- i=`expr $i + 1`
- teststring=$teststring$teststring
- done
- # Only check the string length outside the loop.
- lt_cv_sys_max_cmd_len=`expr "X$teststring" : ".*" 2>&1`
- teststring=
- # Add a significant safety factor because C++ compilers can tack on
- # massive amounts of additional arguments before passing them to the
- # linker. It appears as though 1/2 is a usable value.
- lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 2`
- fi
- ;;
- esac
-
-fi
-
-if test -n "$lt_cv_sys_max_cmd_len"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_sys_max_cmd_len" >&5
-$as_echo "$lt_cv_sys_max_cmd_len" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: none" >&5
-$as_echo "none" >&6; }
-fi
-max_cmd_len=$lt_cv_sys_max_cmd_len
-
-
-
-
-
-
-: ${CP="cp -f"}
-: ${MV="mv -f"}
-: ${RM="rm -f"}
-
-if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then
- lt_unset=unset
-else
- lt_unset=false
-fi
-
-
-
-
-
-# test EBCDIC or ASCII
-case `echo X|tr X '\101'` in
- A) # ASCII based system
- # \n is not interpreted correctly by Solaris 8 /usr/ucb/tr
- lt_SP2NL='tr \040 \012'
- lt_NL2SP='tr \015\012 \040\040'
- ;;
- *) # EBCDIC based system
- lt_SP2NL='tr \100 \n'
- lt_NL2SP='tr \r\n \100\100'
- ;;
-esac
-
-
-
-
-
-
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to convert $build file names to $host format" >&5
-$as_echo_n "checking how to convert $build file names to $host format... " >&6; }
-if ${lt_cv_to_host_file_cmd+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- case $host in
- *-*-mingw* )
- case $build in
- *-*-mingw* ) # actually msys
- lt_cv_to_host_file_cmd=func_convert_file_msys_to_w32
- ;;
- *-*-cygwin* )
- lt_cv_to_host_file_cmd=func_convert_file_cygwin_to_w32
- ;;
- * ) # otherwise, assume *nix
- lt_cv_to_host_file_cmd=func_convert_file_nix_to_w32
- ;;
- esac
- ;;
- *-*-cygwin* )
- case $build in
- *-*-mingw* ) # actually msys
- lt_cv_to_host_file_cmd=func_convert_file_msys_to_cygwin
- ;;
- *-*-cygwin* )
- lt_cv_to_host_file_cmd=func_convert_file_noop
- ;;
- * ) # otherwise, assume *nix
- lt_cv_to_host_file_cmd=func_convert_file_nix_to_cygwin
- ;;
- esac
- ;;
- * ) # unhandled hosts (and "normal" native builds)
- lt_cv_to_host_file_cmd=func_convert_file_noop
- ;;
-esac
-
-fi
-
-to_host_file_cmd=$lt_cv_to_host_file_cmd
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_to_host_file_cmd" >&5
-$as_echo "$lt_cv_to_host_file_cmd" >&6; }
-
-
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to convert $build file names to toolchain format" >&5
-$as_echo_n "checking how to convert $build file names to toolchain format... " >&6; }
-if ${lt_cv_to_tool_file_cmd+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- #assume ordinary cross tools, or native build.
-lt_cv_to_tool_file_cmd=func_convert_file_noop
-case $host in
- *-*-mingw* )
- case $build in
- *-*-mingw* ) # actually msys
- lt_cv_to_tool_file_cmd=func_convert_file_msys_to_w32
- ;;
- esac
- ;;
-esac
-
-fi
-
-to_tool_file_cmd=$lt_cv_to_tool_file_cmd
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_to_tool_file_cmd" >&5
-$as_echo "$lt_cv_to_tool_file_cmd" >&6; }
-
-
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $LD option to reload object files" >&5
-$as_echo_n "checking for $LD option to reload object files... " >&6; }
-if ${lt_cv_ld_reload_flag+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_ld_reload_flag='-r'
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_reload_flag" >&5
-$as_echo "$lt_cv_ld_reload_flag" >&6; }
-reload_flag=$lt_cv_ld_reload_flag
-case $reload_flag in
-"" | " "*) ;;
-*) reload_flag=" $reload_flag" ;;
-esac
-reload_cmds='$LD$reload_flag -o $output$reload_objs'
-case $host_os in
- cygwin* | mingw* | pw32* | cegcc*)
- if test yes != "$GCC"; then
- reload_cmds=false
- fi
- ;;
- darwin*)
- if test yes = "$GCC"; then
- reload_cmds='$LTCC $LTCFLAGS -nostdlib $wl-r -o $output$reload_objs'
- else
- reload_cmds='$LD$reload_flag -o $output$reload_objs'
- fi
- ;;
-esac
-
-
-
-
-
-
-
-
-
-if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}objdump", so it can be a program name with args.
-set dummy ${ac_tool_prefix}objdump; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_OBJDUMP+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$OBJDUMP"; then
- ac_cv_prog_OBJDUMP="$OBJDUMP" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_OBJDUMP="${ac_tool_prefix}objdump"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-OBJDUMP=$ac_cv_prog_OBJDUMP
-if test -n "$OBJDUMP"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OBJDUMP" >&5
-$as_echo "$OBJDUMP" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_OBJDUMP"; then
- ac_ct_OBJDUMP=$OBJDUMP
- # Extract the first word of "objdump", so it can be a program name with args.
-set dummy objdump; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_ac_ct_OBJDUMP+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_OBJDUMP"; then
- ac_cv_prog_ac_ct_OBJDUMP="$ac_ct_OBJDUMP" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_ac_ct_OBJDUMP="objdump"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_OBJDUMP=$ac_cv_prog_ac_ct_OBJDUMP
-if test -n "$ac_ct_OBJDUMP"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OBJDUMP" >&5
-$as_echo "$ac_ct_OBJDUMP" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_ct_OBJDUMP" = x; then
- OBJDUMP="false"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- OBJDUMP=$ac_ct_OBJDUMP
- fi
-else
- OBJDUMP="$ac_cv_prog_OBJDUMP"
-fi
-
-test -z "$OBJDUMP" && OBJDUMP=objdump
-
-
-
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to recognize dependent libraries" >&5
-$as_echo_n "checking how to recognize dependent libraries... " >&6; }
-if ${lt_cv_deplibs_check_method+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_file_magic_cmd='$MAGIC_CMD'
-lt_cv_file_magic_test_file=
-lt_cv_deplibs_check_method='unknown'
-# Need to set the preceding variable on all platforms that support
-# interlibrary dependencies.
-# 'none' -- dependencies not supported.
-# 'unknown' -- same as none, but documents that we really don't know.
-# 'pass_all' -- all dependencies passed with no checks.
-# 'test_compile' -- check by making test program.
-# 'file_magic [[regex]]' -- check by looking for files in library path
-# that responds to the $file_magic_cmd with a given extended regex.
-# If you have 'file' or equivalent on your system and you're not sure
-# whether 'pass_all' will *always* work, you probably want this one.
-
-case $host_os in
-aix[4-9]*)
- lt_cv_deplibs_check_method=pass_all
- ;;
-
-beos*)
- lt_cv_deplibs_check_method=pass_all
- ;;
-
-bsdi[45]*)
- lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (shared object|dynamic lib)'
- lt_cv_file_magic_cmd='/usr/bin/file -L'
- lt_cv_file_magic_test_file=/shlib/libc.so
- ;;
-
-cygwin*)
- # func_win32_libid is a shell function defined in ltmain.sh
- lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL'
- lt_cv_file_magic_cmd='func_win32_libid'
- ;;
-
-mingw* | pw32*)
- # Base MSYS/MinGW do not provide the 'file' command needed by
- # func_win32_libid shell function, so use a weaker test based on 'objdump',
- # unless we find 'file', for example because we are cross-compiling.
- if ( file / ) >/dev/null 2>&1; then
- lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL'
- lt_cv_file_magic_cmd='func_win32_libid'
- else
- # Keep this pattern in sync with the one in func_win32_libid.
- lt_cv_deplibs_check_method='file_magic file format (pei*-i386(.*architecture: i386)?|pe-arm-wince|pe-x86-64)'
- lt_cv_file_magic_cmd='$OBJDUMP -f'
- fi
- ;;
-
-cegcc*)
- # use the weaker test based on 'objdump'. See mingw*.
- lt_cv_deplibs_check_method='file_magic file format pe-arm-.*little(.*architecture: arm)?'
- lt_cv_file_magic_cmd='$OBJDUMP -f'
- ;;
-
-darwin* | rhapsody*)
- lt_cv_deplibs_check_method=pass_all
- ;;
-
-freebsd* | dragonfly*)
- if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then
- case $host_cpu in
- i*86 )
- # Not sure whether the presence of OpenBSD here was a mistake.
- # Let's accept both of them until this is cleared up.
- lt_cv_deplibs_check_method='file_magic (FreeBSD|OpenBSD|DragonFly)/i[3-9]86 (compact )?demand paged shared library'
- lt_cv_file_magic_cmd=/usr/bin/file
- lt_cv_file_magic_test_file=`echo /usr/lib/libc.so.*`
- ;;
- esac
- else
- lt_cv_deplibs_check_method=pass_all
- fi
- ;;
-
-haiku*)
- lt_cv_deplibs_check_method=pass_all
- ;;
-
-hpux10.20* | hpux11*)
- lt_cv_file_magic_cmd=/usr/bin/file
- case $host_cpu in
- ia64*)
- lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF-[0-9][0-9]) shared object file - IA64'
- lt_cv_file_magic_test_file=/usr/lib/hpux32/libc.so
- ;;
- hppa*64*)
- lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF[ -][0-9][0-9])(-bit)?( [LM]SB)? shared object( file)?[, -]* PA-RISC [0-9]\.[0-9]'
- lt_cv_file_magic_test_file=/usr/lib/pa20_64/libc.sl
- ;;
- *)
- lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|PA-RISC[0-9]\.[0-9]) shared library'
- lt_cv_file_magic_test_file=/usr/lib/libc.sl
- ;;
- esac
- ;;
-
-interix[3-9]*)
- # PIC code is broken on Interix 3.x, that's why |\.a not |_pic\.a here
- lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so|\.a)$'
- ;;
-
-irix5* | irix6* | nonstopux*)
- case $LD in
- *-32|*"-32 ") libmagic=32-bit;;
- *-n32|*"-n32 ") libmagic=N32;;
- *-64|*"-64 ") libmagic=64-bit;;
- *) libmagic=never-match;;
- esac
- lt_cv_deplibs_check_method=pass_all
- ;;
-
-# This must be glibc/ELF.
-linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*)
- lt_cv_deplibs_check_method=pass_all
- ;;
-
-netbsd* | netbsdelf*-gnu)
- if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then
- lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|_pic\.a)$'
- else
- lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so|_pic\.a)$'
- fi
- ;;
-
-newos6*)
- lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (executable|dynamic lib)'
- lt_cv_file_magic_cmd=/usr/bin/file
- lt_cv_file_magic_test_file=/usr/lib/libnls.so
- ;;
-
-*nto* | *qnx*)
- lt_cv_deplibs_check_method=pass_all
- ;;
-
-openbsd* | bitrig*)
- if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`"; then
- lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|\.so|_pic\.a)$'
- else
- lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|_pic\.a)$'
- fi
- ;;
-
-osf3* | osf4* | osf5*)
- lt_cv_deplibs_check_method=pass_all
- ;;
-
-rdos*)
- lt_cv_deplibs_check_method=pass_all
- ;;
-
-solaris*)
- lt_cv_deplibs_check_method=pass_all
- ;;
-
-sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*)
- lt_cv_deplibs_check_method=pass_all
- ;;
-
-sysv4 | sysv4.3*)
- case $host_vendor in
- motorola)
- lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (shared object|dynamic lib) M[0-9][0-9]* Version [0-9]'
- lt_cv_file_magic_test_file=`echo /usr/lib/libc.so*`
- ;;
- ncr)
- lt_cv_deplibs_check_method=pass_all
- ;;
- sequent)
- lt_cv_file_magic_cmd='/bin/file'
- lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [LM]SB (shared object|dynamic lib )'
- ;;
- sni)
- lt_cv_file_magic_cmd='/bin/file'
- lt_cv_deplibs_check_method="file_magic ELF [0-9][0-9]*-bit [LM]SB dynamic lib"
- lt_cv_file_magic_test_file=/lib/libc.so
- ;;
- siemens)
- lt_cv_deplibs_check_method=pass_all
- ;;
- pc)
- lt_cv_deplibs_check_method=pass_all
- ;;
- esac
- ;;
-
-tpf*)
- lt_cv_deplibs_check_method=pass_all
- ;;
-os2*)
- lt_cv_deplibs_check_method=pass_all
- ;;
-esac
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_deplibs_check_method" >&5
-$as_echo "$lt_cv_deplibs_check_method" >&6; }
-
-file_magic_glob=
-want_nocaseglob=no
-if test "$build" = "$host"; then
- case $host_os in
- mingw* | pw32*)
- if ( shopt | grep nocaseglob ) >/dev/null 2>&1; then
- want_nocaseglob=yes
- else
- file_magic_glob=`echo aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ | $SED -e "s/\(..\)/s\/[\1]\/[\1]\/g;/g"`
- fi
- ;;
- esac
-fi
-
-file_magic_cmd=$lt_cv_file_magic_cmd
-deplibs_check_method=$lt_cv_deplibs_check_method
-test -z "$deplibs_check_method" && deplibs_check_method=unknown
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}dlltool", so it can be a program name with args.
-set dummy ${ac_tool_prefix}dlltool; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_DLLTOOL+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$DLLTOOL"; then
- ac_cv_prog_DLLTOOL="$DLLTOOL" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_DLLTOOL="${ac_tool_prefix}dlltool"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-DLLTOOL=$ac_cv_prog_DLLTOOL
-if test -n "$DLLTOOL"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DLLTOOL" >&5
-$as_echo "$DLLTOOL" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_DLLTOOL"; then
- ac_ct_DLLTOOL=$DLLTOOL
- # Extract the first word of "dlltool", so it can be a program name with args.
-set dummy dlltool; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_ac_ct_DLLTOOL+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_DLLTOOL"; then
- ac_cv_prog_ac_ct_DLLTOOL="$ac_ct_DLLTOOL" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_ac_ct_DLLTOOL="dlltool"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_DLLTOOL=$ac_cv_prog_ac_ct_DLLTOOL
-if test -n "$ac_ct_DLLTOOL"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DLLTOOL" >&5
-$as_echo "$ac_ct_DLLTOOL" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_ct_DLLTOOL" = x; then
- DLLTOOL="false"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- DLLTOOL=$ac_ct_DLLTOOL
- fi
-else
- DLLTOOL="$ac_cv_prog_DLLTOOL"
-fi
-
-test -z "$DLLTOOL" && DLLTOOL=dlltool
-
-
-
-
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to associate runtime and link libraries" >&5
-$as_echo_n "checking how to associate runtime and link libraries... " >&6; }
-if ${lt_cv_sharedlib_from_linklib_cmd+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_sharedlib_from_linklib_cmd='unknown'
-
-case $host_os in
-cygwin* | mingw* | pw32* | cegcc*)
- # two different shell functions defined in ltmain.sh;
- # decide which one to use based on capabilities of $DLLTOOL
- case `$DLLTOOL --help 2>&1` in
- *--identify-strict*)
- lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib
- ;;
- *)
- lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib_fallback
- ;;
- esac
- ;;
-*)
- # fallback: assume linklib IS sharedlib
- lt_cv_sharedlib_from_linklib_cmd=$ECHO
- ;;
-esac
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_sharedlib_from_linklib_cmd" >&5
-$as_echo "$lt_cv_sharedlib_from_linklib_cmd" >&6; }
-sharedlib_from_linklib_cmd=$lt_cv_sharedlib_from_linklib_cmd
-test -z "$sharedlib_from_linklib_cmd" && sharedlib_from_linklib_cmd=$ECHO
-
-
-
-
-
-
-
-if test -n "$ac_tool_prefix"; then
- for ac_prog in ar
- do
- # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args.
-set dummy $ac_tool_prefix$ac_prog; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_AR+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$AR"; then
- ac_cv_prog_AR="$AR" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_AR="$ac_tool_prefix$ac_prog"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-AR=$ac_cv_prog_AR
-if test -n "$AR"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AR" >&5
-$as_echo "$AR" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- test -n "$AR" && break
- done
-fi
-if test -z "$AR"; then
- ac_ct_AR=$AR
- for ac_prog in ar
-do
- # Extract the first word of "$ac_prog", so it can be a program name with args.
-set dummy $ac_prog; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_ac_ct_AR+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_AR"; then
- ac_cv_prog_ac_ct_AR="$ac_ct_AR" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_ac_ct_AR="$ac_prog"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_AR=$ac_cv_prog_ac_ct_AR
-if test -n "$ac_ct_AR"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_AR" >&5
-$as_echo "$ac_ct_AR" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- test -n "$ac_ct_AR" && break
-done
-
- if test "x$ac_ct_AR" = x; then
- AR="false"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- AR=$ac_ct_AR
- fi
-fi
-
-: ${AR=ar}
-
-
-
-
-
-
-# Use ARFLAGS variable as AR's operation code to sync the variable naming with
-# Automake. If both AR_FLAGS and ARFLAGS are specified, AR_FLAGS should have
-# higher priority because thats what people were doing historically (setting
-# ARFLAGS for automake and AR_FLAGS for libtool). FIXME: Make the AR_FLAGS
-# variable obsoleted/removed.
-
-test ${AR_FLAGS+y} || AR_FLAGS=${ARFLAGS-cr}
-lt_ar_flags=$AR_FLAGS
-
-
-
-
-
-
-# Make AR_FLAGS overridable by 'make ARFLAGS='. Don't try to run-time override
-# by AR_FLAGS because that was never working and AR_FLAGS is about to die.
-
-
-
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for archiver @FILE support" >&5
-$as_echo_n "checking for archiver @FILE support... " >&6; }
-if ${lt_cv_ar_at_file+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_ar_at_file=no
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- echo conftest.$ac_objext > conftest.lst
- lt_ar_try='$AR $AR_FLAGS libconftest.a @conftest.lst >&5'
- { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$lt_ar_try\""; } >&5
- (eval $lt_ar_try) 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }
- if test 0 -eq "$ac_status"; then
- # Ensure the archiver fails upon bogus file names.
- rm -f conftest.$ac_objext libconftest.a
- { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$lt_ar_try\""; } >&5
- (eval $lt_ar_try) 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }
- if test 0 -ne "$ac_status"; then
- lt_cv_ar_at_file=@
- fi
- fi
- rm -f conftest.* libconftest.a
-
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ar_at_file" >&5
-$as_echo "$lt_cv_ar_at_file" >&6; }
-
-if test no = "$lt_cv_ar_at_file"; then
- archiver_list_spec=
-else
- archiver_list_spec=$lt_cv_ar_at_file
-fi
-
-
-
-
-
-
-
-if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args.
-set dummy ${ac_tool_prefix}strip; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_STRIP+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$STRIP"; then
- ac_cv_prog_STRIP="$STRIP" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_STRIP="${ac_tool_prefix}strip"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-STRIP=$ac_cv_prog_STRIP
-if test -n "$STRIP"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $STRIP" >&5
-$as_echo "$STRIP" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_STRIP"; then
- ac_ct_STRIP=$STRIP
- # Extract the first word of "strip", so it can be a program name with args.
-set dummy strip; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_ac_ct_STRIP+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_STRIP"; then
- ac_cv_prog_ac_ct_STRIP="$ac_ct_STRIP" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_ac_ct_STRIP="strip"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_STRIP=$ac_cv_prog_ac_ct_STRIP
-if test -n "$ac_ct_STRIP"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_STRIP" >&5
-$as_echo "$ac_ct_STRIP" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_ct_STRIP" = x; then
- STRIP=":"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- STRIP=$ac_ct_STRIP
- fi
-else
- STRIP="$ac_cv_prog_STRIP"
-fi
-
-test -z "$STRIP" && STRIP=:
-
-
-
-
-
-
-if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}ranlib", so it can be a program name with args.
-set dummy ${ac_tool_prefix}ranlib; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_RANLIB+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$RANLIB"; then
- ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_RANLIB="${ac_tool_prefix}ranlib"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-RANLIB=$ac_cv_prog_RANLIB
-if test -n "$RANLIB"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $RANLIB" >&5
-$as_echo "$RANLIB" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_RANLIB"; then
- ac_ct_RANLIB=$RANLIB
- # Extract the first word of "ranlib", so it can be a program name with args.
-set dummy ranlib; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_ac_ct_RANLIB+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_RANLIB"; then
- ac_cv_prog_ac_ct_RANLIB="$ac_ct_RANLIB" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_ac_ct_RANLIB="ranlib"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_RANLIB=$ac_cv_prog_ac_ct_RANLIB
-if test -n "$ac_ct_RANLIB"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_RANLIB" >&5
-$as_echo "$ac_ct_RANLIB" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_ct_RANLIB" = x; then
- RANLIB=":"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- RANLIB=$ac_ct_RANLIB
- fi
-else
- RANLIB="$ac_cv_prog_RANLIB"
-fi
-
-test -z "$RANLIB" && RANLIB=:
-
-
-
-
-
-
-# Determine commands to create old-style static archives.
-old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs'
-old_postinstall_cmds='chmod 644 $oldlib'
-old_postuninstall_cmds=
-
-if test -n "$RANLIB"; then
- case $host_os in
- bitrig* | openbsd*)
- old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB -t \$tool_oldlib"
- ;;
- *)
- old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB \$tool_oldlib"
- ;;
- esac
- old_archive_cmds="$old_archive_cmds~\$RANLIB \$tool_oldlib"
-fi
-
-case $host_os in
- darwin*)
- lock_old_archive_extraction=yes ;;
- *)
- lock_old_archive_extraction=no ;;
-esac
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-# If no C compiler was specified, use CC.
-LTCC=${LTCC-"$CC"}
-
-# If no C compiler flags were specified, use CFLAGS.
-LTCFLAGS=${LTCFLAGS-"$CFLAGS"}
-
-# Allow CC to be a program name with arguments.
-compiler=$CC
-
-
-# Check for command to grab the raw symbol name followed by C symbol from nm.
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking command to parse $NM output from $compiler object" >&5
-$as_echo_n "checking command to parse $NM output from $compiler object... " >&6; }
-if ${lt_cv_sys_global_symbol_pipe+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
-# These are sane defaults that work on at least a few old systems.
-# [They come from Ultrix. What could be older than Ultrix?!! ;)]
-
-# Character class describing NM global symbol codes.
-symcode='[BCDEGRST]'
-
-# Regexp to match symbols that can be accessed directly from C.
-sympat='\([_A-Za-z][_A-Za-z0-9]*\)'
-
-# Define system-specific variables.
-case $host_os in
-aix*)
- symcode='[BCDT]'
- ;;
-cygwin* | mingw* | pw32* | cegcc*)
- symcode='[ABCDGISTW]'
- ;;
-hpux*)
- if test ia64 = "$host_cpu"; then
- symcode='[ABCDEGRST]'
- fi
- ;;
-irix* | nonstopux*)
- symcode='[BCDEGRST]'
- ;;
-osf*)
- symcode='[BCDEGQRST]'
- ;;
-solaris*)
- symcode='[BDRT]'
- ;;
-sco3.2v5*)
- symcode='[DT]'
- ;;
-sysv4.2uw2*)
- symcode='[DT]'
- ;;
-sysv5* | sco5v6* | unixware* | OpenUNIX*)
- symcode='[ABDT]'
- ;;
-sysv4)
- symcode='[DFNSTU]'
- ;;
-esac
-
-# If we're using GNU nm, then use its standard symbol codes.
-case `$NM -V 2>&1` in
-*GNU* | *'with BFD'*)
- symcode='[ABCDGIRSTW]' ;;
-esac
-
-if test "$lt_cv_nm_interface" = "MS dumpbin"; then
- # Gets list of data symbols to import.
- lt_cv_sys_global_symbol_to_import="sed -n -e 's/^I .* \(.*\)$/\1/p'"
- # Adjust the below global symbol transforms to fixup imported variables.
- lt_cdecl_hook=" -e 's/^I .* \(.*\)$/extern __declspec(dllimport) char \1;/p'"
- lt_c_name_hook=" -e 's/^I .* \(.*\)$/ {\"\1\", (void *) 0},/p'"
- lt_c_name_lib_hook="\
- -e 's/^I .* \(lib.*\)$/ {\"\1\", (void *) 0},/p'\
- -e 's/^I .* \(.*\)$/ {\"lib\1\", (void *) 0},/p'"
-else
- # Disable hooks by default.
- lt_cv_sys_global_symbol_to_import=
- lt_cdecl_hook=
- lt_c_name_hook=
- lt_c_name_lib_hook=
-fi
-
-# Transform an extracted symbol line into a proper C declaration.
-# Some systems (esp. on ia64) link data and code symbols differently,
-# so use this general approach.
-lt_cv_sys_global_symbol_to_cdecl="sed -n"\
-$lt_cdecl_hook\
-" -e 's/^T .* \(.*\)$/extern int \1();/p'"\
-" -e 's/^$symcode$symcode* .* \(.*\)$/extern char \1;/p'"
-
-# Transform an extracted symbol line into symbol name and symbol address
-lt_cv_sys_global_symbol_to_c_name_address="sed -n"\
-$lt_c_name_hook\
-" -e 's/^: \(.*\) .*$/ {\"\1\", (void *) 0},/p'"\
-" -e 's/^$symcode$symcode* .* \(.*\)$/ {\"\1\", (void *) \&\1},/p'"
-
-# Transform an extracted symbol line into symbol name with lib prefix and
-# symbol address.
-lt_cv_sys_global_symbol_to_c_name_address_lib_prefix="sed -n"\
-$lt_c_name_lib_hook\
-" -e 's/^: \(.*\) .*$/ {\"\1\", (void *) 0},/p'"\
-" -e 's/^$symcode$symcode* .* \(lib.*\)$/ {\"\1\", (void *) \&\1},/p'"\
-" -e 's/^$symcode$symcode* .* \(.*\)$/ {\"lib\1\", (void *) \&\1},/p'"
-
-# Handle CRLF in mingw tool chain
-opt_cr=
-case $build_os in
-mingw*)
- opt_cr=`$ECHO 'x\{0,1\}' | tr x '\015'` # option cr in regexp
- ;;
-esac
-
-# Try without a prefix underscore, then with it.
-for ac_symprfx in "" "_"; do
-
- # Transform symcode, sympat, and symprfx into a raw symbol and a C symbol.
- symxfrm="\\1 $ac_symprfx\\2 \\2"
-
- # Write the raw and C identifiers.
- if test "$lt_cv_nm_interface" = "MS dumpbin"; then
- # Fake it for dumpbin and say T for any non-static function,
- # D for any global variable and I for any imported variable.
- # Also find C++ and __fastcall symbols from MSVC++ or ICC,
- # which start with @ or ?.
- lt_cv_sys_global_symbol_pipe="$AWK '"\
-" {last_section=section; section=\$ 3};"\
-" /^COFF SYMBOL TABLE/{for(i in hide) delete hide[i]};"\
-" /Section length .*#relocs.*(pick any)/{hide[last_section]=1};"\
-" /^ *Symbol name *: /{split(\$ 0,sn,\":\"); si=substr(sn[2],2)};"\
-" /^ *Type *: code/{print \"T\",si,substr(si,length(prfx))};"\
-" /^ *Type *: data/{print \"I\",si,substr(si,length(prfx))};"\
-" \$ 0!~/External *\|/{next};"\
-" / 0+ UNDEF /{next}; / UNDEF \([^|]\)*()/{next};"\
-" {if(hide[section]) next};"\
-" {f=\"D\"}; \$ 0~/\(\).*\|/{f=\"T\"};"\
-" {split(\$ 0,a,/\||\r/); split(a[2],s)};"\
-" s[1]~/^[@?]/{print f,s[1],s[1]; next};"\
-" s[1]~prfx {split(s[1],t,\"@\"); print f,t[1],substr(t[1],length(prfx))}"\
-" ' prfx=^$ac_symprfx"
- else
- lt_cv_sys_global_symbol_pipe="sed -n -e 's/^.*[ ]\($symcode$symcode*\)[ ][ ]*$ac_symprfx$sympat$opt_cr$/$symxfrm/p'"
- fi
- lt_cv_sys_global_symbol_pipe="$lt_cv_sys_global_symbol_pipe | sed '/ __gnu_lto/d'"
-
- # Check to see that the pipe works correctly.
- pipe_works=no
-
- rm -f conftest*
- cat > conftest.$ac_ext <<_LT_EOF
-#ifdef __cplusplus
-extern "C" {
-#endif
-char nm_test_var;
-void nm_test_func(void);
-void nm_test_func(void){}
-#ifdef __cplusplus
-}
-#endif
-int main(){nm_test_var='a';nm_test_func();return(0);}
-_LT_EOF
-
- if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
- (eval $ac_compile) 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then
- # Now try to grab the symbols.
- nlist=conftest.nm
- if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$NM conftest.$ac_objext \| "$lt_cv_sys_global_symbol_pipe" \> $nlist\""; } >&5
- (eval $NM conftest.$ac_objext \| "$lt_cv_sys_global_symbol_pipe" \> $nlist) 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; } && test -s "$nlist"; then
- # Try sorting and uniquifying the output.
- if sort "$nlist" | uniq > "$nlist"T; then
- mv -f "$nlist"T "$nlist"
- else
- rm -f "$nlist"T
- fi
-
- # Make sure that we snagged all the symbols we need.
- if $GREP ' nm_test_var$' "$nlist" >/dev/null; then
- if $GREP ' nm_test_func$' "$nlist" >/dev/null; then
- cat <<_LT_EOF > conftest.$ac_ext
-/* Keep this code in sync between libtool.m4, ltmain, lt_system.h, and tests. */
-#if defined _WIN32 || defined __CYGWIN__ || defined _WIN32_WCE
-/* DATA imports from DLLs on WIN32 can't be const, because runtime
- relocations are performed -- see ld's documentation on pseudo-relocs. */
-# define LT_DLSYM_CONST
-#elif defined __osf__
-/* This system does not cope well with relocations in const data. */
-# define LT_DLSYM_CONST
-#else
-# define LT_DLSYM_CONST const
-#endif
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-_LT_EOF
- # Now generate the symbol file.
- eval "$lt_cv_sys_global_symbol_to_cdecl"' < "$nlist" | $GREP -v main >> conftest.$ac_ext'
-
- cat <<_LT_EOF >> conftest.$ac_ext
-
-/* The mapping between symbol names and symbols. */
-LT_DLSYM_CONST struct {
- const char *name;
- void *address;
-}
-lt__PROGRAM__LTX_preloaded_symbols[] =
-{
- { "@PROGRAM@", (void *) 0 },
-_LT_EOF
- $SED "s/^$symcode$symcode* .* \(.*\)$/ {\"\1\", (void *) \&\1},/" < "$nlist" | $GREP -v main >> conftest.$ac_ext
- cat <<\_LT_EOF >> conftest.$ac_ext
- {0, (void *) 0}
-};
-
-/* This works around a problem in FreeBSD linker */
-#ifdef FREEBSD_WORKAROUND
-static const void *lt_preloaded_setup() {
- return lt__PROGRAM__LTX_preloaded_symbols;
-}
-#endif
-
-#ifdef __cplusplus
-}
-#endif
-_LT_EOF
- # Now try linking the two files.
- mv conftest.$ac_objext conftstm.$ac_objext
- lt_globsym_save_LIBS=$LIBS
- lt_globsym_save_CFLAGS=$CFLAGS
- LIBS=conftstm.$ac_objext
- CFLAGS="$CFLAGS$lt_prog_compiler_no_builtin_flag"
- if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5
- (eval $ac_link) 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; } && test -s conftest$ac_exeext; then
- pipe_works=yes
- fi
- LIBS=$lt_globsym_save_LIBS
- CFLAGS=$lt_globsym_save_CFLAGS
- else
- echo "cannot find nm_test_func in $nlist" >&5
- fi
- else
- echo "cannot find nm_test_var in $nlist" >&5
- fi
- else
- echo "cannot run $lt_cv_sys_global_symbol_pipe" >&5
- fi
- else
- echo "$progname: failed program was:" >&5
- cat conftest.$ac_ext >&5
- fi
- rm -rf conftest* conftst*
-
- # Do not use the global_symbol_pipe unless it works.
- if test yes = "$pipe_works"; then
- break
- else
- lt_cv_sys_global_symbol_pipe=
- fi
-done
-
-fi
-
-if test -z "$lt_cv_sys_global_symbol_pipe"; then
- lt_cv_sys_global_symbol_to_cdecl=
-fi
-if test -z "$lt_cv_sys_global_symbol_pipe$lt_cv_sys_global_symbol_to_cdecl"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: failed" >&5
-$as_echo "failed" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: ok" >&5
-$as_echo "ok" >&6; }
-fi
-
-# Response file support.
-if test "$lt_cv_nm_interface" = "MS dumpbin"; then
- nm_file_list_spec='@'
-elif $NM --help 2>/dev/null | grep '[@]FILE' >/dev/null; then
- nm_file_list_spec='@'
-fi
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for sysroot" >&5
-$as_echo_n "checking for sysroot... " >&6; }
-
-# Check whether --with-sysroot was given.
-if test "${with_sysroot+set}" = set; then :
- withval=$with_sysroot;
-else
- with_sysroot=no
-fi
-
-
-lt_sysroot=
-case $with_sysroot in #(
- yes)
- if test yes = "$GCC"; then
- lt_sysroot=`$CC --print-sysroot 2>/dev/null`
- fi
- ;; #(
- /*)
- lt_sysroot=`echo "$with_sysroot" | sed -e "$sed_quote_subst"`
- ;; #(
- no|'')
- ;; #(
- *)
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $with_sysroot" >&5
-$as_echo "$with_sysroot" >&6; }
- as_fn_error $? "The sysroot must be an absolute path." "$LINENO" 5
- ;;
-esac
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: ${lt_sysroot:-no}" >&5
-$as_echo "${lt_sysroot:-no}" >&6; }
-
-
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for a working dd" >&5
-$as_echo_n "checking for a working dd... " >&6; }
-if ${ac_cv_path_lt_DD+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- printf 0123456789abcdef0123456789abcdef >conftest.i
-cat conftest.i conftest.i >conftest2.i
-: ${lt_DD:=$DD}
-if test -z "$lt_DD"; then
- ac_path_lt_DD_found=false
- # Loop through the user's path and test for each of PROGNAME-LIST
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_prog in dd; do
- for ac_exec_ext in '' $ac_executable_extensions; do
- ac_path_lt_DD="$as_dir/$ac_prog$ac_exec_ext"
- as_fn_executable_p "$ac_path_lt_DD" || continue
-if "$ac_path_lt_DD" bs=32 count=1 <conftest2.i >conftest.out 2>/dev/null; then
- cmp -s conftest.i conftest.out \
- && ac_cv_path_lt_DD="$ac_path_lt_DD" ac_path_lt_DD_found=:
-fi
- $ac_path_lt_DD_found && break 3
- done
- done
- done
-IFS=$as_save_IFS
- if test -z "$ac_cv_path_lt_DD"; then
- :
- fi
-else
- ac_cv_path_lt_DD=$lt_DD
-fi
-
-rm -f conftest.i conftest2.i conftest.out
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_lt_DD" >&5
-$as_echo "$ac_cv_path_lt_DD" >&6; }
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to truncate binary pipes" >&5
-$as_echo_n "checking how to truncate binary pipes... " >&6; }
-if ${lt_cv_truncate_bin+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- printf 0123456789abcdef0123456789abcdef >conftest.i
-cat conftest.i conftest.i >conftest2.i
-lt_cv_truncate_bin=
-if "$ac_cv_path_lt_DD" bs=32 count=1 <conftest2.i >conftest.out 2>/dev/null; then
- cmp -s conftest.i conftest.out \
- && lt_cv_truncate_bin="$ac_cv_path_lt_DD bs=4096 count=1"
-fi
-rm -f conftest.i conftest2.i conftest.out
-test -z "$lt_cv_truncate_bin" && lt_cv_truncate_bin="$SED -e 4q"
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_truncate_bin" >&5
-$as_echo "$lt_cv_truncate_bin" >&6; }
-
-
-
-
-
-
-
-# Calculate cc_basename. Skip known compiler wrappers and cross-prefix.
-func_cc_basename ()
-{
- for cc_temp in $*""; do
- case $cc_temp in
- compile | *[\\/]compile | ccache | *[\\/]ccache ) ;;
- distcc | *[\\/]distcc | purify | *[\\/]purify ) ;;
- \-*) ;;
- *) break;;
- esac
- done
- func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"`
-}
-
-# Check whether --enable-libtool-lock was given.
-if test "${enable_libtool_lock+set}" = set; then :
- enableval=$enable_libtool_lock;
-fi
-
-test no = "$enable_libtool_lock" || enable_libtool_lock=yes
-
-# Some flags need to be propagated to the compiler or linker for good
-# libtool support.
-case $host in
-ia64-*-hpux*)
- # Find out what ABI is being produced by ac_compile, and set mode
- # options accordingly.
- echo 'int i;' > conftest.$ac_ext
- if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
- (eval $ac_compile) 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then
- case `/usr/bin/file conftest.$ac_objext` in
- *ELF-32*)
- HPUX_IA64_MODE=32
- ;;
- *ELF-64*)
- HPUX_IA64_MODE=64
- ;;
- esac
- fi
- rm -rf conftest*
- ;;
-*-*-irix6*)
- # Find out what ABI is being produced by ac_compile, and set linker
- # options accordingly.
- echo '#line '$LINENO' "configure"' > conftest.$ac_ext
- if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
- (eval $ac_compile) 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then
- if test yes = "$lt_cv_prog_gnu_ld"; then
- case `/usr/bin/file conftest.$ac_objext` in
- *32-bit*)
- LD="${LD-ld} -melf32bsmip"
- ;;
- *N32*)
- LD="${LD-ld} -melf32bmipn32"
- ;;
- *64-bit*)
- LD="${LD-ld} -melf64bmip"
- ;;
- esac
- else
- case `/usr/bin/file conftest.$ac_objext` in
- *32-bit*)
- LD="${LD-ld} -32"
- ;;
- *N32*)
- LD="${LD-ld} -n32"
- ;;
- *64-bit*)
- LD="${LD-ld} -64"
- ;;
- esac
- fi
- fi
- rm -rf conftest*
- ;;
-
-mips64*-*linux*)
- # Find out what ABI is being produced by ac_compile, and set linker
- # options accordingly.
- echo '#line '$LINENO' "configure"' > conftest.$ac_ext
- if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
- (eval $ac_compile) 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then
- emul=elf
- case `/usr/bin/file conftest.$ac_objext` in
- *32-bit*)
- emul="${emul}32"
- ;;
- *64-bit*)
- emul="${emul}64"
- ;;
- esac
- case `/usr/bin/file conftest.$ac_objext` in
- *MSB*)
- emul="${emul}btsmip"
- ;;
- *LSB*)
- emul="${emul}ltsmip"
- ;;
- esac
- case `/usr/bin/file conftest.$ac_objext` in
- *N32*)
- emul="${emul}n32"
- ;;
- esac
- LD="${LD-ld} -m $emul"
- fi
- rm -rf conftest*
- ;;
-
-x86_64-*kfreebsd*-gnu|x86_64-*linux*|powerpc*-*linux*| \
-s390*-*linux*|s390*-*tpf*|sparc*-*linux*)
- # Find out what ABI is being produced by ac_compile, and set linker
- # options accordingly. Note that the listed cases only cover the
- # situations where additional linker options are needed (such as when
- # doing 32-bit compilation for a host where ld defaults to 64-bit, or
- # vice versa); the common cases where no linker options are needed do
- # not appear in the list.
- echo 'int i;' > conftest.$ac_ext
- if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
- (eval $ac_compile) 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then
- case `/usr/bin/file conftest.o` in
- *32-bit*)
- case $host in
- x86_64-*kfreebsd*-gnu)
- LD="${LD-ld} -m elf_i386_fbsd"
- ;;
- x86_64-*linux*)
- case `/usr/bin/file conftest.o` in
- *x86-64*)
- LD="${LD-ld} -m elf32_x86_64"
- ;;
- *)
- LD="${LD-ld} -m elf_i386"
- ;;
- esac
- ;;
- powerpc64le-*linux*)
- LD="${LD-ld} -m elf32lppclinux"
- ;;
- powerpc64-*linux*)
- LD="${LD-ld} -m elf32ppclinux"
- ;;
- s390x-*linux*)
- LD="${LD-ld} -m elf_s390"
- ;;
- sparc64-*linux*)
- LD="${LD-ld} -m elf32_sparc"
- ;;
- esac
- ;;
- *64-bit*)
- case $host in
- x86_64-*kfreebsd*-gnu)
- LD="${LD-ld} -m elf_x86_64_fbsd"
- ;;
- x86_64-*linux*)
- LD="${LD-ld} -m elf_x86_64"
- ;;
- powerpcle-*linux*)
- LD="${LD-ld} -m elf64lppc"
- ;;
- powerpc-*linux*)
- LD="${LD-ld} -m elf64ppc"
- ;;
- s390*-*linux*|s390*-*tpf*)
- LD="${LD-ld} -m elf64_s390"
- ;;
- sparc*-*linux*)
- LD="${LD-ld} -m elf64_sparc"
- ;;
- esac
- ;;
- esac
- fi
- rm -rf conftest*
- ;;
-
-*-*-sco3.2v5*)
- # On SCO OpenServer 5, we need -belf to get full-featured binaries.
- SAVE_CFLAGS=$CFLAGS
- CFLAGS="$CFLAGS -belf"
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C compiler needs -belf" >&5
-$as_echo_n "checking whether the C compiler needs -belf... " >&6; }
-if ${lt_cv_cc_needs_belf+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- lt_cv_cc_needs_belf=yes
-else
- lt_cv_cc_needs_belf=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_cc_needs_belf" >&5
-$as_echo "$lt_cv_cc_needs_belf" >&6; }
- if test yes != "$lt_cv_cc_needs_belf"; then
- # this is probably gcc 2.8.0, egcs 1.0 or newer; no need for -belf
- CFLAGS=$SAVE_CFLAGS
- fi
- ;;
-*-*solaris*)
- # Find out what ABI is being produced by ac_compile, and set linker
- # options accordingly.
- echo 'int i;' > conftest.$ac_ext
- if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
- (eval $ac_compile) 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then
- case `/usr/bin/file conftest.o` in
- *64-bit*)
- case $lt_cv_prog_gnu_ld in
- yes*)
- case $host in
- i?86-*-solaris*|x86_64-*-solaris*)
- LD="${LD-ld} -m elf_x86_64"
- ;;
- sparc*-*-solaris*)
- LD="${LD-ld} -m elf64_sparc"
- ;;
- esac
- # GNU ld 2.21 introduced _sol2 emulations. Use them if available.
- if ${LD-ld} -V | grep _sol2 >/dev/null 2>&1; then
- LD=${LD-ld}_sol2
- fi
- ;;
- *)
- if ${LD-ld} -64 -r -o conftest2.o conftest.o >/dev/null 2>&1; then
- LD="${LD-ld} -64"
- fi
- ;;
- esac
- ;;
- esac
- fi
- rm -rf conftest*
- ;;
-esac
-
-need_locks=$enable_libtool_lock
-
-if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}mt", so it can be a program name with args.
-set dummy ${ac_tool_prefix}mt; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_MANIFEST_TOOL+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$MANIFEST_TOOL"; then
- ac_cv_prog_MANIFEST_TOOL="$MANIFEST_TOOL" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_MANIFEST_TOOL="${ac_tool_prefix}mt"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-MANIFEST_TOOL=$ac_cv_prog_MANIFEST_TOOL
-if test -n "$MANIFEST_TOOL"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MANIFEST_TOOL" >&5
-$as_echo "$MANIFEST_TOOL" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_MANIFEST_TOOL"; then
- ac_ct_MANIFEST_TOOL=$MANIFEST_TOOL
- # Extract the first word of "mt", so it can be a program name with args.
-set dummy mt; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_ac_ct_MANIFEST_TOOL+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_MANIFEST_TOOL"; then
- ac_cv_prog_ac_ct_MANIFEST_TOOL="$ac_ct_MANIFEST_TOOL" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_ac_ct_MANIFEST_TOOL="mt"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_MANIFEST_TOOL=$ac_cv_prog_ac_ct_MANIFEST_TOOL
-if test -n "$ac_ct_MANIFEST_TOOL"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_MANIFEST_TOOL" >&5
-$as_echo "$ac_ct_MANIFEST_TOOL" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_ct_MANIFEST_TOOL" = x; then
- MANIFEST_TOOL=":"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- MANIFEST_TOOL=$ac_ct_MANIFEST_TOOL
- fi
-else
- MANIFEST_TOOL="$ac_cv_prog_MANIFEST_TOOL"
-fi
-
-test -z "$MANIFEST_TOOL" && MANIFEST_TOOL=mt
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if $MANIFEST_TOOL is a manifest tool" >&5
-$as_echo_n "checking if $MANIFEST_TOOL is a manifest tool... " >&6; }
-if ${lt_cv_path_mainfest_tool+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_path_mainfest_tool=no
- echo "$as_me:$LINENO: $MANIFEST_TOOL '-?'" >&5
- $MANIFEST_TOOL '-?' 2>conftest.err > conftest.out
- cat conftest.err >&5
- if $GREP 'Manifest Tool' conftest.out > /dev/null; then
- lt_cv_path_mainfest_tool=yes
- fi
- rm -f conftest*
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_path_mainfest_tool" >&5
-$as_echo "$lt_cv_path_mainfest_tool" >&6; }
-if test yes != "$lt_cv_path_mainfest_tool"; then
- MANIFEST_TOOL=:
-fi
-
-
-
-
-
-
- case $host_os in
- rhapsody* | darwin*)
- if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}dsymutil", so it can be a program name with args.
-set dummy ${ac_tool_prefix}dsymutil; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_DSYMUTIL+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$DSYMUTIL"; then
- ac_cv_prog_DSYMUTIL="$DSYMUTIL" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_DSYMUTIL="${ac_tool_prefix}dsymutil"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-DSYMUTIL=$ac_cv_prog_DSYMUTIL
-if test -n "$DSYMUTIL"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DSYMUTIL" >&5
-$as_echo "$DSYMUTIL" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_DSYMUTIL"; then
- ac_ct_DSYMUTIL=$DSYMUTIL
- # Extract the first word of "dsymutil", so it can be a program name with args.
-set dummy dsymutil; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_ac_ct_DSYMUTIL+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_DSYMUTIL"; then
- ac_cv_prog_ac_ct_DSYMUTIL="$ac_ct_DSYMUTIL" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_ac_ct_DSYMUTIL="dsymutil"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_DSYMUTIL=$ac_cv_prog_ac_ct_DSYMUTIL
-if test -n "$ac_ct_DSYMUTIL"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DSYMUTIL" >&5
-$as_echo "$ac_ct_DSYMUTIL" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_ct_DSYMUTIL" = x; then
- DSYMUTIL=":"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- DSYMUTIL=$ac_ct_DSYMUTIL
- fi
-else
- DSYMUTIL="$ac_cv_prog_DSYMUTIL"
-fi
-
- if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}nmedit", so it can be a program name with args.
-set dummy ${ac_tool_prefix}nmedit; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_NMEDIT+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$NMEDIT"; then
- ac_cv_prog_NMEDIT="$NMEDIT" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_NMEDIT="${ac_tool_prefix}nmedit"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-NMEDIT=$ac_cv_prog_NMEDIT
-if test -n "$NMEDIT"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $NMEDIT" >&5
-$as_echo "$NMEDIT" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_NMEDIT"; then
- ac_ct_NMEDIT=$NMEDIT
- # Extract the first word of "nmedit", so it can be a program name with args.
-set dummy nmedit; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_ac_ct_NMEDIT+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_NMEDIT"; then
- ac_cv_prog_ac_ct_NMEDIT="$ac_ct_NMEDIT" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_ac_ct_NMEDIT="nmedit"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_NMEDIT=$ac_cv_prog_ac_ct_NMEDIT
-if test -n "$ac_ct_NMEDIT"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_NMEDIT" >&5
-$as_echo "$ac_ct_NMEDIT" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_ct_NMEDIT" = x; then
- NMEDIT=":"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- NMEDIT=$ac_ct_NMEDIT
- fi
-else
- NMEDIT="$ac_cv_prog_NMEDIT"
-fi
-
- if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}lipo", so it can be a program name with args.
-set dummy ${ac_tool_prefix}lipo; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_LIPO+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$LIPO"; then
- ac_cv_prog_LIPO="$LIPO" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_LIPO="${ac_tool_prefix}lipo"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-LIPO=$ac_cv_prog_LIPO
-if test -n "$LIPO"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $LIPO" >&5
-$as_echo "$LIPO" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_LIPO"; then
- ac_ct_LIPO=$LIPO
- # Extract the first word of "lipo", so it can be a program name with args.
-set dummy lipo; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_ac_ct_LIPO+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_LIPO"; then
- ac_cv_prog_ac_ct_LIPO="$ac_ct_LIPO" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_ac_ct_LIPO="lipo"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_LIPO=$ac_cv_prog_ac_ct_LIPO
-if test -n "$ac_ct_LIPO"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_LIPO" >&5
-$as_echo "$ac_ct_LIPO" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_ct_LIPO" = x; then
- LIPO=":"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- LIPO=$ac_ct_LIPO
- fi
-else
- LIPO="$ac_cv_prog_LIPO"
-fi
-
- if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}otool", so it can be a program name with args.
-set dummy ${ac_tool_prefix}otool; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_OTOOL+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$OTOOL"; then
- ac_cv_prog_OTOOL="$OTOOL" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_OTOOL="${ac_tool_prefix}otool"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-OTOOL=$ac_cv_prog_OTOOL
-if test -n "$OTOOL"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OTOOL" >&5
-$as_echo "$OTOOL" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_OTOOL"; then
- ac_ct_OTOOL=$OTOOL
- # Extract the first word of "otool", so it can be a program name with args.
-set dummy otool; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_ac_ct_OTOOL+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_OTOOL"; then
- ac_cv_prog_ac_ct_OTOOL="$ac_ct_OTOOL" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_ac_ct_OTOOL="otool"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_OTOOL=$ac_cv_prog_ac_ct_OTOOL
-if test -n "$ac_ct_OTOOL"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OTOOL" >&5
-$as_echo "$ac_ct_OTOOL" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_ct_OTOOL" = x; then
- OTOOL=":"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- OTOOL=$ac_ct_OTOOL
- fi
-else
- OTOOL="$ac_cv_prog_OTOOL"
-fi
-
- if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}otool64", so it can be a program name with args.
-set dummy ${ac_tool_prefix}otool64; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_OTOOL64+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$OTOOL64"; then
- ac_cv_prog_OTOOL64="$OTOOL64" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_OTOOL64="${ac_tool_prefix}otool64"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-OTOOL64=$ac_cv_prog_OTOOL64
-if test -n "$OTOOL64"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OTOOL64" >&5
-$as_echo "$OTOOL64" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_OTOOL64"; then
- ac_ct_OTOOL64=$OTOOL64
- # Extract the first word of "otool64", so it can be a program name with args.
-set dummy otool64; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_ac_ct_OTOOL64+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_OTOOL64"; then
- ac_cv_prog_ac_ct_OTOOL64="$ac_ct_OTOOL64" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_ac_ct_OTOOL64="otool64"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_OTOOL64=$ac_cv_prog_ac_ct_OTOOL64
-if test -n "$ac_ct_OTOOL64"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OTOOL64" >&5
-$as_echo "$ac_ct_OTOOL64" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_ct_OTOOL64" = x; then
- OTOOL64=":"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- OTOOL64=$ac_ct_OTOOL64
- fi
-else
- OTOOL64="$ac_cv_prog_OTOOL64"
-fi
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for -single_module linker flag" >&5
-$as_echo_n "checking for -single_module linker flag... " >&6; }
-if ${lt_cv_apple_cc_single_mod+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_apple_cc_single_mod=no
- if test -z "$LT_MULTI_MODULE"; then
- # By default we will add the -single_module flag. You can override
- # by either setting the environment variable LT_MULTI_MODULE
- # non-empty at configure time, or by adding -multi_module to the
- # link flags.
- rm -rf libconftest.dylib*
- echo "int foo(void){return 1;}" > conftest.c
- echo "$LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \
--dynamiclib -Wl,-single_module conftest.c" >&5
- $LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \
- -dynamiclib -Wl,-single_module conftest.c 2>conftest.err
- _lt_result=$?
- # If there is a non-empty error log, and "single_module"
- # appears in it, assume the flag caused a linker warning
- if test -s conftest.err && $GREP single_module conftest.err; then
- cat conftest.err >&5
- # Otherwise, if the output was created with a 0 exit code from
- # the compiler, it worked.
- elif test -f libconftest.dylib && test 0 = "$_lt_result"; then
- lt_cv_apple_cc_single_mod=yes
- else
- cat conftest.err >&5
- fi
- rm -rf libconftest.dylib*
- rm -f conftest.*
- fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_apple_cc_single_mod" >&5
-$as_echo "$lt_cv_apple_cc_single_mod" >&6; }
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for -exported_symbols_list linker flag" >&5
-$as_echo_n "checking for -exported_symbols_list linker flag... " >&6; }
-if ${lt_cv_ld_exported_symbols_list+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_ld_exported_symbols_list=no
- save_LDFLAGS=$LDFLAGS
- echo "_main" > conftest.sym
- LDFLAGS="$LDFLAGS -Wl,-exported_symbols_list,conftest.sym"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- lt_cv_ld_exported_symbols_list=yes
-else
- lt_cv_ld_exported_symbols_list=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- LDFLAGS=$save_LDFLAGS
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_exported_symbols_list" >&5
-$as_echo "$lt_cv_ld_exported_symbols_list" >&6; }
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for -force_load linker flag" >&5
-$as_echo_n "checking for -force_load linker flag... " >&6; }
-if ${lt_cv_ld_force_load+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_ld_force_load=no
- cat > conftest.c << _LT_EOF
-int forced_loaded() { return 2;}
-_LT_EOF
- echo "$LTCC $LTCFLAGS -c -o conftest.o conftest.c" >&5
- $LTCC $LTCFLAGS -c -o conftest.o conftest.c 2>&5
- echo "$AR $AR_FLAGS libconftest.a conftest.o" >&5
- $AR $AR_FLAGS libconftest.a conftest.o 2>&5
- echo "$RANLIB libconftest.a" >&5
- $RANLIB libconftest.a 2>&5
- cat > conftest.c << _LT_EOF
-int main() { return 0;}
-_LT_EOF
- echo "$LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a" >&5
- $LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a 2>conftest.err
- _lt_result=$?
- if test -s conftest.err && $GREP force_load conftest.err; then
- cat conftest.err >&5
- elif test -f conftest && test 0 = "$_lt_result" && $GREP forced_load conftest >/dev/null 2>&1; then
- lt_cv_ld_force_load=yes
- else
- cat conftest.err >&5
- fi
- rm -f conftest.err libconftest.a conftest conftest.c
- rm -rf conftest.dSYM
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_force_load" >&5
-$as_echo "$lt_cv_ld_force_load" >&6; }
- case $host_os in
- rhapsody* | darwin1.[012])
- _lt_dar_allow_undefined='$wl-undefined ${wl}suppress' ;;
- darwin1.*)
- _lt_dar_allow_undefined='$wl-flat_namespace $wl-undefined ${wl}suppress' ;;
- darwin*) # darwin 5.x on
- # if running on 10.5 or later, the deployment target defaults
- # to the OS version, if on x86, and 10.4, the deployment
- # target defaults to 10.4. Don't you love it?
- case ${MACOSX_DEPLOYMENT_TARGET-10.0},$host in
- 10.0,*86*-darwin8*|10.0,*-darwin[912]*)
- _lt_dar_allow_undefined='$wl-undefined ${wl}dynamic_lookup' ;;
- 10.[012][,.]*)
- _lt_dar_allow_undefined='$wl-flat_namespace $wl-undefined ${wl}suppress' ;;
- 10.*|11.*)
- _lt_dar_allow_undefined='$wl-undefined ${wl}dynamic_lookup' ;;
- esac
- ;;
- esac
- if test yes = "$lt_cv_apple_cc_single_mod"; then
- _lt_dar_single_mod='$single_module'
- fi
- if test yes = "$lt_cv_ld_exported_symbols_list"; then
- _lt_dar_export_syms=' $wl-exported_symbols_list,$output_objdir/$libname-symbols.expsym'
- else
- _lt_dar_export_syms='~$NMEDIT -s $output_objdir/$libname-symbols.expsym $lib'
- fi
- if test : != "$DSYMUTIL" && test no = "$lt_cv_ld_force_load"; then
- _lt_dsymutil='~$DSYMUTIL $lib || :'
- else
- _lt_dsymutil=
- fi
- ;;
- esac
-
-# func_munge_path_list VARIABLE PATH
-# -----------------------------------
-# VARIABLE is name of variable containing _space_ separated list of
-# directories to be munged by the contents of PATH, which is string
-# having a format:
-# "DIR[:DIR]:"
-# string "DIR[ DIR]" will be prepended to VARIABLE
-# ":DIR[:DIR]"
-# string "DIR[ DIR]" will be appended to VARIABLE
-# "DIRP[:DIRP]::[DIRA:]DIRA"
-# string "DIRP[ DIRP]" will be prepended to VARIABLE and string
-# "DIRA[ DIRA]" will be appended to VARIABLE
-# "DIR[:DIR]"
-# VARIABLE will be replaced by "DIR[ DIR]"
-func_munge_path_list ()
-{
- case x$2 in
- x)
- ;;
- *:)
- eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\"
- ;;
- x:*)
- eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\"
- ;;
- *::*)
- eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\"
- eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\"
- ;;
- *)
- eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\"
- ;;
- esac
-}
-
-for ac_header in dlfcn.h
-do :
- ac_fn_c_check_header_compile "$LINENO" "dlfcn.h" "ac_cv_header_dlfcn_h" "$ac_includes_default
-"
-if test "x$ac_cv_header_dlfcn_h" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_DLFCN_H 1
-_ACEOF
-
-fi
-
-done
-
-
-
-
-
-# Set options
-enable_dlopen=yes
-enable_win32_dll=yes
-
-case $host in
-*-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-cegcc*)
- if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}as", so it can be a program name with args.
-set dummy ${ac_tool_prefix}as; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_AS+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$AS"; then
- ac_cv_prog_AS="$AS" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_AS="${ac_tool_prefix}as"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-AS=$ac_cv_prog_AS
-if test -n "$AS"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AS" >&5
-$as_echo "$AS" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_AS"; then
- ac_ct_AS=$AS
- # Extract the first word of "as", so it can be a program name with args.
-set dummy as; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_ac_ct_AS+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_AS"; then
- ac_cv_prog_ac_ct_AS="$ac_ct_AS" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_ac_ct_AS="as"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_AS=$ac_cv_prog_ac_ct_AS
-if test -n "$ac_ct_AS"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_AS" >&5
-$as_echo "$ac_ct_AS" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_ct_AS" = x; then
- AS="false"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- AS=$ac_ct_AS
- fi
-else
- AS="$ac_cv_prog_AS"
-fi
-
- if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}dlltool", so it can be a program name with args.
-set dummy ${ac_tool_prefix}dlltool; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_DLLTOOL+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$DLLTOOL"; then
- ac_cv_prog_DLLTOOL="$DLLTOOL" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_DLLTOOL="${ac_tool_prefix}dlltool"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-DLLTOOL=$ac_cv_prog_DLLTOOL
-if test -n "$DLLTOOL"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DLLTOOL" >&5
-$as_echo "$DLLTOOL" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_DLLTOOL"; then
- ac_ct_DLLTOOL=$DLLTOOL
- # Extract the first word of "dlltool", so it can be a program name with args.
-set dummy dlltool; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_ac_ct_DLLTOOL+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_DLLTOOL"; then
- ac_cv_prog_ac_ct_DLLTOOL="$ac_ct_DLLTOOL" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_ac_ct_DLLTOOL="dlltool"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_DLLTOOL=$ac_cv_prog_ac_ct_DLLTOOL
-if test -n "$ac_ct_DLLTOOL"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DLLTOOL" >&5
-$as_echo "$ac_ct_DLLTOOL" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_ct_DLLTOOL" = x; then
- DLLTOOL="false"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- DLLTOOL=$ac_ct_DLLTOOL
- fi
-else
- DLLTOOL="$ac_cv_prog_DLLTOOL"
-fi
-
- if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}objdump", so it can be a program name with args.
-set dummy ${ac_tool_prefix}objdump; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_OBJDUMP+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$OBJDUMP"; then
- ac_cv_prog_OBJDUMP="$OBJDUMP" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_OBJDUMP="${ac_tool_prefix}objdump"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-OBJDUMP=$ac_cv_prog_OBJDUMP
-if test -n "$OBJDUMP"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OBJDUMP" >&5
-$as_echo "$OBJDUMP" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_OBJDUMP"; then
- ac_ct_OBJDUMP=$OBJDUMP
- # Extract the first word of "objdump", so it can be a program name with args.
-set dummy objdump; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_ac_ct_OBJDUMP+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_OBJDUMP"; then
- ac_cv_prog_ac_ct_OBJDUMP="$ac_ct_OBJDUMP" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_ac_ct_OBJDUMP="objdump"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_OBJDUMP=$ac_cv_prog_ac_ct_OBJDUMP
-if test -n "$ac_ct_OBJDUMP"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OBJDUMP" >&5
-$as_echo "$ac_ct_OBJDUMP" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_ct_OBJDUMP" = x; then
- OBJDUMP="false"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- OBJDUMP=$ac_ct_OBJDUMP
- fi
-else
- OBJDUMP="$ac_cv_prog_OBJDUMP"
-fi
-
- ;;
-esac
-
-test -z "$AS" && AS=as
-
-
-
-
-
-test -z "$DLLTOOL" && DLLTOOL=dlltool
-
-
-
-
-
-test -z "$OBJDUMP" && OBJDUMP=objdump
-
-
-
-
-
-
-
-
-
- # Check whether --enable-shared was given.
-if test "${enable_shared+set}" = set; then :
- enableval=$enable_shared; p=${PACKAGE-default}
- case $enableval in
- yes) enable_shared=yes ;;
- no) enable_shared=no ;;
- *)
- enable_shared=no
- # Look at the argument we got. We use all the common list separators.
- lt_save_ifs=$IFS; IFS=$IFS$PATH_SEPARATOR,
- for pkg in $enableval; do
- IFS=$lt_save_ifs
- if test "X$pkg" = "X$p"; then
- enable_shared=yes
- fi
- done
- IFS=$lt_save_ifs
- ;;
- esac
-else
- enable_shared=yes
-fi
-
-
-
-
-
-
-
-
-
- # Check whether --enable-static was given.
-if test "${enable_static+set}" = set; then :
- enableval=$enable_static; p=${PACKAGE-default}
- case $enableval in
- yes) enable_static=yes ;;
- no) enable_static=no ;;
- *)
- enable_static=no
- # Look at the argument we got. We use all the common list separators.
- lt_save_ifs=$IFS; IFS=$IFS$PATH_SEPARATOR,
- for pkg in $enableval; do
- IFS=$lt_save_ifs
- if test "X$pkg" = "X$p"; then
- enable_static=yes
- fi
- done
- IFS=$lt_save_ifs
- ;;
- esac
-else
- enable_static=yes
-fi
-
-
-
-
-
-
-
-
-
-
-# Check whether --with-pic was given.
-if test "${with_pic+set}" = set; then :
- withval=$with_pic; lt_p=${PACKAGE-default}
- case $withval in
- yes|no) pic_mode=$withval ;;
- *)
- pic_mode=default
- # Look at the argument we got. We use all the common list separators.
- lt_save_ifs=$IFS; IFS=$IFS$PATH_SEPARATOR,
- for lt_pkg in $withval; do
- IFS=$lt_save_ifs
- if test "X$lt_pkg" = "X$lt_p"; then
- pic_mode=yes
- fi
- done
- IFS=$lt_save_ifs
- ;;
- esac
-else
- pic_mode=default
-fi
-
-
-
-
-
-
-
-
- # Check whether --enable-fast-install was given.
-if test "${enable_fast_install+set}" = set; then :
- enableval=$enable_fast_install; p=${PACKAGE-default}
- case $enableval in
- yes) enable_fast_install=yes ;;
- no) enable_fast_install=no ;;
- *)
- enable_fast_install=no
- # Look at the argument we got. We use all the common list separators.
- lt_save_ifs=$IFS; IFS=$IFS$PATH_SEPARATOR,
- for pkg in $enableval; do
- IFS=$lt_save_ifs
- if test "X$pkg" = "X$p"; then
- enable_fast_install=yes
- fi
- done
- IFS=$lt_save_ifs
- ;;
- esac
-else
- enable_fast_install=yes
-fi
-
-
-
-
-
-
-
-
- shared_archive_member_spec=
-case $host,$enable_shared in
-power*-*-aix[5-9]*,yes)
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking which variant of shared library versioning to provide" >&5
-$as_echo_n "checking which variant of shared library versioning to provide... " >&6; }
-
-# Check whether --with-aix-soname was given.
-if test "${with_aix_soname+set}" = set; then :
- withval=$with_aix_soname; case $withval in
- aix|svr4|both)
- ;;
- *)
- as_fn_error $? "Unknown argument to --with-aix-soname" "$LINENO" 5
- ;;
- esac
- lt_cv_with_aix_soname=$with_aix_soname
-else
- if ${lt_cv_with_aix_soname+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_with_aix_soname=aix
-fi
-
- with_aix_soname=$lt_cv_with_aix_soname
-fi
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $with_aix_soname" >&5
-$as_echo "$with_aix_soname" >&6; }
- if test aix != "$with_aix_soname"; then
- # For the AIX way of multilib, we name the shared archive member
- # based on the bitwidth used, traditionally 'shr.o' or 'shr_64.o',
- # and 'shr.imp' or 'shr_64.imp', respectively, for the Import File.
- # Even when GNU compilers ignore OBJECT_MODE but need '-maix64' flag,
- # the AIX toolchain works better with OBJECT_MODE set (default 32).
- if test 64 = "${OBJECT_MODE-32}"; then
- shared_archive_member_spec=shr_64
- else
- shared_archive_member_spec=shr
- fi
- fi
- ;;
-*)
- with_aix_soname=aix
- ;;
-esac
-
-
-
-
-
-
-
-
-
-
-# This can be used to rebuild libtool when needed
-LIBTOOL_DEPS=$ltmain
-
-# Always use our own libtool.
-LIBTOOL='$(SHELL) $(top_builddir)/libtool'
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-test -z "$LN_S" && LN_S="ln -s"
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-if test -n "${ZSH_VERSION+set}"; then
- setopt NO_GLOB_SUBST
-fi
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for objdir" >&5
-$as_echo_n "checking for objdir... " >&6; }
-if ${lt_cv_objdir+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- rm -f .libs 2>/dev/null
-mkdir .libs 2>/dev/null
-if test -d .libs; then
- lt_cv_objdir=.libs
-else
- # MS-DOS does not allow filenames that begin with a dot.
- lt_cv_objdir=_libs
-fi
-rmdir .libs 2>/dev/null
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_objdir" >&5
-$as_echo "$lt_cv_objdir" >&6; }
-objdir=$lt_cv_objdir
-
-
-
-
-
-cat >>confdefs.h <<_ACEOF
-#define LT_OBJDIR "$lt_cv_objdir/"
-_ACEOF
-
-
-
-
-case $host_os in
-aix3*)
- # AIX sometimes has problems with the GCC collect2 program. For some
- # reason, if we set the COLLECT_NAMES environment variable, the problems
- # vanish in a puff of smoke.
- if test set != "${COLLECT_NAMES+set}"; then
- COLLECT_NAMES=
- export COLLECT_NAMES
- fi
- ;;
-esac
-
-# Global variables:
-ofile=libtool
-can_build_shared=yes
-
-# All known linkers require a '.a' archive for static linking (except MSVC and
-# ICC, which need '.lib').
-libext=a
-
-with_gnu_ld=$lt_cv_prog_gnu_ld
-
-old_CC=$CC
-old_CFLAGS=$CFLAGS
-
-# Set sane defaults for various variables
-test -z "$CC" && CC=cc
-test -z "$LTCC" && LTCC=$CC
-test -z "$LTCFLAGS" && LTCFLAGS=$CFLAGS
-test -z "$LD" && LD=ld
-test -z "$ac_objext" && ac_objext=o
-
-func_cc_basename $compiler
-cc_basename=$func_cc_basename_result
-
-
-# Only perform the check for file, if the check method requires it
-test -z "$MAGIC_CMD" && MAGIC_CMD=file
-case $deplibs_check_method in
-file_magic*)
- if test "$file_magic_cmd" = '$MAGIC_CMD'; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ${ac_tool_prefix}file" >&5
-$as_echo_n "checking for ${ac_tool_prefix}file... " >&6; }
-if ${lt_cv_path_MAGIC_CMD+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- case $MAGIC_CMD in
-[\\/*] | ?:[\\/]*)
- lt_cv_path_MAGIC_CMD=$MAGIC_CMD # Let the user override the test with a path.
- ;;
-*)
- lt_save_MAGIC_CMD=$MAGIC_CMD
- lt_save_ifs=$IFS; IFS=$PATH_SEPARATOR
- ac_dummy="/usr/bin$PATH_SEPARATOR$PATH"
- for ac_dir in $ac_dummy; do
- IFS=$lt_save_ifs
- test -z "$ac_dir" && ac_dir=.
- if test -f "$ac_dir/${ac_tool_prefix}file"; then
- lt_cv_path_MAGIC_CMD=$ac_dir/"${ac_tool_prefix}file"
- if test -n "$file_magic_test_file"; then
- case $deplibs_check_method in
- "file_magic "*)
- file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"`
- MAGIC_CMD=$lt_cv_path_MAGIC_CMD
- if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null |
- $EGREP "$file_magic_regex" > /dev/null; then
- :
- else
- cat <<_LT_EOF 1>&2
-
-*** Warning: the command libtool uses to detect shared libraries,
-*** $file_magic_cmd, produces output that libtool cannot recognize.
-*** The result is that libtool may fail to recognize shared libraries
-*** as such. This will affect the creation of libtool libraries that
-*** depend on shared libraries, but programs linked with such libtool
-*** libraries will work regardless of this problem. Nevertheless, you
-*** may want to report the problem to your system manager and/or to
-*** bug-libtool@gnu.org
-
-_LT_EOF
- fi ;;
- esac
- fi
- break
- fi
- done
- IFS=$lt_save_ifs
- MAGIC_CMD=$lt_save_MAGIC_CMD
- ;;
-esac
-fi
-
-MAGIC_CMD=$lt_cv_path_MAGIC_CMD
-if test -n "$MAGIC_CMD"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MAGIC_CMD" >&5
-$as_echo "$MAGIC_CMD" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-
-
-
-if test -z "$lt_cv_path_MAGIC_CMD"; then
- if test -n "$ac_tool_prefix"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for file" >&5
-$as_echo_n "checking for file... " >&6; }
-if ${lt_cv_path_MAGIC_CMD+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- case $MAGIC_CMD in
-[\\/*] | ?:[\\/]*)
- lt_cv_path_MAGIC_CMD=$MAGIC_CMD # Let the user override the test with a path.
- ;;
-*)
- lt_save_MAGIC_CMD=$MAGIC_CMD
- lt_save_ifs=$IFS; IFS=$PATH_SEPARATOR
- ac_dummy="/usr/bin$PATH_SEPARATOR$PATH"
- for ac_dir in $ac_dummy; do
- IFS=$lt_save_ifs
- test -z "$ac_dir" && ac_dir=.
- if test -f "$ac_dir/file"; then
- lt_cv_path_MAGIC_CMD=$ac_dir/"file"
- if test -n "$file_magic_test_file"; then
- case $deplibs_check_method in
- "file_magic "*)
- file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"`
- MAGIC_CMD=$lt_cv_path_MAGIC_CMD
- if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null |
- $EGREP "$file_magic_regex" > /dev/null; then
- :
- else
- cat <<_LT_EOF 1>&2
-
-*** Warning: the command libtool uses to detect shared libraries,
-*** $file_magic_cmd, produces output that libtool cannot recognize.
-*** The result is that libtool may fail to recognize shared libraries
-*** as such. This will affect the creation of libtool libraries that
-*** depend on shared libraries, but programs linked with such libtool
-*** libraries will work regardless of this problem. Nevertheless, you
-*** may want to report the problem to your system manager and/or to
-*** bug-libtool@gnu.org
-
-_LT_EOF
- fi ;;
- esac
- fi
- break
- fi
- done
- IFS=$lt_save_ifs
- MAGIC_CMD=$lt_save_MAGIC_CMD
- ;;
-esac
-fi
-
-MAGIC_CMD=$lt_cv_path_MAGIC_CMD
-if test -n "$MAGIC_CMD"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MAGIC_CMD" >&5
-$as_echo "$MAGIC_CMD" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- else
- MAGIC_CMD=:
- fi
-fi
-
- fi
- ;;
-esac
-
-# Use C for the default configuration in the libtool script
-
-lt_save_CC=$CC
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-
-
-# Source file extension for C test sources.
-ac_ext=c
-
-# Object file extension for compiled C test sources.
-objext=o
-objext=$objext
-
-# Code to be used in simple compile tests
-lt_simple_compile_test_code="int some_variable = 0;"
-
-# Code to be used in simple link tests
-lt_simple_link_test_code='int main(){return(0);}'
-
-
-
-
-
-
-
-# If no C compiler was specified, use CC.
-LTCC=${LTCC-"$CC"}
-
-# If no C compiler flags were specified, use CFLAGS.
-LTCFLAGS=${LTCFLAGS-"$CFLAGS"}
-
-# Allow CC to be a program name with arguments.
-compiler=$CC
-
-# Save the default compiler, since it gets overwritten when the other
-# tags are being tested, and _LT_TAGVAR(compiler, []) is a NOP.
-compiler_DEFAULT=$CC
-
-# save warnings/boilerplate of simple test code
-ac_outfile=conftest.$ac_objext
-echo "$lt_simple_compile_test_code" >conftest.$ac_ext
-eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err
-_lt_compiler_boilerplate=`cat conftest.err`
-$RM conftest*
-
-ac_outfile=conftest.$ac_objext
-echo "$lt_simple_link_test_code" >conftest.$ac_ext
-eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err
-_lt_linker_boilerplate=`cat conftest.err`
-$RM -r conftest*
-
-
-## CAVEAT EMPTOR:
-## There is no encapsulation within the following macros, do not change
-## the running order or otherwise move them around unless you know exactly
-## what you are doing...
-if test -n "$compiler"; then
-
-lt_prog_compiler_no_builtin_flag=
-
-if test yes = "$GCC"; then
- case $cc_basename in
- nvcc*)
- lt_prog_compiler_no_builtin_flag=' -Xcompiler -fno-builtin' ;;
- *)
- lt_prog_compiler_no_builtin_flag=' -fno-builtin' ;;
- esac
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -fno-rtti -fno-exceptions" >&5
-$as_echo_n "checking if $compiler supports -fno-rtti -fno-exceptions... " >&6; }
-if ${lt_cv_prog_compiler_rtti_exceptions+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_prog_compiler_rtti_exceptions=no
- ac_outfile=conftest.$ac_objext
- echo "$lt_simple_compile_test_code" > conftest.$ac_ext
- lt_compiler_flag="-fno-rtti -fno-exceptions" ## exclude from sc_useless_quotes_in_assignment
- # Insert the option either (1) after the last *FLAGS variable, or
- # (2) before a word containing "conftest.", or (3) at the end.
- # Note that $ac_compile itself does not contain backslashes and begins
- # with a dollar sign (not a hyphen), so the echo should work correctly.
- # The option is referenced via a variable to avoid confusing sed.
- lt_compile=`echo "$ac_compile" | $SED \
- -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
- -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
- -e 's:$: $lt_compiler_flag:'`
- (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5)
- (eval "$lt_compile" 2>conftest.err)
- ac_status=$?
- cat conftest.err >&5
- echo "$as_me:$LINENO: \$? = $ac_status" >&5
- if (exit $ac_status) && test -s "$ac_outfile"; then
- # The compiler can only warn and ignore the option if not recognized
- # So say no if there are warnings other than the usual output.
- $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp
- $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
- if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then
- lt_cv_prog_compiler_rtti_exceptions=yes
- fi
- fi
- $RM conftest*
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_rtti_exceptions" >&5
-$as_echo "$lt_cv_prog_compiler_rtti_exceptions" >&6; }
-
-if test yes = "$lt_cv_prog_compiler_rtti_exceptions"; then
- lt_prog_compiler_no_builtin_flag="$lt_prog_compiler_no_builtin_flag -fno-rtti -fno-exceptions"
-else
- :
-fi
-
-fi
-
-
-
-
-
-
- lt_prog_compiler_wl=
-lt_prog_compiler_pic=
-lt_prog_compiler_static=
-
-
- if test yes = "$GCC"; then
- lt_prog_compiler_wl='-Wl,'
- lt_prog_compiler_static='-static'
-
- case $host_os in
- aix*)
- # All AIX code is PIC.
- if test ia64 = "$host_cpu"; then
- # AIX 5 now supports IA64 processor
- lt_prog_compiler_static='-Bstatic'
- fi
- lt_prog_compiler_pic='-fPIC'
- ;;
-
- amigaos*)
- case $host_cpu in
- powerpc)
- # see comment about AmigaOS4 .so support
- lt_prog_compiler_pic='-fPIC'
- ;;
- m68k)
- # FIXME: we need at least 68020 code to build shared libraries, but
- # adding the '-m68020' flag to GCC prevents building anything better,
- # like '-m68040'.
- lt_prog_compiler_pic='-m68020 -resident32 -malways-restore-a4'
- ;;
- esac
- ;;
-
- beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*)
- # PIC is the default for these OSes.
- ;;
-
- mingw* | cygwin* | pw32* | os2* | cegcc*)
- # This hack is so that the source file can tell whether it is being
- # built for inclusion in a dll (and should export symbols for example).
- # Although the cygwin gcc ignores -fPIC, still need this for old-style
- # (--disable-auto-import) libraries
- lt_prog_compiler_pic='-DDLL_EXPORT'
- case $host_os in
- os2*)
- lt_prog_compiler_static='$wl-static'
- ;;
- esac
- ;;
-
- darwin* | rhapsody*)
- # PIC is the default on this platform
- # Common symbols not allowed in MH_DYLIB files
- lt_prog_compiler_pic='-fno-common'
- ;;
-
- haiku*)
- # PIC is the default for Haiku.
- # The "-static" flag exists, but is broken.
- lt_prog_compiler_static=
- ;;
-
- hpux*)
- # PIC is the default for 64-bit PA HP-UX, but not for 32-bit
- # PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag
- # sets the default TLS model and affects inlining.
- case $host_cpu in
- hppa*64*)
- # +Z the default
- ;;
- *)
- lt_prog_compiler_pic='-fPIC'
- ;;
- esac
- ;;
-
- interix[3-9]*)
- # Interix 3.x gcc -fpic/-fPIC options generate broken code.
- # Instead, we relocate shared libraries at runtime.
- ;;
-
- msdosdjgpp*)
- # Just because we use GCC doesn't mean we suddenly get shared libraries
- # on systems that don't support them.
- lt_prog_compiler_can_build_shared=no
- enable_shared=no
- ;;
-
- *nto* | *qnx*)
- # QNX uses GNU C++, but need to define -shared option too, otherwise
- # it will coredump.
- lt_prog_compiler_pic='-fPIC -shared'
- ;;
-
- sysv4*MP*)
- if test -d /usr/nec; then
- lt_prog_compiler_pic=-Kconform_pic
- fi
- ;;
-
- *)
- lt_prog_compiler_pic='-fPIC'
- ;;
- esac
-
- case $cc_basename in
- nvcc*) # Cuda Compiler Driver 2.2
- lt_prog_compiler_wl='-Xlinker '
- if test -n "$lt_prog_compiler_pic"; then
- lt_prog_compiler_pic="-Xcompiler $lt_prog_compiler_pic"
- fi
- ;;
- esac
- else
- # PORTME Check for flag to pass linker flags through the system compiler.
- case $host_os in
- aix*)
- lt_prog_compiler_wl='-Wl,'
- if test ia64 = "$host_cpu"; then
- # AIX 5 now supports IA64 processor
- lt_prog_compiler_static='-Bstatic'
- else
- lt_prog_compiler_static='-bnso -bI:/lib/syscalls.exp'
- fi
- ;;
-
- darwin* | rhapsody*)
- # PIC is the default on this platform
- # Common symbols not allowed in MH_DYLIB files
- lt_prog_compiler_pic='-fno-common'
- case $cc_basename in
- nagfor*)
- # NAG Fortran compiler
- lt_prog_compiler_wl='-Wl,-Wl,,'
- lt_prog_compiler_pic='-PIC'
- lt_prog_compiler_static='-Bstatic'
- ;;
- esac
- ;;
-
- mingw* | cygwin* | pw32* | os2* | cegcc*)
- # This hack is so that the source file can tell whether it is being
- # built for inclusion in a dll (and should export symbols for example).
- lt_prog_compiler_pic='-DDLL_EXPORT'
- case $host_os in
- os2*)
- lt_prog_compiler_static='$wl-static'
- ;;
- esac
- ;;
-
- hpux9* | hpux10* | hpux11*)
- lt_prog_compiler_wl='-Wl,'
- # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but
- # not for PA HP-UX.
- case $host_cpu in
- hppa*64*|ia64*)
- # +Z the default
- ;;
- *)
- lt_prog_compiler_pic='+Z'
- ;;
- esac
- # Is there a better lt_prog_compiler_static that works with the bundled CC?
- lt_prog_compiler_static='$wl-a ${wl}archive'
- ;;
-
- irix5* | irix6* | nonstopux*)
- lt_prog_compiler_wl='-Wl,'
- # PIC (with -KPIC) is the default.
- lt_prog_compiler_static='-non_shared'
- ;;
-
- linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*)
- case $cc_basename in
- # old Intel for x86_64, which still supported -KPIC.
- ecc*)
- lt_prog_compiler_wl='-Wl,'
- lt_prog_compiler_pic='-KPIC'
- lt_prog_compiler_static='-static'
- ;;
- # icc used to be incompatible with GCC.
- # ICC 10 doesn't accept -KPIC any more.
- icc* | ifort*)
- lt_prog_compiler_wl='-Wl,'
- lt_prog_compiler_pic='-fPIC'
- lt_prog_compiler_static='-static'
- ;;
- # Lahey Fortran 8.1.
- lf95*)
- lt_prog_compiler_wl='-Wl,'
- lt_prog_compiler_pic='--shared'
- lt_prog_compiler_static='--static'
- ;;
- nagfor*)
- # NAG Fortran compiler
- lt_prog_compiler_wl='-Wl,-Wl,,'
- lt_prog_compiler_pic='-PIC'
- lt_prog_compiler_static='-Bstatic'
- ;;
- tcc*)
- # Fabrice Bellard et al's Tiny C Compiler
- lt_prog_compiler_wl='-Wl,'
- lt_prog_compiler_pic='-fPIC'
- lt_prog_compiler_static='-static'
- ;;
- pgcc* | pgf77* | pgf90* | pgf95* | pgfortran*)
- # Portland Group compilers (*not* the Pentium gcc compiler,
- # which looks to be a dead project)
- lt_prog_compiler_wl='-Wl,'
- lt_prog_compiler_pic='-fpic'
- lt_prog_compiler_static='-Bstatic'
- ;;
- ccc*)
- lt_prog_compiler_wl='-Wl,'
- # All Alpha code is PIC.
- lt_prog_compiler_static='-non_shared'
- ;;
- xl* | bgxl* | bgf* | mpixl*)
- # IBM XL C 8.0/Fortran 10.1, 11.1 on PPC and BlueGene
- lt_prog_compiler_wl='-Wl,'
- lt_prog_compiler_pic='-qpic'
- lt_prog_compiler_static='-qstaticlink'
- ;;
- *)
- case `$CC -V 2>&1 | sed 5q` in
- *Sun\ Ceres\ Fortran* | *Sun*Fortran*\ [1-7].* | *Sun*Fortran*\ 8.[0-3]*)
- # Sun Fortran 8.3 passes all unrecognized flags to the linker
- lt_prog_compiler_pic='-KPIC'
- lt_prog_compiler_static='-Bstatic'
- lt_prog_compiler_wl=''
- ;;
- *Sun\ F* | *Sun*Fortran*)
- lt_prog_compiler_pic='-KPIC'
- lt_prog_compiler_static='-Bstatic'
- lt_prog_compiler_wl='-Qoption ld '
- ;;
- *Sun\ C*)
- # Sun C 5.9
- lt_prog_compiler_pic='-KPIC'
- lt_prog_compiler_static='-Bstatic'
- lt_prog_compiler_wl='-Wl,'
- ;;
- *Intel*\ [CF]*Compiler*)
- lt_prog_compiler_wl='-Wl,'
- lt_prog_compiler_pic='-fPIC'
- lt_prog_compiler_static='-static'
- ;;
- *Portland\ Group*)
- lt_prog_compiler_wl='-Wl,'
- lt_prog_compiler_pic='-fpic'
- lt_prog_compiler_static='-Bstatic'
- ;;
- esac
- ;;
- esac
- ;;
-
- newsos6)
- lt_prog_compiler_pic='-KPIC'
- lt_prog_compiler_static='-Bstatic'
- ;;
-
- *nto* | *qnx*)
- # QNX uses GNU C++, but need to define -shared option too, otherwise
- # it will coredump.
- lt_prog_compiler_pic='-fPIC -shared'
- ;;
-
- osf3* | osf4* | osf5*)
- lt_prog_compiler_wl='-Wl,'
- # All OSF/1 code is PIC.
- lt_prog_compiler_static='-non_shared'
- ;;
-
- rdos*)
- lt_prog_compiler_static='-non_shared'
- ;;
-
- solaris*)
- lt_prog_compiler_pic='-KPIC'
- lt_prog_compiler_static='-Bstatic'
- case $cc_basename in
- f77* | f90* | f95* | sunf77* | sunf90* | sunf95*)
- lt_prog_compiler_wl='-Qoption ld ';;
- *)
- lt_prog_compiler_wl='-Wl,';;
- esac
- ;;
-
- sunos4*)
- lt_prog_compiler_wl='-Qoption ld '
- lt_prog_compiler_pic='-PIC'
- lt_prog_compiler_static='-Bstatic'
- ;;
-
- sysv4 | sysv4.2uw2* | sysv4.3*)
- lt_prog_compiler_wl='-Wl,'
- lt_prog_compiler_pic='-KPIC'
- lt_prog_compiler_static='-Bstatic'
- ;;
-
- sysv4*MP*)
- if test -d /usr/nec; then
- lt_prog_compiler_pic='-Kconform_pic'
- lt_prog_compiler_static='-Bstatic'
- fi
- ;;
-
- sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*)
- lt_prog_compiler_wl='-Wl,'
- lt_prog_compiler_pic='-KPIC'
- lt_prog_compiler_static='-Bstatic'
- ;;
-
- unicos*)
- lt_prog_compiler_wl='-Wl,'
- lt_prog_compiler_can_build_shared=no
- ;;
-
- uts4*)
- lt_prog_compiler_pic='-pic'
- lt_prog_compiler_static='-Bstatic'
- ;;
-
- *)
- lt_prog_compiler_can_build_shared=no
- ;;
- esac
- fi
-
-case $host_os in
- # For platforms that do not support PIC, -DPIC is meaningless:
- *djgpp*)
- lt_prog_compiler_pic=
- ;;
- *)
- lt_prog_compiler_pic="$lt_prog_compiler_pic -DPIC"
- ;;
-esac
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $compiler option to produce PIC" >&5
-$as_echo_n "checking for $compiler option to produce PIC... " >&6; }
-if ${lt_cv_prog_compiler_pic+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_prog_compiler_pic=$lt_prog_compiler_pic
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic" >&5
-$as_echo "$lt_cv_prog_compiler_pic" >&6; }
-lt_prog_compiler_pic=$lt_cv_prog_compiler_pic
-
-#
-# Check to make sure the PIC flag actually works.
-#
-if test -n "$lt_prog_compiler_pic"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler PIC flag $lt_prog_compiler_pic works" >&5
-$as_echo_n "checking if $compiler PIC flag $lt_prog_compiler_pic works... " >&6; }
-if ${lt_cv_prog_compiler_pic_works+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_prog_compiler_pic_works=no
- ac_outfile=conftest.$ac_objext
- echo "$lt_simple_compile_test_code" > conftest.$ac_ext
- lt_compiler_flag="$lt_prog_compiler_pic -DPIC" ## exclude from sc_useless_quotes_in_assignment
- # Insert the option either (1) after the last *FLAGS variable, or
- # (2) before a word containing "conftest.", or (3) at the end.
- # Note that $ac_compile itself does not contain backslashes and begins
- # with a dollar sign (not a hyphen), so the echo should work correctly.
- # The option is referenced via a variable to avoid confusing sed.
- lt_compile=`echo "$ac_compile" | $SED \
- -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
- -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
- -e 's:$: $lt_compiler_flag:'`
- (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5)
- (eval "$lt_compile" 2>conftest.err)
- ac_status=$?
- cat conftest.err >&5
- echo "$as_me:$LINENO: \$? = $ac_status" >&5
- if (exit $ac_status) && test -s "$ac_outfile"; then
- # The compiler can only warn and ignore the option if not recognized
- # So say no if there are warnings other than the usual output.
- $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp
- $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
- if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then
- lt_cv_prog_compiler_pic_works=yes
- fi
- fi
- $RM conftest*
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic_works" >&5
-$as_echo "$lt_cv_prog_compiler_pic_works" >&6; }
-
-if test yes = "$lt_cv_prog_compiler_pic_works"; then
- case $lt_prog_compiler_pic in
- "" | " "*) ;;
- *) lt_prog_compiler_pic=" $lt_prog_compiler_pic" ;;
- esac
-else
- lt_prog_compiler_pic=
- lt_prog_compiler_can_build_shared=no
-fi
-
-fi
-
-
-
-
-
-
-
-
-
-
-
-#
-# Check to make sure the static flag actually works.
-#
-wl=$lt_prog_compiler_wl eval lt_tmp_static_flag=\"$lt_prog_compiler_static\"
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler static flag $lt_tmp_static_flag works" >&5
-$as_echo_n "checking if $compiler static flag $lt_tmp_static_flag works... " >&6; }
-if ${lt_cv_prog_compiler_static_works+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_prog_compiler_static_works=no
- save_LDFLAGS=$LDFLAGS
- LDFLAGS="$LDFLAGS $lt_tmp_static_flag"
- echo "$lt_simple_link_test_code" > conftest.$ac_ext
- if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then
- # The linker can only warn and ignore the option if not recognized
- # So say no if there are warnings
- if test -s conftest.err; then
- # Append any errors to the config.log.
- cat conftest.err 1>&5
- $ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp
- $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
- if diff conftest.exp conftest.er2 >/dev/null; then
- lt_cv_prog_compiler_static_works=yes
- fi
- else
- lt_cv_prog_compiler_static_works=yes
- fi
- fi
- $RM -r conftest*
- LDFLAGS=$save_LDFLAGS
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_static_works" >&5
-$as_echo "$lt_cv_prog_compiler_static_works" >&6; }
-
-if test yes = "$lt_cv_prog_compiler_static_works"; then
- :
-else
- lt_prog_compiler_static=
-fi
-
-
-
-
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5
-$as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; }
-if ${lt_cv_prog_compiler_c_o+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_prog_compiler_c_o=no
- $RM -r conftest 2>/dev/null
- mkdir conftest
- cd conftest
- mkdir out
- echo "$lt_simple_compile_test_code" > conftest.$ac_ext
-
- lt_compiler_flag="-o out/conftest2.$ac_objext"
- # Insert the option either (1) after the last *FLAGS variable, or
- # (2) before a word containing "conftest.", or (3) at the end.
- # Note that $ac_compile itself does not contain backslashes and begins
- # with a dollar sign (not a hyphen), so the echo should work correctly.
- lt_compile=`echo "$ac_compile" | $SED \
- -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
- -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
- -e 's:$: $lt_compiler_flag:'`
- (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5)
- (eval "$lt_compile" 2>out/conftest.err)
- ac_status=$?
- cat out/conftest.err >&5
- echo "$as_me:$LINENO: \$? = $ac_status" >&5
- if (exit $ac_status) && test -s out/conftest2.$ac_objext
- then
- # The compiler can only warn and ignore the option if not recognized
- # So say no if there are warnings
- $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp
- $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2
- if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then
- lt_cv_prog_compiler_c_o=yes
- fi
- fi
- chmod u+w . 2>&5
- $RM conftest*
- # SGI C++ compiler will create directory out/ii_files/ for
- # template instantiation
- test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files
- $RM out/* && rmdir out
- cd ..
- $RM -r conftest
- $RM conftest*
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o" >&5
-$as_echo "$lt_cv_prog_compiler_c_o" >&6; }
-
-
-
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5
-$as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; }
-if ${lt_cv_prog_compiler_c_o+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_prog_compiler_c_o=no
- $RM -r conftest 2>/dev/null
- mkdir conftest
- cd conftest
- mkdir out
- echo "$lt_simple_compile_test_code" > conftest.$ac_ext
-
- lt_compiler_flag="-o out/conftest2.$ac_objext"
- # Insert the option either (1) after the last *FLAGS variable, or
- # (2) before a word containing "conftest.", or (3) at the end.
- # Note that $ac_compile itself does not contain backslashes and begins
- # with a dollar sign (not a hyphen), so the echo should work correctly.
- lt_compile=`echo "$ac_compile" | $SED \
- -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
- -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
- -e 's:$: $lt_compiler_flag:'`
- (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5)
- (eval "$lt_compile" 2>out/conftest.err)
- ac_status=$?
- cat out/conftest.err >&5
- echo "$as_me:$LINENO: \$? = $ac_status" >&5
- if (exit $ac_status) && test -s out/conftest2.$ac_objext
- then
- # The compiler can only warn and ignore the option if not recognized
- # So say no if there are warnings
- $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp
- $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2
- if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then
- lt_cv_prog_compiler_c_o=yes
- fi
- fi
- chmod u+w . 2>&5
- $RM conftest*
- # SGI C++ compiler will create directory out/ii_files/ for
- # template instantiation
- test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files
- $RM out/* && rmdir out
- cd ..
- $RM -r conftest
- $RM conftest*
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o" >&5
-$as_echo "$lt_cv_prog_compiler_c_o" >&6; }
-
-
-
-
-hard_links=nottested
-if test no = "$lt_cv_prog_compiler_c_o" && test no != "$need_locks"; then
- # do not overwrite the value of need_locks provided by the user
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking if we can lock with hard links" >&5
-$as_echo_n "checking if we can lock with hard links... " >&6; }
- hard_links=yes
- $RM conftest*
- ln conftest.a conftest.b 2>/dev/null && hard_links=no
- touch conftest.a
- ln conftest.a conftest.b 2>&5 || hard_links=no
- ln conftest.a conftest.b 2>/dev/null && hard_links=no
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $hard_links" >&5
-$as_echo "$hard_links" >&6; }
- if test no = "$hard_links"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: '$CC' does not support '-c -o', so 'make -j' may be unsafe" >&5
-$as_echo "$as_me: WARNING: '$CC' does not support '-c -o', so 'make -j' may be unsafe" >&2;}
- need_locks=warn
- fi
-else
- need_locks=no
-fi
-
-
-
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $compiler linker ($LD) supports shared libraries" >&5
-$as_echo_n "checking whether the $compiler linker ($LD) supports shared libraries... " >&6; }
-
- runpath_var=
- allow_undefined_flag=
- always_export_symbols=no
- archive_cmds=
- archive_expsym_cmds=
- compiler_needs_object=no
- enable_shared_with_static_runtimes=no
- export_dynamic_flag_spec=
- export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols'
- hardcode_automatic=no
- hardcode_direct=no
- hardcode_direct_absolute=no
- hardcode_libdir_flag_spec=
- hardcode_libdir_separator=
- hardcode_minus_L=no
- hardcode_shlibpath_var=unsupported
- inherit_rpath=no
- link_all_deplibs=unknown
- module_cmds=
- module_expsym_cmds=
- old_archive_from_new_cmds=
- old_archive_from_expsyms_cmds=
- thread_safe_flag_spec=
- whole_archive_flag_spec=
- # include_expsyms should be a list of space-separated symbols to be *always*
- # included in the symbol list
- include_expsyms=
- # exclude_expsyms can be an extended regexp of symbols to exclude
- # it will be wrapped by ' (' and ')$', so one must not match beginning or
- # end of line. Example: 'a|bc|.*d.*' will exclude the symbols 'a' and 'bc',
- # as well as any symbol that contains 'd'.
- exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*'
- # Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out
- # platforms (ab)use it in PIC code, but their linkers get confused if
- # the symbol is explicitly referenced. Since portable code cannot
- # rely on this symbol name, it's probably fine to never include it in
- # preloaded symbol tables.
- # Exclude shared library initialization/finalization symbols.
- extract_expsyms_cmds=
-
- case $host_os in
- cygwin* | mingw* | pw32* | cegcc*)
- # FIXME: the MSVC++ and ICC port hasn't been tested in a loooong time
- # When not using gcc, we currently assume that we are using
- # Microsoft Visual C++ or Intel C++ Compiler.
- if test yes != "$GCC"; then
- with_gnu_ld=no
- fi
- ;;
- interix*)
- # we just hope/assume this is gcc and not c89 (= MSVC++ or ICC)
- with_gnu_ld=yes
- ;;
- openbsd* | bitrig*)
- with_gnu_ld=no
- ;;
- esac
-
- ld_shlibs=yes
-
- # On some targets, GNU ld is compatible enough with the native linker
- # that we're better off using the native interface for both.
- lt_use_gnu_ld_interface=no
- if test yes = "$with_gnu_ld"; then
- case $host_os in
- aix*)
- # The AIX port of GNU ld has always aspired to compatibility
- # with the native linker. However, as the warning in the GNU ld
- # block says, versions before 2.19.5* couldn't really create working
- # shared libraries, regardless of the interface used.
- case `$LD -v 2>&1` in
- *\ \(GNU\ Binutils\)\ 2.19.5*) ;;
- *\ \(GNU\ Binutils\)\ 2.[2-9]*) ;;
- *\ \(GNU\ Binutils\)\ [3-9]*) ;;
- *)
- lt_use_gnu_ld_interface=yes
- ;;
- esac
- ;;
- *)
- lt_use_gnu_ld_interface=yes
- ;;
- esac
- fi
-
- if test yes = "$lt_use_gnu_ld_interface"; then
- # If archive_cmds runs LD, not CC, wlarc should be empty
- wlarc='$wl'
-
- # Set some defaults for GNU ld with shared library support. These
- # are reset later if shared libraries are not supported. Putting them
- # here allows them to be overridden if necessary.
- runpath_var=LD_RUN_PATH
- hardcode_libdir_flag_spec='$wl-rpath $wl$libdir'
- export_dynamic_flag_spec='$wl--export-dynamic'
- # ancient GNU ld didn't support --whole-archive et. al.
- if $LD --help 2>&1 | $GREP 'no-whole-archive' > /dev/null; then
- whole_archive_flag_spec=$wlarc'--whole-archive$convenience '$wlarc'--no-whole-archive'
- else
- whole_archive_flag_spec=
- fi
- supports_anon_versioning=no
- case `$LD -v | $SED -e 's/(^)\+)\s\+//' 2>&1` in
- *GNU\ gold*) supports_anon_versioning=yes ;;
- *\ [01].* | *\ 2.[0-9].* | *\ 2.10.*) ;; # catch versions < 2.11
- *\ 2.11.93.0.2\ *) supports_anon_versioning=yes ;; # RH7.3 ...
- *\ 2.11.92.0.12\ *) supports_anon_versioning=yes ;; # Mandrake 8.2 ...
- *\ 2.11.*) ;; # other 2.11 versions
- *) supports_anon_versioning=yes ;;
- esac
-
- # See if GNU ld supports shared libraries.
- case $host_os in
- aix[3-9]*)
- # On AIX/PPC, the GNU linker is very broken
- if test ia64 != "$host_cpu"; then
- ld_shlibs=no
- cat <<_LT_EOF 1>&2
-
-*** Warning: the GNU linker, at least up to release 2.19, is reported
-*** to be unable to reliably create shared libraries on AIX.
-*** Therefore, libtool is disabling shared libraries support. If you
-*** really care for shared libraries, you may want to install binutils
-*** 2.20 or above, or modify your PATH so that a non-GNU linker is found.
-*** You will then need to restart the configuration process.
-
-_LT_EOF
- fi
- ;;
-
- amigaos*)
- case $host_cpu in
- powerpc)
- # see comment about AmigaOS4 .so support
- archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
- archive_expsym_cmds=''
- ;;
- m68k)
- archive_cmds='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)'
- hardcode_libdir_flag_spec='-L$libdir'
- hardcode_minus_L=yes
- ;;
- esac
- ;;
-
- beos*)
- if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
- allow_undefined_flag=unsupported
- # Joseph Beckenbach <jrb3@best.com> says some releases of gcc
- # support --undefined. This deserves some investigation. FIXME
- archive_cmds='$CC -nostart $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
- else
- ld_shlibs=no
- fi
- ;;
-
- cygwin* | mingw* | pw32* | cegcc*)
- # _LT_TAGVAR(hardcode_libdir_flag_spec, ) is actually meaningless,
- # as there is no search path for DLLs.
- hardcode_libdir_flag_spec='-L$libdir'
- export_dynamic_flag_spec='$wl--export-all-symbols'
- allow_undefined_flag=unsupported
- always_export_symbols=no
- enable_shared_with_static_runtimes=yes
- export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1 DATA/;s/^.*[ ]__nm__\([^ ]*\)[ ][^ ]*/\1 DATA/;/^I[ ]/d;/^[AITW][ ]/s/.* //'\'' | sort | uniq > $export_symbols'
- exclude_expsyms='[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname'
-
- if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then
- archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib'
- # If the export-symbols file already is a .def file, use it as
- # is; otherwise, prepend EXPORTS...
- archive_expsym_cmds='if test DEF = "`$SED -n -e '\''s/^[ ]*//'\'' -e '\''/^\(;.*\)*$/d'\'' -e '\''s/^\(EXPORTS\|LIBRARY\)\([ ].*\)*$/DEF/p'\'' -e q $export_symbols`" ; then
- cp $export_symbols $output_objdir/$soname.def;
- else
- echo EXPORTS > $output_objdir/$soname.def;
- cat $export_symbols >> $output_objdir/$soname.def;
- fi~
- $CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib'
- else
- ld_shlibs=no
- fi
- ;;
-
- haiku*)
- archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
- link_all_deplibs=yes
- ;;
-
- os2*)
- hardcode_libdir_flag_spec='-L$libdir'
- hardcode_minus_L=yes
- allow_undefined_flag=unsupported
- shrext_cmds=.dll
- archive_cmds='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~
- $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~
- $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~
- $ECHO EXPORTS >> $output_objdir/$libname.def~
- emxexp $libobjs | $SED /"_DLL_InitTerm"/d >> $output_objdir/$libname.def~
- $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~
- emximp -o $lib $output_objdir/$libname.def'
- archive_expsym_cmds='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~
- $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~
- $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~
- $ECHO EXPORTS >> $output_objdir/$libname.def~
- prefix_cmds="$SED"~
- if test EXPORTS = "`$SED 1q $export_symbols`"; then
- prefix_cmds="$prefix_cmds -e 1d";
- fi~
- prefix_cmds="$prefix_cmds -e \"s/^\(.*\)$/_\1/g\""~
- cat $export_symbols | $prefix_cmds >> $output_objdir/$libname.def~
- $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~
- emximp -o $lib $output_objdir/$libname.def'
- old_archive_From_new_cmds='emximp -o $output_objdir/${libname}_dll.a $output_objdir/$libname.def'
- enable_shared_with_static_runtimes=yes
- file_list_spec='@'
- ;;
-
- interix[3-9]*)
- hardcode_direct=no
- hardcode_shlibpath_var=no
- hardcode_libdir_flag_spec='$wl-rpath,$libdir'
- export_dynamic_flag_spec='$wl-E'
- # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc.
- # Instead, shared libraries are loaded at an image base (0x10000000 by
- # default) and relocated if they conflict, which is a slow very memory
- # consuming and fragmenting process. To avoid this, we pick a random,
- # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link
- # time. Moving up from 0x10000000 also allows more sbrk(2) space.
- archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-h,$soname $wl--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib'
- archive_expsym_cmds='sed "s|^|_|" $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-h,$soname $wl--retain-symbols-file,$output_objdir/$soname.expsym $wl--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib'
- ;;
-
- gnu* | linux* | tpf* | k*bsd*-gnu | kopensolaris*-gnu)
- tmp_diet=no
- if test linux-dietlibc = "$host_os"; then
- case $cc_basename in
- diet\ *) tmp_diet=yes;; # linux-dietlibc with static linking (!diet-dyn)
- esac
- fi
- if $LD --help 2>&1 | $EGREP ': supported targets:.* elf' > /dev/null \
- && test no = "$tmp_diet"
- then
- tmp_addflag=' $pic_flag'
- tmp_sharedflag='-shared'
- case $cc_basename,$host_cpu in
- pgcc*) # Portland Group C compiler
- whole_archive_flag_spec='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive'
- tmp_addflag=' $pic_flag'
- ;;
- pgf77* | pgf90* | pgf95* | pgfortran*)
- # Portland Group f77 and f90 compilers
- whole_archive_flag_spec='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive'
- tmp_addflag=' $pic_flag -Mnomain' ;;
- ecc*,ia64* | icc*,ia64*) # Intel C compiler on ia64
- tmp_addflag=' -i_dynamic' ;;
- efc*,ia64* | ifort*,ia64*) # Intel Fortran compiler on ia64
- tmp_addflag=' -i_dynamic -nofor_main' ;;
- ifc* | ifort*) # Intel Fortran compiler
- tmp_addflag=' -nofor_main' ;;
- lf95*) # Lahey Fortran 8.1
- whole_archive_flag_spec=
- tmp_sharedflag='--shared' ;;
- nagfor*) # NAGFOR 5.3
- tmp_sharedflag='-Wl,-shared' ;;
- xl[cC]* | bgxl[cC]* | mpixl[cC]*) # IBM XL C 8.0 on PPC (deal with xlf below)
- tmp_sharedflag='-qmkshrobj'
- tmp_addflag= ;;
- nvcc*) # Cuda Compiler Driver 2.2
- whole_archive_flag_spec='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive'
- compiler_needs_object=yes
- ;;
- esac
- case `$CC -V 2>&1 | sed 5q` in
- *Sun\ C*) # Sun C 5.9
- whole_archive_flag_spec='$wl--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive'
- compiler_needs_object=yes
- tmp_sharedflag='-G' ;;
- *Sun\ F*) # Sun Fortran 8.3
- tmp_sharedflag='-G' ;;
- esac
- archive_cmds='$CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
-
- if test yes = "$supports_anon_versioning"; then
- archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~
- cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~
- echo "local: *; };" >> $output_objdir/$libname.ver~
- $CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib'
- fi
-
- case $cc_basename in
- tcc*)
- export_dynamic_flag_spec='-rdynamic'
- ;;
- xlf* | bgf* | bgxlf* | mpixlf*)
- # IBM XL Fortran 10.1 on PPC cannot create shared libs itself
- whole_archive_flag_spec='--whole-archive$convenience --no-whole-archive'
- hardcode_libdir_flag_spec='$wl-rpath $wl$libdir'
- archive_cmds='$LD -shared $libobjs $deplibs $linker_flags -soname $soname -o $lib'
- if test yes = "$supports_anon_versioning"; then
- archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~
- cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~
- echo "local: *; };" >> $output_objdir/$libname.ver~
- $LD -shared $libobjs $deplibs $linker_flags -soname $soname -version-script $output_objdir/$libname.ver -o $lib'
- fi
- ;;
- esac
- else
- ld_shlibs=no
- fi
- ;;
-
- netbsd* | netbsdelf*-gnu)
- if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
- archive_cmds='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib'
- wlarc=
- else
- archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
- archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib'
- fi
- ;;
-
- solaris*)
- if $LD -v 2>&1 | $GREP 'BFD 2\.8' > /dev/null; then
- ld_shlibs=no
- cat <<_LT_EOF 1>&2
-
-*** Warning: The releases 2.8.* of the GNU linker cannot reliably
-*** create shared libraries on Solaris systems. Therefore, libtool
-*** is disabling shared libraries support. We urge you to upgrade GNU
-*** binutils to release 2.9.1 or newer. Another option is to modify
-*** your PATH or compiler configuration so that the native linker is
-*** used, and then restart.
-
-_LT_EOF
- elif $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
- archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
- archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib'
- else
- ld_shlibs=no
- fi
- ;;
-
- sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*)
- case `$LD -v 2>&1` in
- *\ [01].* | *\ 2.[0-9].* | *\ 2.1[0-5].*)
- ld_shlibs=no
- cat <<_LT_EOF 1>&2
-
-*** Warning: Releases of the GNU linker prior to 2.16.91.0.3 cannot
-*** reliably create shared libraries on SCO systems. Therefore, libtool
-*** is disabling shared libraries support. We urge you to upgrade GNU
-*** binutils to release 2.16.91.0.3 or newer. Another option is to modify
-*** your PATH or compiler configuration so that the native linker is
-*** used, and then restart.
-
-_LT_EOF
- ;;
- *)
- # For security reasons, it is highly recommended that you always
- # use absolute paths for naming shared libraries, and exclude the
- # DT_RUNPATH tag from executables and libraries. But doing so
- # requires that you compile everything twice, which is a pain.
- if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
- hardcode_libdir_flag_spec='$wl-rpath $wl$libdir'
- archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
- archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib'
- else
- ld_shlibs=no
- fi
- ;;
- esac
- ;;
-
- sunos4*)
- archive_cmds='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags'
- wlarc=
- hardcode_direct=yes
- hardcode_shlibpath_var=no
- ;;
-
- *)
- if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
- archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
- archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib'
- else
- ld_shlibs=no
- fi
- ;;
- esac
-
- if test no = "$ld_shlibs"; then
- runpath_var=
- hardcode_libdir_flag_spec=
- export_dynamic_flag_spec=
- whole_archive_flag_spec=
- fi
- else
- # PORTME fill in a description of your system's linker (not GNU ld)
- case $host_os in
- aix3*)
- allow_undefined_flag=unsupported
- always_export_symbols=yes
- archive_expsym_cmds='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname'
- # Note: this linker hardcodes the directories in LIBPATH if there
- # are no directories specified by -L.
- hardcode_minus_L=yes
- if test yes = "$GCC" && test -z "$lt_prog_compiler_static"; then
- # Neither direct hardcoding nor static linking is supported with a
- # broken collect2.
- hardcode_direct=unsupported
- fi
- ;;
-
- aix[4-9]*)
- if test ia64 = "$host_cpu"; then
- # On IA64, the linker does run time linking by default, so we don't
- # have to do anything special.
- aix_use_runtimelinking=no
- exp_sym_flag='-Bexport'
- no_entry_flag=
- else
- # If we're using GNU nm, then we don't want the "-C" option.
- # -C means demangle to GNU nm, but means don't demangle to AIX nm.
- # Without the "-l" option, or with the "-B" option, AIX nm treats
- # weak defined symbols like other global defined symbols, whereas
- # GNU nm marks them as "W".
- # While the 'weak' keyword is ignored in the Export File, we need
- # it in the Import File for the 'aix-soname' feature, so we have
- # to replace the "-B" option with "-P" for AIX nm.
- if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then
- export_symbols_cmds='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && (substr(\$ 3,1,1) != ".")) { if (\$ 2 == "W") { print \$ 3 " weak" } else { print \$ 3 } } }'\'' | sort -u > $export_symbols'
- else
- export_symbols_cmds='`func_echo_all $NM | $SED -e '\''s/B\([^B]*\)$/P\1/'\''` -PCpgl $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "L") || (\$ 2 == "W") || (\$ 2 == "V") || (\$ 2 == "Z")) && (substr(\$ 1,1,1) != ".")) { if ((\$ 2 == "W") || (\$ 2 == "V") || (\$ 2 == "Z")) { print \$ 1 " weak" } else { print \$ 1 } } }'\'' | sort -u > $export_symbols'
- fi
- aix_use_runtimelinking=no
-
- # Test if we are trying to use run time linking or normal
- # AIX style linking. If -brtl is somewhere in LDFLAGS, we
- # have runtime linking enabled, and use it for executables.
- # For shared libraries, we enable/disable runtime linking
- # depending on the kind of the shared library created -
- # when "with_aix_soname,aix_use_runtimelinking" is:
- # "aix,no" lib.a(lib.so.V) shared, rtl:no, for executables
- # "aix,yes" lib.so shared, rtl:yes, for executables
- # lib.a static archive
- # "both,no" lib.so.V(shr.o) shared, rtl:yes
- # lib.a(lib.so.V) shared, rtl:no, for executables
- # "both,yes" lib.so.V(shr.o) shared, rtl:yes, for executables
- # lib.a(lib.so.V) shared, rtl:no
- # "svr4,*" lib.so.V(shr.o) shared, rtl:yes, for executables
- # lib.a static archive
- case $host_os in aix4.[23]|aix4.[23].*|aix[5-9]*)
- for ld_flag in $LDFLAGS; do
- if (test x-brtl = "x$ld_flag" || test x-Wl,-brtl = "x$ld_flag"); then
- aix_use_runtimelinking=yes
- break
- fi
- done
- if test svr4,no = "$with_aix_soname,$aix_use_runtimelinking"; then
- # With aix-soname=svr4, we create the lib.so.V shared archives only,
- # so we don't have lib.a shared libs to link our executables.
- # We have to force runtime linking in this case.
- aix_use_runtimelinking=yes
- LDFLAGS="$LDFLAGS -Wl,-brtl"
- fi
- ;;
- esac
-
- exp_sym_flag='-bexport'
- no_entry_flag='-bnoentry'
- fi
-
- # When large executables or shared objects are built, AIX ld can
- # have problems creating the table of contents. If linking a library
- # or program results in "error TOC overflow" add -mminimal-toc to
- # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not
- # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS.
-
- archive_cmds=''
- hardcode_direct=yes
- hardcode_direct_absolute=yes
- hardcode_libdir_separator=':'
- link_all_deplibs=yes
- file_list_spec='$wl-f,'
- case $with_aix_soname,$aix_use_runtimelinking in
- aix,*) ;; # traditional, no import file
- svr4,* | *,yes) # use import file
- # The Import File defines what to hardcode.
- hardcode_direct=no
- hardcode_direct_absolute=no
- ;;
- esac
-
- if test yes = "$GCC"; then
- case $host_os in aix4.[012]|aix4.[012].*)
- # We only want to do this on AIX 4.2 and lower, the check
- # below for broken collect2 doesn't work under 4.3+
- collect2name=`$CC -print-prog-name=collect2`
- if test -f "$collect2name" &&
- strings "$collect2name" | $GREP resolve_lib_name >/dev/null
- then
- # We have reworked collect2
- :
- else
- # We have old collect2
- hardcode_direct=unsupported
- # It fails to find uninstalled libraries when the uninstalled
- # path is not listed in the libpath. Setting hardcode_minus_L
- # to unsupported forces relinking
- hardcode_minus_L=yes
- hardcode_libdir_flag_spec='-L$libdir'
- hardcode_libdir_separator=
- fi
- ;;
- esac
- shared_flag='-shared'
- if test yes = "$aix_use_runtimelinking"; then
- shared_flag="$shared_flag "'$wl-G'
- fi
- # Need to ensure runtime linking is disabled for the traditional
- # shared library, or the linker may eventually find shared libraries
- # /with/ Import File - we do not want to mix them.
- shared_flag_aix='-shared'
- shared_flag_svr4='-shared $wl-G'
- else
- # not using gcc
- if test ia64 = "$host_cpu"; then
- # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release
- # chokes on -Wl,-G. The following line is correct:
- shared_flag='-G'
- else
- if test yes = "$aix_use_runtimelinking"; then
- shared_flag='$wl-G'
- else
- shared_flag='$wl-bM:SRE'
- fi
- shared_flag_aix='$wl-bM:SRE'
- shared_flag_svr4='$wl-G'
- fi
- fi
-
- export_dynamic_flag_spec='$wl-bexpall'
- # It seems that -bexpall does not export symbols beginning with
- # underscore (_), so it is better to generate a list of symbols to export.
- always_export_symbols=yes
- if test aix,yes = "$with_aix_soname,$aix_use_runtimelinking"; then
- # Warning - without using the other runtime loading flags (-brtl),
- # -berok will link without error, but may produce a broken library.
- allow_undefined_flag='-berok'
- # Determine the default libpath from the value encoded in an
- # empty executable.
- if test set = "${lt_cv_aix_libpath+set}"; then
- aix_libpath=$lt_cv_aix_libpath
-else
- if ${lt_cv_aix_libpath_+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
-
- lt_aix_libpath_sed='
- /Import File Strings/,/^$/ {
- /^0/ {
- s/^0 *\([^ ]*\) *$/\1/
- p
- }
- }'
- lt_cv_aix_libpath_=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
- # Check for a 64-bit object if we didn't find anything.
- if test -z "$lt_cv_aix_libpath_"; then
- lt_cv_aix_libpath_=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
- fi
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- if test -z "$lt_cv_aix_libpath_"; then
- lt_cv_aix_libpath_=/usr/lib:/lib
- fi
-
-fi
-
- aix_libpath=$lt_cv_aix_libpath_
-fi
-
- hardcode_libdir_flag_spec='$wl-blibpath:$libdir:'"$aix_libpath"
- archive_expsym_cmds='$CC -o $output_objdir/$soname $libobjs $deplibs $wl'$no_entry_flag' $compiler_flags `if test -n "$allow_undefined_flag"; then func_echo_all "$wl$allow_undefined_flag"; else :; fi` $wl'$exp_sym_flag:\$export_symbols' '$shared_flag
- else
- if test ia64 = "$host_cpu"; then
- hardcode_libdir_flag_spec='$wl-R $libdir:/usr/lib:/lib'
- allow_undefined_flag="-z nodefs"
- archive_expsym_cmds="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\$wl$no_entry_flag"' $compiler_flags $wl$allow_undefined_flag '"\$wl$exp_sym_flag:\$export_symbols"
- else
- # Determine the default libpath from the value encoded in an
- # empty executable.
- if test set = "${lt_cv_aix_libpath+set}"; then
- aix_libpath=$lt_cv_aix_libpath
-else
- if ${lt_cv_aix_libpath_+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
-
- lt_aix_libpath_sed='
- /Import File Strings/,/^$/ {
- /^0/ {
- s/^0 *\([^ ]*\) *$/\1/
- p
- }
- }'
- lt_cv_aix_libpath_=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
- # Check for a 64-bit object if we didn't find anything.
- if test -z "$lt_cv_aix_libpath_"; then
- lt_cv_aix_libpath_=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
- fi
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- if test -z "$lt_cv_aix_libpath_"; then
- lt_cv_aix_libpath_=/usr/lib:/lib
- fi
-
-fi
-
- aix_libpath=$lt_cv_aix_libpath_
-fi
-
- hardcode_libdir_flag_spec='$wl-blibpath:$libdir:'"$aix_libpath"
- # Warning - without using the other run time loading flags,
- # -berok will link without error, but may produce a broken library.
- no_undefined_flag=' $wl-bernotok'
- allow_undefined_flag=' $wl-berok'
- if test yes = "$with_gnu_ld"; then
- # We only use this code for GNU lds that support --whole-archive.
- whole_archive_flag_spec='$wl--whole-archive$convenience $wl--no-whole-archive'
- else
- # Exported symbols can be pulled into shared objects from archives
- whole_archive_flag_spec='$convenience'
- fi
- archive_cmds_need_lc=yes
- archive_expsym_cmds='$RM -r $output_objdir/$realname.d~$MKDIR $output_objdir/$realname.d'
- # -brtl affects multiple linker settings, -berok does not and is overridden later
- compiler_flags_filtered='`func_echo_all "$compiler_flags " | $SED -e "s%-brtl\\([, ]\\)%-berok\\1%g"`'
- if test svr4 != "$with_aix_soname"; then
- # This is similar to how AIX traditionally builds its shared libraries.
- archive_expsym_cmds="$archive_expsym_cmds"'~$CC '$shared_flag_aix' -o $output_objdir/$realname.d/$soname $libobjs $deplibs $wl-bnoentry '$compiler_flags_filtered'$wl-bE:$export_symbols$allow_undefined_flag~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$realname.d/$soname'
- fi
- if test aix != "$with_aix_soname"; then
- archive_expsym_cmds="$archive_expsym_cmds"'~$CC '$shared_flag_svr4' -o $output_objdir/$realname.d/$shared_archive_member_spec.o $libobjs $deplibs $wl-bnoentry '$compiler_flags_filtered'$wl-bE:$export_symbols$allow_undefined_flag~$STRIP -e $output_objdir/$realname.d/$shared_archive_member_spec.o~( func_echo_all "#! $soname($shared_archive_member_spec.o)"; if test shr_64 = "$shared_archive_member_spec"; then func_echo_all "# 64"; else func_echo_all "# 32"; fi; cat $export_symbols ) > $output_objdir/$realname.d/$shared_archive_member_spec.imp~$AR $AR_FLAGS $output_objdir/$soname $output_objdir/$realname.d/$shared_archive_member_spec.o $output_objdir/$realname.d/$shared_archive_member_spec.imp'
- else
- # used by -dlpreopen to get the symbols
- archive_expsym_cmds="$archive_expsym_cmds"'~$MV $output_objdir/$realname.d/$soname $output_objdir'
- fi
- archive_expsym_cmds="$archive_expsym_cmds"'~$RM -r $output_objdir/$realname.d'
- fi
- fi
- ;;
-
- amigaos*)
- case $host_cpu in
- powerpc)
- # see comment about AmigaOS4 .so support
- archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib'
- archive_expsym_cmds=''
- ;;
- m68k)
- archive_cmds='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)'
- hardcode_libdir_flag_spec='-L$libdir'
- hardcode_minus_L=yes
- ;;
- esac
- ;;
-
- bsdi[45]*)
- export_dynamic_flag_spec=-rdynamic
- ;;
-
- cygwin* | mingw* | pw32* | cegcc*)
- # When not using gcc, we currently assume that we are using
- # Microsoft Visual C++ or Intel C++ Compiler.
- # hardcode_libdir_flag_spec is actually meaningless, as there is
- # no search path for DLLs.
- case $cc_basename in
- cl* | icl*)
- # Native MSVC or ICC
- hardcode_libdir_flag_spec=' '
- allow_undefined_flag=unsupported
- always_export_symbols=yes
- file_list_spec='@'
- # Tell ltmain to make .lib files, not .a files.
- libext=lib
- # Tell ltmain to make .dll files, not .so files.
- shrext_cmds=.dll
- # FIXME: Setting linknames here is a bad hack.
- archive_cmds='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~linknames='
- archive_expsym_cmds='if test DEF = "`$SED -n -e '\''s/^[ ]*//'\'' -e '\''/^\(;.*\)*$/d'\'' -e '\''s/^\(EXPORTS\|LIBRARY\)\([ ].*\)*$/DEF/p'\'' -e q $export_symbols`" ; then
- cp "$export_symbols" "$output_objdir/$soname.def";
- echo "$tool_output_objdir$soname.def" > "$output_objdir/$soname.exp";
- else
- $SED -e '\''s/^/-link -EXPORT:/'\'' < $export_symbols > $output_objdir/$soname.exp;
- fi~
- $CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~
- linknames='
- # The linker will not automatically build a static lib if we build a DLL.
- # _LT_TAGVAR(old_archive_from_new_cmds, )='true'
- enable_shared_with_static_runtimes=yes
- exclude_expsyms='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*'
- export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1,DATA/'\'' | $SED -e '\''/^[AITW][ ]/s/.*[ ]//'\'' | sort | uniq > $export_symbols'
- # Don't use ranlib
- old_postinstall_cmds='chmod 644 $oldlib'
- postlink_cmds='lt_outputfile="@OUTPUT@"~
- lt_tool_outputfile="@TOOL_OUTPUT@"~
- case $lt_outputfile in
- *.exe|*.EXE) ;;
- *)
- lt_outputfile=$lt_outputfile.exe
- lt_tool_outputfile=$lt_tool_outputfile.exe
- ;;
- esac~
- if test : != "$MANIFEST_TOOL" && test -f "$lt_outputfile.manifest"; then
- $MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1;
- $RM "$lt_outputfile.manifest";
- fi'
- ;;
- *)
- # Assume MSVC and ICC wrapper
- hardcode_libdir_flag_spec=' '
- allow_undefined_flag=unsupported
- # Tell ltmain to make .lib files, not .a files.
- libext=lib
- # Tell ltmain to make .dll files, not .so files.
- shrext_cmds=.dll
- # FIXME: Setting linknames here is a bad hack.
- archive_cmds='$CC -o $lib $libobjs $compiler_flags `func_echo_all "$deplibs" | $SED '\''s/ -lc$//'\''` -link -dll~linknames='
- # The linker will automatically build a .lib file if we build a DLL.
- old_archive_from_new_cmds='true'
- # FIXME: Should let the user specify the lib program.
- old_archive_cmds='lib -OUT:$oldlib$oldobjs$old_deplibs'
- enable_shared_with_static_runtimes=yes
- ;;
- esac
- ;;
-
- darwin* | rhapsody*)
-
-
- archive_cmds_need_lc=no
- hardcode_direct=no
- hardcode_automatic=yes
- hardcode_shlibpath_var=unsupported
- if test yes = "$lt_cv_ld_force_load"; then
- whole_archive_flag_spec='`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience $wl-force_load,$conv\"; done; func_echo_all \"$new_convenience\"`'
-
- else
- whole_archive_flag_spec=''
- fi
- link_all_deplibs=yes
- allow_undefined_flag=$_lt_dar_allow_undefined
- case $cc_basename in
- ifort*|nagfor*) _lt_dar_can_shared=yes ;;
- *) _lt_dar_can_shared=$GCC ;;
- esac
- if test yes = "$_lt_dar_can_shared"; then
- output_verbose_link_cmd=func_echo_all
- archive_cmds="\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod$_lt_dsymutil"
- module_cmds="\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags$_lt_dsymutil"
- archive_expsym_cmds="sed 's|^|_|' < \$export_symbols > \$output_objdir/\$libname-symbols.expsym~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod$_lt_dar_export_syms$_lt_dsymutil"
- module_expsym_cmds="sed -e 's|^|_|' < \$export_symbols > \$output_objdir/\$libname-symbols.expsym~\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags$_lt_dar_export_syms$_lt_dsymutil"
-
- else
- ld_shlibs=no
- fi
-
- ;;
-
- dgux*)
- archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
- hardcode_libdir_flag_spec='-L$libdir'
- hardcode_shlibpath_var=no
- ;;
-
- # FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor
- # support. Future versions do this automatically, but an explicit c++rt0.o
- # does not break anything, and helps significantly (at the cost of a little
- # extra space).
- freebsd2.2*)
- archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o'
- hardcode_libdir_flag_spec='-R$libdir'
- hardcode_direct=yes
- hardcode_shlibpath_var=no
- ;;
-
- # Unfortunately, older versions of FreeBSD 2 do not have this feature.
- freebsd2.*)
- archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags'
- hardcode_direct=yes
- hardcode_minus_L=yes
- hardcode_shlibpath_var=no
- ;;
-
- # FreeBSD 3 and greater uses gcc -shared to do shared libraries.
- freebsd* | dragonfly*)
- archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
- hardcode_libdir_flag_spec='-R$libdir'
- hardcode_direct=yes
- hardcode_shlibpath_var=no
- ;;
-
- hpux9*)
- if test yes = "$GCC"; then
- archive_cmds='$RM $output_objdir/$soname~$CC -shared $pic_flag $wl+b $wl$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test "x$output_objdir/$soname" = "x$lib" || mv $output_objdir/$soname $lib'
- else
- archive_cmds='$RM $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test "x$output_objdir/$soname" = "x$lib" || mv $output_objdir/$soname $lib'
- fi
- hardcode_libdir_flag_spec='$wl+b $wl$libdir'
- hardcode_libdir_separator=:
- hardcode_direct=yes
-
- # hardcode_minus_L: Not really in the search PATH,
- # but as the default location of the library.
- hardcode_minus_L=yes
- export_dynamic_flag_spec='$wl-E'
- ;;
-
- hpux10*)
- if test yes,no = "$GCC,$with_gnu_ld"; then
- archive_cmds='$CC -shared $pic_flag $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags'
- else
- archive_cmds='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags'
- fi
- if test no = "$with_gnu_ld"; then
- hardcode_libdir_flag_spec='$wl+b $wl$libdir'
- hardcode_libdir_separator=:
- hardcode_direct=yes
- hardcode_direct_absolute=yes
- export_dynamic_flag_spec='$wl-E'
- # hardcode_minus_L: Not really in the search PATH,
- # but as the default location of the library.
- hardcode_minus_L=yes
- fi
- ;;
-
- hpux11*)
- if test yes,no = "$GCC,$with_gnu_ld"; then
- case $host_cpu in
- hppa*64*)
- archive_cmds='$CC -shared $wl+h $wl$soname -o $lib $libobjs $deplibs $compiler_flags'
- ;;
- ia64*)
- archive_cmds='$CC -shared $pic_flag $wl+h $wl$soname $wl+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags'
- ;;
- *)
- archive_cmds='$CC -shared $pic_flag $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags'
- ;;
- esac
- else
- case $host_cpu in
- hppa*64*)
- archive_cmds='$CC -b $wl+h $wl$soname -o $lib $libobjs $deplibs $compiler_flags'
- ;;
- ia64*)
- archive_cmds='$CC -b $wl+h $wl$soname $wl+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags'
- ;;
- *)
-
- # Older versions of the 11.00 compiler do not understand -b yet
- # (HP92453-01 A.11.01.20 doesn't, HP92453-01 B.11.X.35175-35176.GP does)
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $CC understands -b" >&5
-$as_echo_n "checking if $CC understands -b... " >&6; }
-if ${lt_cv_prog_compiler__b+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_prog_compiler__b=no
- save_LDFLAGS=$LDFLAGS
- LDFLAGS="$LDFLAGS -b"
- echo "$lt_simple_link_test_code" > conftest.$ac_ext
- if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then
- # The linker can only warn and ignore the option if not recognized
- # So say no if there are warnings
- if test -s conftest.err; then
- # Append any errors to the config.log.
- cat conftest.err 1>&5
- $ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp
- $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
- if diff conftest.exp conftest.er2 >/dev/null; then
- lt_cv_prog_compiler__b=yes
- fi
- else
- lt_cv_prog_compiler__b=yes
- fi
- fi
- $RM -r conftest*
- LDFLAGS=$save_LDFLAGS
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler__b" >&5
-$as_echo "$lt_cv_prog_compiler__b" >&6; }
-
-if test yes = "$lt_cv_prog_compiler__b"; then
- archive_cmds='$CC -b $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags'
-else
- archive_cmds='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags'
-fi
-
- ;;
- esac
- fi
- if test no = "$with_gnu_ld"; then
- hardcode_libdir_flag_spec='$wl+b $wl$libdir'
- hardcode_libdir_separator=:
-
- case $host_cpu in
- hppa*64*|ia64*)
- hardcode_direct=no
- hardcode_shlibpath_var=no
- ;;
- *)
- hardcode_direct=yes
- hardcode_direct_absolute=yes
- export_dynamic_flag_spec='$wl-E'
-
- # hardcode_minus_L: Not really in the search PATH,
- # but as the default location of the library.
- hardcode_minus_L=yes
- ;;
- esac
- fi
- ;;
-
- irix5* | irix6* | nonstopux*)
- if test yes = "$GCC"; then
- archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib'
- # Try to use the -exported_symbol ld option, if it does not
- # work, assume that -exports_file does not work either and
- # implicitly export all symbols.
- # This should be the same for all languages, so no per-tag cache variable.
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $host_os linker accepts -exported_symbol" >&5
-$as_echo_n "checking whether the $host_os linker accepts -exported_symbol... " >&6; }
-if ${lt_cv_irix_exported_symbol+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- save_LDFLAGS=$LDFLAGS
- LDFLAGS="$LDFLAGS -shared $wl-exported_symbol ${wl}foo $wl-update_registry $wl/dev/null"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-int foo (void) { return 0; }
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- lt_cv_irix_exported_symbol=yes
-else
- lt_cv_irix_exported_symbol=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- LDFLAGS=$save_LDFLAGS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_irix_exported_symbol" >&5
-$as_echo "$lt_cv_irix_exported_symbol" >&6; }
- if test yes = "$lt_cv_irix_exported_symbol"; then
- archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations $wl-exports_file $wl$export_symbols -o $lib'
- fi
- else
- archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib'
- archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -exports_file $export_symbols -o $lib'
- fi
- archive_cmds_need_lc='no'
- hardcode_libdir_flag_spec='$wl-rpath $wl$libdir'
- hardcode_libdir_separator=:
- inherit_rpath=yes
- link_all_deplibs=yes
- ;;
-
- linux*)
- case $cc_basename in
- tcc*)
- # Fabrice Bellard et al's Tiny C Compiler
- ld_shlibs=yes
- archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
- ;;
- esac
- ;;
-
- netbsd* | netbsdelf*-gnu)
- if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
- archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out
- else
- archive_cmds='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF
- fi
- hardcode_libdir_flag_spec='-R$libdir'
- hardcode_direct=yes
- hardcode_shlibpath_var=no
- ;;
-
- newsos6)
- archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
- hardcode_direct=yes
- hardcode_libdir_flag_spec='$wl-rpath $wl$libdir'
- hardcode_libdir_separator=:
- hardcode_shlibpath_var=no
- ;;
-
- *nto* | *qnx*)
- ;;
-
- openbsd* | bitrig*)
- if test -f /usr/libexec/ld.so; then
- hardcode_direct=yes
- hardcode_shlibpath_var=no
- hardcode_direct_absolute=yes
- if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`"; then
- archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
- archive_expsym_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags $wl-retain-symbols-file,$export_symbols'
- hardcode_libdir_flag_spec='$wl-rpath,$libdir'
- export_dynamic_flag_spec='$wl-E'
- else
- archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
- hardcode_libdir_flag_spec='$wl-rpath,$libdir'
- fi
- else
- ld_shlibs=no
- fi
- ;;
-
- os2*)
- hardcode_libdir_flag_spec='-L$libdir'
- hardcode_minus_L=yes
- allow_undefined_flag=unsupported
- shrext_cmds=.dll
- archive_cmds='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~
- $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~
- $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~
- $ECHO EXPORTS >> $output_objdir/$libname.def~
- emxexp $libobjs | $SED /"_DLL_InitTerm"/d >> $output_objdir/$libname.def~
- $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~
- emximp -o $lib $output_objdir/$libname.def'
- archive_expsym_cmds='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~
- $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~
- $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~
- $ECHO EXPORTS >> $output_objdir/$libname.def~
- prefix_cmds="$SED"~
- if test EXPORTS = "`$SED 1q $export_symbols`"; then
- prefix_cmds="$prefix_cmds -e 1d";
- fi~
- prefix_cmds="$prefix_cmds -e \"s/^\(.*\)$/_\1/g\""~
- cat $export_symbols | $prefix_cmds >> $output_objdir/$libname.def~
- $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~
- emximp -o $lib $output_objdir/$libname.def'
- old_archive_From_new_cmds='emximp -o $output_objdir/${libname}_dll.a $output_objdir/$libname.def'
- enable_shared_with_static_runtimes=yes
- file_list_spec='@'
- ;;
-
- osf3*)
- if test yes = "$GCC"; then
- allow_undefined_flag=' $wl-expect_unresolved $wl\*'
- archive_cmds='$CC -shared$allow_undefined_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib'
- else
- allow_undefined_flag=' -expect_unresolved \*'
- archive_cmds='$CC -shared$allow_undefined_flag $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib'
- fi
- archive_cmds_need_lc='no'
- hardcode_libdir_flag_spec='$wl-rpath $wl$libdir'
- hardcode_libdir_separator=:
- ;;
-
- osf4* | osf5*) # as osf3* with the addition of -msym flag
- if test yes = "$GCC"; then
- allow_undefined_flag=' $wl-expect_unresolved $wl\*'
- archive_cmds='$CC -shared$allow_undefined_flag $pic_flag $libobjs $deplibs $compiler_flags $wl-msym $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib'
- hardcode_libdir_flag_spec='$wl-rpath $wl$libdir'
- else
- allow_undefined_flag=' -expect_unresolved \*'
- archive_cmds='$CC -shared$allow_undefined_flag $libobjs $deplibs $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib'
- archive_expsym_cmds='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; printf "%s\\n" "-hidden">> $lib.exp~
- $CC -shared$allow_undefined_flag $wl-input $wl$lib.exp $compiler_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib~$RM $lib.exp'
-
- # Both c and cxx compiler support -rpath directly
- hardcode_libdir_flag_spec='-rpath $libdir'
- fi
- archive_cmds_need_lc='no'
- hardcode_libdir_separator=:
- ;;
-
- solaris*)
- no_undefined_flag=' -z defs'
- if test yes = "$GCC"; then
- wlarc='$wl'
- archive_cmds='$CC -shared $pic_flag $wl-z ${wl}text $wl-h $wl$soname -o $lib $libobjs $deplibs $compiler_flags'
- archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
- $CC -shared $pic_flag $wl-z ${wl}text $wl-M $wl$lib.exp $wl-h $wl$soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp'
- else
- case `$CC -V 2>&1` in
- *"Compilers 5.0"*)
- wlarc=''
- archive_cmds='$LD -G$allow_undefined_flag -h $soname -o $lib $libobjs $deplibs $linker_flags'
- archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
- $LD -G$allow_undefined_flag -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$RM $lib.exp'
- ;;
- *)
- wlarc='$wl'
- archive_cmds='$CC -G$allow_undefined_flag -h $soname -o $lib $libobjs $deplibs $compiler_flags'
- archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
- $CC -G$allow_undefined_flag -M $lib.exp -h $soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp'
- ;;
- esac
- fi
- hardcode_libdir_flag_spec='-R$libdir'
- hardcode_shlibpath_var=no
- case $host_os in
- solaris2.[0-5] | solaris2.[0-5].*) ;;
- *)
- # The compiler driver will combine and reorder linker options,
- # but understands '-z linker_flag'. GCC discards it without '$wl',
- # but is careful enough not to reorder.
- # Supported since Solaris 2.6 (maybe 2.5.1?)
- if test yes = "$GCC"; then
- whole_archive_flag_spec='$wl-z ${wl}allextract$convenience $wl-z ${wl}defaultextract'
- else
- whole_archive_flag_spec='-z allextract$convenience -z defaultextract'
- fi
- ;;
- esac
- link_all_deplibs=yes
- ;;
-
- sunos4*)
- if test sequent = "$host_vendor"; then
- # Use $CC to link under sequent, because it throws in some extra .o
- # files that make .init and .fini sections work.
- archive_cmds='$CC -G $wl-h $soname -o $lib $libobjs $deplibs $compiler_flags'
- else
- archive_cmds='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags'
- fi
- hardcode_libdir_flag_spec='-L$libdir'
- hardcode_direct=yes
- hardcode_minus_L=yes
- hardcode_shlibpath_var=no
- ;;
-
- sysv4)
- case $host_vendor in
- sni)
- archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
- hardcode_direct=yes # is this really true???
- ;;
- siemens)
- ## LD is ld it makes a PLAMLIB
- ## CC just makes a GrossModule.
- archive_cmds='$LD -G -o $lib $libobjs $deplibs $linker_flags'
- reload_cmds='$CC -r -o $output$reload_objs'
- hardcode_direct=no
- ;;
- motorola)
- archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
- hardcode_direct=no #Motorola manual says yes, but my tests say they lie
- ;;
- esac
- runpath_var='LD_RUN_PATH'
- hardcode_shlibpath_var=no
- ;;
-
- sysv4.3*)
- archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
- hardcode_shlibpath_var=no
- export_dynamic_flag_spec='-Bexport'
- ;;
-
- sysv4*MP*)
- if test -d /usr/nec; then
- archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
- hardcode_shlibpath_var=no
- runpath_var=LD_RUN_PATH
- hardcode_runpath_var=yes
- ld_shlibs=yes
- fi
- ;;
-
- sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[01].[10]* | unixware7* | sco3.2v5.0.[024]*)
- no_undefined_flag='$wl-z,text'
- archive_cmds_need_lc=no
- hardcode_shlibpath_var=no
- runpath_var='LD_RUN_PATH'
-
- if test yes = "$GCC"; then
- archive_cmds='$CC -shared $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
- archive_expsym_cmds='$CC -shared $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
- else
- archive_cmds='$CC -G $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
- archive_expsym_cmds='$CC -G $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
- fi
- ;;
-
- sysv5* | sco3.2v5* | sco5v6*)
- # Note: We CANNOT use -z defs as we might desire, because we do not
- # link with -lc, and that would cause any symbols used from libc to
- # always be unresolved, which means just about no library would
- # ever link correctly. If we're not using GNU ld we use -z text
- # though, which does catch some bad symbols but isn't as heavy-handed
- # as -z defs.
- no_undefined_flag='$wl-z,text'
- allow_undefined_flag='$wl-z,nodefs'
- archive_cmds_need_lc=no
- hardcode_shlibpath_var=no
- hardcode_libdir_flag_spec='$wl-R,$libdir'
- hardcode_libdir_separator=':'
- link_all_deplibs=yes
- export_dynamic_flag_spec='$wl-Bexport'
- runpath_var='LD_RUN_PATH'
-
- if test yes = "$GCC"; then
- archive_cmds='$CC -shared $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
- archive_expsym_cmds='$CC -shared $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
- else
- archive_cmds='$CC -G $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
- archive_expsym_cmds='$CC -G $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
- fi
- ;;
-
- uts4*)
- archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
- hardcode_libdir_flag_spec='-L$libdir'
- hardcode_shlibpath_var=no
- ;;
-
- *)
- ld_shlibs=no
- ;;
- esac
-
- if test sni = "$host_vendor"; then
- case $host in
- sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*)
- export_dynamic_flag_spec='$wl-Blargedynsym'
- ;;
- esac
- fi
- fi
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ld_shlibs" >&5
-$as_echo "$ld_shlibs" >&6; }
-test no = "$ld_shlibs" && can_build_shared=no
-
-with_gnu_ld=$with_gnu_ld
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-#
-# Do we need to explicitly link libc?
-#
-case "x$archive_cmds_need_lc" in
-x|xyes)
- # Assume -lc should be added
- archive_cmds_need_lc=yes
-
- if test yes,yes = "$GCC,$enable_shared"; then
- case $archive_cmds in
- *'~'*)
- # FIXME: we may have to deal with multi-command sequences.
- ;;
- '$CC '*)
- # Test whether the compiler implicitly links with -lc since on some
- # systems, -lgcc has to come before -lc. If gcc already passes -lc
- # to ld, don't add -lc before -lgcc.
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether -lc should be explicitly linked in" >&5
-$as_echo_n "checking whether -lc should be explicitly linked in... " >&6; }
-if ${lt_cv_archive_cmds_need_lc+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- $RM conftest*
- echo "$lt_simple_compile_test_code" > conftest.$ac_ext
-
- if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
- (eval $ac_compile) 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; } 2>conftest.err; then
- soname=conftest
- lib=conftest
- libobjs=conftest.$ac_objext
- deplibs=
- wl=$lt_prog_compiler_wl
- pic_flag=$lt_prog_compiler_pic
- compiler_flags=-v
- linker_flags=-v
- verstring=
- output_objdir=.
- libname=conftest
- lt_save_allow_undefined_flag=$allow_undefined_flag
- allow_undefined_flag=
- if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$archive_cmds 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1\""; } >&5
- (eval $archive_cmds 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1) 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }
- then
- lt_cv_archive_cmds_need_lc=no
- else
- lt_cv_archive_cmds_need_lc=yes
- fi
- allow_undefined_flag=$lt_save_allow_undefined_flag
- else
- cat conftest.err 1>&5
- fi
- $RM conftest*
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_archive_cmds_need_lc" >&5
-$as_echo "$lt_cv_archive_cmds_need_lc" >&6; }
- archive_cmds_need_lc=$lt_cv_archive_cmds_need_lc
- ;;
- esac
- fi
- ;;
-esac
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking dynamic linker characteristics" >&5
-$as_echo_n "checking dynamic linker characteristics... " >&6; }
-
-if test yes = "$GCC"; then
- case $host_os in
- darwin*) lt_awk_arg='/^libraries:/,/LR/' ;;
- *) lt_awk_arg='/^libraries:/' ;;
- esac
- case $host_os in
- mingw* | cegcc*) lt_sed_strip_eq='s|=\([A-Za-z]:\)|\1|g' ;;
- *) lt_sed_strip_eq='s|=/|/|g' ;;
- esac
- lt_search_path_spec=`$CC -print-search-dirs | awk $lt_awk_arg | $SED -e "s/^libraries://" -e $lt_sed_strip_eq`
- case $lt_search_path_spec in
- *\;*)
- # if the path contains ";" then we assume it to be the separator
- # otherwise default to the standard path separator (i.e. ":") - it is
- # assumed that no part of a normal pathname contains ";" but that should
- # okay in the real world where ";" in dirpaths is itself problematic.
- lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED 's/;/ /g'`
- ;;
- *)
- lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED "s/$PATH_SEPARATOR/ /g"`
- ;;
- esac
- # Ok, now we have the path, separated by spaces, we can step through it
- # and add multilib dir if necessary...
- lt_tmp_lt_search_path_spec=
- lt_multi_os_dir=/`$CC $CPPFLAGS $CFLAGS $LDFLAGS -print-multi-os-directory 2>/dev/null`
- # ...but if some path component already ends with the multilib dir we assume
- # that all is fine and trust -print-search-dirs as is (GCC 4.2? or newer).
- case "$lt_multi_os_dir; $lt_search_path_spec " in
- "/; "* | "/.; "* | "/./; "* | *"$lt_multi_os_dir "* | *"$lt_multi_os_dir/ "*)
- lt_multi_os_dir=
- ;;
- esac
- for lt_sys_path in $lt_search_path_spec; do
- if test -d "$lt_sys_path$lt_multi_os_dir"; then
- lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path$lt_multi_os_dir"
- elif test -n "$lt_multi_os_dir"; then
- test -d "$lt_sys_path" && \
- lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path"
- fi
- done
- lt_search_path_spec=`$ECHO "$lt_tmp_lt_search_path_spec" | awk '
-BEGIN {RS = " "; FS = "/|\n";} {
- lt_foo = "";
- lt_count = 0;
- for (lt_i = NF; lt_i > 0; lt_i--) {
- if ($lt_i != "" && $lt_i != ".") {
- if ($lt_i == "..") {
- lt_count++;
- } else {
- if (lt_count == 0) {
- lt_foo = "/" $lt_i lt_foo;
- } else {
- lt_count--;
- }
- }
- }
- }
- if (lt_foo != "") { lt_freq[lt_foo]++; }
- if (lt_freq[lt_foo] == 1) { print lt_foo; }
-}'`
- # AWK program above erroneously prepends '/' to C:/dos/paths
- # for these hosts.
- case $host_os in
- mingw* | cegcc*) lt_search_path_spec=`$ECHO "$lt_search_path_spec" |\
- $SED 's|/\([A-Za-z]:\)|\1|g'` ;;
- esac
- sys_lib_search_path_spec=`$ECHO "$lt_search_path_spec" | $lt_NL2SP`
-else
- sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib"
-fi
-library_names_spec=
-libname_spec='lib$name'
-soname_spec=
-shrext_cmds=.so
-postinstall_cmds=
-postuninstall_cmds=
-finish_cmds=
-finish_eval=
-shlibpath_var=
-shlibpath_overrides_runpath=unknown
-version_type=none
-dynamic_linker="$host_os ld.so"
-sys_lib_dlsearch_path_spec="/lib /usr/lib"
-need_lib_prefix=unknown
-hardcode_into_libs=no
-
-# when you set need_version to no, make sure it does not cause -set_version
-# flags to be left without arguments
-need_version=unknown
-
-
-
-case $host_os in
-aix3*)
- version_type=linux # correct to gnu/linux during the next big refactor
- library_names_spec='$libname$release$shared_ext$versuffix $libname.a'
- shlibpath_var=LIBPATH
-
- # AIX 3 has no versioning support, so we append a major version to the name.
- soname_spec='$libname$release$shared_ext$major'
- ;;
-
-aix[4-9]*)
- version_type=linux # correct to gnu/linux during the next big refactor
- need_lib_prefix=no
- need_version=no
- hardcode_into_libs=yes
- if test ia64 = "$host_cpu"; then
- # AIX 5 supports IA64
- library_names_spec='$libname$release$shared_ext$major $libname$release$shared_ext$versuffix $libname$shared_ext'
- shlibpath_var=LD_LIBRARY_PATH
- else
- # With GCC up to 2.95.x, collect2 would create an import file
- # for dependence libraries. The import file would start with
- # the line '#! .'. This would cause the generated library to
- # depend on '.', always an invalid library. This was fixed in
- # development snapshots of GCC prior to 3.0.
- case $host_os in
- aix4 | aix4.[01] | aix4.[01].*)
- if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)'
- echo ' yes '
- echo '#endif'; } | $CC -E - | $GREP yes > /dev/null; then
- :
- else
- can_build_shared=no
- fi
- ;;
- esac
- # Using Import Files as archive members, it is possible to support
- # filename-based versioning of shared library archives on AIX. While
- # this would work for both with and without runtime linking, it will
- # prevent static linking of such archives. So we do filename-based
- # shared library versioning with .so extension only, which is used
- # when both runtime linking and shared linking is enabled.
- # Unfortunately, runtime linking may impact performance, so we do
- # not want this to be the default eventually. Also, we use the
- # versioned .so libs for executables only if there is the -brtl
- # linker flag in LDFLAGS as well, or --with-aix-soname=svr4 only.
- # To allow for filename-based versioning support, we need to create
- # libNAME.so.V as an archive file, containing:
- # *) an Import File, referring to the versioned filename of the
- # archive as well as the shared archive member, telling the
- # bitwidth (32 or 64) of that shared object, and providing the
- # list of exported symbols of that shared object, eventually
- # decorated with the 'weak' keyword
- # *) the shared object with the F_LOADONLY flag set, to really avoid
- # it being seen by the linker.
- # At run time we better use the real file rather than another symlink,
- # but for link time we create the symlink libNAME.so -> libNAME.so.V
-
- case $with_aix_soname,$aix_use_runtimelinking in
- # AIX (on Power*) has no versioning support, so currently we cannot hardcode correct
- # soname into executable. Probably we can add versioning support to
- # collect2, so additional links can be useful in future.
- aix,yes) # traditional libtool
- dynamic_linker='AIX unversionable lib.so'
- # If using run time linking (on AIX 4.2 or later) use lib<name>.so
- # instead of lib<name>.a to let people know that these are not
- # typical AIX shared libraries.
- library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
- ;;
- aix,no) # traditional AIX only
- dynamic_linker='AIX lib.a(lib.so.V)'
- # We preserve .a as extension for shared libraries through AIX4.2
- # and later when we are not doing run time linking.
- library_names_spec='$libname$release.a $libname.a'
- soname_spec='$libname$release$shared_ext$major'
- ;;
- svr4,*) # full svr4 only
- dynamic_linker="AIX lib.so.V($shared_archive_member_spec.o)"
- library_names_spec='$libname$release$shared_ext$major $libname$shared_ext'
- # We do not specify a path in Import Files, so LIBPATH fires.
- shlibpath_overrides_runpath=yes
- ;;
- *,yes) # both, prefer svr4
- dynamic_linker="AIX lib.so.V($shared_archive_member_spec.o), lib.a(lib.so.V)"
- library_names_spec='$libname$release$shared_ext$major $libname$shared_ext'
- # unpreferred sharedlib libNAME.a needs extra handling
- postinstall_cmds='test -n "$linkname" || linkname="$realname"~func_stripname "" ".so" "$linkname"~$install_shared_prog "$dir/$func_stripname_result.$libext" "$destdir/$func_stripname_result.$libext"~test -z "$tstripme" || test -z "$striplib" || $striplib "$destdir/$func_stripname_result.$libext"'
- postuninstall_cmds='for n in $library_names $old_library; do :; done~func_stripname "" ".so" "$n"~test "$func_stripname_result" = "$n" || func_append rmfiles " $odir/$func_stripname_result.$libext"'
- # We do not specify a path in Import Files, so LIBPATH fires.
- shlibpath_overrides_runpath=yes
- ;;
- *,no) # both, prefer aix
- dynamic_linker="AIX lib.a(lib.so.V), lib.so.V($shared_archive_member_spec.o)"
- library_names_spec='$libname$release.a $libname.a'
- soname_spec='$libname$release$shared_ext$major'
- # unpreferred sharedlib libNAME.so.V and symlink libNAME.so need extra handling
- postinstall_cmds='test -z "$dlname" || $install_shared_prog $dir/$dlname $destdir/$dlname~test -z "$tstripme" || test -z "$striplib" || $striplib $destdir/$dlname~test -n "$linkname" || linkname=$realname~func_stripname "" ".a" "$linkname"~(cd "$destdir" && $LN_S -f $dlname $func_stripname_result.so)'
- postuninstall_cmds='test -z "$dlname" || func_append rmfiles " $odir/$dlname"~for n in $old_library $library_names; do :; done~func_stripname "" ".a" "$n"~func_append rmfiles " $odir/$func_stripname_result.so"'
- ;;
- esac
- shlibpath_var=LIBPATH
- fi
- ;;
-
-amigaos*)
- case $host_cpu in
- powerpc)
- # Since July 2007 AmigaOS4 officially supports .so libraries.
- # When compiling the executable, add -use-dynld -Lsobjs: to the compileline.
- library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
- ;;
- m68k)
- library_names_spec='$libname.ixlibrary $libname.a'
- # Create ${libname}_ixlibrary.a entries in /sys/libs.
- finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`func_echo_all "$lib" | $SED '\''s%^.*/\([^/]*\)\.ixlibrary$%\1%'\''`; $RM /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done'
- ;;
- esac
- ;;
-
-beos*)
- library_names_spec='$libname$shared_ext'
- dynamic_linker="$host_os ld.so"
- shlibpath_var=LIBRARY_PATH
- ;;
-
-bsdi[45]*)
- version_type=linux # correct to gnu/linux during the next big refactor
- need_version=no
- library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
- soname_spec='$libname$release$shared_ext$major'
- finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir'
- shlibpath_var=LD_LIBRARY_PATH
- sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib"
- sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib"
- # the default ld.so.conf also contains /usr/contrib/lib and
- # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow
- # libtool to hard-code these into programs
- ;;
-
-cygwin* | mingw* | pw32* | cegcc*)
- version_type=windows
- shrext_cmds=.dll
- need_version=no
- need_lib_prefix=no
-
- case $GCC,$cc_basename in
- yes,*)
- # gcc
- library_names_spec='$libname.dll.a'
- # DLL is installed to $(libdir)/../bin by postinstall_cmds
- postinstall_cmds='base_file=`basename \$file`~
- dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; echo \$dlname'\''`~
- dldir=$destdir/`dirname \$dlpath`~
- test -d \$dldir || mkdir -p \$dldir~
- $install_prog $dir/$dlname \$dldir/$dlname~
- chmod a+x \$dldir/$dlname~
- if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then
- eval '\''$striplib \$dldir/$dlname'\'' || exit \$?;
- fi'
- postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~
- dlpath=$dir/\$dldll~
- $RM \$dlpath'
- shlibpath_overrides_runpath=yes
-
- case $host_os in
- cygwin*)
- # Cygwin DLLs use 'cyg' prefix rather than 'lib'
- soname_spec='`echo $libname | sed -e 's/^lib/cyg/'``echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext'
-
- sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/lib/w32api"
- ;;
- mingw* | cegcc*)
- # MinGW DLLs use traditional 'lib' prefix
- soname_spec='$libname`echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext'
- ;;
- pw32*)
- # pw32 DLLs use 'pw' prefix rather than 'lib'
- library_names_spec='`echo $libname | sed -e 's/^lib/pw/'``echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext'
- ;;
- esac
- dynamic_linker='Win32 ld.exe'
- ;;
-
- *,cl* | *,icl*)
- # Native MSVC or ICC
- libname_spec='$name'
- soname_spec='$libname`echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext'
- library_names_spec='$libname.dll.lib'
-
- case $build_os in
- mingw*)
- sys_lib_search_path_spec=
- lt_save_ifs=$IFS
- IFS=';'
- for lt_path in $LIB
- do
- IFS=$lt_save_ifs
- # Let DOS variable expansion print the short 8.3 style file name.
- lt_path=`cd "$lt_path" 2>/dev/null && cmd //C "for %i in (".") do @echo %~si"`
- sys_lib_search_path_spec="$sys_lib_search_path_spec $lt_path"
- done
- IFS=$lt_save_ifs
- # Convert to MSYS style.
- sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | sed -e 's|\\\\|/|g' -e 's| \\([a-zA-Z]\\):| /\\1|g' -e 's|^ ||'`
- ;;
- cygwin*)
- # Convert to unix form, then to dos form, then back to unix form
- # but this time dos style (no spaces!) so that the unix form looks
- # like /cygdrive/c/PROGRA~1:/cygdr...
- sys_lib_search_path_spec=`cygpath --path --unix "$LIB"`
- sys_lib_search_path_spec=`cygpath --path --dos "$sys_lib_search_path_spec" 2>/dev/null`
- sys_lib_search_path_spec=`cygpath --path --unix "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"`
- ;;
- *)
- sys_lib_search_path_spec=$LIB
- if $ECHO "$sys_lib_search_path_spec" | $GREP ';[c-zC-Z]:/' >/dev/null; then
- # It is most probably a Windows format PATH.
- sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'`
- else
- sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"`
- fi
- # FIXME: find the short name or the path components, as spaces are
- # common. (e.g. "Program Files" -> "PROGRA~1")
- ;;
- esac
-
- # DLL is installed to $(libdir)/../bin by postinstall_cmds
- postinstall_cmds='base_file=`basename \$file`~
- dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; echo \$dlname'\''`~
- dldir=$destdir/`dirname \$dlpath`~
- test -d \$dldir || mkdir -p \$dldir~
- $install_prog $dir/$dlname \$dldir/$dlname'
- postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~
- dlpath=$dir/\$dldll~
- $RM \$dlpath'
- shlibpath_overrides_runpath=yes
- dynamic_linker='Win32 link.exe'
- ;;
-
- *)
- # Assume MSVC and ICC wrapper
- library_names_spec='$libname`echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext $libname.lib'
- dynamic_linker='Win32 ld.exe'
- ;;
- esac
- # FIXME: first we should search . and the directory the executable is in
- shlibpath_var=PATH
- ;;
-
-darwin* | rhapsody*)
- dynamic_linker="$host_os dyld"
- version_type=darwin
- need_lib_prefix=no
- need_version=no
- library_names_spec='$libname$release$major$shared_ext $libname$shared_ext'
- soname_spec='$libname$release$major$shared_ext'
- shlibpath_overrides_runpath=yes
- shlibpath_var=DYLD_LIBRARY_PATH
- shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`'
-
- sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/local/lib"
- sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib'
- ;;
-
-dgux*)
- version_type=linux # correct to gnu/linux during the next big refactor
- need_lib_prefix=no
- need_version=no
- library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
- soname_spec='$libname$release$shared_ext$major'
- shlibpath_var=LD_LIBRARY_PATH
- ;;
-
-freebsd* | dragonfly*)
- # DragonFly does not have aout. When/if they implement a new
- # versioning mechanism, adjust this.
- if test -x /usr/bin/objformat; then
- objformat=`/usr/bin/objformat`
- else
- case $host_os in
- freebsd[23].*) objformat=aout ;;
- *) objformat=elf ;;
- esac
- fi
- version_type=freebsd-$objformat
- case $version_type in
- freebsd-elf*)
- library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
- soname_spec='$libname$release$shared_ext$major'
- need_version=no
- need_lib_prefix=no
- ;;
- freebsd-*)
- library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix'
- need_version=yes
- ;;
- esac
- shlibpath_var=LD_LIBRARY_PATH
- case $host_os in
- freebsd2.*)
- shlibpath_overrides_runpath=yes
- ;;
- freebsd3.[01]* | freebsdelf3.[01]*)
- shlibpath_overrides_runpath=yes
- hardcode_into_libs=yes
- ;;
- freebsd3.[2-9]* | freebsdelf3.[2-9]* | \
- freebsd4.[0-5] | freebsdelf4.[0-5] | freebsd4.1.1 | freebsdelf4.1.1)
- shlibpath_overrides_runpath=no
- hardcode_into_libs=yes
- ;;
- *) # from 4.6 on, and DragonFly
- shlibpath_overrides_runpath=yes
- hardcode_into_libs=yes
- ;;
- esac
- ;;
-
-haiku*)
- version_type=linux # correct to gnu/linux during the next big refactor
- need_lib_prefix=no
- need_version=no
- dynamic_linker="$host_os runtime_loader"
- library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
- soname_spec='$libname$release$shared_ext$major'
- shlibpath_var=LIBRARY_PATH
- shlibpath_overrides_runpath=no
- sys_lib_dlsearch_path_spec='/boot/home/config/lib /boot/common/lib /boot/system/lib'
- hardcode_into_libs=yes
- ;;
-
-hpux9* | hpux10* | hpux11*)
- # Give a soname corresponding to the major version so that dld.sl refuses to
- # link against other versions.
- version_type=sunos
- need_lib_prefix=no
- need_version=no
- case $host_cpu in
- ia64*)
- shrext_cmds='.so'
- hardcode_into_libs=yes
- dynamic_linker="$host_os dld.so"
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=yes # Unless +noenvvar is specified.
- library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
- soname_spec='$libname$release$shared_ext$major'
- if test 32 = "$HPUX_IA64_MODE"; then
- sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib"
- sys_lib_dlsearch_path_spec=/usr/lib/hpux32
- else
- sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64"
- sys_lib_dlsearch_path_spec=/usr/lib/hpux64
- fi
- ;;
- hppa*64*)
- shrext_cmds='.sl'
- hardcode_into_libs=yes
- dynamic_linker="$host_os dld.sl"
- shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH
- shlibpath_overrides_runpath=yes # Unless +noenvvar is specified.
- library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
- soname_spec='$libname$release$shared_ext$major'
- sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64"
- sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
- ;;
- *)
- shrext_cmds='.sl'
- dynamic_linker="$host_os dld.sl"
- shlibpath_var=SHLIB_PATH
- shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH
- library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
- soname_spec='$libname$release$shared_ext$major'
- ;;
- esac
- # HP-UX runs *really* slowly unless shared libraries are mode 555, ...
- postinstall_cmds='chmod 555 $lib'
- # or fails outright, so override atomically:
- install_override_mode=555
- ;;
-
-interix[3-9]*)
- version_type=linux # correct to gnu/linux during the next big refactor
- need_lib_prefix=no
- need_version=no
- library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
- soname_spec='$libname$release$shared_ext$major'
- dynamic_linker='Interix 3.x ld.so.1 (PE, like ELF)'
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=no
- hardcode_into_libs=yes
- ;;
-
-irix5* | irix6* | nonstopux*)
- case $host_os in
- nonstopux*) version_type=nonstopux ;;
- *)
- if test yes = "$lt_cv_prog_gnu_ld"; then
- version_type=linux # correct to gnu/linux during the next big refactor
- else
- version_type=irix
- fi ;;
- esac
- need_lib_prefix=no
- need_version=no
- soname_spec='$libname$release$shared_ext$major'
- library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$release$shared_ext $libname$shared_ext'
- case $host_os in
- irix5* | nonstopux*)
- libsuff= shlibsuff=
- ;;
- *)
- case $LD in # libtool.m4 will add one of these switches to LD
- *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ")
- libsuff= shlibsuff= libmagic=32-bit;;
- *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ")
- libsuff=32 shlibsuff=N32 libmagic=N32;;
- *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ")
- libsuff=64 shlibsuff=64 libmagic=64-bit;;
- *) libsuff= shlibsuff= libmagic=never-match;;
- esac
- ;;
- esac
- shlibpath_var=LD_LIBRARY${shlibsuff}_PATH
- shlibpath_overrides_runpath=no
- sys_lib_search_path_spec="/usr/lib$libsuff /lib$libsuff /usr/local/lib$libsuff"
- sys_lib_dlsearch_path_spec="/usr/lib$libsuff /lib$libsuff"
- hardcode_into_libs=yes
- ;;
-
-# No shared lib support for Linux oldld, aout, or coff.
-linux*oldld* | linux*aout* | linux*coff*)
- dynamic_linker=no
- ;;
-
-linux*android*)
- version_type=none # Android doesn't support versioned libraries.
- need_lib_prefix=no
- need_version=no
- library_names_spec='$libname$release$shared_ext'
- soname_spec='$libname$release$shared_ext'
- finish_cmds=
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=yes
-
- # This implies no fast_install, which is unacceptable.
- # Some rework will be needed to allow for fast_install
- # before this can be enabled.
- hardcode_into_libs=yes
-
- dynamic_linker='Android linker'
- # Don't embed -rpath directories since the linker doesn't support them.
- hardcode_libdir_flag_spec='-L$libdir'
- ;;
-
-# This must be glibc/ELF.
-linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*)
- version_type=linux # correct to gnu/linux during the next big refactor
- need_lib_prefix=no
- need_version=no
- library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
- soname_spec='$libname$release$shared_ext$major'
- finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir'
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=no
-
- # Some binutils ld are patched to set DT_RUNPATH
- if ${lt_cv_shlibpath_overrides_runpath+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_shlibpath_overrides_runpath=no
- save_LDFLAGS=$LDFLAGS
- save_libdir=$libdir
- eval "libdir=/foo; wl=\"$lt_prog_compiler_wl\"; \
- LDFLAGS=\"\$LDFLAGS $hardcode_libdir_flag_spec\""
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- if ($OBJDUMP -p conftest$ac_exeext) 2>/dev/null | grep "RUNPATH.*$libdir" >/dev/null; then :
- lt_cv_shlibpath_overrides_runpath=yes
-fi
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- LDFLAGS=$save_LDFLAGS
- libdir=$save_libdir
-
-fi
-
- shlibpath_overrides_runpath=$lt_cv_shlibpath_overrides_runpath
-
- # This implies no fast_install, which is unacceptable.
- # Some rework will be needed to allow for fast_install
- # before this can be enabled.
- hardcode_into_libs=yes
-
- # Ideally, we could use ldconfig to report *all* directores which are
- # searched for libraries, however this is still not possible. Aside from not
- # being certain /sbin/ldconfig is available, command
- # 'ldconfig -N -X -v | grep ^/' on 64bit Fedora does not report /usr/lib64,
- # even though it is searched at run-time. Try to do the best guess by
- # appending ld.so.conf contents (and includes) to the search path.
- if test -f /etc/ld.so.conf; then
- lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s 2>/dev/null", \$2)); skip = 1; } { if (!skip) print \$0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;/^[ ]*hwcap[ ]/d;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;s/"//g;/^$/d' | tr '\n' ' '`
- sys_lib_dlsearch_path_spec="/lib /usr/lib $lt_ld_extra"
- fi
-
- # We used to test for /lib/ld.so.1 and disable shared libraries on
- # powerpc, because MkLinux only supported shared libraries with the
- # GNU dynamic linker. Since this was broken with cross compilers,
- # most powerpc-linux boxes support dynamic linking these days and
- # people can always --disable-shared, the test was removed, and we
- # assume the GNU/Linux dynamic linker is in use.
- dynamic_linker='GNU/Linux ld.so'
- ;;
-
-netbsdelf*-gnu)
- version_type=linux
- need_lib_prefix=no
- need_version=no
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}'
- soname_spec='${libname}${release}${shared_ext}$major'
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=no
- hardcode_into_libs=yes
- dynamic_linker='NetBSD ld.elf_so'
- ;;
-
-netbsd*)
- version_type=sunos
- need_lib_prefix=no
- need_version=no
- if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
- library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix'
- finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir'
- dynamic_linker='NetBSD (a.out) ld.so'
- else
- library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
- soname_spec='$libname$release$shared_ext$major'
- dynamic_linker='NetBSD ld.elf_so'
- fi
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=yes
- hardcode_into_libs=yes
- ;;
-
-newsos6)
- version_type=linux # correct to gnu/linux during the next big refactor
- library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=yes
- ;;
-
-*nto* | *qnx*)
- version_type=qnx
- need_lib_prefix=no
- need_version=no
- library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
- soname_spec='$libname$release$shared_ext$major'
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=no
- hardcode_into_libs=yes
- dynamic_linker='ldqnx.so'
- ;;
-
-openbsd* | bitrig*)
- version_type=sunos
- sys_lib_dlsearch_path_spec=/usr/lib
- need_lib_prefix=no
- if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`"; then
- need_version=no
- else
- need_version=yes
- fi
- library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix'
- finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir'
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=yes
- ;;
-
-os2*)
- libname_spec='$name'
- version_type=windows
- shrext_cmds=.dll
- need_version=no
- need_lib_prefix=no
- # OS/2 can only load a DLL with a base name of 8 characters or less.
- soname_spec='`test -n "$os2dllname" && libname="$os2dllname";
- v=$($ECHO $release$versuffix | tr -d .-);
- n=$($ECHO $libname | cut -b -$((8 - ${#v})) | tr . _);
- $ECHO $n$v`$shared_ext'
- library_names_spec='${libname}_dll.$libext'
- dynamic_linker='OS/2 ld.exe'
- shlibpath_var=BEGINLIBPATH
- sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib"
- sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
- postinstall_cmds='base_file=`basename \$file`~
- dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; $ECHO \$dlname'\''`~
- dldir=$destdir/`dirname \$dlpath`~
- test -d \$dldir || mkdir -p \$dldir~
- $install_prog $dir/$dlname \$dldir/$dlname~
- chmod a+x \$dldir/$dlname~
- if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then
- eval '\''$striplib \$dldir/$dlname'\'' || exit \$?;
- fi'
- postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; $ECHO \$dlname'\''`~
- dlpath=$dir/\$dldll~
- $RM \$dlpath'
- ;;
-
-osf3* | osf4* | osf5*)
- version_type=osf
- need_lib_prefix=no
- need_version=no
- soname_spec='$libname$release$shared_ext$major'
- library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
- shlibpath_var=LD_LIBRARY_PATH
- sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib"
- sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
- ;;
-
-rdos*)
- dynamic_linker=no
- ;;
-
-solaris*)
- version_type=linux # correct to gnu/linux during the next big refactor
- need_lib_prefix=no
- need_version=no
- library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
- soname_spec='$libname$release$shared_ext$major'
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=yes
- hardcode_into_libs=yes
- # ldd complains unless libraries are executable
- postinstall_cmds='chmod +x $lib'
- ;;
-
-sunos4*)
- version_type=sunos
- library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix'
- finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir'
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=yes
- if test yes = "$with_gnu_ld"; then
- need_lib_prefix=no
- fi
- need_version=yes
- ;;
-
-sysv4 | sysv4.3*)
- version_type=linux # correct to gnu/linux during the next big refactor
- library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
- soname_spec='$libname$release$shared_ext$major'
- shlibpath_var=LD_LIBRARY_PATH
- case $host_vendor in
- sni)
- shlibpath_overrides_runpath=no
- need_lib_prefix=no
- runpath_var=LD_RUN_PATH
- ;;
- siemens)
- need_lib_prefix=no
- ;;
- motorola)
- need_lib_prefix=no
- need_version=no
- shlibpath_overrides_runpath=no
- sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib'
- ;;
- esac
- ;;
-
-sysv4*MP*)
- if test -d /usr/nec; then
- version_type=linux # correct to gnu/linux during the next big refactor
- library_names_spec='$libname$shared_ext.$versuffix $libname$shared_ext.$major $libname$shared_ext'
- soname_spec='$libname$shared_ext.$major'
- shlibpath_var=LD_LIBRARY_PATH
- fi
- ;;
-
-sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*)
- version_type=sco
- need_lib_prefix=no
- need_version=no
- library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext $libname$shared_ext'
- soname_spec='$libname$release$shared_ext$major'
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=yes
- hardcode_into_libs=yes
- if test yes = "$with_gnu_ld"; then
- sys_lib_search_path_spec='/usr/local/lib /usr/gnu/lib /usr/ccs/lib /usr/lib /lib'
- else
- sys_lib_search_path_spec='/usr/ccs/lib /usr/lib'
- case $host_os in
- sco3.2v5*)
- sys_lib_search_path_spec="$sys_lib_search_path_spec /lib"
- ;;
- esac
- fi
- sys_lib_dlsearch_path_spec='/usr/lib'
- ;;
-
-tpf*)
- # TPF is a cross-target only. Preferred cross-host = GNU/Linux.
- version_type=linux # correct to gnu/linux during the next big refactor
- need_lib_prefix=no
- need_version=no
- library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=no
- hardcode_into_libs=yes
- ;;
-
-uts4*)
- version_type=linux # correct to gnu/linux during the next big refactor
- library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext'
- soname_spec='$libname$release$shared_ext$major'
- shlibpath_var=LD_LIBRARY_PATH
- ;;
-
-*)
- dynamic_linker=no
- ;;
-esac
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $dynamic_linker" >&5
-$as_echo "$dynamic_linker" >&6; }
-test no = "$dynamic_linker" && can_build_shared=no
-
-variables_saved_for_relink="PATH $shlibpath_var $runpath_var"
-if test yes = "$GCC"; then
- variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH"
-fi
-
-if test set = "${lt_cv_sys_lib_search_path_spec+set}"; then
- sys_lib_search_path_spec=$lt_cv_sys_lib_search_path_spec
-fi
-
-if test set = "${lt_cv_sys_lib_dlsearch_path_spec+set}"; then
- sys_lib_dlsearch_path_spec=$lt_cv_sys_lib_dlsearch_path_spec
-fi
-
-# remember unaugmented sys_lib_dlsearch_path content for libtool script decls...
-configure_time_dlsearch_path=$sys_lib_dlsearch_path_spec
-
-# ... but it needs LT_SYS_LIBRARY_PATH munging for other configure-time code
-func_munge_path_list sys_lib_dlsearch_path_spec "$LT_SYS_LIBRARY_PATH"
-
-# to be used as default LT_SYS_LIBRARY_PATH value in generated libtool
-configure_time_lt_sys_library_path=$LT_SYS_LIBRARY_PATH
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to hardcode library paths into programs" >&5
-$as_echo_n "checking how to hardcode library paths into programs... " >&6; }
-hardcode_action=
-if test -n "$hardcode_libdir_flag_spec" ||
- test -n "$runpath_var" ||
- test yes = "$hardcode_automatic"; then
-
- # We can hardcode non-existent directories.
- if test no != "$hardcode_direct" &&
- # If the only mechanism to avoid hardcoding is shlibpath_var, we
- # have to relink, otherwise we might link with an installed library
- # when we should be linking with a yet-to-be-installed one
- ## test no != "$_LT_TAGVAR(hardcode_shlibpath_var, )" &&
- test no != "$hardcode_minus_L"; then
- # Linking always hardcodes the temporary library directory.
- hardcode_action=relink
- else
- # We can link without hardcoding, and we can hardcode nonexisting dirs.
- hardcode_action=immediate
- fi
-else
- # We cannot hardcode anything, or else we can only hardcode existing
- # directories.
- hardcode_action=unsupported
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $hardcode_action" >&5
-$as_echo "$hardcode_action" >&6; }
-
-if test relink = "$hardcode_action" ||
- test yes = "$inherit_rpath"; then
- # Fast installation is not supported
- enable_fast_install=no
-elif test yes = "$shlibpath_overrides_runpath" ||
- test no = "$enable_shared"; then
- # Fast installation is not necessary
- enable_fast_install=needless
-fi
-
-
-
-
-
-
- if test yes != "$enable_dlopen"; then
- enable_dlopen=unknown
- enable_dlopen_self=unknown
- enable_dlopen_self_static=unknown
-else
- lt_cv_dlopen=no
- lt_cv_dlopen_libs=
-
- case $host_os in
- beos*)
- lt_cv_dlopen=load_add_on
- lt_cv_dlopen_libs=
- lt_cv_dlopen_self=yes
- ;;
-
- mingw* | pw32* | cegcc*)
- lt_cv_dlopen=LoadLibrary
- lt_cv_dlopen_libs=
- ;;
-
- cygwin*)
- lt_cv_dlopen=dlopen
- lt_cv_dlopen_libs=
- ;;
-
- darwin*)
- # if libdl is installed we need to link against it
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -ldl" >&5
-$as_echo_n "checking for dlopen in -ldl... " >&6; }
-if ${ac_cv_lib_dl_dlopen+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-ldl $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char dlopen ();
-int
-main ()
-{
-return dlopen ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_dl_dlopen=yes
-else
- ac_cv_lib_dl_dlopen=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dl_dlopen" >&5
-$as_echo "$ac_cv_lib_dl_dlopen" >&6; }
-if test "x$ac_cv_lib_dl_dlopen" = xyes; then :
- lt_cv_dlopen=dlopen lt_cv_dlopen_libs=-ldl
-else
-
- lt_cv_dlopen=dyld
- lt_cv_dlopen_libs=
- lt_cv_dlopen_self=yes
-
-fi
-
- ;;
-
- tpf*)
- # Don't try to run any link tests for TPF. We know it's impossible
- # because TPF is a cross-compiler, and we know how we open DSOs.
- lt_cv_dlopen=dlopen
- lt_cv_dlopen_libs=
- lt_cv_dlopen_self=no
- ;;
-
- *)
- ac_fn_c_check_func "$LINENO" "shl_load" "ac_cv_func_shl_load"
-if test "x$ac_cv_func_shl_load" = xyes; then :
- lt_cv_dlopen=shl_load
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for shl_load in -ldld" >&5
-$as_echo_n "checking for shl_load in -ldld... " >&6; }
-if ${ac_cv_lib_dld_shl_load+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-ldld $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char shl_load ();
-int
-main ()
-{
-return shl_load ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_dld_shl_load=yes
-else
- ac_cv_lib_dld_shl_load=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dld_shl_load" >&5
-$as_echo "$ac_cv_lib_dld_shl_load" >&6; }
-if test "x$ac_cv_lib_dld_shl_load" = xyes; then :
- lt_cv_dlopen=shl_load lt_cv_dlopen_libs=-ldld
-else
- ac_fn_c_check_func "$LINENO" "dlopen" "ac_cv_func_dlopen"
-if test "x$ac_cv_func_dlopen" = xyes; then :
- lt_cv_dlopen=dlopen
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -ldl" >&5
-$as_echo_n "checking for dlopen in -ldl... " >&6; }
-if ${ac_cv_lib_dl_dlopen+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-ldl $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char dlopen ();
-int
-main ()
-{
-return dlopen ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_dl_dlopen=yes
-else
- ac_cv_lib_dl_dlopen=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dl_dlopen" >&5
-$as_echo "$ac_cv_lib_dl_dlopen" >&6; }
-if test "x$ac_cv_lib_dl_dlopen" = xyes; then :
- lt_cv_dlopen=dlopen lt_cv_dlopen_libs=-ldl
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -lsvld" >&5
-$as_echo_n "checking for dlopen in -lsvld... " >&6; }
-if ${ac_cv_lib_svld_dlopen+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lsvld $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char dlopen ();
-int
-main ()
-{
-return dlopen ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_svld_dlopen=yes
-else
- ac_cv_lib_svld_dlopen=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_svld_dlopen" >&5
-$as_echo "$ac_cv_lib_svld_dlopen" >&6; }
-if test "x$ac_cv_lib_svld_dlopen" = xyes; then :
- lt_cv_dlopen=dlopen lt_cv_dlopen_libs=-lsvld
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dld_link in -ldld" >&5
-$as_echo_n "checking for dld_link in -ldld... " >&6; }
-if ${ac_cv_lib_dld_dld_link+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-ldld $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char dld_link ();
-int
-main ()
-{
-return dld_link ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_dld_dld_link=yes
-else
- ac_cv_lib_dld_dld_link=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dld_dld_link" >&5
-$as_echo "$ac_cv_lib_dld_dld_link" >&6; }
-if test "x$ac_cv_lib_dld_dld_link" = xyes; then :
- lt_cv_dlopen=dld_link lt_cv_dlopen_libs=-ldld
-fi
-
-
-fi
-
-
-fi
-
-
-fi
-
-
-fi
-
-
-fi
-
- ;;
- esac
-
- if test no = "$lt_cv_dlopen"; then
- enable_dlopen=no
- else
- enable_dlopen=yes
- fi
-
- case $lt_cv_dlopen in
- dlopen)
- save_CPPFLAGS=$CPPFLAGS
- test yes = "$ac_cv_header_dlfcn_h" && CPPFLAGS="$CPPFLAGS -DHAVE_DLFCN_H"
-
- save_LDFLAGS=$LDFLAGS
- wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $export_dynamic_flag_spec\"
-
- save_LIBS=$LIBS
- LIBS="$lt_cv_dlopen_libs $LIBS"
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether a program can dlopen itself" >&5
-$as_echo_n "checking whether a program can dlopen itself... " >&6; }
-if ${lt_cv_dlopen_self+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test yes = "$cross_compiling"; then :
- lt_cv_dlopen_self=cross
-else
- lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2
- lt_status=$lt_dlunknown
- cat > conftest.$ac_ext <<_LT_EOF
-#line $LINENO "configure"
-#include "confdefs.h"
-
-#if HAVE_DLFCN_H
-#include <dlfcn.h>
-#endif
-
-#include <stdio.h>
-
-#ifdef RTLD_GLOBAL
-# define LT_DLGLOBAL RTLD_GLOBAL
-#else
-# ifdef DL_GLOBAL
-# define LT_DLGLOBAL DL_GLOBAL
-# else
-# define LT_DLGLOBAL 0
-# endif
-#endif
-
-/* We may have to define LT_DLLAZY_OR_NOW in the command line if we
- find out it does not work in some platform. */
-#ifndef LT_DLLAZY_OR_NOW
-# ifdef RTLD_LAZY
-# define LT_DLLAZY_OR_NOW RTLD_LAZY
-# else
-# ifdef DL_LAZY
-# define LT_DLLAZY_OR_NOW DL_LAZY
-# else
-# ifdef RTLD_NOW
-# define LT_DLLAZY_OR_NOW RTLD_NOW
-# else
-# ifdef DL_NOW
-# define LT_DLLAZY_OR_NOW DL_NOW
-# else
-# define LT_DLLAZY_OR_NOW 0
-# endif
-# endif
-# endif
-# endif
-#endif
-
-/* When -fvisibility=hidden is used, assume the code has been annotated
- correspondingly for the symbols needed. */
-#if defined __GNUC__ && (((__GNUC__ == 3) && (__GNUC_MINOR__ >= 3)) || (__GNUC__ > 3))
-int fnord () __attribute__((visibility("default")));
-#endif
-
-int fnord () { return 42; }
-int main ()
-{
- void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW);
- int status = $lt_dlunknown;
-
- if (self)
- {
- if (dlsym (self,"fnord")) status = $lt_dlno_uscore;
- else
- {
- if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore;
- else puts (dlerror ());
- }
- /* dlclose (self); */
- }
- else
- puts (dlerror ());
-
- return status;
-}
-_LT_EOF
- if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5
- (eval $ac_link) 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; } && test -s "conftest$ac_exeext" 2>/dev/null; then
- (./conftest; exit; ) >&5 2>/dev/null
- lt_status=$?
- case x$lt_status in
- x$lt_dlno_uscore) lt_cv_dlopen_self=yes ;;
- x$lt_dlneed_uscore) lt_cv_dlopen_self=yes ;;
- x$lt_dlunknown|x*) lt_cv_dlopen_self=no ;;
- esac
- else :
- # compilation failed
- lt_cv_dlopen_self=no
- fi
-fi
-rm -fr conftest*
-
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_dlopen_self" >&5
-$as_echo "$lt_cv_dlopen_self" >&6; }
-
- if test yes = "$lt_cv_dlopen_self"; then
- wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $lt_prog_compiler_static\"
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether a statically linked program can dlopen itself" >&5
-$as_echo_n "checking whether a statically linked program can dlopen itself... " >&6; }
-if ${lt_cv_dlopen_self_static+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test yes = "$cross_compiling"; then :
- lt_cv_dlopen_self_static=cross
-else
- lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2
- lt_status=$lt_dlunknown
- cat > conftest.$ac_ext <<_LT_EOF
-#line $LINENO "configure"
-#include "confdefs.h"
-
-#if HAVE_DLFCN_H
-#include <dlfcn.h>
-#endif
-
-#include <stdio.h>
-
-#ifdef RTLD_GLOBAL
-# define LT_DLGLOBAL RTLD_GLOBAL
-#else
-# ifdef DL_GLOBAL
-# define LT_DLGLOBAL DL_GLOBAL
-# else
-# define LT_DLGLOBAL 0
-# endif
-#endif
-
-/* We may have to define LT_DLLAZY_OR_NOW in the command line if we
- find out it does not work in some platform. */
-#ifndef LT_DLLAZY_OR_NOW
-# ifdef RTLD_LAZY
-# define LT_DLLAZY_OR_NOW RTLD_LAZY
-# else
-# ifdef DL_LAZY
-# define LT_DLLAZY_OR_NOW DL_LAZY
-# else
-# ifdef RTLD_NOW
-# define LT_DLLAZY_OR_NOW RTLD_NOW
-# else
-# ifdef DL_NOW
-# define LT_DLLAZY_OR_NOW DL_NOW
-# else
-# define LT_DLLAZY_OR_NOW 0
-# endif
-# endif
-# endif
-# endif
-#endif
-
-/* When -fvisibility=hidden is used, assume the code has been annotated
- correspondingly for the symbols needed. */
-#if defined __GNUC__ && (((__GNUC__ == 3) && (__GNUC_MINOR__ >= 3)) || (__GNUC__ > 3))
-int fnord () __attribute__((visibility("default")));
-#endif
-
-int fnord () { return 42; }
-int main ()
-{
- void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW);
- int status = $lt_dlunknown;
-
- if (self)
- {
- if (dlsym (self,"fnord")) status = $lt_dlno_uscore;
- else
- {
- if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore;
- else puts (dlerror ());
- }
- /* dlclose (self); */
- }
- else
- puts (dlerror ());
-
- return status;
-}
-_LT_EOF
- if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5
- (eval $ac_link) 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; } && test -s "conftest$ac_exeext" 2>/dev/null; then
- (./conftest; exit; ) >&5 2>/dev/null
- lt_status=$?
- case x$lt_status in
- x$lt_dlno_uscore) lt_cv_dlopen_self_static=yes ;;
- x$lt_dlneed_uscore) lt_cv_dlopen_self_static=yes ;;
- x$lt_dlunknown|x*) lt_cv_dlopen_self_static=no ;;
- esac
- else :
- # compilation failed
- lt_cv_dlopen_self_static=no
- fi
-fi
-rm -fr conftest*
-
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_dlopen_self_static" >&5
-$as_echo "$lt_cv_dlopen_self_static" >&6; }
- fi
-
- CPPFLAGS=$save_CPPFLAGS
- LDFLAGS=$save_LDFLAGS
- LIBS=$save_LIBS
- ;;
- esac
-
- case $lt_cv_dlopen_self in
- yes|no) enable_dlopen_self=$lt_cv_dlopen_self ;;
- *) enable_dlopen_self=unknown ;;
- esac
-
- case $lt_cv_dlopen_self_static in
- yes|no) enable_dlopen_self_static=$lt_cv_dlopen_self_static ;;
- *) enable_dlopen_self_static=unknown ;;
- esac
-fi
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-striplib=
-old_striplib=
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether stripping libraries is possible" >&5
-$as_echo_n "checking whether stripping libraries is possible... " >&6; }
-if test -z "$STRIP"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-else
- if $STRIP -V 2>&1 | $GREP "GNU strip" >/dev/null; then
- old_striplib="$STRIP --strip-debug"
- striplib="$STRIP --strip-unneeded"
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
- else
- case $host_os in
- darwin*)
- # FIXME - insert some real tests, host_os isn't really good enough
- striplib="$STRIP -x"
- old_striplib="$STRIP -S"
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
- ;;
- freebsd*)
- if $STRIP -V 2>&1 | $GREP "elftoolchain" >/dev/null; then
- old_striplib="$STRIP --strip-debug"
- striplib="$STRIP --strip-unneeded"
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- fi
- ;;
- *)
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- ;;
- esac
- fi
-fi
-
-
-
-
-
-
-
-
-
-
-
-
- # Report what library types will actually be built
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking if libtool supports shared libraries" >&5
-$as_echo_n "checking if libtool supports shared libraries... " >&6; }
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $can_build_shared" >&5
-$as_echo "$can_build_shared" >&6; }
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to build shared libraries" >&5
-$as_echo_n "checking whether to build shared libraries... " >&6; }
- test no = "$can_build_shared" && enable_shared=no
-
- # On AIX, shared libraries and static libraries use the same namespace, and
- # are all built from PIC.
- case $host_os in
- aix3*)
- test yes = "$enable_shared" && enable_static=no
- if test -n "$RANLIB"; then
- archive_cmds="$archive_cmds~\$RANLIB \$lib"
- postinstall_cmds='$RANLIB $lib'
- fi
- ;;
-
- aix[4-9]*)
- if test ia64 != "$host_cpu"; then
- case $enable_shared,$with_aix_soname,$aix_use_runtimelinking in
- yes,aix,yes) ;; # shared object as lib.so file only
- yes,svr4,*) ;; # shared object as lib.so archive member only
- yes,*) enable_static=no ;; # shared object in lib.a archive as well
- esac
- fi
- ;;
- esac
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_shared" >&5
-$as_echo "$enable_shared" >&6; }
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to build static libraries" >&5
-$as_echo_n "checking whether to build static libraries... " >&6; }
- # Make sure either enable_shared or enable_static is yes.
- test yes = "$enable_shared" || enable_static=yes
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_static" >&5
-$as_echo "$enable_static" >&6; }
-
-
-
-
-fi
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-
-CC=$lt_save_CC
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-# Source file extension for RC test sources.
-ac_ext=rc
-
-# Object file extension for compiled RC test sources.
-objext=o
-objext_RC=$objext
-
-# Code to be used in simple compile tests
-lt_simple_compile_test_code='sample MENU { MENUITEM "&Soup", 100, CHECKED }'
-
-# Code to be used in simple link tests
-lt_simple_link_test_code=$lt_simple_compile_test_code
-
-# ltmain only uses $CC for tagged configurations so make sure $CC is set.
-
-
-
-
-
-
-# If no C compiler was specified, use CC.
-LTCC=${LTCC-"$CC"}
-
-# If no C compiler flags were specified, use CFLAGS.
-LTCFLAGS=${LTCFLAGS-"$CFLAGS"}
-
-# Allow CC to be a program name with arguments.
-compiler=$CC
-
-
-# save warnings/boilerplate of simple test code
-ac_outfile=conftest.$ac_objext
-echo "$lt_simple_compile_test_code" >conftest.$ac_ext
-eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err
-_lt_compiler_boilerplate=`cat conftest.err`
-$RM conftest*
-
-ac_outfile=conftest.$ac_objext
-echo "$lt_simple_link_test_code" >conftest.$ac_ext
-eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err
-_lt_linker_boilerplate=`cat conftest.err`
-$RM -r conftest*
-
-
-# Allow CC to be a program name with arguments.
-lt_save_CC=$CC
-lt_save_CFLAGS=$CFLAGS
-lt_save_GCC=$GCC
-GCC=
-CC=${RC-"windres"}
-CFLAGS=
-compiler=$CC
-compiler_RC=$CC
-func_cc_basename $compiler
-cc_basename=$func_cc_basename_result
-
-lt_cv_prog_compiler_c_o_RC=yes
-
-if test -n "$compiler"; then
- :
-
-
-
-fi
-
-GCC=$lt_save_GCC
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-
-CC=$lt_save_CC
-CFLAGS=$lt_save_CFLAGS
-
-
- ac_config_commands="$ac_config_commands libtool"
-
-
-
-
-# Only expand once:
-
-
-
-for ac_prog in flex lex
-do
- # Extract the first word of "$ac_prog", so it can be a program name with args.
-set dummy $ac_prog; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_LEX+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$LEX"; then
- ac_cv_prog_LEX="$LEX" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_LEX="$ac_prog"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-LEX=$ac_cv_prog_LEX
-if test -n "$LEX"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $LEX" >&5
-$as_echo "$LEX" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- test -n "$LEX" && break
-done
-test -n "$LEX" || LEX=":"
-
-if test "x$LEX" != "x:"; then
- cat >conftest.l <<_ACEOF
-%%
-a { ECHO; }
-b { REJECT; }
-c { yymore (); }
-d { yyless (1); }
-e { /* IRIX 6.5 flex 2.5.4 underquotes its yyless argument. */
- yyless ((input () != 0)); }
-f { unput (yytext[0]); }
-. { BEGIN INITIAL; }
-%%
-#ifdef YYTEXT_POINTER
-extern char *yytext;
-#endif
-int
-main (void)
-{
- return ! yylex () + ! yywrap ();
-}
-_ACEOF
-{ { ac_try="$LEX conftest.l"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$LEX conftest.l") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking lex output file root" >&5
-$as_echo_n "checking lex output file root... " >&6; }
-if ${ac_cv_prog_lex_root+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
-if test -f lex.yy.c; then
- ac_cv_prog_lex_root=lex.yy
-elif test -f lexyy.c; then
- ac_cv_prog_lex_root=lexyy
-else
- as_fn_error $? "cannot find output from $LEX; giving up" "$LINENO" 5
-fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_lex_root" >&5
-$as_echo "$ac_cv_prog_lex_root" >&6; }
-LEX_OUTPUT_ROOT=$ac_cv_prog_lex_root
-
-if test -z "${LEXLIB+set}"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking lex library" >&5
-$as_echo_n "checking lex library... " >&6; }
-if ${ac_cv_lib_lex+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- ac_save_LIBS=$LIBS
- ac_cv_lib_lex='none needed'
- for ac_lib in '' -lfl -ll; do
- LIBS="$ac_lib $ac_save_LIBS"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-`cat $LEX_OUTPUT_ROOT.c`
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_lex=$ac_lib
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- test "$ac_cv_lib_lex" != 'none needed' && break
- done
- LIBS=$ac_save_LIBS
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_lex" >&5
-$as_echo "$ac_cv_lib_lex" >&6; }
- test "$ac_cv_lib_lex" != 'none needed' && LEXLIB=$ac_cv_lib_lex
-fi
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether yytext is a pointer" >&5
-$as_echo_n "checking whether yytext is a pointer... " >&6; }
-if ${ac_cv_prog_lex_yytext_pointer+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- # POSIX says lex can declare yytext either as a pointer or an array; the
-# default is implementation-dependent. Figure out which it is, since
-# not all implementations provide the %pointer and %array declarations.
-ac_cv_prog_lex_yytext_pointer=no
-ac_save_LIBS=$LIBS
-LIBS="$LEXLIB $ac_save_LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- #define YYTEXT_POINTER 1
-`cat $LEX_OUTPUT_ROOT.c`
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_prog_lex_yytext_pointer=yes
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_save_LIBS
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_lex_yytext_pointer" >&5
-$as_echo "$ac_cv_prog_lex_yytext_pointer" >&6; }
-if test $ac_cv_prog_lex_yytext_pointer = yes; then
-
-$as_echo "#define YYTEXT_POINTER 1" >>confdefs.h
-
-fi
-rm -f conftest.l $LEX_OUTPUT_ROOT.c
-
-fi
-if test "$LEX" = :; then
- LEX=${am_missing_run}flex
-fi
-
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking if flex is the lexer generator" >&5
-$as_echo_n "checking if flex is the lexer generator... " >&6; }
-if ${ax_cv_prog_flex+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- if $LEX --version 2>/dev/null | $EGREP -qw '^g?flex'; then :
- ax_cv_prog_flex=yes
-else
- ax_cv_prog_flex=no
-fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ax_cv_prog_flex" >&5
-$as_echo "$ax_cv_prog_flex" >&6; }
- if test "$ax_cv_prog_flex" = "yes"; then :
-
-fi
-
-for ac_prog in 'bison -y' byacc
-do
- # Extract the first word of "$ac_prog", so it can be a program name with args.
-set dummy $ac_prog; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_YACC+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$YACC"; then
- ac_cv_prog_YACC="$YACC" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_YACC="$ac_prog"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-YACC=$ac_cv_prog_YACC
-if test -n "$YACC"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $YACC" >&5
-$as_echo "$YACC" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- test -n "$YACC" && break
-done
-test -n "$YACC" || YACC="yacc"
-
-
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking if bison is the parser generator" >&5
-$as_echo_n "checking if bison is the parser generator... " >&6; }
-if ${ax_cv_prog_bison+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- if $YACC --version 2>/dev/null | $EGREP -q '^bison '; then :
- ax_cv_prog_bison=yes
-else
- ax_cv_prog_bison=no
-fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ax_cv_prog_bison" >&5
-$as_echo "$ax_cv_prog_bison" >&6; }
- if test "$ax_cv_prog_bison" = "yes"; then :
-
- YACC="${YACC% -y} -o y.tab.c"
-
-fi
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for diff arguments" >&5
-$as_echo_n "checking for diff arguments... " >&6; }
-case "$DIFF_FLAGS" in
- *--strip-trailing-cr*)
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: specified as $DIFF_FLAGS" >&5
-$as_echo "specified as $DIFF_FLAGS" >&6; }
- ;;
- *)
- diff $DIFF_FLAGS --strip-trailing-cr --version 1>/dev/null 2>&1
- if test $? -eq 0; then
- if test -z "$DIFF_FLAGS"; then
- DIFF_FLAGS="--strip-trailing-cr"
- else
- DIFF_FLAGS="$DIFF_FLAGS --strip-trailing-cr"
- fi
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DIFF_FLAGS" >&5
-$as_echo "$DIFF_FLAGS" >&6; }
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: not supported" >&5
-$as_echo "not supported" >&6; }
- fi
- ;;
-esac
-
-
-# Stop tests for C++ and Fortran
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ln -s works" >&5
-$as_echo_n "checking whether ln -s works... " >&6; }
-LN_S=$as_ln_s
-if test "$LN_S" = "ln -s"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no, using $LN_S" >&5
-$as_echo "no, using $LN_S" >&6; }
-fi
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE-make} sets \$(MAKE)" >&5
-$as_echo_n "checking whether ${MAKE-make} sets \$(MAKE)... " >&6; }
-set x ${MAKE-make}
-ac_make=`$as_echo "$2" | sed 's/+/p/g; s/[^a-zA-Z0-9_]/_/g'`
-if eval \${ac_cv_prog_make_${ac_make}_set+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat >conftest.make <<\_ACEOF
-SHELL = /bin/sh
-all:
- @echo '@@@%%%=$(MAKE)=@@@%%%'
-_ACEOF
-# GNU make sometimes prints "make[1]: Entering ...", which would confuse us.
-case `${MAKE-make} -f conftest.make 2>/dev/null` in
- *@@@%%%=?*=@@@%%%*)
- eval ac_cv_prog_make_${ac_make}_set=yes;;
- *)
- eval ac_cv_prog_make_${ac_make}_set=no;;
-esac
-rm -f conftest.make
-fi
-if eval test \$ac_cv_prog_make_${ac_make}_set = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
- SET_MAKE=
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- SET_MAKE="MAKE=${MAKE-make}"
-fi
-
-
-
-# Check whether --with-gnu-ld was given.
-if test "${with_gnu_ld+set}" = set; then :
- withval=$with_gnu_ld; test "$withval" = no || with_gnu_ld=yes
-else
- with_gnu_ld=no
-fi
-
-# Prepare PATH_SEPARATOR.
-# The user is always right.
-if test "${PATH_SEPARATOR+set}" != set; then
- # Determine PATH_SEPARATOR by trying to find /bin/sh in a PATH which
- # contains only /bin. Note that ksh looks also at the FPATH variable,
- # so we have to set that as well for the test.
- PATH_SEPARATOR=:
- (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 \
- && { (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 \
- || PATH_SEPARATOR=';'
- }
-fi
-
-ac_prog=ld
-if test "$GCC" = yes; then
- # Check if gcc -print-prog-name=ld gives a path.
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ld used by $CC" >&5
-$as_echo_n "checking for ld used by $CC... " >&6; }
- case $host in
- *-*-mingw*)
- # gcc leaves a trailing carriage return which upsets mingw
- ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;;
- *)
- ac_prog=`($CC -print-prog-name=ld) 2>&5` ;;
- esac
- case $ac_prog in
- # Accept absolute paths.
- [\\/]* | ?:[\\/]*)
- re_direlt='/[^/][^/]*/\.\./'
- # Canonicalize the pathname of ld
- ac_prog=`echo "$ac_prog"| sed 's%\\\\%/%g'`
- while echo "$ac_prog" | grep "$re_direlt" > /dev/null 2>&1; do
- ac_prog=`echo $ac_prog| sed "s%$re_direlt%/%"`
- done
- test -z "$LD" && LD="$ac_prog"
- ;;
- "")
- # If it fails, then pretend we aren't using GCC.
- ac_prog=ld
- ;;
- *)
- # If it is relative, then search for the first ld in PATH.
- with_gnu_ld=unknown
- ;;
- esac
-elif test "$with_gnu_ld" = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GNU ld" >&5
-$as_echo_n "checking for GNU ld... " >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for non-GNU ld" >&5
-$as_echo_n "checking for non-GNU ld... " >&6; }
-fi
-if ${acl_cv_path_LD+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -z "$LD"; then
- acl_save_ifs="$IFS"; IFS=$PATH_SEPARATOR
- for ac_dir in $PATH; do
- IFS="$acl_save_ifs"
- test -z "$ac_dir" && ac_dir=.
- if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then
- acl_cv_path_LD="$ac_dir/$ac_prog"
- # Check to see if the program is GNU ld. I'd rather use --version,
- # but apparently some variants of GNU ld only accept -v.
- # Break only if it was the GNU/non-GNU ld that we prefer.
- case `"$acl_cv_path_LD" -v 2>&1 </dev/null` in
- *GNU* | *'with BFD'*)
- test "$with_gnu_ld" != no && break
- ;;
- *)
- test "$with_gnu_ld" != yes && break
- ;;
- esac
- fi
- done
- IFS="$acl_save_ifs"
-else
- acl_cv_path_LD="$LD" # Let the user override the test with a path.
-fi
-fi
-
-LD="$acl_cv_path_LD"
-if test -n "$LD"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $LD" >&5
-$as_echo "$LD" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-test -z "$LD" && as_fn_error $? "no acceptable ld found in \$PATH" "$LINENO" 5
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if the linker ($LD) is GNU ld" >&5
-$as_echo_n "checking if the linker ($LD) is GNU ld... " >&6; }
-if ${acl_cv_prog_gnu_ld+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- # I'd rather use --version here, but apparently some GNU lds only accept -v.
-case `$LD -v 2>&1 </dev/null` in
-*GNU* | *'with BFD'*)
- acl_cv_prog_gnu_ld=yes
- ;;
-*)
- acl_cv_prog_gnu_ld=no
- ;;
-esac
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $acl_cv_prog_gnu_ld" >&5
-$as_echo "$acl_cv_prog_gnu_ld" >&6; }
-with_gnu_ld=$acl_cv_prog_gnu_ld
-
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for shared library run path origin" >&5
-$as_echo_n "checking for shared library run path origin... " >&6; }
-if ${acl_cv_rpath+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- CC="$CC" GCC="$GCC" LDFLAGS="$LDFLAGS" LD="$LD" with_gnu_ld="$with_gnu_ld" \
- ${CONFIG_SHELL-/bin/sh} "$ac_aux_dir/config.rpath" "$host" > conftest.sh
- . ./conftest.sh
- rm -f ./conftest.sh
- acl_cv_rpath=done
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $acl_cv_rpath" >&5
-$as_echo "$acl_cv_rpath" >&6; }
- wl="$acl_cv_wl"
- acl_libext="$acl_cv_libext"
- acl_shlibext="$acl_cv_shlibext"
- acl_libname_spec="$acl_cv_libname_spec"
- acl_library_names_spec="$acl_cv_library_names_spec"
- acl_hardcode_libdir_flag_spec="$acl_cv_hardcode_libdir_flag_spec"
- acl_hardcode_libdir_separator="$acl_cv_hardcode_libdir_separator"
- acl_hardcode_direct="$acl_cv_hardcode_direct"
- acl_hardcode_minus_L="$acl_cv_hardcode_minus_L"
- # Check whether --enable-rpath was given.
-if test "${enable_rpath+set}" = set; then :
- enableval=$enable_rpath; :
-else
- enable_rpath=yes
-fi
-
-
-
-# more things to save...
-cat >confcache <<\_ACEOF
-# This file is a shell script that caches the results of configure
-# tests run on this system so they can be shared between configure
-# scripts and configure runs, see configure's option --config-cache.
-# It is not useful on other systems. If it contains results you don't
-# want to keep, you may remove or edit it.
-#
-# config.status only pays attention to the cache file if you give it
-# the --recheck option to rerun configure.
-#
-# `ac_cv_env_foo' variables (set or unset) will be overridden when
-# loading this file, other *unset* `ac_cv_foo' will be assigned the
-# following values.
-
-_ACEOF
-
-# The following way of writing the cache mishandles newlines in values,
-# but we know of no workaround that is simple, portable, and efficient.
-# So, we kill variables containing newlines.
-# Ultrix sh set writes to stderr and can't be redirected directly,
-# and sets the high bit in the cache file unless we assign to the vars.
-(
- for ac_var in `(set) 2>&1 | sed -n 's/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'`; do
- eval ac_val=\$$ac_var
- case $ac_val in #(
- *${as_nl}*)
- case $ac_var in #(
- *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5
-$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;;
- esac
- case $ac_var in #(
- _ | IFS | as_nl) ;; #(
- BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #(
- *) { eval $ac_var=; unset $ac_var;} ;;
- esac ;;
- esac
- done
-
- (set) 2>&1 |
- case $as_nl`(ac_space=' '; set) 2>&1` in #(
- *${as_nl}ac_space=\ *)
- # `set' does not quote correctly, so add quotes: double-quote
- # substitution turns \\\\ into \\, and sed turns \\ into \.
- sed -n \
- "s/'/'\\\\''/g;
- s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p"
- ;; #(
- *)
- # `set' quotes correctly as required by POSIX, so do not add quotes.
- sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p"
- ;;
- esac |
- sort
-) |
- sed '
- /^ac_cv_env_/b end
- t clear
- :clear
- s/^\([^=]*\)=\(.*[{}].*\)$/test "${\1+set}" = set || &/
- t end
- s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/
- :end' >>confcache
-if diff "$cache_file" confcache >/dev/null 2>&1; then :; else
- if test -w "$cache_file"; then
- if test "x$cache_file" != "x/dev/null"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5
-$as_echo "$as_me: updating cache $cache_file" >&6;}
- if test ! -f "$cache_file" || test -h "$cache_file"; then
- cat confcache >"$cache_file"
- else
- case $cache_file in #(
- */* | ?:*)
- mv -f confcache "$cache_file"$$ &&
- mv -f "$cache_file"$$ "$cache_file" ;; #(
- *)
- mv -f confcache "$cache_file" ;;
- esac
- fi
- fi
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file" >&5
-$as_echo "$as_me: not updating unwritable cache $cache_file" >&6;}
- fi
-fi
-rm -f confcache
-
-# Checks for header files.
-# mandatory:
-for ac_header in sys/types.h signal.h stddef.h
-do :
- as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh`
-ac_fn_c_check_header_mongrel "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default"
-if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
- cat >>confdefs.h <<_ACEOF
-#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
-_ACEOF
-
-else
- as_fn_error $? "mandatory header could not be found or included" "$LINENO" 5
-fi
-
-done
-
-# optional:
-for ac_header in sys/time.h locale.h fcntl.h dlfcn.h
-do :
- as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh`
-ac_fn_c_check_header_mongrel "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default"
-if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
- cat >>confdefs.h <<_ACEOF
-#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
-_ACEOF
-
-fi
-
-done
-
-
-
-# Checks for typedefs, structures, and compiler characteristics.
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for an ANSI C-conforming const" >&5
-$as_echo_n "checking for an ANSI C-conforming const... " >&6; }
-if ${ac_cv_c_const+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
-#ifndef __cplusplus
- /* Ultrix mips cc rejects this sort of thing. */
- typedef int charset[2];
- const charset cs = { 0, 0 };
- /* SunOS 4.1.1 cc rejects this. */
- char const *const *pcpcc;
- char **ppc;
- /* NEC SVR4.0.2 mips cc rejects this. */
- struct point {int x, y;};
- static struct point const zero = {0,0};
- /* AIX XL C 1.02.0.0 rejects this.
- It does not let you subtract one const X* pointer from another in
- an arm of an if-expression whose if-part is not a constant
- expression */
- const char *g = "string";
- pcpcc = &g + (g ? g-g : 0);
- /* HPUX 7.0 cc rejects these. */
- ++pcpcc;
- ppc = (char**) pcpcc;
- pcpcc = (char const *const *) ppc;
- { /* SCO 3.2v4 cc rejects this sort of thing. */
- char tx;
- char *t = &tx;
- char const *s = 0 ? (char *) 0 : (char const *) 0;
-
- *t++ = 0;
- if (s) return 0;
- }
- { /* Someone thinks the Sun supposedly-ANSI compiler will reject this. */
- int x[] = {25, 17};
- const int *foo = &x[0];
- ++foo;
- }
- { /* Sun SC1.0 ANSI compiler rejects this -- but not the above. */
- typedef const int *iptr;
- iptr p = 0;
- ++p;
- }
- { /* AIX XL C 1.02.0.0 rejects this sort of thing, saying
- "k.c", line 2.27: 1506-025 (S) Operand must be a modifiable lvalue. */
- struct s { int j; const int *ap[3]; } bx;
- struct s *b = &bx; b->j = 5;
- }
- { /* ULTRIX-32 V3.1 (Rev 9) vcc rejects this */
- const int foo = 10;
- if (!foo) return 0;
- }
- return !cs[0] && !zero.x;
-#endif
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_c_const=yes
-else
- ac_cv_c_const=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_const" >&5
-$as_echo "$ac_cv_c_const" >&6; }
-if test $ac_cv_c_const = no; then
-
-$as_echo "#define const /**/" >>confdefs.h
-
-fi
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether byte ordering is bigendian" >&5
-$as_echo_n "checking whether byte ordering is bigendian... " >&6; }
-if ${ac_cv_c_bigendian+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_cv_c_bigendian=unknown
- # See if we're dealing with a universal compiler.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#ifndef __APPLE_CC__
- not a universal capable compiler
- #endif
- typedef int dummy;
-
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
-
- # Check for potential -arch flags. It is not universal unless
- # there are at least two -arch flags with different values.
- ac_arch=
- ac_prev=
- for ac_word in $CC $CFLAGS $CPPFLAGS $LDFLAGS; do
- if test -n "$ac_prev"; then
- case $ac_word in
- i?86 | x86_64 | ppc | ppc64)
- if test -z "$ac_arch" || test "$ac_arch" = "$ac_word"; then
- ac_arch=$ac_word
- else
- ac_cv_c_bigendian=universal
- break
- fi
- ;;
- esac
- ac_prev=
- elif test "x$ac_word" = "x-arch"; then
- ac_prev=arch
- fi
- done
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- if test $ac_cv_c_bigendian = unknown; then
- # See if sys/param.h defines the BYTE_ORDER macro.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/types.h>
- #include <sys/param.h>
-
-int
-main ()
-{
-#if ! (defined BYTE_ORDER && defined BIG_ENDIAN \
- && defined LITTLE_ENDIAN && BYTE_ORDER && BIG_ENDIAN \
- && LITTLE_ENDIAN)
- bogus endian macros
- #endif
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- # It does; now see whether it defined to BIG_ENDIAN or not.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/types.h>
- #include <sys/param.h>
-
-int
-main ()
-{
-#if BYTE_ORDER != BIG_ENDIAN
- not big endian
- #endif
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_c_bigendian=yes
-else
- ac_cv_c_bigendian=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- fi
- if test $ac_cv_c_bigendian = unknown; then
- # See if <limits.h> defines _LITTLE_ENDIAN or _BIG_ENDIAN (e.g., Solaris).
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <limits.h>
-
-int
-main ()
-{
-#if ! (defined _LITTLE_ENDIAN || defined _BIG_ENDIAN)
- bogus endian macros
- #endif
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- # It does; now see whether it defined to _BIG_ENDIAN or not.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <limits.h>
-
-int
-main ()
-{
-#ifndef _BIG_ENDIAN
- not big endian
- #endif
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_c_bigendian=yes
-else
- ac_cv_c_bigendian=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- fi
- if test $ac_cv_c_bigendian = unknown; then
- # Compile a test program.
- if test "$cross_compiling" = yes; then :
- # Try to guess by grepping values from an object file.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-short int ascii_mm[] =
- { 0x4249, 0x4765, 0x6E44, 0x6961, 0x6E53, 0x7953, 0 };
- short int ascii_ii[] =
- { 0x694C, 0x5454, 0x656C, 0x6E45, 0x6944, 0x6E61, 0 };
- int use_ascii (int i) {
- return ascii_mm[i] + ascii_ii[i];
- }
- short int ebcdic_ii[] =
- { 0x89D3, 0xE3E3, 0x8593, 0x95C5, 0x89C4, 0x9581, 0 };
- short int ebcdic_mm[] =
- { 0xC2C9, 0xC785, 0x95C4, 0x8981, 0x95E2, 0xA8E2, 0 };
- int use_ebcdic (int i) {
- return ebcdic_mm[i] + ebcdic_ii[i];
- }
- extern int foo;
-
-int
-main ()
-{
-return use_ascii (foo) == use_ebcdic (foo);
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- if grep BIGenDianSyS conftest.$ac_objext >/dev/null; then
- ac_cv_c_bigendian=yes
- fi
- if grep LiTTleEnDian conftest.$ac_objext >/dev/null ; then
- if test "$ac_cv_c_bigendian" = unknown; then
- ac_cv_c_bigendian=no
- else
- # finding both strings is unlikely to happen, but who knows?
- ac_cv_c_bigendian=unknown
- fi
- fi
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$ac_includes_default
-int
-main ()
-{
-
- /* Are we little or big endian? From Harbison&Steele. */
- union
- {
- long int l;
- char c[sizeof (long int)];
- } u;
- u.l = 1;
- return u.c[sizeof (long int) - 1] == 1;
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- ac_cv_c_bigendian=no
-else
- ac_cv_c_bigendian=yes
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
- fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_bigendian" >&5
-$as_echo "$ac_cv_c_bigendian" >&6; }
- case $ac_cv_c_bigendian in #(
- yes)
- $as_echo "#define WORDS_BIGENDIAN 1" >>confdefs.h
-;; #(
- no)
- ;; #(
- universal)
-
-$as_echo "#define AC_APPLE_UNIVERSAL_BUILD 1" >>confdefs.h
-
- ;; #(
- *)
- as_fn_error $? "unknown endianness
- presetting ac_cv_c_bigendian=no (or yes) will help" "$LINENO" 5 ;;
- esac
-
-ac_fn_c_check_type "$LINENO" "size_t" "ac_cv_type_size_t" "$ac_includes_default"
-if test "x$ac_cv_type_size_t" = xyes; then :
-
-else
-
-cat >>confdefs.h <<_ACEOF
-#define size_t unsigned int
-_ACEOF
-
-fi
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether struct tm is in sys/time.h or time.h" >&5
-$as_echo_n "checking whether struct tm is in sys/time.h or time.h... " >&6; }
-if ${ac_cv_struct_tm+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/types.h>
-#include <time.h>
-
-int
-main ()
-{
-struct tm tm;
- int *p = &tm.tm_sec;
- return !p;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_struct_tm=time.h
-else
- ac_cv_struct_tm=sys/time.h
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_struct_tm" >&5
-$as_echo "$ac_cv_struct_tm" >&6; }
-if test $ac_cv_struct_tm = sys/time.h; then
-
-$as_echo "#define TM_IN_SYS_TIME 1" >>confdefs.h
-
-fi
-
-ac_fn_c_check_type "$LINENO" "sig_atomic_t" "ac_cv_type_sig_atomic_t" "#include <signal.h>
-"
-if test "x$ac_cv_type_sig_atomic_t" = xyes; then :
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE_SIG_ATOMIC_T 1
-_ACEOF
-
-
-fi
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for inline keyword" >&5
-$as_echo_n "checking for inline keyword... " >&6; }
-if ${gc_cv_keyword_inline+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- for gc_cv_keyword_inline in __inline __inline__ inline ""
- do
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- #ifndef __cplusplus
- typedef int foo_t;
- static $gc_cv_keyword_inline foo_t foo () { return 0; }
- #endif
-int
-main ()
-{
-
- #ifndef __cplusplus
- return foo ();
- #else
- choke me
- #endif
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- break
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- done
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gc_cv_keyword_inline" >&5
-$as_echo "$gc_cv_keyword_inline" >&6; }
-cat >>confdefs.h <<_ACEOF
-#define COB_KEYWORD_INLINE $gc_cv_keyword_inline
-_ACEOF
-
-
-
-# Checks for library functions.
-for ac_func in vprintf
-do :
- ac_fn_c_check_func "$LINENO" "vprintf" "ac_cv_func_vprintf"
-if test "x$ac_cv_func_vprintf" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_VPRINTF 1
-_ACEOF
-
-ac_fn_c_check_func "$LINENO" "_doprnt" "ac_cv_func__doprnt"
-if test "x$ac_cv_func__doprnt" = xyes; then :
-
-$as_echo "#define HAVE_DOPRNT 1" >>confdefs.h
-
-fi
-
-fi
-done
-
-
-for ac_func in memmove memset setlocale fcntl strerror strcasecmp \
- strchr strrchr strdup strstr strtol gettimeofday localeconv \
- getexecname canonicalize_file_name popen raise readlink realpath \
- setenv strcoll flockfile
-do :
- as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh`
-ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var"
-if eval test \"x\$"$as_ac_var"\" = x"yes"; then :
- cat >>confdefs.h <<_ACEOF
-#define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1
-_ACEOF
-
-fi
-done
-
-
-# more things to save...
-cat >confcache <<\_ACEOF
-# This file is a shell script that caches the results of configure
-# tests run on this system so they can be shared between configure
-# scripts and configure runs, see configure's option --config-cache.
-# It is not useful on other systems. If it contains results you don't
-# want to keep, you may remove or edit it.
-#
-# config.status only pays attention to the cache file if you give it
-# the --recheck option to rerun configure.
-#
-# `ac_cv_env_foo' variables (set or unset) will be overridden when
-# loading this file, other *unset* `ac_cv_foo' will be assigned the
-# following values.
-
-_ACEOF
-
-# The following way of writing the cache mishandles newlines in values,
-# but we know of no workaround that is simple, portable, and efficient.
-# So, we kill variables containing newlines.
-# Ultrix sh set writes to stderr and can't be redirected directly,
-# and sets the high bit in the cache file unless we assign to the vars.
-(
- for ac_var in `(set) 2>&1 | sed -n 's/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'`; do
- eval ac_val=\$$ac_var
- case $ac_val in #(
- *${as_nl}*)
- case $ac_var in #(
- *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5
-$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;;
- esac
- case $ac_var in #(
- _ | IFS | as_nl) ;; #(
- BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #(
- *) { eval $ac_var=; unset $ac_var;} ;;
- esac ;;
- esac
- done
-
- (set) 2>&1 |
- case $as_nl`(ac_space=' '; set) 2>&1` in #(
- *${as_nl}ac_space=\ *)
- # `set' does not quote correctly, so add quotes: double-quote
- # substitution turns \\\\ into \\, and sed turns \\ into \.
- sed -n \
- "s/'/'\\\\''/g;
- s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p"
- ;; #(
- *)
- # `set' quotes correctly as required by POSIX, so do not add quotes.
- sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p"
- ;;
- esac |
- sort
-) |
- sed '
- /^ac_cv_env_/b end
- t clear
- :clear
- s/^\([^=]*\)=\(.*[{}].*\)$/test "${\1+set}" = set || &/
- t end
- s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/
- :end' >>confcache
-if diff "$cache_file" confcache >/dev/null 2>&1; then :; else
- if test -w "$cache_file"; then
- if test "x$cache_file" != "x/dev/null"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5
-$as_echo "$as_me: updating cache $cache_file" >&6;}
- if test ! -f "$cache_file" || test -h "$cache_file"; then
- cat confcache >"$cache_file"
- else
- case $cache_file in #(
- */* | ?:*)
- mv -f confcache "$cache_file"$$ &&
- mv -f "$cache_file"$$ "$cache_file" ;; #(
- *)
- mv -f confcache "$cache_file" ;;
- esac
- fi
- fi
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file" >&5
-$as_echo "$as_me: not updating unwritable cache $cache_file" >&6;}
- fi
-fi
-rm -f confcache
-
-# Check for timezone
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for timezone variable access" >&5
-$as_echo_n "checking for timezone variable access... " >&6; }
-if ${gc_cv_time_timezone+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <time.h>
-int
-main ()
-{
-timezone = 3600;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gc_cv_time_timezone=yes
-else
- gc_cv_time_timezone=no
-
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gc_cv_time_timezone" >&5
-$as_echo "$gc_cv_time_timezone" >&6; }
-if test "$gc_cv_time_timezone" = yes; then
- $as_echo "#define HAVE_TIMEZONE 1" >>confdefs.h
-
-fi
-
-# Check for designated initializers
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for designated initializers" >&5
-$as_echo_n "checking for designated initializers... " >&6; }
-if ${gc_cv_designated_inits+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <stdio.h>
-int
-main ()
-{
-static const unsigned char valid_char[256] = {
- ['0'] = 1,
- ['1'] = 1 };
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gc_cv_designated_inits=yes
-else
- gc_cv_designated_inits=no
-
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gc_cv_designated_inits" >&5
-$as_echo "$gc_cv_designated_inits" >&6; }
-if test "$gc_cv_designated_inits" = yes; then
- $as_echo "#define HAVE_DESIGNATED_INITS 1" >>confdefs.h
-
-fi
-
-CFLAGS="$curr_cflags"
-
-
-# more things to save...
-cat >confcache <<\_ACEOF
-# This file is a shell script that caches the results of configure
-# tests run on this system so they can be shared between configure
-# scripts and configure runs, see configure's option --config-cache.
-# It is not useful on other systems. If it contains results you don't
-# want to keep, you may remove or edit it.
-#
-# config.status only pays attention to the cache file if you give it
-# the --recheck option to rerun configure.
-#
-# `ac_cv_env_foo' variables (set or unset) will be overridden when
-# loading this file, other *unset* `ac_cv_foo' will be assigned the
-# following values.
-
-_ACEOF
-
-# The following way of writing the cache mishandles newlines in values,
-# but we know of no workaround that is simple, portable, and efficient.
-# So, we kill variables containing newlines.
-# Ultrix sh set writes to stderr and can't be redirected directly,
-# and sets the high bit in the cache file unless we assign to the vars.
-(
- for ac_var in `(set) 2>&1 | sed -n 's/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'`; do
- eval ac_val=\$$ac_var
- case $ac_val in #(
- *${as_nl}*)
- case $ac_var in #(
- *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5
-$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;;
- esac
- case $ac_var in #(
- _ | IFS | as_nl) ;; #(
- BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #(
- *) { eval $ac_var=; unset $ac_var;} ;;
- esac ;;
- esac
- done
-
- (set) 2>&1 |
- case $as_nl`(ac_space=' '; set) 2>&1` in #(
- *${as_nl}ac_space=\ *)
- # `set' does not quote correctly, so add quotes: double-quote
- # substitution turns \\\\ into \\, and sed turns \\ into \.
- sed -n \
- "s/'/'\\\\''/g;
- s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p"
- ;; #(
- *)
- # `set' quotes correctly as required by POSIX, so do not add quotes.
- sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p"
- ;;
- esac |
- sort
-) |
- sed '
- /^ac_cv_env_/b end
- t clear
- :clear
- s/^\([^=]*\)=\(.*[{}].*\)$/test "${\1+set}" = set || &/
- t end
- s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/
- :end' >>confcache
-if diff "$cache_file" confcache >/dev/null 2>&1; then :; else
- if test -w "$cache_file"; then
- if test "x$cache_file" != "x/dev/null"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5
-$as_echo "$as_me: updating cache $cache_file" >&6;}
- if test ! -f "$cache_file" || test -h "$cache_file"; then
- cat confcache >"$cache_file"
- else
- case $cache_file in #(
- */* | ?:*)
- mv -f confcache "$cache_file"$$ &&
- mv -f "$cache_file"$$ "$cache_file" ;; #(
- *)
- mv -f confcache "$cache_file" ;;
- esac
- fi
- fi
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file" >&5
-$as_echo "$as_me: not updating unwritable cache $cache_file" >&6;}
- fi
-fi
-rm -f confcache
-
-
-if test "x$COB_CC" = x; then
- COB_CC="$CC"
-fi
-
-if test "x$COMMON_LIBS" != x; then
- if test "x$LIBCOB_LIBS" != x; then
- LIBCOB_LIBS="$LIBCOB_LIBS $COMMON_LIBS"
- else
- LIBCOB_LIBS="$COMMON_LIBS"
- fi
- case " $COMMON_LIBS " in
- *" -L$libdir "*) COB_LIBS="$COMMON_LIBS -lcob" ;;
- *) COB_LIBS="-L$libdir $COMMON_LIBS -lcob" ;;
- esac
-else
- COB_LIBS="-L$libdir -lcob"
-fi
-
-if test "x$LDFLAGS" != x; then
- if test "x$COB_LDFLAGS" != x; then
- COB_LDFLAGS="$COB_LDFLAGS $LDFLAGS"
- else
- COB_LDFLAGS="$LDFLAGS"
- fi
-fi
-
-# some math functions (fabs, isnan, isinf) are used in numeric.c
-# (all other computations are used from GMP)
-#
-{ $as_echo "$as_me:${as_lineno-$LINENO}: Checks for math library ..." >&5
-$as_echo "$as_me: Checks for math library ..." >&6;}
-# FIXME - Check for necessary math lib - in most cases they are part of the C library
-# for now: explicit pass them to configure via MATH_LIBS
-if test "x$MATH_LIBS" = x; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: none needed" >&5
-$as_echo "$as_me: none needed" >&6;}
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: using $MATH_LIBS" >&5
-$as_echo "$as_me: using $MATH_LIBS" >&6;}
- case " $LIBCOB_LIBS " in
- *" $MATH_LIBS "*) ;;
- *) LIBCOB_LIBS="$LIBCOB_LIBS $MATH_LIBS" ;;
- esac
-fi
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- # allow to override gcov location
-
-# Check whether --with-gcov was given.
-if test "${with_gcov+set}" = set; then :
- withval=$with_gcov; _AX_CODE_COVERAGE_GCOV_PROG_WITH=$with_gcov
-else
- _AX_CODE_COVERAGE_GCOV_PROG_WITH=gcov
-fi
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to build with code coverage support" >&5
-$as_echo_n "checking whether to build with code coverage support... " >&6; }
- # Check whether --enable-code-coverage was given.
-if test "${enable_code_coverage+set}" = set; then :
- enableval=$enable_code_coverage;
-else
- enable_code_coverage=no
-fi
-
-
- if test "x$enable_code_coverage" = xyes; then
- CODE_COVERAGE_ENABLED_TRUE=
- CODE_COVERAGE_ENABLED_FALSE='#'
-else
- CODE_COVERAGE_ENABLED_TRUE='#'
- CODE_COVERAGE_ENABLED_FALSE=
-fi
-
- CODE_COVERAGE_ENABLED=$enable_code_coverage
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_code_coverage" >&5
-$as_echo "$enable_code_coverage" >&6; }
-
- if test "x$enable_code_coverage" = xyes ; then :
-
-
- for ac_prog in gawk mawk nawk awk
-do
- # Extract the first word of "$ac_prog", so it can be a program name with args.
-set dummy $ac_prog; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_AWK+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$AWK"; then
- ac_cv_prog_AWK="$AWK" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_AWK="$ac_prog"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-AWK=$ac_cv_prog_AWK
-if test -n "$AWK"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AWK" >&5
-$as_echo "$AWK" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- test -n "$AWK" && break
-done
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GNU make" >&5
-$as_echo_n "checking for GNU make... " >&6; }
-if ${_cv_gnu_make_command+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- _cv_gnu_make_command="" ;
- for a in "$MAKE" make gmake gnumake ; do
- if test -z "$a" ; then continue ; fi ;
- if "$a" --version 2> /dev/null | grep GNU 2>&1 > /dev/null ; then
- _cv_gnu_make_command=$a ;
- AX_CHECK_GNU_MAKE_HEADLINE=$("$a" --version 2> /dev/null | grep "GNU Make")
- ax_check_gnu_make_version=$(echo ${AX_CHECK_GNU_MAKE_HEADLINE} | ${AWK} -F " " '{ print $(NF); }')
- break ;
- fi
- done ;
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $_cv_gnu_make_command" >&5
-$as_echo "$_cv_gnu_make_command" >&6; }
- if test "x$_cv_gnu_make_command" = x""; then :
- ifGNUmake="#"
-else
- ifGNUmake=""
-fi
- if test "x$_cv_gnu_make_command" = x""; then :
- ifnGNUmake=""
-else
- ifnGNUmake="#"
-fi
- if test "x$_cv_gnu_make_command" = x""; then :
- { ax_cv_gnu_make_command=; unset ax_cv_gnu_make_command;}
-else
- ax_cv_gnu_make_command=${_cv_gnu_make_command}
-fi
- if test "x$_cv_gnu_make_command" = x""; then :
- as_fn_error $? "not using GNU make that is needed for coverage" "$LINENO" 5
-fi
-
-
-
-
- # check for gcov
- if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}$_AX_CODE_COVERAGE_GCOV_PROG_WITH", so it can be a program name with args.
-set dummy ${ac_tool_prefix}$_AX_CODE_COVERAGE_GCOV_PROG_WITH; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_GCOV+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$GCOV"; then
- ac_cv_prog_GCOV="$GCOV" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_GCOV="${ac_tool_prefix}$_AX_CODE_COVERAGE_GCOV_PROG_WITH"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-GCOV=$ac_cv_prog_GCOV
-if test -n "$GCOV"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $GCOV" >&5
-$as_echo "$GCOV" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_GCOV"; then
- ac_ct_GCOV=$GCOV
- # Extract the first word of "$_AX_CODE_COVERAGE_GCOV_PROG_WITH", so it can be a program name with args.
-set dummy $_AX_CODE_COVERAGE_GCOV_PROG_WITH; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_ac_ct_GCOV+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_GCOV"; then
- ac_cv_prog_ac_ct_GCOV="$ac_ct_GCOV" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_ac_ct_GCOV="$_AX_CODE_COVERAGE_GCOV_PROG_WITH"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_GCOV=$ac_cv_prog_ac_ct_GCOV
-if test -n "$ac_ct_GCOV"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_GCOV" >&5
-$as_echo "$ac_ct_GCOV" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_ct_GCOV" = x; then
- GCOV=":"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- GCOV=$ac_ct_GCOV
- fi
-else
- GCOV="$ac_cv_prog_GCOV"
-fi
-
- if test "X$GCOV" = "X:"; then :
- as_fn_error $? "gcov is needed to do coverage" "$LINENO" 5
-fi
-
-
- if test "$GCC" = "no" ; then :
-
- as_fn_error $? "not compiling with gcc, which is required for gcov code coverage" "$LINENO" 5
-
-fi
-
- # Extract the first word of "lcov", so it can be a program name with args.
-set dummy lcov; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_LCOV+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$LCOV"; then
- ac_cv_prog_LCOV="$LCOV" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_LCOV="lcov"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-LCOV=$ac_cv_prog_LCOV
-if test -n "$LCOV"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $LCOV" >&5
-$as_echo "$LCOV" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- # Extract the first word of "genhtml", so it can be a program name with args.
-set dummy genhtml; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_GENHTML+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$GENHTML"; then
- ac_cv_prog_GENHTML="$GENHTML" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_GENHTML="genhtml"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-GENHTML=$ac_cv_prog_GENHTML
-if test -n "$GENHTML"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $GENHTML" >&5
-$as_echo "$GENHTML" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-
- if test x"$LCOV" = x ; then :
-
- as_fn_error $? "To enable code coverage reporting you must have lcov installed" "$LINENO" 5
-
-fi
-
- if test x"$GENHTML" = x ; then :
-
- as_fn_error $? "Could not find genhtml from the lcov package" "$LINENO" 5
-
-fi
-
- CODE_COVERAGE_CPPFLAGS="-DNDEBUG"
- CODE_COVERAGE_CFLAGS="-O0 -g -fprofile-arcs -ftest-coverage"
- CODE_COVERAGE_CXXFLAGS="-O0 -g -fprofile-arcs -ftest-coverage"
- CODE_COVERAGE_LIBS="-lgcov"
-
-
-
-
-
-
-
-fi
-
-
-
-
-
-
-
-
-
-
-
-
-if test "$COB_USES_GCC_NO_ICC" != yes -a "$enable_code_coverage" = yes; then
- as_fn_error $? "Code coverage checks are only usable with GCC!" "$LINENO" 5
-fi
-
-
-
-
-
-
-
-
-
-if test "x$ac_cv_env_PKG_CONFIG_set" != "xset"; then
- if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}pkg-config", so it can be a program name with args.
-set dummy ${ac_tool_prefix}pkg-config; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_path_PKG_CONFIG+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- case $PKG_CONFIG in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_PKG_CONFIG="$PKG_CONFIG" # Let the user override the test with a path.
- ;;
- *)
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_path_PKG_CONFIG="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-fi
-PKG_CONFIG=$ac_cv_path_PKG_CONFIG
-if test -n "$PKG_CONFIG"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $PKG_CONFIG" >&5
-$as_echo "$PKG_CONFIG" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_path_PKG_CONFIG"; then
- ac_pt_PKG_CONFIG=$PKG_CONFIG
- # Extract the first word of "pkg-config", so it can be a program name with args.
-set dummy pkg-config; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_path_ac_pt_PKG_CONFIG+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- case $ac_pt_PKG_CONFIG in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_ac_pt_PKG_CONFIG="$ac_pt_PKG_CONFIG" # Let the user override the test with a path.
- ;;
- *)
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_path_ac_pt_PKG_CONFIG="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-fi
-ac_pt_PKG_CONFIG=$ac_cv_path_ac_pt_PKG_CONFIG
-if test -n "$ac_pt_PKG_CONFIG"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_pt_PKG_CONFIG" >&5
-$as_echo "$ac_pt_PKG_CONFIG" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_pt_PKG_CONFIG" = x; then
- PKG_CONFIG=""
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- PKG_CONFIG=$ac_pt_PKG_CONFIG
- fi
-else
- PKG_CONFIG="$ac_cv_path_PKG_CONFIG"
-fi
-
-fi
-if test -n "$PKG_CONFIG"; then
- _pkg_min_version=0.9.0
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking pkg-config is at least version $_pkg_min_version" >&5
-$as_echo_n "checking pkg-config is at least version $_pkg_min_version... " >&6; }
- if $PKG_CONFIG --atleast-pkgconfig-version $_pkg_min_version; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- PKG_CONFIG=""
- fi
-fi
-
-
-# Checks for gmp.
-{ $as_echo "$as_me:${as_lineno-$LINENO}: Checks for GMP/MPIR ..." >&5
-$as_echo "$as_me: Checks for GMP/MPIR ..." >&6;}
-
-
-# Check whether --with-math was given.
-if test "${with_math+set}" = set; then :
- withval=$with_math; case "$with_math" in
- gmp | mpir | check)
- ;;
- yes)
- with_math=check
- ;;
- no)
- as_fn_error $? "cannot build GnuCOBOL without math multiple precision library)" "$LINENO" 5
- ;;
- *)
- as_fn_error $? "invalid value \"$with_math\" for --with-math,
- must be one of the following:
- gmp, mpir (use only the specified library)
- check (use whatever library is usable)" "$LINENO" 5
- ;;
- esac
-else
- with_math=check
-fi
-
-
-curr_libs=$LIBS
-curr_cppflags=$CPPFLAGS
-
-if test "$with_math" = gmp -o "$with_math" = check; then :
-
- curr_libs="$LIBS"; curr_cppflags="$CPPFLAGS"
-
-pkg_failed=no
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for gmp" >&5
-$as_echo_n "checking for gmp... " >&6; }
-
-if test -n "$GMP_CFLAGS"; then
- pkg_cv_GMP_CFLAGS="$GMP_CFLAGS"
- elif test -n "$PKG_CONFIG"; then
- if test -n "$PKG_CONFIG" && \
- { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"gmp\""; } >&5
- ($PKG_CONFIG --exists --print-errors "gmp") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then
- pkg_cv_GMP_CFLAGS=`$PKG_CONFIG --cflags "gmp" 2>/dev/null`
- test "x$?" != "x0" && pkg_failed=yes
-else
- pkg_failed=yes
-fi
- else
- pkg_failed=untried
-fi
-if test -n "$GMP_LIBS"; then
- pkg_cv_GMP_LIBS="$GMP_LIBS"
- elif test -n "$PKG_CONFIG"; then
- if test -n "$PKG_CONFIG" && \
- { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"gmp\""; } >&5
- ($PKG_CONFIG --exists --print-errors "gmp") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then
- pkg_cv_GMP_LIBS=`$PKG_CONFIG --libs "gmp" 2>/dev/null`
- test "x$?" != "x0" && pkg_failed=yes
-else
- pkg_failed=yes
-fi
- else
- pkg_failed=untried
-fi
-
-
-
-if test $pkg_failed = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-
-if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then
- _pkg_short_errors_supported=yes
-else
- _pkg_short_errors_supported=no
-fi
- if test $_pkg_short_errors_supported = yes; then
- GMP_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "gmp" 2>&1`
- else
- GMP_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "gmp" 2>&1`
- fi
- # Put the nasty error message in config.log where it belongs
- echo "$GMP_PKG_ERRORS" >&5
-
-
-
-pkg_failed=no
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for libgmp" >&5
-$as_echo_n "checking for libgmp... " >&6; }
-
-if test -n "$GMP_CFLAGS"; then
- pkg_cv_GMP_CFLAGS="$GMP_CFLAGS"
- elif test -n "$PKG_CONFIG"; then
- if test -n "$PKG_CONFIG" && \
- { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"libgmp\""; } >&5
- ($PKG_CONFIG --exists --print-errors "libgmp") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then
- pkg_cv_GMP_CFLAGS=`$PKG_CONFIG --cflags "libgmp" 2>/dev/null`
- test "x$?" != "x0" && pkg_failed=yes
-else
- pkg_failed=yes
-fi
- else
- pkg_failed=untried
-fi
-if test -n "$GMP_LIBS"; then
- pkg_cv_GMP_LIBS="$GMP_LIBS"
- elif test -n "$PKG_CONFIG"; then
- if test -n "$PKG_CONFIG" && \
- { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"libgmp\""; } >&5
- ($PKG_CONFIG --exists --print-errors "libgmp") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then
- pkg_cv_GMP_LIBS=`$PKG_CONFIG --libs "libgmp" 2>/dev/null`
- test "x$?" != "x0" && pkg_failed=yes
-else
- pkg_failed=yes
-fi
- else
- pkg_failed=untried
-fi
-
-
-
-if test $pkg_failed = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-
-if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then
- _pkg_short_errors_supported=yes
-else
- _pkg_short_errors_supported=no
-fi
- if test $_pkg_short_errors_supported = yes; then
- GMP_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "libgmp" 2>&1`
- else
- GMP_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "libgmp" 2>&1`
- fi
- # Put the nasty error message in config.log where it belongs
- echo "$GMP_PKG_ERRORS" >&5
-
- #
-
-elif test $pkg_failed = untried; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- #
-
-else
- GMP_CFLAGS=$pkg_cv_GMP_CFLAGS
- GMP_LIBS=$pkg_cv_GMP_LIBS
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-
-fi
-
-elif test $pkg_failed = untried; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-
-
-pkg_failed=no
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for libgmp" >&5
-$as_echo_n "checking for libgmp... " >&6; }
-
-if test -n "$GMP_CFLAGS"; then
- pkg_cv_GMP_CFLAGS="$GMP_CFLAGS"
- elif test -n "$PKG_CONFIG"; then
- if test -n "$PKG_CONFIG" && \
- { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"libgmp\""; } >&5
- ($PKG_CONFIG --exists --print-errors "libgmp") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then
- pkg_cv_GMP_CFLAGS=`$PKG_CONFIG --cflags "libgmp" 2>/dev/null`
- test "x$?" != "x0" && pkg_failed=yes
-else
- pkg_failed=yes
-fi
- else
- pkg_failed=untried
-fi
-if test -n "$GMP_LIBS"; then
- pkg_cv_GMP_LIBS="$GMP_LIBS"
- elif test -n "$PKG_CONFIG"; then
- if test -n "$PKG_CONFIG" && \
- { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"libgmp\""; } >&5
- ($PKG_CONFIG --exists --print-errors "libgmp") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then
- pkg_cv_GMP_LIBS=`$PKG_CONFIG --libs "libgmp" 2>/dev/null`
- test "x$?" != "x0" && pkg_failed=yes
-else
- pkg_failed=yes
-fi
- else
- pkg_failed=untried
-fi
-
-
-
-if test $pkg_failed = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-
-if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then
- _pkg_short_errors_supported=yes
-else
- _pkg_short_errors_supported=no
-fi
- if test $_pkg_short_errors_supported = yes; then
- GMP_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "libgmp" 2>&1`
- else
- GMP_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "libgmp" 2>&1`
- fi
- # Put the nasty error message in config.log where it belongs
- echo "$GMP_PKG_ERRORS" >&5
-
- #
-
-elif test $pkg_failed = untried; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- #
-
-else
- GMP_CFLAGS=$pkg_cv_GMP_CFLAGS
- GMP_LIBS=$pkg_cv_GMP_LIBS
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-
-fi
-
-else
- GMP_CFLAGS=$pkg_cv_GMP_CFLAGS
- GMP_LIBS=$pkg_cv_GMP_LIBS
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-
-fi
- # special case: as included by modules we don't want a single warning (breaks testsuite)
- CPPFLAGS="$CPPFLAGS $GMP_CFLAGS $ERRWARN"
- if test -z "${GMP_LIBS+x}"; then
- GMP_LIBS="-lgmp"
- fi
- LIBS="$LIBS $LIBCOB_LIBS $GMP_LIBS"
- for ac_header in gmp.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "gmp.h" "ac_cv_header_gmp_h" "$ac_includes_default"
-if test "x$ac_cv_header_gmp_h" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_GMP_H 1
-_ACEOF
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether linking against libgmp with \"$GMP_LIBS\" works" >&5
-$as_echo_n "checking whether linking against libgmp with \"$GMP_LIBS\" works... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <gmp.h>
-int
-main ()
-{
-mpz_t integ; mpz_init (integ);
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
- if test -n "$GMP_CFLAGS"; then
- curr_cppflags="$curr_cppflags $GMP_CFLAGS" # for the include in cobc generated modules
- fi
- LIBCOB_LIBS="$LIBCOB_LIBS $GMP_LIBS"
- with_math=gmp
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- if test "$with_math" = gmp; then
- as_fn_error $? "GMP is required for --with-math=gmp, you may adjust GMP_LIBS" "$LINENO" 5
- fi
- LIBS="$curr_libs"; CPPFLAGS="$curr_cppflags"
-
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-
-else
- if test "$with_math" = gmp; then
- as_fn_error $? "gmp.h is required for --with-math=gmp, you may adjust GMP_CFLAGS" "$LINENO" 5
- fi
- LIBS="$curr_libs"; CPPFLAGS="$curr_cppflags"
-
-fi
-
-done
-
-
-fi
-
-if test "$with_math" = mpir -o "$with_math" = check; then :
-
- # note: currently MPIR does not ship a .pc file, but is expected to follow GMP
- curr_libs="$LIBS"; curr_cppflags="$CPPFLAGS"
-
-pkg_failed=no
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for mpir" >&5
-$as_echo_n "checking for mpir... " >&6; }
-
-if test -n "$MPIR_CFLAGS"; then
- pkg_cv_MPIR_CFLAGS="$MPIR_CFLAGS"
- elif test -n "$PKG_CONFIG"; then
- if test -n "$PKG_CONFIG" && \
- { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"mpir\""; } >&5
- ($PKG_CONFIG --exists --print-errors "mpir") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then
- pkg_cv_MPIR_CFLAGS=`$PKG_CONFIG --cflags "mpir" 2>/dev/null`
- test "x$?" != "x0" && pkg_failed=yes
-else
- pkg_failed=yes
-fi
- else
- pkg_failed=untried
-fi
-if test -n "$MPIR_LIBS"; then
- pkg_cv_MPIR_LIBS="$MPIR_LIBS"
- elif test -n "$PKG_CONFIG"; then
- if test -n "$PKG_CONFIG" && \
- { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"mpir\""; } >&5
- ($PKG_CONFIG --exists --print-errors "mpir") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then
- pkg_cv_MPIR_LIBS=`$PKG_CONFIG --libs "mpir" 2>/dev/null`
- test "x$?" != "x0" && pkg_failed=yes
-else
- pkg_failed=yes
-fi
- else
- pkg_failed=untried
-fi
-
-
-
-if test $pkg_failed = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-
-if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then
- _pkg_short_errors_supported=yes
-else
- _pkg_short_errors_supported=no
-fi
- if test $_pkg_short_errors_supported = yes; then
- MPIR_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "mpir" 2>&1`
- else
- MPIR_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "mpir" 2>&1`
- fi
- # Put the nasty error message in config.log where it belongs
- echo "$MPIR_PKG_ERRORS" >&5
-
- #
-
-elif test $pkg_failed = untried; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- #
-
-else
- MPIR_CFLAGS=$pkg_cv_MPIR_CFLAGS
- MPIR_LIBS=$pkg_cv_MPIR_LIBS
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-
-fi
- # special case: as included by modules we don't want a single warning (breaks testsuite)
- CPPFLAGS="$CPPFLAGS $MPIR_CFLAGS $ERRWARN"
- if test -z "${MPIR_LIBS+x}"; then
- MPIR_LIBS="-lmpir"
- fi
- LIBS="$LIBS $LIBCOB_LIBS $MPIR_LIBS"
- for ac_header in mpir.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "mpir.h" "ac_cv_header_mpir_h" "$ac_includes_default"
-if test "x$ac_cv_header_mpir_h" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_MPIR_H 1
-_ACEOF
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether linking against libmpir with \"$MPIR_LIBS\" works" >&5
-$as_echo_n "checking whether linking against libmpir with \"$MPIR_LIBS\" works... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <mpir.h>
-int
-main ()
-{
-mpz_t integ; mpz_init (integ);
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
- if test -n "$MPIR_CFLAGS"; then
- curr_cppflags="$curr_cppflags $MPIR_CFLAGS" # for the include in cobc generated modules
- fi
- LIBCOB_LIBS="$LIBCOB_LIBS $MPIR_LIBS"
- with_math=mpir
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- if test "$with_math" = mpir; then
- as_fn_error $? "MPIR is required for --with-math=mpir, you may adjust MPIR_LIBS" "$LINENO" 5
- fi
- LIBS="$curr_libs"; CPPFLAGS="$curr_cppflags"
-
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-
-else
- if test "$with_math" = mpir; then
- as_fn_error $? "mpir.h is required for --with-math=mpir, you may adjust MPIR_CFLAGS" "$LINENO" 5
- fi
- LIBS="$curr_libs"; CPPFLAGS="$curr_cppflags"
-
-fi
-
-done
-
-
-fi
-
-if test "$with_math" = check; then
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "neither GMP nor MPIR library are found, but one of those is mandatory
-See \`config.log' for more details" "$LINENO" 5; }
-fi
-
-CPPFLAGS="$CPPFLAGS $ERRWARN"
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking matching GMP version" >&5
-$as_echo_n "checking matching GMP version... " >&6; }
-# Check just major/minor levels between header and library
-# get GMP version from lib
-if test "$cross_compiling" = yes; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: matching GMP version assumed" >&5
-$as_echo "$as_me: WARNING: matching GMP version assumed" >&2;}
- COB_GMP_LIB="cross"
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- #include <stdio.h>
- #ifdef _WIN32
- #ifndef __GMP_LIBGMP_DLL
- #define __GMP_LIBGMP_DLL 1
- #endif
- #endif
- #if defined HAVE_GMP_H
- #include <gmp.h>
- #elif defined HAVE_MPIR_H
- #include <mpir.h>
- #endif
- int main (int argc, char **argv)
- {
- (void)argv;
- if (argc > 1)
- printf ("%s", gmp_version);
- return 0;
- }
-
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- COB_GMP_LIB=$(./conftest$ac_exeext x)
-else
- as_fn_error $? "unable to extract GMP version information from gmp_version" "$LINENO" 5
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
-if test "x$COB_GMP_LIB" = x; then
- as_fn_error $? "unable to extract GMP version information (library)" "$LINENO" 5
-fi
-
-# get GMP version from header
-if test "$cross_compiling" = yes; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cannot run test program while cross-compiling" >&5
-$as_echo "$as_me: WARNING: cannot run test program while cross-compiling" >&2;}
- COB_GMP_HEADER="cross-compilation - assumed"
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- #include <stdio.h>
- #if defined HAVE_GMP_H
- #include <gmp.h>
- #elif defined HAVE_MPIR_H
- #include <mpir.h>
- #endif
- int main (int argc, char **argv)
- {
- (void)argv;
- if (argc > 1)
- printf ("%d.%d", __GNU_MP_VERSION, __GNU_MP_VERSION_MINOR);
- return 0;
- }
-
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- COB_GMP_HEADER=$(./conftest$ac_exeext x)
-else
- as_fn_error $? "unable to extract GMP version information from header" "$LINENO" 5
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
-if test "x$COB_GMP_HEADER" = x; then
- as_fn_error $? "unable to extract GMP version information (header)" "$LINENO" 5
-fi
-
-COB_GMP_LIB_MAJOR=$(echo "$COB_GMP_LIB" | cut -d. -f1)
-COB_GMP_LIB_MINOR=$(echo "$COB_GMP_LIB" | cut -d. -f2)
-
-if test "$COB_GMP_HEADER" = "$COB_GMP_LIB_MAJOR.$COB_GMP_LIB_MINOR" -o "$COB_GMP_LIB" = "cross"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes ($COB_GMP_HEADER)" >&5
-$as_echo "yes ($COB_GMP_HEADER)" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no (header: $COB_GMP_HEADER / library: $COB_GMP_LIB)" >&5
-$as_echo "no (header: $COB_GMP_HEADER / library: $COB_GMP_LIB)" >&6; }
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "unable to use GMP
-See \`config.log' for more details" "$LINENO" 5; }
-fi
-
-as_ac_Lib=`$as_echo "ac_cv_lib_$with_math''___gmp_get_memory_functions" | $as_tr_sh`
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for __gmp_get_memory_functions in -l$with_math" >&5
-$as_echo_n "checking for __gmp_get_memory_functions in -l$with_math... " >&6; }
-if eval \${$as_ac_Lib+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-l$with_math $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char __gmp_get_memory_functions ();
-int
-main ()
-{
-return __gmp_get_memory_functions ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- eval "$as_ac_Lib=yes"
-else
- eval "$as_ac_Lib=no"
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-eval ac_res=\$$as_ac_Lib
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-$as_echo "$ac_res" >&6; }
-if eval test \"x\$"$as_ac_Lib"\" = x"yes"; then :
- $as_echo "#define HAVE_MP_GET_MEMORY_FUNCTIONS 1" >>confdefs.h
-
-fi
-
-
-LIBS="$curr_libs"
-CPPFLAGS="$curr_cppflags"
-
-
-
-
-# Check whether --with-xml2 was given.
-if test "${with_xml2+set}" = set; then :
- withval=$with_xml2;
-else
- with_xml2=check
-fi
-
-
-if test "$with_xml2" = yes -o "$with_xml2" = check; then :
-
-
-pkg_failed=no
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for libxml-2.0" >&5
-$as_echo_n "checking for libxml-2.0... " >&6; }
-
-if test -n "$XML2_CFLAGS"; then
- pkg_cv_XML2_CFLAGS="$XML2_CFLAGS"
- elif test -n "$PKG_CONFIG"; then
- if test -n "$PKG_CONFIG" && \
- { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"libxml-2.0\""; } >&5
- ($PKG_CONFIG --exists --print-errors "libxml-2.0") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then
- pkg_cv_XML2_CFLAGS=`$PKG_CONFIG --cflags "libxml-2.0" 2>/dev/null`
- test "x$?" != "x0" && pkg_failed=yes
-else
- pkg_failed=yes
-fi
- else
- pkg_failed=untried
-fi
-if test -n "$XML2_LIBS"; then
- pkg_cv_XML2_LIBS="$XML2_LIBS"
- elif test -n "$PKG_CONFIG"; then
- if test -n "$PKG_CONFIG" && \
- { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"libxml-2.0\""; } >&5
- ($PKG_CONFIG --exists --print-errors "libxml-2.0") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then
- pkg_cv_XML2_LIBS=`$PKG_CONFIG --libs "libxml-2.0" 2>/dev/null`
- test "x$?" != "x0" && pkg_failed=yes
-else
- pkg_failed=yes
-fi
- else
- pkg_failed=untried
-fi
-
-
-
-if test $pkg_failed = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-
-if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then
- _pkg_short_errors_supported=yes
-else
- _pkg_short_errors_supported=no
-fi
- if test $_pkg_short_errors_supported = yes; then
- XML2_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "libxml-2.0" 2>&1`
- else
- XML2_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "libxml-2.0" 2>&1`
- fi
- # Put the nasty error message in config.log where it belongs
- echo "$XML2_PKG_ERRORS" >&5
-
-
- if test -z "${XML2_CFLAGS+x}" -o -z "${XML2_LIBS+x}"; then
- # Extract the first word of "xml2-config", so it can be a program name with args.
-set dummy xml2-config; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_path_XML2_CONFIG+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- case $XML2_CONFIG in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_XML2_CONFIG="$XML2_CONFIG" # Let the user override the test with a path.
- ;;
- *)
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_path_XML2_CONFIG="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-fi
-XML2_CONFIG=$ac_cv_path_XML2_CONFIG
-if test -n "$XML2_CONFIG"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $XML2_CONFIG" >&5
-$as_echo "$XML2_CONFIG" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- if test -n "$XML2_CONFIG"; then
- if test -z "$XML2_CFLAGS"; then
- XML2_CFLAGS="$($XML2_CONFIG --cflags)"
- fi
- if test -z "$XML2_LIBS"; then
- XML2_LIBS="$($XML2_CONFIG --libs)"
- fi
- fi
- fi
-elif test $pkg_failed = untried; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-
- if test -z "${XML2_CFLAGS+x}" -o -z "${XML2_LIBS+x}"; then
- # Extract the first word of "xml2-config", so it can be a program name with args.
-set dummy xml2-config; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_path_XML2_CONFIG+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- case $XML2_CONFIG in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_XML2_CONFIG="$XML2_CONFIG" # Let the user override the test with a path.
- ;;
- *)
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_path_XML2_CONFIG="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-fi
-XML2_CONFIG=$ac_cv_path_XML2_CONFIG
-if test -n "$XML2_CONFIG"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $XML2_CONFIG" >&5
-$as_echo "$XML2_CONFIG" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- if test -n "$XML2_CONFIG"; then
- if test -z "$XML2_CFLAGS"; then
- XML2_CFLAGS="$($XML2_CONFIG --cflags)"
- fi
- if test -z "$XML2_LIBS"; then
- XML2_LIBS="$($XML2_CONFIG --libs)"
- fi
- fi
- fi
-else
- XML2_CFLAGS=$pkg_cv_XML2_CFLAGS
- XML2_LIBS=$pkg_cv_XML2_LIBS
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-
-fi
- curr_libs="$LIBS"; curr_cppflags="$CPPFLAGS"
- CPPFLAGS="$CPPFLAGS $XML2_CFLAGS"
- if test -z "${XML2_LIBS+x}"; then
- XML2_LIBS="-lxml2"
- fi
- LIBS="$LIBS $LIBCOB_LIBS $XML2_LIBS"
- # note: PKG_CONFIG and xml2-config set -I /path/to/libxml2 which contains a "libxml" folder where
- # all the files we look for are included
- for header in xmlwriter xmlversion uri parser tree; do
- as_ac_Header=`$as_echo "ac_cv_header_libxml/$header.h" | $as_tr_sh`
-ac_fn_c_check_header_mongrel "$LINENO" "libxml/$header.h" "$as_ac_Header" "$ac_includes_default"
-if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
-
-else
- if test "$with_xml2" = yes; then
- as_fn_error $? "headers for libxml2 are required for --with-xml2, you may adjust XML2_CFLAGS" "$LINENO" 5
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: headers for libxml2 are missing, you may adjust XML2_CFLAGS" >&5
-$as_echo "$as_me: WARNING: headers for libxml2 are missing, you may adjust XML2_CFLAGS" >&2;}
- with_xml2=not_found
- break
- fi
-
-fi
-
-
- done
- if test "$with_xml2" != "not_found"; then
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for LIBXML_WRITER_ENABLED defined in libxml/xmlwriter.h" >&5
-$as_echo_n "checking for LIBXML_WRITER_ENABLED defined in libxml/xmlwriter.h... " >&6; }
-if ${ac_cv_defined_LIBXML_WRITER_ENABLED_libxml_xmlwriter_h+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <libxml/xmlwriter.h>
-int
-main ()
-{
-
- #ifdef LIBXML_WRITER_ENABLED
- int ok;
- (void)ok;
- #else
- choke me
- #endif
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_defined_LIBXML_WRITER_ENABLED_libxml_xmlwriter_h=yes
-else
- ac_cv_defined_LIBXML_WRITER_ENABLED_libxml_xmlwriter_h=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_defined_LIBXML_WRITER_ENABLED_libxml_xmlwriter_h" >&5
-$as_echo "$ac_cv_defined_LIBXML_WRITER_ENABLED_libxml_xmlwriter_h" >&6; }
-if test $ac_cv_defined_LIBXML_WRITER_ENABLED_libxml_xmlwriter_h != "no"; then :
-
-else
- if test "$with_xml2" = yes; then
- as_fn_error $? "libxml2 is required to be configured with xmlWriter" "$LINENO" 5
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: libxml2 is required to be configured with xmlWriter" >&5
-$as_echo "$as_me: WARNING: libxml2 is required to be configured with xmlWriter" >&2;}
- with_xml2=not_found
- fi
-
-fi
- fi
- if test "$with_xml2" != "not_found"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether linking against libxml2 with \"$XML2_LIBS\" works" >&5
-$as_echo_n "checking whether linking against libxml2 with \"$XML2_LIBS\" works... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <libxml/xmlwriter.h>
-int
-main ()
-{
-xmlNewTextWriterFilename (NULL, 0);
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- $as_echo "#define WITH_XML2 1" >>confdefs.h
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
- with_xml2=yes
- if test -n "$XML2_CFLAGS"; then
- LIBCOB_CPPFLAGS="$LIBCOB_CPPFLAGS $XML2_CFLAGS"
- fi
- LIBCOB_LIBS="$LIBCOB_LIBS $XML2_LIBS"
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- if test "$with_xml2" = yes; then
- as_fn_error $? "xml library is required for --with-xml2, you may adjust XML2_LIBS" "$LINENO" 5
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: xml library not found, you may adjust XML2_LIBS" >&5
-$as_echo "$as_me: WARNING: xml library not found, you may adjust XML2_LIBS" >&2;}
- with_xml2=not_found
- fi
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Headers for libxml2 missing, you may adjust XML2_CFLAGS" >&5
-$as_echo "$as_me: WARNING: Headers for libxml2 missing, you may adjust XML2_CFLAGS" >&2;}
- with_xml2=not_found
- fi
- LIBS="$curr_libs"; CPPFLAGS="$curr_cppflags"
-
-fi
-
-
-
-# Checks for cjson/json-c.
-{ $as_echo "$as_me:${as_lineno-$LINENO}: Checks for JSON handler" >&5
-$as_echo "$as_me: Checks for JSON handler" >&6;}
-
-
-# Check whether --with-json was given.
-if test "${with_json+set}" = set; then :
- withval=$with_json; case "$with_json" in
- cjson | local | "json-c" | check | no )
- USE_JSON="$with_json"
- ;;
- yes)
- USE_JSON=check
- ;;
- *)
- as_fn_error $? "invalid value \"$with_json\" for --with-json,
- must be one of the following:
- cjson, json-c (use only the specified library)
- local (use cjson source included in libcob)
- check (use whatever json library is usable, disable if no one usable)
- no (disable json usage)" "$LINENO" 5
- ;;
- esac
-else
- USE_JSON=check
-fi
-
-
-curr_libs="$LIBS"
-if test "$USE_JSON" = "cjson" -o "$USE_JSON" = "local" -o "$USE_JSON" = check; then :
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: Checks for local cJSON ..." >&5
-$as_echo "$as_me: Checks for local cJSON ..." >&6;}
- curr_libs="$LIBS"; curr_cppflags="$CPPFLAGS"
- with_cjson_local=no
- if test -e ./libcob/cJSON.c; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether linking of ./libcob/cJSON.c works" >&5
-$as_echo_n "checking whether linking of ./libcob/cJSON.c works... " >&6; }
- CPPFLAGS="$curr_cppflags -I./libcob"
- LIBS="$LIBS $LIBCOB_LIBS "
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- #include "cJSON.c"
-int
-main ()
-{
-#if (CJSON_VERSION_MAJOR * 100 + CJSON_VERSION_MINOR) < 103
- #error Needs at least cJSON 1.3.0
- #endif
- cJSON_CreateNull ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
- $as_echo "#define WITH_CJSON 1" >>confdefs.h
-
- with_cjson_local="yes (in ./libcob)"
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- LIBS="$curr_libs"
-
-fi
- if test "$with_cjson_local" = no; then
- if test -e "$srcdir/libcob/cJSON.c"; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether linking of \"$srcdir/libcob/cJSON.c\" works" >&5
-$as_echo_n "checking whether linking of \"$srcdir/libcob/cJSON.c\" works... " >&6; }
- CPPFLAGS="$curr_cppflags -I\"$srcdir/libcob\""
- LIBS="$LIBS $LIBCOB_LIBS"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- #include "cJSON.c"
-int
-main ()
-{
-#if (CJSON_VERSION_MAJOR * 100 + CJSON_VERSION_MINOR) < 103
- #error Needs at least cJSON 1.3.0
- #endif
- cJSON_CreateNull ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
- $as_echo "#define WITH_CJSON 1" >>confdefs.h
-
- with_cjson_local="yes (in \"$srcdir/libcob\")"
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- LIBS="$curr_libs"
-
-fi
- fi
- CPPFLAGS="$curr_cppflags"
- if test "$with_cjson_local" = no; then :
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: using local cJSON: no" >&5
-$as_echo "$as_me: using local cJSON: no" >&6;}
- if test "$with_json" = "local"; then
- as_fn_error $? "cJSON source is required in directory \"libcob\" for --with-json=local" "$LINENO" 5
- fi
-
-pkg_failed=no
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for libcjson" >&5
-$as_echo_n "checking for libcjson... " >&6; }
-
-if test -n "$CJSON_CFLAGS"; then
- pkg_cv_CJSON_CFLAGS="$CJSON_CFLAGS"
- elif test -n "$PKG_CONFIG"; then
- if test -n "$PKG_CONFIG" && \
- { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"libcjson\""; } >&5
- ($PKG_CONFIG --exists --print-errors "libcjson") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then
- pkg_cv_CJSON_CFLAGS=`$PKG_CONFIG --cflags "libcjson" 2>/dev/null`
- test "x$?" != "x0" && pkg_failed=yes
-else
- pkg_failed=yes
-fi
- else
- pkg_failed=untried
-fi
-if test -n "$CJSON_LIBS"; then
- pkg_cv_CJSON_LIBS="$CJSON_LIBS"
- elif test -n "$PKG_CONFIG"; then
- if test -n "$PKG_CONFIG" && \
- { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"libcjson\""; } >&5
- ($PKG_CONFIG --exists --print-errors "libcjson") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then
- pkg_cv_CJSON_LIBS=`$PKG_CONFIG --libs "libcjson" 2>/dev/null`
- test "x$?" != "x0" && pkg_failed=yes
-else
- pkg_failed=yes
-fi
- else
- pkg_failed=untried
-fi
-
-
-
-if test $pkg_failed = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-
-if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then
- _pkg_short_errors_supported=yes
-else
- _pkg_short_errors_supported=no
-fi
- if test $_pkg_short_errors_supported = yes; then
- CJSON_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "libcjson" 2>&1`
- else
- CJSON_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "libcjson" 2>&1`
- fi
- # Put the nasty error message in config.log where it belongs
- echo "$CJSON_PKG_ERRORS" >&5
-
- #
-
-elif test $pkg_failed = untried; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- #
-
-else
- CJSON_CFLAGS=$pkg_cv_CJSON_CFLAGS
- CJSON_LIBS=$pkg_cv_CJSON_LIBS
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-
-fi
- CPPFLAGS="$CPPFLAGS $CJSON_CFLAGS"
- if test -z "${CJSON_LIBS+x}"; then
- CJSON_LIBS="-lcjson"
- fi
- LIBS="$LIBS $LIBCOB_LIBS $CJSON_LIBS"
- for ac_header in cJSON.h cjson/cJSON.h
-do :
- as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh`
-ac_fn_c_check_header_mongrel "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default"
-if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
- cat >>confdefs.h <<_ACEOF
-#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
-_ACEOF
- break
-else
- if test "$with_json" = "cjson"; then
- as_fn_error $? "header for libcjson is required for --with-json=cjson, you may adjust CJSON_CFLAGS" "$LINENO" 5
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: header for libcjson missing, you may adjust CJSON_CFLAGS or put cJSON sources in \"libcob\"" >&5
-$as_echo "$as_me: WARNING: header for libcjson missing, you may adjust CJSON_CFLAGS or put cJSON sources in \"libcob\"" >&2;}
- fi
-
-fi
-
-done
-
- if test "x$ac_cv_header_cJSON_h" = xyes -o "x$ac_cv_header_cjson_cJSON_h" = xyes; then :
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether linking against libcjson with \"$CJSON_LIBS\" works" >&5
-$as_echo_n "checking whether linking against libcjson with \"$CJSON_LIBS\" works... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- #if defined HAVE_CJSON_CJSON_H
- #include <cjson/cJSON.h>
- #elif defined HAVE_CJSON_H
- #include <cJSON.h>
- #endif
- #if (CJSON_VERSION_MAJOR * 100 + CJSON_VERSION_MINOR) < 103
- #error Needs at least cJSON 1.3.0
- #endif
-int
-main ()
-{
-cJSON_CreateNull ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
- $as_echo "#define WITH_CJSON 1" >>confdefs.h
-
- USE_JSON=cjson
- if test -n "$CJSON_CFLAGS"; then
- LIBCOB_CPPFLAGS="$LIBCOB_CPPFLAGS $CJSON_CFLAGS"
- fi
- LIBCOB_LIBS="$LIBCOB_LIBS $CJSON_LIBS"
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- if test "$with_json" = "cjson"; then
- as_fn_error $? "cJSON library is required for --with-json=cjson, you may adjust CJSON_LIBS" "$LINENO" 5
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cJSON library not found, you may adjust CJSON_LIBS" >&5
-$as_echo "$as_me: WARNING: cJSON library not found, you may adjust CJSON_LIBS" >&2;}
- fi
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-
-fi
-
-else
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: using local cJSON: $with_cjson_local" >&5
-$as_echo "$as_me: using local cJSON: $with_cjson_local" >&6;}
- USE_JSON="local"
- $as_echo "#define HAVE_CJSON_H 1" >>confdefs.h
-
-
-fi
- LIBS="$curr_libs"; CPPFLAGS="$curr_cppflags"
-
-fi
-
-if test "$USE_JSON" = "json-c" -o "$USE_JSON" = check; then :
-
- CPPFLAGS="$curr_cppflags"
-
-pkg_failed=no
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for json-c" >&5
-$as_echo_n "checking for json-c... " >&6; }
-
-if test -n "$JSON_C_CFLAGS"; then
- pkg_cv_JSON_C_CFLAGS="$JSON_C_CFLAGS"
- elif test -n "$PKG_CONFIG"; then
- if test -n "$PKG_CONFIG" && \
- { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"json-c\""; } >&5
- ($PKG_CONFIG --exists --print-errors "json-c") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then
- pkg_cv_JSON_C_CFLAGS=`$PKG_CONFIG --cflags "json-c" 2>/dev/null`
- test "x$?" != "x0" && pkg_failed=yes
-else
- pkg_failed=yes
-fi
- else
- pkg_failed=untried
-fi
-if test -n "$JSON_C_LIBS"; then
- pkg_cv_JSON_C_LIBS="$JSON_C_LIBS"
- elif test -n "$PKG_CONFIG"; then
- if test -n "$PKG_CONFIG" && \
- { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"json-c\""; } >&5
- ($PKG_CONFIG --exists --print-errors "json-c") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then
- pkg_cv_JSON_C_LIBS=`$PKG_CONFIG --libs "json-c" 2>/dev/null`
- test "x$?" != "x0" && pkg_failed=yes
-else
- pkg_failed=yes
-fi
- else
- pkg_failed=untried
-fi
-
-
-
-if test $pkg_failed = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-
-if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then
- _pkg_short_errors_supported=yes
-else
- _pkg_short_errors_supported=no
-fi
- if test $_pkg_short_errors_supported = yes; then
- JSON_C_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "json-c" 2>&1`
- else
- JSON_C_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "json-c" 2>&1`
- fi
- # Put the nasty error message in config.log where it belongs
- echo "$JSON_C_PKG_ERRORS" >&5
-
- #
-
-elif test $pkg_failed = untried; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- #
-
-else
- JSON_C_CFLAGS=$pkg_cv_JSON_C_CFLAGS
- JSON_C_LIBS=$pkg_cv_JSON_C_LIBS
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-
-fi
- CPPFLAGS="$CPPFLAGS $JSON_C_CFLAGS"
- if test -z "${JSON_C_LIBS+x}"; then
- JSON_C_LIBS="-ljson-c"
- fi
- LIBS="$LIBS $LIBCOB_LIBS $JSON_C_LIBS"
- for ac_header in json.h json-c/json.h
-do :
- as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh`
-ac_fn_c_check_header_mongrel "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default"
-if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
- cat >>confdefs.h <<_ACEOF
-#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
-_ACEOF
- break
-else
- if test "$with_json" = "json-c"; then
- as_fn_error $? "header for libjson-c is required for --with-json=json-c, you may adjust JSON_C_CFLAGS" "$LINENO" 5
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: header for libjson-c missing, you may adjust JSON_C_CFLAGS" >&5
-$as_echo "$as_me: WARNING: header for libjson-c missing, you may adjust JSON_C_CFLAGS" >&2;}
- fi
-
-fi
-
-done
-
- if test "x$ac_cv_header_json_h" = xyes -o "x$ac_cv_header_json_c_json_h" = xyes; then :
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether linking against libjson-c with \"$JSON_C_LIBS\" works" >&5
-$as_echo_n "checking whether linking against libjson-c with \"$JSON_C_LIBS\" works... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- #if defined (HAVE_JSON_C_JSON_H)
- #include <json-c/json.h>
- #elif defined (HAVE_JSON_H)
- #include <json.h>
- #endif
- #if (JSON_C_MAJOR_VERSION * 100 + JSON_C_MINOR_VERSION) < 12
- #error Needs at least json-c 0.12
- #endif
-int
-main ()
-{
-json_c_version ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
- $as_echo "#define WITH_JSON_C 1" >>confdefs.h
-
- USE_JSON=json-c
- if test -n "$JSON_C_CFLAGS"; then
- LIBCOB_CPPFLAGS="$LIBCOB_CPPFLAGS $JSON_C_CFLAGS"
- fi
- LIBCOB_LIBS="$LIBCOB_LIBS $JSON_C_LIBS"
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- if test "$USE_JSON" = "json-c"; then
- as_fn_error $? "JSON-C library is required for --with-json-c, you may adjust JSON_C_LIBS" "$LINENO" 5
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: JSON-C not found, you may adjust JSON_C_LIBS" >&5
-$as_echo "$as_me: WARNING: JSON-C not found, you may adjust JSON_C_LIBS" >&2;}
- fi
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-
-fi
- LIBS="$curr_libs"; CPPFLAGS="$curr_cppflags"
-
-fi
-
-case "$USE_JSON" in
- check)
- if test "$with_json" = yes; then
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "no applicable handler for JSON found
-See \`config.log' for more details" "$LINENO" 5; }
- fi
- USE_JSON="not_found"
- $as_echo "#define WITH_JSON \"not found\"" >>confdefs.h
-
- ;;
- no)
- $as_echo "#define WITH_JSON \"disabled\"" >>confdefs.h
-
- ;;
- cjson | local)
- $as_echo "#define WITH_JSON \"cjson\"" >>confdefs.h
-
- ;;
- "json-c")
- $as_echo "#define WITH_JSON \"json-c\"" >>confdefs.h
-
- ;;
-esac
-
-
-
-# Check whether --with-dl was given.
-if test "${with_dl+set}" = set; then :
- withval=$with_dl; case $with_dl in
- yes)
- ;;
- no)
- ;;
- *) as_fn_error $? "--with/without-dl can not have an argument" "$LINENO" 5
- ;;
- esac
-else
- with_dl=yes
-fi
-
-
-
-# Check whether --with-varseq was given.
-if test "${with_varseq+set}" = set; then :
- withval=$with_varseq; case $with_varseq in
- yes) as_fn_error $? "--with-varseq needs an argument" "$LINENO" 5
- ;;
- no) as_fn_error $? "--without-varseq not supported" "$LINENO" 5
- ;;
- [0-3])
- ;;
- *) as_fn_error $? "invalid --with-varseq argument" "$LINENO" 5
- ;;
- esac
-else
- with_varseq=0
-fi
-
-
-cat >>confdefs.h <<_ACEOF
-#define WITH_VARSEQ $with_varseq
-_ACEOF
-
-
-
-curr_libs="$LIBS"
-LIBS="$curr_libs $LIBCOB_LIBS"
-
-# Solaris has nanosleep in other libraries
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <time.h>
-int
-main ()
-{
-nanosleep (NULL, NULL);
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- $as_echo "#define HAVE_NANO_SLEEP 1" >>confdefs.h
-
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for nanosleep in -lrt" >&5
-$as_echo_n "checking for nanosleep in -lrt... " >&6; }
-if ${ac_cv_lib_rt_nanosleep+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lrt $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char nanosleep ();
-int
-main ()
-{
-return nanosleep ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_rt_nanosleep=yes
-else
- ac_cv_lib_rt_nanosleep=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_rt_nanosleep" >&5
-$as_echo "$ac_cv_lib_rt_nanosleep" >&6; }
-if test "x$ac_cv_lib_rt_nanosleep" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_LIBRT 1
-_ACEOF
-
- LIBS="-lrt $LIBS"
-
-fi
-
- if test "x$ac_cv_lib_rt_nanosleep" = xyes; then
- $as_echo "#define HAVE_NANO_SLEEP 1" >>confdefs.h
-
- LIBCOB_LIBS="$LIBCOB_LIBS -lrt"
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for nanosleep in -lposix4" >&5
-$as_echo_n "checking for nanosleep in -lposix4... " >&6; }
-if ${ac_cv_lib_posix4_nanosleep+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lposix4 $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char nanosleep ();
-int
-main ()
-{
-return nanosleep ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_posix4_nanosleep=yes
-else
- ac_cv_lib_posix4_nanosleep=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_posix4_nanosleep" >&5
-$as_echo "$ac_cv_lib_posix4_nanosleep" >&6; }
-if test "x$ac_cv_lib_posix4_nanosleep" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_LIBPOSIX4 1
-_ACEOF
-
- LIBS="-lposix4 $LIBS"
-
-fi
-
- if test "x$ac_cv_lib_posix4_nanosleep" = xyes; then
- $as_echo "#define HAVE_NANO_SLEEP 1" >>confdefs.h
-
- LIBCOB_LIBS="$LIBCOB_LIBS -lposix4"
- fi
- fi
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for clock_gettime and CLOCK_REALTIME" >&5
-$as_echo_n "checking for clock_gettime and CLOCK_REALTIME... " >&6; }
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <time.h>
-int
-main ()
-{
-clock_gettime (CLOCK_REALTIME, NULL);
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- $as_echo "#define HAVE_CLOCK_GETTIME 1" >>confdefs.h
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for isfinite" >&5
-$as_echo_n "checking for isfinite... " >&6; }
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <math.h>
-int
-main ()
-{
-isfinite ( 1.0 );
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- $as_echo "#define HAVE_ISFINITE 1" >>confdefs.h
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- # Check prototype for finite in math.h (alternative ieeefp.h)
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking prototype for finite in <math.h>" >&5
-$as_echo_n "checking prototype for finite in <math.h>... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <math.h>
-
-_ACEOF
-if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
- $EGREP "finite" >/dev/null 2>&1; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking prototype for finite in <ieeefp.h>" >&5
-$as_echo_n "checking prototype for finite in <ieeefp.h>... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <ieeefp.h>
-
-_ACEOF
-if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
- $EGREP "finite" >/dev/null 2>&1; then :
- $as_echo "#define HAVE_FINITE_IEEEFP_H 1" >>confdefs.h
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- as_fn_error $? "
- Declaration for finite function neither in math.h nor in ieeefp.h" "$LINENO" 5
-fi
-rm -f conftest*
-
-
-fi
-rm -f conftest*
-
-
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-
-
-for ac_func in fdatasync sigaction fmemopen
-do :
- as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh`
-ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var"
-if eval test \"x\$"$as_ac_var"\" = x"yes"; then :
- cat >>confdefs.h <<_ACEOF
-#define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1
-_ACEOF
-
-fi
-done
-
-ac_fn_c_check_decl "$LINENO" "fdatasync" "ac_cv_have_decl_fdatasync" "$ac_includes_default"
-if test "x$ac_cv_have_decl_fdatasync" = xyes; then :
- ac_have_decl=1
-else
- ac_have_decl=0
-fi
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE_DECL_FDATASYNC $ac_have_decl
-_ACEOF
- # also check for declaration, missing on MacOS...
-ac_fn_c_check_decl "$LINENO" "fmemopen" "ac_cv_have_decl_fmemopen" "$ac_includes_default"
-if test "x$ac_cv_have_decl_fmemopen" = xyes; then :
- ac_have_decl=1
-else
- ac_have_decl=0
-fi
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE_DECL_FMEMOPEN $ac_have_decl
-_ACEOF
- # also check for declaration, missing on AIX...
-
-# Checks for gettext.
-
-case $host_os in
- darwin* | rhapsody*)
- ;;
- *)
- gt_cv_func_CFPreferencesCopyAppValue=no
- gt_cv_func_CFLocaleCopyCurrent=no
- ;;
-esac
-
-# Checks for ncurses/pdcurses/curses.
-{ $as_echo "$as_me:${as_lineno-$LINENO}: Checks for curses ..." >&5
-$as_echo "$as_me: Checks for curses ..." >&6;}
-
-
-
-# Check whether --with-curses was given.
-if test "${with_curses+set}" = set; then :
- withval=$with_curses; case "$with_curses" in
- ncursesw | ncurses | pdcurses | xcurses | curses | check | no)
- USE_CURSES="$with_curses"
- ;;
- yes)
- USE_CURSES=check
- ;;
- *)
- as_fn_error $? "invalid value \"$with_curses\" for --with-curses,
- must be one of the following:
- ncursesw, ncurses, pdcurses, xcurses, curses (use only the specified library)
- check (use whatever curses library is usable, disable if no one usable)
- no (disable curses usage)" "$LINENO" 5
- ;;
- esac
-else
- USE_CURSES=check
-fi
-
-
-if test "x$CURSES_LIBS" != x; then
- LIBS="$CURSES_LIBS $LIBS"
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether linking initscr works with CURSES_LIBS, given as \"$CURSES_LIBS\"" >&5
-$as_echo_n "checking whether linking initscr works with CURSES_LIBS, given as \"$CURSES_LIBS\"... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- extern void *initscr (void);
-int
-main ()
-{
-initscr ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "not able to link initscr with CURSES_LIBS
-See \`config.log' for more details" "$LINENO" 5; }
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- if test "$USE_CURSES" = check -o "$USE_CURSES" = no; then :
-
- as_fn_error $? "explicit selection with --with-curses=ARG needed, as CURSES_LIBS is set" "$LINENO" 5
-
-fi
- LIBS="$curr_libs $LIBCOB_LIBS"
-fi
-
-if test "x$CURSES_LIBS" = x; then
- if test "$USE_CURSES" = "ncursesw" -o "$USE_CURSES" = check; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for initscr in -lncursesw" >&5
-$as_echo_n "checking for initscr in -lncursesw... " >&6; }
-if ${ac_cv_lib_ncursesw_initscr+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lncursesw $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char initscr ();
-int
-main ()
-{
-return initscr ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_ncursesw_initscr=yes
-else
- ac_cv_lib_ncursesw_initscr=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_ncursesw_initscr" >&5
-$as_echo "$ac_cv_lib_ncursesw_initscr" >&6; }
-if test "x$ac_cv_lib_ncursesw_initscr" = xyes; then :
- true
-else
- if test "$USE_CURSES" != check; then :
- USE_CURSES="missing_lib"
-fi
-fi
-
- fi
-fi
-if test "$USE_CURSES" = "ncursesw" -o "x$ac_cv_lib_ncursesw_initscr" = xyes; then
- for ac_header in ncursesw/ncurses.h ncursesw/curses.h ncurses.h
-do :
- as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh`
-ac_fn_c_check_header_mongrel "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default"
-if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
- cat >>confdefs.h <<_ACEOF
-#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
-_ACEOF
- USE_CURSES="ncursesw"
- break
-else
- if test "$USE_CURSES" != check; then :
- USE_CURSES="missing_header"
-fi
-fi
-
-done
-
- if test $USE_CURSES="ncursesw" -a "x$CURSES_LIBS" = x; then :
- CURSES_LIBS="-l$USE_CURSES"
-fi
-fi
-
-if test "x$CURSES_LIBS" = x; then
- if test "$USE_CURSES" = "ncurses" -o "$USE_CURSES" = check; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for initscr in -lncurses" >&5
-$as_echo_n "checking for initscr in -lncurses... " >&6; }
-if ${ac_cv_lib_ncurses_initscr+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lncurses $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char initscr ();
-int
-main ()
-{
-return initscr ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_ncurses_initscr=yes
-else
- ac_cv_lib_ncurses_initscr=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_ncurses_initscr" >&5
-$as_echo "$ac_cv_lib_ncurses_initscr" >&6; }
-if test "x$ac_cv_lib_ncurses_initscr" = xyes; then :
- true
-else
- if test "$USE_CURSES" != check; then :
- USE_CURSES="missing_lib"
-fi
-fi
-
- fi
-fi
-if test "$USE_CURSES" = "ncurses" -o "x$ac_cv_lib_ncurses_initscr" = xyes; then
- for ac_header in ncurses/ncurses.h ncurses/curses.h ncurses.h
-do :
- as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh`
-ac_fn_c_check_header_mongrel "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default"
-if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
- cat >>confdefs.h <<_ACEOF
-#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
-_ACEOF
- USE_CURSES="ncurses"
- break
-else
- if test "$USE_CURSES" != check; then :
- USE_CURSES="missing_header"
-fi
-fi
-
-done
-
- if test $USE_CURSES="ncurses" -a "x$CURSES_LIBS" = x; then :
- CURSES_LIBS="-l$USE_CURSES"
-fi
-fi
-
-if test "x$CURSES_LIBS" = x; then
- if test "$USE_CURSES" = "pdcurses" -o "$USE_CURSES" = check; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for initscr in -lpdcurses" >&5
-$as_echo_n "checking for initscr in -lpdcurses... " >&6; }
-if ${ac_cv_lib_pdcurses_initscr+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lpdcurses $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char initscr ();
-int
-main ()
-{
-return initscr ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_pdcurses_initscr=yes
-else
- ac_cv_lib_pdcurses_initscr=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_pdcurses_initscr" >&5
-$as_echo "$ac_cv_lib_pdcurses_initscr" >&6; }
-if test "x$ac_cv_lib_pdcurses_initscr" = xyes; then :
- true
-else
- if test "$USE_CURSES" != check; then :
- USE_CURSES="missing_lib"
-fi
-fi
-
- fi
-fi
-if test "$USE_CURSES" = "pdcurses" -o "x$ac_cv_lib_pdcurses_initscr" = xyes; then
- for ac_header in pdcurses.h curses.h
-do :
- as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh`
-ac_fn_c_check_header_mongrel "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default"
-if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
- cat >>confdefs.h <<_ACEOF
-#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
-_ACEOF
- USE_CURSES="pdcurses"
- break
-else
- if test "$USE_CURSES" != check; then :
- USE_CURSES="missing_header"
-fi
-fi
-
-done
-
- if test $USE_CURSES="pdcurses" -a "x$CURSES_LIBS" = x; then :
- CURSES_LIBS="-l$USE_CURSES"
-fi
-fi
-
-if test "x$CURSES_LIBS" = x; then
- if test "$USE_CURSES" = "xcurses" -o "$USE_CURSES" = check; then
- # consider using xcurses-config
- # note: the library name is actually with an upper-case XC:
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for initscr in -lXCurses" >&5
-$as_echo_n "checking for initscr in -lXCurses... " >&6; }
-if ${ac_cv_lib_XCurses_initscr+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lXCurses $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char initscr ();
-int
-main ()
-{
-return initscr ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_XCurses_initscr=yes
-else
- ac_cv_lib_XCurses_initscr=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_XCurses_initscr" >&5
-$as_echo "$ac_cv_lib_XCurses_initscr" >&6; }
-if test "x$ac_cv_lib_XCurses_initscr" = xyes; then :
- true
-else
- if test "$USE_CURSES" != check; then :
- USE_CURSES="missing_lib"
-fi
-fi
-
- fi
-fi
-if test "$USE_CURSES" = "xcurses" -o "x$ac_cv_lib_XCurses_initscr" = xyes; then
- for ac_header in xcurses/curses.h xcurses.h
-do :
- as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh`
-ac_fn_c_check_header_mongrel "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default"
-if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
- cat >>confdefs.h <<_ACEOF
-#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
-_ACEOF
- USE_CURSES="xcurses"
- break
-else
- if test "$USE_CURSES" != check; then :
- USE_CURSES="missing_header"
-fi
-fi
-
-done
-
- if test $USE_CURSES="xcurses" -a "x$CURSES_LIBS" = x; then :
- # note: the library name is actually with an upper-case XC:
- CURSES_LIBS="-lXCurses"
-fi
-fi
-
-if test "x$CURSES_LIBS" = x; then
- if test "$USE_CURSES" = "curses" -o "$USE_CURSES" = check; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for initscr in -lcurses" >&5
-$as_echo_n "checking for initscr in -lcurses... " >&6; }
-if ${ac_cv_lib_curses_initscr+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lcurses $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char initscr ();
-int
-main ()
-{
-return initscr ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_curses_initscr=yes
-else
- ac_cv_lib_curses_initscr=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_curses_initscr" >&5
-$as_echo "$ac_cv_lib_curses_initscr" >&6; }
-if test "x$ac_cv_lib_curses_initscr" = xyes; then :
- true
-else
- if test "$USE_CURSES" != check; then :
- USE_CURSES="missing_lib"
-fi
-fi
-
- fi
-fi
-if test "$USE_CURSES" = "curses" -o "x$ac_cv_lib_curses_initscr" = xyes; then
- for ac_header in curses.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "curses.h" "ac_cv_header_curses_h" "$ac_includes_default"
-if test "x$ac_cv_header_curses_h" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_CURSES_H 1
-_ACEOF
- USE_CURSES="curses"
-else
- if test "$USE_CURSES" != check; then :
- USE_CURSES="missing_header"
-fi
-fi
-
-done
-
- if test $USE_CURSES="curses" -a "x$CURSES_LIBS" = x; then :
- CURSES_LIBS="-l$USE_CURSES"
-fi
-fi
-
-case "$USE_CURSES" in
- check)
- USE_CURSES="not_found"
- $as_echo "#define WITH_CURSES \"not found\"" >>confdefs.h
-
- ;;
- no)
- $as_echo "#define WITH_CURSES \"disabled\"" >>confdefs.h
-
- ;;
- missing_lib)
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "not able to link configured library $with_curses
-See \`config.log' for more details" "$LINENO" 5; }
- ;;
- missing_header)
- as_fn_error $? "no header found for configured library $with_curses" "$LINENO" 5
- ;;
- *curses*)
- cat >>confdefs.h <<_ACEOF
-#define WITH_CURSES "$USE_CURSES"
-_ACEOF
-
- LIBCOB_LIBS="$LIBCOB_LIBS $CURSES_LIBS"
- ;;
-esac
-
-LIBS="$LIBS $CURSES_LIBS" # adding found curses libraries to look for functions
-if test "$USE_CURSES" = "ncurses" -o "$USE_CURSES" = "ncursesw"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ncurses _nc_freeall function" >&5
-$as_echo_n "checking for ncurses _nc_freeall function... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- extern void _nc_freeall (void);
-int
-main ()
-{
-_nc_freeall ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- $as_echo "#define HAVE_CURSES_FREEALL 1" >>confdefs.h
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ncurses use_legacy_coding function" >&5
-$as_echo_n "checking for ncurses use_legacy_coding function... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- extern void use_legacy_coding (void);
-int
-main ()
-{
-use_legacy_coding ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- $as_echo "#define HAVE_USE_LEGACY_CODING 1" >>confdefs.h
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-fi
-
-if test "$USE_CURSES" != no -a "$USE_CURSES" != "not_found"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for curses color_set function" >&5
-$as_echo_n "checking for curses color_set function... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- #ifdef HAVE_NCURSESW_NCURSES_H
- #include <ncursesw/ncurses.h>
- #elif defined (HAVE_NCURSESW_CURSES_H)
- #include <ncursesw/curses.h>
- #elif defined (HAVE_NCURSES_H)
- #include <ncurses.h>
- #elif defined (HAVE_NCURSES_NCURSES_H)
- #include <ncurses/ncurses.h>
- #elif defined (HAVE_PDCURSES_H)
- #include <pdcurses.h>
- #elif defined (HAVE_CURSES_H)
- #include <curses.h>
- #endif
-int
-main ()
-{
-
- color_set (0, NULL);
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- $as_echo "#define HAVE_COLOR_SET 1" >>confdefs.h
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for curses resize_term function" >&5
-$as_echo_n "checking for curses resize_term function... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- #ifdef HAVE_NCURSESW_NCURSES_H
- #include <ncursesw/ncurses.h>
- #elif defined (HAVE_NCURSESW_CURSES_H)
- #include <ncursesw/curses.h>
- #elif defined (HAVE_NCURSES_H)
- #include <ncurses.h>
- #elif defined (HAVE_NCURSES_NCURSES_H)
- #include <ncurses/ncurses.h>
- #elif defined (HAVE_PDCURSES_H)
- #include <pdcurses.h>
- #elif defined (HAVE_CURSES_H)
- #include <curses.h>
- #endif
-int
-main ()
-{
-
- resize_term (20,20);
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- $as_echo "#define HAVE_RESIZE_TERM 1" >>confdefs.h
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for curses define_key function" >&5
-$as_echo_n "checking for curses define_key function... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- #ifdef HAVE_NCURSESW_NCURSES_H
- #include <ncursesw/ncurses.h>
- #elif defined (HAVE_NCURSESW_CURSES_H)
- #include <ncursesw/curses.h>
- #elif defined (HAVE_NCURSES_H)
- #include <ncurses.h>
- #elif defined (HAVE_NCURSES_NCURSES_H)
- #include <ncurses/ncurses.h>
- #elif defined (HAVE_PDCURSES_H)
- #include <pdcurses.h>
- #elif defined (HAVE_CURSES_H)
- #include <curses.h>
- #endif
-int
-main ()
-{
-
- define_key ("\E-3;3~", (KEY_MAX + 1));
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- $as_echo "#define HAVE_DEFINE_KEY 1" >>confdefs.h
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for curses mouseinterval function" >&5
-$as_echo_n "checking for curses mouseinterval function... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- #ifdef HAVE_NCURSESW_NCURSES_H
- #include <ncursesw/ncurses.h>
- #elif defined (HAVE_NCURSESW_CURSES_H)
- #include <ncursesw/curses.h>
- #elif defined (HAVE_NCURSES_H)
- #include <ncurses.h>
- #elif defined (HAVE_NCURSES_NCURSES_H)
- #include <ncurses/ncurses.h>
- #elif defined (HAVE_PDCURSES_H)
- #include <pdcurses.h>
- #elif defined (HAVE_CURSES_H)
- #include <curses.h>
- #endif
-int
-main ()
-{
-
- mouseinterval (-1);
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- $as_echo "#define HAVE_MOUSEINTERVAL 1" >>confdefs.h
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for curses has_mouse function" >&5
-$as_echo_n "checking for curses has_mouse function... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- #ifdef HAVE_NCURSESW_NCURSES_H
- #include <ncursesw/ncurses.h>
- #elif defined (HAVE_NCURSESW_CURSES_H)
- #include <ncursesw/curses.h>
- #elif defined (HAVE_NCURSES_H)
- #include <ncurses.h>
- #elif defined (HAVE_NCURSES_NCURSES_H)
- #include <ncurses/ncurses.h>
- #elif defined (HAVE_PDCURSES_H)
- #include <pdcurses.h>
- #elif defined (HAVE_CURSES_H)
- #include <curses.h>
- #endif
-int
-main ()
-{
-
- has_mouse ();
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- $as_echo "#define HAVE_HAS_MOUSE 1" >>confdefs.h
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for curses mousemask function and mmask_t" >&5
-$as_echo_n "checking for curses mousemask function and mmask_t... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- #ifdef HAVE_NCURSESW_NCURSES_H
- #include <ncursesw/ncurses.h>
- #elif defined (HAVE_NCURSESW_CURSES_H)
- #include <ncursesw/curses.h>
- #elif defined (HAVE_NCURSES_H)
- #include <ncurses.h>
- #elif defined (HAVE_NCURSES_NCURSES_H)
- #include <ncurses/ncurses.h>
- #elif defined (HAVE_PDCURSES_H)
- #include <pdcurses.h>
- #elif defined (HAVE_CURSES_H)
- #include <curses.h>
- #endif
-int
-main ()
-{
-
- mmask_t dummy = { 0 };
- mousemask (dummy, NULL);
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- $as_echo "#define HAVE_MOUSEMASK 1" >>confdefs.h
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-fi
-LIBS="$curr_libs $LIBCOB_LIBS"
-
-
-# Check whether --with-seqra-extfh was given.
-if test "${with_seqra_extfh+set}" = set; then :
- withval=$with_seqra_extfh; if test "$with_seqra_extfh" = yes; then
- $as_echo "#define WITH_SEQRA_EXTFH 1" >>confdefs.h
-
- fi
-fi
-
-
-
-# Check whether --with-cisam was given.
-if test "${with_cisam+set}" = set; then :
- withval=$with_cisam; if test "$with_cisam" = yes; then
- for ac_header in isam.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "isam.h" "ac_cv_header_isam_h" "$ac_includes_default"
-if test "x$ac_cv_header_isam_h" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_ISAM_H 1
-_ACEOF
-
-else
- as_fn_error $? "isam.h is required for CISAM" "$LINENO" 5
-fi
-
-done
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for isopen in -lifisam" >&5
-$as_echo_n "checking for isopen in -lifisam... " >&6; }
-if ${ac_cv_lib_ifisam_isopen+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lifisam -lifisamx $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char isopen ();
-int
-main ()
-{
-return isopen ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_ifisam_isopen=yes
-else
- ac_cv_lib_ifisam_isopen=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_ifisam_isopen" >&5
-$as_echo "$ac_cv_lib_ifisam_isopen" >&6; }
-if test "x$ac_cv_lib_ifisam_isopen" = xyes; then :
- $as_echo "#define WITH_CISAM 1" >>confdefs.h
-
- LIBCOB_LIBS="$LIBCOB_LIBS -lifisam -lifisamx"
-else
- as_fn_error $? "libifisam is required for CISAM" "$LINENO" 5
-fi
-
- fi
-fi
-
-
-if test "$with_cisam" != yes; then :
-
-
-# Check whether --with-disam was given.
-if test "${with_disam+set}" = set; then :
- withval=$with_disam; if test "$with_disam" = yes; then
- for ac_header in disam.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "disam.h" "ac_cv_header_disam_h" "$ac_includes_default"
-if test "x$ac_cv_header_disam_h" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_DISAM_H 1
-_ACEOF
-
-else
- as_fn_error $? "disam.h is required for DISAM" "$LINENO" 5
-fi
-
-done
-
-
- for cobdisam in disam disam8 disam72 disam71 disam7
- do
- as_ac_Lib=`$as_echo "ac_cv_lib_$cobdisam''_isopen" | $as_tr_sh`
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for isopen in -l$cobdisam" >&5
-$as_echo_n "checking for isopen in -l$cobdisam... " >&6; }
-if eval \${$as_ac_Lib+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-l$cobdisam $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char isopen ();
-int
-main ()
-{
-return isopen ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- eval "$as_ac_Lib=yes"
-else
- eval "$as_ac_Lib=no"
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-eval ac_res=\$$as_ac_Lib
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-$as_echo "$ac_res" >&6; }
-if eval test \"x\$"$as_ac_Lib"\" = x"yes"; then :
- $as_echo "#define WITH_DISAM 1" >>confdefs.h
-
- LIBCOB_LIBS="$LIBCOB_LIBS -l$cobdisam"
- cob_got_disam=yes
- break
-fi
-
- done
- if test "$cob_got_disam" = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: DISAM library found as -l$cobdisam" >&5
-$as_echo "$as_me: DISAM library found as -l$cobdisam" >&6;}
- else
- as_fn_error $? "DISAM library not found" "$LINENO" 5
- fi
- unset cobdisam
- unset cob_got_disam
- fi
-fi
-
-
-fi
-
-if test "$with_cisam" != yes -a "$with_disam" != yes; then :
-
-
-# Check whether --with-vbisam was given.
-if test "${with_vbisam+set}" = set; then :
- withval=$with_vbisam; if test "$with_vbisam" = yes; then
- for ac_header in vbisam.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "vbisam.h" "ac_cv_header_vbisam_h" "$ac_includes_default"
-if test "x$ac_cv_header_vbisam_h" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_VBISAM_H 1
-_ACEOF
-
-else
- as_fn_error $? "vbisam.h is required for VBISAM" "$LINENO" 5
-fi
-
-done
-
- # note: isfullclose is available since 2.0, isopen since 1.0
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for isfullclose in -lvbisam" >&5
-$as_echo_n "checking for isfullclose in -lvbisam... " >&6; }
-if ${ac_cv_lib_vbisam_isfullclose+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lvbisam $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char isfullclose ();
-int
-main ()
-{
-return isfullclose ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_vbisam_isfullclose=yes
-else
- ac_cv_lib_vbisam_isfullclose=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_vbisam_isfullclose" >&5
-$as_echo "$ac_cv_lib_vbisam_isfullclose" >&6; }
-if test "x$ac_cv_lib_vbisam_isfullclose" = xyes; then :
- $as_echo "#define WITH_VBISAM 1" >>confdefs.h
-
- LIBCOB_LIBS="$LIBCOB_LIBS -lvbisam"
-else
- as_fn_error $? "libvbisam >= 2.0 is required for VBISAM" "$LINENO" 5
-fi
-
- fi
-fi
-
-
-fi
-
-if test "$with_cisam" != yes -a "$with_disam" != yes -a "$with_vbisam" != yes; then :
-
-
-# Check whether --with-index-extfh was given.
-if test "${with_index_extfh+set}" = set; then :
- withval=$with_index_extfh; if test "$with_index_extfh" = yes; then
- $as_echo "#define WITH_INDEX_EXTFH 1" >>confdefs.h
-
- fi
-fi
-
-
-fi
-
-if test "$with_cisam" != yes -a "$with_disam" != yes -a "$with_vbisam" != yes -a "$with_index_extfh" != yes; then :
-
-
-# Check whether --with-db was given.
-if test "${with_db+set}" = set; then :
- withval=$with_db;
-else
- with_db=yes
-fi
-
-
-fi
-
-# Checks for db.
-
-
-if test "$with_db" = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: Checks for Berkeley DB ..." >&5
-$as_echo "$as_me: Checks for Berkeley DB ..." >&6;}
-
- curr_cppflags="$CPPFLAGS"
- if test -n "$BDB_CFLAGS"; then
- CPPFLAGS="$CPPFLAGS $BDB_CFLAGS"
- fi
- for ac_header in db.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "db.h" "ac_cv_header_db_h" "$ac_includes_default"
-if test "x$ac_cv_header_db_h" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_DB_H 1
-_ACEOF
-
-else
- as_fn_error $? "Berkeley DB db.h is missing, you may adjust BDB_CFLAGS" "$LINENO" 5
-fi
-
-done
-
-
- # BDB header exists. Extract major/minor number pair
- COB_BDB_HEADER=''
- COB_BDB_HEADER_STR=''
- if test "$cross_compiling" = yes; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cannot run test program while cross-compiling" >&5
-$as_echo "$as_me: WARNING: cannot run test program while cross-compiling" >&2;}
- COB_BDB_HEADER="cross"
- COB_BDB_HEADER_STR="cross"
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- #include <stdio.h>
- #include <db.h>
- int main (int argc, char **argv)
- {
- (void)argv;
- if (argc == 2)
- printf ("%d.%d", DB_VERSION_MAJOR, DB_VERSION_MINOR);
- if (argc == 3)
- printf ("-%s-", DB_VERSION_STRING);
- return 0;
- }
-
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- COB_BDB_HEADER=$(./conftest$ac_exeext x)
- COB_BDB_HEADER_STR=$(./conftest$ac_exeext x y)
-else
- as_fn_error $? "unable to extract Berkeley DB version information from db.h" "$LINENO" 5
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
- if test "x$COB_BDB_HEADER" = x; then
- as_fn_error $? "Unable to extract Berkeley DB version information" "$LINENO" 5
- fi
- if test "x$COB_BDB_HEADER_STR" != x; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: db.h reports version \"$COB_BDB_HEADER_STR\"" >&5
-$as_echo "$as_me: db.h reports version \"$COB_BDB_HEADER_STR\"" >&6;}
- fi
- if test "$COB_BDB_HEADER_STR" != "cross"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for Berkeley DB db.h version >= 4.1" >&5
-$as_echo_n "checking for Berkeley DB db.h version >= 4.1... " >&6; }
- COB_BDB_HEADER_MAJOR=$(echo "$COB_BDB_HEADER" | cut -d. -f1)
- if test $COB_BDB_HEADER_MAJOR -gt 4; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes ($COB_BDB_HEADER)" >&5
-$as_echo "yes ($COB_BDB_HEADER)" >&6; }
- else
- COB_BDB_HEADER_MINOR=$(echo "$COB_BDB_HEADER" | cut -d. -f2)
- if test $COB_BDB_HEADER_MAJOR -eq 4 -a $COB_BDB_HEADER_MINOR -ge 1; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes ($COB_BDB_HEADER)" >&5
-$as_echo "yes ($COB_BDB_HEADER)" >&6; }
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no ($COB_BDB_HEADER)" >&5
-$as_echo "no ($COB_BDB_HEADER)" >&6; }
- as_fn_error $? "Berkeley DB db.h has incompatible version" "$LINENO" 5
- fi
- fi
- test_libs="$LIBS"
- cob_got_db=no
- if test "x$BDB_LIBS" != x; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for Berkeley DB library with BDB_LIBS" >&5
-$as_echo_n "checking for Berkeley DB library with BDB_LIBS... " >&6; }
- LIBS="$test_libs $BDB_LIBS"
- if test "$cross_compiling" = yes; then :
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "cannot run test program while cross compiling
-See \`config.log' for more details" "$LINENO" 5; }
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <stdio.h>
- #include <db.h>
-int
-main ()
-{
-
- int major = 0, minor = 0, patch = 0;
- db_version (&major, &minor, &patch);
- if (major == DB_VERSION_MAJOR && minor == DB_VERSION_MINOR) {
- return 0;
- }
- return 1;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- $as_echo "#define WITH_DB 1" >>confdefs.h
-
- cob_got_db=yes
- LIBCOB_LIBS="$LIBCOB_LIBS $BDB_LIBS"
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for Berkeley DB library with version $COB_BDB_HEADER" >&5
-$as_echo_n "checking for Berkeley DB library with version $COB_BDB_HEADER... " >&6; }
- # prefer library with version number included as some systems link against wrong version
- # of the library and to not break when a newer BDB version is installed, see bug #100
- COB_BDB_HEADER_CLEAN=$(echo "$COB_BDB_HEADER" | sed -e 's/\.//' -e 's/\-//')
- for cobdb in db-$COB_BDB_HEADER db-$COB_BDB_HEADER_CLEAN db$COB_BDB_HEADER_CLEAN \
- db-$COB_BDB_HEADER_MAJOR db$COB_BDB_HEADER_MAJOR db \
- libdb$COB_BDB_HEADER libdb$COB_BDB_HEADER_CLEAN # for common Win32 versions...
- do
- LIBS="$test_libs -l$cobdb"
- if test "$cross_compiling" = yes; then :
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "cannot run test program while cross compiling
-See \`config.log' for more details" "$LINENO" 5; }
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <stdio.h>
- #include <db.h>
-int
-main ()
-{
-
- int major = 0, minor = 0, patch = 0;
- db_version (&major, &minor, &patch);
- if (major == DB_VERSION_MAJOR && minor == DB_VERSION_MINOR) {
- return 0;
- }
- return 1;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- $as_echo "#define WITH_DB 1" >>confdefs.h
-
- cob_got_db=yes
- LIBCOB_LIBS="$LIBCOB_LIBS -l$cobdb"
- break
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
- done
- fi
- LIBS="$test_libs"
- unset test_libs
- if test "$cob_got_db" = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
- if test "x$BDB_LIBS" != x; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: BDB library version $COB_BDB_HEADER linked with $BDB_LIBS" >&5
-$as_echo "$as_me: BDB library version $COB_BDB_HEADER linked with $BDB_LIBS" >&6;}
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: BDB library version $COB_BDB_HEADER found as -l$cobdb" >&5
-$as_echo "$as_me: BDB library version $COB_BDB_HEADER found as -l$cobdb" >&6;}
- fi
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- as_fn_error $? "BDB library version $COB_BDB_HEADER is required for --with-db, you may adjust BDB_LIBS" "$LINENO" 5
- fi
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Matching BDB version (>=4.1) assumed" >&5
-$as_echo "$as_me: WARNING: Matching BDB version (>=4.1) assumed" >&2;}
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for db_version in -ldb" >&5
-$as_echo_n "checking for db_version in -ldb... " >&6; }
-if ${ac_cv_lib_db_db_version+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-ldb $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char db_version ();
-int
-main ()
-{
-return db_version ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_db_db_version=yes
-else
- ac_cv_lib_db_db_version=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_db_db_version" >&5
-$as_echo "$ac_cv_lib_db_db_version" >&6; }
-if test "x$ac_cv_lib_db_db_version" = xyes; then :
- LIBCOB_LIBS="$LIBCOB_LIBS -ldb"
-else
- as_fn_error $? "BDB library is required as -ldb" "$LINENO" 5
-fi
-
- fi
- if test -n "$BDB_CFLAGS"; then
- LIBCOB_CPPFLAGS="$LIBCOB_CPPFLAGS $BDB_CFLAGS"
- fi
- CPPFLAGS="$curr_cppflags"
- unset cobdb
- unset cob_got_db
- unset COB_BDB_HEADER
- unset COB_BDB_HEADER_MAJOR
- unset COB_BDB_HEADER_MINOR
-fi
-
-# Checks for dl/ltdl.
-DEFINE_DL=no
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for _WIN32" >&5
-$as_echo_n "checking for _WIN32... " >&6; }
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- #ifndef _WIN32
- # error macro not defined
- #endif
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- DEFINE_DL=yes
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-
-if test "$DEFINE_DL" = no -a "$with_dl" = yes; then
- if test "x$ac_cv_header_dlfcn_h" = xyes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -lc" >&5
-$as_echo_n "checking for dlopen in -lc... " >&6; }
-if ${ac_cv_lib_c_dlopen+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lc $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char dlopen ();
-int
-main ()
-{
-return dlopen ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_c_dlopen=yes
-else
- ac_cv_lib_c_dlopen=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_c_dlopen" >&5
-$as_echo "$ac_cv_lib_c_dlopen" >&6; }
-if test "x$ac_cv_lib_c_dlopen" = xyes; then :
- DEFINE_DL=yes
-fi
-
- if test "$DEFINE_DL" = no; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -ldl" >&5
-$as_echo_n "checking for dlopen in -ldl... " >&6; }
-if ${ac_cv_lib_dl_dlopen+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-ldl $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char dlopen ();
-int
-main ()
-{
-return dlopen ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_dl_dlopen=yes
-else
- ac_cv_lib_dl_dlopen=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dl_dlopen" >&5
-$as_echo "$ac_cv_lib_dl_dlopen" >&6; }
-if test "x$ac_cv_lib_dl_dlopen" = xyes; then :
- DEFINE_DL=yes
-fi
-
- if test "$DEFINE_DL" = yes; then
- $as_echo "#define USE_LIBDL 1" >>confdefs.h
-
- LIBCOB_LIBS="$LIBCOB_LIBS -ldl"
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -ldld" >&5
-$as_echo_n "checking for dlopen in -ldld... " >&6; }
-if ${ac_cv_lib_dld_dlopen+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-ldld $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char dlopen ();
-int
-main ()
-{
-return dlopen ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_dld_dlopen=yes
-else
- ac_cv_lib_dld_dlopen=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dld_dlopen" >&5
-$as_echo "$ac_cv_lib_dld_dlopen" >&6; }
-if test "x$ac_cv_lib_dld_dlopen" = xyes; then :
- DEFINE_DL=yes
-fi
-
- if test "$DEFINE_DL" = yes; then
- $as_echo "#define USE_LIBDL 1" >>confdefs.h
-
- LIBCOB_LIBS="$LIBCOB_LIBS -ldld"
- fi
- fi
- else
- $as_echo "#define USE_LIBDL 1" >>confdefs.h
-
- fi
- fi
-fi
-
-if test "$DEFINE_DL" = no; then
- for ac_header in ltdl.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "ltdl.h" "ac_cv_header_ltdl_h" "$ac_includes_default"
-if test "x$ac_cv_header_ltdl_h" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_LTDL_H 1
-_ACEOF
-
-else
- as_fn_error $? "ltdl.h is required" "$LINENO" 5
-fi
-
-done
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for lt_dlopen in -lltdl" >&5
-$as_echo_n "checking for lt_dlopen in -lltdl... " >&6; }
-if ${ac_cv_lib_ltdl_lt_dlopen+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lltdl $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char lt_dlopen ();
-int
-main ()
-{
-return lt_dlopen ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_ltdl_lt_dlopen=yes
-else
- ac_cv_lib_ltdl_lt_dlopen=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_ltdl_lt_dlopen" >&5
-$as_echo "$ac_cv_lib_ltdl_lt_dlopen" >&6; }
-if test "x$ac_cv_lib_ltdl_lt_dlopen" = xyes; then :
- LIBCOB_LIBS="$LIBCOB_LIBS -lltdl"
-else
- as_fn_error $? "libltdl is required" "$LINENO" 5
-fi
-
-fi
-
-# Checks for compiling computed gotos
-curr_cflags="$CFLAGS"
-CFLAGS="$CFLAGS $ERRWARN"
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for support of computed gotos" >&5
-$as_echo_n "checking for support of computed gotos... " >&6; }
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- int test ()
- {
- void *test_ptr;
- test_ptr = &&lab;
-
- goto *test_ptr;
- return 1;
-
- lab:
- return 0;
- }
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- $as_echo "#define COB_COMPUTED_GOTO 1" >>confdefs.h
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: Checks for different sizes ..." >&5
-$as_echo "$as_me: Checks for different sizes ..." >&6;}
-
-# The cast to long int works around a bug in the HP C Compiler
-# version HP92453-01 B.11.11.23709.GP, which incorrectly rejects
-# declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'.
-# This bug is HP SR number 8606223364.
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking size of long int" >&5
-$as_echo_n "checking size of long int... " >&6; }
-if ${ac_cv_sizeof_long_int+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (long int))" "ac_cv_sizeof_long_int" "$ac_includes_default"; then :
-
-else
- if test "$ac_cv_type_long_int" = yes; then
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error 77 "cannot compute sizeof (long int)
-See \`config.log' for more details" "$LINENO" 5; }
- else
- ac_cv_sizeof_long_int=0
- fi
-fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sizeof_long_int" >&5
-$as_echo "$ac_cv_sizeof_long_int" >&6; }
-
-
-
-cat >>confdefs.h <<_ACEOF
-#define SIZEOF_LONG_INT $ac_cv_sizeof_long_int
-_ACEOF
-
-
-# The cast to long int works around a bug in the HP C Compiler
-# version HP92453-01 B.11.11.23709.GP, which incorrectly rejects
-# declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'.
-# This bug is HP SR number 8606223364.
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking size of long long" >&5
-$as_echo_n "checking size of long long... " >&6; }
-if ${ac_cv_sizeof_long_long+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (long long))" "ac_cv_sizeof_long_long" "$ac_includes_default"; then :
-
-else
- if test "$ac_cv_type_long_long" = yes; then
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error 77 "cannot compute sizeof (long long)
-See \`config.log' for more details" "$LINENO" 5; }
- else
- ac_cv_sizeof_long_long=0
- fi
-fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sizeof_long_long" >&5
-$as_echo "$ac_cv_sizeof_long_long" >&6; }
-
-
-
-cat >>confdefs.h <<_ACEOF
-#define SIZEOF_LONG_LONG $ac_cv_sizeof_long_long
-_ACEOF
-
-
-# The cast to long int works around a bug in the HP C Compiler
-# version HP92453-01 B.11.11.23709.GP, which incorrectly rejects
-# declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'.
-# This bug is HP SR number 8606223364.
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking size of long" >&5
-$as_echo_n "checking size of long... " >&6; }
-if ${ac_cv_sizeof_long+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (long))" "ac_cv_sizeof_long" "$ac_includes_default"; then :
-
-else
- if test "$ac_cv_type_long" = yes; then
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error 77 "cannot compute sizeof (long)
-See \`config.log' for more details" "$LINENO" 5; }
- else
- ac_cv_sizeof_long=0
- fi
-fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sizeof_long" >&5
-$as_echo "$ac_cv_sizeof_long" >&6; }
-
-
-
-cat >>confdefs.h <<_ACEOF
-#define SIZEOF_LONG $ac_cv_sizeof_long
-_ACEOF
-
-
-# The cast to long int works around a bug in the HP C Compiler
-# version HP92453-01 B.11.11.23709.GP, which incorrectly rejects
-# declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'.
-# This bug is HP SR number 8606223364.
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking size of void *" >&5
-$as_echo_n "checking size of void *... " >&6; }
-if ${ac_cv_sizeof_void_p+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (void *))" "ac_cv_sizeof_void_p" "$ac_includes_default"; then :
-
-else
- if test "$ac_cv_type_void_p" = yes; then
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error 77 "cannot compute sizeof (void *)
-See \`config.log' for more details" "$LINENO" 5; }
- else
- ac_cv_sizeof_void_p=0
- fi
-fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sizeof_void_p" >&5
-$as_echo "$ac_cv_sizeof_void_p" >&6; }
-
-
-
-cat >>confdefs.h <<_ACEOF
-#define SIZEOF_VOID_P $ac_cv_sizeof_void_p
-_ACEOF
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether size of long int = size of long long" >&5
-$as_echo_n "checking whether size of long int = size of long long... " >&6; }
-if test "$ac_cv_sizeof_long_int" = "$ac_cv_sizeof_long_long"; then :
- $as_echo "#define COB_LI_IS_LL 1" >>confdefs.h
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether long is 32 bits" >&5
-$as_echo_n "checking whether long is 32 bits... " >&6; }
-if test "$ac_cv_sizeof_long" = 4; then :
- $as_echo "#define COB_32_BIT_LONG 1" >>confdefs.h
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether pointer is longer than 32 bits" >&5
-$as_echo_n "checking whether pointer is longer than 32 bits... " >&6; }
-if test "$ac_cv_sizeof_void_p" -gt 4; then :
- COB_HAS_64_BIT_POINTER=yes
- $as_echo "#define COB_64_BIT_POINTER 1" >>confdefs.h
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-# Check if aligned attribute seems to work
-# done: does not raise an error
-# *TODO*: has same output as omitting it
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for aligned attribute" >&5
-$as_echo_n "checking for aligned attribute... " >&6; }
-if ${gc_cv_attribute_aligned+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-char testchar[4] __attribute__((aligned));
- (void)testchar;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gc_cv_attribute_aligned=yes
-else
- gc_cv_attribute_aligned=no
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gc_cv_attribute_aligned" >&5
-$as_echo "$gc_cv_attribute_aligned" >&6; }
-
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-if test "$gc_cv_attribute_aligned" = yes; then
- $as_echo "#define HAVE_ATTRIBUTE_ALIGNED 1" >>confdefs.h
-
-fi
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for pure attribute" >&5
-$as_echo_n "checking for pure attribute... " >&6; }
-if ${gc_cv_attribute_pure+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- __attribute__((pure)) int f (void) { return 0; }
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gc_cv_attribute_pure=yes
-else
- gc_cv_attribute_pure=no
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gc_cv_attribute_pure" >&5
-$as_echo "$gc_cv_attribute_pure" >&6; }
-
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-if test "$gc_cv_attribute_pure" = yes; then
- $as_echo "#define HAVE_ATTRIBUTE_PURE 1" >>confdefs.h
-
-fi
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for constructor attribute" >&5
-$as_echo_n "checking for constructor attribute... " >&6; }
-if ${gc_cv_attribute_constructor+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- __attribute__((constructor)) void f (void) { return; }
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gc_cv_attribute_constructor=yes
-else
- gc_cv_attribute_constructor=no
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gc_cv_attribute_constructor" >&5
-$as_echo "$gc_cv_attribute_constructor" >&6; }
-
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-if test "$gc_cv_attribute_constructor" = yes; then
- $as_echo "#define HAVE_ATTRIBUTE_CONSTRUCTOR 1" >>confdefs.h
-
-fi
-CFLAGS="$curr_cflags"
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether NLS is requested" >&5
-$as_echo_n "checking whether NLS is requested... " >&6; }
- # Check whether --enable-nls was given.
-if test "${enable_nls+set}" = set; then :
- enableval=$enable_nls; USE_NLS=$enableval
-else
- USE_NLS=yes
-fi
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $USE_NLS" >&5
-$as_echo "$USE_NLS" >&6; }
-
-
-
-
- GETTEXT_MACRO_VERSION=0.20
-
-
-
-
-# Prepare PATH_SEPARATOR.
-# The user is always right.
-if test "${PATH_SEPARATOR+set}" != set; then
- # Determine PATH_SEPARATOR by trying to find /bin/sh in a PATH which
- # contains only /bin. Note that ksh looks also at the FPATH variable,
- # so we have to set that as well for the test.
- PATH_SEPARATOR=:
- (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 \
- && { (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 \
- || PATH_SEPARATOR=';'
- }
-fi
-
-# Find out how to test for executable files. Don't use a zero-byte file,
-# as systems may use methods other than mode bits to determine executability.
-cat >conf$$.file <<_ASEOF
-#! /bin/sh
-exit 0
-_ASEOF
-chmod +x conf$$.file
-if test -x conf$$.file >/dev/null 2>&1; then
- ac_executable_p="test -x"
-else
- ac_executable_p="test -f"
-fi
-rm -f conf$$.file
-
-# Extract the first word of "msgfmt", so it can be a program name with args.
-set dummy msgfmt; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_path_MSGFMT+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- case "$MSGFMT" in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_MSGFMT="$MSGFMT" # Let the user override the test with a path.
- ;;
- *)
- ac_save_IFS="$IFS"; IFS=$PATH_SEPARATOR
- for ac_dir in $PATH; do
- IFS="$ac_save_IFS"
- test -z "$ac_dir" && ac_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if $ac_executable_p "$ac_dir/$ac_word$ac_exec_ext"; then
- echo "$as_me: trying $ac_dir/$ac_word..." >&5
- if $ac_dir/$ac_word --statistics /dev/null >&5 2>&1 &&
- (if $ac_dir/$ac_word --statistics /dev/null 2>&1 >/dev/null | grep usage >/dev/null; then exit 1; else exit 0; fi); then
- ac_cv_path_MSGFMT="$ac_dir/$ac_word$ac_exec_ext"
- break 2
- fi
- fi
- done
- done
- IFS="$ac_save_IFS"
- test -z "$ac_cv_path_MSGFMT" && ac_cv_path_MSGFMT=":"
- ;;
-esac
-fi
-MSGFMT="$ac_cv_path_MSGFMT"
-if test "$MSGFMT" != ":"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MSGFMT" >&5
-$as_echo "$MSGFMT" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- # Extract the first word of "gmsgfmt", so it can be a program name with args.
-set dummy gmsgfmt; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_path_GMSGFMT+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- case $GMSGFMT in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_GMSGFMT="$GMSGFMT" # Let the user override the test with a path.
- ;;
- *)
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_path_GMSGFMT="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- test -z "$ac_cv_path_GMSGFMT" && ac_cv_path_GMSGFMT="$MSGFMT"
- ;;
-esac
-fi
-GMSGFMT=$ac_cv_path_GMSGFMT
-if test -n "$GMSGFMT"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $GMSGFMT" >&5
-$as_echo "$GMSGFMT" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-
- case `$GMSGFMT --version | sed 1q | sed -e 's,^[^0-9]*,,'` in
- '' | 0.[0-9] | 0.[0-9].* | 0.1[0-4] | 0.1[0-4].*) GMSGFMT_015=: ;;
- *) GMSGFMT_015=$GMSGFMT ;;
- esac
-
-
-
-# Prepare PATH_SEPARATOR.
-# The user is always right.
-if test "${PATH_SEPARATOR+set}" != set; then
- # Determine PATH_SEPARATOR by trying to find /bin/sh in a PATH which
- # contains only /bin. Note that ksh looks also at the FPATH variable,
- # so we have to set that as well for the test.
- PATH_SEPARATOR=:
- (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 \
- && { (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 \
- || PATH_SEPARATOR=';'
- }
-fi
-
-# Find out how to test for executable files. Don't use a zero-byte file,
-# as systems may use methods other than mode bits to determine executability.
-cat >conf$$.file <<_ASEOF
-#! /bin/sh
-exit 0
-_ASEOF
-chmod +x conf$$.file
-if test -x conf$$.file >/dev/null 2>&1; then
- ac_executable_p="test -x"
-else
- ac_executable_p="test -f"
-fi
-rm -f conf$$.file
-
-# Extract the first word of "xgettext", so it can be a program name with args.
-set dummy xgettext; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_path_XGETTEXT+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- case "$XGETTEXT" in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_XGETTEXT="$XGETTEXT" # Let the user override the test with a path.
- ;;
- *)
- ac_save_IFS="$IFS"; IFS=$PATH_SEPARATOR
- for ac_dir in $PATH; do
- IFS="$ac_save_IFS"
- test -z "$ac_dir" && ac_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if $ac_executable_p "$ac_dir/$ac_word$ac_exec_ext"; then
- echo "$as_me: trying $ac_dir/$ac_word..." >&5
- if $ac_dir/$ac_word --omit-header --copyright-holder= --msgid-bugs-address= /dev/null >&5 2>&1 &&
- (if $ac_dir/$ac_word --omit-header --copyright-holder= --msgid-bugs-address= /dev/null 2>&1 >/dev/null | grep usage >/dev/null; then exit 1; else exit 0; fi); then
- ac_cv_path_XGETTEXT="$ac_dir/$ac_word$ac_exec_ext"
- break 2
- fi
- fi
- done
- done
- IFS="$ac_save_IFS"
- test -z "$ac_cv_path_XGETTEXT" && ac_cv_path_XGETTEXT=":"
- ;;
-esac
-fi
-XGETTEXT="$ac_cv_path_XGETTEXT"
-if test "$XGETTEXT" != ":"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $XGETTEXT" >&5
-$as_echo "$XGETTEXT" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- rm -f messages.po
-
- case `$XGETTEXT --version | sed 1q | sed -e 's,^[^0-9]*,,'` in
- '' | 0.[0-9] | 0.[0-9].* | 0.1[0-4] | 0.1[0-4].*) XGETTEXT_015=: ;;
- *) XGETTEXT_015=$XGETTEXT ;;
- esac
-
-
-
-# Prepare PATH_SEPARATOR.
-# The user is always right.
-if test "${PATH_SEPARATOR+set}" != set; then
- # Determine PATH_SEPARATOR by trying to find /bin/sh in a PATH which
- # contains only /bin. Note that ksh looks also at the FPATH variable,
- # so we have to set that as well for the test.
- PATH_SEPARATOR=:
- (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 \
- && { (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 \
- || PATH_SEPARATOR=';'
- }
-fi
-
-# Find out how to test for executable files. Don't use a zero-byte file,
-# as systems may use methods other than mode bits to determine executability.
-cat >conf$$.file <<_ASEOF
-#! /bin/sh
-exit 0
-_ASEOF
-chmod +x conf$$.file
-if test -x conf$$.file >/dev/null 2>&1; then
- ac_executable_p="test -x"
-else
- ac_executable_p="test -f"
-fi
-rm -f conf$$.file
-
-# Extract the first word of "msgmerge", so it can be a program name with args.
-set dummy msgmerge; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_path_MSGMERGE+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- case "$MSGMERGE" in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_MSGMERGE="$MSGMERGE" # Let the user override the test with a path.
- ;;
- *)
- ac_save_IFS="$IFS"; IFS=$PATH_SEPARATOR
- for ac_dir in $PATH; do
- IFS="$ac_save_IFS"
- test -z "$ac_dir" && ac_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if $ac_executable_p "$ac_dir/$ac_word$ac_exec_ext"; then
- echo "$as_me: trying $ac_dir/$ac_word..." >&5
- if $ac_dir/$ac_word --update -q /dev/null /dev/null >&5 2>&1; then
- ac_cv_path_MSGMERGE="$ac_dir/$ac_word$ac_exec_ext"
- break 2
- fi
- fi
- done
- done
- IFS="$ac_save_IFS"
- test -z "$ac_cv_path_MSGMERGE" && ac_cv_path_MSGMERGE=":"
- ;;
-esac
-fi
-MSGMERGE="$ac_cv_path_MSGMERGE"
-if test "$MSGMERGE" != ":"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MSGMERGE" >&5
-$as_echo "$MSGMERGE" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- if LC_ALL=C $MSGMERGE --help | grep ' --for-msgfmt ' >/dev/null; then
- MSGMERGE_FOR_MSGFMT_OPTION='--for-msgfmt'
- else
- if LC_ALL=C $MSGMERGE --help | grep ' --no-fuzzy-matching ' >/dev/null; then
- MSGMERGE_FOR_MSGFMT_OPTION='--no-fuzzy-matching --no-location --quiet'
- else
- MSGMERGE_FOR_MSGFMT_OPTION='--no-location --quiet'
- fi
- fi
-
-
- test -n "${XGETTEXT_EXTRA_OPTIONS+set}" || XGETTEXT_EXTRA_OPTIONS=
-
-
- ac_config_commands="$ac_config_commands po-directories"
-
-
-
- if test "X$prefix" = "XNONE"; then
- acl_final_prefix="$ac_default_prefix"
- else
- acl_final_prefix="$prefix"
- fi
- if test "X$exec_prefix" = "XNONE"; then
- acl_final_exec_prefix='${prefix}'
- else
- acl_final_exec_prefix="$exec_prefix"
- fi
- acl_save_prefix="$prefix"
- prefix="$acl_final_prefix"
- eval acl_final_exec_prefix=\"$acl_final_exec_prefix\"
- prefix="$acl_save_prefix"
-
-
-
- acl_libdirstem=lib
- acl_libdirstem2=
- case "$host_os" in
- solaris*)
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for 64-bit host" >&5
-$as_echo_n "checking for 64-bit host... " >&6; }
-if ${gl_cv_solaris_64bit+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#ifdef _LP64
-sixtyfour bits
-#endif
-
-_ACEOF
-if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
- $EGREP "sixtyfour bits" >/dev/null 2>&1; then :
- gl_cv_solaris_64bit=yes
-else
- gl_cv_solaris_64bit=no
-fi
-rm -f conftest*
-
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_solaris_64bit" >&5
-$as_echo "$gl_cv_solaris_64bit" >&6; }
- if test $gl_cv_solaris_64bit = yes; then
- acl_libdirstem=lib/64
- case "$host_cpu" in
- sparc*) acl_libdirstem2=lib/sparcv9 ;;
- i*86 | x86_64) acl_libdirstem2=lib/amd64 ;;
- esac
- fi
- ;;
- *)
- searchpath=`(LC_ALL=C $CC -print-search-dirs) 2>/dev/null | sed -n -e 's,^libraries: ,,p' | sed -e 's,^=,,'`
- if test -n "$searchpath"; then
- acl_save_IFS="${IFS= }"; IFS=":"
- for searchdir in $searchpath; do
- if test -d "$searchdir"; then
- case "$searchdir" in
- */lib64/ | */lib64 ) acl_libdirstem=lib64 ;;
- */../ | */.. )
- # Better ignore directories of this form. They are misleading.
- ;;
- *) searchdir=`cd "$searchdir" && pwd`
- case "$searchdir" in
- */lib64 ) acl_libdirstem=lib64 ;;
- esac ;;
- esac
- fi
- done
- IFS="$acl_save_IFS"
- fi
- ;;
- esac
- test -n "$acl_libdirstem2" || acl_libdirstem2="$acl_libdirstem"
-
-
-
-
-
-
-
-
-
-
-
-
- use_additional=yes
-
- acl_save_prefix="$prefix"
- prefix="$acl_final_prefix"
- acl_save_exec_prefix="$exec_prefix"
- exec_prefix="$acl_final_exec_prefix"
-
- eval additional_includedir=\"$includedir\"
- eval additional_libdir=\"$libdir\"
-
- exec_prefix="$acl_save_exec_prefix"
- prefix="$acl_save_prefix"
-
-
-# Check whether --with-libiconv-prefix was given.
-if test "${with_libiconv_prefix+set}" = set; then :
- withval=$with_libiconv_prefix;
- if test "X$withval" = "Xno"; then
- use_additional=no
- else
- if test "X$withval" = "X"; then
-
- acl_save_prefix="$prefix"
- prefix="$acl_final_prefix"
- acl_save_exec_prefix="$exec_prefix"
- exec_prefix="$acl_final_exec_prefix"
-
- eval additional_includedir=\"$includedir\"
- eval additional_libdir=\"$libdir\"
-
- exec_prefix="$acl_save_exec_prefix"
- prefix="$acl_save_prefix"
-
- else
- additional_includedir="$withval/include"
- additional_libdir="$withval/$acl_libdirstem"
- if test "$acl_libdirstem2" != "$acl_libdirstem" \
- && ! test -d "$withval/$acl_libdirstem"; then
- additional_libdir="$withval/$acl_libdirstem2"
- fi
- fi
- fi
-
-fi
-
- LIBICONV=
- LTLIBICONV=
- INCICONV=
- LIBICONV_PREFIX=
- HAVE_LIBICONV=
- rpathdirs=
- ltrpathdirs=
- names_already_handled=
- names_next_round='iconv '
- while test -n "$names_next_round"; do
- names_this_round="$names_next_round"
- names_next_round=
- for name in $names_this_round; do
- already_handled=
- for n in $names_already_handled; do
- if test "$n" = "$name"; then
- already_handled=yes
- break
- fi
- done
- if test -z "$already_handled"; then
- names_already_handled="$names_already_handled $name"
- uppername=`echo "$name" | sed -e 'y|abcdefghijklmnopqrstuvwxyz./+-|ABCDEFGHIJKLMNOPQRSTUVWXYZ____|'`
- eval value=\"\$HAVE_LIB$uppername\"
- if test -n "$value"; then
- if test "$value" = yes; then
- eval value=\"\$LIB$uppername\"
- test -z "$value" || LIBICONV="${LIBICONV}${LIBICONV:+ }$value"
- eval value=\"\$LTLIB$uppername\"
- test -z "$value" || LTLIBICONV="${LTLIBICONV}${LTLIBICONV:+ }$value"
- else
- :
- fi
- else
- found_dir=
- found_la=
- found_so=
- found_a=
- eval libname=\"$acl_libname_spec\" # typically: libname=lib$name
- if test -n "$acl_shlibext"; then
- shrext=".$acl_shlibext" # typically: shrext=.so
- else
- shrext=
- fi
- if test $use_additional = yes; then
- dir="$additional_libdir"
- if test -n "$acl_shlibext"; then
- if test -f "$dir/$libname$shrext"; then
- found_dir="$dir"
- found_so="$dir/$libname$shrext"
- else
- if test "$acl_library_names_spec" = '$libname$shrext$versuffix'; then
- ver=`(cd "$dir" && \
- for f in "$libname$shrext".*; do echo "$f"; done \
- | sed -e "s,^$libname$shrext\\\\.,," \
- | sort -t '.' -n -r -k1,1 -k2,2 -k3,3 -k4,4 -k5,5 \
- | sed 1q ) 2>/dev/null`
- if test -n "$ver" && test -f "$dir/$libname$shrext.$ver"; then
- found_dir="$dir"
- found_so="$dir/$libname$shrext.$ver"
- fi
- else
- eval library_names=\"$acl_library_names_spec\"
- for f in $library_names; do
- if test -f "$dir/$f"; then
- found_dir="$dir"
- found_so="$dir/$f"
- break
- fi
- done
- fi
- fi
- fi
- if test "X$found_dir" = "X"; then
- if test -f "$dir/$libname.$acl_libext"; then
- found_dir="$dir"
- found_a="$dir/$libname.$acl_libext"
- fi
- fi
- if test "X$found_dir" != "X"; then
- if test -f "$dir/$libname.la"; then
- found_la="$dir/$libname.la"
- fi
- fi
- fi
- if test "X$found_dir" = "X"; then
- for x in $LDFLAGS $LTLIBICONV; do
-
- acl_save_prefix="$prefix"
- prefix="$acl_final_prefix"
- acl_save_exec_prefix="$exec_prefix"
- exec_prefix="$acl_final_exec_prefix"
- eval x=\"$x\"
- exec_prefix="$acl_save_exec_prefix"
- prefix="$acl_save_prefix"
-
- case "$x" in
- -L*)
- dir=`echo "X$x" | sed -e 's/^X-L//'`
- if test -n "$acl_shlibext"; then
- if test -f "$dir/$libname$shrext"; then
- found_dir="$dir"
- found_so="$dir/$libname$shrext"
- else
- if test "$acl_library_names_spec" = '$libname$shrext$versuffix'; then
- ver=`(cd "$dir" && \
- for f in "$libname$shrext".*; do echo "$f"; done \
- | sed -e "s,^$libname$shrext\\\\.,," \
- | sort -t '.' -n -r -k1,1 -k2,2 -k3,3 -k4,4 -k5,5 \
- | sed 1q ) 2>/dev/null`
- if test -n "$ver" && test -f "$dir/$libname$shrext.$ver"; then
- found_dir="$dir"
- found_so="$dir/$libname$shrext.$ver"
- fi
- else
- eval library_names=\"$acl_library_names_spec\"
- for f in $library_names; do
- if test -f "$dir/$f"; then
- found_dir="$dir"
- found_so="$dir/$f"
- break
- fi
- done
- fi
- fi
- fi
- if test "X$found_dir" = "X"; then
- if test -f "$dir/$libname.$acl_libext"; then
- found_dir="$dir"
- found_a="$dir/$libname.$acl_libext"
- fi
- fi
- if test "X$found_dir" != "X"; then
- if test -f "$dir/$libname.la"; then
- found_la="$dir/$libname.la"
- fi
- fi
- ;;
- esac
- if test "X$found_dir" != "X"; then
- break
- fi
- done
- fi
- if test "X$found_dir" != "X"; then
- LTLIBICONV="${LTLIBICONV}${LTLIBICONV:+ }-L$found_dir -l$name"
- if test "X$found_so" != "X"; then
- if test "$enable_rpath" = no \
- || test "X$found_dir" = "X/usr/$acl_libdirstem" \
- || test "X$found_dir" = "X/usr/$acl_libdirstem2"; then
- LIBICONV="${LIBICONV}${LIBICONV:+ }$found_so"
- else
- haveit=
- for x in $ltrpathdirs; do
- if test "X$x" = "X$found_dir"; then
- haveit=yes
- break
- fi
- done
- if test -z "$haveit"; then
- ltrpathdirs="$ltrpathdirs $found_dir"
- fi
- if test "$acl_hardcode_direct" = yes; then
- LIBICONV="${LIBICONV}${LIBICONV:+ }$found_so"
- else
- if test -n "$acl_hardcode_libdir_flag_spec" && test "$acl_hardcode_minus_L" = no; then
- LIBICONV="${LIBICONV}${LIBICONV:+ }$found_so"
- haveit=
- for x in $rpathdirs; do
- if test "X$x" = "X$found_dir"; then
- haveit=yes
- break
- fi
- done
- if test -z "$haveit"; then
- rpathdirs="$rpathdirs $found_dir"
- fi
- else
- haveit=
- for x in $LDFLAGS $LIBICONV; do
-
- acl_save_prefix="$prefix"
- prefix="$acl_final_prefix"
- acl_save_exec_prefix="$exec_prefix"
- exec_prefix="$acl_final_exec_prefix"
- eval x=\"$x\"
- exec_prefix="$acl_save_exec_prefix"
- prefix="$acl_save_prefix"
-
- if test "X$x" = "X-L$found_dir"; then
- haveit=yes
- break
- fi
- done
- if test -z "$haveit"; then
- LIBICONV="${LIBICONV}${LIBICONV:+ }-L$found_dir"
- fi
- if test "$acl_hardcode_minus_L" != no; then
- LIBICONV="${LIBICONV}${LIBICONV:+ }$found_so"
- else
- LIBICONV="${LIBICONV}${LIBICONV:+ }-l$name"
- fi
- fi
- fi
- fi
- else
- if test "X$found_a" != "X"; then
- LIBICONV="${LIBICONV}${LIBICONV:+ }$found_a"
- else
- LIBICONV="${LIBICONV}${LIBICONV:+ }-L$found_dir -l$name"
- fi
- fi
- additional_includedir=
- case "$found_dir" in
- */$acl_libdirstem | */$acl_libdirstem/)
- basedir=`echo "X$found_dir" | sed -e 's,^X,,' -e "s,/$acl_libdirstem/"'*$,,'`
- if test "$name" = 'iconv'; then
- LIBICONV_PREFIX="$basedir"
- fi
- additional_includedir="$basedir/include"
- ;;
- */$acl_libdirstem2 | */$acl_libdirstem2/)
- basedir=`echo "X$found_dir" | sed -e 's,^X,,' -e "s,/$acl_libdirstem2/"'*$,,'`
- if test "$name" = 'iconv'; then
- LIBICONV_PREFIX="$basedir"
- fi
- additional_includedir="$basedir/include"
- ;;
- esac
- if test "X$additional_includedir" != "X"; then
- if test "X$additional_includedir" != "X/usr/include"; then
- haveit=
- if test "X$additional_includedir" = "X/usr/local/include"; then
- if test -n "$GCC"; then
- case $host_os in
- linux* | gnu* | k*bsd*-gnu) haveit=yes;;
- esac
- fi
- fi
- if test -z "$haveit"; then
- for x in $CPPFLAGS $INCICONV; do
-
- acl_save_prefix="$prefix"
- prefix="$acl_final_prefix"
- acl_save_exec_prefix="$exec_prefix"
- exec_prefix="$acl_final_exec_prefix"
- eval x=\"$x\"
- exec_prefix="$acl_save_exec_prefix"
- prefix="$acl_save_prefix"
-
- if test "X$x" = "X-I$additional_includedir"; then
- haveit=yes
- break
- fi
- done
- if test -z "$haveit"; then
- if test -d "$additional_includedir"; then
- INCICONV="${INCICONV}${INCICONV:+ }-I$additional_includedir"
- fi
- fi
- fi
- fi
- fi
- if test -n "$found_la"; then
- save_libdir="$libdir"
- case "$found_la" in
- */* | *\\*) . "$found_la" ;;
- *) . "./$found_la" ;;
- esac
- libdir="$save_libdir"
- for dep in $dependency_libs; do
- case "$dep" in
- -L*)
- additional_libdir=`echo "X$dep" | sed -e 's/^X-L//'`
- if test "X$additional_libdir" != "X/usr/$acl_libdirstem" \
- && test "X$additional_libdir" != "X/usr/$acl_libdirstem2"; then
- haveit=
- if test "X$additional_libdir" = "X/usr/local/$acl_libdirstem" \
- || test "X$additional_libdir" = "X/usr/local/$acl_libdirstem2"; then
- if test -n "$GCC"; then
- case $host_os in
- linux* | gnu* | k*bsd*-gnu) haveit=yes;;
- esac
- fi
- fi
- if test -z "$haveit"; then
- haveit=
- for x in $LDFLAGS $LIBICONV; do
-
- acl_save_prefix="$prefix"
- prefix="$acl_final_prefix"
- acl_save_exec_prefix="$exec_prefix"
- exec_prefix="$acl_final_exec_prefix"
- eval x=\"$x\"
- exec_prefix="$acl_save_exec_prefix"
- prefix="$acl_save_prefix"
-
- if test "X$x" = "X-L$additional_libdir"; then
- haveit=yes
- break
- fi
- done
- if test -z "$haveit"; then
- if test -d "$additional_libdir"; then
- LIBICONV="${LIBICONV}${LIBICONV:+ }-L$additional_libdir"
- fi
- fi
- haveit=
- for x in $LDFLAGS $LTLIBICONV; do
-
- acl_save_prefix="$prefix"
- prefix="$acl_final_prefix"
- acl_save_exec_prefix="$exec_prefix"
- exec_prefix="$acl_final_exec_prefix"
- eval x=\"$x\"
- exec_prefix="$acl_save_exec_prefix"
- prefix="$acl_save_prefix"
-
- if test "X$x" = "X-L$additional_libdir"; then
- haveit=yes
- break
- fi
- done
- if test -z "$haveit"; then
- if test -d "$additional_libdir"; then
- LTLIBICONV="${LTLIBICONV}${LTLIBICONV:+ }-L$additional_libdir"
- fi
- fi
- fi
- fi
- ;;
- -R*)
- dir=`echo "X$dep" | sed -e 's/^X-R//'`
- if test "$enable_rpath" != no; then
- haveit=
- for x in $rpathdirs; do
- if test "X$x" = "X$dir"; then
- haveit=yes
- break
- fi
- done
- if test -z "$haveit"; then
- rpathdirs="$rpathdirs $dir"
- fi
- haveit=
- for x in $ltrpathdirs; do
- if test "X$x" = "X$dir"; then
- haveit=yes
- break
- fi
- done
- if test -z "$haveit"; then
- ltrpathdirs="$ltrpathdirs $dir"
- fi
- fi
- ;;
- -l*)
- names_next_round="$names_next_round "`echo "X$dep" | sed -e 's/^X-l//'`
- ;;
- *.la)
- names_next_round="$names_next_round "`echo "X$dep" | sed -e 's,^X.*/,,' -e 's,^lib,,' -e 's,\.la$,,'`
- ;;
- *)
- LIBICONV="${LIBICONV}${LIBICONV:+ }$dep"
- LTLIBICONV="${LTLIBICONV}${LTLIBICONV:+ }$dep"
- ;;
- esac
- done
- fi
- else
- LIBICONV="${LIBICONV}${LIBICONV:+ }-l$name"
- LTLIBICONV="${LTLIBICONV}${LTLIBICONV:+ }-l$name"
- fi
- fi
- fi
- done
- done
- if test "X$rpathdirs" != "X"; then
- if test -n "$acl_hardcode_libdir_separator"; then
- alldirs=
- for found_dir in $rpathdirs; do
- alldirs="${alldirs}${alldirs:+$acl_hardcode_libdir_separator}$found_dir"
- done
- acl_save_libdir="$libdir"
- libdir="$alldirs"
- eval flag=\"$acl_hardcode_libdir_flag_spec\"
- libdir="$acl_save_libdir"
- LIBICONV="${LIBICONV}${LIBICONV:+ }$flag"
- else
- for found_dir in $rpathdirs; do
- acl_save_libdir="$libdir"
- libdir="$found_dir"
- eval flag=\"$acl_hardcode_libdir_flag_spec\"
- libdir="$acl_save_libdir"
- LIBICONV="${LIBICONV}${LIBICONV:+ }$flag"
- done
- fi
- fi
- if test "X$ltrpathdirs" != "X"; then
- for found_dir in $ltrpathdirs; do
- LTLIBICONV="${LTLIBICONV}${LTLIBICONV:+ }-R$found_dir"
- done
- fi
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for CFPreferencesCopyAppValue" >&5
-$as_echo_n "checking for CFPreferencesCopyAppValue... " >&6; }
-if ${gt_cv_func_CFPreferencesCopyAppValue+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- gt_save_LIBS="$LIBS"
- LIBS="$LIBS -Wl,-framework -Wl,CoreFoundation"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <CoreFoundation/CFPreferences.h>
-int
-main ()
-{
-CFPreferencesCopyAppValue(NULL, NULL)
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- gt_cv_func_CFPreferencesCopyAppValue=yes
-else
- gt_cv_func_CFPreferencesCopyAppValue=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- LIBS="$gt_save_LIBS"
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gt_cv_func_CFPreferencesCopyAppValue" >&5
-$as_echo "$gt_cv_func_CFPreferencesCopyAppValue" >&6; }
- if test $gt_cv_func_CFPreferencesCopyAppValue = yes; then
-
-$as_echo "#define HAVE_CFPREFERENCESCOPYAPPVALUE 1" >>confdefs.h
-
- fi
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for CFLocaleCopyPreferredLanguages" >&5
-$as_echo_n "checking for CFLocaleCopyPreferredLanguages... " >&6; }
-if ${gt_cv_func_CFLocaleCopyPreferredLanguages+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- gt_save_LIBS="$LIBS"
- LIBS="$LIBS -Wl,-framework -Wl,CoreFoundation"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <CoreFoundation/CFLocale.h>
-int
-main ()
-{
-CFLocaleCopyPreferredLanguages();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- gt_cv_func_CFLocaleCopyPreferredLanguages=yes
-else
- gt_cv_func_CFLocaleCopyPreferredLanguages=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- LIBS="$gt_save_LIBS"
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gt_cv_func_CFLocaleCopyPreferredLanguages" >&5
-$as_echo "$gt_cv_func_CFLocaleCopyPreferredLanguages" >&6; }
- if test $gt_cv_func_CFLocaleCopyPreferredLanguages = yes; then
-
-$as_echo "#define HAVE_CFLOCALECOPYPREFERREDLANGUAGES 1" >>confdefs.h
-
- fi
- INTL_MACOSX_LIBS=
- if test $gt_cv_func_CFPreferencesCopyAppValue = yes \
- || test $gt_cv_func_CFLocaleCopyPreferredLanguages = yes; then
- INTL_MACOSX_LIBS="-Wl,-framework -Wl,CoreFoundation"
- fi
-
-
-
-
-
-
- LIBINTL=
- LTLIBINTL=
- POSUB=
-
- case " $gt_needs " in
- *" need-formatstring-macros "*) gt_api_version=3 ;;
- *" need-ngettext "*) gt_api_version=2 ;;
- *) gt_api_version=1 ;;
- esac
- gt_func_gnugettext_libc="gt_cv_func_gnugettext${gt_api_version}_libc"
- gt_func_gnugettext_libintl="gt_cv_func_gnugettext${gt_api_version}_libintl"
-
- if test "$USE_NLS" = "yes"; then
- gt_use_preinstalled_gnugettext=no
-
-
- if test $gt_api_version -ge 3; then
- gt_revision_test_code='
-#ifndef __GNU_GETTEXT_SUPPORTED_REVISION
-#define __GNU_GETTEXT_SUPPORTED_REVISION(major) ((major) == 0 ? 0 : -1)
-#endif
-typedef int array [2 * (__GNU_GETTEXT_SUPPORTED_REVISION(0) >= 1) - 1];
-'
- else
- gt_revision_test_code=
- fi
- if test $gt_api_version -ge 2; then
- gt_expression_test_code=' + * ngettext ("", "", 0)'
- else
- gt_expression_test_code=
- fi
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GNU gettext in libc" >&5
-$as_echo_n "checking for GNU gettext in libc... " >&6; }
-if eval \${$gt_func_gnugettext_libc+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#include <libintl.h>
-#ifndef __GNU_GETTEXT_SUPPORTED_REVISION
-extern int _nl_msg_cat_cntr;
-extern int *_nl_domain_bindings;
-#define __GNU_GETTEXT_SYMBOL_EXPRESSION (_nl_msg_cat_cntr + *_nl_domain_bindings)
-#else
-#define __GNU_GETTEXT_SYMBOL_EXPRESSION 0
-#endif
-$gt_revision_test_code
-
-int
-main ()
-{
-
-bindtextdomain ("", "");
-return * gettext ("")$gt_expression_test_code + __GNU_GETTEXT_SYMBOL_EXPRESSION
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- eval "$gt_func_gnugettext_libc=yes"
-else
- eval "$gt_func_gnugettext_libc=no"
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-fi
-eval ac_res=\$$gt_func_gnugettext_libc
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-$as_echo "$ac_res" >&6; }
-
- if { eval "gt_val=\$$gt_func_gnugettext_libc"; test "$gt_val" != "yes"; }; then
-
-
-
-
-
- am_save_CPPFLAGS="$CPPFLAGS"
-
- for element in $INCICONV; do
- haveit=
- for x in $CPPFLAGS; do
-
- acl_save_prefix="$prefix"
- prefix="$acl_final_prefix"
- acl_save_exec_prefix="$exec_prefix"
- exec_prefix="$acl_final_exec_prefix"
- eval x=\"$x\"
- exec_prefix="$acl_save_exec_prefix"
- prefix="$acl_save_prefix"
-
- if test "X$x" = "X$element"; then
- haveit=yes
- break
- fi
- done
- if test -z "$haveit"; then
- CPPFLAGS="${CPPFLAGS}${CPPFLAGS:+ }$element"
- fi
- done
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for iconv" >&5
-$as_echo_n "checking for iconv... " >&6; }
-if ${am_cv_func_iconv+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- am_cv_func_iconv="no, consider installing GNU libiconv"
- am_cv_lib_iconv=no
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#include <stdlib.h>
-#include <iconv.h>
-
-int
-main ()
-{
-iconv_t cd = iconv_open("","");
- iconv(cd,NULL,NULL,NULL,NULL);
- iconv_close(cd);
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- am_cv_func_iconv=yes
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- if test "$am_cv_func_iconv" != yes; then
- am_save_LIBS="$LIBS"
- LIBS="$LIBS $LIBICONV"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#include <stdlib.h>
-#include <iconv.h>
-
-int
-main ()
-{
-iconv_t cd = iconv_open("","");
- iconv(cd,NULL,NULL,NULL,NULL);
- iconv_close(cd);
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- am_cv_lib_iconv=yes
- am_cv_func_iconv=yes
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- LIBS="$am_save_LIBS"
- fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_func_iconv" >&5
-$as_echo "$am_cv_func_iconv" >&6; }
- if test "$am_cv_func_iconv" = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for working iconv" >&5
-$as_echo_n "checking for working iconv... " >&6; }
-if ${am_cv_func_iconv_works+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- am_save_LIBS="$LIBS"
- if test $am_cv_lib_iconv = yes; then
- LIBS="$LIBS $LIBICONV"
- fi
- am_cv_func_iconv_works=no
- for ac_iconv_const in '' 'const'; do
- if test "$cross_compiling" = yes; then :
- case "$host_os" in
- aix* | hpux*) am_cv_func_iconv_works="guessing no" ;;
- *) am_cv_func_iconv_works="guessing yes" ;;
- esac
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#include <iconv.h>
-#include <string.h>
-
-#ifndef ICONV_CONST
-# define ICONV_CONST $ac_iconv_const
-#endif
-
-int
-main ()
-{
-int result = 0;
- /* Test against AIX 5.1 bug: Failures are not distinguishable from successful
- returns. */
- {
- iconv_t cd_utf8_to_88591 = iconv_open ("ISO8859-1", "UTF-8");
- if (cd_utf8_to_88591 != (iconv_t)(-1))
- {
- static ICONV_CONST char input[] = "\342\202\254"; /* EURO SIGN */
- char buf[10];
- ICONV_CONST char *inptr = input;
- size_t inbytesleft = strlen (input);
- char *outptr = buf;
- size_t outbytesleft = sizeof (buf);
- size_t res = iconv (cd_utf8_to_88591,
- &inptr, &inbytesleft,
- &outptr, &outbytesleft);
- if (res == 0)
- result |= 1;
- iconv_close (cd_utf8_to_88591);
- }
- }
- /* Test against Solaris 10 bug: Failures are not distinguishable from
- successful returns. */
- {
- iconv_t cd_ascii_to_88591 = iconv_open ("ISO8859-1", "646");
- if (cd_ascii_to_88591 != (iconv_t)(-1))
- {
- static ICONV_CONST char input[] = "\263";
- char buf[10];
- ICONV_CONST char *inptr = input;
- size_t inbytesleft = strlen (input);
- char *outptr = buf;
- size_t outbytesleft = sizeof (buf);
- size_t res = iconv (cd_ascii_to_88591,
- &inptr, &inbytesleft,
- &outptr, &outbytesleft);
- if (res == 0)
- result |= 2;
- iconv_close (cd_ascii_to_88591);
- }
- }
- /* Test against AIX 6.1..7.1 bug: Buffer overrun. */
- {
- iconv_t cd_88591_to_utf8 = iconv_open ("UTF-8", "ISO-8859-1");
- if (cd_88591_to_utf8 != (iconv_t)(-1))
- {
- static ICONV_CONST char input[] = "\304";
- static char buf[2] = { (char)0xDE, (char)0xAD };
- ICONV_CONST char *inptr = input;
- size_t inbytesleft = 1;
- char *outptr = buf;
- size_t outbytesleft = 1;
- size_t res = iconv (cd_88591_to_utf8,
- &inptr, &inbytesleft,
- &outptr, &outbytesleft);
- if (res != (size_t)(-1) || outptr - buf > 1 || buf[1] != (char)0xAD)
- result |= 4;
- iconv_close (cd_88591_to_utf8);
- }
- }
-#if 0 /* This bug could be worked around by the caller. */
- /* Test against HP-UX 11.11 bug: Positive return value instead of 0. */
- {
- iconv_t cd_88591_to_utf8 = iconv_open ("utf8", "iso88591");
- if (cd_88591_to_utf8 != (iconv_t)(-1))
- {
- static ICONV_CONST char input[] = "\304rger mit b\366sen B\374bchen ohne Augenma\337";
- char buf[50];
- ICONV_CONST char *inptr = input;
- size_t inbytesleft = strlen (input);
- char *outptr = buf;
- size_t outbytesleft = sizeof (buf);
- size_t res = iconv (cd_88591_to_utf8,
- &inptr, &inbytesleft,
- &outptr, &outbytesleft);
- if ((int)res > 0)
- result |= 8;
- iconv_close (cd_88591_to_utf8);
- }
- }
-#endif
- /* Test against HP-UX 11.11 bug: No converter from EUC-JP to UTF-8 is
- provided. */
- {
- /* Try standardized names. */
- iconv_t cd1 = iconv_open ("UTF-8", "EUC-JP");
- /* Try IRIX, OSF/1 names. */
- iconv_t cd2 = iconv_open ("UTF-8", "eucJP");
- /* Try AIX names. */
- iconv_t cd3 = iconv_open ("UTF-8", "IBM-eucJP");
- /* Try HP-UX names. */
- iconv_t cd4 = iconv_open ("utf8", "eucJP");
- if (cd1 == (iconv_t)(-1) && cd2 == (iconv_t)(-1)
- && cd3 == (iconv_t)(-1) && cd4 == (iconv_t)(-1))
- result |= 16;
- if (cd1 != (iconv_t)(-1))
- iconv_close (cd1);
- if (cd2 != (iconv_t)(-1))
- iconv_close (cd2);
- if (cd3 != (iconv_t)(-1))
- iconv_close (cd3);
- if (cd4 != (iconv_t)(-1))
- iconv_close (cd4);
- }
- return result;
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- am_cv_func_iconv_works=yes
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
- test "$am_cv_func_iconv_works" = no || break
- done
- LIBS="$am_save_LIBS"
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_func_iconv_works" >&5
-$as_echo "$am_cv_func_iconv_works" >&6; }
- case "$am_cv_func_iconv_works" in
- *no) am_func_iconv=no am_cv_lib_iconv=no ;;
- *) am_func_iconv=yes ;;
- esac
- else
- am_func_iconv=no am_cv_lib_iconv=no
- fi
- if test "$am_func_iconv" = yes; then
-
-$as_echo "#define HAVE_ICONV 1" >>confdefs.h
-
- fi
- if test "$am_cv_lib_iconv" = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to link with libiconv" >&5
-$as_echo_n "checking how to link with libiconv... " >&6; }
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $LIBICONV" >&5
-$as_echo "$LIBICONV" >&6; }
- else
- CPPFLAGS="$am_save_CPPFLAGS"
- LIBICONV=
- LTLIBICONV=
- fi
-
-
-
-
-
-
-
-
-
-
-
- use_additional=yes
-
- acl_save_prefix="$prefix"
- prefix="$acl_final_prefix"
- acl_save_exec_prefix="$exec_prefix"
- exec_prefix="$acl_final_exec_prefix"
-
- eval additional_includedir=\"$includedir\"
- eval additional_libdir=\"$libdir\"
-
- exec_prefix="$acl_save_exec_prefix"
- prefix="$acl_save_prefix"
-
-
-# Check whether --with-libintl-prefix was given.
-if test "${with_libintl_prefix+set}" = set; then :
- withval=$with_libintl_prefix;
- if test "X$withval" = "Xno"; then
- use_additional=no
- else
- if test "X$withval" = "X"; then
-
- acl_save_prefix="$prefix"
- prefix="$acl_final_prefix"
- acl_save_exec_prefix="$exec_prefix"
- exec_prefix="$acl_final_exec_prefix"
-
- eval additional_includedir=\"$includedir\"
- eval additional_libdir=\"$libdir\"
-
- exec_prefix="$acl_save_exec_prefix"
- prefix="$acl_save_prefix"
-
- else
- additional_includedir="$withval/include"
- additional_libdir="$withval/$acl_libdirstem"
- if test "$acl_libdirstem2" != "$acl_libdirstem" \
- && ! test -d "$withval/$acl_libdirstem"; then
- additional_libdir="$withval/$acl_libdirstem2"
- fi
- fi
- fi
-
-fi
-
- LIBINTL=
- LTLIBINTL=
- INCINTL=
- LIBINTL_PREFIX=
- HAVE_LIBINTL=
- rpathdirs=
- ltrpathdirs=
- names_already_handled=
- names_next_round='intl '
- while test -n "$names_next_round"; do
- names_this_round="$names_next_round"
- names_next_round=
- for name in $names_this_round; do
- already_handled=
- for n in $names_already_handled; do
- if test "$n" = "$name"; then
- already_handled=yes
- break
- fi
- done
- if test -z "$already_handled"; then
- names_already_handled="$names_already_handled $name"
- uppername=`echo "$name" | sed -e 'y|abcdefghijklmnopqrstuvwxyz./+-|ABCDEFGHIJKLMNOPQRSTUVWXYZ____|'`
- eval value=\"\$HAVE_LIB$uppername\"
- if test -n "$value"; then
- if test "$value" = yes; then
- eval value=\"\$LIB$uppername\"
- test -z "$value" || LIBINTL="${LIBINTL}${LIBINTL:+ }$value"
- eval value=\"\$LTLIB$uppername\"
- test -z "$value" || LTLIBINTL="${LTLIBINTL}${LTLIBINTL:+ }$value"
- else
- :
- fi
- else
- found_dir=
- found_la=
- found_so=
- found_a=
- eval libname=\"$acl_libname_spec\" # typically: libname=lib$name
- if test -n "$acl_shlibext"; then
- shrext=".$acl_shlibext" # typically: shrext=.so
- else
- shrext=
- fi
- if test $use_additional = yes; then
- dir="$additional_libdir"
- if test -n "$acl_shlibext"; then
- if test -f "$dir/$libname$shrext"; then
- found_dir="$dir"
- found_so="$dir/$libname$shrext"
- else
- if test "$acl_library_names_spec" = '$libname$shrext$versuffix'; then
- ver=`(cd "$dir" && \
- for f in "$libname$shrext".*; do echo "$f"; done \
- | sed -e "s,^$libname$shrext\\\\.,," \
- | sort -t '.' -n -r -k1,1 -k2,2 -k3,3 -k4,4 -k5,5 \
- | sed 1q ) 2>/dev/null`
- if test -n "$ver" && test -f "$dir/$libname$shrext.$ver"; then
- found_dir="$dir"
- found_so="$dir/$libname$shrext.$ver"
- fi
- else
- eval library_names=\"$acl_library_names_spec\"
- for f in $library_names; do
- if test -f "$dir/$f"; then
- found_dir="$dir"
- found_so="$dir/$f"
- break
- fi
- done
- fi
- fi
- fi
- if test "X$found_dir" = "X"; then
- if test -f "$dir/$libname.$acl_libext"; then
- found_dir="$dir"
- found_a="$dir/$libname.$acl_libext"
- fi
- fi
- if test "X$found_dir" != "X"; then
- if test -f "$dir/$libname.la"; then
- found_la="$dir/$libname.la"
- fi
- fi
- fi
- if test "X$found_dir" = "X"; then
- for x in $LDFLAGS $LTLIBINTL; do
-
- acl_save_prefix="$prefix"
- prefix="$acl_final_prefix"
- acl_save_exec_prefix="$exec_prefix"
- exec_prefix="$acl_final_exec_prefix"
- eval x=\"$x\"
- exec_prefix="$acl_save_exec_prefix"
- prefix="$acl_save_prefix"
-
- case "$x" in
- -L*)
- dir=`echo "X$x" | sed -e 's/^X-L//'`
- if test -n "$acl_shlibext"; then
- if test -f "$dir/$libname$shrext"; then
- found_dir="$dir"
- found_so="$dir/$libname$shrext"
- else
- if test "$acl_library_names_spec" = '$libname$shrext$versuffix'; then
- ver=`(cd "$dir" && \
- for f in "$libname$shrext".*; do echo "$f"; done \
- | sed -e "s,^$libname$shrext\\\\.,," \
- | sort -t '.' -n -r -k1,1 -k2,2 -k3,3 -k4,4 -k5,5 \
- | sed 1q ) 2>/dev/null`
- if test -n "$ver" && test -f "$dir/$libname$shrext.$ver"; then
- found_dir="$dir"
- found_so="$dir/$libname$shrext.$ver"
- fi
- else
- eval library_names=\"$acl_library_names_spec\"
- for f in $library_names; do
- if test -f "$dir/$f"; then
- found_dir="$dir"
- found_so="$dir/$f"
- break
- fi
- done
- fi
- fi
- fi
- if test "X$found_dir" = "X"; then
- if test -f "$dir/$libname.$acl_libext"; then
- found_dir="$dir"
- found_a="$dir/$libname.$acl_libext"
- fi
- fi
- if test "X$found_dir" != "X"; then
- if test -f "$dir/$libname.la"; then
- found_la="$dir/$libname.la"
- fi
- fi
- ;;
- esac
- if test "X$found_dir" != "X"; then
- break
- fi
- done
- fi
- if test "X$found_dir" != "X"; then
- LTLIBINTL="${LTLIBINTL}${LTLIBINTL:+ }-L$found_dir -l$name"
- if test "X$found_so" != "X"; then
- if test "$enable_rpath" = no \
- || test "X$found_dir" = "X/usr/$acl_libdirstem" \
- || test "X$found_dir" = "X/usr/$acl_libdirstem2"; then
- LIBINTL="${LIBINTL}${LIBINTL:+ }$found_so"
- else
- haveit=
- for x in $ltrpathdirs; do
- if test "X$x" = "X$found_dir"; then
- haveit=yes
- break
- fi
- done
- if test -z "$haveit"; then
- ltrpathdirs="$ltrpathdirs $found_dir"
- fi
- if test "$acl_hardcode_direct" = yes; then
- LIBINTL="${LIBINTL}${LIBINTL:+ }$found_so"
- else
- if test -n "$acl_hardcode_libdir_flag_spec" && test "$acl_hardcode_minus_L" = no; then
- LIBINTL="${LIBINTL}${LIBINTL:+ }$found_so"
- haveit=
- for x in $rpathdirs; do
- if test "X$x" = "X$found_dir"; then
- haveit=yes
- break
- fi
- done
- if test -z "$haveit"; then
- rpathdirs="$rpathdirs $found_dir"
- fi
- else
- haveit=
- for x in $LDFLAGS $LIBINTL; do
-
- acl_save_prefix="$prefix"
- prefix="$acl_final_prefix"
- acl_save_exec_prefix="$exec_prefix"
- exec_prefix="$acl_final_exec_prefix"
- eval x=\"$x\"
- exec_prefix="$acl_save_exec_prefix"
- prefix="$acl_save_prefix"
-
- if test "X$x" = "X-L$found_dir"; then
- haveit=yes
- break
- fi
- done
- if test -z "$haveit"; then
- LIBINTL="${LIBINTL}${LIBINTL:+ }-L$found_dir"
- fi
- if test "$acl_hardcode_minus_L" != no; then
- LIBINTL="${LIBINTL}${LIBINTL:+ }$found_so"
- else
- LIBINTL="${LIBINTL}${LIBINTL:+ }-l$name"
- fi
- fi
- fi
- fi
- else
- if test "X$found_a" != "X"; then
- LIBINTL="${LIBINTL}${LIBINTL:+ }$found_a"
- else
- LIBINTL="${LIBINTL}${LIBINTL:+ }-L$found_dir -l$name"
- fi
- fi
- additional_includedir=
- case "$found_dir" in
- */$acl_libdirstem | */$acl_libdirstem/)
- basedir=`echo "X$found_dir" | sed -e 's,^X,,' -e "s,/$acl_libdirstem/"'*$,,'`
- if test "$name" = 'intl'; then
- LIBINTL_PREFIX="$basedir"
- fi
- additional_includedir="$basedir/include"
- ;;
- */$acl_libdirstem2 | */$acl_libdirstem2/)
- basedir=`echo "X$found_dir" | sed -e 's,^X,,' -e "s,/$acl_libdirstem2/"'*$,,'`
- if test "$name" = 'intl'; then
- LIBINTL_PREFIX="$basedir"
- fi
- additional_includedir="$basedir/include"
- ;;
- esac
- if test "X$additional_includedir" != "X"; then
- if test "X$additional_includedir" != "X/usr/include"; then
- haveit=
- if test "X$additional_includedir" = "X/usr/local/include"; then
- if test -n "$GCC"; then
- case $host_os in
- linux* | gnu* | k*bsd*-gnu) haveit=yes;;
- esac
- fi
- fi
- if test -z "$haveit"; then
- for x in $CPPFLAGS $INCINTL; do
-
- acl_save_prefix="$prefix"
- prefix="$acl_final_prefix"
- acl_save_exec_prefix="$exec_prefix"
- exec_prefix="$acl_final_exec_prefix"
- eval x=\"$x\"
- exec_prefix="$acl_save_exec_prefix"
- prefix="$acl_save_prefix"
-
- if test "X$x" = "X-I$additional_includedir"; then
- haveit=yes
- break
- fi
- done
- if test -z "$haveit"; then
- if test -d "$additional_includedir"; then
- INCINTL="${INCINTL}${INCINTL:+ }-I$additional_includedir"
- fi
- fi
- fi
- fi
- fi
- if test -n "$found_la"; then
- save_libdir="$libdir"
- case "$found_la" in
- */* | *\\*) . "$found_la" ;;
- *) . "./$found_la" ;;
- esac
- libdir="$save_libdir"
- for dep in $dependency_libs; do
- case "$dep" in
- -L*)
- additional_libdir=`echo "X$dep" | sed -e 's/^X-L//'`
- if test "X$additional_libdir" != "X/usr/$acl_libdirstem" \
- && test "X$additional_libdir" != "X/usr/$acl_libdirstem2"; then
- haveit=
- if test "X$additional_libdir" = "X/usr/local/$acl_libdirstem" \
- || test "X$additional_libdir" = "X/usr/local/$acl_libdirstem2"; then
- if test -n "$GCC"; then
- case $host_os in
- linux* | gnu* | k*bsd*-gnu) haveit=yes;;
- esac
- fi
- fi
- if test -z "$haveit"; then
- haveit=
- for x in $LDFLAGS $LIBINTL; do
-
- acl_save_prefix="$prefix"
- prefix="$acl_final_prefix"
- acl_save_exec_prefix="$exec_prefix"
- exec_prefix="$acl_final_exec_prefix"
- eval x=\"$x\"
- exec_prefix="$acl_save_exec_prefix"
- prefix="$acl_save_prefix"
-
- if test "X$x" = "X-L$additional_libdir"; then
- haveit=yes
- break
- fi
- done
- if test -z "$haveit"; then
- if test -d "$additional_libdir"; then
- LIBINTL="${LIBINTL}${LIBINTL:+ }-L$additional_libdir"
- fi
- fi
- haveit=
- for x in $LDFLAGS $LTLIBINTL; do
-
- acl_save_prefix="$prefix"
- prefix="$acl_final_prefix"
- acl_save_exec_prefix="$exec_prefix"
- exec_prefix="$acl_final_exec_prefix"
- eval x=\"$x\"
- exec_prefix="$acl_save_exec_prefix"
- prefix="$acl_save_prefix"
-
- if test "X$x" = "X-L$additional_libdir"; then
- haveit=yes
- break
- fi
- done
- if test -z "$haveit"; then
- if test -d "$additional_libdir"; then
- LTLIBINTL="${LTLIBINTL}${LTLIBINTL:+ }-L$additional_libdir"
- fi
- fi
- fi
- fi
- ;;
- -R*)
- dir=`echo "X$dep" | sed -e 's/^X-R//'`
- if test "$enable_rpath" != no; then
- haveit=
- for x in $rpathdirs; do
- if test "X$x" = "X$dir"; then
- haveit=yes
- break
- fi
- done
- if test -z "$haveit"; then
- rpathdirs="$rpathdirs $dir"
- fi
- haveit=
- for x in $ltrpathdirs; do
- if test "X$x" = "X$dir"; then
- haveit=yes
- break
- fi
- done
- if test -z "$haveit"; then
- ltrpathdirs="$ltrpathdirs $dir"
- fi
- fi
- ;;
- -l*)
- names_next_round="$names_next_round "`echo "X$dep" | sed -e 's/^X-l//'`
- ;;
- *.la)
- names_next_round="$names_next_round "`echo "X$dep" | sed -e 's,^X.*/,,' -e 's,^lib,,' -e 's,\.la$,,'`
- ;;
- *)
- LIBINTL="${LIBINTL}${LIBINTL:+ }$dep"
- LTLIBINTL="${LTLIBINTL}${LTLIBINTL:+ }$dep"
- ;;
- esac
- done
- fi
- else
- LIBINTL="${LIBINTL}${LIBINTL:+ }-l$name"
- LTLIBINTL="${LTLIBINTL}${LTLIBINTL:+ }-l$name"
- fi
- fi
- fi
- done
- done
- if test "X$rpathdirs" != "X"; then
- if test -n "$acl_hardcode_libdir_separator"; then
- alldirs=
- for found_dir in $rpathdirs; do
- alldirs="${alldirs}${alldirs:+$acl_hardcode_libdir_separator}$found_dir"
- done
- acl_save_libdir="$libdir"
- libdir="$alldirs"
- eval flag=\"$acl_hardcode_libdir_flag_spec\"
- libdir="$acl_save_libdir"
- LIBINTL="${LIBINTL}${LIBINTL:+ }$flag"
- else
- for found_dir in $rpathdirs; do
- acl_save_libdir="$libdir"
- libdir="$found_dir"
- eval flag=\"$acl_hardcode_libdir_flag_spec\"
- libdir="$acl_save_libdir"
- LIBINTL="${LIBINTL}${LIBINTL:+ }$flag"
- done
- fi
- fi
- if test "X$ltrpathdirs" != "X"; then
- for found_dir in $ltrpathdirs; do
- LTLIBINTL="${LTLIBINTL}${LTLIBINTL:+ }-R$found_dir"
- done
- fi
-
-
-
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GNU gettext in libintl" >&5
-$as_echo_n "checking for GNU gettext in libintl... " >&6; }
-if eval \${$gt_func_gnugettext_libintl+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- gt_save_CPPFLAGS="$CPPFLAGS"
- CPPFLAGS="$CPPFLAGS $INCINTL"
- gt_save_LIBS="$LIBS"
- LIBS="$LIBS $LIBINTL"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#include <libintl.h>
-#ifndef __GNU_GETTEXT_SUPPORTED_REVISION
-extern int _nl_msg_cat_cntr;
-extern
-#ifdef __cplusplus
-"C"
-#endif
-const char *_nl_expand_alias (const char *);
-#define __GNU_GETTEXT_SYMBOL_EXPRESSION (_nl_msg_cat_cntr + *_nl_expand_alias (""))
-#else
-#define __GNU_GETTEXT_SYMBOL_EXPRESSION 0
-#endif
-$gt_revision_test_code
-
-int
-main ()
-{
-
-bindtextdomain ("", "");
-return * gettext ("")$gt_expression_test_code + __GNU_GETTEXT_SYMBOL_EXPRESSION
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- eval "$gt_func_gnugettext_libintl=yes"
-else
- eval "$gt_func_gnugettext_libintl=no"
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- if { eval "gt_val=\$$gt_func_gnugettext_libintl"; test "$gt_val" != yes; } && test -n "$LIBICONV"; then
- LIBS="$LIBS $LIBICONV"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#include <libintl.h>
-#ifndef __GNU_GETTEXT_SUPPORTED_REVISION
-extern int _nl_msg_cat_cntr;
-extern
-#ifdef __cplusplus
-"C"
-#endif
-const char *_nl_expand_alias (const char *);
-#define __GNU_GETTEXT_SYMBOL_EXPRESSION (_nl_msg_cat_cntr + *_nl_expand_alias (""))
-#else
-#define __GNU_GETTEXT_SYMBOL_EXPRESSION 0
-#endif
-$gt_revision_test_code
-
-int
-main ()
-{
-
-bindtextdomain ("", "");
-return * gettext ("")$gt_expression_test_code + __GNU_GETTEXT_SYMBOL_EXPRESSION
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- LIBINTL="$LIBINTL $LIBICONV"
- LTLIBINTL="$LTLIBINTL $LTLIBICONV"
- eval "$gt_func_gnugettext_libintl=yes"
-
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- fi
- CPPFLAGS="$gt_save_CPPFLAGS"
- LIBS="$gt_save_LIBS"
-fi
-eval ac_res=\$$gt_func_gnugettext_libintl
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-$as_echo "$ac_res" >&6; }
- fi
-
- if { eval "gt_val=\$$gt_func_gnugettext_libc"; test "$gt_val" = "yes"; } \
- || { { eval "gt_val=\$$gt_func_gnugettext_libintl"; test "$gt_val" = "yes"; } \
- && test "$PACKAGE" != gettext-runtime \
- && test "$PACKAGE" != gettext-tools; }; then
- gt_use_preinstalled_gnugettext=yes
- else
- LIBINTL=
- LTLIBINTL=
- INCINTL=
- fi
-
-
-
- if test -n "$INTL_MACOSX_LIBS"; then
- if test "$gt_use_preinstalled_gnugettext" = "yes" \
- || test "$nls_cv_use_gnu_gettext" = "yes"; then
- LIBINTL="$LIBINTL $INTL_MACOSX_LIBS"
- LTLIBINTL="$LTLIBINTL $INTL_MACOSX_LIBS"
- fi
- fi
-
- if test "$gt_use_preinstalled_gnugettext" = "yes" \
- || test "$nls_cv_use_gnu_gettext" = "yes"; then
-
-$as_echo "#define ENABLE_NLS 1" >>confdefs.h
-
- else
- USE_NLS=no
- fi
- fi
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to use NLS" >&5
-$as_echo_n "checking whether to use NLS... " >&6; }
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $USE_NLS" >&5
-$as_echo "$USE_NLS" >&6; }
- if test "$USE_NLS" = "yes"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking where the gettext function comes from" >&5
-$as_echo_n "checking where the gettext function comes from... " >&6; }
- if test "$gt_use_preinstalled_gnugettext" = "yes"; then
- if { eval "gt_val=\$$gt_func_gnugettext_libintl"; test "$gt_val" = "yes"; }; then
- gt_source="external libintl"
- else
- gt_source="libc"
- fi
- else
- gt_source="included intl directory"
- fi
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gt_source" >&5
-$as_echo "$gt_source" >&6; }
- fi
-
- if test "$USE_NLS" = "yes"; then
-
- if test "$gt_use_preinstalled_gnugettext" = "yes"; then
- if { eval "gt_val=\$$gt_func_gnugettext_libintl"; test "$gt_val" = "yes"; }; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to link with libintl" >&5
-$as_echo_n "checking how to link with libintl... " >&6; }
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $LIBINTL" >&5
-$as_echo "$LIBINTL" >&6; }
-
- for element in $INCINTL; do
- haveit=
- for x in $CPPFLAGS; do
-
- acl_save_prefix="$prefix"
- prefix="$acl_final_prefix"
- acl_save_exec_prefix="$exec_prefix"
- exec_prefix="$acl_final_exec_prefix"
- eval x=\"$x\"
- exec_prefix="$acl_save_exec_prefix"
- prefix="$acl_save_prefix"
-
- if test "X$x" = "X$element"; then
- haveit=yes
- break
- fi
- done
- if test -z "$haveit"; then
- CPPFLAGS="${CPPFLAGS}${CPPFLAGS:+ }$element"
- fi
- done
-
- fi
-
-
-$as_echo "#define HAVE_GETTEXT 1" >>confdefs.h
-
-
-$as_echo "#define HAVE_DCGETTEXT 1" >>confdefs.h
-
- fi
-
- POSUB=po
- fi
-
-
-
- INTLLIBS="$LIBINTL"
-
-
-
-
-
-
-
-if test "x$LTLIBINTL" != x; then
- if test "x$PROGRAMS_LIBS" != x; then
- PROGRAMS_LIBS="$PROGRAMS_LIBS $LTLIBINTL"
- else
- PROGRAMS_LIBS="$LTLIBINTL"
- fi
- LIBCOB_LIBS="$LIBCOB_LIBS $LTLIBINTL"
-fi
-
-# Checks for internationalization stuff
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for nl_langinfo and CODESET" >&5
-$as_echo_n "checking for nl_langinfo and CODESET... " >&6; }
-if ${am_cv_langinfo_codeset+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <langinfo.h>
-int
-main ()
-{
-char* cs = nl_langinfo(CODESET); return !cs;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- am_cv_langinfo_codeset=yes
-else
- am_cv_langinfo_codeset=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_langinfo_codeset" >&5
-$as_echo "$am_cv_langinfo_codeset" >&6; }
- if test $am_cv_langinfo_codeset = yes; then
-
-$as_echo "#define HAVE_LANGINFO_CODESET 1" >>confdefs.h
-
- fi
-
-
-# Check for perl, used for "make test"
-#AM_MISSING_PROG(PERL, perl) --> only use for tools that generate something
-# Extract the first word of "perl", so it can be a program name with args.
-set dummy perl; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_PERL+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$PERL"; then
- ac_cv_prog_PERL="$PERL" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_PERL="perl"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-PERL=$ac_cv_prog_PERL
-if test -n "$PERL"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $PERL" >&5
-$as_echo "$PERL" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-
-# GnuCOBOL Configuration
-
-COB_CONFIG_DIR="$datadir/$PACKAGE_TARNAME/config"
-COB_COPY_DIR="$datadir/$PACKAGE_TARNAME/copy"
-COB_LIBRARY_PATH="$libdir/$PACKAGE_TARNAME"
-COB_EXE_EXT="$EXEEXT"
-if test "$COB_EXE_EXT" = ".exe"; then
- COB_MODULE_EXT="dll"
-else
- if test "$COB_EXE_EXT" = ".exe" -o "$COB_EXE_EXT" = ".EXE"; then
- COB_MODULE_EXT="dll"
- else
- # normal case...
- COB_MODULE_EXT=$(echo "$acl_cv_shlibext" | sed -e 's/dll\.a/dll/')
- fi
-fi
-COB_OBJECT_EXT="$OBJEXT"
-LIBS="$curr_libs"
-COB_EXPORT_DYN="$(eval echo $export_dynamic_flag_spec)"
-# FIXME: lt_prog_compiler_pic is not always correct, for example with occ
-COB_PIC_FLAGS=$(echo "$lt_prog_compiler_pic" | sed -e 's/^ //')
-
-if test "$enable_cflags_setting" = yes; then
- if test "$enable_hardening" != yes; then
- # Remove -O2 option added by AC_PROG_CC and add -O0
- if test "$enable_debug" = yes -o "$enable_code_coverage" = yes; then
- CFLAGS=$(echo "$CFLAGS" | sed -e 's/ *-O[0-9a-zA-Z]* */ /g' -e 's/ $//' -e 's/^ //')
- if test "$COB_USES_GCC" = yes; then
- CFLAGS="$CFLAGS -O0"
- fi
- fi
- fi
-fi
-
-unset enable_cflags_setting
-
-# Note: cobc.c assumed -g for all but _MSC_VER
-if test "$ac_cv_prog_cc_g" = yes; then
- COB_DEBUG_FLAGS="-g"
-else
- COB_DEBUG_FLAGS=""
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: No clue how to add debug info with this compiler!" >&5
-$as_echo "$as_me: WARNING: No clue how to add debug info with this compiler!" >&2;}
-fi
-
-# For debugging: add most expressive debug level if using GCC (compatible)
-curr_cflags="$CFLAGS"
-if test "$COB_USES_GCC" = yes; then :
-
- cob_temp_flags="-ggdb3"
- CFLAGS="$curr_cflags $cob_temp_flags $ERRWARN"
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for debug option $cob_temp_flags" >&5
-$as_echo_n "checking for debug option $cob_temp_flags... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-return 0;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
- COB_DEBUG_FLAGS="$cob_temp_flags"
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- cob_temp_flags="-g3"
- CFLAGS="$curr_cflags $cob_temp_flags $ERRWARN"
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for debug option $cob_temp_flags" >&5
-$as_echo_n "checking for debug option $cob_temp_flags... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-return 0;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
- COB_DEBUG_FLAGS="$cob_temp_flags"
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-
-
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-
- cob_temp_flags="-fasynchronous-unwind-tables"
- CFLAGS="$curr_cflags $cob_temp_flags $ERRWARN"
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for debug option $cob_temp_flags" >&5
-$as_echo_n "checking for debug option $cob_temp_flags... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-return 0;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
- COB_DEBUG_FLAGS="$COB_DEBUG_FLAGS $cob_temp_flags"
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- cob_temp_flags="-funwind-tables"
- CFLAGS="$curr_cflags $cob_temp_flags $ERRWARN"
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for debug option $cob_temp_flags" >&5
-$as_echo_n "checking for debug option $cob_temp_flags... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-return 0;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
- COB_DEBUG_FLAGS="$COB_DEBUG_FLAGS $cob_temp_flags"
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-
-
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-
-fi
-
-if test "$enable_debug" = yes; then
- if test "x$curr_cflags" != "x"; then
- CFLAGS="$curr_cflags $COB_DEBUG_FLAGS"
- else
- CFLAGS="$COB_DEBUG_FLAGS"
- fi
-else
- CFLAGS="$curr_cflags"
-fi
-
-if test "$enable_hardening" = yes; then :
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: Compile with hardening options" >&5
-$as_echo "$as_me: Compile with hardening options" >&6;}
- # needs optimization
- #if test "$enable_debug" = yes; then
- # CFLAGS="$CFLAGS -O"
- #fi
- CPPFLAGS="$CPPFLAGS -U_FORTIFY_SOURCE -D_FORTIFY_SOURCE=2"
-
- curr_cflags="$CFLAGS"
- cob_temp_flags="-fstack-protector-strong"
- CFLAGS="$curr_cflags $cob_temp_flags $ERRWARN"
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $cob_temp_flags option" >&5
-$as_echo_n "checking for $cob_temp_flags option... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-return 0;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- cob_temp_flags="-fstack-protector"
- CFLAGS="$curr_cflags $cob_temp_flags $ERRWARN"
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $cob_temp_flags option" >&5
-$as_echo_n "checking for $cob_temp_flags option... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-return 0;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- CFLAGS="$curr_cflags"; cob_temp_flags=""; { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- if test "x$cob_temp_flags" != x; then
- if test "x$COB_LDFLAGS" != x; then
- COB_LDFLAGS="$COB_LDFLAGS $cob_temp_flags"
- else
- COB_LDFLAGS="$cob_temp_flags"
- fi
- CFLAGS="$curr_cflags $cob_temp_flags"
- else
- CFLAGS="$curr_cflags"
- fi
- unset cob_temp_flags
-
-fi
-
-if test "$COB_USES_GCC" = yes; then :
-
- curr_cflags="$CFLAGS"
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for -pipe option" >&5
-$as_echo_n "checking for -pipe option... " >&6; }
-if ${gc_cv_gcc_pipe+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- CFLAGS="$CFLAGS -pipe $ERRWARN"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-return 0;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- gc_cv_gcc_pipe=yes
-else
- gc_cv_gcc_pipe=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gc_cv_gcc_pipe" >&5
-$as_echo "$gc_cv_gcc_pipe" >&6; }
- if test "$gc_cv_gcc_pipe" = yes; then
- CFLAGS="$curr_cflags -pipe"
- else
- CFLAGS="$curr_cflags"
- fi
-
-fi
-
-# include directory (install dir)
-
-if test "x$prefix" = "xNONE"; then
- if test "x$includedir" = "x\${prefix}/include"; then
- COB_CFLAGS="-I${ac_default_prefix}/include"
- else
- COB_CFLAGS="-I${includedir}"
- fi
-else
- if test "x$includedir" = "x\${prefix}/include"; then
- if test "x$prefix" = "x/usr"; then
- COB_CFLAGS=""
- else
- COB_CFLAGS="-I${prefix}/include"
- fi
- else
- COB_CFLAGS="-I${includedir}"
- fi
-fi
-
-
-# compiler specific general options for COB_CFLAGS, originating from cobc.c (main)
-
-if test "$COB_USES_ICC_ONLY" = yes; then
- # these are deprecated...
- COB_CFLAGS="$COB_CFLAGS -vec-report0 -opt-report 0"
-elif test "$COB_USES_WATCOMC_ONLY" = yes; then
- # -s = no overflow checks, otherwise need to code/link a CHK routine
- COB_CFLAGS="$COB_CFLAGS -s -wcd=118"
-elif test "$COB_USES_XLC_ONLY" = yes; then
- # use read-only memory for string literals and constants
- COB_CFLAGS="$COB_CFLAGS -qro -qroconst"
- # allow nonstandard usage - CHECKME where do we need this ???
- # do we need the additional check for __IBMC__ >= 700 we had in cobc?
- COB_CFLAGS="$COB_CFLAGS -qlanglvl=extended"
- # Suppress compiler warning about MAXMEM optimization
- COB_CFLAGS="$COB_CFLAGS -qsuppress=1500-030"
-fi
-
-if test "$COB_USES_GCC_NO_ICC" = yes; then
- # comment from cobc.c: --param max-goto-duplication-insns=100000
- # /* RXWRXW - gcse */
- # COB_CFLAGS="$COB_CFLAGS -Wno-unused -fsigned-char -fno-gcse"
- COB_CFLAGS="$COB_CFLAGS -Wno-unused -fsigned-char"
-fi
-
-# Check gcc 4 pointer sign option (at least available with "recent" clang, too)
-#if test "$COB_USES_GCC_NO_ICC" = yes; then
-if test "$COB_USES_XLC_ONLY" != yes; then
- curr_cflags="$CFLAGS"
- CFLAGS="$CFLAGS -Wpointer-sign $ERRWARN"
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for gcc pointer sign option" >&5
-$as_echo_n "checking for gcc pointer sign option... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-return 0;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- COB_CFLAGS="$COB_CFLAGS -Wno-pointer-sign"; { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- CFLAGS="$curr_cflags"
-fi
-#fi
-
-if test "$COB_USES_CLANG_ONLY" = yes; then
- # don't warn if cobc uses arguments which aren't picked up (likely because of the translation phase)
- COB_CFLAGS="$COB_CFLAGS -Qunused-arguments"
-
- # don't warn for untyped function call - only possible if the interal repository would be enforced
- curr_cflags="$CFLAGS"
- CFLAGS="$CFLAGS -Wdeprecated-non-prototype $ERRWARN"
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for need to suppress clang ?rototype warning" >&5
-$as_echo_n "checking for need to suppress clang ?rototype warning... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-return 0;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- COB_CFLAGS="$COB_CFLAGS -Wno-deprecated-non-prototype"; { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- CFLAGS="$curr_cflags"
-fi
-
-
-# Include CFLAGS / CPPFLAGS in COB_CFLAGS without optimization/debug options.
-
-if test "x$CFLAGS" != x; then
- cob_temp_flags="$CFLAGS"
-else
- cob_temp_flags=""
-fi
-if test "x$CPPFLAGS" != x; then
- if test "x$cob_temp_flags" != x; then
- cob_temp_flags="$CPPFLAGS $cob_temp_flags"
- else
- cob_temp_flags="$CPPFLAGS"
- fi
-fi
-
-#
-# Add CFLAGS and CPPFLAGS to COB_CFLAGS, minus optimization/debug options.
-
-cob_temp_flags="$CFLAGS $CPPFLAGS"
-
-if test "$enable_hardening" = no; then
- cob_temp_flags=$(echo x$cob_temp_flags | \
- sed -e 's/^x//' \
- -e 's/-Wp,-D_FORTIFY_SOURCE=.//g' \
- -e 's/-D_FORTIFY_SOURCE=.//g' \
- -e 's/-fmessage-length=0//g' \
- -e 's/-fstack-protector-strong//g' \
- -e 's/-fstack-protector-all//g' \
- -e 's/-fstack-protector//g' \
- )
-fi
-
-cob_temp_flags=$(echo x$cob_temp_flags | \
- sed -e 's/^x//' \
- -e 's/-g\(gdb\)\{0,1\}[0-9 ]//g' \
- -e 's/-g\(gdb\)\{0,1\}$//' \
- -e 's/-Ofast//g' \
- -e 's/[+-]O[0-9sz]* //g' \
- -e 's/[+-]O[0-9sz]*$//g' \
- -e 's/-funwind-tables//g' \
- -e 's/-fasynchronous-unwind-tables//g' \
- -e 's/ / /g' \
- -e 's/ $//g' \
- )
-
-if test "x$cob_temp_flags" != x; then
- COB_CFLAGS="$cob_temp_flags $COB_CFLAGS"
-fi
-if test "$enable_hardening" = yes; then
- # needs optimization
- COB_CFLAGS="$COB_CFLAGS -O"
-fi
-unset cob_temp_flags
-
-# Special stuff
-
-
-# FIXME: COB_SHARED_OPT should at least be checked for "compiles";
-# for example breaks with occ and other non-GCC compilers,
-# *at least* check that compilation still works when using this option...
-COB_SHARED_OPT="-shared"
-
-COB_FIX_LIB="$COB_EXPORT_DYN"
-COB_FIX_LIBTOOL=""
-case $host_os in
- mingw*)
- if test "$prefix" = "NONE"; then
- COB_CONFIG_DIR="$(cd /usr && pwd -W)/local/share/$PACKAGE_TARNAME/config"
- COB_COPY_DIR="$(cd /usr && pwd -W)/local/share/$PACKAGE_TARNAME/copy"
- fi
- if test "$COB_USES_GCC" = yes; then
- COB_EXPORT_DYN="-Wl,--export-all-symbols -Wl,--enable-auto-import -Wl,--enable-auto-image-base"
- COB_FIX_LIBTOOL="-Wl,--enable-auto-import"
- fi
- #COB_FIX_LIB=""
- ;;
- cygwin*)
- if test "$COB_USES_GCC" = yes; then
- COB_EXPORT_DYN="-Wl,--export-all-symbols -Wl,--enable-auto-import -Wl,--enable-auto-image-base"
- COB_FIX_LIBTOOL="-Wl,--enable-auto-import"
- fi
- #COB_FIX_LIB=""
- ;;
- darwin* | rhapsody*)
- if test "$COB_USES_GCC" = yes; then
- COB_SHARED_OPT="-bundle -flat_namespace -undefined suppress"
- fi
- ;;
- hpux*)
- if test "$COB_USES_GCC" != yes; then
- COB_SHARED_OPT="-b"
- $as_echo "#define _XOPEN_SOURCE_EXTENDED 1" >>confdefs.h
-
- rm -f hptest*
- echo 'int main() { return 0; }' > hptest.c
- ${CC} ${CFLAGS} +Olit=all -o hptest hptest.c > hptest.out 2>&1
- if test $? -ne 0 -o -s hptest.out; then
- CFLAGS="$CFLAGS +ESlit"
- COB_CFLAGS="$COB_CFLAGS +ESlit -w"
- else
- CFLAGS="$CFLAGS +Olit=all"
- COB_CFLAGS="$COB_CFLAGS +Olit=all -w"
- fi
-
- if test "$enable_debug" = yes; then
- CFLAGS="$CFLAGS +O0"
- else
- CFLAGS="$CFLAGS +O2"
- fi
-
- rm -f hptest*
- fi
- ;;
- aix*)
- COB_EXPORT_DYN="-Wl,-bexpfull -Wl,-brtl"
- if test "$COB_USES_GCC" != yes; then
- CFLAGS="$CFLAGS -Q -qro -qroconst"
- if test "$enable_debug" = yes; then
- CFLAGS="$CFLAGS -qnoopt"
- else
- CFLAGS="$CFLAGS -O2"
- fi
-
- COB_SHARED_OPT="-G"
- COB_FIX_LIB=""
- # COB_FIX_LIB="-Wc,-G $COB_EXPORT_DYN"
- # COB_CFLAGS="$COB_CFLAGS -qchars=signed"
- else
- COB_FIX_LIB="$COB_EXPORT_DYN"
- fi
- ;;
- solaris*)
- if test "$COB_USES_GCC" != yes; then
- CFLAGS="$CFLAGS -xstrconst"
- if test "$enable_debug" != yes; then
- CFLAGS="$CFLAGS -xO2"
- fi
- COB_CFLAGS="$COB_CFLAGS -xstrconst"
- COB_SHARED_OPT="-G"
- fi
- ;;
-esac
-
-if test "$COB_USES_ICC_ONLY" = yes; then
- if test "$enable_debug" != yes; then
- CFLAGS="$CFLAGS -finline-functions"
- fi
- CFLAGS="$CFLAGS -Wall -wd1419 -vec-report0 -opt-report 0"
-elif test "$COB_USES_GCC" = yes && test "$with_gnu_ld" = yes; then
- curr_ldflags="$LDFLAGS"
- LDFLAGS="$LDFLAGS -Wl,-z,relro,-z,now,-O1"
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ld bind now option" >&5
-$as_echo_n "checking for ld bind now option... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-return 0;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- LDFLAGS=$curr_ldflags
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- unset curr_ldflags
- if test "$enable_debug" != yes; then
- CFLAGS="$CFLAGS -finline-functions"
- fi
- CFLAGS="$CFLAGS -fsigned-char -Wall -Wwrite-strings -Wmissing-prototypes -Wno-format-y2k"
-fi
-
-if test "x$lt_cv_dlopen_self" != xyes; then
- $as_echo "#define COB_NO_SELFOPEN 1" >>confdefs.h
-
-fi
-
-if test "$with_cisam" = yes; then
- COB_HAS_ISAM=cisam
-elif test "$with_disam" = yes; then
- COB_HAS_ISAM=disam
-elif test "$with_vbisam" = yes; then
- COB_HAS_ISAM=vbisam
-elif test "$with_db" = yes; then
- COB_HAS_ISAM=db
-elif test "$with_index_extfh" = yes; then
- COB_HAS_ISAM=index_extfh
-else
- COB_HAS_ISAM=no
-fi
-
-if test "$USE_CURSES" = "not_found" -o "$USE_CURSES" = no; then
- COB_HAS_CURSES=no
-else
- COB_HAS_CURSES=yes
-fi
-
-if test "$with_xml2" = yes; then
- COB_HAS_XML2=yes
- with_xml2=libxml2
-else
- COB_HAS_XML2=no
-fi
-
-if test "$USE_JSON" = "local"; then
- COB_HAS_JSON=cjson
-elif test "$USE_JSON" = "not_found"; then
- COB_HAS_JSON=no
-else
- COB_HAS_JSON=$USE_JSON
-fi
-
- if test "$USE_JSON" = "local"; then
- LOCAL_CJSON_TRUE=
- LOCAL_CJSON_FALSE='#'
-else
- LOCAL_CJSON_TRUE='#'
- LOCAL_CJSON_FALSE=
-fi
-
-
-unset COB_USES_GCC
-unset COB_USES_GCC_NO_ICC
-unset COB_USES_ICC_ONLY
-unset COB_USES_CLANG_ONLY
-unset COB_USES_XLC_ONLY
-unset COB_USES_WATCOM_ONLY
-unset curr_cflags
-unset curr_cppflags
-unset curr_libs
-
-# Generate the output
-
- if test "$COB_HAS_ISAM" != no; then
- COB_MAKE_IX_TRUE=
- COB_MAKE_IX_FALSE='#'
-else
- COB_MAKE_IX_TRUE='#'
- COB_MAKE_IX_FALSE=
-fi
-
- if test "$cross_compiling" != yes; then
- COB_MAKE_RUN_BINARIES_TRUE=
- COB_MAKE_RUN_BINARIES_FALSE='#'
-else
- COB_MAKE_RUN_BINARIES_TRUE='#'
- COB_MAKE_RUN_BINARIES_FALSE=
-fi
-
-
-
-cat >>confdefs.h <<_ACEOF
-#define COB_CC "$COB_CC"
-_ACEOF
-
-
-
-_VAR_RES_DATAROOTDIR=$(eval echo "${datarootdir}" | $SED "s#NONE#${prefix}#")
-_VAR_RES_EXEC_PREFIX=$(eval echo "${exec_prefix}" | $SED "s#NONE#${prefix}#")
-_VAR_RES_PREFIX=$(eval echo "${prefix}")
-_VAR_RES_RESOLVED=$(echo "$COB_CFLAGS" \
- | $SED 's#${exec_prefix}#'"${_VAR_RES_EXEC_PREFIX}"'#' \
- | $SED 's#${datarootdir}#'"${_VAR_RES_DATAROOTDIR}"'#' \
- | $SED 's#${prefix}#'"${_VAR_RES_PREFIX}"'#' \
- | $SED "s#NONE#${ac_default_prefix}#" )
-
-cat >>confdefs.h <<_ACEOF
-#define COB_CFLAGS "$(eval echo "${_VAR_RES_RESOLVED}")"
-_ACEOF
-
-
-unset _VAR_RES_EXEC_PREFIX _VAR_RES_PREFIX _VAR_RES_RESOLVED _VAR_RES_DATAROOTDIR
-
-
-
-_VAR_RES_DATAROOTDIR=$(eval echo "${datarootdir}" | $SED "s#NONE#${prefix}#")
-_VAR_RES_EXEC_PREFIX=$(eval echo "${exec_prefix}" | $SED "s#NONE#${prefix}#")
-_VAR_RES_PREFIX=$(eval echo "${prefix}")
-_VAR_RES_RESOLVED=$(echo "$COB_LDFLAGS" \
- | $SED 's#${exec_prefix}#'"${_VAR_RES_EXEC_PREFIX}"'#' \
- | $SED 's#${datarootdir}#'"${_VAR_RES_DATAROOTDIR}"'#' \
- | $SED 's#${prefix}#'"${_VAR_RES_PREFIX}"'#' \
- | $SED "s#NONE#${ac_default_prefix}#" )
-
-cat >>confdefs.h <<_ACEOF
-#define COB_LDFLAGS "$(eval echo "${_VAR_RES_RESOLVED}")"
-_ACEOF
-
-
-unset _VAR_RES_EXEC_PREFIX _VAR_RES_PREFIX _VAR_RES_RESOLVED _VAR_RES_DATAROOTDIR
-
-
-
-_VAR_RES_DATAROOTDIR=$(eval echo "${datarootdir}" | $SED "s#NONE#${prefix}#")
-_VAR_RES_EXEC_PREFIX=$(eval echo "${exec_prefix}" | $SED "s#NONE#${prefix}#")
-_VAR_RES_PREFIX=$(eval echo "${prefix}")
-_VAR_RES_RESOLVED=$(echo "$COB_LIBS" \
- | $SED 's#${exec_prefix}#'"${_VAR_RES_EXEC_PREFIX}"'#' \
- | $SED 's#${datarootdir}#'"${_VAR_RES_DATAROOTDIR}"'#' \
- | $SED 's#${prefix}#'"${_VAR_RES_PREFIX}"'#' \
- | $SED "s#NONE#${ac_default_prefix}#" )
-
-cat >>confdefs.h <<_ACEOF
-#define COB_LIBS "$(eval echo "${_VAR_RES_RESOLVED}")"
-_ACEOF
-
-
-unset _VAR_RES_EXEC_PREFIX _VAR_RES_PREFIX _VAR_RES_RESOLVED _VAR_RES_DATAROOTDIR
-
-cat >>confdefs.h <<_ACEOF
-#define COB_PIC_FLAGS "$COB_PIC_FLAGS"
-_ACEOF
-
-cat >>confdefs.h <<_ACEOF
-#define COB_DEBUG_FLAGS "$COB_DEBUG_FLAGS"
-_ACEOF
-
-cat >>confdefs.h <<_ACEOF
-#define COB_EXPORT_DYN "$COB_EXPORT_DYN"
-_ACEOF
-
-cat >>confdefs.h <<_ACEOF
-#define COB_SHARED_OPT "$COB_SHARED_OPT"
-_ACEOF
-
-cat >>confdefs.h <<_ACEOF
-#define COB_MODULE_EXT "$COB_MODULE_EXT"
-_ACEOF
-
-cat >>confdefs.h <<_ACEOF
-#define COB_OBJECT_EXT "$OBJEXT"
-_ACEOF
-
-cat >>confdefs.h <<_ACEOF
-#define COB_EXE_EXT "$COB_EXE_EXT"
-_ACEOF
-
-
-
-_VAR_RES_DATAROOTDIR=$(eval echo "${datarootdir}" | $SED "s#NONE#${prefix}#")
-_VAR_RES_EXEC_PREFIX=$(eval echo "${exec_prefix}" | $SED "s#NONE#${prefix}#")
-_VAR_RES_PREFIX=$(eval echo "${prefix}")
-_VAR_RES_RESOLVED=$(echo "$COB_LIBRARY_PATH" \
- | $SED 's#${exec_prefix}#'"${_VAR_RES_EXEC_PREFIX}"'#' \
- | $SED 's#${datarootdir}#'"${_VAR_RES_DATAROOTDIR}"'#' \
- | $SED 's#${prefix}#'"${_VAR_RES_PREFIX}"'#' \
- | $SED "s#NONE#${ac_default_prefix}#" )
-
-cat >>confdefs.h <<_ACEOF
-#define COB_LIBRARY_PATH "$(eval echo "${_VAR_RES_RESOLVED}")"
-_ACEOF
-
-
-unset _VAR_RES_EXEC_PREFIX _VAR_RES_PREFIX _VAR_RES_RESOLVED _VAR_RES_DATAROOTDIR
-
-if test "x$striplib" != x; then
- cat >>confdefs.h <<_ACEOF
-#define COB_STRIP_CMD "$striplib"
-_ACEOF
-
-fi
-
-
-_VAR_RES_DATAROOTDIR=$(eval echo "${datarootdir}" | $SED "s#NONE#${prefix}#")
-_VAR_RES_EXEC_PREFIX=$(eval echo "${exec_prefix}" | $SED "s#NONE#${prefix}#")
-_VAR_RES_PREFIX=$(eval echo "${prefix}")
-_VAR_RES_RESOLVED=$(echo "$COB_CONFIG_DIR" \
- | $SED 's#${exec_prefix}#'"${_VAR_RES_EXEC_PREFIX}"'#' \
- | $SED 's#${datarootdir}#'"${_VAR_RES_DATAROOTDIR}"'#' \
- | $SED 's#${prefix}#'"${_VAR_RES_PREFIX}"'#' \
- | $SED "s#NONE#${ac_default_prefix}#" )
-
-cat >>confdefs.h <<_ACEOF
-#define COB_CONFIG_DIR "$(eval echo "${_VAR_RES_RESOLVED}")"
-_ACEOF
-
-
-unset _VAR_RES_EXEC_PREFIX _VAR_RES_PREFIX _VAR_RES_RESOLVED _VAR_RES_DATAROOTDIR
-
-
-
-_VAR_RES_DATAROOTDIR=$(eval echo "${datarootdir}" | $SED "s#NONE#${prefix}#")
-_VAR_RES_EXEC_PREFIX=$(eval echo "${exec_prefix}" | $SED "s#NONE#${prefix}#")
-_VAR_RES_PREFIX=$(eval echo "${prefix}")
-_VAR_RES_RESOLVED=$(echo "$COB_COPY_DIR" \
- | $SED 's#${exec_prefix}#'"${_VAR_RES_EXEC_PREFIX}"'#' \
- | $SED 's#${datarootdir}#'"${_VAR_RES_DATAROOTDIR}"'#' \
- | $SED 's#${prefix}#'"${_VAR_RES_PREFIX}"'#' \
- | $SED "s#NONE#${ac_default_prefix}#" )
-
-cat >>confdefs.h <<_ACEOF
-#define COB_COPY_DIR "$(eval echo "${_VAR_RES_RESOLVED}")"
-_ACEOF
-
-
-unset _VAR_RES_EXEC_PREFIX _VAR_RES_PREFIX _VAR_RES_RESOLVED _VAR_RES_DATAROOTDIR
-
-
-
-# convert from "make" style to real command
-local_transform=$(echo "$program_transform_name" | $SED -e 's,\$\$,$,')
-
-cobcrun_name="$(echo cobcrun | $SED -e $local_transform)"
-
-cat >>confdefs.h <<_ACEOF
-#define COBCRUN_NAME "$cobcrun_name"
-_ACEOF
-
-unset cobcrun_name
-unset local_transform
-
-
-cat >>confdefs.h <<_ACEOF
-#define COB_BLD_CC "$CC"
-_ACEOF
-
-
-cat >>confdefs.h <<_ACEOF
-#define COB_BLD_CFLAGS "$CFLAGS"
-_ACEOF
-
-
-cat >>confdefs.h <<_ACEOF
-#define COB_BLD_CPPFLAGS "$CPPFLAGS"
-_ACEOF
-
-
-cat >>confdefs.h <<_ACEOF
-#define COB_BLD_LD "$LD"
-_ACEOF
-
-
-cat >>confdefs.h <<_ACEOF
-#define COB_BLD_LDFLAGS "$LDFLAGS"
-_ACEOF
-
-
-cat >>confdefs.h <<_ACEOF
-#define COB_BLD_BUILD "$build"
-_ACEOF
-
-
-
-
- # needed for pre-inst-env
-
-
-
-
-
-
-
-
-
-
-
-
-COB_ENABLE_DEBUG=$enable_debug
- # needed for tests/atlocal
-
-
-COB_BIGENDIAN="$ac_cv_c_bigendian"
-
-
-
-
-
-
-
-
-
-COB_PATCH_LEVEL=$with_patch_level
- # needed for bin/cob-config
-
-ac_config_commands="$ac_config_commands chmod"
-
-
-
-HELP2MAN=${HELP2MAN-"${am_missing_run}help2man"}
-
-
-cat >confcache <<\_ACEOF
-# This file is a shell script that caches the results of configure
-# tests run on this system so they can be shared between configure
-# scripts and configure runs, see configure's option --config-cache.
-# It is not useful on other systems. If it contains results you don't
-# want to keep, you may remove or edit it.
-#
-# config.status only pays attention to the cache file if you give it
-# the --recheck option to rerun configure.
-#
-# `ac_cv_env_foo' variables (set or unset) will be overridden when
-# loading this file, other *unset* `ac_cv_foo' will be assigned the
-# following values.
-
-_ACEOF
-
-# The following way of writing the cache mishandles newlines in values,
-# but we know of no workaround that is simple, portable, and efficient.
-# So, we kill variables containing newlines.
-# Ultrix sh set writes to stderr and can't be redirected directly,
-# and sets the high bit in the cache file unless we assign to the vars.
-(
- for ac_var in `(set) 2>&1 | sed -n 's/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'`; do
- eval ac_val=\$$ac_var
- case $ac_val in #(
- *${as_nl}*)
- case $ac_var in #(
- *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5
-$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;;
- esac
- case $ac_var in #(
- _ | IFS | as_nl) ;; #(
- BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #(
- *) { eval $ac_var=; unset $ac_var;} ;;
- esac ;;
- esac
- done
-
- (set) 2>&1 |
- case $as_nl`(ac_space=' '; set) 2>&1` in #(
- *${as_nl}ac_space=\ *)
- # `set' does not quote correctly, so add quotes: double-quote
- # substitution turns \\\\ into \\, and sed turns \\ into \.
- sed -n \
- "s/'/'\\\\''/g;
- s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p"
- ;; #(
- *)
- # `set' quotes correctly as required by POSIX, so do not add quotes.
- sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p"
- ;;
- esac |
- sort
-) |
- sed '
- /^ac_cv_env_/b end
- t clear
- :clear
- s/^\([^=]*\)=\(.*[{}].*\)$/test "${\1+set}" = set || &/
- t end
- s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/
- :end' >>confcache
-if diff "$cache_file" confcache >/dev/null 2>&1; then :; else
- if test -w "$cache_file"; then
- if test "x$cache_file" != "x/dev/null"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5
-$as_echo "$as_me: updating cache $cache_file" >&6;}
- if test ! -f "$cache_file" || test -h "$cache_file"; then
- cat confcache >"$cache_file"
- else
- case $cache_file in #(
- */* | ?:*)
- mv -f confcache "$cache_file"$$ &&
- mv -f "$cache_file"$$ "$cache_file" ;; #(
- *)
- mv -f confcache "$cache_file" ;;
- esac
- fi
- fi
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file" >&5
-$as_echo "$as_me: not updating unwritable cache $cache_file" >&6;}
- fi
-fi
-rm -f confcache
-
-test "x$prefix" = xNONE && prefix=$ac_default_prefix
-# Let make expand exec_prefix.
-test "x$exec_prefix" = xNONE && exec_prefix='${prefix}'
-
-DEFS=-DHAVE_CONFIG_H
-
-ac_libobjs=
-ac_ltlibobjs=
-U=
-for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue
- # 1. Remove the extension, and $U if already installed.
- ac_script='s/\$U\././;s/\.o$//;s/\.obj$//'
- ac_i=`$as_echo "$ac_i" | sed "$ac_script"`
- # 2. Prepend LIBOBJDIR. When used with automake>=1.10 LIBOBJDIR
- # will be set to the directory where LIBOBJS objects are built.
- as_fn_append ac_libobjs " \${LIBOBJDIR}$ac_i\$U.$ac_objext"
- as_fn_append ac_ltlibobjs " \${LIBOBJDIR}$ac_i"'$U.lo'
-done
-LIBOBJS=$ac_libobjs
-
-LTLIBOBJS=$ac_ltlibobjs
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking that generated files are newer than configure" >&5
-$as_echo_n "checking that generated files are newer than configure... " >&6; }
- if test -n "$am_sleep_pid"; then
- # Hide warnings about reused PIDs.
- wait $am_sleep_pid 2>/dev/null
- fi
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: done" >&5
-$as_echo "done" >&6; }
- if test -n "$EXEEXT"; then
- am__EXEEXT_TRUE=
- am__EXEEXT_FALSE='#'
-else
- am__EXEEXT_TRUE='#'
- am__EXEEXT_FALSE=
-fi
-
-if test -z "${MAKE_HAS_PREREQ_ONLY_TRUE}" && test -z "${MAKE_HAS_PREREQ_ONLY_FALSE}"; then
- as_fn_error $? "conditional \"MAKE_HAS_PREREQ_ONLY\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${AMDEP_TRUE}" && test -z "${AMDEP_FALSE}"; then
- as_fn_error $? "conditional \"AMDEP\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${am__fastdepCC_TRUE}" && test -z "${am__fastdepCC_FALSE}"; then
- as_fn_error $? "conditional \"am__fastdepCC\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-
-if test -z "${CODE_COVERAGE_ENABLED_TRUE}" && test -z "${CODE_COVERAGE_ENABLED_FALSE}"; then
- as_fn_error $? "conditional \"CODE_COVERAGE_ENABLED\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${LOCAL_CJSON_TRUE}" && test -z "${LOCAL_CJSON_FALSE}"; then
- as_fn_error $? "conditional \"LOCAL_CJSON\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${COB_MAKE_IX_TRUE}" && test -z "${COB_MAKE_IX_FALSE}"; then
- as_fn_error $? "conditional \"COB_MAKE_IX\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${COB_MAKE_RUN_BINARIES_TRUE}" && test -z "${COB_MAKE_RUN_BINARIES_FALSE}"; then
- as_fn_error $? "conditional \"COB_MAKE_RUN_BINARIES\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-
-: "${CONFIG_STATUS=./config.status}"
-ac_write_fail=0
-ac_clean_files_save=$ac_clean_files
-ac_clean_files="$ac_clean_files $CONFIG_STATUS"
-{ $as_echo "$as_me:${as_lineno-$LINENO}: creating $CONFIG_STATUS" >&5
-$as_echo "$as_me: creating $CONFIG_STATUS" >&6;}
-as_write_fail=0
-cat >$CONFIG_STATUS <<_ASEOF || as_write_fail=1
-#! $SHELL
-# Generated by $as_me.
-# Run this file to recreate the current configuration.
-# Compiler output produced by configure, useful for debugging
-# configure, is in config.log if it exists.
-
-debug=false
-ac_cs_recheck=false
-ac_cs_silent=false
-
-SHELL=\${CONFIG_SHELL-$SHELL}
-export SHELL
-_ASEOF
-cat >>$CONFIG_STATUS <<\_ASEOF || as_write_fail=1
-## -------------------- ##
-## M4sh Initialization. ##
-## -------------------- ##
-
-# Be more Bourne compatible
-DUALCASE=1; export DUALCASE # for MKS sh
-if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then :
- emulate sh
- NULLCMD=:
- # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which
- # is contrary to our usage. Disable this feature.
- alias -g '${1+"$@"}'='"$@"'
- setopt NO_GLOB_SUBST
-else
- case `(set -o) 2>/dev/null` in #(
- *posix*) :
- set -o posix ;; #(
- *) :
- ;;
-esac
-fi
-
-
-as_nl='
-'
-export as_nl
-# Printing a long string crashes Solaris 7 /usr/bin/printf.
-as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
-as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo
-as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo
-# Prefer a ksh shell builtin over an external printf program on Solaris,
-# but without wasting forks for bash or zsh.
-if test -z "$BASH_VERSION$ZSH_VERSION" \
- && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then
- as_echo='print -r --'
- as_echo_n='print -rn --'
-elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then
- as_echo='printf %s\n'
- as_echo_n='printf %s'
-else
- if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then
- as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"'
- as_echo_n='/usr/ucb/echo -n'
- else
- as_echo_body='eval expr "X$1" : "X\\(.*\\)"'
- as_echo_n_body='eval
- arg=$1;
- case $arg in #(
- *"$as_nl"*)
- expr "X$arg" : "X\\(.*\\)$as_nl";
- arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;;
- esac;
- expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl"
- '
- export as_echo_n_body
- as_echo_n='sh -c $as_echo_n_body as_echo'
- fi
- export as_echo_body
- as_echo='sh -c $as_echo_body as_echo'
-fi
-
-# The user is always right.
-if test "${PATH_SEPARATOR+set}" != set; then
- PATH_SEPARATOR=:
- (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && {
- (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 ||
- PATH_SEPARATOR=';'
- }
-fi
-
-
-# IFS
-# We need space, tab and new line, in precisely that order. Quoting is
-# there to prevent editors from complaining about space-tab.
-# (If _AS_PATH_WALK were called with IFS unset, it would disable word
-# splitting by setting IFS to empty value.)
-IFS=" "" $as_nl"
-
-# Find who we are. Look in the path if we contain no directory separator.
-as_myself=
-case $0 in #((
- *[\\/]* ) as_myself=$0 ;;
- *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-# We did not find ourselves, most probably we were run as `sh COMMAND'
-# in which case we are not to be found in the path.
-if test "x$as_myself" = x; then
- as_myself=$0
-fi
-if test ! -f "$as_myself"; then
- $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2
- exit 1
-fi
-
-# Unset variables that we do not need and which cause bugs (e.g. in
-# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1"
-# suppresses any "Segmentation fault" message there. '((' could
-# trigger a bug in pdksh 5.2.14.
-for as_var in BASH_ENV ENV MAIL MAILPATH
-do eval test x\${$as_var+set} = xset \
- && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || :
-done
-PS1='$ '
-PS2='> '
-PS4='+ '
-
-# NLS nuisances.
-LC_ALL=C
-export LC_ALL
-LANGUAGE=C
-export LANGUAGE
-
-# CDPATH.
-(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
-
-
-# as_fn_error STATUS ERROR [LINENO LOG_FD]
-# ----------------------------------------
-# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are
-# provided, also output the error to LOG_FD, referencing LINENO. Then exit the
-# script with STATUS, using 1 if that was 0.
-as_fn_error ()
-{
- as_status=$1; test $as_status -eq 0 && as_status=1
- if test "$4"; then
- as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4
- fi
- $as_echo "$as_me: error: $2" >&2
- as_fn_exit $as_status
-} # as_fn_error
-
-
-# as_fn_set_status STATUS
-# -----------------------
-# Set $? to STATUS, without forking.
-as_fn_set_status ()
-{
- return $1
-} # as_fn_set_status
-
-# as_fn_exit STATUS
-# -----------------
-# Exit the shell with STATUS, even in a "trap 0" or "set -e" context.
-as_fn_exit ()
-{
- set +e
- as_fn_set_status $1
- exit $1
-} # as_fn_exit
-
-# as_fn_unset VAR
-# ---------------
-# Portably unset VAR.
-as_fn_unset ()
-{
- { eval $1=; unset $1;}
-}
-as_unset=as_fn_unset
-# as_fn_append VAR VALUE
-# ----------------------
-# Append the text in VALUE to the end of the definition contained in VAR. Take
-# advantage of any shell optimizations that allow amortized linear growth over
-# repeated appends, instead of the typical quadratic growth present in naive
-# implementations.
-if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then :
- eval 'as_fn_append ()
- {
- eval $1+=\$2
- }'
-else
- as_fn_append ()
- {
- eval $1=\$$1\$2
- }
-fi # as_fn_append
-
-# as_fn_arith ARG...
-# ------------------
-# Perform arithmetic evaluation on the ARGs, and store the result in the
-# global $as_val. Take advantage of shells that can avoid forks. The arguments
-# must be portable across $(()) and expr.
-if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then :
- eval 'as_fn_arith ()
- {
- as_val=$(( $* ))
- }'
-else
- as_fn_arith ()
- {
- as_val=`expr "$@" || test $? -eq 1`
- }
-fi # as_fn_arith
-
-
-if expr a : '\(a\)' >/dev/null 2>&1 &&
- test "X`expr 00001 : '.*\(...\)'`" = X001; then
- as_expr=expr
-else
- as_expr=false
-fi
-
-if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then
- as_basename=basename
-else
- as_basename=false
-fi
-
-if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then
- as_dirname=dirname
-else
- as_dirname=false
-fi
-
-as_me=`$as_basename -- "$0" ||
-$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \
- X"$0" : 'X\(//\)$' \| \
- X"$0" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X/"$0" |
- sed '/^.*\/\([^/][^/]*\)\/*$/{
- s//\1/
- q
- }
- /^X\/\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\/\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`
-
-# Avoid depending upon Character Ranges.
-as_cr_letters='abcdefghijklmnopqrstuvwxyz'
-as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
-as_cr_Letters=$as_cr_letters$as_cr_LETTERS
-as_cr_digits='0123456789'
-as_cr_alnum=$as_cr_Letters$as_cr_digits
-
-ECHO_C= ECHO_N= ECHO_T=
-case `echo -n x` in #(((((
--n*)
- case `echo 'xy\c'` in
- *c*) ECHO_T=' ';; # ECHO_T is single tab character.
- xy) ECHO_C='\c';;
- *) echo `echo ksh88 bug on AIX 6.1` > /dev/null
- ECHO_T=' ';;
- esac;;
-*)
- ECHO_N='-n';;
-esac
-
-rm -f conf$$ conf$$.exe conf$$.file
-if test -d conf$$.dir; then
- rm -f conf$$.dir/conf$$.file
-else
- rm -f conf$$.dir
- mkdir conf$$.dir 2>/dev/null
-fi
-if (echo >conf$$.file) 2>/dev/null; then
- if ln -s conf$$.file conf$$ 2>/dev/null; then
- as_ln_s='ln -s'
- # ... but there are two gotchas:
- # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail.
- # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable.
- # In both cases, we have to default to `cp -pR'.
- ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe ||
- as_ln_s='cp -pR'
- elif ln conf$$.file conf$$ 2>/dev/null; then
- as_ln_s=ln
- else
- as_ln_s='cp -pR'
- fi
-else
- as_ln_s='cp -pR'
-fi
-rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file
-rmdir conf$$.dir 2>/dev/null
-
-
-# as_fn_mkdir_p
-# -------------
-# Create "$as_dir" as a directory, including parents if necessary.
-as_fn_mkdir_p ()
-{
-
- case $as_dir in #(
- -*) as_dir=./$as_dir;;
- esac
- test -d "$as_dir" || eval $as_mkdir_p || {
- as_dirs=
- while :; do
- case $as_dir in #(
- *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'(
- *) as_qdir=$as_dir;;
- esac
- as_dirs="'$as_qdir' $as_dirs"
- as_dir=`$as_dirname -- "$as_dir" ||
-$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
- X"$as_dir" : 'X\(//\)[^/]' \| \
- X"$as_dir" : 'X\(//\)$' \| \
- X"$as_dir" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X"$as_dir" |
- sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
- s//\1/
- q
- }
- /^X\(\/\/\)[^/].*/{
- s//\1/
- q
- }
- /^X\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`
- test -d "$as_dir" && break
- done
- test -z "$as_dirs" || eval "mkdir $as_dirs"
- } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir"
-
-
-} # as_fn_mkdir_p
-if mkdir -p . 2>/dev/null; then
- as_mkdir_p='mkdir -p "$as_dir"'
-else
- test -d ./-p && rmdir ./-p
- as_mkdir_p=false
-fi
-
-
-# as_fn_executable_p FILE
-# -----------------------
-# Test if FILE is an executable regular file.
-as_fn_executable_p ()
-{
- test -f "$1" && test -x "$1"
-} # as_fn_executable_p
-as_test_x='test -x'
-as_executable_p=as_fn_executable_p
-
-# Sed expression to map a string onto a valid CPP name.
-as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'"
-
-# Sed expression to map a string onto a valid variable name.
-as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'"
-
-
-exec 6>&1
-## ----------------------------------- ##
-## Main body of $CONFIG_STATUS script. ##
-## ----------------------------------- ##
-_ASEOF
-test $as_write_fail = 0 && chmod +x $CONFIG_STATUS || ac_write_fail=1
-
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-# Save the log message, to keep $0 and so on meaningful, and to
-# report actual input values of CONFIG_FILES etc. instead of their
-# values after options handling.
-ac_log="
-This file was extended by GnuCOBOL OSS Consortium patch $as_me 3.2 patch2, which was
-generated by GNU Autoconf 2.69. Invocation command line was
-
- CONFIG_FILES = $CONFIG_FILES
- CONFIG_HEADERS = $CONFIG_HEADERS
- CONFIG_LINKS = $CONFIG_LINKS
- CONFIG_COMMANDS = $CONFIG_COMMANDS
- $ $0 $@
-
-on `(hostname || uname -n) 2>/dev/null | sed 1q`
-"
-
-_ACEOF
-
-case $ac_config_files in *"
-"*) set x $ac_config_files; shift; ac_config_files=$*;;
-esac
-
-case $ac_config_headers in *"
-"*) set x $ac_config_headers; shift; ac_config_headers=$*;;
-esac
-
-
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-# Files that config.status was made for.
-config_files="$ac_config_files"
-config_headers="$ac_config_headers"
-config_commands="$ac_config_commands"
-
-_ACEOF
-
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-ac_cs_usage="\
-\`$as_me' instantiates files and other configuration actions
-from templates according to the current configuration. Unless the files
-and actions are specified as TAGs, all are instantiated by default.
-
-Usage: $0 [OPTION]... [TAG]...
-
- -h, --help print this help, then exit
- -V, --version print version number and configuration settings, then exit
- --config print configuration, then exit
- -q, --quiet, --silent
- do not print progress messages
- -d, --debug don't remove temporary files
- --recheck update $as_me by reconfiguring in the same conditions
- --file=FILE[:TEMPLATE]
- instantiate the configuration file FILE
- --header=FILE[:TEMPLATE]
- instantiate the configuration header FILE
-
-Configuration files:
-$config_files
-
-Configuration headers:
-$config_headers
-
-Configuration commands:
-$config_commands
-
-Report bugs to <ws-opensource-cobol-contact@osscons.jp>.
-GnuCOBOL OSS Consortium patch home page: <https://github.com/opensourcecobol/gnucobol-osscons-patch>."
-
-_ACEOF
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`"
-ac_cs_version="\\
-GnuCOBOL OSS Consortium patch config.status 3.2 patch2
-configured by $0, generated by GNU Autoconf 2.69,
- with options \\"\$ac_cs_config\\"
-
-Copyright (C) 2012 Free Software Foundation, Inc.
-This config.status script is free software; the Free Software Foundation
-gives unlimited permission to copy, distribute and modify it."
-
-ac_pwd='$ac_pwd'
-srcdir='$srcdir'
-INSTALL='$INSTALL'
-MKDIR_P='$MKDIR_P'
-AWK='$AWK'
-test -n "\$AWK" || AWK=awk
-_ACEOF
-
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-# The default lists apply if the user does not specify any file.
-ac_need_defaults=:
-while test $# != 0
-do
- case $1 in
- --*=?*)
- ac_option=`expr "X$1" : 'X\([^=]*\)='`
- ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'`
- ac_shift=:
- ;;
- --*=)
- ac_option=`expr "X$1" : 'X\([^=]*\)='`
- ac_optarg=
- ac_shift=:
- ;;
- *)
- ac_option=$1
- ac_optarg=$2
- ac_shift=shift
- ;;
- esac
-
- case $ac_option in
- # Handling of the options.
- -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r)
- ac_cs_recheck=: ;;
- --version | --versio | --versi | --vers | --ver | --ve | --v | -V )
- $as_echo "$ac_cs_version"; exit ;;
- --config | --confi | --conf | --con | --co | --c )
- $as_echo "$ac_cs_config"; exit ;;
- --debug | --debu | --deb | --de | --d | -d )
- debug=: ;;
- --file | --fil | --fi | --f )
- $ac_shift
- case $ac_optarg in
- *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;;
- '') as_fn_error $? "missing file argument" ;;
- esac
- as_fn_append CONFIG_FILES " '$ac_optarg'"
- ac_need_defaults=false;;
- --header | --heade | --head | --hea )
- $ac_shift
- case $ac_optarg in
- *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;;
- esac
- as_fn_append CONFIG_HEADERS " '$ac_optarg'"
- ac_need_defaults=false;;
- --he | --h)
- # Conflict between --help and --header
- as_fn_error $? "ambiguous option: \`$1'
-Try \`$0 --help' for more information.";;
- --help | --hel | -h )
- $as_echo "$ac_cs_usage"; exit ;;
- -q | -quiet | --quiet | --quie | --qui | --qu | --q \
- | -silent | --silent | --silen | --sile | --sil | --si | --s)
- ac_cs_silent=: ;;
-
- # This is an error.
- -*) as_fn_error $? "unrecognized option: \`$1'
-Try \`$0 --help' for more information." ;;
-
- *) as_fn_append ac_config_targets " $1"
- ac_need_defaults=false ;;
-
- esac
- shift
-done
-
-ac_configure_extra_args=
-
-if $ac_cs_silent; then
- exec 6>/dev/null
- ac_configure_extra_args="$ac_configure_extra_args --silent"
-fi
-
-_ACEOF
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-if \$ac_cs_recheck; then
- set X $SHELL '$0' $ac_configure_args \$ac_configure_extra_args --no-create --no-recursion
- shift
- \$as_echo "running CONFIG_SHELL=$SHELL \$*" >&6
- CONFIG_SHELL='$SHELL'
- export CONFIG_SHELL
- exec "\$@"
-fi
-
-_ACEOF
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-exec 5>>config.log
-{
- echo
- sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX
-## Running $as_me. ##
-_ASBOX
- $as_echo "$ac_log"
-} >&5
-
-_ACEOF
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-#
-# INIT-COMMANDS
-#
-
-AMDEP_TRUE="$AMDEP_TRUE" MAKE="${MAKE-make}"
-
-
-# The HP-UX ksh and POSIX shell print the target directory to stdout
-# if CDPATH is set.
-(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
-
-sed_quote_subst='$sed_quote_subst'
-double_quote_subst='$double_quote_subst'
-delay_variable_subst='$delay_variable_subst'
-macro_version='`$ECHO "$macro_version" | $SED "$delay_single_quote_subst"`'
-macro_revision='`$ECHO "$macro_revision" | $SED "$delay_single_quote_subst"`'
-AS='`$ECHO "$AS" | $SED "$delay_single_quote_subst"`'
-DLLTOOL='`$ECHO "$DLLTOOL" | $SED "$delay_single_quote_subst"`'
-OBJDUMP='`$ECHO "$OBJDUMP" | $SED "$delay_single_quote_subst"`'
-enable_shared='`$ECHO "$enable_shared" | $SED "$delay_single_quote_subst"`'
-enable_static='`$ECHO "$enable_static" | $SED "$delay_single_quote_subst"`'
-pic_mode='`$ECHO "$pic_mode" | $SED "$delay_single_quote_subst"`'
-enable_fast_install='`$ECHO "$enable_fast_install" | $SED "$delay_single_quote_subst"`'
-shared_archive_member_spec='`$ECHO "$shared_archive_member_spec" | $SED "$delay_single_quote_subst"`'
-SHELL='`$ECHO "$SHELL" | $SED "$delay_single_quote_subst"`'
-ECHO='`$ECHO "$ECHO" | $SED "$delay_single_quote_subst"`'
-PATH_SEPARATOR='`$ECHO "$PATH_SEPARATOR" | $SED "$delay_single_quote_subst"`'
-host_alias='`$ECHO "$host_alias" | $SED "$delay_single_quote_subst"`'
-host='`$ECHO "$host" | $SED "$delay_single_quote_subst"`'
-host_os='`$ECHO "$host_os" | $SED "$delay_single_quote_subst"`'
-build_alias='`$ECHO "$build_alias" | $SED "$delay_single_quote_subst"`'
-build='`$ECHO "$build" | $SED "$delay_single_quote_subst"`'
-build_os='`$ECHO "$build_os" | $SED "$delay_single_quote_subst"`'
-SED='`$ECHO "$SED" | $SED "$delay_single_quote_subst"`'
-Xsed='`$ECHO "$Xsed" | $SED "$delay_single_quote_subst"`'
-GREP='`$ECHO "$GREP" | $SED "$delay_single_quote_subst"`'
-EGREP='`$ECHO "$EGREP" | $SED "$delay_single_quote_subst"`'
-FGREP='`$ECHO "$FGREP" | $SED "$delay_single_quote_subst"`'
-LD='`$ECHO "$LD" | $SED "$delay_single_quote_subst"`'
-NM='`$ECHO "$NM" | $SED "$delay_single_quote_subst"`'
-LN_S='`$ECHO "$LN_S" | $SED "$delay_single_quote_subst"`'
-max_cmd_len='`$ECHO "$max_cmd_len" | $SED "$delay_single_quote_subst"`'
-ac_objext='`$ECHO "$ac_objext" | $SED "$delay_single_quote_subst"`'
-exeext='`$ECHO "$exeext" | $SED "$delay_single_quote_subst"`'
-lt_unset='`$ECHO "$lt_unset" | $SED "$delay_single_quote_subst"`'
-lt_SP2NL='`$ECHO "$lt_SP2NL" | $SED "$delay_single_quote_subst"`'
-lt_NL2SP='`$ECHO "$lt_NL2SP" | $SED "$delay_single_quote_subst"`'
-lt_cv_to_host_file_cmd='`$ECHO "$lt_cv_to_host_file_cmd" | $SED "$delay_single_quote_subst"`'
-lt_cv_to_tool_file_cmd='`$ECHO "$lt_cv_to_tool_file_cmd" | $SED "$delay_single_quote_subst"`'
-reload_flag='`$ECHO "$reload_flag" | $SED "$delay_single_quote_subst"`'
-reload_cmds='`$ECHO "$reload_cmds" | $SED "$delay_single_quote_subst"`'
-deplibs_check_method='`$ECHO "$deplibs_check_method" | $SED "$delay_single_quote_subst"`'
-file_magic_cmd='`$ECHO "$file_magic_cmd" | $SED "$delay_single_quote_subst"`'
-file_magic_glob='`$ECHO "$file_magic_glob" | $SED "$delay_single_quote_subst"`'
-want_nocaseglob='`$ECHO "$want_nocaseglob" | $SED "$delay_single_quote_subst"`'
-sharedlib_from_linklib_cmd='`$ECHO "$sharedlib_from_linklib_cmd" | $SED "$delay_single_quote_subst"`'
-AR='`$ECHO "$AR" | $SED "$delay_single_quote_subst"`'
-lt_ar_flags='`$ECHO "$lt_ar_flags" | $SED "$delay_single_quote_subst"`'
-AR_FLAGS='`$ECHO "$AR_FLAGS" | $SED "$delay_single_quote_subst"`'
-archiver_list_spec='`$ECHO "$archiver_list_spec" | $SED "$delay_single_quote_subst"`'
-STRIP='`$ECHO "$STRIP" | $SED "$delay_single_quote_subst"`'
-RANLIB='`$ECHO "$RANLIB" | $SED "$delay_single_quote_subst"`'
-old_postinstall_cmds='`$ECHO "$old_postinstall_cmds" | $SED "$delay_single_quote_subst"`'
-old_postuninstall_cmds='`$ECHO "$old_postuninstall_cmds" | $SED "$delay_single_quote_subst"`'
-old_archive_cmds='`$ECHO "$old_archive_cmds" | $SED "$delay_single_quote_subst"`'
-lock_old_archive_extraction='`$ECHO "$lock_old_archive_extraction" | $SED "$delay_single_quote_subst"`'
-CC='`$ECHO "$CC" | $SED "$delay_single_quote_subst"`'
-CFLAGS='`$ECHO "$CFLAGS" | $SED "$delay_single_quote_subst"`'
-compiler='`$ECHO "$compiler" | $SED "$delay_single_quote_subst"`'
-GCC='`$ECHO "$GCC" | $SED "$delay_single_quote_subst"`'
-lt_cv_sys_global_symbol_pipe='`$ECHO "$lt_cv_sys_global_symbol_pipe" | $SED "$delay_single_quote_subst"`'
-lt_cv_sys_global_symbol_to_cdecl='`$ECHO "$lt_cv_sys_global_symbol_to_cdecl" | $SED "$delay_single_quote_subst"`'
-lt_cv_sys_global_symbol_to_import='`$ECHO "$lt_cv_sys_global_symbol_to_import" | $SED "$delay_single_quote_subst"`'
-lt_cv_sys_global_symbol_to_c_name_address='`$ECHO "$lt_cv_sys_global_symbol_to_c_name_address" | $SED "$delay_single_quote_subst"`'
-lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='`$ECHO "$lt_cv_sys_global_symbol_to_c_name_address_lib_prefix" | $SED "$delay_single_quote_subst"`'
-lt_cv_nm_interface='`$ECHO "$lt_cv_nm_interface" | $SED "$delay_single_quote_subst"`'
-nm_file_list_spec='`$ECHO "$nm_file_list_spec" | $SED "$delay_single_quote_subst"`'
-lt_sysroot='`$ECHO "$lt_sysroot" | $SED "$delay_single_quote_subst"`'
-lt_cv_truncate_bin='`$ECHO "$lt_cv_truncate_bin" | $SED "$delay_single_quote_subst"`'
-objdir='`$ECHO "$objdir" | $SED "$delay_single_quote_subst"`'
-MAGIC_CMD='`$ECHO "$MAGIC_CMD" | $SED "$delay_single_quote_subst"`'
-lt_prog_compiler_no_builtin_flag='`$ECHO "$lt_prog_compiler_no_builtin_flag" | $SED "$delay_single_quote_subst"`'
-lt_prog_compiler_pic='`$ECHO "$lt_prog_compiler_pic" | $SED "$delay_single_quote_subst"`'
-lt_prog_compiler_wl='`$ECHO "$lt_prog_compiler_wl" | $SED "$delay_single_quote_subst"`'
-lt_prog_compiler_static='`$ECHO "$lt_prog_compiler_static" | $SED "$delay_single_quote_subst"`'
-lt_cv_prog_compiler_c_o='`$ECHO "$lt_cv_prog_compiler_c_o" | $SED "$delay_single_quote_subst"`'
-need_locks='`$ECHO "$need_locks" | $SED "$delay_single_quote_subst"`'
-MANIFEST_TOOL='`$ECHO "$MANIFEST_TOOL" | $SED "$delay_single_quote_subst"`'
-DSYMUTIL='`$ECHO "$DSYMUTIL" | $SED "$delay_single_quote_subst"`'
-NMEDIT='`$ECHO "$NMEDIT" | $SED "$delay_single_quote_subst"`'
-LIPO='`$ECHO "$LIPO" | $SED "$delay_single_quote_subst"`'
-OTOOL='`$ECHO "$OTOOL" | $SED "$delay_single_quote_subst"`'
-OTOOL64='`$ECHO "$OTOOL64" | $SED "$delay_single_quote_subst"`'
-libext='`$ECHO "$libext" | $SED "$delay_single_quote_subst"`'
-shrext_cmds='`$ECHO "$shrext_cmds" | $SED "$delay_single_quote_subst"`'
-extract_expsyms_cmds='`$ECHO "$extract_expsyms_cmds" | $SED "$delay_single_quote_subst"`'
-archive_cmds_need_lc='`$ECHO "$archive_cmds_need_lc" | $SED "$delay_single_quote_subst"`'
-enable_shared_with_static_runtimes='`$ECHO "$enable_shared_with_static_runtimes" | $SED "$delay_single_quote_subst"`'
-export_dynamic_flag_spec='`$ECHO "$export_dynamic_flag_spec" | $SED "$delay_single_quote_subst"`'
-whole_archive_flag_spec='`$ECHO "$whole_archive_flag_spec" | $SED "$delay_single_quote_subst"`'
-compiler_needs_object='`$ECHO "$compiler_needs_object" | $SED "$delay_single_quote_subst"`'
-old_archive_from_new_cmds='`$ECHO "$old_archive_from_new_cmds" | $SED "$delay_single_quote_subst"`'
-old_archive_from_expsyms_cmds='`$ECHO "$old_archive_from_expsyms_cmds" | $SED "$delay_single_quote_subst"`'
-archive_cmds='`$ECHO "$archive_cmds" | $SED "$delay_single_quote_subst"`'
-archive_expsym_cmds='`$ECHO "$archive_expsym_cmds" | $SED "$delay_single_quote_subst"`'
-module_cmds='`$ECHO "$module_cmds" | $SED "$delay_single_quote_subst"`'
-module_expsym_cmds='`$ECHO "$module_expsym_cmds" | $SED "$delay_single_quote_subst"`'
-with_gnu_ld='`$ECHO "$with_gnu_ld" | $SED "$delay_single_quote_subst"`'
-allow_undefined_flag='`$ECHO "$allow_undefined_flag" | $SED "$delay_single_quote_subst"`'
-no_undefined_flag='`$ECHO "$no_undefined_flag" | $SED "$delay_single_quote_subst"`'
-hardcode_libdir_flag_spec='`$ECHO "$hardcode_libdir_flag_spec" | $SED "$delay_single_quote_subst"`'
-hardcode_libdir_separator='`$ECHO "$hardcode_libdir_separator" | $SED "$delay_single_quote_subst"`'
-hardcode_direct='`$ECHO "$hardcode_direct" | $SED "$delay_single_quote_subst"`'
-hardcode_direct_absolute='`$ECHO "$hardcode_direct_absolute" | $SED "$delay_single_quote_subst"`'
-hardcode_minus_L='`$ECHO "$hardcode_minus_L" | $SED "$delay_single_quote_subst"`'
-hardcode_shlibpath_var='`$ECHO "$hardcode_shlibpath_var" | $SED "$delay_single_quote_subst"`'
-hardcode_automatic='`$ECHO "$hardcode_automatic" | $SED "$delay_single_quote_subst"`'
-inherit_rpath='`$ECHO "$inherit_rpath" | $SED "$delay_single_quote_subst"`'
-link_all_deplibs='`$ECHO "$link_all_deplibs" | $SED "$delay_single_quote_subst"`'
-always_export_symbols='`$ECHO "$always_export_symbols" | $SED "$delay_single_quote_subst"`'
-export_symbols_cmds='`$ECHO "$export_symbols_cmds" | $SED "$delay_single_quote_subst"`'
-exclude_expsyms='`$ECHO "$exclude_expsyms" | $SED "$delay_single_quote_subst"`'
-include_expsyms='`$ECHO "$include_expsyms" | $SED "$delay_single_quote_subst"`'
-prelink_cmds='`$ECHO "$prelink_cmds" | $SED "$delay_single_quote_subst"`'
-postlink_cmds='`$ECHO "$postlink_cmds" | $SED "$delay_single_quote_subst"`'
-file_list_spec='`$ECHO "$file_list_spec" | $SED "$delay_single_quote_subst"`'
-variables_saved_for_relink='`$ECHO "$variables_saved_for_relink" | $SED "$delay_single_quote_subst"`'
-need_lib_prefix='`$ECHO "$need_lib_prefix" | $SED "$delay_single_quote_subst"`'
-need_version='`$ECHO "$need_version" | $SED "$delay_single_quote_subst"`'
-version_type='`$ECHO "$version_type" | $SED "$delay_single_quote_subst"`'
-runpath_var='`$ECHO "$runpath_var" | $SED "$delay_single_quote_subst"`'
-shlibpath_var='`$ECHO "$shlibpath_var" | $SED "$delay_single_quote_subst"`'
-shlibpath_overrides_runpath='`$ECHO "$shlibpath_overrides_runpath" | $SED "$delay_single_quote_subst"`'
-libname_spec='`$ECHO "$libname_spec" | $SED "$delay_single_quote_subst"`'
-library_names_spec='`$ECHO "$library_names_spec" | $SED "$delay_single_quote_subst"`'
-soname_spec='`$ECHO "$soname_spec" | $SED "$delay_single_quote_subst"`'
-install_override_mode='`$ECHO "$install_override_mode" | $SED "$delay_single_quote_subst"`'
-postinstall_cmds='`$ECHO "$postinstall_cmds" | $SED "$delay_single_quote_subst"`'
-postuninstall_cmds='`$ECHO "$postuninstall_cmds" | $SED "$delay_single_quote_subst"`'
-finish_cmds='`$ECHO "$finish_cmds" | $SED "$delay_single_quote_subst"`'
-finish_eval='`$ECHO "$finish_eval" | $SED "$delay_single_quote_subst"`'
-hardcode_into_libs='`$ECHO "$hardcode_into_libs" | $SED "$delay_single_quote_subst"`'
-sys_lib_search_path_spec='`$ECHO "$sys_lib_search_path_spec" | $SED "$delay_single_quote_subst"`'
-configure_time_dlsearch_path='`$ECHO "$configure_time_dlsearch_path" | $SED "$delay_single_quote_subst"`'
-configure_time_lt_sys_library_path='`$ECHO "$configure_time_lt_sys_library_path" | $SED "$delay_single_quote_subst"`'
-hardcode_action='`$ECHO "$hardcode_action" | $SED "$delay_single_quote_subst"`'
-enable_dlopen='`$ECHO "$enable_dlopen" | $SED "$delay_single_quote_subst"`'
-enable_dlopen_self='`$ECHO "$enable_dlopen_self" | $SED "$delay_single_quote_subst"`'
-enable_dlopen_self_static='`$ECHO "$enable_dlopen_self_static" | $SED "$delay_single_quote_subst"`'
-old_striplib='`$ECHO "$old_striplib" | $SED "$delay_single_quote_subst"`'
-striplib='`$ECHO "$striplib" | $SED "$delay_single_quote_subst"`'
-LD_RC='`$ECHO "$LD_RC" | $SED "$delay_single_quote_subst"`'
-reload_flag_RC='`$ECHO "$reload_flag_RC" | $SED "$delay_single_quote_subst"`'
-reload_cmds_RC='`$ECHO "$reload_cmds_RC" | $SED "$delay_single_quote_subst"`'
-old_archive_cmds_RC='`$ECHO "$old_archive_cmds_RC" | $SED "$delay_single_quote_subst"`'
-compiler_RC='`$ECHO "$compiler_RC" | $SED "$delay_single_quote_subst"`'
-GCC_RC='`$ECHO "$GCC_RC" | $SED "$delay_single_quote_subst"`'
-lt_prog_compiler_no_builtin_flag_RC='`$ECHO "$lt_prog_compiler_no_builtin_flag_RC" | $SED "$delay_single_quote_subst"`'
-lt_prog_compiler_pic_RC='`$ECHO "$lt_prog_compiler_pic_RC" | $SED "$delay_single_quote_subst"`'
-lt_prog_compiler_wl_RC='`$ECHO "$lt_prog_compiler_wl_RC" | $SED "$delay_single_quote_subst"`'
-lt_prog_compiler_static_RC='`$ECHO "$lt_prog_compiler_static_RC" | $SED "$delay_single_quote_subst"`'
-lt_cv_prog_compiler_c_o_RC='`$ECHO "$lt_cv_prog_compiler_c_o_RC" | $SED "$delay_single_quote_subst"`'
-archive_cmds_need_lc_RC='`$ECHO "$archive_cmds_need_lc_RC" | $SED "$delay_single_quote_subst"`'
-enable_shared_with_static_runtimes_RC='`$ECHO "$enable_shared_with_static_runtimes_RC" | $SED "$delay_single_quote_subst"`'
-export_dynamic_flag_spec_RC='`$ECHO "$export_dynamic_flag_spec_RC" | $SED "$delay_single_quote_subst"`'
-whole_archive_flag_spec_RC='`$ECHO "$whole_archive_flag_spec_RC" | $SED "$delay_single_quote_subst"`'
-compiler_needs_object_RC='`$ECHO "$compiler_needs_object_RC" | $SED "$delay_single_quote_subst"`'
-old_archive_from_new_cmds_RC='`$ECHO "$old_archive_from_new_cmds_RC" | $SED "$delay_single_quote_subst"`'
-old_archive_from_expsyms_cmds_RC='`$ECHO "$old_archive_from_expsyms_cmds_RC" | $SED "$delay_single_quote_subst"`'
-archive_cmds_RC='`$ECHO "$archive_cmds_RC" | $SED "$delay_single_quote_subst"`'
-archive_expsym_cmds_RC='`$ECHO "$archive_expsym_cmds_RC" | $SED "$delay_single_quote_subst"`'
-module_cmds_RC='`$ECHO "$module_cmds_RC" | $SED "$delay_single_quote_subst"`'
-module_expsym_cmds_RC='`$ECHO "$module_expsym_cmds_RC" | $SED "$delay_single_quote_subst"`'
-with_gnu_ld_RC='`$ECHO "$with_gnu_ld_RC" | $SED "$delay_single_quote_subst"`'
-allow_undefined_flag_RC='`$ECHO "$allow_undefined_flag_RC" | $SED "$delay_single_quote_subst"`'
-no_undefined_flag_RC='`$ECHO "$no_undefined_flag_RC" | $SED "$delay_single_quote_subst"`'
-hardcode_libdir_flag_spec_RC='`$ECHO "$hardcode_libdir_flag_spec_RC" | $SED "$delay_single_quote_subst"`'
-hardcode_libdir_separator_RC='`$ECHO "$hardcode_libdir_separator_RC" | $SED "$delay_single_quote_subst"`'
-hardcode_direct_RC='`$ECHO "$hardcode_direct_RC" | $SED "$delay_single_quote_subst"`'
-hardcode_direct_absolute_RC='`$ECHO "$hardcode_direct_absolute_RC" | $SED "$delay_single_quote_subst"`'
-hardcode_minus_L_RC='`$ECHO "$hardcode_minus_L_RC" | $SED "$delay_single_quote_subst"`'
-hardcode_shlibpath_var_RC='`$ECHO "$hardcode_shlibpath_var_RC" | $SED "$delay_single_quote_subst"`'
-hardcode_automatic_RC='`$ECHO "$hardcode_automatic_RC" | $SED "$delay_single_quote_subst"`'
-inherit_rpath_RC='`$ECHO "$inherit_rpath_RC" | $SED "$delay_single_quote_subst"`'
-link_all_deplibs_RC='`$ECHO "$link_all_deplibs_RC" | $SED "$delay_single_quote_subst"`'
-always_export_symbols_RC='`$ECHO "$always_export_symbols_RC" | $SED "$delay_single_quote_subst"`'
-export_symbols_cmds_RC='`$ECHO "$export_symbols_cmds_RC" | $SED "$delay_single_quote_subst"`'
-exclude_expsyms_RC='`$ECHO "$exclude_expsyms_RC" | $SED "$delay_single_quote_subst"`'
-include_expsyms_RC='`$ECHO "$include_expsyms_RC" | $SED "$delay_single_quote_subst"`'
-prelink_cmds_RC='`$ECHO "$prelink_cmds_RC" | $SED "$delay_single_quote_subst"`'
-postlink_cmds_RC='`$ECHO "$postlink_cmds_RC" | $SED "$delay_single_quote_subst"`'
-file_list_spec_RC='`$ECHO "$file_list_spec_RC" | $SED "$delay_single_quote_subst"`'
-hardcode_action_RC='`$ECHO "$hardcode_action_RC" | $SED "$delay_single_quote_subst"`'
-
-LTCC='$LTCC'
-LTCFLAGS='$LTCFLAGS'
-compiler='$compiler_DEFAULT'
-
-# A function that is used when there is no print builtin or printf.
-func_fallback_echo ()
-{
- eval 'cat <<_LTECHO_EOF
-\$1
-_LTECHO_EOF'
-}
-
-# Quote evaled strings.
-for var in AS \
-DLLTOOL \
-OBJDUMP \
-SHELL \
-ECHO \
-PATH_SEPARATOR \
-SED \
-GREP \
-EGREP \
-FGREP \
-LD \
-NM \
-LN_S \
-lt_SP2NL \
-lt_NL2SP \
-reload_flag \
-deplibs_check_method \
-file_magic_cmd \
-file_magic_glob \
-want_nocaseglob \
-sharedlib_from_linklib_cmd \
-AR \
-archiver_list_spec \
-STRIP \
-RANLIB \
-CC \
-CFLAGS \
-compiler \
-lt_cv_sys_global_symbol_pipe \
-lt_cv_sys_global_symbol_to_cdecl \
-lt_cv_sys_global_symbol_to_import \
-lt_cv_sys_global_symbol_to_c_name_address \
-lt_cv_sys_global_symbol_to_c_name_address_lib_prefix \
-lt_cv_nm_interface \
-nm_file_list_spec \
-lt_cv_truncate_bin \
-lt_prog_compiler_no_builtin_flag \
-lt_prog_compiler_pic \
-lt_prog_compiler_wl \
-lt_prog_compiler_static \
-lt_cv_prog_compiler_c_o \
-need_locks \
-MANIFEST_TOOL \
-DSYMUTIL \
-NMEDIT \
-LIPO \
-OTOOL \
-OTOOL64 \
-shrext_cmds \
-export_dynamic_flag_spec \
-whole_archive_flag_spec \
-compiler_needs_object \
-with_gnu_ld \
-allow_undefined_flag \
-no_undefined_flag \
-hardcode_libdir_flag_spec \
-hardcode_libdir_separator \
-exclude_expsyms \
-include_expsyms \
-file_list_spec \
-variables_saved_for_relink \
-libname_spec \
-library_names_spec \
-soname_spec \
-install_override_mode \
-finish_eval \
-old_striplib \
-striplib \
-LD_RC \
-reload_flag_RC \
-compiler_RC \
-lt_prog_compiler_no_builtin_flag_RC \
-lt_prog_compiler_pic_RC \
-lt_prog_compiler_wl_RC \
-lt_prog_compiler_static_RC \
-lt_cv_prog_compiler_c_o_RC \
-export_dynamic_flag_spec_RC \
-whole_archive_flag_spec_RC \
-compiler_needs_object_RC \
-with_gnu_ld_RC \
-allow_undefined_flag_RC \
-no_undefined_flag_RC \
-hardcode_libdir_flag_spec_RC \
-hardcode_libdir_separator_RC \
-exclude_expsyms_RC \
-include_expsyms_RC \
-file_list_spec_RC; do
- case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in
- *[\\\\\\\`\\"\\\$]*)
- eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED \\"\\\$sed_quote_subst\\"\\\`\\\\\\"" ## exclude from sc_prohibit_nested_quotes
- ;;
- *)
- eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\""
- ;;
- esac
-done
-
-# Double-quote double-evaled strings.
-for var in reload_cmds \
-old_postinstall_cmds \
-old_postuninstall_cmds \
-old_archive_cmds \
-extract_expsyms_cmds \
-old_archive_from_new_cmds \
-old_archive_from_expsyms_cmds \
-archive_cmds \
-archive_expsym_cmds \
-module_cmds \
-module_expsym_cmds \
-export_symbols_cmds \
-prelink_cmds \
-postlink_cmds \
-postinstall_cmds \
-postuninstall_cmds \
-finish_cmds \
-sys_lib_search_path_spec \
-configure_time_dlsearch_path \
-configure_time_lt_sys_library_path \
-reload_cmds_RC \
-old_archive_cmds_RC \
-old_archive_from_new_cmds_RC \
-old_archive_from_expsyms_cmds_RC \
-archive_cmds_RC \
-archive_expsym_cmds_RC \
-module_cmds_RC \
-module_expsym_cmds_RC \
-export_symbols_cmds_RC \
-prelink_cmds_RC \
-postlink_cmds_RC; do
- case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in
- *[\\\\\\\`\\"\\\$]*)
- eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED -e \\"\\\$double_quote_subst\\" -e \\"\\\$sed_quote_subst\\" -e \\"\\\$delay_variable_subst\\"\\\`\\\\\\"" ## exclude from sc_prohibit_nested_quotes
- ;;
- *)
- eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\""
- ;;
- esac
-done
-
-ac_aux_dir='$ac_aux_dir'
-
-# See if we are running on zsh, and set the options that allow our
-# commands through without removal of \ escapes INIT.
-if test -n "\${ZSH_VERSION+set}"; then
- setopt NO_GLOB_SUBST
-fi
-
-
- PACKAGE='$PACKAGE'
- VERSION='$VERSION'
- RM='$RM'
- ofile='$ofile'
-
-
-
-
-
-# Capture the value of obsolete ALL_LINGUAS because we need it to compute
- # POFILES, UPDATEPOFILES, DUMMYPOFILES, GMOFILES, CATALOGS.
- OBSOLETE_ALL_LINGUAS="$ALL_LINGUAS"
- # Capture the value of LINGUAS because we need it to compute CATALOGS.
- LINGUAS="${LINGUAS-%UNSET%}"
-
-
-_ACEOF
-
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-
-# Handling of arguments.
-for ac_config_target in $ac_config_targets
-do
- case $ac_config_target in
- "config.h") CONFIG_HEADERS="$CONFIG_HEADERS config.h" ;;
- "tests/atconfig") CONFIG_COMMANDS="$CONFIG_COMMANDS tests/atconfig" ;;
- "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;;
- "libcob/Makefile") CONFIG_FILES="$CONFIG_FILES libcob/Makefile" ;;
- "lib/Makefile") CONFIG_FILES="$CONFIG_FILES lib/Makefile" ;;
- "cobc/Makefile") CONFIG_FILES="$CONFIG_FILES cobc/Makefile" ;;
- "bin/Makefile") CONFIG_FILES="$CONFIG_FILES bin/Makefile" ;;
- "po/Makefile.in") CONFIG_FILES="$CONFIG_FILES po/Makefile.in" ;;
- "doc/Makefile") CONFIG_FILES="$CONFIG_FILES doc/Makefile" ;;
- "config/Makefile") CONFIG_FILES="$CONFIG_FILES config/Makefile" ;;
- "copy/Makefile") CONFIG_FILES="$CONFIG_FILES copy/Makefile" ;;
- "tests/Makefile") CONFIG_FILES="$CONFIG_FILES tests/Makefile" ;;
- "tests/cobol85/Makefile") CONFIG_FILES="$CONFIG_FILES tests/cobol85/Makefile" ;;
- "extras/Makefile") CONFIG_FILES="$CONFIG_FILES extras/Makefile" ;;
- "bin/cob-config") CONFIG_FILES="$CONFIG_FILES bin/cob-config" ;;
- "pre-inst-env") CONFIG_FILES="$CONFIG_FILES pre-inst-env:build_aux/pre-inst-env.in" ;;
- "tests/atlocal") CONFIG_FILES="$CONFIG_FILES tests/atlocal" ;;
- "tests/run_prog_manual.sh") CONFIG_FILES="$CONFIG_FILES tests/run_prog_manual.sh" ;;
- "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;;
- "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;;
- "po-directories") CONFIG_COMMANDS="$CONFIG_COMMANDS po-directories" ;;
- "chmod") CONFIG_COMMANDS="$CONFIG_COMMANDS chmod" ;;
-
- *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;;
- esac
-done
-
-
-# If the user did not use the arguments to specify the items to instantiate,
-# then the envvar interface is used. Set only those that are not.
-# We use the long form for the default assignment because of an extremely
-# bizarre bug on SunOS 4.1.3.
-if $ac_need_defaults; then
- test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files
- test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers
- test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands
-fi
-
-# Have a temporary directory for convenience. Make it in the build tree
-# simply because there is no reason against having it here, and in addition,
-# creating and moving files from /tmp can sometimes cause problems.
-# Hook for its removal unless debugging.
-# Note that there is a small window in which the directory will not be cleaned:
-# after its creation but before its name has been assigned to `$tmp'.
-$debug ||
-{
- tmp= ac_tmp=
- trap 'exit_status=$?
- : "${ac_tmp:=$tmp}"
- { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status
-' 0
- trap 'as_fn_exit 1' 1 2 13 15
-}
-# Create a (secure) tmp directory for tmp files.
-
-{
- tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` &&
- test -d "$tmp"
-} ||
-{
- tmp=./conf$$-$RANDOM
- (umask 077 && mkdir "$tmp")
-} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5
-ac_tmp=$tmp
-
-# Set up the scripts for CONFIG_FILES section.
-# No need to generate them if there are no CONFIG_FILES.
-# This happens for instance with `./config.status config.h'.
-if test -n "$CONFIG_FILES"; then
-
-
-ac_cr=`echo X | tr X '\015'`
-# On cygwin, bash can eat \r inside `` if the user requested igncr.
-# But we know of no other shell where ac_cr would be empty at this
-# point, so we can use a bashism as a fallback.
-if test "x$ac_cr" = x; then
- eval ac_cr=\$\'\\r\'
-fi
-ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' </dev/null 2>/dev/null`
-if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then
- ac_cs_awk_cr='\\r'
-else
- ac_cs_awk_cr=$ac_cr
-fi
-
-echo 'BEGIN {' >"$ac_tmp/subs1.awk" &&
-_ACEOF
-
-
-{
- echo "cat >conf$$subs.awk <<_ACEOF" &&
- echo "$ac_subst_vars" | sed 's/.*/&!$&$ac_delim/' &&
- echo "_ACEOF"
-} >conf$$subs.sh ||
- as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5
-ac_delim_num=`echo "$ac_subst_vars" | grep -c '^'`
-ac_delim='%!_!# '
-for ac_last_try in false false false false false :; do
- . ./conf$$subs.sh ||
- as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5
-
- ac_delim_n=`sed -n "s/.*$ac_delim\$/X/p" conf$$subs.awk | grep -c X`
- if test $ac_delim_n = $ac_delim_num; then
- break
- elif $ac_last_try; then
- as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5
- else
- ac_delim="$ac_delim!$ac_delim _$ac_delim!! "
- fi
-done
-rm -f conf$$subs.sh
-
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-cat >>"\$ac_tmp/subs1.awk" <<\\_ACAWK &&
-_ACEOF
-sed -n '
-h
-s/^/S["/; s/!.*/"]=/
-p
-g
-s/^[^!]*!//
-:repl
-t repl
-s/'"$ac_delim"'$//
-t delim
-:nl
-h
-s/\(.\{148\}\)..*/\1/
-t more1
-s/["\\]/\\&/g; s/^/"/; s/$/\\n"\\/
-p
-n
-b repl
-:more1
-s/["\\]/\\&/g; s/^/"/; s/$/"\\/
-p
-g
-s/.\{148\}//
-t nl
-:delim
-h
-s/\(.\{148\}\)..*/\1/
-t more2
-s/["\\]/\\&/g; s/^/"/; s/$/"/
-p
-b
-:more2
-s/["\\]/\\&/g; s/^/"/; s/$/"\\/
-p
-g
-s/.\{148\}//
-t delim
-' <conf$$subs.awk | sed '
-/^[^""]/{
- N
- s/\n//
-}
-' >>$CONFIG_STATUS || ac_write_fail=1
-rm -f conf$$subs.awk
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-_ACAWK
-cat >>"\$ac_tmp/subs1.awk" <<_ACAWK &&
- for (key in S) S_is_set[key] = 1
- FS = ""
-
-}
-{
- line = $ 0
- nfields = split(line, field, "@")
- substed = 0
- len = length(field[1])
- for (i = 2; i < nfields; i++) {
- key = field[i]
- keylen = length(key)
- if (S_is_set[key]) {
- value = S[key]
- line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3)
- len += length(value) + length(field[++i])
- substed = 1
- } else
- len += 1 + keylen
- }
-
- print line
-}
-
-_ACAWK
-_ACEOF
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then
- sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g"
-else
- cat
-fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \
- || as_fn_error $? "could not setup config files machinery" "$LINENO" 5
-_ACEOF
-
-# VPATH may cause trouble with some makes, so we remove sole $(srcdir),
-# ${srcdir} and @srcdir@ entries from VPATH if srcdir is ".", strip leading and
-# trailing colons and then remove the whole line if VPATH becomes empty
-# (actually we leave an empty line to preserve line numbers).
-if test "x$srcdir" = x.; then
- ac_vpsub='/^[ ]*VPATH[ ]*=[ ]*/{
-h
-s///
-s/^/:/
-s/[ ]*$/:/
-s/:\$(srcdir):/:/g
-s/:\${srcdir}:/:/g
-s/:@srcdir@:/:/g
-s/^:*//
-s/:*$//
-x
-s/\(=[ ]*\).*/\1/
-G
-s/\n//
-s/^[^=]*=[ ]*$//
-}'
-fi
-
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-fi # test -n "$CONFIG_FILES"
-
-# Set up the scripts for CONFIG_HEADERS section.
-# No need to generate them if there are no CONFIG_HEADERS.
-# This happens for instance with `./config.status Makefile'.
-if test -n "$CONFIG_HEADERS"; then
-cat >"$ac_tmp/defines.awk" <<\_ACAWK ||
-BEGIN {
-_ACEOF
-
-# Transform confdefs.h into an awk script `defines.awk', embedded as
-# here-document in config.status, that substitutes the proper values into
-# config.h.in to produce config.h.
-
-# Create a delimiter string that does not exist in confdefs.h, to ease
-# handling of long lines.
-ac_delim='%!_!# '
-for ac_last_try in false false :; do
- ac_tt=`sed -n "/$ac_delim/p" confdefs.h`
- if test -z "$ac_tt"; then
- break
- elif $ac_last_try; then
- as_fn_error $? "could not make $CONFIG_HEADERS" "$LINENO" 5
- else
- ac_delim="$ac_delim!$ac_delim _$ac_delim!! "
- fi
-done
-
-# For the awk script, D is an array of macro values keyed by name,
-# likewise P contains macro parameters if any. Preserve backslash
-# newline sequences.
-
-ac_word_re=[_$as_cr_Letters][_$as_cr_alnum]*
-sed -n '
-s/.\{148\}/&'"$ac_delim"'/g
-t rset
-:rset
-s/^[ ]*#[ ]*define[ ][ ]*/ /
-t def
-d
-:def
-s/\\$//
-t bsnl
-s/["\\]/\\&/g
-s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\
-D["\1"]=" \3"/p
-s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2"/p
-d
-:bsnl
-s/["\\]/\\&/g
-s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\
-D["\1"]=" \3\\\\\\n"\\/p
-t cont
-s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2\\\\\\n"\\/p
-t cont
-d
-:cont
-n
-s/.\{148\}/&'"$ac_delim"'/g
-t clear
-:clear
-s/\\$//
-t bsnlc
-s/["\\]/\\&/g; s/^/"/; s/$/"/p
-d
-:bsnlc
-s/["\\]/\\&/g; s/^/"/; s/$/\\\\\\n"\\/p
-b cont
-' <confdefs.h | sed '
-s/'"$ac_delim"'/"\\\
-"/g' >>$CONFIG_STATUS || ac_write_fail=1
-
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
- for (key in D) D_is_set[key] = 1
- FS = ""
-}
-/^[\t ]*#[\t ]*(define|undef)[\t ]+$ac_word_re([\t (]|\$)/ {
- line = \$ 0
- split(line, arg, " ")
- if (arg[1] == "#") {
- defundef = arg[2]
- mac1 = arg[3]
- } else {
- defundef = substr(arg[1], 2)
- mac1 = arg[2]
- }
- split(mac1, mac2, "(") #)
- macro = mac2[1]
- prefix = substr(line, 1, index(line, defundef) - 1)
- if (D_is_set[macro]) {
- # Preserve the white space surrounding the "#".
- print prefix "define", macro P[macro] D[macro]
- next
- } else {
- # Replace #undef with comments. This is necessary, for example,
- # in the case of _POSIX_SOURCE, which is predefined and required
- # on some systems where configure will not decide to define it.
- if (defundef == "undef") {
- print "/*", prefix defundef, macro, "*/"
- next
- }
- }
-}
-{ print }
-_ACAWK
-_ACEOF
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
- as_fn_error $? "could not setup config headers machinery" "$LINENO" 5
-fi # test -n "$CONFIG_HEADERS"
-
-
-eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS"
-shift
-for ac_tag
-do
- case $ac_tag in
- :[FHLC]) ac_mode=$ac_tag; continue;;
- esac
- case $ac_mode$ac_tag in
- :[FHL]*:*);;
- :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;;
- :[FH]-) ac_tag=-:-;;
- :[FH]*) ac_tag=$ac_tag:$ac_tag.in;;
- esac
- ac_save_IFS=$IFS
- IFS=:
- set x $ac_tag
- IFS=$ac_save_IFS
- shift
- ac_file=$1
- shift
-
- case $ac_mode in
- :L) ac_source=$1;;
- :[FH])
- ac_file_inputs=
- for ac_f
- do
- case $ac_f in
- -) ac_f="$ac_tmp/stdin";;
- *) # Look for the file first in the build tree, then in the source tree
- # (if the path is not absolute). The absolute path cannot be DOS-style,
- # because $ac_f cannot contain `:'.
- test -f "$ac_f" ||
- case $ac_f in
- [\\/$]*) false;;
- *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";;
- esac ||
- as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;;
- esac
- case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac
- as_fn_append ac_file_inputs " '$ac_f'"
- done
-
- # Let's still pretend it is `configure' which instantiates (i.e., don't
- # use $as_me), people would be surprised to read:
- # /* config.h. Generated by config.status. */
- configure_input='Generated from '`
- $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g'
- `' by configure.'
- if test x"$ac_file" != x-; then
- configure_input="$ac_file. $configure_input"
- { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5
-$as_echo "$as_me: creating $ac_file" >&6;}
- fi
- # Neutralize special characters interpreted by sed in replacement strings.
- case $configure_input in #(
- *\&* | *\|* | *\\* )
- ac_sed_conf_input=`$as_echo "$configure_input" |
- sed 's/[\\\\&|]/\\\\&/g'`;; #(
- *) ac_sed_conf_input=$configure_input;;
- esac
-
- case $ac_tag in
- *:-:* | *:-) cat >"$ac_tmp/stdin" \
- || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;;
- esac
- ;;
- esac
-
- ac_dir=`$as_dirname -- "$ac_file" ||
-$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
- X"$ac_file" : 'X\(//\)[^/]' \| \
- X"$ac_file" : 'X\(//\)$' \| \
- X"$ac_file" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X"$ac_file" |
- sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
- s//\1/
- q
- }
- /^X\(\/\/\)[^/].*/{
- s//\1/
- q
- }
- /^X\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`
- as_dir="$ac_dir"; as_fn_mkdir_p
- ac_builddir=.
-
-case "$ac_dir" in
-.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;;
-*)
- ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'`
- # A ".." for each directory in $ac_dir_suffix.
- ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'`
- case $ac_top_builddir_sub in
- "") ac_top_builddir_sub=. ac_top_build_prefix= ;;
- *) ac_top_build_prefix=$ac_top_builddir_sub/ ;;
- esac ;;
-esac
-ac_abs_top_builddir=$ac_pwd
-ac_abs_builddir=$ac_pwd$ac_dir_suffix
-# for backward compatibility:
-ac_top_builddir=$ac_top_build_prefix
-
-case $srcdir in
- .) # We are building in place.
- ac_srcdir=.
- ac_top_srcdir=$ac_top_builddir_sub
- ac_abs_top_srcdir=$ac_pwd ;;
- [\\/]* | ?:[\\/]* ) # Absolute name.
- ac_srcdir=$srcdir$ac_dir_suffix;
- ac_top_srcdir=$srcdir
- ac_abs_top_srcdir=$srcdir ;;
- *) # Relative name.
- ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix
- ac_top_srcdir=$ac_top_build_prefix$srcdir
- ac_abs_top_srcdir=$ac_pwd/$srcdir ;;
-esac
-ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix
-
-
- case $ac_mode in
- :F)
- #
- # CONFIG_FILE
- #
-
- case $INSTALL in
- [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;;
- *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;;
- esac
- ac_MKDIR_P=$MKDIR_P
- case $MKDIR_P in
- [\\/$]* | ?:[\\/]* ) ;;
- */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;;
- esac
-_ACEOF
-
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-# If the template does not know about datarootdir, expand it.
-# FIXME: This hack should be removed a few years after 2.60.
-ac_datarootdir_hack=; ac_datarootdir_seen=
-ac_sed_dataroot='
-/datarootdir/ {
- p
- q
-}
-/@datadir@/p
-/@docdir@/p
-/@infodir@/p
-/@localedir@/p
-/@mandir@/p'
-case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in
-*datarootdir*) ac_datarootdir_seen=yes;;
-*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*)
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5
-$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;}
-_ACEOF
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
- ac_datarootdir_hack='
- s&@datadir@&$datadir&g
- s&@docdir@&$docdir&g
- s&@infodir@&$infodir&g
- s&@localedir@&$localedir&g
- s&@mandir@&$mandir&g
- s&\\\${datarootdir}&$datarootdir&g' ;;
-esac
-_ACEOF
-
-# Neutralize VPATH when `$srcdir' = `.'.
-# Shell code in configure.ac might set extrasub.
-# FIXME: do we really want to maintain this feature?
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-ac_sed_extra="$ac_vpsub
-$extrasub
-_ACEOF
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-:t
-/@[a-zA-Z_][a-zA-Z_0-9]*@/!b
-s|@configure_input@|$ac_sed_conf_input|;t t
-s&@top_builddir@&$ac_top_builddir_sub&;t t
-s&@top_build_prefix@&$ac_top_build_prefix&;t t
-s&@srcdir@&$ac_srcdir&;t t
-s&@abs_srcdir@&$ac_abs_srcdir&;t t
-s&@top_srcdir@&$ac_top_srcdir&;t t
-s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t
-s&@builddir@&$ac_builddir&;t t
-s&@abs_builddir@&$ac_abs_builddir&;t t
-s&@abs_top_builddir@&$ac_abs_top_builddir&;t t
-s&@INSTALL@&$ac_INSTALL&;t t
-s&@MKDIR_P@&$ac_MKDIR_P&;t t
-$ac_datarootdir_hack
-"
-eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \
- >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5
-
-test -z "$ac_datarootdir_hack$ac_datarootdir_seen" &&
- { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } &&
- { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \
- "$ac_tmp/out"`; test -z "$ac_out"; } &&
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir'
-which seems to be undefined. Please make sure it is defined" >&5
-$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir'
-which seems to be undefined. Please make sure it is defined" >&2;}
-
- rm -f "$ac_tmp/stdin"
- case $ac_file in
- -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";;
- *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";;
- esac \
- || as_fn_error $? "could not create $ac_file" "$LINENO" 5
- ;;
- :H)
- #
- # CONFIG_HEADER
- #
- if test x"$ac_file" != x-; then
- {
- $as_echo "/* $configure_input */" \
- && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs"
- } >"$ac_tmp/config.h" \
- || as_fn_error $? "could not create $ac_file" "$LINENO" 5
- if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5
-$as_echo "$as_me: $ac_file is unchanged" >&6;}
- else
- rm -f "$ac_file"
- mv "$ac_tmp/config.h" "$ac_file" \
- || as_fn_error $? "could not create $ac_file" "$LINENO" 5
- fi
- else
- $as_echo "/* $configure_input */" \
- && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \
- || as_fn_error $? "could not create -" "$LINENO" 5
- fi
-# Compute "$ac_file"'s index in $config_headers.
-_am_arg="$ac_file"
-_am_stamp_count=1
-for _am_header in $config_headers :; do
- case $_am_header in
- $_am_arg | $_am_arg:* )
- break ;;
- * )
- _am_stamp_count=`expr $_am_stamp_count + 1` ;;
- esac
-done
-echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" ||
-$as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
- X"$_am_arg" : 'X\(//\)[^/]' \| \
- X"$_am_arg" : 'X\(//\)$' \| \
- X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X"$_am_arg" |
- sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
- s//\1/
- q
- }
- /^X\(\/\/\)[^/].*/{
- s//\1/
- q
- }
- /^X\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`/stamp-h$_am_stamp_count
- ;;
-
- :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5
-$as_echo "$as_me: executing $ac_file commands" >&6;}
- ;;
- esac
-
-
- case $ac_file$ac_mode in
- "tests/atconfig":C) cat >tests/atconfig <<ATEOF
-# Configurable variable values for building test suites.
-# Generated by $0.
-# Copyright (C) 2012 Free Software Foundation, Inc.
-
-# The test suite will define top_srcdir=$at_top_srcdir/../.. etc.
-at_testdir='tests'
-abs_builddir='$ac_abs_builddir'
-at_srcdir='$ac_srcdir'
-abs_srcdir='$ac_abs_srcdir'
-at_top_srcdir='$ac_top_srcdir'
-abs_top_srcdir='$ac_abs_top_srcdir'
-at_top_build_prefix='$ac_top_build_prefix'
-abs_top_builddir='$ac_abs_top_builddir'
-
-# Backward compatibility with Autotest <= 2.59b:
-at_top_builddir=\$at_top_build_prefix
-
-AUTOTEST_PATH='tests'
-
-SHELL=\${CONFIG_SHELL-'$SHELL'}
-ATEOF
- ;;
- "bin/cob-config":F) chmod +x bin/cob-config ;;
- "pre-inst-env":F) chmod +x pre-inst-env ;;
- "tests/atlocal":F) chmod +x tests/atlocal ;;
- "tests/run_prog_manual.sh":F) chmod +x tests/run_prog_manual.sh ;;
- "depfiles":C) test x"$AMDEP_TRUE" != x"" || {
- # Older Autoconf quotes --file arguments for eval, but not when files
- # are listed without --file. Let's play safe and only enable the eval
- # if we detect the quoting.
- # TODO: see whether this extra hack can be removed once we start
- # requiring Autoconf 2.70 or later.
- case $CONFIG_FILES in #(
- *\'*) :
- eval set x "$CONFIG_FILES" ;; #(
- *) :
- set x $CONFIG_FILES ;; #(
- *) :
- ;;
-esac
- shift
- # Used to flag and report bootstrapping failures.
- am_rc=0
- for am_mf
- do
- # Strip MF so we end up with the name of the file.
- am_mf=`$as_echo "$am_mf" | sed -e 's/:.*$//'`
- # Check whether this is an Automake generated Makefile which includes
- # dependency-tracking related rules and includes.
- # Grep'ing the whole file directly is not great: AIX grep has a line
- # limit of 2048, but all sed's we know have understand at least 4000.
- sed -n 's,^am--depfiles:.*,X,p' "$am_mf" | grep X >/dev/null 2>&1 \
- || continue
- am_dirpart=`$as_dirname -- "$am_mf" ||
-$as_expr X"$am_mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
- X"$am_mf" : 'X\(//\)[^/]' \| \
- X"$am_mf" : 'X\(//\)$' \| \
- X"$am_mf" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X"$am_mf" |
- sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
- s//\1/
- q
- }
- /^X\(\/\/\)[^/].*/{
- s//\1/
- q
- }
- /^X\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`
- am_filepart=`$as_basename -- "$am_mf" ||
-$as_expr X/"$am_mf" : '.*/\([^/][^/]*\)/*$' \| \
- X"$am_mf" : 'X\(//\)$' \| \
- X"$am_mf" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X/"$am_mf" |
- sed '/^.*\/\([^/][^/]*\)\/*$/{
- s//\1/
- q
- }
- /^X\/\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\/\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`
- { echo "$as_me:$LINENO: cd "$am_dirpart" \
- && sed -e '/# am--include-marker/d' "$am_filepart" \
- | $MAKE -f - am--depfiles" >&5
- (cd "$am_dirpart" \
- && sed -e '/# am--include-marker/d' "$am_filepart" \
- | $MAKE -f - am--depfiles) >&5 2>&5
- ac_status=$?
- echo "$as_me:$LINENO: \$? = $ac_status" >&5
- (exit $ac_status); } || am_rc=$?
- done
- if test $am_rc -ne 0; then
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "Something went wrong bootstrapping makefile fragments
- for automatic dependency tracking. If GNU make was not used, consider
- re-running the configure script with MAKE=\"gmake\" (or whatever is
- necessary). You can also try re-running configure with the
- '--disable-dependency-tracking' option to at least be able to build
- the package (albeit without support for automatic dependency tracking).
-See \`config.log' for more details" "$LINENO" 5; }
- fi
- { am_dirpart=; unset am_dirpart;}
- { am_filepart=; unset am_filepart;}
- { am_mf=; unset am_mf;}
- { am_rc=; unset am_rc;}
- rm -f conftest-deps.mk
-}
- ;;
- "libtool":C)
-
- # See if we are running on zsh, and set the options that allow our
- # commands through without removal of \ escapes.
- if test -n "${ZSH_VERSION+set}"; then
- setopt NO_GLOB_SUBST
- fi
-
- cfgfile=${ofile}T
- trap "$RM \"$cfgfile\"; exit 1" 1 2 15
- $RM "$cfgfile"
-
- cat <<_LT_EOF >> "$cfgfile"
-#! $SHELL
-# Generated automatically by $as_me ($PACKAGE) $VERSION
-# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`:
-# NOTE: Changes made to this file will be lost: look at ltmain.sh.
-
-# Provide generalized library-building support services.
-# Written by Gordon Matzigkeit, 1996
-
-# Copyright (C) 2014 Free Software Foundation, Inc.
-# This is free software; see the source for copying conditions. There is NO
-# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
-# GNU Libtool 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 2 of of the License, or
-# (at your option) any later version.
-#
-# As a special exception to the GNU General Public License, if you
-# distribute this file as part of a program or library that is built
-# using GNU Libtool, you may include this file under the same
-# distribution terms that you use for the rest of that program.
-#
-# GNU Libtool 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 this program. If not, see <https://www.gnu.org/licenses/>.
-
-
-# The names of the tagged configurations supported by this script.
-available_tags='RC '
-
-# Configured defaults for sys_lib_dlsearch_path munging.
-: \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"}
-
-# ### BEGIN LIBTOOL CONFIG
-
-# Which release of libtool.m4 was used?
-macro_version=$macro_version
-macro_revision=$macro_revision
-
-# Assembler program.
-AS=$lt_AS
-
-# DLL creation program.
-DLLTOOL=$lt_DLLTOOL
-
-# Object dumper program.
-OBJDUMP=$lt_OBJDUMP
-
-# Whether or not to build shared libraries.
-build_libtool_libs=$enable_shared
-
-# Whether or not to build static libraries.
-build_old_libs=$enable_static
-
-# What type of objects to build.
-pic_mode=$pic_mode
-
-# Whether or not to optimize for fast installation.
-fast_install=$enable_fast_install
-
-# Shared archive member basename,for filename based shared library versioning on AIX.
-shared_archive_member_spec=$shared_archive_member_spec
-
-# Shell to use when invoking shell scripts.
-SHELL=$lt_SHELL
-
-# An echo program that protects backslashes.
-ECHO=$lt_ECHO
-
-# The PATH separator for the build system.
-PATH_SEPARATOR=$lt_PATH_SEPARATOR
-
-# The host system.
-host_alias=$host_alias
-host=$host
-host_os=$host_os
-
-# The build system.
-build_alias=$build_alias
-build=$build
-build_os=$build_os
-
-# A sed program that does not truncate output.
-SED=$lt_SED
-
-# Sed that helps us avoid accidentally triggering echo(1) options like -n.
-Xsed="\$SED -e 1s/^X//"
-
-# A grep program that handles long lines.
-GREP=$lt_GREP
-
-# An ERE matcher.
-EGREP=$lt_EGREP
-
-# A literal string matcher.
-FGREP=$lt_FGREP
-
-# A BSD- or MS-compatible name lister.
-NM=$lt_NM
-
-# Whether we need soft or hard links.
-LN_S=$lt_LN_S
-
-# What is the maximum length of a command?
-max_cmd_len=$max_cmd_len
-
-# Object file suffix (normally "o").
-objext=$ac_objext
-
-# Executable file suffix (normally "").
-exeext=$exeext
-
-# whether the shell understands "unset".
-lt_unset=$lt_unset
-
-# turn spaces into newlines.
-SP2NL=$lt_lt_SP2NL
-
-# turn newlines into spaces.
-NL2SP=$lt_lt_NL2SP
-
-# convert \$build file names to \$host format.
-to_host_file_cmd=$lt_cv_to_host_file_cmd
-
-# convert \$build files to toolchain format.
-to_tool_file_cmd=$lt_cv_to_tool_file_cmd
-
-# Method to check whether dependent libraries are shared objects.
-deplibs_check_method=$lt_deplibs_check_method
-
-# Command to use when deplibs_check_method = "file_magic".
-file_magic_cmd=$lt_file_magic_cmd
-
-# How to find potential files when deplibs_check_method = "file_magic".
-file_magic_glob=$lt_file_magic_glob
-
-# Find potential files using nocaseglob when deplibs_check_method = "file_magic".
-want_nocaseglob=$lt_want_nocaseglob
-
-# Command to associate shared and link libraries.
-sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd
-
-# The archiver.
-AR=$lt_AR
-
-# Flags to create an archive (by configure).
-lt_ar_flags=$lt_ar_flags
-
-# Flags to create an archive.
-AR_FLAGS=\${ARFLAGS-"\$lt_ar_flags"}
-
-# How to feed a file listing to the archiver.
-archiver_list_spec=$lt_archiver_list_spec
-
-# A symbol stripping program.
-STRIP=$lt_STRIP
-
-# Commands used to install an old-style archive.
-RANLIB=$lt_RANLIB
-old_postinstall_cmds=$lt_old_postinstall_cmds
-old_postuninstall_cmds=$lt_old_postuninstall_cmds
-
-# Whether to use a lock for old archive extraction.
-lock_old_archive_extraction=$lock_old_archive_extraction
-
-# A C compiler.
-LTCC=$lt_CC
-
-# LTCC compiler flags.
-LTCFLAGS=$lt_CFLAGS
-
-# Take the output of nm and produce a listing of raw symbols and C names.
-global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe
-
-# Transform the output of nm in a proper C declaration.
-global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl
-
-# Transform the output of nm into a list of symbols to manually relocate.
-global_symbol_to_import=$lt_lt_cv_sys_global_symbol_to_import
-
-# Transform the output of nm in a C name address pair.
-global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address
-
-# Transform the output of nm in a C name address pair when lib prefix is needed.
-global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix
-
-# The name lister interface.
-nm_interface=$lt_lt_cv_nm_interface
-
-# Specify filename containing input files for \$NM.
-nm_file_list_spec=$lt_nm_file_list_spec
-
-# The root where to search for dependent libraries,and where our libraries should be installed.
-lt_sysroot=$lt_sysroot
-
-# Command to truncate a binary pipe.
-lt_truncate_bin=$lt_lt_cv_truncate_bin
-
-# The name of the directory that contains temporary libtool files.
-objdir=$objdir
-
-# Used to examine libraries when file_magic_cmd begins with "file".
-MAGIC_CMD=$MAGIC_CMD
-
-# Must we lock files when doing compilation?
-need_locks=$lt_need_locks
-
-# Manifest tool.
-MANIFEST_TOOL=$lt_MANIFEST_TOOL
-
-# Tool to manipulate archived DWARF debug symbol files on Mac OS X.
-DSYMUTIL=$lt_DSYMUTIL
-
-# Tool to change global to local symbols on Mac OS X.
-NMEDIT=$lt_NMEDIT
-
-# Tool to manipulate fat objects and archives on Mac OS X.
-LIPO=$lt_LIPO
-
-# ldd/readelf like tool for Mach-O binaries on Mac OS X.
-OTOOL=$lt_OTOOL
-
-# ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4.
-OTOOL64=$lt_OTOOL64
-
-# Old archive suffix (normally "a").
-libext=$libext
-
-# Shared library suffix (normally ".so").
-shrext_cmds=$lt_shrext_cmds
-
-# The commands to extract the exported symbol list from a shared archive.
-extract_expsyms_cmds=$lt_extract_expsyms_cmds
-
-# Variables whose values should be saved in libtool wrapper scripts and
-# restored at link time.
-variables_saved_for_relink=$lt_variables_saved_for_relink
-
-# Do we need the "lib" prefix for modules?
-need_lib_prefix=$need_lib_prefix
-
-# Do we need a version for libraries?
-need_version=$need_version
-
-# Library versioning type.
-version_type=$version_type
-
-# Shared library runtime path variable.
-runpath_var=$runpath_var
-
-# Shared library path variable.
-shlibpath_var=$shlibpath_var
-
-# Is shlibpath searched before the hard-coded library search path?
-shlibpath_overrides_runpath=$shlibpath_overrides_runpath
-
-# Format of library name prefix.
-libname_spec=$lt_libname_spec
-
-# List of archive names. First name is the real one, the rest are links.
-# The last name is the one that the linker finds with -lNAME
-library_names_spec=$lt_library_names_spec
-
-# The coded name of the library, if different from the real name.
-soname_spec=$lt_soname_spec
-
-# Permission mode override for installation of shared libraries.
-install_override_mode=$lt_install_override_mode
-
-# Command to use after installation of a shared archive.
-postinstall_cmds=$lt_postinstall_cmds
-
-# Command to use after uninstallation of a shared archive.
-postuninstall_cmds=$lt_postuninstall_cmds
-
-# Commands used to finish a libtool library installation in a directory.
-finish_cmds=$lt_finish_cmds
-
-# As "finish_cmds", except a single script fragment to be evaled but
-# not shown.
-finish_eval=$lt_finish_eval
-
-# Whether we should hardcode library paths into libraries.
-hardcode_into_libs=$hardcode_into_libs
-
-# Compile-time system search path for libraries.
-sys_lib_search_path_spec=$lt_sys_lib_search_path_spec
-
-# Detected run-time system search path for libraries.
-sys_lib_dlsearch_path_spec=$lt_configure_time_dlsearch_path
-
-# Explicit LT_SYS_LIBRARY_PATH set during ./configure time.
-configure_time_lt_sys_library_path=$lt_configure_time_lt_sys_library_path
-
-# Whether dlopen is supported.
-dlopen_support=$enable_dlopen
-
-# Whether dlopen of programs is supported.
-dlopen_self=$enable_dlopen_self
-
-# Whether dlopen of statically linked programs is supported.
-dlopen_self_static=$enable_dlopen_self_static
-
-# Commands to strip libraries.
-old_striplib=$lt_old_striplib
-striplib=$lt_striplib
-
-
-# The linker used to build libraries.
-LD=$lt_LD
-
-# How to create reloadable object files.
-reload_flag=$lt_reload_flag
-reload_cmds=$lt_reload_cmds
-
-# Commands used to build an old-style archive.
-old_archive_cmds=$lt_old_archive_cmds
-
-# A language specific compiler.
-CC=$lt_compiler
-
-# Is the compiler the GNU compiler?
-with_gcc=$GCC
-
-# Compiler flag to turn off builtin functions.
-no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag
-
-# Additional compiler flags for building library objects.
-pic_flag=$lt_lt_prog_compiler_pic
-
-# How to pass a linker flag through the compiler.
-wl=$lt_lt_prog_compiler_wl
-
-# Compiler flag to prevent dynamic linking.
-link_static_flag=$lt_lt_prog_compiler_static
-
-# Does compiler simultaneously support -c and -o options?
-compiler_c_o=$lt_lt_cv_prog_compiler_c_o
-
-# Whether or not to add -lc for building shared libraries.
-build_libtool_need_lc=$archive_cmds_need_lc
-
-# Whether or not to disallow shared libs when runtime libs are static.
-allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes
-
-# Compiler flag to allow reflexive dlopens.
-export_dynamic_flag_spec=$lt_export_dynamic_flag_spec
-
-# Compiler flag to generate shared objects directly from archives.
-whole_archive_flag_spec=$lt_whole_archive_flag_spec
-
-# Whether the compiler copes with passing no objects directly.
-compiler_needs_object=$lt_compiler_needs_object
-
-# Create an old-style archive from a shared archive.
-old_archive_from_new_cmds=$lt_old_archive_from_new_cmds
-
-# Create a temporary old-style archive to link instead of a shared archive.
-old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds
-
-# Commands used to build a shared archive.
-archive_cmds=$lt_archive_cmds
-archive_expsym_cmds=$lt_archive_expsym_cmds
-
-# Commands used to build a loadable module if different from building
-# a shared archive.
-module_cmds=$lt_module_cmds
-module_expsym_cmds=$lt_module_expsym_cmds
-
-# Whether we are building with GNU ld or not.
-with_gnu_ld=$lt_with_gnu_ld
-
-# Flag that allows shared libraries with undefined symbols to be built.
-allow_undefined_flag=$lt_allow_undefined_flag
-
-# Flag that enforces no undefined symbols.
-no_undefined_flag=$lt_no_undefined_flag
-
-# Flag to hardcode \$libdir into a binary during linking.
-# This must work even if \$libdir does not exist
-hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec
-
-# Whether we need a single "-rpath" flag with a separated argument.
-hardcode_libdir_separator=$lt_hardcode_libdir_separator
-
-# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes
-# DIR into the resulting binary.
-hardcode_direct=$hardcode_direct
-
-# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes
-# DIR into the resulting binary and the resulting library dependency is
-# "absolute",i.e impossible to change by setting \$shlibpath_var if the
-# library is relocated.
-hardcode_direct_absolute=$hardcode_direct_absolute
-
-# Set to "yes" if using the -LDIR flag during linking hardcodes DIR
-# into the resulting binary.
-hardcode_minus_L=$hardcode_minus_L
-
-# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR
-# into the resulting binary.
-hardcode_shlibpath_var=$hardcode_shlibpath_var
-
-# Set to "yes" if building a shared library automatically hardcodes DIR
-# into the library and all subsequent libraries and executables linked
-# against it.
-hardcode_automatic=$hardcode_automatic
-
-# Set to yes if linker adds runtime paths of dependent libraries
-# to runtime path list.
-inherit_rpath=$inherit_rpath
-
-# Whether libtool must link a program against all its dependency libraries.
-link_all_deplibs=$link_all_deplibs
-
-# Set to "yes" if exported symbols are required.
-always_export_symbols=$always_export_symbols
-
-# The commands to list exported symbols.
-export_symbols_cmds=$lt_export_symbols_cmds
-
-# Symbols that should not be listed in the preloaded symbols.
-exclude_expsyms=$lt_exclude_expsyms
-
-# Symbols that must always be exported.
-include_expsyms=$lt_include_expsyms
-
-# Commands necessary for linking programs (against libraries) with templates.
-prelink_cmds=$lt_prelink_cmds
-
-# Commands necessary for finishing linking programs.
-postlink_cmds=$lt_postlink_cmds
-
-# Specify filename containing input files.
-file_list_spec=$lt_file_list_spec
-
-# How to hardcode a shared library path into an executable.
-hardcode_action=$hardcode_action
-
-# ### END LIBTOOL CONFIG
-
-_LT_EOF
-
- cat <<'_LT_EOF' >> "$cfgfile"
-
-# ### BEGIN FUNCTIONS SHARED WITH CONFIGURE
-
-# func_munge_path_list VARIABLE PATH
-# -----------------------------------
-# VARIABLE is name of variable containing _space_ separated list of
-# directories to be munged by the contents of PATH, which is string
-# having a format:
-# "DIR[:DIR]:"
-# string "DIR[ DIR]" will be prepended to VARIABLE
-# ":DIR[:DIR]"
-# string "DIR[ DIR]" will be appended to VARIABLE
-# "DIRP[:DIRP]::[DIRA:]DIRA"
-# string "DIRP[ DIRP]" will be prepended to VARIABLE and string
-# "DIRA[ DIRA]" will be appended to VARIABLE
-# "DIR[:DIR]"
-# VARIABLE will be replaced by "DIR[ DIR]"
-func_munge_path_list ()
-{
- case x$2 in
- x)
- ;;
- *:)
- eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\"
- ;;
- x:*)
- eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\"
- ;;
- *::*)
- eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\"
- eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\"
- ;;
- *)
- eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\"
- ;;
- esac
-}
-
-
-# Calculate cc_basename. Skip known compiler wrappers and cross-prefix.
-func_cc_basename ()
-{
- for cc_temp in $*""; do
- case $cc_temp in
- compile | *[\\/]compile | ccache | *[\\/]ccache ) ;;
- distcc | *[\\/]distcc | purify | *[\\/]purify ) ;;
- \-*) ;;
- *) break;;
- esac
- done
- func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"`
-}
-
-
-# ### END FUNCTIONS SHARED WITH CONFIGURE
-
-_LT_EOF
-
- case $host_os in
- aix3*)
- cat <<\_LT_EOF >> "$cfgfile"
-# AIX sometimes has problems with the GCC collect2 program. For some
-# reason, if we set the COLLECT_NAMES environment variable, the problems
-# vanish in a puff of smoke.
-if test set != "${COLLECT_NAMES+set}"; then
- COLLECT_NAMES=
- export COLLECT_NAMES
-fi
-_LT_EOF
- ;;
- esac
-
-
-ltmain=$ac_aux_dir/ltmain.sh
-
-
- # We use sed instead of cat because bash on DJGPP gets confused if
- # if finds mixed CR/LF and LF-only lines. Since sed operates in
- # text mode, it properly converts lines to CR/LF. This bash problem
- # is reportedly fixed, but why not run on old versions too?
- sed '$q' "$ltmain" >> "$cfgfile" \
- || (rm -f "$cfgfile"; exit 1)
-
- mv -f "$cfgfile" "$ofile" ||
- (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile")
- chmod +x "$ofile"
-
-
- cat <<_LT_EOF >> "$ofile"
-
-# ### BEGIN LIBTOOL TAG CONFIG: RC
-
-# The linker used to build libraries.
-LD=$lt_LD_RC
-
-# How to create reloadable object files.
-reload_flag=$lt_reload_flag_RC
-reload_cmds=$lt_reload_cmds_RC
-
-# Commands used to build an old-style archive.
-old_archive_cmds=$lt_old_archive_cmds_RC
-
-# A language specific compiler.
-CC=$lt_compiler_RC
-
-# Is the compiler the GNU compiler?
-with_gcc=$GCC_RC
-
-# Compiler flag to turn off builtin functions.
-no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_RC
-
-# Additional compiler flags for building library objects.
-pic_flag=$lt_lt_prog_compiler_pic_RC
-
-# How to pass a linker flag through the compiler.
-wl=$lt_lt_prog_compiler_wl_RC
-
-# Compiler flag to prevent dynamic linking.
-link_static_flag=$lt_lt_prog_compiler_static_RC
-
-# Does compiler simultaneously support -c and -o options?
-compiler_c_o=$lt_lt_cv_prog_compiler_c_o_RC
-
-# Whether or not to add -lc for building shared libraries.
-build_libtool_need_lc=$archive_cmds_need_lc_RC
-
-# Whether or not to disallow shared libs when runtime libs are static.
-allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_RC
-
-# Compiler flag to allow reflexive dlopens.
-export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_RC
-
-# Compiler flag to generate shared objects directly from archives.
-whole_archive_flag_spec=$lt_whole_archive_flag_spec_RC
-
-# Whether the compiler copes with passing no objects directly.
-compiler_needs_object=$lt_compiler_needs_object_RC
-
-# Create an old-style archive from a shared archive.
-old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_RC
-
-# Create a temporary old-style archive to link instead of a shared archive.
-old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_RC
-
-# Commands used to build a shared archive.
-archive_cmds=$lt_archive_cmds_RC
-archive_expsym_cmds=$lt_archive_expsym_cmds_RC
-
-# Commands used to build a loadable module if different from building
-# a shared archive.
-module_cmds=$lt_module_cmds_RC
-module_expsym_cmds=$lt_module_expsym_cmds_RC
-
-# Whether we are building with GNU ld or not.
-with_gnu_ld=$lt_with_gnu_ld_RC
-
-# Flag that allows shared libraries with undefined symbols to be built.
-allow_undefined_flag=$lt_allow_undefined_flag_RC
-
-# Flag that enforces no undefined symbols.
-no_undefined_flag=$lt_no_undefined_flag_RC
-
-# Flag to hardcode \$libdir into a binary during linking.
-# This must work even if \$libdir does not exist
-hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_RC
-
-# Whether we need a single "-rpath" flag with a separated argument.
-hardcode_libdir_separator=$lt_hardcode_libdir_separator_RC
-
-# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes
-# DIR into the resulting binary.
-hardcode_direct=$hardcode_direct_RC
-
-# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes
-# DIR into the resulting binary and the resulting library dependency is
-# "absolute",i.e impossible to change by setting \$shlibpath_var if the
-# library is relocated.
-hardcode_direct_absolute=$hardcode_direct_absolute_RC
-
-# Set to "yes" if using the -LDIR flag during linking hardcodes DIR
-# into the resulting binary.
-hardcode_minus_L=$hardcode_minus_L_RC
-
-# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR
-# into the resulting binary.
-hardcode_shlibpath_var=$hardcode_shlibpath_var_RC
-
-# Set to "yes" if building a shared library automatically hardcodes DIR
-# into the library and all subsequent libraries and executables linked
-# against it.
-hardcode_automatic=$hardcode_automatic_RC
-
-# Set to yes if linker adds runtime paths of dependent libraries
-# to runtime path list.
-inherit_rpath=$inherit_rpath_RC
-
-# Whether libtool must link a program against all its dependency libraries.
-link_all_deplibs=$link_all_deplibs_RC
-
-# Set to "yes" if exported symbols are required.
-always_export_symbols=$always_export_symbols_RC
-
-# The commands to list exported symbols.
-export_symbols_cmds=$lt_export_symbols_cmds_RC
-
-# Symbols that should not be listed in the preloaded symbols.
-exclude_expsyms=$lt_exclude_expsyms_RC
-
-# Symbols that must always be exported.
-include_expsyms=$lt_include_expsyms_RC
-
-# Commands necessary for linking programs (against libraries) with templates.
-prelink_cmds=$lt_prelink_cmds_RC
-
-# Commands necessary for finishing linking programs.
-postlink_cmds=$lt_postlink_cmds_RC
-
-# Specify filename containing input files.
-file_list_spec=$lt_file_list_spec_RC
-
-# How to hardcode a shared library path into an executable.
-hardcode_action=$hardcode_action_RC
-
-# ### END LIBTOOL TAG CONFIG: RC
-_LT_EOF
-
- ;;
- "po-directories":C)
- for ac_file in $CONFIG_FILES; do
- # Support "outfile[:infile[:infile...]]"
- case "$ac_file" in
- *:*) ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;;
- esac
- # PO directories have a Makefile.in generated from Makefile.in.in.
- case "$ac_file" in */Makefile.in)
- # Adjust a relative srcdir.
- ac_dir=`echo "$ac_file"|sed 's%/[^/][^/]*$%%'`
- ac_dir_suffix=/`echo "$ac_dir"|sed 's%^\./%%'`
- ac_dots=`echo "$ac_dir_suffix"|sed 's%/[^/]*%../%g'`
- # In autoconf-2.13 it is called $ac_given_srcdir.
- # In autoconf-2.50 it is called $srcdir.
- test -n "$ac_given_srcdir" || ac_given_srcdir="$srcdir"
- case "$ac_given_srcdir" in
- .) top_srcdir=`echo $ac_dots|sed 's%/$%%'` ;;
- /*) top_srcdir="$ac_given_srcdir" ;;
- *) top_srcdir="$ac_dots$ac_given_srcdir" ;;
- esac
- # Treat a directory as a PO directory if and only if it has a
- # POTFILES.in file. This allows packages to have multiple PO
- # directories under different names or in different locations.
- if test -f "$ac_given_srcdir/$ac_dir/POTFILES.in"; then
- rm -f "$ac_dir/POTFILES"
- test -n "$as_me" && echo "$as_me: creating $ac_dir/POTFILES" || echo "creating $ac_dir/POTFILES"
- gt_tab=`printf '\t'`
- cat "$ac_given_srcdir/$ac_dir/POTFILES.in" | sed -e "/^#/d" -e "/^[ ${gt_tab}]*\$/d" -e "s,.*, $top_srcdir/& \\\\," | sed -e "\$s/\(.*\) \\\\/\1/" > "$ac_dir/POTFILES"
- POMAKEFILEDEPS="POTFILES.in"
- # ALL_LINGUAS, POFILES, UPDATEPOFILES, DUMMYPOFILES, GMOFILES depend
- # on $ac_dir but don't depend on user-specified configuration
- # parameters.
- if test -f "$ac_given_srcdir/$ac_dir/LINGUAS"; then
- # The LINGUAS file contains the set of available languages.
- if test -n "$OBSOLETE_ALL_LINGUAS"; then
- test -n "$as_me" && echo "$as_me: setting ALL_LINGUAS in configure.in is obsolete" || echo "setting ALL_LINGUAS in configure.in is obsolete"
- fi
- ALL_LINGUAS=`sed -e "/^#/d" -e "s/#.*//" "$ac_given_srcdir/$ac_dir/LINGUAS"`
- POMAKEFILEDEPS="$POMAKEFILEDEPS LINGUAS"
- else
- # The set of available languages was given in configure.in.
- ALL_LINGUAS=$OBSOLETE_ALL_LINGUAS
- fi
- # Compute POFILES
- # as $(foreach lang, $(ALL_LINGUAS), $(srcdir)/$(lang).po)
- # Compute UPDATEPOFILES
- # as $(foreach lang, $(ALL_LINGUAS), $(lang).po-update)
- # Compute DUMMYPOFILES
- # as $(foreach lang, $(ALL_LINGUAS), $(lang).nop)
- # Compute GMOFILES
- # as $(foreach lang, $(ALL_LINGUAS), $(srcdir)/$(lang).gmo)
- case "$ac_given_srcdir" in
- .) srcdirpre= ;;
- *) srcdirpre='$(srcdir)/' ;;
- esac
- POFILES=
- UPDATEPOFILES=
- DUMMYPOFILES=
- GMOFILES=
- for lang in $ALL_LINGUAS; do
- POFILES="$POFILES $srcdirpre$lang.po"
- UPDATEPOFILES="$UPDATEPOFILES $lang.po-update"
- DUMMYPOFILES="$DUMMYPOFILES $lang.nop"
- GMOFILES="$GMOFILES $srcdirpre$lang.gmo"
- done
- # CATALOGS depends on both $ac_dir and the user's LINGUAS
- # environment variable.
- INST_LINGUAS=
- if test -n "$ALL_LINGUAS"; then
- for presentlang in $ALL_LINGUAS; do
- useit=no
- if test "%UNSET%" != "$LINGUAS"; then
- desiredlanguages="$LINGUAS"
- else
- desiredlanguages="$ALL_LINGUAS"
- fi
- for desiredlang in $desiredlanguages; do
- # Use the presentlang catalog if desiredlang is
- # a. equal to presentlang, or
- # b. a variant of presentlang (because in this case,
- # presentlang can be used as a fallback for messages
- # which are not translated in the desiredlang catalog).
- case "$desiredlang" in
- "$presentlang"*) useit=yes;;
- esac
- done
- if test $useit = yes; then
- INST_LINGUAS="$INST_LINGUAS $presentlang"
- fi
- done
- fi
- CATALOGS=
- if test -n "$INST_LINGUAS"; then
- for lang in $INST_LINGUAS; do
- CATALOGS="$CATALOGS $lang.gmo"
- done
- fi
- test -n "$as_me" && echo "$as_me: creating $ac_dir/Makefile" || echo "creating $ac_dir/Makefile"
- sed -e "/^POTFILES =/r $ac_dir/POTFILES" -e "/^# Makevars/r $ac_given_srcdir/$ac_dir/Makevars" -e "s|@POFILES@|$POFILES|g" -e "s|@UPDATEPOFILES@|$UPDATEPOFILES|g" -e "s|@DUMMYPOFILES@|$DUMMYPOFILES|g" -e "s|@GMOFILES@|$GMOFILES|g" -e "s|@CATALOGS@|$CATALOGS|g" -e "s|@POMAKEFILEDEPS@|$POMAKEFILEDEPS|g" "$ac_dir/Makefile.in" > "$ac_dir/Makefile"
- for f in "$ac_given_srcdir/$ac_dir"/Rules-*; do
- if test -f "$f"; then
- case "$f" in
- *.orig | *.bak | *~) ;;
- *) cat "$f" >> "$ac_dir/Makefile" ;;
- esac
- fi
- done
- fi
- ;;
- esac
- done ;;
- "chmod":C) chmod +x bin/cob-config;
-chmod +x tests/atconfig;
-chmod +x tests/atlocal ;;
-
- esac
-done # for ac_tag
-
-
-as_fn_exit 0
-_ACEOF
-ac_clean_files=$ac_clean_files_save
-
-test $ac_write_fail = 0 ||
- as_fn_error $? "write failure creating $CONFIG_STATUS" "$LINENO" 5
-
-
-# configure is writing to config.log, and then calls config.status.
-# config.status does its own redirection, appending to config.log.
-# Unfortunately, on DOS this fails, as config.log is still kept open
-# by configure, so config.status won't be able to write to it; its
-# output is simply discarded. So we exec the FD to /dev/null,
-# effectively closing config.log, so it can be properly (re)opened and
-# appended to by config.status. When coming back to configure, we
-# need to make the FD available again.
-if test "$no_create" != yes; then
- ac_cs_success=:
- ac_config_status_args=
- test "$silent" = yes &&
- ac_config_status_args="$ac_config_status_args --quiet"
- exec 5>/dev/null
- $SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false
- exec 5>>config.log
- # Use ||, not &&, to avoid exiting from the if with $? = 1, which
- # would make configure fail if this is the last instruction.
- $ac_cs_success || as_fn_exit 1
-fi
-if test -n "$ac_unrecognized_opts" && test "$enable_option_checking" != no; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts" >&5
-$as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2;}
-fi
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: GnuCOBOL Configuration:" >&5
-$as_echo "$as_me: GnuCOBOL Configuration:" >&6;}
-{ $as_echo "$as_me:${as_lineno-$LINENO}: CC ${CC}" >&5
-$as_echo "$as_me: CC ${CC}" >&6;}
-{ $as_echo "$as_me:${as_lineno-$LINENO}: CFLAGS ${CFLAGS}" >&5
-$as_echo "$as_me: CFLAGS ${CFLAGS}" >&6;}
-{ $as_echo "$as_me:${as_lineno-$LINENO}: LDFLAGS ${LDFLAGS}" >&5
-$as_echo "$as_me: LDFLAGS ${LDFLAGS}" >&6;}
-{ $as_echo "$as_me:${as_lineno-$LINENO}: LIBCOB_LIBS ${LIBCOB_LIBS}" >&5
-$as_echo "$as_me: LIBCOB_LIBS ${LIBCOB_LIBS}" >&6;}
-if test "x$PROGRAMS_LIBS" != x; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: PROGRAMS_LIBS ${PROGRAMS_LIBS}" >&5
-$as_echo "$as_me: PROGRAMS_LIBS ${PROGRAMS_LIBS}" >&6;}
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: COB_CC ${COB_CC}" >&5
-$as_echo "$as_me: COB_CC ${COB_CC}" >&6;}
-{ $as_echo "$as_me:${as_lineno-$LINENO}: COB_CFLAGS ${COB_CFLAGS}" >&5
-$as_echo "$as_me: COB_CFLAGS ${COB_CFLAGS}" >&6;}
-{ $as_echo "$as_me:${as_lineno-$LINENO}: COB_LDFLAGS ${COB_LDFLAGS}" >&5
-$as_echo "$as_me: COB_LDFLAGS ${COB_LDFLAGS}" >&6;}
-{ $as_echo "$as_me:${as_lineno-$LINENO}: COB_DEBUG_FLAGS ${COB_DEBUG_FLAGS}" >&5
-$as_echo "$as_me: COB_DEBUG_FLAGS ${COB_DEBUG_FLAGS}" >&6;}
-{ $as_echo "$as_me:${as_lineno-$LINENO}: COB_LIBS ${COB_LIBS}" >&5
-$as_echo "$as_me: COB_LIBS ${COB_LIBS}" >&6;}
-{ $as_echo "$as_me:${as_lineno-$LINENO}: COB_CONFIG_DIR ${COB_CONFIG_DIR}" >&5
-$as_echo "$as_me: COB_CONFIG_DIR ${COB_CONFIG_DIR}" >&6;}
-{ $as_echo "$as_me:${as_lineno-$LINENO}: COB_COPY_DIR ${COB_COPY_DIR}" >&5
-$as_echo "$as_me: COB_COPY_DIR ${COB_COPY_DIR}" >&6;}
-{ $as_echo "$as_me:${as_lineno-$LINENO}: COB_LIBRARY_PATH ${COB_LIBRARY_PATH}" >&5
-$as_echo "$as_me: COB_LIBRARY_PATH ${COB_LIBRARY_PATH}" >&6;}
-{ $as_echo "$as_me:${as_lineno-$LINENO}: COB_OBJECT_EXT ${OBJEXT}" >&5
-$as_echo "$as_me: COB_OBJECT_EXT ${OBJEXT}" >&6;}
-{ $as_echo "$as_me:${as_lineno-$LINENO}: COB_MODULE_EXT ${COB_MODULE_EXT}" >&5
-$as_echo "$as_me: COB_MODULE_EXT ${COB_MODULE_EXT}" >&6;}
-{ $as_echo "$as_me:${as_lineno-$LINENO}: COB_EXE_EXT ${COB_EXE_EXT}" >&5
-$as_echo "$as_me: COB_EXE_EXT ${COB_EXE_EXT}" >&6;}
-{ $as_echo "$as_me:${as_lineno-$LINENO}: COB_SHARED_OPT ${COB_SHARED_OPT}" >&5
-$as_echo "$as_me: COB_SHARED_OPT ${COB_SHARED_OPT}" >&6;}
-{ $as_echo "$as_me:${as_lineno-$LINENO}: COB_PIC_FLAGS ${COB_PIC_FLAGS}" >&5
-$as_echo "$as_me: COB_PIC_FLAGS ${COB_PIC_FLAGS}" >&6;}
-{ $as_echo "$as_me:${as_lineno-$LINENO}: COB_EXPORT_DYN ${COB_EXPORT_DYN}" >&5
-$as_echo "$as_me: COB_EXPORT_DYN ${COB_EXPORT_DYN}" >&6;}
-if test "x$striplib" != x; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: COB_STRIP_CMD ${striplib}" >&5
-$as_echo "$as_me: COB_STRIP_CMD ${striplib}" >&6;}
-fi
-if test "${DEFINE_DL}" = yes ; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: Dynamic loading: System" >&5
-$as_echo "$as_me: Dynamic loading: System" >&6;}
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: Dynamic loading: Libtool" >&5
-$as_echo "$as_me: Dynamic loading: Libtool" >&6;}
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: Use gettext for international messages: ${USE_NLS}" >&5
-$as_echo "$as_me: Use gettext for international messages: ${USE_NLS}" >&6;}
-{ $as_echo "$as_me:${as_lineno-$LINENO}: Use fcntl for file locking: ${ac_cv_func_fcntl}" >&5
-$as_echo "$as_me: Use fcntl for file locking: ${ac_cv_func_fcntl}" >&6;}
-{ $as_echo "$as_me:${as_lineno-$LINENO}: Use math multiple precision library: ${with_math}" >&5
-$as_echo "$as_me: Use math multiple precision library: ${with_math}" >&6;}
-case "$USE_CURSES" in
- not_found)
- { $as_echo "$as_me:${as_lineno-$LINENO}: screen I/O (no curses found): NO" >&5
-$as_echo "$as_me: screen I/O (no curses found): NO" >&6;}
- ;;
- no)
- { $as_echo "$as_me:${as_lineno-$LINENO}: screen I/O (disabled): NO" >&5
-$as_echo "$as_me: screen I/O (disabled): NO" >&6;}
- ;;
- *)
- { $as_echo "$as_me:${as_lineno-$LINENO}: Use curses library for screen I/O: ${USE_CURSES}" >&5
-$as_echo "$as_me: Use curses library for screen I/O: ${USE_CURSES}" >&6;}
- ;;
-esac
-if test "$with_debug_log" = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: Enable GnuCOBOL developer logging yes" >&5
-$as_echo "$as_me: Enable GnuCOBOL developer logging yes" >&6;}
-fi
-if test "$with_seqra_extfh" = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: Use external SEQ/RAN file handler: yes" >&5
-$as_echo "$as_me: Use external SEQ/RAN file handler: yes" >&6;}
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Obsolete feature \"OpenCOBOL-only-EXTFH\" used!" >&5
-$as_echo "$as_me: WARNING: Obsolete feature \"OpenCOBOL-only-EXTFH\" used!" >&2;}
-fi
-if test "$with_index_extfh" = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: Use external INDEXED file handler: yes" >&5
-$as_echo "$as_me: Use external INDEXED file handler: yes" >&6;}
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Obsolete feature \"OpenCOBOL-only-EXTFH\" used!" >&5
-$as_echo "$as_me: WARNING: Obsolete feature \"OpenCOBOL-only-EXTFH\" used!" >&2;}
-elif test "$with_cisam" = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: Use CISAM for INDEXED I/O: yes" >&5
-$as_echo "$as_me: Use CISAM for INDEXED I/O: yes" >&6;}
-elif test "$with_disam" = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: Use DISAM for INDEXED I/O: yes" >&5
-$as_echo "$as_me: Use DISAM for INDEXED I/O: yes" >&6;}
-elif test "$with_vbisam" = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: Use VBISAM for INDEXED I/O: yes" >&5
-$as_echo "$as_me: Use VBISAM for INDEXED I/O: yes" >&6;}
-elif test "$with_db" = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: Use Berkeley DB for INDEXED I/O: yes" >&5
-$as_echo "$as_me: Use Berkeley DB for INDEXED I/O: yes" >&6;}
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: INDEXED I/O (no handler configured): NO" >&5
-$as_echo "$as_me: INDEXED I/O (no handler configured): NO" >&6;}
-fi
-
-case "$with_xml2" in
- not_found)
- { $as_echo "$as_me:${as_lineno-$LINENO}: XML I/O (no handler found): NO" >&5
-$as_echo "$as_me: XML I/O (no handler found): NO" >&6;}
- ;;
- no)
- { $as_echo "$as_me:${as_lineno-$LINENO}: XML I/O (disabled): NO" >&5
-$as_echo "$as_me: XML I/O (disabled): NO" >&6;}
- ;;
- *)
- { $as_echo "$as_me:${as_lineno-$LINENO}: Used for XML I/O: ${with_xml2}" >&5
-$as_echo "$as_me: Used for XML I/O: ${with_xml2}" >&6;}
- ;;
-esac
-case "$USE_JSON" in
- not_found)
- { $as_echo "$as_me:${as_lineno-$LINENO}: JSON I/O (no handler found): NO" >&5
-$as_echo "$as_me: JSON I/O (no handler found): NO" >&6;}
- ;;
- no)
- { $as_echo "$as_me:${as_lineno-$LINENO}: JSON I/O (disabled): NO" >&5
-$as_echo "$as_me: JSON I/O (disabled): NO" >&6;}
- ;;
- *)
- { $as_echo "$as_me:${as_lineno-$LINENO}: Used for JSON I/O: ${USE_JSON}" >&5
-$as_echo "$as_me: Used for JSON I/O: ${USE_JSON}" >&6;}
- ;;
-esac
-
-unset DEFINE_DL
diff --git a/copy/Makefile.in b/copy/Makefile.in
deleted file mode 100644
index 625659b..0000000
--- a/copy/Makefile.in
+++ /dev/null
@@ -1,613 +0,0 @@
-# Makefile.in generated by automake 1.16.3 from Makefile.am.
-# @configure_input@
-
-# Copyright (C) 1994-2020 Free Software Foundation, Inc.
-
-# This Makefile.in is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
-# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
-# PARTICULAR PURPOSE.
-
-@SET_MAKE@
-
-#
-# Makefile gnucobol/copy
-#
-# Copyright (C) 2008-2012, 2018 Free Software Foundation, Inc.
-# Written by Roger While
-#
-# 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 <https://www.gnu.org/licenses/>.
-
-VPATH = @srcdir@
-am__is_gnu_make = { \
- if test -z '$(MAKELEVEL)'; then \
- false; \
- elif test -n '$(MAKE_HOST)'; then \
- true; \
- elif test -n '$(MAKE_VERSION)' && test -n '$(CURDIR)'; then \
- true; \
- else \
- false; \
- fi; \
-}
-am__make_running_with_option = \
- case $${target_option-} in \
- ?) ;; \
- *) echo "am__make_running_with_option: internal error: invalid" \
- "target option '$${target_option-}' specified" >&2; \
- exit 1;; \
- esac; \
- has_opt=no; \
- sane_makeflags=$$MAKEFLAGS; \
- if $(am__is_gnu_make); then \
- sane_makeflags=$$MFLAGS; \
- else \
- case $$MAKEFLAGS in \
- *\\[\ \ ]*) \
- bs=\\; \
- sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \
- | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \
- esac; \
- fi; \
- skip_next=no; \
- strip_trailopt () \
- { \
- flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \
- }; \
- for flg in $$sane_makeflags; do \
- test $$skip_next = yes && { skip_next=no; continue; }; \
- case $$flg in \
- *=*|--*) continue;; \
- -*I) strip_trailopt 'I'; skip_next=yes;; \
- -*I?*) strip_trailopt 'I';; \
- -*O) strip_trailopt 'O'; skip_next=yes;; \
- -*O?*) strip_trailopt 'O';; \
- -*l) strip_trailopt 'l'; skip_next=yes;; \
- -*l?*) strip_trailopt 'l';; \
- -[dEDm]) skip_next=yes;; \
- -[JT]) skip_next=yes;; \
- esac; \
- case $$flg in \
- *$$target_option*) has_opt=yes; break;; \
- esac; \
- done; \
- test $$has_opt = yes
-am__make_dryrun = (target_option=n; $(am__make_running_with_option))
-am__make_keepgoing = (target_option=k; $(am__make_running_with_option))
-pkgdatadir = $(datadir)/@PACKAGE@
-pkgincludedir = $(includedir)/@PACKAGE@
-pkglibdir = $(libdir)/@PACKAGE@
-pkglibexecdir = $(libexecdir)/@PACKAGE@
-am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
-install_sh_DATA = $(install_sh) -c -m 644
-install_sh_PROGRAM = $(install_sh) -c
-install_sh_SCRIPT = $(install_sh) -c
-INSTALL_HEADER = $(INSTALL_DATA)
-transform = $(program_transform_name)
-NORMAL_INSTALL = :
-PRE_INSTALL = :
-POST_INSTALL = :
-NORMAL_UNINSTALL = :
-PRE_UNINSTALL = :
-POST_UNINSTALL = :
-build_triplet = @build@
-host_triplet = @host@
-subdir = copy
-ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
-am__aclocal_m4_deps = $(top_srcdir)/m4/ax_ac_append_to_file.m4 \
- $(top_srcdir)/m4/ax_ac_define_resolved.m4 \
- $(top_srcdir)/m4/ax_ac_print_to_file.m4 \
- $(top_srcdir)/m4/ax_add_am_macro_static.m4 \
- $(top_srcdir)/m4/ax_am_macros_static.m4 \
- $(top_srcdir)/m4/ax_check_define.m4 \
- $(top_srcdir)/m4/ax_check_gnu_make.m4 \
- $(top_srcdir)/m4/ax_code_coverage.m4 \
- $(top_srcdir)/m4/ax_file_escapes.m4 \
- $(top_srcdir)/m4/ax_prog_bison.m4 \
- $(top_srcdir)/m4/ax_prog_flex.m4 $(top_srcdir)/m4/codeset.m4 \
- $(top_srcdir)/m4/gettext.m4 $(top_srcdir)/m4/iconv.m4 \
- $(top_srcdir)/m4/intlmacosx.m4 $(top_srcdir)/m4/lib-ld.m4 \
- $(top_srcdir)/m4/lib-link.m4 $(top_srcdir)/m4/lib-prefix.m4 \
- $(top_srcdir)/m4/libtool.m4 $(top_srcdir)/m4/ltoptions.m4 \
- $(top_srcdir)/m4/ltsugar.m4 $(top_srcdir)/m4/ltversion.m4 \
- $(top_srcdir)/m4/lt~obsolete.m4 $(top_srcdir)/m4/nls.m4 \
- $(top_srcdir)/m4/pkg.m4 $(top_srcdir)/m4/po.m4 \
- $(top_srcdir)/m4/progtest.m4 $(top_srcdir)/configure.ac
-am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
- $(ACLOCAL_M4)
-DIST_COMMON = $(srcdir)/Makefile.am $(am__DIST_COMMON)
-mkinstalldirs = $(SHELL) $(top_srcdir)/build_aux/mkinstalldirs
-CONFIG_HEADER = $(top_builddir)/config.h
-CONFIG_CLEAN_FILES =
-CONFIG_CLEAN_VPATH_FILES =
-AM_V_P = $(am__v_P_@AM_V@)
-am__v_P_ = $(am__v_P_@AM_DEFAULT_V@)
-am__v_P_0 = false
-am__v_P_1 = :
-AM_V_GEN = $(am__v_GEN_@AM_V@)
-am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@)
-am__v_GEN_0 = @echo " GEN " $@;
-am__v_GEN_1 =
-AM_V_at = $(am__v_at_@AM_V@)
-am__v_at_ = $(am__v_at_@AM_DEFAULT_V@)
-am__v_at_0 = @
-am__v_at_1 =
-SOURCES =
-DIST_SOURCES =
-am__can_run_installinfo = \
- case $$AM_UPDATE_INFO_DIR in \
- n|no|NO) false;; \
- *) (install-info --version) >/dev/null 2>&1;; \
- esac
-am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
-am__vpath_adj = case $$p in \
- $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
- *) f=$$p;; \
- esac;
-am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`;
-am__install_max = 40
-am__nobase_strip_setup = \
- srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'`
-am__nobase_strip = \
- for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||"
-am__nobase_list = $(am__nobase_strip_setup); \
- for p in $$list; do echo "$$p $$p"; done | \
- sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \
- $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \
- if (++n[$$2] == $(am__install_max)) \
- { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \
- END { for (dir in files) print dir, files[dir] }'
-am__base_list = \
- sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \
- sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g'
-am__uninstall_files_from_dir = { \
- test -z "$$files" \
- || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \
- || { echo " ( cd '$$dir' && rm -f" $$files ")"; \
- $(am__cd) "$$dir" && rm -f $$files; }; \
- }
-am__installdirs = "$(DESTDIR)$(copydir)"
-DATA = $(copy_DATA)
-am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP)
-am__DIST_COMMON = $(srcdir)/Makefile.in \
- $(top_srcdir)/build_aux/mkinstalldirs ChangeLog
-DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
-ACLOCAL = @ACLOCAL@
-AMTAR = @AMTAR@
-AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@
-AR = @AR@
-AS = @AS@
-AUTOCONF = @AUTOCONF@
-AUTOHEADER = @AUTOHEADER@
-AUTOMAKE = @AUTOMAKE@
-AWK = @AWK@
-BDB_CFLAGS = @BDB_CFLAGS@
-BDB_LIBS = @BDB_LIBS@
-CC = @CC@
-CCDEPMODE = @CCDEPMODE@
-CFLAGS = @CFLAGS@
-CJSON_CFLAGS = @CJSON_CFLAGS@
-CJSON_LIBS = @CJSON_LIBS@
-COBC_CPPFLAGS = @COBC_CPPFLAGS@
-COB_BIGENDIAN = @COB_BIGENDIAN@
-COB_CC = @COB_CC@
-COB_CFLAGS = @COB_CFLAGS@
-COB_CONFIG_DIR = @COB_CONFIG_DIR@
-COB_COPY_DIR = @COB_COPY_DIR@
-COB_ENABLE_DEBUG = @COB_ENABLE_DEBUG@
-COB_EXE_EXT = @COB_EXE_EXT@
-COB_FIX_LIBTOOL = @COB_FIX_LIBTOOL@
-COB_HAS_64_BIT_POINTER = @COB_HAS_64_BIT_POINTER@
-COB_HAS_CURSES = @COB_HAS_CURSES@
-COB_HAS_ISAM = @COB_HAS_ISAM@
-COB_HAS_JSON = @COB_HAS_JSON@
-COB_HAS_XML2 = @COB_HAS_XML2@
-COB_LDFLAGS = @COB_LDFLAGS@
-COB_LIBRARY_PATH = @COB_LIBRARY_PATH@
-COB_LIBS = @COB_LIBS@
-COB_MODULE_EXT = @COB_MODULE_EXT@
-COB_OBJECT_EXT = @COB_OBJECT_EXT@
-COB_PATCH_LEVEL = @COB_PATCH_LEVEL@
-CODE_COVERAGE_CFLAGS = @CODE_COVERAGE_CFLAGS@
-CODE_COVERAGE_CPPFLAGS = @CODE_COVERAGE_CPPFLAGS@
-CODE_COVERAGE_CXXFLAGS = @CODE_COVERAGE_CXXFLAGS@
-CODE_COVERAGE_ENABLED = @CODE_COVERAGE_ENABLED@
-CODE_COVERAGE_LIBS = @CODE_COVERAGE_LIBS@
-CPP = @CPP@
-CPPFLAGS = @CPPFLAGS@
-CURSES_LIBS = @CURSES_LIBS@
-CYGPATH_W = @CYGPATH_W@
-DEFS = @DEFS@
-DEPDIR = @DEPDIR@
-DIFF_FLAGS = @DIFF_FLAGS@
-DLLTOOL = @DLLTOOL@
-DSYMUTIL = @DSYMUTIL@
-DUMPBIN = @DUMPBIN@
-ECHO_C = @ECHO_C@
-ECHO_N = @ECHO_N@
-ECHO_T = @ECHO_T@
-EGREP = @EGREP@
-EXEEXT = @EXEEXT@
-FGREP = @FGREP@
-GCOV = @GCOV@
-GENHTML = @GENHTML@
-GETTEXT_MACRO_VERSION = @GETTEXT_MACRO_VERSION@
-GMP_CFLAGS = @GMP_CFLAGS@
-GMP_LIBS = @GMP_LIBS@
-GMSGFMT = @GMSGFMT@
-GMSGFMT_015 = @GMSGFMT_015@
-GREP = @GREP@
-HELP2MAN = @HELP2MAN@
-INSTALL = @INSTALL@
-INSTALL_DATA = @INSTALL_DATA@
-INSTALL_PROGRAM = @INSTALL_PROGRAM@
-INSTALL_SCRIPT = @INSTALL_SCRIPT@
-INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
-INTLLIBS = @INTLLIBS@
-INTL_MACOSX_LIBS = @INTL_MACOSX_LIBS@
-JSON_C_CFLAGS = @JSON_C_CFLAGS@
-JSON_C_LIBS = @JSON_C_LIBS@
-LCOV = @LCOV@
-LD = @LD@
-LDFLAGS = @LDFLAGS@
-LEX = @LEX@
-LEXLIB = @LEXLIB@
-LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@
-LIBCOB_CPPFLAGS = @LIBCOB_CPPFLAGS@
-LIBCOB_LIBS = @LIBCOB_LIBS@
-LIBICONV = @LIBICONV@
-LIBINTL = @LIBINTL@
-LIBOBJS = @LIBOBJS@
-LIBS = @LIBS@
-LIBTOOL = @LIBTOOL@
-LIPO = @LIPO@
-LN_S = @LN_S@
-LTLIBICONV = @LTLIBICONV@
-LTLIBINTL = @LTLIBINTL@
-LTLIBOBJS = @LTLIBOBJS@
-LT_SYS_LIBRARY_PATH = @LT_SYS_LIBRARY_PATH@
-MAKE = @MAKE@
-MAKEINFO = @MAKEINFO@
-MANIFEST_TOOL = @MANIFEST_TOOL@
-MKDIR_P = @MKDIR_P@
-MPIR_CFLAGS = @MPIR_CFLAGS@
-MPIR_LIBS = @MPIR_LIBS@
-MSGFMT = @MSGFMT@
-MSGMERGE = @MSGMERGE@
-MSGMERGE_FOR_MSGFMT_OPTION = @MSGMERGE_FOR_MSGFMT_OPTION@
-NM = @NM@
-NMEDIT = @NMEDIT@
-OBJDUMP = @OBJDUMP@
-OBJEXT = @OBJEXT@
-OTOOL = @OTOOL@
-OTOOL64 = @OTOOL64@
-PACKAGE = @PACKAGE@
-PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
-PACKAGE_NAME = @PACKAGE_NAME@
-PACKAGE_STRING = @PACKAGE_STRING@
-PACKAGE_TARNAME = @PACKAGE_TARNAME@
-PACKAGE_URL = @PACKAGE_URL@
-PACKAGE_VERSION = @PACKAGE_VERSION@
-PATH_SEPARATOR = @PATH_SEPARATOR@
-PERL = @PERL@
-PKG_CONFIG = @PKG_CONFIG@
-PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@
-PKG_CONFIG_PATH = @PKG_CONFIG_PATH@
-POSUB = @POSUB@
-PROGRAMS_LIBS = @PROGRAMS_LIBS@
-QUOTE_INCLUDE_FLAG = @QUOTE_INCLUDE_FLAG@
-RANLIB = @RANLIB@
-RC = @RC@
-SED = @SED@
-SET_MAKE = @SET_MAKE@
-SHELL = @SHELL@
-STRIP = @STRIP@
-USE_NLS = @USE_NLS@
-VERSION = @VERSION@
-XGETTEXT = @XGETTEXT@
-XGETTEXT_015 = @XGETTEXT_015@
-XGETTEXT_EXTRA_OPTIONS = @XGETTEXT_EXTRA_OPTIONS@
-XML2_CFLAGS = @XML2_CFLAGS@
-XML2_CONFIG = @XML2_CONFIG@
-XML2_LIBS = @XML2_LIBS@
-YACC = @YACC@
-YFLAGS = @YFLAGS@
-abs_builddir = @abs_builddir@
-abs_srcdir = @abs_srcdir@
-abs_top_builddir = @abs_top_builddir@
-abs_top_srcdir = @abs_top_srcdir@
-ac_ct_AR = @ac_ct_AR@
-ac_ct_CC = @ac_ct_CC@
-ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
-am__include = @am__include@
-am__leading_dot = @am__leading_dot@
-am__quote = @am__quote@
-am__tar = @am__tar@
-am__untar = @am__untar@
-bindir = @bindir@
-build = @build@
-build_alias = @build_alias@
-build_cpu = @build_cpu@
-build_os = @build_os@
-build_vendor = @build_vendor@
-builddir = @builddir@
-configured_make = @configured_make@
-datadir = @datadir@
-datarootdir = @datarootdir@
-docdir = @docdir@
-dvidir = @dvidir@
-exec_prefix = @exec_prefix@
-host = @host@
-host_alias = @host_alias@
-host_cpu = @host_cpu@
-host_os = @host_os@
-host_vendor = @host_vendor@
-htmldir = @htmldir@
-ifGNUmake = @ifGNUmake@
-ifnGNUmake = @ifnGNUmake@
-includedir = @includedir@
-infodir = @infodir@
-install_sh = @install_sh@
-libdir = @libdir@
-libexecdir = @libexecdir@
-localedir = @localedir@
-localstatedir = @localstatedir@
-mandir = @mandir@
-mkdir_p = @mkdir_p@
-oldincludedir = @oldincludedir@
-pdfdir = @pdfdir@
-prefix = @prefix@
-program_transform_name = @program_transform_name@
-psdir = @psdir@
-runstatedir = @runstatedir@
-sbindir = @sbindir@
-sharedstatedir = @sharedstatedir@
-srcdir = @srcdir@
-sysconfdir = @sysconfdir@
-target_alias = @target_alias@
-top_build_prefix = @top_build_prefix@
-top_builddir = @top_builddir@
-top_srcdir = @top_srcdir@
-copydir = @COB_COPY_DIR@
-copy_DATA = screenio.cpy sqlca.cpy sqlda.cpy xfhfcd.cpy xfhfcd3.cpy
-EXTRA_DIST = $(copy_DATA)
-all: all-am
-
-.SUFFIXES:
-$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps)
- @for dep in $?; do \
- case '$(am__configure_deps)' in \
- *$$dep*) \
- ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
- && { if test -f $@; then exit 0; else break; fi; }; \
- exit 1;; \
- esac; \
- done; \
- echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu copy/Makefile'; \
- $(am__cd) $(top_srcdir) && \
- $(AUTOMAKE) --gnu copy/Makefile
-Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
- @case '$?' in \
- *config.status*) \
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
- *) \
- echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__maybe_remake_depfiles)'; \
- cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__maybe_remake_depfiles);; \
- esac;
-
-$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-
-$(top_srcdir)/configure: $(am__configure_deps)
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-$(ACLOCAL_M4): $(am__aclocal_m4_deps)
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-$(am__aclocal_m4_deps):
-
-mostlyclean-libtool:
- -rm -f *.lo
-
-clean-libtool:
- -rm -rf .libs _libs
-install-copyDATA: $(copy_DATA)
- @$(NORMAL_INSTALL)
- @list='$(copy_DATA)'; test -n "$(copydir)" || list=; \
- if test -n "$$list"; then \
- echo " $(MKDIR_P) '$(DESTDIR)$(copydir)'"; \
- $(MKDIR_P) "$(DESTDIR)$(copydir)" || exit 1; \
- fi; \
- for p in $$list; do \
- if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
- echo "$$d$$p"; \
- done | $(am__base_list) | \
- while read files; do \
- echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(copydir)'"; \
- $(INSTALL_DATA) $$files "$(DESTDIR)$(copydir)" || exit $$?; \
- done
-
-uninstall-copyDATA:
- @$(NORMAL_UNINSTALL)
- @list='$(copy_DATA)'; test -n "$(copydir)" || list=; \
- files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \
- dir='$(DESTDIR)$(copydir)'; $(am__uninstall_files_from_dir)
-tags TAGS:
-
-ctags CTAGS:
-
-cscope cscopelist:
-
-
-distdir: $(BUILT_SOURCES)
- $(MAKE) $(AM_MAKEFLAGS) distdir-am
-
-distdir-am: $(DISTFILES)
- @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
- topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
- list='$(DISTFILES)'; \
- dist_files=`for file in $$list; do echo $$file; done | \
- sed -e "s|^$$srcdirstrip/||;t" \
- -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
- case $$dist_files in \
- */*) $(MKDIR_P) `echo "$$dist_files" | \
- sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
- sort -u` ;; \
- esac; \
- for file in $$dist_files; do \
- if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
- if test -d $$d/$$file; then \
- dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
- if test -d "$(distdir)/$$file"; then \
- find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
- fi; \
- if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
- cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
- find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
- fi; \
- cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
- else \
- test -f "$(distdir)/$$file" \
- || cp -p $$d/$$file "$(distdir)/$$file" \
- || exit 1; \
- fi; \
- done
-check-am: all-am
-check: check-am
-all-am: Makefile $(DATA)
-installdirs:
- for dir in "$(DESTDIR)$(copydir)"; do \
- test -z "$$dir" || $(MKDIR_P) "$$dir"; \
- done
-install: install-am
-install-exec: install-exec-am
-install-data: install-data-am
-uninstall: uninstall-am
-
-install-am: all-am
- @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
-
-installcheck: installcheck-am
-install-strip:
- if test -z '$(STRIP)'; then \
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- install; \
- else \
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
- fi
-mostlyclean-generic:
-
-clean-generic:
-
-distclean-generic:
- -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
- -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
-
-maintainer-clean-generic:
- @echo "This command is intended for maintainers to use"
- @echo "it deletes files that may require special tools to rebuild."
-clean: clean-am
-
-clean-am: clean-generic clean-libtool mostlyclean-am
-
-distclean: distclean-am
- -rm -f Makefile
-distclean-am: clean-am distclean-generic
-
-dvi: dvi-am
-
-dvi-am:
-
-html: html-am
-
-html-am:
-
-info: info-am
-
-info-am:
-
-install-data-am: install-copyDATA
-
-install-dvi: install-dvi-am
-
-install-dvi-am:
-
-install-exec-am:
-
-install-html: install-html-am
-
-install-html-am:
-
-install-info: install-info-am
-
-install-info-am:
-
-install-man:
-
-install-pdf: install-pdf-am
-
-install-pdf-am:
-
-install-ps: install-ps-am
-
-install-ps-am:
-
-installcheck-am:
-
-maintainer-clean: maintainer-clean-am
- -rm -f Makefile
-maintainer-clean-am: distclean-am maintainer-clean-generic
-
-mostlyclean: mostlyclean-am
-
-mostlyclean-am: mostlyclean-generic mostlyclean-libtool
-
-pdf: pdf-am
-
-pdf-am:
-
-ps: ps-am
-
-ps-am:
-
-uninstall-am: uninstall-copyDATA
-
-.MAKE: install-am install-strip
-
-.PHONY: all all-am check check-am clean clean-generic clean-libtool \
- cscopelist-am ctags-am distclean distclean-generic \
- distclean-libtool distdir dvi dvi-am html html-am info info-am \
- install install-am install-copyDATA install-data \
- install-data-am install-dvi install-dvi-am install-exec \
- install-exec-am install-html install-html-am install-info \
- install-info-am install-man install-pdf install-pdf-am \
- install-ps install-ps-am install-strip installcheck \
- installcheck-am installdirs maintainer-clean \
- maintainer-clean-generic mostlyclean mostlyclean-generic \
- mostlyclean-libtool pdf pdf-am ps ps-am tags-am uninstall \
- uninstall-am uninstall-copyDATA
-
-.PRECIOUS: Makefile
-
-
-# Tell versions [3.59,3.63) of GNU make to not export all variables.
-# Otherwise a system limit (for SysV at least) may be exceeded.
-.NOEXPORT:
diff --git a/doc/Makefile.in b/doc/Makefile.in
deleted file mode 100644
index b7ea911..0000000
--- a/doc/Makefile.in
+++ /dev/null
@@ -1,986 +0,0 @@
-# Makefile.in generated by automake 1.16.3 from Makefile.am.
-# @configure_input@
-
-# Copyright (C) 1994-2020 Free Software Foundation, Inc.
-
-# This Makefile.in is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
-# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
-# PARTICULAR PURPOSE.
-
-@SET_MAKE@
-
-#
-# Makefile gnucobol/doc
-#
-# Copyright (C) 2003-2012, 2015-2022 Free Software Foundation, Inc.
-# Written by Keisuke Nishida, Roger While, Simon Sobisch
-#
-# 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 <https://www.gnu.org/licenses/>.
-
-VPATH = @srcdir@
-am__is_gnu_make = { \
- if test -z '$(MAKELEVEL)'; then \
- false; \
- elif test -n '$(MAKE_HOST)'; then \
- true; \
- elif test -n '$(MAKE_VERSION)' && test -n '$(CURDIR)'; then \
- true; \
- else \
- false; \
- fi; \
-}
-am__make_running_with_option = \
- case $${target_option-} in \
- ?) ;; \
- *) echo "am__make_running_with_option: internal error: invalid" \
- "target option '$${target_option-}' specified" >&2; \
- exit 1;; \
- esac; \
- has_opt=no; \
- sane_makeflags=$$MAKEFLAGS; \
- if $(am__is_gnu_make); then \
- sane_makeflags=$$MFLAGS; \
- else \
- case $$MAKEFLAGS in \
- *\\[\ \ ]*) \
- bs=\\; \
- sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \
- | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \
- esac; \
- fi; \
- skip_next=no; \
- strip_trailopt () \
- { \
- flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \
- }; \
- for flg in $$sane_makeflags; do \
- test $$skip_next = yes && { skip_next=no; continue; }; \
- case $$flg in \
- *=*|--*) continue;; \
- -*I) strip_trailopt 'I'; skip_next=yes;; \
- -*I?*) strip_trailopt 'I';; \
- -*O) strip_trailopt 'O'; skip_next=yes;; \
- -*O?*) strip_trailopt 'O';; \
- -*l) strip_trailopt 'l'; skip_next=yes;; \
- -*l?*) strip_trailopt 'l';; \
- -[dEDm]) skip_next=yes;; \
- -[JT]) skip_next=yes;; \
- esac; \
- case $$flg in \
- *$$target_option*) has_opt=yes; break;; \
- esac; \
- done; \
- test $$has_opt = yes
-am__make_dryrun = (target_option=n; $(am__make_running_with_option))
-am__make_keepgoing = (target_option=k; $(am__make_running_with_option))
-pkgdatadir = $(datadir)/@PACKAGE@
-pkgincludedir = $(includedir)/@PACKAGE@
-pkglibdir = $(libdir)/@PACKAGE@
-pkglibexecdir = $(libexecdir)/@PACKAGE@
-am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
-install_sh_DATA = $(install_sh) -c -m 644
-install_sh_PROGRAM = $(install_sh) -c
-install_sh_SCRIPT = $(install_sh) -c
-INSTALL_HEADER = $(INSTALL_DATA)
-transform = $(program_transform_name)
-NORMAL_INSTALL = :
-PRE_INSTALL = :
-POST_INSTALL = :
-NORMAL_UNINSTALL = :
-PRE_UNINSTALL = :
-POST_UNINSTALL = :
-build_triplet = @build@
-host_triplet = @host@
-subdir = doc
-ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
-am__aclocal_m4_deps = $(top_srcdir)/m4/ax_ac_append_to_file.m4 \
- $(top_srcdir)/m4/ax_ac_define_resolved.m4 \
- $(top_srcdir)/m4/ax_ac_print_to_file.m4 \
- $(top_srcdir)/m4/ax_add_am_macro_static.m4 \
- $(top_srcdir)/m4/ax_am_macros_static.m4 \
- $(top_srcdir)/m4/ax_check_define.m4 \
- $(top_srcdir)/m4/ax_check_gnu_make.m4 \
- $(top_srcdir)/m4/ax_code_coverage.m4 \
- $(top_srcdir)/m4/ax_file_escapes.m4 \
- $(top_srcdir)/m4/ax_prog_bison.m4 \
- $(top_srcdir)/m4/ax_prog_flex.m4 $(top_srcdir)/m4/codeset.m4 \
- $(top_srcdir)/m4/gettext.m4 $(top_srcdir)/m4/iconv.m4 \
- $(top_srcdir)/m4/intlmacosx.m4 $(top_srcdir)/m4/lib-ld.m4 \
- $(top_srcdir)/m4/lib-link.m4 $(top_srcdir)/m4/lib-prefix.m4 \
- $(top_srcdir)/m4/libtool.m4 $(top_srcdir)/m4/ltoptions.m4 \
- $(top_srcdir)/m4/ltsugar.m4 $(top_srcdir)/m4/ltversion.m4 \
- $(top_srcdir)/m4/lt~obsolete.m4 $(top_srcdir)/m4/nls.m4 \
- $(top_srcdir)/m4/pkg.m4 $(top_srcdir)/m4/po.m4 \
- $(top_srcdir)/m4/progtest.m4 $(top_srcdir)/configure.ac
-am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
- $(ACLOCAL_M4)
-DIST_COMMON = $(srcdir)/Makefile.am $(dist_noinst_SCRIPTS) \
- $(srcdir)/version.texi $(srcdir)/stamp-vti $(am__DIST_COMMON)
-mkinstalldirs = $(SHELL) $(top_srcdir)/build_aux/mkinstalldirs
-CONFIG_HEADER = $(top_builddir)/config.h
-CONFIG_CLEAN_FILES =
-CONFIG_CLEAN_VPATH_FILES =
-SCRIPTS = $(dist_noinst_SCRIPTS)
-AM_V_P = $(am__v_P_@AM_V@)
-am__v_P_ = $(am__v_P_@AM_DEFAULT_V@)
-am__v_P_0 = false
-am__v_P_1 = :
-AM_V_GEN = $(am__v_GEN_@AM_V@)
-am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@)
-am__v_GEN_0 = @echo " GEN " $@;
-am__v_GEN_1 =
-AM_V_at = $(am__v_at_@AM_V@)
-am__v_at_ = $(am__v_at_@AM_DEFAULT_V@)
-am__v_at_0 = @
-am__v_at_1 =
-SOURCES =
-DIST_SOURCES =
-AM_V_DVIPS = $(am__v_DVIPS_@AM_V@)
-am__v_DVIPS_ = $(am__v_DVIPS_@AM_DEFAULT_V@)
-am__v_DVIPS_0 = @echo " DVIPS " $@;
-am__v_DVIPS_1 =
-AM_V_MAKEINFO = $(am__v_MAKEINFO_@AM_V@)
-am__v_MAKEINFO_ = $(am__v_MAKEINFO_@AM_DEFAULT_V@)
-am__v_MAKEINFO_0 = @echo " MAKEINFO" $@;
-am__v_MAKEINFO_1 =
-AM_V_INFOHTML = $(am__v_INFOHTML_@AM_V@)
-am__v_INFOHTML_ = $(am__v_INFOHTML_@AM_DEFAULT_V@)
-am__v_INFOHTML_0 = @echo " INFOHTML" $@;
-am__v_INFOHTML_1 =
-AM_V_TEXI2DVI = $(am__v_TEXI2DVI_@AM_V@)
-am__v_TEXI2DVI_ = $(am__v_TEXI2DVI_@AM_DEFAULT_V@)
-am__v_TEXI2DVI_0 = @echo " TEXI2DVI" $@;
-am__v_TEXI2DVI_1 =
-AM_V_TEXI2PDF = $(am__v_TEXI2PDF_@AM_V@)
-am__v_TEXI2PDF_ = $(am__v_TEXI2PDF_@AM_DEFAULT_V@)
-am__v_TEXI2PDF_0 = @echo " TEXI2PDF" $@;
-am__v_TEXI2PDF_1 =
-AM_V_texinfo = $(am__v_texinfo_@AM_V@)
-am__v_texinfo_ = $(am__v_texinfo_@AM_DEFAULT_V@)
-am__v_texinfo_0 = -q
-am__v_texinfo_1 =
-AM_V_texidevnull = $(am__v_texidevnull_@AM_V@)
-am__v_texidevnull_ = $(am__v_texidevnull_@AM_DEFAULT_V@)
-am__v_texidevnull_0 = > /dev/null
-am__v_texidevnull_1 =
-INFO_DEPS = $(srcdir)/gnucobol.info
-TEXINFO_TEX = $(top_srcdir)/build_aux/texinfo.tex
-am__TEXINFO_TEX_DIR = $(top_srcdir)/build_aux
-DVIS = gnucobol.dvi
-PDFS = gnucobol.pdf
-PSS = gnucobol.ps
-HTMLS = gnucobol.html
-TEXINFOS = gnucobol.texi
-TEXI2DVI = texi2dvi
-TEXI2PDF = $(TEXI2DVI) --pdf --batch
-MAKEINFOHTML = $(MAKEINFO) --html
-DVIPS = dvips
-am__can_run_installinfo = \
- case $$AM_UPDATE_INFO_DIR in \
- n|no|NO) false;; \
- *) (install-info --version) >/dev/null 2>&1;; \
- esac
-am__installdirs = "$(DESTDIR)$(infodir)"
-am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
-am__vpath_adj = case $$p in \
- $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
- *) f=$$p;; \
- esac;
-am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`;
-am__install_max = 40
-am__nobase_strip_setup = \
- srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'`
-am__nobase_strip = \
- for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||"
-am__nobase_list = $(am__nobase_strip_setup); \
- for p in $$list; do echo "$$p $$p"; done | \
- sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \
- $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \
- if (++n[$$2] == $(am__install_max)) \
- { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \
- END { for (dir in files) print dir, files[dir] }'
-am__base_list = \
- sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \
- sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g'
-am__uninstall_files_from_dir = { \
- test -z "$$files" \
- || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \
- || { echo " ( cd '$$dir' && rm -f" $$files ")"; \
- $(am__cd) "$$dir" && rm -f $$files; }; \
- }
-am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP)
-am__DIST_COMMON = $(gnucobol_TEXINFOS) $(srcdir)/Makefile.in \
- $(top_srcdir)/build_aux/mdate-sh \
- $(top_srcdir)/build_aux/mkinstalldirs ChangeLog
-DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
-ACLOCAL = @ACLOCAL@
-AMTAR = @AMTAR@
-AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@
-AR = @AR@
-AS = @AS@
-AUTOCONF = @AUTOCONF@
-AUTOHEADER = @AUTOHEADER@
-AUTOMAKE = @AUTOMAKE@
-AWK = @AWK@
-BDB_CFLAGS = @BDB_CFLAGS@
-BDB_LIBS = @BDB_LIBS@
-CC = @CC@
-CCDEPMODE = @CCDEPMODE@
-CFLAGS = @CFLAGS@
-CJSON_CFLAGS = @CJSON_CFLAGS@
-CJSON_LIBS = @CJSON_LIBS@
-COBC_CPPFLAGS = @COBC_CPPFLAGS@
-COB_BIGENDIAN = @COB_BIGENDIAN@
-COB_CC = @COB_CC@
-COB_CFLAGS = @COB_CFLAGS@
-COB_CONFIG_DIR = @COB_CONFIG_DIR@
-COB_COPY_DIR = @COB_COPY_DIR@
-COB_ENABLE_DEBUG = @COB_ENABLE_DEBUG@
-COB_EXE_EXT = @COB_EXE_EXT@
-COB_FIX_LIBTOOL = @COB_FIX_LIBTOOL@
-COB_HAS_64_BIT_POINTER = @COB_HAS_64_BIT_POINTER@
-COB_HAS_CURSES = @COB_HAS_CURSES@
-COB_HAS_ISAM = @COB_HAS_ISAM@
-COB_HAS_JSON = @COB_HAS_JSON@
-COB_HAS_XML2 = @COB_HAS_XML2@
-COB_LDFLAGS = @COB_LDFLAGS@
-COB_LIBRARY_PATH = @COB_LIBRARY_PATH@
-COB_LIBS = @COB_LIBS@
-COB_MODULE_EXT = @COB_MODULE_EXT@
-COB_OBJECT_EXT = @COB_OBJECT_EXT@
-COB_PATCH_LEVEL = @COB_PATCH_LEVEL@
-CODE_COVERAGE_CFLAGS = @CODE_COVERAGE_CFLAGS@
-CODE_COVERAGE_CPPFLAGS = @CODE_COVERAGE_CPPFLAGS@
-CODE_COVERAGE_CXXFLAGS = @CODE_COVERAGE_CXXFLAGS@
-CODE_COVERAGE_ENABLED = @CODE_COVERAGE_ENABLED@
-CODE_COVERAGE_LIBS = @CODE_COVERAGE_LIBS@
-CPP = @CPP@
-CPPFLAGS = @CPPFLAGS@
-CURSES_LIBS = @CURSES_LIBS@
-CYGPATH_W = @CYGPATH_W@
-DEFS = @DEFS@
-DEPDIR = @DEPDIR@
-DIFF_FLAGS = @DIFF_FLAGS@
-DLLTOOL = @DLLTOOL@
-DSYMUTIL = @DSYMUTIL@
-DUMPBIN = @DUMPBIN@
-ECHO_C = @ECHO_C@
-ECHO_N = @ECHO_N@
-ECHO_T = @ECHO_T@
-EGREP = @EGREP@
-EXEEXT = @EXEEXT@
-FGREP = @FGREP@
-GCOV = @GCOV@
-GENHTML = @GENHTML@
-GETTEXT_MACRO_VERSION = @GETTEXT_MACRO_VERSION@
-GMP_CFLAGS = @GMP_CFLAGS@
-GMP_LIBS = @GMP_LIBS@
-GMSGFMT = @GMSGFMT@
-GMSGFMT_015 = @GMSGFMT_015@
-GREP = @GREP@
-HELP2MAN = @HELP2MAN@
-INSTALL = @INSTALL@
-INSTALL_DATA = @INSTALL_DATA@
-INSTALL_PROGRAM = @INSTALL_PROGRAM@
-INSTALL_SCRIPT = @INSTALL_SCRIPT@
-INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
-INTLLIBS = @INTLLIBS@
-INTL_MACOSX_LIBS = @INTL_MACOSX_LIBS@
-JSON_C_CFLAGS = @JSON_C_CFLAGS@
-JSON_C_LIBS = @JSON_C_LIBS@
-LCOV = @LCOV@
-LD = @LD@
-LDFLAGS = @LDFLAGS@
-LEX = @LEX@
-LEXLIB = @LEXLIB@
-LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@
-LIBCOB_CPPFLAGS = @LIBCOB_CPPFLAGS@
-LIBCOB_LIBS = @LIBCOB_LIBS@
-LIBICONV = @LIBICONV@
-LIBINTL = @LIBINTL@
-LIBOBJS = @LIBOBJS@
-LIBS = @LIBS@
-LIBTOOL = @LIBTOOL@
-LIPO = @LIPO@
-LN_S = @LN_S@
-LTLIBICONV = @LTLIBICONV@
-LTLIBINTL = @LTLIBINTL@
-LTLIBOBJS = @LTLIBOBJS@
-LT_SYS_LIBRARY_PATH = @LT_SYS_LIBRARY_PATH@
-MAKE = @MAKE@
-MAKEINFO = @MAKEINFO@
-MANIFEST_TOOL = @MANIFEST_TOOL@
-MKDIR_P = @MKDIR_P@
-MPIR_CFLAGS = @MPIR_CFLAGS@
-MPIR_LIBS = @MPIR_LIBS@
-MSGFMT = @MSGFMT@
-MSGMERGE = @MSGMERGE@
-MSGMERGE_FOR_MSGFMT_OPTION = @MSGMERGE_FOR_MSGFMT_OPTION@
-NM = @NM@
-NMEDIT = @NMEDIT@
-OBJDUMP = @OBJDUMP@
-OBJEXT = @OBJEXT@
-OTOOL = @OTOOL@
-OTOOL64 = @OTOOL64@
-PACKAGE = @PACKAGE@
-PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
-PACKAGE_NAME = @PACKAGE_NAME@
-PACKAGE_STRING = @PACKAGE_STRING@
-PACKAGE_TARNAME = @PACKAGE_TARNAME@
-PACKAGE_URL = @PACKAGE_URL@
-PACKAGE_VERSION = @PACKAGE_VERSION@
-PATH_SEPARATOR = @PATH_SEPARATOR@
-PERL = @PERL@
-PKG_CONFIG = @PKG_CONFIG@
-PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@
-PKG_CONFIG_PATH = @PKG_CONFIG_PATH@
-POSUB = @POSUB@
-PROGRAMS_LIBS = @PROGRAMS_LIBS@
-QUOTE_INCLUDE_FLAG = @QUOTE_INCLUDE_FLAG@
-RANLIB = @RANLIB@
-RC = @RC@
-SED = @SED@
-SET_MAKE = @SET_MAKE@
-SHELL = @SHELL@
-STRIP = @STRIP@
-USE_NLS = @USE_NLS@
-VERSION = @VERSION@
-XGETTEXT = @XGETTEXT@
-XGETTEXT_015 = @XGETTEXT_015@
-XGETTEXT_EXTRA_OPTIONS = @XGETTEXT_EXTRA_OPTIONS@
-XML2_CFLAGS = @XML2_CFLAGS@
-XML2_CONFIG = @XML2_CONFIG@
-XML2_LIBS = @XML2_LIBS@
-YACC = @YACC@
-YFLAGS = @YFLAGS@
-abs_builddir = @abs_builddir@
-abs_srcdir = @abs_srcdir@
-abs_top_builddir = @abs_top_builddir@
-abs_top_srcdir = @abs_top_srcdir@
-ac_ct_AR = @ac_ct_AR@
-ac_ct_CC = @ac_ct_CC@
-ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
-am__include = @am__include@
-am__leading_dot = @am__leading_dot@
-am__quote = @am__quote@
-am__tar = @am__tar@
-am__untar = @am__untar@
-bindir = @bindir@
-build = @build@
-build_alias = @build_alias@
-build_cpu = @build_cpu@
-build_os = @build_os@
-build_vendor = @build_vendor@
-builddir = @builddir@
-configured_make = @configured_make@
-datadir = @datadir@
-datarootdir = @datarootdir@
-docdir = @docdir@
-dvidir = @dvidir@
-exec_prefix = @exec_prefix@
-host = @host@
-host_alias = @host_alias@
-host_cpu = @host_cpu@
-host_os = @host_os@
-host_vendor = @host_vendor@
-htmldir = @htmldir@
-ifGNUmake = @ifGNUmake@
-ifnGNUmake = @ifnGNUmake@
-includedir = @includedir@
-infodir = @infodir@
-install_sh = @install_sh@
-libdir = @libdir@
-libexecdir = @libexecdir@
-localedir = @localedir@
-localstatedir = @localstatedir@
-mandir = @mandir@
-mkdir_p = @mkdir_p@
-oldincludedir = @oldincludedir@
-pdfdir = @pdfdir@
-prefix = @prefix@
-program_transform_name = @program_transform_name@
-psdir = @psdir@
-runstatedir = @runstatedir@
-sbindir = @sbindir@
-sharedstatedir = @sharedstatedir@
-srcdir = @srcdir@
-sysconfdir = @sysconfdir@
-target_alias = @target_alias@
-top_build_prefix = @top_build_prefix@
-top_builddir = @top_builddir@
-top_srcdir = @top_srcdir@
-
-#
-# The texinfo input is derived from --help output of the programs just
-# built (cobc and cobcrun). We refer to them in their in-tree built
-# locations, to make sure we're not deriving the documentation from an
-# installed version.
-#
-COBC = $(top_builddir)/cobc/cobc$(EXEEXT)
-COBCRUN = $(top_builddir)/bin/cobcrun$(EXEEXT)
-PASSED_OPTIONS = GREP=$(GREP) \
- SED=$(SED) \
- AWK=$(AWK) \
- COBC=$(COBC) \
- COBCRUN=$(COBCRUN)
-
-COBCINFOSH = $(PASSED_OPTIONS) LANG=C $(top_builddir)/pre-inst-env \
- $(top_srcdir)/doc/cobcinfo.sh
-
-info_TEXINFOS = gnucobol.texi
-GENINCLUDES = cbhelp.tex cbrese.tex cbintr.tex cbsyst.tex cbmnem.tex \
- cbconf.tex cbchelp.tex cbrunt.tex cbexceptions.tex
-
-gnucobol_TEXINFOS = $(GENINCLUDES) fdl.texi
-BUILT_SOURCES = $(GENINCLUDES)
-EXTRA_DIST = gnucobol.pdf
-dist_noinst_SCRIPTS = cobcinfo.sh cbhelp.tex.gen cbintr.tex.gen cbrunt.tex.gen
-AM_MAKEINFOHTMLFLAGS = --no-headers --no-split
-CLEANFILES = *.aux *.cp *.fn *.ky *.log *.pg *.toc *.tp *.vr *.vrs
-MAINTAINERCLEANFILES = $(GENINCLUDES)
-all: $(BUILT_SOURCES)
- $(MAKE) $(AM_MAKEFLAGS) all-am
-
-.SUFFIXES:
-.SUFFIXES: .dvi .html .info .pdf .ps .texi
-$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps)
- @for dep in $?; do \
- case '$(am__configure_deps)' in \
- *$$dep*) \
- ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
- && { if test -f $@; then exit 0; else break; fi; }; \
- exit 1;; \
- esac; \
- done; \
- echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu doc/Makefile'; \
- $(am__cd) $(top_srcdir) && \
- $(AUTOMAKE) --gnu doc/Makefile
-Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
- @case '$?' in \
- *config.status*) \
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
- *) \
- echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__maybe_remake_depfiles)'; \
- cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__maybe_remake_depfiles);; \
- esac;
-
-$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-
-$(top_srcdir)/configure: $(am__configure_deps)
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-$(ACLOCAL_M4): $(am__aclocal_m4_deps)
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-$(am__aclocal_m4_deps):
-
-mostlyclean-libtool:
- -rm -f *.lo
-
-clean-libtool:
- -rm -rf .libs _libs
-
-.texi.info:
- $(AM_V_MAKEINFO)restore=: && backupdir="$(am__leading_dot)am$$$$" && \
- am__cwd=`pwd` && $(am__cd) $(srcdir) && \
- rm -rf $$backupdir && mkdir $$backupdir && \
- if ($(MAKEINFO) --version) >/dev/null 2>&1; then \
- for f in $@ $@-[0-9] $@-[0-9][0-9] $(@:.info=).i[0-9] $(@:.info=).i[0-9][0-9]; do \
- if test -f $$f; then mv $$f $$backupdir; restore=mv; else :; fi; \
- done; \
- else :; fi && \
- cd "$$am__cwd"; \
- if $(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \
- -o $@ $<; \
- then \
- rc=0; \
- $(am__cd) $(srcdir); \
- else \
- rc=$$?; \
- $(am__cd) $(srcdir) && \
- $$restore $$backupdir/* `echo "./$@" | sed 's|[^/]*$$||'`; \
- fi; \
- rm -rf $$backupdir; exit $$rc
-
-.texi.dvi:
- $(AM_V_TEXI2DVI)TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \
- MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \
- $(TEXI2DVI) $(AM_V_texinfo) --build-dir=$(@:.dvi=.t2d) -o $@ $(AM_V_texidevnull) \
- $<
-
-.texi.pdf:
- $(AM_V_TEXI2PDF)TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \
- MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \
- $(TEXI2PDF) $(AM_V_texinfo) --build-dir=$(@:.pdf=.t2p) -o $@ $(AM_V_texidevnull) \
- $<
-
-.texi.html:
- $(AM_V_MAKEINFO)rm -rf $(@:.html=.htp)
- $(AM_V_at)if $(MAKEINFOHTML) $(AM_MAKEINFOHTMLFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \
- -o $(@:.html=.htp) $<; \
- then \
- rm -rf $@ && mv $(@:.html=.htp) $@; \
- else \
- rm -rf $(@:.html=.htp); exit 1; \
- fi
-$(srcdir)/gnucobol.info: gnucobol.texi $(srcdir)/version.texi $(gnucobol_TEXINFOS)
-gnucobol.dvi: gnucobol.texi $(srcdir)/version.texi $(gnucobol_TEXINFOS)
-gnucobol.pdf: gnucobol.texi $(srcdir)/version.texi $(gnucobol_TEXINFOS)
-gnucobol.html: gnucobol.texi $(srcdir)/version.texi $(gnucobol_TEXINFOS)
-$(srcdir)/version.texi: $(srcdir)/stamp-vti
-$(srcdir)/stamp-vti: gnucobol.texi $(top_srcdir)/configure
- @(dir=.; test -f ./gnucobol.texi || dir=$(srcdir); \
- set `$(SHELL) $(top_srcdir)/build_aux/mdate-sh $$dir/gnucobol.texi`; \
- echo "@set UPDATED $$1 $$2 $$3"; \
- echo "@set UPDATED-MONTH $$2 $$3"; \
- echo "@set EDITION $(VERSION)"; \
- echo "@set VERSION $(VERSION)") > vti.tmp$$$$ && \
- (cmp -s vti.tmp$$$$ $(srcdir)/version.texi \
- || (echo "Updating $(srcdir)/version.texi" && \
- cp vti.tmp$$$$ $(srcdir)/version.texi.tmp$$$$ && \
- mv $(srcdir)/version.texi.tmp$$$$ $(srcdir)/version.texi)) && \
- rm -f vti.tmp$$$$ $(srcdir)/version.texi.$$$$
- @cp $(srcdir)/version.texi $@
-
-mostlyclean-vti:
- -rm -f vti.tmp* $(srcdir)/version.texi.tmp*
-
-maintainer-clean-vti:
- -rm -f $(srcdir)/stamp-vti $(srcdir)/version.texi
-.dvi.ps:
- $(AM_V_DVIPS)TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \
- $(DVIPS) $(AM_V_texinfo) -o $@ $<
-
-uninstall-dvi-am:
- @$(NORMAL_UNINSTALL)
- @list='$(DVIS)'; test -n "$(dvidir)" || list=; \
- for p in $$list; do \
- $(am__strip_dir) \
- echo " rm -f '$(DESTDIR)$(dvidir)/$$f'"; \
- rm -f "$(DESTDIR)$(dvidir)/$$f"; \
- done
-
-uninstall-html-am:
- @$(NORMAL_UNINSTALL)
- @list='$(HTMLS)'; test -n "$(htmldir)" || list=; \
- for p in $$list; do \
- $(am__strip_dir) \
- echo " rm -rf '$(DESTDIR)$(htmldir)/$$f'"; \
- rm -rf "$(DESTDIR)$(htmldir)/$$f"; \
- done
-
-uninstall-info-am:
- @$(PRE_UNINSTALL)
- @if test -d '$(DESTDIR)$(infodir)' && $(am__can_run_installinfo); then \
- list='$(INFO_DEPS)'; \
- for file in $$list; do \
- relfile=`echo "$$file" | sed 's|^.*/||'`; \
- echo " install-info --info-dir='$(DESTDIR)$(infodir)' --remove '$(DESTDIR)$(infodir)/$$relfile'"; \
- if install-info --info-dir="$(DESTDIR)$(infodir)" --remove "$(DESTDIR)$(infodir)/$$relfile"; \
- then :; else test ! -f "$(DESTDIR)$(infodir)/$$relfile" || exit 1; fi; \
- done; \
- else :; fi
- @$(NORMAL_UNINSTALL)
- @list='$(INFO_DEPS)'; \
- for file in $$list; do \
- relfile=`echo "$$file" | sed 's|^.*/||'`; \
- relfile_i=`echo "$$relfile" | sed 's|\.info$$||;s|$$|.i|'`; \
- (if test -d "$(DESTDIR)$(infodir)" && cd "$(DESTDIR)$(infodir)"; then \
- echo " cd '$(DESTDIR)$(infodir)' && rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]"; \
- rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]; \
- else :; fi); \
- done
-
-uninstall-pdf-am:
- @$(NORMAL_UNINSTALL)
- @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \
- for p in $$list; do \
- $(am__strip_dir) \
- echo " rm -f '$(DESTDIR)$(pdfdir)/$$f'"; \
- rm -f "$(DESTDIR)$(pdfdir)/$$f"; \
- done
-
-uninstall-ps-am:
- @$(NORMAL_UNINSTALL)
- @list='$(PSS)'; test -n "$(psdir)" || list=; \
- for p in $$list; do \
- $(am__strip_dir) \
- echo " rm -f '$(DESTDIR)$(psdir)/$$f'"; \
- rm -f "$(DESTDIR)$(psdir)/$$f"; \
- done
-
-dist-info: $(INFO_DEPS)
- @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \
- list='$(INFO_DEPS)'; \
- for base in $$list; do \
- case $$base in \
- $(srcdir)/*) base=`echo "$$base" | sed "s|^$$srcdirstrip/||"`;; \
- esac; \
- if test -f $$base; then d=.; else d=$(srcdir); fi; \
- base_i=`echo "$$base" | sed 's|\.info$$||;s|$$|.i|'`; \
- for file in $$d/$$base $$d/$$base-[0-9] $$d/$$base-[0-9][0-9] $$d/$$base_i[0-9] $$d/$$base_i[0-9][0-9]; do \
- if test -f $$file; then \
- relfile=`expr "$$file" : "$$d/\(.*\)"`; \
- test -f "$(distdir)/$$relfile" || \
- cp -p $$file "$(distdir)/$$relfile"; \
- else :; fi; \
- done; \
- done
-
-mostlyclean-aminfo:
- -rm -rf gnucobol.t2d gnucobol.t2p
-
-clean-aminfo:
- -test -z "gnucobol.dvi gnucobol.pdf gnucobol.ps gnucobol.html" \
- || rm -rf gnucobol.dvi gnucobol.pdf gnucobol.ps gnucobol.html
-
-maintainer-clean-aminfo:
- @list='$(INFO_DEPS)'; for i in $$list; do \
- i_i=`echo "$$i" | sed 's|\.info$$||;s|$$|.i|'`; \
- echo " rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]"; \
- rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]; \
- done
-tags TAGS:
-
-ctags CTAGS:
-
-cscope cscopelist:
-
-
-distdir: $(BUILT_SOURCES)
- $(MAKE) $(AM_MAKEFLAGS) distdir-am
-
-distdir-am: $(DISTFILES)
- @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
- topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
- list='$(DISTFILES)'; \
- dist_files=`for file in $$list; do echo $$file; done | \
- sed -e "s|^$$srcdirstrip/||;t" \
- -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
- case $$dist_files in \
- */*) $(MKDIR_P) `echo "$$dist_files" | \
- sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
- sort -u` ;; \
- esac; \
- for file in $$dist_files; do \
- if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
- if test -d $$d/$$file; then \
- dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
- if test -d "$(distdir)/$$file"; then \
- find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
- fi; \
- if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
- cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
- find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
- fi; \
- cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
- else \
- test -f "$(distdir)/$$file" \
- || cp -p $$d/$$file "$(distdir)/$$file" \
- || exit 1; \
- fi; \
- done
- $(MAKE) $(AM_MAKEFLAGS) \
- top_distdir="$(top_distdir)" distdir="$(distdir)" \
- dist-info
-check-am: all-am
-check: $(BUILT_SOURCES)
- $(MAKE) $(AM_MAKEFLAGS) check-am
-all-am: Makefile $(INFO_DEPS) $(SCRIPTS)
-installdirs:
- for dir in "$(DESTDIR)$(infodir)"; do \
- test -z "$$dir" || $(MKDIR_P) "$$dir"; \
- done
-install: $(BUILT_SOURCES)
- $(MAKE) $(AM_MAKEFLAGS) install-am
-install-exec: $(BUILT_SOURCES)
- $(MAKE) $(AM_MAKEFLAGS) install-exec-am
-install-data: install-data-am
-uninstall: uninstall-am
-
-install-am: all-am
- @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
-
-installcheck: installcheck-am
-install-strip:
- if test -z '$(STRIP)'; then \
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- install; \
- else \
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
- fi
-mostlyclean-generic:
-
-clean-generic:
- -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
-
-distclean-generic:
- -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
- -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
-
-maintainer-clean-generic:
- @echo "This command is intended for maintainers to use"
- @echo "it deletes files that may require special tools to rebuild."
- -test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES)
- -test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES)
-clean: clean-am
-
-clean-am: clean-aminfo clean-generic clean-libtool mostlyclean-am
-
-distclean: distclean-am
- -rm -f Makefile
-distclean-am: clean-am distclean-generic
-
-dvi: dvi-am
-
-dvi-am: $(DVIS)
-
-html: html-am
-
-html-am: $(HTMLS)
-
-info: info-am
-
-info-am: $(INFO_DEPS)
-
-install-data-am: install-info-am
-
-install-dvi: install-dvi-am
-
-install-dvi-am: $(DVIS)
- @$(NORMAL_INSTALL)
- @list='$(DVIS)'; test -n "$(dvidir)" || list=; \
- if test -n "$$list"; then \
- echo " $(MKDIR_P) '$(DESTDIR)$(dvidir)'"; \
- $(MKDIR_P) "$(DESTDIR)$(dvidir)" || exit 1; \
- fi; \
- for p in $$list; do \
- if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
- echo "$$d$$p"; \
- done | $(am__base_list) | \
- while read files; do \
- echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(dvidir)'"; \
- $(INSTALL_DATA) $$files "$(DESTDIR)$(dvidir)" || exit $$?; \
- done
-install-exec-am:
-
-install-html: install-html-am
-
-install-html-am: $(HTMLS)
- @$(NORMAL_INSTALL)
- @list='$(HTMLS)'; list2=; test -n "$(htmldir)" || list=; \
- if test -n "$$list"; then \
- echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)'"; \
- $(MKDIR_P) "$(DESTDIR)$(htmldir)" || exit 1; \
- fi; \
- for p in $$list; do \
- if test -f "$$p" || test -d "$$p"; then d=; else d="$(srcdir)/"; fi; \
- $(am__strip_dir) \
- d2=$$d$$p; \
- if test -d "$$d2"; then \
- echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)/$$f'"; \
- $(MKDIR_P) "$(DESTDIR)$(htmldir)/$$f" || exit 1; \
- echo " $(INSTALL_DATA) '$$d2'/* '$(DESTDIR)$(htmldir)/$$f'"; \
- $(INSTALL_DATA) "$$d2"/* "$(DESTDIR)$(htmldir)/$$f" || exit $$?; \
- else \
- list2="$$list2 $$d2"; \
- fi; \
- done; \
- test -z "$$list2" || { echo "$$list2" | $(am__base_list) | \
- while read files; do \
- echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(htmldir)'"; \
- $(INSTALL_DATA) $$files "$(DESTDIR)$(htmldir)" || exit $$?; \
- done; }
-install-info: install-info-am
-
-install-info-am: $(INFO_DEPS)
- @$(NORMAL_INSTALL)
- @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \
- list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \
- if test -n "$$list"; then \
- echo " $(MKDIR_P) '$(DESTDIR)$(infodir)'"; \
- $(MKDIR_P) "$(DESTDIR)$(infodir)" || exit 1; \
- fi; \
- for file in $$list; do \
- case $$file in \
- $(srcdir)/*) file=`echo "$$file" | sed "s|^$$srcdirstrip/||"`;; \
- esac; \
- if test -f $$file; then d=.; else d=$(srcdir); fi; \
- file_i=`echo "$$file" | sed 's|\.info$$||;s|$$|.i|'`; \
- for ifile in $$d/$$file $$d/$$file-[0-9] $$d/$$file-[0-9][0-9] \
- $$d/$$file_i[0-9] $$d/$$file_i[0-9][0-9] ; do \
- if test -f $$ifile; then \
- echo "$$ifile"; \
- else : ; fi; \
- done; \
- done | $(am__base_list) | \
- while read files; do \
- echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(infodir)'"; \
- $(INSTALL_DATA) $$files "$(DESTDIR)$(infodir)" || exit $$?; done
- @$(POST_INSTALL)
- @if $(am__can_run_installinfo); then \
- list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \
- for file in $$list; do \
- relfile=`echo "$$file" | sed 's|^.*/||'`; \
- echo " install-info --info-dir='$(DESTDIR)$(infodir)' '$(DESTDIR)$(infodir)/$$relfile'";\
- install-info --info-dir="$(DESTDIR)$(infodir)" "$(DESTDIR)$(infodir)/$$relfile" || :;\
- done; \
- else : ; fi
-install-man:
-
-install-pdf: install-pdf-am
-
-install-pdf-am: $(PDFS)
- @$(NORMAL_INSTALL)
- @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \
- if test -n "$$list"; then \
- echo " $(MKDIR_P) '$(DESTDIR)$(pdfdir)'"; \
- $(MKDIR_P) "$(DESTDIR)$(pdfdir)" || exit 1; \
- fi; \
- for p in $$list; do \
- if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
- echo "$$d$$p"; \
- done | $(am__base_list) | \
- while read files; do \
- echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pdfdir)'"; \
- $(INSTALL_DATA) $$files "$(DESTDIR)$(pdfdir)" || exit $$?; done
-install-ps: install-ps-am
-
-install-ps-am: $(PSS)
- @$(NORMAL_INSTALL)
- @list='$(PSS)'; test -n "$(psdir)" || list=; \
- if test -n "$$list"; then \
- echo " $(MKDIR_P) '$(DESTDIR)$(psdir)'"; \
- $(MKDIR_P) "$(DESTDIR)$(psdir)" || exit 1; \
- fi; \
- for p in $$list; do \
- if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
- echo "$$d$$p"; \
- done | $(am__base_list) | \
- while read files; do \
- echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(psdir)'"; \
- $(INSTALL_DATA) $$files "$(DESTDIR)$(psdir)" || exit $$?; done
-installcheck-am:
-
-maintainer-clean: maintainer-clean-am
- -rm -f Makefile
-maintainer-clean-am: distclean-am maintainer-clean-aminfo \
- maintainer-clean-generic maintainer-clean-vti
-
-mostlyclean: mostlyclean-am
-
-mostlyclean-am: mostlyclean-aminfo mostlyclean-generic \
- mostlyclean-libtool mostlyclean-vti
-
-pdf: pdf-am
-
-pdf-am: $(PDFS)
-
-ps: ps-am
-
-ps-am: $(PSS)
-
-uninstall-am: uninstall-dvi-am uninstall-html-am uninstall-info-am \
- uninstall-pdf-am uninstall-ps-am
-
-.MAKE: all check install install-am install-exec install-strip
-
-.PHONY: all all-am check check-am clean clean-aminfo clean-generic \
- clean-libtool cscopelist-am ctags-am dist-info distclean \
- distclean-generic distclean-libtool distdir dvi dvi-am html \
- html-am info info-am install install-am install-data \
- install-data-am install-dvi install-dvi-am install-exec \
- install-exec-am install-html install-html-am install-info \
- install-info-am install-man install-pdf install-pdf-am \
- install-ps install-ps-am install-strip installcheck \
- installcheck-am installdirs maintainer-clean \
- maintainer-clean-aminfo maintainer-clean-generic \
- maintainer-clean-vti mostlyclean mostlyclean-aminfo \
- mostlyclean-generic mostlyclean-libtool mostlyclean-vti pdf \
- pdf-am ps ps-am tags-am uninstall uninstall-am \
- uninstall-dvi-am uninstall-html-am uninstall-info-am \
- uninstall-pdf-am uninstall-ps-am
-
-.PRECIOUS: Makefile
-
-
-# targets that are only logical targets instead of files
-.PHONY: touch touch-tex clean-tex
-
-@COB_MAKE_RUN_BINARIES_TRUE@cbchelp.tex: $(top_srcdir)/bin/cobcrun.c \
-@COB_MAKE_RUN_BINARIES_TRUE@ $(top_srcdir)/doc/cobcinfo.sh
-@COB_MAKE_RUN_BINARIES_TRUE@ $(COBCINFOSH) $@
-
-@COB_MAKE_RUN_BINARIES_TRUE@cbhelp.tex: $(top_srcdir)/cobc/help.c \
-@COB_MAKE_RUN_BINARIES_TRUE@ $(top_srcdir)/cobc/warning.def $(top_srcdir)/cobc/flag.def \
-@COB_MAKE_RUN_BINARIES_TRUE@ $(top_srcdir)/cobc/config.def \
-@COB_MAKE_RUN_BINARIES_TRUE@ $(top_srcdir)/doc/cobcinfo.sh \
-@COB_MAKE_RUN_BINARIES_TRUE@ $(top_srcdir)/doc/cbhelp.tex.gen
-@COB_MAKE_RUN_BINARIES_TRUE@ $(COBCINFOSH) $@
-
-@COB_MAKE_RUN_BINARIES_TRUE@cbintr.tex: \
-@COB_MAKE_RUN_BINARIES_TRUE@ $(top_srcdir)/cobc/reserved.c \
-@COB_MAKE_RUN_BINARIES_TRUE@ $(top_srcdir)/doc/cobcinfo.sh \
-@COB_MAKE_RUN_BINARIES_TRUE@ $(top_srcdir)/doc/cbintr.tex.gen
-@COB_MAKE_RUN_BINARIES_TRUE@ $(COBCINFOSH) $@
-
-@COB_MAKE_RUN_BINARIES_TRUE@cbrese.tex cbsyst.tex cbmnem.tex: \
-@COB_MAKE_RUN_BINARIES_TRUE@ $(top_srcdir)/cobc/reserved.c \
-@COB_MAKE_RUN_BINARIES_TRUE@ $(top_srcdir)/doc/cobcinfo.sh
-@COB_MAKE_RUN_BINARIES_TRUE@ $(COBCINFOSH) $@
-
-@COB_MAKE_RUN_BINARIES_TRUE@cbexceptions.tex: \
-@COB_MAKE_RUN_BINARIES_TRUE@ $(top_srcdir)/cobc/reserved.c \
-@COB_MAKE_RUN_BINARIES_TRUE@ $(top_srcdir)/libcob/exception.def \
-@COB_MAKE_RUN_BINARIES_TRUE@ $(top_srcdir)/libcob/exception-io.def \
-@COB_MAKE_RUN_BINARIES_TRUE@ $(top_srcdir)/doc/cobcinfo.sh
-@COB_MAKE_RUN_BINARIES_TRUE@ $(COBCINFOSH) $@
-
-@COB_MAKE_RUN_BINARIES_FALSE@cbchelp.tex \
-@COB_MAKE_RUN_BINARIES_FALSE@ cbhelp.tex cbintr.tex \
-@COB_MAKE_RUN_BINARIES_FALSE@ cbrese.tex cbsyst.tex cbmnem.tex \
-@COB_MAKE_RUN_BINARIES_FALSE@ cbexceptions.tex: \
-@COB_MAKE_RUN_BINARIES_FALSE@ $(top_srcdir)/doc/cobcinfo.sh
-@COB_MAKE_RUN_BINARIES_FALSE@ $(COBCINFOSH) "fixtimestamps"
-
-cbconf.tex: $(top_srcdir)/config/default.conf \
- $(top_srcdir)/doc/cobcinfo.sh
- $(COBCINFOSH) $@
-
-cbrunt.tex: $(top_srcdir)/config/runtime.cfg \
- $(top_srcdir)/doc/cobcinfo.sh \
- $(top_srcdir)/doc/cbrunt.tex.gen
- $(COBCINFOSH) $@
-
-touch-tex:
- $(COBCINFOSH) "fixtimestamps" "includes"
-
-touch:
- $(COBCINFOSH) "fixtimestamps"
-
-clean-tex:
- rm -rf $(GENINCLUDES)
-
-# Tell versions [3.59,3.63) of GNU make to not export all variables.
-# Otherwise a system limit (for SysV at least) may be exceeded.
-.NOEXPORT:
diff --git a/doc/cbchelp.tex b/doc/cbchelp.tex
deleted file mode 100644
index 0e82b8e..0000000
--- a/doc/cbchelp.tex
+++ /dev/null
@@ -1,23 +0,0 @@
-@table @code
-@item @code{-h, --help}
-display this help and exit
-@item @code{-V, --version}
-display version information for cobcrun + runtime and exit
-@item @code{-dumpversion}
-display runtime version and exit
-@item @code{-i, --info}
-display runtime information (build/environment)
-@item @code{-v, --verbose}
-display extended output with --info
-@item @code{-c @var{file}, --config=@var{file}}
-set runtime configuration from @var{file}
-@item @code{-r, --runtime-config}
-display current runtime configuration
-(value and origin for all settings)
-@item @code{-M @var{module}, --module=@var{module}}
-set entry point module name and/or load path
-where @option{-M} module prepends any directory to the
-dynamic link loader library search path
-and any basename to the module preload list
-(@env{COB_LIBRARY_PATH} and/or @env{COB_PRELOAD})
-@end table
diff --git a/doc/cbconf.tex b/doc/cbconf.tex
deleted file mode 100644
index 01586a7..0000000
--- a/doc/cbconf.tex
+++ /dev/null
@@ -1,318 +0,0 @@
-
-
-# Value: any string
-name: "GnuCOBOL"
-
-# Value: enum
-standard-define 0
-# NOTE: see enum cb_std_def, defined in cobc/cobc.h.
-# CB_STD_GC = 0,
-# CB_STD_MF,
-# CB_STD_IBM,
-# CB_STD_MVS,
-# CB_STD_BS2000,
-# CB_STD_ACU,
-# CB_STD_RM,
-# CB_STD_85,
-# CB_STD_2002,
-# CB_STD_2014
-
-# Default source reference-format; values: FIXED, FREE, COBOL85,
-# VARIABLE, XOPEN, XCARD, CRT, TERMINAL, COBOLX
-format: auto
-
-# Value: int
-tab-width: 8
-text-column: 72
-# Maximum word-length for COBOL words / Programmer defined words
-# Be aware that GC checks the word length against COB_MAX_WORDLEN
-# first (currently 63)
-word-length: 63
-
-# Maximum literal size in general
-literal-length: 8191
-
-# Maximum numeric literal size (absolute maximum: 38)
-numeric-literal-length: 38
-
-# Maximum number of characters allowed in the character-string (max. 255)
-pic-length: 255
-
-# Enable AREACHECK by default, for reference formats other than {fixed,free}
-areacheck: no
-
-# Default assign type
-# Value: 'dynamic', 'external'
-assign-clause: dynamic
-
-# If yes, file names are resolved at run time using
-# environment variables.
-# For example, given ASSIGN TO "DATAFILE", the file name will be
-# 1. the value of environment variable 'DD_DATAFILE' or
-# 2. the value of environment variable 'dd_DATAFILE' or
-# 3. the value of environment variable 'DATAFILE' or
-# 4. the literal "DATAFILE"
-# If no, the value of the assign clause is the file name.
-#
-filename-mapping: yes
-
-# Alternate formatting of numeric fields
-pretty-display: yes
-
-# Allow complex OCCURS DEPENDING ON
-complex-odo: no
-
-# Adjust position of items following OCCURS DEPENDING
-odoslide: no
-
-# Allow REDEFINES to other than last equal level number
-indirect-redefines: no
-
-# Binary byte size - defines the allocated bytes according to PIC
-# Value: signed unsigned bytes
-# ------ -------- -----
-# '2-4-8' 1 - 4 same 2
-# 5 - 9 same 4
-# 10 - 18 same 8
-#
-# '1-2-4-8' 1 - 2 same 1
-# 3 - 4 same 2
-# 5 - 9 same 4
-# 10 - 18 same 8
-#
-# '1--8' 1 - 2 1 - 2 1
-# 3 - 4 3 - 4 2
-# 5 - 6 5 - 7 3
-# 7 - 9 8 - 9 4
-# 10 - 11 10 - 12 5
-# 12 - 14 13 - 14 6
-# 15 - 16 15 - 16 7
-# 17 - 18 17 - 18 8
-#
-binary-size: 1-2-4-8
-
-# Numeric truncation according to ANSI
-binary-truncate: yes
-
-# Binary byte order
-# Value: 'native', 'big-endian'
-binary-byteorder: big-endian
-
-# Allow larger REDEFINES items other than 01 non-external
-larger-redefines: error
-
-# Allow certain syntax variations (eg. REDEFINES position)
-relax-syntax-checks: no
-
-# Allow zero length reference-modification
-# (only checked with active EC-BOUND-REF-MOD)
-ref-mod-zero-length: yes
-
-# Perform type OSVS - If yes, the exit point of any currently
-# executing perform is recognized if reached.
-perform-osvs: no
-
-# Compute intermediate decimal results like IBM OSVS
-arithmetic-osvs: no
-
-# MOVE like IBM (mvc); left to right, byte by byte
-move-ibm: no
-
-# SELECT RELATIVE KEY and ASSIGN fields must be in WORKING-STORAGE
-select-working: no
-
-# LOCAL-STORAGE SECTION implies RECURSIVE attribute
-local-implies-recursive: no
-
-# If yes, LINKAGE SECTION items remain allocated
-# between invocations.
-sticky-linkage: no
-
-# If yes, allow non-matching level numbers
-relax-level-hierarchy: no
-
-# If yes, evaluate constant expressions at compile time
-constant-folding: yes
-
-# Allow Hex 'F' for NUMERIC test of signed PACKED DECIMAL field
-hostsign: no
-
-# If yes, set WITH UPDATE clause as default for ACCEPT dest-item,
-# except if WITH NO UPDATE clause is used
-accept-update: no
-
-# If yes, set WITH AUTO clause as default for ACCEPT dest-item,
-# except if WITH TAB clause is used
-accept-auto: no
-
-# If yes, DISPLAYs and ACCEPTs are, by default, done on the CRT (i.e., using
-# curses).
-console-is-crt: no
-
-# If yes, allow redefinition of the current program's name. This prevents its
-# use in a prototype-format CALL/CANCEL statement.
-program-name-redefinition: yes
-
-# If yes, NO ECHO/NO-ECHO/OFF is the same as SECURE (hiding input with
-# asterisks, not spaces).
-no-echo-means-secure: no
-
-# If yes, the first item in a field screen ACCEPT/DISPLAY (e.g. DISPLAY x UPON
-# CRT) is located after the previous ACCEPT/DISPLAY (as though LINE 0 COL 0 had
-# been specified).
-line-col-zero-default: yes
-
-# If yes, DISPLAY SPACES acts as ERASE EOS, DISPLAY X"01" acts as ERASE EOL,
-# DISPLAY X"02" acts as BLANK SCREEEN and DISPLAY X"07" acts as BELL. Note
-# DISPLAY LOW-VALUE is excluded from this; it will always just position the
-# cursor.
-display-special-fig-consts: no
-
-# If yes, COMP-1 is a signed 16-bit integer and any PICTURE clause is ignored.
-binary-comp-1: no
-
-# If yes, POINTER is handled as BINARY-DOUBLE UNSIGNED instead of its own class
-numeric-pointer: no
-
-# auto-adjust to zero like MicroFocus does
-move-non-numeric-lit-to-numeric-is-zero: no
-
-# If yes, implicitly define a variable for an ASSIGN DYNAMIC which does not
-# match an existing data item.
-implicit-assign-dynamic-var: yes
-
-# If yes, ACCEPT and DISPLAY statements accept device names using mnemonics
-device-mnemonics: no
-
-# full clauses in XML PARSE - and adjusted XML-EVENTs
-xml-parse-xmlss: yes
-
-# What rules to apply to SCREEN SECTION items clauses
-screen-section-rules: gc
-
-# Whether DECIMAL-POINT IS COMMA has effect in XML/JSON GENERATE
-dpc-in-data: xml
-
-# Bounds against which to check subscripts (full, max, record)
-subscript-check: full
-
-# Functionality of JUSTIFY for INITIALIZE verb and initialization of storage
-init-justify: no
-
-# Dialect features
-# Value: 'ok', 'warning', 'archaic', 'obsolete', 'skip', 'ignore', 'error',
-# 'unconformable'
-
-alter-statement: obsolete
-comment-paragraphs: obsolete
-control-division: unconformable
-partial-replace-when-literal-src: obsolete
-call-overflow: archaic
-data-records-clause: obsolete
-debugging-mode: ok
-use-for-debugging: ok
-listing-statements: skip # may be a user-defined word
-title-statement: skip # may be a user-defined word
-entry-statement: ok
-goto-statement-without-name: obsolete
-label-records-clause: obsolete
-memory-size-clause: obsolete
-move-noninteger-to-alphanumeric: error
-move-figurative-constant-to-numeric: archaic
-move-figurative-space-to-numeric: error
-move-figurative-quote-to-numeric: obsolete
-multiple-file-tape-clause: obsolete
-next-sentence-phrase: archaic
-odo-without-to: warning
-padding-character-clause: obsolete
-section-segments: ignore
-stop-literal-statement: obsolete
-stop-identifier-statement: obsolete
-stop-error-statement: unconformable
-same-as-clause: ok
-type-to-clause: ok
-usage-type: ok
-synchronized-clause: ok
-sync-left-right: ok
-special-names-clause: ok
-top-level-occurs-clause: ok
-value-of-clause: obsolete
-numeric-boolean: ok
-hexadecimal-boolean: ok
-national-literals: ok
-hexadecimal-national-literals: ok
-national-character-literals: warning
-
-acu-literals: unconformable
-hp-octal-literals: unconformable
-ebcdic-symbolic-characters: no
-word-continuation: warning
-not-exception-before-exception: ok
-accept-display-extensions: ok
-renames-uncommon-levels: ok
-symbolic-constant: ok
-constant-78: ok
-constant-01: ok
-perform-varying-without-by: ok
-reference-out-of-declaratives: warning
-program-prototypes: ok
-call-convention-mnemonic: ok
-call-convention-linkage: ok
-using-optional: ok
-numeric-value-for-edited-item: ok
-incorrect-conf-sec-order: ok
-define-constant-directive: archaic
-free-redefines-position: warning
-records-mismatch-record-clause warning
-record-delimiter: ok
-sequential-delimiters: ok
-record-delim-with-fixed-recs: ok
-missing-statement: warning
-missing-period: warning #when format not in {fixed,free}
-zero-length-literals: ok
-xml-generate-extra-phrases: ok
-continue-after: ok
-goto-entry: warning
-assign-variable: ok
-assign-using-variable: ok
-assign-ext-dyn: ok
-assign-disk-from: ok
-vsam-status: ignore
-self-call-recursive: warning
-record-contains-depending-clause: unconformable
-defaultbyte: init # GC inits as INITIALIZE ALL TO VALUE THEN TO DEFAULT,
- # with INDEXED BY variables initialized to 1
-picture-l: ok
-
-# use complete word list; synonyms and exceptions are specified below
-reserved-words: default
-
-# not-reserved:
-# Value: Word to be taken out of the reserved words list
-not-reserved: TERMINAL
-not-reserved: EXAMINE
-# reserved:
-# Entries of the form word-1=word-2 define word-1 as an alias for default
-# reserved word word-2. No spaces are allowed around the equal sign.
-reserved: AUTO-SKIP=AUTO
-reserved: AUTOTERMINATE=AUTO
-reserved: BACKGROUND-COLOUR=BACKGROUND-COLOR
-reserved: BEEP=BELL
-reserved: BINARY-INT=BINARY-LONG
-reserved: BINARY-LONG-LONG=BINARY-DOUBLE
-reserved: CELLS=CELL
-reserved: COLOURS=COLORS
-reserved: EMPTY-CHECK=REQUIRED
-reserved: EQUALS=EQUAL
-reserved: FOREGROUND-COLOUR=FOREGROUND-COLOR
-reserved: HIGH-VALUES=HIGH-VALUE
-reserved: INITIALISE=INITIALIZE
-reserved: INITIALISED=INITIALIZED
-reserved: LENGTH-CHECK=FULL
-reserved: LOW-VALUES=LOW-VALUE
-reserved: ORGANISATION=ORGANIZATION
-reserved: PIXELS=PIXEL
-reserved: SYNCHRONISED=SYNCHRONIZED
-reserved: TIMEOUT=TIME-OUT
-reserved: ZEROES=ZERO
-reserved: ZEROS=ZERO
diff --git a/doc/cbexceptions.tex b/doc/cbexceptions.tex
deleted file mode 100644
index c22f2d7..0000000
--- a/doc/cbexceptions.tex
+++ /dev/null
@@ -1,181 +0,0 @@
-@verbatim
-
-Exception Name
-EC-ALL
- EC-ARGUMENT
- EC-ARGUMENT-FUNCTION (f)
- EC-ARGUMENT-IMP
- EC-BOUND
- EC-BOUND-FUNC-RET-VALUE
- EC-BOUND-IMP
- EC-BOUND-ODO (f)
- EC-BOUND-OVERFLOW (f)
- EC-BOUND-PTR (f)
- EC-BOUND-REF-MOD (f)
- EC-BOUND-SET (f)
- EC-BOUND-SUBSCRIPT (f)
- EC-BOUND-TABLE-LIMIT (f)
- EC-CONTINUE
- EC-CONTINUE-IMP
- EC-CONTINUE-LESS-THAN-ZERO
- EC-DATA
- EC-DATA-CONVERSION
- EC-DATA-IMP
- EC-DATA-INCOMPATIBLE (f)
- EC-DATA-NOT-FINITE (f)
- EC-DATA-OVERFLOW (f)
- EC-DATA-PTR-NULL (f)
- EC-EXTERNAL
- EC-EXTERNAL-DATA-MISMATCH (f)
- EC-EXTERNAL-FILE-MISMATCH (f)
- EC-EXTERNAL-FORMAT-CONFLICT (f)
- EC-EXTERNAL-IMP
- EC-FLOW
- EC-FLOW-APPLY-COMMIT (f)
- EC-FLOW-COMMIT (f)
- EC-FLOW-GLOBAL-EXIT (f)
- EC-FLOW-GLOBAL-GOBACK (f)
- EC-FLOW-IMP
- EC-FLOW-RELEASE (f)
- EC-FLOW-REPORT (f)
- EC-FLOW-RETURN (f)
- EC-FLOW-ROLLBACK (f)
- EC-FLOW-SEARCH (f)
- EC-FLOW-USE (f)
- EC-FUNCTION
- EC-FUNCTION-ARG-OMITTED (f)
- EC-FUNCTION-IMP
- EC-FUNCTION-NOT-FOUND (f)
- EC-FUNCTION-PTR-INVALID (f)
- EC-FUNCTION-PTR-NULL (f)
- EC-I-O
- EC-I-O-AT-END
- EC-I-O-EOP
- EC-I-O-EOP-OVERFLOW
- EC-I-O-FILE-SHARING
- EC-I-O-IMP
- EC-I-O-INVALID-KEY
- EC-I-O-LINAGE (f)
- EC-I-O-LOGIC-ERROR (f)
- EC-I-O-PERMANENT-ERROR (f)
- EC-I-O-RECORD-CONTENT (f)
- EC-I-O-RECORD-OPERATION
- EC-I-O-RECORD-WARNING
- EC-IMP
- EC-IMP-ACCEPT
- EC-IMP-DISPLAY
- EC-IMP-UTC-UNKNOWN (f)
- EC-IMP-FEATURE-DISABLED
- EC-IMP-FEATURE-MISSING
- EC-LOCALE
- EC-LOCALE-IMP
- EC-LOCALE-INCOMPATIBLE
- EC-LOCALE-INVALID (f)
- EC-LOCALE-INVALID-PTR (f)
- EC-LOCALE-MISSING (f)
- EC-LOCALE-SIZE (f)
- EC-MCS
- EC-MCS-ABNORMAL-TERMINATION
- EC-MCS-IMP
- EC-MCS-INVALID-TAG
- EC-MCS-MESSAGE-LENGTH
- EC-MCS-NO-REQUESTER
- EC-MCS-NO-SERVER
- EC-MCS-NORMAL-TERMINATION
- EC-MCS-REQUESTOR-FAILED
- EC-OO
- EC-OO-ARG-OMITTED (f)
- EC-OO-CONFORMANCE (f)
- EC-OO-EXCEPTION (f)
- EC-OO-IMP
- EC-OO-METHOD (f)
- EC-OO-NULL (f)
- EC-OO-RESOURCE (f)
- EC-OO-UNIVERSAL (f)
- EC-ORDER
- EC-ORDER-IMP
- EC-ORDER-NOT-SUPPORTED (f)
- EC-OVERFLOW
- EC-OVERFLOW-IMP
- EC-OVERFLOW-STRING
- EC-OVERFLOW-UNSTRING
- EC-PROGRAM
- EC-PROGRAM-ARG-MISMATCH (f)
- EC-PROGRAM-ARG-OMITTED (f)
- EC-PROGRAM-CANCEL-ACTIVE (f)
- EC-PROGRAM-IMP
- EC-PROGRAM-NOT-FOUND (f)
- EC-PROGRAM-PTR-NULL (f)
- EC-PROGRAM-RECURSIVE-CALL (f)
- EC-PROGRAM-RESOURCES (f)
- EC-RAISING
- EC-RAISING-IMP
- EC-RAISING-NOT-SPECIFIED (f)
- EC-RANGE
- EC-RANGE-IMP
- EC-RANGE-INDEX (f)
- EC-RANGE-INSPECT-SIZE (f)
- EC-RANGE-INVALID
- EC-RANGE-PERFORM-VARYING (f)
- EC-RANGE-PTR (f)
- EC-RANGE-SEARCH-INDEX
- EC-RANGE-SEARCH-NO-MATCH
- EC-REPORT
- EC-REPORT-ACTIVE (f)
- EC-REPORT-COLUMN-OVERLAP (f)
- EC-REPORT-FILE-MODE (f)
- EC-REPORT-IMP
- EC-REPORT-INACTIVE (f)
- EC-REPORT-LINE-OVERLAP
- EC-REPORT-NOT-TERMINATED
- EC-REPORT-PAGE-LIMIT
- EC-REPORT-PAGE-WIDTH
- EC-REPORT-SUM-SIZE (f)
- EC-REPORT-VARYING (f)
- EC-SCREEN
- EC-SCREEN-FIELD-OVERLAP
- EC-SCREEN-IMP
- EC-SCREEN-ITEM-TRUNCATED
- EC-SCREEN-LINE-NUMBER
- EC-SCREEN-STARTING-COLUMN
- EC-SIZE
- EC-SIZE-ADDRESS (f)
- EC-SIZE-EXPONENTIATION (f)
- EC-SIZE-IMP
- EC-SIZE-OVERFLOW (f)
- EC-SIZE-TRUNCATION (f)
- EC-SIZE-UNDERFLOW (f)
- EC-SIZE-ZERO-DIVIDE (f)
- EC-SORT-MERGE
- EC-SORT-MERGE-ACTIVE (f)
- EC-SORT-MERGE-FILE-OPEN (f)
- EC-SORT-MERGE-IMP
- EC-SORT-MERGE-RELEASE (f)
- EC-SORT-MERGE-RETURN (f)
- EC-SORT-MERGE-SEQUENCE (f)
- EC-STORAGE
- EC-STORAGE-IMP
- EC-STORAGE-NOT-ALLOC
- EC-STORAGE-NOT-AVAIL
- EC-USER
- EC-VALIDATE
- EC-VALIDATE-CONTENT
- EC-VALIDATE-FORMAT
- EC-VALIDATE-IMP
- EC-VALIDATE-RELATION
- EC-VALIDATE-VARYING (f)
- EC-XML
- EC-XML-CODESET (f)
- EC-XML-CODESET-CONVERSION (f)
- EC-XML-COUNT (f)
- EC-XML-DOCUMENT-TYPE (f)
- EC-XML-IMPLICIT-CLOSE (f)
- EC-XML-INVALID (f)
- EC-XML-NAMESPACE (f)
- EC-XML-STACKED-OPEN (f)
- EC-XML-RANGE (f)
- EC-XML-IMP (f)
- EC-JSON
- EC-JSON-IMP (f)
-
-@end verbatim
diff --git a/doc/cbhelp.tex b/doc/cbhelp.tex
deleted file mode 100644
index 1b0e55b..0000000
--- a/doc/cbhelp.tex
+++ /dev/null
@@ -1,840 +0,0 @@
-@section Common Options
-@table @option
-@item -h, --help
-display this help and exit
-
-@item -V, --version
-display compiler version information and exit
-
-@item -dumpversion
-display compiler version and exit
-
-@item -i, --info
-display compiler information (build/environment)
-and exit
-
-@item -v, --verbose
-verbose mode, display additional information;
-multiple @option{-v} options increase the verbosity,
-the maximum is 3 as follows:
-(1) display compiler version and the commands
-invoked by the compiler,
-(2) pass verbose option to assembler/compiler
-(3) pass verbose option to linker
-
-@item -q, --brief
-reduced displays, commands invoked not shown
-
-@item -###
-like -v but commands not executed
-
-@item -x
-build an executable program
-
-@item -m
-build a dynamically loadable module (default)
-
-@item -j [@var{args}], --job[=@var{args}]
-run program after build, passing @var{args}
-
-@item -std=@var{dialect}
-warnings/features for a specific dialect
-@var{dialect} can be one of:
-default, cobol2014, cobol2002, cobol85, xopen,
-ibm-strict, ibm, mvs-strict, mvs,
-mf-strict, mf, bs2000-strict, bs2000,
-acu-strict, acu, rm-strict, rm, gcos-strict,
-gcos;
-see configuration files in directory config
-
-@item -F, --free
-use free source format (alias for -fformat=free)
-
-@item --fixed
-use fixed source format (default; alias for
-
-@item -fformat=fixed)
-
-@item -O, -O2, -O3, -Os
-enable optimization
-
-@item -O0
-disable optimization
-
-@item -g
-enable C compiler debug and stack check
-
-@item -d, --debug
-enable all run-time error checking,
-equal to @option{-fstack-check} @option{-fec=}@code{EC-ALL}
-
-@item -fec=@var{exception-name}
-enable code generation for @var{exception-name},
-see --list-exceptions for the possible values,
-sets @option{-fsource-location}
-
-@item -fno-ec=@var{exception-name}
-disable code generation for @var{exception-name}
-
-@item -o @var{file}
-place the output into @var{file}
-
-@item -b
-combine all input files into a single
-dynamically loadable module
-
-@item -E
-preprocess only; do not compile or link
-
-@item -C
-translation only; convert COBOL to C
-
-@item -S
-compile only; output assembly file
-
-@item -c
-compile and assemble, but do not link
-
-@item -T @var{file}
-generate and place a wide program listing into @var{file}
-
-@item -t @var{file}
-generate and place a program listing into @var{file}
-
-@item --tlines=@var{lines}
-specify lines per page in listing, default = 55
-
-@item -P[=@var{dir or file}]
-generate preprocessed program listing (.lst)
-
-@item -X, --Xref
-specify cross reference in listing
-
-@item -I @var{directory}
-add @var{directory} to copy/include search path
-
-@item -L @var{directory}
-add @var{directory} to library search path
-
-@item -l @var{lib}
-link the library @var{lib}
-
-@item -K @var{entry}
-generate @code{CALL} to @var{entry} as static
-
-@item -D @var{define}
-define @var{define} for COBOL compilation
-
-@item -A @var{options}
-add @var{options} to the C compile phase
-
-@item -Q @var{options}
-add @var{options} to the C link phase
-
-@item --coverage
-instrument generated binaries for coverage
-
-@item --conf=@var{file}
-user-defined dialect configuration; see -std
-
-@item --list-reserved
-display reserved words
-
-@item --list-intrinsics
-display intrinsic functions
-
-@item --list-mnemonics
-display mnemonic names
-
-@item --list-exceptions
-display exception names
-
-@item --list-system
-display system routines
-
-@item --save-temps[=@var{dir}]
-save intermediate files; default: current directory
-
-@item -@code{MT} @var{target}
-set/add target file used in dependency list
-
-@item -@code{MF} @var{file}
-place dependency list into @var{file}
-
-@item -ext @var{extension}
-add file extension for resolving @code{COPY}
-@end table
-
-@section Warning options
-@table @option
-@item -Wall
-enable most warnings (all except as noted below)
-
-@item -Wextra
-like -Wall but enable some extra warning flags
-
-@item -w
-disable all warnings
-
-@item -Wno-@var{warning}
-disable warning enabled by default, -Wall or -Wextra
-
-@item -Wadditional
-additional warnings only raised with -Wall
-
-@item -Wno-unfinished
-do not warn if unfinished features are used; @emph{always} active
-
-@item -Wno-pending
-do not warn if pending features are used; @emph{always} active
-
-@item -Wno-repository-checks
-do not warn/check for program/function/external signature mismatch; @emph{always} active
-
-@item -Wno-ignored-error
-do not warn about errors in code parts which are unreachable and so normally ignored; @emph{always} active
-
-@item -Wobsolete
-warn if obsolete features are used
-
-@item -Warchaic
-warn if archaic features are used
-
-@item -Wredefinition
-warn about non-referenced ambiguous data items
-
-@item -Wtruncate
-warn about field truncation from constant assignments
-
-@item -Wpossible-truncate
-warn about possible field truncation; @emph{not} set with @option{-Wall}
-
-@item -Woverlap
-warn about overlapping @code{MOVE} of items
-
-@item -Wpossible-overlap
-warn about @code{MOVE} of items that may overlap depending on variables; @emph{not} set with @option{-Wall}
-
-@item -Wparentheses
-warn if parentheses are omitted around @code{AND} within @code{OR}
-
-@item -Wstrict-typing
-warn strictly about type mismatch, even when same size; @emph{not} set with @option{-Wall}
-
-@item -Wtyping
-warn about type mismatch
-
-@item -Wimplicit-define
-warn whenever data items are implicitly defined; @emph{not} set with @option{-Wall}
-
-@item -Wno-corresponding
-do not warn about @code{CORRESPONDING} with no matching items; @emph{always} active
-
-@item -Winitial-value
-warn if initial @code{VALUE} clause is ignored
-
-@item -Wprototypes
-warn about missing @code{FUNCTION} prototypes/definitions
-
-@item -Warithmetic-osvs
-warn if arithmetic expression precision has changed
-
-@item -Wcall-params
-warn about non 01/77 items for @code{CALL} parameters; @emph{not} set with @option{-Wall}
-
-@item -Wconstant-expression
-warn about expressions that always resolve to true/false
-
-@item -Wconstant-numlit-expression
-warn about numeric expressions that always resolve to true/false
-
-@item -@code{Wlarger-01}-redefines
-warn about larger redefines allowed by COBOL standards
-
-@item -Wcolumn-overflow
-warn about text after program-text area, @code{FIXED} format; @emph{not} set with @option{-Wall}
-
-@item -Wterminator
-warn about lack of scope terminator @code{END-XXX}; @emph{not} set with @option{-Wall}
-
-@item -Wlinkage
-warn about dangling @code{LINKAGE} items; @emph{not} set with @option{-Wall}
-
-@item -Wunreachable
-warn about likely unreachable statements; @emph{not} set with @option{-Wall}
-
-@item -Wno-dialect
-do not warn about dialect specific issues; @emph{always} active
-
-@item -Wno-goto-section
-do not warn about @code{GO} @code{TO} section-name; @emph{always} active
-
-@item -Wgoto-different-section
-warn about @code{GO} @code{TO} a praragraph defined in a different section
-
-@item -Wsuspicious-perform-thru
-warn if @code{PERFORM} @code{THRU} references procedures not in ascending order or multiple sections; @emph{always} active
-
-@item -Wdangling-text
-warn about source text after program-area; @emph{not} set with @option{-Wall}
-
-@item -Wno-missing-newline
-do not warn about missing newlines; @emph{always} active
-
-@item -Wno-others
-do not warn about different issues; @emph{always} active
-
-@item -Wno-unsupported
-do not warn if runtime does not support a feature used
-
-@item -fdiagnostics-plain-output
-make diagnostic output as plain as possible
-
-@item -Werror
-treat all warnings as errors
-
-@item -Wno-error
-don't treat warnings as errors
-
-@item -Werror=@var{warning}
-treat specified @var{warning} as error
-
-@item -Wno-error=@var{warning}
-don't treat specified @var{warning} as error
-@end table
-
-@section Compiler options
-@table @option
-@item -fsign=@code{[ASCII|EBCDIC]}
-define display sign representation; default: machine native
-
-@item -ffold-copy=@code{[UPPER|LOWER]}
-fold @code{COPY} subject to value; default: no transformation
-
-@item -ffold-call=@code{[UPPER|LOWER]}
-fold @code{PROGRAM-ID}, @code{CALL}, @code{CANCEL} subject to value; default: no transformation
-
-@item -fmax-errors=@var{number}
-maximum number of errors to report before
-compilation is aborted; default: 128
-
-@item -fintrinsics=@code{[ALL}|intrinsic function name(,name,...)]
-intrinsics to be used without @code{FUNCTION} keyword
-
-@item -fdump=@var{scope}
-dump data fields on abort, @var{scope} may be
-a combination of: @code{ALL}, @code{WS}, @code{LS}, @code{RD}, @code{FD}, @code{SC}, @code{LO}
-
-@item -fcallfh=@var{name}
-specifies @var{name} to be used for I/O
-as external provided EXTFH interface module
-
-@item -febcdic-table=@var{cconv-table}/@var{file}
-@code{EBCDIC/ASCII} translation table; e.g. default, ebcdic500_latin1...
-
-@item -fdefault-colseq=@code{[ASCII|EBCDIC|NATIVE]}
-define default collating sequence; default: @code{NATIVE}
-
-@item -fstack-extended
-store origin of entrypoints and @code{PERFORM}; turned on by -@option{-debug}/@option{-fdump}
-
-@item -fno-remove-unreachable
-disable remove of unreachable code; turned off by @option{-g}
-
-@item -ftrace
-generate trace code; scope: executed @code{SECTION/PARAGRAPH}
-
-@item -ftraceall
-generate trace code; scope: executed @code{SECTION/PARAGRAPH/STATEMENTS}
-
-@item -fsyntax-only
-syntax error checking only; don't emit any output
-
-@item -fdebugging-line
-enable debugging lines; @samp{D} in indicator column or floating @code{>>D}
-
-@item -fsource-location
-generate source location code; turned on by -@option{-debug}/@option{-ftraceall}/@option{-fec}/@option{-fdump}
-
-@item -fimplicit-init
-automatic initialization of the COBOL runtime system
-
-@item -fno-recursive-check
-disable check of recursive program call;
-effectively compiling as @code{RECURSIVE} program
-
-@item -fstack-check
-@code{PERFORM} stack checking; turned on by -@option{-debug}/@option{-g}
-
-@item -fmemory-check=@var{scope}
-checks for invalid writes to internal storage,
-@var{scope} may be one of: all, pointer, using, none; default: none, set to all by -@option{-debug}
-
-@item -fsection-exit-check
-check that code execution does not leave the scope of @code{SECTION}s
-
-@item -fimplicit-goback-check
-check that code execution does not end implicit at end of @code{PROCEDURE} @code{DIVISION}
-
-@item -fwrite-after
-use @code{AFTER 1} for @code{WRITE} of @code{LINE} @code{SEQUENTIAL}; default: @code{BEFORE 1}
-
-@item -fmfcomment
-@samp{*} in column 1 treated as comment with listing suppression; FIXED/COBOL85/VARIABLE format only
-
-@item -facucomment
-@samp{$} in indicator area treated as @samp{*},
-@samp{|} treated as floating comment
-
-@item -fno-trunc
-allow numeric field overflow; non-ANSI behaviour
-
-@item -fsingle-quote
-use a single quote (apostrophe) for @code{QUOTE}; default: double quote
-
-@item -foptional-file
-treat all files as @code{OPTIONAL}; unless @code{NOT} @code{OPTIONAL} specified
-
-@item -fstatic-call
-output static function calls for the @code{CALL} statement
-
-@item -fno-gen-c-decl-static-call
-disable generation of C function declarations
-for subroutines with static @code{CALL}
-
-@item -fgen-c-line-directives
-generate source location directives in C code;; turned on by @option{-g}/--coverage
-
-@item -fgen-c-labels
-generate extra labels in C sources;; turned on by @option{-g}
-
-@item -fno-theaders
-suppress all headers from listing while keeping
-page breaks
-
-@item -fno-tsource
-suppress source from listing
-
-@item -fno-tmessages
-suppress warning and error summary from listing
-
-@item -ftsymbols
-specify symbols in listing
-
-@item -ftcmd
-specify command line in listing
-
-@item -fno-ttimestamp
-suppress timestamp in listing headers
-
-@item -fttitle=@var{title}
-set listing title with @samp{_} replaced by spaces;
-defaults to package name and version
-
-@item -fno-diagnostics-show-option
-suppress output of option that directly
-controls the diagnostic
-
-@item -fno-diagnostics-show-caret
-do not display source context on warning/error diagnostic
-
-@item -fno-diagnostics-show-line-numbers
-suppress display of line numbers in diagnostics
-@end table
-
-@section Compiler dialect configuration options
-@table @option
-@item -freserved-words=@var{value}
-use of complete/fixed reserved words
-
-@item -ftab-width=1..12
-number of spaces that are assumed for tabs
-
-@item -ftext-column=72..255
-right margin column number for fixed-form reference-format
-
-@item -fpic-length=@var{number}
-maximum number of characters allowed in the @code{PICTURE} character-string
-
-@item -fword-length=1..63
-maximum word-length for COBOL (= programmer defined) words
-
-@item -fliteral-length=@var{number}
-maximum literal size in general
-
-@item -fnumeric-literal-length=1..38
-maximum numeric literal size
-
-@item -fdefaultbyte=@var{value}
-default initialization for fields without @code{VALUE}, may be one of; character in quotes; decimal 0..255 representing a character; "init" to initialize to @code{PICTURE/USAGE}; "none" to do no explicit initialization; default: "init"
-
-@item -fformat=@var{value}
-default reference-format, may be one of: @code{FIXED}, @code{FREE}, COBOL85, @code{VARIABLE}, @code{XOPEN}, @code{XCARD}, @code{CRT}, @code{TERMINAL}, COBOLX
-
-@item -fbinary-size=@var{value}
-binary byte size - defines the allocated bytes according to @code{PIC}, may be one of: 2-4-8, 1-2-4-8, 1--8
-
-@item -fbinary-byteorder=@var{value}
-binary byte order, may be one of: native, big-endian
-
-@item -fassign-clause=@var{value}
-how to interpret @code{ASSIGN @var{word}@code{: as @code{ASSIGN EXTERNAL @var{word}} or }ASSIGN DYNAMIC @var{word}}, may be one of: @code{dynamic}, @code{external}, @code{ibm} (= external), @code{mf} (= dynamic)
-
-@item -fscreen-section-rules=@var{value}
-which compiler's rules to apply to @code{SCREEN} @code{SECTION} item clauses, may be one of: acu, gc, mf, rm, std, xopen
-
-@item -fdpc-in-data=@var{value}
-whether @code{DECIMAL-POINT} @code{IS} @code{COMMA} has effect in @code{XML/JSON} @code{GENERATE}, may be one of: none, xml, json, all
-
-@item -fsubscript-check=@var{value}
-checking for subscript (only done with @code{EC-BOUND-SUBSCRIPT} active), may be one of: full, max, record
-
-@item -ffilename-mapping
-resolve file names at run time using environment variables
-
-@item -fpretty-display
-alternate formatting of numeric fields
-
-@item -fbinary-truncate
-numeric truncation according to ANSI
-
-@item -fcomplex-odo
-allow non-standard @code{OCCURS} @code{DEPENDING} @code{ON} syntax
-
-@item -fodoslide
-adjust items following @code{OCCURS} @code{DEPENDING} (implies complex-odo)
-
-@item -finit-justify
-applies @code{JUSTIFY} with @code{VALUE} clause
-
-@item -findirect-redefines
-allow @code{REDEFINES} to other than last equal level number
-
-@item -frelax-syntax-checks
-allow certain syntax variations (e.g. @code{REDEFINES} position)
-
-@item -fref-mod-zero-length
-allow zero length reference-modification (only changed with @code{EC-BOUND-REF-MOD} active)
-
-@item -frelax-level-hierarchy
-allow non-matching level numbers
-
-@item -fselect-working
-require @code{ASSIGN} @code{USING} items to be in @code{WORKING-STORAGE}
-
-@item -flocal-implies-recursive
-@code{LOCAL-STORAGE} @code{SECTION} implies @code{RECURSIVE} attribute
-
-@item -fsticky-linkage
-@code{LINKAGE} @code{SECTION} items remain allocated between invocations
-
-@item -fmove-ibm
-@code{MOVE} operates as on IBM (left to right, byte by byte)
-
-@item -fperform-osvs
-exit point of any currently executing perform is recognized if reached
-
-@item -farithmetic-osvs
-limit precision in intermediate results to precision of final result (less accurate)
-
-@item -fconstant-folding
-evaluate constant expressions at compile time
-
-@item -fhostsign
-allow hexadecimal value @samp{F} for @code{NUMERIC} test of signed @code{PACKED} @code{DECIMAL} field
-
-@item -fprogram-name-redefinition
-program names don't lead to a reserved identifier
-
-@item -faccept-update
-set @code{WITH} @code{UPDATE} clause as default for @code{ACCEPT} dest-item, instead of @code{WITH} @code{NO} @code{UPDATE}
-
-@item -faccept-auto
-set @code{WITH} @code{AUTO} clause as default for @code{ACCEPT} dest-item, instead of @code{WITH} @code{TAB}
-
-@item -fconsole-is-crt
-assume @code{CONSOLE} @code{IS} @code{CRT} if not set otherwise
-
-@item -fno-echo-means-secure
-@code{NO-ECHO} hides input with asterisks like @code{SECURE}
-
-@item -fline-col-zero-default
-assume a field @code{DISPLAY} starts at @code{LINE 0} @code{COL 0} (i.e. at the cursor), not @code{LINE 1} @code{COL 1}
-
-@item -fdisplay-special-fig-consts
-special behaviour of @code{DISPLAY} @code{SPACE/ALL} @code{X'01'/ALL} @code{X'02'/ALL} @code{X'07'}
-
-@item -fbinary-comp-1
-@code{COMP-1} is a 16-bit signed integer
-
-@item -fnumeric-pointer
-@code{POINTER} is a 64-bit unsigned integer
-
-@item -fmove-non-numeric-lit-to-numeric-is-zero
-imply zero in move of non-numeric literal to numeric items
-
-@item -fimplicit-assign-dynamic-var
-implicitly define a variable if an @code{ASSIGN} @code{DYNAMIC} does not match any data item
-
-@item -fdevice-mnemonics
-specifying device by mnemonic
-
-@item -fxml-parse-xmlss
-@code{XML} @code{PARSE} @code{XMLSS}
-
-@item -fareacheck
-check contents of Area A (when reference format supports Area A enforcement),
-enabled checks include:; division, section, paragraph names, level indicators (@code{FD}, @code{SD}, @code{RD}, and @code{CD}),
-and toplevel numbers (01 and 77) must start in Area A;; statements must not start in Area A; and; separator periods must not be within Area A
-
-@item -fcomment-paragraphs=@var{support}
-comment paragraphs in @code{IDENTIFICATION} @code{DIVISION} (@code{AUTHOR}, @code{DATE-WRITTEN}, ...)
-
-@item -fcontrol-division=@var{support}
-@code{CONTROL} @code{DIVISION}
-
-@item -fpartial-replace-when-literal-src=@var{support}
-apply partial replacing with literal source operand even when it replaces with spaces only;; "skip" prevents such replacements
-
-@item -fmemory-size-clause=@var{support}
-@code{MEMORY-SIZE} clause
-
-@item -fmultiple-file-tape-clause=@var{support}
-@code{MULTIPLE-FILE-TAPE} clause
-
-@item -flabel-records-clause=@var{support}
-@code{LABEL-RECORDS} clause
-
-@item -fvalue-of-clause=@var{support}
-@code{VALUE-OF} clause
-
-@item -fdata-records-clause=@var{support}
-@code{DATA-RECORDS} clause
-
-@item -ftop-level-occurs-clause=@var{support}
-@code{OCCURS} clause on top-level
-
-@item -fsame-as-clause=@var{support}
-@code{SAME} @code{AS} clause
-
-@item -ftype-to-clause=@var{support}
-@code{TYPE} @code{TO} clause
-
-@item -fusage-type=@var{support}
-@code{USAGE} type-name
-
-@item -fsynchronized-clause=@var{support}
-@code{SYNCHRONIZED} clause
-
-@item -fsync-left-right=@var{support}
-@code{LEFT/RIGHT} phrases in @code{SYNCHRONIZED} clause
-
-@item -fspecial-names-clause=@var{support}
-@code{SPECIAL-NAMES} clause
-
-@item -fgoto-statement-without-name=@var{support}
-@code{GO} @code{TO} statement without name
-
-@item -fstop-literal-statement=@var{support}
-@code{STOP}-literal statement
-
-@item -fstop-identifier-statement=@var{support}
-@code{STOP}-identifier statement
-
-@item -fstop-error-statement=@var{support}
-@code{STOP} @code{ERROR} statement
-
-@item -fdebugging-mode=@var{support}
-@code{DEBUGGING} @code{MODE} and debugging indicator
-
-@item -fuse-for-debugging=@var{support}
-@code{USE} @code{FOR} @code{DEBUGGING}
-
-@item -fpadding-character-clause=@var{support}
-@code{PADDING} @code{CHARACTER} clause
-
-@item -fnext-sentence-phrase=@var{support}
-@code{NEXT} @code{SENTENCE} phrase
-
-@item -flisting-statements=@var{support}
-listing-directive statements @code{EJECT}, @code{SKIP1}, @code{SKIP2}, @code{SKIP3}
-
-@item -ftitle-statement=@var{support}
-listing-directive statement @code{TITLE}
-
-@item -fentry-statement=@var{support}
-@code{ENTRY} statement
-
-@item -fmove-noninteger-to-alphanumeric=@var{support}
-move noninteger to alphanumeric
-
-@item -fmove-figurative-constant-to-numeric=@var{support}
-move figurative constants to numeric
-
-@item -fmove-figurative-space-to-numeric=@var{support}
-move figurative constant @code{SPACE} to numeric
-
-@item -fmove-figurative-quote-to-numeric=@var{support}
-move figurative constant @code{QUOTE} to numeric
-
-@item -fodo-without-to=@var{support}
-@code{OCCURS} @code{DEPENDING} @code{ON} without to
-
-@item -fsection-segments=@var{support}
-section segments
-
-@item -falter-statement=@var{support}
-@code{ALTER} statement
-
-@item -fcall-overflow=@var{support}
-@code{OVERFLOW} clause for @code{CALL}
-
-@item -fnumeric-boolean=@var{support}
-boolean literals (@code{B'1010'})
-
-@item -fhexadecimal-boolean=@var{support}
-hexadecimal-boolean literals (@code{BX@samp{A}})
-
-@item -fnational-literals=@var{support}
-national literals (@code{N'UTF-16 @var{string}'})
-
-@item -fhexadecimal-national-literals=@var{support}
-hexadecimal-national literals (@code{NX'265E'})
-
-@item -fnational-character-literals=@var{support}
-non-standard national literals (@code{NC'UTF-16 @var{string}'})
-
-@item -fhp-octal-literals=@var{support}
-@code{HP} COBOL octal literals (%377)
-
-@item -facu-literals=@var{support}
-ACUCOBOL-GT literals (@code{#B} @code{#O} @code{#H} @code{#X})
-
-@item -febcdic-symbolic-characters
-@code{EBCDIC} symbolic characters in literals (" "135,151,151"bar"195, 194"Z" for " foobar@code{BAZ}")
-
-@item -fword-continuation=@var{support}
-continuation of COBOL words
-
-@item -fnot-exception-before-exception=@var{support}
-@code{NOT} @code{ON} @code{EXCEPTION} before @code{ON} @code{EXCEPTION}
-
-@item -faccept-display-extensions=@var{support}
-extensions to @code{ACCEPT} and @code{DISPLAY}
-
-@item -frenames-uncommon-levels=@var{support}
-@code{RENAMES} of 01-, 66- and 77-level items
-
-@item -flarger-redefines=@var{support}
-allow larger @code{REDEFINES} items
-
-@item -fsymbolic-constant=@var{support}
-constants defined in @code{SPECIAL-NAMES}
-
-@item -fconstant-78=@var{support}
-constant with level 78 item (note: has left to right precedence in expressions)
-
-@item -fconstant-01=@var{support}
-constant with level 01 @code{CONSTANT} @code{AS/FROM} item
-
-@item -fperform-varying-without-by=@var{support}
-@code{PERFORM} @code{VARYING} without @code{BY} phrase (implies @code{BY 1})
-
-@item -freference-out-of-declaratives=@var{support}
-references to sections not in @code{DECLARATIVES} from within @code{DECLARATIVES}
-
-@item -fprogram-prototypes=@var{support}
-@code{CALL/CANCEL} with program-prototype-name
-
-@item -fcall-convention-mnemonic=@var{support}
-specifying call-convention by mnemonic
-
-@item -fcall-convention-linkage=@var{support}
-specifying call-convention by @code{WITH} ... @code{LINKAGE}
-
-@item -fusing-optional=@var{support}
-support for @code{PROCEDURE} @code{DIVISION} @code{USING} @code{OPTIONAL}
-
-@item -fnumeric-value-for-edited-item=@var{support}
-numeric literals in @code{VALUE} clause of numeric-edited items
-
-@item -fincorrect-conf-sec-order=@var{support}
-incorrect order of @code{CONFIGURATION} @code{SECTION} paragraphs
-
-@item -fdefine-constant-directive=@var{support}
-allow >> @code{DEFINE} @code{CONSTANT} var @code{AS} literal
-
-@item -ffree-redefines-position=@var{support}
-@code{REDEFINES} clause not following entry-name in definition
-
-@item -frecords-mismatch-record-clause=@var{support}
-record sizes does not match @code{RECORD} clause
-
-@item -frecord-delimiter=@var{support}
-@code{RECORD} @code{DELIMITER} clause
-
-@item -fsequential-delimiters=@var{support}
-@code{BINARY-SEQUENTIAL} and @code{LINE-SEQUENTIAL} phrases in @code{RECORD} @code{DELIMITER}
-
-@item -frecord-delim-with-fixed-recs=@var{support}
-@code{RECORD} @code{DELIMITER} clause on file with fixed-length records
-
-@item -fmissing-statement=@var{support}
-missing statement (e.g. empty @code{IF} / @code{PERFORM})
-
-@item -fmissing-period=@var{support}
-missing period in @code{PROCEDURE} @code{DIVISION} (when reference format supports Area A enforcement)
-
-@item -fzero-length-literals=@var{support}
-zero-length literals, e.g. '' and ""
-
-@item -fxml-generate-extra-phrases=@var{support}
-@code{XML} @code{GENERATE'}s phrases other than @code{COUNT} @code{IN}
-
-@item -fcontinue-after=@var{support}
-@code{AFTER} phrase in @code{CONTINUE} statement
-
-@item -fgoto-entry=@var{support}
-@code{ENTRY} @code{FOR} @code{GO} @code{TO} and @code{GO} @code{TO} @code{ENTRY} statements
-
-@item -fassign-variable=@var{support}
-@code{ASSIGN} @code{[TO]} variable in @code{SELECT}
-
-@item -fassign-using-variable=@var{support}
-@code{ASSIGN} @code{USING/VARYING} variable in @code{SELECT}
-
-@item -fassign-ext-dyn=@var{support}
-@code{ASSIGN} @code{EXTERNAL/DYNAMIC} in @code{SELECT}
-
-@item -fassign-disk-from=@var{support}
-@code{ASSIGN} @code{DISK} @code{FROM} variable in @code{SELECT}
-
-@item -fvsam-status=@var{support}
-@code{VSAM} status in @code{FILE} @code{STATUS}
-
-@item -fself-call-recursive=@var{support}
-@code{CALL} to own @code{PROGRAM-ID} implies @code{RECURSIVE} attribute
-
-@item -frecord-contains-depending-clause=@var{support}
-@code{DEPENDING} clause in @code{RECORD} @code{CONTAINS}
-
-@item -fpicture-l=@var{support}
-@code{PICTURE} string with @samp{L} character
- where @var{support} is one of:
- @code{ok@code{, @code{warning@code{, @code{archaic@code{, @code{obsolete@code{, }skip}, }ignore}, }error}, }unconformable}
-
-@item -fnot-reserved=@var{word}
-@var{word} to be taken out of the reserved words list
-
-@item -freserved=@var{word}
-@var{word} to be added to reserved words list
-
-@item -freserved=@var{word}:@var{alias}
-@var{word} to be added to reserved words list as @var{alias}
-
-@item -fnot-register=@var{word}
-special register to disable
-
-@item -fregister=@var{word} or @var{word}:@var{definition}, where definition uses backslash esca
-special register to enable
-@end table
diff --git a/doc/cbintr.tex b/doc/cbintr.tex
deleted file mode 100644
index b5b68cc..0000000
--- a/doc/cbintr.tex
+++ /dev/null
@@ -1,234 +0,0 @@
-@multitable @columnfractions .40 .20 .40
-@headitem Intrinsic
-@tab Function @tab Implemented
-@item @code{ABS}
-@tab Yes @tab 1
-@item @code{ACOS}
-@tab Yes @tab 1
-@item @code{ANNUITY}
-@tab Yes @tab 2
-@item @code{ASIN}
-@tab Yes @tab 1
-@item @code{ATAN}
-@tab Yes @tab 1
-@item @code{BASECONVERT}
-@tab No @tab 3
-@item @code{BIT-OF}
-@tab Yes @tab 1
-@item @code{BIT-TO-CHAR}
-@tab Yes @tab 1
-@item @code{BOOLEAN-OF-INTEGER}
-@tab No @tab 2
-@item @code{BYTE-LENGTH}
-@tab Yes @tab 1
-@item @code{CHAR}
-@tab Yes @tab 1
-@item @code{CHAR-NATIONAL}
-@tab No @tab 1
-@item @code{COMBINED-DATETIME}
-@tab Yes @tab 2
-@item @code{CONCAT}
-@tab Yes @tab Unlimited
-@item @code{CONCATENATE}
-@tab Yes @tab Unlimited
-@item @code{CONTENT-LENGTH}
-@tab Yes @tab 1
-@item @code{CONTENT-OF}
-@tab Yes @tab 1
-@item @code{CONVERT}
-@tab No @tab 3
-@item @code{COS}
-@tab Yes @tab 1
-@item @code{CURRENCY-SYMBOL}
-@tab Yes @tab 0
-@item @code{CURRENT-DATE}
-@tab Yes @tab 0
-@item @code{DATE-OF-INTEGER}
-@tab Yes @tab 1
-@item @code{DATE-TO-YYYYMMDD}
-@tab Yes @tab 1
-@item @code{DAY-OF-INTEGER}
-@tab Yes @tab 1
-@item @code{DAY-TO-YYYYDDD}
-@tab Yes @tab 1
-@item @code{DISPLAY-OF}
-@tab No @tab 1
-@item @code{E}
-@tab Yes @tab 0
-@item @code{EXCEPTION-FILE}
-@tab Yes @tab 0
-@item @code{EXCEPTION-FILE-N}
-@tab No @tab 0
-@item @code{EXCEPTION-LOCATION}
-@tab Yes @tab 0
-@item @code{EXCEPTION-LOCATION-N}
-@tab No @tab 0
-@item @code{EXCEPTION-STATEMENT}
-@tab Yes @tab 0
-@item @code{EXCEPTION-STATUS}
-@tab Yes @tab 0
-@item @code{EXP}
-@tab Yes @tab 1
-@item @code{EXP10}
-@tab Yes @tab 1
-@item @code{FACTORIAL}
-@tab Yes @tab 1
-@item @code{FIND-STRING}
-@tab No @tab 7
-@item @code{FORMATTED-CURRENT-DATE}
-@tab Yes @tab 1
-@item @code{FORMATTED-DATE}
-@tab Yes @tab 2
-@item @code{FORMATTED-DATETIME}
-@tab Yes @tab 4
-@item @code{FORMATTED-TIME}
-@tab Yes @tab 3
-@item @code{FRACTION-PART}
-@tab Yes @tab 1
-@item @code{HEX-OF}
-@tab Yes @tab 1
-@item @code{HEX-TO-CHAR}
-@tab Yes @tab 1
-@item @code{HIGHEST-ALGEBRAIC}
-@tab Yes @tab 1
-@item @code{INTEGER}
-@tab Yes @tab 1
-@item @code{INTEGER-OF-BOOLEAN}
-@tab No @tab 1
-@item @code{INTEGER-OF-DATE}
-@tab Yes @tab 1
-@item @code{INTEGER-OF-DAY}
-@tab Yes @tab 1
-@item @code{INTEGER-OF-FORMATTED-DATE}
-@tab Yes @tab 2
-@item @code{INTEGER-PART}
-@tab Yes @tab 1
-@item @code{LENGTH}
-@tab Yes @tab 1
-@item @code{LENGTH-AN}
-@tab Yes @tab 1
-@item @code{LOCALE-COMPARE}
-@tab Yes @tab 2
-@item @code{LOCALE-DATE}
-@tab Yes @tab 1
-@item @code{LOCALE-TIME}
-@tab Yes @tab 1
-@item @code{LOCALE-TIME-FROM-SECONDS}
-@tab Yes @tab 1
-@item @code{LOG}
-@tab Yes @tab 1
-@item @code{LOG10}
-@tab Yes @tab 1
-@item @code{LOWER-CASE}
-@tab Yes @tab 1
-@item @code{LOWEST-ALGEBRAIC}
-@tab Yes @tab 1
-@item @code{MAX}
-@tab Yes @tab Unlimited
-@item @code{MEAN}
-@tab Yes @tab Unlimited
-@item @code{MEDIAN}
-@tab Yes @tab Unlimited
-@item @code{MIDRANGE}
-@tab Yes @tab Unlimited
-@item @code{MIN}
-@tab Yes @tab Unlimited
-@item @code{MOD}
-@tab Yes @tab 2
-@item @code{MODULE-CALLER-ID}
-@tab Yes @tab 0
-@item @code{MODULE-DATE}
-@tab Yes @tab 0
-@item @code{MODULE-FORMATTED-DATE}
-@tab Yes @tab 0
-@item @code{MODULE-ID}
-@tab Yes @tab 0
-@item @code{MODULE-NAME}
-@tab No @tab 1
-@item @code{MODULE-PATH}
-@tab Yes @tab 0
-@item @code{MODULE-SOURCE}
-@tab Yes @tab 0
-@item @code{MODULE-TIME}
-@tab Yes @tab 0
-@item @code{MONETARY-DECIMAL-POINT}
-@tab Yes @tab 0
-@item @code{MONETARY-THOUSANDS-SEPARATOR}
-@tab Yes @tab 0
-@item @code{NATIONAL-OF}
-@tab No @tab 1
-@item @code{NUMERIC-DECIMAL-POINT}
-@tab Yes @tab 0
-@item @code{NUMERIC-THOUSANDS-SEPARATOR}
-@tab Yes @tab 0
-@item @code{NUMVAL}
-@tab Yes @tab 1
-@item @code{NUMVAL-C}
-@tab Yes @tab 2
-@item @code{NUMVAL-F}
-@tab Yes @tab 1
-@item @code{ORD}
-@tab Yes @tab 1
-@item @code{ORD-MAX}
-@tab Yes @tab Unlimited
-@item @code{ORD-MIN}
-@tab Yes @tab Unlimited
-@item @code{PI}
-@tab Yes @tab 0
-@item @code{PRESENT-VALUE}
-@tab Yes @tab Unlimited
-@item @code{RANDOM}
-@tab Yes @tab 0
-@item @code{RANGE}
-@tab Yes @tab Unlimited
-@item @code{REM}
-@tab Yes @tab 2
-@item @code{REVERSE}
-@tab Yes @tab 1
-@item @code{SECONDS-FROM-FORMATTED-TIME}
-@tab Yes @tab 2
-@item @code{SECONDS-PAST-MIDNIGHT}
-@tab Yes @tab 0
-@item @code{SIGN}
-@tab Yes @tab 1
-@item @code{SIN}
-@tab Yes @tab 1
-@item @code{SQRT}
-@tab Yes @tab 1
-@item @code{STANDARD-COMPARE}
-@tab No @tab 2
-@item @code{STANDARD-DEVIATION}
-@tab Yes @tab Unlimited
-@item @code{STORED-CHAR-LENGTH}
-@tab Yes @tab 1
-@item @code{SUBSTITUTE}
-@tab Yes @tab Unlimited
-@item @code{SUBSTITUTE-CASE}
-@tab Yes @tab Unlimited
-@item @code{SUM}
-@tab Yes @tab Unlimited
-@item @code{TAN}
-@tab Yes @tab 1
-@item @code{TEST-DATE-YYYYMMDD}
-@tab Yes @tab 1
-@item @code{TEST-DAY-YYYYDDD}
-@tab Yes @tab 1
-@item @code{TEST-FORMATTED-DATETIME}
-@tab Yes @tab 2
-@item @code{TEST-NUMVAL}
-@tab Yes @tab 1
-@item @code{TEST-NUMVAL-C}
-@tab Yes @tab 2
-@item @code{TEST-NUMVAL-F}
-@tab Yes @tab 1
-@item @code{TRIM}
-@tab Yes @tab 1
-@item @code{UPPER-CASE}
-@tab Yes @tab 1
-@item @code{VARIANCE}
-@tab Yes @tab Unlimited
-@item @code{WHEN-COMPILED}
-@tab Yes @tab 0
-@item @code{YEAR-TO-YYYY}
-@tab Yes @tab 1
-@end multitable
diff --git a/doc/cbmnem.tex b/doc/cbmnem.tex
deleted file mode 100644
index 4cec8d9..0000000
--- a/doc/cbmnem.tex
+++ /dev/null
@@ -1,9 +0,0 @@
-@section System names: device
-@code{SYSIN}, @code{SYSIPT}, @code{STDIN}, @code{SYSOUT}, @code{SYSLIST}, @code{SYSLST}, @code{SYSPCH}, @code{SYSPUNCH}, @code{STDOUT}, @code{PRINT}, @code{PRINTER}, @code{PRINTER-1}, @code{SYSERR}, @code{STDERR}, @code{CONSOLE}, @code{ALTERNATE-CONSOLE}, @code{ALTERNATE}
-
-@section System names: feature
-@code{C01}, @code{C02}, @code{C03}, @code{C04}, @code{C05}, @code{C06}, @code{C07}, @code{C08}, @code{C09}, @code{C10}, @code{C11}, @code{C12}, @code{S01}, @code{S02}, @code{S03}, @code{S04}, @code{S05}, @code{CSP}, @code{FORMFEED}, @code{TOP}, @code{CALL-CONVENTION}
-
-@section System names: switch
-@code{SWITCH-0}, @code{SWITCH-1}, @code{SWITCH-2}, @code{SWITCH-3}, @code{SWITCH-4}, @code{SWITCH-5}, @code{SWITCH-6}, @code{SWITCH-7}, @code{SWITCH-8}, @code{SWITCH-9}, @code{SWITCH-10}, @code{SWITCH-11}, @code{SWITCH-12}, @code{SWITCH-13}, @code{SWITCH-14}, @code{SWITCH-15}, @code{SWITCH-16}, @code{SWITCH-17}, @code{SWITCH-18}, @code{SWITCH-19}, @code{SWITCH-20}, @code{SWITCH-21}, @code{SWITCH-22}, @code{SWITCH-23}, @code{SWITCH-24}, @code{SWITCH-25}, @code{SWITCH-26}, @code{SWITCH-27}, @code{SWITCH-28}, @code{SWITCH-29}, @code{SWITCH-30}, @code{SWITCH-31}, @code{SWITCH-32}, @code{SWITCH-33}, @code{SWITCH-34}, @code{SWITCH-35}, @code{SWITCH-36}
-
diff --git a/doc/cbrese.tex b/doc/cbrese.tex
deleted file mode 100644
index 1442303..0000000
--- a/doc/cbrese.tex
+++ /dev/null
@@ -1,1012 +0,0 @@
-@section Common reserved words
-@multitable @columnfractions .40 .20 .40
-@headitem Reserved word @tab Implemented @tab Aliases
-@item @code{3-D} @tab Yes (C/S) @tab
-@item @code{ABSENT} @tab Yes @tab
-@item @code{ACCEPT} @tab Yes @tab
-@item @code{ACCESS} @tab Yes @tab
-@item @code{ACTION} @tab Yes (C/S) @tab
-@item @code{ACTIVATING} @tab No (C/S) @tab
-@item @code{ACTIVE-CLASS} @tab Yes @tab
-@item @code{ACTIVE-X} @tab Yes (C/S) @tab
-@item @code{ACTUAL} @tab Yes (C/S) @tab
-@item @code{ADD} @tab Yes @tab
-@item @code{ADDRESS} @tab Yes @tab
-@item @code{ADJUSTABLE-COLUMNS} @tab Yes (C/S) @tab
-@item @code{ADVANCING} @tab Yes @tab
-@item @code{AFTER} @tab Yes @tab
-@item @code{ALIGNED} @tab Yes @tab
-@item @code{ALIGNMENT} @tab Yes (C/S) @tab
-@item @code{ALL} @tab Yes @tab
-@item @code{ALLOCATE} @tab Yes @tab
-@item @code{ALLOWING} @tab Yes (C/S) @tab
-@item @code{ALPHABET} @tab Yes @tab
-@item @code{ALPHABETIC} @tab Yes @tab
-@item @code{ALPHABETIC-LOWER} @tab Yes @tab
-@item @code{ALPHABETIC-UPPER} @tab Yes @tab
-@item @code{ALPHANUMERIC} @tab Yes @tab
-@item @code{ALPHANUMERIC-EDITED} @tab Yes @tab
-@item @code{ALSO} @tab Yes @tab
-@item @code{ALTER} @tab Yes @tab
-@item @code{ALTERNATE} @tab Yes @tab
-@item @code{AND} @tab Yes @tab
-@item @code{ANUM} @tab No (C/S) @tab
-@item @code{ANY} @tab Yes @tab
-@item @code{ANYCASE} @tab No @tab
-@item @code{APPLY} @tab Yes (C/S) @tab
-@item @code{ARE} @tab Yes @tab
-@item @code{AREA} @tab Yes @tab @code{AREAS}
-@item @code{AREAS} @tab Yes @tab @code{AREA}
-@item @code{ARGUMENT-NUMBER} @tab Yes @tab
-@item @code{ARGUMENT-VALUE} @tab Yes @tab
-@item @code{ARITHMETIC} @tab Yes (C/S) @tab
-@item @code{AS} @tab Yes @tab
-@item @code{ASCENDING} @tab Yes @tab
-@item @code{ASCII} @tab Yes (C/S) @tab
-@item @code{ASSIGN} @tab Yes @tab
-@item @code{AT} @tab Yes @tab
-@item @code{ATTRIBUTE} @tab Yes (C/S) @tab
-@item @code{ATTRIBUTES} @tab Yes (C/S) @tab
-@item @code{AUTHOR} @tab Yes (C/S) @tab
-@item @code{AUTO} @tab Yes (C/S) @tab @code{AUTO-SKIP, AUTOTERMINATE}
-@item @code{AUTO-DECIMAL} @tab Yes (C/S) @tab
-@item @code{AUTO-SKIP} @tab Yes @tab @code{AUTO, AUTOTERMINATE}
-@item @code{AUTO-SPIN} @tab Yes (C/S) @tab
-@item @code{AUTOMATIC} @tab Yes @tab
-@item @code{AUTOTERMINATE} @tab Yes @tab @code{AUTO, AUTO-SKIP}
-@item @code{AWAY-FROM-ZERO} @tab Yes (C/S) @tab
-@item @code{B-AND} @tab Yes @tab
-@item @code{B-NOT} @tab Yes @tab
-@item @code{B-OR} @tab Yes @tab
-@item @code{B-SHIFT-L} @tab Yes @tab
-@item @code{B-SHIFT-LC} @tab Yes @tab
-@item @code{B-SHIFT-R} @tab Yes @tab
-@item @code{B-SHIFT-RC} @tab Yes @tab
-@item @code{B-XOR} @tab Yes @tab
-@item @code{BACKGROUND-COLOR} @tab Yes (C/S) @tab @code{BACKGROUND-COLOUR}
-@item @code{BACKGROUND-COLOUR} @tab Yes @tab @code{BACKGROUND-COLOR}
-@item @code{BACKGROUND-HIGH} @tab Yes @tab
-@item @code{BACKGROUND-LOW} @tab Yes @tab
-@item @code{BACKGROUND-STANDARD} @tab Yes @tab
-@item @code{BACKWARD} @tab Yes (C/S) @tab
-@item @code{BAR} @tab Yes (C/S) @tab
-@item @code{BASED} @tab Yes @tab
-@item @code{BEEP} @tab Yes @tab @code{BELL}
-@item @code{BEFORE} @tab Yes @tab
-@item @code{BELL} @tab Yes (C/S) @tab @code{BEEP}
-@item @code{BINARY} @tab Yes @tab
-@item @code{BINARY-C-LONG} @tab Yes @tab
-@item @code{BINARY-CHAR} @tab Yes @tab
-@item @code{BINARY-DOUBLE} @tab Yes @tab @code{BINARY-LONG-LONG}
-@item @code{BINARY-INT} @tab Yes @tab @code{BINARY-LONG}
-@item @code{BINARY-LONG} @tab Yes @tab @code{BINARY-INT}
-@item @code{BINARY-LONG-LONG} @tab Yes @tab @code{BINARY-DOUBLE}
-@item @code{BINARY-SEQUENTIAL} @tab Yes (C/S) @tab
-@item @code{BINARY-SHORT} @tab Yes @tab
-@item @code{BIT} @tab Yes @tab
-@item @code{BITMAP} @tab Yes (C/S) @tab
-@item @code{BITMAP-END} @tab Yes (C/S) @tab
-@item @code{BITMAP-HANDLE} @tab Yes (C/S) @tab
-@item @code{BITMAP-NUMBER} @tab Yes (C/S) @tab
-@item @code{BITMAP-START} @tab Yes (C/S) @tab
-@item @code{BITMAP-TIMER} @tab Yes (C/S) @tab
-@item @code{BITMAP-TRAILING} @tab Yes (C/S) @tab
-@item @code{BITMAP-TRANSPARENT-COLOR} @tab Yes (C/S) @tab
-@item @code{BITMAP-WIDTH} @tab Yes (C/S) @tab
-@item @code{BLANK} @tab Yes @tab
-@item @code{BLINK} @tab Yes (C/S) @tab
-@item @code{BLOCK} @tab Yes @tab
-@item @code{BOOLEAN} @tab Yes @tab
-@item @code{BOTTOM} @tab Yes @tab
-@item @code{BOX} @tab Yes (C/S) @tab
-@item @code{BOXED} @tab Yes (C/S) @tab
-@item @code{BULK-ADDITION} @tab Yes (C/S) @tab
-@item @code{BUSY} @tab Yes (C/S) @tab
-@item @code{BUTTONS} @tab Yes (C/S) @tab
-@item @code{BY} @tab Yes @tab
-@item @code{BYTE} @tab No (C/S) @tab
-@item @code{BYTE-LENGTH} @tab Yes (C/S) @tab
-@item @code{BYTES} @tab No @tab
-@item @code{C} @tab Yes (C/S) @tab
-@item @code{CALENDAR-FONT} @tab Yes (C/S) @tab
-@item @code{CALL} @tab Yes @tab
-@item @code{CANCEL} @tab Yes @tab
-@item @code{CANCEL-BUTTON} @tab Yes (C/S) @tab
-@item @code{CAPACITY} @tab Yes (C/S) @tab
-@item @code{CARD-PUNCH} @tab Yes (C/S) @tab
-@item @code{CARD-READER} @tab Yes (C/S) @tab
-@item @code{CASSETTE} @tab Yes (C/S) @tab
-@item @code{CCOL} @tab Yes (C/S) @tab
-@item @code{CD} @tab Yes @tab
-@item @code{CELL} @tab Yes (C/S) @tab @code{CELLS}
-@item @code{CELL-COLOR} @tab Yes (C/S) @tab
-@item @code{CELL-DATA} @tab Yes (C/S) @tab
-@item @code{CELL-FONT} @tab Yes (C/S) @tab
-@item @code{CELL-PROTECTION} @tab Yes (C/S) @tab
-@item @code{CELLS} @tab Yes @tab @code{CELL}
-@item @code{CENTER} @tab Yes (C/S) @tab
-@item @code{CENTERED} @tab Yes (C/S) @tab
-@item @code{CENTERED-HEADINGS} @tab Yes (C/S) @tab
-@item @code{CENTURY-DATE} @tab Yes (C/S) @tab
-@item @code{CF} @tab Yes @tab
-@item @code{CH} @tab Yes @tab
-@item @code{CHAIN} @tab No @tab
-@item @code{CHAINING} @tab Yes @tab
-@item @code{CHANGED} @tab Yes (C/S) @tab
-@item @code{CHARACTER} @tab Yes @tab
-@item @code{CHARACTERS} @tab Yes @tab
-@item @code{CHECK-BOX} @tab Yes (C/S) @tab
-@item @code{CLASS} @tab Yes @tab
-@item @code{CLASS-ID} @tab No @tab
-@item @code{CLASSIFICATION} @tab Yes (C/S) @tab
-@item @code{CLEAR-SELECTION} @tab Yes (C/S) @tab
-@item @code{CLINE} @tab Yes (C/S) @tab
-@item @code{CLINES} @tab Yes (C/S) @tab
-@item @code{CLOSE} @tab Yes @tab
-@item @code{COBOL} @tab Yes (C/S) @tab
-@item @code{CODE} @tab Yes @tab
-@item @code{CODE-SET} @tab Yes @tab
-@item @code{COL} @tab Yes @tab
-@item @code{COLLATING} @tab Yes @tab
-@item @code{COLOR} @tab Yes @tab
-@item @code{COLORS} @tab Yes (C/S) @tab @code{COLOURS}
-@item @code{COLOURS} @tab Yes @tab @code{COLORS}
-@item @code{COLS} @tab Yes @tab
-@item @code{COLUMN} @tab Yes @tab
-@item @code{COLUMN-COLOR} @tab Yes (C/S) @tab
-@item @code{COLUMN-DIVIDERS} @tab Yes (C/S) @tab
-@item @code{COLUMN-FONT} @tab Yes (C/S) @tab
-@item @code{COLUMN-HEADINGS} @tab Yes (C/S) @tab
-@item @code{COLUMN-PROTECTION} @tab Yes (C/S) @tab
-@item @code{COLUMNS} @tab Yes @tab
-@item @code{COMBO-BOX} @tab Yes (C/S) @tab
-@item @code{COMMA} @tab Yes @tab
-@item @code{COMMAND-LINE} @tab Yes @tab
-@item @code{COMMIT} @tab Yes @tab
-@item @code{COMMON} @tab Yes @tab
-@item @code{COMMUNICATION} @tab Yes @tab
-@item @code{COMP} @tab Yes @tab @code{COMPUTATIONAL}
-@item @code{COMP-0} @tab Yes @tab @code{COMPUTATIONAL-0}
-@item @code{COMP-1} @tab Yes @tab @code{COMPUTATIONAL-1}
-@item @code{COMP-10} @tab Yes @tab @code{COMP-15, DOUBLE, FLOAT-LONG}
-@item @code{COMP-15} @tab Yes @tab @code{COMP-10, DOUBLE, FLOAT-LONG}
-@item @code{COMP-2} @tab Yes @tab @code{COMPUTATIONAL-2}
-@item @code{COMP-3} @tab Yes @tab @code{COMPUTATIONAL-3}
-@item @code{COMP-4} @tab Yes @tab @code{COMPUTATIONAL-4}
-@item @code{COMP-5} @tab Yes @tab @code{COMPUTATIONAL-5}
-@item @code{COMP-6} @tab Yes @tab @code{COMPUTATIONAL-6}
-@item @code{COMP-9} @tab Yes @tab @code{FLOAT, FLOAT-SHORT}
-@item @code{COMP-N} @tab Yes @tab @code{COMPUTATIONAL-N}
-@item @code{COMP-X} @tab Yes @tab @code{COMPUTATIONAL-X}
-@item @code{COMPUTATIONAL} @tab Yes @tab @code{COMP}
-@item @code{COMPUTATIONAL-0} @tab Yes @tab @code{COMP-0}
-@item @code{COMPUTATIONAL-1} @tab Yes @tab @code{COMP-1}
-@item @code{COMPUTATIONAL-2} @tab Yes @tab @code{COMP-2}
-@item @code{COMPUTATIONAL-3} @tab Yes @tab @code{COMP-3}
-@item @code{COMPUTATIONAL-4} @tab Yes @tab @code{COMP-4}
-@item @code{COMPUTATIONAL-5} @tab Yes @tab @code{COMP-5}
-@item @code{COMPUTATIONAL-6} @tab Yes @tab @code{COMP-6}
-@item @code{COMPUTATIONAL-N} @tab Yes @tab @code{COMP-N}
-@item @code{COMPUTATIONAL-X} @tab Yes @tab @code{COMP-X}
-@item @code{COMPUTE} @tab Yes @tab
-@item @code{CONDITION} @tab Yes @tab
-@item @code{CONFIGURATION} @tab Yes @tab
-@item @code{CONSTANT} @tab Yes @tab
-@item @code{CONTAINS} @tab Yes @tab
-@item @code{CONTENT} @tab Yes @tab
-@item @code{CONTINUE} @tab Yes @tab
-@item @code{CONTROL} @tab Yes @tab
-@item @code{CONTROLS} @tab Yes @tab
-@item @code{CONVERSION} @tab Yes (C/S) @tab
-@item @code{CONVERTING} @tab Yes @tab
-@item @code{COPY} @tab Yes @tab
-@item @code{COPY-SELECTION} @tab Yes (C/S) @tab
-@item @code{CORE-INDEX} @tab Yes (C/S) @tab
-@item @code{CORR} @tab Yes @tab @code{CORRESPONDING}
-@item @code{CORRESPONDING} @tab Yes @tab @code{CORR}
-@item @code{COUNT} @tab Yes @tab
-@item @code{CRT} @tab Yes @tab
-@item @code{CRT-UNDER} @tab Yes @tab
-@item @code{CSIZE} @tab Yes (C/S) @tab
-@item @code{CURRENCY} @tab Yes @tab
-@item @code{CURRENT} @tab No (C/S) @tab
-@item @code{CURSOR} @tab Yes @tab
-@item @code{CURSOR-COL} @tab Yes (C/S) @tab
-@item @code{CURSOR-COLOR} @tab Yes (C/S) @tab
-@item @code{CURSOR-FRAME-WIDTH} @tab Yes (C/S) @tab
-@item @code{CURSOR-ROW} @tab Yes (C/S) @tab
-@item @code{CURSOR-X} @tab Yes (C/S) @tab
-@item @code{CURSOR-Y} @tab Yes (C/S) @tab
-@item @code{CUSTOM-PRINT-TEMPLATE} @tab Yes (C/S) @tab
-@item @code{CYCLE} @tab Yes (C/S) @tab
-@item @code{CYL-INDEX} @tab Yes (C/S) @tab
-@item @code{CYL-OVERFLOW} @tab Yes (C/S) @tab
-@item @code{DASHED} @tab Yes (C/S) @tab
-@item @code{DATA} @tab Yes @tab
-@item @code{DATA-COLUMNS} @tab Yes (C/S) @tab
-@item @code{DATA-POINTER} @tab Yes @tab
-@item @code{DATA-TYPES} @tab Yes (C/S) @tab
-@item @code{DATE} @tab Yes @tab
-@item @code{DATE-COMPILED} @tab Yes (C/S) @tab
-@item @code{DATE-ENTRY} @tab Yes (C/S) @tab
-@item @code{DATE-MODIFIED} @tab Yes (C/S) @tab
-@item @code{DATE-WRITTEN} @tab Yes (C/S) @tab
-@item @code{DAY} @tab Yes @tab
-@item @code{DAY-OF-WEEK} @tab Yes @tab
-@item @code{DE} @tab Yes @tab
-@item @code{DEBUGGING} @tab Yes @tab
-@item @code{DECIMAL-POINT} @tab Yes @tab
-@item @code{DECLARATIVES} @tab Yes @tab
-@item @code{DEFAULT} @tab Yes @tab
-@item @code{DEFAULT-BUTTON} @tab Yes (C/S) @tab
-@item @code{DEFAULT-FONT} @tab Yes @tab
-@item @code{DELETE} @tab Yes @tab
-@item @code{DELIMITED} @tab Yes @tab
-@item @code{DELIMITER} @tab Yes @tab
-@item @code{DEPENDING} @tab Yes @tab
-@item @code{DESCENDING} @tab Yes @tab
-@item @code{DESTINATION} @tab Yes @tab
-@item @code{DESTROY} @tab Yes @tab
-@item @code{DETAIL} @tab Yes @tab
-@item @code{DISABLE} @tab Yes @tab
-@item @code{DISC} @tab Yes (C/S) @tab
-@item @code{DISK} @tab Yes (C/S) @tab
-@item @code{DISP} @tab Yes (C/S) @tab
-@item @code{DISPLAY} @tab Yes @tab
-@item @code{DISPLAY-1} @tab Yes @tab
-@item @code{DISPLAY-COLUMNS} @tab Yes (C/S) @tab
-@item @code{DISPLAY-FORMAT} @tab Yes (C/S) @tab
-@item @code{DIVIDE} @tab Yes @tab
-@item @code{DIVIDER-COLOR} @tab Yes (C/S) @tab
-@item @code{DIVIDERS} @tab Yes (C/S) @tab
-@item @code{DIVISION} @tab Yes @tab
-@item @code{DOTDASH} @tab Yes (C/S) @tab
-@item @code{DOTTED} @tab Yes (C/S) @tab
-@item @code{DOUBLE} @tab Yes @tab @code{COMP-10, COMP-15, FLOAT-LONG}
-@item @code{DOWN} @tab Yes @tab
-@item @code{DRAG-COLOR} @tab Yes (C/S) @tab
-@item @code{DROP-DOWN} @tab Yes (C/S) @tab
-@item @code{DROP-LIST} @tab Yes (C/S) @tab
-@item @code{DUPLICATES} @tab Yes @tab
-@item @code{DYNAMIC} @tab Yes @tab
-@item @code{EBCDIC} @tab Yes (C/S) @tab
-@item @code{EC} @tab Yes @tab
-@item @code{ECHO} @tab Yes @tab
-@item @code{EDITING} @tab No @tab
-@item @code{EGI} @tab Yes @tab
-@item @code{ELEMENT} @tab Yes (C/S) @tab
-@item @code{ELSE} @tab Yes @tab
-@item @code{EMI} @tab Yes @tab
-@item @code{EMPTY-CHECK} @tab Yes @tab @code{REQUIRED}
-@item @code{ENABLE} @tab Yes @tab
-@item @code{ENCODING} @tab Yes (C/S) @tab
-@item @code{ENCRYPTION} @tab Yes (C/S) @tab
-@item @code{END} @tab Yes @tab
-@item @code{END-ACCEPT} @tab Yes @tab
-@item @code{END-ADD} @tab Yes @tab
-@item @code{END-CALL} @tab Yes @tab
-@item @code{END-CHAIN} @tab No @tab
-@item @code{END-COLOR} @tab Yes (C/S) @tab
-@item @code{END-COMPUTE} @tab Yes @tab
-@item @code{END-DELETE} @tab Yes @tab
-@item @code{END-DISPLAY} @tab Yes @tab
-@item @code{END-DIVIDE} @tab Yes @tab
-@item @code{END-EVALUATE} @tab Yes @tab
-@item @code{END-IF} @tab Yes @tab
-@item @code{END-JSON} @tab Yes @tab
-@item @code{END-MODIFY} @tab Yes (C/S) @tab
-@item @code{END-MULTIPLY} @tab Yes @tab
-@item @code{END-OF-PAGE} @tab Yes @tab @code{EOP}
-@item @code{END-PERFORM} @tab Yes @tab
-@item @code{END-READ} @tab Yes @tab
-@item @code{END-RECEIVE} @tab Yes @tab
-@item @code{END-RETURN} @tab Yes @tab
-@item @code{END-REWRITE} @tab Yes @tab
-@item @code{END-SEARCH} @tab Yes @tab
-@item @code{END-SEND} @tab Yes @tab
-@item @code{END-START} @tab Yes @tab
-@item @code{END-STRING} @tab Yes @tab
-@item @code{END-SUBTRACT} @tab Yes @tab
-@item @code{END-UNSTRING} @tab Yes @tab
-@item @code{END-WRITE} @tab Yes @tab
-@item @code{END-XML} @tab Yes @tab
-@item @code{ENGRAVED} @tab Yes (C/S) @tab
-@item @code{ENSURE-VISIBLE} @tab Yes (C/S) @tab
-@item @code{ENTRY} @tab Yes @tab
-@item @code{ENTRY-CONVENTION} @tab Yes (C/S) @tab
-@item @code{ENTRY-FIELD} @tab Yes (C/S) @tab
-@item @code{ENTRY-REASON} @tab Yes (C/S) @tab
-@item @code{ENVIRONMENT} @tab Yes @tab
-@item @code{ENVIRONMENT-NAME} @tab Yes @tab
-@item @code{ENVIRONMENT-VALUE} @tab Yes @tab
-@item @code{EO} @tab No @tab
-@item @code{EOL} @tab Yes (C/S) @tab
-@item @code{EOP} @tab Yes @tab @code{END-OF-PAGE}
-@item @code{EOS} @tab Yes (C/S) @tab
-@item @code{EQUAL} @tab Yes @tab @code{EQUALS}
-@item @code{EQUALS} @tab Yes @tab @code{EQUAL}
-@item @code{ERASE} @tab Yes (C/S) @tab
-@item @code{ERROR} @tab Yes @tab
-@item @code{ESCAPE} @tab Yes @tab
-@item @code{ESCAPE-BUTTON} @tab Yes (C/S) @tab
-@item @code{ESI} @tab Yes @tab
-@item @code{EVALUATE} @tab Yes @tab
-@item @code{EVENT} @tab Yes @tab
-@item @code{EVENT-LIST} @tab Yes (C/S) @tab
-@item @code{EVERY} @tab Yes (C/S) @tab
-@item @code{EXCEPTION} @tab Yes @tab
-@item @code{EXCEPTION-OBJECT} @tab No @tab
-@item @code{EXCEPTION-VALUE} @tab Yes (C/S) @tab
-@item @code{EXCLUSIVE} @tab Yes @tab
-@item @code{EXCLUSIVE-OR} @tab No @tab
-@item @code{EXHIBIT} @tab Yes @tab
-@item @code{EXIT} @tab Yes @tab
-@item @code{EXPAND} @tab Yes (C/S) @tab
-@item @code{EXPANDS} @tab No (C/S) @tab
-@item @code{EXTEND} @tab Yes @tab
-@item @code{EXTENDED-SEARCH} @tab Yes (C/S) @tab
-@item @code{EXTERN} @tab Yes (C/S) @tab
-@item @code{EXTERNAL} @tab Yes @tab
-@item @code{EXTERNAL-FORM} @tab Yes @tab
-@item @code{F} @tab Yes (C/S) @tab
-@item @code{FACTORY} @tab Yes @tab
-@item @code{FALSE} @tab Yes @tab
-@item @code{FD} @tab Yes @tab
-@item @code{FH--FCD} @tab Yes (C/S) @tab
-@item @code{FH--KEYDEF} @tab Yes (C/S) @tab
-@item @code{FILE} @tab Yes @tab
-@item @code{FILE-CONTROL} @tab Yes @tab
-@item @code{FILE-ID} @tab Yes @tab
-@item @code{FILE-LIMIT} @tab Yes (C/S) @tab
-@item @code{FILE-LIMITS} @tab Yes (C/S) @tab
-@item @code{FILE-NAME} @tab Yes (C/S) @tab
-@item @code{FILE-POS} @tab Yes (C/S) @tab
-@item @code{FILL-COLOR} @tab Yes (C/S) @tab
-@item @code{FILL-COLOR2} @tab Yes (C/S) @tab
-@item @code{FILL-PERCENT} @tab Yes (C/S) @tab
-@item @code{FILLER} @tab Yes @tab
-@item @code{FINAL} @tab Yes @tab
-@item @code{FINALLY} @tab No @tab
-@item @code{FINISH-REASON} @tab Yes (C/S) @tab
-@item @code{FIRST} @tab Yes @tab
-@item @code{FIXED} @tab Yes @tab
-@item @code{FIXED-FONT} @tab Yes @tab
-@item @code{FIXED-WIDTH} @tab Yes (C/S) @tab
-@item @code{FLAT} @tab Yes (C/S) @tab
-@item @code{FLAT-BUTTONS} @tab Yes (C/S) @tab
-@item @code{FLOAT} @tab Yes @tab @code{COMP-9, FLOAT-SHORT}
-@item @code{FLOAT-BINARY-128} @tab No @tab
-@item @code{FLOAT-BINARY-32} @tab No @tab
-@item @code{FLOAT-BINARY-64} @tab No @tab
-@item @code{FLOAT-DECIMAL-16} @tab Yes @tab
-@item @code{FLOAT-DECIMAL-34} @tab Yes @tab
-@item @code{FLOAT-EXTENDED} @tab Yes @tab
-@item @code{FLOAT-INFINITY} @tab No @tab
-@item @code{FLOAT-LONG} @tab Yes @tab @code{COMP-10, COMP-15, DOUBLE}
-@item @code{FLOAT-NOT-A-NUMBER} @tab No (C/S) @tab
-@item @code{FLOAT-SHORT} @tab Yes @tab @code{COMP-9, FLOAT}
-@item @code{FLOATING} @tab Yes @tab
-@item @code{FONT} @tab Yes @tab
-@item @code{FOOTING} @tab Yes @tab
-@item @code{FOR} @tab Yes @tab
-@item @code{FOREGROUND-COLOR} @tab Yes (C/S) @tab @code{FOREGROUND-COLOUR}
-@item @code{FOREGROUND-COLOUR} @tab Yes @tab @code{FOREGROUND-COLOR}
-@item @code{FOREVER} @tab Yes (C/S) @tab
-@item @code{FORMAT} @tab Yes @tab
-@item @code{FRAME} @tab Yes (C/S) @tab
-@item @code{FRAMED} @tab Yes (C/S) @tab
-@item @code{FREE} @tab Yes @tab
-@item @code{FROM} @tab Yes @tab
-@item @code{FULL} @tab Yes (C/S) @tab @code{LENGTH-CHECK}
-@item @code{FULL-HEIGHT} @tab Yes (C/S) @tab
-@item @code{FUNCTION} @tab Yes @tab
-@item @code{FUNCTION-ID} @tab Yes @tab
-@item @code{FUNCTION-POINTER} @tab Yes @tab
-@item @code{GENERATE} @tab Yes @tab
-@item @code{GET} @tab No @tab
-@item @code{GIVING} @tab Yes @tab
-@item @code{GLOBAL} @tab Yes @tab
-@item @code{GO} @tab Yes @tab
-@item @code{GO-BACK} @tab Yes (C/S) @tab
-@item @code{GO-FORWARD} @tab Yes (C/S) @tab
-@item @code{GO-HOME} @tab Yes (C/S) @tab
-@item @code{GO-SEARCH} @tab Yes (C/S) @tab
-@item @code{GOBACK} @tab Yes @tab
-@item @code{GRAPHICAL} @tab Yes (C/S) @tab
-@item @code{GREATER} @tab Yes @tab
-@item @code{GRID} @tab Yes (C/S) @tab
-@item @code{GROUP} @tab Yes @tab
-@item @code{GROUP-USAGE} @tab No @tab
-@item @code{GROUP-VALUE} @tab Yes (C/S) @tab
-@item @code{HANDLE} @tab Yes @tab
-@item @code{HAS-CHILDREN} @tab Yes (C/S) @tab
-@item @code{HEADING} @tab Yes @tab
-@item @code{HEADING-COLOR} @tab Yes (C/S) @tab
-@item @code{HEADING-DIVIDER-COLOR} @tab Yes (C/S) @tab
-@item @code{HEADING-FONT} @tab Yes (C/S) @tab
-@item @code{HEAVY} @tab Yes (C/S) @tab
-@item @code{HEIGHT-IN-CELLS} @tab Yes (C/S) @tab
-@item @code{HEX} @tab No (C/S) @tab
-@item @code{HIDDEN-DATA} @tab Yes (C/S) @tab
-@item @code{HIGH-COLOR} @tab Yes (C/S) @tab
-@item @code{HIGH-VALUE} @tab Yes @tab @code{HIGH-VALUES}
-@item @code{HIGH-VALUES} @tab Yes @tab @code{HIGH-VALUE}
-@item @code{HIGHLIGHT} @tab Yes (C/S) @tab
-@item @code{HOT-TRACK} @tab Yes (C/S) @tab
-@item @code{HSCROLL} @tab Yes (C/S) @tab
-@item @code{HSCROLL-POS} @tab Yes (C/S) @tab
-@item @code{I-O} @tab Yes @tab
-@item @code{I-O-CONTROL} @tab Yes @tab
-@item @code{ICON} @tab Yes (C/S) @tab
-@item @code{ID} @tab Yes @tab
-@item @code{IDENTIFICATION} @tab Yes @tab
-@item @code{IDENTIFIED} @tab Yes @tab
-@item @code{IF} @tab Yes @tab
-@item @code{IGNORE} @tab Yes @tab
-@item @code{IGNORING} @tab Yes (C/S) @tab
-@item @code{IMPLEMENTS} @tab No (C/S) @tab
-@item @code{IN} @tab Yes @tab
-@item @code{INDEPENDENT} @tab Yes (C/S) @tab
-@item @code{INDEX} @tab Yes @tab
-@item @code{INDEXED} @tab Yes @tab
-@item @code{INDICATE} @tab Yes @tab
-@item @code{INHERITS} @tab No @tab
-@item @code{INITIAL} @tab Yes @tab
-@item @code{INITIALISE} @tab Yes @tab @code{INITIALIZE}
-@item @code{INITIALISED} @tab Yes @tab @code{INITIALIZED}
-@item @code{INITIALIZE} @tab Yes @tab @code{INITIALISE}
-@item @code{INITIALIZED} @tab Yes (C/S) @tab @code{INITIALISED}
-@item @code{INITIATE} @tab Yes @tab
-@item @code{INPUT} @tab Yes @tab
-@item @code{INPUT-OUTPUT} @tab Yes @tab
-@item @code{INQUIRE} @tab Yes @tab
-@item @code{INSERT-ROWS} @tab Yes (C/S) @tab
-@item @code{INSERTION-INDEX} @tab Yes (C/S) @tab
-@item @code{INSPECT} @tab Yes @tab
-@item @code{INSTALLATION} @tab Yes (C/S) @tab
-@item @code{INTERFACE} @tab No @tab
-@item @code{INTERFACE-ID} @tab No @tab
-@item @code{INTERMEDIATE} @tab Yes (C/S) @tab
-@item @code{INTO} @tab Yes @tab
-@item @code{INTRINSIC} @tab Yes (C/S) @tab
-@item @code{INVALID} @tab Yes @tab
-@item @code{INVOKE} @tab No @tab
-@item @code{IS} @tab Yes @tab
-@item @code{ITEM} @tab Yes (C/S) @tab
-@item @code{ITEM-TEXT} @tab Yes (C/S) @tab
-@item @code{ITEM-TO-ADD} @tab Yes (C/S) @tab
-@item @code{ITEM-TO-DELETE} @tab Yes (C/S) @tab
-@item @code{ITEM-TO-EMPTY} @tab Yes (C/S) @tab
-@item @code{ITEM-VALUE} @tab Yes (C/S) @tab
-@item @code{JSON} @tab Yes @tab
-@item @code{JUST} @tab Yes @tab @code{JUSTIFIED}
-@item @code{JUSTIFIED} @tab Yes @tab @code{JUST}
-@item @code{KEPT} @tab Yes @tab
-@item @code{KEY} @tab Yes @tab
-@item @code{KEYBOARD} @tab Yes (C/S) @tab
-@item @code{LABEL} @tab Yes @tab
-@item @code{LABEL-OFFSET} @tab Yes (C/S) @tab
-@item @code{LARGE-FONT} @tab Yes @tab
-@item @code{LARGE-OFFSET} @tab Yes (C/S) @tab
-@item @code{LAST} @tab Yes @tab
-@item @code{LAST-ROW} @tab Yes (C/S) @tab
-@item @code{LAYOUT-DATA} @tab Yes (C/S) @tab
-@item @code{LAYOUT-MANAGER} @tab Yes @tab
-@item @code{LC_ALL} @tab No (C/S) @tab
-@item @code{LC_COLLATE} @tab No (C/S) @tab
-@item @code{LC_CTYPE} @tab No (C/S) @tab
-@item @code{LC_MESSAGES} @tab No (C/S) @tab
-@item @code{LC_MONETARY} @tab No (C/S) @tab
-@item @code{LC_NUMERIC} @tab No (C/S) @tab
-@item @code{LC_TIME} @tab No (C/S) @tab
-@item @code{LEADING} @tab Yes @tab
-@item @code{LEADING-SHIFT} @tab Yes (C/S) @tab
-@item @code{LEAVE} @tab Yes (C/S) @tab
-@item @code{LEFT} @tab Yes @tab
-@item @code{LEFT-JUSTIFY} @tab No @tab
-@item @code{LEFT-TEXT} @tab Yes (C/S) @tab
-@item @code{LEFTLINE} @tab Yes @tab
-@item @code{LENGTH} @tab Yes @tab
-@item @code{LENGTH-CHECK} @tab Yes @tab @code{FULL}
-@item @code{LESS} @tab Yes @tab
-@item @code{LIKE} @tab Yes @tab
-@item @code{LIMIT} @tab Yes @tab
-@item @code{LIMITS} @tab Yes @tab
-@item @code{LINAGE} @tab Yes @tab
-@item @code{LINAGE-COUNTER} @tab Yes @tab
-@item @code{LINE} @tab Yes @tab
-@item @code{LINE-COUNTER} @tab Yes @tab
-@item @code{LINE-SEQUENTIAL} @tab Yes (C/S) @tab
-@item @code{LINES} @tab Yes @tab
-@item @code{LINES-AT-ROOT} @tab Yes (C/S) @tab
-@item @code{LINKAGE} @tab Yes @tab
-@item @code{LIST-BOX} @tab Yes (C/S) @tab
-@item @code{LM-RESIZE} @tab Yes @tab
-@item @code{LOC} @tab Yes (C/S) @tab
-@item @code{LOCAL-STORAGE} @tab Yes @tab
-@item @code{LOCALE} @tab Yes @tab
-@item @code{LOCATION} @tab No (C/S) @tab
-@item @code{LOCK} @tab Yes @tab
-@item @code{LOCK-HOLDING} @tab Yes (C/S) @tab
-@item @code{LONG-DATE} @tab Yes (C/S) @tab
-@item @code{LOW-COLOR} @tab Yes (C/S) @tab
-@item @code{LOW-VALUE} @tab Yes @tab @code{LOW-VALUES}
-@item @code{LOW-VALUES} @tab Yes @tab @code{LOW-VALUE}
-@item @code{LOWER} @tab Yes (C/S) @tab
-@item @code{LOWERED} @tab Yes (C/S) @tab
-@item @code{LOWLIGHT} @tab Yes (C/S) @tab
-@item @code{MAGNETIC-TAPE} @tab Yes (C/S) @tab
-@item @code{MANUAL} @tab Yes @tab
-@item @code{MASS-UPDATE} @tab Yes (C/S) @tab
-@item @code{MASTER-INDEX} @tab Yes (C/S) @tab
-@item @code{MAX-LINES} @tab Yes (C/S) @tab
-@item @code{MAX-PROGRESS} @tab Yes (C/S) @tab
-@item @code{MAX-TEXT} @tab Yes (C/S) @tab
-@item @code{MAX-VAL} @tab Yes (C/S) @tab
-@item @code{MEDIUM-FONT} @tab Yes @tab
-@item @code{MEMORY} @tab Yes (C/S) @tab
-@item @code{MENU} @tab Yes @tab
-@item @code{MERGE} @tab Yes @tab
-@item @code{MESSAGE} @tab Yes @tab
-@item @code{MESSAGE-TAG} @tab No @tab
-@item @code{METHOD} @tab No @tab
-@item @code{METHOD-ID} @tab No @tab
-@item @code{MICROSECOND-TIME} @tab Yes (C/S) @tab
-@item @code{MIN-VAL} @tab Yes (C/S) @tab
-@item @code{MINUS} @tab Yes @tab
-@item @code{MODE} @tab Yes @tab
-@item @code{MODIFY} @tab Yes @tab
-@item @code{MODULES} @tab Yes (C/S) @tab
-@item @code{MOVE} @tab Yes @tab
-@item @code{MULTILINE} @tab Yes (C/S) @tab
-@item @code{MULTIPLE} @tab Yes @tab
-@item @code{MULTIPLY} @tab Yes @tab
-@item @code{NAME} @tab Yes (C/S) @tab
-@item @code{NAMED} @tab Yes (C/S) @tab
-@item @code{NAMESPACE} @tab Yes (C/S) @tab
-@item @code{NAMESPACE-PREFIX} @tab Yes (C/S) @tab
-@item @code{NAT} @tab No (C/S) @tab
-@item @code{NATIONAL} @tab Yes @tab
-@item @code{NATIONAL-EDITED} @tab Yes @tab
-@item @code{NATIVE} @tab Yes @tab
-@item @code{NAVIGATE-URL} @tab Yes (C/S) @tab
-@item @code{NEAREST-AWAY-FROM-ZERO} @tab Yes (C/S) @tab
-@item @code{NEAREST-EVEN} @tab Yes (C/S) @tab
-@item @code{NEAREST-TOWARD-ZERO} @tab Yes (C/S) @tab
-@item @code{NEGATIVE} @tab Yes @tab
-@item @code{NESTED} @tab Yes @tab
-@item @code{NEW} @tab Yes @tab
-@item @code{NEXT} @tab Yes @tab
-@item @code{NEXT-ITEM} @tab Yes (C/S) @tab
-@item @code{NO} @tab Yes @tab
-@item @code{NO-AUTO-DEFAULT} @tab Yes (C/S) @tab
-@item @code{NO-AUTOSEL} @tab Yes (C/S) @tab
-@item @code{NO-BOX} @tab Yes (C/S) @tab
-@item @code{NO-DIVIDERS} @tab Yes (C/S) @tab
-@item @code{NO-ECHO} @tab Yes @tab
-@item @code{NO-F4} @tab Yes (C/S) @tab
-@item @code{NO-FOCUS} @tab Yes (C/S) @tab
-@item @code{NO-GROUP-TAB} @tab Yes (C/S) @tab
-@item @code{NO-KEY-LETTER} @tab Yes (C/S) @tab
-@item @code{NO-SEARCH} @tab Yes (C/S) @tab
-@item @code{NO-UPDOWN} @tab Yes (C/S) @tab
-@item @code{NOMINAL} @tab Yes (C/S) @tab
-@item @code{NONE} @tab Yes (C/S) @tab
-@item @code{NONNUMERIC} @tab Yes (C/S) @tab
-@item @code{NORMAL} @tab Yes (C/S) @tab
-@item @code{NOT} @tab Yes @tab
-@item @code{NOTAB} @tab Yes (C/S) @tab
-@item @code{NOTHING} @tab Yes @tab
-@item @code{NOTIFY} @tab Yes (C/S) @tab
-@item @code{NOTIFY-CHANGE} @tab Yes (C/S) @tab
-@item @code{NOTIFY-DBLCLICK} @tab Yes (C/S) @tab
-@item @code{NOTIFY-SELCHANGE} @tab Yes (C/S) @tab
-@item @code{NULL} @tab Yes @tab @code{NULLS}
-@item @code{NULLS} @tab Yes @tab @code{NULL}
-@item @code{NUM-COL-HEADINGS} @tab Yes (C/S) @tab
-@item @code{NUM-ROWS} @tab Yes (C/S) @tab
-@item @code{NUMBER} @tab Yes @tab
-@item @code{NUMBERS} @tab Yes @tab
-@item @code{NUMERIC} @tab Yes @tab
-@item @code{NUMERIC-EDITED} @tab Yes @tab
-@item @code{OBJECT} @tab Yes @tab
-@item @code{OBJECT-COMPUTER} @tab Yes @tab
-@item @code{OBJECT-REFERENCE} @tab No @tab
-@item @code{OCCURS} @tab Yes @tab
-@item @code{OF} @tab Yes @tab
-@item @code{OFF} @tab Yes @tab
-@item @code{OK-BUTTON} @tab Yes (C/S) @tab
-@item @code{OMITTED} @tab Yes @tab
-@item @code{ON} @tab Yes @tab
-@item @code{ONLY} @tab Yes @tab
-@item @code{OPEN} @tab Yes @tab
-@item @code{OPTIONAL} @tab Yes @tab
-@item @code{OPTIONS} @tab Yes @tab
-@item @code{OR} @tab Yes @tab
-@item @code{ORDER} @tab Yes @tab
-@item @code{ORGANISATION} @tab Yes @tab @code{ORGANIZATION}
-@item @code{ORGANIZATION} @tab Yes @tab @code{ORGANISATION}
-@item @code{OTHER} @tab Yes @tab
-@item @code{OTHERS} @tab Yes (C/S) @tab
-@item @code{OUTPUT} @tab Yes @tab
-@item @code{OVERFLOW} @tab Yes @tab
-@item @code{OVERLAP-LEFT} @tab Yes (C/S) @tab @code{OVERLAP-TOP}
-@item @code{OVERLAP-TOP} @tab Yes (C/S) @tab @code{OVERLAP-LEFT}
-@item @code{OVERLINE} @tab Yes @tab
-@item @code{OVERRIDE} @tab No @tab
-@item @code{PACKED-DECIMAL} @tab Yes @tab
-@item @code{PADDING} @tab Yes @tab
-@item @code{PAGE} @tab Yes @tab
-@item @code{PAGE-COUNTER} @tab Yes @tab
-@item @code{PAGE-SETUP} @tab Yes (C/S) @tab
-@item @code{PAGED} @tab Yes (C/S) @tab
-@item @code{PARAGRAPH} @tab Yes (C/S) @tab
-@item @code{PARENT} @tab Yes (C/S) @tab
-@item @code{PARSE} @tab Yes (C/S) @tab
-@item @code{PASCAL} @tab Yes (C/S) @tab
-@item @code{PASSWORD} @tab Yes (C/S) @tab
-@item @code{PERFORM} @tab Yes @tab
-@item @code{PERMANENT} @tab Yes (C/S) @tab
-@item @code{PF} @tab Yes @tab
-@item @code{PH} @tab Yes @tab
-@item @code{PHYSICAL} @tab Yes @tab
-@item @code{PIC} @tab Yes @tab @code{PICTURE}
-@item @code{PICTURE} @tab Yes @tab @code{PIC}
-@item @code{PIXEL} @tab Yes (C/S) @tab @code{PIXELS}
-@item @code{PIXELS} @tab Yes @tab @code{PIXEL}
-@item @code{PLACEMENT} @tab Yes (C/S) @tab
-@item @code{PLUS} @tab Yes @tab
-@item @code{POINTER} @tab Yes @tab
-@item @code{POP-UP} @tab Yes (C/S) @tab
-@item @code{POS} @tab Yes (C/S) @tab
-@item @code{POSITION} @tab Yes @tab
-@item @code{POSITION-SHIFT} @tab Yes (C/S) @tab
-@item @code{POSITIVE} @tab Yes @tab
-@item @code{PREFIXED} @tab No (C/S) @tab
-@item @code{PRESENT} @tab Yes @tab
-@item @code{PREVIOUS} @tab Yes (C/S) @tab
-@item @code{PRINT} @tab Yes (C/S) @tab
-@item @code{PRINT-NO-PROMPT} @tab Yes (C/S) @tab
-@item @code{PRINT-PREVIEW} @tab Yes (C/S) @tab
-@item @code{PRINTER} @tab Yes (C/S) @tab
-@item @code{PRINTER-1} @tab Yes (C/S) @tab
-@item @code{PRINTING} @tab Yes @tab
-@item @code{PRIORITY} @tab Yes @tab
-@item @code{PROCEDURE} @tab Yes @tab
-@item @code{PROCEDURE-POINTER} @tab Yes @tab @code{PROGRAM-POINTER}
-@item @code{PROCEDURES} @tab Yes @tab
-@item @code{PROCEED} @tab Yes @tab
-@item @code{PROCESSING} @tab Yes (C/S) @tab
-@item @code{PROGRAM} @tab Yes @tab
-@item @code{PROGRAM-ID} @tab Yes @tab
-@item @code{PROGRAM-POINTER} @tab Yes @tab @code{PROCEDURE-POINTER}
-@item @code{PROGRESS} @tab Yes (C/S) @tab
-@item @code{PROHIBITED} @tab Yes (C/S) @tab
-@item @code{PROMPT} @tab Yes @tab
-@item @code{PROPERTIES} @tab Yes (C/S) @tab
-@item @code{PROPERTY} @tab Yes @tab
-@item @code{PROTECTED} @tab Yes (C/S) @tab
-@item @code{PROTOTYPE} @tab Yes @tab
-@item @code{PURGE} @tab Yes @tab
-@item @code{PUSH-BUTTON} @tab Yes (C/S) @tab
-@item @code{QUERY-INDEX} @tab Yes (C/S) @tab
-@item @code{QUEUE} @tab Yes @tab
-@item @code{QUOTE} @tab Yes @tab @code{QUOTES}
-@item @code{QUOTES} @tab Yes @tab @code{QUOTE}
-@item @code{RADIO-BUTTON} @tab Yes (C/S) @tab
-@item @code{RAISE} @tab Yes @tab
-@item @code{RAISED} @tab Yes (C/S) @tab
-@item @code{RAISING} @tab Yes @tab
-@item @code{RANDOM} @tab Yes @tab
-@item @code{RD} @tab Yes @tab
-@item @code{READ} @tab Yes @tab
-@item @code{READ-ONLY} @tab Yes (C/S) @tab
-@item @code{READERS} @tab Yes (C/S) @tab
-@item @code{RECEIVE} @tab Yes @tab
-@item @code{RECEIVED} @tab Yes @tab
-@item @code{RECORD} @tab Yes @tab
-@item @code{RECORD-DATA} @tab Yes (C/S) @tab
-@item @code{RECORD-OVERFLOW} @tab Yes (C/S) @tab
-@item @code{RECORD-TO-ADD} @tab Yes (C/S) @tab
-@item @code{RECORD-TO-DELETE} @tab Yes (C/S) @tab
-@item @code{RECORDING} @tab Yes @tab
-@item @code{RECORDS} @tab Yes @tab
-@item @code{RECURSIVE} @tab Yes (C/S) @tab
-@item @code{REDEFINES} @tab Yes @tab
-@item @code{REEL} @tab Yes @tab
-@item @code{REFERENCE} @tab Yes @tab
-@item @code{REFERENCES} @tab Yes @tab
-@item @code{REFRESH} @tab Yes (C/S) @tab
-@item @code{REGION-COLOR} @tab Yes (C/S) @tab
-@item @code{RELATION} @tab Yes (C/S) @tab
-@item @code{RELATIVE} @tab Yes @tab
-@item @code{RELEASE} @tab Yes @tab
-@item @code{REMAINDER} @tab Yes @tab
-@item @code{REMARKS} @tab Yes (C/S) @tab
-@item @code{REMOVAL} @tab Yes @tab
-@item @code{RENAMES} @tab Yes @tab
-@item @code{REORG-CRITERIA} @tab Yes (C/S) @tab
-@item @code{REPEATED} @tab Yes @tab
-@item @code{REPLACE} @tab Yes @tab
-@item @code{REPLACING} @tab Yes @tab
-@item @code{REPORT} @tab Yes @tab
-@item @code{REPORTING} @tab Yes @tab
-@item @code{REPORTS} @tab Yes @tab
-@item @code{REPOSITORY} @tab Yes @tab
-@item @code{REQUIRED} @tab Yes (C/S) @tab @code{EMPTY-CHECK}
-@item @code{REREAD} @tab Yes (C/S) @tab
-@item @code{RERUN} @tab Yes (C/S) @tab
-@item @code{RESERVE} @tab Yes @tab
-@item @code{RESET} @tab Yes @tab
-@item @code{RESET-GRID} @tab Yes (C/S) @tab
-@item @code{RESET-LIST} @tab Yes (C/S) @tab
-@item @code{RESET-TABS} @tab Yes (C/S) @tab
-@item @code{RESUME} @tab No @tab
-@item @code{RETRY} @tab Yes @tab
-@item @code{RETURN} @tab Yes @tab
-@item @code{RETURNING} @tab Yes @tab
-@item @code{REVERSE} @tab Yes @tab
-@item @code{REVERSE-VIDEO} @tab Yes (C/S) @tab
-@item @code{REVERSED} @tab Yes @tab
-@item @code{REWIND} @tab Yes @tab
-@item @code{REWRITE} @tab Yes @tab
-@item @code{RF} @tab Yes @tab
-@item @code{RH} @tab Yes @tab
-@item @code{RIGHT} @tab Yes @tab
-@item @code{RIGHT-ALIGN} @tab Yes (C/S) @tab
-@item @code{RIGHT-JUSTIFY} @tab No @tab
-@item @code{RIGHTLINE} @tab Yes @tab
-@item @code{RIMMED} @tab Yes (C/S) @tab
-@item @code{ROLLBACK} @tab Yes @tab
-@item @code{ROUNDED} @tab Yes @tab
-@item @code{ROUNDING} @tab Yes (C/S) @tab
-@item @code{ROW-COLOR} @tab Yes (C/S) @tab
-@item @code{ROW-COLOR-PATTERN} @tab Yes (C/S) @tab
-@item @code{ROW-DIVIDERS} @tab Yes (C/S) @tab
-@item @code{ROW-FONT} @tab Yes (C/S) @tab
-@item @code{ROW-HEADINGS} @tab Yes (C/S) @tab
-@item @code{ROW-PROTECTION} @tab Yes (C/S) @tab
-@item @code{RUN} @tab Yes @tab
-@item @code{S} @tab Yes (C/S) @tab
-@item @code{SAME} @tab Yes @tab
-@item @code{SAVE-AS} @tab Yes (C/S) @tab
-@item @code{SAVE-AS-NO-PROMPT} @tab Yes (C/S) @tab
-@item @code{SCREEN} @tab Yes @tab
-@item @code{SCROLL} @tab Yes (C/S) @tab
-@item @code{SCROLL-BAR} @tab Yes (C/S) @tab
-@item @code{SD} @tab Yes @tab
-@item @code{SEARCH} @tab Yes @tab
-@item @code{SEARCH-OPTIONS} @tab Yes (C/S) @tab
-@item @code{SEARCH-TEXT} @tab Yes (C/S) @tab
-@item @code{SECONDS} @tab Yes (C/S) @tab
-@item @code{SECTION} @tab Yes @tab
-@item @code{SECURE} @tab Yes (C/S) @tab
-@item @code{SECURITY} @tab Yes (C/S) @tab
-@item @code{SEGMENT} @tab Yes @tab
-@item @code{SEGMENT-LIMIT} @tab Yes @tab
-@item @code{SELECT} @tab Yes @tab
-@item @code{SELECT-ALL} @tab Yes (C/S) @tab
-@item @code{SELECTION-INDEX} @tab Yes (C/S) @tab
-@item @code{SELECTION-TEXT} @tab Yes (C/S) @tab
-@item @code{SELF} @tab No @tab
-@item @code{SELF-ACT} @tab Yes (C/S) @tab
-@item @code{SEND} @tab Yes @tab
-@item @code{SENTENCE} @tab Yes @tab
-@item @code{SEPARATE} @tab Yes @tab
-@item @code{SEPARATION} @tab Yes (C/S) @tab
-@item @code{SEQUENCE} @tab Yes @tab
-@item @code{SEQUENTIAL} @tab Yes @tab
-@item @code{SET} @tab Yes @tab
-@item @code{SHADING} @tab Yes (C/S) @tab
-@item @code{SHADOW} @tab Yes (C/S) @tab
-@item @code{SHARING} @tab Yes @tab
-@item @code{SHORT-DATE} @tab Yes (C/S) @tab
-@item @code{SHOW-LINES} @tab Yes (C/S) @tab
-@item @code{SHOW-NONE} @tab Yes (C/S) @tab
-@item @code{SHOW-SEL-ALWAYS} @tab Yes (C/S) @tab
-@item @code{SIGN} @tab Yes @tab
-@item @code{SIGNED} @tab Yes @tab
-@item @code{SIGNED-INT} @tab Yes @tab
-@item @code{SIGNED-LONG} @tab Yes @tab
-@item @code{SIGNED-SHORT} @tab Yes @tab
-@item @code{SIZE} @tab Yes @tab
-@item @code{SMALL-FONT} @tab Yes @tab
-@item @code{SORT} @tab Yes @tab
-@item @code{SORT-MERGE} @tab Yes @tab
-@item @code{SORT-ORDER} @tab Yes (C/S) @tab
-@item @code{SOURCE} @tab Yes @tab
-@item @code{SOURCE-COMPUTER} @tab Yes @tab
-@item @code{SOURCES} @tab No @tab
-@item @code{SPACE} @tab Yes @tab @code{SPACES}
-@item @code{SPACE-FILL} @tab No @tab
-@item @code{SPACES} @tab Yes @tab @code{SPACE}
-@item @code{SPECIAL-NAMES} @tab Yes @tab
-@item @code{SPINNER} @tab Yes (C/S) @tab
-@item @code{SQUARE} @tab Yes (C/S) @tab
-@item @code{STACK} @tab No (C/S) @tab
-@item @code{STANDARD} @tab Yes @tab
-@item @code{STANDARD-1} @tab Yes @tab
-@item @code{STANDARD-2} @tab Yes @tab
-@item @code{STANDARD-BINARY} @tab Yes (C/S) @tab
-@item @code{STANDARD-DECIMAL} @tab Yes (C/S) @tab
-@item @code{START} @tab Yes @tab
-@item @code{START-X} @tab Yes (C/S) @tab
-@item @code{START-Y} @tab Yes (C/S) @tab
-@item @code{STATEMENT} @tab No (C/S) @tab
-@item @code{STATIC} @tab Yes (C/S) @tab
-@item @code{STATIC-LIST} @tab Yes (C/S) @tab
-@item @code{STATUS} @tab Yes @tab
-@item @code{STATUS-BAR} @tab Yes (C/S) @tab
-@item @code{STATUS-TEXT} @tab Yes (C/S) @tab
-@item @code{STDCALL} @tab Yes (C/S) @tab
-@item @code{STEP} @tab Yes (C/S) @tab
-@item @code{STOP} @tab Yes @tab
-@item @code{STRING} @tab Yes @tab
-@item @code{STRONG} @tab Yes (C/S) @tab
-@item @code{STYLE} @tab Yes (C/S) @tab
-@item @code{SUB-QUEUE-1} @tab Yes @tab
-@item @code{SUB-QUEUE-2} @tab Yes @tab
-@item @code{SUB-QUEUE-3} @tab Yes @tab
-@item @code{SUBTRACT} @tab Yes @tab
-@item @code{SUBWINDOW} @tab Yes @tab
-@item @code{SUM} @tab Yes @tab
-@item @code{SUPER} @tab No @tab
-@item @code{SUPPRESS} @tab Yes @tab
-@item @code{SYMBOL} @tab No (C/S) @tab
-@item @code{SYMBOLIC} @tab Yes @tab
-@item @code{SYNC} @tab Yes @tab @code{SYNCHRONISED, SYNCHRONIZED}
-@item @code{SYNCHRONISED} @tab Yes @tab @code{SYNC, SYNCHRONIZED}
-@item @code{SYNCHRONIZED} @tab Yes @tab @code{SYNC, SYNCHRONISED}
-@item @code{SYSTEM-DEFAULT} @tab Yes @tab
-@item @code{SYSTEM-INFO} @tab Yes (C/S) @tab
-@item @code{SYSTEM-OFFSET} @tab Yes @tab
-@item @code{TAB} @tab Yes (C/S) @tab
-@item @code{TAB-TO-ADD} @tab Yes (C/S) @tab
-@item @code{TAB-TO-DELETE} @tab Yes (C/S) @tab
-@item @code{TABLE} @tab Yes @tab
-@item @code{TALLYING} @tab Yes @tab
-@item @code{TAPE} @tab Yes (C/S) @tab
-@item @code{TEMPORARY} @tab Yes (C/S) @tab
-@item @code{TERMINAL-INFO} @tab Yes (C/S) @tab
-@item @code{TERMINATE} @tab Yes @tab
-@item @code{TERMINATION-VALUE} @tab Yes (C/S) @tab
-@item @code{TEST} @tab Yes @tab
-@item @code{TEXT} @tab Yes @tab
-@item @code{THAN} @tab Yes @tab
-@item @code{THEN} @tab Yes @tab
-@item @code{THREAD} @tab Yes @tab
-@item @code{THREADS} @tab Yes @tab
-@item @code{THROUGH} @tab Yes @tab @code{THRU}
-@item @code{THRU} @tab Yes @tab @code{THROUGH}
-@item @code{THUMB-POSITION} @tab Yes (C/S) @tab
-@item @code{TILED-HEADINGS} @tab Yes (C/S) @tab
-@item @code{TIME} @tab Yes @tab
-@item @code{TIME-OUT} @tab Yes (C/S) @tab @code{TIMEOUT}
-@item @code{TIMEOUT} @tab Yes @tab @code{TIME-OUT}
-@item @code{TIMES} @tab Yes @tab
-@item @code{TITLE} @tab Yes (C/S) @tab
-@item @code{TITLE-POSITION} @tab Yes (C/S) @tab
-@item @code{TO} @tab Yes @tab
-@item @code{TOP} @tab Yes @tab
-@item @code{TOP-LEVEL} @tab No (C/S) @tab
-@item @code{TOWARD-GREATER} @tab Yes (C/S) @tab
-@item @code{TOWARD-LESSER} @tab Yes (C/S) @tab
-@item @code{TRACK} @tab Yes (C/S) @tab
-@item @code{TRACK-AREA} @tab Yes (C/S) @tab
-@item @code{TRACK-LIMIT} @tab Yes (C/S) @tab
-@item @code{TRACKS} @tab Yes (C/S) @tab
-@item @code{TRADITIONAL-FONT} @tab Yes @tab
-@item @code{TRAILING} @tab Yes @tab
-@item @code{TRAILING-SHIFT} @tab Yes (C/S) @tab
-@item @code{TRAILING-SIGN} @tab No @tab
-@item @code{TRANSFORM} @tab Yes @tab
-@item @code{TRANSPARENT} @tab Yes (C/S) @tab
-@item @code{TREE-VIEW} @tab Yes (C/S) @tab
-@item @code{TRUE} @tab Yes @tab
-@item @code{TRUNCATION} @tab Yes (C/S) @tab
-@item @code{TYPE} @tab Yes @tab
-@item @code{TYPEDEF} @tab Yes @tab
-@item @code{U} @tab Yes (C/S) @tab
-@item @code{UCS-4} @tab Yes (C/S) @tab
-@item @code{UNBOUNDED} @tab Yes (C/S) @tab
-@item @code{UNDERLINE} @tab Yes (C/S) @tab
-@item @code{UNFRAMED} @tab Yes (C/S) @tab
-@item @code{UNIT} @tab Yes @tab
-@item @code{UNIVERSAL} @tab No @tab
-@item @code{UNLOCK} @tab Yes @tab
-@item @code{UNSIGNED} @tab Yes @tab
-@item @code{UNSIGNED-INT} @tab Yes @tab
-@item @code{UNSIGNED-LONG} @tab Yes @tab
-@item @code{UNSIGNED-SHORT} @tab Yes @tab
-@item @code{UNSORTED} @tab Yes (C/S) @tab
-@item @code{UNSTRING} @tab Yes @tab
-@item @code{UNTIL} @tab Yes @tab
-@item @code{UP} @tab Yes @tab
-@item @code{UPDATE} @tab Yes @tab
-@item @code{UPDATERS} @tab Yes (C/S) @tab
-@item @code{UPON} @tab Yes @tab
-@item @code{UPPER} @tab Yes (C/S) @tab
-@item @code{USAGE} @tab Yes @tab
-@item @code{USE} @tab Yes @tab
-@item @code{USE-ALT} @tab Yes (C/S) @tab
-@item @code{USE-RETURN} @tab Yes (C/S) @tab
-@item @code{USE-TAB} @tab Yes (C/S) @tab
-@item @code{USER} @tab Yes (C/S) @tab
-@item @code{USER-DEFAULT} @tab Yes @tab
-@item @code{USING} @tab Yes @tab
-@item @code{UTF-16} @tab Yes (C/S) @tab
-@item @code{UTF-8} @tab Yes (C/S) @tab
-@item @code{V} @tab Yes (C/S) @tab
-@item @code{VAL-STATUS} @tab Yes @tab @code{VALIDATE-STATUS}
-@item @code{VALID} @tab Yes @tab
-@item @code{VALIDATE} @tab Yes @tab
-@item @code{VALIDATE-STATUS} @tab Yes @tab @code{VAL-STATUS}
-@item @code{VALIDATING} @tab Yes (C/S) @tab
-@item @code{VALUE} @tab Yes @tab
-@item @code{VALUE-FORMAT} @tab Yes (C/S) @tab
-@item @code{VALUES} @tab Yes @tab
-@item @code{VARIABLE} @tab Yes (C/S) @tab
-@item @code{VARIANT} @tab Yes @tab
-@item @code{VARYING} @tab Yes @tab
-@item @code{VERTICAL} @tab Yes (C/S) @tab
-@item @code{VERY-HEAVY} @tab Yes (C/S) @tab
-@item @code{VIRTUAL-WIDTH} @tab Yes (C/S) @tab
-@item @code{VOLATILE} @tab Yes @tab
-@item @code{VPADDING} @tab Yes (C/S) @tab
-@item @code{VSCROLL} @tab Yes (C/S) @tab
-@item @code{VSCROLL-BAR} @tab Yes (C/S) @tab
-@item @code{VSCROLL-POS} @tab Yes (C/S) @tab
-@item @code{VTOP} @tab Yes (C/S) @tab
-@item @code{WAIT} @tab Yes @tab
-@item @code{WEB-BROWSER} @tab Yes (C/S) @tab
-@item @code{WHEN} @tab Yes @tab
-@item @code{WIDTH} @tab Yes (C/S) @tab
-@item @code{WIDTH-IN-CELLS} @tab Yes (C/S) @tab
-@item @code{WINDOW} @tab Yes @tab
-@item @code{WITH} @tab Yes @tab
-@item @code{WORDS} @tab Yes @tab
-@item @code{WORKING-STORAGE} @tab Yes @tab
-@item @code{WRAP} @tab Yes (C/S) @tab
-@item @code{WRITE} @tab Yes @tab
-@item @code{WRITE-ONLY} @tab Yes (C/S) @tab
-@item @code{WRITE-VERIFY} @tab Yes (C/S) @tab
-@item @code{WRITERS} @tab Yes (C/S) @tab
-@item @code{X} @tab Yes (C/S) @tab
-@item @code{XML} @tab Yes @tab
-@item @code{XML-DECLARATION} @tab Yes (C/S) @tab
-@item @code{XML-SCHEMA} @tab Yes (C/S) @tab
-@item @code{XOR} @tab No @tab
-@item @code{Y} @tab Yes (C/S) @tab
-@item @code{YYYYDDD} @tab Yes (C/S) @tab
-@item @code{YYYYMMDD} @tab Yes (C/S) @tab
-@item @code{ZERO} @tab Yes @tab @code{ZEROES, ZEROS}
-@item @code{ZERO-FILL} @tab No (C/S) @tab
-@item @code{ZEROES} @tab Yes @tab @code{ZERO, ZEROS}
-@item @code{ZEROS} @tab Yes @tab @code{ZERO, ZEROES}
-@end multitable
-
-
-@section Internal registers
-@multitable @columnfractions .40 .20 .40
-@headitem Register @tab Implemented @tab Definition
-@item @code{'ADDRESS OF' phrase} @tab Yes @tab @code{USAGE POINTER}
-@item @code{COB-CRT-STATUS} @tab Yes @tab @code{PICTURE 9(4) USAGE DISPLAY VALUE ZERO}
-@item @code{DEBUG-ITEM} @tab Yes @tab @code{PICTURE X(n) USAGE DISPLAY}
-@item @code{'LENGTH OF' phrase} @tab Yes @tab @code{CONSTANT USAGE BINARY-LONG}
-@item @code{NUMBER-OF-CALL-PARAMETERS} @tab Yes @tab @code{USAGE BINARY-LONG}
-@item @code{RETURN-CODE} @tab Yes @tab @code{GLOBAL USAGE BINARY-LONG VALUE ZERO}
-@item @code{SORT-RETURN} @tab Yes @tab @code{GLOBAL USAGE BINARY-LONG VALUE ZERO}
-@item @code{TALLY} @tab Yes @tab @code{GLOBAL PICTURE 9(5) USAGE BINARY VALUE ZERO}
-@item @code{WHEN-COMPILED} @tab Yes @tab @code{CONSTANT PICTURE X(16) USAGE DISPLAY}
-@item @code{XML-CODE} @tab Yes @tab @code{GLOBAL PICTURE S9(9) USAGE BINARY VALUE 0}
-@item @code{XML-EVENT} @tab Yes @tab @code{GLOBAL USAGE DISPLAY PICTURE X(30) VALUE SPACE}
-@item @code{XML-INFORMATION} @tab Yes @tab @code{GLOBAL PICTURE S9(9) USAGE BINARY VALUE 0}
-@item @code{XML-NAMESPACE} @tab Yes @tab @code{GLOBAL PIC X ANY LENGTH}
-@item @code{XML-NAMESPACE-PREFIX} @tab Yes @tab @code{GLOBAL PIC X ANY LENGTH}
-@item @code{XML-NNAMESPACE} @tab Yes @tab @code{GLOBAL PIC N ANY LENGTH}
-@item @code{XML-NNAMESPACE-PREFIX} @tab Yes @tab @code{GLOBAL PIC N ANY LENGTH}
-@item @code{XML-NTEXT} @tab Yes @tab @code{GLOBAL PIC N ANY LENGTH}
-@item @code{XML-TEXT} @tab Yes @tab @code{GLOBAL PIC X ANY LENGTH}
-@item @code{JSON-CODE} @tab Yes @tab @code{GLOBAL PICTURE S9(9) USAGE BINARY VALUE 0}
-@item @code{JSON-STATUS} @tab Yes @tab @code{GLOBAL PICTURE S9(9) USAGE BINARY VALUE 0}
-@end multitable
diff --git a/doc/cbrunt.tex b/doc/cbrunt.tex
deleted file mode 100644
index 780d3a4..0000000
--- a/doc/cbrunt.tex
+++ /dev/null
@@ -1,524 +0,0 @@
-@section General instructions
-
-
-
-The initial @file{runtime.cfg} file is found in the @env{$COB_CONFIG_DIR} ,
-which defaults to installdir/gnucobol/config (see @command{cobcrun --info} for the
-local path that is configured).
-The environment variable @env{COB_RUNTIME_CONFIG} may define a different runtime
-configuration file to read.
-
-If settings are included in the runtime environment file multiple times
-then the last setting value is used, no warning occurs.
-
-Settings via environment variables always take precedence over settings
-that are given in runtime configuration files. And the environment is
-checked after completing processing of the runtime configuration file(s)
-
-All values set to string variables or environment variables are checked
-for $@{envvar@} and replacement is done at the time of the setting.
-You can also specify a default value for the case that envvar is not set:
- @code{$@{envvar:default@}} (the format @code{$@{envvar:-default@}} is supported, too).
-
-Any environment variable may be set with the directive @code{setenv} .
-@table @asis
-@item Example
-@code{@code{setenv} COB_LIBARAY_PATH $@{LD_LIBRARY_PATH@}}
-@end table
-
-Any environment variable may be unset with the directive @code{unsetenv}
-(one var per line).
-@table @asis
-@item Example
-@code{@code{unsetenv} COB_LIBRARY_PATH}
-@end table
-
-Runtime configuration files can @code{include }other files with the
-directive @code{include } .
-@table @asis
-@item Example
-@code{@code{include }my-runtime-configuration-file}
-@end table
-
-To @code{include }another configuration file only if it is present use the
-directive @code{includeif} .
-You can also use $@{envvar@} inside this.
-@table @asis
-@item Example
-@code{@code{includeif} $@{HOME@}/mygc.cfg}
-@end table
-
-If you want to reset a parameter to its default value use
- @code{reset parametername} .
-
-Most runtime variables have boolean values, some are switches, some have
-string values, integer values (if not explicit noted: unsigned) and some
-are size values.
-The boolean values will be evaluated as following:
- to true: @code{1}, @code{Y}, O@code{N}, @code{YES}, @code{TRUE} (no matter of case)
- to false: @code{0}, @code{N}, @code{OFF}.
-
-A @code{size} value is an unsigned integer optionally followed by @samp{K}, @samp{M}, or @samp{G}
-for @samp{kilo}, @samp{mega} or @samp{giga}.
-
-For convenience a parameter in the @file{runtime.cfg} file may be defined by using
-either the environment variable name or the parameter name.
-In most cases the environment variable name is the parameter name (in upper
-case) with the prefix @code{COB_} .
-
-For a complete list of the settings in use see @command{cobcrun --runtime-config} .
-
-Note:
-If you want to @i{slightly} speed up a program's startup time, remove all
-of the comments from the actual real configuration file that is processed.
-
-
-
-@section General environment
-@verbatim
-
-
-
-Environment name: COB_DISABLE_WARNINGS
- Parameter name: disable_warnings
- Purpose: turn off runtime warning messages
- Type: boolean
- Default: false
- Example: DISABLE_WARNINGS TRUE
-
-Environment name: COB_ENV_MANGLE
- Parameter name: env_mangle
- Purpose: names checked in the environment would get non alphanumeric
- change to '_'
- Type: boolean
- Default: false
- Example: ENV_MANGLE TRUE
-
-Environment name: COB_SET_DEBUG
- Parameter name: debugging_mode
- Purpose: to enable USE ON DEBUGGING procedures that were active
- during compile-time because of WITH DEBUGGING MODE,
- otherwise the code generated will be skipped
- Type: boolean
- Default: false
- Example: COB_SET_DEBUG 1
-
-Environment name: COB_SET_TRACE
- Parameter name: set_trace
- Purpose: to enable COBOL trace feature
- Type: boolean
- Default: false
- Example: SET_TRACE TRUE
-
-Environment name: COB_TRACE_FILE
- Parameter name: trace_file
- Purpose: to define where COBOL trace output should go
- Type: string : $$ is replaced by process id
- Note: file is opened for append if name starts with "+"
- Default: stderr
- Example: TRACE_FILE ${HOME}/mytrace.$$
-
-Environment name: COB_TRACE_FORMAT
- Parameter name: trace_format
- Purpose: to define format of COBOL trace output
- Type: string
- Default: "%P %S Line: %L"
- %P is replaced by Program-Id/Function-Id minimal length 29
- with prefix
- %I is replaced by Program-Id/Function-Id variable length,
- without prefix
- %L is replaced by Line number, right justified, length 6
- %S is replaced by statement type and name
- %F is replaced by source file name
- Example: TRACE_FORMAT "Line: %L %S"
- Note: format of GC2.2 and older:
- "PROGRAM-ID: %I Line: %L %S"
-
-Environment name: COB_CORE_ON_ERROR
- Parameter name: core_on_error
- Purpose: to enable operating system handling of signals and to
- raise an ABORT signal on runtime error instead of the
- default error handling, which will commonly kill the
- process after creating a coredump
- Type: 0 means catching all default signals and do full
- internal error handling as done in versions pre 3.2
- along with full internal handling of COBOL runtime
- errors
- 1 means to forward any signals; whatever happens
- by means of system signal handers will happen,
- which may include creating coredumps and killing
- the process before libcob does any cleanup; preserve
- full internal handling of COBOL runtime errors
- 2 is identical to 1, but on runtime errors explicit
- raises SIGABRT after displaying it along with the
- stacktrace and after doing minimal cleanup
- 3 similar to 2, but instead of raising SIGABRT execute
- "gcore -a -o NAME $$" (where $$ is the process id and
- NAME is specified by COB_CORE_FILENAME) as early as
- possible before doing the normal internal error
- handling; if the command does not work or if a signal
- handler was executed before a SIGABRT is raised
- Default: 0
- Example: core_on_error 3
- Note: If the operating system kills the process as part of the
- signal handling no COBOL centric dump will be created and
- no cleanup will be done either.
- When catching a signal (for example 11) it will be
- returned as exit code of the process, the generated
- coredumps store the reason for the error in the variable
- "runtime_err_str".
-
-Environment name: COB_CORE_FILENAME
- Parameter name: core_filename
- Purpose: to adjust the default name or specify a folder for a
- COB_CORE_ON_ERROR=3 generated coredump
- Type: string
- Default: ./core.libcob
- Example: core_filename /home/me/SomeApp.core
-
-Environment name: COB_STACKTRACE
- Parameter name: stracktrace
- Purpose: to disable stracktrace creation on abort
- Type: boolean
- Default: true
- Example: STRACKTRACE no
-
-Environment name: COB_DUMP_FILE
- Parameter name: dump_file
- Purpose: to define where COBOL dump output should go
- Note: the -fdump=all compile option prepares for dump;
- file is opened for append if name starts with "+";
- may be disabled by setting it to "NONE"
- Type: string : $$ is replaced by process id
- Default: stderr
- Example: DUMP_FILE ${HOME}/mytrace.log
-
-Environment name: COB_DUMP_WIDTH
- Parameter name: dump_width
- Purpose: to define COBOL dump line length
- Type: integer
- Default: 100
- Example: dump_width 120
-
-Environment name: COB_CURRENT_DATE
- Parameter name: current_date
- Purpose: specify an alternate Date/Time to be returned to ACCEPT
- statement; this is used for testing purposes or to tweak
- a missing offset, partial setting is allowed
- Type: numeric string in format YYYYDDMMHHMISS or date string
- or seconds since the epoch as @SSSSSSSS
- Default: the operating system date is used
- Example: COB_CURRENT_DATE "2026/03/16 16:40:52"
- current_date YYYYMMDDHHMMSS+01:00
-
-
-@section Call environment
-@verbatim
-
-
-Environment name: COB_LIBRARY_PATH
- Parameter name: library_path
- Purpose: paths for dynamically-loadable modules
- Type: string
- Note: the default paths .:/installpath/extras are always
- added to the given paths
- Example: LIBRARY_PATH /opt/myapp/test:/opt/myapp/production
-
-Environment name: COB_PRE_LOAD
- Parameter name: pre_load
- Purpose: modules that are loaded during startup, can be used
- to CALL COBOL programs or C functions that are part
- of a module library
- Type: string
- Note: the modules listed should NOT include extensions, the
- runtime will use the right ones on the various platforms,
- COB_LIBRARY_PATH is used to locate the modules
- Example: PRE_LOAD COBOL_function_library:external_c_library
-
-Environment name: COB_LOAD_CASE
- Parameter name: load_case
- Purpose: resolve ALL called program names to UPPER or LOWER case
- Type: Only use UPPER or LOWER
- Default: if not set program names in CALL are case sensitive
- Example: LOAD_CASE UPPER
-
-Environment name: COB_PHYSICAL_CANCEL
- Parameter name: physical_cancel
- Purpose: physically unload a dynamically-loadable module on CANCEL,
- this frees some RAM and allows the change of modules during
- run-time but needs more time to resolve CALLs (both to
- active and not-active programs)
- Alias: default_cancel_mode, LOGICAL_CANCELS (0 = yes)
- Type: TRUE/YES/1 unload module on CANCEL
- FALSE/NO/0 unload module on STOP RUN only
- NEVER never unload module, only useful for profilers
- and tracing tools that do a post-mortem lookup
- of function address
- Default: false
- Example: PHYSICAL_CANCEL TRUE
-
-
-@end verbatim
-
-@section File I/O
-@verbatim
-
-
-Environment name: COB_VARSEQ_FORMAT
- Parameter name: varseq_format
- Purpose: declare format used for variable length sequential files
- - different types and lengths precede each record
- - 'length' is the data length, does not include the prefix
- Type: 0 means 2 byte record length (big-endian) + 2 NULs
- 1 means 4 byte record length (big-endian)
- 2 means 4 byte record length (local machine int)
- 3 means 2 byte record length (big-endian)
- Default: 0
- Example: VARSEQ_FORMAT 1
-
-Environment name: COB_FILE_PATH
- Parameter name: file_path
- Purpose: define default location where data files are stored
- Type: file path directory
- Default: . (current directory)
- Example: FILE_PATH ${HOME}/mydata
-
-Environment name: COB_LS_FIXED
- Parameter name: ls_fixed
- Purpose: Defines if LINE SEQUENTIAL files should be fixed length
- (or variable, by removing trailing spaces)
- Alias: STRIP_TRAILING_SPACES (0 = yes)
- Type: boolean
- Default: false
- Note: This setting is most useful if you want to REWRITE those
- files.
- Example: LS_FIXED TRUE
-
-Environment name: COB_LS_VALIDATE
- Parameter name: ls_validate
- Purpose: Defines for LINE SEQUENTIAL files that the data should be
- validated as it is read (status 09) / written (status 71).
- Type: boolean
- Default: true (per COBOL 2022)
- Note: If active effectively disables COB_LS_NULLS.
- Example: LS_VALIDATE FALSE
-
-Environment name: COB_LS_NULLS
- Parameter name: ls_nulls
- Purpose: Defines for LINE SEQUENTIAL files what to do with data
- which is not DISPLAY type. This could happen if a LINE
- SEQUENTIAL record has BINARY/COMP data fields in it.
- Type: boolean
- Default: false
- Note: The TRUE setting will insert a null character x"00" before
- those values to escape them, and redo on read-in plus
- validating that they only occur after a null character.
- Decreases LINE SEQUENTIAL performance and prevents writing
- escape sequences or formatting within the data.
- Only checked if COB_LS_VALIDATE is disabled.
- Example: LS_NULL = TRUE
-
-Environment name: COB_LS_SPLIT
- Parameter name: ls_split
- Purpose: Defines for LINE SEQUENTIAL files what to do when a record
- is longer than the program handles. If 'ls_split=true' then
- the data is returned as multiple records with io status 06,
- otherwise the record is truncated, io status set to 04 and
- the file skips to the next LF.
- Type: boolean
- Default: true (per COBOL 2022)
- Example: LS_SPLIT = FALSE
-
-Environment name: COB_SYNC
- Parameter name: sync
- Purpose: Should the file be synced to disk after each write/update
- Type: boolean
- Default: false
- Example: SYNC: TRUE
-
-Environment name: COB_SORT_MEMORY
- Parameter name: sort_memory
- Purpose: Defines how much RAM to assign for sorting data
- if this size is exceeded the SORT will be done
- on disk instead of memory
- Type: size but must be more than 1M
- Default: 128M
- Example: SORT_MEMORY 64M
-
-Environment name: COB_SORT_CHUNK
- Parameter name: sort_chunk
- Purpose: Defines how much RAM to assign for sorting data in chunks
- Type: size but must be within 128K and 16M
- Default: 256K
- Example: SORT_CHUNK 1M
-
-Environment name: COB_SEQ_CONCAT_NAME
- Parameter name: seq_concat_name
- Purpose: Does DD_asgname hold multiple input file names
- Type: boolean
- Default: false
- Example: seq_concat_name = true
-
-Environment name: COB_SEQ_CONCAT_SEP
- Parameter name: seq_concat_sep
- Purpose: Character separating file names
- Type: char
- Default: +
- Example: seq_concat_name = '&'
-
-
-@end verbatim
-
-@section Screen I/O
-@verbatim
-
-
-Environment name: COB_BELL
- Parameter name: bell
- Purpose: Defines how a request for the screen to beep is handled
- Type: FLASH, SPEAKER, FALSE, BEEP
- Default: BEEP
- Example: BELL SPEAKER
-
-Environment name: COB_REDIRECT_DISPLAY
- Parameter name: redirect_display
- Purpose: Defines if DISPLAY output should be sent to 'stderr'
- Type: boolean
- Default: false
- Example: redirect_display Yes
-
-Environment name: COB_SCREEN_ESC
- Parameter name: screen_esc
- Purpose: Enable handling of ESC key during ACCEPT
- Type: boolean
- Default: false
- Note: is only evaluated if COB_SCREEN_EXCEPTIONS is active
- Example: screen_esc Yes
-
-Environment name: COB_SCREEN_EXCEPTIONS
- Parameter name: screen_exceptions
- Purpose: enable exceptions for function keys during ACCEPT
- Type: boolean
- Default: false
- Example: screen_exceptions Yes
-
-Environment name: COB_TIMEOUT_SCALE
- Parameter name: timeout_scale
- Purpose: specify translation in milliseconds for ACCEPT clauses
- BEFORE TIME value / AFTER TIMEOUT
- Type: integer
- 0 means 1000 (Micro Focus COBOL compatible), 1 means 100
- (ACUCOBOL compatible), 2 means 10, 3 means 1
- Default: 0
- Note: the minimum and possible maximum value depend on the
- screenio library used
- Example: timeout_scale 3
-
-Environment name: COB_INSERT_MODE
- Parameter name: insert_mode
- Purpose: specify default insert mode for ACCEPT; 0=off, 1=on
- Type: boolean
- Default: false
- Note: also sets the cursor type (if available)
- Example: insert_mode Y
-
-Environment name: COB_MOUSE_FLAGS
- Parameter name: mouse_flags
- Purpose: specify which mouse events will be sent as function key
- to the application during ACCEPT and how they will be
- handled
- Type: int (by bits)
- Default: 1
- Note: 0 disables the mouse cursor, any other value enables it,
- any value containing 1 will enable internal handling (click
- to position, double-click to enter).
- See copy/screenio.cpy for list of events and their values.
- Alias: MOUSE_FLAGS
- Example: 11 (enable internal handling => 1, left press => 2,
- double-click => 8; 1+2+8=11)
-
-Environment name: COB_MOUSE_INTERVAL
- Parameter name: mouse_interval
- Purpose: specifies the maximum time (in thousands of a second)
- that can elapse between press and release events for them
- to be recognized as a click.
- Type: int (0 - 166)
- Default: 100
- Note: 0 disables the click resolution (instead press + release
- are recognized), also disables positioning by mouse click
-
-Environment name: COB_DISPLAY_PRINT_PIPE
- Parameter name: display_print_pipe
- Purpose: Defines command line used for sending output of
- DISPLAY UPON PRINTER to (via pipe)
- This is very similar to Micro Focus COBPRINTER
- Note: Each executed DISPLAY UPON PRINTER statement causes a
- new invocation of command-line (= new process start).
- Each invocation receives the data referenced in
- the DISPLAY statement and is followed by an
- end-of-file condition.
- COB_DISPLAY_PRINT_FILE, if set, takes precedence
- over COB_DISPLAY_PRINT_PIPE.
- Alias: COBPRINTER
- Type: string
- Default: not set
- Example: print 'cat >>/tmp/myprt.log'
-
-Environment name: COB_DISPLAY_PRINT_FILE
- Parameter name: display_print_file
- Purpose: Defines file to be appended to by DISPLAY UPON PRINTER
- Note: Each DISPLAY UPON PRINTER opens, appends and closes the file.
- Type: string : $$ is replaced by process id
- Default: not set
- Example: display_printer '/tmp/myprt.log'
-
-Environment name: COB_DISPLAY_PUNCH_FILE
- Parameter name: display_punch_file
- Purpose: Defines file to be created on first
- DISPLAY UPON SYSPUNCH/SYSPCH
- Note: The file will be only be closed on runtime exit.
- Type: string : $$ is replaced by process id
- Default: not set
- Example: display_punch './punch_$$.out'
-
-Environment name: COB_LEGACY
- Parameter name: legacy
- Purpose: keep behavior of former runtime versions, currently only
- for setting screen attributes for non input fields and
- disabling blinking on some systems
- Type: boolean
- Default: not set
- Example: legacy true
-
-Environment name: COB_EXIT_WAIT
- Parameter name: exit_wait
- Purpose: to wait on main program exit if an extended screenio
- DISPLAY was issued without an ACCEPT following
- Type: boolean
- Default: true
- Example: COB_EXIT_WAIT off
-
-Environment name: COB_EXIT_MSG
- Parameter name: exit_msg
- Purpose: string to display if COB_EXIT_WAIT is processed, set to ''
- if no actual display but an ACCEPT should be done
- Type: string
- Default: 'end of program, please press a key to exit' (localized)
- Example: COB_EXIT_MSG ''
-
-
-@end verbatim
-
-@section Report I/O
-@verbatim
-
-
-Environment name: COB_COL_JUST_LRC
- Parameter name: col_just_lrc
- Purpose: If true, then COLUMN defined as LEFT, RIGHT or CENTER
- will have the data justified within the field limits
- If false, then the data is just copied into the column as is
- Type: boolean
- Default: TRUE
- Example: col_just_lrc True
-@end verbatim
diff --git a/doc/cbsyst.tex b/doc/cbsyst.tex
deleted file mode 100644
index e4dd218..0000000
--- a/doc/cbsyst.tex
+++ /dev/null
@@ -1,67 +0,0 @@
-@multitable @columnfractions .40 .20
-@headitem System routine @tab Parameters
-@item @code{SYSTEM} @tab 1
-@item @code{CBL_AND} @tab 3
-@item @code{CBL_ALARM_SOUND} @tab 0
-@item @code{CBL_BELL_SOUND} @tab 0
-@item @code{CBL_CHANGE_DIR} @tab 1
-@item @code{CBL_CHECK_FILE_EXIST} @tab 2
-@item @code{CBL_CLOSE_FILE} @tab 1
-@item @code{CBL_COPY_FILE} @tab 2
-@item @code{CBL_CREATE_DIR} @tab 1
-@item @code{CBL_CREATE_FILE} @tab 5
-@item @code{CBL_DELETE_DIR} @tab 1
-@item @code{CBL_DELETE_FILE} @tab 1
-@item @code{CBL_EQ} @tab 3
-@item @code{CBL_ERROR_PROC} @tab 2
-@item @code{CBL_EXIT_PROC} @tab 2
-@item @code{CBL_RUNTIME_ERROR} @tab 2
-@item @code{CBL_FLUSH_FILE} @tab 1
-@item @code{CBL_GET_CSR_POS} @tab 1
-@item @code{CBL_GET_CURRENT_DIR} @tab 3
-@item @code{CBL_GET_SCR_SIZE} @tab 2
-@item @code{CBL_IMP} @tab 3
-@item @code{CBL_NIMP} @tab 3
-@item @code{CBL_NOR} @tab 3
-@item @code{CBL_NOT} @tab 2
-@item @code{CBL_OPEN_FILE} @tab 5
-@item @code{CBL_OR} @tab 3
-@item @code{CBL_READ_FILE} @tab 5
-@item @code{CBL_READ_KBD_CHAR} @tab 1
-@item @code{CBL_RENAME_FILE} @tab 2
-@item @code{CBL_SET_CSR_POS} @tab 1
-@item @code{CBL_TOLOWER} @tab 2
-@item @code{CBL_TOUPPER} @tab 2
-@item @code{CBL_WRITE_FILE} @tab 5
-@item @code{CBL_XOR} @tab 3
-@item @code{CBL_GC_FORK} @tab 0
-@item @code{CBL_GC_GETOPT} @tab 6
-@item @code{CBL_GC_HOSTED} @tab 2
-@item @code{CBL_GC_NANOSLEEP} @tab 1
-@item @code{CBL_GC_PRINTABLE} @tab 1 - 2
-@item @code{CBL_GC_SET_SCR_SIZE} @tab 2
-@item @code{CBL_GC_WAITPID} @tab 1
-@item @code{CBL_OC_GETOPT} @tab 6
-@item @code{CBL_OC_HOSTED} @tab 2
-@item @code{CBL_OC_NANOSLEEP} @tab 1
-@item @code{C$CALLEDBY} @tab 1
-@item @code{C$CHDIR} @tab 2
-@item @code{C$COPY} @tab 3
-@item @code{C$DELETE} @tab 2
-@item @code{C$FILEINFO} @tab 2
-@item @code{C$GETPID} @tab 0
-@item @code{C$JUSTIFY} @tab 1 - 2
-@item @code{C$MAKEDIR} @tab 1
-@item @code{C$NARG} @tab 1
-@item @code{C$PARAMSIZE} @tab 1
-@item @code{C$PRINTABLE} @tab 1 - 2
-@item @code{C$SLEEP} @tab 1
-@item @code{C$TOLOWER} @tab 2
-@item @code{C$TOUPPER} @tab 2
-@item @code{EXTFH} @tab 2
-@item @code{X"91"} @tab 3
-@item @code{X"E4"} @tab 0
-@item @code{X"E5"} @tab 0
-@item @code{X"F4"} @tab 2
-@item @code{X"F5"} @tab 2
-@end multitable
diff --git a/doc/gnucobol.info b/doc/gnucobol.info
deleted file mode 100644
index 3d25bd1..0000000
--- a/doc/gnucobol.info
+++ /dev/null
@@ -1,6364 +0,0 @@
-This is gnucobol.info, produced by makeinfo version 6.7 from
-gnucobol.texi.
-
-Permission is granted to make and distribute verbatim copies of this
-manual provided the copyright notice and this permission notice are
-preserved on all copies.
-
- Permission is granted to copy and distribute modified versions of
-this manual under the conditions for verbatim copying, provided that the
-entire resulting derived work is distributed under the terms of a
-permission notice identical to this one.
-
- Permission is granted to copy and distribute translations of this
-manual into another language, under the above conditions for modified
-versions, except that this permission notice may be stated in a
-translation approved by the Free Software Foundation.
-INFO-DIR-SECTION Software development
-START-INFO-DIR-ENTRY
-* cobc: (gnucobol)Compile. The GnuCOBOL compiler.
-END-INFO-DIR-ENTRY
-
-INFO-DIR-SECTION COBOL
-START-INFO-DIR-ENTRY
-* GnuCOBOL: (gnucobol). A COBOL compiler
-END-INFO-DIR-ENTRY
-
-INFO-DIR-SECTION GnuCOBOL
-START-INFO-DIR-ENTRY
-* Overview: (gnucobol). COBOL compiler overview.
-END-INFO-DIR-ENTRY
-
-
-File: gnucobol.info, Node: Top, Next: Getting started, Up: (dir)
-
-Welcome to the GnuCOBOL 3.2 manual.
-
-* Menu:
-
-* Getting started:: Introduction to GnuCOBOL
-* Compile:: Compiling COBOL programs
-* Customize:: Customizing the compiler
-* Optimize:: Optimizing your program
-* Debug:: Debugging your program
-* Extensions:: Non-standard extensions
-* System Routines:: Additional routines
-* Appendices:: List of supported features and options,
- Compiler and Runtime Configuration,
- Documentation License
-
-
- -- The Detailed Node Listing --
-
-Getting started
-
-* Hello world!:: Hello, world!
-
-Compile
-
-* Compiler options:: Compiler options
-* Multiple sources:: Compiling multiple source files
-* C interface:: Dealing with C files
-
-Compiler options
-
-* Help options:: Help options
-* Build target:: Build target
-* Source format:: Source format
-* Warning options:: Warning options
-* Configuration options:: Configuration options
-* Listing options:: Listing options
-* Debug switches:: Debug switches
-* Miscellaneous:: Miscellaneous
-
-Multiple sources
-
-* Static linking:: Compiling into a single executable
-* Dynamic linking:: A main program and separate modules
-* Building library:: Building a shared library
-* Using library:: Using external libraries
-
-C interface
-
-* Main C program:: Writing main program in C
-* Static C to COBOL::
-* Dynamic C to COBOL::
-* Static COBOL to C::
-* Dynamic COBOL to C::
-
-Customize
-
-* Customizing compiler:: Customizing compiler
-* Customizing library:: Customizing library
-
-Optimize
-
-* Optimize options:: How to enable optimization
-* Optimize call:: Call subroutines efficiently
-* Optimize binary:: Use efficient binary representation
-
-Debug
-
-* Debug options:: Debug options
-* Debugger:: Source Level Debugger
-* Memory Dumps:: Memory Dumps
-* Core Dumps:: Core Dumps
-* Trace:: Tracing execution
-
-Extensions
-
-* SELECT:: SELECT ASSIGN TO.
-* Indexed:: Indexed file packages.
-* Extended ACCEPT:: Extended ACCEPT statement.
-* ACCEPT special:: ACCEPT special keys.
-* Extended DISPLAY:: Extended DISPLAY statement.
-* FUNCTION CONTENT-LENGTH:: Length of NUL byte terminated pointer data.
-* FUNCTION CONTENT-OF:: Content of data at pointer, by length or NUL.
-
-System Routines
-
-* CBL_GC_GETOPT GETOPT for COBOL
-* CBL_GC_HOSTED Access to C hosted variables
-* CBL_GC_NANOSLEEP Sleep for nanoseconds
-* CBL_GC_FORK Fork the current COBOL process to a new one
-* CBL_GC_WAITPID Wait for a system process to end
-
-Appendices
-
-* Appendix A Compiler 'cobc' options
-* Appendix B Reserved Words
-* Appendix C Intrinsic Functions
-* Appendix D System routines
-* Appendix E System names
-* Appendix F Exception names
-* Appendix G Compiler Configuration
-* Appendix H Module loader 'cobcrun' options
-* Appendix I Runtime configuration
-* Appendix J GNU Free Documentation License
-
-
-
-File: gnucobol.info, Node: Getting started, Next: Compile, Prev: Top, Up: Top
-
-1 Getting started
-*****************
-
-* Menu:
-
-* Hello world!:: Hello, world!
-
-
-File: gnucobol.info, Node: Hello world!, Up: Getting started
-
-1.1 Hello, world!
-=================
-
-This is a sample program that displays "Hello, world!":
-
- ---- hello.cob -------------------------
- * Sample COBOL program
- IDENTIFICATION DIVISION.
- PROGRAM-ID. hello.
- PROCEDURE DIVISION.
- DISPLAY "Hello, world!".
- STOP RUN.
- ----------------------------------------
-
-
- The compiler, 'cobc', is executed as follows:
-
- $ cobc -x hello.cob
- $ ./hello
- Hello, world!
-
-
- The executable file name ('hello' in this case) is determined by
-removing the extension from the source file name.
-
-
- You can specify the executable file name by specifying the compiler
-option '-o' as follows:
-
- $ cobc -x -o hello-world hello.cob
- $ ./hello-world
- Hello, world!
-
-
- The program can be written in a more modern style, with free format
-code, inline comments, the 'GOBACK' verb and an optional 'END-DISPLAY'
-terminator:
-
- ---- hellonew.cob ----------------
- *> Sample GnuCOBOL program
- identification division.
- program-id. hellonew.
- procedure division.
- display
- "Hello, new world!"
- end-display
- goback.
- ----------------------------------
-
- To compile free-format code, you must use the compiler option
-'-free'.
-
- $ cobc -x -free hellonew.cob
- $ ./hellonew
- Hello, new world!
-
-
-File: gnucobol.info, Node: Compile, Next: Customize, Prev: Getting started, Up: Top
-
-2 Compile
-*********
-
-This chapter describes how to compile COBOL programs using GnuCOBOL.
-
-* Menu:
-
-* Compiler options:: Compiler options
-* Multiple sources:: Compiling multiple source files
-* C interface:: Dealing with C files
-
-
-File: gnucobol.info, Node: Compiler options, Next: Multiple sources, Up: Compile
-
-2.1 Compiler options
-====================
-
-The compiler 'cobc' accepts the options described in this section. The
-compiler arguments follow the general syntax 'cobc OPTIONS FILE [FILE
-...]'. A complete list of options can be displayed by using the option
-'--help'.
-
-* Menu:
-
-* Help options:: Help options
-* Build target:: Build target
-* Source format:: Source format
-* Warning options:: Warning options
-* Configuration options:: Configuration options
-* Listing options:: Listing options
-* Debug switches:: Debug switches
-* Miscellaneous:: Miscellaneous
-
-
-File: gnucobol.info, Node: Help options, Next: Build target, Up: Compiler options
-
-2.1.1 Help options
-------------------
-
-The following switches display information about the compiler:
-
-'--help, -h'
- Display help screen (*note Appendix A::). No further actions will
- be taken.
-
-'--version, -V'
- Display compiler version, author package date and executable build
- date. No further actions will be taken.
-
-'-dumpversion'
- Display internal compiler version (plain string of numbers). No
- further actions will be taken.
-
-'--info'
- Display build information along with the default and current
- compiler configurations. No further actions will be taken except
- for further display options.
-
-'--verbose, -v'
- Verbosely display the programs invoked during compilation and
- additional diagnostics. Use multiple times to increase the
- verbosity.
-
-'--list-reserved'
- Display reserved words (*note Appendix B::). A Yes/No output shows
- if the word is supported (1), context sensitive and its aliases.
- The given options for reserved words specified for example by
- option '-std=DIALECT' will be taken into account. No further
- actions will be taken except for further display options.
-
-'--list-intrinsics'
- Display intrinsic functions (*note Appendix C::). A Y/N field
- shows if the function is implemented. No further actions will be
- taken except for further display options.
-
-'--list-system'
- Display system routines (*note Appendix D::). No further actions
- will be taken except for further display options.
-
-'--list-mnemonics'
- Display mnemonic names (*note Appendix E::). No further actions
- will be taken except for further display options.
-
-'--list-exceptions'
- Display exception names (*note Appendix F::). No further actions
- will be taken except for further display options.
-
- ---------- Footnotes ----------
-
- (1) Support may be partial or complete.
-
-
-File: gnucobol.info, Node: Build target, Next: Source format, Prev: Help options, Up: Compiler options
-
-2.1.2 Build target
-------------------
-
-The compiler 'cobc' treats files like '*.cob', '*.cbl' as COBOL source
-code, '*.c' as C source code, '*.o' as object code, '*.i' as
-preprocessed code and '*.so' as dynamic modules and knows how to handle
-such files in the generation, compilation, and linking steps.
-
- The special input name '-' takes input from 'stdin' which is assumed
-to be COBOL source, and uses a default output name of 'a.out' (or
-'a.so/c/o/i', selected as appropriate) for the build type.
-
- You may also use '-' as output name for the listing file or the
-preprocessor result, for example with 'cobc -t - prog.cob' / 'cobc -P-
-prog.cob'.
-
- By default, the compiler builds a dynamically loadable module.
-
- The following options specify the target type produced by the
-compiler:
-
-'-E'
- Preprocess only: compiler directives are executed, comment lines
- are removed and 'COPY' statements are expanded. The output is sent
- to stdout, allowing you to directly use it as input for another
- process. You can manually set an output file using '-o'.
-
-'-C'
- Translation only. COBOL source files are translated into C files.
- The output is saved in file '*.c'.
-
-'--save-temps'
- Normal compilation with additional storing the preprocessed files
- as '*.i' and the translated C files as file '*.c'.
-
-'-S'
- Compile only. Translated C files are compiled by the C compiler to
- assembler code. The output is saved in file '*.s'.
-
-'-c'
- Compile and assemble. This is equivalent to 'cc -c'. The output
- is saved in file '*.o'.
-
-'-m'
- Compile, assemble, and build a dynamically loadable module (i.e., a
- shared library). The output is saved in file '*.so'. (1) This is
- the default behaviour.
-
-'-b'
- Compile, assemble, and combine all input files into a single
- dynamically loadable module. Unless '-o' is also used, the output
- is saved using the first filename as '*.so'.
-
-'-x'
- Include the main function in the output, creating an executable
- image. The main entry point being the first program in the file.
-
- This option takes effect at the translation stage. If you give
- this option with '-C', you will see the main function at the end of
- the generated C file.
-
-'-j, -job, -j=ARGS, -job=ARGS'
- Run job after compilation. Either from executable with '-x', or
- with 'cobcrun' when compiling a module. Optional arguments ARGS,
- if given, are passed to the program or module command line.
-
-'-I DIRECTORY'
- Add DIRECTORY to copy/include search path.
-
-'-L DIRECTORY'
- Add DIRECTORY to library search path.
-
-'-l LIB'
- Link the library LIB.
-
-'-D DEFINE'
- Pass DEFINE to the COBOL compiler.
-
-'-o FILE'
- Place the output into FILE.
-
- ---------- Footnotes ----------
-
- (1) The extension varies depending on your host.
-
-
-File: gnucobol.info, Node: Source format, Next: Warning options, Prev: Build target, Up: Compiler options
-
-2.1.3 Source format
--------------------
-
-GnuCOBOL supports fixed, free, Micro Focus' Variable, X/Open Free-form,
-ICOBOL xCard and Free-form, ACUCOBOL-GT Terminal, and COBOLX source
-formats. By default, the compiler tries to autodetect the format using
-the indicator on the first line, using the fixed format for correct
-indicators and the free format for incorrect ones. This can be
-overridden either by the '>>SOURCE [FORMAT] [IS]
-{FIXED|FREE|COBOL85|VARIABLE|XOPEN|XCARD|CRT|TERMINAL|COBOLX|AUTO}'
-directive, or by one of the following options:
-
-'-free, -F, -fformat=free'
- Free format. The program-text area starts in column 1 and
- continues till the end of line (effectively 255 characters in
- GnuCOBOL).
-
-'-fixed, -fformat=fixed'
- Fixed format. Source code is divided into: columns 1-6, the
- sequence number area; column 7, the indicator area; columns 8-72,
- the program-text area; and columns 72-80 as the reference area.(1)
-
-'-fformat=cobol85'
- Fixed format with enforcements on the use of Area A.
-
-'-fformat=variable'
- Micro Focus' Variable format. Identical to the fixed format above
- except for the program-text area which extends up to column 250
- instead of 72.
-
-'-fformat=xcard'
- ICOBOL xCard format. Variable format with right margin set at
- column 255 instead of 250.
-
-'-fformat=xopen'
- X/Open Free-form format. The program-text area may start in column
- 1 unless an indicator is present, and lines may contain up to 255
- characters. Indicator for debugging lines is 'D ' (D followed by a
- space) instead of 'D' or 'd'.
-
-'-fformat=crt'
- ICOBOL Free-form format (CRT). Similar to the X/Open format above,
- with lines containing up to 320 characters and single-character
- debugging line indicators ('D' or 'd').
-
-'-fformat=terminal'
- ACUCOBOL-GT Terminal format. Similar to the CRT format above, with
- indicator for debugging lines being '\D' instead of 'D' or 'd'.
- This format is mostly compatible with VAX COBOL terminal source
- format.
-
-'-fformat=cobolx'
- COBOLX format. This format is similar to the CRT format above,
- except that the indicator area is always present in column 1; the
- program-text area starts in column 2 and extends up to the end of
- the record. Lines may contain up to 255 characters.
-
-'-fformat=auto'
- Autodetection of format. The compiler will use the first line of
- the file to detect whether the file is in fixed format (with a
- correct indicator at position 7), or in free format.
-
- Note that with source formats 'XOPEN', 'CRT', 'TERMINAL', and
-'COBOLX', missing spaces are not inserted within continued alphanumeric
-literals that are truncated before the right margin.
-
- _Area A_ denotes the source code that spans between margin A and
-margin B, and Area B spans from the latter to the end of the record.
-_Area A enforcement_ checks the contents of Area A, and reports any item
-that does not belong to the correct Area: this feature helps in
-developping COBOL programs that are portable to actual mainframe
-environments.
-
- In general, division, section, and paragraph names must start in Area
-A. In the 'DATA DIVISION', level numbers '01' and '77', must also start
-in Area A. In the 'PROCEDURE DIVISION's, statements and separator
-periods must fit within Area B. Every source format listed above may be
-subject to Area A enforcement, except 'FIXED', 'FREE', and 'XOPEN'.
-
- Note that Area A enforcement enables recovery from missing periods
-between paragraphs and sections.
-
- ---------- Footnotes ----------
-
- (1) Historically, fixed format was based on 80-character punch cards.
-
-
-File: gnucobol.info, Node: Warning options, Next: Configuration options, Prev: Source format, Up: Compiler options
-
-2.1.4 Warning options
----------------------
-
-Warnings are diagnostic messages that report constructions that are not
-inherently erroneous but that are risky or suggest there may have been
-an error.
-
- The following options do not enable specific warnings but control the
-kinds of diagnostics produced by 'cobc'.
-
-'-fsyntax-only'
- Check Check the code for syntax errors, but don’t do anything
- beyond that.
-
-'-fmax-errors=N'
- Limits the maximum number of error messages to N, at which point
- 'cobc' bails out rather than attempting to continue processing the
- source code. If N is 0, there is no limit on the number of error
- messages produced. If '-Wfatal-errors' is also specified, then
- '-Wfatal-errors' takes precedence over this option.
-
-'-w'
- Inhibit all warning messages.
-
-'-Werror'
- Make all warnings into errors.
-
-'-Werror=WARNING'
- Make the specified WARNING into an error. The specifier for a
- warning is appended; for example '-Werror=obsolete' turns the
- warnings controlled by '-Wobsolete' into errors. This switch takes
- a negative form, to be used to negate '-Werror' for specific
- warnings; for example '-Wno-error=obsolete' makes '-Wobsolete'
- warnings not be errors, even when '-Werror' is in effect.
-
- The warning message for each controllable warning includes the
- option that controls the warning. That option can then be used
- with '-Werror=' and '-Wno-error=' as described above. (Printing of
- the option in the warning message can be disabled using the
- '-fno-diagnostics-show-option' flag.)
-
- Note that specifying '-Werror=foo' automatically implies '-Wfoo'.
- However, '-Wno-error=foo' does not imply anything.
-
-'-Wfatal-errors'
-
- This option causes the compiler to abort compilation on the first
- error occurred rather than trying to keep going and printing
- further error messages.
-
-
- You can request many specific warnings with options beginning with
-'-W', for example '-Wimplicit-define' to request warnings on implicit
-declarations. Each of these specific warning options also has a
-negative form beginning '-Wno' to turn off warnings; for example,
-'-Wno-implicit-define'. This manual lists only one of the two forms,
-whichever is not the default.
-
- Some options, such as '-Wall' and '-Wextra', turn on other options,
-such as '-Wtruncate'. The combined effect of positive and negative
-forms is that more specific options have priority over less specific
-ones, independently of their position in the command-line. For options
-of the same specificity, the last one takes effect.
-
-'-Wall'
- Enable all the warnings about constructions that some users
- consider questionable, and that are easy to avoid (or modify to
- prevent the warning).
- The list of warning flags turned on by this option is shown in
- '--help'.
-
-'-Wextra, -W'
- Enable every possible warning that is not dialect specific. This
- includes more information than '-Wall' would normally provide.
- (This option used to be called '-W'. The older name is still
- supported, but the newer name is more descriptive.)
-
-'-WWARNING'
- Enable single warning WARNING.
-
-'-Wno-WARNING'
- Disable single warning WARNING.
-
-'-Warchaic'
- Warn if archaic features are used, such as continuation lines or
- the 'NEXT SENTENCE' statement.
-
-'-Wcall-params'
- Warn if non-01/77-level items are used as arguments in a 'CALL'
- statement. This is _not_ set with '-Wall'.
-
-'-Wcolumn-overflow'
- Warn if text after column 72 in FIXED format. This is _not_ set
- with '-Wall'.
-
-'-Wconstant'
- Warn inconsistent constant
-
-'-Wimplicit-define'
- Warn if implicitly defined data items are used.
-
-'-Wlinkage'
- Warn dangling 'LINKAGE' items. This is _not_ set with '-Wall'.
-
-'-Wobsolete'
- Warn if obsolete features are used.
-
-'-Wparentheses'
- Warn about any lack of parentheses around 'AND' within 'OR'.
-
-'-Wredefinition'
- Warn about incompatible redefinitions of data items.
-
-'-Wstrict-typing'
- Warn about type mismatch strictly.
-
-'-Wterminator'
- Warn about the lack of scope terminator END-XXX. This is _not_ set
- with '-Wall'.
-
-'-Wtruncate'
- Warn on possible field truncation. This is _not_ set with '-Wall'.
-
-'-Wconstant-expression'
-'-Wconstant-numlit-expression'
- Warn about expressions that always resolve to true/false and
- therefore lead to unreachable code.
-
-'-Wunreachable'
- Warn if statements are likely unreachable. This is _not_ set with
- '-Wall'.
-
-'-Wadditional'
- Enable warnings that don't have an own warning flag.
-
-
-File: gnucobol.info, Node: Configuration options, Next: Listing options, Prev: Warning options, Up: Compiler options
-
-2.1.5 Configuration options
----------------------------
-
-The compiler uses many dialect specific options. These may be set via a
-defined dialect by '-std=', a configuration file by '-conf=' or by using
-the single dialect flags directly.
-
- *Note Compiler Configuration: Appendix G, and 'config/*.conf'.
-
- Note concerning the defined dialects: The GnuCOBOL compiler tries to
-limit both the feature-set and reserved words to the specified compiler
-when the "strict" dialects are used. COBOL sources compiled with these
-dialects are therefore _likely_ to compile with the specified compiler
-and vice versa: sources that were compiled on the specified compiler
-should compile without any issues with GnuCOBOL.
-With the "non-strict" dialects GnuCOBOL will activate the complete
-feature-set where it doesn't directly conflict with the specified
-dialect, including reserved words. COBOL sources compiled with these
-dialects therefore may work only with GnuCOBOL. COBOL sources may need a
-change because of reserved words in GnuCOBOL, otherwise offending words
-WORD-1 and WORD-2 may be removed by '-fno-reserved=WORD-1,WORD-1'.
-
- The dialects COBOL-85, X/Open COBOL, COBOL 2002 and COBOL 2014 are
-always "strict".
-
-'-std=DIALECT'
- Compiler uses the given DIALECT to determine certain compiler
- features and warnings.
-
-'-std=default'
- GnuCOBOL dialect, supporting many of the COBOL 2002 and COBOL 2014
- features, many extensions found in other dialects and its own
- feature-set
-
-'-std=cobol85'
- COBOL-85 without any extensions other than the amendment Intrinsic
- Function Module (1989), source compiled with this dialect is likely
- to compile with most COBOL compilers
-
-'-std=xopen'
- X/Open COBOL (based on COBOL-85) without any vendor extensions,
- source compiled with this dialect is likely to compile with most
- COBOL compilers; will warn items that "should not be used in a
- conforming X/Open COBOL source program"
-
-'-std=cobol2002, -std=cobol2014'
- COBOL 2002 / COBOL 2014 without any vendor extensions, use
- '-Warchaic' and '-Wobsolete' if archaic/obsolete features should be
- flagged
-
-'-std=ibm-strict, -std=ibm'
- IBM compatible
-
-'-std=mvs-strict, -std=mvs'
- MVS compatible
-
-'-std=mf-strict, -std=mf'
- Micro Focus compatible
-
-'-std=bs2000-strict, -std=bs2000'
- BS2000 compatible
-
-'-std=acu-strict, -std=acu'
- ACUCOBOL-GT compatible
-
-'-std=rm-strict, -std=rm'
- RM/COBOL compatible
-
-'-std=realia-strict, -std=realia'
- CA Realia II compatible
-
-'-std=gcos-strict, -std=gcos'
- GCOS compatible
-
-'-freserved-words=DIALECT'
- Compiler uses the given DIALECT to determine the reserved words.
-
-'-conf=<file>'
- User-defined dialect configuration.
-
-'-febcdic-table=CCONV-TABLE/FILE'
- EBCDIC/ASCII translation table to use; either read from FILE, or
- one of the existing CCONV-TABLE from the configuration directory
- (see 'cobc --info') which have a .ttbl extension, for example
- '-febcdic-table=alternate'.
- See the 'default.ttbl' file for detailed information about the
- format.
-
- You can override each single configuration entry by using compiler
-configuration options on the command line.
-
- Examples:
-
-'-frelax-syntax-checks'
-'-frenames-uncommon-levels=warning'
-'-fnot-reserved=CHAIN,SCREEN'
-'-ftab-width=4'
- *Note Compiler 'cobc' options: Appendix A.
-
-
-File: gnucobol.info, Node: Listing options, Next: Debug switches, Prev: Configuration options, Up: Compiler options
-
-2.1.6 Listing options
----------------------
-
-'-t=FILE'
- Generate and place the standard print listing into 'FILE'.
-
-'-T=FILE'
- Generate and place a wide print listing into '*FILE'.
-
-'--tlines=LINES'
- Specify lines per page in print listing, default = 55. Set to zero
- for no additional page breaks.
-
-'-ftsymbols'
- Generate symbol table in listing.
-
-'-fno-theader'
- Suppress all headers from listing while keeping page breaks.
-
-'-fno-tmessages'
- Suppress warning and error summary from listing.
-
-'-fno-tsource'
- Suppress actual source from listing (for example to only produce
- the cross-reference).
-
-'-P, -PDIRECTORY, -P=FILE'
- Generate and place a preprocessed listing (old format) into
- 'FILENAME.lst', 'DIRECTORY/FILENAME.lst', 'FILE'.
-
-'-Xref'
-'-X'
- Generate cross reference in the listing.
-
- Here is an example program listing with the options '-t -ftsymbols':
-
- GnuCOBOL 3.0.0 test.cbl Mon May 14 10:23:45 2018 Page 0001
-
- LINE PG/LN A...B...........................................................
-
- 000001 IDENTIFICATION DIVISION.
- 000002 PROGRAM-ID. prog.
- 000003 ENVIRONMENT DIVISION.
- 000004 CONFIGURATION SECTION.
- 000005 DATA DIVISION.
- 000006 WORKING-STORAGE SECTION.
- 000007 COPY 'values.cpy'.
- 000001C 78 I VALUE 20.
- 000002C 78 J VALUE 5000.
- 000003C 78 M VALUE 5.
- 000008 01 SETUP-REC.
- 000009 05 FL1 PIC X(04).
- 000010 05 FL2 PIC ZZZZZ.
- 000011 05 FL3 PIC 9(04).
- 000012 05 FL4 PIC 9(08) COMP.
- 000013 05 FL5 PIC 9(04) COMP-4.
- 000014 05 FL6 PIC Z,ZZZ.99.
- 000015 05 FL7 PIC S9(05) SIGN LEADING SEPARATE.
- 000016 05 FL8 PIC X(04).
- 000017 05 FL9 REDEFINES FL8 PIC 9(04).
- 000018 05 FLA.
- 000019 10 FLB OCCURS I TIMES.
- 000020 15 FLC PIC X(02).
- 000021 10 FLD PIC X(20).
- 000022 05 FLD1 PIC X(100).
- 000023 05 FLD2 OCCURS M TO J TIMES DEPENDING ON FL5.
- 000024 10 FILLER PIC X(01).
- 000025 05 FLD3 PIC X(3).
- 000026 05 FLD4 PIC X(4).
- 000027 PROCEDURE DIVISION.
- 000028 STOP RUN.
-
- The first part of the listing lists the program text. If the program
-text is a COPY the line number reflects the COPY line number and is
-appended with a 'C'.
-
- When the wide list option '-T' is specified, the 'SEQUENCE' columns
-(for fixed-form reference-format) are included in the listing.
-
- The second part of the listing file is the listing of the Symbol
-Table:
-
- GnuCOBOL 3.0.0 test.cbl Mon May 14 10:23:45 2018 Page 0002
-
- SIZE TYPE LVL NAME PICTURE
-
- 5204 GROUP 01 SETUP-REC
- 0004 ALPHANUMERIC 05 FL1 X(04)
- 0005 ALPHANUMERIC 05 FL2 ZZZZZ
- 0004 ALPHANUMERIC 05 FL3 9(04)
- 0004 NUMERIC 05 FL4 9(08) COMP
- 0002 NUMERIC 05 FL5 9(04) COMP
- 0008 ALPHANUMERIC 05 FL6 Z,ZZZ.99
- 0006 ALPHANUMERIC 05 FL7 S9(05)
- 0004 ALPHANUMERIC 05 FL8 X(04)
- 0004 ALPHANUMERIC-R 05 FL9 9(04)
- 0060 ALPHANUMERIC 05 FLA
- 0040 ALPHANUMERIC 10 FLB OCCURS 20
- 0002 ALPHANUMERIC 15 FLC X(02)
- 0020 ALPHANUMERIC 10 FLD X(20)
- 0100 ALPHANUMERIC 05 FLD1 X(100)
- 5000 ALPHANUMERIC 05 FLD2 OCCURS 5 TO 5000
- 0001 ALPHANUMERIC 10 FILLER X(01)
- 0003 ALPHANUMERIC 05 FLD3 X(3)
- 0004 ALPHANUMERIC 05 FLD4 X(4)
-
- If the symbol redefines another variable the 'TYPE' is marked with
-'R'. If the symbol is an array the 'OCCURS' phrase is in the 'PICTURE'
-field.
-
- The last part of the listing file is the summary of warnings an error
-in the compilation group:
-
- 0 warnings in compilation group
- 2 errors in compilation group
-
-
-File: gnucobol.info, Node: Debug switches, Next: Miscellaneous, Prev: Listing options, Up: Compiler options
-
-2.1.7 Debug switches
---------------------
-
-'-g'
- Produce C debugging information in the output.
-
-'--debug, -d'
- Enable all run-time error checks.
-
-'-fmemory-check=scope'
- Enable checking of internal storage during CALL (implied by
- '--debug'.
-
-'-fec=exception-name, -fno=ec=exception-name'
- Enable/disable specified exception checks, *note Exception Names:
- Appendix F.; '--debug' implies '-fec=ALL'.
-
-'-fsource-location'
- Generate source location code (implied by '--debug', '-fdump' and
- '-fec').
-
-'-fstack-check'
- Enable 'PERFORM' stack checking (implied by '--debug' or '-g').
-
-'-ftrace'
- Generate trace code (log executed procedures, if tracing is
- enabled).
-
-'-ftraceall'
- Generate trace code (log executed procedures and statements, if
- tracing is enabled).
-
-'-fdebugging-line'
- Enable debugging lines ('D' in indicator column; '>>D' directive).
-
-'-O'
- Enable optimization of code size and execution speed. See your C
- compiler documentation, for example 'man gcc' for details.
-
-'-O2'
- Optimize even more.
-
-'-Os'
- Optimize for size. Optimizer will favour code size over execution
- speed.
-
-'-fnotrunc'
- Do not truncate binary fields according to PICTURE.
-
-
-File: gnucobol.info, Node: Miscellaneous, Prev: Debug switches, Up: Compiler options
-
-2.1.8 Miscellaneous
--------------------
-
-'-ext <extension>'
- Add default file extension.
-
-'-fintrinsics=[ALL|intrinsic function name(,name,...)]'
- Allow use of all or specific intrinsic functions without 'FUNCTION'
- keyword.
-
- Note: defining this within your source with 'CONFIGURATION SECTION.
- REPOSITORY.' is preferred.
-
-'-ffold-copy=LOWER'
- Fold 'COPY' subject to lower case (default no transformation).
-
-'-ffold-copy=UPPER'
- Fold 'COPY' subject to upper case (default no transformation).
-
-'-save-temps(=<dir>)'
- Save intermediate files (by default, in current directory).
-
-'-fimplicit-init'
- Do automatic initialization of the COBOL runtime system.
-
-
-File: gnucobol.info, Node: Multiple sources, Next: C interface, Prev: Compiler options, Up: Compile
-
-2.2 Multiple sources
-====================
-
-This section describes how to compile a program from multiple source
-files.
-
- This section also describes how to build a shared library that can be
-used by any COBOL program and how to use external libraries in COBOL
-programs.
-
-* Menu:
-
-* Static linking:: Compiling into a single executable
-* Dynamic linking:: A main program and separate modules
-* Building library:: Building a shared library
-* Using library:: Using external libraries
-
-
-File: gnucobol.info, Node: Static linking, Next: Dynamic linking, Up: Multiple sources
-
-2.2.1 Static linking
---------------------
-
-The easiest way of combining multiple files is to compile them into a
-single executable.
-
- One way is to compile all the files in one command:
-
- $ cobc -x -o prog main.cob subr1.cob subr2.cob
-
- Another way is to compile each file with the option '-c', and link
-them at the end. The top-level program must be compiled with the option
-'-x'.
-
- $ cobc -c subr1.cob
- $ cobc -c subr2.cob
- $ cobc -c -x main.cob
- $ cobc -x -o prog main.o subr1.o subr2.o
-
- You can link C routines as well using either method:
-
- $ cobc -o prog main.cob subrs.c
-
- or
- $ cobc -c subrs.c
- $ cobc -c -x main.cob
- $ cobc -x -o prog main.o subrs.o
-
- Any number of functions can be contained in a single C file.
-
- The linked programs will be called dynamically; that is, the symbol
-will be resolved at run time. For example, the following COBOL
-statement
-
- CALL "subr" USING X.
-
- will be converted into equivalent C code like this:
-
- int (*func)() = cob_resolve("subr");
- if (func != NULL)
- func (X);
-
- With the compiler option '-fstatic-call', more efficient code will be
-generated:
-
- subr(X);
-
- Please notice that this option only takes effect when the called
-program name is in a literal (like 'CALL "subr"'). With a data name
-(like 'CALL SUBR'), the program is still called dynamically.
-
-
-File: gnucobol.info, Node: Dynamic linking, Next: Building library, Prev: Static linking, Up: Multiple sources
-
-2.2.2 Dynamic linking
----------------------
-
-There are two methods to achieve this: a driver program, or compiling
-the main program and subprograms separately.
-
-2.2.2.1 Driver program
-......................
-
-Compile all programs with the option '-m':
- $ cobc -m main.cob subr.cob
- This creates the shared object files 'main.so' and 'subr.so'. (1)
-
- Before running the main program, install the module files in your
-library directory:
- $ cp subr.so /your/cobol/lib
- Set the runtime variable 'COB_LIBRARY_PATH' to your library
-directory, and run the main program:
- $ export COB_LIBRARY_PATH=/your/cobol/lib
- (_Please notice:_ You may set the variable via a runtime
-configuration file, *note Runtime Configuration: Appendix I. You may
-also set the variable to directly point to the directory where you
-compiled the sources.)
-
- Now execute your program:
- $ cobcrun main
-
-2.2.2.2 Compiling programs separately
-.....................................
-
-The main program is compiled as usual:
- $ cobc -x -o main main.cob
-
- Subprograms are compiled with the option '-m':
- $ cobc -m subr.cob
- This creates a module file 'subr.so'(2).
-
- Before running the main program, install the module files in your
-library directory:
- $ cp subr.so /your/cobol/lib
-
- Now, set the environment variable 'COB_LIBRARY_PATH' to your library
-directory, and run the main program:
- $ export COB_LIBRARY_PATH=/your/cobol/lib
- $ ./main
-
- ---------- Footnotes ----------
-
- (1) The extension used depends on your operating system.
-
- (2) The extension used depends on your operating system.
-
-
-File: gnucobol.info, Node: Building library, Next: Using library, Prev: Dynamic linking, Up: Multiple sources
-
-2.2.3 Building library
-----------------------
-
-You can build a shared library by combining multiple COBOL programs and
-even C routines:
-
- $ cobc -c subr1.cob
- $ cobc -c subr2.cob
- $ cc -c subr3.c
- $ cc -shared -o libsubrs.so subr1.o subr2.o subr3.o
-
-
-File: gnucobol.info, Node: Using library, Prev: Building library, Up: Multiple sources
-
-2.2.4 Using library
--------------------
-
-You can use a shared library by linking it with your main program.
-
- Before linking the library, install it in your system library
-directory:
- $ cp libsubrs.so /usr/lib
- or install it somewhere else and set 'LD_LIBRARY_PATH':
- $ cp libsubrs.so /your/cobol/lib
- $ export LD_LIBRARY_PATH=/your/cobol/lib
-
- Then, compile the main program, linking the library as follows:
- $ cobc -x main.cob -L/your/cobol/lib -lsubrs
-
-
-File: gnucobol.info, Node: C interface, Prev: Multiple sources, Up: Compile
-
-2.3 C interface
-===============
-
-This chapter describes how to combine C programs with COBOL programs.
-
-* Menu:
-
-* Main C program:: Writing main program in C
-* Static C to COBOL::
-* Dynamic C to COBOL::
-* Static COBOL to C::
-* Dynamic COBOL to C::
-* Interface functions for C::
-* Loading translation tables::
-
-
-File: gnucobol.info, Node: Main C program, Next: Static C to COBOL, Up: C interface
-
-2.3.1 Writing Main Program in C
--------------------------------
-
-Include 'libcob.h' in your C program and call 'cob_init' before using
-any COBOL module. Do a cleanup afterwards, either by calling
-'cob_stop_run' (if your program should terminate) or by calling
-'cob_tidy' (if your program should execute further on without any more
-COBOL calls). Calling 'cob_init', one or several GnuCOBOL modules and
-then 'cob_tidy' in this sequence can be done multiple times).
-
- #include <libcob.h>
-
- int
- main (int argc, char **argv)
- {
- /* initialize your program */
- ...
-
- /* initialize the COBOL run-time library */
- cob_init (argc, argv);
-
- /* rest of your program */
- ...
-
- /* Clean up and terminate - This does not return */
- cob_stop_run (return_status);
- }
-
- You can write 'cobc_init(0, NULL);' if you do not want to pass
-command line arguments to COBOL.
-
- The easiest option to compile and/or link your C program is by
-passing the work to 'cobc' as follows:
-
- cobc -x main.c
-
- possibly running in verbose mode to see what cobc does:
-
- cobc -x --verbose main.c # using -x -v or -xv would be also possible
-
- or with several steps:
-
- cobc -c main.c
- cobc -x main.o
-
- As an alternative you can use the 'cob-config' tool to get the
-necessary options to be passed to the C compiler / linker.
-
- cc -c ̀cob-config --cflags̀ main.c # compile only
- cc -o main main.o ̀cob-config --libs̀ # link only
-
-
-
-File: gnucobol.info, Node: Static C to COBOL, Next: Dynamic C to COBOL, Prev: Main C program, Up: C interface
-
-2.3.2 Static linking with COBOL programs
-----------------------------------------
-
-Let's call the following COBOL module from a C program:
-
- ---- say.cob ---------------------------
- IDENTIFICATION DIVISION.
- PROGRAM-ID. say.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 hello PIC X(7).
- 01 world PIC X(6).
- PROCEDURE DIVISION USING hello world.
- DISPLAY hello world.
- GOBACK.
- ----------------------------------------
-
- This program accepts two arguments, displays them, and exits.
-
- From the viewpoint of C, this is equivalent to a function having the
-following prototype:
-
- extern int say(char *hello, char *world);
-
- So, your main program will look like as follows:
-
- ---- hello.c ---------------------------
- #include <libcob.h>
-
- extern int say(char *hello, char *world);
-
- int
- main()
- {
- int ret;
- char hello[8] = "Hello, ";
- char world[7] = "world!";
-
- /* initialize the COBOL run-time library */
- cob_init(0, NULL);
-
- /* call the static module and store its return code */
- ret = say(hello, world);
-
- /* shutdown the COBOL run-time library, keep program running */
- (void)cob_tidy();
-
- return ret;
- }
- ----------------------------------------
-
- Compile and run these programs as follows:
-
- $ cobc -x hello.c say.cob
- $ ./hello
- Hello, world!
-
- or, more split and directly using the C compiler:
-
- $ cc -c `cob-config --cflags` hello.c
- $ cobc -c -static say.cob
- $ cobc -x -o hello hello.o say.o
- $ ./hello
- Hello, world!
-
- Note: The biggest benefits of static linking are that all programs
-are verified to be available in the resulting binary. Furthermore there
-is a slightly performance benefit in this type of CALL (not visible for
-"normal" programs).
-
-
-File: gnucobol.info, Node: Dynamic C to COBOL, Next: Static COBOL to C, Prev: Static C to COBOL, Up: C interface
-
-2.3.3 Dynamic linking with COBOL programs
------------------------------------------
-
-You can find a COBOL module having a specific name by using the C
-function 'cob_resolve', which takes the module name as a string and
-returns a pointer to the module function.
-
- 'cob_resolve' returns 'NULL' if there is no module. In this case,
-the function 'cob_resolve_error' returns the error message.
-
- Let's see an example:
-
- ---- hello-dynamic.c -------------------
- #include <libcob.h>
-
- static int (*say)(char *hello, char *world);
-
- int main()
- {
- int ret;
- char hello[8] = "Hello, ";
- char world[7] = "world!";
-
- /* initialize the COBOL run-time library */
- cob_init(0, NULL);
-
- /* Find the module with PROGRAM-ID "say". */
- say = cob_resolve("say");
-
- /* If there is no such module, show error and exit. */
- if(say == NULL) {
- fprintf(stderr, "%s\n", cob_resolve_error());
- exit(1);
- }
-
- /* Call the module found ... */
- ret = say(hello, world);
-
- /* ...and exit with the return code. */
- cob_stop_run(ret);
- }
- ----------------------------------------
-
- Compile and run these programs as follows:
-
- $ cobc -x -o hello hello-dynamic.c
- $ cobc -m say.cob
- $ export COB_LIBRARY_PATH=.
- $ ./hello
- Hello, world!
-
- The check of the module load as written above can be directly done in
-libcob as follows:
-
- ---- hello-dynamic2.c ------------------
- #include <libcob.h>
-
- int main()
- {
- int ret;
- char hello[8] = "Hello, ";
- char world[7] = "world!";
-
- void *cob_argv[2];
- cob_argv[0] = hello;
- cob_argv[1] = world;
-
- /* initialize the COBOL run-time library */
- cob_init(0, NULL);
-
- /* do a CALL, expecting the module to exist,
- otherwise exiting with an error. */
- ret = cob_call ("say", 2, cob_argv);
-
- /* ...and exit with the return code. */
- cob_stop_run(ret);
- }
- ----------------------------------------
-
- In any case be aware that all errors that happen within COBOL will
-exit your program, as same as a 'STOP RUN' will do.
-
- Depending on the application you possibly want to register C signal
-handlers; error and/or exit handlers in C and/or COBOL to do cleanups,
-logging or anything else.
-
- There is one way to handle all these scenarios with a call, too,
-using 'cob_call_with_exception_check' instead of 'cob_call' as follows:
-
- ---- hello-dynamic3.c ------------------
- #include <libcob.h>
-
- int main()
- {
- int ret;
- char hello[8] = "Hello, ";
- char world[7] = "world!";
-
- void *cob_argv[2];
- cob_argv[0] = hello;
- cob_argv[1] = world;
-
- /* initialize the COBOL run-time library */
- cob_init(0, NULL);
-
- /* do a CALL, catching all possible results, */
- ret = cob_call_with_exception_check ("say", 2, cob_argv);
-
- switch (ret) {
- case 0: /* program coming back */
-
- /* Clean up and terminate runtime */
- cob_runtime_hint("program exited with return code %d",
- cob_last_exit_code ());
- cob_tidy ();
- break;
-
- case 1: /* normal exit */
- cob_runtime_hint("STOP RUN with return code %d",
- cob_last_exit_code ());
- break;
-
- case -1: /* error exit */
- cob_runtime_hint("error exit with return code %d and error \"%s\"",
- cob_last_exit_code (), cob_last_runtime_error ());
- break;
-
- case -2: /* hard error exit */
- cob_runtime_hint("hard error exit with return code %d and error \"%s\"",
- cob_last_exit_code (), cob_last_runtime_error ());
- break;
-
- case -3: /* signal handler exit */
- cob_runtime_hint("signal handler exit with signal %d and error \"%s\"",
- cob_last_exit_code (), cob_last_runtime_error ());
- break;
-
- default:
- cob_runtime_hint("unexpected return from cob_call_with_exception_check,"
- " last exit code %d, last error \"%s\"",
- cob_last_exit_code (), cob_last_runtime_error ());
- break;
- }
-
- /* ...and exit with zero if no error happened */
- exit(ret != 0 && ret != 1);
- }
- ----------------------------------------
-
-
-File: gnucobol.info, Node: Static COBOL to C, Next: Dynamic COBOL to C, Prev: Dynamic C to COBOL, Up: C interface
-
-2.3.4 Static linking with C programs
-------------------------------------
-
-Let's call the following C function from COBOL:
-
- ---- say.c -----------------------------
- int say(char *hello, char *world)
- {
- int i;
- for(i = 0; i < 7; i++)
- putchar(hello[i]);
- for(i = 0; i < 6; i++)
- putchar(world[i]);
- putchar('\n');
- return 0;
- }
- ----------------------------------------
-
- This program is equivalent to the program in 'say.cob' above.
-
- Note that, unlike C, the arguments passed from COBOL programs are not
-terminated by the null character (i.e., '\0').
-
- You can call this function in the same way you call COBOL programs:
-
- ---- hello.cob -------------------------
- IDENTIFICATION DIVISION.
- PROGRAM-ID. hello.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 hello PIC X(7) VALUE "Hello, ".
- 01 world PIC X(6) VALUE "world!".
- PROCEDURE DIVISION.
- CALL "say" USING hello world.
- STOP RUN.
- ----------------------------------------
-
- Compile these programs as follows:
-
- $ cobc -x -o hello -static hello.cob say.c
- $ ./hello
- Hello, world!
-
- or separate:
-
- $ cc -c say.c
- $ cobc -c -static -x hello.cob
- $ cobc -x -o hello hello.o say.o
- $ ./hello
- Hello, world!
-
-
-File: gnucobol.info, Node: Dynamic COBOL to C, Next: Interface functions for C, Prev: Static COBOL to C, Up: C interface
-
-2.3.5 Dynamic linking with C programs
--------------------------------------
-
-You can create a dynamically-linked module from a C program by compiling
-it with cobc ...
-
- $ cobc -m say.c
- $ cobc -x hello.cob
- $ export COB_LIBRARY_PATH=.
- $ ./hello
- Hello, world!
-
- or with most C compilers by passing option '-shared' to the C
-compiler:
-
- $ cc -shared -o say.so say.c
- $ cobc -x hello.cob
- $ export COB_LIBRARY_PATH=.
- $ ./hello
- Hello, world!
-
- Mind that for COBOL to be able to load the module via CALL the name
-of the binary must either be identical to the CALL name or the binary
-containing the entry-point must have been loaded before (by a previous
-call or COB_PRE_LOAD).
-
-
-File: gnucobol.info, Node: Interface functions for C, Next: Loading translation tables, Prev: Dynamic COBOL to C, Up: C interface
-
-2.3.6 Redirecting output to a (FILE *)
---------------------------------------
-
-From a module written in C you can call 'cob_set_runtime_option' to set
-the exact '(FILE *)' which is used to write trace data to. In
-'common.h' is the following:
- enum cob_runtime_option_switch {
- COB_SET_RUNTIME_TRACE_FILE /* 'p' is FILE * */
- COB_SET_RUNTIME_DISPLAY_PRINTER_FILE /* 'p' is FILE * */
- COB_SET_RUNTIME_RESCAN_ENV /* rescan environment variables */
- COB_SET_RUNTIME_DISPLAY_PUNCH_FILE /* 'p' is FILE * */
- };
- COB_EXPIMP void cob_set_runtime_option (enum cob_runtime_option_switch opt, void *p);
-
- So from you C code you can tell the GnuCOBOL runtime to redirect
-TRACE output by:
- cob_set_runtime_option (COB_SET_RUNTIME_TRACE_FILE,
- (void*)((FILE*)myfd));
-
- You could also redirect all 'DISPLAY UPON PRINTER' output to a file
-by:
- cob_set_runtime_option (COB_SET_RUNTIME_DISPLAY_PRINTER_FILE,
- (void*)((FILE*)myfd));
-
- You could also redirect all 'DISPLAY UPON SYSPUNCH' output to a file
-by:
- cob_set_runtime_option (COB_SET_RUNTIME_DISPLAY_PUNCH_FILE,
- (void*)((FILE*)myfd));
-
- Another routine can be used to return the current value of the
-option.
- COB_EXPIMP void *
- cob_get_runtime_option (enum cob_runtime_option_switch opt);
-
-
-File: gnucobol.info, Node: Loading translation tables, Prev: Interface functions for C, Up: C interface
-
-2.3.7 Loading EBCDIC/ASCII translation tables (collating sequences)
--------------------------------------------------------------------
-
-When an EBCDIC/ASCII translation table is needed (for instance when
-calling sort functions), you can can call the 'cob_load_collation'
-function to retrieve such tables:
- COB_EXPIMP int
- cob_load_collation (const char *col_name,
- cob_u8_t *ebcdic_to_ascii,
- cob_u8_t *ascii_to_ebcdic)
-
-
-File: gnucobol.info, Node: Customize, Next: Optimize, Prev: Compile, Up: Top
-
-3 Customize
-***********
-
-* Menu:
-
-* Customizing compiler:: Customizing compiler
-* Customizing library:: Customizing library
-
-
-File: gnucobol.info, Node: Customizing compiler, Next: Customizing library, Up: Customize
-
-3.1 Customizing compiler
-========================
-
-These settings are effective at compile-time.
-
- Environment variables (default value in brackets):
-
-'COB_CC'
- C compiler ("gcc")
-'COB_CFLAGS'
- Flags passed to the C compiler ("-I$(PREFIX)/include")
-'COB_LDFLAGS'
- Flags passed to the C compiler ("")
-'COB_LIBS'
- Standard libraries linked with the program ("-L$(PREFIX)/lib
- -lcob")
-'COB_LDADD'
- Additional libraries linked with the program ("")
-
-
-File: gnucobol.info, Node: Customizing library, Prev: Customizing compiler, Up: Customize
-
-3.2 Customizing library
-=======================
-
-These settings are effective at run-time. You can set them either via
-the environment or by a runtime configuration file.
-
- To set the global runtime configuration file export
-'COB_RUNTIME_CONFIG' to point to your configuration file. To set an
-explicit runtime configuration file for a single run via 'cobcrun' you
-can use its option '-c FILE', '--config=FILE'.
-
- For displaying the current runtime settings you can use the option
-'-r', '--runtime-env' of 'cobcrun'.
-
- For a complete list of runtime variables, aliases, their default
-values and options to set them *note Runtime Configuration: Appendix I.
-
-
-File: gnucobol.info, Node: Optimize, Next: Debug, Prev: Customize, Up: Top
-
-4 Optimize
-**********
-
-* Menu:
-
-* Optimize options:: How to enable optimization
-* Optimize call:: Call subroutines efficiently
-* Optimize binary:: Use efficient binary representation
-
-
-File: gnucobol.info, Node: Optimize options, Next: Optimize call, Up: Optimize
-
-4.1 Optimize options
-====================
-
-There are five compiler options for optimization: '-O0', '-O', '-Os',
-'-O2', '-O3'. These options enable optimization at both translation
-(from COBOL to C) and compilation (C to assembly) levels.
-
- Currently, there is no difference between these optimization options
-at the translation level other than '-O0' disabling constant folding of
-expressions and disabling removement of unreachable code.
-
- The option '-O', '-Os' or '-O2' is passed to the C compiler as is and
-used for C level optimization.
-
- Additional the options '-fremove-unreachable' and
-'-fconstant-folding' may be used to adjust handling of these parts; note
-that constant-folding is a dialect specific option and that both options
-have an effect on the detail of checks done to unreachable code.
-
-
-File: gnucobol.info, Node: Optimize call, Next: Optimize binary, Prev: Optimize options, Up: Optimize
-
-4.2 Optimize call
-=================
-
-When a 'CALL' statement is executed, the called program is linked at run
-time. By specifying the compiler option '-fstatic-call', you can
-statically link the program at compile time and call it efficiently.
-(*note Static linking::)
-
-
-File: gnucobol.info, Node: Optimize binary, Prev: Optimize call, Up: Optimize
-
-4.3 Optimize binary
-===================
-
-By default, data items of usage binary or comp are stored in big-endian
-form. On those machines whose native byte order is little-endian, this
-is not quite efficient.
-
- If you prefer, you can store binary items in the native form of your
-machine. Set the config option 'binary-byteorder' to 'native' in your
-config file (*note Customize::).
-
- In addition, setting the option 'binary-size' to '2-4-8' or '1-2-4-8'
-is more efficient than others.
-
-
-File: gnucobol.info, Node: Debug, Next: Extensions, Prev: Optimize, Up: Top
-
-5 Debug
-*******
-
-* Menu:
-
-* Debug options:: Debug options
-* Debugger:: Source Level Debugger
-* Memory Dumps:: Memory Dumps
-* Core Dumps:: Core Dumps
-* Trace:: Tracing execution
-
-
-File: gnucobol.info, Node: Debug options, Next: Debugger, Up: Debug
-
-5.1 Debug options
-=================
-
-The compiler option '--debug' can be used, especially during the
-development of your programs. It enables all run-time error checking,
-such as subscript boundary checks and numeric data checks, and leads to
-display of run-time errors with source locations. Exceptions may also
-be enabled/disabled separately. *Note Debug switches: Debug switches.
-
-
-File: gnucobol.info, Node: Debugger, Next: Memory Dumps, Prev: Debug options, Up: Debug
-
-5.2 Source Level Debugger
-=========================
-
-Compiling with '-g' enables several kinds of debug information, allowing
-you to run your programs with the system debugger. This allows you to
-step through the COBOL code and inspect the call stack, but direct
-access to the COBOL variables is not available. Different GDB frontends
-exist that provide access the COBOL variables directly.
-
- Compiling with debug information also enables several tools to
-profile the code or test it, for example against memory violations.
-
-
-File: gnucobol.info, Node: Memory Dumps, Next: Core Dumps, Prev: Debugger, Up: Debug
-
-5.3 Memory Dumps
-================
-
-Memory Dumps can be enabled/disabled at runtime and will by default be
-executed in case of runtime errors or handling of different signals.
-
- They can also be requested via C interface.
-
- Only modules that are explicit enabled for dump code will output
-their data.
-
-
-File: gnucobol.info, Node: Core Dumps, Next: Trace, Prev: Memory Dumps, Up: Debug
-
-5.4 Core Dumps
-==============
-
-By default GnuCOBOL catches signals that normally may create core-dumps.
-To disable this or to even explicit raise SIGABRT on runtime errors or
-to directly generate core-dumps through libcob, see the runtime
-varialbes 'COB_CORE_ON_ERROR' and 'COB_CORE_FILENAME'. To inspecting
-the reason for the abort check the content of the variable
-'runtime_err_str' in the generated dump file. (1)
-
- ---------- Footnotes ----------
-
- (1) The usability of coredumps depends on your operating system.
-
-
-File: gnucobol.info, Node: Trace, Prev: Core Dumps, Up: Debug
-
-5.5 Tracing execution
-=====================
-
-Tracing program execution, either in general or in specific parts can be
-enabled.
-
-
-File: gnucobol.info, Node: Extensions, Next: System Routines, Prev: Debug, Up: Top
-
-6 Non-standard extensions
-*************************
-
-* Menu:
-
-* SELECT:: 'SELECT ASSIGN TO'.
-* Indexed:: Indexed file packages.
-* Extended ACCEPT:: Extended 'ACCEPT' statement.
-* ACCEPT special:: 'ACCEPT' special keys.
-* Extended DISPLAY:: Extended 'DISPLAY' statement.
-* FUNCTION CONTENT-LENGTH:: Length of NUL byte terminated pointer data.
-* FUNCTION CONTENT-OF:: Content of data at pointer, by length or NUL.
-
-
-File: gnucobol.info, Node: SELECT, Next: Indexed, Up: Extensions
-
-6.1 SELECT ASSIGN TO
-====================
-
-A file may be assigned to a literal file, a file in a variable, or a
-file in an environment variable.
-
-6.1.1 Literal file.
--------------------
-
-Assign to a literal file.
-
- Select FILE assign to "/tmp/myfile.txt".
-
-6.1.2 <variable>
-----------------
-
-Assign to a file which name is read from a variable.
-
- Select FILE assign to my-file.
-
- 01 my-file pic x(512).
-
- Move "/tmp/myfile.txt" to my-file.
- Open output <file>.
-
-6.1.3 <environment variable>
-----------------------------
-
-Assign to a file in an environment variable.
-
- export myfile=/tmp/myfile.txt
-
- Select FILE assign to external myfile.
-
-
-File: gnucobol.info, Node: Indexed, Next: Extended ACCEPT, Prev: SELECT, Up: Extensions
-
-6.2 Indexed file packages
-=========================
-
-<This section is in progress.>
-
-
-File: gnucobol.info, Node: Extended ACCEPT, Next: ACCEPT special, Prev: Indexed, Up: Extensions
-
-6.3 Extended ACCEPT statement
-=============================
-
-Extended 'ACCEPT' statements allow for full control of items accepted
-from the screen. Items accept by line and column positioning.
-
- All commands following 'WITH' are optional.
-
- ACCEPT VARIABLE-1
- LINE VARIABLE-2 | LITERAL-1 COLUMN VARIABLE-3 | LITERAL-2
- WITH
- AUTO-SKIP | AUTO
- BACKGROUND-COLOR VARIABLE-4 | LITERAL-3
- BELL | BEEP
- BLINK
- FOREGROUND-COLOR VARIABLE-5 | LITERAL-4
- LOWLIGHT | HIGHLIGHT
- PROMPT
- PROTECTED
- SIZE [IS] VARIABLE-6 | LITERAL-5
- UPDATE
- ON EXCEPTION
- EXCEPTION PROCESSING
- NOT ON EXCEPTION
- NORMAL PROCESSING
- END-ACCEPT.
-
-6.3.1 LINE
-----------
-
-The line number of VARIABLE-2 or LITERAL-1 to accept the field.
-
-6.3.2 COLUMN
-------------
-
-The column number of VARIABLE-3 or LITERAL-2 to accept the field.
-
-6.3.3 AUTO-SKIP
----------------
-
-The word 'AUTO' may be used for 'AUTO-SKIP'.
-
- With this option the 'ACCEPT' statement returns after the last
-character is typed at the end of the field. This is the same as if the
-Enter key were pressed.
-
- Without this option the cursor remains at the end of the field and
-waits for the user to press Enter.
-
- The Right-Arrow key returns from the end of the field. The
-Left-Arrow key returns from the beginning. *Note Arrow keys: ACCEPT
-special.
-
- The Alt-Right-Arrow and Alt-Left-Arrow keys never 'AUTO-SKIP'.
-
-6.3.4 BACKGROUND-COLOR
-----------------------
-
-The background color is the color used behind the characters.
-
- VARIABLE-4 or LITERAL-3 must be numeric. See file 'screenio.cpy' for
-the color assignments to VARIABLE-4 or LITERAL-3.
-
-6.3.5 BELL
-----------
-
-The word 'BEEP' may be used for 'BELL'.
-
- The system beeps when the cursor moves to accept from this field. On
-some systems, there is no sound. Some other method may indicate a beep,
-such a flashing screen or pop up window.
-
-6.3.6 BLINK
------------
-
-The field blinks while the user enters the data. This can help small
-menu selection fields to stand out.
-
-6.3.7 FOREGROUND-COLOR
-----------------------
-
-The foreground color is the color used for the characters.
-
- VARIABLE-5 or LITERAL-4 must be numeric. See file 'screenio.cpy' for
-the color assignments to VARIABLE-5 or LITERAL-4.
-
-6.3.8 LOWLIGHT
---------------
-
-The 'LOWLIGHT' and 'HIGHLIGHT' phrases vary the intensity of the field.
-
- 'LOWLIGHT' displays with lower intensity and 'HIGHLIGHT' displays
-with higher intensity. Having neither 'LOWLIGHT' nor 'HIGHLIGHT'
-displays at normal intensity.
-
- These may have different levels of intensity, if at all, depending on
-the make and model of the screens.
-
-6.3.9 PROMPT
-------------
-
-Display the field with prompt characters as the cursor moves to accept
-from this field.
-
-6.3.10 PROTECTED
-----------------
-
-'PROTECTED' is ignored.
-
-6.3.11 SIZE
------------
-
-The size of VARIABLE-1 to accept from the screen.
-
- VARIABLE-6 or LITERAL-5 must be numeric.
-
-'SIZE <greater than zero>'
-
- If VARIABLE-6 or LITERAL-5 is less than the length of VARIABLE-1
- then only the 'SIZE' number of characters accept into the field.
- VARIABLE-1 pads with spaces after 'SIZE' to the end of the field.
-
- If VARIABLE-6 or LITERAL-5 is greater than VARIABLE-1, then the
- screen pads with spaces after VARIABLE-1 to the 'SIZE' length.
-
-'SIZE ZERO'
-'<SIZE option not specified>'
-
- The VARIABLE-1 accepts to its field length.
-
-6.3.12 UPDATE
--------------
-
-The contents of variable-1 displays on the screen as the 'ACCEPT'
-begins. This allows the user to update the field without having to type
-it all again.
-
- Without this option, the 'ACCEPT' field is always blank.
-
-6.3.13 ON EXCEPTION
--------------------
-
-Check the special register cob-crt-status for the special key that was
-pressed. This includes Escape, Tab, Back-Tab, F-keys, arrows, etc...
-See screenio.cpy for the values.
-
-6.3.14 NOT ON EXCEPTION
------------------------
-
-Reset any F-key indicator because no special key was pressed.
-
-
-File: gnucobol.info, Node: ACCEPT special, Next: Extended DISPLAY, Prev: Extended ACCEPT, Up: Extensions
-
-6.4 ACCEPT special keys
-=======================
-
-Special keys are available for extended 'ACCEPT' statements.
-
- The 'COB-CRT-STATUS' values are in the screenio.cpy copy file.
-
-6.4.1 Arrow keys
-----------------
-
-The Left-Arrow key moves the cursor to the left. Without 'AUTO-SKIP'
-the cursor stops at the beginning of the field. With 'AUTO-SKIP' it
-returns with the 'COB-SCR-KEY-LEFT' value of 2009. *Note AUTO-SKIP:
-Extended ACCEPT.
-
- The Alt-Left-Arrow key is the same as Left-Arrow except that it never
-returns, even for 'AUTO-SKIP'.
-
- The Right-Arrow key moves the cursor to the right. Without
-'AUTO-SKIP' the cursor stops at the end of the field. With 'AUTO-SKIP'
-it returns with the 'COB-SCR-KEY-RIGHT' value of 2010. *Note AUTO-SKIP:
-Extended ACCEPT.
-
- The Alt-Right-Arrow key is the same as Right-Arrow except that it
-never returns, even for 'AUTO-SKIP'.
-
-6.4.2 Backspace key
--------------------
-
-The Backspace key moves the cursor, and the remainder of the text, to
-the left.
-
-6.4.3 Delete keys
------------------
-
-The Delete key deletes the cursor's character and moves the remainder of
-the text to the left. The cursor does not move.
-
- The Alt-Delete key deletes all text from the cursor to the end of the
-field.
-
-6.4.4 End key
--------------
-
-The End key moves the cursor after the last non-space character.
-Pressing the End key again moves the cursor to the end of the field.
-Repeated pressing moves the cursor back and forth.
-
-6.4.5 Home key
---------------
-
-The Home key moves the cursor to the first non-space character.
-Pressing the Home key again moves the cursor to the beginning of the
-field. Repeated pressing moves the cursor back and forth.
-
-6.4.6 Insert key
-----------------
-
-The Insert key changes the insert mode.
-
- The value of the insert mode is used in all following 'ACCEPT'
-statements while the program is running.
-
- When the insert mode is on, typed characters move the existing
-characters to the right until field is full. When it is off, typed
-characters type over existing characters.
-
- Note: The insert mode is ignored for fields with a size of 1.
-
- The insert mode can also be changed by the 'COB_INSERT_MODE' setting
-at any time, *note Runtime Configuration: Appendix I.
-
-6.4.7 Tab keys
---------------
-
-The Tab key returns from the 'ACCEPT' with the 'COB-SCR-TAB' value of
-2007.
-
- The Shift-Tab key returns with the 'COB-SCR-BACK-TAB' value of 2008.
-
-
-File: gnucobol.info, Node: Extended DISPLAY, Next: FUNCTION CONTENT-LENGTH, Prev: ACCEPT special, Up: Extensions
-
-6.5 Extended DISPLAY statement
-==============================
-
-Extended 'DISPLAY' statements allow for full control of items that
-display on the screen. Items display by line and column positioning.
-
-
- DISPLAY VARIABLE-1 | LITERAL-1 | FIGURATIVE CONSTANT
- LINE LINE COLUMN COLUMN
- WITH BELL
- BLANK LINE | SCREEN
- ERASE EOL | EOS
- SIZE [IS] VARIABLE-2 | LITERAL-2
- END-DISPLAY.
-
-
-6.5.1 BELL
-----------
-
-Ring the bell. It is optional.
-
-6.5.2 BLANK
------------
-
-Clear the whole line or screen. It is optional.
-
-'BLANK LINE'
-
- Clear the line from the beginning of the line to the end of the
- line.
-
-'BLANK SCREEN'
-
- Clear the whole screen.
-
-6.5.3 ERASE
------------
-
-Clear the line or screen from LINE and COLUMN. It is optional.
-
-'ERASE EOL'
-
- Clear the line from LINE and COLUMN to the end of the line.
-
-'ERASE EOS'
-
- Clear the screen from LINE and COLUMN to the end of the screen.
-
-6.5.4 SIZE
-----------
-
-The size of VARIABLE-1, LITERAL-1, or FIGURATIVE-CONSTANT to display
-onto the screen. It is optional.
-
-'SIZE POSITIVE-INTEGER'
-
- If 'SIZE' is less than the length of VARIABLE-1 or LITERAL-1 then
- only the 'SIZE' number of characters display.
-
- If 'SIZE' is greater than the length of VARIABLE-1 or LITERAL-1,
- then the screen pads with spaces after the field to the 'SIZE'
- length.
-
- Figurative constants display repeatedly the number of times in
- 'SIZE'. Except that 'LOW-VALUES' always positions the cursor (see
- 'SIZE' ZERO below).
-
-'SIZE ZERO'
-'<SIZE option not specified>'
-
- VARIABLE-1 or LITERAL-1 displays with the field length.
-
-6.5.5 Figurative Constants
---------------------------
-
-Certain figurative constants and values have special functions. All
-other figurative constants display as a single character.
-
-'SPACE'
- Display spaces from LINE and COLUMN to the end of the screen. This
- is the same as WITH ERASE EOS.
-
-'LOW-VALUE'
- Position the cursor to LINE and COLUMN. The next 'DISPLAY'
- statement does not need a LINE or COLUMN to display at that
- position.
-
-'ALL X"01"'
- Display spaces from LINE and COLUMN to the end of the line. This
- is the same as 'WITH ERASE EOL'.
-
-'ALL X"02"'
- Clear the whole screen. This is the same as 'WITH BLANK SCREEN'.
-
-'ALL X"07"'
- Ring the bell. This is the same as 'WITH BELL'.
-
-
-File: gnucobol.info, Node: FUNCTION CONTENT-LENGTH, Next: FUNCTION CONTENT-OF, Prev: Extended DISPLAY, Up: Extensions
-
-6.6 CONTENT-LENGTH
-==================
-
-'FUNCTION CONTENT-LENGTH' returns the length of NUL byte terminated data
-given a pointer:
-
- identification division.
- program-id. zlen.
- data division.
- working-storage section.
- 01 ptr usage pointer.
- 01 str pic x(4) value z"abc".
-
- *> Testing CONTENT-LENGTH
- procedure division.
-
- set ptr to address of str
- display content-length(ptr)
-
- goback.
- end program hosted.
-
-
-File: gnucobol.info, Node: FUNCTION CONTENT-OF, Prev: FUNCTION CONTENT-LENGTH, Up: Extensions
-
-6.7 CONTENT-OF
-==============
-
-'FUNCTION CONTENT-OF' returns an alphanumeric field given a pointer and
-optional length:
-
- Data from pointer is returned as a COBOL field either by scanning for
-a NUL byte or using the optional length. Reference modification of
-result allowed.
-
- identification division.
- program-id. contents.
- data division.
- working-storage section.
- 01 ptr usage pointer.
- 01 str pic x(4) value z"abc".
-
- *> Testing CONTENT-OF
- procedure division.
-
- set ptr to address of str
- display content-of(ptr)
- display content-of(ptr, 2)
- display content-of(ptr)(2:2)
-
- goback.
- end program hosted.
-
-
-File: gnucobol.info, Node: System Routines, Next: Appendices, Prev: Extensions, Up: Top
-
-7 System Routines
-*****************
-
-For a complete list of supported system routines, *note System routines:
-Appendix D.
-
-* Menu:
-
-* CBL_GC_GETOPT:: GETOPT for COBOL
-* CBL_GC_HOSTED:: Access to C hosted variables
-* CBL_GC_NANOSLEEP:: Sleep for nanoseconds
-* CBL_GC_FORK:: Fork the current COBOL process to a new one
-* CBL_GC_WAITPID:: Wait for a system process to end
-
-
-File: gnucobol.info, Node: CBL_GC_GETOPT, Next: CBL_GC_HOSTED, Up: System Routines
-
-7.1 CBL_GC_GETOPT
-=================
-
-'CBL_GC_GETOPT' provides the quite well-known option parser, getopt, for
-GnuCOBOL. The usage of this system routine is described by the following
-example.
-
- identification division.
- program-id. prog.
-
- data division.
- working-storage section.
- 78 shortoptions value "jkl".
-
- 01 longoptions.
- 05 optionrecord occurs 2 times.
- 10 optionname pic x(25).
- 10 has-value pic 9.
- 10 valpoint pointer value NULL.
- 10 return-value pic x(4).
-
- 01 longind pic 99.
- 01 long-only pic 9 value 1.
-
- 01 return-char pic x(4).
- 01 opt-val pic x(10).
-
- 01 counter pic 9 value 0.
-
- We first need to define the necessary fields for getopt's
-shortoptions (so), longoptions (lo), longoption index (longind),
-long-only-option (long-only) and also the fields for return values
-return-char and opt-val (arbitrary size with trimming, see return
-codes).
-
- The shortoptions are written down as an alphanumeric field (i.e., a
-string with arbitrary size) as follows:
-
- "ab:c::d"
-
- This means we want getopt to look for shortoptions named a, b, c or d
-and we demand an option value for b and we are accepting an optional one
-for c.
-
- The longoptions are defined as a table of records with oname,
-has-value, valpoint and val.
- * oname defines the name of a longoption.
- * has-value defines if an option value is demanded (has-val = 1),
- optional (has-val = 2) or not required (has-val = 0).
- * valpoint is a pointer used to specify an address to save getopt's
- return value to. The pointer is optional. If it is 'NULL', getopt
- returns a value as usual. If you use the pointer it has to point
- to a 'PIC X(4)' field.
- * The field val is a 'PIC X(4)' character which is returned if the
- longoption was recognized.
- The longoption structure is immutable! You can only vary the number
-of records.
-
- Now we have the tools to run 'CBL_GC_GETOPT' within the procedure
-division.
-
- procedure division.
- move "version" to optionname (1).
- move 0 to has-value (1).
- move "v" to return-value (1).
-
- move "verbose" to optionname (2).
- move 0 to has-value (2).
- move "V" to return-value (2).
-
- perform with test after until return-code = -1
- call 'CBL_GC_GETOPT' using
- by reference shortoptions longoptions longind
- by value long-only
- by reference return-char opt-val
- end-call
-
- display return-char end-display
- display opt-val end-display
- end-perform
- stop run.
-
-
- The example shows how we initialize all parameters and call the
-routine until 'CBL_GC_GETOPT' runs out of options and returns -1.
-
- If the option is recognized, 'return-char' contains the option
-character. Otherwise, 'return-char' will contain one of the following:
-'?'
- undefined or ambiguous option
-'1'
- non-option (only if first byte of so is '-')
-'0'
- 'valpoint != NULL' and we are writing the return value to the
- specified address
-'-1'
- no more options (or reached the first non-option if first byte of
- so is '+')
-
-The return-code of 'CBL_GC_GETOPT' is one of:
-
-'1'
- a non-option (only if first byte of so is '-')
-'0'
- 'valpoint != NULL' and we are writing the return value to the
- specified address
-'-1'
- no more options (or reach the first non-option if first byte of so
- is '+')
-'2'
- truncated option value in opt-val (because opt-val was too small)
-'3'
- regular answer from 'getopt'
-
-
-File: gnucobol.info, Node: CBL_GC_HOSTED, Next: CBL_GC_NANOSLEEP, Prev: CBL_GC_GETOPT, Up: System Routines
-
-7.2 CBL_GC_HOSTED
-=================
-
-'CBL_GC_HOSTED' provides access to the following C hosted variables:
- * 'argc' to binary-long by value
- * 'argv' to pointer to char **
- * 'stdin', 'stdout', 'stderr' to pointer
- * 'errno' giving address of errno in pointer to binary-long, use
- based for more direct access
-
- and conditional access to the following variables:
- * 'tzname' pointer to pointer to array of two char pointers
- * 'timezone' C long, will be seconds west of UTC
- * 'daylight' C int, will be 1 during daylight savings
-
- System will need to 'HAVE_TIMEZONE' defined for these to return
-anything meaningful. Attempts made when they are not available return 1
-from 'CBL_GC_HOSTED'.
-
- It returns 0 when match, 1 on failure, case matters as does length,
-'arg' won't match.
-
- The usage of this system routine is described by the following
-example.
-
- HOSTED identification division.
- program-id. hosted.
- data division.
- working-storage section.
- 01 argc usage binary-long.
- 01 argv usage pointer.
-
- 01 stdin usage pointer.
- 01 stdout usage pointer.
- 01 stderr usage pointer.
-
- 01 errno usage pointer.
- 01 err usage binary-long based.
-
- 01 domain usage float-long value 3.0.
-
- 01 tzname usage pointer.
- 01 tznames usage pointer based.
- 05 tzs usage pointer occurs 2 times.
-
- 01 timezone usage binary-long.
- 01 daylight usage binary-short.
-
-
- *> Testing CBL_GC_HOSTED
- procedure division.
- call "CBL_GC_HOSTED" using stdin "stdin"
- display "stdin : " stdin
- call "feof" using by value stdin
- display "feof stdin : " return-code
-
- call "CBL_GC_HOSTED" using stdout "stdout"
- display "stdout : " stdout
- call "fprintf" using by value stdout by content "Hello" & x"0a"
-
- call "CBL_GC_HOSTED" using stderr "stderr"
- display "stderr : " stderr
- call "fprintf" using by value stderr by content "on err" & x"0a"
-
- call "CBL_GC_HOSTED" using argc "argc"
- display "argc : " argc
-
- call "CBL_GC_HOSTED" using argv "argv"
- display "argv : " argv
-
- call "args" using by value argc argv
-
- call "CBL_GC_HOSTED" using errno "errno"
- display "&errno : " errno
- set address of err to errno
- display "errno : " err
- call "acos" using by value domain
- display "errno after acos(3.0): " err ", EDOM is 33"
-
- call "CBL_GC_HOSTED" using argc "arg"
- display "'arg' lookup : " return-code
- call "CBL_GC_HOSTED" using null "argc"
- display "null with argc : " return-code
- display "argc is still : " argc
-
-
- *> the following only returns zero if the system has HAVE_TIMEZONE set
-
- call "CBL_GC_HOSTED" using daylight "daylight "
- display "'timezone' lookup : " return-code
-
- if return-code not = 0
- display "system doesn't has timezone"
- else
-
- display "timezone is : " timezone
-
- call "CBL_GC_HOSTED" using daylight "daylight "
- display "'daylight' lookup : " return-code
- display "daylight is : " daylight
-
- set environment "TZ" to "PST8PDT"
- call static "tzset" returning omitted on exception continue end-call
-
- call "CBL_GC_HOSTED" using tzname "tzname"
- display "'tzname' lookup : " return-code
-
- *> tzs(1) will point to z"PST" and tzs(2) to z"PDT"
- if return-code equal 0 and tzname not equal null then
- set address of tznames to tzname
- if tzs(1) not equal null then
- display "tzs #1 : " tzs(1)
- end-if
- if tzs(2) not equal null then
- display "tzs #2 : " tzs(2)
- end-if
- end-if
-
- end-if
-
- goback.
- end program hosted.
-
-
-File: gnucobol.info, Node: CBL_GC_NANOSLEEP, Next: CBL_GC_FORK, Prev: CBL_GC_HOSTED, Up: System Routines
-
-7.3 CBL_GC_NANOSLEEP
-====================
-
-'CBL_GC_NANOSLEEP' allows you to pause the program for nanoseconds. The
-actual precision depends on the system.
-
- *> Waiting a half second
- call "CBL_GC_NANOSLEEP" using "500000000" end-call
-
- *> Waiting five seconds using compiler string catenation for readability
- call "CBL_GC_NANOSLEEP" using "500" & "0000000" end-call
-
-
-File: gnucobol.info, Node: CBL_GC_FORK, Next: CBL_GC_WAITPID, Prev: CBL_GC_NANOSLEEP, Up: System Routines
-
-7.4 CBL_GC_FORK
-===============
-
-'CBL_GC_FORK' allows you to fork the current COBOL process to a new one.
-The current content of the process' storage (including 'LOCAL-STORAGE')
-will be identical, any file handles get invalid in the new process,
-positions and file / record locks are only available to the original
-process.
-
- This system routine is not available on Windows (exception: GCC on
-Cygwin).
-
-Parameters
- none
-
-Returns
- PID (the child process gets '0' returned, the calling process gets
- the PID of the created children). Negative values are returned for
- system dependent error codes and -1 if the function is not
- available on the current system.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 CHILD-PID PIC S9(9) BINARY.
- 01 WAIT-STS PIC S9(9) BINARY.
- PROCEDURE DIVISION.
-
- CALL "CBL_GC_FORK" RETURNING CHILD-PID END-CALL
- EVALUATE TRUE
- WHEN CHILD-PID = ZERO
- PERFORM CHILD-CODE
- WHEN CHILD-PID > ZERO
- PERFORM PARENT-CODE
- WHEN CHILD-PID = -1
- DISPLAY 'CBL_GC_FORK is not available '
- 'on the current system!'
- END-DISPLAY
- PERFORM CHILD-CODE
- MOVE 0 TO CHILD-PID
- PERFORM PARENT-CODE
- WHEN OTHER
- MULTIPLY CHILD-PID BY -1 END-MULTIPLY
- DISPLAY 'CBL_GC_FORK returned system error: '
- CHILD-PID
- END-DISPLAY
- END-EVALUATE
-
- STOP RUN.
-
- CHILD-CODE.
- CALL "C$SLEEP" USING 1 END-CALL
- DISPLAY "Hello, I am the child"
- END-DISPLAY
- MOVE 2 TO RETURN-CODE
-
- CONTINUE.
-
- PARENT-CODE.
- DISPLAY "Hello, I am the parent"
- END-DISPLAY
- CALL "CBL_GC_WAITPID" USING CHILD-PID RETURNING WAIT-STS
- END-CALL
- MOVE 0 TO RETURN-CODE
- EVALUATE TRUE
- WHEN WAIT-STS >= 0
- DISPLAY 'Child ended with status: '
- WAIT-STS
- END-DISPLAY
- WHEN WAIT-STS = -1
- DISPLAY 'CBL_GC_WAITPID is not available '
- 'on the current system!'
- END-DISPLAY
- WHEN WAIT-STS < -1
- MULTIPLY -1 BY WAIT-STS END-MULTIPLY
- DISPLAY 'CBL_GC_WAITPID returned system error: ' WAIT-STS
- END-DISPLAY
- END-EVALUATE
-
- CONTINUE.
-
-
-File: gnucobol.info, Node: CBL_GC_WAITPID, Prev: CBL_GC_FORK, Up: System Routines
-
-7.5 CBL_GC_WAITPID
-==================
-
-'CBL_GC_WAITPID' allows you to wait until another system process ended.
-Additional you can check the process' return code.
-
- Parameters: none Returns: function-status / child-status Negative
-values are returned for system dependent error codes and -1 if the
-function is not available on the current system.
-
- CALL "CBL_GC_WAITPID" USING CHILD-PID RETURNING WAIT-STS
- END-CALL
- MOVE 0 TO RETURN-CODE
- DISPLAY 'CBL_GC_WAITPID ended with status: ' WAIT-STS
- END-DISPLAY
-
-
-File: gnucobol.info, Node: Appendices, Prev: System Routines, Up: Top
-
-* Menu:
-
-* Appendix A:: Compiler 'cobc' options
-* Appendix B:: Reserved Words
-* Appendix C:: Intrinsic Functions
-* Appendix D:: System routines
-* Appendix E:: System names
-* Appendix F:: Exception names
-* Appendix G:: Compiler Configuration
-* Appendix H:: Module loader 'cobcrun' options
-* Appendix I:: Runtime configuration
-* Appendix J:: GNU Free Documentation License
-
-
-File: gnucobol.info, Node: Appendix A, Next: Appendix B, Prev: Appendices, Up: Appendices
-
-Appendix A Compiler 'cobc' options
-**********************************
-
-The following list of options was extracted from 'cobc --help' and shows
-all available compiler options with a short description.
-
-A.1 Common Options
-==================
-
-'-h, --help'
- display this help and exit
-
-'-V, --version'
- display compiler version information and exit
-
-'-dumpversion'
- display compiler version and exit
-
-'-i, --info'
- display compiler information (build/environment) and exit
-
-'-v, --verbose'
- verbose mode, display additional information; multiple '-v' options
- increase the verbosity, the maximum is 3 as follows: (1) display
- compiler version and the commands invoked by the compiler, (2) pass
- verbose option to assembler/compiler (3) pass verbose option to
- linker
-
-'-q, --brief'
- reduced displays, commands invoked not shown
-
-'-###'
- like -v but commands not executed
-
-'-x'
- build an executable program
-
-'-m'
- build a dynamically loadable module (default)
-
-'-j [ARGS], --job[=ARGS]'
- run program after build, passing ARGS
-
-'-std=DIALECT'
- warnings/features for a specific dialect DIALECT can be one of:
- default, cobol2014, cobol2002, cobol85, xopen, ibm-strict, ibm,
- mvs-strict, mvs, mf-strict, mf, bs2000-strict, bs2000, acu-strict,
- acu, rm-strict, rm, gcos-strict, gcos; see configuration files in
- directory config
-
-'-F, --free'
- use free source format (alias for -fformat=free)
-
-'--fixed'
- use fixed source format (default; alias for
-
-'-fformat=fixed)'
-
-'-O, -O2, -O3, -Os'
- enable optimization
-
-'-O0'
- disable optimization
-
-'-g'
- enable C compiler debug and stack check
-
-'-d, --debug'
- enable all run-time error checking, equal to '-fstack-check'
- '-fec=''EC-ALL'
-
-'-fec=EXCEPTION-NAME'
- enable code generation for EXCEPTION-NAME, see -list-exceptions for
- the possible values, sets '-fsource-location'
-
-'-fno-ec=EXCEPTION-NAME'
- disable code generation for EXCEPTION-NAME
-
-'-o FILE'
- place the output into FILE
-
-'-b'
- combine all input files into a single dynamically loadable module
-
-'-E'
- preprocess only; do not compile or link
-
-'-C'
- translation only; convert COBOL to C
-
-'-S'
- compile only; output assembly file
-
-'-c'
- compile and assemble, but do not link
-
-'-T FILE'
- generate and place a wide program listing into FILE
-
-'-t FILE'
- generate and place a program listing into FILE
-
-'--tlines=LINES'
- specify lines per page in listing, default = 55
-
-'-P[=DIR OR FILE]'
- generate preprocessed program listing (.lst)
-
-'-X, --Xref'
- specify cross reference in listing
-
-'-I DIRECTORY'
- add DIRECTORY to copy/include search path
-
-'-L DIRECTORY'
- add DIRECTORY to library search path
-
-'-l LIB'
- link the library LIB
-
-'-K ENTRY'
- generate 'CALL' to ENTRY as static
-
-'-D DEFINE'
- define DEFINE for COBOL compilation
-
-'-A OPTIONS'
- add OPTIONS to the C compile phase
-
-'-Q OPTIONS'
- add OPTIONS to the C link phase
-
-'--coverage'
- instrument generated binaries for coverage
-
-'--conf=FILE'
- user-defined dialect configuration; see -std
-
-'--list-reserved'
- display reserved words
-
-'--list-intrinsics'
- display intrinsic functions
-
-'--list-mnemonics'
- display mnemonic names
-
-'--list-exceptions'
- display exception names
-
-'--list-system'
- display system routines
-
-'--save-temps[=DIR]'
- save intermediate files; default: current directory
-
-'-MT TARGET'
- set/add target file used in dependency list
-
-'-MF FILE'
- place dependency list into FILE
-
-'-ext EXTENSION'
- add file extension for resolving 'COPY'
-
-A.2 Warning options
-===================
-
-'-Wall'
- enable most warnings (all except as noted below)
-
-'-Wextra'
- like -Wall but enable some extra warning flags
-
-'-w'
- disable all warnings
-
-'-Wno-WARNING'
- disable warning enabled by default, -Wall or -Wextra
-
-'-Wadditional'
- additional warnings only raised with -Wall
-
-'-Wno-unfinished'
- do not warn if unfinished features are used; _always_ active
-
-'-Wno-pending'
- do not warn if pending features are used; _always_ active
-
-'-Wno-repository-checks'
- do not warn/check for program/function/external signature mismatch;
- _always_ active
-
-'-Wno-ignored-error'
- do not warn about errors in code parts which are unreachable and so
- normally ignored; _always_ active
-
-'-Wobsolete'
- warn if obsolete features are used
-
-'-Warchaic'
- warn if archaic features are used
-
-'-Wredefinition'
- warn about non-referenced ambiguous data items
-
-'-Wtruncate'
- warn about field truncation from constant assignments
-
-'-Wpossible-truncate'
- warn about possible field truncation; _not_ set with '-Wall'
-
-'-Woverlap'
- warn about overlapping 'MOVE' of items
-
-'-Wpossible-overlap'
- warn about 'MOVE' of items that may overlap depending on variables;
- _not_ set with '-Wall'
-
-'-Wparentheses'
- warn if parentheses are omitted around 'AND' within 'OR'
-
-'-Wstrict-typing'
- warn strictly about type mismatch, even when same size; _not_ set
- with '-Wall'
-
-'-Wtyping'
- warn about type mismatch
-
-'-Wimplicit-define'
- warn whenever data items are implicitly defined; _not_ set with
- '-Wall'
-
-'-Wno-corresponding'
- do not warn about 'CORRESPONDING' with no matching items; _always_
- active
-
-'-Winitial-value'
- warn if initial 'VALUE' clause is ignored
-
-'-Wprototypes'
- warn about missing 'FUNCTION' prototypes/definitions
-
-'-Warithmetic-osvs'
- warn if arithmetic expression precision has changed
-
-'-Wcall-params'
- warn about non 01/77 items for 'CALL' parameters; _not_ set with
- '-Wall'
-
-'-Wconstant-expression'
- warn about expressions that always resolve to true/false
-
-'-Wconstant-numlit-expression'
- warn about numeric expressions that always resolve to true/false
-
-'-Wlarger-01-redefines'
- warn about larger redefines allowed by COBOL standards
-
-'-Wcolumn-overflow'
- warn about text after program-text area, 'FIXED' format; _not_ set
- with '-Wall'
-
-'-Wterminator'
- warn about lack of scope terminator 'END-XXX'; _not_ set with
- '-Wall'
-
-'-Wlinkage'
- warn about dangling 'LINKAGE' items; _not_ set with '-Wall'
-
-'-Wunreachable'
- warn about likely unreachable statements; _not_ set with '-Wall'
-
-'-Wno-dialect'
- do not warn about dialect specific issues; _always_ active
-
-'-Wno-goto-section'
- do not warn about 'GO' 'TO' section-name; _always_ active
-
-'-Wgoto-different-section'
- warn about 'GO' 'TO' a praragraph defined in a different section
-
-'-Wsuspicious-perform-thru'
- warn if 'PERFORM' 'THRU' references procedures not in ascending
- order or multiple sections; _always_ active
-
-'-Wdangling-text'
- warn about source text after program-area; _not_ set with '-Wall'
-
-'-Wno-missing-newline'
- do not warn about missing newlines; _always_ active
-
-'-Wno-others'
- do not warn about different issues; _always_ active
-
-'-Wno-unsupported'
- do not warn if runtime does not support a feature used
-
-'-fdiagnostics-plain-output'
- make diagnostic output as plain as possible
-
-'-Werror'
- treat all warnings as errors
-
-'-Wno-error'
- don't treat warnings as errors
-
-'-Werror=WARNING'
- treat specified WARNING as error
-
-'-Wno-error=WARNING'
- don't treat specified WARNING as error
-
-A.3 Compiler options
-====================
-
-'-fsign=[ASCII|EBCDIC]'
- define display sign representation; default: machine native
-
-'-ffold-copy=[UPPER|LOWER]'
- fold 'COPY' subject to value; default: no transformation
-
-'-ffold-call=[UPPER|LOWER]'
- fold 'PROGRAM-ID', 'CALL', 'CANCEL' subject to value; default: no
- transformation
-
-'-fmax-errors=NUMBER'
- maximum number of errors to report before compilation is aborted;
- default: 128
-
-'-fintrinsics=[ALL|intrinsic function name(,name,...)]'
- intrinsics to be used without 'FUNCTION' keyword
-
-'-fdump=SCOPE'
- dump data fields on abort, SCOPE may be a combination of: 'ALL',
- 'WS', 'LS', 'RD', 'FD', 'SC', 'LO'
-
-'-fcallfh=NAME'
- specifies NAME to be used for I/O as external provided EXTFH
- interface module
-
-'-febcdic-table=CCONV-TABLE/FILE'
- 'EBCDIC/ASCII' translation table; e.g. default,
- ebcdic500_latin1...
-
-'-fdefault-colseq=[ASCII|EBCDIC|NATIVE]'
- define default collating sequence; default: 'NATIVE'
-
-'-fstack-extended'
- store origin of entrypoints and 'PERFORM'; turned on by
- -'-debug'/'-fdump'
-
-'-fno-remove-unreachable'
- disable remove of unreachable code; turned off by '-g'
-
-'-ftrace'
- generate trace code; scope: executed 'SECTION/PARAGRAPH'
-
-'-ftraceall'
- generate trace code; scope: executed 'SECTION/PARAGRAPH/STATEMENTS'
-
-'-fsyntax-only'
- syntax error checking only; don't emit any output
-
-'-fdebugging-line'
- enable debugging lines; 'D' in indicator column or floating '>>D'
-
-'-fsource-location'
- generate source location code; turned on by
- -'-debug'/'-ftraceall'/'-fec'/'-fdump'
-
-'-fimplicit-init'
- automatic initialization of the COBOL runtime system
-
-'-fno-recursive-check'
- disable check of recursive program call; effectively compiling as
- 'RECURSIVE' program
-
-'-fstack-check'
- 'PERFORM' stack checking; turned on by -'-debug'/'-g'
-
-'-fmemory-check=SCOPE'
- checks for invalid writes to internal storage, SCOPE may be one of:
- all, pointer, using, none; default: none, set to all by -'-debug'
-
-'-fsection-exit-check'
- check that code execution does not leave the scope of 'SECTION's
-
-'-fimplicit-goback-check'
- check that code execution does not end implicit at end of
- 'PROCEDURE' 'DIVISION'
-
-'-fwrite-after'
- use 'AFTER 1' for 'WRITE' of 'LINE' 'SEQUENTIAL'; default: 'BEFORE
- 1'
-
-'-fmfcomment'
- '*' in column 1 treated as comment with listing suppression;
- FIXED/COBOL85/VARIABLE format only
-
-'-facucomment'
- '$' in indicator area treated as '*', '|' treated as floating
- comment
-
-'-fno-trunc'
- allow numeric field overflow; non-ANSI behaviour
-
-'-fsingle-quote'
- use a single quote (apostrophe) for 'QUOTE'; default: double quote
-
-'-foptional-file'
- treat all files as 'OPTIONAL'; unless 'NOT' 'OPTIONAL' specified
-
-'-fstatic-call'
- output static function calls for the 'CALL' statement
-
-'-fno-gen-c-decl-static-call'
- disable generation of C function declarations for subroutines with
- static 'CALL'
-
-'-fgen-c-line-directives'
- generate source location directives in C code;; turned on by
- '-g'/-coverage
-
-'-fgen-c-labels'
- generate extra labels in C sources;; turned on by '-g'
-
-'-fno-theaders'
- suppress all headers from listing while keeping page breaks
-
-'-fno-tsource'
- suppress source from listing
-
-'-fno-tmessages'
- suppress warning and error summary from listing
-
-'-ftsymbols'
- specify symbols in listing
-
-'-ftcmd'
- specify command line in listing
-
-'-fno-ttimestamp'
- suppress timestamp in listing headers
-
-'-fttitle=TITLE'
- set listing title with '_' replaced by spaces; defaults to package
- name and version
-
-'-fno-diagnostics-show-option'
- suppress output of option that directly controls the diagnostic
-
-'-fno-diagnostics-show-caret'
- do not display source context on warning/error diagnostic
-
-'-fno-diagnostics-show-line-numbers'
- suppress display of line numbers in diagnostics
-
-A.4 Compiler dialect configuration options
-==========================================
-
-'-freserved-words=VALUE'
- use of complete/fixed reserved words
-
-'-ftab-width=1..12'
- number of spaces that are assumed for tabs
-
-'-ftext-column=72..255'
- right margin column number for fixed-form reference-format
-
-'-fpic-length=NUMBER'
- maximum number of characters allowed in the 'PICTURE'
- character-string
-
-'-fword-length=1..63'
- maximum word-length for COBOL (= programmer defined) words
-
-'-fliteral-length=NUMBER'
- maximum literal size in general
-
-'-fnumeric-literal-length=1..38'
- maximum numeric literal size
-
-'-fdefaultbyte=VALUE'
- default initialization for fields without 'VALUE', may be one of;
- character in quotes; decimal 0..255 representing a character;
- "init" to initialize to 'PICTURE/USAGE'; "none" to do no explicit
- initialization; default: "init"
-
-'-fformat=VALUE'
- default reference-format, may be one of: 'FIXED', 'FREE', COBOL85,
- 'VARIABLE', 'XOPEN', 'XCARD', 'CRT', 'TERMINAL', COBOLX
-
-'-fbinary-size=VALUE'
- binary byte size - defines the allocated bytes according to 'PIC',
- may be one of: 2-4-8, 1-2-4-8, 1-8
-
-'-fbinary-byteorder=VALUE'
- binary byte order, may be one of: native, big-endian
-
-'-fassign-clause=VALUE'
- how to interpret 'ASSIGN WORD: as ASSIGN EXTERNAL WORD or ASSIGN
- DYNAMIC WORD', may be one of: 'dynamic', 'external', 'ibm' (=
- external), 'mf' (= dynamic)
-
-'-fscreen-section-rules=VALUE'
- which compiler's rules to apply to 'SCREEN' 'SECTION' item clauses,
- may be one of: acu, gc, mf, rm, std, xopen
-
-'-fdpc-in-data=VALUE'
- whether 'DECIMAL-POINT' 'IS' 'COMMA' has effect in 'XML/JSON'
- 'GENERATE', may be one of: none, xml, json, all
-
-'-fsubscript-check=VALUE'
- checking for subscript (only done with 'EC-BOUND-SUBSCRIPT'
- active), may be one of: full, max, record
-
-'-ffilename-mapping'
- resolve file names at run time using environment variables
-
-'-fpretty-display'
- alternate formatting of numeric fields
-
-'-fbinary-truncate'
- numeric truncation according to ANSI
-
-'-fcomplex-odo'
- allow non-standard 'OCCURS' 'DEPENDING' 'ON' syntax
-
-'-fodoslide'
- adjust items following 'OCCURS' 'DEPENDING' (implies complex-odo)
-
-'-finit-justify'
- applies 'JUSTIFY' with 'VALUE' clause
-
-'-findirect-redefines'
- allow 'REDEFINES' to other than last equal level number
-
-'-frelax-syntax-checks'
- allow certain syntax variations (e.g. 'REDEFINES' position)
-
-'-fref-mod-zero-length'
- allow zero length reference-modification (only changed with
- 'EC-BOUND-REF-MOD' active)
-
-'-frelax-level-hierarchy'
- allow non-matching level numbers
-
-'-fselect-working'
- require 'ASSIGN' 'USING' items to be in 'WORKING-STORAGE'
-
-'-flocal-implies-recursive'
- 'LOCAL-STORAGE' 'SECTION' implies 'RECURSIVE' attribute
-
-'-fsticky-linkage'
- 'LINKAGE' 'SECTION' items remain allocated between invocations
-
-'-fmove-ibm'
- 'MOVE' operates as on IBM (left to right, byte by byte)
-
-'-fperform-osvs'
- exit point of any currently executing perform is recognized if
- reached
-
-'-farithmetic-osvs'
- limit precision in intermediate results to precision of final
- result (less accurate)
-
-'-fconstant-folding'
- evaluate constant expressions at compile time
-
-'-fhostsign'
- allow hexadecimal value 'F' for 'NUMERIC' test of signed 'PACKED'
- 'DECIMAL' field
-
-'-fprogram-name-redefinition'
- program names don't lead to a reserved identifier
-
-'-faccept-update'
- set 'WITH' 'UPDATE' clause as default for 'ACCEPT' dest-item,
- instead of 'WITH' 'NO' 'UPDATE'
-
-'-faccept-auto'
- set 'WITH' 'AUTO' clause as default for 'ACCEPT' dest-item, instead
- of 'WITH' 'TAB'
-
-'-fconsole-is-crt'
- assume 'CONSOLE' 'IS' 'CRT' if not set otherwise
-
-'-fno-echo-means-secure'
- 'NO-ECHO' hides input with asterisks like 'SECURE'
-
-'-fline-col-zero-default'
- assume a field 'DISPLAY' starts at 'LINE 0' 'COL 0' (i.e. at the
- cursor), not 'LINE 1' 'COL 1'
-
-'-fdisplay-special-fig-consts'
- special behaviour of 'DISPLAY' 'SPACE/ALL' 'X'01'/ALL' 'X'02'/ALL'
- 'X'07''
-
-'-fbinary-comp-1'
- 'COMP-1' is a 16-bit signed integer
-
-'-fnumeric-pointer'
- 'POINTER' is a 64-bit unsigned integer
-
-'-fmove-non-numeric-lit-to-numeric-is-zero'
- imply zero in move of non-numeric literal to numeric items
-
-'-fimplicit-assign-dynamic-var'
- implicitly define a variable if an 'ASSIGN' 'DYNAMIC' does not
- match any data item
-
-'-fdevice-mnemonics'
- specifying device by mnemonic
-
-'-fxml-parse-xmlss'
- 'XML' 'PARSE' 'XMLSS'
-
-'-fareacheck'
- check contents of Area A (when reference format supports Area A
- enforcement), enabled checks include:; division, section, paragraph
- names, level indicators ('FD', 'SD', 'RD', and 'CD'), and toplevel
- numbers (01 and 77) must start in Area A;; statements must not
- start in Area A; and; separator periods must not be within Area A
-
-'-fcomment-paragraphs=SUPPORT'
- comment paragraphs in 'IDENTIFICATION' 'DIVISION' ('AUTHOR',
- 'DATE-WRITTEN', ...)
-
-'-fcontrol-division=SUPPORT'
- 'CONTROL' 'DIVISION'
-
-'-fpartial-replace-when-literal-src=SUPPORT'
- apply partial replacing with literal source operand even when it
- replaces with spaces only;; "skip" prevents such replacements
-
-'-fmemory-size-clause=SUPPORT'
- 'MEMORY-SIZE' clause
-
-'-fmultiple-file-tape-clause=SUPPORT'
- 'MULTIPLE-FILE-TAPE' clause
-
-'-flabel-records-clause=SUPPORT'
- 'LABEL-RECORDS' clause
-
-'-fvalue-of-clause=SUPPORT'
- 'VALUE-OF' clause
-
-'-fdata-records-clause=SUPPORT'
- 'DATA-RECORDS' clause
-
-'-ftop-level-occurs-clause=SUPPORT'
- 'OCCURS' clause on top-level
-
-'-fsame-as-clause=SUPPORT'
- 'SAME' 'AS' clause
-
-'-ftype-to-clause=SUPPORT'
- 'TYPE' 'TO' clause
-
-'-fusage-type=SUPPORT'
- 'USAGE' type-name
-
-'-fsynchronized-clause=SUPPORT'
- 'SYNCHRONIZED' clause
-
-'-fsync-left-right=SUPPORT'
- 'LEFT/RIGHT' phrases in 'SYNCHRONIZED' clause
-
-'-fspecial-names-clause=SUPPORT'
- 'SPECIAL-NAMES' clause
-
-'-fgoto-statement-without-name=SUPPORT'
- 'GO' 'TO' statement without name
-
-'-fstop-literal-statement=SUPPORT'
- 'STOP'-literal statement
-
-'-fstop-identifier-statement=SUPPORT'
- 'STOP'-identifier statement
-
-'-fstop-error-statement=SUPPORT'
- 'STOP' 'ERROR' statement
-
-'-fdebugging-mode=SUPPORT'
- 'DEBUGGING' 'MODE' and debugging indicator
-
-'-fuse-for-debugging=SUPPORT'
- 'USE' 'FOR' 'DEBUGGING'
-
-'-fpadding-character-clause=SUPPORT'
- 'PADDING' 'CHARACTER' clause
-
-'-fnext-sentence-phrase=SUPPORT'
- 'NEXT' 'SENTENCE' phrase
-
-'-flisting-statements=SUPPORT'
- listing-directive statements 'EJECT', 'SKIP1', 'SKIP2', 'SKIP3'
-
-'-ftitle-statement=SUPPORT'
- listing-directive statement 'TITLE'
-
-'-fentry-statement=SUPPORT'
- 'ENTRY' statement
-
-'-fmove-noninteger-to-alphanumeric=SUPPORT'
- move noninteger to alphanumeric
-
-'-fmove-figurative-constant-to-numeric=SUPPORT'
- move figurative constants to numeric
-
-'-fmove-figurative-space-to-numeric=SUPPORT'
- move figurative constant 'SPACE' to numeric
-
-'-fmove-figurative-quote-to-numeric=SUPPORT'
- move figurative constant 'QUOTE' to numeric
-
-'-fodo-without-to=SUPPORT'
- 'OCCURS' 'DEPENDING' 'ON' without to
-
-'-fsection-segments=SUPPORT'
- section segments
-
-'-falter-statement=SUPPORT'
- 'ALTER' statement
-
-'-fcall-overflow=SUPPORT'
- 'OVERFLOW' clause for 'CALL'
-
-'-fnumeric-boolean=SUPPORT'
- boolean literals ('B'1010'')
-
-'-fhexadecimal-boolean=SUPPORT'
- hexadecimal-boolean literals ('BX'A'')
-
-'-fnational-literals=SUPPORT'
- national literals ('N'UTF-16 STRING'')
-
-'-fhexadecimal-national-literals=SUPPORT'
- hexadecimal-national literals ('NX'265E'')
-
-'-fnational-character-literals=SUPPORT'
- non-standard national literals ('NC'UTF-16 STRING'')
-
-'-fhp-octal-literals=SUPPORT'
- 'HP' COBOL octal literals (%377)
-
-'-facu-literals=SUPPORT'
- ACUCOBOL-GT literals ('#B' '#O' '#H' '#X')
-
-'-febcdic-symbolic-characters'
- 'EBCDIC' symbolic characters in literals (" "135,151,151"bar"195,
- 194"Z" for " foobar'BAZ'")
-
-'-fword-continuation=SUPPORT'
- continuation of COBOL words
-
-'-fnot-exception-before-exception=SUPPORT'
- 'NOT' 'ON' 'EXCEPTION' before 'ON' 'EXCEPTION'
-
-'-faccept-display-extensions=SUPPORT'
- extensions to 'ACCEPT' and 'DISPLAY'
-
-'-frenames-uncommon-levels=SUPPORT'
- 'RENAMES' of 01-, 66- and 77-level items
-
-'-flarger-redefines=SUPPORT'
- allow larger 'REDEFINES' items
-
-'-fsymbolic-constant=SUPPORT'
- constants defined in 'SPECIAL-NAMES'
-
-'-fconstant-78=SUPPORT'
- constant with level 78 item (note: has left to right precedence in
- expressions)
-
-'-fconstant-01=SUPPORT'
- constant with level 01 'CONSTANT' 'AS/FROM' item
-
-'-fperform-varying-without-by=SUPPORT'
- 'PERFORM' 'VARYING' without 'BY' phrase (implies 'BY 1')
-
-'-freference-out-of-declaratives=SUPPORT'
- references to sections not in 'DECLARATIVES' from within
- 'DECLARATIVES'
-
-'-fprogram-prototypes=SUPPORT'
- 'CALL/CANCEL' with program-prototype-name
-
-'-fcall-convention-mnemonic=SUPPORT'
- specifying call-convention by mnemonic
-
-'-fcall-convention-linkage=SUPPORT'
- specifying call-convention by 'WITH' ... 'LINKAGE'
-
-'-fusing-optional=SUPPORT'
- support for 'PROCEDURE' 'DIVISION' 'USING' 'OPTIONAL'
-
-'-fnumeric-value-for-edited-item=SUPPORT'
- numeric literals in 'VALUE' clause of numeric-edited items
-
-'-fincorrect-conf-sec-order=SUPPORT'
- incorrect order of 'CONFIGURATION' 'SECTION' paragraphs
-
-'-fdefine-constant-directive=SUPPORT'
- allow >> 'DEFINE' 'CONSTANT' var 'AS' literal
-
-'-ffree-redefines-position=SUPPORT'
- 'REDEFINES' clause not following entry-name in definition
-
-'-frecords-mismatch-record-clause=SUPPORT'
- record sizes does not match 'RECORD' clause
-
-'-frecord-delimiter=SUPPORT'
- 'RECORD' 'DELIMITER' clause
-
-'-fsequential-delimiters=SUPPORT'
- 'BINARY-SEQUENTIAL' and 'LINE-SEQUENTIAL' phrases in 'RECORD'
- 'DELIMITER'
-
-'-frecord-delim-with-fixed-recs=SUPPORT'
- 'RECORD' 'DELIMITER' clause on file with fixed-length records
-
-'-fmissing-statement=SUPPORT'
- missing statement (e.g. empty 'IF' / 'PERFORM')
-
-'-fmissing-period=SUPPORT'
- missing period in 'PROCEDURE' 'DIVISION' (when reference format
- supports Area A enforcement)
-
-'-fzero-length-literals=SUPPORT'
- zero-length literals, e.g. " and ""
-
-'-fxml-generate-extra-phrases=SUPPORT'
- 'XML' 'GENERATE''s phrases other than 'COUNT' 'IN'
-
-'-fcontinue-after=SUPPORT'
- 'AFTER' phrase in 'CONTINUE' statement
-
-'-fgoto-entry=SUPPORT'
- 'ENTRY' 'FOR' 'GO' 'TO' and 'GO' 'TO' 'ENTRY' statements
-
-'-fassign-variable=SUPPORT'
- 'ASSIGN' '[TO]' variable in 'SELECT'
-
-'-fassign-using-variable=SUPPORT'
- 'ASSIGN' 'USING/VARYING' variable in 'SELECT'
-
-'-fassign-ext-dyn=SUPPORT'
- 'ASSIGN' 'EXTERNAL/DYNAMIC' in 'SELECT'
-
-'-fassign-disk-from=SUPPORT'
- 'ASSIGN' 'DISK' 'FROM' variable in 'SELECT'
-
-'-fvsam-status=SUPPORT'
- 'VSAM' status in 'FILE' 'STATUS'
-
-'-fself-call-recursive=SUPPORT'
- 'CALL' to own 'PROGRAM-ID' implies 'RECURSIVE' attribute
-
-'-frecord-contains-depending-clause=SUPPORT'
- 'DEPENDING' clause in 'RECORD' 'CONTAINS'
-
-'-fpicture-l=SUPPORT'
- 'PICTURE' string with 'L' character where SUPPORT is one of: 'ok,
- warning, archaic, obsolete, skip, ignore, error, unconformable'
-
-'-fnot-reserved=WORD'
- WORD to be taken out of the reserved words list
-
-'-freserved=WORD'
- WORD to be added to reserved words list
-
-'-freserved=WORD:ALIAS'
- WORD to be added to reserved words list as ALIAS
-
-'-fnot-register=WORD'
- special register to disable
-
-'-fregister=WORD or WORD:DEFINITION, where definition uses backslash esca'
- special register to enable
-
-
-File: gnucobol.info, Node: Appendix B, Next: Appendix C, Prev: Appendix A, Up: Appendices
-
-Appendix B Reserved Words
-*************************
-
-The following list of reserved words was extracted from 'cobc
---list-reserved' and shows the reserved words, an implementation
-
- *Please notice:* This list is highly specific to the option
-'-std=DIALECT' and reserved word options ('-freserved=WORD',
-'-fno-reserved=WORD') in effect. You can get the list for a given
-DIALECT by calling 'cobc -std=DIALECT --list-reserved'.
-
-B.1 Common reserved words
-=========================
-
-Reserved word Implemented Aliases
----------------------------------------------------------------------------
-'3-D' Yes (C/S)
-'ABSENT' Yes
-'ACCEPT' Yes
-'ACCESS' Yes
-'ACTION' Yes (C/S)
-'ACTIVATING' No (C/S)
-'ACTIVE-CLASS' Yes
-'ACTIVE-X' Yes (C/S)
-'ACTUAL' Yes (C/S)
-'ADD' Yes
-'ADDRESS' Yes
-'ADJUSTABLE-COLUMNS' Yes (C/S)
-'ADVANCING' Yes
-'AFTER' Yes
-'ALIGNED' Yes
-'ALIGNMENT' Yes (C/S)
-'ALL' Yes
-'ALLOCATE' Yes
-'ALLOWING' Yes (C/S)
-'ALPHABET' Yes
-'ALPHABETIC' Yes
-'ALPHABETIC-LOWER' Yes
-'ALPHABETIC-UPPER' Yes
-'ALPHANUMERIC' Yes
-'ALPHANUMERIC-EDITED' Yes
-'ALSO' Yes
-'ALTER' Yes
-'ALTERNATE' Yes
-'AND' Yes
-'ANUM' No (C/S)
-'ANY' Yes
-'ANYCASE' No
-'APPLY' Yes (C/S)
-'ARE' Yes
-'AREA' Yes 'AREAS'
-'AREAS' Yes 'AREA'
-'ARGUMENT-NUMBER' Yes
-'ARGUMENT-VALUE' Yes
-'ARITHMETIC' Yes (C/S)
-'AS' Yes
-'ASCENDING' Yes
-'ASCII' Yes (C/S)
-'ASSIGN' Yes
-'AT' Yes
-'ATTRIBUTE' Yes (C/S)
-'ATTRIBUTES' Yes (C/S)
-'AUTHOR' Yes (C/S)
-'AUTO' Yes (C/S) 'AUTO-SKIP, AUTOTERMINATE'
-'AUTO-DECIMAL' Yes (C/S)
-'AUTO-SKIP' Yes 'AUTO, AUTOTERMINATE'
-'AUTO-SPIN' Yes (C/S)
-'AUTOMATIC' Yes
-'AUTOTERMINATE' Yes 'AUTO, AUTO-SKIP'
-'AWAY-FROM-ZERO' Yes (C/S)
-'B-AND' Yes
-'B-NOT' Yes
-'B-OR' Yes
-'B-SHIFT-L' Yes
-'B-SHIFT-LC' Yes
-'B-SHIFT-R' Yes
-'B-SHIFT-RC' Yes
-'B-XOR' Yes
-'BACKGROUND-COLOR' Yes (C/S) 'BACKGROUND-COLOUR'
-'BACKGROUND-COLOUR' Yes 'BACKGROUND-COLOR'
-'BACKGROUND-HIGH' Yes
-'BACKGROUND-LOW' Yes
-'BACKGROUND-STANDARD' Yes
-'BACKWARD' Yes (C/S)
-'BAR' Yes (C/S)
-'BASED' Yes
-'BEEP' Yes 'BELL'
-'BEFORE' Yes
-'BELL' Yes (C/S) 'BEEP'
-'BINARY' Yes
-'BINARY-C-LONG' Yes
-'BINARY-CHAR' Yes
-'BINARY-DOUBLE' Yes 'BINARY-LONG-LONG'
-'BINARY-INT' Yes 'BINARY-LONG'
-'BINARY-LONG' Yes 'BINARY-INT'
-'BINARY-LONG-LONG' Yes 'BINARY-DOUBLE'
-'BINARY-SEQUENTIAL' Yes (C/S)
-'BINARY-SHORT' Yes
-'BIT' Yes
-'BITMAP' Yes (C/S)
-'BITMAP-END' Yes (C/S)
-'BITMAP-HANDLE' Yes (C/S)
-'BITMAP-NUMBER' Yes (C/S)
-'BITMAP-START' Yes (C/S)
-'BITMAP-TIMER' Yes (C/S)
-'BITMAP-TRAILING' Yes (C/S)
-'BITMAP-TRANSPARENT-COLOR' Yes (C/S)
-'BITMAP-WIDTH' Yes (C/S)
-'BLANK' Yes
-'BLINK' Yes (C/S)
-'BLOCK' Yes
-'BOOLEAN' Yes
-'BOTTOM' Yes
-'BOX' Yes (C/S)
-'BOXED' Yes (C/S)
-'BULK-ADDITION' Yes (C/S)
-'BUSY' Yes (C/S)
-'BUTTONS' Yes (C/S)
-'BY' Yes
-'BYTE' No (C/S)
-'BYTE-LENGTH' Yes (C/S)
-'BYTES' No
-'C' Yes (C/S)
-'CALENDAR-FONT' Yes (C/S)
-'CALL' Yes
-'CANCEL' Yes
-'CANCEL-BUTTON' Yes (C/S)
-'CAPACITY' Yes (C/S)
-'CARD-PUNCH' Yes (C/S)
-'CARD-READER' Yes (C/S)
-'CASSETTE' Yes (C/S)
-'CCOL' Yes (C/S)
-'CD' Yes
-'CELL' Yes (C/S) 'CELLS'
-'CELL-COLOR' Yes (C/S)
-'CELL-DATA' Yes (C/S)
-'CELL-FONT' Yes (C/S)
-'CELL-PROTECTION' Yes (C/S)
-'CELLS' Yes 'CELL'
-'CENTER' Yes (C/S)
-'CENTERED' Yes (C/S)
-'CENTERED-HEADINGS' Yes (C/S)
-'CENTURY-DATE' Yes (C/S)
-'CF' Yes
-'CH' Yes
-'CHAIN' No
-'CHAINING' Yes
-'CHANGED' Yes (C/S)
-'CHARACTER' Yes
-'CHARACTERS' Yes
-'CHECK-BOX' Yes (C/S)
-'CLASS' Yes
-'CLASS-ID' No
-'CLASSIFICATION' Yes (C/S)
-'CLEAR-SELECTION' Yes (C/S)
-'CLINE' Yes (C/S)
-'CLINES' Yes (C/S)
-'CLOSE' Yes
-'COBOL' Yes (C/S)
-'CODE' Yes
-'CODE-SET' Yes
-'COL' Yes
-'COLLATING' Yes
-'COLOR' Yes
-'COLORS' Yes (C/S) 'COLOURS'
-'COLOURS' Yes 'COLORS'
-'COLS' Yes
-'COLUMN' Yes
-'COLUMN-COLOR' Yes (C/S)
-'COLUMN-DIVIDERS' Yes (C/S)
-'COLUMN-FONT' Yes (C/S)
-'COLUMN-HEADINGS' Yes (C/S)
-'COLUMN-PROTECTION' Yes (C/S)
-'COLUMNS' Yes
-'COMBO-BOX' Yes (C/S)
-'COMMA' Yes
-'COMMAND-LINE' Yes
-'COMMIT' Yes
-'COMMON' Yes
-'COMMUNICATION' Yes
-'COMP' Yes 'COMPUTATIONAL'
-'COMP-0' Yes 'COMPUTATIONAL-0'
-'COMP-1' Yes 'COMPUTATIONAL-1'
-'COMP-10' Yes 'COMP-15, DOUBLE,
- FLOAT-LONG'
-'COMP-15' Yes 'COMP-10, DOUBLE,
- FLOAT-LONG'
-'COMP-2' Yes 'COMPUTATIONAL-2'
-'COMP-3' Yes 'COMPUTATIONAL-3'
-'COMP-4' Yes 'COMPUTATIONAL-4'
-'COMP-5' Yes 'COMPUTATIONAL-5'
-'COMP-6' Yes 'COMPUTATIONAL-6'
-'COMP-9' Yes 'FLOAT, FLOAT-SHORT'
-'COMP-N' Yes 'COMPUTATIONAL-N'
-'COMP-X' Yes 'COMPUTATIONAL-X'
-'COMPUTATIONAL' Yes 'COMP'
-'COMPUTATIONAL-0' Yes 'COMP-0'
-'COMPUTATIONAL-1' Yes 'COMP-1'
-'COMPUTATIONAL-2' Yes 'COMP-2'
-'COMPUTATIONAL-3' Yes 'COMP-3'
-'COMPUTATIONAL-4' Yes 'COMP-4'
-'COMPUTATIONAL-5' Yes 'COMP-5'
-'COMPUTATIONAL-6' Yes 'COMP-6'
-'COMPUTATIONAL-N' Yes 'COMP-N'
-'COMPUTATIONAL-X' Yes 'COMP-X'
-'COMPUTE' Yes
-'CONDITION' Yes
-'CONFIGURATION' Yes
-'CONSTANT' Yes
-'CONTAINS' Yes
-'CONTENT' Yes
-'CONTINUE' Yes
-'CONTROL' Yes
-'CONTROLS' Yes
-'CONVERSION' Yes (C/S)
-'CONVERTING' Yes
-'COPY' Yes
-'COPY-SELECTION' Yes (C/S)
-'CORE-INDEX' Yes (C/S)
-'CORR' Yes 'CORRESPONDING'
-'CORRESPONDING' Yes 'CORR'
-'COUNT' Yes
-'CRT' Yes
-'CRT-UNDER' Yes
-'CSIZE' Yes (C/S)
-'CURRENCY' Yes
-'CURRENT' No (C/S)
-'CURSOR' Yes
-'CURSOR-COL' Yes (C/S)
-'CURSOR-COLOR' Yes (C/S)
-'CURSOR-FRAME-WIDTH' Yes (C/S)
-'CURSOR-ROW' Yes (C/S)
-'CURSOR-X' Yes (C/S)
-'CURSOR-Y' Yes (C/S)
-'CUSTOM-PRINT-TEMPLATE' Yes (C/S)
-'CYCLE' Yes (C/S)
-'CYL-INDEX' Yes (C/S)
-'CYL-OVERFLOW' Yes (C/S)
-'DASHED' Yes (C/S)
-'DATA' Yes
-'DATA-COLUMNS' Yes (C/S)
-'DATA-POINTER' Yes
-'DATA-TYPES' Yes (C/S)
-'DATE' Yes
-'DATE-COMPILED' Yes (C/S)
-'DATE-ENTRY' Yes (C/S)
-'DATE-MODIFIED' Yes (C/S)
-'DATE-WRITTEN' Yes (C/S)
-'DAY' Yes
-'DAY-OF-WEEK' Yes
-'DE' Yes
-'DEBUGGING' Yes
-'DECIMAL-POINT' Yes
-'DECLARATIVES' Yes
-'DEFAULT' Yes
-'DEFAULT-BUTTON' Yes (C/S)
-'DEFAULT-FONT' Yes
-'DELETE' Yes
-'DELIMITED' Yes
-'DELIMITER' Yes
-'DEPENDING' Yes
-'DESCENDING' Yes
-'DESTINATION' Yes
-'DESTROY' Yes
-'DETAIL' Yes
-'DISABLE' Yes
-'DISC' Yes (C/S)
-'DISK' Yes (C/S)
-'DISP' Yes (C/S)
-'DISPLAY' Yes
-'DISPLAY-1' Yes
-'DISPLAY-COLUMNS' Yes (C/S)
-'DISPLAY-FORMAT' Yes (C/S)
-'DIVIDE' Yes
-'DIVIDER-COLOR' Yes (C/S)
-'DIVIDERS' Yes (C/S)
-'DIVISION' Yes
-'DOTDASH' Yes (C/S)
-'DOTTED' Yes (C/S)
-'DOUBLE' Yes 'COMP-10, COMP-15,
- FLOAT-LONG'
-'DOWN' Yes
-'DRAG-COLOR' Yes (C/S)
-'DROP-DOWN' Yes (C/S)
-'DROP-LIST' Yes (C/S)
-'DUPLICATES' Yes
-'DYNAMIC' Yes
-'EBCDIC' Yes (C/S)
-'EC' Yes
-'ECHO' Yes
-'EDITING' No
-'EGI' Yes
-'ELEMENT' Yes (C/S)
-'ELSE' Yes
-'EMI' Yes
-'EMPTY-CHECK' Yes 'REQUIRED'
-'ENABLE' Yes
-'ENCODING' Yes (C/S)
-'ENCRYPTION' Yes (C/S)
-'END' Yes
-'END-ACCEPT' Yes
-'END-ADD' Yes
-'END-CALL' Yes
-'END-CHAIN' No
-'END-COLOR' Yes (C/S)
-'END-COMPUTE' Yes
-'END-DELETE' Yes
-'END-DISPLAY' Yes
-'END-DIVIDE' Yes
-'END-EVALUATE' Yes
-'END-IF' Yes
-'END-JSON' Yes
-'END-MODIFY' Yes (C/S)
-'END-MULTIPLY' Yes
-'END-OF-PAGE' Yes 'EOP'
-'END-PERFORM' Yes
-'END-READ' Yes
-'END-RECEIVE' Yes
-'END-RETURN' Yes
-'END-REWRITE' Yes
-'END-SEARCH' Yes
-'END-SEND' Yes
-'END-START' Yes
-'END-STRING' Yes
-'END-SUBTRACT' Yes
-'END-UNSTRING' Yes
-'END-WRITE' Yes
-'END-XML' Yes
-'ENGRAVED' Yes (C/S)
-'ENSURE-VISIBLE' Yes (C/S)
-'ENTRY' Yes
-'ENTRY-CONVENTION' Yes (C/S)
-'ENTRY-FIELD' Yes (C/S)
-'ENTRY-REASON' Yes (C/S)
-'ENVIRONMENT' Yes
-'ENVIRONMENT-NAME' Yes
-'ENVIRONMENT-VALUE' Yes
-'EO' No
-'EOL' Yes (C/S)
-'EOP' Yes 'END-OF-PAGE'
-'EOS' Yes (C/S)
-'EQUAL' Yes 'EQUALS'
-'EQUALS' Yes 'EQUAL'
-'ERASE' Yes (C/S)
-'ERROR' Yes
-'ESCAPE' Yes
-'ESCAPE-BUTTON' Yes (C/S)
-'ESI' Yes
-'EVALUATE' Yes
-'EVENT' Yes
-'EVENT-LIST' Yes (C/S)
-'EVERY' Yes (C/S)
-'EXCEPTION' Yes
-'EXCEPTION-OBJECT' No
-'EXCEPTION-VALUE' Yes (C/S)
-'EXCLUSIVE' Yes
-'EXCLUSIVE-OR' No
-'EXHIBIT' Yes
-'EXIT' Yes
-'EXPAND' Yes (C/S)
-'EXPANDS' No (C/S)
-'EXTEND' Yes
-'EXTENDED-SEARCH' Yes (C/S)
-'EXTERN' Yes (C/S)
-'EXTERNAL' Yes
-'EXTERNAL-FORM' Yes
-'F' Yes (C/S)
-'FACTORY' Yes
-'FALSE' Yes
-'FD' Yes
-'FH--FCD' Yes (C/S)
-'FH--KEYDEF' Yes (C/S)
-'FILE' Yes
-'FILE-CONTROL' Yes
-'FILE-ID' Yes
-'FILE-LIMIT' Yes (C/S)
-'FILE-LIMITS' Yes (C/S)
-'FILE-NAME' Yes (C/S)
-'FILE-POS' Yes (C/S)
-'FILL-COLOR' Yes (C/S)
-'FILL-COLOR2' Yes (C/S)
-'FILL-PERCENT' Yes (C/S)
-'FILLER' Yes
-'FINAL' Yes
-'FINALLY' No
-'FINISH-REASON' Yes (C/S)
-'FIRST' Yes
-'FIXED' Yes
-'FIXED-FONT' Yes
-'FIXED-WIDTH' Yes (C/S)
-'FLAT' Yes (C/S)
-'FLAT-BUTTONS' Yes (C/S)
-'FLOAT' Yes 'COMP-9, FLOAT-SHORT'
-'FLOAT-BINARY-128' No
-'FLOAT-BINARY-32' No
-'FLOAT-BINARY-64' No
-'FLOAT-DECIMAL-16' Yes
-'FLOAT-DECIMAL-34' Yes
-'FLOAT-EXTENDED' Yes
-'FLOAT-INFINITY' No
-'FLOAT-LONG' Yes 'COMP-10, COMP-15, DOUBLE'
-'FLOAT-NOT-A-NUMBER' No (C/S)
-'FLOAT-SHORT' Yes 'COMP-9, FLOAT'
-'FLOATING' Yes
-'FONT' Yes
-'FOOTING' Yes
-'FOR' Yes
-'FOREGROUND-COLOR' Yes (C/S) 'FOREGROUND-COLOUR'
-'FOREGROUND-COLOUR' Yes 'FOREGROUND-COLOR'
-'FOREVER' Yes (C/S)
-'FORMAT' Yes
-'FRAME' Yes (C/S)
-'FRAMED' Yes (C/S)
-'FREE' Yes
-'FROM' Yes
-'FULL' Yes (C/S) 'LENGTH-CHECK'
-'FULL-HEIGHT' Yes (C/S)
-'FUNCTION' Yes
-'FUNCTION-ID' Yes
-'FUNCTION-POINTER' Yes
-'GENERATE' Yes
-'GET' No
-'GIVING' Yes
-'GLOBAL' Yes
-'GO' Yes
-'GO-BACK' Yes (C/S)
-'GO-FORWARD' Yes (C/S)
-'GO-HOME' Yes (C/S)
-'GO-SEARCH' Yes (C/S)
-'GOBACK' Yes
-'GRAPHICAL' Yes (C/S)
-'GREATER' Yes
-'GRID' Yes (C/S)
-'GROUP' Yes
-'GROUP-USAGE' No
-'GROUP-VALUE' Yes (C/S)
-'HANDLE' Yes
-'HAS-CHILDREN' Yes (C/S)
-'HEADING' Yes
-'HEADING-COLOR' Yes (C/S)
-'HEADING-DIVIDER-COLOR' Yes (C/S)
-'HEADING-FONT' Yes (C/S)
-'HEAVY' Yes (C/S)
-'HEIGHT-IN-CELLS' Yes (C/S)
-'HEX' No (C/S)
-'HIDDEN-DATA' Yes (C/S)
-'HIGH-COLOR' Yes (C/S)
-'HIGH-VALUE' Yes 'HIGH-VALUES'
-'HIGH-VALUES' Yes 'HIGH-VALUE'
-'HIGHLIGHT' Yes (C/S)
-'HOT-TRACK' Yes (C/S)
-'HSCROLL' Yes (C/S)
-'HSCROLL-POS' Yes (C/S)
-'I-O' Yes
-'I-O-CONTROL' Yes
-'ICON' Yes (C/S)
-'ID' Yes
-'IDENTIFICATION' Yes
-'IDENTIFIED' Yes
-'IF' Yes
-'IGNORE' Yes
-'IGNORING' Yes (C/S)
-'IMPLEMENTS' No (C/S)
-'IN' Yes
-'INDEPENDENT' Yes (C/S)
-'INDEX' Yes
-'INDEXED' Yes
-'INDICATE' Yes
-'INHERITS' No
-'INITIAL' Yes
-'INITIALISE' Yes 'INITIALIZE'
-'INITIALISED' Yes 'INITIALIZED'
-'INITIALIZE' Yes 'INITIALISE'
-'INITIALIZED' Yes (C/S) 'INITIALISED'
-'INITIATE' Yes
-'INPUT' Yes
-'INPUT-OUTPUT' Yes
-'INQUIRE' Yes
-'INSERT-ROWS' Yes (C/S)
-'INSERTION-INDEX' Yes (C/S)
-'INSPECT' Yes
-'INSTALLATION' Yes (C/S)
-'INTERFACE' No
-'INTERFACE-ID' No
-'INTERMEDIATE' Yes (C/S)
-'INTO' Yes
-'INTRINSIC' Yes (C/S)
-'INVALID' Yes
-'INVOKE' No
-'IS' Yes
-'ITEM' Yes (C/S)
-'ITEM-TEXT' Yes (C/S)
-'ITEM-TO-ADD' Yes (C/S)
-'ITEM-TO-DELETE' Yes (C/S)
-'ITEM-TO-EMPTY' Yes (C/S)
-'ITEM-VALUE' Yes (C/S)
-'JSON' Yes
-'JUST' Yes 'JUSTIFIED'
-'JUSTIFIED' Yes 'JUST'
-'KEPT' Yes
-'KEY' Yes
-'KEYBOARD' Yes (C/S)
-'LABEL' Yes
-'LABEL-OFFSET' Yes (C/S)
-'LARGE-FONT' Yes
-'LARGE-OFFSET' Yes (C/S)
-'LAST' Yes
-'LAST-ROW' Yes (C/S)
-'LAYOUT-DATA' Yes (C/S)
-'LAYOUT-MANAGER' Yes
-'LC_ALL' No (C/S)
-'LC_COLLATE' No (C/S)
-'LC_CTYPE' No (C/S)
-'LC_MESSAGES' No (C/S)
-'LC_MONETARY' No (C/S)
-'LC_NUMERIC' No (C/S)
-'LC_TIME' No (C/S)
-'LEADING' Yes
-'LEADING-SHIFT' Yes (C/S)
-'LEAVE' Yes (C/S)
-'LEFT' Yes
-'LEFT-JUSTIFY' No
-'LEFT-TEXT' Yes (C/S)
-'LEFTLINE' Yes
-'LENGTH' Yes
-'LENGTH-CHECK' Yes 'FULL'
-'LESS' Yes
-'LIKE' Yes
-'LIMIT' Yes
-'LIMITS' Yes
-'LINAGE' Yes
-'LINAGE-COUNTER' Yes
-'LINE' Yes
-'LINE-COUNTER' Yes
-'LINE-SEQUENTIAL' Yes (C/S)
-'LINES' Yes
-'LINES-AT-ROOT' Yes (C/S)
-'LINKAGE' Yes
-'LIST-BOX' Yes (C/S)
-'LM-RESIZE' Yes
-'LOC' Yes (C/S)
-'LOCAL-STORAGE' Yes
-'LOCALE' Yes
-'LOCATION' No (C/S)
-'LOCK' Yes
-'LOCK-HOLDING' Yes (C/S)
-'LONG-DATE' Yes (C/S)
-'LOW-COLOR' Yes (C/S)
-'LOW-VALUE' Yes 'LOW-VALUES'
-'LOW-VALUES' Yes 'LOW-VALUE'
-'LOWER' Yes (C/S)
-'LOWERED' Yes (C/S)
-'LOWLIGHT' Yes (C/S)
-'MAGNETIC-TAPE' Yes (C/S)
-'MANUAL' Yes
-'MASS-UPDATE' Yes (C/S)
-'MASTER-INDEX' Yes (C/S)
-'MAX-LINES' Yes (C/S)
-'MAX-PROGRESS' Yes (C/S)
-'MAX-TEXT' Yes (C/S)
-'MAX-VAL' Yes (C/S)
-'MEDIUM-FONT' Yes
-'MEMORY' Yes (C/S)
-'MENU' Yes
-'MERGE' Yes
-'MESSAGE' Yes
-'MESSAGE-TAG' No
-'METHOD' No
-'METHOD-ID' No
-'MICROSECOND-TIME' Yes (C/S)
-'MIN-VAL' Yes (C/S)
-'MINUS' Yes
-'MODE' Yes
-'MODIFY' Yes
-'MODULES' Yes (C/S)
-'MOVE' Yes
-'MULTILINE' Yes (C/S)
-'MULTIPLE' Yes
-'MULTIPLY' Yes
-'NAME' Yes (C/S)
-'NAMED' Yes (C/S)
-'NAMESPACE' Yes (C/S)
-'NAMESPACE-PREFIX' Yes (C/S)
-'NAT' No (C/S)
-'NATIONAL' Yes
-'NATIONAL-EDITED' Yes
-'NATIVE' Yes
-'NAVIGATE-URL' Yes (C/S)
-'NEAREST-AWAY-FROM-ZERO' Yes (C/S)
-'NEAREST-EVEN' Yes (C/S)
-'NEAREST-TOWARD-ZERO' Yes (C/S)
-'NEGATIVE' Yes
-'NESTED' Yes
-'NEW' Yes
-'NEXT' Yes
-'NEXT-ITEM' Yes (C/S)
-'NO' Yes
-'NO-AUTO-DEFAULT' Yes (C/S)
-'NO-AUTOSEL' Yes (C/S)
-'NO-BOX' Yes (C/S)
-'NO-DIVIDERS' Yes (C/S)
-'NO-ECHO' Yes
-'NO-F4' Yes (C/S)
-'NO-FOCUS' Yes (C/S)
-'NO-GROUP-TAB' Yes (C/S)
-'NO-KEY-LETTER' Yes (C/S)
-'NO-SEARCH' Yes (C/S)
-'NO-UPDOWN' Yes (C/S)
-'NOMINAL' Yes (C/S)
-'NONE' Yes (C/S)
-'NONNUMERIC' Yes (C/S)
-'NORMAL' Yes (C/S)
-'NOT' Yes
-'NOTAB' Yes (C/S)
-'NOTHING' Yes
-'NOTIFY' Yes (C/S)
-'NOTIFY-CHANGE' Yes (C/S)
-'NOTIFY-DBLCLICK' Yes (C/S)
-'NOTIFY-SELCHANGE' Yes (C/S)
-'NULL' Yes 'NULLS'
-'NULLS' Yes 'NULL'
-'NUM-COL-HEADINGS' Yes (C/S)
-'NUM-ROWS' Yes (C/S)
-'NUMBER' Yes
-'NUMBERS' Yes
-'NUMERIC' Yes
-'NUMERIC-EDITED' Yes
-'OBJECT' Yes
-'OBJECT-COMPUTER' Yes
-'OBJECT-REFERENCE' No
-'OCCURS' Yes
-'OF' Yes
-'OFF' Yes
-'OK-BUTTON' Yes (C/S)
-'OMITTED' Yes
-'ON' Yes
-'ONLY' Yes
-'OPEN' Yes
-'OPTIONAL' Yes
-'OPTIONS' Yes
-'OR' Yes
-'ORDER' Yes
-'ORGANISATION' Yes 'ORGANIZATION'
-'ORGANIZATION' Yes 'ORGANISATION'
-'OTHER' Yes
-'OTHERS' Yes (C/S)
-'OUTPUT' Yes
-'OVERFLOW' Yes
-'OVERLAP-LEFT' Yes (C/S) 'OVERLAP-TOP'
-'OVERLAP-TOP' Yes (C/S) 'OVERLAP-LEFT'
-'OVERLINE' Yes
-'OVERRIDE' No
-'PACKED-DECIMAL' Yes
-'PADDING' Yes
-'PAGE' Yes
-'PAGE-COUNTER' Yes
-'PAGE-SETUP' Yes (C/S)
-'PAGED' Yes (C/S)
-'PARAGRAPH' Yes (C/S)
-'PARENT' Yes (C/S)
-'PARSE' Yes (C/S)
-'PASCAL' Yes (C/S)
-'PASSWORD' Yes (C/S)
-'PERFORM' Yes
-'PERMANENT' Yes (C/S)
-'PF' Yes
-'PH' Yes
-'PHYSICAL' Yes
-'PIC' Yes 'PICTURE'
-'PICTURE' Yes 'PIC'
-'PIXEL' Yes (C/S) 'PIXELS'
-'PIXELS' Yes 'PIXEL'
-'PLACEMENT' Yes (C/S)
-'PLUS' Yes
-'POINTER' Yes
-'POP-UP' Yes (C/S)
-'POS' Yes (C/S)
-'POSITION' Yes
-'POSITION-SHIFT' Yes (C/S)
-'POSITIVE' Yes
-'PREFIXED' No (C/S)
-'PRESENT' Yes
-'PREVIOUS' Yes (C/S)
-'PRINT' Yes (C/S)
-'PRINT-NO-PROMPT' Yes (C/S)
-'PRINT-PREVIEW' Yes (C/S)
-'PRINTER' Yes (C/S)
-'PRINTER-1' Yes (C/S)
-'PRINTING' Yes
-'PRIORITY' Yes
-'PROCEDURE' Yes
-'PROCEDURE-POINTER' Yes 'PROGRAM-POINTER'
-'PROCEDURES' Yes
-'PROCEED' Yes
-'PROCESSING' Yes (C/S)
-'PROGRAM' Yes
-'PROGRAM-ID' Yes
-'PROGRAM-POINTER' Yes 'PROCEDURE-POINTER'
-'PROGRESS' Yes (C/S)
-'PROHIBITED' Yes (C/S)
-'PROMPT' Yes
-'PROPERTIES' Yes (C/S)
-'PROPERTY' Yes
-'PROTECTED' Yes (C/S)
-'PROTOTYPE' Yes
-'PURGE' Yes
-'PUSH-BUTTON' Yes (C/S)
-'QUERY-INDEX' Yes (C/S)
-'QUEUE' Yes
-'QUOTE' Yes 'QUOTES'
-'QUOTES' Yes 'QUOTE'
-'RADIO-BUTTON' Yes (C/S)
-'RAISE' Yes
-'RAISED' Yes (C/S)
-'RAISING' Yes
-'RANDOM' Yes
-'RD' Yes
-'READ' Yes
-'READ-ONLY' Yes (C/S)
-'READERS' Yes (C/S)
-'RECEIVE' Yes
-'RECEIVED' Yes
-'RECORD' Yes
-'RECORD-DATA' Yes (C/S)
-'RECORD-OVERFLOW' Yes (C/S)
-'RECORD-TO-ADD' Yes (C/S)
-'RECORD-TO-DELETE' Yes (C/S)
-'RECORDING' Yes
-'RECORDS' Yes
-'RECURSIVE' Yes (C/S)
-'REDEFINES' Yes
-'REEL' Yes
-'REFERENCE' Yes
-'REFERENCES' Yes
-'REFRESH' Yes (C/S)
-'REGION-COLOR' Yes (C/S)
-'RELATION' Yes (C/S)
-'RELATIVE' Yes
-'RELEASE' Yes
-'REMAINDER' Yes
-'REMARKS' Yes (C/S)
-'REMOVAL' Yes
-'RENAMES' Yes
-'REORG-CRITERIA' Yes (C/S)
-'REPEATED' Yes
-'REPLACE' Yes
-'REPLACING' Yes
-'REPORT' Yes
-'REPORTING' Yes
-'REPORTS' Yes
-'REPOSITORY' Yes
-'REQUIRED' Yes (C/S) 'EMPTY-CHECK'
-'REREAD' Yes (C/S)
-'RERUN' Yes (C/S)
-'RESERVE' Yes
-'RESET' Yes
-'RESET-GRID' Yes (C/S)
-'RESET-LIST' Yes (C/S)
-'RESET-TABS' Yes (C/S)
-'RESUME' No
-'RETRY' Yes
-'RETURN' Yes
-'RETURNING' Yes
-'REVERSE' Yes
-'REVERSE-VIDEO' Yes (C/S)
-'REVERSED' Yes
-'REWIND' Yes
-'REWRITE' Yes
-'RF' Yes
-'RH' Yes
-'RIGHT' Yes
-'RIGHT-ALIGN' Yes (C/S)
-'RIGHT-JUSTIFY' No
-'RIGHTLINE' Yes
-'RIMMED' Yes (C/S)
-'ROLLBACK' Yes
-'ROUNDED' Yes
-'ROUNDING' Yes (C/S)
-'ROW-COLOR' Yes (C/S)
-'ROW-COLOR-PATTERN' Yes (C/S)
-'ROW-DIVIDERS' Yes (C/S)
-'ROW-FONT' Yes (C/S)
-'ROW-HEADINGS' Yes (C/S)
-'ROW-PROTECTION' Yes (C/S)
-'RUN' Yes
-'S' Yes (C/S)
-'SAME' Yes
-'SAVE-AS' Yes (C/S)
-'SAVE-AS-NO-PROMPT' Yes (C/S)
-'SCREEN' Yes
-'SCROLL' Yes (C/S)
-'SCROLL-BAR' Yes (C/S)
-'SD' Yes
-'SEARCH' Yes
-'SEARCH-OPTIONS' Yes (C/S)
-'SEARCH-TEXT' Yes (C/S)
-'SECONDS' Yes (C/S)
-'SECTION' Yes
-'SECURE' Yes (C/S)
-'SECURITY' Yes (C/S)
-'SEGMENT' Yes
-'SEGMENT-LIMIT' Yes
-'SELECT' Yes
-'SELECT-ALL' Yes (C/S)
-'SELECTION-INDEX' Yes (C/S)
-'SELECTION-TEXT' Yes (C/S)
-'SELF' No
-'SELF-ACT' Yes (C/S)
-'SEND' Yes
-'SENTENCE' Yes
-'SEPARATE' Yes
-'SEPARATION' Yes (C/S)
-'SEQUENCE' Yes
-'SEQUENTIAL' Yes
-'SET' Yes
-'SHADING' Yes (C/S)
-'SHADOW' Yes (C/S)
-'SHARING' Yes
-'SHORT-DATE' Yes (C/S)
-'SHOW-LINES' Yes (C/S)
-'SHOW-NONE' Yes (C/S)
-'SHOW-SEL-ALWAYS' Yes (C/S)
-'SIGN' Yes
-'SIGNED' Yes
-'SIGNED-INT' Yes
-'SIGNED-LONG' Yes
-'SIGNED-SHORT' Yes
-'SIZE' Yes
-'SMALL-FONT' Yes
-'SORT' Yes
-'SORT-MERGE' Yes
-'SORT-ORDER' Yes (C/S)
-'SOURCE' Yes
-'SOURCE-COMPUTER' Yes
-'SOURCES' No
-'SPACE' Yes 'SPACES'
-'SPACE-FILL' No
-'SPACES' Yes 'SPACE'
-'SPECIAL-NAMES' Yes
-'SPINNER' Yes (C/S)
-'SQUARE' Yes (C/S)
-'STACK' No (C/S)
-'STANDARD' Yes
-'STANDARD-1' Yes
-'STANDARD-2' Yes
-'STANDARD-BINARY' Yes (C/S)
-'STANDARD-DECIMAL' Yes (C/S)
-'START' Yes
-'START-X' Yes (C/S)
-'START-Y' Yes (C/S)
-'STATEMENT' No (C/S)
-'STATIC' Yes (C/S)
-'STATIC-LIST' Yes (C/S)
-'STATUS' Yes
-'STATUS-BAR' Yes (C/S)
-'STATUS-TEXT' Yes (C/S)
-'STDCALL' Yes (C/S)
-'STEP' Yes (C/S)
-'STOP' Yes
-'STRING' Yes
-'STRONG' Yes (C/S)
-'STYLE' Yes (C/S)
-'SUB-QUEUE-1' Yes
-'SUB-QUEUE-2' Yes
-'SUB-QUEUE-3' Yes
-'SUBTRACT' Yes
-'SUBWINDOW' Yes
-'SUM' Yes
-'SUPER' No
-'SUPPRESS' Yes
-'SYMBOL' No (C/S)
-'SYMBOLIC' Yes
-'SYNC' Yes 'SYNCHRONISED,
- SYNCHRONIZED'
-'SYNCHRONISED' Yes 'SYNC, SYNCHRONIZED'
-'SYNCHRONIZED' Yes 'SYNC, SYNCHRONISED'
-'SYSTEM-DEFAULT' Yes
-'SYSTEM-INFO' Yes (C/S)
-'SYSTEM-OFFSET' Yes
-'TAB' Yes (C/S)
-'TAB-TO-ADD' Yes (C/S)
-'TAB-TO-DELETE' Yes (C/S)
-'TABLE' Yes
-'TALLYING' Yes
-'TAPE' Yes (C/S)
-'TEMPORARY' Yes (C/S)
-'TERMINAL-INFO' Yes (C/S)
-'TERMINATE' Yes
-'TERMINATION-VALUE' Yes (C/S)
-'TEST' Yes
-'TEXT' Yes
-'THAN' Yes
-'THEN' Yes
-'THREAD' Yes
-'THREADS' Yes
-'THROUGH' Yes 'THRU'
-'THRU' Yes 'THROUGH'
-'THUMB-POSITION' Yes (C/S)
-'TILED-HEADINGS' Yes (C/S)
-'TIME' Yes
-'TIME-OUT' Yes (C/S) 'TIMEOUT'
-'TIMEOUT' Yes 'TIME-OUT'
-'TIMES' Yes
-'TITLE' Yes (C/S)
-'TITLE-POSITION' Yes (C/S)
-'TO' Yes
-'TOP' Yes
-'TOP-LEVEL' No (C/S)
-'TOWARD-GREATER' Yes (C/S)
-'TOWARD-LESSER' Yes (C/S)
-'TRACK' Yes (C/S)
-'TRACK-AREA' Yes (C/S)
-'TRACK-LIMIT' Yes (C/S)
-'TRACKS' Yes (C/S)
-'TRADITIONAL-FONT' Yes
-'TRAILING' Yes
-'TRAILING-SHIFT' Yes (C/S)
-'TRAILING-SIGN' No
-'TRANSFORM' Yes
-'TRANSPARENT' Yes (C/S)
-'TREE-VIEW' Yes (C/S)
-'TRUE' Yes
-'TRUNCATION' Yes (C/S)
-'TYPE' Yes
-'TYPEDEF' Yes
-'U' Yes (C/S)
-'UCS-4' Yes (C/S)
-'UNBOUNDED' Yes (C/S)
-'UNDERLINE' Yes (C/S)
-'UNFRAMED' Yes (C/S)
-'UNIT' Yes
-'UNIVERSAL' No
-'UNLOCK' Yes
-'UNSIGNED' Yes
-'UNSIGNED-INT' Yes
-'UNSIGNED-LONG' Yes
-'UNSIGNED-SHORT' Yes
-'UNSORTED' Yes (C/S)
-'UNSTRING' Yes
-'UNTIL' Yes
-'UP' Yes
-'UPDATE' Yes
-'UPDATERS' Yes (C/S)
-'UPON' Yes
-'UPPER' Yes (C/S)
-'USAGE' Yes
-'USE' Yes
-'USE-ALT' Yes (C/S)
-'USE-RETURN' Yes (C/S)
-'USE-TAB' Yes (C/S)
-'USER' Yes (C/S)
-'USER-DEFAULT' Yes
-'USING' Yes
-'UTF-16' Yes (C/S)
-'UTF-8' Yes (C/S)
-'V' Yes (C/S)
-'VAL-STATUS' Yes 'VALIDATE-STATUS'
-'VALID' Yes
-'VALIDATE' Yes
-'VALIDATE-STATUS' Yes 'VAL-STATUS'
-'VALIDATING' Yes (C/S)
-'VALUE' Yes
-'VALUE-FORMAT' Yes (C/S)
-'VALUES' Yes
-'VARIABLE' Yes (C/S)
-'VARIANT' Yes
-'VARYING' Yes
-'VERTICAL' Yes (C/S)
-'VERY-HEAVY' Yes (C/S)
-'VIRTUAL-WIDTH' Yes (C/S)
-'VOLATILE' Yes
-'VPADDING' Yes (C/S)
-'VSCROLL' Yes (C/S)
-'VSCROLL-BAR' Yes (C/S)
-'VSCROLL-POS' Yes (C/S)
-'VTOP' Yes (C/S)
-'WAIT' Yes
-'WEB-BROWSER' Yes (C/S)
-'WHEN' Yes
-'WIDTH' Yes (C/S)
-'WIDTH-IN-CELLS' Yes (C/S)
-'WINDOW' Yes
-'WITH' Yes
-'WORDS' Yes
-'WORKING-STORAGE' Yes
-'WRAP' Yes (C/S)
-'WRITE' Yes
-'WRITE-ONLY' Yes (C/S)
-'WRITE-VERIFY' Yes (C/S)
-'WRITERS' Yes (C/S)
-'X' Yes (C/S)
-'XML' Yes
-'XML-DECLARATION' Yes (C/S)
-'XML-SCHEMA' Yes (C/S)
-'XOR' No
-'Y' Yes (C/S)
-'YYYYDDD' Yes (C/S)
-'YYYYMMDD' Yes (C/S)
-'ZERO' Yes 'ZEROES, ZEROS'
-'ZERO-FILL' No (C/S)
-'ZEROES' Yes 'ZERO, ZEROS'
-'ZEROS' Yes 'ZERO, ZEROES'
-
-B.2 Internal registers
-======================
-
-Register Implemented Definition
----------------------------------------------------------------------------
-''ADDRESS OF' phrase' Yes 'USAGE POINTER'
-'COB-CRT-STATUS' Yes 'PICTURE 9(4) USAGE DISPLAY
- VALUE ZERO'
-'DEBUG-ITEM' Yes 'PICTURE X(n) USAGE
- DISPLAY'
-''LENGTH OF' phrase' Yes 'CONSTANT USAGE
- BINARY-LONG'
-'NUMBER-OF-CALL-PARAMETERS' Yes 'USAGE BINARY-LONG'
-'RETURN-CODE' Yes 'GLOBAL USAGE BINARY-LONG
- VALUE ZERO'
-'SORT-RETURN' Yes 'GLOBAL USAGE BINARY-LONG
- VALUE ZERO'
-'TALLY' Yes 'GLOBAL PICTURE 9(5) USAGE
- BINARY VALUE ZERO'
-'WHEN-COMPILED' Yes 'CONSTANT PICTURE X(16)
- USAGE DISPLAY'
-'XML-CODE' Yes 'GLOBAL PICTURE S9(9) USAGE
- BINARY VALUE 0'
-'XML-EVENT' Yes 'GLOBAL USAGE DISPLAY
- PICTURE X(30) VALUE SPACE'
-'XML-INFORMATION' Yes 'GLOBAL PICTURE S9(9) USAGE
- BINARY VALUE 0'
-'XML-NAMESPACE' Yes 'GLOBAL PIC X ANY LENGTH'
-'XML-NAMESPACE-PREFIX' Yes 'GLOBAL PIC X ANY LENGTH'
-'XML-NNAMESPACE' Yes 'GLOBAL PIC N ANY LENGTH'
-'XML-NNAMESPACE-PREFIX' Yes 'GLOBAL PIC N ANY LENGTH'
-'XML-NTEXT' Yes 'GLOBAL PIC N ANY LENGTH'
-'XML-TEXT' Yes 'GLOBAL PIC X ANY LENGTH'
-'JSON-CODE' Yes 'GLOBAL PICTURE S9(9) USAGE
- BINARY VALUE 0'
-'JSON-STATUS' Yes 'GLOBAL PICTURE S9(9) USAGE
- BINARY VALUE 0'
-
-
-File: gnucobol.info, Node: Appendix C, Next: Appendix D, Prev: Appendix B, Up: Appendices
-
-Appendix C Intrinsic Functions
-******************************
-
-The following list of intrinsic functions was extracted from 'cobc
---list-intrinsics' and shows the names of the available functions, an
-implementation note and the number of parameters.
-
-Intrinsic Function Implemented
----------------------------------------------------------------------------
-'ABS' Yes 1
-'ACOS' Yes 1
-'ANNUITY' Yes 2
-'ASIN' Yes 1
-'ATAN' Yes 1
-'BASECONVERT' No 3
-'BIT-OF' Yes 1
-'BIT-TO-CHAR' Yes 1
-'BOOLEAN-OF-INTEGER' No 2
-'BYTE-LENGTH' Yes 1
-'CHAR' Yes 1
-'CHAR-NATIONAL' No 1
-'COMBINED-DATETIME' Yes 2
-'CONCAT' Yes Unlimited
-'CONCATENATE' Yes Unlimited
-'CONTENT-LENGTH' Yes 1
-'CONTENT-OF' Yes 1
-'CONVERT' No 3
-'COS' Yes 1
-'CURRENCY-SYMBOL' Yes 0
-'CURRENT-DATE' Yes 0
-'DATE-OF-INTEGER' Yes 1
-'DATE-TO-YYYYMMDD' Yes 1
-'DAY-OF-INTEGER' Yes 1
-'DAY-TO-YYYYDDD' Yes 1
-'DISPLAY-OF' No 1
-'E' Yes 0
-'EXCEPTION-FILE' Yes 0
-'EXCEPTION-FILE-N' No 0
-'EXCEPTION-LOCATION' Yes 0
-'EXCEPTION-LOCATION-N' No 0
-'EXCEPTION-STATEMENT' Yes 0
-'EXCEPTION-STATUS' Yes 0
-'EXP' Yes 1
-'EXP10' Yes 1
-'FACTORIAL' Yes 1
-'FIND-STRING' No 7
-'FORMATTED-CURRENT-DATE' Yes 1
-'FORMATTED-DATE' Yes 2
-'FORMATTED-DATETIME' Yes 4
-'FORMATTED-TIME' Yes 3
-'FRACTION-PART' Yes 1
-'HEX-OF' Yes 1
-'HEX-TO-CHAR' Yes 1
-'HIGHEST-ALGEBRAIC' Yes 1
-'INTEGER' Yes 1
-'INTEGER-OF-BOOLEAN' No 1
-'INTEGER-OF-DATE' Yes 1
-'INTEGER-OF-DAY' Yes 1
-'INTEGER-OF-FORMATTED-DATE' Yes 2
-'INTEGER-PART' Yes 1
-'LENGTH' Yes 1
-'LENGTH-AN' Yes 1
-'LOCALE-COMPARE' Yes 2
-'LOCALE-DATE' Yes 1
-'LOCALE-TIME' Yes 1
-'LOCALE-TIME-FROM-SECONDS' Yes 1
-'LOG' Yes 1
-'LOG10' Yes 1
-'LOWER-CASE' Yes 1
-'LOWEST-ALGEBRAIC' Yes 1
-'MAX' Yes Unlimited
-'MEAN' Yes Unlimited
-'MEDIAN' Yes Unlimited
-'MIDRANGE' Yes Unlimited
-'MIN' Yes Unlimited
-'MOD' Yes 2
-'MODULE-CALLER-ID' Yes 0
-'MODULE-DATE' Yes 0
-'MODULE-FORMATTED-DATE' Yes 0
-'MODULE-ID' Yes 0
-'MODULE-NAME' No 1
-'MODULE-PATH' Yes 0
-'MODULE-SOURCE' Yes 0
-'MODULE-TIME' Yes 0
-'MONETARY-DECIMAL-POINT' Yes 0
-'MONETARY-THOUSANDS-SEPARATOR'Yes 0
-'NATIONAL-OF' No 1
-'NUMERIC-DECIMAL-POINT' Yes 0
-'NUMERIC-THOUSANDS-SEPARATOR' Yes 0
-'NUMVAL' Yes 1
-'NUMVAL-C' Yes 2
-'NUMVAL-F' Yes 1
-'ORD' Yes 1
-'ORD-MAX' Yes Unlimited
-'ORD-MIN' Yes Unlimited
-'PI' Yes 0
-'PRESENT-VALUE' Yes Unlimited
-'RANDOM' Yes 0
-'RANGE' Yes Unlimited
-'REM' Yes 2
-'REVERSE' Yes 1
-'SECONDS-FROM-FORMATTED-TIME' Yes 2
-'SECONDS-PAST-MIDNIGHT' Yes 0
-'SIGN' Yes 1
-'SIN' Yes 1
-'SQRT' Yes 1
-'STANDARD-COMPARE' No 2
-'STANDARD-DEVIATION' Yes Unlimited
-'STORED-CHAR-LENGTH' Yes 1
-'SUBSTITUTE' Yes Unlimited
-'SUBSTITUTE-CASE' Yes Unlimited
-'SUM' Yes Unlimited
-'TAN' Yes 1
-'TEST-DATE-YYYYMMDD' Yes 1
-'TEST-DAY-YYYYDDD' Yes 1
-'TEST-FORMATTED-DATETIME' Yes 2
-'TEST-NUMVAL' Yes 1
-'TEST-NUMVAL-C' Yes 2
-'TEST-NUMVAL-F' Yes 1
-'TRIM' Yes 1
-'UPPER-CASE' Yes 1
-'VARIANCE' Yes Unlimited
-'WHEN-COMPILED' Yes 0
-'YEAR-TO-YYYY' Yes 1
-
-
-File: gnucobol.info, Node: Appendix D, Next: Appendix E, Prev: Appendix C, Up: Appendices
-
-Appendix D System routines
-**************************
-
-The following list of system routines was extracted from 'cobc
---list-system' and shows the names of the available system routines
-along with the number of parameters.
-
-System routine Parameters
----------------------------------------------
-'SYSTEM' 1
-'CBL_AND' 3
-'CBL_ALARM_SOUND' 0
-'CBL_BELL_SOUND' 0
-'CBL_CHANGE_DIR' 1
-'CBL_CHECK_FILE_EXIST' 2
-'CBL_CLOSE_FILE' 1
-'CBL_COPY_FILE' 2
-'CBL_CREATE_DIR' 1
-'CBL_CREATE_FILE' 5
-'CBL_DELETE_DIR' 1
-'CBL_DELETE_FILE' 1
-'CBL_EQ' 3
-'CBL_ERROR_PROC' 2
-'CBL_EXIT_PROC' 2
-'CBL_RUNTIME_ERROR' 2
-'CBL_FLUSH_FILE' 1
-'CBL_GET_CSR_POS' 1
-'CBL_GET_CURRENT_DIR' 3
-'CBL_GET_SCR_SIZE' 2
-'CBL_IMP' 3
-'CBL_NIMP' 3
-'CBL_NOR' 3
-'CBL_NOT' 2
-'CBL_OPEN_FILE' 5
-'CBL_OR' 3
-'CBL_READ_FILE' 5
-'CBL_READ_KBD_CHAR' 1
-'CBL_RENAME_FILE' 2
-'CBL_SET_CSR_POS' 1
-'CBL_TOLOWER' 2
-'CBL_TOUPPER' 2
-'CBL_WRITE_FILE' 5
-'CBL_XOR' 3
-'CBL_GC_FORK' 0
-'CBL_GC_GETOPT' 6
-'CBL_GC_HOSTED' 2
-'CBL_GC_NANOSLEEP' 1
-'CBL_GC_PRINTABLE' 1 - 2
-'CBL_GC_SET_SCR_SIZE' 2
-'CBL_GC_WAITPID' 1
-'CBL_OC_GETOPT' 6
-'CBL_OC_HOSTED' 2
-'CBL_OC_NANOSLEEP' 1
-'C$CALLEDBY' 1
-'C$CHDIR' 2
-'C$COPY' 3
-'C$DELETE' 2
-'C$FILEINFO' 2
-'C$GETPID' 0
-'C$JUSTIFY' 1 - 2
-'C$MAKEDIR' 1
-'C$NARG' 1
-'C$PARAMSIZE' 1
-'C$PRINTABLE' 1 - 2
-'C$SLEEP' 1
-'C$TOLOWER' 2
-'C$TOUPPER' 2
-'EXTFH' 2
-'X"91"' 3
-'X"E4"' 0
-'X"E5"' 0
-'X"F4"' 2
-'X"F5"' 2
-
-
-File: gnucobol.info, Node: Appendix E, Next: Appendix F, Prev: Appendix D, Up: Appendices
-
-Appendix E System names
-***********************
-
-The following list of system names was extracted from 'cobc
---list-mnemonics' and shows the system names categorized by their type.
-
-E.1 System names: device
-========================
-
-'SYSIN', 'SYSIPT', 'STDIN', 'SYSOUT', 'SYSLIST', 'SYSLST', 'SYSPCH',
-'SYSPUNCH', 'STDOUT', 'PRINT', 'PRINTER', 'PRINTER-1', 'SYSERR',
-'STDERR', 'CONSOLE', 'ALTERNATE-CONSOLE', 'ALTERNATE'
-
-E.2 System names: feature
-=========================
-
-'C01', 'C02', 'C03', 'C04', 'C05', 'C06', 'C07', 'C08', 'C09', 'C10',
-'C11', 'C12', 'S01', 'S02', 'S03', 'S04', 'S05', 'CSP', 'FORMFEED',
-'TOP', 'CALL-CONVENTION'
-
-E.3 System names: switch
-========================
-
-'SWITCH-0', 'SWITCH-1', 'SWITCH-2', 'SWITCH-3', 'SWITCH-4', 'SWITCH-5',
-'SWITCH-6', 'SWITCH-7', 'SWITCH-8', 'SWITCH-9', 'SWITCH-10',
-'SWITCH-11', 'SWITCH-12', 'SWITCH-13', 'SWITCH-14', 'SWITCH-15',
-'SWITCH-16', 'SWITCH-17', 'SWITCH-18', 'SWITCH-19', 'SWITCH-20',
-'SWITCH-21', 'SWITCH-22', 'SWITCH-23', 'SWITCH-24', 'SWITCH-25',
-'SWITCH-26', 'SWITCH-27', 'SWITCH-28', 'SWITCH-29', 'SWITCH-30',
-'SWITCH-31', 'SWITCH-32', 'SWITCH-33', 'SWITCH-34', 'SWITCH-35',
-'SWITCH-36'
-
-
-File: gnucobol.info, Node: Appendix F, Next: Appendix G, Prev: Appendix E, Up: Appendices
-
-Appendix F Exception names
-**************************
-
-The following list of exception names was extracted from 'cobc
---list-exceptions' and shows the exception names and if those are fatal
-(lead to a program abort).
-
- All of those can be activated and deactivated, both directly and at
-group level, using '-fec'.
-
-
-Exception Name
-EC-ALL
- EC-ARGUMENT
- EC-ARGUMENT-FUNCTION (f)
- EC-ARGUMENT-IMP
- EC-BOUND
- EC-BOUND-FUNC-RET-VALUE
- EC-BOUND-IMP
- EC-BOUND-ODO (f)
- EC-BOUND-OVERFLOW (f)
- EC-BOUND-PTR (f)
- EC-BOUND-REF-MOD (f)
- EC-BOUND-SET (f)
- EC-BOUND-SUBSCRIPT (f)
- EC-BOUND-TABLE-LIMIT (f)
- EC-CONTINUE
- EC-CONTINUE-IMP
- EC-CONTINUE-LESS-THAN-ZERO
- EC-DATA
- EC-DATA-CONVERSION
- EC-DATA-IMP
- EC-DATA-INCOMPATIBLE (f)
- EC-DATA-NOT-FINITE (f)
- EC-DATA-OVERFLOW (f)
- EC-DATA-PTR-NULL (f)
- EC-EXTERNAL
- EC-EXTERNAL-DATA-MISMATCH (f)
- EC-EXTERNAL-FILE-MISMATCH (f)
- EC-EXTERNAL-FORMAT-CONFLICT (f)
- EC-EXTERNAL-IMP
- EC-FLOW
- EC-FLOW-APPLY-COMMIT (f)
- EC-FLOW-COMMIT (f)
- EC-FLOW-GLOBAL-EXIT (f)
- EC-FLOW-GLOBAL-GOBACK (f)
- EC-FLOW-IMP
- EC-FLOW-RELEASE (f)
- EC-FLOW-REPORT (f)
- EC-FLOW-RETURN (f)
- EC-FLOW-ROLLBACK (f)
- EC-FLOW-SEARCH (f)
- EC-FLOW-USE (f)
- EC-FUNCTION
- EC-FUNCTION-ARG-OMITTED (f)
- EC-FUNCTION-IMP
- EC-FUNCTION-NOT-FOUND (f)
- EC-FUNCTION-PTR-INVALID (f)
- EC-FUNCTION-PTR-NULL (f)
- EC-I-O
- EC-I-O-AT-END
- EC-I-O-EOP
- EC-I-O-EOP-OVERFLOW
- EC-I-O-FILE-SHARING
- EC-I-O-IMP
- EC-I-O-INVALID-KEY
- EC-I-O-LINAGE (f)
- EC-I-O-LOGIC-ERROR (f)
- EC-I-O-PERMANENT-ERROR (f)
- EC-I-O-RECORD-CONTENT (f)
- EC-I-O-RECORD-OPERATION
- EC-I-O-RECORD-WARNING
- EC-IMP
- EC-IMP-ACCEPT
- EC-IMP-DISPLAY
- EC-IMP-UTC-UNKNOWN (f)
- EC-IMP-FEATURE-DISABLED
- EC-IMP-FEATURE-MISSING
- EC-LOCALE
- EC-LOCALE-IMP
- EC-LOCALE-INCOMPATIBLE
- EC-LOCALE-INVALID (f)
- EC-LOCALE-INVALID-PTR (f)
- EC-LOCALE-MISSING (f)
- EC-LOCALE-SIZE (f)
- EC-MCS
- EC-MCS-ABNORMAL-TERMINATION
- EC-MCS-IMP
- EC-MCS-INVALID-TAG
- EC-MCS-MESSAGE-LENGTH
- EC-MCS-NO-REQUESTER
- EC-MCS-NO-SERVER
- EC-MCS-NORMAL-TERMINATION
- EC-MCS-REQUESTOR-FAILED
- EC-OO
- EC-OO-ARG-OMITTED (f)
- EC-OO-CONFORMANCE (f)
- EC-OO-EXCEPTION (f)
- EC-OO-IMP
- EC-OO-METHOD (f)
- EC-OO-NULL (f)
- EC-OO-RESOURCE (f)
- EC-OO-UNIVERSAL (f)
- EC-ORDER
- EC-ORDER-IMP
- EC-ORDER-NOT-SUPPORTED (f)
- EC-OVERFLOW
- EC-OVERFLOW-IMP
- EC-OVERFLOW-STRING
- EC-OVERFLOW-UNSTRING
- EC-PROGRAM
- EC-PROGRAM-ARG-MISMATCH (f)
- EC-PROGRAM-ARG-OMITTED (f)
- EC-PROGRAM-CANCEL-ACTIVE (f)
- EC-PROGRAM-IMP
- EC-PROGRAM-NOT-FOUND (f)
- EC-PROGRAM-PTR-NULL (f)
- EC-PROGRAM-RECURSIVE-CALL (f)
- EC-PROGRAM-RESOURCES (f)
- EC-RAISING
- EC-RAISING-IMP
- EC-RAISING-NOT-SPECIFIED (f)
- EC-RANGE
- EC-RANGE-IMP
- EC-RANGE-INDEX (f)
- EC-RANGE-INSPECT-SIZE (f)
- EC-RANGE-INVALID
- EC-RANGE-PERFORM-VARYING (f)
- EC-RANGE-PTR (f)
- EC-RANGE-SEARCH-INDEX
- EC-RANGE-SEARCH-NO-MATCH
- EC-REPORT
- EC-REPORT-ACTIVE (f)
- EC-REPORT-COLUMN-OVERLAP (f)
- EC-REPORT-FILE-MODE (f)
- EC-REPORT-IMP
- EC-REPORT-INACTIVE (f)
- EC-REPORT-LINE-OVERLAP
- EC-REPORT-NOT-TERMINATED
- EC-REPORT-PAGE-LIMIT
- EC-REPORT-PAGE-WIDTH
- EC-REPORT-SUM-SIZE (f)
- EC-REPORT-VARYING (f)
- EC-SCREEN
- EC-SCREEN-FIELD-OVERLAP
- EC-SCREEN-IMP
- EC-SCREEN-ITEM-TRUNCATED
- EC-SCREEN-LINE-NUMBER
- EC-SCREEN-STARTING-COLUMN
- EC-SIZE
- EC-SIZE-ADDRESS (f)
- EC-SIZE-EXPONENTIATION (f)
- EC-SIZE-IMP
- EC-SIZE-OVERFLOW (f)
- EC-SIZE-TRUNCATION (f)
- EC-SIZE-UNDERFLOW (f)
- EC-SIZE-ZERO-DIVIDE (f)
- EC-SORT-MERGE
- EC-SORT-MERGE-ACTIVE (f)
- EC-SORT-MERGE-FILE-OPEN (f)
- EC-SORT-MERGE-IMP
- EC-SORT-MERGE-RELEASE (f)
- EC-SORT-MERGE-RETURN (f)
- EC-SORT-MERGE-SEQUENCE (f)
- EC-STORAGE
- EC-STORAGE-IMP
- EC-STORAGE-NOT-ALLOC
- EC-STORAGE-NOT-AVAIL
- EC-USER
- EC-VALIDATE
- EC-VALIDATE-CONTENT
- EC-VALIDATE-FORMAT
- EC-VALIDATE-IMP
- EC-VALIDATE-RELATION
- EC-VALIDATE-VARYING (f)
- EC-XML
- EC-XML-CODESET (f)
- EC-XML-CODESET-CONVERSION (f)
- EC-XML-COUNT (f)
- EC-XML-DOCUMENT-TYPE (f)
- EC-XML-IMPLICIT-CLOSE (f)
- EC-XML-INVALID (f)
- EC-XML-NAMESPACE (f)
- EC-XML-STACKED-OPEN (f)
- EC-XML-RANGE (f)
- EC-XML-IMP (f)
- EC-JSON
- EC-JSON-IMP (f)
-
-
-
-File: gnucobol.info, Node: Appendix G, Next: Appendix H, Prev: Appendix F, Up: Appendices
-
-Appendix G Compiler Configuration
-*********************************
-
-The following list was extracted from 'config/default.conf'.
-
-
-
-# Value: any string
-name: "GnuCOBOL"
-
-# Value: enum
-standard-define 0
-# NOTE: see enum cb_std_def, defined in cobc/cobc.h.
-# CB_STD_GC = 0,
-# CB_STD_MF,
-# CB_STD_IBM,
-# CB_STD_MVS,
-# CB_STD_BS2000,
-# CB_STD_ACU,
-# CB_STD_RM,
-# CB_STD_85,
-# CB_STD_2002,
-# CB_STD_2014
-
-# Default source reference-format; values: FIXED, FREE, COBOL85,
-# VARIABLE, XOPEN, XCARD, CRT, TERMINAL, COBOLX
-format: auto
-
-# Value: int
-tab-width: 8
-text-column: 72
-# Maximum word-length for COBOL words / Programmer defined words
-# Be aware that GC checks the word length against COB_MAX_WORDLEN
-# first (currently 63)
-word-length: 63
-
-# Maximum literal size in general
-literal-length: 8191
-
-# Maximum numeric literal size (absolute maximum: 38)
-numeric-literal-length: 38
-
-# Maximum number of characters allowed in the character-string (max. 255)
-pic-length: 255
-
-# Enable AREACHECK by default, for reference formats other than {fixed,free}
-areacheck: no
-
-# Default assign type
-# Value: 'dynamic', 'external'
-assign-clause: dynamic
-
-# If yes, file names are resolved at run time using
-# environment variables.
-# For example, given ASSIGN TO "DATAFILE", the file name will be
-# 1. the value of environment variable 'DD_DATAFILE' or
-# 2. the value of environment variable 'dd_DATAFILE' or
-# 3. the value of environment variable 'DATAFILE' or
-# 4. the literal "DATAFILE"
-# If no, the value of the assign clause is the file name.
-#
-filename-mapping: yes
-
-# Alternate formatting of numeric fields
-pretty-display: yes
-
-# Allow complex OCCURS DEPENDING ON
-complex-odo: no
-
-# Adjust position of items following OCCURS DEPENDING
-odoslide: no
-
-# Allow REDEFINES to other than last equal level number
-indirect-redefines: no
-
-# Binary byte size - defines the allocated bytes according to PIC
-# Value: signed unsigned bytes
-# ------ -------- -----
-# '2-4-8' 1 - 4 same 2
-# 5 - 9 same 4
-# 10 - 18 same 8
-#
-# '1-2-4-8' 1 - 2 same 1
-# 3 - 4 same 2
-# 5 - 9 same 4
-# 10 - 18 same 8
-#
-# '1--8' 1 - 2 1 - 2 1
-# 3 - 4 3 - 4 2
-# 5 - 6 5 - 7 3
-# 7 - 9 8 - 9 4
-# 10 - 11 10 - 12 5
-# 12 - 14 13 - 14 6
-# 15 - 16 15 - 16 7
-# 17 - 18 17 - 18 8
-#
-binary-size: 1-2-4-8
-
-# Numeric truncation according to ANSI
-binary-truncate: yes
-
-# Binary byte order
-# Value: 'native', 'big-endian'
-binary-byteorder: big-endian
-
-# Allow larger REDEFINES items other than 01 non-external
-larger-redefines: error
-
-# Allow certain syntax variations (eg. REDEFINES position)
-relax-syntax-checks: no
-
-# Allow zero length reference-modification
-# (only checked with active EC-BOUND-REF-MOD)
-ref-mod-zero-length: yes
-
-# Perform type OSVS - If yes, the exit point of any currently
-# executing perform is recognized if reached.
-perform-osvs: no
-
-# Compute intermediate decimal results like IBM OSVS
-arithmetic-osvs: no
-
-# MOVE like IBM (mvc); left to right, byte by byte
-move-ibm: no
-
-# SELECT RELATIVE KEY and ASSIGN fields must be in WORKING-STORAGE
-select-working: no
-
-# LOCAL-STORAGE SECTION implies RECURSIVE attribute
-local-implies-recursive: no
-
-# If yes, LINKAGE SECTION items remain allocated
-# between invocations.
-sticky-linkage: no
-
-# If yes, allow non-matching level numbers
-relax-level-hierarchy: no
-
-# If yes, evaluate constant expressions at compile time
-constant-folding: yes
-
-# Allow Hex 'F' for NUMERIC test of signed PACKED DECIMAL field
-hostsign: no
-
-# If yes, set WITH UPDATE clause as default for ACCEPT dest-item,
-# except if WITH NO UPDATE clause is used
-accept-update: no
-
-# If yes, set WITH AUTO clause as default for ACCEPT dest-item,
-# except if WITH TAB clause is used
-accept-auto: no
-
-# If yes, DISPLAYs and ACCEPTs are, by default, done on the CRT (i.e., using
-# curses).
-console-is-crt: no
-
-# If yes, allow redefinition of the current program's name. This prevents its
-# use in a prototype-format CALL/CANCEL statement.
-program-name-redefinition: yes
-
-# If yes, NO ECHO/NO-ECHO/OFF is the same as SECURE (hiding input with
-# asterisks, not spaces).
-no-echo-means-secure: no
-
-# If yes, the first item in a field screen ACCEPT/DISPLAY (e.g. DISPLAY x UPON
-# CRT) is located after the previous ACCEPT/DISPLAY (as though LINE 0 COL 0 had
-# been specified).
-line-col-zero-default: yes
-
-# If yes, DISPLAY SPACES acts as ERASE EOS, DISPLAY X"01" acts as ERASE EOL,
-# DISPLAY X"02" acts as BLANK SCREEEN and DISPLAY X"07" acts as BELL. Note
-# DISPLAY LOW-VALUE is excluded from this; it will always just position the
-# cursor.
-display-special-fig-consts: no
-
-# If yes, COMP-1 is a signed 16-bit integer and any PICTURE clause is ignored.
-binary-comp-1: no
-
-# If yes, POINTER is handled as BINARY-DOUBLE UNSIGNED instead of its own class
-numeric-pointer: no
-
-# auto-adjust to zero like MicroFocus does
-move-non-numeric-lit-to-numeric-is-zero: no
-
-# If yes, implicitly define a variable for an ASSIGN DYNAMIC which does not
-# match an existing data item.
-implicit-assign-dynamic-var: yes
-
-# If yes, ACCEPT and DISPLAY statements accept device names using mnemonics
-device-mnemonics: no
-
-# full clauses in XML PARSE - and adjusted XML-EVENTs
-xml-parse-xmlss: yes
-
-# What rules to apply to SCREEN SECTION items clauses
-screen-section-rules: gc
-
-# Whether DECIMAL-POINT IS COMMA has effect in XML/JSON GENERATE
-dpc-in-data: xml
-
-# Bounds against which to check subscripts (full, max, record)
-subscript-check: full
-
-# Functionality of JUSTIFY for INITIALIZE verb and initialization of storage
-init-justify: no
-
-# Dialect features
-# Value: 'ok', 'warning', 'archaic', 'obsolete', 'skip', 'ignore', 'error',
-# 'unconformable'
-
-alter-statement: obsolete
-comment-paragraphs: obsolete
-control-division: unconformable
-partial-replace-when-literal-src: obsolete
-call-overflow: archaic
-data-records-clause: obsolete
-debugging-mode: ok
-use-for-debugging: ok
-listing-statements: skip # may be a user-defined word
-title-statement: skip # may be a user-defined word
-entry-statement: ok
-goto-statement-without-name: obsolete
-label-records-clause: obsolete
-memory-size-clause: obsolete
-move-noninteger-to-alphanumeric: error
-move-figurative-constant-to-numeric: archaic
-move-figurative-space-to-numeric: error
-move-figurative-quote-to-numeric: obsolete
-multiple-file-tape-clause: obsolete
-next-sentence-phrase: archaic
-odo-without-to: warning
-padding-character-clause: obsolete
-section-segments: ignore
-stop-literal-statement: obsolete
-stop-identifier-statement: obsolete
-stop-error-statement: unconformable
-same-as-clause: ok
-type-to-clause: ok
-usage-type: ok
-synchronized-clause: ok
-sync-left-right: ok
-special-names-clause: ok
-top-level-occurs-clause: ok
-value-of-clause: obsolete
-numeric-boolean: ok
-hexadecimal-boolean: ok
-national-literals: ok
-hexadecimal-national-literals: ok
-national-character-literals: warning
-
-acu-literals: unconformable
-hp-octal-literals: unconformable
-ebcdic-symbolic-characters: no
-word-continuation: warning
-not-exception-before-exception: ok
-accept-display-extensions: ok
-renames-uncommon-levels: ok
-symbolic-constant: ok
-constant-78: ok
-constant-01: ok
-perform-varying-without-by: ok
-reference-out-of-declaratives: warning
-program-prototypes: ok
-call-convention-mnemonic: ok
-call-convention-linkage: ok
-using-optional: ok
-numeric-value-for-edited-item: ok
-incorrect-conf-sec-order: ok
-define-constant-directive: archaic
-free-redefines-position: warning
-records-mismatch-record-clause warning
-record-delimiter: ok
-sequential-delimiters: ok
-record-delim-with-fixed-recs: ok
-missing-statement: warning
-missing-period: warning #when format not in {fixed,free}
-zero-length-literals: ok
-xml-generate-extra-phrases: ok
-continue-after: ok
-goto-entry: warning
-assign-variable: ok
-assign-using-variable: ok
-assign-ext-dyn: ok
-assign-disk-from: ok
-vsam-status: ignore
-self-call-recursive: warning
-record-contains-depending-clause: unconformable
-defaultbyte: init # GC inits as INITIALIZE ALL TO VALUE THEN TO DEFAULT,
- # with INDEXED BY variables initialized to 1
-picture-l: ok
-
-# use complete word list; synonyms and exceptions are specified below
-reserved-words: default
-
-# not-reserved:
-# Value: Word to be taken out of the reserved words list
-not-reserved: TERMINAL
-not-reserved: EXAMINE
-# reserved:
-# Entries of the form word-1=word-2 define word-1 as an alias for default
-# reserved word word-2. No spaces are allowed around the equal sign.
-reserved: AUTO-SKIP=AUTO
-reserved: AUTOTERMINATE=AUTO
-reserved: BACKGROUND-COLOUR=BACKGROUND-COLOR
-reserved: BEEP=BELL
-reserved: BINARY-INT=BINARY-LONG
-reserved: BINARY-LONG-LONG=BINARY-DOUBLE
-reserved: CELLS=CELL
-reserved: COLOURS=COLORS
-reserved: EMPTY-CHECK=REQUIRED
-reserved: EQUALS=EQUAL
-reserved: FOREGROUND-COLOUR=FOREGROUND-COLOR
-reserved: HIGH-VALUES=HIGH-VALUE
-reserved: INITIALISE=INITIALIZE
-reserved: INITIALISED=INITIALIZED
-reserved: LENGTH-CHECK=FULL
-reserved: LOW-VALUES=LOW-VALUE
-reserved: ORGANISATION=ORGANIZATION
-reserved: PIXELS=PIXEL
-reserved: SYNCHRONISED=SYNCHRONIZED
-reserved: TIMEOUT=TIME-OUT
-reserved: ZEROES=ZERO
-reserved: ZEROS=ZERO
-
-
-File: gnucobol.info, Node: Appendix H, Next: Appendix I, Prev: Appendix G, Up: Appendices
-
-Appendix H Module loader 'cobcrun' options
-******************************************
-
-The following list of options was extracted from 'cobcrun --help' and
-shows all available options for the module loader with a short
-description.
-
-'-h, --help'
- display this help and exit
-'-V, --version'
- display version information for cobcrun + runtime and exit
-'-dumpversion'
- display runtime version and exit
-'-i, --info'
- display runtime information (build/environment)
-'-v, --verbose'
- display extended output with -info
-'-c FILE, --config=FILE'
- set runtime configuration from FILE
-'-r, --runtime-config'
- display current runtime configuration (value and origin for all
- settings)
-'-M MODULE, --module=MODULE'
- set entry point module name and/or load path where '-M' module
- prepends any directory to the dynamic link loader library search
- path and any basename to the module preload list
- ('COB_LIBRARY_PATH' and/or 'COB_PRELOAD')
-
-
-File: gnucobol.info, Node: Appendix I, Next: Appendix J, Prev: Appendix H, Up: Appendices
-
-Appendix I Runtime configuration
-********************************
-
-The following list was extracted from 'config/runtime.cfg'.
-
-I.1 General instructions
-========================
-
-The initial 'runtime.cfg' file is found in the '$COB_CONFIG_DIR' , which
-defaults to installdir/gnucobol/config (see 'cobcrun --info' for the
-local path that is configured). The environment variable
-'COB_RUNTIME_CONFIG' may define a different runtime configuration file
-to read.
-
- If settings are included in the runtime environment file multiple
-times then the last setting value is used, no warning occurs.
-
- Settings via environment variables always take precedence over
-settings that are given in runtime configuration files. And the
-environment is checked after completing processing of the runtime
-configuration file(s)
-
- All values set to string variables or environment variables are
-checked for ${envvar} and replacement is done at the time of the
-setting. You can also specify a default value for the case that envvar
-is not set: '${envvar:default}' (the format '${envvar:-default}' is
-supported, too).
-
- Any environment variable may be set with the directive 'setenv' .
-Example
- 'setenv COB_LIBARAY_PATH ${LD_LIBRARY_PATH}'
-
- Any environment variable may be unset with the directive 'unsetenv'
-(one var per line).
-Example
- 'unsetenv COB_LIBRARY_PATH'
-
- Runtime configuration files can 'include 'other files with the
-directive 'include ' .
-Example
- 'include my-runtime-configuration-file'
-
- To 'include 'another configuration file only if it is present use the
-directive 'includeif' . You can also use ${envvar} inside this.
-Example
- 'includeif ${HOME}/mygc.cfg'
-
- If you want to reset a parameter to its default value use 'reset
-parametername' .
-
- Most runtime variables have boolean values, some are switches, some
-have string values, integer values (if not explicit noted: unsigned) and
-some are size values. The boolean values will be evaluated as
-following: to true: '1', 'Y', O'N', 'YES', 'TRUE' (no matter of case) to
-false: '0', 'N', 'OFF'.
-
- A 'size' value is an unsigned integer optionally followed by 'K',
-'M', or 'G' for 'kilo', 'mega' or 'giga'.
-
- For convenience a parameter in the 'runtime.cfg' file may be defined
-by using either the environment variable name or the parameter name. In
-most cases the environment variable name is the parameter name (in upper
-case) with the prefix 'COB_' .
-
- For a complete list of the settings in use see 'cobcrun
---runtime-config' .
-
- Note: If you want to slightly speed up a program's startup time,
-remove all of the comments from the actual real configuration file that
-is processed.
-
-I.2 General environment
-=======================
-
-
-
-
-Environment name: COB_DISABLE_WARNINGS
- Parameter name: disable_warnings
- Purpose: turn off runtime warning messages
- Type: boolean
- Default: false
- Example: DISABLE_WARNINGS TRUE
-
-Environment name: COB_ENV_MANGLE
- Parameter name: env_mangle
- Purpose: names checked in the environment would get non alphanumeric
- change to '_'
- Type: boolean
- Default: false
- Example: ENV_MANGLE TRUE
-
-Environment name: COB_SET_DEBUG
- Parameter name: debugging_mode
- Purpose: to enable USE ON DEBUGGING procedures that were active
- during compile-time because of WITH DEBUGGING MODE,
- otherwise the code generated will be skipped
- Type: boolean
- Default: false
- Example: COB_SET_DEBUG 1
-
-Environment name: COB_SET_TRACE
- Parameter name: set_trace
- Purpose: to enable COBOL trace feature
- Type: boolean
- Default: false
- Example: SET_TRACE TRUE
-
-Environment name: COB_TRACE_FILE
- Parameter name: trace_file
- Purpose: to define where COBOL trace output should go
- Type: string : $$ is replaced by process id
- Note: file is opened for append if name starts with "+"
- Default: stderr
- Example: TRACE_FILE ${HOME}/mytrace.$$
-
-Environment name: COB_TRACE_FORMAT
- Parameter name: trace_format
- Purpose: to define format of COBOL trace output
- Type: string
- Default: "%P %S Line: %L"
- %P is replaced by Program-Id/Function-Id minimal length 29
- with prefix
- %I is replaced by Program-Id/Function-Id variable length,
- without prefix
- %L is replaced by Line number, right justified, length 6
- %S is replaced by statement type and name
- %F is replaced by source file name
- Example: TRACE_FORMAT "Line: %L %S"
- Note: format of GC2.2 and older:
- "PROGRAM-ID: %I Line: %L %S"
-
-Environment name: COB_CORE_ON_ERROR
- Parameter name: core_on_error
- Purpose: to enable operating system handling of signals and to
- raise an ABORT signal on runtime error instead of the
- default error handling, which will commonly kill the
- process after creating a coredump
- Type: 0 means catching all default signals and do full
- internal error handling as done in versions pre 3.2
- along with full internal handling of COBOL runtime
- errors
- 1 means to forward any signals; whatever happens
- by means of system signal handers will happen,
- which may include creating coredumps and killing
- the process before libcob does any cleanup; preserve
- full internal handling of COBOL runtime errors
- 2 is identical to 1, but on runtime errors explicit
- raises SIGABRT after displaying it along with the
- stacktrace and after doing minimal cleanup
- 3 similar to 2, but instead of raising SIGABRT execute
- "gcore -a -o NAME $$" (where $$ is the process id and
- NAME is specified by COB_CORE_FILENAME) as early as
- possible before doing the normal internal error
- handling; if the command does not work or if a signal
- handler was executed before a SIGABRT is raised
- Default: 0
- Example: core_on_error 3
- Note: If the operating system kills the process as part of the
- signal handling no COBOL centric dump will be created and
- no cleanup will be done either.
- When catching a signal (for example 11) it will be
- returned as exit code of the process, the generated
- coredumps store the reason for the error in the variable
- "runtime_err_str".
-
-Environment name: COB_CORE_FILENAME
- Parameter name: core_filename
- Purpose: to adjust the default name or specify a folder for a
- COB_CORE_ON_ERROR=3 generated coredump
- Type: string
- Default: ./core.libcob
- Example: core_filename /home/me/SomeApp.core
-
-Environment name: COB_STACKTRACE
- Parameter name: stracktrace
- Purpose: to disable stracktrace creation on abort
- Type: boolean
- Default: true
- Example: STRACKTRACE no
-
-Environment name: COB_DUMP_FILE
- Parameter name: dump_file
- Purpose: to define where COBOL dump output should go
- Note: the -fdump=all compile option prepares for dump;
- file is opened for append if name starts with "+";
- may be disabled by setting it to "NONE"
- Type: string : $$ is replaced by process id
- Default: stderr
- Example: DUMP_FILE ${HOME}/mytrace.log
-
-Environment name: COB_DUMP_WIDTH
- Parameter name: dump_width
- Purpose: to define COBOL dump line length
- Type: integer
- Default: 100
- Example: dump_width 120
-
-Environment name: COB_CURRENT_DATE
- Parameter name: current_date
- Purpose: specify an alternate Date/Time to be returned to ACCEPT
- statement; this is used for testing purposes or to tweak
- a missing offset, partial setting is allowed
- Type: numeric string in format YYYYDDMMHHMISS or date string
- or seconds since the epoch as @SSSSSSSS
- Default: the operating system date is used
- Example: COB_CURRENT_DATE "2026/03/16 16:40:52"
- current_date YYYYMMDDHHMMSS+01:00
-
-
-@section Call environment
-@verbatim
-
-
-Environment name: COB_LIBRARY_PATH
- Parameter name: library_path
- Purpose: paths for dynamically-loadable modules
- Type: string
- Note: the default paths .:/installpath/extras are always
- added to the given paths
- Example: LIBRARY_PATH /opt/myapp/test:/opt/myapp/production
-
-Environment name: COB_PRE_LOAD
- Parameter name: pre_load
- Purpose: modules that are loaded during startup, can be used
- to CALL COBOL programs or C functions that are part
- of a module library
- Type: string
- Note: the modules listed should NOT include extensions, the
- runtime will use the right ones on the various platforms,
- COB_LIBRARY_PATH is used to locate the modules
- Example: PRE_LOAD COBOL_function_library:external_c_library
-
-Environment name: COB_LOAD_CASE
- Parameter name: load_case
- Purpose: resolve ALL called program names to UPPER or LOWER case
- Type: Only use UPPER or LOWER
- Default: if not set program names in CALL are case sensitive
- Example: LOAD_CASE UPPER
-
-Environment name: COB_PHYSICAL_CANCEL
- Parameter name: physical_cancel
- Purpose: physically unload a dynamically-loadable module on CANCEL,
- this frees some RAM and allows the change of modules during
- run-time but needs more time to resolve CALLs (both to
- active and not-active programs)
- Alias: default_cancel_mode, LOGICAL_CANCELS (0 = yes)
- Type: TRUE/YES/1 unload module on CANCEL
- FALSE/NO/0 unload module on STOP RUN only
- NEVER never unload module, only useful for profilers
- and tracing tools that do a post-mortem lookup
- of function address
- Default: false
- Example: PHYSICAL_CANCEL TRUE
-
-
-
-I.3 File I/O
-============
-
-
-
-Environment name: COB_VARSEQ_FORMAT
- Parameter name: varseq_format
- Purpose: declare format used for variable length sequential files
- - different types and lengths precede each record
- - 'length' is the data length, does not include the prefix
- Type: 0 means 2 byte record length (big-endian) + 2 NULs
- 1 means 4 byte record length (big-endian)
- 2 means 4 byte record length (local machine int)
- 3 means 2 byte record length (big-endian)
- Default: 0
- Example: VARSEQ_FORMAT 1
-
-Environment name: COB_FILE_PATH
- Parameter name: file_path
- Purpose: define default location where data files are stored
- Type: file path directory
- Default: . (current directory)
- Example: FILE_PATH ${HOME}/mydata
-
-Environment name: COB_LS_FIXED
- Parameter name: ls_fixed
- Purpose: Defines if LINE SEQUENTIAL files should be fixed length
- (or variable, by removing trailing spaces)
- Alias: STRIP_TRAILING_SPACES (0 = yes)
- Type: boolean
- Default: false
- Note: This setting is most useful if you want to REWRITE those
- files.
- Example: LS_FIXED TRUE
-
-Environment name: COB_LS_VALIDATE
- Parameter name: ls_validate
- Purpose: Defines for LINE SEQUENTIAL files that the data should be
- validated as it is read (status 09) / written (status 71).
- Type: boolean
- Default: true (per COBOL 2022)
- Note: If active effectively disables COB_LS_NULLS.
- Example: LS_VALIDATE FALSE
-
-Environment name: COB_LS_NULLS
- Parameter name: ls_nulls
- Purpose: Defines for LINE SEQUENTIAL files what to do with data
- which is not DISPLAY type. This could happen if a LINE
- SEQUENTIAL record has BINARY/COMP data fields in it.
- Type: boolean
- Default: false
- Note: The TRUE setting will insert a null character x"00" before
- those values to escape them, and redo on read-in plus
- validating that they only occur after a null character.
- Decreases LINE SEQUENTIAL performance and prevents writing
- escape sequences or formatting within the data.
- Only checked if COB_LS_VALIDATE is disabled.
- Example: LS_NULL = TRUE
-
-Environment name: COB_LS_SPLIT
- Parameter name: ls_split
- Purpose: Defines for LINE SEQUENTIAL files what to do when a record
- is longer than the program handles. If 'ls_split=true' then
- the data is returned as multiple records with io status 06,
- otherwise the record is truncated, io status set to 04 and
- the file skips to the next LF.
- Type: boolean
- Default: true (per COBOL 2022)
- Example: LS_SPLIT = FALSE
-
-Environment name: COB_SYNC
- Parameter name: sync
- Purpose: Should the file be synced to disk after each write/update
- Type: boolean
- Default: false
- Example: SYNC: TRUE
-
-Environment name: COB_SORT_MEMORY
- Parameter name: sort_memory
- Purpose: Defines how much RAM to assign for sorting data
- if this size is exceeded the SORT will be done
- on disk instead of memory
- Type: size but must be more than 1M
- Default: 128M
- Example: SORT_MEMORY 64M
-
-Environment name: COB_SORT_CHUNK
- Parameter name: sort_chunk
- Purpose: Defines how much RAM to assign for sorting data in chunks
- Type: size but must be within 128K and 16M
- Default: 256K
- Example: SORT_CHUNK 1M
-
-Environment name: COB_SEQ_CONCAT_NAME
- Parameter name: seq_concat_name
- Purpose: Does DD_asgname hold multiple input file names
- Type: boolean
- Default: false
- Example: seq_concat_name = true
-
-Environment name: COB_SEQ_CONCAT_SEP
- Parameter name: seq_concat_sep
- Purpose: Character separating file names
- Type: char
- Default: +
- Example: seq_concat_name = '&'
-
-
-
-I.4 Screen I/O
-==============
-
-
-
-Environment name: COB_BELL
- Parameter name: bell
- Purpose: Defines how a request for the screen to beep is handled
- Type: FLASH, SPEAKER, FALSE, BEEP
- Default: BEEP
- Example: BELL SPEAKER
-
-Environment name: COB_REDIRECT_DISPLAY
- Parameter name: redirect_display
- Purpose: Defines if DISPLAY output should be sent to 'stderr'
- Type: boolean
- Default: false
- Example: redirect_display Yes
-
-Environment name: COB_SCREEN_ESC
- Parameter name: screen_esc
- Purpose: Enable handling of ESC key during ACCEPT
- Type: boolean
- Default: false
- Note: is only evaluated if COB_SCREEN_EXCEPTIONS is active
- Example: screen_esc Yes
-
-Environment name: COB_SCREEN_EXCEPTIONS
- Parameter name: screen_exceptions
- Purpose: enable exceptions for function keys during ACCEPT
- Type: boolean
- Default: false
- Example: screen_exceptions Yes
-
-Environment name: COB_TIMEOUT_SCALE
- Parameter name: timeout_scale
- Purpose: specify translation in milliseconds for ACCEPT clauses
- BEFORE TIME value / AFTER TIMEOUT
- Type: integer
- 0 means 1000 (Micro Focus COBOL compatible), 1 means 100
- (ACUCOBOL compatible), 2 means 10, 3 means 1
- Default: 0
- Note: the minimum and possible maximum value depend on the
- screenio library used
- Example: timeout_scale 3
-
-Environment name: COB_INSERT_MODE
- Parameter name: insert_mode
- Purpose: specify default insert mode for ACCEPT; 0=off, 1=on
- Type: boolean
- Default: false
- Note: also sets the cursor type (if available)
- Example: insert_mode Y
-
-Environment name: COB_MOUSE_FLAGS
- Parameter name: mouse_flags
- Purpose: specify which mouse events will be sent as function key
- to the application during ACCEPT and how they will be
- handled
- Type: int (by bits)
- Default: 1
- Note: 0 disables the mouse cursor, any other value enables it,
- any value containing 1 will enable internal handling (click
- to position, double-click to enter).
- See copy/screenio.cpy for list of events and their values.
- Alias: MOUSE_FLAGS
- Example: 11 (enable internal handling => 1, left press => 2,
- double-click => 8; 1+2+8=11)
-
-Environment name: COB_MOUSE_INTERVAL
- Parameter name: mouse_interval
- Purpose: specifies the maximum time (in thousands of a second)
- that can elapse between press and release events for them
- to be recognized as a click.
- Type: int (0 - 166)
- Default: 100
- Note: 0 disables the click resolution (instead press + release
- are recognized), also disables positioning by mouse click
-
-Environment name: COB_DISPLAY_PRINT_PIPE
- Parameter name: display_print_pipe
- Purpose: Defines command line used for sending output of
- DISPLAY UPON PRINTER to (via pipe)
- This is very similar to Micro Focus COBPRINTER
- Note: Each executed DISPLAY UPON PRINTER statement causes a
- new invocation of command-line (= new process start).
- Each invocation receives the data referenced in
- the DISPLAY statement and is followed by an
- end-of-file condition.
- COB_DISPLAY_PRINT_FILE, if set, takes precedence
- over COB_DISPLAY_PRINT_PIPE.
- Alias: COBPRINTER
- Type: string
- Default: not set
- Example: print 'cat >>/tmp/myprt.log'
-
-Environment name: COB_DISPLAY_PRINT_FILE
- Parameter name: display_print_file
- Purpose: Defines file to be appended to by DISPLAY UPON PRINTER
- Note: Each DISPLAY UPON PRINTER opens, appends and closes the file.
- Type: string : $$ is replaced by process id
- Default: not set
- Example: display_printer '/tmp/myprt.log'
-
-Environment name: COB_DISPLAY_PUNCH_FILE
- Parameter name: display_punch_file
- Purpose: Defines file to be created on first
- DISPLAY UPON SYSPUNCH/SYSPCH
- Note: The file will be only be closed on runtime exit.
- Type: string : $$ is replaced by process id
- Default: not set
- Example: display_punch './punch_$$.out'
-
-Environment name: COB_LEGACY
- Parameter name: legacy
- Purpose: keep behavior of former runtime versions, currently only
- for setting screen attributes for non input fields and
- disabling blinking on some systems
- Type: boolean
- Default: not set
- Example: legacy true
-
-Environment name: COB_EXIT_WAIT
- Parameter name: exit_wait
- Purpose: to wait on main program exit if an extended screenio
- DISPLAY was issued without an ACCEPT following
- Type: boolean
- Default: true
- Example: COB_EXIT_WAIT off
-
-Environment name: COB_EXIT_MSG
- Parameter name: exit_msg
- Purpose: string to display if COB_EXIT_WAIT is processed, set to ''
- if no actual display but an ACCEPT should be done
- Type: string
- Default: 'end of program, please press a key to exit' (localized)
- Example: COB_EXIT_MSG ''
-
-
-
-I.5 Report I/O
-==============
-
-
-
-Environment name: COB_COL_JUST_LRC
- Parameter name: col_just_lrc
- Purpose: If true, then COLUMN defined as LEFT, RIGHT or CENTER
- will have the data justified within the field limits
- If false, then the data is just copied into the column as is
- Type: boolean
- Default: TRUE
- Example: col_just_lrc True
-
-
-File: gnucobol.info, Node: Appendix J, Prev: Appendix I, Up: Appendices
-
-Appendix J GNU Free Documentation License
-*****************************************
-
- Version 1.3, 3 November 2008
-
- Copyright (C) 2000, 2001, 2002, 2007, 2008 Free Software Foundation, Inc.
- <https://fsf.org/>
-
- Everyone is permitted to copy and distribute verbatim copies
- of this license document, but changing it is not allowed.
-
- 0. PREAMBLE
-
- The purpose of this License is to make a manual, textbook, or other
- functional and useful document "free" in the sense of freedom: to
- assure everyone the effective freedom to copy and redistribute it,
- with or without modifying it, either commercially or
- noncommercially. Secondarily, this License preserves for the
- author and publisher a way to get credit for their work, while not
- being considered responsible for modifications made by others.
-
- This License is a kind of "copyleft", which means that derivative
- works of the document must themselves be free in the same sense.
- It complements the GNU General Public License, which is a copyleft
- license designed for free software.
-
- We have designed this License in order to use it for manuals for
- free software, because free software needs free documentation: a
- free program should come with manuals providing the same freedoms
- that the software does. But this License is not limited to
- software manuals; it can be used for any textual work, regardless
- of subject matter or whether it is published as a printed book. We
- recommend this License principally for works whose purpose is
- instruction or reference.
-
- 1. APPLICABILITY AND DEFINITIONS
-
- This License applies to any manual or other work, in any medium,
- that contains a notice placed by the copyright holder saying it can
- be distributed under the terms of this License. Such a notice
- grants a world-wide, royalty-free license, unlimited in duration,
- to use that work under the conditions stated herein. The
- "Document", below, refers to any such manual or work. Any member
- of the public is a licensee, and is addressed as "you". You accept
- the license if you copy, modify or distribute the work in a way
- requiring permission under copyright law.
-
- A "Modified Version" of the Document means any work containing the
- Document or a portion of it, either copied verbatim, or with
- modifications and/or translated into another language.
-
- A "Secondary Section" is a named appendix or a front-matter section
- of the Document that deals exclusively with the relationship of the
- publishers or authors of the Document to the Document's overall
- subject (or to related matters) and contains nothing that could
- fall directly within that overall subject. (Thus, if the Document
- is in part a textbook of mathematics, a Secondary Section may not
- explain any mathematics.) The relationship could be a matter of
- historical connection with the subject or with related matters, or
- of legal, commercial, philosophical, ethical or political position
- regarding them.
-
- The "Invariant Sections" are certain Secondary Sections whose
- titles are designated, as being those of Invariant Sections, in the
- notice that says that the Document is released under this License.
- If a section does not fit the above definition of Secondary then it
- is not allowed to be designated as Invariant. The Document may
- contain zero Invariant Sections. If the Document does not identify
- any Invariant Sections then there are none.
-
- The "Cover Texts" are certain short passages of text that are
- listed, as Front-Cover Texts or Back-Cover Texts, in the notice
- that says that the Document is released under this License. A
- Front-Cover Text may be at most 5 words, and a Back-Cover Text may
- be at most 25 words.
-
- A "Transparent" copy of the Document means a machine-readable copy,
- represented in a format whose specification is available to the
- general public, that is suitable for revising the document
- straightforwardly with generic text editors or (for images composed
- of pixels) generic paint programs or (for drawings) some widely
- available drawing editor, and that is suitable for input to text
- formatters or for automatic translation to a variety of formats
- suitable for input to text formatters. A copy made in an otherwise
- Transparent file format whose markup, or absence of markup, has
- been arranged to thwart or discourage subsequent modification by
- readers is not Transparent. An image format is not Transparent if
- used for any substantial amount of text. A copy that is not
- "Transparent" is called "Opaque".
-
- Examples of suitable formats for Transparent copies include plain
- ASCII without markup, Texinfo input format, LaTeX input format,
- SGML or XML using a publicly available DTD, and standard-conforming
- simple HTML, PostScript or PDF designed for human modification.
- Examples of transparent image formats include PNG, XCF and JPG.
- Opaque formats include proprietary formats that can be read and
- edited only by proprietary word processors, SGML or XML for which
- the DTD and/or processing tools are not generally available, and
- the machine-generated HTML, PostScript or PDF produced by some word
- processors for output purposes only.
-
- The "Title Page" means, for a printed book, the title page itself,
- plus such following pages as are needed to hold, legibly, the
- material this License requires to appear in the title page. For
- works in formats which do not have any title page as such, "Title
- Page" means the text near the most prominent appearance of the
- work's title, preceding the beginning of the body of the text.
-
- The "publisher" means any person or entity that distributes copies
- of the Document to the public.
-
- A section "Entitled XYZ" means a named subunit of the Document
- whose title either is precisely XYZ or contains XYZ in parentheses
- following text that translates XYZ in another language. (Here XYZ
- stands for a specific section name mentioned below, such as
- "Acknowledgements", "Dedications", "Endorsements", or "History".)
- To "Preserve the Title" of such a section when you modify the
- Document means that it remains a section "Entitled XYZ" according
- to this definition.
-
- The Document may include Warranty Disclaimers next to the notice
- which states that this License applies to the Document. These
- Warranty Disclaimers are considered to be included by reference in
- this License, but only as regards disclaiming warranties: any other
- implication that these Warranty Disclaimers may have is void and
- has no effect on the meaning of this License.
-
- 2. VERBATIM COPYING
-
- You may copy and distribute the Document in any medium, either
- commercially or noncommercially, provided that this License, the
- copyright notices, and the license notice saying this License
- applies to the Document are reproduced in all copies, and that you
- add no other conditions whatsoever to those of this License. You
- may not use technical measures to obstruct or control the reading
- or further copying of the copies you make or distribute. However,
- you may accept compensation in exchange for copies. If you
- distribute a large enough number of copies you must also follow the
- conditions in section 3.
-
- You may also lend copies, under the same conditions stated above,
- and you may publicly display copies.
-
- 3. COPYING IN QUANTITY
-
- If you publish printed copies (or copies in media that commonly
- have printed covers) of the Document, numbering more than 100, and
- the Document's license notice requires Cover Texts, you must
- enclose the copies in covers that carry, clearly and legibly, all
- these Cover Texts: Front-Cover Texts on the front cover, and
- Back-Cover Texts on the back cover. Both covers must also clearly
- and legibly identify you as the publisher of these copies. The
- front cover must present the full title with all words of the title
- equally prominent and visible. You may add other material on the
- covers in addition. Copying with changes limited to the covers, as
- long as they preserve the title of the Document and satisfy these
- conditions, can be treated as verbatim copying in other respects.
-
- If the required texts for either cover are too voluminous to fit
- legibly, you should put the first ones listed (as many as fit
- reasonably) on the actual cover, and continue the rest onto
- adjacent pages.
-
- If you publish or distribute Opaque copies of the Document
- numbering more than 100, you must either include a machine-readable
- Transparent copy along with each Opaque copy, or state in or with
- each Opaque copy a computer-network location from which the general
- network-using public has access to download using public-standard
- network protocols a complete Transparent copy of the Document, free
- of added material. If you use the latter option, you must take
- reasonably prudent steps, when you begin distribution of Opaque
- copies in quantity, to ensure that this Transparent copy will
- remain thus accessible at the stated location until at least one
- year after the last time you distribute an Opaque copy (directly or
- through your agents or retailers) of that edition to the public.
-
- It is requested, but not required, that you contact the authors of
- the Document well before redistributing any large number of copies,
- to give them a chance to provide you with an updated version of the
- Document.
-
- 4. MODIFICATIONS
-
- You may copy and distribute a Modified Version of the Document
- under the conditions of sections 2 and 3 above, provided that you
- release the Modified Version under precisely this License, with the
- Modified Version filling the role of the Document, thus licensing
- distribution and modification of the Modified Version to whoever
- possesses a copy of it. In addition, you must do these things in
- the Modified Version:
-
- A. Use in the Title Page (and on the covers, if any) a title
- distinct from that of the Document, and from those of previous
- versions (which should, if there were any, be listed in the
- History section of the Document). You may use the same title
- as a previous version if the original publisher of that
- version gives permission.
-
- B. List on the Title Page, as authors, one or more persons or
- entities responsible for authorship of the modifications in
- the Modified Version, together with at least five of the
- principal authors of the Document (all of its principal
- authors, if it has fewer than five), unless they release you
- from this requirement.
-
- C. State on the Title page the name of the publisher of the
- Modified Version, as the publisher.
-
- D. Preserve all the copyright notices of the Document.
-
- E. Add an appropriate copyright notice for your modifications
- adjacent to the other copyright notices.
-
- F. Include, immediately after the copyright notices, a license
- notice giving the public permission to use the Modified
- Version under the terms of this License, in the form shown in
- the Addendum below.
-
- G. Preserve in that license notice the full lists of Invariant
- Sections and required Cover Texts given in the Document's
- license notice.
-
- H. Include an unaltered copy of this License.
-
- I. Preserve the section Entitled "History", Preserve its Title,
- and add to it an item stating at least the title, year, new
- authors, and publisher of the Modified Version as given on the
- Title Page. If there is no section Entitled "History" in the
- Document, create one stating the title, year, authors, and
- publisher of the Document as given on its Title Page, then add
- an item describing the Modified Version as stated in the
- previous sentence.
-
- J. Preserve the network location, if any, given in the Document
- for public access to a Transparent copy of the Document, and
- likewise the network locations given in the Document for
- previous versions it was based on. These may be placed in the
- "History" section. You may omit a network location for a work
- that was published at least four years before the Document
- itself, or if the original publisher of the version it refers
- to gives permission.
-
- K. For any section Entitled "Acknowledgements" or "Dedications",
- Preserve the Title of the section, and preserve in the section
- all the substance and tone of each of the contributor
- acknowledgements and/or dedications given therein.
-
- L. Preserve all the Invariant Sections of the Document, unaltered
- in their text and in their titles. Section numbers or the
- equivalent are not considered part of the section titles.
-
- M. Delete any section Entitled "Endorsements". Such a section
- may not be included in the Modified Version.
-
- N. Do not retitle any existing section to be Entitled
- "Endorsements" or to conflict in title with any Invariant
- Section.
-
- O. Preserve any Warranty Disclaimers.
-
- If the Modified Version includes new front-matter sections or
- appendices that qualify as Secondary Sections and contain no
- material copied from the Document, you may at your option designate
- some or all of these sections as invariant. To do this, add their
- titles to the list of Invariant Sections in the Modified Version's
- license notice. These titles must be distinct from any other
- section titles.
-
- You may add a section Entitled "Endorsements", provided it contains
- nothing but endorsements of your Modified Version by various
- parties--for example, statements of peer review or that the text
- has been approved by an organization as the authoritative
- definition of a standard.
-
- You may add a passage of up to five words as a Front-Cover Text,
- and a passage of up to 25 words as a Back-Cover Text, to the end of
- the list of Cover Texts in the Modified Version. Only one passage
- of Front-Cover Text and one of Back-Cover Text may be added by (or
- through arrangements made by) any one entity. If the Document
- already includes a cover text for the same cover, previously added
- by you or by arrangement made by the same entity you are acting on
- behalf of, you may not add another; but you may replace the old
- one, on explicit permission from the previous publisher that added
- the old one.
-
- The author(s) and publisher(s) of the Document do not by this
- License give permission to use their names for publicity for or to
- assert or imply endorsement of any Modified Version.
-
- 5. COMBINING DOCUMENTS
-
- You may combine the Document with other documents released under
- this License, under the terms defined in section 4 above for
- modified versions, provided that you include in the combination all
- of the Invariant Sections of all of the original documents,
- unmodified, and list them all as Invariant Sections of your
- combined work in its license notice, and that you preserve all
- their Warranty Disclaimers.
-
- The combined work need only contain one copy of this License, and
- multiple identical Invariant Sections may be replaced with a single
- copy. If there are multiple Invariant Sections with the same name
- but different contents, make the title of each such section unique
- by adding at the end of it, in parentheses, the name of the
- original author or publisher of that section if known, or else a
- unique number. Make the same adjustment to the section titles in
- the list of Invariant Sections in the license notice of the
- combined work.
-
- In the combination, you must combine any sections Entitled
- "History" in the various original documents, forming one section
- Entitled "History"; likewise combine any sections Entitled
- "Acknowledgements", and any sections Entitled "Dedications". You
- must delete all sections Entitled "Endorsements."
-
- 6. COLLECTIONS OF DOCUMENTS
-
- You may make a collection consisting of the Document and other
- documents released under this License, and replace the individual
- copies of this License in the various documents with a single copy
- that is included in the collection, provided that you follow the
- rules of this License for verbatim copying of each of the documents
- in all other respects.
-
- You may extract a single document from such a collection, and
- distribute it individually under this License, provided you insert
- a copy of this License into the extracted document, and follow this
- License in all other respects regarding verbatim copying of that
- document.
-
- 7. AGGREGATION WITH INDEPENDENT WORKS
-
- A compilation of the Document or its derivatives with other
- separate and independent documents or works, in or on a volume of a
- storage or distribution medium, is called an "aggregate" if the
- copyright resulting from the compilation is not used to limit the
- legal rights of the compilation's users beyond what the individual
- works permit. When the Document is included in an aggregate, this
- License does not apply to the other works in the aggregate which
- are not themselves derivative works of the Document.
-
- If the Cover Text requirement of section 3 is applicable to these
- copies of the Document, then if the Document is less than one half
- of the entire aggregate, the Document's Cover Texts may be placed
- on covers that bracket the Document within the aggregate, or the
- electronic equivalent of covers if the Document is in electronic
- form. Otherwise they must appear on printed covers that bracket
- the whole aggregate.
-
- 8. TRANSLATION
-
- Translation is considered a kind of modification, so you may
- distribute translations of the Document under the terms of section
- 4. Replacing Invariant Sections with translations requires special
- permission from their copyright holders, but you may include
- translations of some or all Invariant Sections in addition to the
- original versions of these Invariant Sections. You may include a
- translation of this License, and all the license notices in the
- Document, and any Warranty Disclaimers, provided that you also
- include the original English version of this License and the
- original versions of those notices and disclaimers. In case of a
- disagreement between the translation and the original version of
- this License or a notice or disclaimer, the original version will
- prevail.
-
- If a section in the Document is Entitled "Acknowledgements",
- "Dedications", or "History", the requirement (section 4) to
- Preserve its Title (section 1) will typically require changing the
- actual title.
-
- 9. TERMINATION
-
- You may not copy, modify, sublicense, or distribute the Document
- except as expressly provided under this License. Any attempt
- otherwise to copy, modify, sublicense, or distribute it is void,
- and will automatically terminate your rights under this License.
-
- However, if you cease all violation of this License, then your
- license from a particular copyright holder is reinstated (a)
- provisionally, unless and until the copyright holder explicitly and
- finally terminates your license, and (b) permanently, if the
- copyright holder fails to notify you of the violation by some
- reasonable means prior to 60 days after the cessation.
-
- Moreover, your license from a particular copyright holder is
- reinstated permanently if the copyright holder notifies you of the
- violation by some reasonable means, this is the first time you have
- received notice of violation of this License (for any work) from
- that copyright holder, and you cure the violation prior to 30 days
- after your receipt of the notice.
-
- Termination of your rights under this section does not terminate
- the licenses of parties who have received copies or rights from you
- under this License. If your rights have been terminated and not
- permanently reinstated, receipt of a copy of some or all of the
- same material does not give you any rights to use it.
-
- 10. FUTURE REVISIONS OF THIS LICENSE
-
- The Free Software Foundation may publish new, revised versions of
- the GNU Free Documentation License from time to time. Such new
- versions will be similar in spirit to the present version, but may
- differ in detail to address new problems or concerns. See
- <https://www.gnu.org/licenses/>.
-
- Each version of the License is given a distinguishing version
- number. If the Document specifies that a particular numbered
- version of this License "or any later version" applies to it, you
- have the option of following the terms and conditions either of
- that specified version or of any later version that has been
- published (not as a draft) by the Free Software Foundation. If the
- Document does not specify a version number of this License, you may
- choose any version ever published (not as a draft) by the Free
- Software Foundation. If the Document specifies that a proxy can
- decide which future versions of this License can be used, that
- proxy's public statement of acceptance of a version permanently
- authorizes you to choose that version for the Document.
-
- 11. RELICENSING
-
- "Massive Multiauthor Collaboration Site" (or "MMC Site") means any
- World Wide Web server that publishes copyrightable works and also
- provides prominent facilities for anybody to edit those works. A
- public wiki that anybody can edit is an example of such a server.
- A "Massive Multiauthor Collaboration" (or "MMC") contained in the
- site means any set of copyrightable works thus published on the MMC
- site.
-
- "CC-BY-SA" means the Creative Commons Attribution-Share Alike 3.0
- license published by Creative Commons Corporation, a not-for-profit
- corporation with a principal place of business in San Francisco,
- California, as well as future copyleft versions of that license
- published by that same organization.
-
- "Incorporate" means to publish or republish a Document, in whole or
- in part, as part of another Document.
-
- An MMC is "eligible for relicensing" if it is licensed under this
- License, and if all works that were first published under this
- License somewhere other than this MMC, and subsequently
- incorporated in whole or in part into the MMC, (1) had no cover
- texts or invariant sections, and (2) were thus incorporated prior
- to November 1, 2008.
-
- The operator of an MMC Site may republish an MMC contained in the
- site under CC-BY-SA on the same site at any time before August 1,
- 2009, provided the MMC is eligible for relicensing.
-
-ADDENDUM: How to use this License for your documents
-====================================================
-
-To use this License in a document you have written, include a copy of
-the License in the document and put the following copyright and license
-notices just after the title page:
-
- Copyright (C) YEAR YOUR NAME.
- Permission is granted to copy, distribute and/or modify this document
- under the terms of the GNU Free Documentation License, Version 1.3
- or any later version published by the Free Software Foundation;
- with no Invariant Sections, no Front-Cover Texts, and no Back-Cover
- Texts. A copy of the license is included in the section entitled ``GNU
- Free Documentation License''.
-
- If you have Invariant Sections, Front-Cover Texts and Back-Cover
-Texts, replace the "with...Texts." line with this:
-
- with the Invariant Sections being LIST THEIR TITLES, with
- the Front-Cover Texts being LIST, and with the Back-Cover Texts
- being LIST.
-
- If you have Invariant Sections without Cover Texts, or some other
-combination of the three, merge those two alternatives to suit the
-situation.
-
- If your document contains nontrivial examples of program code, we
-recommend releasing these examples in parallel under your choice of free
-software license, such as the GNU General Public License, to permit
-their use in free software.
-
-
-
-Tag Table:
-Node: Top1118
-Node: Getting started4799
-Node: Hello world!4977
-Node: Compile6413
-Node: Compiler options6771
-Node: Help options7515
-Ref: Help options-Footnote-19447
-Node: Build target9491
-Ref: Build target-Footnote-112402
-Node: Source format12455
-Ref: Source format-Footnote-116162
-Node: Warning options16236
-Node: Configuration options20989
-Node: Listing options24492
-Node: Debug switches29280
-Node: Miscellaneous30639
-Node: Multiple sources31421
-Node: Static linking32061
-Node: Dynamic linking33536
-Ref: Dynamic linking-Footnote-135146
-Ref: Dynamic linking-Footnote-235207
-Node: Building library35268
-Node: Using library35651
-Node: C interface36222
-Node: Main C program36627
-Node: Static C to COBOL38217
-Node: Dynamic C to COBOL40282
-Node: Static COBOL to C44736
-Node: Dynamic COBOL to C46270
-Node: Interface functions for C47119
-Node: Loading translation tables48684
-Node: Customize49272
-Node: Customizing compiler49496
-Node: Customizing library50064
-Node: Optimize50824
-Node: Optimize options51127
-Node: Optimize call52026
-Node: Optimize binary52406
-Node: Debug52982
-Node: Debug options53330
-Node: Debugger53792
-Node: Memory Dumps54416
-Node: Core Dumps54813
-Ref: Core Dumps-Footnote-155358
-Node: Trace55427
-Node: Extensions55623
-Node: SELECT56215
-Node: Indexed56966
-Node: Extended ACCEPT57146
-Node: ACCEPT special61329
-Node: Extended DISPLAY63855
-Node: FUNCTION CONTENT-LENGTH66365
-Node: FUNCTION CONTENT-OF67034
-Node: System Routines67903
-Node: CBL_GC_GETOPT68436
-Node: CBL_GC_HOSTED72532
-Node: CBL_GC_NANOSLEEP77061
-Node: CBL_GC_FORK77585
-Node: CBL_GC_WAITPID80609
-Node: Appendices81266
-Node: Appendix A81884
-Node: Appendix B105115
-Node: Appendix C146409
-Node: Appendix D152424
-Node: Appendix E154893
-Node: Appendix F156151
-Node: Appendix G161117
-Node: Appendix H170872
-Node: Appendix I171945
-Node: Appendix J193252
-
-End Tag Table
-
-
-Local Variables:
-coding: utf-8
-End:
diff --git a/doc/stamp-vti b/doc/stamp-vti
deleted file mode 100644
index 40e44fa..0000000
--- a/doc/stamp-vti
+++ /dev/null
@@ -1,4 +0,0 @@
-@set UPDATED 28 July 2023
-@set UPDATED-MONTH July 2023
-@set EDITION 3.2
-@set VERSION 3.2
diff --git a/doc/version.texi b/doc/version.texi
deleted file mode 100644
index 40e44fa..0000000
--- a/doc/version.texi
+++ /dev/null
@@ -1,4 +0,0 @@
-@set UPDATED 28 July 2023
-@set UPDATED-MONTH July 2023
-@set EDITION 3.2
-@set VERSION 3.2
diff --git a/extras/Makefile.in b/extras/Makefile.in
deleted file mode 100644
index 857dea6..0000000
--- a/extras/Makefile.in
+++ /dev/null
@@ -1,621 +0,0 @@
-# Makefile.in generated by automake 1.16.3 from Makefile.am.
-# @configure_input@
-
-# Copyright (C) 1994-2020 Free Software Foundation, Inc.
-
-# This Makefile.in is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
-# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
-# PARTICULAR PURPOSE.
-
-@SET_MAKE@
-
-#
-# Makefile gnucobol/extras
-#
-# Copyright (C) 2012, 2014, 2017-2020 Free Software Foundation, Inc.
-# Written by Roger While, Simon Sobisch
-#
-# 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 <https://www.gnu.org/licenses/>.
-
-VPATH = @srcdir@
-am__is_gnu_make = { \
- if test -z '$(MAKELEVEL)'; then \
- false; \
- elif test -n '$(MAKE_HOST)'; then \
- true; \
- elif test -n '$(MAKE_VERSION)' && test -n '$(CURDIR)'; then \
- true; \
- else \
- false; \
- fi; \
-}
-am__make_running_with_option = \
- case $${target_option-} in \
- ?) ;; \
- *) echo "am__make_running_with_option: internal error: invalid" \
- "target option '$${target_option-}' specified" >&2; \
- exit 1;; \
- esac; \
- has_opt=no; \
- sane_makeflags=$$MAKEFLAGS; \
- if $(am__is_gnu_make); then \
- sane_makeflags=$$MFLAGS; \
- else \
- case $$MAKEFLAGS in \
- *\\[\ \ ]*) \
- bs=\\; \
- sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \
- | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \
- esac; \
- fi; \
- skip_next=no; \
- strip_trailopt () \
- { \
- flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \
- }; \
- for flg in $$sane_makeflags; do \
- test $$skip_next = yes && { skip_next=no; continue; }; \
- case $$flg in \
- *=*|--*) continue;; \
- -*I) strip_trailopt 'I'; skip_next=yes;; \
- -*I?*) strip_trailopt 'I';; \
- -*O) strip_trailopt 'O'; skip_next=yes;; \
- -*O?*) strip_trailopt 'O';; \
- -*l) strip_trailopt 'l'; skip_next=yes;; \
- -*l?*) strip_trailopt 'l';; \
- -[dEDm]) skip_next=yes;; \
- -[JT]) skip_next=yes;; \
- esac; \
- case $$flg in \
- *$$target_option*) has_opt=yes; break;; \
- esac; \
- done; \
- test $$has_opt = yes
-am__make_dryrun = (target_option=n; $(am__make_running_with_option))
-am__make_keepgoing = (target_option=k; $(am__make_running_with_option))
-pkgdatadir = $(datadir)/@PACKAGE@
-pkgincludedir = $(includedir)/@PACKAGE@
-pkglibdir = $(libdir)/@PACKAGE@
-pkglibexecdir = $(libexecdir)/@PACKAGE@
-am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
-install_sh_DATA = $(install_sh) -c -m 644
-install_sh_PROGRAM = $(install_sh) -c
-install_sh_SCRIPT = $(install_sh) -c
-INSTALL_HEADER = $(INSTALL_DATA)
-transform = $(program_transform_name)
-NORMAL_INSTALL = :
-PRE_INSTALL = :
-POST_INSTALL = :
-NORMAL_UNINSTALL = :
-PRE_UNINSTALL = :
-POST_UNINSTALL = :
-build_triplet = @build@
-host_triplet = @host@
-subdir = extras
-ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
-am__aclocal_m4_deps = $(top_srcdir)/m4/ax_ac_append_to_file.m4 \
- $(top_srcdir)/m4/ax_ac_define_resolved.m4 \
- $(top_srcdir)/m4/ax_ac_print_to_file.m4 \
- $(top_srcdir)/m4/ax_add_am_macro_static.m4 \
- $(top_srcdir)/m4/ax_am_macros_static.m4 \
- $(top_srcdir)/m4/ax_check_define.m4 \
- $(top_srcdir)/m4/ax_check_gnu_make.m4 \
- $(top_srcdir)/m4/ax_code_coverage.m4 \
- $(top_srcdir)/m4/ax_file_escapes.m4 \
- $(top_srcdir)/m4/ax_prog_bison.m4 \
- $(top_srcdir)/m4/ax_prog_flex.m4 $(top_srcdir)/m4/codeset.m4 \
- $(top_srcdir)/m4/gettext.m4 $(top_srcdir)/m4/iconv.m4 \
- $(top_srcdir)/m4/intlmacosx.m4 $(top_srcdir)/m4/lib-ld.m4 \
- $(top_srcdir)/m4/lib-link.m4 $(top_srcdir)/m4/lib-prefix.m4 \
- $(top_srcdir)/m4/libtool.m4 $(top_srcdir)/m4/ltoptions.m4 \
- $(top_srcdir)/m4/ltsugar.m4 $(top_srcdir)/m4/ltversion.m4 \
- $(top_srcdir)/m4/lt~obsolete.m4 $(top_srcdir)/m4/nls.m4 \
- $(top_srcdir)/m4/pkg.m4 $(top_srcdir)/m4/po.m4 \
- $(top_srcdir)/m4/progtest.m4 $(top_srcdir)/configure.ac
-am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
- $(ACLOCAL_M4)
-DIST_COMMON = $(srcdir)/Makefile.am $(am__DIST_COMMON)
-mkinstalldirs = $(SHELL) $(top_srcdir)/build_aux/mkinstalldirs
-CONFIG_HEADER = $(top_builddir)/config.h
-CONFIG_CLEAN_FILES =
-CONFIG_CLEAN_VPATH_FILES =
-AM_V_P = $(am__v_P_@AM_V@)
-am__v_P_ = $(am__v_P_@AM_DEFAULT_V@)
-am__v_P_0 = false
-am__v_P_1 = :
-AM_V_GEN = $(am__v_GEN_@AM_V@)
-am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@)
-am__v_GEN_0 = @echo " GEN " $@;
-am__v_GEN_1 =
-AM_V_at = $(am__v_at_@AM_V@)
-am__v_at_ = $(am__v_at_@AM_DEFAULT_V@)
-am__v_at_0 = @
-am__v_at_1 =
-SOURCES =
-DIST_SOURCES =
-am__can_run_installinfo = \
- case $$AM_UPDATE_INFO_DIR in \
- n|no|NO) false;; \
- *) (install-info --version) >/dev/null 2>&1;; \
- esac
-am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
-am__vpath_adj = case $$p in \
- $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
- *) f=$$p;; \
- esac;
-am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`;
-am__install_max = 40
-am__nobase_strip_setup = \
- srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'`
-am__nobase_strip = \
- for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||"
-am__nobase_list = $(am__nobase_strip_setup); \
- for p in $$list; do echo "$$p $$p"; done | \
- sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \
- $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \
- if (++n[$$2] == $(am__install_max)) \
- { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \
- END { for (dir in files) print dir, files[dir] }'
-am__base_list = \
- sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \
- sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g'
-am__uninstall_files_from_dir = { \
- test -z "$$files" \
- || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \
- || { echo " ( cd '$$dir' && rm -f" $$files ")"; \
- $(am__cd) "$$dir" && rm -f $$files; }; \
- }
-am__installdirs = "$(DESTDIR)$(extrasdir)"
-DATA = $(extras_DATA)
-am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP)
-am__DIST_COMMON = $(srcdir)/Makefile.in \
- $(top_srcdir)/build_aux/mkinstalldirs README
-DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
-ACLOCAL = @ACLOCAL@
-AMTAR = @AMTAR@
-AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@
-AR = @AR@
-AS = @AS@
-AUTOCONF = @AUTOCONF@
-AUTOHEADER = @AUTOHEADER@
-AUTOMAKE = @AUTOMAKE@
-AWK = @AWK@
-BDB_CFLAGS = @BDB_CFLAGS@
-BDB_LIBS = @BDB_LIBS@
-CC = @CC@
-CCDEPMODE = @CCDEPMODE@
-CFLAGS = @CFLAGS@
-CJSON_CFLAGS = @CJSON_CFLAGS@
-CJSON_LIBS = @CJSON_LIBS@
-COBC_CPPFLAGS = @COBC_CPPFLAGS@
-COB_BIGENDIAN = @COB_BIGENDIAN@
-COB_CC = @COB_CC@
-COB_CFLAGS = @COB_CFLAGS@
-COB_CONFIG_DIR = @COB_CONFIG_DIR@
-COB_COPY_DIR = @COB_COPY_DIR@
-COB_ENABLE_DEBUG = @COB_ENABLE_DEBUG@
-COB_EXE_EXT = @COB_EXE_EXT@
-COB_FIX_LIBTOOL = @COB_FIX_LIBTOOL@
-COB_HAS_64_BIT_POINTER = @COB_HAS_64_BIT_POINTER@
-COB_HAS_CURSES = @COB_HAS_CURSES@
-COB_HAS_ISAM = @COB_HAS_ISAM@
-COB_HAS_JSON = @COB_HAS_JSON@
-COB_HAS_XML2 = @COB_HAS_XML2@
-COB_LDFLAGS = @COB_LDFLAGS@
-COB_LIBRARY_PATH = @COB_LIBRARY_PATH@
-COB_LIBS = @COB_LIBS@
-COB_MODULE_EXT = @COB_MODULE_EXT@
-COB_OBJECT_EXT = @COB_OBJECT_EXT@
-COB_PATCH_LEVEL = @COB_PATCH_LEVEL@
-CODE_COVERAGE_CFLAGS = @CODE_COVERAGE_CFLAGS@
-CODE_COVERAGE_CPPFLAGS = @CODE_COVERAGE_CPPFLAGS@
-CODE_COVERAGE_CXXFLAGS = @CODE_COVERAGE_CXXFLAGS@
-CODE_COVERAGE_ENABLED = @CODE_COVERAGE_ENABLED@
-CODE_COVERAGE_LIBS = @CODE_COVERAGE_LIBS@
-CPP = @CPP@
-CPPFLAGS = @CPPFLAGS@
-CURSES_LIBS = @CURSES_LIBS@
-CYGPATH_W = @CYGPATH_W@
-DEFS = @DEFS@
-DEPDIR = @DEPDIR@
-DIFF_FLAGS = @DIFF_FLAGS@
-DLLTOOL = @DLLTOOL@
-DSYMUTIL = @DSYMUTIL@
-DUMPBIN = @DUMPBIN@
-ECHO_C = @ECHO_C@
-ECHO_N = @ECHO_N@
-ECHO_T = @ECHO_T@
-EGREP = @EGREP@
-EXEEXT = @EXEEXT@
-FGREP = @FGREP@
-GCOV = @GCOV@
-GENHTML = @GENHTML@
-GETTEXT_MACRO_VERSION = @GETTEXT_MACRO_VERSION@
-GMP_CFLAGS = @GMP_CFLAGS@
-GMP_LIBS = @GMP_LIBS@
-GMSGFMT = @GMSGFMT@
-GMSGFMT_015 = @GMSGFMT_015@
-GREP = @GREP@
-HELP2MAN = @HELP2MAN@
-INSTALL = @INSTALL@
-INSTALL_DATA = @INSTALL_DATA@
-INSTALL_PROGRAM = @INSTALL_PROGRAM@
-INSTALL_SCRIPT = @INSTALL_SCRIPT@
-INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
-INTLLIBS = @INTLLIBS@
-INTL_MACOSX_LIBS = @INTL_MACOSX_LIBS@
-JSON_C_CFLAGS = @JSON_C_CFLAGS@
-JSON_C_LIBS = @JSON_C_LIBS@
-LCOV = @LCOV@
-LD = @LD@
-LDFLAGS = @LDFLAGS@
-LEX = @LEX@
-LEXLIB = @LEXLIB@
-LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@
-LIBCOB_CPPFLAGS = @LIBCOB_CPPFLAGS@
-LIBCOB_LIBS = @LIBCOB_LIBS@
-LIBICONV = @LIBICONV@
-LIBINTL = @LIBINTL@
-LIBOBJS = @LIBOBJS@
-LIBS = @LIBS@
-LIBTOOL = @LIBTOOL@
-LIPO = @LIPO@
-LN_S = @LN_S@
-LTLIBICONV = @LTLIBICONV@
-LTLIBINTL = @LTLIBINTL@
-LTLIBOBJS = @LTLIBOBJS@
-LT_SYS_LIBRARY_PATH = @LT_SYS_LIBRARY_PATH@
-MAKE = @MAKE@
-MAKEINFO = @MAKEINFO@
-MANIFEST_TOOL = @MANIFEST_TOOL@
-MKDIR_P = @MKDIR_P@
-MPIR_CFLAGS = @MPIR_CFLAGS@
-MPIR_LIBS = @MPIR_LIBS@
-MSGFMT = @MSGFMT@
-MSGMERGE = @MSGMERGE@
-MSGMERGE_FOR_MSGFMT_OPTION = @MSGMERGE_FOR_MSGFMT_OPTION@
-NM = @NM@
-NMEDIT = @NMEDIT@
-OBJDUMP = @OBJDUMP@
-OBJEXT = @OBJEXT@
-OTOOL = @OTOOL@
-OTOOL64 = @OTOOL64@
-PACKAGE = @PACKAGE@
-PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
-PACKAGE_NAME = @PACKAGE_NAME@
-PACKAGE_STRING = @PACKAGE_STRING@
-PACKAGE_TARNAME = @PACKAGE_TARNAME@
-PACKAGE_URL = @PACKAGE_URL@
-PACKAGE_VERSION = @PACKAGE_VERSION@
-PATH_SEPARATOR = @PATH_SEPARATOR@
-PERL = @PERL@
-PKG_CONFIG = @PKG_CONFIG@
-PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@
-PKG_CONFIG_PATH = @PKG_CONFIG_PATH@
-POSUB = @POSUB@
-PROGRAMS_LIBS = @PROGRAMS_LIBS@
-QUOTE_INCLUDE_FLAG = @QUOTE_INCLUDE_FLAG@
-RANLIB = @RANLIB@
-RC = @RC@
-SED = @SED@
-SET_MAKE = @SET_MAKE@
-SHELL = @SHELL@
-STRIP = @STRIP@
-USE_NLS = @USE_NLS@
-VERSION = @VERSION@
-XGETTEXT = @XGETTEXT@
-XGETTEXT_015 = @XGETTEXT_015@
-XGETTEXT_EXTRA_OPTIONS = @XGETTEXT_EXTRA_OPTIONS@
-XML2_CFLAGS = @XML2_CFLAGS@
-XML2_CONFIG = @XML2_CONFIG@
-XML2_LIBS = @XML2_LIBS@
-YACC = @YACC@
-YFLAGS = @YFLAGS@
-abs_builddir = @abs_builddir@
-abs_srcdir = @abs_srcdir@
-abs_top_builddir = @abs_top_builddir@
-abs_top_srcdir = @abs_top_srcdir@
-ac_ct_AR = @ac_ct_AR@
-ac_ct_CC = @ac_ct_CC@
-ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
-am__include = @am__include@
-am__leading_dot = @am__leading_dot@
-am__quote = @am__quote@
-am__tar = @am__tar@
-am__untar = @am__untar@
-bindir = @bindir@
-build = @build@
-build_alias = @build_alias@
-build_cpu = @build_cpu@
-build_os = @build_os@
-build_vendor = @build_vendor@
-builddir = @builddir@
-configured_make = @configured_make@
-datadir = @datadir@
-datarootdir = @datarootdir@
-docdir = @docdir@
-dvidir = @dvidir@
-exec_prefix = @exec_prefix@
-host = @host@
-host_alias = @host_alias@
-host_cpu = @host_cpu@
-host_os = @host_os@
-host_vendor = @host_vendor@
-htmldir = @htmldir@
-ifGNUmake = @ifGNUmake@
-ifnGNUmake = @ifnGNUmake@
-includedir = @includedir@
-infodir = @infodir@
-install_sh = @install_sh@
-libdir = @libdir@
-libexecdir = @libexecdir@
-localedir = @localedir@
-localstatedir = @localstatedir@
-mandir = @mandir@
-mkdir_p = @mkdir_p@
-oldincludedir = @oldincludedir@
-pdfdir = @pdfdir@
-prefix = @prefix@
-program_transform_name = @program_transform_name@
-psdir = @psdir@
-runstatedir = @runstatedir@
-sbindir = @sbindir@
-sharedstatedir = @sharedstatedir@
-srcdir = @srcdir@
-sysconfdir = @sysconfdir@
-target_alias = @target_alias@
-top_build_prefix = @top_build_prefix@
-top_builddir = @top_builddir@
-top_srcdir = @top_srcdir@
-extrasdir = @COB_LIBRARY_PATH@
-@COB_MAKE_RUN_BINARIES_TRUE@extras_DATA = CBL_OC_DUMP.$(COB_MODULE_EXT)
-COBC = cobc$(EXEEXT)
-EXTRA_DIST = CBL_OC_DUMP.cob
-CLEANFILES = $(extras_DATA)
-SUFFIXES = .cob .$(COB_MODULE_EXT)
-all: all-am
-
-.SUFFIXES:
-.SUFFIXES: .cob .$(COB_MODULE_EXT)
-$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps)
- @for dep in $?; do \
- case '$(am__configure_deps)' in \
- *$$dep*) \
- ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
- && { if test -f $@; then exit 0; else break; fi; }; \
- exit 1;; \
- esac; \
- done; \
- echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu extras/Makefile'; \
- $(am__cd) $(top_srcdir) && \
- $(AUTOMAKE) --gnu extras/Makefile
-Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
- @case '$?' in \
- *config.status*) \
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
- *) \
- echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__maybe_remake_depfiles)'; \
- cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__maybe_remake_depfiles);; \
- esac;
-
-$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-
-$(top_srcdir)/configure: $(am__configure_deps)
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-$(ACLOCAL_M4): $(am__aclocal_m4_deps)
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-$(am__aclocal_m4_deps):
-
-mostlyclean-libtool:
- -rm -f *.lo
-
-clean-libtool:
- -rm -rf .libs _libs
-install-extrasDATA: $(extras_DATA)
- @$(NORMAL_INSTALL)
- @list='$(extras_DATA)'; test -n "$(extrasdir)" || list=; \
- if test -n "$$list"; then \
- echo " $(MKDIR_P) '$(DESTDIR)$(extrasdir)'"; \
- $(MKDIR_P) "$(DESTDIR)$(extrasdir)" || exit 1; \
- fi; \
- for p in $$list; do \
- if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
- echo "$$d$$p"; \
- done | $(am__base_list) | \
- while read files; do \
- echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(extrasdir)'"; \
- $(INSTALL_DATA) $$files "$(DESTDIR)$(extrasdir)" || exit $$?; \
- done
-
-uninstall-extrasDATA:
- @$(NORMAL_UNINSTALL)
- @list='$(extras_DATA)'; test -n "$(extrasdir)" || list=; \
- files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \
- dir='$(DESTDIR)$(extrasdir)'; $(am__uninstall_files_from_dir)
-tags TAGS:
-
-ctags CTAGS:
-
-cscope cscopelist:
-
-
-distdir: $(BUILT_SOURCES)
- $(MAKE) $(AM_MAKEFLAGS) distdir-am
-
-distdir-am: $(DISTFILES)
- @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
- topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
- list='$(DISTFILES)'; \
- dist_files=`for file in $$list; do echo $$file; done | \
- sed -e "s|^$$srcdirstrip/||;t" \
- -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
- case $$dist_files in \
- */*) $(MKDIR_P) `echo "$$dist_files" | \
- sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
- sort -u` ;; \
- esac; \
- for file in $$dist_files; do \
- if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
- if test -d $$d/$$file; then \
- dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
- if test -d "$(distdir)/$$file"; then \
- find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
- fi; \
- if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
- cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
- find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
- fi; \
- cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
- else \
- test -f "$(distdir)/$$file" \
- || cp -p $$d/$$file "$(distdir)/$$file" \
- || exit 1; \
- fi; \
- done
-check-am: all-am
-check: check-am
-all-am: Makefile $(DATA)
-installdirs:
- for dir in "$(DESTDIR)$(extrasdir)"; do \
- test -z "$$dir" || $(MKDIR_P) "$$dir"; \
- done
-install: install-am
-install-exec: install-exec-am
-install-data: install-data-am
-uninstall: uninstall-am
-
-install-am: all-am
- @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
-
-installcheck: installcheck-am
-install-strip:
- if test -z '$(STRIP)'; then \
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- install; \
- else \
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
- fi
-mostlyclean-generic:
-
-clean-generic:
- -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
-
-distclean-generic:
- -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
- -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
-
-maintainer-clean-generic:
- @echo "This command is intended for maintainers to use"
- @echo "it deletes files that may require special tools to rebuild."
-clean: clean-am
-
-clean-am: clean-generic clean-libtool mostlyclean-am
-
-distclean: distclean-am
- -rm -f Makefile
-distclean-am: clean-am distclean-generic
-
-dvi: dvi-am
-
-dvi-am:
-
-html: html-am
-
-html-am:
-
-info: info-am
-
-info-am:
-
-install-data-am: install-extrasDATA
-
-install-dvi: install-dvi-am
-
-install-dvi-am:
-
-install-exec-am:
-
-install-html: install-html-am
-
-install-html-am:
-
-install-info: install-info-am
-
-install-info-am:
-
-install-man:
-
-install-pdf: install-pdf-am
-
-install-pdf-am:
-
-install-ps: install-ps-am
-
-install-ps-am:
-
-installcheck-am:
-
-maintainer-clean: maintainer-clean-am
- -rm -f Makefile
-maintainer-clean-am: distclean-am maintainer-clean-generic
-
-mostlyclean: mostlyclean-am
-
-mostlyclean-am: mostlyclean-generic mostlyclean-libtool
-
-pdf: pdf-am
-
-pdf-am:
-
-ps: ps-am
-
-ps-am:
-
-uninstall-am: uninstall-extrasDATA
-
-.MAKE: install-am install-strip
-
-.PHONY: all all-am check check-am clean clean-generic clean-libtool \
- cscopelist-am ctags-am distclean distclean-generic \
- distclean-libtool distdir dvi dvi-am html html-am info info-am \
- install install-am install-data install-data-am install-dvi \
- install-dvi-am install-exec install-exec-am install-extrasDATA \
- install-html install-html-am install-info install-info-am \
- install-man install-pdf install-pdf-am install-ps \
- install-ps-am install-strip installcheck installcheck-am \
- installdirs maintainer-clean maintainer-clean-generic \
- mostlyclean mostlyclean-generic mostlyclean-libtool pdf pdf-am \
- ps ps-am tags-am uninstall uninstall-am uninstall-extrasDATA
-
-.PRECIOUS: Makefile
-
-.cob.$(COB_MODULE_EXT):
- ("$(top_builddir)/pre-inst-env" $(COBC) -m -Wall -O2 -o "$@" "$<" || \
- "$(top_builddir)/pre-inst-env" $(COBC) -m -Wall -o "$@" "$<" || \
- "$(top_builddir)/pre-inst-env" $(COBC) -m -Wall -vv -o "$@" "$<")
-
-# Tell versions [3.59,3.63) of GNU make to not export all variables.
-# Otherwise a system limit (for SysV at least) may be exceeded.
-.NOEXPORT:
diff --git a/lib/Makefile.in b/lib/Makefile.in
deleted file mode 100644
index b11316f..0000000
--- a/lib/Makefile.in
+++ /dev/null
@@ -1,721 +0,0 @@
-# Makefile.in generated by automake 1.16.3 from Makefile.am.
-# @configure_input@
-
-# Copyright (C) 1994-2020 Free Software Foundation, Inc.
-
-# This Makefile.in is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
-# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
-# PARTICULAR PURPOSE.
-
-@SET_MAKE@
-
-#
-# Makefile gnucobol/lib
-#
-# Copyright (C) 2002-2012, 2017, 2020 Free Software Foundation, Inc.
-# Written by Keisuke Nishida, Roger While, Simon Sobisch
-#
-# 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 <https://www.gnu.org/licenses/>.
-
-
-VPATH = @srcdir@
-am__is_gnu_make = { \
- if test -z '$(MAKELEVEL)'; then \
- false; \
- elif test -n '$(MAKE_HOST)'; then \
- true; \
- elif test -n '$(MAKE_VERSION)' && test -n '$(CURDIR)'; then \
- true; \
- else \
- false; \
- fi; \
-}
-am__make_running_with_option = \
- case $${target_option-} in \
- ?) ;; \
- *) echo "am__make_running_with_option: internal error: invalid" \
- "target option '$${target_option-}' specified" >&2; \
- exit 1;; \
- esac; \
- has_opt=no; \
- sane_makeflags=$$MAKEFLAGS; \
- if $(am__is_gnu_make); then \
- sane_makeflags=$$MFLAGS; \
- else \
- case $$MAKEFLAGS in \
- *\\[\ \ ]*) \
- bs=\\; \
- sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \
- | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \
- esac; \
- fi; \
- skip_next=no; \
- strip_trailopt () \
- { \
- flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \
- }; \
- for flg in $$sane_makeflags; do \
- test $$skip_next = yes && { skip_next=no; continue; }; \
- case $$flg in \
- *=*|--*) continue;; \
- -*I) strip_trailopt 'I'; skip_next=yes;; \
- -*I?*) strip_trailopt 'I';; \
- -*O) strip_trailopt 'O'; skip_next=yes;; \
- -*O?*) strip_trailopt 'O';; \
- -*l) strip_trailopt 'l'; skip_next=yes;; \
- -*l?*) strip_trailopt 'l';; \
- -[dEDm]) skip_next=yes;; \
- -[JT]) skip_next=yes;; \
- esac; \
- case $$flg in \
- *$$target_option*) has_opt=yes; break;; \
- esac; \
- done; \
- test $$has_opt = yes
-am__make_dryrun = (target_option=n; $(am__make_running_with_option))
-am__make_keepgoing = (target_option=k; $(am__make_running_with_option))
-pkgdatadir = $(datadir)/@PACKAGE@
-pkgincludedir = $(includedir)/@PACKAGE@
-pkglibdir = $(libdir)/@PACKAGE@
-pkglibexecdir = $(libexecdir)/@PACKAGE@
-am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
-install_sh_DATA = $(install_sh) -c -m 644
-install_sh_PROGRAM = $(install_sh) -c
-install_sh_SCRIPT = $(install_sh) -c
-INSTALL_HEADER = $(INSTALL_DATA)
-transform = $(program_transform_name)
-NORMAL_INSTALL = :
-PRE_INSTALL = :
-POST_INSTALL = :
-NORMAL_UNINSTALL = :
-PRE_UNINSTALL = :
-POST_UNINSTALL = :
-build_triplet = @build@
-host_triplet = @host@
-subdir = lib
-ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
-am__aclocal_m4_deps = $(top_srcdir)/m4/ax_ac_append_to_file.m4 \
- $(top_srcdir)/m4/ax_ac_define_resolved.m4 \
- $(top_srcdir)/m4/ax_ac_print_to_file.m4 \
- $(top_srcdir)/m4/ax_add_am_macro_static.m4 \
- $(top_srcdir)/m4/ax_am_macros_static.m4 \
- $(top_srcdir)/m4/ax_check_define.m4 \
- $(top_srcdir)/m4/ax_check_gnu_make.m4 \
- $(top_srcdir)/m4/ax_code_coverage.m4 \
- $(top_srcdir)/m4/ax_file_escapes.m4 \
- $(top_srcdir)/m4/ax_prog_bison.m4 \
- $(top_srcdir)/m4/ax_prog_flex.m4 $(top_srcdir)/m4/codeset.m4 \
- $(top_srcdir)/m4/gettext.m4 $(top_srcdir)/m4/iconv.m4 \
- $(top_srcdir)/m4/intlmacosx.m4 $(top_srcdir)/m4/lib-ld.m4 \
- $(top_srcdir)/m4/lib-link.m4 $(top_srcdir)/m4/lib-prefix.m4 \
- $(top_srcdir)/m4/libtool.m4 $(top_srcdir)/m4/ltoptions.m4 \
- $(top_srcdir)/m4/ltsugar.m4 $(top_srcdir)/m4/ltversion.m4 \
- $(top_srcdir)/m4/lt~obsolete.m4 $(top_srcdir)/m4/nls.m4 \
- $(top_srcdir)/m4/pkg.m4 $(top_srcdir)/m4/po.m4 \
- $(top_srcdir)/m4/progtest.m4 $(top_srcdir)/configure.ac
-am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
- $(ACLOCAL_M4)
-DIST_COMMON = $(srcdir)/Makefile.am $(noinst_HEADERS) \
- $(am__DIST_COMMON)
-mkinstalldirs = $(SHELL) $(top_srcdir)/build_aux/mkinstalldirs
-CONFIG_HEADER = $(top_builddir)/config.h
-CONFIG_CLEAN_FILES =
-CONFIG_CLEAN_VPATH_FILES =
-LTLIBRARIES = $(noinst_LTLIBRARIES)
-libsupport_la_DEPENDENCIES = @LIBOBJS@
-am_libsupport_la_OBJECTS = dummymac.lo
-libsupport_la_OBJECTS = $(am_libsupport_la_OBJECTS)
-AM_V_lt = $(am__v_lt_@AM_V@)
-am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@)
-am__v_lt_0 = --silent
-am__v_lt_1 =
-libsupport_la_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \
- $(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \
- $(libsupport_la_LDFLAGS) $(LDFLAGS) -o $@
-AM_V_P = $(am__v_P_@AM_V@)
-am__v_P_ = $(am__v_P_@AM_DEFAULT_V@)
-am__v_P_0 = false
-am__v_P_1 = :
-AM_V_GEN = $(am__v_GEN_@AM_V@)
-am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@)
-am__v_GEN_0 = @echo " GEN " $@;
-am__v_GEN_1 =
-AM_V_at = $(am__v_at_@AM_V@)
-am__v_at_ = $(am__v_at_@AM_DEFAULT_V@)
-am__v_at_0 = @
-am__v_at_1 =
-DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir)
-depcomp = $(SHELL) $(top_srcdir)/build_aux/depcomp
-am__maybe_remake_depfiles = depfiles
-am__depfiles_remade = ./$(DEPDIR)/dummymac.Plo
-am__mv = mv -f
-COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \
- $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)
-LTCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \
- $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) \
- $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \
- $(AM_CFLAGS) $(CFLAGS)
-AM_V_CC = $(am__v_CC_@AM_V@)
-am__v_CC_ = $(am__v_CC_@AM_DEFAULT_V@)
-am__v_CC_0 = @echo " CC " $@;
-am__v_CC_1 =
-CCLD = $(CC)
-LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \
- $(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \
- $(AM_LDFLAGS) $(LDFLAGS) -o $@
-AM_V_CCLD = $(am__v_CCLD_@AM_V@)
-am__v_CCLD_ = $(am__v_CCLD_@AM_DEFAULT_V@)
-am__v_CCLD_0 = @echo " CCLD " $@;
-am__v_CCLD_1 =
-SOURCES = $(libsupport_la_SOURCES)
-DIST_SOURCES = $(libsupport_la_SOURCES)
-am__can_run_installinfo = \
- case $$AM_UPDATE_INFO_DIR in \
- n|no|NO) false;; \
- *) (install-info --version) >/dev/null 2>&1;; \
- esac
-HEADERS = $(noinst_HEADERS)
-am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP)
-# Read a list of newline-separated strings from the standard input,
-# and print each of them once, without duplicates. Input order is
-# *not* preserved.
-am__uniquify_input = $(AWK) '\
- BEGIN { nonempty = 0; } \
- { items[$$0] = 1; nonempty = 1; } \
- END { if (nonempty) { for (i in items) print i; }; } \
-'
-# Make sure the list of sources is unique. This is necessary because,
-# e.g., the same source file might be shared among _SOURCES variables
-# for different programs/libraries.
-am__define_uniq_tagged_files = \
- list='$(am__tagged_files)'; \
- unique=`for i in $$list; do \
- if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
- done | $(am__uniquify_input)`
-ETAGS = etags
-CTAGS = ctags
-am__DIST_COMMON = $(srcdir)/Makefile.in \
- $(top_srcdir)/build_aux/depcomp \
- $(top_srcdir)/build_aux/mkinstalldirs ChangeLog
-DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
-ACLOCAL = @ACLOCAL@
-AMTAR = @AMTAR@
-AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@
-AR = @AR@
-AS = @AS@
-AUTOCONF = @AUTOCONF@
-AUTOHEADER = @AUTOHEADER@
-AUTOMAKE = @AUTOMAKE@
-AWK = @AWK@
-BDB_CFLAGS = @BDB_CFLAGS@
-BDB_LIBS = @BDB_LIBS@
-CC = @CC@
-CCDEPMODE = @CCDEPMODE@
-CFLAGS = @CFLAGS@
-CJSON_CFLAGS = @CJSON_CFLAGS@
-CJSON_LIBS = @CJSON_LIBS@
-COBC_CPPFLAGS = @COBC_CPPFLAGS@
-COB_BIGENDIAN = @COB_BIGENDIAN@
-COB_CC = @COB_CC@
-COB_CFLAGS = @COB_CFLAGS@
-COB_CONFIG_DIR = @COB_CONFIG_DIR@
-COB_COPY_DIR = @COB_COPY_DIR@
-COB_ENABLE_DEBUG = @COB_ENABLE_DEBUG@
-COB_EXE_EXT = @COB_EXE_EXT@
-COB_FIX_LIBTOOL = @COB_FIX_LIBTOOL@
-COB_HAS_64_BIT_POINTER = @COB_HAS_64_BIT_POINTER@
-COB_HAS_CURSES = @COB_HAS_CURSES@
-COB_HAS_ISAM = @COB_HAS_ISAM@
-COB_HAS_JSON = @COB_HAS_JSON@
-COB_HAS_XML2 = @COB_HAS_XML2@
-COB_LDFLAGS = @COB_LDFLAGS@
-COB_LIBRARY_PATH = @COB_LIBRARY_PATH@
-COB_LIBS = @COB_LIBS@
-COB_MODULE_EXT = @COB_MODULE_EXT@
-COB_OBJECT_EXT = @COB_OBJECT_EXT@
-COB_PATCH_LEVEL = @COB_PATCH_LEVEL@
-CODE_COVERAGE_CFLAGS = @CODE_COVERAGE_CFLAGS@
-CODE_COVERAGE_CPPFLAGS = @CODE_COVERAGE_CPPFLAGS@
-CODE_COVERAGE_CXXFLAGS = @CODE_COVERAGE_CXXFLAGS@
-CODE_COVERAGE_ENABLED = @CODE_COVERAGE_ENABLED@
-CODE_COVERAGE_LIBS = @CODE_COVERAGE_LIBS@
-CPP = @CPP@
-CPPFLAGS = @CPPFLAGS@
-CURSES_LIBS = @CURSES_LIBS@
-CYGPATH_W = @CYGPATH_W@
-DEFS = @DEFS@
-DEPDIR = @DEPDIR@
-DIFF_FLAGS = @DIFF_FLAGS@
-DLLTOOL = @DLLTOOL@
-DSYMUTIL = @DSYMUTIL@
-DUMPBIN = @DUMPBIN@
-ECHO_C = @ECHO_C@
-ECHO_N = @ECHO_N@
-ECHO_T = @ECHO_T@
-EGREP = @EGREP@
-EXEEXT = @EXEEXT@
-FGREP = @FGREP@
-GCOV = @GCOV@
-GENHTML = @GENHTML@
-GETTEXT_MACRO_VERSION = @GETTEXT_MACRO_VERSION@
-GMP_CFLAGS = @GMP_CFLAGS@
-GMP_LIBS = @GMP_LIBS@
-GMSGFMT = @GMSGFMT@
-GMSGFMT_015 = @GMSGFMT_015@
-GREP = @GREP@
-HELP2MAN = @HELP2MAN@
-INSTALL = @INSTALL@
-INSTALL_DATA = @INSTALL_DATA@
-INSTALL_PROGRAM = @INSTALL_PROGRAM@
-INSTALL_SCRIPT = @INSTALL_SCRIPT@
-INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
-INTLLIBS = @INTLLIBS@
-INTL_MACOSX_LIBS = @INTL_MACOSX_LIBS@
-JSON_C_CFLAGS = @JSON_C_CFLAGS@
-JSON_C_LIBS = @JSON_C_LIBS@
-LCOV = @LCOV@
-LD = @LD@
-LDFLAGS = @LDFLAGS@
-LEX = @LEX@
-LEXLIB = @LEXLIB@
-LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@
-LIBCOB_CPPFLAGS = @LIBCOB_CPPFLAGS@
-LIBCOB_LIBS = @LIBCOB_LIBS@
-LIBICONV = @LIBICONV@
-LIBINTL = @LIBINTL@
-LIBOBJS = @LIBOBJS@
-LIBS = @LIBS@
-LIBTOOL = @LIBTOOL@
-LIPO = @LIPO@
-LN_S = @LN_S@
-LTLIBICONV = @LTLIBICONV@
-LTLIBINTL = @LTLIBINTL@
-LTLIBOBJS = @LTLIBOBJS@
-LT_SYS_LIBRARY_PATH = @LT_SYS_LIBRARY_PATH@
-MAKE = @MAKE@
-MAKEINFO = @MAKEINFO@
-MANIFEST_TOOL = @MANIFEST_TOOL@
-MKDIR_P = @MKDIR_P@
-MPIR_CFLAGS = @MPIR_CFLAGS@
-MPIR_LIBS = @MPIR_LIBS@
-MSGFMT = @MSGFMT@
-MSGMERGE = @MSGMERGE@
-MSGMERGE_FOR_MSGFMT_OPTION = @MSGMERGE_FOR_MSGFMT_OPTION@
-NM = @NM@
-NMEDIT = @NMEDIT@
-OBJDUMP = @OBJDUMP@
-OBJEXT = @OBJEXT@
-OTOOL = @OTOOL@
-OTOOL64 = @OTOOL64@
-PACKAGE = @PACKAGE@
-PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
-PACKAGE_NAME = @PACKAGE_NAME@
-PACKAGE_STRING = @PACKAGE_STRING@
-PACKAGE_TARNAME = @PACKAGE_TARNAME@
-PACKAGE_URL = @PACKAGE_URL@
-PACKAGE_VERSION = @PACKAGE_VERSION@
-PATH_SEPARATOR = @PATH_SEPARATOR@
-PERL = @PERL@
-PKG_CONFIG = @PKG_CONFIG@
-PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@
-PKG_CONFIG_PATH = @PKG_CONFIG_PATH@
-POSUB = @POSUB@
-PROGRAMS_LIBS = @PROGRAMS_LIBS@
-QUOTE_INCLUDE_FLAG = @QUOTE_INCLUDE_FLAG@
-RANLIB = @RANLIB@
-RC = @RC@
-SED = @SED@
-SET_MAKE = @SET_MAKE@
-SHELL = @SHELL@
-STRIP = @STRIP@
-USE_NLS = @USE_NLS@
-VERSION = @VERSION@
-XGETTEXT = @XGETTEXT@
-XGETTEXT_015 = @XGETTEXT_015@
-XGETTEXT_EXTRA_OPTIONS = @XGETTEXT_EXTRA_OPTIONS@
-XML2_CFLAGS = @XML2_CFLAGS@
-XML2_CONFIG = @XML2_CONFIG@
-XML2_LIBS = @XML2_LIBS@
-YACC = @YACC@
-YFLAGS = @YFLAGS@
-abs_builddir = @abs_builddir@
-abs_srcdir = @abs_srcdir@
-abs_top_builddir = @abs_top_builddir@
-abs_top_srcdir = @abs_top_srcdir@
-ac_ct_AR = @ac_ct_AR@
-ac_ct_CC = @ac_ct_CC@
-ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
-am__include = @am__include@
-am__leading_dot = @am__leading_dot@
-am__quote = @am__quote@
-am__tar = @am__tar@
-am__untar = @am__untar@
-bindir = @bindir@
-build = @build@
-build_alias = @build_alias@
-build_cpu = @build_cpu@
-build_os = @build_os@
-build_vendor = @build_vendor@
-builddir = @builddir@
-configured_make = @configured_make@
-datadir = @datadir@
-datarootdir = @datarootdir@
-docdir = @docdir@
-dvidir = @dvidir@
-exec_prefix = @exec_prefix@
-host = @host@
-host_alias = @host_alias@
-host_cpu = @host_cpu@
-host_os = @host_os@
-host_vendor = @host_vendor@
-htmldir = @htmldir@
-ifGNUmake = @ifGNUmake@
-ifnGNUmake = @ifnGNUmake@
-includedir = @includedir@
-infodir = @infodir@
-install_sh = @install_sh@
-libdir = @libdir@
-libexecdir = @libexecdir@
-localedir = @localedir@
-localstatedir = @localstatedir@
-mandir = @mandir@
-mkdir_p = @mkdir_p@
-oldincludedir = @oldincludedir@
-pdfdir = @pdfdir@
-prefix = @prefix@
-program_transform_name = @program_transform_name@
-psdir = @psdir@
-runstatedir = @runstatedir@
-sbindir = @sbindir@
-sharedstatedir = @sharedstatedir@
-srcdir = @srcdir@
-sysconfdir = @sysconfdir@
-target_alias = @target_alias@
-top_build_prefix = @top_build_prefix@
-top_builddir = @top_builddir@
-top_srcdir = @top_srcdir@
-noinst_HEADERS = gettext.h
-noinst_LTLIBRARIES = libsupport.la
-AM_CPPFLAGS = -I$(top_srcdir)
-libsupport_la_SOURCES = dummymac.c
-libsupport_la_LDFLAGS = -static
-libsupport_la_LIBADD = @LIBOBJS@
-all: all-am
-
-.SUFFIXES:
-.SUFFIXES: .c .lo .o .obj
-$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps)
- @for dep in $?; do \
- case '$(am__configure_deps)' in \
- *$$dep*) \
- ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
- && { if test -f $@; then exit 0; else break; fi; }; \
- exit 1;; \
- esac; \
- done; \
- echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu lib/Makefile'; \
- $(am__cd) $(top_srcdir) && \
- $(AUTOMAKE) --gnu lib/Makefile
-Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
- @case '$?' in \
- *config.status*) \
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
- *) \
- echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__maybe_remake_depfiles)'; \
- cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__maybe_remake_depfiles);; \
- esac;
-
-$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-
-$(top_srcdir)/configure: $(am__configure_deps)
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-$(ACLOCAL_M4): $(am__aclocal_m4_deps)
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-$(am__aclocal_m4_deps):
-
-clean-noinstLTLIBRARIES:
- -test -z "$(noinst_LTLIBRARIES)" || rm -f $(noinst_LTLIBRARIES)
- @list='$(noinst_LTLIBRARIES)'; \
- locs=`for p in $$list; do echo $$p; done | \
- sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \
- sort -u`; \
- test -z "$$locs" || { \
- echo rm -f $${locs}; \
- rm -f $${locs}; \
- }
-
-libsupport.la: $(libsupport_la_OBJECTS) $(libsupport_la_DEPENDENCIES) $(EXTRA_libsupport_la_DEPENDENCIES)
- $(AM_V_CCLD)$(libsupport_la_LINK) $(libsupport_la_OBJECTS) $(libsupport_la_LIBADD) $(LIBS)
-
-mostlyclean-compile:
- -rm -f *.$(OBJEXT)
-
-distclean-compile:
- -rm -f *.tab.c
-
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dummymac.Plo@am__quote@ # am--include-marker
-
-$(am__depfiles_remade):
- @$(MKDIR_P) $(@D)
- @echo '# dummy' >$@-t && $(am__mv) $@-t $@
-
-am--depfiles: $(am__depfiles_remade)
-
-.c.o:
-@am__fastdepCC_TRUE@ $(AM_V_CC)$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $<
-@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ $<
-
-.c.obj:
-@am__fastdepCC_TRUE@ $(AM_V_CC)$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'`
-@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ `$(CYGPATH_W) '$<'`
-
-.c.lo:
-@am__fastdepCC_TRUE@ $(AM_V_CC)$(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $<
-@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LTCOMPILE) -c -o $@ $<
-
-mostlyclean-libtool:
- -rm -f *.lo
-
-clean-libtool:
- -rm -rf .libs _libs
-
-ID: $(am__tagged_files)
- $(am__define_uniq_tagged_files); mkid -fID $$unique
-tags: tags-am
-TAGS: tags
-
-tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files)
- set x; \
- here=`pwd`; \
- $(am__define_uniq_tagged_files); \
- shift; \
- if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
- test -n "$$unique" || unique=$$empty_fix; \
- if test $$# -gt 0; then \
- $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
- "$$@" $$unique; \
- else \
- $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
- $$unique; \
- fi; \
- fi
-ctags: ctags-am
-
-CTAGS: ctags
-ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files)
- $(am__define_uniq_tagged_files); \
- test -z "$(CTAGS_ARGS)$$unique" \
- || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
- $$unique
-
-GTAGS:
- here=`$(am__cd) $(top_builddir) && pwd` \
- && $(am__cd) $(top_srcdir) \
- && gtags -i $(GTAGS_ARGS) "$$here"
-cscopelist: cscopelist-am
-
-cscopelist-am: $(am__tagged_files)
- list='$(am__tagged_files)'; \
- case "$(srcdir)" in \
- [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \
- *) sdir=$(subdir)/$(srcdir) ;; \
- esac; \
- for i in $$list; do \
- if test -f "$$i"; then \
- echo "$(subdir)/$$i"; \
- else \
- echo "$$sdir/$$i"; \
- fi; \
- done >> $(top_builddir)/cscope.files
-
-distclean-tags:
- -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
-
-distdir: $(BUILT_SOURCES)
- $(MAKE) $(AM_MAKEFLAGS) distdir-am
-
-distdir-am: $(DISTFILES)
- @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
- topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
- list='$(DISTFILES)'; \
- dist_files=`for file in $$list; do echo $$file; done | \
- sed -e "s|^$$srcdirstrip/||;t" \
- -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
- case $$dist_files in \
- */*) $(MKDIR_P) `echo "$$dist_files" | \
- sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
- sort -u` ;; \
- esac; \
- for file in $$dist_files; do \
- if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
- if test -d $$d/$$file; then \
- dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
- if test -d "$(distdir)/$$file"; then \
- find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
- fi; \
- if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
- cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
- find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
- fi; \
- cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
- else \
- test -f "$(distdir)/$$file" \
- || cp -p $$d/$$file "$(distdir)/$$file" \
- || exit 1; \
- fi; \
- done
-check-am: all-am
-check: check-am
-all-am: Makefile $(LTLIBRARIES) $(HEADERS)
-installdirs:
-install: install-am
-install-exec: install-exec-am
-install-data: install-data-am
-uninstall: uninstall-am
-
-install-am: all-am
- @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
-
-installcheck: installcheck-am
-install-strip:
- if test -z '$(STRIP)'; then \
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- install; \
- else \
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
- fi
-mostlyclean-generic:
-
-clean-generic:
-
-distclean-generic:
- -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
- -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
-
-maintainer-clean-generic:
- @echo "This command is intended for maintainers to use"
- @echo "it deletes files that may require special tools to rebuild."
-clean: clean-am
-
-clean-am: clean-generic clean-libtool clean-noinstLTLIBRARIES \
- mostlyclean-am
-
-distclean: distclean-am
- -rm -f ./$(DEPDIR)/dummymac.Plo
- -rm -f Makefile
-distclean-am: clean-am distclean-compile distclean-generic \
- distclean-tags
-
-dvi: dvi-am
-
-dvi-am:
-
-html: html-am
-
-html-am:
-
-info: info-am
-
-info-am:
-
-install-data-am:
-
-install-dvi: install-dvi-am
-
-install-dvi-am:
-
-install-exec-am:
-
-install-html: install-html-am
-
-install-html-am:
-
-install-info: install-info-am
-
-install-info-am:
-
-install-man:
-
-install-pdf: install-pdf-am
-
-install-pdf-am:
-
-install-ps: install-ps-am
-
-install-ps-am:
-
-installcheck-am:
-
-maintainer-clean: maintainer-clean-am
- -rm -f ./$(DEPDIR)/dummymac.Plo
- -rm -f Makefile
-maintainer-clean-am: distclean-am maintainer-clean-generic
-
-mostlyclean: mostlyclean-am
-
-mostlyclean-am: mostlyclean-compile mostlyclean-generic \
- mostlyclean-libtool
-
-pdf: pdf-am
-
-pdf-am:
-
-ps: ps-am
-
-ps-am:
-
-uninstall-am:
-
-.MAKE: install-am install-strip
-
-.PHONY: CTAGS GTAGS TAGS all all-am am--depfiles check check-am clean \
- clean-generic clean-libtool clean-noinstLTLIBRARIES \
- cscopelist-am ctags ctags-am distclean distclean-compile \
- distclean-generic distclean-libtool distclean-tags distdir dvi \
- dvi-am html html-am info info-am install install-am \
- install-data install-data-am install-dvi install-dvi-am \
- install-exec install-exec-am install-html install-html-am \
- install-info install-info-am install-man install-pdf \
- install-pdf-am install-ps install-ps-am install-strip \
- installcheck installcheck-am installdirs maintainer-clean \
- maintainer-clean-generic mostlyclean mostlyclean-compile \
- mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \
- tags tags-am uninstall uninstall-am
-
-.PRECIOUS: Makefile
-
-
-# Tell versions [3.59,3.63) of GNU make to not export all variables.
-# Otherwise a system limit (for SysV at least) may be exceeded.
-.NOEXPORT:
diff --git a/libcob/Makefile.in b/libcob/Makefile.in
deleted file mode 100644
index 0102676..0000000
--- a/libcob/Makefile.in
+++ /dev/null
@@ -1,1005 +0,0 @@
-# Makefile.in generated by automake 1.16.3 from Makefile.am.
-# @configure_input@
-
-# Copyright (C) 1994-2020 Free Software Foundation, Inc.
-
-# This Makefile.in is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
-# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
-# PARTICULAR PURPOSE.
-
-@SET_MAKE@
-
-#
-# Makefile gnucobol/libcob
-#
-# Copyright (C) 2003-2012, 2014, 2017-2020, 2022-2023 Free Software Foundation, Inc.
-# Written by Keisuke Nishida, Roger While, Simon Sobisch
-#
-# 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 <https://www.gnu.org/licenses/>.
-
-# aminclude_static.am generated automatically by Autoconf
-# from AX_AM_MACROS_STATIC on Fri Jul 28 19:17:12 CEST 2023
-
-
-VPATH = @srcdir@
-am__is_gnu_make = { \
- if test -z '$(MAKELEVEL)'; then \
- false; \
- elif test -n '$(MAKE_HOST)'; then \
- true; \
- elif test -n '$(MAKE_VERSION)' && test -n '$(CURDIR)'; then \
- true; \
- else \
- false; \
- fi; \
-}
-am__make_running_with_option = \
- case $${target_option-} in \
- ?) ;; \
- *) echo "am__make_running_with_option: internal error: invalid" \
- "target option '$${target_option-}' specified" >&2; \
- exit 1;; \
- esac; \
- has_opt=no; \
- sane_makeflags=$$MAKEFLAGS; \
- if $(am__is_gnu_make); then \
- sane_makeflags=$$MFLAGS; \
- else \
- case $$MAKEFLAGS in \
- *\\[\ \ ]*) \
- bs=\\; \
- sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \
- | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \
- esac; \
- fi; \
- skip_next=no; \
- strip_trailopt () \
- { \
- flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \
- }; \
- for flg in $$sane_makeflags; do \
- test $$skip_next = yes && { skip_next=no; continue; }; \
- case $$flg in \
- *=*|--*) continue;; \
- -*I) strip_trailopt 'I'; skip_next=yes;; \
- -*I?*) strip_trailopt 'I';; \
- -*O) strip_trailopt 'O'; skip_next=yes;; \
- -*O?*) strip_trailopt 'O';; \
- -*l) strip_trailopt 'l'; skip_next=yes;; \
- -*l?*) strip_trailopt 'l';; \
- -[dEDm]) skip_next=yes;; \
- -[JT]) skip_next=yes;; \
- esac; \
- case $$flg in \
- *$$target_option*) has_opt=yes; break;; \
- esac; \
- done; \
- test $$has_opt = yes
-am__make_dryrun = (target_option=n; $(am__make_running_with_option))
-am__make_keepgoing = (target_option=k; $(am__make_running_with_option))
-pkgdatadir = $(datadir)/@PACKAGE@
-pkglibdir = $(libdir)/@PACKAGE@
-pkglibexecdir = $(libexecdir)/@PACKAGE@
-am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
-install_sh_DATA = $(install_sh) -c -m 644
-install_sh_PROGRAM = $(install_sh) -c
-install_sh_SCRIPT = $(install_sh) -c
-INSTALL_HEADER = $(INSTALL_DATA)
-transform = $(program_transform_name)
-NORMAL_INSTALL = :
-PRE_INSTALL = :
-POST_INSTALL = :
-NORMAL_UNINSTALL = :
-PRE_UNINSTALL = :
-POST_UNINSTALL = :
-build_triplet = @build@
-host_triplet = @host@
-subdir = libcob
-ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
-am__aclocal_m4_deps = $(top_srcdir)/m4/ax_ac_append_to_file.m4 \
- $(top_srcdir)/m4/ax_ac_define_resolved.m4 \
- $(top_srcdir)/m4/ax_ac_print_to_file.m4 \
- $(top_srcdir)/m4/ax_add_am_macro_static.m4 \
- $(top_srcdir)/m4/ax_am_macros_static.m4 \
- $(top_srcdir)/m4/ax_check_define.m4 \
- $(top_srcdir)/m4/ax_check_gnu_make.m4 \
- $(top_srcdir)/m4/ax_code_coverage.m4 \
- $(top_srcdir)/m4/ax_file_escapes.m4 \
- $(top_srcdir)/m4/ax_prog_bison.m4 \
- $(top_srcdir)/m4/ax_prog_flex.m4 $(top_srcdir)/m4/codeset.m4 \
- $(top_srcdir)/m4/gettext.m4 $(top_srcdir)/m4/iconv.m4 \
- $(top_srcdir)/m4/intlmacosx.m4 $(top_srcdir)/m4/lib-ld.m4 \
- $(top_srcdir)/m4/lib-link.m4 $(top_srcdir)/m4/lib-prefix.m4 \
- $(top_srcdir)/m4/libtool.m4 $(top_srcdir)/m4/ltoptions.m4 \
- $(top_srcdir)/m4/ltsugar.m4 $(top_srcdir)/m4/ltversion.m4 \
- $(top_srcdir)/m4/lt~obsolete.m4 $(top_srcdir)/m4/nls.m4 \
- $(top_srcdir)/m4/pkg.m4 $(top_srcdir)/m4/po.m4 \
- $(top_srcdir)/m4/progtest.m4 $(top_srcdir)/configure.ac
-am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
- $(ACLOCAL_M4)
-DIST_COMMON = $(srcdir)/Makefile.am $(pkginclude_HEADERS) \
- $(am__DIST_COMMON)
-mkinstalldirs = $(SHELL) $(top_srcdir)/build_aux/mkinstalldirs
-CONFIG_HEADER = $(top_builddir)/config.h
-CONFIG_CLEAN_FILES =
-CONFIG_CLEAN_VPATH_FILES =
-am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
-am__vpath_adj = case $$p in \
- $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
- *) f=$$p;; \
- esac;
-am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`;
-am__install_max = 40
-am__nobase_strip_setup = \
- srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'`
-am__nobase_strip = \
- for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||"
-am__nobase_list = $(am__nobase_strip_setup); \
- for p in $$list; do echo "$$p $$p"; done | \
- sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \
- $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \
- if (++n[$$2] == $(am__install_max)) \
- { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \
- END { for (dir in files) print dir, files[dir] }'
-am__base_list = \
- sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \
- sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g'
-am__uninstall_files_from_dir = { \
- test -z "$$files" \
- || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \
- || { echo " ( cd '$$dir' && rm -f" $$files ")"; \
- $(am__cd) "$$dir" && rm -f $$files; }; \
- }
-am__installdirs = "$(DESTDIR)$(libdir)" "$(DESTDIR)$(pkgincludedir)"
-LTLIBRARIES = $(lib_LTLIBRARIES)
-am__DEPENDENCIES_1 =
-libcob_la_DEPENDENCIES = $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1)
-am_libcob_la_OBJECTS = common.lo move.lo numeric.lo strings.lo \
- fileio.lo call.lo intrinsic.lo termio.lo screenio.lo \
- reportio.lo cobgetopt.lo mlio.lo cconv.lo
-@LOCAL_CJSON_TRUE@nodist_libcob_la_OBJECTS = cJSON.lo
-libcob_la_OBJECTS = $(am_libcob_la_OBJECTS) \
- $(nodist_libcob_la_OBJECTS)
-AM_V_lt = $(am__v_lt_@AM_V@)
-am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@)
-am__v_lt_0 = --silent
-am__v_lt_1 =
-libcob_la_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \
- $(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \
- $(libcob_la_LDFLAGS) $(LDFLAGS) -o $@
-AM_V_P = $(am__v_P_@AM_V@)
-am__v_P_ = $(am__v_P_@AM_DEFAULT_V@)
-am__v_P_0 = false
-am__v_P_1 = :
-AM_V_GEN = $(am__v_GEN_@AM_V@)
-am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@)
-am__v_GEN_0 = @echo " GEN " $@;
-am__v_GEN_1 =
-AM_V_at = $(am__v_at_@AM_V@)
-am__v_at_ = $(am__v_at_@AM_DEFAULT_V@)
-am__v_at_0 = @
-am__v_at_1 =
-DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir)
-depcomp = $(SHELL) $(top_srcdir)/build_aux/depcomp
-am__maybe_remake_depfiles = depfiles
-am__depfiles_remade = ./$(DEPDIR)/cJSON.Plo ./$(DEPDIR)/call.Plo \
- ./$(DEPDIR)/cconv.Plo ./$(DEPDIR)/cobgetopt.Plo \
- ./$(DEPDIR)/common.Plo ./$(DEPDIR)/fileio.Plo \
- ./$(DEPDIR)/intrinsic.Plo ./$(DEPDIR)/mlio.Plo \
- ./$(DEPDIR)/move.Plo ./$(DEPDIR)/numeric.Plo \
- ./$(DEPDIR)/reportio.Plo ./$(DEPDIR)/screenio.Plo \
- ./$(DEPDIR)/strings.Plo ./$(DEPDIR)/termio.Plo
-am__mv = mv -f
-COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \
- $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)
-LTCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \
- $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) \
- $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \
- $(AM_CFLAGS) $(CFLAGS)
-AM_V_CC = $(am__v_CC_@AM_V@)
-am__v_CC_ = $(am__v_CC_@AM_DEFAULT_V@)
-am__v_CC_0 = @echo " CC " $@;
-am__v_CC_1 =
-CCLD = $(CC)
-LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \
- $(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \
- $(AM_LDFLAGS) $(LDFLAGS) -o $@
-AM_V_CCLD = $(am__v_CCLD_@AM_V@)
-am__v_CCLD_ = $(am__v_CCLD_@AM_DEFAULT_V@)
-am__v_CCLD_0 = @echo " CCLD " $@;
-am__v_CCLD_1 =
-SOURCES = $(libcob_la_SOURCES) $(nodist_libcob_la_SOURCES)
-DIST_SOURCES = $(libcob_la_SOURCES)
-am__can_run_installinfo = \
- case $$AM_UPDATE_INFO_DIR in \
- n|no|NO) false;; \
- *) (install-info --version) >/dev/null 2>&1;; \
- esac
-HEADERS = $(pkginclude_HEADERS)
-am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP)
-# Read a list of newline-separated strings from the standard input,
-# and print each of them once, without duplicates. Input order is
-# *not* preserved.
-am__uniquify_input = $(AWK) '\
- BEGIN { nonempty = 0; } \
- { items[$$0] = 1; nonempty = 1; } \
- END { if (nonempty) { for (i in items) print i; }; } \
-'
-# Make sure the list of sources is unique. This is necessary because,
-# e.g., the same source file might be shared among _SOURCES variables
-# for different programs/libraries.
-am__define_uniq_tagged_files = \
- list='$(am__tagged_files)'; \
- unique=`for i in $$list; do \
- if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
- done | $(am__uniquify_input)`
-ETAGS = etags
-CTAGS = ctags
-am__DIST_COMMON = $(srcdir)/Makefile.in \
- $(top_srcdir)/aminclude_static.am \
- $(top_srcdir)/build_aux/depcomp \
- $(top_srcdir)/build_aux/mkinstalldirs ChangeLog
-DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
-pkgincludedir = $(includedir)/libcob
-ACLOCAL = @ACLOCAL@
-AMTAR = @AMTAR@
-AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@
-AR = @AR@
-AS = @AS@
-AUTOCONF = @AUTOCONF@
-AUTOHEADER = @AUTOHEADER@
-AUTOMAKE = @AUTOMAKE@
-AWK = @AWK@
-BDB_CFLAGS = @BDB_CFLAGS@
-BDB_LIBS = @BDB_LIBS@
-CC = @CC@
-CCDEPMODE = @CCDEPMODE@
-CFLAGS = @CFLAGS@
-CJSON_CFLAGS = @CJSON_CFLAGS@
-CJSON_LIBS = @CJSON_LIBS@
-COBC_CPPFLAGS = @COBC_CPPFLAGS@
-COB_BIGENDIAN = @COB_BIGENDIAN@
-COB_CC = @COB_CC@
-COB_CFLAGS = @COB_CFLAGS@
-COB_CONFIG_DIR = @COB_CONFIG_DIR@
-COB_COPY_DIR = @COB_COPY_DIR@
-COB_ENABLE_DEBUG = @COB_ENABLE_DEBUG@
-COB_EXE_EXT = @COB_EXE_EXT@
-COB_FIX_LIBTOOL = @COB_FIX_LIBTOOL@
-COB_HAS_64_BIT_POINTER = @COB_HAS_64_BIT_POINTER@
-COB_HAS_CURSES = @COB_HAS_CURSES@
-COB_HAS_ISAM = @COB_HAS_ISAM@
-COB_HAS_JSON = @COB_HAS_JSON@
-COB_HAS_XML2 = @COB_HAS_XML2@
-COB_LDFLAGS = @COB_LDFLAGS@
-COB_LIBRARY_PATH = @COB_LIBRARY_PATH@
-COB_LIBS = @COB_LIBS@
-COB_MODULE_EXT = @COB_MODULE_EXT@
-COB_OBJECT_EXT = @COB_OBJECT_EXT@
-COB_PATCH_LEVEL = @COB_PATCH_LEVEL@
-CODE_COVERAGE_CFLAGS = @CODE_COVERAGE_CFLAGS@
-CODE_COVERAGE_CPPFLAGS = @CODE_COVERAGE_CPPFLAGS@
-CODE_COVERAGE_CXXFLAGS = @CODE_COVERAGE_CXXFLAGS@
-CODE_COVERAGE_ENABLED = @CODE_COVERAGE_ENABLED@
-CODE_COVERAGE_LIBS = @CODE_COVERAGE_LIBS@
-CPP = @CPP@
-CPPFLAGS = @CPPFLAGS@
-CURSES_LIBS = @CURSES_LIBS@
-CYGPATH_W = @CYGPATH_W@
-DEFS = @DEFS@
-DEPDIR = @DEPDIR@
-DIFF_FLAGS = @DIFF_FLAGS@
-DLLTOOL = @DLLTOOL@
-DSYMUTIL = @DSYMUTIL@
-DUMPBIN = @DUMPBIN@
-ECHO_C = @ECHO_C@
-ECHO_N = @ECHO_N@
-ECHO_T = @ECHO_T@
-EGREP = @EGREP@
-EXEEXT = @EXEEXT@
-FGREP = @FGREP@
-GCOV = @GCOV@
-GENHTML = @GENHTML@
-GETTEXT_MACRO_VERSION = @GETTEXT_MACRO_VERSION@
-GMP_CFLAGS = @GMP_CFLAGS@
-GMP_LIBS = @GMP_LIBS@
-GMSGFMT = @GMSGFMT@
-GMSGFMT_015 = @GMSGFMT_015@
-GREP = @GREP@
-HELP2MAN = @HELP2MAN@
-INSTALL = @INSTALL@
-INSTALL_DATA = @INSTALL_DATA@
-INSTALL_PROGRAM = @INSTALL_PROGRAM@
-INSTALL_SCRIPT = @INSTALL_SCRIPT@
-INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
-INTLLIBS = @INTLLIBS@
-INTL_MACOSX_LIBS = @INTL_MACOSX_LIBS@
-JSON_C_CFLAGS = @JSON_C_CFLAGS@
-JSON_C_LIBS = @JSON_C_LIBS@
-LCOV = @LCOV@
-LD = @LD@
-LDFLAGS = @LDFLAGS@
-LEX = @LEX@
-LEXLIB = @LEXLIB@
-LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@
-LIBCOB_CPPFLAGS = @LIBCOB_CPPFLAGS@
-LIBCOB_LIBS = @LIBCOB_LIBS@
-LIBICONV = @LIBICONV@
-LIBINTL = @LIBINTL@
-LIBOBJS = @LIBOBJS@
-LIBS = @LIBS@
-LIBTOOL = @LIBTOOL@
-LIPO = @LIPO@
-LN_S = @LN_S@
-LTLIBICONV = @LTLIBICONV@
-LTLIBINTL = @LTLIBINTL@
-LTLIBOBJS = @LTLIBOBJS@
-LT_SYS_LIBRARY_PATH = @LT_SYS_LIBRARY_PATH@
-MAKE = @MAKE@
-MAKEINFO = @MAKEINFO@
-MANIFEST_TOOL = @MANIFEST_TOOL@
-MKDIR_P = @MKDIR_P@
-MPIR_CFLAGS = @MPIR_CFLAGS@
-MPIR_LIBS = @MPIR_LIBS@
-MSGFMT = @MSGFMT@
-MSGMERGE = @MSGMERGE@
-MSGMERGE_FOR_MSGFMT_OPTION = @MSGMERGE_FOR_MSGFMT_OPTION@
-NM = @NM@
-NMEDIT = @NMEDIT@
-OBJDUMP = @OBJDUMP@
-OBJEXT = @OBJEXT@
-OTOOL = @OTOOL@
-OTOOL64 = @OTOOL64@
-PACKAGE = @PACKAGE@
-PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
-PACKAGE_NAME = @PACKAGE_NAME@
-PACKAGE_STRING = @PACKAGE_STRING@
-PACKAGE_TARNAME = @PACKAGE_TARNAME@
-PACKAGE_URL = @PACKAGE_URL@
-PACKAGE_VERSION = @PACKAGE_VERSION@
-PATH_SEPARATOR = @PATH_SEPARATOR@
-PERL = @PERL@
-PKG_CONFIG = @PKG_CONFIG@
-PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@
-PKG_CONFIG_PATH = @PKG_CONFIG_PATH@
-POSUB = @POSUB@
-PROGRAMS_LIBS = @PROGRAMS_LIBS@
-QUOTE_INCLUDE_FLAG = @QUOTE_INCLUDE_FLAG@
-RANLIB = @RANLIB@
-RC = @RC@
-SED = @SED@
-SET_MAKE = @SET_MAKE@
-SHELL = @SHELL@
-STRIP = @STRIP@
-USE_NLS = @USE_NLS@
-VERSION = @VERSION@
-XGETTEXT = @XGETTEXT@
-XGETTEXT_015 = @XGETTEXT_015@
-XGETTEXT_EXTRA_OPTIONS = @XGETTEXT_EXTRA_OPTIONS@
-XML2_CFLAGS = @XML2_CFLAGS@
-XML2_CONFIG = @XML2_CONFIG@
-XML2_LIBS = @XML2_LIBS@
-YACC = @YACC@
-YFLAGS = @YFLAGS@
-abs_builddir = @abs_builddir@
-abs_srcdir = @abs_srcdir@
-abs_top_builddir = @abs_top_builddir@
-abs_top_srcdir = @abs_top_srcdir@
-ac_ct_AR = @ac_ct_AR@
-ac_ct_CC = @ac_ct_CC@
-ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
-am__include = @am__include@
-am__leading_dot = @am__leading_dot@
-am__quote = @am__quote@
-am__tar = @am__tar@
-am__untar = @am__untar@
-bindir = @bindir@
-build = @build@
-build_alias = @build_alias@
-build_cpu = @build_cpu@
-build_os = @build_os@
-build_vendor = @build_vendor@
-builddir = @builddir@
-configured_make = @configured_make@
-datadir = @datadir@
-datarootdir = @datarootdir@
-docdir = @docdir@
-dvidir = @dvidir@
-exec_prefix = @exec_prefix@
-host = @host@
-host_alias = @host_alias@
-host_cpu = @host_cpu@
-host_os = @host_os@
-host_vendor = @host_vendor@
-htmldir = @htmldir@
-ifGNUmake = @ifGNUmake@
-ifnGNUmake = @ifnGNUmake@
-includedir = @includedir@
-infodir = @infodir@
-install_sh = @install_sh@
-libdir = @libdir@
-libexecdir = @libexecdir@
-localedir = @localedir@
-localstatedir = @localstatedir@
-mandir = @mandir@
-mkdir_p = @mkdir_p@
-oldincludedir = @oldincludedir@
-pdfdir = @pdfdir@
-prefix = @prefix@
-program_transform_name = @program_transform_name@
-psdir = @psdir@
-runstatedir = @runstatedir@
-sbindir = @sbindir@
-sharedstatedir = @sharedstatedir@
-srcdir = @srcdir@
-sysconfdir = @sysconfdir@
-target_alias = @target_alias@
-top_build_prefix = @top_build_prefix@
-top_builddir = @top_builddir@
-top_srcdir = @top_srcdir@
-lib_LTLIBRARIES = libcob.la
-libcob_la_SOURCES = common.c move.c numeric.c strings.c \
- fileio.c call.c intrinsic.c termio.c screenio.c reportio.c cobgetopt.c \
- mlio.c coblocal.h cconv.c system.def
-
-@LOCAL_CJSON_TRUE@nodist_libcob_la_SOURCES = cJSON.c
-@LOCAL_CJSON_TRUE@DISTCLEANFILES = cJSON.c cJSON.h
-
-#ToDo Man Page
-#dist_man_MANS = libcob.3
-#COBCRUN = cobcrun$(EXEEXT)
-AM_CPPFLAGS = -I$(top_srcdir) -I$(top_builddir)/lib -I$(top_srcdir)/lib \
- $(LIBCOB_CPPFLAGS) -DLOCALEDIR=\"$(localedir)\"
-
-AM_CFLAGS = $(CODE_COVERAGE_CFLAGS)
-# note: currently misses libsupport...
-libcob_la_LIBADD = $(LIBCOB_LIBS) $(CODE_COVERAGE_LIBS)
-libcob_la_LDFLAGS = $(COB_FIX_LIBTOOL) -version-info 6:0:2 -no-undefined
-AM_LDFLAGS = $(COB_FIX_LIB)
-pkginclude_HEADERS = common.h version.h cobgetopt.h \
- exception.def exception-io.def statement.def
-
-@CODE_COVERAGE_ENABLED_TRUE@GITIGNOREFILES := $(GITIGNOREFILES) $(CODE_COVERAGE_OUTPUT_FILE) $(CODE_COVERAGE_OUTPUT_DIRECTORY)
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_lcov_cap = $(code_coverage_v_lcov_cap_$(V))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_lcov_cap_ = $(code_coverage_v_lcov_cap_$(AM_DEFAULT_VERBOSITY))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_lcov_cap_0 = @echo " LCOV --capture" $(CODE_COVERAGE_OUTPUT_FILE);
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_lcov_ign = $(code_coverage_v_lcov_ign_$(V))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_lcov_ign_ = $(code_coverage_v_lcov_ign_$(AM_DEFAULT_VERBOSITY))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_lcov_ign_0 = @echo " LCOV --remove /tmp/*" $(CODE_COVERAGE_IGNORE_PATTERN);
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_genhtml = $(code_coverage_v_genhtml_$(V))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_genhtml_ = $(code_coverage_v_genhtml_$(AM_DEFAULT_VERBOSITY))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_v_genhtml_0 = @echo " GEN " "$(CODE_COVERAGE_OUTPUT_DIRECTORY)";
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_quiet = $(code_coverage_quiet_$(V))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_quiet_ = $(code_coverage_quiet_$(AM_DEFAULT_VERBOSITY))
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_quiet_0 = --quiet
-
-# sanitizes the test-name: replaces with underscores: dashes and dots
-@CODE_COVERAGE_ENABLED_TRUE@code_coverage_sanitize = $(subst -,_,$(subst .,_,$(1)))
-@CODE_COVERAGE_ENABLED_TRUE@AM_DISTCHECK_CONFIGURE_FLAGS := $(AM_DISTCHECK_CONFIGURE_FLAGS) --disable-code-coverage
-CODE_COVERAGE_BRANCH_COVERAGE = 1
-CODE_COVERAGE_LCOV_OPTIONS = --no-external
-all: all-am
-
-.SUFFIXES:
-.SUFFIXES: .c .lo .o .obj
-$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/aminclude_static.am $(am__configure_deps)
- @for dep in $?; do \
- case '$(am__configure_deps)' in \
- *$$dep*) \
- ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
- && { if test -f $@; then exit 0; else break; fi; }; \
- exit 1;; \
- esac; \
- done; \
- echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu libcob/Makefile'; \
- $(am__cd) $(top_srcdir) && \
- $(AUTOMAKE) --gnu libcob/Makefile
-Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
- @case '$?' in \
- *config.status*) \
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
- *) \
- echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__maybe_remake_depfiles)'; \
- cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__maybe_remake_depfiles);; \
- esac;
-$(top_srcdir)/aminclude_static.am $(am__empty):
-
-$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-
-$(top_srcdir)/configure: $(am__configure_deps)
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-$(ACLOCAL_M4): $(am__aclocal_m4_deps)
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-$(am__aclocal_m4_deps):
-
-install-libLTLIBRARIES: $(lib_LTLIBRARIES)
- @$(NORMAL_INSTALL)
- @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \
- list2=; for p in $$list; do \
- if test -f $$p; then \
- list2="$$list2 $$p"; \
- else :; fi; \
- done; \
- test -z "$$list2" || { \
- echo " $(MKDIR_P) '$(DESTDIR)$(libdir)'"; \
- $(MKDIR_P) "$(DESTDIR)$(libdir)" || exit 1; \
- echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(libdir)'"; \
- $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(libdir)"; \
- }
-
-uninstall-libLTLIBRARIES:
- @$(NORMAL_UNINSTALL)
- @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \
- for p in $$list; do \
- $(am__strip_dir) \
- echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$f'"; \
- $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$f"; \
- done
-
-clean-libLTLIBRARIES:
- -test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES)
- @list='$(lib_LTLIBRARIES)'; \
- locs=`for p in $$list; do echo $$p; done | \
- sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \
- sort -u`; \
- test -z "$$locs" || { \
- echo rm -f $${locs}; \
- rm -f $${locs}; \
- }
-
-libcob.la: $(libcob_la_OBJECTS) $(libcob_la_DEPENDENCIES) $(EXTRA_libcob_la_DEPENDENCIES)
- $(AM_V_CCLD)$(libcob_la_LINK) -rpath $(libdir) $(libcob_la_OBJECTS) $(libcob_la_LIBADD) $(LIBS)
-
-mostlyclean-compile:
- -rm -f *.$(OBJEXT)
-
-distclean-compile:
- -rm -f *.tab.c
-
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cJSON.Plo@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/call.Plo@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cconv.Plo@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cobgetopt.Plo@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/common.Plo@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/fileio.Plo@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/intrinsic.Plo@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/mlio.Plo@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/move.Plo@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/numeric.Plo@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/reportio.Plo@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/screenio.Plo@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/strings.Plo@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/termio.Plo@am__quote@ # am--include-marker
-
-$(am__depfiles_remade):
- @$(MKDIR_P) $(@D)
- @echo '# dummy' >$@-t && $(am__mv) $@-t $@
-
-am--depfiles: $(am__depfiles_remade)
-
-.c.o:
-@am__fastdepCC_TRUE@ $(AM_V_CC)$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $<
-@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ $<
-
-.c.obj:
-@am__fastdepCC_TRUE@ $(AM_V_CC)$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'`
-@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ `$(CYGPATH_W) '$<'`
-
-.c.lo:
-@am__fastdepCC_TRUE@ $(AM_V_CC)$(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $<
-@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LTCOMPILE) -c -o $@ $<
-
-mostlyclean-libtool:
- -rm -f *.lo
-
-clean-libtool:
- -rm -rf .libs _libs
-install-pkgincludeHEADERS: $(pkginclude_HEADERS)
- @$(NORMAL_INSTALL)
- @list='$(pkginclude_HEADERS)'; test -n "$(pkgincludedir)" || list=; \
- if test -n "$$list"; then \
- echo " $(MKDIR_P) '$(DESTDIR)$(pkgincludedir)'"; \
- $(MKDIR_P) "$(DESTDIR)$(pkgincludedir)" || exit 1; \
- fi; \
- for p in $$list; do \
- if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
- echo "$$d$$p"; \
- done | $(am__base_list) | \
- while read files; do \
- echo " $(INSTALL_HEADER) $$files '$(DESTDIR)$(pkgincludedir)'"; \
- $(INSTALL_HEADER) $$files "$(DESTDIR)$(pkgincludedir)" || exit $$?; \
- done
-
-uninstall-pkgincludeHEADERS:
- @$(NORMAL_UNINSTALL)
- @list='$(pkginclude_HEADERS)'; test -n "$(pkgincludedir)" || list=; \
- files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \
- dir='$(DESTDIR)$(pkgincludedir)'; $(am__uninstall_files_from_dir)
-
-ID: $(am__tagged_files)
- $(am__define_uniq_tagged_files); mkid -fID $$unique
-tags: tags-am
-TAGS: tags
-
-tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files)
- set x; \
- here=`pwd`; \
- $(am__define_uniq_tagged_files); \
- shift; \
- if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
- test -n "$$unique" || unique=$$empty_fix; \
- if test $$# -gt 0; then \
- $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
- "$$@" $$unique; \
- else \
- $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
- $$unique; \
- fi; \
- fi
-ctags: ctags-am
-
-CTAGS: ctags
-ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files)
- $(am__define_uniq_tagged_files); \
- test -z "$(CTAGS_ARGS)$$unique" \
- || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
- $$unique
-
-GTAGS:
- here=`$(am__cd) $(top_builddir) && pwd` \
- && $(am__cd) $(top_srcdir) \
- && gtags -i $(GTAGS_ARGS) "$$here"
-cscopelist: cscopelist-am
-
-cscopelist-am: $(am__tagged_files)
- list='$(am__tagged_files)'; \
- case "$(srcdir)" in \
- [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \
- *) sdir=$(subdir)/$(srcdir) ;; \
- esac; \
- for i in $$list; do \
- if test -f "$$i"; then \
- echo "$(subdir)/$$i"; \
- else \
- echo "$$sdir/$$i"; \
- fi; \
- done >> $(top_builddir)/cscope.files
-
-distclean-tags:
- -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
-
-distdir: $(BUILT_SOURCES)
- $(MAKE) $(AM_MAKEFLAGS) distdir-am
-
-distdir-am: $(DISTFILES)
- @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
- topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
- list='$(DISTFILES)'; \
- dist_files=`for file in $$list; do echo $$file; done | \
- sed -e "s|^$$srcdirstrip/||;t" \
- -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
- case $$dist_files in \
- */*) $(MKDIR_P) `echo "$$dist_files" | \
- sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
- sort -u` ;; \
- esac; \
- for file in $$dist_files; do \
- if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
- if test -d $$d/$$file; then \
- dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
- if test -d "$(distdir)/$$file"; then \
- find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
- fi; \
- if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
- cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
- find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
- fi; \
- cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
- else \
- test -f "$(distdir)/$$file" \
- || cp -p $$d/$$file "$(distdir)/$$file" \
- || exit 1; \
- fi; \
- done
-check-am: all-am
-check: check-am
-all-am: Makefile $(LTLIBRARIES) $(HEADERS)
-installdirs:
- for dir in "$(DESTDIR)$(libdir)" "$(DESTDIR)$(pkgincludedir)"; do \
- test -z "$$dir" || $(MKDIR_P) "$$dir"; \
- done
-install: install-am
-install-exec: install-exec-am
-install-data: install-data-am
-uninstall: uninstall-am
-
-install-am: all-am
- @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
-
-installcheck: installcheck-am
-install-strip:
- if test -z '$(STRIP)'; then \
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- install; \
- else \
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
- fi
-mostlyclean-generic:
-
-clean-generic:
-
-distclean-generic:
- -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
- -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
- -test -z "$(DISTCLEANFILES)" || rm -f $(DISTCLEANFILES)
-
-maintainer-clean-generic:
- @echo "This command is intended for maintainers to use"
- @echo "it deletes files that may require special tools to rebuild."
-clean: clean-am
-
-clean-am: clean-generic clean-libLTLIBRARIES clean-libtool clean-local \
- mostlyclean-am
-
-distclean: distclean-am
- -rm -f ./$(DEPDIR)/cJSON.Plo
- -rm -f ./$(DEPDIR)/call.Plo
- -rm -f ./$(DEPDIR)/cconv.Plo
- -rm -f ./$(DEPDIR)/cobgetopt.Plo
- -rm -f ./$(DEPDIR)/common.Plo
- -rm -f ./$(DEPDIR)/fileio.Plo
- -rm -f ./$(DEPDIR)/intrinsic.Plo
- -rm -f ./$(DEPDIR)/mlio.Plo
- -rm -f ./$(DEPDIR)/move.Plo
- -rm -f ./$(DEPDIR)/numeric.Plo
- -rm -f ./$(DEPDIR)/reportio.Plo
- -rm -f ./$(DEPDIR)/screenio.Plo
- -rm -f ./$(DEPDIR)/strings.Plo
- -rm -f ./$(DEPDIR)/termio.Plo
- -rm -f Makefile
-distclean-am: clean-am distclean-compile distclean-generic \
- distclean-tags
-
-dvi: dvi-am
-
-dvi-am:
-
-html: html-am
-
-html-am:
-
-info: info-am
-
-info-am:
-
-install-data-am: install-pkgincludeHEADERS
-
-install-dvi: install-dvi-am
-
-install-dvi-am:
-
-install-exec-am: install-libLTLIBRARIES
-
-install-html: install-html-am
-
-install-html-am:
-
-install-info: install-info-am
-
-install-info-am:
-
-install-man:
-
-install-pdf: install-pdf-am
-
-install-pdf-am:
-
-install-ps: install-ps-am
-
-install-ps-am:
-
-installcheck-am:
-
-maintainer-clean: maintainer-clean-am
- -rm -f ./$(DEPDIR)/cJSON.Plo
- -rm -f ./$(DEPDIR)/call.Plo
- -rm -f ./$(DEPDIR)/cconv.Plo
- -rm -f ./$(DEPDIR)/cobgetopt.Plo
- -rm -f ./$(DEPDIR)/common.Plo
- -rm -f ./$(DEPDIR)/fileio.Plo
- -rm -f ./$(DEPDIR)/intrinsic.Plo
- -rm -f ./$(DEPDIR)/mlio.Plo
- -rm -f ./$(DEPDIR)/move.Plo
- -rm -f ./$(DEPDIR)/numeric.Plo
- -rm -f ./$(DEPDIR)/reportio.Plo
- -rm -f ./$(DEPDIR)/screenio.Plo
- -rm -f ./$(DEPDIR)/strings.Plo
- -rm -f ./$(DEPDIR)/termio.Plo
- -rm -f Makefile
-maintainer-clean-am: distclean-am maintainer-clean-generic
-
-mostlyclean: mostlyclean-am
-
-mostlyclean-am: mostlyclean-compile mostlyclean-generic \
- mostlyclean-libtool
-
-pdf: pdf-am
-
-pdf-am:
-
-ps: ps-am
-
-ps-am:
-
-uninstall-am: uninstall-libLTLIBRARIES uninstall-pkgincludeHEADERS
-
-.MAKE: install-am install-strip
-
-.PHONY: CTAGS GTAGS TAGS all all-am am--depfiles check check-am clean \
- clean-generic clean-libLTLIBRARIES clean-libtool clean-local \
- cscopelist-am ctags ctags-am distclean distclean-compile \
- distclean-generic distclean-libtool distclean-tags distdir dvi \
- dvi-am html html-am info info-am install install-am \
- install-data install-data-am install-dvi install-dvi-am \
- install-exec install-exec-am install-html install-html-am \
- install-info install-info-am install-libLTLIBRARIES \
- install-man install-pdf install-pdf-am \
- install-pkgincludeHEADERS install-ps install-ps-am \
- install-strip installcheck installcheck-am installdirs \
- maintainer-clean maintainer-clean-generic mostlyclean \
- mostlyclean-compile mostlyclean-generic mostlyclean-libtool \
- pdf pdf-am ps ps-am tags tags-am uninstall uninstall-am \
- uninstall-libLTLIBRARIES uninstall-pkgincludeHEADERS
-
-.PRECIOUS: Makefile
-
-
-# Code coverage
-#
-# Optional:
-# - CODE_COVERAGE_DIRECTORY: Top-level directory for code coverage reporting.
-# Multiple directories may be specified, separated by whitespace.
-# (Default: $(top_builddir))
-# - CODE_COVERAGE_OUTPUT_FILE: Filename and path for the .info file generated
-# by lcov for code coverage. (Default:
-# $(PACKAGE_NAME)-$(PACKAGE_VERSION)-coverage.info)
-# - CODE_COVERAGE_OUTPUT_DIRECTORY: Directory for generated code coverage
-# reports to be created. (Default:
-# $(PACKAGE_NAME)-$(PACKAGE_VERSION)-coverage)
-# - CODE_COVERAGE_BRANCH_COVERAGE: Set to 1 to enforce branch coverage,
-# set to 0 to disable it and leave empty to stay with the default.
-# (Default: empty)
-# - CODE_COVERAGE_LCOV_SHOPTS_DEFAULT: Extra options shared between both lcov
-# instances. (Default: based on )
-# - CODE_COVERAGE_LCOV_SHOPTS: Extra options to shared between both lcov
-# instances. (Default: )
-# - CODE_COVERAGE_LCOV_OPTIONS_GCOVPATH: --gcov-tool pathtogcov
-# - CODE_COVERAGE_LCOV_OPTIONS_DEFAULT: Extra options to pass to the
-# collecting lcov instance. (Default: )
-# - CODE_COVERAGE_LCOV_OPTIONS: Extra options to pass to the collecting lcov
-# instance. (Default: )
-# - CODE_COVERAGE_LCOV_RMOPTS_DEFAULT: Extra options to pass to the filtering
-# lcov instance. (Default: empty)
-# - CODE_COVERAGE_LCOV_RMOPTS: Extra options to pass to the filtering lcov
-# instance. (Default: )
-# - CODE_COVERAGE_GENHTML_OPTIONS_DEFAULT: Extra options to pass to the
-# genhtml instance. (Default: based on )
-# - CODE_COVERAGE_GENHTML_OPTIONS: Extra options to pass to the genhtml
-# instance. (Default: )
-# - CODE_COVERAGE_IGNORE_PATTERN: Extra glob pattern of files to ignore
-#
-# The generated report will be titled using the $(PACKAGE_NAME) and
-# $(PACKAGE_VERSION). In order to add the current git hash to the title,
-# use the git-version-gen script, available online.
-# Optional variables
-# run only on top dir
-@CODE_COVERAGE_ENABLED_TRUE@ ifeq ($(abs_builddir), $(abs_top_builddir))
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_DIRECTORY ?= $(top_builddir)
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_OUTPUT_FILE ?= $(PACKAGE_NAME)-$(PACKAGE_VERSION)-coverage.info
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_OUTPUT_DIRECTORY ?= $(PACKAGE_NAME)-$(PACKAGE_VERSION)-coverage
-
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_BRANCH_COVERAGE ?=
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_LCOV_SHOPTS_DEFAULT ?= $(if $(CODE_COVERAGE_BRANCH_COVERAGE),--rc lcov_branch_coverage=$(CODE_COVERAGE_BRANCH_COVERAGE))
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_LCOV_SHOPTS ?= $(CODE_COVERAGE_LCOV_SHOPTS_DEFAULT)
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_LCOV_OPTIONS_GCOVPATH ?= --gcov-tool "$(GCOV)"
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_LCOV_OPTIONS_DEFAULT ?= $(CODE_COVERAGE_LCOV_OPTIONS_GCOVPATH)
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_LCOV_OPTIONS ?= $(CODE_COVERAGE_LCOV_OPTIONS_DEFAULT)
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_LCOV_RMOPTS_DEFAULT ?=
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_LCOV_RMOPTS ?= $(CODE_COVERAGE_LCOV_RMOPTS_DEFAULT)
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_GENHTML_OPTIONS_DEFAULT ?=$(if $(CODE_COVERAGE_BRANCH_COVERAGE),--rc genhtml_branch_coverage=$(CODE_COVERAGE_BRANCH_COVERAGE))
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_GENHTML_OPTIONS ?= $(CODE_COVERAGE_GENHTML_OPTIONS_DEFAULT)
-@CODE_COVERAGE_ENABLED_TRUE@CODE_COVERAGE_IGNORE_PATTERN ?=
-
-# Use recursive makes in order to ignore errors during check
-@CODE_COVERAGE_ENABLED_TRUE@check-code-coverage:
-@CODE_COVERAGE_ENABLED_TRUE@ -$(AM_V_at)$(MAKE) $(AM_MAKEFLAGS) -k check
-@CODE_COVERAGE_ENABLED_TRUE@ $(AM_V_at)$(MAKE) $(AM_MAKEFLAGS) code-coverage-capture
-
-# Capture code coverage data
-@CODE_COVERAGE_ENABLED_TRUE@code-coverage-capture: code-coverage-capture-hook
-@CODE_COVERAGE_ENABLED_TRUE@ $(code_coverage_v_lcov_cap)$(LCOV) $(code_coverage_quiet) $(addprefix --directory ,$(CODE_COVERAGE_DIRECTORY)) --capture --output-file "$(CODE_COVERAGE_OUTPUT_FILE).tmp" --test-name "$(call code_coverage_sanitize,$(PACKAGE_NAME)-$(PACKAGE_VERSION))" --no-checksum --compat-libtool $(CODE_COVERAGE_LCOV_SHOPTS) $(CODE_COVERAGE_LCOV_OPTIONS)
-@CODE_COVERAGE_ENABLED_TRUE@ $(code_coverage_v_lcov_ign)$(LCOV) $(code_coverage_quiet) $(addprefix --directory ,$(CODE_COVERAGE_DIRECTORY)) --remove "$(CODE_COVERAGE_OUTPUT_FILE).tmp" "/tmp/*" $(CODE_COVERAGE_IGNORE_PATTERN) --output-file "$(CODE_COVERAGE_OUTPUT_FILE)" $(CODE_COVERAGE_LCOV_SHOPTS) $(CODE_COVERAGE_LCOV_RMOPTS)
-@CODE_COVERAGE_ENABLED_TRUE@ -@rm -f "$(CODE_COVERAGE_OUTPUT_FILE).tmp"
-@CODE_COVERAGE_ENABLED_TRUE@ $(code_coverage_v_genhtml)LANG=C $(GENHTML) $(code_coverage_quiet) $(addprefix --prefix ,$(CODE_COVERAGE_DIRECTORY)) --output-directory "$(CODE_COVERAGE_OUTPUT_DIRECTORY)" --title "$(PACKAGE_NAME)-$(PACKAGE_VERSION) Code Coverage" --legend --show-details "$(CODE_COVERAGE_OUTPUT_FILE)" $(CODE_COVERAGE_GENHTML_OPTIONS)
-@CODE_COVERAGE_ENABLED_TRUE@ @echo "file://$(abs_builddir)/$(CODE_COVERAGE_OUTPUT_DIRECTORY)/index.html"
-
-@CODE_COVERAGE_ENABLED_TRUE@code-coverage-clean:
-@CODE_COVERAGE_ENABLED_TRUE@ -$(LCOV) --directory $(top_builddir) -z
-@CODE_COVERAGE_ENABLED_TRUE@ -rm -rf "$(CODE_COVERAGE_OUTPUT_FILE)" "$(CODE_COVERAGE_OUTPUT_FILE).tmp" "$(CODE_COVERAGE_OUTPUT_DIRECTORY)"
-@CODE_COVERAGE_ENABLED_TRUE@ -find . \( -name "*.gcda" -o -name "*.gcno" -o -name "*.gcov" \) -delete
-
-@CODE_COVERAGE_ENABLED_TRUE@code-coverage-dist-clean:
-@CODE_COVERAGE_ENABLED_TRUE@ else # ifneq ($(abs_builddir), $(abs_top_builddir))
-@CODE_COVERAGE_ENABLED_TRUE@check-code-coverage:
-
-@CODE_COVERAGE_ENABLED_TRUE@code-coverage-capture: code-coverage-capture-hook
-
-@CODE_COVERAGE_ENABLED_TRUE@code-coverage-clean:
-
-@CODE_COVERAGE_ENABLED_TRUE@code-coverage-dist-clean:
-@CODE_COVERAGE_ENABLED_TRUE@ endif # ifeq ($(abs_builddir), $(abs_top_builddir))
-# Use recursive makes in order to ignore errors during check
-@CODE_COVERAGE_ENABLED_FALSE@check-code-coverage:
-@CODE_COVERAGE_ENABLED_FALSE@ @echo "Need to reconfigure with --enable-code-coverage"
-# Capture code coverage data
-@CODE_COVERAGE_ENABLED_FALSE@code-coverage-capture: code-coverage-capture-hook
-@CODE_COVERAGE_ENABLED_FALSE@ @echo "Need to reconfigure with --enable-code-coverage"
-
-@CODE_COVERAGE_ENABLED_FALSE@code-coverage-clean:
-
-@CODE_COVERAGE_ENABLED_FALSE@code-coverage-dist-clean:
-
-# Hook rule executed before code-coverage-capture, overridable by the user
-code-coverage-capture-hook:
-
-.PHONY: check-code-coverage code-coverage-capture code-coverage-dist-clean code-coverage-clean code-coverage-capture-hook
-
-# Add rules for code-coverage testing, as provided by AX_CODE_COVERAGE
-
-clean-local: code-coverage-clean
-dist-clean-local: code-coverage-dist-clean
-
-#HELPSOURCES = $(top_srcdir)/bin/cobcrun.c $(top_srcdir)/configure.ac
-#HELP2MAN_OPTS = --info-page=$(PACKAGE) -specialflag
-#if MAKE_HAS_PREREQ_ONLY
-#libcob.3: $(HELPSOURCES) | $(COBCRUN)
-# "$(top_builddir)/pre-inst-env" $(HELP2MAN) --output=$@ $(HELP2MAN_OPTS) $(COBCRUN)
-#else
-#libcob.3: $(HELPSOURCES)
-# "$(top_builddir)/pre-inst-env" $(HELP2MAN) --output=$@ $(HELP2MAN_OPTS) $(COBCRUN)
-#endif
-
-# Tell versions [3.59,3.63) of GNU make to not export all variables.
-# Otherwise a system limit (for SysV at least) may be exceeded.
-.NOEXPORT:
diff --git a/po/de.gmo b/po/de.gmo
deleted file mode 100644
index df8e4be..0000000
Binary files a/po/de.gmo and /dev/null differ
diff --git a/po/en@boldquot.gmo b/po/en@boldquot.gmo
deleted file mode 100644
index 3e8ea09..0000000
Binary files a/po/en@boldquot.gmo and /dev/null differ
diff --git a/po/en@boldquot.po b/po/en@boldquot.po
deleted file mode 100644
index 0b37d12..0000000
--- a/po/en@boldquot.po
+++ /dev/null
@@ -1,7170 +0,0 @@
-# English translations for gnucobol package.
-# Copyright (C) 2023 Free Software Foundation, Inc.
-# This file is distributed under the same license as the gnucobol package.
-# Automatically generated, 2023.
-#
-# All this catalog "translates" are quotation characters.
-# The msgids must be ASCII and therefore cannot contain real quotation
-# characters, only substitutes like grave accent (0x60), apostrophe (0x27)
-# and double quote (0x22). These substitutes look strange; see
-# http://www.cl.cam.ac.uk/~mgk25/ucs/quotes.html
-#
-# This catalog translates grave accent (0x60) and apostrophe (0x27) to
-# left single quotation mark (U+2018) and right single quotation mark (U+2019).
-# It also translates pairs of apostrophe (0x27) to
-# left single quotation mark (U+2018) and right single quotation mark (U+2019)
-# and pairs of quotation mark (0x22) to
-# left double quotation mark (U+201C) and right double quotation mark (U+201D).
-#
-# When output to an UTF-8 terminal, the quotation characters appear perfectly.
-# When output to an ISO-8859-1 terminal, the single quotation marks are
-# transliterated to apostrophes (by iconv in glibc 2.2 or newer) or to
-# grave/acute accent (by libiconv), and the double quotation marks are
-# transliterated to 0x22.
-# When output to an ASCII terminal, the single quotation marks are
-# transliterated to apostrophes, and the double quotation marks are
-# transliterated to 0x22.
-#
-# This catalog furthermore displays the text between the quotation marks in
-# bold face, assuming the VT100/XTerm escape sequences.
-#
-msgid ""
-msgstr ""
-"Project-Id-Version: gnucobol 3.2\n"
-"Report-Msgid-Bugs-To: gnucobol-messages@gnu.org\n"
-"POT-Creation-Date: 2023-07-28 19:20+0200\n"
-"PO-Revision-Date: 2023-07-28 19:20+0200\n"
-"Last-Translator: Automatically generated\n"
-"Language-Team: none\n"
-"Language: en@boldquot\n"
-"MIME-Version: 1.0\n"
-"Content-Type: text/plain; charset=UTF-8\n"
-"Content-Transfer-Encoding: 8bit\n"
-"Plural-Forms: nplurals=2; plural=(n != 1);\n"
-
-#: cobc/cobc.c:116 cobc/codegen.c:2655 cobc/scanner.l:1375
-#, c-format
-msgid "invalid parameter: %s"
-msgstr "invalid parameter: %s"
-
-#: cobc/cobc.c:171 cobc/cobc.c:2392 cobc/cobc.c:2395 cobc/parser.y:895
-#: cobc/reserved.c:4039 libcob/common.c:235 libcob/common.c:1369
-#: libcob/common.c:2698 libcob/common.c:2702 libcob/common.c:2740
-#: libcob/common.c:2778 libcob/common.c:2939 libcob/common.c:8159
-#: libcob/common.c:9191 libcob/common.c:10209 libcob/common.c:10284
-#: libcob/common.c:10731
-msgid "unknown"
-msgstr "unknown"
-
-#: cobc/cobc.c:905
-msgid "internal compiler error"
-msgstr "internal compiler error"
-
-#: cobc/cobc.c:971 cobc/cobc.c:1058 cobc/cobc.c:1120 cobc/cobc.c:1196
-#: cobc/cobc.c:1236 cobc/cobc.c:1312
-#, c-format
-msgid "cannot allocate %d bytes of memory"
-msgstr "cannot allocate %d bytes of memory"
-
-#: cobc/cobc.c:984 cobc/cobc.c:1000 cobc/cobc.c:1020 cobc/cobc.c:1079
-#: cobc/cobc.c:1098 cobc/cobc.c:1216 cobc/cobc.c:1331 cobc/cobc.c:1415
-#: cobc/field.c:2346 libcob/common.c:9012
-#, c-format
-msgid "call to %s with NULL pointer"
-msgstr "call to %s with NULL pointer"
-
-#: cobc/cobc.c:1041
-#, c-format
-msgid "cannot reallocate %d bytes of memory"
-msgstr "cannot reallocate %d bytes of memory"
-
-#: cobc/cobc.c:1137 cobc/cobc.c:1253
-msgid "attempt to reallocate non-allocated memory"
-msgstr "attempt to reallocate non-allocated memory"
-
-#: cobc/cobc.c:1170 cobc/cobc.c:1286
-#, c-format
-msgid "call to %s with invalid pointer, as it is missing in list"
-msgstr "call to %s with invalid pointer, as it is missing in list"
-
-#: cobc/cobc.c:1540
-#, c-format
-msgid "assuming literal for unquoted '%s'"
-msgstr "assuming literal for unquoted ‘[1m%s[0m’"
-
-#: cobc/cobc.c:1587
-msgid " - length exceeds maximum"
-msgstr " - length exceeds maximum"
-
-#: cobc/cobc.c:1591
-msgid " - name cannot be empty"
-msgstr " - name cannot be empty"
-
-#: cobc/cobc.c:1594
-msgid " - name cannot begin with space or hyphen"
-msgstr " - name cannot begin with space or hyphen"
-
-#: cobc/cobc.c:1597
-msgid " - name cannot begin with 'cob_' or 'COB_'"
-msgstr " - name cannot begin with ‘[1mcob_[0m’ or ‘[1mCOB_[0m’"
-
-#: cobc/cobc.c:1600
-msgid " - name duplicates a 'C' keyword"
-msgstr " - name duplicates a ‘[1mC[0m’ keyword"
-
-#: cobc/cobc.c:1603
-msgid " - name cannot contain a directory separator"
-msgstr " - name cannot contain a directory separator"
-
-#: cobc/cobc.c:1612
-#, c-format
-msgid "invalid file base name '%s'%s"
-msgstr "invalid file base name '%s'%s"
-
-#: cobc/cobc.c:1616
-#, c-format
-msgid "invalid ENTRY '%s'%s"
-msgstr "invalid ENTRY '%s'%s"
-
-#: cobc/cobc.c:1619
-#, c-format
-msgid "invalid PROGRAM-ID '%s'%s"
-msgstr "invalid PROGRAM-ID '%s'%s"
-
-#: cobc/cobc.c:1751
-#, c-format
-msgid "file '%s' does not exist"
-msgstr "file ‘[1m%s[0m’ does not exist"
-
-#: cobc/cobc.c:1777
-#, c-format
-msgid "duplicate exception '%s'"
-msgstr "duplicate exception ‘[1m%s[0m’"
-
-#: cobc/cobc.c:1825
-#, c-format
-msgid "invalid exception-name: %s"
-msgstr "invalid exception-name: %s"
-
-#: cobc/cobc.c:1998 cobc/cobc.c:9211
-msgid "please check environment variables as noted above"
-msgstr "please check environment variables as noted above"
-
-#: cobc/cobc.c:2010 cobc/error.c:140
-msgid "error: "
-msgstr "error: "
-
-#: cobc/cobc.c:2033
-#, c-format
-msgid "duplicate DEFINE '%s' - ignored"
-msgstr "duplicate DEFINE ‘[1m%s[0m’ - ignored"
-
-#: cobc/cobc.c:2086
-#, c-format
-msgid "environment variable '%s' is '%s'; should not contain '%c'"
-msgstr "environment variable ‘[1m%s[0m’ is '%s'; should not contain ‘[1m%c[0m’"
-
-#: cobc/cobc.c:2116
-msgid "parameter buffer size exceeded"
-msgstr "parameter buffer size exceeded"
-
-#: cobc/cobc.c:2156
-#, c-format
-msgid "warning: could not move temporary file to %s"
-msgstr "warning: could not move temporary file to %s"
-
-#: cobc/cobc.c:2329
-#, c-format
-msgid "environment variable '%s' has invalid content"
-msgstr "environment variable ‘[1m%s[0m’ has invalid content"
-
-#: cobc/cobc.c:2398
-#, c-format
-msgid "aborting compile of %s at line %d (%s: %s)"
-msgstr "aborting compile of %s at line %d (%s: %s)"
-
-#: cobc/cobc.c:2402
-#, c-format
-msgid "aborting codegen for %s, last statement at line %d (%s: %s)"
-msgstr "aborting codegen for %s, last statement at line %d (%s: %s)"
-
-#: cobc/cobc.c:2405
-#, c-format
-msgid "aborting codegen for %s (%s: %s)"
-msgstr "aborting codegen for %s (%s: %s)"
-
-#: cobc/cobc.c:2410
-msgid "aborting"
-msgstr "aborting"
-
-#: cobc/cobc.c:2488 libcob/common.c:3107 libcob/common.c:8970 bin/cobcrun.c:373
-#, c-format
-msgid "Please report this!"
-msgstr "Please report this!"
-
-#: cobc/cobc.c:2505 bin/cobcrun.c:100
-#, c-format
-msgid "License GPLv3+: GNU GPL version 3 or later <%s>"
-msgstr "License GPLv3+: GNU GPL version 3 or later <%s>"
-
-#: cobc/cobc.c:2507 libcob/common.c:9558 bin/cobcrun.c:102
-msgid ""
-"This is free software; see the source for copying conditions. There is NO\n"
-"warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE."
-msgstr ""
-"This is free software; see the source for copying conditions. There is NO\n"
-"warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE."
-
-#: cobc/cobc.c:2509 libcob/common.c:9560 bin/cobcrun.c:104
-#, c-format
-msgid "Written by %s"
-msgstr "Written by %s"
-
-#. TRANSLATORS: This msgid is intended as the "Packaged" msgid, %s expands to date and time
-#: cobc/cobc.c:2511 cobc/cobc.c:2524 libcob/common.c:9564 bin/cobcrun.c:106
-#, c-format
-msgid "Built %s"
-msgstr "Built %s"
-
-#. TRANSLATORS: This msgid is intended as the "Built" msgid, %s expands to date and time
-#: cobc/cobc.c:2513 cobc/cobc.c:2526 libcob/common.c:9567 bin/cobcrun.c:108
-#, c-format
-msgid "Packaged %s"
-msgstr "Packaged %s"
-
-#: cobc/cobc.c:2515 cobc/cobc.c:2528 cobc/cobc.c:2637 libcob/common.c:9604
-msgid "C version"
-msgstr "C version"
-
-#: cobc/cobc.c:2541 libcob/common.c:1075
-msgid "executing:"
-msgstr "executing:"
-
-#: cobc/cobc.c:2543
-msgid "to be executed:"
-msgstr "to be executed:"
-
-#: cobc/cobc.c:2581 cobc/cobc.c:2582 libcob/common.c:7632 libcob/common.c:7633
-#: libcob/common.c:7664 libcob/common.c:7665
-msgid "env"
-msgstr "env"
-
-#: cobc/cobc.c:2633 libcob/common.c:9600
-msgid "build information"
-msgstr "build information"
-
-#: cobc/cobc.c:2634 libcob/common.c:9601
-msgid "build environment"
-msgstr "build environment"
-
-#: cobc/cobc.c:2643 libcob/common.c:9611
-msgid "GnuCOBOL information"
-msgstr "GnuCOBOL information"
-
-#: cobc/cobc.c:2651 cobc/cobc.c:2739 cobc/cobc.c:2755 libcob/common.c:9233
-#: libcob/common.c:9594 libcob/common.c:9595 libcob/common.c:9629
-#: libcob/common.c:9695 libcob/common.c:9717 libcob/common.c:9751
-msgid "disabled"
-msgstr "disabled"
-
-#: cobc/cobc.c:2687 cobc/cobc.c:2705 libcob/common.c:8179 libcob/common.c:9221
-#: libcob/common.c:9230 libcob/common.c:9633 libcob/common.c:9651
-msgid "yes"
-msgstr "yes"
-
-#: cobc/cobc.c:2689 cobc/cobc.c:2707 libcob/common.c:8181 libcob/common.c:9223
-#: libcob/common.c:9635 libcob/common.c:9653
-msgid "no"
-msgstr "no"
-
-#: cobc/cobc.c:2693 libcob/common.c:9639
-msgid "8 bytes"
-msgstr "8 bytes"
-
-#: cobc/cobc.c:2695 libcob/common.c:9641
-msgid "4 bytes"
-msgstr "4 bytes"
-
-#: cobc/cobc.c:2699 cobc/cobc.c:2701 libcob/common.c:9645 libcob/common.c:9647
-msgid "endianness"
-msgstr "endianness"
-
-#: cobc/cobc.c:2699 libcob/common.c:9645
-msgid "big-endian"
-msgstr "big-endian"
-
-#: cobc/cobc.c:2701 libcob/common.c:9647
-msgid "little-endian"
-msgstr "little-endian"
-
-#: cobc/cobc.c:2705 cobc/cobc.c:2707 libcob/common.c:9651 libcob/common.c:9653
-msgid "native EBCDIC"
-msgstr "native EBCDIC"
-
-#: cobc/cobc.c:2710 libcob/common.c:9754
-msgid "extended screen I/O"
-msgstr "extended screen I/O"
-
-#: cobc/cobc.c:2713 libcob/common.c:9657
-msgid "variable file format"
-msgstr "variable file format"
-
-#: cobc/cobc.c:2719 cobc/cobc.c:2721 libcob/common.c:9663 libcob/common.c:9665
-msgid "sequential file handler"
-msgstr "sequential file handler"
-
-#: cobc/cobc.c:2721 libcob/common.c:9665
-msgid "built-in"
-msgstr "built-in"
-
-#: cobc/cobc.c:2725 cobc/cobc.c:2727 cobc/cobc.c:2729 cobc/cobc.c:2731
-#: cobc/cobc.c:2734 cobc/cobc.c:2736 cobc/cobc.c:2739 libcob/common.c:9669
-#: libcob/common.c:9683 libcob/common.c:9685 libcob/common.c:9687
-#: libcob/common.c:9690 libcob/common.c:9692 libcob/common.c:9695
-msgid "indexed file handler"
-msgstr "indexed file handler"
-
-#: cobc/cobc.c:2744 cobc/cobc.c:2746 cobc/cobc.c:2749 libcob/common.c:9701
-msgid "mathematical library"
-msgstr "mathematical library"
-
-#: cobc/cobc.c:2753 cobc/cobc.c:2755 libcob/common.c:9712 libcob/common.c:9717
-msgid "XML library"
-msgstr "XML library"
-
-#: cobc/cobc.c:2758 libcob/common.c:9734 libcob/common.c:9749
-#: libcob/common.c:9751
-msgid "JSON library"
-msgstr "JSON library"
-
-#: cobc/cobc.c:2761 libcob/common.c:9627 libcob/common.c:9758
-msgid "enabled"
-msgstr "enabled"
-
-#: cobc/cobc.c:2768
-msgid "only one of options 'E', 'S', 'C', 'c' may be specified"
-msgstr "only one of options 'E', 'S', 'C', ‘[1mc[0m’ may be specified"
-
-#: cobc/cobc.c:2774
-msgid "only one of options 'm', 'x', 'b' may be specified"
-msgstr "only one of options 'm', 'x', ‘[1mb[0m’ may be specified"
-
-#: cobc/cobc.c:2816
-#, c-format
-msgid "option requires one of 'ALL', 'FD', 'WS', 'LS', 'RD', 'FD', 'SC', 'LO' - not '%s'"
-msgstr "option requires one of 'ALL', 'FD', 'WS', 'LS', 'RD', 'FD', 'SC', ‘[1mLO[0m’ - not ‘[1m%s[0m’"
-
-#: cobc/cobc.c:2846
-#, c-format
-msgid "'%s' is not an intrinsic function"
-msgstr "‘[1m%s[0m’ is not an intrinsic function"
-
-#: cobc/cobc.c:2889 cobc/cobc.c:8507 cobc/cobc.c:8626 cobc/codegen.c:3761
-#: cobc/codegen.c:3864 cobc/codegen.c:5671 cobc/codegen.c:5816
-#: cobc/codegen.c:13429 cobc/parser.y:391 cobc/tree.c:1397 cobc/tree.c:4565
-#: cobc/tree.c:5135 cobc/tree.c:5392 cobc/typeck.c:4497 cobc/typeck.c:9504
-#: cobc/typeck.c:9541 cobc/typeck.c:10418 cobc/typeck.c:13395
-#: cobc/typeck.c:13469 cobc/typeck.c:13537 cobc/typeck.c:13825
-#: cobc/typeck.c:13887 libcob/fileio.c:10094 libcob/fileio.c:10105
-#, c-format
-msgid "call to '%s' with invalid parameter '%s'"
-msgstr "call to ‘[1m%s[0m’ with invalid parameter ‘[1m%s[0m’"
-
-#: cobc/cobc.c:3300
-msgid "loading standard configuration file 'default.conf'"
-msgstr "loading standard configuration file ‘[1mdefault.conf[0m’"
-
-#: cobc/cobc.c:3387
-msgid "the used C compiler is known to not be able to generate assembler code"
-msgstr "the used C compiler is known to not be able to generate assembler code"
-
-#: cobc/cobc.c:3469
-msgid "invalid output file name"
-msgstr "invalid output file name"
-
-#: cobc/cobc.c:3531
-#, c-format
-msgid "warning: '%s' is not a directory, defaulting to current directory"
-msgstr "warning: ‘[1m%s[0m’ is not a directory, defaulting to current directory"
-
-#: cobc/cobc.c:3558
-#, c-format
-msgid "warning: %d lines per listing page specified, using %d"
-msgstr "warning: %d lines per listing page specified, using %d"
-
-#: cobc/cobc.c:3615
-#, c-format
-msgid "warning: assuming '%s' is a DEFINE - did you intend to use -debug?"
-msgstr "warning: assuming ‘[1m%s[0m’ is a DEFINE - did you intend to use -debug?"
-
-#: cobc/cobc.c:3661 cobc/cobc.c:3702 cobc/cobc.c:4281
-#, c-format
-msgid "ignoring nonexistent directory \"%s\""
-msgstr "ignoring nonexistent directory “[1m%s[0mâ€"
-
-#: cobc/cobc.c:3943 cobc/cobc.c:3968 cobc/cobc.c:3996
-#, c-format
-msgid "unknown warning option '%s'"
-msgstr "unknown warning option ‘[1m%s[0m’"
-
-#: cobc/cobc.c:4063
-#, c-format
-msgid "%s option requires a listing file"
-msgstr "%s option requires a listing file"
-
-#: cobc/cobc.c:4070
-msgid "output to stdout only valid for preprocess"
-msgstr "output to stdout only valid for preprocess"
-
-#: cobc/cobc.c:4085
-msgid "-MT must be given to specify target file"
-msgstr "-MT must be given to specify target file"
-
-#: cobc/cobc.c:4091
-msgid "all runtime checks are enabled"
-msgstr "all runtime checks are enabled"
-
-#: cobc/cobc.c:4316
-msgid "only one stdin input allowed"
-msgstr "only one stdin input allowed"
-
-#: cobc/cobc.c:4326
-#, c-format
-msgid "invalid file name parameter (length > %d)"
-msgstr "invalid file name parameter (length > %d)"
-
-#: cobc/cobc.c:4559
-msgid "return status:"
-msgstr "return status:"
-
-#: cobc/cobc.c:4595 libcob/common.c:6391
-#, c-format
-msgid "external process \"%s\" ended with signal %s (%d)"
-msgstr "external process “[1m%s[0m†ended with signal %s (%d)"
-
-#: cobc/cobc.c:4654
-msgid "nothing for -j to run"
-msgstr "nothing for -j to run"
-
-#: cobc/cobc.c:4697 cobc/cobc.c:4711
-#, c-format
-msgid "%s is resolved by environment as: %s"
-msgstr "%s is resolved by environment as: %s"
-
-#: cobc/cobc.c:5175
-msgid "preprocessing:"
-msgstr "preprocessing:"
-
-#: cobc/cobc.c:5244
-msgid "'cobxref' execution unsuccessful"
-msgstr "‘[1mcobxref[0m’ execution unsuccessful"
-
-#: cobc/cobc.c:5247
-#, c-format
-msgid "check that 'cobxref' is in %s"
-msgstr "check that ‘[1mcobxref[0m’ is in %s"
-
-#: cobc/cobc.c:5249
-msgid "no listing produced"
-msgstr "no listing produced"
-
-#: cobc/cobc.c:6234 cobc/cobc.c:6273
-msgid "No fields defined."
-msgstr "No fields defined."
-
-#: cobc/cobc.c:6293
-msgid "No labels defined."
-msgstr "No labels defined."
-
-#: cobc/cobc.c:6324 cobc/cobc.c:9292
-msgid "command line:"
-msgstr "command line:"
-
-#: cobc/cobc.c:6342
-msgid "Error/Warning summary:"
-msgstr "Error/Warning summary:"
-
-#: cobc/cobc.c:6385
-msgid "0 warnings in compilation group"
-msgstr "0 warnings in compilation group"
-
-#: cobc/cobc.c:6389
-msgid "1 warning in compilation group"
-msgstr "1 warning in compilation group"
-
-#: cobc/cobc.c:6393
-#, c-format
-msgid "%d warnings in compilation group"
-msgstr "%d warnings in compilation group"
-
-#: cobc/cobc.c:6399
-msgid "0 errors in compilation group"
-msgstr "0 errors in compilation group"
-
-#: cobc/cobc.c:6403
-msgid "1 error in compilation group"
-msgstr "1 error in compilation group"
-
-#: cobc/cobc.c:6407
-#, c-format
-msgid "%d errors in compilation group"
-msgstr "%d errors in compilation group"
-
-#: cobc/cobc.c:6413
-#, c-format
-msgid "Too many errors in compilation group: %d maximum errors"
-msgstr "Too many errors in compilation group: %d maximum errors"
-
-#: cobc/cobc.c:7028
-#, c-format
-msgid "%s:%d: too many continuation lines"
-msgstr "%s:%d: too many continuation lines"
-
-#: cobc/cobc.c:7956
-msgid "parsing:"
-msgstr "parsing:"
-
-#: cobc/cobc.c:8017
-msgid "translating:"
-msgstr "translating:"
-
-#: cobc/cobc.c:9217
-msgid "no input files"
-msgstr "no input files"
-
-#: cobc/cobc.c:9248
-#, c-format
-msgid "%s option invalid in this combination"
-msgstr "%s option invalid in this combination"
-
-#: cobc/codegen.c:1040 cobc/codegen.c:4506 cobc/codegen.c:11910
-#: cobc/codegen.c:12467
-msgid "unexpected CONSTANT item"
-msgstr "unexpected CONSTANT item"
-
-#: cobc/codegen.c:2921 cobc/codegen.c:3207 cobc/codegen.c:8866 cobc/tree.c:1419
-#, c-format
-msgid "unexpected cast type: %d"
-msgstr "unexpected cast type: %d"
-
-#: cobc/codegen.c:3690 cobc/codegen.c:4455
-#, c-format
-msgid "internal statement stack depth exceeded: %d"
-msgstr "internal statement stack depth exceeded: %d"
-
-#: cobc/codegen.c:3763
-#, c-format
-msgid "%s is not a field"
-msgstr "%s is not a field"
-
-#: cobc/codegen.c:4177 cobc/codegen.c:4279
-#, c-format
-msgid "unexpected function: %s"
-msgstr "unexpected function: %s"
-
-#: cobc/codegen.c:5256
-#, c-format
-msgid "unexpected tree category: %d"
-msgstr "unexpected tree category: %d"
-
-#: cobc/codegen.c:6108
-#, c-format
-msgid "unexpected size: %d"
-msgstr "unexpected size: %d"
-
-#: cobc/codegen.c:7894
-#, c-format
-msgid "No ENTRY FOR GO TO '%s'"
-msgstr "No ENTRY FOR GO TO ‘[1m%s[0m’"
-
-#: cobc/codegen.c:8283 cobc/codegen.c:8609
-#, c-format
-msgid "unexpected handler type: %d"
-msgstr "unexpected handler type: %d"
-
-#: cobc/codegen.c:8887
-#, c-format
-msgid "unexpected tree type: %d"
-msgstr "unexpected tree type: %d"
-
-#: cobc/codegen.c:9776
-msgid "Nested OCCURS in report"
-msgstr "Nested OCCURS in report"
-
-#: cobc/codeoptim.c:2856
-#, c-format
-msgid "unexpected optimization value: %d"
-msgstr "unexpected optimization value: %d"
-
-#: cobc/config.c:164 libcob/common.c:8639 libcob/common.c:8653
-#: libcob/common.c:9136
-#, c-format
-msgid "invalid value '%s' for configuration tag '%s'"
-msgstr "invalid value ‘[1m%s[0m’ for configuration tag ‘[1m%s[0m’"
-
-#: cobc/config.c:167 libcob/common.c:7915 libcob/common.c:7939
-#, c-format
-msgid "should be one of the following values: %s"
-msgstr "should be one of the following values: %s"
-
-#: cobc/config.c:169
-msgid "must be numeric"
-msgstr "must be numeric"
-
-#: cobc/config.c:171 libcob/common.c:8045
-#, c-format
-msgid "maximum value: %lu"
-msgstr "maximum value: %lu"
-
-#: cobc/config.c:173
-#, c-format
-msgid "minimum value: %d"
-msgstr "minimum value: %d"
-
-#: cobc/config.c:204
-#, c-format
-msgid "unsupported value '%s' for configuration tag '%s'"
-msgstr "unsupported value ‘[1m%s[0m’ for configuration tag ‘[1m%s[0m’"
-
-#: cobc/config.c:319 cobc/pplex.l:1264 libcob/common.c:8554
-msgid "recursive inclusion"
-msgstr "recursive inclusion"
-
-#: cobc/config.c:394 libcob/common.c:8606
-msgid "configuration file was included here"
-msgstr "configuration file was included here"
-
-#: cobc/config.c:423
-#, c-format
-msgid "The previous loaded configuration '%s' will be discarded."
-msgstr "The previous loaded configuration ‘[1m%s[0m’ will be discarded."
-
-#: cobc/config.c:459
-msgid "missing definitions:"
-msgstr "missing definitions:"
-
-#: cobc/config.c:461
-#, c-format
-msgid "\tno definition of '%s'"
-msgstr "\tno definition of ‘[1m%s[0m’"
-
-#: cobc/config.c:524
-#, c-format
-msgid "invalid configuration tag '%s'"
-msgstr "invalid configuration tag ‘[1m%s[0m’"
-
-#: cobc/config.c:537 libcob/common.c:8360 libcob/common.c:8444
-#: libcob/common.c:8472
-#, c-format
-msgid "unknown configuration tag '%s'"
-msgstr "unknown configuration tag ‘[1m%s[0m’"
-
-#: cobc/config.c:561
-#, c-format
-msgid "invalid configuration tag '%s' in word-list"
-msgstr "invalid configuration tag ‘[1m%s[0m’ in word-list"
-
-#: cobc/config.c:623
-#, c-format
-msgid "Could not access word list for '%s'"
-msgstr "Could not access word list for ‘[1m%s[0m’"
-
-#: cobc/config.def:47
-msgid "use of complete/fixed reserved words"
-msgstr "use of complete/fixed reserved words"
-
-#: cobc/config.def:52
-msgid "number of spaces that are assumed for tabs"
-msgstr "number of spaces that are assumed for tabs"
-
-#: cobc/config.def:55
-msgid "right margin column number for fixed-form reference-format"
-msgstr "right margin column number for fixed-form reference-format"
-
-#: cobc/config.def:57 cobc/config.def:63
-msgid "<number>"
-msgstr "<number>"
-
-#: cobc/config.def:58
-msgid "maximum number of characters allowed in the PICTURE character-string"
-msgstr "maximum number of characters allowed in the PICTURE character-string"
-
-#: cobc/config.def:61
-msgid "maximum word-length for COBOL (= programmer defined) words"
-msgstr "maximum word-length for COBOL (= programmer defined) words"
-
-#: cobc/config.def:64
-msgid "maximum literal size in general"
-msgstr "maximum literal size in general"
-
-#: cobc/config.def:67
-msgid "maximum numeric literal size"
-msgstr "maximum numeric literal size"
-
-#: cobc/config.def:73
-msgid ""
-"default initialization for fields without VALUE, may be one of\n"
-" * character in quotes\n"
-" * decimal 0..255 representing a character\n"
-" * \"init\" to initialize to PICTURE/USAGE\n"
-" * \"none\" to do no explicit initialization\n"
-" * default: \"init\""
-msgstr ""
-"default initialization for fields without VALUE, may be one of\n"
-" * character in quotes\n"
-" * decimal 0..255 representing a character\n"
-" * “[1minit[0m†to initialize to PICTURE/USAGE\n"
-" * “[1mnone[0m†to do no explicit initialization\n"
-" * default: “[1minit[0mâ€"
-
-#: cobc/config.def:83
-msgid "default reference-format, may be one of: "
-msgstr "default reference-format, may be one of: "
-
-#: cobc/config.def:86
-msgid "binary byte size - defines the allocated bytes according to PIC, may be one of: 2-4-8, 1-2-4-8, 1--8"
-msgstr "binary byte size - defines the allocated bytes according to PIC, may be one of: 2-4-8, 1-2-4-8, 1--8"
-
-#: cobc/config.def:89
-msgid "binary byte order, may be one of: native, big-endian"
-msgstr "binary byte order, may be one of: native, big-endian"
-
-#: cobc/config.def:92
-msgid "how to interpret 'ASSIGN word': as 'ASSIGN EXTERNAL word' or 'ASSIGN DYNAMIC word', may be one of: dynamic, external, ibm (= external), mf (= dynamic)"
-msgstr "how to interpret 'ASSIGN word': as ‘[1mASSIGN EXTERNAL word[0m’ or 'ASSIGN DYNAMIC word', may be one of: dynamic, external, ibm (= external), mf (= dynamic)"
-
-#: cobc/config.def:95
-msgid "which compiler's rules to apply to SCREEN SECTION item clauses, may be one of: acu, gc, mf, rm, std, xopen"
-msgstr "which compiler's rules to apply to SCREEN SECTION item clauses, may be one of: acu, gc, mf, rm, std, xopen"
-
-#: cobc/config.def:98
-msgid "whether DECIMAL-POINT IS COMMA has effect in XML/JSON GENERATE, may be one of: none, xml, json, all"
-msgstr "whether DECIMAL-POINT IS COMMA has effect in XML/JSON GENERATE, may be one of: none, xml, json, all"
-
-#: cobc/config.def:101
-msgid "checking for subscript (only done with EC-BOUND-SUBSCRIPT active), may be one of: full, max, record"
-msgstr "checking for subscript (only done with EC-BOUND-SUBSCRIPT active), may be one of: full, max, record"
-
-#: cobc/config.def:106
-msgid "resolve file names at run time using environment variables"
-msgstr "resolve file names at run time using environment variables"
-
-#: cobc/config.def:109
-msgid "alternate formatting of numeric fields"
-msgstr "alternate formatting of numeric fields"
-
-#: cobc/config.def:112
-msgid "numeric truncation according to ANSI"
-msgstr "numeric truncation according to ANSI"
-
-#: cobc/config.def:115
-msgid "allow non-standard OCCURS DEPENDING ON syntax"
-msgstr "allow non-standard OCCURS DEPENDING ON syntax"
-
-#: cobc/config.def:118
-msgid "adjust items following OCCURS DEPENDING (implies complex-odo)"
-msgstr "adjust items following OCCURS DEPENDING (implies complex-odo)"
-
-#: cobc/config.def:121
-msgid "applies JUSTIFY with VALUE clause"
-msgstr "applies JUSTIFY with VALUE clause"
-
-#: cobc/config.def:124
-msgid "allow REDEFINES to other than last equal level number"
-msgstr "allow REDEFINES to other than last equal level number"
-
-#: cobc/config.def:127
-msgid "allow certain syntax variations (e.g. REDEFINES position)"
-msgstr "allow certain syntax variations (e.g. REDEFINES position)"
-
-#: cobc/config.def:130
-msgid "allow zero length reference-modification (only changed with EC-BOUND-REF-MOD active)"
-msgstr "allow zero length reference-modification (only changed with EC-BOUND-REF-MOD active)"
-
-#: cobc/config.def:133
-msgid "allow non-matching level numbers"
-msgstr "allow non-matching level numbers"
-
-#: cobc/config.def:136
-msgid "require ASSIGN USING items to be in WORKING-STORAGE"
-msgstr "require ASSIGN USING items to be in WORKING-STORAGE"
-
-#: cobc/config.def:139
-msgid "LOCAL-STORAGE SECTION implies RECURSIVE attribute"
-msgstr "LOCAL-STORAGE SECTION implies RECURSIVE attribute"
-
-#: cobc/config.def:142
-msgid "LINKAGE SECTION items remain allocated between invocations"
-msgstr "LINKAGE SECTION items remain allocated between invocations"
-
-#: cobc/config.def:145
-msgid "MOVE operates as on IBM (left to right, byte by byte)"
-msgstr "MOVE operates as on IBM (left to right, byte by byte)"
-
-#: cobc/config.def:148
-msgid "exit point of any currently executing perform is recognized if reached"
-msgstr "exit point of any currently executing perform is recognized if reached"
-
-#: cobc/config.def:151
-msgid "limit precision in intermediate results to precision of final result (less accurate)"
-msgstr "limit precision in intermediate results to precision of final result (less accurate)"
-
-#: cobc/config.def:154
-msgid "evaluate constant expressions at compile time"
-msgstr "evaluate constant expressions at compile time"
-
-#: cobc/config.def:157
-msgid "allow hexadecimal value 'F' for NUMERIC test of signed PACKED DECIMAL field"
-msgstr "allow hexadecimal value ‘[1mF[0m’ for NUMERIC test of signed PACKED DECIMAL field"
-
-#: cobc/config.def:160
-msgid "program names don't lead to a reserved identifier"
-msgstr "program names don't lead to a reserved identifier"
-
-#: cobc/config.def:163
-msgid "set WITH UPDATE clause as default for ACCEPT dest-item, instead of WITH NO UPDATE"
-msgstr "set WITH UPDATE clause as default for ACCEPT dest-item, instead of WITH NO UPDATE"
-
-#: cobc/config.def:166
-msgid "set WITH AUTO clause as default for ACCEPT dest-item, instead of WITH TAB"
-msgstr "set WITH AUTO clause as default for ACCEPT dest-item, instead of WITH TAB"
-
-#: cobc/config.def:169
-msgid "assume CONSOLE IS CRT if not set otherwise"
-msgstr "assume CONSOLE IS CRT if not set otherwise"
-
-#: cobc/config.def:172
-msgid "NO-ECHO hides input with asterisks like SECURE"
-msgstr "NO-ECHO hides input with asterisks like SECURE"
-
-#: cobc/config.def:175
-msgid "assume a field DISPLAY starts at LINE 0 COL 0 (i.e. at the cursor), not LINE 1 COL 1"
-msgstr "assume a field DISPLAY starts at LINE 0 COL 0 (i.e. at the cursor), not LINE 1 COL 1"
-
-#: cobc/config.def:178
-msgid "special behaviour of DISPLAY SPACE/ALL X'01'/ALL X'02'/ALL X'07'"
-msgstr "special behaviour of DISPLAY SPACE/ALL X'01'/ALL X'02'/ALL X'07'"
-
-#: cobc/config.def:181
-msgid "COMP-1 is a 16-bit signed integer"
-msgstr "COMP-1 is a 16-bit signed integer"
-
-#: cobc/config.def:184
-msgid "POINTER is a 64-bit unsigned integer"
-msgstr "POINTER is a 64-bit unsigned integer"
-
-#: cobc/config.def:187
-msgid "imply zero in move of non-numeric literal to numeric items"
-msgstr "imply zero in move of non-numeric literal to numeric items"
-
-#: cobc/config.def:190
-msgid "implicitly define a variable if an ASSIGN DYNAMIC does not match any data item"
-msgstr "implicitly define a variable if an ASSIGN DYNAMIC does not match any data item"
-
-#: cobc/config.def:193
-msgid "specifying device by mnemonic"
-msgstr "specifying device by mnemonic"
-
-#: cobc/config.def:199
-msgid ""
-"check contents of Area A (when reference format supports Area A enforcement),\n"
-" enabled checks include:\n"
-" * division, section, paragraph names, level indicators (FD, SD, RD, and CD),\n"
-" and toplevel numbers (01 and 77) must start in Area A;\n"
-" * statements must not start in Area A; and\n"
-" * separator periods must not be within Area A"
-msgstr ""
-"check contents of Area A (when reference format supports Area A enforcement),\n"
-" enabled checks include:\n"
-" * division, section, paragraph names, level indicators (FD, SD, RD, and CD),\n"
-" and toplevel numbers (01 and 77) must start in Area A;\n"
-" * statements must not start in Area A; and\n"
-" * separator periods must not be within Area A"
-
-#: cobc/config.def:209
-msgid "comment paragraphs in IDENTIFICATION DIVISION (AUTHOR, DATE-WRITTEN, ...)"
-msgstr "comment paragraphs in IDENTIFICATION DIVISION (AUTHOR, DATE-WRITTEN, ...)"
-
-#: cobc/config.def:217
-msgid ""
-"apply partial replacing with literal source operand even when it replaces with spaces only;\n"
-" * \"skip\" prevents such replacements"
-msgstr ""
-"apply partial replacing with literal source operand even when it replaces with spaces only;\n"
-" * “[1mskip[0m†prevents such replacements"
-
-#: cobc/config.def:221
-msgid "MEMORY-SIZE clause"
-msgstr "MEMORY-SIZE clause"
-
-#: cobc/config.def:224
-msgid "MULTIPLE-FILE-TAPE clause"
-msgstr "MULTIPLE-FILE-TAPE clause"
-
-#: cobc/config.def:227
-msgid "LABEL-RECORDS clause"
-msgstr "LABEL-RECORDS clause"
-
-#: cobc/config.def:230
-msgid "VALUE-OF clause"
-msgstr "VALUE-OF clause"
-
-#: cobc/config.def:233
-msgid "DATA-RECORDS clause"
-msgstr "DATA-RECORDS clause"
-
-#: cobc/config.def:236
-msgid "OCCURS clause on top-level"
-msgstr "OCCURS clause on top-level"
-
-#: cobc/config.def:239 cobc/parser.y:7566
-msgid "SAME AS clause"
-msgstr "SAME AS clause"
-
-#: cobc/config.def:242 cobc/parser.y:7904
-msgid "TYPE TO clause"
-msgstr "TYPE TO clause"
-
-#: cobc/config.def:245 cobc/parser.y:7927
-msgid "USAGE type-name"
-msgstr "USAGE type-name"
-
-#: cobc/config.def:248 cobc/parser.y:8563
-msgid "SYNCHRONIZED clause"
-msgstr "SYNCHRONIZED clause"
-
-#: cobc/config.def:251 cobc/parser.y:8566
-msgid "LEFT/RIGHT phrases in SYNCHRONIZED clause"
-msgstr "LEFT/RIGHT phrases in SYNCHRONIZED clause"
-
-#: cobc/config.def:254
-msgid "SPECIAL-NAMES clause"
-msgstr "SPECIAL-NAMES clause"
-
-#: cobc/config.def:257
-msgid "GO TO statement without name"
-msgstr "GO TO statement without name"
-
-#: cobc/config.def:260
-msgid "STOP-literal statement"
-msgstr "STOP-literal statement"
-
-#: cobc/config.def:263
-msgid "STOP-identifier statement"
-msgstr "STOP-identifier statement"
-
-#: cobc/config.def:266
-msgid "STOP ERROR statement"
-msgstr "STOP ERROR statement"
-
-#: cobc/config.def:269
-msgid "DEBUGGING MODE and debugging indicator"
-msgstr "DEBUGGING MODE and debugging indicator"
-
-#: cobc/config.def:275
-msgid "PADDING CHARACTER clause"
-msgstr "PADDING CHARACTER clause"
-
-#: cobc/config.def:278
-msgid "NEXT SENTENCE phrase"
-msgstr "NEXT SENTENCE phrase"
-
-#: cobc/config.def:281
-msgid "listing-directive statements EJECT, SKIP1, SKIP2, SKIP3"
-msgstr "listing-directive statements EJECT, SKIP1, SKIP2, SKIP3"
-
-#: cobc/config.def:284
-msgid "listing-directive statement TITLE"
-msgstr "listing-directive statement TITLE"
-
-#: cobc/config.def:287
-msgid "ENTRY statement"
-msgstr "ENTRY statement"
-
-#: cobc/config.def:290
-msgid "move noninteger to alphanumeric"
-msgstr "move noninteger to alphanumeric"
-
-#: cobc/config.def:293
-msgid "move figurative constants to numeric"
-msgstr "move figurative constants to numeric"
-
-#: cobc/config.def:296
-msgid "move figurative constant SPACE to numeric"
-msgstr "move figurative constant SPACE to numeric"
-
-#: cobc/config.def:299
-msgid "move figurative constant QUOTE to numeric"
-msgstr "move figurative constant QUOTE to numeric"
-
-#: cobc/config.def:302
-msgid "OCCURS DEPENDING ON without to"
-msgstr "OCCURS DEPENDING ON without to"
-
-#: cobc/config.def:305 cobc/parser.y:11443
-msgid "section segments"
-msgstr "section segments"
-
-#: cobc/config.def:308
-msgid "ALTER statement"
-msgstr "ALTER statement"
-
-#: cobc/config.def:311
-msgid "OVERFLOW clause for CALL"
-msgstr "OVERFLOW clause for CALL"
-
-#: cobc/config.def:314
-msgid "boolean literals (B'1010')"
-msgstr "boolean literals (B'1010')"
-
-#: cobc/config.def:317
-msgid "hexadecimal-boolean literals (BX'A')"
-msgstr "hexadecimal-boolean literals (BX'A')"
-
-#: cobc/config.def:320
-msgid "national literals (N'UTF-16 string')"
-msgstr "national literals (N'UTF-16 string')"
-
-#: cobc/config.def:323
-msgid "hexadecimal-national literals (NX'265E')"
-msgstr "hexadecimal-national literals (NX'265E')"
-
-#: cobc/config.def:326
-msgid "non-standard national literals (NC'UTF-16 string')"
-msgstr "non-standard national literals (NC'UTF-16 string')"
-
-#: cobc/config.def:329
-msgid "HP COBOL octal literals (%377)"
-msgstr "HP COBOL octal literals (%377)"
-
-#: cobc/config.def:332
-msgid "ACUCOBOL-GT literals (#B #O #H #X)"
-msgstr "ACUCOBOL-GT literals (#B #O #H #X)"
-
-#: cobc/config.def:335
-msgid "EBCDIC symbolic characters in literals (\" \"135,151,151\"bar\"195, 194\"Z\" for \" foobarBAZ\")"
-msgstr "EBCDIC symbolic characters in literals (“[1m [0mâ€135,151,151“[1mbar[0mâ€195, 194“[1mZ[0m†for “[1m foobarBAZ[0mâ€)"
-
-#: cobc/config.def:338 cobc/pplex.l:2428
-msgid "continuation of COBOL words"
-msgstr "continuation of COBOL words"
-
-#: cobc/config.def:341
-msgid "NOT ON EXCEPTION before ON EXCEPTION"
-msgstr "NOT ON EXCEPTION before ON EXCEPTION"
-
-#: cobc/config.def:344
-msgid "extensions to ACCEPT and DISPLAY"
-msgstr "extensions to ACCEPT and DISPLAY"
-
-#: cobc/config.def:347 cobc/field.c:3645
-msgid "RENAMES of 01-, 66- and 77-level items"
-msgstr "RENAMES of 01-, 66- and 77-level items"
-
-#: cobc/config.def:351
-msgid "allow larger REDEFINES items"
-msgstr "allow larger REDEFINES items"
-
-#: cobc/config.def:354
-msgid "constants defined in SPECIAL-NAMES"
-msgstr "constants defined in SPECIAL-NAMES"
-
-#: cobc/config.def:357
-msgid "constant with level 78 item (note: has left to right precedence in expressions)"
-msgstr "constant with level 78 item (note: has left to right precedence in expressions)"
-
-#: cobc/config.def:360
-msgid "constant with level 01 CONSTANT AS/FROM item"
-msgstr "constant with level 01 CONSTANT AS/FROM item"
-
-#: cobc/config.def:363
-msgid "PERFORM VARYING without BY phrase (implies BY 1)"
-msgstr "PERFORM VARYING without BY phrase (implies BY 1)"
-
-#: cobc/config.def:366
-msgid "references to sections not in DECLARATIVES from within DECLARATIVES"
-msgstr "references to sections not in DECLARATIVES from within DECLARATIVES"
-
-#: cobc/config.def:369 cobc/parser.y:12614 cobc/parser.y:12913
-msgid "CALL/CANCEL with program-prototype-name"
-msgstr "CALL/CANCEL with program-prototype-name"
-
-#: cobc/config.def:372
-msgid "specifying call-convention by mnemonic"
-msgstr "specifying call-convention by mnemonic"
-
-#: cobc/config.def:375
-msgid "specifying call-convention by WITH ... LINKAGE"
-msgstr "specifying call-convention by WITH ... LINKAGE"
-
-#: cobc/config.def:378
-msgid "support for PROCEDURE DIVISION USING OPTIONAL"
-msgstr "support for PROCEDURE DIVISION USING OPTIONAL"
-
-#: cobc/config.def:381
-msgid "numeric literals in VALUE clause of numeric-edited items"
-msgstr "numeric literals in VALUE clause of numeric-edited items"
-
-#: cobc/config.def:384
-msgid "incorrect order of CONFIGURATION SECTION paragraphs"
-msgstr "incorrect order of CONFIGURATION SECTION paragraphs"
-
-#: cobc/config.def:387
-msgid "allow >> DEFINE CONSTANT var AS literal"
-msgstr "allow >> DEFINE CONSTANT var AS literal"
-
-#: cobc/config.def:390
-msgid "REDEFINES clause not following entry-name in definition"
-msgstr "REDEFINES clause not following entry-name in definition"
-
-#: cobc/config.def:393
-msgid "record sizes does not match RECORD clause"
-msgstr "record sizes does not match RECORD clause"
-
-#: cobc/config.def:396 cobc/parser.y:5991 cobc/parser.y:6005 cobc/parser.y:6018
-#: cobc/parser.y:6029
-msgid "RECORD DELIMITER clause"
-msgstr "RECORD DELIMITER clause"
-
-#: cobc/config.def:399
-msgid "BINARY-SEQUENTIAL and LINE-SEQUENTIAL phrases in RECORD DELIMITER"
-msgstr "BINARY-SEQUENTIAL and LINE-SEQUENTIAL phrases in RECORD DELIMITER"
-
-#: cobc/config.def:402 cobc/tree.c:4873
-msgid "RECORD DELIMITER clause on file with fixed-length records"
-msgstr "RECORD DELIMITER clause on file with fixed-length records"
-
-#: cobc/config.def:405
-msgid "missing statement (e.g. empty IF / PERFORM)"
-msgstr "missing statement (e.g. empty IF / PERFORM)"
-
-#: cobc/config.def:408
-msgid "missing period in PROCEDURE DIVISION (when reference format supports Area A enforcement)"
-msgstr "missing period in PROCEDURE DIVISION (when reference format supports Area A enforcement)"
-
-#: cobc/config.def:411
-msgid "zero-length literals, e.g. '' and \"\""
-msgstr "zero-length literals, e.g. ‘[1m[0m’ and \"\""
-
-#: cobc/config.def:414
-msgid "XML GENERATE's phrases other than COUNT IN"
-msgstr "XML GENERATE's phrases other than COUNT IN"
-
-#: cobc/config.def:417 cobc/typeck.c:9017
-msgid "AFTER phrase in CONTINUE statement"
-msgstr "AFTER phrase in CONTINUE statement"
-
-#: cobc/config.def:420
-msgid "ENTRY FOR GO TO and GO TO ENTRY statements"
-msgstr "ENTRY FOR GO TO and GO TO ENTRY statements"
-
-#: cobc/config.def:423 cobc/typeck.c:4642
-msgid "ASSIGN [TO] variable in SELECT"
-msgstr "ASSIGN [TO] variable in SELECT"
-
-#: cobc/config.def:426
-msgid "ASSIGN USING/VARYING variable in SELECT"
-msgstr "ASSIGN USING/VARYING variable in SELECT"
-
-#: cobc/config.def:429
-msgid "ASSIGN EXTERNAL/DYNAMIC in SELECT"
-msgstr "ASSIGN EXTERNAL/DYNAMIC in SELECT"
-
-#: cobc/config.def:432
-msgid "ASSIGN DISK FROM variable in SELECT"
-msgstr "ASSIGN DISK FROM variable in SELECT"
-
-#: cobc/config.def:435
-msgid "VSAM status in FILE STATUS"
-msgstr "VSAM status in FILE STATUS"
-
-#: cobc/config.def:438
-msgid "CALL to own PROGRAM-ID implies RECURSIVE attribute"
-msgstr "CALL to own PROGRAM-ID implies RECURSIVE attribute"
-
-#: cobc/config.def:441
-msgid "DEPENDING clause in RECORD CONTAINS"
-msgstr "DEPENDING clause in RECORD CONTAINS"
-
-#: cobc/config.def:444 cobc/tree.c:3623
-msgid "PICTURE string with 'L' character"
-msgstr "PICTURE string with ‘[1mL[0m’ character"
-
-#: cobc/error.c:141 libcob/common.c:1379 libcob/common.c:8715
-#: libcob/common.c:8766
-#, c-format
-msgid "warning: "
-msgstr "warning: "
-
-#: cobc/error.c:142 libcob/common.c:8784
-msgid "note: "
-msgstr "note: "
-
-#: cobc/error.c:162
-#, c-format
-msgid "in section '%s':"
-msgstr "in section '%s':"
-
-#: cobc/error.c:173
-#, c-format
-msgid "in paragraph '%s':"
-msgstr "in paragraph '%s':"
-
-#: cobc/error.c:227 cobc/error.c:231 cobc/error.c:234
-msgid "too many errors"
-msgstr "too many errors"
-
-#: cobc/error.c:243
-#, c-format
-msgid "in file included from "
-msgstr "in file included from "
-
-#: cobc/error.c:261 libcob/common.c:9146
-msgid "configuration error:"
-msgstr "configuration error:"
-
-#: cobc/error.c:274 libcob/common.c:920
-#, c-format
-msgid "system error %d"
-msgstr "system error %d"
-
-#: cobc/error.c:616 cobc/error.c:632 cobc/error.c:971 cobc/error.c:992
-#, c-format
-msgid "%s used"
-msgstr "%s used"
-
-#: cobc/error.c:619 cobc/error.c:974
-#, c-format
-msgid "%s is archaic in %s"
-msgstr "%s is archaic in %s"
-
-#: cobc/error.c:623 cobc/error.c:978
-#, c-format
-msgid "%s is obsolete in %s"
-msgstr "%s is obsolete in %s"
-
-#: cobc/error.c:629 cobc/error.c:984 cobc/parser.y:5993
-#, c-format
-msgid "%s ignored"
-msgstr "%s ignored"
-
-#: cobc/error.c:635 cobc/error.c:994
-#, c-format
-msgid "%s does not conform to %s"
-msgstr "%s does not conform to %s"
-
-#: cobc/error.c:651
-msgid "configuration warning:"
-msgstr "configuration warning:"
-
-#: cobc/error.c:1040 cobc/error.c:1069
-#, c-format
-msgid "redefinition of '%s'"
-msgstr "redefinition of ‘[1m%s[0m’"
-
-#: cobc/error.c:1046 cobc/error.c:1080
-#, c-format
-msgid "'%s' previously defined here"
-msgstr "‘[1m%s[0m’ previously defined here"
-
-#: cobc/error.c:1124 cobc/error.c:1130
-#, c-format
-msgid "'%s' is not defined"
-msgstr "‘[1m%s[0m’ is not defined"
-
-#: cobc/error.c:1126
-#, c-format
-msgid "'%s' cannot be used here"
-msgstr "‘[1m%s[0m’ cannot be used here"
-
-#: cobc/error.c:1128 cobc/parser.y:7941
-#, c-format
-msgid "'%s' is not defined, but is a reserved word in another dialect"
-msgstr "‘[1m%s[0m’ is not defined, but is a reserved word in another dialect"
-
-#: cobc/error.c:1167
-#, c-format
-msgid "'%s' is ambiguous; needs qualification"
-msgstr "‘[1m%s[0m’ is ambiguous; needs qualification"
-
-#: cobc/error.c:1197
-#, c-format
-msgid "'%s' is a special register"
-msgstr "‘[1m%s[0m’ is a special register"
-
-#: cobc/error.c:1200
-#, c-format
-msgid "'%s' internally defined"
-msgstr "‘[1m%s[0m’ internally defined"
-
-#: cobc/error.c:1204 cobc/parser.y:18772 cobc/parser.y:18777 cobc/typeck.c:5166
-#: cobc/typeck.c:5213 cobc/typeck.c:5214
-#, c-format
-msgid "'%s' defined here"
-msgstr "‘[1m%s[0m’ defined here"
-
-#: cobc/error.c:1215
-#, c-format
-msgid "fatal error: %s"
-msgstr "fatal error: %s"
-
-#: cobc/error.c:1224
-#, c-format
-msgid "group item '%s' cannot have %s clause"
-msgstr "group item ‘[1m%s[0m’ cannot have %s clause"
-
-#: cobc/error.c:1239
-#, c-format
-msgid "constant item '%s' requires a %s clause"
-msgstr "constant item ‘[1m%s[0m’ requires a %s clause"
-
-#: cobc/error.c:1243
-#, c-format
-msgid "level %02d item '%s' requires a %s clause"
-msgstr "level %02d item ‘[1m%s[0m’ requires a %s clause"
-
-#: cobc/error.c:1258
-#, c-format
-msgid "constant item '%s' can only have a %s clause"
-msgstr "constant item ‘[1m%s[0m’ can only have a %s clause"
-
-#: cobc/error.c:1262
-#, c-format
-msgid "level %02d item '%s' can only have a %s clause"
-msgstr "level %02d item ‘[1m%s[0m’ can only have a %s clause"
-
-#: cobc/field.c:139
-msgid "constant expression has Divide by ZERO"
-msgstr "constant expression has Divide by ZERO"
-
-#: cobc/field.c:195 cobc/field.c:332 cobc/field.c:340
-msgid "missing right parenthesis"
-msgstr "missing right parenthesis"
-
-#: cobc/field.c:224
-#, c-format
-msgid "expression stack overflow at %d entries for operation '%c'"
-msgstr "expression stack overflow at %d entries for operation ‘[1m%c[0m’"
-
-#: cobc/field.c:265
-#, c-format
-msgid "expression stack overflow at %d entries"
-msgstr "expression stack overflow at %d entries"
-
-#: cobc/field.c:282
-msgid "missing left parenthesis"
-msgstr "missing left parenthesis"
-
-#: cobc/field.c:323
-#, c-format
-msgid "invalid operator '%s' in expression"
-msgstr "invalid operator ‘[1m%s[0m’ in expression"
-
-#: cobc/field.c:342
-#, c-format
-msgid "'%c' operator misplaced"
-msgstr "‘[1m%c[0m’ operator misplaced"
-
-#: cobc/field.c:403
-#, c-format
-msgid "invalid level number '%s'"
-msgstr "invalid level number ‘[1m%s[0m’"
-
-#: cobc/field.c:463 cobc/field.c:502
-msgid "level number must begin with 01 or 77"
-msgstr "level number must begin with 01 or 77"
-
-#: cobc/field.c:562 cobc/field.c:566
-#, c-format
-msgid "no previous data item of level %02d"
-msgstr "no previous data item of level %02d"
-
-#: cobc/field.c:631
-#, c-format
-msgid "'%s' cannot be qualified here"
-msgstr "‘[1m%s[0m’ cannot be qualified here"
-
-#: cobc/field.c:637
-#, c-format
-msgid "'%s' cannot be subscripted here"
-msgstr "‘[1m%s[0m’ cannot be subscripted here"
-
-#: cobc/field.c:653 cobc/field.c:664
-#, c-format
-msgid "'%s' is not defined in '%s'"
-msgstr "‘[1m%s[0m’ is not defined in ‘[1m%s[0m’"
-
-#: cobc/field.c:671
-msgid "level number of REDEFINES entries must be identical"
-msgstr "level number of REDEFINES entries must be identical"
-
-#: cobc/field.c:676
-#, c-format
-msgid "'%s' is not the original definition"
-msgstr "‘[1m%s[0m’ is not the original definition"
-
-#: cobc/field.c:720 cobc/parser.y:1051
-#, c-format
-msgid "duplicate %s"
-msgstr "duplicate %s"
-
-#: cobc/field.c:878 cobc/parser.y:733
-#, c-format
-msgid "duplicate %s clause"
-msgstr "duplicate %s clause"
-
-#: cobc/field.c:988
-#, c-format
-msgid "%s clause not compatible with PIC %s"
-msgstr "%s clause not compatible with PIC %s"
-
-#: cobc/field.c:999 cobc/field.c:1036
-#, c-format
-msgid "%s clause not compatible with USAGE %s"
-msgstr "%s clause not compatible with USAGE %s"
-
-#: cobc/field.c:1140 cobc/field.c:1159 cobc/field.c:1227 cobc/field.c:1238
-#, c-format
-msgid "PICTURE clause required for '%s'"
-msgstr "PICTURE clause required for ‘[1m%s[0m’"
-
-#: cobc/field.c:1234
-#, c-format
-msgid "a non-numeric literal is expected for '%s'"
-msgstr "a non-numeric literal is expected for ‘[1m%s[0m’"
-
-#: cobc/field.c:1247
-#, c-format
-msgid "defining implicit picture size %d for '%s'"
-msgstr "defining implicit picture size %d for ‘[1m%s[0m’"
-
-#: cobc/field.c:1271
-#, c-format
-msgid "'%s' ANY LENGTH only allowed in LINKAGE"
-msgstr "‘[1m%s[0m’ ANY LENGTH only allowed in LINKAGE"
-
-#: cobc/field.c:1275
-#, c-format
-msgid "'%s' ANY LENGTH must be 01 level"
-msgstr "‘[1m%s[0m’ ANY LENGTH must be 01 level"
-
-#: cobc/field.c:1279
-#, c-format
-msgid "'%s' ANY LENGTH cannot be BASED/EXTERNAL"
-msgstr "‘[1m%s[0m’ ANY LENGTH cannot be BASED/EXTERNAL"
-
-#: cobc/field.c:1283 cobc/field.c:1313
-#, c-format
-msgid "'%s' ANY LENGTH has invalid definition"
-msgstr "‘[1m%s[0m’ ANY LENGTH has invalid definition"
-
-#: cobc/field.c:1295
-#, c-format
-msgid "'%s' ANY NUMERIC must be PIC 9"
-msgstr "‘[1m%s[0m’ ANY NUMERIC must be PIC 9"
-
-#: cobc/field.c:1301
-#, c-format
-msgid "'%s' ANY LENGTH must be PIC X, PIC U, PIC N or PIC 1"
-msgstr "‘[1m%s[0m’ ANY LENGTH must be PIC X, PIC U, PIC N or PIC 1"
-
-#: cobc/field.c:1311
-#, c-format
-msgid "'%s' ANY NUMERIC has invalid definition"
-msgstr "‘[1m%s[0m’ ANY NUMERIC has invalid definition"
-
-#: cobc/field.c:1327
-#, c-format
-msgid "'%s' EXTERNAL must be specified at 01/77 level"
-msgstr "‘[1m%s[0m’ EXTERNAL must be specified at 01/77 level"
-
-#: cobc/field.c:1331
-#, c-format
-msgid "'%s' EXTERNAL can only be specified in WORKING-STORAGE section"
-msgstr "‘[1m%s[0m’ EXTERNAL can only be specified in WORKING-STORAGE section"
-
-#: cobc/field.c:1335
-#, c-format
-msgid "'%s' EXTERNAL and BASED are mutually exclusive"
-msgstr "‘[1m%s[0m’ EXTERNAL and BASED are mutually exclusive"
-
-#: cobc/field.c:1338
-#, c-format
-msgid "'%s' EXTERNAL not allowed with REDEFINES"
-msgstr "‘[1m%s[0m’ EXTERNAL not allowed with REDEFINES"
-
-#: cobc/field.c:1350
-#, c-format
-msgid "'%s' BASED not allowed here"
-msgstr "‘[1m%s[0m’ BASED not allowed here"
-
-#: cobc/field.c:1353
-#, c-format
-msgid "'%s' BASED not allowed with REDEFINES"
-msgstr "‘[1m%s[0m’ BASED not allowed with REDEFINES"
-
-#: cobc/field.c:1356
-#, c-format
-msgid "'%s' BASED only allowed at the 01 and 77 levels"
-msgstr "‘[1m%s[0m’ BASED only allowed at the 01 and 77 levels"
-
-#: cobc/field.c:1383
-#, c-format
-msgid "'%s' cannot have an OCCURS clause due to '%s'"
-msgstr "‘[1m%s[0m’ cannot have an OCCURS clause due to ‘[1m%s[0m’"
-
-#: cobc/field.c:1402
-#, c-format
-msgid "the original definition '%s' should not have an OCCURS clause"
-msgstr "the original definition ‘[1m%s[0m’ should not have an OCCURS clause"
-
-#: cobc/field.c:1408
-#, c-format
-msgid "the original definition '%s' should not have an ANY LENGTH clause"
-msgstr "the original definition ‘[1m%s[0m’ should not have an ANY LENGTH clause"
-
-#: cobc/field.c:1415
-msgid "REDEFINES must follow the original definition"
-msgstr "REDEFINES must follow the original definition"
-
-#: cobc/field.c:1423
-#, c-format
-msgid "'%s' cannot be variable length"
-msgstr "‘[1m%s[0m’ cannot be variable length"
-
-#: cobc/field.c:1426
-#, c-format
-msgid "the original definition '%s' cannot be variable length"
-msgstr "the original definition ‘[1m%s[0m’ cannot be variable length"
-
-#: cobc/field.c:1445 cobc/field.c:1708
-#, c-format
-msgid "'%s' cannot have JUSTIFIED RIGHT clause"
-msgstr "‘[1m%s[0m’ cannot have JUSTIFIED RIGHT clause"
-
-#: cobc/field.c:1453
-#, c-format
-msgid "'%s' cannot have BLANK WHEN ZERO clause"
-msgstr "‘[1m%s[0m’ cannot have BLANK WHEN ZERO clause"
-
-#: cobc/field.c:1460
-#, c-format
-msgid "SCREEN group item '%s' has invalid clause"
-msgstr "SCREEN group item ‘[1m%s[0m’ has invalid clause"
-
-#: cobc/field.c:1548
-#, c-format
-msgid "%s USAGE %s incompatible with %s USAGE %s"
-msgstr "%s USAGE %s incompatible with %s USAGE %s"
-
-#: cobc/field.c:1629
-#, c-format
-msgid "'%s' cannot have PICTURE clause"
-msgstr "‘[1m%s[0m’ cannot have PICTURE clause"
-
-#: cobc/field.c:1662
-#, c-format
-msgid "'%s' COMP-6 with sign - changing to COMP-3"
-msgstr "‘[1m%s[0m’ COMP-6 with sign - changing to COMP-3"
-
-#: cobc/field.c:1688
-msgid "elementary items with SIGN clause must have S in PICTURE"
-msgstr "elementary items with SIGN clause must have S in PICTURE"
-
-#: cobc/field.c:1691
-msgid "elementary items with SIGN clause must be USAGE DISPLAY or NATIONAL"
-msgstr "elementary items with SIGN clause must be USAGE DISPLAY or NATIONAL"
-
-#: cobc/field.c:1720
-#, c-format
-msgid "'%s' cannot have S in PICTURE string and BLANK WHEN ZERO"
-msgstr "‘[1m%s[0m’ cannot have S in PICTURE string and BLANK WHEN ZERO"
-
-#: cobc/field.c:1725
-#, c-format
-msgid "'%s' cannot have BLANK WHEN ZERO without being USAGE DISPLAY or NATIONAL"
-msgstr "‘[1m%s[0m’ cannot have BLANK WHEN ZERO without being USAGE DISPLAY or NATIONAL"
-
-#: cobc/field.c:1737
-#, c-format
-msgid "'%s' cannot have * in PICTURE string and BLANK WHEN ZERO"
-msgstr "‘[1m%s[0m’ cannot have * in PICTURE string and BLANK WHEN ZERO"
-
-#: cobc/field.c:1744
-#, c-format
-msgid "'%s' is not numeric, so cannot have BLANK WHEN ZERO"
-msgstr "‘[1m%s[0m’ is not numeric, so cannot have BLANK WHEN ZERO"
-
-#: cobc/field.c:1798
-#, c-format
-msgid "elements in VALUE clause for '%s' (%d) exceed max amount (%d)"
-msgstr "elements in VALUE clause for ‘[1m%s[0m’ (%d) exceed max amount (%d)"
-
-#: cobc/field.c:1822
-msgid "unexpected VALUES ARE for elementary item"
-msgstr "unexpected VALUES ARE for elementary item"
-
-#: cobc/field.c:1836 cobc/field.c:1840
-#, c-format
-msgid "initial VALUE clause ignored for %s item '%s'"
-msgstr "initial VALUE clause ignored for %s item ‘[1m%s[0m’"
-
-#: cobc/field.c:1853
-msgid "FULL has no effect on numeric items; you may want REQUIRED or PIC Z"
-msgstr "FULL has no effect on numeric items; you may want REQUIRED or PIC Z"
-
-#: cobc/field.c:1884
-msgid "VALUE may not contain a figurative constant"
-msgstr "VALUE may not contain a figurative constant"
-
-#: cobc/field.c:1893 cobc/field.c:1935 cobc/parser.y:750 cobc/parser.y:1823
-#: cobc/parser.y:1826
-#, c-format
-msgid "cannot specify both %s and %s"
-msgstr "cannot specify both %s and %s"
-
-#: cobc/field.c:1905
-#, c-format
-msgid "'%s' has FROM, TO or USING without PIC; PIC will be implied"
-msgstr "‘[1m%s[0m’ has FROM, TO or USING without PIC; PIC will be implied"
-
-#: cobc/field.c:1922
-#, c-format
-msgid "'%s' has numeric VALUE without PIC; PIC will be implied"
-msgstr "‘[1m%s[0m’ has numeric VALUE without PIC; PIC will be implied"
-
-#: cobc/field.c:1943
-msgid "cannot have PIC without FROM, TO or USING"
-msgstr "cannot have PIC without FROM, TO or USING"
-
-#: cobc/field.c:1952
-msgid "cannot have numeric VALUE without PIC"
-msgstr "cannot have numeric VALUE without PIC"
-
-#: cobc/field.c:1961
-msgid "cannot have FROM, TO or USING without PIC"
-msgstr "cannot have FROM, TO or USING without PIC"
-
-#: cobc/field.c:1971
-msgid "VALUE item may not be numeric"
-msgstr "VALUE item may not be numeric"
-
-#: cobc/field.c:1986
-#, c-format
-msgid "'%s' needs a PIC, COL, LINE, VALUE, BELL or BLANK clause"
-msgstr "‘[1m%s[0m’ needs a PIC, COL, LINE, VALUE, BELL or BLANK clause"
-
-#: cobc/field.c:1998
-#, c-format
-msgid "'%s' cannot have PIC without FROM, TO, USING or numeric VALUE"
-msgstr "‘[1m%s[0m’ cannot have PIC without FROM, TO, USING or numeric VALUE"
-
-#: cobc/field.c:2006
-#, c-format
-msgid "'%s' needs a PIC, FROM, TO, USING, VALUE, BELL, BLANK or ERASE clause"
-msgstr "‘[1m%s[0m’ needs a PIC, FROM, TO, USING, VALUE, BELL, BLANK or ERASE clause"
-
-#: cobc/field.c:2042
-msgid "cannot use AUTO, FULL, PROMPT, REQUIRED or SECURE on elementary item without TO or USING"
-msgstr "cannot use AUTO, FULL, PROMPT, REQUIRED or SECURE on elementary item without TO or USING"
-
-#: cobc/field.c:2049
-msgid "cannot use BLANK WHEN ZERO, JUSTIFIED, OCCURS or SIGN on item without FROM, TO or USING"
-msgstr "cannot use BLANK WHEN ZERO, JUSTIFIED, OCCURS or SIGN on item without FROM, TO or USING"
-
-#: cobc/field.c:2068
-msgid "cannot use AUTO, FULL, REQUIRED or SECURE on elementary item without FROM, TO or USING"
-msgstr "cannot use AUTO, FULL, REQUIRED or SECURE on elementary item without FROM, TO or USING"
-
-#: cobc/field.c:2073
-msgid "cannot use BLANK WHEN ZERO, JUSTIFIED or SIGN without FROM, TO or USING"
-msgstr "cannot use BLANK WHEN ZERO, JUSTIFIED or SIGN without FROM, TO or USING"
-
-#: cobc/field.c:2090
-msgid "cannot have BLANK WHEN ZERO without PIC"
-msgstr "cannot have BLANK WHEN ZERO without PIC"
-
-#: cobc/field.c:2093
-msgid "cannot have JUSTIFIED without PIC"
-msgstr "cannot have JUSTIFIED without PIC"
-
-#: cobc/field.c:2113
-msgid "cannot have AUTO without FROM, TO or USING"
-msgstr "cannot have AUTO without FROM, TO or USING"
-
-#: cobc/field.c:2118
-msgid "cannot use FULL or REQUIRED on item without TO or USING"
-msgstr "cannot use FULL or REQUIRED on item without TO or USING"
-
-#: cobc/field.c:2125
-msgid "SECURE can be used with TO only"
-msgstr "SECURE can be used with TO only"
-
-#: cobc/field.c:2127
-msgid "SECURE must be used with TO"
-msgstr "SECURE must be used with TO"
-
-#: cobc/field.c:2146
-#, c-format
-msgid "'%s' does nothing"
-msgstr "‘[1m%s[0m’ does nothing"
-
-#: cobc/field.c:2361
-#, c-format
-msgid "'%s' 77 level is not allowed here"
-msgstr "‘[1m%s[0m’ 77 level is not allowed here"
-
-#: cobc/field.c:2399
-msgid "OCCURS and multi COLUMNs is not allowed"
-msgstr "OCCURS and multi COLUMNs is not allowed"
-
-#: cobc/field.c:2419
-#, c-format
-msgid "duplicate LINE %d ignored"
-msgstr "duplicate LINE %d ignored"
-
-#: cobc/field.c:2870
-#, c-format
-msgid "ignoring SYNCHRONIZED for group item '%s'"
-msgstr "ignoring SYNCHRONIZED for group item ‘[1m%s[0m’"
-
-#: cobc/field.c:2884 cobc/field.c:3219
-msgid "larger REDEFINES"
-msgstr "larger REDEFINES"
-
-#: cobc/field.c:2898 cobc/field.c:3222 cobc/field.c:3227
-#, c-format
-msgid "size of '%s' larger than size of '%s'"
-msgstr "size of ‘[1m%s[0m’ larger than size of ‘[1m%s[0m’"
-
-#: cobc/field.c:3045 cobc/field.c:3129 cobc/parser.y:832
-#, c-format
-msgid "'%s' cannot be larger than %d bytes"
-msgstr "‘[1m%s[0m’ cannot be larger than %d bytes"
-
-#: cobc/field.c:3086 cobc/field.c:3094
-#, c-format
-msgid "'%s' binary field cannot be larger than %d digits"
-msgstr "‘[1m%s[0m’ binary field cannot be larger than %d digits"
-
-#: cobc/field.c:3353 cobc/parser.y:791 cobc/parser.y:793 cobc/parser.y:6529
-#: cobc/parser.y:6539 cobc/parser.y:7625 cobc/parser.y:7628 cobc/parser.y:7630
-#: cobc/parser.y:7632 cobc/parser.y:7667 cobc/parser.y:8610 cobc/parser.y:8612
-#: cobc/parser.y:8614 cobc/parser.y:8616 cobc/parser.y:8958 cobc/parser.y:8967
-#: cobc/parser.y:10897 cobc/parser.y:12460 cobc/parser.y:13920
-#: cobc/parser.y:15390 cobc/typeck.c:5200
-#, c-format
-msgid "%s and %s are mutually exclusive"
-msgstr "%s and %s are mutually exclusive"
-
-#: cobc/field.c:3354 cobc/parser.y:7810 cobc/parser.y:7847
-msgid "variable-length PICTURE"
-msgstr "variable-length PICTURE"
-
-#: cobc/field.c:3475
-msgid "literal type does not match numeric data type"
-msgstr "literal type does not match numeric data type"
-
-#: cobc/field.c:3549
-#, c-format
-msgid "THRU item '%s' may not come before '%s'"
-msgstr "THRU item ‘[1m%s[0m’ may not come before ‘[1m%s[0m’"
-
-#: cobc/field.c:3572
-#, c-format
-msgid "RENAMES cannot start/end at the OCCURS item '%s'"
-msgstr "RENAMES cannot start/end at the OCCURS item ‘[1m%s[0m’"
-
-#: cobc/field.c:3580
-#, c-format
-msgid "cannot use RENAMES on part of the table '%s'"
-msgstr "cannot use RENAMES on part of the table ‘[1m%s[0m’"
-
-#: cobc/field.c:3618
-#, c-format
-msgid "RENAMES may not contain '%s' as it is a pointer or object reference"
-msgstr "RENAMES may not contain ‘[1m%s[0m’ as it is a pointer or object reference"
-
-#: cobc/field.c:3623
-#, c-format
-msgid "RENAMES may not contain '%s' as it is an OCCURS DEPENDING table"
-msgstr "RENAMES may not contain ‘[1m%s[0m’ as it is an OCCURS DEPENDING table"
-
-#: cobc/field.c:3647
-msgid "RENAMES may not reference a level 88"
-msgstr "RENAMES may not reference a level 88"
-
-#: cobc/field.c:3671
-#, c-format
-msgid "'%s' must immediately follow the record '%s'"
-msgstr "‘[1m%s[0m’ must immediately follow the record ‘[1m%s[0m’"
-
-#: cobc/field.c:3679
-#, c-format
-msgid "THRU item must be different to '%s'"
-msgstr "THRU item must be different to ‘[1m%s[0m’"
-
-#: cobc/field.c:3685
-#, c-format
-msgid "'%s' and '%s' must be in the same record"
-msgstr "‘[1m%s[0m’ and ‘[1m%s[0m’ must be in the same record"
-
-#: cobc/field.c:3696
-#, c-format
-msgid "THRU item '%s' may not be subordinate to '%s'"
-msgstr "THRU item ‘[1m%s[0m’ may not be subordinate to ‘[1m%s[0m’"
-
-#: cobc/flag.def:44
-msgid ""
-" -fstack-size=<number>\tdefine PERFORM stack size\n"
-" * default: 255"
-msgstr ""
-" -fstack-size=<number>\tdefine PERFORM stack size\n"
-" * default: 255"
-
-#: cobc/flag.def:49
-msgid ""
-" -fif-cutoff=<number> define cutoff depth for IF statements\n"
-" * default: 3"
-msgstr ""
-" -fif-cutoff=<number> define cutoff depth for IF statements\n"
-" * default: 3"
-
-#: cobc/flag.def:54
-msgid ""
-" -fsign=[ASCII|EBCDIC]\tdefine display sign representation\n"
-" * default: machine native"
-msgstr ""
-" -fsign=[ASCII|EBCDIC]\tdefine display sign representation\n"
-" * default: machine native"
-
-#: cobc/flag.def:58
-msgid ""
-" -ffold-copy=[UPPER|LOWER]\tfold COPY subject to value\n"
-" * default: no transformation"
-msgstr ""
-" -ffold-copy=[UPPER|LOWER]\tfold COPY subject to value\n"
-" * default: no transformation"
-
-#: cobc/flag.def:62
-msgid ""
-" -ffold-call=[UPPER|LOWER]\tfold PROGRAM-ID, CALL, CANCEL subject to value\n"
-" * default: no transformation"
-msgstr ""
-" -ffold-call=[UPPER|LOWER]\tfold PROGRAM-ID, CALL, CANCEL subject to value\n"
-" * default: no transformation"
-
-#: cobc/flag.def:66
-msgid ""
-" -fmax-errors=<number>\tmaximum number of errors to report before\n"
-" compilation is aborted\n"
-" * default: 128"
-msgstr ""
-" -fmax-errors=<number>\tmaximum number of errors to report before\n"
-" compilation is aborted\n"
-" * default: 128"
-
-#: cobc/flag.def:73
-msgid ""
-" -fintrinsics=[ALL|intrinsic function name(,name,...)]\n"
-" intrinsics to be used without FUNCTION keyword"
-msgstr ""
-" -fintrinsics=[ALL|intrinsic function name(,name,...)]\n"
-" intrinsics to be used without FUNCTION keyword"
-
-#: cobc/flag.def:85
-msgid ""
-" -fdump=<scope> dump data fields on abort, <scope> may be\n"
-" a combination of: ALL, WS, LS, RD, FD, SC, LO"
-msgstr ""
-" -fdump=<scope> dump data fields on abort, <scope> may be\n"
-" a combination of: ALL, WS, LS, RD, FD, SC, LO"
-
-#: cobc/flag.def:88
-msgid ""
-" -fno-dump=<scope> exclude data fields from dumping on abort, <scope> may\n"
-" be a combination of: ALL, WS, LS, RD, FD, SC, LO\n"
-" default if no scope specified: ALL"
-msgstr ""
-" -fno-dump=<scope> exclude data fields from dumping on abort, <scope> may\n"
-" be a combination of: ALL, WS, LS, RD, FD, SC, LO\n"
-" default if no scope specified: ALL"
-
-#: cobc/flag.def:94
-msgid ""
-" -fcallfh=<name> specifies <name> to be used for I/O\n"
-" as external provided EXTFH interface module"
-msgstr ""
-" -fcallfh=<name> specifies <name> to be used for I/O\n"
-" as external provided EXTFH interface module"
-
-#: cobc/flag.def:98
-msgid ""
-" -febcdic-table=<cconv-table>/<file>\tEBCDIC/ASCII translation table\n"
-" * e.g. default, ebcdic500_latin1..."
-msgstr ""
-" -febcdic-table=<cconv-table>/<file>\tEBCDIC/ASCII translation table\n"
-" * e.g. default, ebcdic500_latin1..."
-
-#: cobc/flag.def:102
-msgid ""
-" -fdefault-colseq=[ASCII|EBCDIC|NATIVE]\tdefine default collating sequence\n"
-" * default: NATIVE"
-msgstr ""
-" -fdefault-colseq=[ASCII|EBCDIC|NATIVE]\tdefine default collating sequence\n"
-" * default: NATIVE"
-
-#: cobc/flag.def:110
-msgid ""
-" -fwinmain generate WinMain instead of main when compiling\n"
-" as executable"
-msgstr ""
-" -fwinmain generate WinMain instead of main when compiling\n"
-" as executable"
-
-#: cobc/flag.def:114
-msgid " -fcomputed-goto generate computed goto C statements"
-msgstr " -fcomputed-goto generate computed goto C statements"
-
-#: cobc/flag.def:117
-msgid " -fextra-brace generate extra braces in C source"
-msgstr " -fextra-brace generate extra braces in C source"
-
-#: cobc/flag.def:120
-msgid " -fcorrect-numeric attempt correction of invalid numeric display items"
-msgstr " -fcorrect-numeric attempt correction of invalid numeric display items"
-
-#: cobc/flag.def:123
-msgid " -fstack-on-heap PERFORM stack allocated on heap"
-msgstr " -fstack-on-heap PERFORM stack allocated on heap"
-
-#: cobc/flag.def:126
-msgid ""
-" -fstack-extended store origin of entrypoints and PERFORM\n"
-" * turned on by --debug/-fdump"
-msgstr ""
-" -fstack-extended store origin of entrypoints and PERFORM\n"
-" * turned on by --debug/-fdump"
-
-#: cobc/flag.def:130
-msgid " -fno-fast-compare disables inline comparisions"
-msgstr " -fno-fast-compare disables inline comparisions"
-
-#: cobc/flag.def:135
-msgid ""
-" -fno-remove-unreachable\tdisable remove of unreachable code\n"
-" * turned off by -g"
-msgstr ""
-" -fno-remove-unreachable\tdisable remove of unreachable code\n"
-" * turned off by -g"
-
-#: cobc/flag.def:139
-msgid ""
-" -ftrace generate trace code\n"
-" * scope: executed SECTION/PARAGRAPH"
-msgstr ""
-" -ftrace generate trace code\n"
-" * scope: executed SECTION/PARAGRAPH"
-
-#: cobc/flag.def:143
-msgid ""
-" -ftraceall generate trace code\n"
-" * scope: executed SECTION/PARAGRAPH/STATEMENTS"
-msgstr ""
-" -ftraceall generate trace code\n"
-" * scope: executed SECTION/PARAGRAPH/STATEMENTS"
-
-#: cobc/flag.def:147
-msgid " -fsyntax-only syntax error checking only; don't emit any output"
-msgstr " -fsyntax-only syntax error checking only; don't emit any output"
-
-#: cobc/flag.def:150
-msgid ""
-" -fdebugging-line enable debugging lines\n"
-" * 'D' in indicator column or floating >>D"
-msgstr ""
-" -fdebugging-line enable debugging lines\n"
-" * ‘[1mD[0m’ in indicator column or floating >>D"
-
-#: cobc/flag.def:154
-msgid ""
-" -fsource-location generate source location code\n"
-" * turned on by --debug/-ftraceall/-fec/-fdump"
-msgstr ""
-" -fsource-location generate source location code\n"
-" * turned on by --debug/-ftraceall/-fec/-fdump"
-
-#: cobc/flag.def:158
-msgid " -fimplicit-init automatic initialization of the COBOL runtime system"
-msgstr " -fimplicit-init automatic initialization of the COBOL runtime system"
-
-#: cobc/flag.def:161
-msgid ""
-" -fno-recursive-check disable check of recursive program call;\n"
-" effectively compiling as RECURSIVE program"
-msgstr ""
-" -fno-recursive-check disable check of recursive program call;\n"
-" effectively compiling as RECURSIVE program"
-
-#: cobc/flag.def:165
-msgid ""
-" -fstack-check PERFORM stack checking\n"
-" * turned on by --debug/-g"
-msgstr ""
-" -fstack-check PERFORM stack checking\n"
-" * turned on by --debug/-g"
-
-#: cobc/flag.def:169
-msgid ""
-" -fmemory-check=<scope> checks for invalid writes to internal storage,\n"
-" <scope> may be one of: all, pointer, using, none\n"
-" * default: none, set to all by --debug"
-msgstr ""
-" -fmemory-check=<scope> checks for invalid writes to internal storage,\n"
-" <scope> may be one of: all, pointer, using, none\n"
-" * default: none, set to all by --debug"
-
-#: cobc/flag.def:174
-msgid " -fsection-exit-check check that code execution does not leave the scope of SECTIONs"
-msgstr " -fsection-exit-check check that code execution does not leave the scope of SECTIONs"
-
-#: cobc/flag.def:177
-msgid " -fimplicit-goback-check\tcheck that code execution does not end implicit at end of PROCEDURE DIVISION"
-msgstr " -fimplicit-goback-check\tcheck that code execution does not end implicit at end of PROCEDURE DIVISION"
-
-#: cobc/flag.def:180
-msgid ""
-" -fwrite-after use AFTER 1 for WRITE of LINE SEQUENTIAL\n"
-" * default: BEFORE 1"
-msgstr ""
-" -fwrite-after use AFTER 1 for WRITE of LINE SEQUENTIAL\n"
-" * default: BEFORE 1"
-
-#: cobc/flag.def:184
-msgid ""
-" -fmfcomment '*' in column 1 treated as comment with listing suppression\n"
-" * FIXED/COBOL85/VARIABLE format only"
-msgstr ""
-" -fmfcomment ‘[1m*[0m’ in column 1 treated as comment with listing suppression\n"
-" * FIXED/COBOL85/VARIABLE format only"
-
-#: cobc/flag.def:188
-msgid ""
-" -facucomment '$' in indicator area treated as '*',\n"
-" '|' treated as floating comment"
-msgstr ""
-" -facucomment ‘[1m$[0m’ in indicator area treated as '*',\n"
-" ‘[1m|[0m’ treated as floating comment"
-
-#: cobc/flag.def:193
-msgid ""
-" -fno-trunc allow numeric field overflow\n"
-" * non-ANSI behaviour"
-msgstr ""
-" -fno-trunc allow numeric field overflow\n"
-" * non-ANSI behaviour"
-
-#: cobc/flag.def:197
-msgid ""
-" -fsingle-quote use a single quote (apostrophe) for QUOTE\n"
-" * default: double quote"
-msgstr ""
-" -fsingle-quote use a single quote (apostrophe) for QUOTE\n"
-" * default: double quote"
-
-#: cobc/flag.def:207
-msgid ""
-" -foptional-file treat all files as OPTIONAL\n"
-" * unless NOT OPTIONAL specified"
-msgstr ""
-" -foptional-file treat all files as OPTIONAL\n"
-" * unless NOT OPTIONAL specified"
-
-#: cobc/flag.def:211
-msgid " -fstatic-call output static function calls for the CALL statement"
-msgstr " -fstatic-call output static function calls for the CALL statement"
-
-#: cobc/flag.def:214
-msgid ""
-" -fno-gen-c-decl-static-call\tdisable generation of C function declarations\n"
-" for subroutines with static CALL"
-msgstr ""
-" -fno-gen-c-decl-static-call\tdisable generation of C function declarations\n"
-" for subroutines with static CALL"
-
-#: cobc/flag.def:218
-msgid ""
-" -fgen-c-line-directives\tgenerate source location directives in C code;\n"
-" * turned on by -g/--coverage"
-msgstr ""
-" -fgen-c-line-directives\tgenerate source location directives in C code;\n"
-" * turned on by -g/--coverage"
-
-#: cobc/flag.def:222
-msgid ""
-" -fgen-c-labels generate extra labels in C sources;\n"
-" * turned on by -g"
-msgstr ""
-" -fgen-c-labels generate extra labels in C sources;\n"
-" * turned on by -g"
-
-#: cobc/flag.def:226
-msgid ""
-" -fno-theaders suppress all headers from listing while keeping\n"
-" page breaks"
-msgstr ""
-" -fno-theaders suppress all headers from listing while keeping\n"
-" page breaks"
-
-#: cobc/flag.def:230
-msgid " -fno-tsource suppress source from listing"
-msgstr " -fno-tsource suppress source from listing"
-
-#: cobc/flag.def:233
-msgid " -fno-tmessages suppress warning and error summary from listing"
-msgstr " -fno-tmessages suppress warning and error summary from listing"
-
-#: cobc/flag.def:236
-msgid " -ftsymbols specify symbols in listing"
-msgstr " -ftsymbols specify symbols in listing"
-
-#: cobc/flag.def:239
-msgid " -ftcmd specify command line in listing"
-msgstr " -ftcmd specify command line in listing"
-
-#: cobc/flag.def:242
-msgid " -fno-ttimestamp suppress timestamp in listing headers"
-msgstr " -fno-ttimestamp suppress timestamp in listing headers"
-
-#: cobc/flag.def:245
-msgid ""
-" -fttitle=<title> set listing title with '_' replaced by spaces;\n"
-" defaults to package name and version"
-msgstr ""
-" -fttitle=<title> set listing title with ‘[1m_[0m’ replaced by spaces;\n"
-" defaults to package name and version"
-
-#: cobc/flag.def:249
-msgid ""
-" -fno-diagnostics-show-option\tsuppress output of option that directly\n"
-" controls the diagnostic"
-msgstr ""
-" -fno-diagnostics-show-option\tsuppress output of option that directly\n"
-" controls the diagnostic"
-
-#: cobc/flag.def:253
-msgid " -fno-diagnostics-show-caret\tdo not display source context on warning/error diagnostic"
-msgstr " -fno-diagnostics-show-caret\tdo not display source context on warning/error diagnostic"
-
-#: cobc/flag.def:256
-msgid " -fno-diagnostics-show-line-numbers\tsuppress display of line numbers in diagnostics"
-msgstr " -fno-diagnostics-show-line-numbers\tsuppress display of line numbers in diagnostics"
-
-#: cobc/help.c:33
-msgid "GnuCOBOL compiler for most COBOL dialects with lots of extensions"
-msgstr "GnuCOBOL compiler for most COBOL dialects with lots of extensions"
-
-#: cobc/help.c:35
-#, c-format
-msgid "Usage: %s [options]... file..."
-msgstr "Usage: %s [options]... file..."
-
-#: cobc/help.c:48 bin/cobcrun.c:143
-#, c-format
-msgid ""
-"Report bugs to: %s\n"
-"or (preferably) use the issue tracker via the home page."
-msgstr ""
-"Report bugs to: %s\n"
-"or (preferably) use the issue tracker via the home page."
-
-#: cobc/help.c:52 bin/cobcrun.c:146
-#, c-format
-msgid "GnuCOBOL home page: <%s>"
-msgstr "GnuCOBOL home page: <%s>"
-
-#: cobc/help.c:54 bin/cobcrun.c:148
-#, c-format
-msgid "General help using GNU software: <%s>"
-msgstr "General help using GNU software: <%s>"
-
-#: cobc/help.c:61 bin/cobcrun.c:125
-msgid "Options:"
-msgstr "Options:"
-
-#: cobc/help.c:62
-msgid " -h, --help display this help and exit"
-msgstr " -h, --help display this help and exit"
-
-#: cobc/help.c:63
-msgid " -V, --version display compiler version information and exit"
-msgstr " -V, --version display compiler version information and exit"
-
-#: cobc/help.c:64
-msgid " -dumpversion display compiler version and exit"
-msgstr " -dumpversion display compiler version and exit"
-
-#: cobc/help.c:65
-msgid ""
-" -i, --info display compiler information (build/environment)\n"
-" and exit"
-msgstr ""
-" -i, --info display compiler information (build/environment)\n"
-" and exit"
-
-#: cobc/help.c:67
-msgid ""
-" -v, --verbose verbose mode, display additional information;\n"
-" multiple -v options increase the verbosity,\n"
-" the maximum is 3 as follows:\n"
-" (1) display compiler version and the commands\n"
-" invoked by the compiler,\n"
-" (2) pass verbose option to assembler/compiler\n"
-" (3) pass verbose option to linker"
-msgstr ""
-" -v, --verbose verbose mode, display additional information;\n"
-" multiple -v options increase the verbosity,\n"
-" the maximum is 3 as follows:\n"
-" (1) display compiler version and the commands\n"
-" invoked by the compiler,\n"
-" (2) pass verbose option to assembler/compiler\n"
-" (3) pass verbose option to linker"
-
-#: cobc/help.c:74
-msgid " -q, --brief reduced displays, commands invoked not shown"
-msgstr " -q, --brief reduced displays, commands invoked not shown"
-
-#: cobc/help.c:75
-msgid " -### like -v but commands not executed"
-msgstr " -### like -v but commands not executed"
-
-#: cobc/help.c:76
-msgid " -x build an executable program"
-msgstr " -x build an executable program"
-
-#: cobc/help.c:77
-msgid " -m build a dynamically loadable module (default)"
-msgstr " -m build a dynamically loadable module (default)"
-
-#: cobc/help.c:78
-msgid " -j [<args>], --job[=<args>]\trun program after build, passing <args>"
-msgstr " -j [<args>], --job[=<args>]\trun program after build, passing <args>"
-
-#: cobc/help.c:79
-msgid ""
-" -std=<dialect> warnings/features for a specific dialect\n"
-" <dialect> can be one of:\n"
-" default, cobol2014, cobol2002, cobol85, xopen,\n"
-" ibm-strict, ibm, mvs-strict, mvs,\n"
-" mf-strict, mf, bs2000-strict, bs2000,\n"
-" acu-strict, acu, rm-strict, rm, gcos-strict,\n"
-" gcos;\n"
-" see configuration files in directory config"
-msgstr ""
-" -std=<dialect> warnings/features for a specific dialect\n"
-" <dialect> can be one of:\n"
-" default, cobol2014, cobol2002, cobol85, xopen,\n"
-" ibm-strict, ibm, mvs-strict, mvs,\n"
-" mf-strict, mf, bs2000-strict, bs2000,\n"
-" acu-strict, acu, rm-strict, rm, gcos-strict,\n"
-" gcos;\n"
-" see configuration files in directory config"
-
-#: cobc/help.c:87
-msgid " -F, --free use free source format (alias for -fformat=free)"
-msgstr " -F, --free use free source format (alias for -fformat=free)"
-
-#: cobc/help.c:88
-msgid ""
-" --fixed use fixed source format (default; alias for\n"
-" -fformat=fixed)"
-msgstr ""
-" --fixed use fixed source format (default; alias for\n"
-" -fformat=fixed)"
-
-#: cobc/help.c:90
-msgid " -O, -O2, -O3, -Os enable optimization"
-msgstr " -O, -O2, -O3, -Os enable optimization"
-
-#: cobc/help.c:91
-msgid " -O0 disable optimization"
-msgstr " -O0 disable optimization"
-
-#: cobc/help.c:92
-msgid " -g enable C compiler debug and stack check"
-msgstr " -g enable C compiler debug and stack check"
-
-#: cobc/help.c:93
-msgid ""
-" -d, --debug enable all run-time error checking,\n"
-" equal to -fstack-check -fec=EC-ALL"
-msgstr ""
-" -d, --debug enable all run-time error checking,\n"
-" equal to -fstack-check -fec=EC-ALL"
-
-#: cobc/help.c:97
-msgid ""
-" -fec=<exception-name>\tenable code generation for <exception-name>,\n"
-" see --list-exceptions for the possible values,\n"
-" sets -fsource-location"
-msgstr ""
-" -fec=<exception-name>\tenable code generation for <exception-name>,\n"
-" see --list-exceptions for the possible values,\n"
-" sets -fsource-location"
-
-#: cobc/help.c:100
-msgid " -fno-ec=<exception-name>\tdisable code generation for <exception-name>"
-msgstr " -fno-ec=<exception-name>\tdisable code generation for <exception-name>"
-
-#: cobc/help.c:101
-msgid " -o <file> place the output into <file>"
-msgstr " -o <file> place the output into <file>"
-
-#: cobc/help.c:102
-msgid ""
-" -b combine all input files into a single\n"
-" dynamically loadable module"
-msgstr ""
-" -b combine all input files into a single\n"
-" dynamically loadable module"
-
-#: cobc/help.c:104
-msgid " -E preprocess only; do not compile or link"
-msgstr " -E preprocess only; do not compile or link"
-
-#: cobc/help.c:105
-msgid " -C translation only; convert COBOL to C"
-msgstr " -C translation only; convert COBOL to C"
-
-#: cobc/help.c:106
-msgid " -S compile only; output assembly file"
-msgstr " -S compile only; output assembly file"
-
-#: cobc/help.c:107
-msgid " -c compile and assemble, but do not link"
-msgstr " -c compile and assemble, but do not link"
-
-#: cobc/help.c:108
-msgid " -T <file> generate and place a wide program listing into <file>"
-msgstr " -T <file> generate and place a wide program listing into <file>"
-
-#: cobc/help.c:109
-msgid " -t <file> generate and place a program listing into <file>"
-msgstr " -t <file> generate and place a program listing into <file>"
-
-#: cobc/help.c:110
-msgid " --tlines=<lines> specify lines per page in listing, default = 55"
-msgstr " --tlines=<lines> specify lines per page in listing, default = 55"
-
-#: cobc/help.c:111
-msgid " -P[=<dir or file>] generate preprocessed program listing (.lst)"
-msgstr " -P[=<dir or file>] generate preprocessed program listing (.lst)"
-
-#: cobc/help.c:113
-msgid ""
-" -X, --Xref generate cross reference through 'cobxref'\n"
-" (V. Coen's 'cobxref' must be in path)"
-msgstr ""
-" -X, --Xref generate cross reference through ‘[1mcobxref[0m’\n"
-" (V. Coen's ‘[1mcobxref[0m’ must be in path)"
-
-#: cobc/help.c:116
-msgid " -X, --Xref specify cross reference in listing"
-msgstr " -X, --Xref specify cross reference in listing"
-
-#: cobc/help.c:118
-msgid " -I <directory> add <directory> to copy/include search path"
-msgstr " -I <directory> add <directory> to copy/include search path"
-
-#: cobc/help.c:119
-msgid " -L <directory> add <directory> to library search path"
-msgstr " -L <directory> add <directory> to library search path"
-
-#: cobc/help.c:120
-msgid " -l <lib> link the library <lib>"
-msgstr " -l <lib> link the library <lib>"
-
-#: cobc/help.c:121
-msgid " -K <entry> generate CALL to <entry> as static"
-msgstr " -K <entry> generate CALL to <entry> as static"
-
-#: cobc/help.c:122
-msgid " -D <define> define <define> for COBOL compilation"
-msgstr " -D <define> define <define> for COBOL compilation"
-
-#: cobc/help.c:123
-msgid " -A <options> add <options> to the C compile phase"
-msgstr " -A <options> add <options> to the C compile phase"
-
-#: cobc/help.c:124
-msgid " -Q <options> add <options> to the C link phase"
-msgstr " -Q <options> add <options> to the C link phase"
-
-#: cobc/help.c:125
-msgid " --coverage instrument generated binaries for coverage"
-msgstr " --coverage instrument generated binaries for coverage"
-
-#: cobc/help.c:126
-msgid " --conf=<file> user-defined dialect configuration; see -std"
-msgstr " --conf=<file> user-defined dialect configuration; see -std"
-
-#: cobc/help.c:127
-msgid " --list-reserved display reserved words"
-msgstr " --list-reserved display reserved words"
-
-#: cobc/help.c:128
-msgid " --list-intrinsics display intrinsic functions"
-msgstr " --list-intrinsics display intrinsic functions"
-
-#: cobc/help.c:129
-msgid " --list-mnemonics display mnemonic names"
-msgstr " --list-mnemonics display mnemonic names"
-
-#: cobc/help.c:130
-msgid " --list-exceptions display exception names"
-msgstr " --list-exceptions display exception names"
-
-#: cobc/help.c:131
-msgid " --list-system display system routines"
-msgstr " --list-system display system routines"
-
-#: cobc/help.c:132
-msgid ""
-" --save-temps[=<dir>] save intermediate files\n"
-" * default: current directory"
-msgstr ""
-" --save-temps[=<dir>] save intermediate files\n"
-" * default: current directory"
-
-#: cobc/help.c:134
-msgid " -MT <target> set/add target file used in dependency list"
-msgstr " -MT <target> set/add target file used in dependency list"
-
-#: cobc/help.c:135
-msgid " -MF <file> place dependency list into <file>"
-msgstr " -MF <file> place dependency list into <file>"
-
-#: cobc/help.c:136
-msgid " -ext <extension> add file extension for resolving COPY"
-msgstr " -ext <extension> add file extension for resolving COPY"
-
-#: cobc/help.c:143
-msgid "Warning options:"
-msgstr "Warning options:"
-
-#: cobc/help.c:144
-msgid " -Wall enable most warnings (all except as noted below)"
-msgstr " -Wall enable most warnings (all except as noted below)"
-
-#: cobc/help.c:145
-msgid " -Wextra like -Wall but enable some extra warning flags"
-msgstr " -Wextra like -Wall but enable some extra warning flags"
-
-#: cobc/help.c:146
-msgid " -w disable all warnings"
-msgstr " -w disable all warnings"
-
-#: cobc/help.c:147
-msgid " -Wno-<warning> disable warning enabled by default, -Wall or -Wextra"
-msgstr " -Wno-<warning> disable warning enabled by default, -Wall or -Wextra"
-
-#. TRANSLATORS: This msgid is appended to msgid for -Wno-pending and others
-#: cobc/help.c:153
-msgid " * ALWAYS active"
-msgstr " * ALWAYS active"
-
-#. TRANSLATORS: This msgid is appended to msgid for -Wpossible-truncate and others
-#: cobc/help.c:157
-msgid " * NOT set with -Wall"
-msgstr " * NOT set with -Wall"
-
-#: cobc/help.c:165
-msgid " -fdiagnostics-plain-output\tmake diagnostic output as plain as possible"
-msgstr " -fdiagnostics-plain-output\tmake diagnostic output as plain as possible"
-
-#: cobc/help.c:166
-msgid " -Werror treat all warnings as errors"
-msgstr " -Werror treat all warnings as errors"
-
-#: cobc/help.c:167
-msgid " -Wno-error don't treat warnings as errors"
-msgstr " -Wno-error don't treat warnings as errors"
-
-#: cobc/help.c:168
-msgid " -Werror=<warning> treat specified <warning> as error"
-msgstr " -Werror=<warning> treat specified <warning> as error"
-
-#: cobc/help.c:169
-msgid " -Wno-error=<warning> don't treat specified <warning> as error"
-msgstr " -Wno-error=<warning> don't treat specified <warning> as error"
-
-#: cobc/help.c:185
-msgid "Compiler options:"
-msgstr "Compiler options:"
-
-#: cobc/help.c:203
-msgid ""
-" -fibmcomp sets -fbinary-size=2-4-8 -fsynchronized-clause=ok\n"
-" -fno-ibmcomp sets -fbinary-size=1--8 -fsynchronized-clause=ignore"
-msgstr ""
-" -fibmcomp sets -fbinary-size=2-4-8 -fsynchronized-clause=ok\n"
-" -fno-ibmcomp sets -fbinary-size=1--8 -fsynchronized-clause=ignore"
-
-#: cobc/help.c:206
-msgid ""
-" -falternate-ebcdic use restricted ASCII to EBCDIC translate\n"
-" -fno-alternate-ebcdic use extended ASCII to EBCDIC translate"
-msgstr ""
-" -falternate-ebcdic use restricted ASCII to EBCDIC translate\n"
-" -fno-alternate-ebcdic use extended ASCII to EBCDIC translate"
-
-#: cobc/help.c:235
-msgid "Compiler dialect configuration options:"
-msgstr "Compiler dialect configuration options:"
-
-#: cobc/help.c:237 cobc/help.c:243
-msgid "<value>"
-msgstr "<value>"
-
-#: cobc/help.c:247
-msgid "<support>"
-msgstr "<support>"
-
-#: cobc/help.c:256
-msgid "where <support> is one of the following:"
-msgstr "where <support> is one of the following:"
-
-#. TRANSLATORS: This msgid is used when a variable name
-#. or label is referenced in a compiler message.
-#: cobc/help.c:259 cobc/help.c:262 cobc/help.c:265 cobc/help.c:268
-#: cobc/help.c:271 cobc/help.c:274 cobc/help.c:277 cobc/help.c:280
-#: cobc/typeck.c:2378
-#, c-format
-msgid "'%s'"
-msgstr "'%s'"
-
-#: cobc/help.c:282
-msgid "word to be taken out of the reserved words list"
-msgstr "word to be taken out of the reserved words list"
-
-#: cobc/help.c:282 cobc/help.c:283 cobc/help.c:285
-msgid "<word>"
-msgstr "<word>"
-
-#: cobc/help.c:283
-msgid "word to be added to reserved words list"
-msgstr "word to be added to reserved words list"
-
-#: cobc/help.c:284
-msgid "word to be added to reserved words list as alias"
-msgstr "word to be added to reserved words list as alias"
-
-#: cobc/help.c:284
-msgid "<word>:<alias>"
-msgstr "<word>:<alias>"
-
-#: cobc/help.c:285
-msgid "special register to disable"
-msgstr "special register to disable"
-
-#: cobc/help.c:286
-msgid "special register to enable"
-msgstr "special register to enable"
-
-#: cobc/help.c:287
-msgid "<word> or <word>:<definition>, where definition uses backslash escaped spaces"
-msgstr "<word> or <word>:<definition>, where definition uses backslash escaped spaces"
-
-#: cobc/parser.y:307
-#, c-format
-msgid "'%s' should start in Area A"
-msgstr "‘[1m%s[0m’ should start in Area A"
-
-#: cobc/parser.y:315
-#, c-format
-msgid "%s should start in Area A"
-msgstr "%s should start in Area A"
-
-#: cobc/parser.y:322
-#, c-format
-msgid "%s should not start in Area A"
-msgstr "%s should not start in Area A"
-
-#: cobc/parser.y:330 cobc/parser.y:332
-msgid "start of statement in Area A"
-msgstr "start of statement in Area A"
-
-#: cobc/parser.y:428
-#, c-format
-msgid "unreachable statement '%s'"
-msgstr "unreachable statement ‘[1m%s[0m’"
-
-#: cobc/parser.y:542
-#, c-format
-msgid "ENTRY '%s' duplicated"
-msgstr "ENTRY ‘[1m%s[0m’ duplicated"
-
-#: cobc/parser.y:594
-#, c-format
-msgid "ENTRY FOR GO TO '%s' duplicated"
-msgstr "ENTRY FOR GO TO ‘[1m%s[0m’ duplicated"
-
-#: cobc/parser.y:610
-#, c-format
-msgid "maximum nested program depth exceeded (%d)"
-msgstr "maximum nested program depth exceeded (%d)"
-
-#: cobc/parser.y:636 cobc/parser.y:663
-#, c-format
-msgid "%s statement not terminated by %s"
-msgstr "%s statement not terminated by %s"
-
-#: cobc/parser.y:666
-#, c-format
-msgid "%s statement not terminated"
-msgstr "%s statement not terminated"
-
-#: cobc/parser.y:708
-msgid "USE statement invalid for SD file"
-msgstr "USE statement invalid for SD file"
-
-#: cobc/parser.y:751
-#, c-format
-msgid "%s is ignored"
-msgstr "%s is ignored"
-
-#: cobc/parser.y:760
-#, c-format
-msgid "cannot specify %s without number of lines on page"
-msgstr "cannot specify %s without number of lines on page"
-
-#: cobc/parser.y:770
-#, c-format
-msgid "maximum OCCURS depth exceeded (%d)"
-msgstr "maximum OCCURS depth exceeded (%d)"
-
-#: cobc/parser.y:785 cobc/typeck.c:3127
-#, c-format
-msgid "'%s' is not in LINKAGE SECTION"
-msgstr "‘[1m%s[0m’ is not in LINKAGE SECTION"
-
-#: cobc/parser.y:806
-msgid "TO phrase without DEPENDING phrase"
-msgstr "TO phrase without DEPENDING phrase"
-
-#: cobc/parser.y:808
-msgid "maximum number of occurrences assumed to be exact number"
-msgstr "maximum number of occurrences assumed to be exact number"
-
-#: cobc/parser.y:813 cobc/parser.y:8398
-msgid "OCCURS TO must be greater than OCCURS FROM"
-msgstr "OCCURS TO must be greater than OCCURS FROM"
-
-#: cobc/parser.y:823
-msgid "OCCURS DEPENDING ON without TO phrase"
-msgstr "OCCURS DEPENDING ON without TO phrase"
-
-#: cobc/parser.y:899
-#, c-format
-msgid "%s header missing"
-msgstr "%s header missing"
-
-#: cobc/parser.y:900
-#, c-format
-msgid "%s header assumed"
-msgstr "%s header assumed"
-
-#: cobc/parser.y:1053
-#, c-format
-msgid "%s incorrectly after %s"
-msgstr "%s incorrectly after %s"
-
-#: cobc/parser.y:1208
-#, c-format
-msgid "redefinition of program name '%s'"
-msgstr "redefinition of program name ‘[1m%s[0m’"
-
-#: cobc/parser.y:1213
-#, c-format
-msgid "redefinition of program ID '%s'"
-msgstr "redefinition of program ID ‘[1m%s[0m’"
-
-#: cobc/parser.y:1247
-#, c-format
-msgid "FUNCTION '%s' has no PROCEDURE DIVISION"
-msgstr "FUNCTION ‘[1m%s[0m’ has no PROCEDURE DIVISION"
-
-#: cobc/parser.y:1372
-msgid "functions may not be defined within a program/function"
-msgstr "functions may not be defined within a program/function"
-
-#: cobc/parser.y:1426
-#, c-format
-msgid "END FUNCTION '%s' is different from FUNCTION-ID '%s'"
-msgstr "END FUNCTION ‘[1m%s[0m’ is different from FUNCTION-ID ‘[1m%s[0m’"
-
-#: cobc/parser.y:1440
-#, c-format
-msgid "END PROGRAM '%s' is different from PROGRAM-ID '%s'"
-msgstr "END PROGRAM ‘[1m%s[0m’ is different from PROGRAM-ID ‘[1m%s[0m’"
-
-#: cobc/parser.y:1489
-msgid "currency symbol must be one character long"
-msgstr "currency symbol must be one character long"
-
-#: cobc/parser.y:1546
-#, c-format
-msgid "invalid character '%c' in currency symbol"
-msgstr "invalid character ‘[1m%c[0m’ in currency symbol"
-
-#: cobc/parser.y:1562
-msgid "prototype has same name as current function and will be ignored"
-msgstr "prototype has same name as current function and will be ignored"
-
-#: cobc/parser.y:1589
-#, c-format
-msgid "duplicate REPOSITORY entries for '%s' do not match"
-msgstr "duplicate REPOSITORY entries for ‘[1m%s[0m’ do not match"
-
-#: cobc/parser.y:1593
-#, c-format
-msgid "duplicate REPOSITORY entry for '%s'"
-msgstr "duplicate REPOSITORY entry for ‘[1m%s[0m’"
-
-#: cobc/parser.y:1658
-#, c-format
-msgid "ORGANIZATION %s is incompatible with RECORD DELIMITER"
-msgstr "ORGANIZATION %s is incompatible with RECORD DELIMITER"
-
-#: cobc/parser.y:1694 cobc/parser.y:2142 cobc/typeck.c:835
-#, c-format
-msgid "condition-name not allowed here: '%s'"
-msgstr "condition-name not allowed here: ‘[1m%s[0m’"
-
-#: cobc/parser.y:1700 cobc/parser.y:2345
-msgid "SCREEN item cannot be used here"
-msgstr "SCREEN item cannot be used here"
-
-#: cobc/parser.y:1703
-msgid "REPORT item cannot be used here"
-msgstr "REPORT item cannot be used here"
-
-#: cobc/parser.y:1709
-msgid "TYPEDEF item cannot be used here"
-msgstr "TYPEDEF item cannot be used here"
-
-#: cobc/parser.y:1718
-msgid "elementary item expected"
-msgstr "elementary item expected"
-
-#: cobc/parser.y:1725
-msgid "item may not reference itself"
-msgstr "item may not reference itself"
-
-#: cobc/parser.y:1733
-msgid "item may not be subordinate to any item with USAGE clause"
-msgstr "item may not be subordinate to any item with USAGE clause"
-
-#: cobc/parser.y:1735
-msgid "item may not be subordinate to any item with SIGN clause"
-msgstr "item may not be subordinate to any item with SIGN clause"
-
-#: cobc/parser.y:1780
-#, c-format
-msgid "illegal combination of %s with other clauses"
-msgstr "illegal combination of %s with other clauses"
-
-#: cobc/parser.y:1794
-#, c-format
-msgid "entry following %s may not be subordinate to it"
-msgstr "entry following %s may not be subordinate to it"
-
-#: cobc/parser.y:2042
-msgid "INITIAL specified on non-input field"
-msgstr "INITIAL specified on non-input field"
-
-#: cobc/parser.y:2054
-msgid "relative LINE/COLUMN clause required with OCCURS"
-msgstr "relative LINE/COLUMN clause required with OCCURS"
-
-#: cobc/parser.y:2072
-msgid "FOR phrase cannot immediately follow ALL/LEADING/TRAILING"
-msgstr "FOR phrase cannot immediately follow ALL/LEADING/TRAILING"
-
-#: cobc/parser.y:2074
-msgid "missing CHARACTERS/ALL/LEADING/TRAILING phrase after FOR phrase"
-msgstr "missing CHARACTERS/ALL/LEADING/TRAILING phrase after FOR phrase"
-
-#: cobc/parser.y:2081
-msgid "missing value between ALL/LEADING/TRAILING words"
-msgstr "missing value between ALL/LEADING/TRAILING words"
-
-#: cobc/parser.y:2086
-msgid "missing FOR phrase before CHARACTERS/ALL/LEADING/TRAILING phrase"
-msgstr "missing FOR phrase before CHARACTERS/ALL/LEADING/TRAILING phrase"
-
-#: cobc/parser.y:2093
-msgid "missing ALL/LEADING/TRAILING before value"
-msgstr "missing ALL/LEADING/TRAILING before value"
-
-#: cobc/parser.y:2138
-msgid "use of condition-name in place of data-name"
-msgstr "use of condition-name in place of data-name"
-
-#: cobc/parser.y:2169
-msgid "cannot specify NO ADVANCING in screen DISPLAY"
-msgstr "cannot specify NO ADVANCING in screen DISPLAY"
-
-#: cobc/parser.y:2232 cobc/parser.y:2249
-msgid "non-standard DISPLAY"
-msgstr "non-standard DISPLAY"
-
-#: cobc/parser.y:2236
-msgid "screens may only be displayed on CRT"
-msgstr "screens may only be displayed on CRT"
-
-#: cobc/parser.y:2241 cobc/parser.y:2284
-msgid "cannot mix screens and fields in the same DISPLAY statement"
-msgstr "cannot mix screens and fields in the same DISPLAY statement"
-
-#: cobc/parser.y:2245
-msgid "screen clauses may only be used for DISPLAY on CRT"
-msgstr "screen clauses may only be used for DISPLAY on CRT"
-
-#: cobc/parser.y:2290
-msgid "ambiguous DISPLAY; put items to display on device in separate DISPLAY"
-msgstr "ambiguous DISPLAY; put items to display on device in separate DISPLAY"
-
-#: cobc/parser.y:2301
-#, c-format
-msgid "%s is not an alphanumeric literal"
-msgstr "%s is not an alphanumeric literal"
-
-#: cobc/parser.y:2305
-#, c-format
-msgid "'%s' is not USAGE DISPLAY"
-msgstr "‘[1m%s[0m’ is not USAGE DISPLAY"
-
-#: cobc/parser.y:2322 cobc/parser.y:19534
-#, c-format
-msgid "'%s' is not a field"
-msgstr "‘[1m%s[0m’ is not a field"
-
-#: cobc/parser.y:2338 cobc/typeck.c:10231
-#, c-format
-msgid "invalid target for %s"
-msgstr "invalid target for %s"
-
-#: cobc/parser.y:2347
-msgid "RENAMES item may not be used here"
-msgstr "RENAMES item may not be used here"
-
-#: cobc/parser.y:2349 cobc/typeck.c:2822 cobc/typeck.c:2913
-msgid "ANY LENGTH item not allowed here"
-msgstr "ANY LENGTH item not allowed here"
-
-#: cobc/parser.y:2353
-#, c-format
-msgid "item '%s' has wrong class for VALIDATE"
-msgstr "item ‘[1m%s[0m’ has wrong class for VALIDATE"
-
-#: cobc/parser.y:2362
-msgid "WHEN clause must follow EVERY clause"
-msgstr "WHEN clause must follow EVERY clause"
-
-#: cobc/parser.y:2447 cobc/parser.y:19251
-msgid "non-zero value expected"
-msgstr "non-zero value expected"
-
-#: cobc/parser.y:2453 cobc/tree.c:4803
-#, c-format
-msgid "RECORD size (IDX) exceeds maximum allowed (%d)"
-msgstr "RECORD size (IDX) exceeds maximum allowed (%d)"
-
-#: cobc/parser.y:2457 cobc/tree.c:4807
-#, c-format
-msgid "RECORD size exceeds maximum allowed (%d)"
-msgstr "RECORD size exceeds maximum allowed (%d)"
-
-#: cobc/parser.y:2462
-msgid "RECORD clause invalid"
-msgstr "RECORD clause invalid"
-
-#: cobc/parser.y:3595
-msgid "multiple PROGRAM-ID's without matching END PROGRAM"
-msgstr "multiple PROGRAM-ID's without matching END PROGRAM"
-
-#: cobc/parser.y:3598
-msgid "executable requested but no program found"
-msgstr "executable requested but no program found"
-
-#: cobc/parser.y:3717
-msgid "prototypes must be come before any program/function definitions"
-msgstr "prototypes must be come before any program/function definitions"
-
-#: cobc/parser.y:3930
-msgid "COMMON may only be used in a contained program"
-msgstr "COMMON may only be used in a contained program"
-
-#: cobc/parser.y:4017
-msgid "CALL prototypes"
-msgstr "CALL prototypes"
-
-#: cobc/parser.y:4192 cobc/parser.y:4471 cobc/parser.y:4517 cobc/parser.y:4632
-#: cobc/parser.y:4846 cobc/parser.y:4943 cobc/parser.y:4982 cobc/parser.y:5041
-#: cobc/parser.y:5062 cobc/parser.y:5105 cobc/parser.y:5184 cobc/parser.y:5203
-#: cobc/parser.y:5219 cobc/parser.y:5237 cobc/parser.y:5255 cobc/parser.y:5272
-#: cobc/parser.y:5290 cobc/parser.y:7685 cobc/parser.y:9028
-#, c-format
-msgid "%s not allowed in nested programs"
-msgstr "%s not allowed in nested programs"
-
-#: cobc/parser.y:4345
-msgid "segment-number must be in range of values 1 to 49"
-msgstr "segment-number must be in range of values 1 to 49"
-
-#: cobc/parser.y:4357
-msgid "duplicate CLASSIFICATION clause"
-msgstr "duplicate CLASSIFICATION clause"
-
-#: cobc/parser.y:4436
-msgid "PROGRAM phrase"
-msgstr "PROGRAM phrase"
-
-#: cobc/parser.y:4538 cobc/parser.y:4549 cobc/parser.y:4895
-#, c-format
-msgid "invalid %s clause"
-msgstr "invalid %s clause"
-
-#: cobc/parser.y:4854 cobc/parser.y:4992
-msgid "type does not match alphabet"
-msgstr "type does not match alphabet"
-
-#: cobc/parser.y:4998
-msgid "CLASS IS integer IN alphabet-name"
-msgstr "CLASS IS integer IN alphabet-name"
-
-#: cobc/parser.y:5018 cobc/parser.y:5022
-msgid "CLASS literal with THRU must have size 1"
-msgstr "CLASS literal with THRU must have size 1"
-
-#: cobc/parser.y:5117
-msgid "separate currency symbol and currency string"
-msgstr "separate currency symbol and currency string"
-
-#: cobc/parser.y:5150
-#, c-format
-msgid "invalid CURRENCY SIGN '%s'"
-msgstr "invalid CURRENCY SIGN ‘[1m%s[0m’"
-
-#: cobc/parser.y:5377
-msgid "cannot use RELATIVE KEY clause on INDEXED files"
-msgstr "cannot use RELATIVE KEY clause on INDEXED files"
-
-#: cobc/parser.y:5381
-msgid "cannot use RECORD KEY clause on RELATIVE files"
-msgstr "cannot use RECORD KEY clause on RELATIVE files"
-
-#: cobc/parser.y:5453
-msgid "EXTERNAL/DYNAMIC cannot be used with literals"
-msgstr "EXTERNAL/DYNAMIC cannot be used with literals"
-
-#: cobc/parser.y:5473
-msgid "EXTERNAL/DYNAMIC cannot be used with USING/VARYING"
-msgstr "EXTERNAL/DYNAMIC cannot be used with USING/VARYING"
-
-#: cobc/parser.y:5484
-msgid "EXTERNAL/DYNAMIC cannot be used with DISK FROM"
-msgstr "EXTERNAL/DYNAMIC cannot be used with DISK FROM"
-
-#: cobc/parser.y:5608
-msgid "ASSIGN EXTERNAL/DYNAMIC"
-msgstr "ASSIGN EXTERNAL/DYNAMIC"
-
-#: cobc/parser.y:5724 cobc/parser.y:5921
-#, c-format
-msgid "%s only valid with ORGANIZATION %s"
-msgstr "%s only valid with ORGANIZATION %s"
-
-#: cobc/parser.y:5818 cobc/typeck.c:3818
-#, c-format
-msgid "'%s' is not an alphabet-name"
-msgstr "‘[1m%s[0m’ is not an alphabet-name"
-
-#: cobc/parser.y:5854
-msgid "VSAM status"
-msgstr "VSAM status"
-
-#: cobc/parser.y:5988 cobc/parser.y:6013
-#, c-format
-msgid "RECORD DELIMITER %s only allowed with SEQUENTIAL files"
-msgstr "RECORD DELIMITER %s only allowed with SEQUENTIAL files"
-
-#: cobc/parser.y:6000
-#, c-format
-msgid "RECORD DELIMITER %s only allowed with (LINE) SEQUENTIAL files"
-msgstr "RECORD DELIMITER %s only allowed with (LINE) SEQUENTIAL files"
-
-#: cobc/parser.y:6006
-msgid "LINE-SEQUENTIAL phrase"
-msgstr "LINE-SEQUENTIAL phrase"
-
-#: cobc/parser.y:6019
-msgid "BINARY-SEQUENTIAL phrase"
-msgstr "BINARY-SEQUENTIAL phrase"
-
-#: cobc/parser.y:6027
-msgid "RECORD DELIMITER clause only allowed with (LINE) SEQUENTIAL files"
-msgstr "RECORD DELIMITER clause only allowed with (LINE) SEQUENTIAL files"
-
-#: cobc/parser.y:6031
-#, c-format
-msgid "RECORD DELIMITER %s not recognized; will be ignored"
-msgstr "RECORD DELIMITER %s not recognized; will be ignored"
-
-#: cobc/parser.y:6069
-msgid "DUPLICATES for primary keys"
-msgstr "DUPLICATES for primary keys"
-
-#: cobc/parser.y:6313
-msgid "DOS/VS APPLY phrase"
-msgstr "DOS/VS APPLY phrase"
-
-#: cobc/parser.y:6467
-msgid "RECORD description missing or invalid"
-msgstr "RECORD description missing or invalid"
-
-#: cobc/parser.y:6494
-#, c-format
-msgid "duplicate file description for %s"
-msgstr "duplicate file description for %s"
-
-#: cobc/parser.y:6543 cobc/parser.y:7170 cobc/parser.y:7670 cobc/parser.y:13913
-#: cobc/parser.y:17210
-#, c-format
-msgid "%s is invalid in a user FUNCTION"
-msgstr "%s is invalid in a user FUNCTION"
-
-#: cobc/parser.y:6581 cobc/parser.y:6591
-msgid "RECORD clause ignored for LINE SEQUENTIAL"
-msgstr "RECORD clause ignored for LINE SEQUENTIAL"
-
-#: cobc/parser.y:6688
-msgid "LINAGE clause with wrong file type"
-msgstr "LINAGE clause with wrong file type"
-
-#: cobc/parser.y:6750
-msgid "RECORDING MODE U or S can only be used with RECORD SEQUENTIAL files"
-msgstr "RECORDING MODE U or S can only be used with RECORD SEQUENTIAL files"
-
-#: cobc/parser.y:6787
-#, c-format
-msgid "ignoring CODE-SET '%s'"
-msgstr "ignoring CODE-SET ‘[1m%s[0m’"
-
-#: cobc/parser.y:6796
-msgid "CODE-SET clause invalid for file type"
-msgstr "CODE-SET clause invalid for file type"
-
-#: cobc/parser.y:6817
-msgid "REPORT clause with wrong file type"
-msgstr "REPORT clause with wrong file type"
-
-#: cobc/parser.y:6899
-msgid "CD record missing"
-msgstr "CD record missing"
-
-#: cobc/parser.y:7372
-msgid "CONSTANT item not at 01 level"
-msgstr "CONSTANT item not at 01 level"
-
-#: cobc/parser.y:7517
-msgid "REDEFINES clause not following entry-name"
-msgstr "REDEFINES clause not following entry-name"
-
-#: cobc/parser.y:7590 cobc/parser.y:7620 cobc/parser.y:7662 cobc/parser.y:7751
-#: cobc/parser.y:8606
-#, c-format
-msgid "%s only allowed at 01/77 level"
-msgstr "%s only allowed at 01/77 level"
-
-#: cobc/parser.y:7593 cobc/parser.y:7622 cobc/parser.y:7664 cobc/parser.y:8608
-#: cobc/parser.y:8987 cobc/parser.y:9009
-#, c-format
-msgid "%s requires a data name"
-msgstr "%s requires a data name"
-
-#: cobc/parser.y:7597 cobc/parser.y:7846
-#, c-format
-msgid "%s not allowed in %s"
-msgstr "%s not allowed in %s"
-
-#: cobc/parser.y:7618 cobc/parser.y:7672 cobc/parser.y:8604 cobc/parser.y:8983
-#: cobc/parser.y:9007
-#, c-format
-msgid "%s not allowed here"
-msgstr "%s not allowed here"
-
-#: cobc/parser.y:7809
-#, c-format
-msgid "%s requires DEPENDING clause"
-msgstr "%s requires DEPENDING clause"
-
-#: cobc/parser.y:7825
-msgid "a locale-format PICTURE string must only consist of '9', '.', '+', 'Z' and the currency-sign"
-msgstr "a locale-format PICTURE string must only consist of '9', '.', '+', ‘[1mZ[0m’ and the currency-sign"
-
-#: cobc/parser.y:7835
-msgid "DEPENDING clause needs either an OCCURS clause or a variable-length PICTURE"
-msgstr "DEPENDING clause needs either an OCCURS clause or a variable-length PICTURE"
-
-#: cobc/parser.y:7841
-msgid "only USAGE DISPLAY may specify a variable-length PICTURE"
-msgstr "only USAGE DISPLAY may specify a variable-length PICTURE"
-
-#: cobc/parser.y:7893 cobc/typeck.c:4916
-#, c-format
-msgid "'%s' is not a locale-name"
-msgstr "‘[1m%s[0m’ is not a locale-name"
-
-#: cobc/parser.y:7939
-#, c-format
-msgid "'%s' is not a valid USAGE"
-msgstr "‘[1m%s[0m’ is not a valid USAGE"
-
-#: cobc/parser.y:7944
-#, c-format
-msgid "unknown USAGE: %s"
-msgstr "unknown USAGE: %s"
-
-#: cobc/parser.y:8139
-#, c-format
-msgid "unknown HANDLE type: %s"
-msgstr "unknown HANDLE type: %s"
-
-#: cobc/parser.y:8347
-#, c-format
-msgid "'%s' is not USAGE UTF-8"
-msgstr "‘[1m%s[0m’ is not USAGE UTF-8"
-
-#: cobc/parser.y:8448
-msgid "INDEXED should follow ASCENDING/DESCENDING"
-msgstr "INDEXED should follow ASCENDING/DESCENDING"
-
-#: cobc/parser.y:8658 cobc/parser.y:8660
-#, c-format
-msgid "unexpected %s"
-msgstr "unexpected %s"
-
-#: cobc/parser.y:8709
-msgid "amount of entries in FROM and TO must match"
-msgstr "amount of entries in FROM and TO must match"
-
-#: cobc/parser.y:8718
-#, c-format
-msgid "entry in FROM (%d) must be <= entry in TO (%d)"
-msgstr "entry in FROM (%d) must be <= entry in TO (%d)"
-
-#: cobc/parser.y:8985
-#, c-format
-msgid "%s only allowed at 01 level"
-msgstr "%s only allowed at 01 level"
-
-#: cobc/parser.y:8989 cobc/parser.y:9011
-#, c-format
-msgid "%s and %s combination not allowed"
-msgstr "%s and %s combination not allowed"
-
-#: cobc/parser.y:9127
-msgid "GLOBAL is not allowed with RD"
-msgstr "GLOBAL is not allowed with RD"
-
-#: cobc/parser.y:9650
-#, c-format
-msgid "%s is not valid for VARYING"
-msgstr "%s is not valid for VARYING"
-
-#: cobc/parser.y:9686
-msgid "LINE with OCCURS is not supported"
-msgstr "LINE with OCCURS is not supported"
-
-#: cobc/parser.y:9726
-msgid "PLUS is not recommended with LEFT, RIGHT or CENTER"
-msgstr "PLUS is not recommended with LEFT, RIGHT or CENTER"
-
-#: cobc/parser.y:9728
-msgid "PLUS is not allowed with LEFT, RIGHT or CENTER"
-msgstr "PLUS is not allowed with LEFT, RIGHT or CENTER"
-
-#: cobc/parser.y:9766
-msgid "PLUS is ignored on first field of line"
-msgstr "PLUS is ignored on first field of line"
-
-#: cobc/parser.y:9797
-msgid "invalid COLUMN integer; must be > 0"
-msgstr "invalid COLUMN integer; must be > 0"
-
-#: cobc/parser.y:9799
-msgid "COLUMN numbers should increase"
-msgstr "COLUMN numbers should increase"
-
-#: cobc/parser.y:9990 cobc/parser.y:9994
-msgid "screen positions from data-item"
-msgstr "screen positions from data-item"
-
-#: cobc/parser.y:10153
-#, c-format
-msgid "missing %s"
-msgstr "missing %s"
-
-#: cobc/parser.y:10840
-msgid "OCCURS screen items"
-msgstr "OCCURS screen items"
-
-#: cobc/parser.y:10852
-msgid "GLOBAL screen items"
-msgstr "GLOBAL screen items"
-
-#: cobc/parser.y:10904
-msgid "overriding convention specified in ENTRY-CONVENTION"
-msgstr "overriding convention specified in ENTRY-CONVENTION"
-
-#: cobc/parser.y:10917
-msgid "executable program requested but PROCEDURE/ENTRY has USING clause"
-msgstr "executable program requested but PROCEDURE/ENTRY has USING clause"
-
-#: cobc/parser.y:10987 cobc/parser.y:11004 cobc/parser.y:12667
-#, c-format
-msgid "number of arguments exceeds maximum %d"
-msgstr "number of arguments exceeds maximum %d"
-
-#: cobc/parser.y:10996
-msgid "CHAINING invalid in user FUNCTION"
-msgstr "CHAINING invalid in user FUNCTION"
-
-#: cobc/parser.y:11032
-msgid "ANY LENGTH items may only be BY REFERENCE formal parameters"
-msgstr "ANY LENGTH items may only be BY REFERENCE formal parameters"
-
-#: cobc/parser.y:11049 cobc/parser.y:12728 cobc/parser.y:12741
-#, c-format
-msgid "%s not allowed in CHAINED programs"
-msgstr "%s not allowed in CHAINED programs"
-
-#: cobc/parser.y:11051
-msgid "parameters passed BY VALUE"
-msgstr "parameters passed BY VALUE"
-
-#: cobc/parser.y:11066 cobc/parser.y:11075 cobc/parser.y:11083
-#: cobc/parser.y:11104
-msgid "SIZE only allowed for BY VALUE items"
-msgstr "SIZE only allowed for BY VALUE items"
-
-#: cobc/parser.y:11106 cobc/parser.y:11131
-msgid "invalid value for SIZE"
-msgstr "invalid value for SIZE"
-
-#: cobc/parser.y:11146
-msgid "MEMORY SIZE phrase in CALL statement"
-msgstr "MEMORY SIZE phrase in CALL statement"
-
-#: cobc/parser.y:11162
-msgid "OPTIONAL only allowed for BY REFERENCE items"
-msgstr "OPTIONAL only allowed for BY REFERENCE items"
-
-#: cobc/parser.y:11177
-msgid "RETURNING clause is required for a FUNCTION"
-msgstr "RETURNING clause is required for a FUNCTION"
-
-#: cobc/parser.y:11183
-msgid "RETURNING clause cannot be OMITTED for main program"
-msgstr "RETURNING clause cannot be OMITTED for main program"
-
-#: cobc/parser.y:11186
-msgid "RETURNING clause cannot be OMITTED for a FUNCTION"
-msgstr "RETURNING clause cannot be OMITTED for a FUNCTION"
-
-#: cobc/parser.y:11199
-msgid "RETURNING item is not defined in LINKAGE SECTION"
-msgstr "RETURNING item is not defined in LINKAGE SECTION"
-
-#: cobc/parser.y:11201
-msgid "RETURNING item must have level 01"
-msgstr "RETURNING item must have level 01"
-
-#: cobc/parser.y:11203
-msgid "RETURNING item should not have OCCURS"
-msgstr "RETURNING item should not have OCCURS"
-
-#: cobc/parser.y:11207
-msgid "function RETURNING item may not be ANY LENGTH"
-msgstr "function RETURNING item may not be ANY LENGTH"
-
-#: cobc/parser.y:11421
-#, c-format
-msgid "'%s' is not a statement"
-msgstr "‘[1m%s[0m’ is not a statement"
-
-#: cobc/parser.y:11424
-#, c-format
-msgid "unknown statement '%s'; it may exist in another dialect"
-msgstr "unknown statement '%s'; it may exist in another dialect"
-
-#: cobc/parser.y:11428
-#, c-format
-msgid "unknown statement '%s'"
-msgstr "unknown statement ‘[1m%s[0m’"
-
-#: cobc/parser.y:11446
-msgid "SECTION segment-number must be less than or equal to 99"
-msgstr "SECTION segment-number must be less than or equal to 99"
-
-#: cobc/parser.y:11449
-msgid "SECTION segment-number in DECLARATIVES must be less than 50"
-msgstr "SECTION segment-number in DECLARATIVES must be less than 50"
-
-#: cobc/parser.y:11457
-msgid "SECTION segment within DECLARATIVES"
-msgstr "SECTION segment within DECLARATIVES"
-
-#: cobc/parser.y:11667 cobc/parser.y:11806
-msgid "non-standard ACCEPT"
-msgstr "non-standard ACCEPT"
-
-#: cobc/parser.y:11679
-msgid "PROMPT clause"
-msgstr "PROMPT clause"
-
-#: cobc/parser.y:11683
-msgid "SIZE IS clause"
-msgstr "SIZE IS clause"
-
-#: cobc/parser.y:11907 cobc/parser.y:12226
-msgid "TIME-OUT or BEFORE TIME clauses"
-msgstr "TIME-OUT or BEFORE TIME clauses"
-
-#: cobc/parser.y:11937 cobc/parser.y:11960 cobc/parser.y:11978
-msgid "AT screen-location"
-msgstr "AT screen-location"
-
-#: cobc/parser.y:11979
-msgid "LINE or COLUMN"
-msgstr "LINE or COLUMN"
-
-#: cobc/parser.y:12358
-msgid "ALLOCATE CHARACTERS requires RETURNING clause"
-msgstr "ALLOCATE CHARACTERS requires RETURNING clause"
-
-#: cobc/parser.y:12373
-#, c-format
-msgid "ignoring %s phrase"
-msgstr "ignoring %s phrase"
-
-#: cobc/parser.y:12375
-msgid "addressing mode should be either 24 or 31 bit"
-msgstr "addressing mode should be either 24 or 31 bit"
-
-#: cobc/parser.y:12446
-msgid "CALL to own PROGRAM-ID"
-msgstr "CALL to own PROGRAM-ID"
-
-#: cobc/parser.y:12447
-msgid "assuming RECURSIVE attribute"
-msgstr "assuming RECURSIVE attribute"
-
-#: cobc/parser.y:12467
-msgid "STATIC CALL convention ignored because of ON EXCEPTION"
-msgstr "STATIC CALL convention ignored because of ON EXCEPTION"
-
-#: cobc/parser.y:12476
-msgid "ON EXCEPTION ignored because of STATIC CALL"
-msgstr "ON EXCEPTION ignored because of STATIC CALL"
-
-#: cobc/parser.y:12594 cobc/typeck.c:14450
-msgid "invalid mnemonic name"
-msgstr "invalid mnemonic name"
-
-#: cobc/parser.y:12618
-msgid "id/literal ignored, using prototype name"
-msgstr "id/literal ignored, using prototype name"
-
-#: cobc/parser.y:12624
-msgid "NESTED phrase is only valid with literal"
-msgstr "NESTED phrase is only valid with literal"
-
-#: cobc/parser.y:12685
-#, c-format
-msgid "%s only allowed when arguments are passed %s"
-msgstr "%s only allowed when arguments are passed %s"
-
-#: cobc/parser.y:12776
-msgid "RETURNING item must have level 01 or 77"
-msgstr "RETURNING item must have level 01 or 77"
-
-#: cobc/parser.y:12780
-msgid "RETURNING item must be a LINKAGE SECTION item or have BASED clause"
-msgstr "RETURNING item must be a LINKAGE SECTION item or have BASED clause"
-
-#: cobc/parser.y:12814 cobc/parser.y:17937 cobc/parser.y:18000
-msgid "NOT EXCEPTION before EXCEPTION"
-msgstr "NOT EXCEPTION before EXCEPTION"
-
-#: cobc/parser.y:13572
-#, c-format
-msgid "HANDLE must be a %s HANDLE"
-msgstr "HANDLE must be a %s HANDLE"
-
-#: cobc/parser.y:13584
-msgid "HANDLE must be a generic HANDLE"
-msgstr "HANDLE must be a generic HANDLE"
-
-#: cobc/parser.y:13661
-#, c-format
-msgid "HANDLE clause invalid for %s"
-msgstr "HANDLE clause invalid for %s"
-
-#: cobc/parser.y:13911 cobc/parser.y:17400
-#, c-format
-msgid "%s is invalid in nested program"
-msgstr "%s is invalid in nested program"
-
-#: cobc/parser.y:13940 cobc/parser.y:13983 cobc/parser.y:13994
-#: cobc/parser.y:14005
-#, c-format
-msgid "maximum evaluate depth exceeded (%d)"
-msgstr "maximum evaluate depth exceeded (%d)"
-
-#: cobc/parser.y:14048 cobc/parser.y:14089 cobc/parser.y:14633
-#: cobc/parser.y:14644 cobc/parser.y:14653 cobc/parser.y:17959
-#: cobc/parser.y:17981 cobc/parser.y:18022 cobc/parser.y:18038
-#: cobc/parser.y:18078 cobc/parser.y:18095 cobc/parser.y:18132
-#: cobc/parser.y:18149 cobc/parser.y:18199 cobc/parser.y:18216
-#: cobc/parser.y:18252 cobc/parser.y:18269 cobc/parser.y:18310
-#: cobc/parser.y:18327
-#, c-format
-msgid "%s without imperative statement"
-msgstr "%s without imperative statement"
-
-#: cobc/parser.y:14056 cobc/parser.y:14066
-msgid "WHEN without imperative statement"
-msgstr "WHEN without imperative statement"
-
-#: cobc/parser.y:14097 cobc/parser.y:14107
-msgid "WHEN OTHER without imperative statement"
-msgstr "WHEN OTHER without imperative statement"
-
-#: cobc/parser.y:14191
-msgid "invalid THROUGH usage"
-msgstr "invalid THROUGH usage"
-
-#: cobc/parser.y:14372
-msgid "EXIT PROGRAM is not allowed within a USE GLOBAL procedure"
-msgstr "EXIT PROGRAM is not allowed within a USE GLOBAL procedure"
-
-#: cobc/parser.y:14376
-msgid "EXIT PROGRAM not allowed within a FUNCTION"
-msgstr "EXIT PROGRAM not allowed within a FUNCTION"
-
-#: cobc/parser.y:14390
-msgid "EXIT FUNCTION is not allowed within a USE GLOBAL procedure"
-msgstr "EXIT FUNCTION is not allowed within a USE GLOBAL procedure"
-
-#: cobc/parser.y:14394
-msgid "EXIT FUNCTION only allowed within a FUNCTION"
-msgstr "EXIT FUNCTION only allowed within a FUNCTION"
-
-#: cobc/parser.y:14408 cobc/parser.y:14431
-msgid "EXIT PERFORM is only valid with inline PERFORM"
-msgstr "EXIT PERFORM is only valid with inline PERFORM"
-
-#: cobc/parser.y:14453
-msgid "EXIT SECTION is only valid with an active SECTION"
-msgstr "EXIT SECTION is only valid with an active SECTION"
-
-#: cobc/parser.y:14474
-msgid "EXIT PARAGRAPH is only valid with an active PARAGRAPH"
-msgstr "EXIT PARAGRAPH is only valid with an active PARAGRAPH"
-
-#: cobc/parser.y:14497
-msgid "RETURNING/GIVING not allowed for non-returning runtime elements"
-msgstr "RETURNING/GIVING not allowed for non-returning runtime elements"
-
-#: cobc/parser.y:14640
-msgid "IF without imperative statement"
-msgstr "IF without imperative statement"
-
-#: cobc/parser.y:14983 cobc/parser.y:14992
-msgid "single-character literal or data item expected"
-msgstr "single-character literal or data item expected"
-
-#: cobc/parser.y:15010
-msgid "TALLYING clause is incomplete"
-msgstr "TALLYING clause is incomplete"
-
-#: cobc/parser.y:15126
-msgid "INSPECT missing ALL/FIRST/LEADING/TRAILING"
-msgstr "INSPECT missing ALL/FIRST/LEADING/TRAILING"
-
-#: cobc/parser.y:15390
-msgid "LOCK clauses"
-msgstr "LOCK clauses"
-
-#: cobc/parser.y:15547
-msgid "inline PERFORM without imperative statement"
-msgstr "inline PERFORM without imperative statement"
-
-#: cobc/parser.y:15670 cobc/parser.y:15678 cobc/parser.y:15686
-#, c-format
-msgid "PERFORM VARYING '%s' (line %d of %s) is not a numeric field"
-msgstr "PERFORM VARYING ‘[1m%s[0m’ (line %d of %s) is not a numeric field"
-
-#: cobc/parser.y:15702
-msgid "PERFORM VARYING without BY phrase"
-msgstr "PERFORM VARYING without BY phrase"
-
-#: cobc/parser.y:15742
-#, c-format
-msgid "'%s' is not an object-reference"
-msgstr "‘[1m%s[0m’ is not an object-reference"
-
-#: cobc/parser.y:15782 cobc/typeck.c:13066 cobc/typeck.c:14358
-msgid "LOCK clause invalid with file LOCK AUTOMATIC"
-msgstr "LOCK clause invalid with file LOCK AUTOMATIC"
-
-#: cobc/parser.y:15787
-msgid "KEY clause invalid with this file type"
-msgstr "KEY clause invalid with this file type"
-
-#: cobc/parser.y:15792 cobc/typeck.c:13062 cobc/typeck.c:14354
-msgid "INVALID KEY clause invalid with this file type"
-msgstr "INVALID KEY clause invalid with this file type"
-
-#: cobc/parser.y:16494
-msgid "MERGE requires KEY phrase"
-msgstr "MERGE requires KEY phrase"
-
-#: cobc/parser.y:16498
-msgid "file SORT requires KEY phrase"
-msgstr "file SORT requires KEY phrase"
-
-#: cobc/parser.y:16522
-msgid "table SORT requires KEY phrase"
-msgstr "table SORT requires KEY phrase"
-
-#: cobc/parser.y:16527
-msgid "must be an SD filename"
-msgstr "must be an SD filename"
-
-#: cobc/parser.y:16585
-msgid "MERGE requires USING files"
-msgstr "MERGE requires USING files"
-
-#: cobc/parser.y:16587
-msgid "file SORT requires USING or INPUT PROCEDURE"
-msgstr "file SORT requires USING or INPUT PROCEDURE"
-
-#: cobc/parser.y:16595
-msgid "USING invalid with table SORT"
-msgstr "USING invalid with table SORT"
-
-#: cobc/parser.y:16605
-msgid "INPUT PROCEDURE invalid with table SORT"
-msgstr "INPUT PROCEDURE invalid with table SORT"
-
-#: cobc/parser.y:16607
-msgid "INPUT PROCEDURE invalid with MERGE"
-msgstr "INPUT PROCEDURE invalid with MERGE"
-
-#: cobc/parser.y:16621
-msgid "MERGE requires GIVING or OUTPUT PROCEDURE"
-msgstr "MERGE requires GIVING or OUTPUT PROCEDURE"
-
-#: cobc/parser.y:16623
-msgid "file SORT requires GIVING or OUTPUT PROCEDURE"
-msgstr "file SORT requires GIVING or OUTPUT PROCEDURE"
-
-#: cobc/parser.y:16631
-msgid "GIVING invalid with table SORT"
-msgstr "GIVING invalid with table SORT"
-
-#: cobc/parser.y:16641
-msgid "OUTPUT PROCEDURE invalid with table SORT"
-msgstr "OUTPUT PROCEDURE invalid with table SORT"
-
-#: cobc/parser.y:16668
-msgid "SIZE/LENGTH invalid here"
-msgstr "SIZE/LENGTH invalid here"
-
-#: cobc/parser.y:16717
-msgid "NOT EQUAL condition not allowed on START statement"
-msgstr "NOT EQUAL condition not allowed on START statement"
-
-#: cobc/parser.y:16776
-#, c-format
-msgid "%s is replaced by %s"
-msgstr "%s is replaced by %s"
-
-#: cobc/parser.y:16825
-msgid "STOP literal"
-msgstr "STOP literal"
-
-#: cobc/parser.y:16829
-msgid "STOP identifier"
-msgstr "STOP identifier"
-
-#: cobc/parser.y:16969
-msgid "SUPPRESS statement must be within DECLARATIVES"
-msgstr "SUPPRESS statement must be within DECLARATIVES"
-
-#: cobc/parser.y:17043
-msgid "UNLOCK invalid for SD files"
-msgstr "UNLOCK invalid for SD files"
-
-#: cobc/parser.y:17180 cobc/parser.y:17260
-msgid "USE statement must be within DECLARATIVES"
-msgstr "USE statement must be within DECLARATIVES"
-
-#: cobc/parser.y:17182
-msgid "SECTION header missing before USE statement"
-msgstr "SECTION header missing before USE statement"
-
-#: cobc/parser.y:17262
-msgid "USE DEBUGGING not supported in contained program"
-msgstr "USE DEBUGGING not supported in contained program"
-
-#: cobc/parser.y:17310 cobc/parser.y:17319 cobc/parser.y:17337
-#: cobc/parser.y:17373 cobc/typeck.c:5050
-#, c-format
-msgid "duplicate DEBUGGING target: '%s'"
-msgstr "duplicate DEBUGGING target: ‘[1m%s[0m’"
-
-#: cobc/parser.y:17335
-msgid "constant item cannot be used here"
-msgstr "constant item cannot be used here"
-
-#: cobc/parser.y:17361
-msgid "duplicate USE DEBUGGING ON ALL PROCEDURES"
-msgstr "duplicate USE DEBUGGING ON ALL PROCEDURES"
-
-#: cobc/parser.y:17614
-msgid "ENCODING clause must come before XML-DECLARATION"
-msgstr "ENCODING clause must come before XML-DECLARATION"
-
-#: cobc/parser.y:17616
-msgid "ENCODING clause must come before ATTRIBUTES"
-msgstr "ENCODING clause must come before ATTRIBUTES"
-
-#: cobc/parser.y:17619
-msgid "XML GENERATE ENCODING clause"
-msgstr "XML GENERATE ENCODING clause"
-
-#: cobc/parser.y:17626
-msgid "XML-DECLARATION clause must come before ATTRIBUTES"
-msgstr "XML-DECLARATION clause must come before ATTRIBUTES"
-
-#: cobc/parser.y:17629
-msgid "XML GENERATE XML-DECLARATION clause"
-msgstr "XML GENERATE XML-DECLARATION clause"
-
-#: cobc/parser.y:17635
-msgid "XML GENERATE WITH ATTRIBUTES clause"
-msgstr "XML GENERATE WITH ATTRIBUTES clause"
-
-#: cobc/parser.y:17648
-msgid "XML GENERATE NAMESPACE clause"
-msgstr "XML GENERATE NAMESPACE clause"
-
-#: cobc/parser.y:17672
-msgid "XML GENERATE NAME OF clause"
-msgstr "XML GENERATE NAME OF clause"
-
-#: cobc/parser.y:17736
-msgid "XML GENERATE TYPE OF clause"
-msgstr "XML GENERATE TYPE OF clause"
-
-#: cobc/parser.y:17777
-msgid "XML GENERATE SUPPRESS clause"
-msgstr "XML GENERATE SUPPRESS clause"
-
-#: cobc/parser.y:17920
-#, c-format
-msgid "'%s' is not a schema name"
-msgstr "‘[1m%s[0m’ is not a schema name"
-
-#: cobc/parser.y:18055
-msgid "NOT SIZE ERROR before SIZE ERROR"
-msgstr "NOT SIZE ERROR before SIZE ERROR"
-
-#: cobc/parser.y:18109
-msgid "NOT OVERFLOW before OVERFLOW"
-msgstr "NOT OVERFLOW before OVERFLOW"
-
-#: cobc/parser.y:18161 cobc/parser.y:18176
-msgid "NOT AT END before AT END"
-msgstr "NOT AT END before AT END"
-
-#: cobc/parser.y:18229
-msgid "NOT AT END-OF-PAGE before AT END-OF-PAGE"
-msgstr "NOT AT END-OF-PAGE before AT END-OF-PAGE"
-
-#: cobc/parser.y:18287
-msgid "NOT INVALID KEY before INVALID KEY"
-msgstr "NOT INVALID KEY before INVALID KEY"
-
-#: cobc/parser.y:18644
-msgid "LINAGE-COUNTER must be qualified here"
-msgstr "LINAGE-COUNTER must be qualified here"
-
-#: cobc/parser.y:18647
-msgid "invalid LINAGE-COUNTER usage"
-msgstr "invalid LINAGE-COUNTER usage"
-
-#: cobc/parser.y:18658 cobc/parser.y:18754 cobc/parser.y:18843
-#, c-format
-msgid "'%s' is not a file name"
-msgstr "‘[1m%s[0m’ is not a file name"
-
-#: cobc/parser.y:18668
-msgid "LINE-COUNTER must be qualified here"
-msgstr "LINE-COUNTER must be qualified here"
-
-#: cobc/parser.y:18672
-msgid "invalid LINE-COUNTER usage"
-msgstr "invalid LINE-COUNTER usage"
-
-#: cobc/parser.y:18683 cobc/parser.y:18708
-#, c-format
-msgid "'%s' is not a report name"
-msgstr "‘[1m%s[0m’ is not a report name"
-
-#: cobc/parser.y:18693
-msgid "PAGE-COUNTER must be qualified here"
-msgstr "PAGE-COUNTER must be qualified here"
-
-#: cobc/parser.y:18697
-msgid "invalid PAGE-COUNTER usage"
-msgstr "invalid PAGE-COUNTER usage"
-
-#: cobc/parser.y:18744 cobc/typeck.c:13027 cobc/typeck.c:13110
-#: cobc/typeck.c:14322
-#, c-format
-msgid "%s requires a record name as subject"
-msgstr "%s requires a record name as subject"
-
-#: cobc/parser.y:18771
-#, c-format
-msgid "'%s' not indexed"
-msgstr "‘[1m%s[0m’ not indexed"
-
-#: cobc/parser.y:18776
-msgid "SEARCH ALL requires KEY phrase"
-msgstr "SEARCH ALL requires KEY phrase"
-
-#: cobc/parser.y:18800 cobc/parser.y:18825
-#, c-format
-msgid "multiple reference to '%s' "
-msgstr "multiple reference to ‘[1m%s[0m’ "
-
-#: cobc/parser.y:18855
-#, c-format
-msgid "'%s' is not a CD name"
-msgstr "‘[1m%s[0m’ is not a CD name"
-
-#: cobc/parser.y:18869
-#, c-format
-msgid "'%s' is not a valid report name"
-msgstr "‘[1m%s[0m’ is not a valid report name"
-
-#: cobc/parser.y:19134
-msgid "invalid mnemonic identifier"
-msgstr "invalid mnemonic identifier"
-
-#: cobc/parser.y:19214
-msgid "an alphanumeric literal is expected here"
-msgstr "an alphanumeric literal is expected here"
-
-#: cobc/parser.y:19226
-msgid "a numeric literal is expected here"
-msgstr "a numeric literal is expected here"
-
-#: cobc/parser.y:19238 cobc/parser.y:19979
-msgid "a non-numeric literal is expected here"
-msgstr "a non-numeric literal is expected here"
-
-#: cobc/parser.y:19404 cobc/typeck.c:993 cobc/typeck.c:4825 cobc/typeck.c:7679
-#: cobc/typeck.c:7686
-#, c-format
-msgid "'%s' is not numeric"
-msgstr "‘[1m%s[0m’ is not numeric"
-
-#: cobc/parser.y:19420
-#, c-format
-msgid "'%s' is not a field or file"
-msgstr "‘[1m%s[0m’ is not a field or file"
-
-#: cobc/parser.y:19446
-#, c-format
-msgid "'%s' is not a type-name"
-msgstr "‘[1m%s[0m’ is not a type-name"
-
-#: cobc/parser.y:19526 cobc/typeck.c:2345 cobc/typeck.c:2401 cobc/typeck.c:2550
-#, c-format
-msgid "'%s' cannot be reference modified"
-msgstr "‘[1m%s[0m’ cannot be reference modified"
-
-#: cobc/parser.y:19627
-#, c-format
-msgid "'%s' is not a field or alphabet"
-msgstr "‘[1m%s[0m’ is not a field or alphabet"
-
-#: cobc/parser.y:19653
-msgid "a subscripted data-item cannot be used here"
-msgstr "a subscripted data-item cannot be used here"
-
-#: cobc/parser.y:19701
-msgid "unsigned integer value expected"
-msgstr "unsigned integer value expected"
-
-#: cobc/parser.y:19713 cobc/parser.y:19717 cobc/parser.y:19767
-msgid "integer value expected"
-msgstr "integer value expected"
-
-#: cobc/parser.y:19722
-msgid "invalid symbolic integer"
-msgstr "invalid symbolic integer"
-
-#: cobc/parser.y:19738 cobc/parser.y:19742
-msgid "unsigned positive integer value expected"
-msgstr "unsigned positive integer value expected"
-
-#: cobc/parser.y:19772
-#, c-format
-msgid "CLASS value %d outside of range for the used character set"
-msgstr "CLASS value %d outside of range for the used character set"
-
-#: cobc/parser.y:19859
-msgid "PHYSICAL argument for LENGTH functions"
-msgstr "PHYSICAL argument for LENGTH functions"
-
-#: cobc/parser.y:20031 cobc/parser.y:20048
-msgid "cannot specify offset and SYSTEM-OFFSET at the same time"
-msgstr "cannot specify offset and SYSTEM-OFFSET at the same time"
-
-#: cobc/parser.y:20228
-msgid "terminator"
-msgstr "terminator"
-
-#: cobc/parser.y:20317 cobc/parser.y:20327 cobc/parser.y:20338
-#: cobc/parser.y:20348 cobc/parser.y:20369 cobc/parser.y:20389
-#: cobc/parser.y:20396
-msgid "optional period"
-msgstr "optional period"
-
-#: cobc/pplex.l:261 cobc/pplex.l:2448 cobc/pplex.l:2462
-msgid "debugging indicator"
-msgstr "debugging indicator"
-
-#: cobc/pplex.l:348
-msgid "ignoring empty directive"
-msgstr "ignoring empty directive"
-
-#: cobc/pplex.l:358 cobc/pplex.l:431
-#, c-format
-msgid "ignoring invalid directive: '%s'"
-msgstr "ignoring invalid directive: ‘[1m%s[0m’"
-
-#: cobc/pplex.l:365
-msgid "ignoring invalid directive"
-msgstr "ignoring invalid directive"
-
-#: cobc/pplex.l:372
-msgid "VCS directive"
-msgstr "VCS directive"
-
-#: cobc/pplex.l:440 cobc/pplex.l:461
-#, c-format
-msgid "ignoring unknown directive: '%s'"
-msgstr "ignoring unknown directive: ‘[1m%s[0m’"
-
-#: cobc/pplex.l:1164
-msgid "IF/ELIF/ELSE directive without matching END-IF"
-msgstr "IF/ELIF/ELSE directive without matching END-IF"
-
-#: cobc/pplex.l:1332
-msgid "free format detected"
-msgstr "free format detected"
-
-#: cobc/pplex.l:1608
-#, c-format
-msgid "copybook not found in library '%s', library-name ignored"
-msgstr "copybook not found in library '%s', library-name ignored"
-
-#: cobc/pplex.l:1667
-#, c-format
-msgid "ignoring %s directive because of %s"
-msgstr "ignoring %s directive because of %s"
-
-#: cobc/pplex.l:1854
-#, c-format
-msgid "directive nest depth exceeded: %d"
-msgstr "directive nest depth exceeded: %d"
-
-#: cobc/pplex.l:1872
-msgid "ELSE directive without matching IF/ELIF"
-msgstr "ELSE directive without matching IF/ELIF"
-
-#: cobc/pplex.l:1888
-msgid "END-IF directive without matching IF/ELIF/ELSE"
-msgstr "END-IF directive without matching IF/ELIF/ELSE"
-
-#: cobc/pplex.l:1904
-msgid "ELIF directive without matching IF/ELIF"
-msgstr "ELIF directive without matching IF/ELIF"
-
-#: cobc/pplex.l:1926
-#, c-format
-msgid "invalid internal case: %u"
-msgstr "invalid internal case: %u"
-
-#: cobc/pplex.l:2139
-msgid "buffer overrun - too many continuation lines"
-msgstr "buffer overrun - too many continuation lines"
-
-#: cobc/pplex.l:2236 cobc/pplex.l:2246
-msgid "line not terminated by a newline"
-msgstr "line not terminated by a newline"
-
-#: cobc/pplex.l:2240 cobc/pplex.l:2250
-#, c-format
-msgid "source text exceeds %d bytes, will be truncated"
-msgstr "source text exceeds %d bytes, will be truncated"
-
-#: cobc/pplex.l:2269
-msgid "version control conflict marker in file"
-msgstr "version control conflict marker in file"
-
-#: cobc/pplex.l:2423
-msgid "invalid continuation in comment entry"
-msgstr "invalid continuation in comment entry"
-
-#: cobc/pplex.l:2470
-#, c-format
-msgid "invalid indicator '\\' at column %d"
-msgstr "invalid indicator ‘[1m\\[0m’ at column %d"
-
-#: cobc/pplex.l:2482
-#, c-format
-msgid "invalid indicator '%c' at column %d"
-msgstr "invalid indicator ‘[1m%c[0m’ at column %d"
-
-#: cobc/pplex.l:2541 cobc/pplex.l:2552
-msgid "invalid line continuation"
-msgstr "invalid line continuation"
-
-#: cobc/pplex.l:2560
-msgid "continuation character expected"
-msgstr "continuation character expected"
-
-#: cobc/pplex.l:2628
-#, c-format
-msgid "source text after program-text area (column %d)"
-msgstr "source text after program-text area (column %d)"
-
-#: cobc/ppparse.y:102 cobc/ppparse.y:106
-msgid "partial replacing with literal"
-msgstr "partial replacing with literal"
-
-#: cobc/ppparse.y:109
-msgid "unexpected COBOL word in partial replacement phrase"
-msgstr "unexpected COBOL word in partial replacement phrase"
-
-#: cobc/ppparse.y:176
-msgid "invalid partial replacing operand"
-msgstr "invalid partial replacing operand"
-
-#: cobc/ppparse.y:291
-msgid "directive comparison on different types"
-msgstr "directive comparison on different types"
-
-#: cobc/ppparse.y:359
-#, c-format
-msgid "duplicate DEFINE directive '%s'"
-msgstr "duplicate DEFINE directive ‘[1m%s[0m’"
-
-#: cobc/ppparse.y:366 cobc/ppparse.y:376
-#, c-format
-msgid "invalid constant %s in DEFINE directive"
-msgstr "invalid constant %s in DEFINE directive"
-
-#: cobc/ppparse.y:474
-#, c-format
-msgid "compiler flag '%s' unknown"
-msgstr "compiler flag ‘[1m%s[0m’ unknown"
-
-#: cobc/ppparse.y:521
-#, c-format
-msgid "invalid %s directive option '%s'"
-msgstr "invalid %s directive option ‘[1m%s[0m’"
-
-#: cobc/ppparse.y:523
-#, c-format
-msgid "invalid %s directive option"
-msgstr "invalid %s directive option"
-
-#: cobc/ppparse.y:875 cobc/ppparse.y:884 cobc/ppparse.y:1294
-#, c-format
-msgid "invalid %s directive"
-msgstr "invalid %s directive"
-
-#: cobc/ppparse.y:1366
-msgid "LEAP-SECOND ON directive"
-msgstr "LEAP-SECOND ON directive"
-
-#: cobc/ppparse.y:1475 cobc/ppparse.y:1507
-msgid "invalid constant"
-msgstr "invalid constant"
-
-#: cobc/reserved.c:4029
-msgid "device name"
-msgstr "device name"
-
-#: cobc/reserved.c:4032
-msgid "switch name"
-msgstr "switch name"
-
-#: cobc/reserved.c:4035
-msgid "feature name"
-msgstr "feature name"
-
-#: cobc/reserved.c:4146
-#, c-format
-msgid "reserved word (%s) must have less than %d characters"
-msgstr "reserved word (%s) must have less than %d characters"
-
-#: cobc/reserved.c:4166
-#, c-format
-msgid "reserved word (%s) may not contain '%c'"
-msgstr "reserved word (%s) may not contain ‘[1m%c[0m’"
-
-#: cobc/reserved.c:4183
-msgid "ignored asterisk at end of alias target"
-msgstr "ignored asterisk at end of alias target"
-
-#: cobc/reserved.c:4248
-#, c-format
-msgid "alias target '%s' is not a default reserved word"
-msgstr "alias target ‘[1m%s[0m’ is not a default reserved word"
-
-#: cobc/reserved.c:4738
-#, c-format
-msgid "invalid system-name '%s'"
-msgstr "invalid system-name ‘[1m%s[0m’"
-
-#: cobc/reserved.c:4902
-#, c-format
-msgid "'%s' is a reserved word, but isn't supported"
-msgstr "‘[1m%s[0m’ is a reserved word, but isn't supported"
-
-#: cobc/reserved.c:5005
-#, c-format
-msgid "intrinsic function %s is unknown"
-msgstr "intrinsic function %s is unknown"
-
-#: cobc/reserved.c:5033
-msgid "Intrinsic Function"
-msgstr "Intrinsic Function"
-
-#: cobc/reserved.c:5033 cobc/reserved.c:5266 cobc/reserved.c:5403
-msgid "Implemented"
-msgstr "Implemented"
-
-#: cobc/reserved.c:5033 cobc/typeck.c:1178
-msgid "Parameters"
-msgstr "Parameters"
-
-#: cobc/reserved.c:5037 cobc/reserved.c:5270 cobc/reserved.c:5417
-#: cobc/reserved.c:5423
-msgid "Yes"
-msgstr "Yes"
-
-#: cobc/reserved.c:5040 cobc/reserved.c:5273 cobc/reserved.c:5427
-msgid "No"
-msgstr "No"
-
-#: cobc/reserved.c:5046
-msgid "Unlimited"
-msgstr "Unlimited"
-
-#: cobc/reserved.c:5063
-msgid "Exception Name"
-msgstr "Exception Name"
-
-#: cobc/reserved.c:5165
-#, c-format
-msgid "special register '%s' is unknown, needs a definition"
-msgstr "special register ‘[1m%s[0m’ is unknown, needs a definition"
-
-#: cobc/reserved.c:5172
-#, c-format
-msgid "special register '%s' has a bad definition: %s"
-msgstr "special register ‘[1m%s[0m’ has a bad definition: %s"
-
-#: cobc/reserved.c:5176
-#, c-format
-msgid "special register '%s' is unknown"
-msgstr "special register ‘[1m%s[0m’ is unknown"
-
-#: cobc/reserved.c:5266
-msgid "Internal registers"
-msgstr "Internal registers"
-
-#: cobc/reserved.c:5266
-msgid "Definition"
-msgstr "Definition"
-
-#: cobc/reserved.c:5354
-#, c-format
-msgid "unknown system-name '%s'"
-msgstr "unknown system-name ‘[1m%s[0m’"
-
-#: cobc/reserved.c:5380
-msgid "System names"
-msgstr "System names"
-
-#: cobc/reserved.c:5403
-msgid "Reserved Words"
-msgstr "Reserved Words"
-
-#: cobc/reserved.c:5415
-msgid "Yes (Context sensitive)"
-msgstr "Yes (Context sensitive)"
-
-#: cobc/reserved.c:5425
-msgid "No (Context sensitive)"
-msgstr "No (Context sensitive)"
-
-#: cobc/scanner.l:281
-#, c-format
-msgid "'%s' is not a reserved word, so cannot be removed"
-msgstr "‘[1m%s[0m’ is not a reserved word, so cannot be removed"
-
-#: cobc/scanner.l:329
-msgid "separator period in Area A"
-msgstr "separator period in Area A"
-
-#: cobc/scanner.l:1096
-#, c-format
-msgid "a constant may not be used here - '%s'"
-msgstr "a constant may not be used here - ‘[1m%s[0m’"
-
-#: cobc/scanner.l:1170
-msgid "ignoring redundant ."
-msgstr "ignoring redundant ."
-
-#: cobc/scanner.l:1249
-#, c-format
-msgid "invalid symbol '%s' - skipping word"
-msgstr "invalid symbol ‘[1m%s[0m’ - skipping word"
-
-#: cobc/scanner.l:1323
-msgid "invalid national literal"
-msgstr "invalid national literal"
-
-#: cobc/scanner.l:1327 cobc/tree.c:2822
-#, c-format
-msgid "invalid literal: '%s'"
-msgstr "invalid literal: ‘[1m%s[0m’"
-
-#: cobc/scanner.l:1329
-#, c-format
-msgid "invalid hexadecimal literal: '%s'"
-msgstr "invalid hexadecimal literal: ‘[1m%s[0m’"
-
-#: cobc/scanner.l:1331 cobc/tree.c:1803
-#, c-format
-msgid "invalid numeric literal: '%s'"
-msgstr "invalid numeric literal: ‘[1m%s[0m’"
-
-#: cobc/scanner.l:1333
-#, c-format
-msgid "invalid floating-point literal: '%s'"
-msgstr "invalid floating-point literal: ‘[1m%s[0m’"
-
-#: cobc/scanner.l:1335 cobc/scanner.l:1337
-#, c-format
-msgid "invalid %s literal: '%s'"
-msgstr "invalid %s literal: ‘[1m%s[0m’"
-
-#: cobc/scanner.l:1365
-#, c-format
-msgid "character code %s out of encoding range %s"
-msgstr "character code %s out of encoding range %s"
-
-#: cobc/scanner.l:1422
-msgid "extraneous separator ',' at end of symbolic EBCDIC characters"
-msgstr "extraneous separator ‘[1m,[0m’ at end of symbolic EBCDIC characters"
-
-#: cobc/scanner.l:1435
-msgid "extraneous character ',' in sequence of symbolic EBCDIC characters"
-msgstr "extraneous character ‘[1m,[0m’ in sequence of symbolic EBCDIC characters"
-
-#: cobc/scanner.l:1440
-#, c-format
-msgid "invalid character '%c' in sequence of symbolic EBCDIC characters"
-msgstr "invalid character ‘[1m%c[0m’ in sequence of symbolic EBCDIC characters"
-
-#: cobc/scanner.l:1470
-#, c-format
-msgid "literal length exceeds %u characters"
-msgstr "literal length exceeds %u characters"
-
-#: cobc/scanner.l:1485
-#, c-format
-msgid "missing terminating %c character"
-msgstr "missing terminating %c character"
-
-#: cobc/scanner.l:1502 cobc/scanner.l:1569 cobc/scanner.l:1868
-msgid "zero-length literal"
-msgstr "zero-length literal"
-
-#: cobc/scanner.l:1505
-msgid "national literal has zero length; a SPACE will be assumed"
-msgstr "national literal has zero length; a SPACE will be assumed"
-
-#: cobc/scanner.l:1506
-msgid "alphanumeric literal has zero length; a SPACE will be assumed"
-msgstr "alphanumeric literal has zero length; a SPACE will be assumed"
-
-#: cobc/scanner.l:1519
-msgid "UTF-8 literal"
-msgstr "UTF-8 literal"
-
-#: cobc/scanner.l:1536 cobc/scanner.l:1537 cobc/scanner.l:1541
-#: cobc/scanner.l:1624
-msgid "national literal"
-msgstr "national literal"
-
-#: cobc/scanner.l:1540
-msgid "national-character literal"
-msgstr "national-character literal"
-
-#: cobc/scanner.l:1571
-msgid "hexadecimal literal has zero length; X'00' will be assumed"
-msgstr "hexadecimal literal has zero length; X'00' will be assumed"
-
-#: cobc/scanner.l:1575 cobc/scanner.l:1601
-msgid "hexadecimal-boolean literal"
-msgstr "hexadecimal-boolean literal"
-
-#: cobc/scanner.l:1579 cobc/scanner.l:1619
-msgid "hexadecimal-national literal"
-msgstr "hexadecimal-national literal"
-
-#: cobc/scanner.l:1609 cobc/scanner.l:1629 cobc/scanner.l:1744
-#: cobc/scanner.l:1798 cobc/scanner.l:1893 cobc/scanner.l:1963
-#, c-format
-msgid "literal length %lu exceeds %u characters"
-msgstr "literal length %lu exceeds %u characters"
-
-#: cobc/scanner.l:1651 cobc/scanner.l:1680 cobc/scanner.l:1813
-#: cobc/scanner.l:1910 cobc/scanner.l:1974
-#, c-format
-msgid "literal contains invalid character '%c'"
-msgstr "literal contains invalid character ‘[1m%c[0m’"
-
-#: cobc/scanner.l:1704
-#, c-format
-msgid "literal does not have an even number of digits"
-msgstr "literal does not have an even number of digits"
-
-#: cobc/scanner.l:1735 cobc/scanner.l:1788
-#, c-format
-msgid "%s literals must contain at least one character"
-msgstr "%s literals must contain at least one character"
-
-#: cobc/scanner.l:1775 cobc/scanner.l:1878 cobc/scanner.l:1952
-msgid "ACUCOBOL numeric literal"
-msgstr "ACUCOBOL numeric literal"
-
-#: cobc/scanner.l:1829 cobc/scanner.l:1922 cobc/scanner.l:1985
-#, c-format
-msgid "literal exceeds limit %u"
-msgstr "literal exceeds limit %u"
-
-#: cobc/scanner.l:1863
-msgid "numeric boolean literal"
-msgstr "numeric boolean literal"
-
-#: cobc/scanner.l:1870
-msgid "boolean literal has zero length; B'0' will be assumed"
-msgstr "boolean literal has zero length; B'0' will be assumed"
-
-#: cobc/scanner.l:1946
-msgid "HP COBOL octal literal"
-msgstr "HP COBOL octal literal"
-
-#: cobc/scanner.l:2059
-#, c-format
-msgid "literal length %lu exceeds maximum of %u digits"
-msgstr "literal length %lu exceeds maximum of %u digits"
-
-#: cobc/scanner.l:2065
-#, c-format
-msgid "literal length %lu exceeds %u digits"
-msgstr "literal length %lu exceeds %u digits"
-
-#: cobc/scanner.l:2177 cobc/tree.c:3888
-#, c-format
-msgid "significand has more than %d digits"
-msgstr "significand has more than %d digits"
-
-#: cobc/scanner.l:2182
-#, c-format
-msgid "exponent has decimal point"
-msgstr "exponent has decimal point"
-
-#: cobc/scanner.l:2188 cobc/tree.c:3896
-#, c-format
-msgid "exponent has more than 4 digits"
-msgstr "exponent has more than 4 digits"
-
-#: cobc/scanner.l:2218
-#, c-format
-msgid "exponent not between -6143 and 6144"
-msgstr "exponent not between -6143 and 6144"
-
-#: cobc/scanner.l:2227
-#, c-format
-msgid "significand of 0 must be positive"
-msgstr "significand of 0 must be positive"
-
-#: cobc/scanner.l:2232
-#, c-format
-msgid "exponent of 0 must be 0"
-msgstr "exponent of 0 must be 0"
-
-#: cobc/scanner.l:2237
-#, c-format
-msgid "exponent of 0 must be positive"
-msgstr "exponent of 0 must be positive"
-
-#: cobc/scanner.l:2399
-#, c-format
-msgid "invalid CONSTANT: %s"
-msgstr "invalid CONSTANT: %s"
-
-#: cobc/scanner.l:2409
-#, c-format
-msgid "invalid alphanumeric CONSTANT: %s"
-msgstr "invalid alphanumeric CONSTANT: %s"
-
-#: cobc/scanner.l:2413
-#, c-format
-msgid "empty alphanumeric CONSTANT: %s"
-msgstr "empty alphanumeric CONSTANT: %s"
-
-#: cobc/scanner.l:2430 cobc/scanner.l:2438 cobc/scanner.l:2443
-#, c-format
-msgid "invalid numeric CONSTANT: %s"
-msgstr "invalid numeric CONSTANT: %s"
-
-#: cobc/scanner.l:2522 cobc/scanner.l:2549
-#, c-format
-msgid "'%s' is not a default reserved word, so cannot be aliased"
-msgstr "‘[1m%s[0m’ is not a default reserved word, so cannot be aliased"
-
-#: cobc/scanner.l:2525
-#, c-format
-msgid "'%s' is already reserved"
-msgstr "‘[1m%s[0m’ is already reserved"
-
-#: cobc/scanner.l:2527
-msgid "you may want MAKESYN instead"
-msgstr "you may want MAKESYN instead"
-
-#: cobc/scanner.l:2552
-#, c-format
-msgid "'%s' is not a reserved word"
-msgstr "‘[1m%s[0m’ is not a reserved word"
-
-#: cobc/scanner.l:2553
-msgid "you may want ADDSYN or OVERRIDE instead"
-msgstr "you may want ADDSYN or OVERRIDE instead"
-
-#: cobc/tree.c:392
-#, c-format
-msgid "%s clause is required for file '%s'"
-msgstr "%s clause is required for file ‘[1m%s[0m’"
-
-#: cobc/tree.c:396
-#, c-format
-msgid "%s clause is invalid for file '%s' (file type)"
-msgstr "%s clause is invalid for file ‘[1m%s[0m’ (file type)"
-
-#: cobc/tree.c:400
-#, c-format
-msgid "%s clause is invalid for file '%s'"
-msgstr "%s clause is invalid for file ‘[1m%s[0m’"
-
-#: cobc/tree.c:427
-#, c-format
-msgid "FOR item '%s' is a record"
-msgstr "FOR item ‘[1m%s[0m’ is a record"
-
-#: cobc/tree.c:436
-#, c-format
-msgid "FOR item '%s' is in different record to '%s'"
-msgstr "FOR item ‘[1m%s[0m’ is in different record to ‘[1m%s[0m’"
-
-#: cobc/tree.c:445
-#, c-format
-msgid "FOR item '%s' is not in a record associated with '%s'"
-msgstr "FOR item ‘[1m%s[0m’ is not in a record associated with ‘[1m%s[0m’"
-
-#: cobc/tree.c:559
-msgid "internal error node"
-msgstr "internal error node"
-
-#: cobc/tree.c:561
-msgid "unknown constant"
-msgstr "unknown constant"
-
-#: cobc/tree.c:572
-#, c-format
-msgid "literal \"%s\""
-msgstr "literal “[1m%s[0mâ€"
-
-#: cobc/tree.c:969
-#, c-format
-msgid "invalid date/time function: '%d'"
-msgstr "invalid date/time function: ‘[1m%d[0m’"
-
-#: cobc/tree.c:1001
-#, c-format
-msgid "FUNCTION '%s' has invalid date/time format"
-msgstr "FUNCTION ‘[1m%s[0m’ has invalid date/time format"
-
-#: cobc/tree.c:1008
-#, c-format
-msgid "FUNCTION '%s' has format in variable"
-msgstr "FUNCTION ‘[1m%s[0m’ has format in variable"
-
-#: cobc/tree.c:1488
-#, c-format
-msgid "unknown tree tag: %d, category: %d"
-msgstr "unknown tree tag: %d, category: %d"
-
-#: cobc/tree.c:1590
-#, c-format
-msgid "unexpected numeric USAGE: %d"
-msgstr "unexpected numeric USAGE: %d"
-
-#: cobc/tree.c:1604
-#, c-format
-msgid "unexpected category: %d"
-msgstr "unexpected category: %d"
-
-#: cobc/tree.c:1814
-#, c-format
-msgid "literal length %d exceeds maximum of %d digits"
-msgstr "literal length %d exceeds maximum of %d digits"
-
-#: cobc/tree.c:1819
-#, c-format
-msgid "literal length %d exceeds %d digits"
-msgstr "literal length %d exceeds %d digits"
-
-#: cobc/tree.c:1868 cobc/tree.c:1880 cobc/tree.c:1937 cobc/tree.c:1987
-#, c-format
-msgid "numeric literal '%s' exceeds limit '%s'"
-msgstr "numeric literal ‘[1m%s[0m’ exceeds limit ‘[1m%s[0m’"
-
-#: cobc/tree.c:2676
-msgid "invalid LOCALE literal"
-msgstr "invalid LOCALE literal"
-
-#: cobc/tree.c:2803
-msgid "only literals with the same category can be concatenated"
-msgstr "only literals with the same category can be concatenated"
-
-#: cobc/tree.c:2811
-msgid "only alphanumeric, utf-8, national or boolean literals may be concatenated"
-msgstr "only alphanumeric, utf-8, national or boolean literals may be concatenated"
-
-#: cobc/tree.c:2823
-#, c-format
-msgid "literal length %d exceeds %d characters"
-msgstr "literal length %d exceeds %d characters"
-
-#: cobc/tree.c:3103
-msgid "B, 0 or /"
-msgstr "B, 0 or /"
-
-#: cobc/tree.c:3117
-msgid "the sign of the floating-point exponent"
-msgstr "the sign of the floating-point exponent"
-
-#: cobc/tree.c:3119
-msgid "a leading +/- sign"
-msgstr "a leading +/- sign"
-
-#: cobc/tree.c:3121
-msgid "a trailing +/- sign"
-msgstr "a trailing +/- sign"
-
-#: cobc/tree.c:3123
-msgid "CR or DB"
-msgstr "CR or DB"
-
-#: cobc/tree.c:3125
-msgid "a leading currency symbol"
-msgstr "a leading currency symbol"
-
-#: cobc/tree.c:3127
-msgid "a trailing currency symbol"
-msgstr "a trailing currency symbol"
-
-#: cobc/tree.c:3129
-msgid "a Z or * which is before the decimal point"
-msgstr "a Z or * which is before the decimal point"
-
-#: cobc/tree.c:3131
-msgid "a Z or * which is after the decimal point"
-msgstr "a Z or * which is after the decimal point"
-
-#: cobc/tree.c:3133
-msgid "a floating +/- string which is before the decimal point"
-msgstr "a floating +/- string which is before the decimal point"
-
-#: cobc/tree.c:3135
-msgid "a floating +/- string which is after the decimal point"
-msgstr "a floating +/- string which is after the decimal point"
-
-#: cobc/tree.c:3137
-msgid "a floating currency symbol string which is before the decimal point"
-msgstr "a floating currency symbol string which is before the decimal point"
-
-#: cobc/tree.c:3139
-msgid "a floating currency symbol string which is after the decimal point"
-msgstr "a floating currency symbol string which is after the decimal point"
-
-#: cobc/tree.c:3143
-msgid "A or X"
-msgstr "A or X"
-
-#: cobc/tree.c:3151
-msgid "a P which is before the decimal point"
-msgstr "a P which is before the decimal point"
-
-#: cobc/tree.c:3153
-msgid "a P which is after the decimal point"
-msgstr "a P which is after the decimal point"
-
-#: cobc/tree.c:3176 cobc/tree.c:3638
-#, c-format
-msgid "%s may only occur once in a PICTURE string"
-msgstr "%s may only occur once in a PICTURE string"
-
-#: cobc/tree.c:3178 cobc/tree.c:3570
-#, c-format
-msgid "%s cannot follow %s"
-msgstr "%s cannot follow %s"
-
-#: cobc/tree.c:3181
-msgid "invalid PICTURE string detected"
-msgstr "invalid PICTURE string detected"
-
-#: cobc/tree.c:3299
-msgid "number or constant in parentheses is not an unsigned integer"
-msgstr "number or constant in parentheses is not an unsigned integer"
-
-#: cobc/tree.c:3308
-#, c-format
-msgid "only up to %d significant digits are permitted within parentheses"
-msgstr "only up to %d significant digits are permitted within parentheses"
-
-#: cobc/tree.c:3316
-msgid "number or constant in parentheses must be greater than zero"
-msgstr "number or constant in parentheses must be greater than zero"
-
-#: cobc/tree.c:3327
-msgid "parentheses must be preceded by a picture symbol"
-msgstr "parentheses must be preceded by a picture symbol"
-
-#: cobc/tree.c:3353
-msgid "unbalanced parentheses"
-msgstr "unbalanced parentheses"
-
-#: cobc/tree.c:3361
-msgid "parentheses must contain an unsigned integer"
-msgstr "parentheses must contain an unsigned integer"
-
-#: cobc/tree.c:3409
-#, c-format
-msgid "'%s' is not a constant-name"
-msgstr "‘[1m%s[0m’ is not a constant-name"
-
-#: cobc/tree.c:3422
-#, c-format
-msgid "'%s' is not an unsigned positive integer"
-msgstr "‘[1m%s[0m’ is not an unsigned positive integer"
-
-#: cobc/tree.c:3479
-msgid "missing PICTURE string"
-msgstr "missing PICTURE string"
-
-#: cobc/tree.c:3508
-msgid "C must be followed by R"
-msgstr "C must be followed by R"
-
-#: cobc/tree.c:3511
-msgid "D must be followed by B"
-msgstr "D must be followed by B"
-
-#: cobc/tree.c:3526 cobc/tree.c:3635 cobc/tree.c:3661 cobc/tree.c:3773
-msgid "uncommon parentheses"
-msgstr "uncommon parentheses"
-
-#: cobc/tree.c:3570
-msgid "exponent"
-msgstr "exponent"
-
-#: cobc/tree.c:3625
-msgid "L must be at start of PICTURE string"
-msgstr "L must be at start of PICTURE string"
-
-#: cobc/tree.c:3643
-msgid "S must be at start of PICTURE string"
-msgstr "S must be at start of PICTURE string"
-
-#: cobc/tree.c:3699
-msgid "P must be at start or end of PICTURE string"
-msgstr "P must be at start or end of PICTURE string"
-
-#: cobc/tree.c:3730
-msgid "cannot have both Z and * in PICTURE string"
-msgstr "cannot have both Z and * in PICTURE string"
-
-#: cobc/tree.c:3808
-#, c-format
-msgid "invalid PICTURE character '%c'"
-msgstr "invalid PICTURE character ‘[1m%c[0m’"
-
-#: cobc/tree.c:3841
-#, c-format
-msgid "PICTURE string may not contain more than %d characters; contains %d characters"
-msgstr "PICTURE string may not contain more than %d characters; contains %d characters"
-
-#: cobc/tree.c:3846
-msgid "PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol"
-msgstr "PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol"
-
-#: cobc/tree.c:3873
-#, c-format
-msgid "numeric field cannot be larger than %d digits"
-msgstr "numeric field cannot be larger than %d digits"
-
-#: cobc/tree.c:4333
-#, c-format
-msgid "needs PICTURE clause for SUM %s"
-msgstr "needs PICTURE clause for SUM %s"
-
-#: cobc/tree.c:4340
-#, c-format
-msgid "non-numeric PICTURE clause for SUM %s"
-msgstr "non-numeric PICTURE clause for SUM %s"
-
-#: cobc/tree.c:4412 cobc/tree.c:4425
-#, c-format
-msgid "no DETAIL line defined in report %s"
-msgstr "no DETAIL line defined in report %s"
-
-#: cobc/tree.c:4427
-msgid "PAGE LIMIT FIRST DETAIL should be >= HEADING"
-msgstr "PAGE LIMIT FIRST DETAIL should be >= HEADING"
-
-#: cobc/tree.c:4430
-msgid "PAGE LIMIT FOOTING should be >= HEADING"
-msgstr "PAGE LIMIT FOOTING should be >= HEADING"
-
-#: cobc/tree.c:4432
-msgid "PAGE LIMIT LAST DETAIL should be >= FIRST DETAIL"
-msgstr "PAGE LIMIT LAST DETAIL should be >= FIRST DETAIL"
-
-#: cobc/tree.c:4434
-msgid "PAGE LIMIT FOOTING should be >= LAST DETAIL"
-msgstr "PAGE LIMIT FOOTING should be >= LAST DETAIL"
-
-#: cobc/tree.c:4436
-msgid "PAGE LIMIT LINES should be >= FOOTING"
-msgstr "PAGE LIMIT LINES should be >= FOOTING"
-
-#: cobc/tree.c:4631 libcob/fileio.c:9358
-#, c-format
-msgid "maximum keys (%d/%d) exceeded for file '%s'"
-msgstr "maximum keys (%d/%d) exceeded for file ‘[1m%s[0m’"
-
-#: cobc/tree.c:4695 cobc/tree.c:4718
-#, c-format
-msgid "invalid KEY item '%s', not in file '%s'"
-msgstr "invalid KEY item '%s', not in file ‘[1m%s[0m’"
-
-#: cobc/tree.c:4729
-#, c-format
-msgid "minimal record length %d can not hold the key item '%s'; needs to be at least %d"
-msgstr "minimal record length %d can not hold the key item '%s'; needs to be at least %d"
-
-#: cobc/tree.c:4764
-#, c-format
-msgid "missing file description for %s"
-msgstr "missing file description for %s"
-
-#: cobc/tree.c:4813
-#, c-format
-msgid "size of record '%s' (%d) smaller than minimum of file '%s' (%d)"
-msgstr "size of record ‘[1m%s[0m’ (%d) smaller than minimum of file ‘[1m%s[0m’ (%d)"
-
-#: cobc/tree.c:4816 cobc/tree.c:4833
-msgid "file size adjusted"
-msgstr "file size adjusted"
-
-#: cobc/tree.c:4828
-#, c-format
-msgid "size of record '%s' (%d) larger than maximum of file '%s' (%d)"
-msgstr "size of record ‘[1m%s[0m’ (%d) larger than maximum of file ‘[1m%s[0m’ (%d)"
-
-#: cobc/tree.c:4861
-msgid "RECORD VARYING specified without limits, but implied limits are equal"
-msgstr "RECORD VARYING specified without limits, but implied limits are equal"
-
-#: cobc/tree.c:4863
-#, c-format
-msgid "%s clause ignored"
-msgstr "%s clause ignored"
-
-#: cobc/tree.c:4958 cobc/typeck.c:8128 cobc/typeck.c:15186 cobc/typeck.c:15238
-#: cobc/typeck.c:15275 libcob/fileio.c:4724 libcob/screenio.c:4613
-#: libcob/screenio.c:4639
-#, c-format
-msgid "runtime is not configured to support %s"
-msgstr "runtime is not configured to support %s"
-
-#: cobc/tree.c:5474
-#, c-format
-msgid "literal '%.38s' is longer than '%s'"
-msgstr "literal ‘[1m%.38s[0m’ is longer than ‘[1m%s[0m’"
-
-#: cobc/tree.c:5478
-#, c-format
-msgid "literal '%.38s' is longer than reference-modification of '%s'"
-msgstr "literal ‘[1m%.38s[0m’ is longer than reference-modification of ‘[1m%s[0m’"
-
-#: cobc/tree.c:5508
-#, c-format
-msgid "literal '%s' is alphanumeric but '%s' is numeric"
-msgstr "literal ‘[1m%s[0m’ is alphanumeric but ‘[1m%s[0m’ is numeric"
-
-#: cobc/tree.c:5550
-#, c-format
-msgid "literal '%s' has more decimals than '%s'"
-msgstr "literal ‘[1m%s[0m’ has more decimals than ‘[1m%s[0m’"
-
-#: cobc/tree.c:5598
-#, c-format
-msgid "literal '%s' has more digits than '%s'"
-msgstr "literal ‘[1m%s[0m’ has more digits than ‘[1m%s[0m’"
-
-#: cobc/tree.c:5646 cobc/tree.c:5676
-#, c-format
-msgid "unsigned '%s' may not be %s %s"
-msgstr "unsigned ‘[1m%s[0m’ may not be %s %s"
-
-#: cobc/tree.c:5658 cobc/tree.c:5689
-#, c-format
-msgid "unsigned '%s' may always be %s %s"
-msgstr "unsigned ‘[1m%s[0m’ may always be %s %s"
-
-#: cobc/tree.c:5726 cobc/tree.c:5756
-#, c-format
-msgid "'%s' may not be %s %s"
-msgstr "‘[1m%s[0m’ may not be %s %s"
-
-#: cobc/tree.c:5738 cobc/tree.c:5768
-#, c-format
-msgid "'%s' may always be %s %s"
-msgstr "‘[1m%s[0m’ may always be %s %s"
-
-#: cobc/tree.c:5917
-msgid "divide by constant ZERO"
-msgstr "divide by constant ZERO"
-
-#: cobc/tree.c:6001 cobc/tree.c:6008
-#, c-format
-msgid "%s should be COMP-X/COMP-5 for logical operator"
-msgstr "%s should be COMP-X/COMP-5 for logical operator"
-
-#: cobc/tree.c:6283
-#, c-format
-msgid "invalid expression: %s %s %s"
-msgstr "invalid expression: %s %s %s"
-
-#: cobc/tree.c:6286
-msgid "invalid expression: boolean expected with logical operator"
-msgstr "invalid expression: boolean expected with logical operator"
-
-#: cobc/tree.c:6330
-#, c-format
-msgid "unexpected operator: %d"
-msgstr "unexpected operator: %d"
-
-#: cobc/tree.c:6341
-#, c-format
-msgid "expression '%.38s' %s '%.38s' is always TRUE"
-msgstr "expression ‘[1m%.38s[0m’ %s ‘[1m%.38s[0m’ is always TRUE"
-
-#: cobc/tree.c:6347
-msgid "expression is always TRUE"
-msgstr "expression is always TRUE"
-
-#: cobc/tree.c:6360
-#, c-format
-msgid "expression '%.38s' %s '%.38s' is always FALSE"
-msgstr "expression ‘[1m%.38s[0m’ %s ‘[1m%.38s[0m’ is always FALSE"
-
-#: cobc/tree.c:6366
-msgid "expression is always FALSE"
-msgstr "expression is always FALSE"
-
-#: cobc/tree.c:6588
-msgid "invalid file name reference"
-msgstr "invalid file name reference"
-
-#: cobc/tree.c:6596
-#, c-format
-msgid "BY CONTENT assumed for alphanumeric item '%s'"
-msgstr "BY CONTENT assumed for alphanumeric item ‘[1m%s[0m’"
-
-#: cobc/tree.c:6601
-#, c-format
-msgid "BY CONTENT assumed for national item '%s'"
-msgstr "BY CONTENT assumed for national item ‘[1m%s[0m’"
-
-#: cobc/tree.c:6740
-msgid "PERFORM FOREVER since UNTIL is always FALSE"
-msgstr "PERFORM FOREVER since UNTIL is always FALSE"
-
-#: cobc/tree.c:6744
-msgid "PERFORM ONCE since UNTIL is always TRUE"
-msgstr "PERFORM ONCE since UNTIL is always TRUE"
-
-#: cobc/tree.c:6747
-msgid "PERFORM NEVER since UNTIL is always TRUE"
-msgstr "PERFORM NEVER since UNTIL is always TRUE"
-
-#: cobc/tree.c:6871
-#, c-format
-msgid "no definition/prototype seen for FUNCTION '%s'"
-msgstr "no definition/prototype seen for FUNCTION ‘[1m%s[0m’"
-
-#: cobc/tree.c:6873
-#, c-format
-msgid "no definition/prototype seen for PROGRAM '%s'"
-msgstr "no definition/prototype seen for PROGRAM ‘[1m%s[0m’"
-
-#: cobc/tree.c:6882
-#, c-format
-msgid "no definition/prototype seen for FUNCTION with external name '%s'"
-msgstr "no definition/prototype seen for FUNCTION with external name ‘[1m%s[0m’"
-
-#: cobc/tree.c:6884
-#, c-format
-msgid "no definition/prototype seen for PROGRAM with external name '%s'"
-msgstr "no definition/prototype seen for PROGRAM with external name ‘[1m%s[0m’"
-
-#: cobc/tree.c:6976 cobc/tree.c:7158 cobc/tree.c:7233 cobc/tree.c:7239
-#: cobc/tree.c:7247 cobc/tree.c:7255 cobc/tree.c:7277 cobc/tree.c:7287
-#: cobc/tree.c:7292
-#, c-format
-msgid "FUNCTION '%s' has invalid argument"
-msgstr "FUNCTION ‘[1m%s[0m’ has invalid argument"
-
-#: cobc/tree.c:6978
-#, c-format
-msgid "either all arguments or none should be of type %s"
-msgstr "either all arguments or none should be of type %s"
-
-#: cobc/tree.c:7010 cobc/tree.c:7016 cobc/tree.c:7057 cobc/tree.c:7063
-#, c-format
-msgid "FUNCTION '%s' has invalid reference modification"
-msgstr "FUNCTION ‘[1m%s[0m’ has invalid reference modification"
-
-#: cobc/tree.c:7027 cobc/tree.c:7344
-#, c-format
-msgid "FUNCTION '%s' unknown"
-msgstr "FUNCTION ‘[1m%s[0m’ unknown"
-
-#: cobc/tree.c:7031
-#, c-format
-msgid "FUNCTION '%s' is not implemented"
-msgstr "FUNCTION ‘[1m%s[0m’ is not implemented"
-
-#: cobc/tree.c:7037 cobc/tree.c:7044 cobc/tree.c:7329
-#, c-format
-msgid "FUNCTION '%s' has wrong number of arguments"
-msgstr "FUNCTION ‘[1m%s[0m’ has wrong number of arguments"
-
-#: cobc/tree.c:7051
-#, c-format
-msgid "FUNCTION '%s' cannot have reference modification"
-msgstr "FUNCTION ‘[1m%s[0m’ cannot have reference modification"
-
-#: cobc/tree.c:7335
-#, c-format
-msgid "FUNCTION '%s' has invalid first argument"
-msgstr "FUNCTION ‘[1m%s[0m’ has invalid first argument"
-
-#: cobc/typeck.c:590
-#, c-format
-msgid "%s should be COMP-5/COMP-X for logical operator"
-msgstr "%s should be COMP-5/COMP-X for logical operator"
-
-#: cobc/typeck.c:856
-#, c-format
-msgid "%s item not allowed here: '%s'"
-msgstr "%s item not allowed here: ‘[1m%s[0m’"
-
-#: cobc/typeck.c:898
-#, c-format
-msgid "'%s' is not a group name"
-msgstr "‘[1m%s[0m’ is not a group name"
-
-#: cobc/typeck.c:921
-#, c-format
-msgid "'%s' is not a numeric name"
-msgstr "‘[1m%s[0m’ is not a numeric name"
-
-#: cobc/typeck.c:944
-#, c-format
-msgid "'%s' is not a numeric or numeric-edited name"
-msgstr "‘[1m%s[0m’ is not a numeric or numeric-edited name"
-
-#: cobc/typeck.c:1043
-#, c-format
-msgid "'%s' is not an integer"
-msgstr "‘[1m%s[0m’ is not an integer"
-
-#: cobc/typeck.c:1047
-msgid "positive numeric integer is required here"
-msgstr "positive numeric integer is required here"
-
-#: cobc/typeck.c:1178
-msgid "System routine"
-msgstr "System routine"
-
-#: cobc/typeck.c:2037 libcob/call.c:1172
-#, c-format
-msgid "'%s' literal includes leading spaces which are omitted"
-msgstr "‘[1m%s[0m’ literal includes leading spaces which are omitted"
-
-#: cobc/typeck.c:2041
-#, c-format
-msgid "'%s' literal includes trailing spaces which are omitted"
-msgstr "‘[1m%s[0m’ literal includes trailing spaces which are omitted"
-
-#: cobc/typeck.c:2108
-msgid "ON/OFF usage requires a SWITCH name"
-msgstr "ON/OFF usage requires a SWITCH name"
-
-#: cobc/typeck.c:2126
-#, c-format
-msgid "word length exceeds maximum of %d characters: '%s'"
-msgstr "word length exceeds maximum of %d characters: ‘[1m%s[0m’"
-
-#: cobc/typeck.c:2129
-#, c-format
-msgid "word length exceeds %d characters: '%s'"
-msgstr "word length exceeds %d characters: ‘[1m%s[0m’"
-
-#: cobc/typeck.c:2206
-#, c-format
-msgid "ASSIGN %s interpreted as '%s'"
-msgstr "ASSIGN %s interpreted as ‘[1m%s[0m’"
-
-#: cobc/typeck.c:2332 cobc/typeck.c:2631
-#, c-format
-msgid "subscript missing for '%s' - defaulting to 1"
-msgstr "subscript missing for ‘[1m%s[0m’ - defaulting to 1"
-
-#: cobc/typeck.c:2355 cobc/typeck.c:2546 cobc/typeck.c:2746
-#, c-format
-msgid "'%s' cannot be subscripted"
-msgstr "‘[1m%s[0m’ cannot be subscripted"
-
-#: cobc/typeck.c:2359 cobc/typeck.c:2750
-#, c-format
-msgid "'%s' requires one subscript"
-msgstr "‘[1m%s[0m’ requires one subscript"
-
-#: cobc/typeck.c:2362 cobc/typeck.c:2753
-#, c-format
-msgid "'%s' requires %d subscripts"
-msgstr "‘[1m%s[0m’ requires %d subscripts"
-
-#: cobc/typeck.c:2380
-#, c-format
-msgid "'%s' (accessed by '%s')"
-msgstr "‘[1m%s[0m’ (accessed by '%s')"
-
-#: cobc/typeck.c:2399 cobc/typeck.c:4987
-#, c-format
-msgid "%s may not be reference modified"
-msgstr "%s may not be reference modified"
-
-#: cobc/typeck.c:2437 cobc/typeck.c:2442 cobc/typeck.c:2466
-#: libcob/common.c:4477 libcob/common.c:4521
-#, c-format
-msgid "length of '%s' out of bounds: %d"
-msgstr "length of ‘[1m%s[0m’ out of bounds: %d"
-
-#: cobc/typeck.c:2453 cobc/typeck.c:2462 libcob/common.c:4462
-#: libcob/common.c:4513
-#, c-format
-msgid "offset of '%s' out of bounds: %d"
-msgstr "offset of ‘[1m%s[0m’ out of bounds: %d"
-
-#: cobc/typeck.c:2458
-msgid "suspicious reference-modification: always using max. position"
-msgstr "suspicious reference-modification: always using max. position"
-
-#: cobc/typeck.c:2475
-msgid "suspicious reference-modification: always using max. length"
-msgstr "suspicious reference-modification: always using max. length"
-
-#: cobc/typeck.c:2615
-#, c-format
-msgid "'%s' has no OCCURS clause"
-msgstr "‘[1m%s[0m’ has no OCCURS clause"
-
-#: cobc/typeck.c:2694 libcob/common.c:4427 libcob/common.c:4438
-#, c-format
-msgid "subscript of '%s' out of bounds: %d"
-msgstr "subscript of ‘[1m%s[0m’ out of bounds: %d"
-
-#: cobc/typeck.c:2812 cobc/typeck.c:2891
-msgid "reference modification not allowed here"
-msgstr "reference modification not allowed here"
-
-#: cobc/typeck.c:2826 cobc/typeck.c:2917
-msgid "88 level item not allowed here"
-msgstr "88 level item not allowed here"
-
-#: cobc/typeck.c:2830 cobc/typeck.c:2921 cobc/typeck.c:2929 cobc/typeck.c:2991
-msgid "variable length item not allowed here"
-msgstr "variable length item not allowed here"
-
-#: cobc/typeck.c:2859
-#, c-format
-msgid "'%s' has not been DEFINEd"
-msgstr "‘[1m%s[0m’ has not been DEFINEd"
-
-#: cobc/typeck.c:2895
-msgid "only field names allowed here"
-msgstr "only field names allowed here"
-
-#: cobc/typeck.c:2906
-#, c-format
-msgid "VALUE of '%s': %s target '%s' is invalid"
-msgstr "VALUE of '%s': %s target ‘[1m%s[0m’ is invalid"
-
-#: cobc/typeck.c:2908 cobc/typeck.c:2974
-msgid "target must be in FILE SECTION or LINKAGE SECTION or have the EXTERNAL clause"
-msgstr "target must be in FILE SECTION or LINKAGE SECTION or have the EXTERNAL clause"
-
-#: cobc/typeck.c:2964 cobc/typeck.c:2973
-#, c-format
-msgid "VALUE of '%s': %s target is invalid"
-msgstr "VALUE of '%s': %s target is invalid"
-
-#: cobc/typeck.c:2966
-msgid "no previous data-item found"
-msgstr "no previous data-item found"
-
-#: cobc/typeck.c:3130 cobc/typeck.c:4963
-#, c-format
-msgid "'%s' cannot be BASED/EXTERNAL"
-msgstr "‘[1m%s[0m’ cannot be BASED/EXTERNAL"
-
-#: cobc/typeck.c:3135
-#, c-format
-msgid "'%s' is not in WORKING-STORAGE SECTION"
-msgstr "‘[1m%s[0m’ is not in WORKING-STORAGE SECTION"
-
-#: cobc/typeck.c:3142 cobc/typeck.c:4960
-#, c-format
-msgid "'%s' not level 01 or 77"
-msgstr "‘[1m%s[0m’ not level 01 or 77"
-
-#: cobc/typeck.c:3145 cobc/typeck.c:3180 cobc/typeck.c:4966
-#, c-format
-msgid "'%s' REDEFINES field not allowed here"
-msgstr "‘[1m%s[0m’ REDEFINES field not allowed here"
-
-#: cobc/typeck.c:3165 cobc/typeck.c:8876
-#, c-format
-msgid "duplicate USING BY REFERENCE item '%s'"
-msgstr "duplicate USING BY REFERENCE item ‘[1m%s[0m’"
-
-#: cobc/typeck.c:3193
-#, c-format
-msgid "'%s' USING item duplicates RETURNING item"
-msgstr "‘[1m%s[0m’ USING item duplicates RETURNING item"
-
-#: cobc/typeck.c:3268
-#, c-format
-msgid "prototype and definition of '%s' do not match"
-msgstr "prototype and definition of ‘[1m%s[0m’ do not match"
-
-#: cobc/typeck.c:3389 cobc/typeck.c:3486
-#, c-format
-msgid "parameters #%d ('%s' in the definition and '%s' in the prototype) differ"
-msgstr "parameters #%d ('%s' in the definition and ‘[1m%s[0m’ in the prototype) differ"
-
-#: cobc/typeck.c:3393
-#, c-format
-msgid "returning items ('%s' in the definition and '%s' in the prototype) differ"
-msgstr "returning items ('%s' in the definition and ‘[1m%s[0m’ in the prototype) differ"
-
-#: cobc/typeck.c:3429
-msgid "definition is a program but the prototype is a function"
-msgstr "definition is a program but the prototype is a function"
-
-#: cobc/typeck.c:3433
-msgid "definition is a function but the prototype is a program"
-msgstr "definition is a function but the prototype is a program"
-
-#: cobc/typeck.c:3496
-msgid "number of parameters differ"
-msgstr "number of parameters differ"
-
-#: cobc/typeck.c:3506
-msgid "definition has a RETURNING item but prototype does not"
-msgstr "definition has a RETURNING item but prototype does not"
-
-#: cobc/typeck.c:3510
-msgid "definition does not have a RETURNING item but prototype does"
-msgstr "definition does not have a RETURNING item but prototype does"
-
-#: cobc/typeck.c:3560
-#, c-format
-msgid "unexpected tree tag: %d"
-msgstr "unexpected tree tag: %d"
-
-#: cobc/typeck.c:3584
-#, c-format
-msgid "expected argument #%d, %s, to be passed BY VALUE"
-msgstr "expected argument #%d, %s, to be passed BY VALUE"
-
-#: cobc/typeck.c:3589
-#, c-format
-msgid "expected argument #%d, %s, to be passed BY REFERENCE/CONTENT"
-msgstr "expected argument #%d, %s, to be passed BY REFERENCE/CONTENT"
-
-#: cobc/typeck.c:3608 cobc/typeck.c:3733 cobc/typeck.c:3736
-#, c-format
-msgid "argument #%d is not optional"
-msgstr "argument #%d is not optional"
-
-#: cobc/typeck.c:3622
-#, c-format
-msgid "argument #%d must be at least %d bytes long"
-msgstr "argument #%d must be at least %d bytes long"
-
-#: cobc/typeck.c:3637
-#, c-format
-msgid "argument #%d is a different type of pointer than the parameter"
-msgstr "argument #%d is a different type of pointer than the parameter"
-
-#: cobc/typeck.c:3644
-#, c-format
-msgid "argument #%d is ANY LENGTH, but expecting a fixed size item"
-msgstr "argument #%d is ANY LENGTH, but expecting a fixed size item"
-
-#: cobc/typeck.c:3672
-#, c-format
-msgid "argument #%d, %s, does not conform to the parameter definition"
-msgstr "argument #%d, %s, does not conform to the parameter definition"
-
-#: cobc/typeck.c:3719
-#, c-format
-msgid "expecting up to %d arguments, but found %d"
-msgstr "expecting up to %d arguments, but found %d"
-
-#: cobc/typeck.c:3752
-msgid "the RETURNING item is of a fixed size, not ANY LENGTH"
-msgstr "the RETURNING item is of a fixed size, not ANY LENGTH"
-
-#: cobc/typeck.c:3758
-#, c-format
-msgid "RETURNING item %s is not a valid type"
-msgstr "RETURNING item %s is not a valid type"
-
-#: cobc/typeck.c:3764
-msgid "unexpected RETURNING item"
-msgstr "unexpected RETURNING item"
-
-#: cobc/typeck.c:3767
-msgid "expecting a RETURNING item, but none provided"
-msgstr "expecting a RETURNING item, but none provided"
-
-#: cobc/typeck.c:4091
-#, c-format
-msgid "duplicate character values in alphabet '%s': %s"
-msgstr "duplicate character values in alphabet '%s': %s"
-
-#: cobc/typeck.c:4096
-#, c-format
-msgid "invalid character values in alphabet '%s', starting at position %d"
-msgstr "invalid character values in alphabet '%s', starting at position %d"
-
-#: cobc/typeck.c:4198
-#, c-format
-msgid "duplicate character values in class '%s'"
-msgstr "duplicate character values in class ‘[1m%s[0m’"
-
-#: cobc/typeck.c:4227
-msgid "invalid ALPHABET name"
-msgstr "invalid ALPHABET name"
-
-#: cobc/typeck.c:4256
-#, c-format
-msgid "'%s' is not a locale name"
-msgstr "‘[1m%s[0m’ is not a locale name"
-
-#: cobc/typeck.c:4410
-msgid "invalid RECORD DEPENDING item"
-msgstr "invalid RECORD DEPENDING item"
-
-#: cobc/typeck.c:4415
-msgid "RECORD DEPENDING must reference a data-item"
-msgstr "RECORD DEPENDING must reference a data-item"
-
-#: cobc/typeck.c:4438
-#, c-format
-msgid "RECORD DEPENDING item '%s' should be defined in WORKING-STORAGE, LOCAL-STORAGE or LINKAGE SECTION"
-msgstr "RECORD DEPENDING item ‘[1m%s[0m’ should be defined in WORKING-STORAGE, LOCAL-STORAGE or LINKAGE SECTION"
-
-#: cobc/typeck.c:4451
-#, c-format
-msgid "file %s: RELATIVE KEY %s is not numeric"
-msgstr "file %s: RELATIVE KEY %s is not numeric"
-
-#: cobc/typeck.c:4460
-#, c-format
-msgid "file %s: RELATIVE KEY %s must be integer"
-msgstr "file %s: RELATIVE KEY %s must be integer"
-
-#: cobc/typeck.c:4465
-#, c-format
-msgid "file %s: RELATIVE KEY %s must be unsigned"
-msgstr "file %s: RELATIVE KEY %s must be unsigned"
-
-#: cobc/typeck.c:4472
-#, c-format
-msgid "file %s: RELATIVE KEY %s cannot have OCCURS"
-msgstr "file %s: RELATIVE KEY %s cannot have OCCURS"
-
-#: cobc/typeck.c:4478
-#, c-format
-msgid "RELATIVE KEY %s cannot be in file record belonging to %s"
-msgstr "RELATIVE KEY %s cannot be in file record belonging to %s"
-
-#: cobc/typeck.c:4487
-#, c-format
-msgid "file %s: RELATIVE KEY %s declared outside WORKING-STORAGE"
-msgstr "file %s: RELATIVE KEY %s declared outside WORKING-STORAGE"
-
-#: cobc/typeck.c:4509 cobc/typeck.c:8833
-#, c-format
-msgid "'%s' is not a valid data name"
-msgstr "‘[1m%s[0m’ is not a valid data name"
-
-#: cobc/typeck.c:4516
-#, c-format
-msgid "CRT STATUS item '%s' should be defined in WORKING-STORAGE or LOCAL-STORAGE"
-msgstr "CRT STATUS item ‘[1m%s[0m’ should be defined in WORKING-STORAGE or LOCAL-STORAGE"
-
-#: cobc/typeck.c:4522
-#, c-format
-msgid "'%s' numeric CRT STATUS must have at least 4 digits"
-msgstr "‘[1m%s[0m’ numeric CRT STATUS must have at least 4 digits"
-
-#: cobc/typeck.c:4528
-#, c-format
-msgid "'%s' CRT STATUS must be 3 or 4 characters long"
-msgstr "‘[1m%s[0m’ CRT STATUS must be 3 or 4 characters long"
-
-#: cobc/typeck.c:4550
-#, c-format
-msgid "FILE STATUS '%s' is not a field"
-msgstr "FILE STATUS ‘[1m%s[0m’ is not a field"
-
-#: cobc/typeck.c:4562
-#, c-format
-msgid "FILE STATUS '%s' may not be a decimal or have a PIC with a P"
-msgstr "FILE STATUS ‘[1m%s[0m’ may not be a decimal or have a PIC with a P"
-
-#: cobc/typeck.c:4567
-#, c-format
-msgid "FILE STATUS '%s' is a numeric field, but I-O status codes are not numeric in general"
-msgstr "FILE STATUS ‘[1m%s[0m’ is a numeric field, but I-O status codes are not numeric in general"
-
-#: cobc/typeck.c:4571
-#, c-format
-msgid "FILE STATUS '%s' must be an alphanumeric or numeric field"
-msgstr "FILE STATUS ‘[1m%s[0m’ must be an alphanumeric or numeric field"
-
-#: cobc/typeck.c:4578
-#, c-format
-msgid "FILE STATUS '%s' must be USAGE DISPLAY"
-msgstr "FILE STATUS ‘[1m%s[0m’ must be USAGE DISPLAY"
-
-#: cobc/typeck.c:4585
-#, c-format
-msgid "FILE STATUS '%s' must be 2 characters long"
-msgstr "FILE STATUS ‘[1m%s[0m’ must be 2 characters long"
-
-#: cobc/typeck.c:4593
-#, c-format
-msgid "FILE STATUS '%s' must be in WORKING-STORAGE, LOCAL-STORAGE or LINKAGE"
-msgstr "FILE STATUS ‘[1m%s[0m’ must be in WORKING-STORAGE, LOCAL-STORAGE or LINKAGE"
-
-#: cobc/typeck.c:4599
-#, c-format
-msgid "FILE STATUS '%s' may not be located after an OCCURS DEPENDING field"
-msgstr "FILE STATUS ‘[1m%s[0m’ may not be located after an OCCURS DEPENDING field"
-
-#: cobc/typeck.c:4613
-#, c-format
-msgid "variable '%s' will be implicitly defined"
-msgstr "variable ‘[1m%s[0m’ will be implicitly defined"
-
-#: cobc/typeck.c:4703
-msgid "ASSIGN variable"
-msgstr "ASSIGN variable"
-
-#: cobc/typeck.c:4708
-#, c-format
-msgid "ASSIGN data item '%s' is invalid"
-msgstr "ASSIGN data item ‘[1m%s[0m’ is invalid"
-
-#: cobc/typeck.c:4773
-#, c-format
-msgid "'%s' CURSOR must be 4 or 6 characters long"
-msgstr "‘[1m%s[0m’ CURSOR must be 4 or 6 characters long"
-
-#: cobc/typeck.c:4844
-#, c-format
-msgid "'%s' cannot have nested OCCURS DEPENDING"
-msgstr "‘[1m%s[0m’ cannot have nested OCCURS DEPENDING"
-
-#: cobc/typeck.c:4858
-#, c-format
-msgid "'%s' OCCURS DEPENDING ON field item invalid here"
-msgstr "‘[1m%s[0m’ OCCURS DEPENDING ON field item invalid here"
-
-#: cobc/typeck.c:4868
-#, c-format
-msgid "'%s' cannot have OCCURS DEPENDING because of '%s'"
-msgstr "‘[1m%s[0m’ cannot have OCCURS DEPENDING because of ‘[1m%s[0m’"
-
-#: cobc/typeck.c:4880
-#, c-format
-msgid "'%s' OCCURS DEPENDING ON item must have GLOBAL attribute"
-msgstr "‘[1m%s[0m’ OCCURS DEPENDING ON item must have GLOBAL attribute"
-
-#: cobc/typeck.c:4894
-#, c-format
-msgid "PASSWORD '%s' for EXTERNAL file '%s' must have EXTERNAL attribute"
-msgstr "PASSWORD ‘[1m%s[0m’ for EXTERNAL file ‘[1m%s[0m’ must have EXTERNAL attribute"
-
-#: cobc/typeck.c:4932
-#, c-format
-msgid "duplicate APPLY COMMIT target: '%s'"
-msgstr "duplicate APPLY COMMIT target: ‘[1m%s[0m’"
-
-#: cobc/typeck.c:4946
-msgid "APPLY COMMIT statement invalid for SORT file"
-msgstr "APPLY COMMIT statement invalid for SORT file"
-
-#: cobc/typeck.c:4949
-msgid "APPLY COMMIT statement invalid for REPORT file"
-msgstr "APPLY COMMIT statement invalid for REPORT file"
-
-#: cobc/typeck.c:4956
-#, c-format
-msgid "APPLY COMMIT item '%s' should be defined in WORKING-STORAGE or LOCAL-STORAGE"
-msgstr "APPLY COMMIT item ‘[1m%s[0m’ should be defined in WORKING-STORAGE or LOCAL-STORAGE"
-
-#: cobc/typeck.c:4970
-#, c-format
-msgid "item not allowed here: '%s'"
-msgstr "item not allowed here: ‘[1m%s[0m’"
-
-#: cobc/typeck.c:4983
-#, c-format
-msgid "%s may not be subscripted"
-msgstr "%s may not be subscripted"
-
-#: cobc/typeck.c:5047
-#, c-format
-msgid "DEBUGGING target invalid: '%s'"
-msgstr "DEBUGGING target invalid: ‘[1m%s[0m’"
-
-#: cobc/typeck.c:5053
-#, c-format
-msgid "DEBUGGING target already specified with ALL PROCEDURES: '%s'"
-msgstr "DEBUGGING target already specified with ALL PROCEDURES: ‘[1m%s[0m’"
-
-#: cobc/typeck.c:5073
-msgid "DEBUGGING target"
-msgstr "DEBUGGING target"
-
-#: cobc/typeck.c:5080
-#, c-format
-msgid "'%s' is not a valid DEBUGGING target"
-msgstr "‘[1m%s[0m’ is not a valid DEBUGGING target"
-
-#: cobc/typeck.c:5126 cobc/typeck.c:5134
-#, c-format
-msgid "'%s' is not in DECLARATIVES"
-msgstr "‘[1m%s[0m’ is not in DECLARATIVES"
-
-#: cobc/typeck.c:5148
-#, c-format
-msgid "invalid reference to '%s' (in DECLARATIVES)"
-msgstr "invalid reference to ‘[1m%s[0m’ (in DECLARATIVES)"
-
-#: cobc/typeck.c:5162
-#, c-format
-msgid "GO TO paragraph '%s' which is defined in another SECTION"
-msgstr "GO TO paragraph ‘[1m%s[0m’ which is defined in another SECTION"
-
-#: cobc/typeck.c:5172
-#, c-format
-msgid "'%s' is not a procedure name"
-msgstr "‘[1m%s[0m’ is not a procedure name"
-
-#: cobc/typeck.c:5207
-#, c-format
-msgid "%s and %s are not in the same SECTION"
-msgstr "%s and %s are not in the same SECTION"
-
-#: cobc/typeck.c:5212
-#, c-format
-msgid "%s is defined before %s"
-msgstr "%s is defined before %s"
-
-#: cobc/typeck.c:5254
-#, c-format
-msgid "'%s' ANY LENGTH item must be a formal parameter"
-msgstr "‘[1m%s[0m’ ANY LENGTH item must be a formal parameter"
-
-#: cobc/typeck.c:5302
-#, c-format
-msgid "LINKAGE item '%s' is not a PROCEDURE USING parameter"
-msgstr "LINKAGE item ‘[1m%s[0m’ is not a PROCEDURE USING parameter"
-
-#: cobc/typeck.c:5358
-#, c-format
-msgid "'%s' is not an alterable paragraph"
-msgstr "‘[1m%s[0m’ is not an alterable paragraph"
-
-#: cobc/typeck.c:5852
-msgid "invalid expression: unfinished expression"
-msgstr "invalid expression: unfinished expression"
-
-#: cobc/typeck.c:5858 cobc/typeck.c:5865
-msgid "invalid expression"
-msgstr "invalid expression"
-
-#: cobc/typeck.c:5990 cobc/typeck.c:5994
-#, c-format
-msgid "suggest parentheses around %s within %s"
-msgstr "suggest parentheses around %s within %s"
-
-#: cobc/typeck.c:6003
-msgid "invalid conditional expression"
-msgstr "invalid conditional expression"
-
-#: cobc/typeck.c:6120
-#, c-format
-msgid "internal decimal structure size exceeded: %d"
-msgstr "internal decimal structure size exceeded: %d"
-
-#: cobc/typeck.c:6123
-msgid "Try to minimize the number of parentheses or split into multiple computations."
-msgstr "Try to minimize the number of parentheses or split into multiple computations."
-
-#: cobc/typeck.c:6147
-#, c-format
-msgid "more than %d nested expressions"
-msgstr "more than %d nested expressions"
-
-#: cobc/typeck.c:6188
-msgid "precision of result may change with arithmetic-osvs"
-msgstr "precision of result may change with arithmetic-osvs"
-
-#: cobc/typeck.c:6268
-#, c-format
-msgid "unexpected operation: %c (%d)"
-msgstr "unexpected operation: %c (%d)"
-
-#: cobc/typeck.c:6273
-#, c-format
-msgid "%s operator may be misplaced"
-msgstr "%s operator may be misplaced"
-
-#: cobc/typeck.c:6349
-msgid "unexpected constant expansion"
-msgstr "unexpected constant expansion"
-
-#: cobc/typeck.c:7106 cobc/typeck.c:11656 cobc/typeck.c:11661
-msgid "alphanumeric value is expected"
-msgstr "alphanumeric value is expected"
-
-#: cobc/typeck.c:7109 cobc/typeck.c:11651
-msgid "numeric value is expected"
-msgstr "numeric value is expected"
-
-#: cobc/typeck.c:7203
-msgid "invalid expression: condition expected"
-msgstr "invalid expression: condition expected"
-
-#: cobc/typeck.c:7271
-msgid "incomplete expression"
-msgstr "incomplete expression"
-
-#: cobc/typeck.c:7312
-#, c-format
-msgid "more than %d nested conditions"
-msgstr "more than %d nested conditions"
-
-#: cobc/typeck.c:7667 cobc/typeck.c:7748
-msgid "no CORRESPONDING items found"
-msgstr "no CORRESPONDING items found"
-
-#: cobc/typeck.c:7820
-msgid "no items to ACCEPT found"
-msgstr "no items to ACCEPT found"
-
-#: cobc/typeck.c:7870
-msgid "no items to DISPLAY found"
-msgstr "no items to DISPLAY found"
-
-#: cobc/typeck.c:7981
-msgid "cannot specify figurative constant ZERO in AT clause"
-msgstr "cannot specify figurative constant ZERO in AT clause"
-
-#: cobc/typeck.c:7985
-msgid "value in AT clause is not numeric"
-msgstr "value in AT clause is not numeric"
-
-#: cobc/typeck.c:7991
-msgid "value in AT clause must have 4 or 6 digits"
-msgstr "value in AT clause must have 4 or 6 digits"
-
-#: cobc/typeck.c:8168
-msgid "invalid PROMPT literal"
-msgstr "invalid PROMPT literal"
-
-#: cobc/typeck.c:8173
-msgid "invalid PROMPT identifier"
-msgstr "invalid PROMPT identifier"
-
-#: cobc/typeck.c:8465
-#, c-format
-msgid "'%s' is not an input device"
-msgstr "‘[1m%s[0m’ is not an input device"
-
-#: cobc/typeck.c:8492 cobc/typeck.c:9708
-#, c-format
-msgid "'%s' is not defined in SPECIAL-NAMES"
-msgstr "‘[1m%s[0m’ is not defined in SPECIAL-NAMES"
-
-#: cobc/typeck.c:8497
-#, c-format
-msgid "invalid input device '%s'"
-msgstr "invalid input device ‘[1m%s[0m’"
-
-#: cobc/typeck.c:8502 cobc/typeck.c:9712
-#, c-format
-msgid "unknown device '%s'; it may exist in another dialect"
-msgstr "unknown device '%s'; it may exist in another dialect"
-
-#: cobc/typeck.c:8505 cobc/typeck.c:9715
-#, c-format
-msgid "unknown device '%s'; not defined in SPECIAL-NAMES"
-msgstr "unknown device '%s'; not defined in SPECIAL-NAMES"
-
-#: cobc/typeck.c:8524
-msgid "target of RETURNING is not a data pointer"
-msgstr "target of RETURNING is not a data pointer"
-
-#: cobc/typeck.c:8551 cobc/typeck.c:13410 cobc/typeck.c:13479
-#: cobc/typeck.c:13547
-#, c-format
-msgid "cannot change address of '%s', which is not BASED or a LINKAGE item"
-msgstr "cannot change address of '%s', which is not BASED or a LINKAGE item"
-
-#: cobc/typeck.c:8557
-msgid "target of ALLOCATE must have BASED clause"
-msgstr "target of ALLOCATE must have BASED clause"
-
-#: cobc/typeck.c:8591 cobc/typeck.c:9023
-msgid "amount must be specified as a numeric expression"
-msgstr "amount must be specified as a numeric expression"
-
-#: cobc/typeck.c:8597
-msgid "INITIALIZED TO item is not alphanumeric"
-msgstr "INITIALIZED TO item is not alphanumeric"
-
-#: cobc/typeck.c:8667
-msgid "only alphanumeric FUNCTION types are allowed here"
-msgstr "only alphanumeric FUNCTION types are allowed here"
-
-#: cobc/typeck.c:8675
-msgid "invalid RETURNING field"
-msgstr "invalid RETURNING field"
-
-#: cobc/typeck.c:8694
-msgid "STDCALL not available on this platform"
-msgstr "STDCALL not available on this platform"
-
-#: cobc/typeck.c:8698
-msgid "STDCALL used on 64-bit Windows platform"
-msgstr "STDCALL used on 64-bit Windows platform"
-
-#: cobc/typeck.c:8703
-msgid "STATIC CALL convention requires a literal program name"
-msgstr "STATIC CALL convention requires a literal program name"
-
-#: cobc/typeck.c:8708 cobc/typeck.c:12746 cobc/typeck.c:13681
-#: cobc/typeck.c:14077
-msgid "HANDLE must be either a generic or a THREAD HANDLE"
-msgstr "HANDLE must be either a generic or a THREAD HANDLE"
-
-#: cobc/typeck.c:8726
-msgid "numeric literal is negative"
-msgstr "numeric literal is negative"
-
-#: cobc/typeck.c:8805
-msgid "numeric literal exceeds size limits"
-msgstr "numeric literal exceeds size limits"
-
-#: cobc/typeck.c:8820
-#, c-format
-msgid "figurative constant %s invalid here"
-msgstr "figurative constant %s invalid here"
-
-#: cobc/typeck.c:8840
-#, c-format
-msgid "'%s' is not a 01 or 77 level item"
-msgstr "‘[1m%s[0m’ is not a 01 or 77 level item"
-
-#: cobc/typeck.c:8856
-#, c-format
-msgid "'%s' ANY LENGTH item not passed BY REFERENCE"
-msgstr "‘[1m%s[0m’ ANY LENGTH item not passed BY REFERENCE"
-
-#: cobc/typeck.c:8909 cobc/typeck.c:8914
-#, c-format
-msgid "wrong number of CALL parameters for '%s', %d given, %d expected"
-msgstr "wrong number of CALL parameters for '%s', %d given, %d expected"
-
-#: cobc/typeck.c:8981 cobc/typeck.c:9055 cobc/typeck.c:9059 cobc/typeck.c:9095
-#: cobc/typeck.c:12703 cobc/typeck.c:12863 cobc/typeck.c:13052
-#: cobc/typeck.c:13056 cobc/typeck.c:14012 cobc/typeck.c:14345
-#: cobc/typeck.c:14348
-#, c-format
-msgid "%s not allowed on %s files"
-msgstr "%s not allowed on %s files"
-
-#: cobc/typeck.c:9172
-msgid "positions cannot be specified for main windows"
-msgstr "positions cannot be specified for main windows"
-
-#: cobc/typeck.c:9183 cobc/typeck.c:9187 cobc/typeck.c:9211
-msgid "HANDLE must be either a generic or a WINDOW HANDLE or X(10)"
-msgstr "HANDLE must be either a generic or a WINDOW HANDLE or X(10)"
-
-#: cobc/typeck.c:9324
-#, c-format
-msgid "'%s' is an invalid type for DISPLAY operand"
-msgstr "‘[1m%s[0m’ is an invalid type for DISPLAY operand"
-
-#: cobc/typeck.c:9329
-msgid "invalid type for DISPLAY operand"
-msgstr "invalid type for DISPLAY operand"
-
-#: cobc/typeck.c:9668 cobc/typeck.c:9701
-#, c-format
-msgid "'%s' is not an output device"
-msgstr "‘[1m%s[0m’ is not an output device"
-
-#: cobc/typeck.c:9800
-msgid "invalid use of 88 level in WHEN expression"
-msgstr "invalid use of 88 level in WHEN expression"
-
-#: cobc/typeck.c:9861
-msgid "wrong number of WHEN parameters"
-msgstr "wrong number of WHEN parameters"
-
-#: cobc/typeck.c:9983 cobc/typeck.c:9995
-#, c-format
-msgid "target %d of FREE is not a BASED data item"
-msgstr "target %d of FREE is not a BASED data item"
-
-#: cobc/typeck.c:10001
-#, c-format
-msgid "target %d of FREE must be a data pointer"
-msgstr "target %d of FREE must be a data pointer"
-
-#: cobc/typeck.c:10015
-msgid "GO TO without procedure-name"
-msgstr "GO TO without procedure-name"
-
-#: cobc/typeck.c:10023
-msgid "GO TO with multiple procedure-names"
-msgstr "GO TO with multiple procedure-names"
-
-#: cobc/typeck.c:10088
-msgid "invalid INITIALIZE statement"
-msgstr "invalid INITIALIZE statement"
-
-#: cobc/typeck.c:10193 cobc/typeck.c:10196
-#, c-format
-msgid "%s operands differ in size"
-msgstr "%s operands differ in size"
-
-#: cobc/typeck.c:10226
-#, c-format
-msgid "unexpected clause %d"
-msgstr "unexpected clause %d"
-
-#: cobc/typeck.c:10301 cobc/typeck.c:10312 cobc/typeck.c:10323
-#: cobc/typeck.c:10334
-#, c-format
-msgid "data name expected before %s"
-msgstr "data name expected before %s"
-
-#: cobc/typeck.c:10344
-#, c-format
-msgid "ALL, LEADING or TRAILING expected before '%s'"
-msgstr "ALL, LEADING or TRAILING expected before ‘[1m%s[0m’"
-
-#: cobc/typeck.c:10354
-msgid "operand has wrong size"
-msgstr "operand has wrong size"
-
-#: cobc/typeck.c:10448
-#, c-format
-msgid "'%s' defined here as PIC %s"
-msgstr "‘[1m%s[0m’ defined here as PIC %s"
-
-#: cobc/typeck.c:10452
-#, c-format
-msgid "'%s' defined here as a group of length %d"
-msgstr "‘[1m%s[0m’ defined here as a group of length %d"
-
-#: cobc/typeck.c:10458
-#, c-format
-msgid "internal register '%s' defined as USAGE %s"
-msgstr "internal register ‘[1m%s[0m’ defined as USAGE %s"
-
-#: cobc/typeck.c:10461
-#, c-format
-msgid "'%s' defined here as USAGE %s"
-msgstr "‘[1m%s[0m’ defined here as USAGE %s"
-
-#: cobc/typeck.c:10486 cobc/typeck.c:10504
-#, c-format
-msgid "value size is %d"
-msgstr "value size is %d"
-
-#: cobc/typeck.c:10500
-#, c-format
-msgid "value is %s"
-msgstr "value is %s"
-
-#: cobc/typeck.c:10824
-msgid "MOVE of figurative constant SPACE to numeric item"
-msgstr "MOVE of figurative constant SPACE to numeric item"
-
-#: cobc/typeck.c:10839
-msgid "MOVE of figurative constant QUOTE to numeric item"
-msgstr "MOVE of figurative constant QUOTE to numeric item"
-
-#: cobc/typeck.c:10844 cobc/typeck.c:10855
-msgid "MOVE of figurative constant to numeric item"
-msgstr "MOVE of figurative constant to numeric item"
-
-#: cobc/typeck.c:10936
-msgid "numeric literal in VALUE clause of numeric-edited item"
-msgstr "numeric literal in VALUE clause of numeric-edited item"
-
-#: cobc/typeck.c:10966
-msgid "numeric move to ALPHABETIC"
-msgstr "numeric move to ALPHABETIC"
-
-#: cobc/typeck.c:10978
-msgid "data item not signed"
-msgstr "data item not signed"
-
-#: cobc/typeck.c:10981
-msgid "ignoring sign"
-msgstr "ignoring sign"
-
-#: cobc/typeck.c:11381
-msgid "overlapping MOVE may occur and produce unpredictable results"
-msgstr "overlapping MOVE may occur and produce unpredictable results"
-
-#: cobc/typeck.c:11388
-msgid "overlapping MOVE may produce unpredictable results"
-msgstr "overlapping MOVE may produce unpredictable results"
-
-#: cobc/typeck.c:11593
-msgid "invalid source for MOVE"
-msgstr "invalid source for MOVE"
-
-#: cobc/typeck.c:11614
-msgid "source is non-numeric - substituting zero"
-msgstr "source is non-numeric - substituting zero"
-
-#: cobc/typeck.c:11620 cobc/typeck.c:11631
-msgid "invalid VALUE clause"
-msgstr "invalid VALUE clause"
-
-#: cobc/typeck.c:11623 cobc/typeck.c:13622 cobc/typeck.c:13627
-#: cobc/typeck.c:13654 cobc/typeck.c:13659
-msgid "invalid SET statement"
-msgstr "invalid SET statement"
-
-#: cobc/typeck.c:11625
-msgid "invalid MOVE statement"
-msgstr "invalid MOVE statement"
-
-#: cobc/typeck.c:11632
-msgid "literal exceeds data size"
-msgstr "literal exceeds data size"
-
-#: cobc/typeck.c:11636
-msgid "numeric literal exceeds data size"
-msgstr "numeric literal exceeds data size"
-
-#: cobc/typeck.c:11645
-msgid "MOVE of non-integer to alphanumeric"
-msgstr "MOVE of non-integer to alphanumeric"
-
-#: cobc/typeck.c:11666 cobc/typeck.c:11671
-msgid "national value is expected"
-msgstr "national value is expected"
-
-#: cobc/typeck.c:11676
-msgid "value does not fit the picture string"
-msgstr "value does not fit the picture string"
-
-#: cobc/typeck.c:11682
-msgid "value size exceeds data size"
-msgstr "value size exceeds data size"
-
-#: cobc/typeck.c:11687
-msgid "sending field larger than receiving field"
-msgstr "sending field larger than receiving field"
-
-#: cobc/typeck.c:11692
-msgid "some digits may be truncated"
-msgstr "some digits may be truncated"
-
-#: cobc/typeck.c:12566 cobc/typeck.c:12619
-#, c-format
-msgid "invalid MOVE target: %s"
-msgstr "invalid MOVE target: %s"
-
-#: cobc/typeck.c:12876
-msgid "READ PREVIOUS not allowed for this file type"
-msgstr "READ PREVIOUS not allowed for this file type"
-
-#: cobc/typeck.c:12884
-msgid "KEY ignored with sequential READ"
-msgstr "KEY ignored with sequential READ"
-
-#: cobc/typeck.c:12980
-msgid "figurative constants not allowed in FROM clause"
-msgstr "figurative constants not allowed in FROM clause"
-
-#: cobc/typeck.c:12987
-msgid "literal in FROM clause must be alphanumeric, utf-8, national or boolean"
-msgstr "literal in FROM clause must be alphanumeric, utf-8, national or boolean"
-
-#: cobc/typeck.c:13010 cobc/typeck.c:14305
-#, c-format
-msgid "%s FILE requires a FROM clause"
-msgstr "%s FILE requires a FROM clause"
-
-#: cobc/typeck.c:13032 cobc/typeck.c:13116 cobc/typeck.c:14327
-#, c-format
-msgid "%s subject does not refer to a record name"
-msgstr "%s subject does not refer to a record name"
-
-#: cobc/typeck.c:13122
-msgid "RELEASE not allowed on this record item"
-msgstr "RELEASE not allowed on this record item"
-
-#: cobc/typeck.c:13183 cobc/typeck.c:13209 cobc/typeck.c:13237
-msgid "invalid SEARCH ALL condition"
-msgstr "invalid SEARCH ALL condition"
-
-#: cobc/typeck.c:13231
-msgid "SEARCH ALL requires comparision of KEY field"
-msgstr "SEARCH ALL requires comparision of KEY field"
-
-#: cobc/typeck.c:13354 cobc/typeck.c:13361
-msgid "SET targets must be PROGRAM-POINTER"
-msgstr "SET targets must be PROGRAM-POINTER"
-
-#: cobc/typeck.c:13386
-#, c-format
-msgid "SET target '%s' is not numeric, an INDEX or a POINTER"
-msgstr "SET target ‘[1m%s[0m’ is not numeric, an INDEX or a POINTER"
-
-#: cobc/typeck.c:13403 cobc/typeck.c:13475 cobc/typeck.c:13543
-#, c-format
-msgid "cannot change address of '%s', which is not level 1 or 77"
-msgstr "cannot change address of '%s', which is not level 1 or 77"
-
-#: cobc/typeck.c:13500
-#, c-format
-msgid "SET target '%s' is not a POINTER for FCD"
-msgstr "SET target ‘[1m%s[0m’ is not a POINTER for FCD"
-
-#: cobc/typeck.c:13569
-#, c-format
-msgid "SET target '%s' is not a POINTER for FCD-KEYDEF"
-msgstr "SET target ‘[1m%s[0m’ is not a POINTER for FCD-KEYDEF"
-
-#: cobc/typeck.c:13663
-msgid "field does not have a FALSE clause"
-msgstr "field does not have a FALSE clause"
-
-#: cobc/typeck.c:13694
-msgid "THREAD-priority must be between 1 and 32767"
-msgstr "THREAD-priority must be between 1 and 32767"
-
-#: cobc/typeck.c:13714
-msgid "SET ATTRIBUTE requires a screen item as subject"
-msgstr "SET ATTRIBUTE requires a screen item as subject"
-
-#: cobc/typeck.c:13720
-msgid "SET ATTRIBUTE subject does not refer to a screen item"
-msgstr "SET ATTRIBUTE subject does not refer to a screen item"
-
-#: cobc/typeck.c:13835 cobc/typeck.c:13875
-#, c-format
-msgid "invalid %s parameter"
-msgstr "invalid %s parameter"
-
-#: cobc/typeck.c:13940 cobc/typeck.c:13967 cobc/typeck.c:13987
-msgid "invalid key item"
-msgstr "invalid key item"
-
-#: cobc/typeck.c:14017
-msgid "LENGTH/SIZE clause only allowed on INDEXED files"
-msgstr "LENGTH/SIZE clause only allowed on INDEXED files"
-
-#: cobc/typeck.c:14022
-msgid "START not allowed with ACCESS MODE RANDOM"
-msgstr "START not allowed with ACCESS MODE RANDOM"
-
-#: cobc/typeck.c:14111 cobc/typeck.c:14117
-#, c-format
-msgid "%s item '%s' must be an integer"
-msgstr "%s item ‘[1m%s[0m’ must be an integer"
-
-#: cobc/typeck.c:14121
-#, c-format
-msgid "%s item '%s' may not have PICTURE with P in it"
-msgstr "%s item ‘[1m%s[0m’ may not have PICTURE with P in it"
-
-#: cobc/typeck.c:14137
-#, c-format
-msgid "'%s' is not an elementary item"
-msgstr "‘[1m%s[0m’ is not an elementary item"
-
-#: cobc/typeck.c:14213
-msgid "STRING items must be all NATIONAL or none"
-msgstr "STRING items must be all NATIONAL or none"
-
-#: cobc/typeck.c:14361
-msgid "LOCK clause invalid here"
-msgstr "LOCK clause invalid here"
-
-#: cobc/typeck.c:14606
-msgid "data item is not part of a report"
-msgstr "data item is not part of a report"
-
-#: cobc/typeck.c:14626
-msgid "improper use of SUPPRESS PRINTING"
-msgstr "improper use of SUPPRESS PRINTING"
-
-#: cobc/typeck.c:14642
-#, c-format
-msgid "%s must be alphanumeric or national"
-msgstr "%s must be alphanumeric or national"
-
-#: cobc/typeck.c:14652
-#, c-format
-msgid "%s may not be a figurative constant"
-msgstr "%s may not be a figurative constant"
-
-#: cobc/typeck.c:14690
-#, c-format
-msgid "%s must be a child of the input record"
-msgstr "%s must be a child of the input record"
-
-#: cobc/typeck.c:14715
-#, c-format
-msgid "%s may not be an ignored item in JSON/XML GENERATE"
-msgstr "%s may not be an ignored item in JSON/XML GENERATE"
-
-#: cobc/typeck.c:14725
-#, c-format
-msgid "%s must be elementary"
-msgstr "%s must be elementary"
-
-#: cobc/typeck.c:14737
-#, c-format
-msgid "STRING item '%s' must be USAGE DISPLAY or NATIONAL"
-msgstr "STRING item ‘[1m%s[0m’ must be USAGE DISPLAY or NATIONAL"
-
-#: cobc/typeck.c:14749
-#, c-format
-msgid "%s must be USAGE DISPLAY or NATIONAL"
-msgstr "%s must be USAGE DISPLAY or NATIONAL"
-
-#: cobc/typeck.c:14761
-#, c-format
-msgid "%s must be an integer"
-msgstr "%s must be an integer"
-
-#: cobc/typeck.c:14776 cobc/typeck.c:14782
-msgid "JSON/XML GENERATE receiving item"
-msgstr "JSON/XML GENERATE receiving item"
-
-#: cobc/typeck.c:14779
-msgid "JSON/XML GENERATE receiving item may not have JUSTIFIED clause"
-msgstr "JSON/XML GENERATE receiving item may not have JUSTIFIED clause"
-
-#: cobc/typeck.c:14867
-msgid "JSON/XML GENERATE input record may not be reference modified"
-msgstr "JSON/XML GENERATE input record may not be reference modified"
-
-#: cobc/typeck.c:14873
-msgid "JSON/XML GENERATE input record may not have RENAMES clause"
-msgstr "JSON/XML GENERATE input record may not have RENAMES clause"
-
-#: cobc/typeck.c:14878
-#, c-format
-msgid "all the children of '%s' are ignored in JSON/XML GENERATE"
-msgstr "all the children of ‘[1m%s[0m’ are ignored in JSON/XML GENERATE"
-
-#: cobc/typeck.c:14885
-msgid "JSON/XML GENERATE input record has subrecords with non-unique names"
-msgstr "JSON/XML GENERATE input record has subrecords with non-unique names"
-
-#: cobc/typeck.c:14890
-msgid "floating-point items in JSON/XML GENERATE"
-msgstr "floating-point items in JSON/XML GENERATE"
-
-#: cobc/typeck.c:14894
-msgid "OCCURS items in JSON/XML GENERATE"
-msgstr "OCCURS items in JSON/XML GENERATE"
-
-#: cobc/typeck.c:14941
-msgid "NAMESPACE must be a valid URI"
-msgstr "NAMESPACE must be a valid URI"
-
-#: cobc/typeck.c:14985
-msgid "NAMESPACE-PREFIX must be a valid XML name"
-msgstr "NAMESPACE-PREFIX must be a valid XML name"
-
-#: cobc/typeck.c:15014 cobc/typeck.c:15022
-msgid "NAME OF item"
-msgstr "NAME OF item"
-
-#: cobc/typeck.c:15019
-msgid "NAME OF item must be the input record or a child of it"
-msgstr "NAME OF item must be the input record or a child of it"
-
-#: cobc/typeck.c:15029
-msgid "NAME OF ... OMITTED only valid for source identifier"
-msgstr "NAME OF ... OMITTED only valid for source identifier"
-
-#: cobc/typeck.c:15037
-#, c-format
-msgid "NAME OF literal must be a valid %s identifier"
-msgstr "NAME OF literal must be a valid %s identifier"
-
-#: cobc/typeck.c:15062 cobc/typeck.c:15063 cobc/typeck.c:15066
-#: cobc/typeck.c:15070
-msgid "TYPE OF item"
-msgstr "TYPE OF item"
-
-#: cobc/typeck.c:15088
-msgid "SUPPRESS WHEN SPACE item"
-msgstr "SUPPRESS WHEN SPACE item"
-
-#: cobc/typeck.c:15091
-msgid "SUPPRESS WHEN LOW-VALUE item"
-msgstr "SUPPRESS WHEN LOW-VALUE item"
-
-#: cobc/typeck.c:15093
-msgid "SUPPRESS WHEN HIGH-VALUE item"
-msgstr "SUPPRESS WHEN HIGH-VALUE item"
-
-#: cobc/typeck.c:15122 cobc/typeck.c:15130 cobc/typeck.c:15134
-msgid "SUPPRESS item"
-msgstr "SUPPRESS item"
-
-#: cobc/typeck.c:15126
-msgid "SUPPRESS item with WHEN clause"
-msgstr "SUPPRESS item with WHEN clause"
-
-#: cobc/typeck.c:15204
-msgid "WITH ATTRIBUTES specified, but no attributes can be generated"
-msgstr "WITH ATTRIBUTES specified, but no attributes can be generated"
-
-#: cobc/warning.def:31
-msgid " -Wadditional additional warnings only raised with -Wall"
-msgstr " -Wadditional additional warnings only raised with -Wall"
-
-#: cobc/warning.def:34
-msgid " -Wno-unfinished do not warn if unfinished features are used"
-msgstr " -Wno-unfinished do not warn if unfinished features are used"
-
-#: cobc/warning.def:37
-msgid " -Wno-pending do not warn if pending features are used"
-msgstr " -Wno-pending do not warn if pending features are used"
-
-#: cobc/warning.def:40
-msgid " -Wno-repository-checks\tdo not warn/check for program/function/external signature mismatch"
-msgstr " -Wno-repository-checks\tdo not warn/check for program/function/external signature mismatch"
-
-#: cobc/warning.def:43
-msgid " -Wno-ignored-error do not warn about errors in code parts which are unreachable and so normally ignored"
-msgstr " -Wno-ignored-error do not warn about errors in code parts which are unreachable and so normally ignored"
-
-#: cobc/warning.def:46
-msgid " -Wobsolete warn if obsolete features are used"
-msgstr " -Wobsolete warn if obsolete features are used"
-
-#: cobc/warning.def:49
-msgid " -Warchaic warn if archaic features are used"
-msgstr " -Warchaic warn if archaic features are used"
-
-#: cobc/warning.def:52
-msgid " -Wredefinition warn about non-referenced ambiguous data items"
-msgstr " -Wredefinition warn about non-referenced ambiguous data items"
-
-#: cobc/warning.def:55
-msgid " -Wtruncate warn about field truncation from constant assignments"
-msgstr " -Wtruncate warn about field truncation from constant assignments"
-
-#: cobc/warning.def:58
-msgid " -Wpossible-truncate warn about possible field truncation"
-msgstr " -Wpossible-truncate warn about possible field truncation"
-
-#: cobc/warning.def:61
-msgid " -Woverlap warn about overlapping MOVE of items"
-msgstr " -Woverlap warn about overlapping MOVE of items"
-
-#: cobc/warning.def:64
-msgid " -Wpossible-overlap warn about MOVE of items that may overlap depending on variables"
-msgstr " -Wpossible-overlap warn about MOVE of items that may overlap depending on variables"
-
-#: cobc/warning.def:67
-msgid " -Wparentheses warn if parentheses are omitted around AND within OR"
-msgstr " -Wparentheses warn if parentheses are omitted around AND within OR"
-
-#: cobc/warning.def:70
-msgid " -Wstrict-typing warn strictly about type mismatch, even when same size"
-msgstr " -Wstrict-typing warn strictly about type mismatch, even when same size"
-
-#: cobc/warning.def:73
-msgid " -Wtyping warn about type mismatch"
-msgstr " -Wtyping warn about type mismatch"
-
-#: cobc/warning.def:76
-msgid " -Wimplicit-define warn whenever data items are implicitly defined"
-msgstr " -Wimplicit-define warn whenever data items are implicitly defined"
-
-#: cobc/warning.def:79
-msgid " -Wno-corresponding do not warn about CORRESPONDING with no matching items"
-msgstr " -Wno-corresponding do not warn about CORRESPONDING with no matching items"
-
-#: cobc/warning.def:82
-msgid " -Winitial-value warn if initial VALUE clause is ignored"
-msgstr " -Winitial-value warn if initial VALUE clause is ignored"
-
-#: cobc/warning.def:85
-msgid " -Wprototypes warn about missing FUNCTION prototypes/definitions"
-msgstr " -Wprototypes warn about missing FUNCTION prototypes/definitions"
-
-#: cobc/warning.def:88
-msgid " -Warithmetic-osvs warn if arithmetic expression precision has changed"
-msgstr " -Warithmetic-osvs warn if arithmetic expression precision has changed"
-
-#: cobc/warning.def:91
-msgid " -Wcall-params warn about non 01/77 items for CALL parameters"
-msgstr " -Wcall-params warn about non 01/77 items for CALL parameters"
-
-#: cobc/warning.def:94
-msgid " -Wconstant-expression warn about expressions that always resolve to true/false"
-msgstr " -Wconstant-expression warn about expressions that always resolve to true/false"
-
-#: cobc/warning.def:97
-msgid " -Wconstant-numlit-expression\twarn about numeric expressions that always resolve to true/false"
-msgstr " -Wconstant-numlit-expression\twarn about numeric expressions that always resolve to true/false"
-
-#: cobc/warning.def:100
-msgid " -Wlarger-01-redefines warn about larger redefines allowed by COBOL standards"
-msgstr " -Wlarger-01-redefines warn about larger redefines allowed by COBOL standards"
-
-#: cobc/warning.def:103
-msgid " -Wcolumn-overflow warn about text after program-text area, FIXED format"
-msgstr " -Wcolumn-overflow warn about text after program-text area, FIXED format"
-
-#: cobc/warning.def:106
-msgid " -Wterminator warn about lack of scope terminator END-XXX"
-msgstr " -Wterminator warn about lack of scope terminator END-XXX"
-
-#: cobc/warning.def:109
-msgid " -Wlinkage warn about dangling LINKAGE items"
-msgstr " -Wlinkage warn about dangling LINKAGE items"
-
-#: cobc/warning.def:112
-msgid " -Wunreachable warn about likely unreachable statements"
-msgstr " -Wunreachable warn about likely unreachable statements"
-
-#: cobc/warning.def:115
-msgid " -Wno-dialect do not warn about dialect specific issues"
-msgstr " -Wno-dialect do not warn about dialect specific issues"
-
-#: cobc/warning.def:118
-msgid " -Wno-goto-section do not warn about GO TO section-name"
-msgstr " -Wno-goto-section do not warn about GO TO section-name"
-
-#: cobc/warning.def:121
-msgid " -Wgoto-different-section\twarn about GO TO a praragraph defined in a different section"
-msgstr " -Wgoto-different-section\twarn about GO TO a praragraph defined in a different section"
-
-#: cobc/warning.def:124
-msgid " -Wsuspicious-perform-thru\twarn if PERFORM THRU references procedures not in ascending order or multiple sections"
-msgstr " -Wsuspicious-perform-thru\twarn if PERFORM THRU references procedures not in ascending order or multiple sections"
-
-#: cobc/warning.def:127
-msgid " -Wdangling-text warn about source text after program-area"
-msgstr " -Wdangling-text warn about source text after program-area"
-
-#: cobc/warning.def:130
-msgid " -Wno-missing-newline do not warn about missing newlines"
-msgstr " -Wno-missing-newline do not warn about missing newlines"
-
-#: cobc/warning.def:133
-msgid " -Wno-others do not warn about different issues"
-msgstr " -Wno-others do not warn about different issues"
-
-#: cobc/warning.def:136
-msgid " -Wno-unsupported do not warn if runtime does not support a feature used"
-msgstr " -Wno-unsupported do not warn if runtime does not support a feature used"
-
-#: libcob/call.c:98
-#, c-format
-msgid "LoadLibrary/GetProcAddress error %d"
-msgstr "LoadLibrary/GetProcAddress error %d"
-
-#: libcob/call.c:626
-#, c-format
-msgid "preloading from existing path '%s' failed; %s"
-msgstr "preloading from existing path ‘[1m%s[0m’ failed; %s"
-
-#: libcob/call.c:817
-#, c-format
-msgid "%s: PROGRAM name exceeds %d characters"
-msgstr "%s: PROGRAM name exceeds %d characters"
-
-#: libcob/call.c:818
-#, c-format
-msgid "%s: FUNCTION name exceeds %d characters"
-msgstr "%s: FUNCTION name exceeds %d characters"
-
-#: libcob/call.c:945 libcob/call.c:978
-#, c-format
-msgid "loading from existing path '%s' failed; %s"
-msgstr "loading from existing path ‘[1m%s[0m’ failed; %s"
-
-#: libcob/call.c:1049
-msgid "indeterminable error in resolve of COBOL CALL"
-msgstr "indeterminable error in resolve of COBOL CALL"
-
-#: libcob/call.c:1145
-#, c-format
-msgid "user-defined FUNCTION '%s' not found"
-msgstr "user-defined FUNCTION ‘[1m%s[0m’ not found"
-
-#: libcob/call.c:1247 libcob/call.c:1328 libcob/call.c:1448 libcob/call.c:1475
-#, c-format
-msgid "NULL parameter passed to '%s'"
-msgstr "NULL parameter passed to ‘[1m%s[0m’"
-
-#: libcob/call.c:1332
-#, c-format
-msgid "invalid number of arguments passed to '%s'"
-msgstr "invalid number of arguments passed to ‘[1m%s[0m’"
-
-#: libcob/call.c:1452
-msgid "multiple call to 'cob_setjmp'"
-msgstr "multiple call to ‘[1mcob_setjmp[0m’"
-
-#: libcob/call.c:1479
-msgid "call to 'cob_longjmp' with no prior 'cob_setjmp'"
-msgstr "call to ‘[1mcob_longjmp[0m’ with no prior ‘[1mcob_setjmp[0m’"
-
-#: libcob/call.c:1608
-#, c-format
-msgid "preloading of '%s' failed"
-msgstr "preloading of ‘[1m%s[0m’ failed"
-
-#: libcob/call.c:1706 libcob/call.c:1733 libcob/common.c:8965
-msgid "cob_init() has not been called"
-msgstr "cob_init() has not been called"
-
-#: libcob/call.c:1712
-#, c-format
-msgid "parameter %d is not within range of %d"
-msgstr "parameter %d is not within range of %d"
-
-#: libcob/call.c:1718
-#, c-format
-msgid "parameter %d is NULL"
-msgstr "parameter %d is NULL"
-
-#: libcob/call.c:2045
-msgid "NULL field"
-msgstr "NULL field"
-
-#: libcob/call.c:2053
-msgid "field not allocated"
-msgstr "field not allocated"
-
-#: libcob/call.c:2119
-#, c-format
-msgid "attempt to over-write constant field with '%s'"
-msgstr "attempt to over-write constant field with ‘[1m%s[0m’"
-
-#: libcob/call.c:2161 libcob/call.c:2219 libcob/call.c:2270
-#, c-format
-msgid "attempt to over-write constant parameter %d with '%s'"
-msgstr "attempt to over-write constant parameter %d with ‘[1m%s[0m’"
-
-#: libcob/cobgetopt.c:330
-#, c-format
-msgid "%s: option '%s%s' is ambiguous"
-msgstr "%s: option ‘[1m%s%s[0m’ is ambiguous"
-
-#: libcob/cobgetopt.c:338
-#, c-format
-msgid "%s: option '%s%s' is ambiguous; possibilities:"
-msgstr "%s: option ‘[1m%s%s[0m’ is ambiguous; possibilities:"
-
-#: libcob/cobgetopt.c:371
-#, c-format
-msgid "%s: unrecognized option '%s%s'"
-msgstr "%s: unrecognized option ‘[1m%s%s[0m’"
-
-#: libcob/cobgetopt.c:400
-#, c-format
-msgid "%s: option '%s%s' doesn't allow an argument"
-msgstr "%s: option ‘[1m%s%s[0m’ doesn't allow an argument"
-
-#: libcob/cobgetopt.c:418
-#, c-format
-msgid "%s: option '%s%s' requires an argument"
-msgstr "%s: option ‘[1m%s%s[0m’ requires an argument"
-
-#: libcob/cobgetopt.c:689
-#, c-format
-msgid "%s: invalid option -- '%c'"
-msgstr "%s: invalid option -- ‘[1m%c[0m’"
-
-#: libcob/cobgetopt.c:707 libcob/cobgetopt.c:754
-#, c-format
-msgid "%s: option requires an argument -- '%c'"
-msgstr "%s: option requires an argument -- ‘[1m%c[0m’"
-
-#: libcob/common.c:1074
-#, c-format
-msgid "requested coredump creation failed with status %d"
-msgstr "requested coredump creation failed with status %d"
-
-#: libcob/common.c:1303
-msgid "fatal arithmetic error"
-msgstr "fatal arithmetic error"
-
-#: libcob/common.c:1306
-msgid "interrupt from keyboard"
-msgstr "interrupt from keyboard"
-
-#: libcob/common.c:1310
-msgid "hangup"
-msgstr "hangup"
-
-#: libcob/common.c:1314
-msgid "quit"
-msgstr "quit"
-
-#: libcob/common.c:1318
-msgid "termination"
-msgstr "termination"
-
-#: libcob/common.c:1322
-msgid "emt termination"
-msgstr "emt termination"
-
-#: libcob/common.c:1326
-msgid "broken pipe"
-msgstr "broken pipe"
-
-#: libcob/common.c:1330
-msgid "I/O signal"
-msgstr "I/O signal"
-
-#: libcob/common.c:1334
-msgid "attempt to reference invalid memory address"
-msgstr "attempt to reference invalid memory address"
-
-#: libcob/common.c:1338
-msgid "bus error"
-msgstr "bus error"
-
-#: libcob/common.c:1342
-msgid "illegal instruction"
-msgstr "illegal instruction"
-
-#: libcob/common.c:1346
-msgid "abort"
-msgstr "abort"
-
-#: libcob/common.c:1350
-msgid "process killed"
-msgstr "process killed"
-
-#: libcob/common.c:1354
-msgid "alarm signal"
-msgstr "alarm signal"
-
-#: libcob/common.c:1358
-msgid "stop process"
-msgstr "stop process"
-
-#: libcob/common.c:1362 libcob/common.c:1366
-msgid "child process stopped"
-msgstr "child process stopped"
-
-#. TRANSLATORS: This msgid is used for an OS signal like SIGABRT.
-#: libcob/common.c:1373
-msgid "signal"
-msgstr "signal"
-
-#. TRANSLATORS: This msgid is shown for a requested but not complete stack trace.
-#: libcob/common.c:1375
-msgid "(more COBOL runtime elements follow...)"
-msgstr "(more COBOL runtime elements follow...)"
-
-#: libcob/common.c:1377 libcob/common.c:8922
-#, c-format
-msgid "abnormal termination - file contents may be incorrect"
-msgstr "abnormal termination - file contents may be incorrect"
-
-#: libcob/common.c:3441 libcob/common.c:9398 libcob/common.c:9412
-msgid "version mismatch"
-msgstr "version mismatch"
-
-#: libcob/common.c:3442 libcob/common.c:3444 libcob/common.c:9399
-#: libcob/common.c:9401
-#, c-format
-msgid "%s has version %s.%d"
-msgstr "%s has version %s.%d"
-
-#: libcob/common.c:3454
-#, c-format
-msgid "CALL to %s requires %d arguments"
-msgstr "CALL to %s requires %d arguments"
-
-#: libcob/common.c:4141
-#, c-format
-msgid "code execution leaving %s"
-msgstr "code execution leaving %s"
-
-#: libcob/common.c:4151
-#, c-format
-msgid "BASED/LINKAGE item %s has NULL address"
-msgstr "BASED/LINKAGE item %s has NULL address"
-
-#: libcob/common.c:4168
-#, c-format
-msgid "memory violation detected for '%s' after %s"
-msgstr "memory violation detected for ‘[1m%s[0m’ after %s"
-
-#: libcob/common.c:4171
-#, c-format
-msgid "memory violation detected after %s"
-msgstr "memory violation detected after %s"
-
-#: libcob/common.c:4229 libcob/common.c:4244 libcob/common.c:4283
-#: libcob/common.c:4287
-#, c-format
-msgid "LINKAGE item %s not passed by caller"
-msgstr "LINKAGE item %s not passed by caller"
-
-#: libcob/common.c:4253
-#, c-format
-msgid "LINKAGE item %s (size %lu) too small in the caller (size %lu)"
-msgstr "LINKAGE item %s (size %lu) too small in the caller (size %lu)"
-
-#: libcob/common.c:4378
-#, c-format
-msgid "'%s' (Type: %s) not numeric: '%s'"
-msgstr "‘[1m%s[0m’ (Type: %s) not numeric: ‘[1m%s[0m’"
-
-#: libcob/common.c:4403
-#, c-format
-msgid "OCCURS DEPENDING ON '%s' out of bounds: %d"
-msgstr "OCCURS DEPENDING ON ‘[1m%s[0m’ out of bounds: %d"
-
-#: libcob/common.c:4406 libcob/common.c:4444
-#, c-format
-msgid "maximum subscript for '%s': %d"
-msgstr "maximum subscript for '%s': %d"
-
-#: libcob/common.c:4408
-#, c-format
-msgid "minimum subscript for '%s': %d"
-msgstr "minimum subscript for '%s': %d"
-
-#: libcob/common.c:4441
-#, c-format
-msgid "current maximum subscript for '%s': %d"
-msgstr "current maximum subscript for '%s': %d"
-
-#: libcob/common.c:4465
-#, c-format
-msgid "offset of '%s' out of bounds: %d, maximum: %d"
-msgstr "offset of ‘[1m%s[0m’ out of bounds: %d, maximum: %d"
-
-#: libcob/common.c:4480
-#, c-format
-msgid "length of '%s' out of bounds: %d, maximum: %d"
-msgstr "length of ‘[1m%s[0m’ out of bounds: %d, maximum: %d"
-
-#: libcob/common.c:4491
-#, c-format
-msgid "length of '%s' out of bounds: %d, starting at: %d, maximum: %d"
-msgstr "length of ‘[1m%s[0m’ out of bounds: %d, starting at: %d, maximum: %d"
-
-#: libcob/common.c:4579 libcob/common.c:4584
-#, c-format
-msgid "EXTERNAL item '%s' previously allocated with size %d, requested size is %d"
-msgstr "EXTERNAL item ‘[1m%s[0m’ previously allocated with size %d, requested size is %d"
-
-#: libcob/common.c:4961 libcob/common.c:5201
-#, c-format
-msgid "COB_CURRENT_DATE '%s' is invalid"
-msgstr "COB_CURRENT_DATE ‘[1m%s[0m’ is invalid"
-
-#: libcob/common.c:6321 libcob/common.c:6324
-msgid "Program abandoned at user request"
-msgstr "Program abandoned at user request"
-
-#: libcob/common.c:6348
-#, c-format
-msgid "parameter to SYSTEM call is larger than %d characters"
-msgstr "parameter to SYSTEM call is larger than %d characters"
-
-#: libcob/common.c:6998
-#, c-format
-msgid "error '%s' during CBL_GC_FORK"
-msgstr "error ‘[1m%s[0m’ during CBL_GC_FORK"
-
-#: libcob/common.c:7003 libcob/common.c:7100
-#, c-format
-msgid "'%s' is not supported on this platform"
-msgstr "‘[1m%s[0m’ is not supported on this platform"
-
-#: libcob/common.c:7029
-#, c-format
-msgid "error '%s' for P%d during CBL_GC_WAITPID"
-msgstr "error ‘[1m%s[0m’ for P%d during CBL_GC_WAITPID"
-
-#: libcob/common.c:7220
-msgid "call to CBL_GC_GETOPT with wrong longoption size"
-msgstr "call to CBL_GC_GETOPT with wrong longoption size"
-
-#: libcob/common.c:7225
-msgid "call to CBL_GC_GETOPT with missing longind"
-msgstr "call to CBL_GC_GETOPT with missing longind"
-
-#: libcob/common.c:7654 libcob/common.c:7675 libcob/common.c:7688
-#: libcob/common.c:9924 libcob/common.c:9928
-#, c-format
-msgid "(default)"
-msgstr "(default)"
-
-#: libcob/common.c:7973 libcob/common.c:7992
-msgid "should be unsigned"
-msgstr "should be unsigned"
-
-#: libcob/common.c:7981 libcob/common.c:8030
-msgid "should be numeric"
-msgstr "should be numeric"
-
-#: libcob/common.c:8039
-#, c-format
-msgid "minimum value: %lu"
-msgstr "minimum value: %lu"
-
-#: libcob/common.c:8069 libcob/common.c:8640 libcob/common.c:8654
-#: bin/cobcrun.c:206
-#, c-format
-msgid "should not contain '%c'"
-msgstr "should not contain ‘[1m%c[0m’"
-
-#: libcob/common.c:8150 libcob/common.c:8169 libcob/common.c:8231
-#: libcob/common.c:8240 libcob/common.c:8248 libcob/common.c:8273
-#, c-format
-msgid "not set"
-msgstr "not set"
-
-#: libcob/common.c:8223 libcob/common.c:8226 libcob/common.c:8229
-#, c-format
-msgid "set by %s"
-msgstr "set by %s"
-
-#: libcob/common.c:8367
-#, c-format
-msgid "WARNING - '%s' without a value - ignored!"
-msgstr "WARNING - ‘[1m%s[0m’ without a value - ignored!"
-
-#: libcob/common.c:8370
-#, c-format
-msgid "'%s' without a value!"
-msgstr "‘[1m%s[0m’ without a value!"
-
-#: libcob/common.c:8397
-#, c-format
-msgid "WARNING - '%s %s' without a value - ignored!"
-msgstr "WARNING - ‘[1m%s %s[0m’ without a value - ignored!"
-
-#: libcob/common.c:8906
-msgid "error"
-msgstr "error"
-
-#: libcob/common.c:8948
-msgid "attempt to CANCEL active program"
-msgstr "attempt to CANCEL active program"
-
-#: libcob/common.c:8975
-msgid "CALL of program with CHAINING clause"
-msgstr "CALL of program with CHAINING clause"
-
-#: libcob/common.c:8979
-msgid "stack overflow, possible PERFORM depth exceeded"
-msgstr "stack overflow, possible PERFORM depth exceeded"
-
-#: libcob/common.c:8984
-msgid "invalid entry/exit in GLOBAL USE procedure"
-msgstr "invalid entry/exit in GLOBAL USE procedure"
-
-#: libcob/common.c:8988
-msgid "unable to allocate memory"
-msgstr "unable to allocate memory"
-
-#: libcob/common.c:8993
-msgid "invalid entry into module"
-msgstr "invalid entry into module"
-
-#: libcob/common.c:9000
-#, c-format
-msgid "recursive CALL from '%s' to '%s' which is NOT RECURSIVE"
-msgstr "recursive CALL from ‘[1m%s[0m’ to ‘[1m%s[0m’ which is NOT RECURSIVE"
-
-#: libcob/common.c:9005
-#, c-format
-msgid "invalid recursive COBOL CALL to '%s'"
-msgstr "invalid recursive COBOL CALL to ‘[1m%s[0m’"
-
-#: libcob/common.c:9020
-msgid "end of file"
-msgstr "end of file"
-
-#: libcob/common.c:9023
-msgid "key out of range"
-msgstr "key out of range"
-
-#: libcob/common.c:9026
-msgid "key order not ascending"
-msgstr "key order not ascending"
-
-#: libcob/common.c:9029
-msgid "record key already exists"
-msgstr "record key already exists"
-
-#: libcob/common.c:9032
-msgid "record key does not exist"
-msgstr "record key does not exist"
-
-#: libcob/common.c:9035
-msgid "permanent file error"
-msgstr "permanent file error"
-
-#: libcob/common.c:9038
-msgid "inconsistent file name"
-msgstr "inconsistent file name"
-
-#: libcob/common.c:9041
-msgid "file does not exist"
-msgstr "file does not exist"
-
-#: libcob/common.c:9044
-msgid "permission denied"
-msgstr "permission denied"
-
-#: libcob/common.c:9047
-msgid "mismatch of fixed file attributes"
-msgstr "mismatch of fixed file attributes"
-
-#: libcob/common.c:9050
-msgid "file already open"
-msgstr "file already open"
-
-#: libcob/common.c:9053
-msgid "file not open"
-msgstr "file not open"
-
-#: libcob/common.c:9056
-msgid "READ must be executed first"
-msgstr "READ must be executed first"
-
-#: libcob/common.c:9059
-msgid "record overflow"
-msgstr "record overflow"
-
-#: libcob/common.c:9062
-msgid "READ after unsuccessful READ/START"
-msgstr "READ after unsuccessful READ/START"
-
-#: libcob/common.c:9065
-msgid "READ/START not allowed, file not open for input"
-msgstr "READ/START not allowed, file not open for input"
-
-#: libcob/common.c:9068
-msgid "WRITE not allowed, file not open for output"
-msgstr "WRITE not allowed, file not open for output"
-
-#: libcob/common.c:9071
-msgid "DELETE/REWRITE not allowed, file not open for I-O"
-msgstr "DELETE/REWRITE not allowed, file not open for I-O"
-
-#: libcob/common.c:9074
-msgid "record locked by another file connector"
-msgstr "record locked by another file connector"
-
-#: libcob/common.c:9077
-msgid "LINAGE values invalid"
-msgstr "LINAGE values invalid"
-
-#: libcob/common.c:9080
-msgid "file sharing conflict"
-msgstr "file sharing conflict"
-
-#: libcob/common.c:9083
-msgid "invalid data in LINE SEQUENTIAL file"
-msgstr "invalid data in LINE SEQUENTIAL file"
-
-#: libcob/common.c:9087
-msgid "runtime library is not configured for this operation"
-msgstr "runtime library is not configured for this operation"
-
-#: libcob/common.c:9092
-msgid "unknown file error"
-msgstr "unknown file error"
-
-#: libcob/common.c:9099
-#, c-format
-msgid "%s (status = %02d) for file %s"
-msgstr "%s (status = %02d) for file %s"
-
-#: libcob/common.c:9102
-#, c-format
-msgid "%s (status = %02d) for file %s on %s"
-msgstr "%s (status = %02d) for file %s on %s"
-
-#: libcob/common.c:9109
-msgid "attempt to use non-implemented function"
-msgstr "attempt to use non-implemented function"
-
-#: libcob/common.c:9112
-msgid "attempt to use non-implemented XML I/O"
-msgstr "attempt to use non-implemented XML I/O"
-
-#: libcob/common.c:9115
-msgid "attempt to use non-implemented JSON I/O"
-msgstr "attempt to use non-implemented JSON I/O"
-
-#: libcob/common.c:9162
-msgid "environment variables"
-msgstr "environment variables"
-
-#: libcob/common.c:9283 libcob/common.c:9356 libcob/common.c:9371
-#: libcob/common.c:9676 libcob/common.c:9710 libcob/common.c:9727
-#: libcob/common.c:9742
-#, c-format
-msgid "%s, version %d.%d.%d"
-msgstr "%s, version %d.%d.%d"
-
-#: libcob/common.c:9285 libcob/common.c:9358 libcob/common.c:9375
-#: libcob/common.c:9679 libcob/common.c:9730 libcob/common.c:9745
-#, c-format
-msgid "%s, version %d.%d.%d (compiled with %d.%d)"
-msgstr "%s, version %d.%d.%d (compiled with %d.%d)"
-
-#: libcob/common.c:9288
-#, c-format
-msgid "%s, version %s"
-msgstr "%s, version %s"
-
-#: libcob/common.c:9556
-#, c-format
-msgid "License LGPLv3+: GNU LGPL version 3 or later <%s>"
-msgstr "License LGPLv3+: GNU LGPL version 3 or later <%s>"
-
-#: libcob/common.c:9620 libcob/common.c:9622
-msgid "dynamic loading"
-msgstr "dynamic loading"
-
-#: libcob/common.c:9755
-msgid "mouse support"
-msgstr "mouse support"
-
-#: libcob/common.c:9772
-msgid "CALL configuration"
-msgstr "CALL configuration"
-
-#: libcob/common.c:9773
-msgid "File I/O configuration"
-msgstr "File I/O configuration"
-
-#: libcob/common.c:9774
-msgid "Screen I/O configuration"
-msgstr "Screen I/O configuration"
-
-#: libcob/common.c:9775
-msgid "Miscellaneous"
-msgstr "Miscellaneous"
-
-#: libcob/common.c:9776
-msgid "System configuration"
-msgstr "System configuration"
-
-#: libcob/common.c:9780
-msgid "runtime configuration"
-msgstr "runtime configuration"
-
-#: libcob/common.c:9782
-msgid "via"
-msgstr "via"
-
-#: libcob/common.c:9857 libcob/common.c:9885
-msgid "... removed from environment"
-msgstr "... removed from environment"
-
-#: libcob/common.c:9911 libcob/common.c:9913
-#, c-format
-msgid "(set by %s)"
-msgstr "(set by %s)"
-
-#: libcob/common.c:9921
-#, c-format
-msgid "(reset)"
-msgstr "(reset)"
-
-#: libcob/common.c:10151
-msgid "compiler was not built with --enable-debug-log; COB_DEBUG_LOG ignored"
-msgstr "compiler was not built with --enable-debug-log; COB_DEBUG_LOG ignored"
-
-#: libcob/common.c:10338 libcob/common.c:10364
-#, c-format
-msgid "%s called with unknown option: %d"
-msgstr "%s called with unknown option: %d"
-
-#. TRANSLATORS: This msgid is shown for a requested but empty stack trace.
-#: libcob/common.c:10411
-msgid "No COBOL runtime elements on stack."
-msgstr "No COBOL runtime elements on stack."
-
-#: libcob/common.c:10734
-#, c-format
-msgid "Module dump due to %s"
-msgstr "Module dump due to %s"
-
-#: libcob/common.c:10762
-#, c-format
-msgid "Dump Program-Id %s from %s compiled %s"
-msgstr "Dump Program-Id %s from %s compiled %s"
-
-#: libcob/common.c:10788
-#, c-format
-msgid "dump written to %s"
-msgstr "dump written to %s"
-
-#: libcob/fileio.c:784 libcob/fileio.c:1664 libcob/fileio.c:1926
-#: libcob/fileio.c:3938 libcob/fileio.c:4522 libcob/fileio.c:10049
-#: libcob/fileio.c:10077 libcob/numeric.c:1915
-#, c-format
-msgid "invalid internal call of %s"
-msgstr "invalid internal call of %s"
-
-#: libcob/fileio.c:3486
-#, c-format
-msgid "BDB error: %s"
-msgstr "BDB error: %s"
-
-#: libcob/fileio.c:3496
-#, c-format
-msgid "BDB error: %s %s"
-msgstr "BDB error: %s %s"
-
-#: libcob/fileio.c:3510 libcob/fileio.c:3530
-#, c-format
-msgid "cannot join BDB environment (%s), error: %d %s"
-msgstr "cannot join BDB environment (%s), error: %d %s"
-
-#: libcob/fileio.c:3585 libcob/fileio.c:3610 libcob/fileio.c:3636
-#: libcob/fileio.c:3655
-#, c-format
-msgid "BDB (%s), error: %d %s"
-msgstr "BDB (%s), error: %d %s"
-
-#: libcob/fileio.c:6199
-#, c-format
-msgid "ERROR FILE %s has ASSIGN field is NULL"
-msgstr "ERROR FILE %s has ASSIGN field is NULL"
-
-#: libcob/fileio.c:7050
-#, c-format
-msgid "call to CBL_OPEN_FILE with wrong access mode: %d"
-msgstr "call to CBL_OPEN_FILE with wrong access mode: %d"
-
-#: libcob/fileio.c:7135
-#, c-format
-msgid "call to CBL_CREATE_FILE with wrong file_lock: %d"
-msgstr "call to CBL_CREATE_FILE with wrong file_lock: %d"
-
-#: libcob/fileio.c:7138
-#, c-format
-msgid "call to CBL_CREATE_FILE with wrong file_dev: %d"
-msgstr "call to CBL_CREATE_FILE with wrong file_dev: %d"
-
-#: libcob/fileio.c:7362 libcob/fileio.c:7645
-#, c-format
-msgid "'%s' - File detail area is too short"
-msgstr "‘[1m%s[0m’ - File detail area is too short"
-
-#: libcob/fileio.c:7871
-msgid "SORT is unable to acquire temporary file"
-msgstr "SORT is unable to acquire temporary file"
-
-#. TRANSLATORS: This msgid is concatenated with a filename;
-#. setup translation to allow this to be followed on the right side,
-#. if necessary use a colon or hyphen
-#: libcob/fileio.c:8777
-msgid "implicit CLOSE of "
-msgstr "implicit CLOSE of "
-
-#: libcob/fileio.c:10008 libcob/fileio.c:10193
-#, c-format
-msgid "ERROR: EXTFH called with FCD version %d"
-msgstr "ERROR: EXTFH called with FCD version %d"
-
-#: libcob/fileio.c:10310
-#, c-format
-msgid "ERROR: EXTFH called with wrong file organization %d"
-msgstr "ERROR: EXTFH called with wrong file organization %d"
-
-#: libcob/fileio.c:10317
-#, c-format
-msgid "ERROR: EXTFH called with no %s pointer"
-msgstr "ERROR: EXTFH called with no %s pointer"
-
-#: libcob/fileio.c:10461
-#, c-format
-msgid "ERROR: EXTFH called with no %s pointer; Function %d"
-msgstr "ERROR: EXTFH called with no %s pointer; Function %d"
-
-#: libcob/fileio.c:10683
-#, c-format
-msgid "ERROR: EXTFH called with unknown Function %d"
-msgstr "ERROR: EXTFH called with unknown Function %d"
-
-#: libcob/reportio.c:629
-#, c-format
-msgid "INITIATE %s LINE %d exceeds PAGE LIMIT %d"
-msgstr "INITIATE %s LINE %d exceeds PAGE LIMIT %d"
-
-#: libcob/reportio.c:636 libcob/reportio.c:651
-#, c-format
-msgid "INITIATE %s NEXT GROUP %d exceeds PAGE LIMIT"
-msgstr "INITIATE %s NEXT GROUP %d exceeds PAGE LIMIT"
-
-#: libcob/reportio.c:644
-#, c-format
-msgid "INITIATE %s LINE %d exceeds PAGE LIMIT"
-msgstr "INITIATE %s LINE %d exceeds PAGE LIMIT"
-
-#: libcob/reportio.c:1336
-#, c-format
-msgid "INITIATE %s was already done"
-msgstr "INITIATE %s was already done"
-
-#: libcob/reportio.c:1352
-#, c-format
-msgid "INITIATE %s PAGE LIMIT problem"
-msgstr "INITIATE %s PAGE LIMIT problem"
-
-#: libcob/reportio.c:1429
-#, c-format
-msgid "TERMINATE %s but no INITIATE was done"
-msgstr "TERMINATE %s but no INITIATE was done"
-
-#: libcob/reportio.c:1574
-#, c-format
-msgid "GENERATE %s but no INITIATE was done"
-msgstr "GENERATE %s but no INITIATE was done"
-
-#: libcob/reportio.c:1926
-#, c-format
-msgid "could not find line to SUPPRESS in report %s"
-msgstr "could not find line to SUPPRESS in report %s"
-
-#: libcob/screenio.c:1055
-msgid "failed to initialize curses"
-msgstr "failed to initialize curses"
-
-#: libcob/screenio.c:5034
-msgid "end of program, please press a key to exit"
-msgstr "end of program, please press a key to exit"
-
-#: libcob/termio.c:76 libcob/termio.c:136
-msgid "(Not representable)"
-msgstr "(Not representable)"
-
-#: libcob/termio.c:406
-#, c-format
-msgid "cannot open %s (=%s)"
-msgstr "cannot open %s (=%s)"
-
-#: libcob/termio.c:421
-msgid "COB_DISPLAY_PUNCH_FILE is invalid, output to SYSPUNCH skipped"
-msgstr "COB_DISPLAY_PUNCH_FILE is invalid, output to SYSPUNCH skipped"
-
-#: bin/cobcrun.c:118
-msgid "GnuCOBOL module loader"
-msgstr "GnuCOBOL module loader"
-
-#: bin/cobcrun.c:120
-#, c-format
-msgid "Usage: %s [options] PROGRAM [parameter ...]"
-msgstr "Usage: %s [options] PROGRAM [parameter ...]"
-
-#: bin/cobcrun.c:122
-#, c-format
-msgid " or: %s options"
-msgstr " or: %s options"
-
-#: bin/cobcrun.c:126
-msgid " -h, --help display this help and exit"
-msgstr " -h, --help display this help and exit"
-
-#: bin/cobcrun.c:127
-msgid " -V, --version display version information for cobcrun + runtime and exit"
-msgstr " -V, --version display version information for cobcrun + runtime and exit"
-
-#: bin/cobcrun.c:128
-msgid " -dumpversion display runtime version and exit"
-msgstr " -dumpversion display runtime version and exit"
-
-#: bin/cobcrun.c:129
-msgid " -i, --info display runtime information (build/environment)"
-msgstr " -i, --info display runtime information (build/environment)"
-
-#: bin/cobcrun.c:130
-msgid " -v, --verbose display extended output with --info"
-msgstr " -v, --verbose display extended output with --info"
-
-#: bin/cobcrun.c:132
-msgid " -q, --brief reduced displays"
-msgstr " -q, --brief reduced displays"
-
-#: bin/cobcrun.c:134
-msgid " -c <file>, --config=<file> set runtime configuration from <file>"
-msgstr " -c <file>, --config=<file> set runtime configuration from <file>"
-
-#: bin/cobcrun.c:135
-msgid ""
-" -r, --runtime-config display current runtime configuration\n"
-" (value and origin for all settings)"
-msgstr ""
-" -r, --runtime-config display current runtime configuration\n"
-" (value and origin for all settings)"
-
-#: bin/cobcrun.c:137
-msgid ""
-" -M <module>, --module=<module> set entry point module name and/or load path\n"
-" where -M module prepends any directory to the\n"
-" dynamic link loader library search path\n"
-" and any basename to the module preload list\n"
-" (COB_LIBRARY_PATH and/or COB_PRELOAD)"
-msgstr ""
-" -M <module>, --module=<module> set entry point module name and/or load path\n"
-" where -M module prepends any directory to the\n"
-" dynamic link loader library search path\n"
-" and any basename to the module preload list\n"
-" (COB_LIBRARY_PATH and/or COB_PRELOAD)"
-
-#: bin/cobcrun.c:286
-msgid "invalid configuration file name"
-msgstr "invalid configuration file name"
-
-#: bin/cobcrun.c:353
-#, c-format
-msgid "invalid module argument '%s'"
-msgstr "invalid module argument ‘[1m%s[0m’"
-
-#: bin/cobcrun.c:408
-#, c-format
-msgid "%s: missing PROGRAM name"
-msgstr "%s: missing PROGRAM name"
-
-#: bin/cobcrun.c:410
-#, c-format
-msgid "Try '%s --help' for more information."
-msgstr "Try ‘[1m%s --help[0m’ for more information."
diff --git a/po/en@quot.gmo b/po/en@quot.gmo
deleted file mode 100644
index 325e618..0000000
Binary files a/po/en@quot.gmo and /dev/null differ
diff --git a/po/en@quot.po b/po/en@quot.po
deleted file mode 100644
index 97c9106..0000000
--- a/po/en@quot.po
+++ /dev/null
@@ -1,7167 +0,0 @@
-# English translations for gnucobol package.
-# Copyright (C) 2023 Free Software Foundation, Inc.
-# This file is distributed under the same license as the gnucobol package.
-# Automatically generated, 2023.
-#
-# All this catalog "translates" are quotation characters.
-# The msgids must be ASCII and therefore cannot contain real quotation
-# characters, only substitutes like grave accent (0x60), apostrophe (0x27)
-# and double quote (0x22). These substitutes look strange; see
-# http://www.cl.cam.ac.uk/~mgk25/ucs/quotes.html
-#
-# This catalog translates grave accent (0x60) and apostrophe (0x27) to
-# left single quotation mark (U+2018) and right single quotation mark (U+2019).
-# It also translates pairs of apostrophe (0x27) to
-# left single quotation mark (U+2018) and right single quotation mark (U+2019)
-# and pairs of quotation mark (0x22) to
-# left double quotation mark (U+201C) and right double quotation mark (U+201D).
-#
-# When output to an UTF-8 terminal, the quotation characters appear perfectly.
-# When output to an ISO-8859-1 terminal, the single quotation marks are
-# transliterated to apostrophes (by iconv in glibc 2.2 or newer) or to
-# grave/acute accent (by libiconv), and the double quotation marks are
-# transliterated to 0x22.
-# When output to an ASCII terminal, the single quotation marks are
-# transliterated to apostrophes, and the double quotation marks are
-# transliterated to 0x22.
-#
-msgid ""
-msgstr ""
-"Project-Id-Version: gnucobol 3.2\n"
-"Report-Msgid-Bugs-To: gnucobol-messages@gnu.org\n"
-"POT-Creation-Date: 2023-07-28 19:20+0200\n"
-"PO-Revision-Date: 2023-07-28 19:20+0200\n"
-"Last-Translator: Automatically generated\n"
-"Language-Team: none\n"
-"Language: en@quot\n"
-"MIME-Version: 1.0\n"
-"Content-Type: text/plain; charset=UTF-8\n"
-"Content-Transfer-Encoding: 8bit\n"
-"Plural-Forms: nplurals=2; plural=(n != 1);\n"
-
-#: cobc/cobc.c:116 cobc/codegen.c:2655 cobc/scanner.l:1375
-#, c-format
-msgid "invalid parameter: %s"
-msgstr "invalid parameter: %s"
-
-#: cobc/cobc.c:171 cobc/cobc.c:2392 cobc/cobc.c:2395 cobc/parser.y:895
-#: cobc/reserved.c:4039 libcob/common.c:235 libcob/common.c:1369
-#: libcob/common.c:2698 libcob/common.c:2702 libcob/common.c:2740
-#: libcob/common.c:2778 libcob/common.c:2939 libcob/common.c:8159
-#: libcob/common.c:9191 libcob/common.c:10209 libcob/common.c:10284
-#: libcob/common.c:10731
-msgid "unknown"
-msgstr "unknown"
-
-#: cobc/cobc.c:905
-msgid "internal compiler error"
-msgstr "internal compiler error"
-
-#: cobc/cobc.c:971 cobc/cobc.c:1058 cobc/cobc.c:1120 cobc/cobc.c:1196
-#: cobc/cobc.c:1236 cobc/cobc.c:1312
-#, c-format
-msgid "cannot allocate %d bytes of memory"
-msgstr "cannot allocate %d bytes of memory"
-
-#: cobc/cobc.c:984 cobc/cobc.c:1000 cobc/cobc.c:1020 cobc/cobc.c:1079
-#: cobc/cobc.c:1098 cobc/cobc.c:1216 cobc/cobc.c:1331 cobc/cobc.c:1415
-#: cobc/field.c:2346 libcob/common.c:9012
-#, c-format
-msgid "call to %s with NULL pointer"
-msgstr "call to %s with NULL pointer"
-
-#: cobc/cobc.c:1041
-#, c-format
-msgid "cannot reallocate %d bytes of memory"
-msgstr "cannot reallocate %d bytes of memory"
-
-#: cobc/cobc.c:1137 cobc/cobc.c:1253
-msgid "attempt to reallocate non-allocated memory"
-msgstr "attempt to reallocate non-allocated memory"
-
-#: cobc/cobc.c:1170 cobc/cobc.c:1286
-#, c-format
-msgid "call to %s with invalid pointer, as it is missing in list"
-msgstr "call to %s with invalid pointer, as it is missing in list"
-
-#: cobc/cobc.c:1540
-#, c-format
-msgid "assuming literal for unquoted '%s'"
-msgstr "assuming literal for unquoted ‘%s’"
-
-#: cobc/cobc.c:1587
-msgid " - length exceeds maximum"
-msgstr " - length exceeds maximum"
-
-#: cobc/cobc.c:1591
-msgid " - name cannot be empty"
-msgstr " - name cannot be empty"
-
-#: cobc/cobc.c:1594
-msgid " - name cannot begin with space or hyphen"
-msgstr " - name cannot begin with space or hyphen"
-
-#: cobc/cobc.c:1597
-msgid " - name cannot begin with 'cob_' or 'COB_'"
-msgstr " - name cannot begin with ‘cob_’ or ‘COB_’"
-
-#: cobc/cobc.c:1600
-msgid " - name duplicates a 'C' keyword"
-msgstr " - name duplicates a ‘C’ keyword"
-
-#: cobc/cobc.c:1603
-msgid " - name cannot contain a directory separator"
-msgstr " - name cannot contain a directory separator"
-
-#: cobc/cobc.c:1612
-#, c-format
-msgid "invalid file base name '%s'%s"
-msgstr "invalid file base name '%s'%s"
-
-#: cobc/cobc.c:1616
-#, c-format
-msgid "invalid ENTRY '%s'%s"
-msgstr "invalid ENTRY '%s'%s"
-
-#: cobc/cobc.c:1619
-#, c-format
-msgid "invalid PROGRAM-ID '%s'%s"
-msgstr "invalid PROGRAM-ID '%s'%s"
-
-#: cobc/cobc.c:1751
-#, c-format
-msgid "file '%s' does not exist"
-msgstr "file ‘%s’ does not exist"
-
-#: cobc/cobc.c:1777
-#, c-format
-msgid "duplicate exception '%s'"
-msgstr "duplicate exception ‘%s’"
-
-#: cobc/cobc.c:1825
-#, c-format
-msgid "invalid exception-name: %s"
-msgstr "invalid exception-name: %s"
-
-#: cobc/cobc.c:1998 cobc/cobc.c:9211
-msgid "please check environment variables as noted above"
-msgstr "please check environment variables as noted above"
-
-#: cobc/cobc.c:2010 cobc/error.c:140
-msgid "error: "
-msgstr "error: "
-
-#: cobc/cobc.c:2033
-#, c-format
-msgid "duplicate DEFINE '%s' - ignored"
-msgstr "duplicate DEFINE ‘%s’ - ignored"
-
-#: cobc/cobc.c:2086
-#, c-format
-msgid "environment variable '%s' is '%s'; should not contain '%c'"
-msgstr "environment variable ‘%s’ is '%s'; should not contain ‘%c’"
-
-#: cobc/cobc.c:2116
-msgid "parameter buffer size exceeded"
-msgstr "parameter buffer size exceeded"
-
-#: cobc/cobc.c:2156
-#, c-format
-msgid "warning: could not move temporary file to %s"
-msgstr "warning: could not move temporary file to %s"
-
-#: cobc/cobc.c:2329
-#, c-format
-msgid "environment variable '%s' has invalid content"
-msgstr "environment variable ‘%s’ has invalid content"
-
-#: cobc/cobc.c:2398
-#, c-format
-msgid "aborting compile of %s at line %d (%s: %s)"
-msgstr "aborting compile of %s at line %d (%s: %s)"
-
-#: cobc/cobc.c:2402
-#, c-format
-msgid "aborting codegen for %s, last statement at line %d (%s: %s)"
-msgstr "aborting codegen for %s, last statement at line %d (%s: %s)"
-
-#: cobc/cobc.c:2405
-#, c-format
-msgid "aborting codegen for %s (%s: %s)"
-msgstr "aborting codegen for %s (%s: %s)"
-
-#: cobc/cobc.c:2410
-msgid "aborting"
-msgstr "aborting"
-
-#: cobc/cobc.c:2488 libcob/common.c:3107 libcob/common.c:8970 bin/cobcrun.c:373
-#, c-format
-msgid "Please report this!"
-msgstr "Please report this!"
-
-#: cobc/cobc.c:2505 bin/cobcrun.c:100
-#, c-format
-msgid "License GPLv3+: GNU GPL version 3 or later <%s>"
-msgstr "License GPLv3+: GNU GPL version 3 or later <%s>"
-
-#: cobc/cobc.c:2507 libcob/common.c:9558 bin/cobcrun.c:102
-msgid ""
-"This is free software; see the source for copying conditions. There is NO\n"
-"warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE."
-msgstr ""
-"This is free software; see the source for copying conditions. There is NO\n"
-"warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE."
-
-#: cobc/cobc.c:2509 libcob/common.c:9560 bin/cobcrun.c:104
-#, c-format
-msgid "Written by %s"
-msgstr "Written by %s"
-
-#. TRANSLATORS: This msgid is intended as the "Packaged" msgid, %s expands to date and time
-#: cobc/cobc.c:2511 cobc/cobc.c:2524 libcob/common.c:9564 bin/cobcrun.c:106
-#, c-format
-msgid "Built %s"
-msgstr "Built %s"
-
-#. TRANSLATORS: This msgid is intended as the "Built" msgid, %s expands to date and time
-#: cobc/cobc.c:2513 cobc/cobc.c:2526 libcob/common.c:9567 bin/cobcrun.c:108
-#, c-format
-msgid "Packaged %s"
-msgstr "Packaged %s"
-
-#: cobc/cobc.c:2515 cobc/cobc.c:2528 cobc/cobc.c:2637 libcob/common.c:9604
-msgid "C version"
-msgstr "C version"
-
-#: cobc/cobc.c:2541 libcob/common.c:1075
-msgid "executing:"
-msgstr "executing:"
-
-#: cobc/cobc.c:2543
-msgid "to be executed:"
-msgstr "to be executed:"
-
-#: cobc/cobc.c:2581 cobc/cobc.c:2582 libcob/common.c:7632 libcob/common.c:7633
-#: libcob/common.c:7664 libcob/common.c:7665
-msgid "env"
-msgstr "env"
-
-#: cobc/cobc.c:2633 libcob/common.c:9600
-msgid "build information"
-msgstr "build information"
-
-#: cobc/cobc.c:2634 libcob/common.c:9601
-msgid "build environment"
-msgstr "build environment"
-
-#: cobc/cobc.c:2643 libcob/common.c:9611
-msgid "GnuCOBOL information"
-msgstr "GnuCOBOL information"
-
-#: cobc/cobc.c:2651 cobc/cobc.c:2739 cobc/cobc.c:2755 libcob/common.c:9233
-#: libcob/common.c:9594 libcob/common.c:9595 libcob/common.c:9629
-#: libcob/common.c:9695 libcob/common.c:9717 libcob/common.c:9751
-msgid "disabled"
-msgstr "disabled"
-
-#: cobc/cobc.c:2687 cobc/cobc.c:2705 libcob/common.c:8179 libcob/common.c:9221
-#: libcob/common.c:9230 libcob/common.c:9633 libcob/common.c:9651
-msgid "yes"
-msgstr "yes"
-
-#: cobc/cobc.c:2689 cobc/cobc.c:2707 libcob/common.c:8181 libcob/common.c:9223
-#: libcob/common.c:9635 libcob/common.c:9653
-msgid "no"
-msgstr "no"
-
-#: cobc/cobc.c:2693 libcob/common.c:9639
-msgid "8 bytes"
-msgstr "8 bytes"
-
-#: cobc/cobc.c:2695 libcob/common.c:9641
-msgid "4 bytes"
-msgstr "4 bytes"
-
-#: cobc/cobc.c:2699 cobc/cobc.c:2701 libcob/common.c:9645 libcob/common.c:9647
-msgid "endianness"
-msgstr "endianness"
-
-#: cobc/cobc.c:2699 libcob/common.c:9645
-msgid "big-endian"
-msgstr "big-endian"
-
-#: cobc/cobc.c:2701 libcob/common.c:9647
-msgid "little-endian"
-msgstr "little-endian"
-
-#: cobc/cobc.c:2705 cobc/cobc.c:2707 libcob/common.c:9651 libcob/common.c:9653
-msgid "native EBCDIC"
-msgstr "native EBCDIC"
-
-#: cobc/cobc.c:2710 libcob/common.c:9754
-msgid "extended screen I/O"
-msgstr "extended screen I/O"
-
-#: cobc/cobc.c:2713 libcob/common.c:9657
-msgid "variable file format"
-msgstr "variable file format"
-
-#: cobc/cobc.c:2719 cobc/cobc.c:2721 libcob/common.c:9663 libcob/common.c:9665
-msgid "sequential file handler"
-msgstr "sequential file handler"
-
-#: cobc/cobc.c:2721 libcob/common.c:9665
-msgid "built-in"
-msgstr "built-in"
-
-#: cobc/cobc.c:2725 cobc/cobc.c:2727 cobc/cobc.c:2729 cobc/cobc.c:2731
-#: cobc/cobc.c:2734 cobc/cobc.c:2736 cobc/cobc.c:2739 libcob/common.c:9669
-#: libcob/common.c:9683 libcob/common.c:9685 libcob/common.c:9687
-#: libcob/common.c:9690 libcob/common.c:9692 libcob/common.c:9695
-msgid "indexed file handler"
-msgstr "indexed file handler"
-
-#: cobc/cobc.c:2744 cobc/cobc.c:2746 cobc/cobc.c:2749 libcob/common.c:9701
-msgid "mathematical library"
-msgstr "mathematical library"
-
-#: cobc/cobc.c:2753 cobc/cobc.c:2755 libcob/common.c:9712 libcob/common.c:9717
-msgid "XML library"
-msgstr "XML library"
-
-#: cobc/cobc.c:2758 libcob/common.c:9734 libcob/common.c:9749
-#: libcob/common.c:9751
-msgid "JSON library"
-msgstr "JSON library"
-
-#: cobc/cobc.c:2761 libcob/common.c:9627 libcob/common.c:9758
-msgid "enabled"
-msgstr "enabled"
-
-#: cobc/cobc.c:2768
-msgid "only one of options 'E', 'S', 'C', 'c' may be specified"
-msgstr "only one of options 'E', 'S', 'C', ‘c’ may be specified"
-
-#: cobc/cobc.c:2774
-msgid "only one of options 'm', 'x', 'b' may be specified"
-msgstr "only one of options 'm', 'x', ‘b’ may be specified"
-
-#: cobc/cobc.c:2816
-#, c-format
-msgid "option requires one of 'ALL', 'FD', 'WS', 'LS', 'RD', 'FD', 'SC', 'LO' - not '%s'"
-msgstr "option requires one of 'ALL', 'FD', 'WS', 'LS', 'RD', 'FD', 'SC', ‘LO’ - not ‘%s’"
-
-#: cobc/cobc.c:2846
-#, c-format
-msgid "'%s' is not an intrinsic function"
-msgstr "‘%s’ is not an intrinsic function"
-
-#: cobc/cobc.c:2889 cobc/cobc.c:8507 cobc/cobc.c:8626 cobc/codegen.c:3761
-#: cobc/codegen.c:3864 cobc/codegen.c:5671 cobc/codegen.c:5816
-#: cobc/codegen.c:13429 cobc/parser.y:391 cobc/tree.c:1397 cobc/tree.c:4565
-#: cobc/tree.c:5135 cobc/tree.c:5392 cobc/typeck.c:4497 cobc/typeck.c:9504
-#: cobc/typeck.c:9541 cobc/typeck.c:10418 cobc/typeck.c:13395
-#: cobc/typeck.c:13469 cobc/typeck.c:13537 cobc/typeck.c:13825
-#: cobc/typeck.c:13887 libcob/fileio.c:10094 libcob/fileio.c:10105
-#, c-format
-msgid "call to '%s' with invalid parameter '%s'"
-msgstr "call to ‘%s’ with invalid parameter ‘%s’"
-
-#: cobc/cobc.c:3300
-msgid "loading standard configuration file 'default.conf'"
-msgstr "loading standard configuration file ‘default.conf’"
-
-#: cobc/cobc.c:3387
-msgid "the used C compiler is known to not be able to generate assembler code"
-msgstr "the used C compiler is known to not be able to generate assembler code"
-
-#: cobc/cobc.c:3469
-msgid "invalid output file name"
-msgstr "invalid output file name"
-
-#: cobc/cobc.c:3531
-#, c-format
-msgid "warning: '%s' is not a directory, defaulting to current directory"
-msgstr "warning: ‘%s’ is not a directory, defaulting to current directory"
-
-#: cobc/cobc.c:3558
-#, c-format
-msgid "warning: %d lines per listing page specified, using %d"
-msgstr "warning: %d lines per listing page specified, using %d"
-
-#: cobc/cobc.c:3615
-#, c-format
-msgid "warning: assuming '%s' is a DEFINE - did you intend to use -debug?"
-msgstr "warning: assuming ‘%s’ is a DEFINE - did you intend to use -debug?"
-
-#: cobc/cobc.c:3661 cobc/cobc.c:3702 cobc/cobc.c:4281
-#, c-format
-msgid "ignoring nonexistent directory \"%s\""
-msgstr "ignoring nonexistent directory “%sâ€"
-
-#: cobc/cobc.c:3943 cobc/cobc.c:3968 cobc/cobc.c:3996
-#, c-format
-msgid "unknown warning option '%s'"
-msgstr "unknown warning option ‘%s’"
-
-#: cobc/cobc.c:4063
-#, c-format
-msgid "%s option requires a listing file"
-msgstr "%s option requires a listing file"
-
-#: cobc/cobc.c:4070
-msgid "output to stdout only valid for preprocess"
-msgstr "output to stdout only valid for preprocess"
-
-#: cobc/cobc.c:4085
-msgid "-MT must be given to specify target file"
-msgstr "-MT must be given to specify target file"
-
-#: cobc/cobc.c:4091
-msgid "all runtime checks are enabled"
-msgstr "all runtime checks are enabled"
-
-#: cobc/cobc.c:4316
-msgid "only one stdin input allowed"
-msgstr "only one stdin input allowed"
-
-#: cobc/cobc.c:4326
-#, c-format
-msgid "invalid file name parameter (length > %d)"
-msgstr "invalid file name parameter (length > %d)"
-
-#: cobc/cobc.c:4559
-msgid "return status:"
-msgstr "return status:"
-
-#: cobc/cobc.c:4595 libcob/common.c:6391
-#, c-format
-msgid "external process \"%s\" ended with signal %s (%d)"
-msgstr "external process “%s†ended with signal %s (%d)"
-
-#: cobc/cobc.c:4654
-msgid "nothing for -j to run"
-msgstr "nothing for -j to run"
-
-#: cobc/cobc.c:4697 cobc/cobc.c:4711
-#, c-format
-msgid "%s is resolved by environment as: %s"
-msgstr "%s is resolved by environment as: %s"
-
-#: cobc/cobc.c:5175
-msgid "preprocessing:"
-msgstr "preprocessing:"
-
-#: cobc/cobc.c:5244
-msgid "'cobxref' execution unsuccessful"
-msgstr "‘cobxref’ execution unsuccessful"
-
-#: cobc/cobc.c:5247
-#, c-format
-msgid "check that 'cobxref' is in %s"
-msgstr "check that ‘cobxref’ is in %s"
-
-#: cobc/cobc.c:5249
-msgid "no listing produced"
-msgstr "no listing produced"
-
-#: cobc/cobc.c:6234 cobc/cobc.c:6273
-msgid "No fields defined."
-msgstr "No fields defined."
-
-#: cobc/cobc.c:6293
-msgid "No labels defined."
-msgstr "No labels defined."
-
-#: cobc/cobc.c:6324 cobc/cobc.c:9292
-msgid "command line:"
-msgstr "command line:"
-
-#: cobc/cobc.c:6342
-msgid "Error/Warning summary:"
-msgstr "Error/Warning summary:"
-
-#: cobc/cobc.c:6385
-msgid "0 warnings in compilation group"
-msgstr "0 warnings in compilation group"
-
-#: cobc/cobc.c:6389
-msgid "1 warning in compilation group"
-msgstr "1 warning in compilation group"
-
-#: cobc/cobc.c:6393
-#, c-format
-msgid "%d warnings in compilation group"
-msgstr "%d warnings in compilation group"
-
-#: cobc/cobc.c:6399
-msgid "0 errors in compilation group"
-msgstr "0 errors in compilation group"
-
-#: cobc/cobc.c:6403
-msgid "1 error in compilation group"
-msgstr "1 error in compilation group"
-
-#: cobc/cobc.c:6407
-#, c-format
-msgid "%d errors in compilation group"
-msgstr "%d errors in compilation group"
-
-#: cobc/cobc.c:6413
-#, c-format
-msgid "Too many errors in compilation group: %d maximum errors"
-msgstr "Too many errors in compilation group: %d maximum errors"
-
-#: cobc/cobc.c:7028
-#, c-format
-msgid "%s:%d: too many continuation lines"
-msgstr "%s:%d: too many continuation lines"
-
-#: cobc/cobc.c:7956
-msgid "parsing:"
-msgstr "parsing:"
-
-#: cobc/cobc.c:8017
-msgid "translating:"
-msgstr "translating:"
-
-#: cobc/cobc.c:9217
-msgid "no input files"
-msgstr "no input files"
-
-#: cobc/cobc.c:9248
-#, c-format
-msgid "%s option invalid in this combination"
-msgstr "%s option invalid in this combination"
-
-#: cobc/codegen.c:1040 cobc/codegen.c:4506 cobc/codegen.c:11910
-#: cobc/codegen.c:12467
-msgid "unexpected CONSTANT item"
-msgstr "unexpected CONSTANT item"
-
-#: cobc/codegen.c:2921 cobc/codegen.c:3207 cobc/codegen.c:8866 cobc/tree.c:1419
-#, c-format
-msgid "unexpected cast type: %d"
-msgstr "unexpected cast type: %d"
-
-#: cobc/codegen.c:3690 cobc/codegen.c:4455
-#, c-format
-msgid "internal statement stack depth exceeded: %d"
-msgstr "internal statement stack depth exceeded: %d"
-
-#: cobc/codegen.c:3763
-#, c-format
-msgid "%s is not a field"
-msgstr "%s is not a field"
-
-#: cobc/codegen.c:4177 cobc/codegen.c:4279
-#, c-format
-msgid "unexpected function: %s"
-msgstr "unexpected function: %s"
-
-#: cobc/codegen.c:5256
-#, c-format
-msgid "unexpected tree category: %d"
-msgstr "unexpected tree category: %d"
-
-#: cobc/codegen.c:6108
-#, c-format
-msgid "unexpected size: %d"
-msgstr "unexpected size: %d"
-
-#: cobc/codegen.c:7894
-#, c-format
-msgid "No ENTRY FOR GO TO '%s'"
-msgstr "No ENTRY FOR GO TO ‘%s’"
-
-#: cobc/codegen.c:8283 cobc/codegen.c:8609
-#, c-format
-msgid "unexpected handler type: %d"
-msgstr "unexpected handler type: %d"
-
-#: cobc/codegen.c:8887
-#, c-format
-msgid "unexpected tree type: %d"
-msgstr "unexpected tree type: %d"
-
-#: cobc/codegen.c:9776
-msgid "Nested OCCURS in report"
-msgstr "Nested OCCURS in report"
-
-#: cobc/codeoptim.c:2856
-#, c-format
-msgid "unexpected optimization value: %d"
-msgstr "unexpected optimization value: %d"
-
-#: cobc/config.c:164 libcob/common.c:8639 libcob/common.c:8653
-#: libcob/common.c:9136
-#, c-format
-msgid "invalid value '%s' for configuration tag '%s'"
-msgstr "invalid value ‘%s’ for configuration tag ‘%s’"
-
-#: cobc/config.c:167 libcob/common.c:7915 libcob/common.c:7939
-#, c-format
-msgid "should be one of the following values: %s"
-msgstr "should be one of the following values: %s"
-
-#: cobc/config.c:169
-msgid "must be numeric"
-msgstr "must be numeric"
-
-#: cobc/config.c:171 libcob/common.c:8045
-#, c-format
-msgid "maximum value: %lu"
-msgstr "maximum value: %lu"
-
-#: cobc/config.c:173
-#, c-format
-msgid "minimum value: %d"
-msgstr "minimum value: %d"
-
-#: cobc/config.c:204
-#, c-format
-msgid "unsupported value '%s' for configuration tag '%s'"
-msgstr "unsupported value ‘%s’ for configuration tag ‘%s’"
-
-#: cobc/config.c:319 cobc/pplex.l:1264 libcob/common.c:8554
-msgid "recursive inclusion"
-msgstr "recursive inclusion"
-
-#: cobc/config.c:394 libcob/common.c:8606
-msgid "configuration file was included here"
-msgstr "configuration file was included here"
-
-#: cobc/config.c:423
-#, c-format
-msgid "The previous loaded configuration '%s' will be discarded."
-msgstr "The previous loaded configuration ‘%s’ will be discarded."
-
-#: cobc/config.c:459
-msgid "missing definitions:"
-msgstr "missing definitions:"
-
-#: cobc/config.c:461
-#, c-format
-msgid "\tno definition of '%s'"
-msgstr "\tno definition of ‘%s’"
-
-#: cobc/config.c:524
-#, c-format
-msgid "invalid configuration tag '%s'"
-msgstr "invalid configuration tag ‘%s’"
-
-#: cobc/config.c:537 libcob/common.c:8360 libcob/common.c:8444
-#: libcob/common.c:8472
-#, c-format
-msgid "unknown configuration tag '%s'"
-msgstr "unknown configuration tag ‘%s’"
-
-#: cobc/config.c:561
-#, c-format
-msgid "invalid configuration tag '%s' in word-list"
-msgstr "invalid configuration tag ‘%s’ in word-list"
-
-#: cobc/config.c:623
-#, c-format
-msgid "Could not access word list for '%s'"
-msgstr "Could not access word list for ‘%s’"
-
-#: cobc/config.def:47
-msgid "use of complete/fixed reserved words"
-msgstr "use of complete/fixed reserved words"
-
-#: cobc/config.def:52
-msgid "number of spaces that are assumed for tabs"
-msgstr "number of spaces that are assumed for tabs"
-
-#: cobc/config.def:55
-msgid "right margin column number for fixed-form reference-format"
-msgstr "right margin column number for fixed-form reference-format"
-
-#: cobc/config.def:57 cobc/config.def:63
-msgid "<number>"
-msgstr "<number>"
-
-#: cobc/config.def:58
-msgid "maximum number of characters allowed in the PICTURE character-string"
-msgstr "maximum number of characters allowed in the PICTURE character-string"
-
-#: cobc/config.def:61
-msgid "maximum word-length for COBOL (= programmer defined) words"
-msgstr "maximum word-length for COBOL (= programmer defined) words"
-
-#: cobc/config.def:64
-msgid "maximum literal size in general"
-msgstr "maximum literal size in general"
-
-#: cobc/config.def:67
-msgid "maximum numeric literal size"
-msgstr "maximum numeric literal size"
-
-#: cobc/config.def:73
-msgid ""
-"default initialization for fields without VALUE, may be one of\n"
-" * character in quotes\n"
-" * decimal 0..255 representing a character\n"
-" * \"init\" to initialize to PICTURE/USAGE\n"
-" * \"none\" to do no explicit initialization\n"
-" * default: \"init\""
-msgstr ""
-"default initialization for fields without VALUE, may be one of\n"
-" * character in quotes\n"
-" * decimal 0..255 representing a character\n"
-" * “init†to initialize to PICTURE/USAGE\n"
-" * “none†to do no explicit initialization\n"
-" * default: “initâ€"
-
-#: cobc/config.def:83
-msgid "default reference-format, may be one of: "
-msgstr "default reference-format, may be one of: "
-
-#: cobc/config.def:86
-msgid "binary byte size - defines the allocated bytes according to PIC, may be one of: 2-4-8, 1-2-4-8, 1--8"
-msgstr "binary byte size - defines the allocated bytes according to PIC, may be one of: 2-4-8, 1-2-4-8, 1--8"
-
-#: cobc/config.def:89
-msgid "binary byte order, may be one of: native, big-endian"
-msgstr "binary byte order, may be one of: native, big-endian"
-
-#: cobc/config.def:92
-msgid "how to interpret 'ASSIGN word': as 'ASSIGN EXTERNAL word' or 'ASSIGN DYNAMIC word', may be one of: dynamic, external, ibm (= external), mf (= dynamic)"
-msgstr "how to interpret 'ASSIGN word': as ‘ASSIGN EXTERNAL word’ or 'ASSIGN DYNAMIC word', may be one of: dynamic, external, ibm (= external), mf (= dynamic)"
-
-#: cobc/config.def:95
-msgid "which compiler's rules to apply to SCREEN SECTION item clauses, may be one of: acu, gc, mf, rm, std, xopen"
-msgstr "which compiler's rules to apply to SCREEN SECTION item clauses, may be one of: acu, gc, mf, rm, std, xopen"
-
-#: cobc/config.def:98
-msgid "whether DECIMAL-POINT IS COMMA has effect in XML/JSON GENERATE, may be one of: none, xml, json, all"
-msgstr "whether DECIMAL-POINT IS COMMA has effect in XML/JSON GENERATE, may be one of: none, xml, json, all"
-
-#: cobc/config.def:101
-msgid "checking for subscript (only done with EC-BOUND-SUBSCRIPT active), may be one of: full, max, record"
-msgstr "checking for subscript (only done with EC-BOUND-SUBSCRIPT active), may be one of: full, max, record"
-
-#: cobc/config.def:106
-msgid "resolve file names at run time using environment variables"
-msgstr "resolve file names at run time using environment variables"
-
-#: cobc/config.def:109
-msgid "alternate formatting of numeric fields"
-msgstr "alternate formatting of numeric fields"
-
-#: cobc/config.def:112
-msgid "numeric truncation according to ANSI"
-msgstr "numeric truncation according to ANSI"
-
-#: cobc/config.def:115
-msgid "allow non-standard OCCURS DEPENDING ON syntax"
-msgstr "allow non-standard OCCURS DEPENDING ON syntax"
-
-#: cobc/config.def:118
-msgid "adjust items following OCCURS DEPENDING (implies complex-odo)"
-msgstr "adjust items following OCCURS DEPENDING (implies complex-odo)"
-
-#: cobc/config.def:121
-msgid "applies JUSTIFY with VALUE clause"
-msgstr "applies JUSTIFY with VALUE clause"
-
-#: cobc/config.def:124
-msgid "allow REDEFINES to other than last equal level number"
-msgstr "allow REDEFINES to other than last equal level number"
-
-#: cobc/config.def:127
-msgid "allow certain syntax variations (e.g. REDEFINES position)"
-msgstr "allow certain syntax variations (e.g. REDEFINES position)"
-
-#: cobc/config.def:130
-msgid "allow zero length reference-modification (only changed with EC-BOUND-REF-MOD active)"
-msgstr "allow zero length reference-modification (only changed with EC-BOUND-REF-MOD active)"
-
-#: cobc/config.def:133
-msgid "allow non-matching level numbers"
-msgstr "allow non-matching level numbers"
-
-#: cobc/config.def:136
-msgid "require ASSIGN USING items to be in WORKING-STORAGE"
-msgstr "require ASSIGN USING items to be in WORKING-STORAGE"
-
-#: cobc/config.def:139
-msgid "LOCAL-STORAGE SECTION implies RECURSIVE attribute"
-msgstr "LOCAL-STORAGE SECTION implies RECURSIVE attribute"
-
-#: cobc/config.def:142
-msgid "LINKAGE SECTION items remain allocated between invocations"
-msgstr "LINKAGE SECTION items remain allocated between invocations"
-
-#: cobc/config.def:145
-msgid "MOVE operates as on IBM (left to right, byte by byte)"
-msgstr "MOVE operates as on IBM (left to right, byte by byte)"
-
-#: cobc/config.def:148
-msgid "exit point of any currently executing perform is recognized if reached"
-msgstr "exit point of any currently executing perform is recognized if reached"
-
-#: cobc/config.def:151
-msgid "limit precision in intermediate results to precision of final result (less accurate)"
-msgstr "limit precision in intermediate results to precision of final result (less accurate)"
-
-#: cobc/config.def:154
-msgid "evaluate constant expressions at compile time"
-msgstr "evaluate constant expressions at compile time"
-
-#: cobc/config.def:157
-msgid "allow hexadecimal value 'F' for NUMERIC test of signed PACKED DECIMAL field"
-msgstr "allow hexadecimal value ‘F’ for NUMERIC test of signed PACKED DECIMAL field"
-
-#: cobc/config.def:160
-msgid "program names don't lead to a reserved identifier"
-msgstr "program names don't lead to a reserved identifier"
-
-#: cobc/config.def:163
-msgid "set WITH UPDATE clause as default for ACCEPT dest-item, instead of WITH NO UPDATE"
-msgstr "set WITH UPDATE clause as default for ACCEPT dest-item, instead of WITH NO UPDATE"
-
-#: cobc/config.def:166
-msgid "set WITH AUTO clause as default for ACCEPT dest-item, instead of WITH TAB"
-msgstr "set WITH AUTO clause as default for ACCEPT dest-item, instead of WITH TAB"
-
-#: cobc/config.def:169
-msgid "assume CONSOLE IS CRT if not set otherwise"
-msgstr "assume CONSOLE IS CRT if not set otherwise"
-
-#: cobc/config.def:172
-msgid "NO-ECHO hides input with asterisks like SECURE"
-msgstr "NO-ECHO hides input with asterisks like SECURE"
-
-#: cobc/config.def:175
-msgid "assume a field DISPLAY starts at LINE 0 COL 0 (i.e. at the cursor), not LINE 1 COL 1"
-msgstr "assume a field DISPLAY starts at LINE 0 COL 0 (i.e. at the cursor), not LINE 1 COL 1"
-
-#: cobc/config.def:178
-msgid "special behaviour of DISPLAY SPACE/ALL X'01'/ALL X'02'/ALL X'07'"
-msgstr "special behaviour of DISPLAY SPACE/ALL X'01'/ALL X'02'/ALL X'07'"
-
-#: cobc/config.def:181
-msgid "COMP-1 is a 16-bit signed integer"
-msgstr "COMP-1 is a 16-bit signed integer"
-
-#: cobc/config.def:184
-msgid "POINTER is a 64-bit unsigned integer"
-msgstr "POINTER is a 64-bit unsigned integer"
-
-#: cobc/config.def:187
-msgid "imply zero in move of non-numeric literal to numeric items"
-msgstr "imply zero in move of non-numeric literal to numeric items"
-
-#: cobc/config.def:190
-msgid "implicitly define a variable if an ASSIGN DYNAMIC does not match any data item"
-msgstr "implicitly define a variable if an ASSIGN DYNAMIC does not match any data item"
-
-#: cobc/config.def:193
-msgid "specifying device by mnemonic"
-msgstr "specifying device by mnemonic"
-
-#: cobc/config.def:199
-msgid ""
-"check contents of Area A (when reference format supports Area A enforcement),\n"
-" enabled checks include:\n"
-" * division, section, paragraph names, level indicators (FD, SD, RD, and CD),\n"
-" and toplevel numbers (01 and 77) must start in Area A;\n"
-" * statements must not start in Area A; and\n"
-" * separator periods must not be within Area A"
-msgstr ""
-"check contents of Area A (when reference format supports Area A enforcement),\n"
-" enabled checks include:\n"
-" * division, section, paragraph names, level indicators (FD, SD, RD, and CD),\n"
-" and toplevel numbers (01 and 77) must start in Area A;\n"
-" * statements must not start in Area A; and\n"
-" * separator periods must not be within Area A"
-
-#: cobc/config.def:209
-msgid "comment paragraphs in IDENTIFICATION DIVISION (AUTHOR, DATE-WRITTEN, ...)"
-msgstr "comment paragraphs in IDENTIFICATION DIVISION (AUTHOR, DATE-WRITTEN, ...)"
-
-#: cobc/config.def:217
-msgid ""
-"apply partial replacing with literal source operand even when it replaces with spaces only;\n"
-" * \"skip\" prevents such replacements"
-msgstr ""
-"apply partial replacing with literal source operand even when it replaces with spaces only;\n"
-" * “skip†prevents such replacements"
-
-#: cobc/config.def:221
-msgid "MEMORY-SIZE clause"
-msgstr "MEMORY-SIZE clause"
-
-#: cobc/config.def:224
-msgid "MULTIPLE-FILE-TAPE clause"
-msgstr "MULTIPLE-FILE-TAPE clause"
-
-#: cobc/config.def:227
-msgid "LABEL-RECORDS clause"
-msgstr "LABEL-RECORDS clause"
-
-#: cobc/config.def:230
-msgid "VALUE-OF clause"
-msgstr "VALUE-OF clause"
-
-#: cobc/config.def:233
-msgid "DATA-RECORDS clause"
-msgstr "DATA-RECORDS clause"
-
-#: cobc/config.def:236
-msgid "OCCURS clause on top-level"
-msgstr "OCCURS clause on top-level"
-
-#: cobc/config.def:239 cobc/parser.y:7566
-msgid "SAME AS clause"
-msgstr "SAME AS clause"
-
-#: cobc/config.def:242 cobc/parser.y:7904
-msgid "TYPE TO clause"
-msgstr "TYPE TO clause"
-
-#: cobc/config.def:245 cobc/parser.y:7927
-msgid "USAGE type-name"
-msgstr "USAGE type-name"
-
-#: cobc/config.def:248 cobc/parser.y:8563
-msgid "SYNCHRONIZED clause"
-msgstr "SYNCHRONIZED clause"
-
-#: cobc/config.def:251 cobc/parser.y:8566
-msgid "LEFT/RIGHT phrases in SYNCHRONIZED clause"
-msgstr "LEFT/RIGHT phrases in SYNCHRONIZED clause"
-
-#: cobc/config.def:254
-msgid "SPECIAL-NAMES clause"
-msgstr "SPECIAL-NAMES clause"
-
-#: cobc/config.def:257
-msgid "GO TO statement without name"
-msgstr "GO TO statement without name"
-
-#: cobc/config.def:260
-msgid "STOP-literal statement"
-msgstr "STOP-literal statement"
-
-#: cobc/config.def:263
-msgid "STOP-identifier statement"
-msgstr "STOP-identifier statement"
-
-#: cobc/config.def:266
-msgid "STOP ERROR statement"
-msgstr "STOP ERROR statement"
-
-#: cobc/config.def:269
-msgid "DEBUGGING MODE and debugging indicator"
-msgstr "DEBUGGING MODE and debugging indicator"
-
-#: cobc/config.def:275
-msgid "PADDING CHARACTER clause"
-msgstr "PADDING CHARACTER clause"
-
-#: cobc/config.def:278
-msgid "NEXT SENTENCE phrase"
-msgstr "NEXT SENTENCE phrase"
-
-#: cobc/config.def:281
-msgid "listing-directive statements EJECT, SKIP1, SKIP2, SKIP3"
-msgstr "listing-directive statements EJECT, SKIP1, SKIP2, SKIP3"
-
-#: cobc/config.def:284
-msgid "listing-directive statement TITLE"
-msgstr "listing-directive statement TITLE"
-
-#: cobc/config.def:287
-msgid "ENTRY statement"
-msgstr "ENTRY statement"
-
-#: cobc/config.def:290
-msgid "move noninteger to alphanumeric"
-msgstr "move noninteger to alphanumeric"
-
-#: cobc/config.def:293
-msgid "move figurative constants to numeric"
-msgstr "move figurative constants to numeric"
-
-#: cobc/config.def:296
-msgid "move figurative constant SPACE to numeric"
-msgstr "move figurative constant SPACE to numeric"
-
-#: cobc/config.def:299
-msgid "move figurative constant QUOTE to numeric"
-msgstr "move figurative constant QUOTE to numeric"
-
-#: cobc/config.def:302
-msgid "OCCURS DEPENDING ON without to"
-msgstr "OCCURS DEPENDING ON without to"
-
-#: cobc/config.def:305 cobc/parser.y:11443
-msgid "section segments"
-msgstr "section segments"
-
-#: cobc/config.def:308
-msgid "ALTER statement"
-msgstr "ALTER statement"
-
-#: cobc/config.def:311
-msgid "OVERFLOW clause for CALL"
-msgstr "OVERFLOW clause for CALL"
-
-#: cobc/config.def:314
-msgid "boolean literals (B'1010')"
-msgstr "boolean literals (B'1010')"
-
-#: cobc/config.def:317
-msgid "hexadecimal-boolean literals (BX'A')"
-msgstr "hexadecimal-boolean literals (BX'A')"
-
-#: cobc/config.def:320
-msgid "national literals (N'UTF-16 string')"
-msgstr "national literals (N'UTF-16 string')"
-
-#: cobc/config.def:323
-msgid "hexadecimal-national literals (NX'265E')"
-msgstr "hexadecimal-national literals (NX'265E')"
-
-#: cobc/config.def:326
-msgid "non-standard national literals (NC'UTF-16 string')"
-msgstr "non-standard national literals (NC'UTF-16 string')"
-
-#: cobc/config.def:329
-msgid "HP COBOL octal literals (%377)"
-msgstr "HP COBOL octal literals (%377)"
-
-#: cobc/config.def:332
-msgid "ACUCOBOL-GT literals (#B #O #H #X)"
-msgstr "ACUCOBOL-GT literals (#B #O #H #X)"
-
-#: cobc/config.def:335
-msgid "EBCDIC symbolic characters in literals (\" \"135,151,151\"bar\"195, 194\"Z\" for \" foobarBAZ\")"
-msgstr "EBCDIC symbolic characters in literals (“ â€135,151,151“barâ€195, 194“Z†for “ foobarBAZâ€)"
-
-#: cobc/config.def:338 cobc/pplex.l:2428
-msgid "continuation of COBOL words"
-msgstr "continuation of COBOL words"
-
-#: cobc/config.def:341
-msgid "NOT ON EXCEPTION before ON EXCEPTION"
-msgstr "NOT ON EXCEPTION before ON EXCEPTION"
-
-#: cobc/config.def:344
-msgid "extensions to ACCEPT and DISPLAY"
-msgstr "extensions to ACCEPT and DISPLAY"
-
-#: cobc/config.def:347 cobc/field.c:3645
-msgid "RENAMES of 01-, 66- and 77-level items"
-msgstr "RENAMES of 01-, 66- and 77-level items"
-
-#: cobc/config.def:351
-msgid "allow larger REDEFINES items"
-msgstr "allow larger REDEFINES items"
-
-#: cobc/config.def:354
-msgid "constants defined in SPECIAL-NAMES"
-msgstr "constants defined in SPECIAL-NAMES"
-
-#: cobc/config.def:357
-msgid "constant with level 78 item (note: has left to right precedence in expressions)"
-msgstr "constant with level 78 item (note: has left to right precedence in expressions)"
-
-#: cobc/config.def:360
-msgid "constant with level 01 CONSTANT AS/FROM item"
-msgstr "constant with level 01 CONSTANT AS/FROM item"
-
-#: cobc/config.def:363
-msgid "PERFORM VARYING without BY phrase (implies BY 1)"
-msgstr "PERFORM VARYING without BY phrase (implies BY 1)"
-
-#: cobc/config.def:366
-msgid "references to sections not in DECLARATIVES from within DECLARATIVES"
-msgstr "references to sections not in DECLARATIVES from within DECLARATIVES"
-
-#: cobc/config.def:369 cobc/parser.y:12614 cobc/parser.y:12913
-msgid "CALL/CANCEL with program-prototype-name"
-msgstr "CALL/CANCEL with program-prototype-name"
-
-#: cobc/config.def:372
-msgid "specifying call-convention by mnemonic"
-msgstr "specifying call-convention by mnemonic"
-
-#: cobc/config.def:375
-msgid "specifying call-convention by WITH ... LINKAGE"
-msgstr "specifying call-convention by WITH ... LINKAGE"
-
-#: cobc/config.def:378
-msgid "support for PROCEDURE DIVISION USING OPTIONAL"
-msgstr "support for PROCEDURE DIVISION USING OPTIONAL"
-
-#: cobc/config.def:381
-msgid "numeric literals in VALUE clause of numeric-edited items"
-msgstr "numeric literals in VALUE clause of numeric-edited items"
-
-#: cobc/config.def:384
-msgid "incorrect order of CONFIGURATION SECTION paragraphs"
-msgstr "incorrect order of CONFIGURATION SECTION paragraphs"
-
-#: cobc/config.def:387
-msgid "allow >> DEFINE CONSTANT var AS literal"
-msgstr "allow >> DEFINE CONSTANT var AS literal"
-
-#: cobc/config.def:390
-msgid "REDEFINES clause not following entry-name in definition"
-msgstr "REDEFINES clause not following entry-name in definition"
-
-#: cobc/config.def:393
-msgid "record sizes does not match RECORD clause"
-msgstr "record sizes does not match RECORD clause"
-
-#: cobc/config.def:396 cobc/parser.y:5991 cobc/parser.y:6005 cobc/parser.y:6018
-#: cobc/parser.y:6029
-msgid "RECORD DELIMITER clause"
-msgstr "RECORD DELIMITER clause"
-
-#: cobc/config.def:399
-msgid "BINARY-SEQUENTIAL and LINE-SEQUENTIAL phrases in RECORD DELIMITER"
-msgstr "BINARY-SEQUENTIAL and LINE-SEQUENTIAL phrases in RECORD DELIMITER"
-
-#: cobc/config.def:402 cobc/tree.c:4873
-msgid "RECORD DELIMITER clause on file with fixed-length records"
-msgstr "RECORD DELIMITER clause on file with fixed-length records"
-
-#: cobc/config.def:405
-msgid "missing statement (e.g. empty IF / PERFORM)"
-msgstr "missing statement (e.g. empty IF / PERFORM)"
-
-#: cobc/config.def:408
-msgid "missing period in PROCEDURE DIVISION (when reference format supports Area A enforcement)"
-msgstr "missing period in PROCEDURE DIVISION (when reference format supports Area A enforcement)"
-
-#: cobc/config.def:411
-msgid "zero-length literals, e.g. '' and \"\""
-msgstr "zero-length literals, e.g. ‘’ and \"\""
-
-#: cobc/config.def:414
-msgid "XML GENERATE's phrases other than COUNT IN"
-msgstr "XML GENERATE's phrases other than COUNT IN"
-
-#: cobc/config.def:417 cobc/typeck.c:9017
-msgid "AFTER phrase in CONTINUE statement"
-msgstr "AFTER phrase in CONTINUE statement"
-
-#: cobc/config.def:420
-msgid "ENTRY FOR GO TO and GO TO ENTRY statements"
-msgstr "ENTRY FOR GO TO and GO TO ENTRY statements"
-
-#: cobc/config.def:423 cobc/typeck.c:4642
-msgid "ASSIGN [TO] variable in SELECT"
-msgstr "ASSIGN [TO] variable in SELECT"
-
-#: cobc/config.def:426
-msgid "ASSIGN USING/VARYING variable in SELECT"
-msgstr "ASSIGN USING/VARYING variable in SELECT"
-
-#: cobc/config.def:429
-msgid "ASSIGN EXTERNAL/DYNAMIC in SELECT"
-msgstr "ASSIGN EXTERNAL/DYNAMIC in SELECT"
-
-#: cobc/config.def:432
-msgid "ASSIGN DISK FROM variable in SELECT"
-msgstr "ASSIGN DISK FROM variable in SELECT"
-
-#: cobc/config.def:435
-msgid "VSAM status in FILE STATUS"
-msgstr "VSAM status in FILE STATUS"
-
-#: cobc/config.def:438
-msgid "CALL to own PROGRAM-ID implies RECURSIVE attribute"
-msgstr "CALL to own PROGRAM-ID implies RECURSIVE attribute"
-
-#: cobc/config.def:441
-msgid "DEPENDING clause in RECORD CONTAINS"
-msgstr "DEPENDING clause in RECORD CONTAINS"
-
-#: cobc/config.def:444 cobc/tree.c:3623
-msgid "PICTURE string with 'L' character"
-msgstr "PICTURE string with ‘L’ character"
-
-#: cobc/error.c:141 libcob/common.c:1379 libcob/common.c:8715
-#: libcob/common.c:8766
-#, c-format
-msgid "warning: "
-msgstr "warning: "
-
-#: cobc/error.c:142 libcob/common.c:8784
-msgid "note: "
-msgstr "note: "
-
-#: cobc/error.c:162
-#, c-format
-msgid "in section '%s':"
-msgstr "in section '%s':"
-
-#: cobc/error.c:173
-#, c-format
-msgid "in paragraph '%s':"
-msgstr "in paragraph '%s':"
-
-#: cobc/error.c:227 cobc/error.c:231 cobc/error.c:234
-msgid "too many errors"
-msgstr "too many errors"
-
-#: cobc/error.c:243
-#, c-format
-msgid "in file included from "
-msgstr "in file included from "
-
-#: cobc/error.c:261 libcob/common.c:9146
-msgid "configuration error:"
-msgstr "configuration error:"
-
-#: cobc/error.c:274 libcob/common.c:920
-#, c-format
-msgid "system error %d"
-msgstr "system error %d"
-
-#: cobc/error.c:616 cobc/error.c:632 cobc/error.c:971 cobc/error.c:992
-#, c-format
-msgid "%s used"
-msgstr "%s used"
-
-#: cobc/error.c:619 cobc/error.c:974
-#, c-format
-msgid "%s is archaic in %s"
-msgstr "%s is archaic in %s"
-
-#: cobc/error.c:623 cobc/error.c:978
-#, c-format
-msgid "%s is obsolete in %s"
-msgstr "%s is obsolete in %s"
-
-#: cobc/error.c:629 cobc/error.c:984 cobc/parser.y:5993
-#, c-format
-msgid "%s ignored"
-msgstr "%s ignored"
-
-#: cobc/error.c:635 cobc/error.c:994
-#, c-format
-msgid "%s does not conform to %s"
-msgstr "%s does not conform to %s"
-
-#: cobc/error.c:651
-msgid "configuration warning:"
-msgstr "configuration warning:"
-
-#: cobc/error.c:1040 cobc/error.c:1069
-#, c-format
-msgid "redefinition of '%s'"
-msgstr "redefinition of ‘%s’"
-
-#: cobc/error.c:1046 cobc/error.c:1080
-#, c-format
-msgid "'%s' previously defined here"
-msgstr "‘%s’ previously defined here"
-
-#: cobc/error.c:1124 cobc/error.c:1130
-#, c-format
-msgid "'%s' is not defined"
-msgstr "‘%s’ is not defined"
-
-#: cobc/error.c:1126
-#, c-format
-msgid "'%s' cannot be used here"
-msgstr "‘%s’ cannot be used here"
-
-#: cobc/error.c:1128 cobc/parser.y:7941
-#, c-format
-msgid "'%s' is not defined, but is a reserved word in another dialect"
-msgstr "‘%s’ is not defined, but is a reserved word in another dialect"
-
-#: cobc/error.c:1167
-#, c-format
-msgid "'%s' is ambiguous; needs qualification"
-msgstr "‘%s’ is ambiguous; needs qualification"
-
-#: cobc/error.c:1197
-#, c-format
-msgid "'%s' is a special register"
-msgstr "‘%s’ is a special register"
-
-#: cobc/error.c:1200
-#, c-format
-msgid "'%s' internally defined"
-msgstr "‘%s’ internally defined"
-
-#: cobc/error.c:1204 cobc/parser.y:18772 cobc/parser.y:18777 cobc/typeck.c:5166
-#: cobc/typeck.c:5213 cobc/typeck.c:5214
-#, c-format
-msgid "'%s' defined here"
-msgstr "‘%s’ defined here"
-
-#: cobc/error.c:1215
-#, c-format
-msgid "fatal error: %s"
-msgstr "fatal error: %s"
-
-#: cobc/error.c:1224
-#, c-format
-msgid "group item '%s' cannot have %s clause"
-msgstr "group item ‘%s’ cannot have %s clause"
-
-#: cobc/error.c:1239
-#, c-format
-msgid "constant item '%s' requires a %s clause"
-msgstr "constant item ‘%s’ requires a %s clause"
-
-#: cobc/error.c:1243
-#, c-format
-msgid "level %02d item '%s' requires a %s clause"
-msgstr "level %02d item ‘%s’ requires a %s clause"
-
-#: cobc/error.c:1258
-#, c-format
-msgid "constant item '%s' can only have a %s clause"
-msgstr "constant item ‘%s’ can only have a %s clause"
-
-#: cobc/error.c:1262
-#, c-format
-msgid "level %02d item '%s' can only have a %s clause"
-msgstr "level %02d item ‘%s’ can only have a %s clause"
-
-#: cobc/field.c:139
-msgid "constant expression has Divide by ZERO"
-msgstr "constant expression has Divide by ZERO"
-
-#: cobc/field.c:195 cobc/field.c:332 cobc/field.c:340
-msgid "missing right parenthesis"
-msgstr "missing right parenthesis"
-
-#: cobc/field.c:224
-#, c-format
-msgid "expression stack overflow at %d entries for operation '%c'"
-msgstr "expression stack overflow at %d entries for operation ‘%c’"
-
-#: cobc/field.c:265
-#, c-format
-msgid "expression stack overflow at %d entries"
-msgstr "expression stack overflow at %d entries"
-
-#: cobc/field.c:282
-msgid "missing left parenthesis"
-msgstr "missing left parenthesis"
-
-#: cobc/field.c:323
-#, c-format
-msgid "invalid operator '%s' in expression"
-msgstr "invalid operator ‘%s’ in expression"
-
-#: cobc/field.c:342
-#, c-format
-msgid "'%c' operator misplaced"
-msgstr "‘%c’ operator misplaced"
-
-#: cobc/field.c:403
-#, c-format
-msgid "invalid level number '%s'"
-msgstr "invalid level number ‘%s’"
-
-#: cobc/field.c:463 cobc/field.c:502
-msgid "level number must begin with 01 or 77"
-msgstr "level number must begin with 01 or 77"
-
-#: cobc/field.c:562 cobc/field.c:566
-#, c-format
-msgid "no previous data item of level %02d"
-msgstr "no previous data item of level %02d"
-
-#: cobc/field.c:631
-#, c-format
-msgid "'%s' cannot be qualified here"
-msgstr "‘%s’ cannot be qualified here"
-
-#: cobc/field.c:637
-#, c-format
-msgid "'%s' cannot be subscripted here"
-msgstr "‘%s’ cannot be subscripted here"
-
-#: cobc/field.c:653 cobc/field.c:664
-#, c-format
-msgid "'%s' is not defined in '%s'"
-msgstr "‘%s’ is not defined in ‘%s’"
-
-#: cobc/field.c:671
-msgid "level number of REDEFINES entries must be identical"
-msgstr "level number of REDEFINES entries must be identical"
-
-#: cobc/field.c:676
-#, c-format
-msgid "'%s' is not the original definition"
-msgstr "‘%s’ is not the original definition"
-
-#: cobc/field.c:720 cobc/parser.y:1051
-#, c-format
-msgid "duplicate %s"
-msgstr "duplicate %s"
-
-#: cobc/field.c:878 cobc/parser.y:733
-#, c-format
-msgid "duplicate %s clause"
-msgstr "duplicate %s clause"
-
-#: cobc/field.c:988
-#, c-format
-msgid "%s clause not compatible with PIC %s"
-msgstr "%s clause not compatible with PIC %s"
-
-#: cobc/field.c:999 cobc/field.c:1036
-#, c-format
-msgid "%s clause not compatible with USAGE %s"
-msgstr "%s clause not compatible with USAGE %s"
-
-#: cobc/field.c:1140 cobc/field.c:1159 cobc/field.c:1227 cobc/field.c:1238
-#, c-format
-msgid "PICTURE clause required for '%s'"
-msgstr "PICTURE clause required for ‘%s’"
-
-#: cobc/field.c:1234
-#, c-format
-msgid "a non-numeric literal is expected for '%s'"
-msgstr "a non-numeric literal is expected for ‘%s’"
-
-#: cobc/field.c:1247
-#, c-format
-msgid "defining implicit picture size %d for '%s'"
-msgstr "defining implicit picture size %d for ‘%s’"
-
-#: cobc/field.c:1271
-#, c-format
-msgid "'%s' ANY LENGTH only allowed in LINKAGE"
-msgstr "‘%s’ ANY LENGTH only allowed in LINKAGE"
-
-#: cobc/field.c:1275
-#, c-format
-msgid "'%s' ANY LENGTH must be 01 level"
-msgstr "‘%s’ ANY LENGTH must be 01 level"
-
-#: cobc/field.c:1279
-#, c-format
-msgid "'%s' ANY LENGTH cannot be BASED/EXTERNAL"
-msgstr "‘%s’ ANY LENGTH cannot be BASED/EXTERNAL"
-
-#: cobc/field.c:1283 cobc/field.c:1313
-#, c-format
-msgid "'%s' ANY LENGTH has invalid definition"
-msgstr "‘%s’ ANY LENGTH has invalid definition"
-
-#: cobc/field.c:1295
-#, c-format
-msgid "'%s' ANY NUMERIC must be PIC 9"
-msgstr "‘%s’ ANY NUMERIC must be PIC 9"
-
-#: cobc/field.c:1301
-#, c-format
-msgid "'%s' ANY LENGTH must be PIC X, PIC U, PIC N or PIC 1"
-msgstr "‘%s’ ANY LENGTH must be PIC X, PIC U, PIC N or PIC 1"
-
-#: cobc/field.c:1311
-#, c-format
-msgid "'%s' ANY NUMERIC has invalid definition"
-msgstr "‘%s’ ANY NUMERIC has invalid definition"
-
-#: cobc/field.c:1327
-#, c-format
-msgid "'%s' EXTERNAL must be specified at 01/77 level"
-msgstr "‘%s’ EXTERNAL must be specified at 01/77 level"
-
-#: cobc/field.c:1331
-#, c-format
-msgid "'%s' EXTERNAL can only be specified in WORKING-STORAGE section"
-msgstr "‘%s’ EXTERNAL can only be specified in WORKING-STORAGE section"
-
-#: cobc/field.c:1335
-#, c-format
-msgid "'%s' EXTERNAL and BASED are mutually exclusive"
-msgstr "‘%s’ EXTERNAL and BASED are mutually exclusive"
-
-#: cobc/field.c:1338
-#, c-format
-msgid "'%s' EXTERNAL not allowed with REDEFINES"
-msgstr "‘%s’ EXTERNAL not allowed with REDEFINES"
-
-#: cobc/field.c:1350
-#, c-format
-msgid "'%s' BASED not allowed here"
-msgstr "‘%s’ BASED not allowed here"
-
-#: cobc/field.c:1353
-#, c-format
-msgid "'%s' BASED not allowed with REDEFINES"
-msgstr "‘%s’ BASED not allowed with REDEFINES"
-
-#: cobc/field.c:1356
-#, c-format
-msgid "'%s' BASED only allowed at the 01 and 77 levels"
-msgstr "‘%s’ BASED only allowed at the 01 and 77 levels"
-
-#: cobc/field.c:1383
-#, c-format
-msgid "'%s' cannot have an OCCURS clause due to '%s'"
-msgstr "‘%s’ cannot have an OCCURS clause due to ‘%s’"
-
-#: cobc/field.c:1402
-#, c-format
-msgid "the original definition '%s' should not have an OCCURS clause"
-msgstr "the original definition ‘%s’ should not have an OCCURS clause"
-
-#: cobc/field.c:1408
-#, c-format
-msgid "the original definition '%s' should not have an ANY LENGTH clause"
-msgstr "the original definition ‘%s’ should not have an ANY LENGTH clause"
-
-#: cobc/field.c:1415
-msgid "REDEFINES must follow the original definition"
-msgstr "REDEFINES must follow the original definition"
-
-#: cobc/field.c:1423
-#, c-format
-msgid "'%s' cannot be variable length"
-msgstr "‘%s’ cannot be variable length"
-
-#: cobc/field.c:1426
-#, c-format
-msgid "the original definition '%s' cannot be variable length"
-msgstr "the original definition ‘%s’ cannot be variable length"
-
-#: cobc/field.c:1445 cobc/field.c:1708
-#, c-format
-msgid "'%s' cannot have JUSTIFIED RIGHT clause"
-msgstr "‘%s’ cannot have JUSTIFIED RIGHT clause"
-
-#: cobc/field.c:1453
-#, c-format
-msgid "'%s' cannot have BLANK WHEN ZERO clause"
-msgstr "‘%s’ cannot have BLANK WHEN ZERO clause"
-
-#: cobc/field.c:1460
-#, c-format
-msgid "SCREEN group item '%s' has invalid clause"
-msgstr "SCREEN group item ‘%s’ has invalid clause"
-
-#: cobc/field.c:1548
-#, c-format
-msgid "%s USAGE %s incompatible with %s USAGE %s"
-msgstr "%s USAGE %s incompatible with %s USAGE %s"
-
-#: cobc/field.c:1629
-#, c-format
-msgid "'%s' cannot have PICTURE clause"
-msgstr "‘%s’ cannot have PICTURE clause"
-
-#: cobc/field.c:1662
-#, c-format
-msgid "'%s' COMP-6 with sign - changing to COMP-3"
-msgstr "‘%s’ COMP-6 with sign - changing to COMP-3"
-
-#: cobc/field.c:1688
-msgid "elementary items with SIGN clause must have S in PICTURE"
-msgstr "elementary items with SIGN clause must have S in PICTURE"
-
-#: cobc/field.c:1691
-msgid "elementary items with SIGN clause must be USAGE DISPLAY or NATIONAL"
-msgstr "elementary items with SIGN clause must be USAGE DISPLAY or NATIONAL"
-
-#: cobc/field.c:1720
-#, c-format
-msgid "'%s' cannot have S in PICTURE string and BLANK WHEN ZERO"
-msgstr "‘%s’ cannot have S in PICTURE string and BLANK WHEN ZERO"
-
-#: cobc/field.c:1725
-#, c-format
-msgid "'%s' cannot have BLANK WHEN ZERO without being USAGE DISPLAY or NATIONAL"
-msgstr "‘%s’ cannot have BLANK WHEN ZERO without being USAGE DISPLAY or NATIONAL"
-
-#: cobc/field.c:1737
-#, c-format
-msgid "'%s' cannot have * in PICTURE string and BLANK WHEN ZERO"
-msgstr "‘%s’ cannot have * in PICTURE string and BLANK WHEN ZERO"
-
-#: cobc/field.c:1744
-#, c-format
-msgid "'%s' is not numeric, so cannot have BLANK WHEN ZERO"
-msgstr "‘%s’ is not numeric, so cannot have BLANK WHEN ZERO"
-
-#: cobc/field.c:1798
-#, c-format
-msgid "elements in VALUE clause for '%s' (%d) exceed max amount (%d)"
-msgstr "elements in VALUE clause for ‘%s’ (%d) exceed max amount (%d)"
-
-#: cobc/field.c:1822
-msgid "unexpected VALUES ARE for elementary item"
-msgstr "unexpected VALUES ARE for elementary item"
-
-#: cobc/field.c:1836 cobc/field.c:1840
-#, c-format
-msgid "initial VALUE clause ignored for %s item '%s'"
-msgstr "initial VALUE clause ignored for %s item ‘%s’"
-
-#: cobc/field.c:1853
-msgid "FULL has no effect on numeric items; you may want REQUIRED or PIC Z"
-msgstr "FULL has no effect on numeric items; you may want REQUIRED or PIC Z"
-
-#: cobc/field.c:1884
-msgid "VALUE may not contain a figurative constant"
-msgstr "VALUE may not contain a figurative constant"
-
-#: cobc/field.c:1893 cobc/field.c:1935 cobc/parser.y:750 cobc/parser.y:1823
-#: cobc/parser.y:1826
-#, c-format
-msgid "cannot specify both %s and %s"
-msgstr "cannot specify both %s and %s"
-
-#: cobc/field.c:1905
-#, c-format
-msgid "'%s' has FROM, TO or USING without PIC; PIC will be implied"
-msgstr "‘%s’ has FROM, TO or USING without PIC; PIC will be implied"
-
-#: cobc/field.c:1922
-#, c-format
-msgid "'%s' has numeric VALUE without PIC; PIC will be implied"
-msgstr "‘%s’ has numeric VALUE without PIC; PIC will be implied"
-
-#: cobc/field.c:1943
-msgid "cannot have PIC without FROM, TO or USING"
-msgstr "cannot have PIC without FROM, TO or USING"
-
-#: cobc/field.c:1952
-msgid "cannot have numeric VALUE without PIC"
-msgstr "cannot have numeric VALUE without PIC"
-
-#: cobc/field.c:1961
-msgid "cannot have FROM, TO or USING without PIC"
-msgstr "cannot have FROM, TO or USING without PIC"
-
-#: cobc/field.c:1971
-msgid "VALUE item may not be numeric"
-msgstr "VALUE item may not be numeric"
-
-#: cobc/field.c:1986
-#, c-format
-msgid "'%s' needs a PIC, COL, LINE, VALUE, BELL or BLANK clause"
-msgstr "‘%s’ needs a PIC, COL, LINE, VALUE, BELL or BLANK clause"
-
-#: cobc/field.c:1998
-#, c-format
-msgid "'%s' cannot have PIC without FROM, TO, USING or numeric VALUE"
-msgstr "‘%s’ cannot have PIC without FROM, TO, USING or numeric VALUE"
-
-#: cobc/field.c:2006
-#, c-format
-msgid "'%s' needs a PIC, FROM, TO, USING, VALUE, BELL, BLANK or ERASE clause"
-msgstr "‘%s’ needs a PIC, FROM, TO, USING, VALUE, BELL, BLANK or ERASE clause"
-
-#: cobc/field.c:2042
-msgid "cannot use AUTO, FULL, PROMPT, REQUIRED or SECURE on elementary item without TO or USING"
-msgstr "cannot use AUTO, FULL, PROMPT, REQUIRED or SECURE on elementary item without TO or USING"
-
-#: cobc/field.c:2049
-msgid "cannot use BLANK WHEN ZERO, JUSTIFIED, OCCURS or SIGN on item without FROM, TO or USING"
-msgstr "cannot use BLANK WHEN ZERO, JUSTIFIED, OCCURS or SIGN on item without FROM, TO or USING"
-
-#: cobc/field.c:2068
-msgid "cannot use AUTO, FULL, REQUIRED or SECURE on elementary item without FROM, TO or USING"
-msgstr "cannot use AUTO, FULL, REQUIRED or SECURE on elementary item without FROM, TO or USING"
-
-#: cobc/field.c:2073
-msgid "cannot use BLANK WHEN ZERO, JUSTIFIED or SIGN without FROM, TO or USING"
-msgstr "cannot use BLANK WHEN ZERO, JUSTIFIED or SIGN without FROM, TO or USING"
-
-#: cobc/field.c:2090
-msgid "cannot have BLANK WHEN ZERO without PIC"
-msgstr "cannot have BLANK WHEN ZERO without PIC"
-
-#: cobc/field.c:2093
-msgid "cannot have JUSTIFIED without PIC"
-msgstr "cannot have JUSTIFIED without PIC"
-
-#: cobc/field.c:2113
-msgid "cannot have AUTO without FROM, TO or USING"
-msgstr "cannot have AUTO without FROM, TO or USING"
-
-#: cobc/field.c:2118
-msgid "cannot use FULL or REQUIRED on item without TO or USING"
-msgstr "cannot use FULL or REQUIRED on item without TO or USING"
-
-#: cobc/field.c:2125
-msgid "SECURE can be used with TO only"
-msgstr "SECURE can be used with TO only"
-
-#: cobc/field.c:2127
-msgid "SECURE must be used with TO"
-msgstr "SECURE must be used with TO"
-
-#: cobc/field.c:2146
-#, c-format
-msgid "'%s' does nothing"
-msgstr "‘%s’ does nothing"
-
-#: cobc/field.c:2361
-#, c-format
-msgid "'%s' 77 level is not allowed here"
-msgstr "‘%s’ 77 level is not allowed here"
-
-#: cobc/field.c:2399
-msgid "OCCURS and multi COLUMNs is not allowed"
-msgstr "OCCURS and multi COLUMNs is not allowed"
-
-#: cobc/field.c:2419
-#, c-format
-msgid "duplicate LINE %d ignored"
-msgstr "duplicate LINE %d ignored"
-
-#: cobc/field.c:2870
-#, c-format
-msgid "ignoring SYNCHRONIZED for group item '%s'"
-msgstr "ignoring SYNCHRONIZED for group item ‘%s’"
-
-#: cobc/field.c:2884 cobc/field.c:3219
-msgid "larger REDEFINES"
-msgstr "larger REDEFINES"
-
-#: cobc/field.c:2898 cobc/field.c:3222 cobc/field.c:3227
-#, c-format
-msgid "size of '%s' larger than size of '%s'"
-msgstr "size of ‘%s’ larger than size of ‘%s’"
-
-#: cobc/field.c:3045 cobc/field.c:3129 cobc/parser.y:832
-#, c-format
-msgid "'%s' cannot be larger than %d bytes"
-msgstr "‘%s’ cannot be larger than %d bytes"
-
-#: cobc/field.c:3086 cobc/field.c:3094
-#, c-format
-msgid "'%s' binary field cannot be larger than %d digits"
-msgstr "‘%s’ binary field cannot be larger than %d digits"
-
-#: cobc/field.c:3353 cobc/parser.y:791 cobc/parser.y:793 cobc/parser.y:6529
-#: cobc/parser.y:6539 cobc/parser.y:7625 cobc/parser.y:7628 cobc/parser.y:7630
-#: cobc/parser.y:7632 cobc/parser.y:7667 cobc/parser.y:8610 cobc/parser.y:8612
-#: cobc/parser.y:8614 cobc/parser.y:8616 cobc/parser.y:8958 cobc/parser.y:8967
-#: cobc/parser.y:10897 cobc/parser.y:12460 cobc/parser.y:13920
-#: cobc/parser.y:15390 cobc/typeck.c:5200
-#, c-format
-msgid "%s and %s are mutually exclusive"
-msgstr "%s and %s are mutually exclusive"
-
-#: cobc/field.c:3354 cobc/parser.y:7810 cobc/parser.y:7847
-msgid "variable-length PICTURE"
-msgstr "variable-length PICTURE"
-
-#: cobc/field.c:3475
-msgid "literal type does not match numeric data type"
-msgstr "literal type does not match numeric data type"
-
-#: cobc/field.c:3549
-#, c-format
-msgid "THRU item '%s' may not come before '%s'"
-msgstr "THRU item ‘%s’ may not come before ‘%s’"
-
-#: cobc/field.c:3572
-#, c-format
-msgid "RENAMES cannot start/end at the OCCURS item '%s'"
-msgstr "RENAMES cannot start/end at the OCCURS item ‘%s’"
-
-#: cobc/field.c:3580
-#, c-format
-msgid "cannot use RENAMES on part of the table '%s'"
-msgstr "cannot use RENAMES on part of the table ‘%s’"
-
-#: cobc/field.c:3618
-#, c-format
-msgid "RENAMES may not contain '%s' as it is a pointer or object reference"
-msgstr "RENAMES may not contain ‘%s’ as it is a pointer or object reference"
-
-#: cobc/field.c:3623
-#, c-format
-msgid "RENAMES may not contain '%s' as it is an OCCURS DEPENDING table"
-msgstr "RENAMES may not contain ‘%s’ as it is an OCCURS DEPENDING table"
-
-#: cobc/field.c:3647
-msgid "RENAMES may not reference a level 88"
-msgstr "RENAMES may not reference a level 88"
-
-#: cobc/field.c:3671
-#, c-format
-msgid "'%s' must immediately follow the record '%s'"
-msgstr "‘%s’ must immediately follow the record ‘%s’"
-
-#: cobc/field.c:3679
-#, c-format
-msgid "THRU item must be different to '%s'"
-msgstr "THRU item must be different to ‘%s’"
-
-#: cobc/field.c:3685
-#, c-format
-msgid "'%s' and '%s' must be in the same record"
-msgstr "‘%s’ and ‘%s’ must be in the same record"
-
-#: cobc/field.c:3696
-#, c-format
-msgid "THRU item '%s' may not be subordinate to '%s'"
-msgstr "THRU item ‘%s’ may not be subordinate to ‘%s’"
-
-#: cobc/flag.def:44
-msgid ""
-" -fstack-size=<number>\tdefine PERFORM stack size\n"
-" * default: 255"
-msgstr ""
-" -fstack-size=<number>\tdefine PERFORM stack size\n"
-" * default: 255"
-
-#: cobc/flag.def:49
-msgid ""
-" -fif-cutoff=<number> define cutoff depth for IF statements\n"
-" * default: 3"
-msgstr ""
-" -fif-cutoff=<number> define cutoff depth for IF statements\n"
-" * default: 3"
-
-#: cobc/flag.def:54
-msgid ""
-" -fsign=[ASCII|EBCDIC]\tdefine display sign representation\n"
-" * default: machine native"
-msgstr ""
-" -fsign=[ASCII|EBCDIC]\tdefine display sign representation\n"
-" * default: machine native"
-
-#: cobc/flag.def:58
-msgid ""
-" -ffold-copy=[UPPER|LOWER]\tfold COPY subject to value\n"
-" * default: no transformation"
-msgstr ""
-" -ffold-copy=[UPPER|LOWER]\tfold COPY subject to value\n"
-" * default: no transformation"
-
-#: cobc/flag.def:62
-msgid ""
-" -ffold-call=[UPPER|LOWER]\tfold PROGRAM-ID, CALL, CANCEL subject to value\n"
-" * default: no transformation"
-msgstr ""
-" -ffold-call=[UPPER|LOWER]\tfold PROGRAM-ID, CALL, CANCEL subject to value\n"
-" * default: no transformation"
-
-#: cobc/flag.def:66
-msgid ""
-" -fmax-errors=<number>\tmaximum number of errors to report before\n"
-" compilation is aborted\n"
-" * default: 128"
-msgstr ""
-" -fmax-errors=<number>\tmaximum number of errors to report before\n"
-" compilation is aborted\n"
-" * default: 128"
-
-#: cobc/flag.def:73
-msgid ""
-" -fintrinsics=[ALL|intrinsic function name(,name,...)]\n"
-" intrinsics to be used without FUNCTION keyword"
-msgstr ""
-" -fintrinsics=[ALL|intrinsic function name(,name,...)]\n"
-" intrinsics to be used without FUNCTION keyword"
-
-#: cobc/flag.def:85
-msgid ""
-" -fdump=<scope> dump data fields on abort, <scope> may be\n"
-" a combination of: ALL, WS, LS, RD, FD, SC, LO"
-msgstr ""
-" -fdump=<scope> dump data fields on abort, <scope> may be\n"
-" a combination of: ALL, WS, LS, RD, FD, SC, LO"
-
-#: cobc/flag.def:88
-msgid ""
-" -fno-dump=<scope> exclude data fields from dumping on abort, <scope> may\n"
-" be a combination of: ALL, WS, LS, RD, FD, SC, LO\n"
-" default if no scope specified: ALL"
-msgstr ""
-" -fno-dump=<scope> exclude data fields from dumping on abort, <scope> may\n"
-" be a combination of: ALL, WS, LS, RD, FD, SC, LO\n"
-" default if no scope specified: ALL"
-
-#: cobc/flag.def:94
-msgid ""
-" -fcallfh=<name> specifies <name> to be used for I/O\n"
-" as external provided EXTFH interface module"
-msgstr ""
-" -fcallfh=<name> specifies <name> to be used for I/O\n"
-" as external provided EXTFH interface module"
-
-#: cobc/flag.def:98
-msgid ""
-" -febcdic-table=<cconv-table>/<file>\tEBCDIC/ASCII translation table\n"
-" * e.g. default, ebcdic500_latin1..."
-msgstr ""
-" -febcdic-table=<cconv-table>/<file>\tEBCDIC/ASCII translation table\n"
-" * e.g. default, ebcdic500_latin1..."
-
-#: cobc/flag.def:102
-msgid ""
-" -fdefault-colseq=[ASCII|EBCDIC|NATIVE]\tdefine default collating sequence\n"
-" * default: NATIVE"
-msgstr ""
-" -fdefault-colseq=[ASCII|EBCDIC|NATIVE]\tdefine default collating sequence\n"
-" * default: NATIVE"
-
-#: cobc/flag.def:110
-msgid ""
-" -fwinmain generate WinMain instead of main when compiling\n"
-" as executable"
-msgstr ""
-" -fwinmain generate WinMain instead of main when compiling\n"
-" as executable"
-
-#: cobc/flag.def:114
-msgid " -fcomputed-goto generate computed goto C statements"
-msgstr " -fcomputed-goto generate computed goto C statements"
-
-#: cobc/flag.def:117
-msgid " -fextra-brace generate extra braces in C source"
-msgstr " -fextra-brace generate extra braces in C source"
-
-#: cobc/flag.def:120
-msgid " -fcorrect-numeric attempt correction of invalid numeric display items"
-msgstr " -fcorrect-numeric attempt correction of invalid numeric display items"
-
-#: cobc/flag.def:123
-msgid " -fstack-on-heap PERFORM stack allocated on heap"
-msgstr " -fstack-on-heap PERFORM stack allocated on heap"
-
-#: cobc/flag.def:126
-msgid ""
-" -fstack-extended store origin of entrypoints and PERFORM\n"
-" * turned on by --debug/-fdump"
-msgstr ""
-" -fstack-extended store origin of entrypoints and PERFORM\n"
-" * turned on by --debug/-fdump"
-
-#: cobc/flag.def:130
-msgid " -fno-fast-compare disables inline comparisions"
-msgstr " -fno-fast-compare disables inline comparisions"
-
-#: cobc/flag.def:135
-msgid ""
-" -fno-remove-unreachable\tdisable remove of unreachable code\n"
-" * turned off by -g"
-msgstr ""
-" -fno-remove-unreachable\tdisable remove of unreachable code\n"
-" * turned off by -g"
-
-#: cobc/flag.def:139
-msgid ""
-" -ftrace generate trace code\n"
-" * scope: executed SECTION/PARAGRAPH"
-msgstr ""
-" -ftrace generate trace code\n"
-" * scope: executed SECTION/PARAGRAPH"
-
-#: cobc/flag.def:143
-msgid ""
-" -ftraceall generate trace code\n"
-" * scope: executed SECTION/PARAGRAPH/STATEMENTS"
-msgstr ""
-" -ftraceall generate trace code\n"
-" * scope: executed SECTION/PARAGRAPH/STATEMENTS"
-
-#: cobc/flag.def:147
-msgid " -fsyntax-only syntax error checking only; don't emit any output"
-msgstr " -fsyntax-only syntax error checking only; don't emit any output"
-
-#: cobc/flag.def:150
-msgid ""
-" -fdebugging-line enable debugging lines\n"
-" * 'D' in indicator column or floating >>D"
-msgstr ""
-" -fdebugging-line enable debugging lines\n"
-" * ‘D’ in indicator column or floating >>D"
-
-#: cobc/flag.def:154
-msgid ""
-" -fsource-location generate source location code\n"
-" * turned on by --debug/-ftraceall/-fec/-fdump"
-msgstr ""
-" -fsource-location generate source location code\n"
-" * turned on by --debug/-ftraceall/-fec/-fdump"
-
-#: cobc/flag.def:158
-msgid " -fimplicit-init automatic initialization of the COBOL runtime system"
-msgstr " -fimplicit-init automatic initialization of the COBOL runtime system"
-
-#: cobc/flag.def:161
-msgid ""
-" -fno-recursive-check disable check of recursive program call;\n"
-" effectively compiling as RECURSIVE program"
-msgstr ""
-" -fno-recursive-check disable check of recursive program call;\n"
-" effectively compiling as RECURSIVE program"
-
-#: cobc/flag.def:165
-msgid ""
-" -fstack-check PERFORM stack checking\n"
-" * turned on by --debug/-g"
-msgstr ""
-" -fstack-check PERFORM stack checking\n"
-" * turned on by --debug/-g"
-
-#: cobc/flag.def:169
-msgid ""
-" -fmemory-check=<scope> checks for invalid writes to internal storage,\n"
-" <scope> may be one of: all, pointer, using, none\n"
-" * default: none, set to all by --debug"
-msgstr ""
-" -fmemory-check=<scope> checks for invalid writes to internal storage,\n"
-" <scope> may be one of: all, pointer, using, none\n"
-" * default: none, set to all by --debug"
-
-#: cobc/flag.def:174
-msgid " -fsection-exit-check check that code execution does not leave the scope of SECTIONs"
-msgstr " -fsection-exit-check check that code execution does not leave the scope of SECTIONs"
-
-#: cobc/flag.def:177
-msgid " -fimplicit-goback-check\tcheck that code execution does not end implicit at end of PROCEDURE DIVISION"
-msgstr " -fimplicit-goback-check\tcheck that code execution does not end implicit at end of PROCEDURE DIVISION"
-
-#: cobc/flag.def:180
-msgid ""
-" -fwrite-after use AFTER 1 for WRITE of LINE SEQUENTIAL\n"
-" * default: BEFORE 1"
-msgstr ""
-" -fwrite-after use AFTER 1 for WRITE of LINE SEQUENTIAL\n"
-" * default: BEFORE 1"
-
-#: cobc/flag.def:184
-msgid ""
-" -fmfcomment '*' in column 1 treated as comment with listing suppression\n"
-" * FIXED/COBOL85/VARIABLE format only"
-msgstr ""
-" -fmfcomment ‘*’ in column 1 treated as comment with listing suppression\n"
-" * FIXED/COBOL85/VARIABLE format only"
-
-#: cobc/flag.def:188
-msgid ""
-" -facucomment '$' in indicator area treated as '*',\n"
-" '|' treated as floating comment"
-msgstr ""
-" -facucomment ‘$’ in indicator area treated as '*',\n"
-" ‘|’ treated as floating comment"
-
-#: cobc/flag.def:193
-msgid ""
-" -fno-trunc allow numeric field overflow\n"
-" * non-ANSI behaviour"
-msgstr ""
-" -fno-trunc allow numeric field overflow\n"
-" * non-ANSI behaviour"
-
-#: cobc/flag.def:197
-msgid ""
-" -fsingle-quote use a single quote (apostrophe) for QUOTE\n"
-" * default: double quote"
-msgstr ""
-" -fsingle-quote use a single quote (apostrophe) for QUOTE\n"
-" * default: double quote"
-
-#: cobc/flag.def:207
-msgid ""
-" -foptional-file treat all files as OPTIONAL\n"
-" * unless NOT OPTIONAL specified"
-msgstr ""
-" -foptional-file treat all files as OPTIONAL\n"
-" * unless NOT OPTIONAL specified"
-
-#: cobc/flag.def:211
-msgid " -fstatic-call output static function calls for the CALL statement"
-msgstr " -fstatic-call output static function calls for the CALL statement"
-
-#: cobc/flag.def:214
-msgid ""
-" -fno-gen-c-decl-static-call\tdisable generation of C function declarations\n"
-" for subroutines with static CALL"
-msgstr ""
-" -fno-gen-c-decl-static-call\tdisable generation of C function declarations\n"
-" for subroutines with static CALL"
-
-#: cobc/flag.def:218
-msgid ""
-" -fgen-c-line-directives\tgenerate source location directives in C code;\n"
-" * turned on by -g/--coverage"
-msgstr ""
-" -fgen-c-line-directives\tgenerate source location directives in C code;\n"
-" * turned on by -g/--coverage"
-
-#: cobc/flag.def:222
-msgid ""
-" -fgen-c-labels generate extra labels in C sources;\n"
-" * turned on by -g"
-msgstr ""
-" -fgen-c-labels generate extra labels in C sources;\n"
-" * turned on by -g"
-
-#: cobc/flag.def:226
-msgid ""
-" -fno-theaders suppress all headers from listing while keeping\n"
-" page breaks"
-msgstr ""
-" -fno-theaders suppress all headers from listing while keeping\n"
-" page breaks"
-
-#: cobc/flag.def:230
-msgid " -fno-tsource suppress source from listing"
-msgstr " -fno-tsource suppress source from listing"
-
-#: cobc/flag.def:233
-msgid " -fno-tmessages suppress warning and error summary from listing"
-msgstr " -fno-tmessages suppress warning and error summary from listing"
-
-#: cobc/flag.def:236
-msgid " -ftsymbols specify symbols in listing"
-msgstr " -ftsymbols specify symbols in listing"
-
-#: cobc/flag.def:239
-msgid " -ftcmd specify command line in listing"
-msgstr " -ftcmd specify command line in listing"
-
-#: cobc/flag.def:242
-msgid " -fno-ttimestamp suppress timestamp in listing headers"
-msgstr " -fno-ttimestamp suppress timestamp in listing headers"
-
-#: cobc/flag.def:245
-msgid ""
-" -fttitle=<title> set listing title with '_' replaced by spaces;\n"
-" defaults to package name and version"
-msgstr ""
-" -fttitle=<title> set listing title with ‘_’ replaced by spaces;\n"
-" defaults to package name and version"
-
-#: cobc/flag.def:249
-msgid ""
-" -fno-diagnostics-show-option\tsuppress output of option that directly\n"
-" controls the diagnostic"
-msgstr ""
-" -fno-diagnostics-show-option\tsuppress output of option that directly\n"
-" controls the diagnostic"
-
-#: cobc/flag.def:253
-msgid " -fno-diagnostics-show-caret\tdo not display source context on warning/error diagnostic"
-msgstr " -fno-diagnostics-show-caret\tdo not display source context on warning/error diagnostic"
-
-#: cobc/flag.def:256
-msgid " -fno-diagnostics-show-line-numbers\tsuppress display of line numbers in diagnostics"
-msgstr " -fno-diagnostics-show-line-numbers\tsuppress display of line numbers in diagnostics"
-
-#: cobc/help.c:33
-msgid "GnuCOBOL compiler for most COBOL dialects with lots of extensions"
-msgstr "GnuCOBOL compiler for most COBOL dialects with lots of extensions"
-
-#: cobc/help.c:35
-#, c-format
-msgid "Usage: %s [options]... file..."
-msgstr "Usage: %s [options]... file..."
-
-#: cobc/help.c:48 bin/cobcrun.c:143
-#, c-format
-msgid ""
-"Report bugs to: %s\n"
-"or (preferably) use the issue tracker via the home page."
-msgstr ""
-"Report bugs to: %s\n"
-"or (preferably) use the issue tracker via the home page."
-
-#: cobc/help.c:52 bin/cobcrun.c:146
-#, c-format
-msgid "GnuCOBOL home page: <%s>"
-msgstr "GnuCOBOL home page: <%s>"
-
-#: cobc/help.c:54 bin/cobcrun.c:148
-#, c-format
-msgid "General help using GNU software: <%s>"
-msgstr "General help using GNU software: <%s>"
-
-#: cobc/help.c:61 bin/cobcrun.c:125
-msgid "Options:"
-msgstr "Options:"
-
-#: cobc/help.c:62
-msgid " -h, --help display this help and exit"
-msgstr " -h, --help display this help and exit"
-
-#: cobc/help.c:63
-msgid " -V, --version display compiler version information and exit"
-msgstr " -V, --version display compiler version information and exit"
-
-#: cobc/help.c:64
-msgid " -dumpversion display compiler version and exit"
-msgstr " -dumpversion display compiler version and exit"
-
-#: cobc/help.c:65
-msgid ""
-" -i, --info display compiler information (build/environment)\n"
-" and exit"
-msgstr ""
-" -i, --info display compiler information (build/environment)\n"
-" and exit"
-
-#: cobc/help.c:67
-msgid ""
-" -v, --verbose verbose mode, display additional information;\n"
-" multiple -v options increase the verbosity,\n"
-" the maximum is 3 as follows:\n"
-" (1) display compiler version and the commands\n"
-" invoked by the compiler,\n"
-" (2) pass verbose option to assembler/compiler\n"
-" (3) pass verbose option to linker"
-msgstr ""
-" -v, --verbose verbose mode, display additional information;\n"
-" multiple -v options increase the verbosity,\n"
-" the maximum is 3 as follows:\n"
-" (1) display compiler version and the commands\n"
-" invoked by the compiler,\n"
-" (2) pass verbose option to assembler/compiler\n"
-" (3) pass verbose option to linker"
-
-#: cobc/help.c:74
-msgid " -q, --brief reduced displays, commands invoked not shown"
-msgstr " -q, --brief reduced displays, commands invoked not shown"
-
-#: cobc/help.c:75
-msgid " -### like -v but commands not executed"
-msgstr " -### like -v but commands not executed"
-
-#: cobc/help.c:76
-msgid " -x build an executable program"
-msgstr " -x build an executable program"
-
-#: cobc/help.c:77
-msgid " -m build a dynamically loadable module (default)"
-msgstr " -m build a dynamically loadable module (default)"
-
-#: cobc/help.c:78
-msgid " -j [<args>], --job[=<args>]\trun program after build, passing <args>"
-msgstr " -j [<args>], --job[=<args>]\trun program after build, passing <args>"
-
-#: cobc/help.c:79
-msgid ""
-" -std=<dialect> warnings/features for a specific dialect\n"
-" <dialect> can be one of:\n"
-" default, cobol2014, cobol2002, cobol85, xopen,\n"
-" ibm-strict, ibm, mvs-strict, mvs,\n"
-" mf-strict, mf, bs2000-strict, bs2000,\n"
-" acu-strict, acu, rm-strict, rm, gcos-strict,\n"
-" gcos;\n"
-" see configuration files in directory config"
-msgstr ""
-" -std=<dialect> warnings/features for a specific dialect\n"
-" <dialect> can be one of:\n"
-" default, cobol2014, cobol2002, cobol85, xopen,\n"
-" ibm-strict, ibm, mvs-strict, mvs,\n"
-" mf-strict, mf, bs2000-strict, bs2000,\n"
-" acu-strict, acu, rm-strict, rm, gcos-strict,\n"
-" gcos;\n"
-" see configuration files in directory config"
-
-#: cobc/help.c:87
-msgid " -F, --free use free source format (alias for -fformat=free)"
-msgstr " -F, --free use free source format (alias for -fformat=free)"
-
-#: cobc/help.c:88
-msgid ""
-" --fixed use fixed source format (default; alias for\n"
-" -fformat=fixed)"
-msgstr ""
-" --fixed use fixed source format (default; alias for\n"
-" -fformat=fixed)"
-
-#: cobc/help.c:90
-msgid " -O, -O2, -O3, -Os enable optimization"
-msgstr " -O, -O2, -O3, -Os enable optimization"
-
-#: cobc/help.c:91
-msgid " -O0 disable optimization"
-msgstr " -O0 disable optimization"
-
-#: cobc/help.c:92
-msgid " -g enable C compiler debug and stack check"
-msgstr " -g enable C compiler debug and stack check"
-
-#: cobc/help.c:93
-msgid ""
-" -d, --debug enable all run-time error checking,\n"
-" equal to -fstack-check -fec=EC-ALL"
-msgstr ""
-" -d, --debug enable all run-time error checking,\n"
-" equal to -fstack-check -fec=EC-ALL"
-
-#: cobc/help.c:97
-msgid ""
-" -fec=<exception-name>\tenable code generation for <exception-name>,\n"
-" see --list-exceptions for the possible values,\n"
-" sets -fsource-location"
-msgstr ""
-" -fec=<exception-name>\tenable code generation for <exception-name>,\n"
-" see --list-exceptions for the possible values,\n"
-" sets -fsource-location"
-
-#: cobc/help.c:100
-msgid " -fno-ec=<exception-name>\tdisable code generation for <exception-name>"
-msgstr " -fno-ec=<exception-name>\tdisable code generation for <exception-name>"
-
-#: cobc/help.c:101
-msgid " -o <file> place the output into <file>"
-msgstr " -o <file> place the output into <file>"
-
-#: cobc/help.c:102
-msgid ""
-" -b combine all input files into a single\n"
-" dynamically loadable module"
-msgstr ""
-" -b combine all input files into a single\n"
-" dynamically loadable module"
-
-#: cobc/help.c:104
-msgid " -E preprocess only; do not compile or link"
-msgstr " -E preprocess only; do not compile or link"
-
-#: cobc/help.c:105
-msgid " -C translation only; convert COBOL to C"
-msgstr " -C translation only; convert COBOL to C"
-
-#: cobc/help.c:106
-msgid " -S compile only; output assembly file"
-msgstr " -S compile only; output assembly file"
-
-#: cobc/help.c:107
-msgid " -c compile and assemble, but do not link"
-msgstr " -c compile and assemble, but do not link"
-
-#: cobc/help.c:108
-msgid " -T <file> generate and place a wide program listing into <file>"
-msgstr " -T <file> generate and place a wide program listing into <file>"
-
-#: cobc/help.c:109
-msgid " -t <file> generate and place a program listing into <file>"
-msgstr " -t <file> generate and place a program listing into <file>"
-
-#: cobc/help.c:110
-msgid " --tlines=<lines> specify lines per page in listing, default = 55"
-msgstr " --tlines=<lines> specify lines per page in listing, default = 55"
-
-#: cobc/help.c:111
-msgid " -P[=<dir or file>] generate preprocessed program listing (.lst)"
-msgstr " -P[=<dir or file>] generate preprocessed program listing (.lst)"
-
-#: cobc/help.c:113
-msgid ""
-" -X, --Xref generate cross reference through 'cobxref'\n"
-" (V. Coen's 'cobxref' must be in path)"
-msgstr ""
-" -X, --Xref generate cross reference through ‘cobxref’\n"
-" (V. Coen's ‘cobxref’ must be in path)"
-
-#: cobc/help.c:116
-msgid " -X, --Xref specify cross reference in listing"
-msgstr " -X, --Xref specify cross reference in listing"
-
-#: cobc/help.c:118
-msgid " -I <directory> add <directory> to copy/include search path"
-msgstr " -I <directory> add <directory> to copy/include search path"
-
-#: cobc/help.c:119
-msgid " -L <directory> add <directory> to library search path"
-msgstr " -L <directory> add <directory> to library search path"
-
-#: cobc/help.c:120
-msgid " -l <lib> link the library <lib>"
-msgstr " -l <lib> link the library <lib>"
-
-#: cobc/help.c:121
-msgid " -K <entry> generate CALL to <entry> as static"
-msgstr " -K <entry> generate CALL to <entry> as static"
-
-#: cobc/help.c:122
-msgid " -D <define> define <define> for COBOL compilation"
-msgstr " -D <define> define <define> for COBOL compilation"
-
-#: cobc/help.c:123
-msgid " -A <options> add <options> to the C compile phase"
-msgstr " -A <options> add <options> to the C compile phase"
-
-#: cobc/help.c:124
-msgid " -Q <options> add <options> to the C link phase"
-msgstr " -Q <options> add <options> to the C link phase"
-
-#: cobc/help.c:125
-msgid " --coverage instrument generated binaries for coverage"
-msgstr " --coverage instrument generated binaries for coverage"
-
-#: cobc/help.c:126
-msgid " --conf=<file> user-defined dialect configuration; see -std"
-msgstr " --conf=<file> user-defined dialect configuration; see -std"
-
-#: cobc/help.c:127
-msgid " --list-reserved display reserved words"
-msgstr " --list-reserved display reserved words"
-
-#: cobc/help.c:128
-msgid " --list-intrinsics display intrinsic functions"
-msgstr " --list-intrinsics display intrinsic functions"
-
-#: cobc/help.c:129
-msgid " --list-mnemonics display mnemonic names"
-msgstr " --list-mnemonics display mnemonic names"
-
-#: cobc/help.c:130
-msgid " --list-exceptions display exception names"
-msgstr " --list-exceptions display exception names"
-
-#: cobc/help.c:131
-msgid " --list-system display system routines"
-msgstr " --list-system display system routines"
-
-#: cobc/help.c:132
-msgid ""
-" --save-temps[=<dir>] save intermediate files\n"
-" * default: current directory"
-msgstr ""
-" --save-temps[=<dir>] save intermediate files\n"
-" * default: current directory"
-
-#: cobc/help.c:134
-msgid " -MT <target> set/add target file used in dependency list"
-msgstr " -MT <target> set/add target file used in dependency list"
-
-#: cobc/help.c:135
-msgid " -MF <file> place dependency list into <file>"
-msgstr " -MF <file> place dependency list into <file>"
-
-#: cobc/help.c:136
-msgid " -ext <extension> add file extension for resolving COPY"
-msgstr " -ext <extension> add file extension for resolving COPY"
-
-#: cobc/help.c:143
-msgid "Warning options:"
-msgstr "Warning options:"
-
-#: cobc/help.c:144
-msgid " -Wall enable most warnings (all except as noted below)"
-msgstr " -Wall enable most warnings (all except as noted below)"
-
-#: cobc/help.c:145
-msgid " -Wextra like -Wall but enable some extra warning flags"
-msgstr " -Wextra like -Wall but enable some extra warning flags"
-
-#: cobc/help.c:146
-msgid " -w disable all warnings"
-msgstr " -w disable all warnings"
-
-#: cobc/help.c:147
-msgid " -Wno-<warning> disable warning enabled by default, -Wall or -Wextra"
-msgstr " -Wno-<warning> disable warning enabled by default, -Wall or -Wextra"
-
-#. TRANSLATORS: This msgid is appended to msgid for -Wno-pending and others
-#: cobc/help.c:153
-msgid " * ALWAYS active"
-msgstr " * ALWAYS active"
-
-#. TRANSLATORS: This msgid is appended to msgid for -Wpossible-truncate and others
-#: cobc/help.c:157
-msgid " * NOT set with -Wall"
-msgstr " * NOT set with -Wall"
-
-#: cobc/help.c:165
-msgid " -fdiagnostics-plain-output\tmake diagnostic output as plain as possible"
-msgstr " -fdiagnostics-plain-output\tmake diagnostic output as plain as possible"
-
-#: cobc/help.c:166
-msgid " -Werror treat all warnings as errors"
-msgstr " -Werror treat all warnings as errors"
-
-#: cobc/help.c:167
-msgid " -Wno-error don't treat warnings as errors"
-msgstr " -Wno-error don't treat warnings as errors"
-
-#: cobc/help.c:168
-msgid " -Werror=<warning> treat specified <warning> as error"
-msgstr " -Werror=<warning> treat specified <warning> as error"
-
-#: cobc/help.c:169
-msgid " -Wno-error=<warning> don't treat specified <warning> as error"
-msgstr " -Wno-error=<warning> don't treat specified <warning> as error"
-
-#: cobc/help.c:185
-msgid "Compiler options:"
-msgstr "Compiler options:"
-
-#: cobc/help.c:203
-msgid ""
-" -fibmcomp sets -fbinary-size=2-4-8 -fsynchronized-clause=ok\n"
-" -fno-ibmcomp sets -fbinary-size=1--8 -fsynchronized-clause=ignore"
-msgstr ""
-" -fibmcomp sets -fbinary-size=2-4-8 -fsynchronized-clause=ok\n"
-" -fno-ibmcomp sets -fbinary-size=1--8 -fsynchronized-clause=ignore"
-
-#: cobc/help.c:206
-msgid ""
-" -falternate-ebcdic use restricted ASCII to EBCDIC translate\n"
-" -fno-alternate-ebcdic use extended ASCII to EBCDIC translate"
-msgstr ""
-" -falternate-ebcdic use restricted ASCII to EBCDIC translate\n"
-" -fno-alternate-ebcdic use extended ASCII to EBCDIC translate"
-
-#: cobc/help.c:235
-msgid "Compiler dialect configuration options:"
-msgstr "Compiler dialect configuration options:"
-
-#: cobc/help.c:237 cobc/help.c:243
-msgid "<value>"
-msgstr "<value>"
-
-#: cobc/help.c:247
-msgid "<support>"
-msgstr "<support>"
-
-#: cobc/help.c:256
-msgid "where <support> is one of the following:"
-msgstr "where <support> is one of the following:"
-
-#. TRANSLATORS: This msgid is used when a variable name
-#. or label is referenced in a compiler message.
-#: cobc/help.c:259 cobc/help.c:262 cobc/help.c:265 cobc/help.c:268
-#: cobc/help.c:271 cobc/help.c:274 cobc/help.c:277 cobc/help.c:280
-#: cobc/typeck.c:2378
-#, c-format
-msgid "'%s'"
-msgstr "'%s'"
-
-#: cobc/help.c:282
-msgid "word to be taken out of the reserved words list"
-msgstr "word to be taken out of the reserved words list"
-
-#: cobc/help.c:282 cobc/help.c:283 cobc/help.c:285
-msgid "<word>"
-msgstr "<word>"
-
-#: cobc/help.c:283
-msgid "word to be added to reserved words list"
-msgstr "word to be added to reserved words list"
-
-#: cobc/help.c:284
-msgid "word to be added to reserved words list as alias"
-msgstr "word to be added to reserved words list as alias"
-
-#: cobc/help.c:284
-msgid "<word>:<alias>"
-msgstr "<word>:<alias>"
-
-#: cobc/help.c:285
-msgid "special register to disable"
-msgstr "special register to disable"
-
-#: cobc/help.c:286
-msgid "special register to enable"
-msgstr "special register to enable"
-
-#: cobc/help.c:287
-msgid "<word> or <word>:<definition>, where definition uses backslash escaped spaces"
-msgstr "<word> or <word>:<definition>, where definition uses backslash escaped spaces"
-
-#: cobc/parser.y:307
-#, c-format
-msgid "'%s' should start in Area A"
-msgstr "‘%s’ should start in Area A"
-
-#: cobc/parser.y:315
-#, c-format
-msgid "%s should start in Area A"
-msgstr "%s should start in Area A"
-
-#: cobc/parser.y:322
-#, c-format
-msgid "%s should not start in Area A"
-msgstr "%s should not start in Area A"
-
-#: cobc/parser.y:330 cobc/parser.y:332
-msgid "start of statement in Area A"
-msgstr "start of statement in Area A"
-
-#: cobc/parser.y:428
-#, c-format
-msgid "unreachable statement '%s'"
-msgstr "unreachable statement ‘%s’"
-
-#: cobc/parser.y:542
-#, c-format
-msgid "ENTRY '%s' duplicated"
-msgstr "ENTRY ‘%s’ duplicated"
-
-#: cobc/parser.y:594
-#, c-format
-msgid "ENTRY FOR GO TO '%s' duplicated"
-msgstr "ENTRY FOR GO TO ‘%s’ duplicated"
-
-#: cobc/parser.y:610
-#, c-format
-msgid "maximum nested program depth exceeded (%d)"
-msgstr "maximum nested program depth exceeded (%d)"
-
-#: cobc/parser.y:636 cobc/parser.y:663
-#, c-format
-msgid "%s statement not terminated by %s"
-msgstr "%s statement not terminated by %s"
-
-#: cobc/parser.y:666
-#, c-format
-msgid "%s statement not terminated"
-msgstr "%s statement not terminated"
-
-#: cobc/parser.y:708
-msgid "USE statement invalid for SD file"
-msgstr "USE statement invalid for SD file"
-
-#: cobc/parser.y:751
-#, c-format
-msgid "%s is ignored"
-msgstr "%s is ignored"
-
-#: cobc/parser.y:760
-#, c-format
-msgid "cannot specify %s without number of lines on page"
-msgstr "cannot specify %s without number of lines on page"
-
-#: cobc/parser.y:770
-#, c-format
-msgid "maximum OCCURS depth exceeded (%d)"
-msgstr "maximum OCCURS depth exceeded (%d)"
-
-#: cobc/parser.y:785 cobc/typeck.c:3127
-#, c-format
-msgid "'%s' is not in LINKAGE SECTION"
-msgstr "‘%s’ is not in LINKAGE SECTION"
-
-#: cobc/parser.y:806
-msgid "TO phrase without DEPENDING phrase"
-msgstr "TO phrase without DEPENDING phrase"
-
-#: cobc/parser.y:808
-msgid "maximum number of occurrences assumed to be exact number"
-msgstr "maximum number of occurrences assumed to be exact number"
-
-#: cobc/parser.y:813 cobc/parser.y:8398
-msgid "OCCURS TO must be greater than OCCURS FROM"
-msgstr "OCCURS TO must be greater than OCCURS FROM"
-
-#: cobc/parser.y:823
-msgid "OCCURS DEPENDING ON without TO phrase"
-msgstr "OCCURS DEPENDING ON without TO phrase"
-
-#: cobc/parser.y:899
-#, c-format
-msgid "%s header missing"
-msgstr "%s header missing"
-
-#: cobc/parser.y:900
-#, c-format
-msgid "%s header assumed"
-msgstr "%s header assumed"
-
-#: cobc/parser.y:1053
-#, c-format
-msgid "%s incorrectly after %s"
-msgstr "%s incorrectly after %s"
-
-#: cobc/parser.y:1208
-#, c-format
-msgid "redefinition of program name '%s'"
-msgstr "redefinition of program name ‘%s’"
-
-#: cobc/parser.y:1213
-#, c-format
-msgid "redefinition of program ID '%s'"
-msgstr "redefinition of program ID ‘%s’"
-
-#: cobc/parser.y:1247
-#, c-format
-msgid "FUNCTION '%s' has no PROCEDURE DIVISION"
-msgstr "FUNCTION ‘%s’ has no PROCEDURE DIVISION"
-
-#: cobc/parser.y:1372
-msgid "functions may not be defined within a program/function"
-msgstr "functions may not be defined within a program/function"
-
-#: cobc/parser.y:1426
-#, c-format
-msgid "END FUNCTION '%s' is different from FUNCTION-ID '%s'"
-msgstr "END FUNCTION ‘%s’ is different from FUNCTION-ID ‘%s’"
-
-#: cobc/parser.y:1440
-#, c-format
-msgid "END PROGRAM '%s' is different from PROGRAM-ID '%s'"
-msgstr "END PROGRAM ‘%s’ is different from PROGRAM-ID ‘%s’"
-
-#: cobc/parser.y:1489
-msgid "currency symbol must be one character long"
-msgstr "currency symbol must be one character long"
-
-#: cobc/parser.y:1546
-#, c-format
-msgid "invalid character '%c' in currency symbol"
-msgstr "invalid character ‘%c’ in currency symbol"
-
-#: cobc/parser.y:1562
-msgid "prototype has same name as current function and will be ignored"
-msgstr "prototype has same name as current function and will be ignored"
-
-#: cobc/parser.y:1589
-#, c-format
-msgid "duplicate REPOSITORY entries for '%s' do not match"
-msgstr "duplicate REPOSITORY entries for ‘%s’ do not match"
-
-#: cobc/parser.y:1593
-#, c-format
-msgid "duplicate REPOSITORY entry for '%s'"
-msgstr "duplicate REPOSITORY entry for ‘%s’"
-
-#: cobc/parser.y:1658
-#, c-format
-msgid "ORGANIZATION %s is incompatible with RECORD DELIMITER"
-msgstr "ORGANIZATION %s is incompatible with RECORD DELIMITER"
-
-#: cobc/parser.y:1694 cobc/parser.y:2142 cobc/typeck.c:835
-#, c-format
-msgid "condition-name not allowed here: '%s'"
-msgstr "condition-name not allowed here: ‘%s’"
-
-#: cobc/parser.y:1700 cobc/parser.y:2345
-msgid "SCREEN item cannot be used here"
-msgstr "SCREEN item cannot be used here"
-
-#: cobc/parser.y:1703
-msgid "REPORT item cannot be used here"
-msgstr "REPORT item cannot be used here"
-
-#: cobc/parser.y:1709
-msgid "TYPEDEF item cannot be used here"
-msgstr "TYPEDEF item cannot be used here"
-
-#: cobc/parser.y:1718
-msgid "elementary item expected"
-msgstr "elementary item expected"
-
-#: cobc/parser.y:1725
-msgid "item may not reference itself"
-msgstr "item may not reference itself"
-
-#: cobc/parser.y:1733
-msgid "item may not be subordinate to any item with USAGE clause"
-msgstr "item may not be subordinate to any item with USAGE clause"
-
-#: cobc/parser.y:1735
-msgid "item may not be subordinate to any item with SIGN clause"
-msgstr "item may not be subordinate to any item with SIGN clause"
-
-#: cobc/parser.y:1780
-#, c-format
-msgid "illegal combination of %s with other clauses"
-msgstr "illegal combination of %s with other clauses"
-
-#: cobc/parser.y:1794
-#, c-format
-msgid "entry following %s may not be subordinate to it"
-msgstr "entry following %s may not be subordinate to it"
-
-#: cobc/parser.y:2042
-msgid "INITIAL specified on non-input field"
-msgstr "INITIAL specified on non-input field"
-
-#: cobc/parser.y:2054
-msgid "relative LINE/COLUMN clause required with OCCURS"
-msgstr "relative LINE/COLUMN clause required with OCCURS"
-
-#: cobc/parser.y:2072
-msgid "FOR phrase cannot immediately follow ALL/LEADING/TRAILING"
-msgstr "FOR phrase cannot immediately follow ALL/LEADING/TRAILING"
-
-#: cobc/parser.y:2074
-msgid "missing CHARACTERS/ALL/LEADING/TRAILING phrase after FOR phrase"
-msgstr "missing CHARACTERS/ALL/LEADING/TRAILING phrase after FOR phrase"
-
-#: cobc/parser.y:2081
-msgid "missing value between ALL/LEADING/TRAILING words"
-msgstr "missing value between ALL/LEADING/TRAILING words"
-
-#: cobc/parser.y:2086
-msgid "missing FOR phrase before CHARACTERS/ALL/LEADING/TRAILING phrase"
-msgstr "missing FOR phrase before CHARACTERS/ALL/LEADING/TRAILING phrase"
-
-#: cobc/parser.y:2093
-msgid "missing ALL/LEADING/TRAILING before value"
-msgstr "missing ALL/LEADING/TRAILING before value"
-
-#: cobc/parser.y:2138
-msgid "use of condition-name in place of data-name"
-msgstr "use of condition-name in place of data-name"
-
-#: cobc/parser.y:2169
-msgid "cannot specify NO ADVANCING in screen DISPLAY"
-msgstr "cannot specify NO ADVANCING in screen DISPLAY"
-
-#: cobc/parser.y:2232 cobc/parser.y:2249
-msgid "non-standard DISPLAY"
-msgstr "non-standard DISPLAY"
-
-#: cobc/parser.y:2236
-msgid "screens may only be displayed on CRT"
-msgstr "screens may only be displayed on CRT"
-
-#: cobc/parser.y:2241 cobc/parser.y:2284
-msgid "cannot mix screens and fields in the same DISPLAY statement"
-msgstr "cannot mix screens and fields in the same DISPLAY statement"
-
-#: cobc/parser.y:2245
-msgid "screen clauses may only be used for DISPLAY on CRT"
-msgstr "screen clauses may only be used for DISPLAY on CRT"
-
-#: cobc/parser.y:2290
-msgid "ambiguous DISPLAY; put items to display on device in separate DISPLAY"
-msgstr "ambiguous DISPLAY; put items to display on device in separate DISPLAY"
-
-#: cobc/parser.y:2301
-#, c-format
-msgid "%s is not an alphanumeric literal"
-msgstr "%s is not an alphanumeric literal"
-
-#: cobc/parser.y:2305
-#, c-format
-msgid "'%s' is not USAGE DISPLAY"
-msgstr "‘%s’ is not USAGE DISPLAY"
-
-#: cobc/parser.y:2322 cobc/parser.y:19534
-#, c-format
-msgid "'%s' is not a field"
-msgstr "‘%s’ is not a field"
-
-#: cobc/parser.y:2338 cobc/typeck.c:10231
-#, c-format
-msgid "invalid target for %s"
-msgstr "invalid target for %s"
-
-#: cobc/parser.y:2347
-msgid "RENAMES item may not be used here"
-msgstr "RENAMES item may not be used here"
-
-#: cobc/parser.y:2349 cobc/typeck.c:2822 cobc/typeck.c:2913
-msgid "ANY LENGTH item not allowed here"
-msgstr "ANY LENGTH item not allowed here"
-
-#: cobc/parser.y:2353
-#, c-format
-msgid "item '%s' has wrong class for VALIDATE"
-msgstr "item ‘%s’ has wrong class for VALIDATE"
-
-#: cobc/parser.y:2362
-msgid "WHEN clause must follow EVERY clause"
-msgstr "WHEN clause must follow EVERY clause"
-
-#: cobc/parser.y:2447 cobc/parser.y:19251
-msgid "non-zero value expected"
-msgstr "non-zero value expected"
-
-#: cobc/parser.y:2453 cobc/tree.c:4803
-#, c-format
-msgid "RECORD size (IDX) exceeds maximum allowed (%d)"
-msgstr "RECORD size (IDX) exceeds maximum allowed (%d)"
-
-#: cobc/parser.y:2457 cobc/tree.c:4807
-#, c-format
-msgid "RECORD size exceeds maximum allowed (%d)"
-msgstr "RECORD size exceeds maximum allowed (%d)"
-
-#: cobc/parser.y:2462
-msgid "RECORD clause invalid"
-msgstr "RECORD clause invalid"
-
-#: cobc/parser.y:3595
-msgid "multiple PROGRAM-ID's without matching END PROGRAM"
-msgstr "multiple PROGRAM-ID's without matching END PROGRAM"
-
-#: cobc/parser.y:3598
-msgid "executable requested but no program found"
-msgstr "executable requested but no program found"
-
-#: cobc/parser.y:3717
-msgid "prototypes must be come before any program/function definitions"
-msgstr "prototypes must be come before any program/function definitions"
-
-#: cobc/parser.y:3930
-msgid "COMMON may only be used in a contained program"
-msgstr "COMMON may only be used in a contained program"
-
-#: cobc/parser.y:4017
-msgid "CALL prototypes"
-msgstr "CALL prototypes"
-
-#: cobc/parser.y:4192 cobc/parser.y:4471 cobc/parser.y:4517 cobc/parser.y:4632
-#: cobc/parser.y:4846 cobc/parser.y:4943 cobc/parser.y:4982 cobc/parser.y:5041
-#: cobc/parser.y:5062 cobc/parser.y:5105 cobc/parser.y:5184 cobc/parser.y:5203
-#: cobc/parser.y:5219 cobc/parser.y:5237 cobc/parser.y:5255 cobc/parser.y:5272
-#: cobc/parser.y:5290 cobc/parser.y:7685 cobc/parser.y:9028
-#, c-format
-msgid "%s not allowed in nested programs"
-msgstr "%s not allowed in nested programs"
-
-#: cobc/parser.y:4345
-msgid "segment-number must be in range of values 1 to 49"
-msgstr "segment-number must be in range of values 1 to 49"
-
-#: cobc/parser.y:4357
-msgid "duplicate CLASSIFICATION clause"
-msgstr "duplicate CLASSIFICATION clause"
-
-#: cobc/parser.y:4436
-msgid "PROGRAM phrase"
-msgstr "PROGRAM phrase"
-
-#: cobc/parser.y:4538 cobc/parser.y:4549 cobc/parser.y:4895
-#, c-format
-msgid "invalid %s clause"
-msgstr "invalid %s clause"
-
-#: cobc/parser.y:4854 cobc/parser.y:4992
-msgid "type does not match alphabet"
-msgstr "type does not match alphabet"
-
-#: cobc/parser.y:4998
-msgid "CLASS IS integer IN alphabet-name"
-msgstr "CLASS IS integer IN alphabet-name"
-
-#: cobc/parser.y:5018 cobc/parser.y:5022
-msgid "CLASS literal with THRU must have size 1"
-msgstr "CLASS literal with THRU must have size 1"
-
-#: cobc/parser.y:5117
-msgid "separate currency symbol and currency string"
-msgstr "separate currency symbol and currency string"
-
-#: cobc/parser.y:5150
-#, c-format
-msgid "invalid CURRENCY SIGN '%s'"
-msgstr "invalid CURRENCY SIGN ‘%s’"
-
-#: cobc/parser.y:5377
-msgid "cannot use RELATIVE KEY clause on INDEXED files"
-msgstr "cannot use RELATIVE KEY clause on INDEXED files"
-
-#: cobc/parser.y:5381
-msgid "cannot use RECORD KEY clause on RELATIVE files"
-msgstr "cannot use RECORD KEY clause on RELATIVE files"
-
-#: cobc/parser.y:5453
-msgid "EXTERNAL/DYNAMIC cannot be used with literals"
-msgstr "EXTERNAL/DYNAMIC cannot be used with literals"
-
-#: cobc/parser.y:5473
-msgid "EXTERNAL/DYNAMIC cannot be used with USING/VARYING"
-msgstr "EXTERNAL/DYNAMIC cannot be used with USING/VARYING"
-
-#: cobc/parser.y:5484
-msgid "EXTERNAL/DYNAMIC cannot be used with DISK FROM"
-msgstr "EXTERNAL/DYNAMIC cannot be used with DISK FROM"
-
-#: cobc/parser.y:5608
-msgid "ASSIGN EXTERNAL/DYNAMIC"
-msgstr "ASSIGN EXTERNAL/DYNAMIC"
-
-#: cobc/parser.y:5724 cobc/parser.y:5921
-#, c-format
-msgid "%s only valid with ORGANIZATION %s"
-msgstr "%s only valid with ORGANIZATION %s"
-
-#: cobc/parser.y:5818 cobc/typeck.c:3818
-#, c-format
-msgid "'%s' is not an alphabet-name"
-msgstr "‘%s’ is not an alphabet-name"
-
-#: cobc/parser.y:5854
-msgid "VSAM status"
-msgstr "VSAM status"
-
-#: cobc/parser.y:5988 cobc/parser.y:6013
-#, c-format
-msgid "RECORD DELIMITER %s only allowed with SEQUENTIAL files"
-msgstr "RECORD DELIMITER %s only allowed with SEQUENTIAL files"
-
-#: cobc/parser.y:6000
-#, c-format
-msgid "RECORD DELIMITER %s only allowed with (LINE) SEQUENTIAL files"
-msgstr "RECORD DELIMITER %s only allowed with (LINE) SEQUENTIAL files"
-
-#: cobc/parser.y:6006
-msgid "LINE-SEQUENTIAL phrase"
-msgstr "LINE-SEQUENTIAL phrase"
-
-#: cobc/parser.y:6019
-msgid "BINARY-SEQUENTIAL phrase"
-msgstr "BINARY-SEQUENTIAL phrase"
-
-#: cobc/parser.y:6027
-msgid "RECORD DELIMITER clause only allowed with (LINE) SEQUENTIAL files"
-msgstr "RECORD DELIMITER clause only allowed with (LINE) SEQUENTIAL files"
-
-#: cobc/parser.y:6031
-#, c-format
-msgid "RECORD DELIMITER %s not recognized; will be ignored"
-msgstr "RECORD DELIMITER %s not recognized; will be ignored"
-
-#: cobc/parser.y:6069
-msgid "DUPLICATES for primary keys"
-msgstr "DUPLICATES for primary keys"
-
-#: cobc/parser.y:6313
-msgid "DOS/VS APPLY phrase"
-msgstr "DOS/VS APPLY phrase"
-
-#: cobc/parser.y:6467
-msgid "RECORD description missing or invalid"
-msgstr "RECORD description missing or invalid"
-
-#: cobc/parser.y:6494
-#, c-format
-msgid "duplicate file description for %s"
-msgstr "duplicate file description for %s"
-
-#: cobc/parser.y:6543 cobc/parser.y:7170 cobc/parser.y:7670 cobc/parser.y:13913
-#: cobc/parser.y:17210
-#, c-format
-msgid "%s is invalid in a user FUNCTION"
-msgstr "%s is invalid in a user FUNCTION"
-
-#: cobc/parser.y:6581 cobc/parser.y:6591
-msgid "RECORD clause ignored for LINE SEQUENTIAL"
-msgstr "RECORD clause ignored for LINE SEQUENTIAL"
-
-#: cobc/parser.y:6688
-msgid "LINAGE clause with wrong file type"
-msgstr "LINAGE clause with wrong file type"
-
-#: cobc/parser.y:6750
-msgid "RECORDING MODE U or S can only be used with RECORD SEQUENTIAL files"
-msgstr "RECORDING MODE U or S can only be used with RECORD SEQUENTIAL files"
-
-#: cobc/parser.y:6787
-#, c-format
-msgid "ignoring CODE-SET '%s'"
-msgstr "ignoring CODE-SET ‘%s’"
-
-#: cobc/parser.y:6796
-msgid "CODE-SET clause invalid for file type"
-msgstr "CODE-SET clause invalid for file type"
-
-#: cobc/parser.y:6817
-msgid "REPORT clause with wrong file type"
-msgstr "REPORT clause with wrong file type"
-
-#: cobc/parser.y:6899
-msgid "CD record missing"
-msgstr "CD record missing"
-
-#: cobc/parser.y:7372
-msgid "CONSTANT item not at 01 level"
-msgstr "CONSTANT item not at 01 level"
-
-#: cobc/parser.y:7517
-msgid "REDEFINES clause not following entry-name"
-msgstr "REDEFINES clause not following entry-name"
-
-#: cobc/parser.y:7590 cobc/parser.y:7620 cobc/parser.y:7662 cobc/parser.y:7751
-#: cobc/parser.y:8606
-#, c-format
-msgid "%s only allowed at 01/77 level"
-msgstr "%s only allowed at 01/77 level"
-
-#: cobc/parser.y:7593 cobc/parser.y:7622 cobc/parser.y:7664 cobc/parser.y:8608
-#: cobc/parser.y:8987 cobc/parser.y:9009
-#, c-format
-msgid "%s requires a data name"
-msgstr "%s requires a data name"
-
-#: cobc/parser.y:7597 cobc/parser.y:7846
-#, c-format
-msgid "%s not allowed in %s"
-msgstr "%s not allowed in %s"
-
-#: cobc/parser.y:7618 cobc/parser.y:7672 cobc/parser.y:8604 cobc/parser.y:8983
-#: cobc/parser.y:9007
-#, c-format
-msgid "%s not allowed here"
-msgstr "%s not allowed here"
-
-#: cobc/parser.y:7809
-#, c-format
-msgid "%s requires DEPENDING clause"
-msgstr "%s requires DEPENDING clause"
-
-#: cobc/parser.y:7825
-msgid "a locale-format PICTURE string must only consist of '9', '.', '+', 'Z' and the currency-sign"
-msgstr "a locale-format PICTURE string must only consist of '9', '.', '+', ‘Z’ and the currency-sign"
-
-#: cobc/parser.y:7835
-msgid "DEPENDING clause needs either an OCCURS clause or a variable-length PICTURE"
-msgstr "DEPENDING clause needs either an OCCURS clause or a variable-length PICTURE"
-
-#: cobc/parser.y:7841
-msgid "only USAGE DISPLAY may specify a variable-length PICTURE"
-msgstr "only USAGE DISPLAY may specify a variable-length PICTURE"
-
-#: cobc/parser.y:7893 cobc/typeck.c:4916
-#, c-format
-msgid "'%s' is not a locale-name"
-msgstr "‘%s’ is not a locale-name"
-
-#: cobc/parser.y:7939
-#, c-format
-msgid "'%s' is not a valid USAGE"
-msgstr "‘%s’ is not a valid USAGE"
-
-#: cobc/parser.y:7944
-#, c-format
-msgid "unknown USAGE: %s"
-msgstr "unknown USAGE: %s"
-
-#: cobc/parser.y:8139
-#, c-format
-msgid "unknown HANDLE type: %s"
-msgstr "unknown HANDLE type: %s"
-
-#: cobc/parser.y:8347
-#, c-format
-msgid "'%s' is not USAGE UTF-8"
-msgstr "‘%s’ is not USAGE UTF-8"
-
-#: cobc/parser.y:8448
-msgid "INDEXED should follow ASCENDING/DESCENDING"
-msgstr "INDEXED should follow ASCENDING/DESCENDING"
-
-#: cobc/parser.y:8658 cobc/parser.y:8660
-#, c-format
-msgid "unexpected %s"
-msgstr "unexpected %s"
-
-#: cobc/parser.y:8709
-msgid "amount of entries in FROM and TO must match"
-msgstr "amount of entries in FROM and TO must match"
-
-#: cobc/parser.y:8718
-#, c-format
-msgid "entry in FROM (%d) must be <= entry in TO (%d)"
-msgstr "entry in FROM (%d) must be <= entry in TO (%d)"
-
-#: cobc/parser.y:8985
-#, c-format
-msgid "%s only allowed at 01 level"
-msgstr "%s only allowed at 01 level"
-
-#: cobc/parser.y:8989 cobc/parser.y:9011
-#, c-format
-msgid "%s and %s combination not allowed"
-msgstr "%s and %s combination not allowed"
-
-#: cobc/parser.y:9127
-msgid "GLOBAL is not allowed with RD"
-msgstr "GLOBAL is not allowed with RD"
-
-#: cobc/parser.y:9650
-#, c-format
-msgid "%s is not valid for VARYING"
-msgstr "%s is not valid for VARYING"
-
-#: cobc/parser.y:9686
-msgid "LINE with OCCURS is not supported"
-msgstr "LINE with OCCURS is not supported"
-
-#: cobc/parser.y:9726
-msgid "PLUS is not recommended with LEFT, RIGHT or CENTER"
-msgstr "PLUS is not recommended with LEFT, RIGHT or CENTER"
-
-#: cobc/parser.y:9728
-msgid "PLUS is not allowed with LEFT, RIGHT or CENTER"
-msgstr "PLUS is not allowed with LEFT, RIGHT or CENTER"
-
-#: cobc/parser.y:9766
-msgid "PLUS is ignored on first field of line"
-msgstr "PLUS is ignored on first field of line"
-
-#: cobc/parser.y:9797
-msgid "invalid COLUMN integer; must be > 0"
-msgstr "invalid COLUMN integer; must be > 0"
-
-#: cobc/parser.y:9799
-msgid "COLUMN numbers should increase"
-msgstr "COLUMN numbers should increase"
-
-#: cobc/parser.y:9990 cobc/parser.y:9994
-msgid "screen positions from data-item"
-msgstr "screen positions from data-item"
-
-#: cobc/parser.y:10153
-#, c-format
-msgid "missing %s"
-msgstr "missing %s"
-
-#: cobc/parser.y:10840
-msgid "OCCURS screen items"
-msgstr "OCCURS screen items"
-
-#: cobc/parser.y:10852
-msgid "GLOBAL screen items"
-msgstr "GLOBAL screen items"
-
-#: cobc/parser.y:10904
-msgid "overriding convention specified in ENTRY-CONVENTION"
-msgstr "overriding convention specified in ENTRY-CONVENTION"
-
-#: cobc/parser.y:10917
-msgid "executable program requested but PROCEDURE/ENTRY has USING clause"
-msgstr "executable program requested but PROCEDURE/ENTRY has USING clause"
-
-#: cobc/parser.y:10987 cobc/parser.y:11004 cobc/parser.y:12667
-#, c-format
-msgid "number of arguments exceeds maximum %d"
-msgstr "number of arguments exceeds maximum %d"
-
-#: cobc/parser.y:10996
-msgid "CHAINING invalid in user FUNCTION"
-msgstr "CHAINING invalid in user FUNCTION"
-
-#: cobc/parser.y:11032
-msgid "ANY LENGTH items may only be BY REFERENCE formal parameters"
-msgstr "ANY LENGTH items may only be BY REFERENCE formal parameters"
-
-#: cobc/parser.y:11049 cobc/parser.y:12728 cobc/parser.y:12741
-#, c-format
-msgid "%s not allowed in CHAINED programs"
-msgstr "%s not allowed in CHAINED programs"
-
-#: cobc/parser.y:11051
-msgid "parameters passed BY VALUE"
-msgstr "parameters passed BY VALUE"
-
-#: cobc/parser.y:11066 cobc/parser.y:11075 cobc/parser.y:11083
-#: cobc/parser.y:11104
-msgid "SIZE only allowed for BY VALUE items"
-msgstr "SIZE only allowed for BY VALUE items"
-
-#: cobc/parser.y:11106 cobc/parser.y:11131
-msgid "invalid value for SIZE"
-msgstr "invalid value for SIZE"
-
-#: cobc/parser.y:11146
-msgid "MEMORY SIZE phrase in CALL statement"
-msgstr "MEMORY SIZE phrase in CALL statement"
-
-#: cobc/parser.y:11162
-msgid "OPTIONAL only allowed for BY REFERENCE items"
-msgstr "OPTIONAL only allowed for BY REFERENCE items"
-
-#: cobc/parser.y:11177
-msgid "RETURNING clause is required for a FUNCTION"
-msgstr "RETURNING clause is required for a FUNCTION"
-
-#: cobc/parser.y:11183
-msgid "RETURNING clause cannot be OMITTED for main program"
-msgstr "RETURNING clause cannot be OMITTED for main program"
-
-#: cobc/parser.y:11186
-msgid "RETURNING clause cannot be OMITTED for a FUNCTION"
-msgstr "RETURNING clause cannot be OMITTED for a FUNCTION"
-
-#: cobc/parser.y:11199
-msgid "RETURNING item is not defined in LINKAGE SECTION"
-msgstr "RETURNING item is not defined in LINKAGE SECTION"
-
-#: cobc/parser.y:11201
-msgid "RETURNING item must have level 01"
-msgstr "RETURNING item must have level 01"
-
-#: cobc/parser.y:11203
-msgid "RETURNING item should not have OCCURS"
-msgstr "RETURNING item should not have OCCURS"
-
-#: cobc/parser.y:11207
-msgid "function RETURNING item may not be ANY LENGTH"
-msgstr "function RETURNING item may not be ANY LENGTH"
-
-#: cobc/parser.y:11421
-#, c-format
-msgid "'%s' is not a statement"
-msgstr "‘%s’ is not a statement"
-
-#: cobc/parser.y:11424
-#, c-format
-msgid "unknown statement '%s'; it may exist in another dialect"
-msgstr "unknown statement '%s'; it may exist in another dialect"
-
-#: cobc/parser.y:11428
-#, c-format
-msgid "unknown statement '%s'"
-msgstr "unknown statement ‘%s’"
-
-#: cobc/parser.y:11446
-msgid "SECTION segment-number must be less than or equal to 99"
-msgstr "SECTION segment-number must be less than or equal to 99"
-
-#: cobc/parser.y:11449
-msgid "SECTION segment-number in DECLARATIVES must be less than 50"
-msgstr "SECTION segment-number in DECLARATIVES must be less than 50"
-
-#: cobc/parser.y:11457
-msgid "SECTION segment within DECLARATIVES"
-msgstr "SECTION segment within DECLARATIVES"
-
-#: cobc/parser.y:11667 cobc/parser.y:11806
-msgid "non-standard ACCEPT"
-msgstr "non-standard ACCEPT"
-
-#: cobc/parser.y:11679
-msgid "PROMPT clause"
-msgstr "PROMPT clause"
-
-#: cobc/parser.y:11683
-msgid "SIZE IS clause"
-msgstr "SIZE IS clause"
-
-#: cobc/parser.y:11907 cobc/parser.y:12226
-msgid "TIME-OUT or BEFORE TIME clauses"
-msgstr "TIME-OUT or BEFORE TIME clauses"
-
-#: cobc/parser.y:11937 cobc/parser.y:11960 cobc/parser.y:11978
-msgid "AT screen-location"
-msgstr "AT screen-location"
-
-#: cobc/parser.y:11979
-msgid "LINE or COLUMN"
-msgstr "LINE or COLUMN"
-
-#: cobc/parser.y:12358
-msgid "ALLOCATE CHARACTERS requires RETURNING clause"
-msgstr "ALLOCATE CHARACTERS requires RETURNING clause"
-
-#: cobc/parser.y:12373
-#, c-format
-msgid "ignoring %s phrase"
-msgstr "ignoring %s phrase"
-
-#: cobc/parser.y:12375
-msgid "addressing mode should be either 24 or 31 bit"
-msgstr "addressing mode should be either 24 or 31 bit"
-
-#: cobc/parser.y:12446
-msgid "CALL to own PROGRAM-ID"
-msgstr "CALL to own PROGRAM-ID"
-
-#: cobc/parser.y:12447
-msgid "assuming RECURSIVE attribute"
-msgstr "assuming RECURSIVE attribute"
-
-#: cobc/parser.y:12467
-msgid "STATIC CALL convention ignored because of ON EXCEPTION"
-msgstr "STATIC CALL convention ignored because of ON EXCEPTION"
-
-#: cobc/parser.y:12476
-msgid "ON EXCEPTION ignored because of STATIC CALL"
-msgstr "ON EXCEPTION ignored because of STATIC CALL"
-
-#: cobc/parser.y:12594 cobc/typeck.c:14450
-msgid "invalid mnemonic name"
-msgstr "invalid mnemonic name"
-
-#: cobc/parser.y:12618
-msgid "id/literal ignored, using prototype name"
-msgstr "id/literal ignored, using prototype name"
-
-#: cobc/parser.y:12624
-msgid "NESTED phrase is only valid with literal"
-msgstr "NESTED phrase is only valid with literal"
-
-#: cobc/parser.y:12685
-#, c-format
-msgid "%s only allowed when arguments are passed %s"
-msgstr "%s only allowed when arguments are passed %s"
-
-#: cobc/parser.y:12776
-msgid "RETURNING item must have level 01 or 77"
-msgstr "RETURNING item must have level 01 or 77"
-
-#: cobc/parser.y:12780
-msgid "RETURNING item must be a LINKAGE SECTION item or have BASED clause"
-msgstr "RETURNING item must be a LINKAGE SECTION item or have BASED clause"
-
-#: cobc/parser.y:12814 cobc/parser.y:17937 cobc/parser.y:18000
-msgid "NOT EXCEPTION before EXCEPTION"
-msgstr "NOT EXCEPTION before EXCEPTION"
-
-#: cobc/parser.y:13572
-#, c-format
-msgid "HANDLE must be a %s HANDLE"
-msgstr "HANDLE must be a %s HANDLE"
-
-#: cobc/parser.y:13584
-msgid "HANDLE must be a generic HANDLE"
-msgstr "HANDLE must be a generic HANDLE"
-
-#: cobc/parser.y:13661
-#, c-format
-msgid "HANDLE clause invalid for %s"
-msgstr "HANDLE clause invalid for %s"
-
-#: cobc/parser.y:13911 cobc/parser.y:17400
-#, c-format
-msgid "%s is invalid in nested program"
-msgstr "%s is invalid in nested program"
-
-#: cobc/parser.y:13940 cobc/parser.y:13983 cobc/parser.y:13994
-#: cobc/parser.y:14005
-#, c-format
-msgid "maximum evaluate depth exceeded (%d)"
-msgstr "maximum evaluate depth exceeded (%d)"
-
-#: cobc/parser.y:14048 cobc/parser.y:14089 cobc/parser.y:14633
-#: cobc/parser.y:14644 cobc/parser.y:14653 cobc/parser.y:17959
-#: cobc/parser.y:17981 cobc/parser.y:18022 cobc/parser.y:18038
-#: cobc/parser.y:18078 cobc/parser.y:18095 cobc/parser.y:18132
-#: cobc/parser.y:18149 cobc/parser.y:18199 cobc/parser.y:18216
-#: cobc/parser.y:18252 cobc/parser.y:18269 cobc/parser.y:18310
-#: cobc/parser.y:18327
-#, c-format
-msgid "%s without imperative statement"
-msgstr "%s without imperative statement"
-
-#: cobc/parser.y:14056 cobc/parser.y:14066
-msgid "WHEN without imperative statement"
-msgstr "WHEN without imperative statement"
-
-#: cobc/parser.y:14097 cobc/parser.y:14107
-msgid "WHEN OTHER without imperative statement"
-msgstr "WHEN OTHER without imperative statement"
-
-#: cobc/parser.y:14191
-msgid "invalid THROUGH usage"
-msgstr "invalid THROUGH usage"
-
-#: cobc/parser.y:14372
-msgid "EXIT PROGRAM is not allowed within a USE GLOBAL procedure"
-msgstr "EXIT PROGRAM is not allowed within a USE GLOBAL procedure"
-
-#: cobc/parser.y:14376
-msgid "EXIT PROGRAM not allowed within a FUNCTION"
-msgstr "EXIT PROGRAM not allowed within a FUNCTION"
-
-#: cobc/parser.y:14390
-msgid "EXIT FUNCTION is not allowed within a USE GLOBAL procedure"
-msgstr "EXIT FUNCTION is not allowed within a USE GLOBAL procedure"
-
-#: cobc/parser.y:14394
-msgid "EXIT FUNCTION only allowed within a FUNCTION"
-msgstr "EXIT FUNCTION only allowed within a FUNCTION"
-
-#: cobc/parser.y:14408 cobc/parser.y:14431
-msgid "EXIT PERFORM is only valid with inline PERFORM"
-msgstr "EXIT PERFORM is only valid with inline PERFORM"
-
-#: cobc/parser.y:14453
-msgid "EXIT SECTION is only valid with an active SECTION"
-msgstr "EXIT SECTION is only valid with an active SECTION"
-
-#: cobc/parser.y:14474
-msgid "EXIT PARAGRAPH is only valid with an active PARAGRAPH"
-msgstr "EXIT PARAGRAPH is only valid with an active PARAGRAPH"
-
-#: cobc/parser.y:14497
-msgid "RETURNING/GIVING not allowed for non-returning runtime elements"
-msgstr "RETURNING/GIVING not allowed for non-returning runtime elements"
-
-#: cobc/parser.y:14640
-msgid "IF without imperative statement"
-msgstr "IF without imperative statement"
-
-#: cobc/parser.y:14983 cobc/parser.y:14992
-msgid "single-character literal or data item expected"
-msgstr "single-character literal or data item expected"
-
-#: cobc/parser.y:15010
-msgid "TALLYING clause is incomplete"
-msgstr "TALLYING clause is incomplete"
-
-#: cobc/parser.y:15126
-msgid "INSPECT missing ALL/FIRST/LEADING/TRAILING"
-msgstr "INSPECT missing ALL/FIRST/LEADING/TRAILING"
-
-#: cobc/parser.y:15390
-msgid "LOCK clauses"
-msgstr "LOCK clauses"
-
-#: cobc/parser.y:15547
-msgid "inline PERFORM without imperative statement"
-msgstr "inline PERFORM without imperative statement"
-
-#: cobc/parser.y:15670 cobc/parser.y:15678 cobc/parser.y:15686
-#, c-format
-msgid "PERFORM VARYING '%s' (line %d of %s) is not a numeric field"
-msgstr "PERFORM VARYING ‘%s’ (line %d of %s) is not a numeric field"
-
-#: cobc/parser.y:15702
-msgid "PERFORM VARYING without BY phrase"
-msgstr "PERFORM VARYING without BY phrase"
-
-#: cobc/parser.y:15742
-#, c-format
-msgid "'%s' is not an object-reference"
-msgstr "‘%s’ is not an object-reference"
-
-#: cobc/parser.y:15782 cobc/typeck.c:13066 cobc/typeck.c:14358
-msgid "LOCK clause invalid with file LOCK AUTOMATIC"
-msgstr "LOCK clause invalid with file LOCK AUTOMATIC"
-
-#: cobc/parser.y:15787
-msgid "KEY clause invalid with this file type"
-msgstr "KEY clause invalid with this file type"
-
-#: cobc/parser.y:15792 cobc/typeck.c:13062 cobc/typeck.c:14354
-msgid "INVALID KEY clause invalid with this file type"
-msgstr "INVALID KEY clause invalid with this file type"
-
-#: cobc/parser.y:16494
-msgid "MERGE requires KEY phrase"
-msgstr "MERGE requires KEY phrase"
-
-#: cobc/parser.y:16498
-msgid "file SORT requires KEY phrase"
-msgstr "file SORT requires KEY phrase"
-
-#: cobc/parser.y:16522
-msgid "table SORT requires KEY phrase"
-msgstr "table SORT requires KEY phrase"
-
-#: cobc/parser.y:16527
-msgid "must be an SD filename"
-msgstr "must be an SD filename"
-
-#: cobc/parser.y:16585
-msgid "MERGE requires USING files"
-msgstr "MERGE requires USING files"
-
-#: cobc/parser.y:16587
-msgid "file SORT requires USING or INPUT PROCEDURE"
-msgstr "file SORT requires USING or INPUT PROCEDURE"
-
-#: cobc/parser.y:16595
-msgid "USING invalid with table SORT"
-msgstr "USING invalid with table SORT"
-
-#: cobc/parser.y:16605
-msgid "INPUT PROCEDURE invalid with table SORT"
-msgstr "INPUT PROCEDURE invalid with table SORT"
-
-#: cobc/parser.y:16607
-msgid "INPUT PROCEDURE invalid with MERGE"
-msgstr "INPUT PROCEDURE invalid with MERGE"
-
-#: cobc/parser.y:16621
-msgid "MERGE requires GIVING or OUTPUT PROCEDURE"
-msgstr "MERGE requires GIVING or OUTPUT PROCEDURE"
-
-#: cobc/parser.y:16623
-msgid "file SORT requires GIVING or OUTPUT PROCEDURE"
-msgstr "file SORT requires GIVING or OUTPUT PROCEDURE"
-
-#: cobc/parser.y:16631
-msgid "GIVING invalid with table SORT"
-msgstr "GIVING invalid with table SORT"
-
-#: cobc/parser.y:16641
-msgid "OUTPUT PROCEDURE invalid with table SORT"
-msgstr "OUTPUT PROCEDURE invalid with table SORT"
-
-#: cobc/parser.y:16668
-msgid "SIZE/LENGTH invalid here"
-msgstr "SIZE/LENGTH invalid here"
-
-#: cobc/parser.y:16717
-msgid "NOT EQUAL condition not allowed on START statement"
-msgstr "NOT EQUAL condition not allowed on START statement"
-
-#: cobc/parser.y:16776
-#, c-format
-msgid "%s is replaced by %s"
-msgstr "%s is replaced by %s"
-
-#: cobc/parser.y:16825
-msgid "STOP literal"
-msgstr "STOP literal"
-
-#: cobc/parser.y:16829
-msgid "STOP identifier"
-msgstr "STOP identifier"
-
-#: cobc/parser.y:16969
-msgid "SUPPRESS statement must be within DECLARATIVES"
-msgstr "SUPPRESS statement must be within DECLARATIVES"
-
-#: cobc/parser.y:17043
-msgid "UNLOCK invalid for SD files"
-msgstr "UNLOCK invalid for SD files"
-
-#: cobc/parser.y:17180 cobc/parser.y:17260
-msgid "USE statement must be within DECLARATIVES"
-msgstr "USE statement must be within DECLARATIVES"
-
-#: cobc/parser.y:17182
-msgid "SECTION header missing before USE statement"
-msgstr "SECTION header missing before USE statement"
-
-#: cobc/parser.y:17262
-msgid "USE DEBUGGING not supported in contained program"
-msgstr "USE DEBUGGING not supported in contained program"
-
-#: cobc/parser.y:17310 cobc/parser.y:17319 cobc/parser.y:17337
-#: cobc/parser.y:17373 cobc/typeck.c:5050
-#, c-format
-msgid "duplicate DEBUGGING target: '%s'"
-msgstr "duplicate DEBUGGING target: ‘%s’"
-
-#: cobc/parser.y:17335
-msgid "constant item cannot be used here"
-msgstr "constant item cannot be used here"
-
-#: cobc/parser.y:17361
-msgid "duplicate USE DEBUGGING ON ALL PROCEDURES"
-msgstr "duplicate USE DEBUGGING ON ALL PROCEDURES"
-
-#: cobc/parser.y:17614
-msgid "ENCODING clause must come before XML-DECLARATION"
-msgstr "ENCODING clause must come before XML-DECLARATION"
-
-#: cobc/parser.y:17616
-msgid "ENCODING clause must come before ATTRIBUTES"
-msgstr "ENCODING clause must come before ATTRIBUTES"
-
-#: cobc/parser.y:17619
-msgid "XML GENERATE ENCODING clause"
-msgstr "XML GENERATE ENCODING clause"
-
-#: cobc/parser.y:17626
-msgid "XML-DECLARATION clause must come before ATTRIBUTES"
-msgstr "XML-DECLARATION clause must come before ATTRIBUTES"
-
-#: cobc/parser.y:17629
-msgid "XML GENERATE XML-DECLARATION clause"
-msgstr "XML GENERATE XML-DECLARATION clause"
-
-#: cobc/parser.y:17635
-msgid "XML GENERATE WITH ATTRIBUTES clause"
-msgstr "XML GENERATE WITH ATTRIBUTES clause"
-
-#: cobc/parser.y:17648
-msgid "XML GENERATE NAMESPACE clause"
-msgstr "XML GENERATE NAMESPACE clause"
-
-#: cobc/parser.y:17672
-msgid "XML GENERATE NAME OF clause"
-msgstr "XML GENERATE NAME OF clause"
-
-#: cobc/parser.y:17736
-msgid "XML GENERATE TYPE OF clause"
-msgstr "XML GENERATE TYPE OF clause"
-
-#: cobc/parser.y:17777
-msgid "XML GENERATE SUPPRESS clause"
-msgstr "XML GENERATE SUPPRESS clause"
-
-#: cobc/parser.y:17920
-#, c-format
-msgid "'%s' is not a schema name"
-msgstr "‘%s’ is not a schema name"
-
-#: cobc/parser.y:18055
-msgid "NOT SIZE ERROR before SIZE ERROR"
-msgstr "NOT SIZE ERROR before SIZE ERROR"
-
-#: cobc/parser.y:18109
-msgid "NOT OVERFLOW before OVERFLOW"
-msgstr "NOT OVERFLOW before OVERFLOW"
-
-#: cobc/parser.y:18161 cobc/parser.y:18176
-msgid "NOT AT END before AT END"
-msgstr "NOT AT END before AT END"
-
-#: cobc/parser.y:18229
-msgid "NOT AT END-OF-PAGE before AT END-OF-PAGE"
-msgstr "NOT AT END-OF-PAGE before AT END-OF-PAGE"
-
-#: cobc/parser.y:18287
-msgid "NOT INVALID KEY before INVALID KEY"
-msgstr "NOT INVALID KEY before INVALID KEY"
-
-#: cobc/parser.y:18644
-msgid "LINAGE-COUNTER must be qualified here"
-msgstr "LINAGE-COUNTER must be qualified here"
-
-#: cobc/parser.y:18647
-msgid "invalid LINAGE-COUNTER usage"
-msgstr "invalid LINAGE-COUNTER usage"
-
-#: cobc/parser.y:18658 cobc/parser.y:18754 cobc/parser.y:18843
-#, c-format
-msgid "'%s' is not a file name"
-msgstr "‘%s’ is not a file name"
-
-#: cobc/parser.y:18668
-msgid "LINE-COUNTER must be qualified here"
-msgstr "LINE-COUNTER must be qualified here"
-
-#: cobc/parser.y:18672
-msgid "invalid LINE-COUNTER usage"
-msgstr "invalid LINE-COUNTER usage"
-
-#: cobc/parser.y:18683 cobc/parser.y:18708
-#, c-format
-msgid "'%s' is not a report name"
-msgstr "‘%s’ is not a report name"
-
-#: cobc/parser.y:18693
-msgid "PAGE-COUNTER must be qualified here"
-msgstr "PAGE-COUNTER must be qualified here"
-
-#: cobc/parser.y:18697
-msgid "invalid PAGE-COUNTER usage"
-msgstr "invalid PAGE-COUNTER usage"
-
-#: cobc/parser.y:18744 cobc/typeck.c:13027 cobc/typeck.c:13110
-#: cobc/typeck.c:14322
-#, c-format
-msgid "%s requires a record name as subject"
-msgstr "%s requires a record name as subject"
-
-#: cobc/parser.y:18771
-#, c-format
-msgid "'%s' not indexed"
-msgstr "‘%s’ not indexed"
-
-#: cobc/parser.y:18776
-msgid "SEARCH ALL requires KEY phrase"
-msgstr "SEARCH ALL requires KEY phrase"
-
-#: cobc/parser.y:18800 cobc/parser.y:18825
-#, c-format
-msgid "multiple reference to '%s' "
-msgstr "multiple reference to ‘%s’ "
-
-#: cobc/parser.y:18855
-#, c-format
-msgid "'%s' is not a CD name"
-msgstr "‘%s’ is not a CD name"
-
-#: cobc/parser.y:18869
-#, c-format
-msgid "'%s' is not a valid report name"
-msgstr "‘%s’ is not a valid report name"
-
-#: cobc/parser.y:19134
-msgid "invalid mnemonic identifier"
-msgstr "invalid mnemonic identifier"
-
-#: cobc/parser.y:19214
-msgid "an alphanumeric literal is expected here"
-msgstr "an alphanumeric literal is expected here"
-
-#: cobc/parser.y:19226
-msgid "a numeric literal is expected here"
-msgstr "a numeric literal is expected here"
-
-#: cobc/parser.y:19238 cobc/parser.y:19979
-msgid "a non-numeric literal is expected here"
-msgstr "a non-numeric literal is expected here"
-
-#: cobc/parser.y:19404 cobc/typeck.c:993 cobc/typeck.c:4825 cobc/typeck.c:7679
-#: cobc/typeck.c:7686
-#, c-format
-msgid "'%s' is not numeric"
-msgstr "‘%s’ is not numeric"
-
-#: cobc/parser.y:19420
-#, c-format
-msgid "'%s' is not a field or file"
-msgstr "‘%s’ is not a field or file"
-
-#: cobc/parser.y:19446
-#, c-format
-msgid "'%s' is not a type-name"
-msgstr "‘%s’ is not a type-name"
-
-#: cobc/parser.y:19526 cobc/typeck.c:2345 cobc/typeck.c:2401 cobc/typeck.c:2550
-#, c-format
-msgid "'%s' cannot be reference modified"
-msgstr "‘%s’ cannot be reference modified"
-
-#: cobc/parser.y:19627
-#, c-format
-msgid "'%s' is not a field or alphabet"
-msgstr "‘%s’ is not a field or alphabet"
-
-#: cobc/parser.y:19653
-msgid "a subscripted data-item cannot be used here"
-msgstr "a subscripted data-item cannot be used here"
-
-#: cobc/parser.y:19701
-msgid "unsigned integer value expected"
-msgstr "unsigned integer value expected"
-
-#: cobc/parser.y:19713 cobc/parser.y:19717 cobc/parser.y:19767
-msgid "integer value expected"
-msgstr "integer value expected"
-
-#: cobc/parser.y:19722
-msgid "invalid symbolic integer"
-msgstr "invalid symbolic integer"
-
-#: cobc/parser.y:19738 cobc/parser.y:19742
-msgid "unsigned positive integer value expected"
-msgstr "unsigned positive integer value expected"
-
-#: cobc/parser.y:19772
-#, c-format
-msgid "CLASS value %d outside of range for the used character set"
-msgstr "CLASS value %d outside of range for the used character set"
-
-#: cobc/parser.y:19859
-msgid "PHYSICAL argument for LENGTH functions"
-msgstr "PHYSICAL argument for LENGTH functions"
-
-#: cobc/parser.y:20031 cobc/parser.y:20048
-msgid "cannot specify offset and SYSTEM-OFFSET at the same time"
-msgstr "cannot specify offset and SYSTEM-OFFSET at the same time"
-
-#: cobc/parser.y:20228
-msgid "terminator"
-msgstr "terminator"
-
-#: cobc/parser.y:20317 cobc/parser.y:20327 cobc/parser.y:20338
-#: cobc/parser.y:20348 cobc/parser.y:20369 cobc/parser.y:20389
-#: cobc/parser.y:20396
-msgid "optional period"
-msgstr "optional period"
-
-#: cobc/pplex.l:261 cobc/pplex.l:2448 cobc/pplex.l:2462
-msgid "debugging indicator"
-msgstr "debugging indicator"
-
-#: cobc/pplex.l:348
-msgid "ignoring empty directive"
-msgstr "ignoring empty directive"
-
-#: cobc/pplex.l:358 cobc/pplex.l:431
-#, c-format
-msgid "ignoring invalid directive: '%s'"
-msgstr "ignoring invalid directive: ‘%s’"
-
-#: cobc/pplex.l:365
-msgid "ignoring invalid directive"
-msgstr "ignoring invalid directive"
-
-#: cobc/pplex.l:372
-msgid "VCS directive"
-msgstr "VCS directive"
-
-#: cobc/pplex.l:440 cobc/pplex.l:461
-#, c-format
-msgid "ignoring unknown directive: '%s'"
-msgstr "ignoring unknown directive: ‘%s’"
-
-#: cobc/pplex.l:1164
-msgid "IF/ELIF/ELSE directive without matching END-IF"
-msgstr "IF/ELIF/ELSE directive without matching END-IF"
-
-#: cobc/pplex.l:1332
-msgid "free format detected"
-msgstr "free format detected"
-
-#: cobc/pplex.l:1608
-#, c-format
-msgid "copybook not found in library '%s', library-name ignored"
-msgstr "copybook not found in library '%s', library-name ignored"
-
-#: cobc/pplex.l:1667
-#, c-format
-msgid "ignoring %s directive because of %s"
-msgstr "ignoring %s directive because of %s"
-
-#: cobc/pplex.l:1854
-#, c-format
-msgid "directive nest depth exceeded: %d"
-msgstr "directive nest depth exceeded: %d"
-
-#: cobc/pplex.l:1872
-msgid "ELSE directive without matching IF/ELIF"
-msgstr "ELSE directive without matching IF/ELIF"
-
-#: cobc/pplex.l:1888
-msgid "END-IF directive without matching IF/ELIF/ELSE"
-msgstr "END-IF directive without matching IF/ELIF/ELSE"
-
-#: cobc/pplex.l:1904
-msgid "ELIF directive without matching IF/ELIF"
-msgstr "ELIF directive without matching IF/ELIF"
-
-#: cobc/pplex.l:1926
-#, c-format
-msgid "invalid internal case: %u"
-msgstr "invalid internal case: %u"
-
-#: cobc/pplex.l:2139
-msgid "buffer overrun - too many continuation lines"
-msgstr "buffer overrun - too many continuation lines"
-
-#: cobc/pplex.l:2236 cobc/pplex.l:2246
-msgid "line not terminated by a newline"
-msgstr "line not terminated by a newline"
-
-#: cobc/pplex.l:2240 cobc/pplex.l:2250
-#, c-format
-msgid "source text exceeds %d bytes, will be truncated"
-msgstr "source text exceeds %d bytes, will be truncated"
-
-#: cobc/pplex.l:2269
-msgid "version control conflict marker in file"
-msgstr "version control conflict marker in file"
-
-#: cobc/pplex.l:2423
-msgid "invalid continuation in comment entry"
-msgstr "invalid continuation in comment entry"
-
-#: cobc/pplex.l:2470
-#, c-format
-msgid "invalid indicator '\\' at column %d"
-msgstr "invalid indicator ‘\\’ at column %d"
-
-#: cobc/pplex.l:2482
-#, c-format
-msgid "invalid indicator '%c' at column %d"
-msgstr "invalid indicator ‘%c’ at column %d"
-
-#: cobc/pplex.l:2541 cobc/pplex.l:2552
-msgid "invalid line continuation"
-msgstr "invalid line continuation"
-
-#: cobc/pplex.l:2560
-msgid "continuation character expected"
-msgstr "continuation character expected"
-
-#: cobc/pplex.l:2628
-#, c-format
-msgid "source text after program-text area (column %d)"
-msgstr "source text after program-text area (column %d)"
-
-#: cobc/ppparse.y:102 cobc/ppparse.y:106
-msgid "partial replacing with literal"
-msgstr "partial replacing with literal"
-
-#: cobc/ppparse.y:109
-msgid "unexpected COBOL word in partial replacement phrase"
-msgstr "unexpected COBOL word in partial replacement phrase"
-
-#: cobc/ppparse.y:176
-msgid "invalid partial replacing operand"
-msgstr "invalid partial replacing operand"
-
-#: cobc/ppparse.y:291
-msgid "directive comparison on different types"
-msgstr "directive comparison on different types"
-
-#: cobc/ppparse.y:359
-#, c-format
-msgid "duplicate DEFINE directive '%s'"
-msgstr "duplicate DEFINE directive ‘%s’"
-
-#: cobc/ppparse.y:366 cobc/ppparse.y:376
-#, c-format
-msgid "invalid constant %s in DEFINE directive"
-msgstr "invalid constant %s in DEFINE directive"
-
-#: cobc/ppparse.y:474
-#, c-format
-msgid "compiler flag '%s' unknown"
-msgstr "compiler flag ‘%s’ unknown"
-
-#: cobc/ppparse.y:521
-#, c-format
-msgid "invalid %s directive option '%s'"
-msgstr "invalid %s directive option ‘%s’"
-
-#: cobc/ppparse.y:523
-#, c-format
-msgid "invalid %s directive option"
-msgstr "invalid %s directive option"
-
-#: cobc/ppparse.y:875 cobc/ppparse.y:884 cobc/ppparse.y:1294
-#, c-format
-msgid "invalid %s directive"
-msgstr "invalid %s directive"
-
-#: cobc/ppparse.y:1366
-msgid "LEAP-SECOND ON directive"
-msgstr "LEAP-SECOND ON directive"
-
-#: cobc/ppparse.y:1475 cobc/ppparse.y:1507
-msgid "invalid constant"
-msgstr "invalid constant"
-
-#: cobc/reserved.c:4029
-msgid "device name"
-msgstr "device name"
-
-#: cobc/reserved.c:4032
-msgid "switch name"
-msgstr "switch name"
-
-#: cobc/reserved.c:4035
-msgid "feature name"
-msgstr "feature name"
-
-#: cobc/reserved.c:4146
-#, c-format
-msgid "reserved word (%s) must have less than %d characters"
-msgstr "reserved word (%s) must have less than %d characters"
-
-#: cobc/reserved.c:4166
-#, c-format
-msgid "reserved word (%s) may not contain '%c'"
-msgstr "reserved word (%s) may not contain ‘%c’"
-
-#: cobc/reserved.c:4183
-msgid "ignored asterisk at end of alias target"
-msgstr "ignored asterisk at end of alias target"
-
-#: cobc/reserved.c:4248
-#, c-format
-msgid "alias target '%s' is not a default reserved word"
-msgstr "alias target ‘%s’ is not a default reserved word"
-
-#: cobc/reserved.c:4738
-#, c-format
-msgid "invalid system-name '%s'"
-msgstr "invalid system-name ‘%s’"
-
-#: cobc/reserved.c:4902
-#, c-format
-msgid "'%s' is a reserved word, but isn't supported"
-msgstr "‘%s’ is a reserved word, but isn't supported"
-
-#: cobc/reserved.c:5005
-#, c-format
-msgid "intrinsic function %s is unknown"
-msgstr "intrinsic function %s is unknown"
-
-#: cobc/reserved.c:5033
-msgid "Intrinsic Function"
-msgstr "Intrinsic Function"
-
-#: cobc/reserved.c:5033 cobc/reserved.c:5266 cobc/reserved.c:5403
-msgid "Implemented"
-msgstr "Implemented"
-
-#: cobc/reserved.c:5033 cobc/typeck.c:1178
-msgid "Parameters"
-msgstr "Parameters"
-
-#: cobc/reserved.c:5037 cobc/reserved.c:5270 cobc/reserved.c:5417
-#: cobc/reserved.c:5423
-msgid "Yes"
-msgstr "Yes"
-
-#: cobc/reserved.c:5040 cobc/reserved.c:5273 cobc/reserved.c:5427
-msgid "No"
-msgstr "No"
-
-#: cobc/reserved.c:5046
-msgid "Unlimited"
-msgstr "Unlimited"
-
-#: cobc/reserved.c:5063
-msgid "Exception Name"
-msgstr "Exception Name"
-
-#: cobc/reserved.c:5165
-#, c-format
-msgid "special register '%s' is unknown, needs a definition"
-msgstr "special register ‘%s’ is unknown, needs a definition"
-
-#: cobc/reserved.c:5172
-#, c-format
-msgid "special register '%s' has a bad definition: %s"
-msgstr "special register ‘%s’ has a bad definition: %s"
-
-#: cobc/reserved.c:5176
-#, c-format
-msgid "special register '%s' is unknown"
-msgstr "special register ‘%s’ is unknown"
-
-#: cobc/reserved.c:5266
-msgid "Internal registers"
-msgstr "Internal registers"
-
-#: cobc/reserved.c:5266
-msgid "Definition"
-msgstr "Definition"
-
-#: cobc/reserved.c:5354
-#, c-format
-msgid "unknown system-name '%s'"
-msgstr "unknown system-name ‘%s’"
-
-#: cobc/reserved.c:5380
-msgid "System names"
-msgstr "System names"
-
-#: cobc/reserved.c:5403
-msgid "Reserved Words"
-msgstr "Reserved Words"
-
-#: cobc/reserved.c:5415
-msgid "Yes (Context sensitive)"
-msgstr "Yes (Context sensitive)"
-
-#: cobc/reserved.c:5425
-msgid "No (Context sensitive)"
-msgstr "No (Context sensitive)"
-
-#: cobc/scanner.l:281
-#, c-format
-msgid "'%s' is not a reserved word, so cannot be removed"
-msgstr "‘%s’ is not a reserved word, so cannot be removed"
-
-#: cobc/scanner.l:329
-msgid "separator period in Area A"
-msgstr "separator period in Area A"
-
-#: cobc/scanner.l:1096
-#, c-format
-msgid "a constant may not be used here - '%s'"
-msgstr "a constant may not be used here - ‘%s’"
-
-#: cobc/scanner.l:1170
-msgid "ignoring redundant ."
-msgstr "ignoring redundant ."
-
-#: cobc/scanner.l:1249
-#, c-format
-msgid "invalid symbol '%s' - skipping word"
-msgstr "invalid symbol ‘%s’ - skipping word"
-
-#: cobc/scanner.l:1323
-msgid "invalid national literal"
-msgstr "invalid national literal"
-
-#: cobc/scanner.l:1327 cobc/tree.c:2822
-#, c-format
-msgid "invalid literal: '%s'"
-msgstr "invalid literal: ‘%s’"
-
-#: cobc/scanner.l:1329
-#, c-format
-msgid "invalid hexadecimal literal: '%s'"
-msgstr "invalid hexadecimal literal: ‘%s’"
-
-#: cobc/scanner.l:1331 cobc/tree.c:1803
-#, c-format
-msgid "invalid numeric literal: '%s'"
-msgstr "invalid numeric literal: ‘%s’"
-
-#: cobc/scanner.l:1333
-#, c-format
-msgid "invalid floating-point literal: '%s'"
-msgstr "invalid floating-point literal: ‘%s’"
-
-#: cobc/scanner.l:1335 cobc/scanner.l:1337
-#, c-format
-msgid "invalid %s literal: '%s'"
-msgstr "invalid %s literal: ‘%s’"
-
-#: cobc/scanner.l:1365
-#, c-format
-msgid "character code %s out of encoding range %s"
-msgstr "character code %s out of encoding range %s"
-
-#: cobc/scanner.l:1422
-msgid "extraneous separator ',' at end of symbolic EBCDIC characters"
-msgstr "extraneous separator ‘,’ at end of symbolic EBCDIC characters"
-
-#: cobc/scanner.l:1435
-msgid "extraneous character ',' in sequence of symbolic EBCDIC characters"
-msgstr "extraneous character ‘,’ in sequence of symbolic EBCDIC characters"
-
-#: cobc/scanner.l:1440
-#, c-format
-msgid "invalid character '%c' in sequence of symbolic EBCDIC characters"
-msgstr "invalid character ‘%c’ in sequence of symbolic EBCDIC characters"
-
-#: cobc/scanner.l:1470
-#, c-format
-msgid "literal length exceeds %u characters"
-msgstr "literal length exceeds %u characters"
-
-#: cobc/scanner.l:1485
-#, c-format
-msgid "missing terminating %c character"
-msgstr "missing terminating %c character"
-
-#: cobc/scanner.l:1502 cobc/scanner.l:1569 cobc/scanner.l:1868
-msgid "zero-length literal"
-msgstr "zero-length literal"
-
-#: cobc/scanner.l:1505
-msgid "national literal has zero length; a SPACE will be assumed"
-msgstr "national literal has zero length; a SPACE will be assumed"
-
-#: cobc/scanner.l:1506
-msgid "alphanumeric literal has zero length; a SPACE will be assumed"
-msgstr "alphanumeric literal has zero length; a SPACE will be assumed"
-
-#: cobc/scanner.l:1519
-msgid "UTF-8 literal"
-msgstr "UTF-8 literal"
-
-#: cobc/scanner.l:1536 cobc/scanner.l:1537 cobc/scanner.l:1541
-#: cobc/scanner.l:1624
-msgid "national literal"
-msgstr "national literal"
-
-#: cobc/scanner.l:1540
-msgid "national-character literal"
-msgstr "national-character literal"
-
-#: cobc/scanner.l:1571
-msgid "hexadecimal literal has zero length; X'00' will be assumed"
-msgstr "hexadecimal literal has zero length; X'00' will be assumed"
-
-#: cobc/scanner.l:1575 cobc/scanner.l:1601
-msgid "hexadecimal-boolean literal"
-msgstr "hexadecimal-boolean literal"
-
-#: cobc/scanner.l:1579 cobc/scanner.l:1619
-msgid "hexadecimal-national literal"
-msgstr "hexadecimal-national literal"
-
-#: cobc/scanner.l:1609 cobc/scanner.l:1629 cobc/scanner.l:1744
-#: cobc/scanner.l:1798 cobc/scanner.l:1893 cobc/scanner.l:1963
-#, c-format
-msgid "literal length %lu exceeds %u characters"
-msgstr "literal length %lu exceeds %u characters"
-
-#: cobc/scanner.l:1651 cobc/scanner.l:1680 cobc/scanner.l:1813
-#: cobc/scanner.l:1910 cobc/scanner.l:1974
-#, c-format
-msgid "literal contains invalid character '%c'"
-msgstr "literal contains invalid character ‘%c’"
-
-#: cobc/scanner.l:1704
-#, c-format
-msgid "literal does not have an even number of digits"
-msgstr "literal does not have an even number of digits"
-
-#: cobc/scanner.l:1735 cobc/scanner.l:1788
-#, c-format
-msgid "%s literals must contain at least one character"
-msgstr "%s literals must contain at least one character"
-
-#: cobc/scanner.l:1775 cobc/scanner.l:1878 cobc/scanner.l:1952
-msgid "ACUCOBOL numeric literal"
-msgstr "ACUCOBOL numeric literal"
-
-#: cobc/scanner.l:1829 cobc/scanner.l:1922 cobc/scanner.l:1985
-#, c-format
-msgid "literal exceeds limit %u"
-msgstr "literal exceeds limit %u"
-
-#: cobc/scanner.l:1863
-msgid "numeric boolean literal"
-msgstr "numeric boolean literal"
-
-#: cobc/scanner.l:1870
-msgid "boolean literal has zero length; B'0' will be assumed"
-msgstr "boolean literal has zero length; B'0' will be assumed"
-
-#: cobc/scanner.l:1946
-msgid "HP COBOL octal literal"
-msgstr "HP COBOL octal literal"
-
-#: cobc/scanner.l:2059
-#, c-format
-msgid "literal length %lu exceeds maximum of %u digits"
-msgstr "literal length %lu exceeds maximum of %u digits"
-
-#: cobc/scanner.l:2065
-#, c-format
-msgid "literal length %lu exceeds %u digits"
-msgstr "literal length %lu exceeds %u digits"
-
-#: cobc/scanner.l:2177 cobc/tree.c:3888
-#, c-format
-msgid "significand has more than %d digits"
-msgstr "significand has more than %d digits"
-
-#: cobc/scanner.l:2182
-#, c-format
-msgid "exponent has decimal point"
-msgstr "exponent has decimal point"
-
-#: cobc/scanner.l:2188 cobc/tree.c:3896
-#, c-format
-msgid "exponent has more than 4 digits"
-msgstr "exponent has more than 4 digits"
-
-#: cobc/scanner.l:2218
-#, c-format
-msgid "exponent not between -6143 and 6144"
-msgstr "exponent not between -6143 and 6144"
-
-#: cobc/scanner.l:2227
-#, c-format
-msgid "significand of 0 must be positive"
-msgstr "significand of 0 must be positive"
-
-#: cobc/scanner.l:2232
-#, c-format
-msgid "exponent of 0 must be 0"
-msgstr "exponent of 0 must be 0"
-
-#: cobc/scanner.l:2237
-#, c-format
-msgid "exponent of 0 must be positive"
-msgstr "exponent of 0 must be positive"
-
-#: cobc/scanner.l:2399
-#, c-format
-msgid "invalid CONSTANT: %s"
-msgstr "invalid CONSTANT: %s"
-
-#: cobc/scanner.l:2409
-#, c-format
-msgid "invalid alphanumeric CONSTANT: %s"
-msgstr "invalid alphanumeric CONSTANT: %s"
-
-#: cobc/scanner.l:2413
-#, c-format
-msgid "empty alphanumeric CONSTANT: %s"
-msgstr "empty alphanumeric CONSTANT: %s"
-
-#: cobc/scanner.l:2430 cobc/scanner.l:2438 cobc/scanner.l:2443
-#, c-format
-msgid "invalid numeric CONSTANT: %s"
-msgstr "invalid numeric CONSTANT: %s"
-
-#: cobc/scanner.l:2522 cobc/scanner.l:2549
-#, c-format
-msgid "'%s' is not a default reserved word, so cannot be aliased"
-msgstr "‘%s’ is not a default reserved word, so cannot be aliased"
-
-#: cobc/scanner.l:2525
-#, c-format
-msgid "'%s' is already reserved"
-msgstr "‘%s’ is already reserved"
-
-#: cobc/scanner.l:2527
-msgid "you may want MAKESYN instead"
-msgstr "you may want MAKESYN instead"
-
-#: cobc/scanner.l:2552
-#, c-format
-msgid "'%s' is not a reserved word"
-msgstr "‘%s’ is not a reserved word"
-
-#: cobc/scanner.l:2553
-msgid "you may want ADDSYN or OVERRIDE instead"
-msgstr "you may want ADDSYN or OVERRIDE instead"
-
-#: cobc/tree.c:392
-#, c-format
-msgid "%s clause is required for file '%s'"
-msgstr "%s clause is required for file ‘%s’"
-
-#: cobc/tree.c:396
-#, c-format
-msgid "%s clause is invalid for file '%s' (file type)"
-msgstr "%s clause is invalid for file ‘%s’ (file type)"
-
-#: cobc/tree.c:400
-#, c-format
-msgid "%s clause is invalid for file '%s'"
-msgstr "%s clause is invalid for file ‘%s’"
-
-#: cobc/tree.c:427
-#, c-format
-msgid "FOR item '%s' is a record"
-msgstr "FOR item ‘%s’ is a record"
-
-#: cobc/tree.c:436
-#, c-format
-msgid "FOR item '%s' is in different record to '%s'"
-msgstr "FOR item ‘%s’ is in different record to ‘%s’"
-
-#: cobc/tree.c:445
-#, c-format
-msgid "FOR item '%s' is not in a record associated with '%s'"
-msgstr "FOR item ‘%s’ is not in a record associated with ‘%s’"
-
-#: cobc/tree.c:559
-msgid "internal error node"
-msgstr "internal error node"
-
-#: cobc/tree.c:561
-msgid "unknown constant"
-msgstr "unknown constant"
-
-#: cobc/tree.c:572
-#, c-format
-msgid "literal \"%s\""
-msgstr "literal “%sâ€"
-
-#: cobc/tree.c:969
-#, c-format
-msgid "invalid date/time function: '%d'"
-msgstr "invalid date/time function: ‘%d’"
-
-#: cobc/tree.c:1001
-#, c-format
-msgid "FUNCTION '%s' has invalid date/time format"
-msgstr "FUNCTION ‘%s’ has invalid date/time format"
-
-#: cobc/tree.c:1008
-#, c-format
-msgid "FUNCTION '%s' has format in variable"
-msgstr "FUNCTION ‘%s’ has format in variable"
-
-#: cobc/tree.c:1488
-#, c-format
-msgid "unknown tree tag: %d, category: %d"
-msgstr "unknown tree tag: %d, category: %d"
-
-#: cobc/tree.c:1590
-#, c-format
-msgid "unexpected numeric USAGE: %d"
-msgstr "unexpected numeric USAGE: %d"
-
-#: cobc/tree.c:1604
-#, c-format
-msgid "unexpected category: %d"
-msgstr "unexpected category: %d"
-
-#: cobc/tree.c:1814
-#, c-format
-msgid "literal length %d exceeds maximum of %d digits"
-msgstr "literal length %d exceeds maximum of %d digits"
-
-#: cobc/tree.c:1819
-#, c-format
-msgid "literal length %d exceeds %d digits"
-msgstr "literal length %d exceeds %d digits"
-
-#: cobc/tree.c:1868 cobc/tree.c:1880 cobc/tree.c:1937 cobc/tree.c:1987
-#, c-format
-msgid "numeric literal '%s' exceeds limit '%s'"
-msgstr "numeric literal ‘%s’ exceeds limit ‘%s’"
-
-#: cobc/tree.c:2676
-msgid "invalid LOCALE literal"
-msgstr "invalid LOCALE literal"
-
-#: cobc/tree.c:2803
-msgid "only literals with the same category can be concatenated"
-msgstr "only literals with the same category can be concatenated"
-
-#: cobc/tree.c:2811
-msgid "only alphanumeric, utf-8, national or boolean literals may be concatenated"
-msgstr "only alphanumeric, utf-8, national or boolean literals may be concatenated"
-
-#: cobc/tree.c:2823
-#, c-format
-msgid "literal length %d exceeds %d characters"
-msgstr "literal length %d exceeds %d characters"
-
-#: cobc/tree.c:3103
-msgid "B, 0 or /"
-msgstr "B, 0 or /"
-
-#: cobc/tree.c:3117
-msgid "the sign of the floating-point exponent"
-msgstr "the sign of the floating-point exponent"
-
-#: cobc/tree.c:3119
-msgid "a leading +/- sign"
-msgstr "a leading +/- sign"
-
-#: cobc/tree.c:3121
-msgid "a trailing +/- sign"
-msgstr "a trailing +/- sign"
-
-#: cobc/tree.c:3123
-msgid "CR or DB"
-msgstr "CR or DB"
-
-#: cobc/tree.c:3125
-msgid "a leading currency symbol"
-msgstr "a leading currency symbol"
-
-#: cobc/tree.c:3127
-msgid "a trailing currency symbol"
-msgstr "a trailing currency symbol"
-
-#: cobc/tree.c:3129
-msgid "a Z or * which is before the decimal point"
-msgstr "a Z or * which is before the decimal point"
-
-#: cobc/tree.c:3131
-msgid "a Z or * which is after the decimal point"
-msgstr "a Z or * which is after the decimal point"
-
-#: cobc/tree.c:3133
-msgid "a floating +/- string which is before the decimal point"
-msgstr "a floating +/- string which is before the decimal point"
-
-#: cobc/tree.c:3135
-msgid "a floating +/- string which is after the decimal point"
-msgstr "a floating +/- string which is after the decimal point"
-
-#: cobc/tree.c:3137
-msgid "a floating currency symbol string which is before the decimal point"
-msgstr "a floating currency symbol string which is before the decimal point"
-
-#: cobc/tree.c:3139
-msgid "a floating currency symbol string which is after the decimal point"
-msgstr "a floating currency symbol string which is after the decimal point"
-
-#: cobc/tree.c:3143
-msgid "A or X"
-msgstr "A or X"
-
-#: cobc/tree.c:3151
-msgid "a P which is before the decimal point"
-msgstr "a P which is before the decimal point"
-
-#: cobc/tree.c:3153
-msgid "a P which is after the decimal point"
-msgstr "a P which is after the decimal point"
-
-#: cobc/tree.c:3176 cobc/tree.c:3638
-#, c-format
-msgid "%s may only occur once in a PICTURE string"
-msgstr "%s may only occur once in a PICTURE string"
-
-#: cobc/tree.c:3178 cobc/tree.c:3570
-#, c-format
-msgid "%s cannot follow %s"
-msgstr "%s cannot follow %s"
-
-#: cobc/tree.c:3181
-msgid "invalid PICTURE string detected"
-msgstr "invalid PICTURE string detected"
-
-#: cobc/tree.c:3299
-msgid "number or constant in parentheses is not an unsigned integer"
-msgstr "number or constant in parentheses is not an unsigned integer"
-
-#: cobc/tree.c:3308
-#, c-format
-msgid "only up to %d significant digits are permitted within parentheses"
-msgstr "only up to %d significant digits are permitted within parentheses"
-
-#: cobc/tree.c:3316
-msgid "number or constant in parentheses must be greater than zero"
-msgstr "number or constant in parentheses must be greater than zero"
-
-#: cobc/tree.c:3327
-msgid "parentheses must be preceded by a picture symbol"
-msgstr "parentheses must be preceded by a picture symbol"
-
-#: cobc/tree.c:3353
-msgid "unbalanced parentheses"
-msgstr "unbalanced parentheses"
-
-#: cobc/tree.c:3361
-msgid "parentheses must contain an unsigned integer"
-msgstr "parentheses must contain an unsigned integer"
-
-#: cobc/tree.c:3409
-#, c-format
-msgid "'%s' is not a constant-name"
-msgstr "‘%s’ is not a constant-name"
-
-#: cobc/tree.c:3422
-#, c-format
-msgid "'%s' is not an unsigned positive integer"
-msgstr "‘%s’ is not an unsigned positive integer"
-
-#: cobc/tree.c:3479
-msgid "missing PICTURE string"
-msgstr "missing PICTURE string"
-
-#: cobc/tree.c:3508
-msgid "C must be followed by R"
-msgstr "C must be followed by R"
-
-#: cobc/tree.c:3511
-msgid "D must be followed by B"
-msgstr "D must be followed by B"
-
-#: cobc/tree.c:3526 cobc/tree.c:3635 cobc/tree.c:3661 cobc/tree.c:3773
-msgid "uncommon parentheses"
-msgstr "uncommon parentheses"
-
-#: cobc/tree.c:3570
-msgid "exponent"
-msgstr "exponent"
-
-#: cobc/tree.c:3625
-msgid "L must be at start of PICTURE string"
-msgstr "L must be at start of PICTURE string"
-
-#: cobc/tree.c:3643
-msgid "S must be at start of PICTURE string"
-msgstr "S must be at start of PICTURE string"
-
-#: cobc/tree.c:3699
-msgid "P must be at start or end of PICTURE string"
-msgstr "P must be at start or end of PICTURE string"
-
-#: cobc/tree.c:3730
-msgid "cannot have both Z and * in PICTURE string"
-msgstr "cannot have both Z and * in PICTURE string"
-
-#: cobc/tree.c:3808
-#, c-format
-msgid "invalid PICTURE character '%c'"
-msgstr "invalid PICTURE character ‘%c’"
-
-#: cobc/tree.c:3841
-#, c-format
-msgid "PICTURE string may not contain more than %d characters; contains %d characters"
-msgstr "PICTURE string may not contain more than %d characters; contains %d characters"
-
-#: cobc/tree.c:3846
-msgid "PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol"
-msgstr "PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol"
-
-#: cobc/tree.c:3873
-#, c-format
-msgid "numeric field cannot be larger than %d digits"
-msgstr "numeric field cannot be larger than %d digits"
-
-#: cobc/tree.c:4333
-#, c-format
-msgid "needs PICTURE clause for SUM %s"
-msgstr "needs PICTURE clause for SUM %s"
-
-#: cobc/tree.c:4340
-#, c-format
-msgid "non-numeric PICTURE clause for SUM %s"
-msgstr "non-numeric PICTURE clause for SUM %s"
-
-#: cobc/tree.c:4412 cobc/tree.c:4425
-#, c-format
-msgid "no DETAIL line defined in report %s"
-msgstr "no DETAIL line defined in report %s"
-
-#: cobc/tree.c:4427
-msgid "PAGE LIMIT FIRST DETAIL should be >= HEADING"
-msgstr "PAGE LIMIT FIRST DETAIL should be >= HEADING"
-
-#: cobc/tree.c:4430
-msgid "PAGE LIMIT FOOTING should be >= HEADING"
-msgstr "PAGE LIMIT FOOTING should be >= HEADING"
-
-#: cobc/tree.c:4432
-msgid "PAGE LIMIT LAST DETAIL should be >= FIRST DETAIL"
-msgstr "PAGE LIMIT LAST DETAIL should be >= FIRST DETAIL"
-
-#: cobc/tree.c:4434
-msgid "PAGE LIMIT FOOTING should be >= LAST DETAIL"
-msgstr "PAGE LIMIT FOOTING should be >= LAST DETAIL"
-
-#: cobc/tree.c:4436
-msgid "PAGE LIMIT LINES should be >= FOOTING"
-msgstr "PAGE LIMIT LINES should be >= FOOTING"
-
-#: cobc/tree.c:4631 libcob/fileio.c:9358
-#, c-format
-msgid "maximum keys (%d/%d) exceeded for file '%s'"
-msgstr "maximum keys (%d/%d) exceeded for file ‘%s’"
-
-#: cobc/tree.c:4695 cobc/tree.c:4718
-#, c-format
-msgid "invalid KEY item '%s', not in file '%s'"
-msgstr "invalid KEY item '%s', not in file ‘%s’"
-
-#: cobc/tree.c:4729
-#, c-format
-msgid "minimal record length %d can not hold the key item '%s'; needs to be at least %d"
-msgstr "minimal record length %d can not hold the key item '%s'; needs to be at least %d"
-
-#: cobc/tree.c:4764
-#, c-format
-msgid "missing file description for %s"
-msgstr "missing file description for %s"
-
-#: cobc/tree.c:4813
-#, c-format
-msgid "size of record '%s' (%d) smaller than minimum of file '%s' (%d)"
-msgstr "size of record ‘%s’ (%d) smaller than minimum of file ‘%s’ (%d)"
-
-#: cobc/tree.c:4816 cobc/tree.c:4833
-msgid "file size adjusted"
-msgstr "file size adjusted"
-
-#: cobc/tree.c:4828
-#, c-format
-msgid "size of record '%s' (%d) larger than maximum of file '%s' (%d)"
-msgstr "size of record ‘%s’ (%d) larger than maximum of file ‘%s’ (%d)"
-
-#: cobc/tree.c:4861
-msgid "RECORD VARYING specified without limits, but implied limits are equal"
-msgstr "RECORD VARYING specified without limits, but implied limits are equal"
-
-#: cobc/tree.c:4863
-#, c-format
-msgid "%s clause ignored"
-msgstr "%s clause ignored"
-
-#: cobc/tree.c:4958 cobc/typeck.c:8128 cobc/typeck.c:15186 cobc/typeck.c:15238
-#: cobc/typeck.c:15275 libcob/fileio.c:4724 libcob/screenio.c:4613
-#: libcob/screenio.c:4639
-#, c-format
-msgid "runtime is not configured to support %s"
-msgstr "runtime is not configured to support %s"
-
-#: cobc/tree.c:5474
-#, c-format
-msgid "literal '%.38s' is longer than '%s'"
-msgstr "literal ‘%.38s’ is longer than ‘%s’"
-
-#: cobc/tree.c:5478
-#, c-format
-msgid "literal '%.38s' is longer than reference-modification of '%s'"
-msgstr "literal ‘%.38s’ is longer than reference-modification of ‘%s’"
-
-#: cobc/tree.c:5508
-#, c-format
-msgid "literal '%s' is alphanumeric but '%s' is numeric"
-msgstr "literal ‘%s’ is alphanumeric but ‘%s’ is numeric"
-
-#: cobc/tree.c:5550
-#, c-format
-msgid "literal '%s' has more decimals than '%s'"
-msgstr "literal ‘%s’ has more decimals than ‘%s’"
-
-#: cobc/tree.c:5598
-#, c-format
-msgid "literal '%s' has more digits than '%s'"
-msgstr "literal ‘%s’ has more digits than ‘%s’"
-
-#: cobc/tree.c:5646 cobc/tree.c:5676
-#, c-format
-msgid "unsigned '%s' may not be %s %s"
-msgstr "unsigned ‘%s’ may not be %s %s"
-
-#: cobc/tree.c:5658 cobc/tree.c:5689
-#, c-format
-msgid "unsigned '%s' may always be %s %s"
-msgstr "unsigned ‘%s’ may always be %s %s"
-
-#: cobc/tree.c:5726 cobc/tree.c:5756
-#, c-format
-msgid "'%s' may not be %s %s"
-msgstr "‘%s’ may not be %s %s"
-
-#: cobc/tree.c:5738 cobc/tree.c:5768
-#, c-format
-msgid "'%s' may always be %s %s"
-msgstr "‘%s’ may always be %s %s"
-
-#: cobc/tree.c:5917
-msgid "divide by constant ZERO"
-msgstr "divide by constant ZERO"
-
-#: cobc/tree.c:6001 cobc/tree.c:6008
-#, c-format
-msgid "%s should be COMP-X/COMP-5 for logical operator"
-msgstr "%s should be COMP-X/COMP-5 for logical operator"
-
-#: cobc/tree.c:6283
-#, c-format
-msgid "invalid expression: %s %s %s"
-msgstr "invalid expression: %s %s %s"
-
-#: cobc/tree.c:6286
-msgid "invalid expression: boolean expected with logical operator"
-msgstr "invalid expression: boolean expected with logical operator"
-
-#: cobc/tree.c:6330
-#, c-format
-msgid "unexpected operator: %d"
-msgstr "unexpected operator: %d"
-
-#: cobc/tree.c:6341
-#, c-format
-msgid "expression '%.38s' %s '%.38s' is always TRUE"
-msgstr "expression ‘%.38s’ %s ‘%.38s’ is always TRUE"
-
-#: cobc/tree.c:6347
-msgid "expression is always TRUE"
-msgstr "expression is always TRUE"
-
-#: cobc/tree.c:6360
-#, c-format
-msgid "expression '%.38s' %s '%.38s' is always FALSE"
-msgstr "expression ‘%.38s’ %s ‘%.38s’ is always FALSE"
-
-#: cobc/tree.c:6366
-msgid "expression is always FALSE"
-msgstr "expression is always FALSE"
-
-#: cobc/tree.c:6588
-msgid "invalid file name reference"
-msgstr "invalid file name reference"
-
-#: cobc/tree.c:6596
-#, c-format
-msgid "BY CONTENT assumed for alphanumeric item '%s'"
-msgstr "BY CONTENT assumed for alphanumeric item ‘%s’"
-
-#: cobc/tree.c:6601
-#, c-format
-msgid "BY CONTENT assumed for national item '%s'"
-msgstr "BY CONTENT assumed for national item ‘%s’"
-
-#: cobc/tree.c:6740
-msgid "PERFORM FOREVER since UNTIL is always FALSE"
-msgstr "PERFORM FOREVER since UNTIL is always FALSE"
-
-#: cobc/tree.c:6744
-msgid "PERFORM ONCE since UNTIL is always TRUE"
-msgstr "PERFORM ONCE since UNTIL is always TRUE"
-
-#: cobc/tree.c:6747
-msgid "PERFORM NEVER since UNTIL is always TRUE"
-msgstr "PERFORM NEVER since UNTIL is always TRUE"
-
-#: cobc/tree.c:6871
-#, c-format
-msgid "no definition/prototype seen for FUNCTION '%s'"
-msgstr "no definition/prototype seen for FUNCTION ‘%s’"
-
-#: cobc/tree.c:6873
-#, c-format
-msgid "no definition/prototype seen for PROGRAM '%s'"
-msgstr "no definition/prototype seen for PROGRAM ‘%s’"
-
-#: cobc/tree.c:6882
-#, c-format
-msgid "no definition/prototype seen for FUNCTION with external name '%s'"
-msgstr "no definition/prototype seen for FUNCTION with external name ‘%s’"
-
-#: cobc/tree.c:6884
-#, c-format
-msgid "no definition/prototype seen for PROGRAM with external name '%s'"
-msgstr "no definition/prototype seen for PROGRAM with external name ‘%s’"
-
-#: cobc/tree.c:6976 cobc/tree.c:7158 cobc/tree.c:7233 cobc/tree.c:7239
-#: cobc/tree.c:7247 cobc/tree.c:7255 cobc/tree.c:7277 cobc/tree.c:7287
-#: cobc/tree.c:7292
-#, c-format
-msgid "FUNCTION '%s' has invalid argument"
-msgstr "FUNCTION ‘%s’ has invalid argument"
-
-#: cobc/tree.c:6978
-#, c-format
-msgid "either all arguments or none should be of type %s"
-msgstr "either all arguments or none should be of type %s"
-
-#: cobc/tree.c:7010 cobc/tree.c:7016 cobc/tree.c:7057 cobc/tree.c:7063
-#, c-format
-msgid "FUNCTION '%s' has invalid reference modification"
-msgstr "FUNCTION ‘%s’ has invalid reference modification"
-
-#: cobc/tree.c:7027 cobc/tree.c:7344
-#, c-format
-msgid "FUNCTION '%s' unknown"
-msgstr "FUNCTION ‘%s’ unknown"
-
-#: cobc/tree.c:7031
-#, c-format
-msgid "FUNCTION '%s' is not implemented"
-msgstr "FUNCTION ‘%s’ is not implemented"
-
-#: cobc/tree.c:7037 cobc/tree.c:7044 cobc/tree.c:7329
-#, c-format
-msgid "FUNCTION '%s' has wrong number of arguments"
-msgstr "FUNCTION ‘%s’ has wrong number of arguments"
-
-#: cobc/tree.c:7051
-#, c-format
-msgid "FUNCTION '%s' cannot have reference modification"
-msgstr "FUNCTION ‘%s’ cannot have reference modification"
-
-#: cobc/tree.c:7335
-#, c-format
-msgid "FUNCTION '%s' has invalid first argument"
-msgstr "FUNCTION ‘%s’ has invalid first argument"
-
-#: cobc/typeck.c:590
-#, c-format
-msgid "%s should be COMP-5/COMP-X for logical operator"
-msgstr "%s should be COMP-5/COMP-X for logical operator"
-
-#: cobc/typeck.c:856
-#, c-format
-msgid "%s item not allowed here: '%s'"
-msgstr "%s item not allowed here: ‘%s’"
-
-#: cobc/typeck.c:898
-#, c-format
-msgid "'%s' is not a group name"
-msgstr "‘%s’ is not a group name"
-
-#: cobc/typeck.c:921
-#, c-format
-msgid "'%s' is not a numeric name"
-msgstr "‘%s’ is not a numeric name"
-
-#: cobc/typeck.c:944
-#, c-format
-msgid "'%s' is not a numeric or numeric-edited name"
-msgstr "‘%s’ is not a numeric or numeric-edited name"
-
-#: cobc/typeck.c:1043
-#, c-format
-msgid "'%s' is not an integer"
-msgstr "‘%s’ is not an integer"
-
-#: cobc/typeck.c:1047
-msgid "positive numeric integer is required here"
-msgstr "positive numeric integer is required here"
-
-#: cobc/typeck.c:1178
-msgid "System routine"
-msgstr "System routine"
-
-#: cobc/typeck.c:2037 libcob/call.c:1172
-#, c-format
-msgid "'%s' literal includes leading spaces which are omitted"
-msgstr "‘%s’ literal includes leading spaces which are omitted"
-
-#: cobc/typeck.c:2041
-#, c-format
-msgid "'%s' literal includes trailing spaces which are omitted"
-msgstr "‘%s’ literal includes trailing spaces which are omitted"
-
-#: cobc/typeck.c:2108
-msgid "ON/OFF usage requires a SWITCH name"
-msgstr "ON/OFF usage requires a SWITCH name"
-
-#: cobc/typeck.c:2126
-#, c-format
-msgid "word length exceeds maximum of %d characters: '%s'"
-msgstr "word length exceeds maximum of %d characters: ‘%s’"
-
-#: cobc/typeck.c:2129
-#, c-format
-msgid "word length exceeds %d characters: '%s'"
-msgstr "word length exceeds %d characters: ‘%s’"
-
-#: cobc/typeck.c:2206
-#, c-format
-msgid "ASSIGN %s interpreted as '%s'"
-msgstr "ASSIGN %s interpreted as ‘%s’"
-
-#: cobc/typeck.c:2332 cobc/typeck.c:2631
-#, c-format
-msgid "subscript missing for '%s' - defaulting to 1"
-msgstr "subscript missing for ‘%s’ - defaulting to 1"
-
-#: cobc/typeck.c:2355 cobc/typeck.c:2546 cobc/typeck.c:2746
-#, c-format
-msgid "'%s' cannot be subscripted"
-msgstr "‘%s’ cannot be subscripted"
-
-#: cobc/typeck.c:2359 cobc/typeck.c:2750
-#, c-format
-msgid "'%s' requires one subscript"
-msgstr "‘%s’ requires one subscript"
-
-#: cobc/typeck.c:2362 cobc/typeck.c:2753
-#, c-format
-msgid "'%s' requires %d subscripts"
-msgstr "‘%s’ requires %d subscripts"
-
-#: cobc/typeck.c:2380
-#, c-format
-msgid "'%s' (accessed by '%s')"
-msgstr "‘%s’ (accessed by '%s')"
-
-#: cobc/typeck.c:2399 cobc/typeck.c:4987
-#, c-format
-msgid "%s may not be reference modified"
-msgstr "%s may not be reference modified"
-
-#: cobc/typeck.c:2437 cobc/typeck.c:2442 cobc/typeck.c:2466
-#: libcob/common.c:4477 libcob/common.c:4521
-#, c-format
-msgid "length of '%s' out of bounds: %d"
-msgstr "length of ‘%s’ out of bounds: %d"
-
-#: cobc/typeck.c:2453 cobc/typeck.c:2462 libcob/common.c:4462
-#: libcob/common.c:4513
-#, c-format
-msgid "offset of '%s' out of bounds: %d"
-msgstr "offset of ‘%s’ out of bounds: %d"
-
-#: cobc/typeck.c:2458
-msgid "suspicious reference-modification: always using max. position"
-msgstr "suspicious reference-modification: always using max. position"
-
-#: cobc/typeck.c:2475
-msgid "suspicious reference-modification: always using max. length"
-msgstr "suspicious reference-modification: always using max. length"
-
-#: cobc/typeck.c:2615
-#, c-format
-msgid "'%s' has no OCCURS clause"
-msgstr "‘%s’ has no OCCURS clause"
-
-#: cobc/typeck.c:2694 libcob/common.c:4427 libcob/common.c:4438
-#, c-format
-msgid "subscript of '%s' out of bounds: %d"
-msgstr "subscript of ‘%s’ out of bounds: %d"
-
-#: cobc/typeck.c:2812 cobc/typeck.c:2891
-msgid "reference modification not allowed here"
-msgstr "reference modification not allowed here"
-
-#: cobc/typeck.c:2826 cobc/typeck.c:2917
-msgid "88 level item not allowed here"
-msgstr "88 level item not allowed here"
-
-#: cobc/typeck.c:2830 cobc/typeck.c:2921 cobc/typeck.c:2929 cobc/typeck.c:2991
-msgid "variable length item not allowed here"
-msgstr "variable length item not allowed here"
-
-#: cobc/typeck.c:2859
-#, c-format
-msgid "'%s' has not been DEFINEd"
-msgstr "‘%s’ has not been DEFINEd"
-
-#: cobc/typeck.c:2895
-msgid "only field names allowed here"
-msgstr "only field names allowed here"
-
-#: cobc/typeck.c:2906
-#, c-format
-msgid "VALUE of '%s': %s target '%s' is invalid"
-msgstr "VALUE of '%s': %s target ‘%s’ is invalid"
-
-#: cobc/typeck.c:2908 cobc/typeck.c:2974
-msgid "target must be in FILE SECTION or LINKAGE SECTION or have the EXTERNAL clause"
-msgstr "target must be in FILE SECTION or LINKAGE SECTION or have the EXTERNAL clause"
-
-#: cobc/typeck.c:2964 cobc/typeck.c:2973
-#, c-format
-msgid "VALUE of '%s': %s target is invalid"
-msgstr "VALUE of '%s': %s target is invalid"
-
-#: cobc/typeck.c:2966
-msgid "no previous data-item found"
-msgstr "no previous data-item found"
-
-#: cobc/typeck.c:3130 cobc/typeck.c:4963
-#, c-format
-msgid "'%s' cannot be BASED/EXTERNAL"
-msgstr "‘%s’ cannot be BASED/EXTERNAL"
-
-#: cobc/typeck.c:3135
-#, c-format
-msgid "'%s' is not in WORKING-STORAGE SECTION"
-msgstr "‘%s’ is not in WORKING-STORAGE SECTION"
-
-#: cobc/typeck.c:3142 cobc/typeck.c:4960
-#, c-format
-msgid "'%s' not level 01 or 77"
-msgstr "‘%s’ not level 01 or 77"
-
-#: cobc/typeck.c:3145 cobc/typeck.c:3180 cobc/typeck.c:4966
-#, c-format
-msgid "'%s' REDEFINES field not allowed here"
-msgstr "‘%s’ REDEFINES field not allowed here"
-
-#: cobc/typeck.c:3165 cobc/typeck.c:8876
-#, c-format
-msgid "duplicate USING BY REFERENCE item '%s'"
-msgstr "duplicate USING BY REFERENCE item ‘%s’"
-
-#: cobc/typeck.c:3193
-#, c-format
-msgid "'%s' USING item duplicates RETURNING item"
-msgstr "‘%s’ USING item duplicates RETURNING item"
-
-#: cobc/typeck.c:3268
-#, c-format
-msgid "prototype and definition of '%s' do not match"
-msgstr "prototype and definition of ‘%s’ do not match"
-
-#: cobc/typeck.c:3389 cobc/typeck.c:3486
-#, c-format
-msgid "parameters #%d ('%s' in the definition and '%s' in the prototype) differ"
-msgstr "parameters #%d ('%s' in the definition and ‘%s’ in the prototype) differ"
-
-#: cobc/typeck.c:3393
-#, c-format
-msgid "returning items ('%s' in the definition and '%s' in the prototype) differ"
-msgstr "returning items ('%s' in the definition and ‘%s’ in the prototype) differ"
-
-#: cobc/typeck.c:3429
-msgid "definition is a program but the prototype is a function"
-msgstr "definition is a program but the prototype is a function"
-
-#: cobc/typeck.c:3433
-msgid "definition is a function but the prototype is a program"
-msgstr "definition is a function but the prototype is a program"
-
-#: cobc/typeck.c:3496
-msgid "number of parameters differ"
-msgstr "number of parameters differ"
-
-#: cobc/typeck.c:3506
-msgid "definition has a RETURNING item but prototype does not"
-msgstr "definition has a RETURNING item but prototype does not"
-
-#: cobc/typeck.c:3510
-msgid "definition does not have a RETURNING item but prototype does"
-msgstr "definition does not have a RETURNING item but prototype does"
-
-#: cobc/typeck.c:3560
-#, c-format
-msgid "unexpected tree tag: %d"
-msgstr "unexpected tree tag: %d"
-
-#: cobc/typeck.c:3584
-#, c-format
-msgid "expected argument #%d, %s, to be passed BY VALUE"
-msgstr "expected argument #%d, %s, to be passed BY VALUE"
-
-#: cobc/typeck.c:3589
-#, c-format
-msgid "expected argument #%d, %s, to be passed BY REFERENCE/CONTENT"
-msgstr "expected argument #%d, %s, to be passed BY REFERENCE/CONTENT"
-
-#: cobc/typeck.c:3608 cobc/typeck.c:3733 cobc/typeck.c:3736
-#, c-format
-msgid "argument #%d is not optional"
-msgstr "argument #%d is not optional"
-
-#: cobc/typeck.c:3622
-#, c-format
-msgid "argument #%d must be at least %d bytes long"
-msgstr "argument #%d must be at least %d bytes long"
-
-#: cobc/typeck.c:3637
-#, c-format
-msgid "argument #%d is a different type of pointer than the parameter"
-msgstr "argument #%d is a different type of pointer than the parameter"
-
-#: cobc/typeck.c:3644
-#, c-format
-msgid "argument #%d is ANY LENGTH, but expecting a fixed size item"
-msgstr "argument #%d is ANY LENGTH, but expecting a fixed size item"
-
-#: cobc/typeck.c:3672
-#, c-format
-msgid "argument #%d, %s, does not conform to the parameter definition"
-msgstr "argument #%d, %s, does not conform to the parameter definition"
-
-#: cobc/typeck.c:3719
-#, c-format
-msgid "expecting up to %d arguments, but found %d"
-msgstr "expecting up to %d arguments, but found %d"
-
-#: cobc/typeck.c:3752
-msgid "the RETURNING item is of a fixed size, not ANY LENGTH"
-msgstr "the RETURNING item is of a fixed size, not ANY LENGTH"
-
-#: cobc/typeck.c:3758
-#, c-format
-msgid "RETURNING item %s is not a valid type"
-msgstr "RETURNING item %s is not a valid type"
-
-#: cobc/typeck.c:3764
-msgid "unexpected RETURNING item"
-msgstr "unexpected RETURNING item"
-
-#: cobc/typeck.c:3767
-msgid "expecting a RETURNING item, but none provided"
-msgstr "expecting a RETURNING item, but none provided"
-
-#: cobc/typeck.c:4091
-#, c-format
-msgid "duplicate character values in alphabet '%s': %s"
-msgstr "duplicate character values in alphabet '%s': %s"
-
-#: cobc/typeck.c:4096
-#, c-format
-msgid "invalid character values in alphabet '%s', starting at position %d"
-msgstr "invalid character values in alphabet '%s', starting at position %d"
-
-#: cobc/typeck.c:4198
-#, c-format
-msgid "duplicate character values in class '%s'"
-msgstr "duplicate character values in class ‘%s’"
-
-#: cobc/typeck.c:4227
-msgid "invalid ALPHABET name"
-msgstr "invalid ALPHABET name"
-
-#: cobc/typeck.c:4256
-#, c-format
-msgid "'%s' is not a locale name"
-msgstr "‘%s’ is not a locale name"
-
-#: cobc/typeck.c:4410
-msgid "invalid RECORD DEPENDING item"
-msgstr "invalid RECORD DEPENDING item"
-
-#: cobc/typeck.c:4415
-msgid "RECORD DEPENDING must reference a data-item"
-msgstr "RECORD DEPENDING must reference a data-item"
-
-#: cobc/typeck.c:4438
-#, c-format
-msgid "RECORD DEPENDING item '%s' should be defined in WORKING-STORAGE, LOCAL-STORAGE or LINKAGE SECTION"
-msgstr "RECORD DEPENDING item ‘%s’ should be defined in WORKING-STORAGE, LOCAL-STORAGE or LINKAGE SECTION"
-
-#: cobc/typeck.c:4451
-#, c-format
-msgid "file %s: RELATIVE KEY %s is not numeric"
-msgstr "file %s: RELATIVE KEY %s is not numeric"
-
-#: cobc/typeck.c:4460
-#, c-format
-msgid "file %s: RELATIVE KEY %s must be integer"
-msgstr "file %s: RELATIVE KEY %s must be integer"
-
-#: cobc/typeck.c:4465
-#, c-format
-msgid "file %s: RELATIVE KEY %s must be unsigned"
-msgstr "file %s: RELATIVE KEY %s must be unsigned"
-
-#: cobc/typeck.c:4472
-#, c-format
-msgid "file %s: RELATIVE KEY %s cannot have OCCURS"
-msgstr "file %s: RELATIVE KEY %s cannot have OCCURS"
-
-#: cobc/typeck.c:4478
-#, c-format
-msgid "RELATIVE KEY %s cannot be in file record belonging to %s"
-msgstr "RELATIVE KEY %s cannot be in file record belonging to %s"
-
-#: cobc/typeck.c:4487
-#, c-format
-msgid "file %s: RELATIVE KEY %s declared outside WORKING-STORAGE"
-msgstr "file %s: RELATIVE KEY %s declared outside WORKING-STORAGE"
-
-#: cobc/typeck.c:4509 cobc/typeck.c:8833
-#, c-format
-msgid "'%s' is not a valid data name"
-msgstr "‘%s’ is not a valid data name"
-
-#: cobc/typeck.c:4516
-#, c-format
-msgid "CRT STATUS item '%s' should be defined in WORKING-STORAGE or LOCAL-STORAGE"
-msgstr "CRT STATUS item ‘%s’ should be defined in WORKING-STORAGE or LOCAL-STORAGE"
-
-#: cobc/typeck.c:4522
-#, c-format
-msgid "'%s' numeric CRT STATUS must have at least 4 digits"
-msgstr "‘%s’ numeric CRT STATUS must have at least 4 digits"
-
-#: cobc/typeck.c:4528
-#, c-format
-msgid "'%s' CRT STATUS must be 3 or 4 characters long"
-msgstr "‘%s’ CRT STATUS must be 3 or 4 characters long"
-
-#: cobc/typeck.c:4550
-#, c-format
-msgid "FILE STATUS '%s' is not a field"
-msgstr "FILE STATUS ‘%s’ is not a field"
-
-#: cobc/typeck.c:4562
-#, c-format
-msgid "FILE STATUS '%s' may not be a decimal or have a PIC with a P"
-msgstr "FILE STATUS ‘%s’ may not be a decimal or have a PIC with a P"
-
-#: cobc/typeck.c:4567
-#, c-format
-msgid "FILE STATUS '%s' is a numeric field, but I-O status codes are not numeric in general"
-msgstr "FILE STATUS ‘%s’ is a numeric field, but I-O status codes are not numeric in general"
-
-#: cobc/typeck.c:4571
-#, c-format
-msgid "FILE STATUS '%s' must be an alphanumeric or numeric field"
-msgstr "FILE STATUS ‘%s’ must be an alphanumeric or numeric field"
-
-#: cobc/typeck.c:4578
-#, c-format
-msgid "FILE STATUS '%s' must be USAGE DISPLAY"
-msgstr "FILE STATUS ‘%s’ must be USAGE DISPLAY"
-
-#: cobc/typeck.c:4585
-#, c-format
-msgid "FILE STATUS '%s' must be 2 characters long"
-msgstr "FILE STATUS ‘%s’ must be 2 characters long"
-
-#: cobc/typeck.c:4593
-#, c-format
-msgid "FILE STATUS '%s' must be in WORKING-STORAGE, LOCAL-STORAGE or LINKAGE"
-msgstr "FILE STATUS ‘%s’ must be in WORKING-STORAGE, LOCAL-STORAGE or LINKAGE"
-
-#: cobc/typeck.c:4599
-#, c-format
-msgid "FILE STATUS '%s' may not be located after an OCCURS DEPENDING field"
-msgstr "FILE STATUS ‘%s’ may not be located after an OCCURS DEPENDING field"
-
-#: cobc/typeck.c:4613
-#, c-format
-msgid "variable '%s' will be implicitly defined"
-msgstr "variable ‘%s’ will be implicitly defined"
-
-#: cobc/typeck.c:4703
-msgid "ASSIGN variable"
-msgstr "ASSIGN variable"
-
-#: cobc/typeck.c:4708
-#, c-format
-msgid "ASSIGN data item '%s' is invalid"
-msgstr "ASSIGN data item ‘%s’ is invalid"
-
-#: cobc/typeck.c:4773
-#, c-format
-msgid "'%s' CURSOR must be 4 or 6 characters long"
-msgstr "‘%s’ CURSOR must be 4 or 6 characters long"
-
-#: cobc/typeck.c:4844
-#, c-format
-msgid "'%s' cannot have nested OCCURS DEPENDING"
-msgstr "‘%s’ cannot have nested OCCURS DEPENDING"
-
-#: cobc/typeck.c:4858
-#, c-format
-msgid "'%s' OCCURS DEPENDING ON field item invalid here"
-msgstr "‘%s’ OCCURS DEPENDING ON field item invalid here"
-
-#: cobc/typeck.c:4868
-#, c-format
-msgid "'%s' cannot have OCCURS DEPENDING because of '%s'"
-msgstr "‘%s’ cannot have OCCURS DEPENDING because of ‘%s’"
-
-#: cobc/typeck.c:4880
-#, c-format
-msgid "'%s' OCCURS DEPENDING ON item must have GLOBAL attribute"
-msgstr "‘%s’ OCCURS DEPENDING ON item must have GLOBAL attribute"
-
-#: cobc/typeck.c:4894
-#, c-format
-msgid "PASSWORD '%s' for EXTERNAL file '%s' must have EXTERNAL attribute"
-msgstr "PASSWORD ‘%s’ for EXTERNAL file ‘%s’ must have EXTERNAL attribute"
-
-#: cobc/typeck.c:4932
-#, c-format
-msgid "duplicate APPLY COMMIT target: '%s'"
-msgstr "duplicate APPLY COMMIT target: ‘%s’"
-
-#: cobc/typeck.c:4946
-msgid "APPLY COMMIT statement invalid for SORT file"
-msgstr "APPLY COMMIT statement invalid for SORT file"
-
-#: cobc/typeck.c:4949
-msgid "APPLY COMMIT statement invalid for REPORT file"
-msgstr "APPLY COMMIT statement invalid for REPORT file"
-
-#: cobc/typeck.c:4956
-#, c-format
-msgid "APPLY COMMIT item '%s' should be defined in WORKING-STORAGE or LOCAL-STORAGE"
-msgstr "APPLY COMMIT item ‘%s’ should be defined in WORKING-STORAGE or LOCAL-STORAGE"
-
-#: cobc/typeck.c:4970
-#, c-format
-msgid "item not allowed here: '%s'"
-msgstr "item not allowed here: ‘%s’"
-
-#: cobc/typeck.c:4983
-#, c-format
-msgid "%s may not be subscripted"
-msgstr "%s may not be subscripted"
-
-#: cobc/typeck.c:5047
-#, c-format
-msgid "DEBUGGING target invalid: '%s'"
-msgstr "DEBUGGING target invalid: ‘%s’"
-
-#: cobc/typeck.c:5053
-#, c-format
-msgid "DEBUGGING target already specified with ALL PROCEDURES: '%s'"
-msgstr "DEBUGGING target already specified with ALL PROCEDURES: ‘%s’"
-
-#: cobc/typeck.c:5073
-msgid "DEBUGGING target"
-msgstr "DEBUGGING target"
-
-#: cobc/typeck.c:5080
-#, c-format
-msgid "'%s' is not a valid DEBUGGING target"
-msgstr "‘%s’ is not a valid DEBUGGING target"
-
-#: cobc/typeck.c:5126 cobc/typeck.c:5134
-#, c-format
-msgid "'%s' is not in DECLARATIVES"
-msgstr "‘%s’ is not in DECLARATIVES"
-
-#: cobc/typeck.c:5148
-#, c-format
-msgid "invalid reference to '%s' (in DECLARATIVES)"
-msgstr "invalid reference to ‘%s’ (in DECLARATIVES)"
-
-#: cobc/typeck.c:5162
-#, c-format
-msgid "GO TO paragraph '%s' which is defined in another SECTION"
-msgstr "GO TO paragraph ‘%s’ which is defined in another SECTION"
-
-#: cobc/typeck.c:5172
-#, c-format
-msgid "'%s' is not a procedure name"
-msgstr "‘%s’ is not a procedure name"
-
-#: cobc/typeck.c:5207
-#, c-format
-msgid "%s and %s are not in the same SECTION"
-msgstr "%s and %s are not in the same SECTION"
-
-#: cobc/typeck.c:5212
-#, c-format
-msgid "%s is defined before %s"
-msgstr "%s is defined before %s"
-
-#: cobc/typeck.c:5254
-#, c-format
-msgid "'%s' ANY LENGTH item must be a formal parameter"
-msgstr "‘%s’ ANY LENGTH item must be a formal parameter"
-
-#: cobc/typeck.c:5302
-#, c-format
-msgid "LINKAGE item '%s' is not a PROCEDURE USING parameter"
-msgstr "LINKAGE item ‘%s’ is not a PROCEDURE USING parameter"
-
-#: cobc/typeck.c:5358
-#, c-format
-msgid "'%s' is not an alterable paragraph"
-msgstr "‘%s’ is not an alterable paragraph"
-
-#: cobc/typeck.c:5852
-msgid "invalid expression: unfinished expression"
-msgstr "invalid expression: unfinished expression"
-
-#: cobc/typeck.c:5858 cobc/typeck.c:5865
-msgid "invalid expression"
-msgstr "invalid expression"
-
-#: cobc/typeck.c:5990 cobc/typeck.c:5994
-#, c-format
-msgid "suggest parentheses around %s within %s"
-msgstr "suggest parentheses around %s within %s"
-
-#: cobc/typeck.c:6003
-msgid "invalid conditional expression"
-msgstr "invalid conditional expression"
-
-#: cobc/typeck.c:6120
-#, c-format
-msgid "internal decimal structure size exceeded: %d"
-msgstr "internal decimal structure size exceeded: %d"
-
-#: cobc/typeck.c:6123
-msgid "Try to minimize the number of parentheses or split into multiple computations."
-msgstr "Try to minimize the number of parentheses or split into multiple computations."
-
-#: cobc/typeck.c:6147
-#, c-format
-msgid "more than %d nested expressions"
-msgstr "more than %d nested expressions"
-
-#: cobc/typeck.c:6188
-msgid "precision of result may change with arithmetic-osvs"
-msgstr "precision of result may change with arithmetic-osvs"
-
-#: cobc/typeck.c:6268
-#, c-format
-msgid "unexpected operation: %c (%d)"
-msgstr "unexpected operation: %c (%d)"
-
-#: cobc/typeck.c:6273
-#, c-format
-msgid "%s operator may be misplaced"
-msgstr "%s operator may be misplaced"
-
-#: cobc/typeck.c:6349
-msgid "unexpected constant expansion"
-msgstr "unexpected constant expansion"
-
-#: cobc/typeck.c:7106 cobc/typeck.c:11656 cobc/typeck.c:11661
-msgid "alphanumeric value is expected"
-msgstr "alphanumeric value is expected"
-
-#: cobc/typeck.c:7109 cobc/typeck.c:11651
-msgid "numeric value is expected"
-msgstr "numeric value is expected"
-
-#: cobc/typeck.c:7203
-msgid "invalid expression: condition expected"
-msgstr "invalid expression: condition expected"
-
-#: cobc/typeck.c:7271
-msgid "incomplete expression"
-msgstr "incomplete expression"
-
-#: cobc/typeck.c:7312
-#, c-format
-msgid "more than %d nested conditions"
-msgstr "more than %d nested conditions"
-
-#: cobc/typeck.c:7667 cobc/typeck.c:7748
-msgid "no CORRESPONDING items found"
-msgstr "no CORRESPONDING items found"
-
-#: cobc/typeck.c:7820
-msgid "no items to ACCEPT found"
-msgstr "no items to ACCEPT found"
-
-#: cobc/typeck.c:7870
-msgid "no items to DISPLAY found"
-msgstr "no items to DISPLAY found"
-
-#: cobc/typeck.c:7981
-msgid "cannot specify figurative constant ZERO in AT clause"
-msgstr "cannot specify figurative constant ZERO in AT clause"
-
-#: cobc/typeck.c:7985
-msgid "value in AT clause is not numeric"
-msgstr "value in AT clause is not numeric"
-
-#: cobc/typeck.c:7991
-msgid "value in AT clause must have 4 or 6 digits"
-msgstr "value in AT clause must have 4 or 6 digits"
-
-#: cobc/typeck.c:8168
-msgid "invalid PROMPT literal"
-msgstr "invalid PROMPT literal"
-
-#: cobc/typeck.c:8173
-msgid "invalid PROMPT identifier"
-msgstr "invalid PROMPT identifier"
-
-#: cobc/typeck.c:8465
-#, c-format
-msgid "'%s' is not an input device"
-msgstr "‘%s’ is not an input device"
-
-#: cobc/typeck.c:8492 cobc/typeck.c:9708
-#, c-format
-msgid "'%s' is not defined in SPECIAL-NAMES"
-msgstr "‘%s’ is not defined in SPECIAL-NAMES"
-
-#: cobc/typeck.c:8497
-#, c-format
-msgid "invalid input device '%s'"
-msgstr "invalid input device ‘%s’"
-
-#: cobc/typeck.c:8502 cobc/typeck.c:9712
-#, c-format
-msgid "unknown device '%s'; it may exist in another dialect"
-msgstr "unknown device '%s'; it may exist in another dialect"
-
-#: cobc/typeck.c:8505 cobc/typeck.c:9715
-#, c-format
-msgid "unknown device '%s'; not defined in SPECIAL-NAMES"
-msgstr "unknown device '%s'; not defined in SPECIAL-NAMES"
-
-#: cobc/typeck.c:8524
-msgid "target of RETURNING is not a data pointer"
-msgstr "target of RETURNING is not a data pointer"
-
-#: cobc/typeck.c:8551 cobc/typeck.c:13410 cobc/typeck.c:13479
-#: cobc/typeck.c:13547
-#, c-format
-msgid "cannot change address of '%s', which is not BASED or a LINKAGE item"
-msgstr "cannot change address of '%s', which is not BASED or a LINKAGE item"
-
-#: cobc/typeck.c:8557
-msgid "target of ALLOCATE must have BASED clause"
-msgstr "target of ALLOCATE must have BASED clause"
-
-#: cobc/typeck.c:8591 cobc/typeck.c:9023
-msgid "amount must be specified as a numeric expression"
-msgstr "amount must be specified as a numeric expression"
-
-#: cobc/typeck.c:8597
-msgid "INITIALIZED TO item is not alphanumeric"
-msgstr "INITIALIZED TO item is not alphanumeric"
-
-#: cobc/typeck.c:8667
-msgid "only alphanumeric FUNCTION types are allowed here"
-msgstr "only alphanumeric FUNCTION types are allowed here"
-
-#: cobc/typeck.c:8675
-msgid "invalid RETURNING field"
-msgstr "invalid RETURNING field"
-
-#: cobc/typeck.c:8694
-msgid "STDCALL not available on this platform"
-msgstr "STDCALL not available on this platform"
-
-#: cobc/typeck.c:8698
-msgid "STDCALL used on 64-bit Windows platform"
-msgstr "STDCALL used on 64-bit Windows platform"
-
-#: cobc/typeck.c:8703
-msgid "STATIC CALL convention requires a literal program name"
-msgstr "STATIC CALL convention requires a literal program name"
-
-#: cobc/typeck.c:8708 cobc/typeck.c:12746 cobc/typeck.c:13681
-#: cobc/typeck.c:14077
-msgid "HANDLE must be either a generic or a THREAD HANDLE"
-msgstr "HANDLE must be either a generic or a THREAD HANDLE"
-
-#: cobc/typeck.c:8726
-msgid "numeric literal is negative"
-msgstr "numeric literal is negative"
-
-#: cobc/typeck.c:8805
-msgid "numeric literal exceeds size limits"
-msgstr "numeric literal exceeds size limits"
-
-#: cobc/typeck.c:8820
-#, c-format
-msgid "figurative constant %s invalid here"
-msgstr "figurative constant %s invalid here"
-
-#: cobc/typeck.c:8840
-#, c-format
-msgid "'%s' is not a 01 or 77 level item"
-msgstr "‘%s’ is not a 01 or 77 level item"
-
-#: cobc/typeck.c:8856
-#, c-format
-msgid "'%s' ANY LENGTH item not passed BY REFERENCE"
-msgstr "‘%s’ ANY LENGTH item not passed BY REFERENCE"
-
-#: cobc/typeck.c:8909 cobc/typeck.c:8914
-#, c-format
-msgid "wrong number of CALL parameters for '%s', %d given, %d expected"
-msgstr "wrong number of CALL parameters for '%s', %d given, %d expected"
-
-#: cobc/typeck.c:8981 cobc/typeck.c:9055 cobc/typeck.c:9059 cobc/typeck.c:9095
-#: cobc/typeck.c:12703 cobc/typeck.c:12863 cobc/typeck.c:13052
-#: cobc/typeck.c:13056 cobc/typeck.c:14012 cobc/typeck.c:14345
-#: cobc/typeck.c:14348
-#, c-format
-msgid "%s not allowed on %s files"
-msgstr "%s not allowed on %s files"
-
-#: cobc/typeck.c:9172
-msgid "positions cannot be specified for main windows"
-msgstr "positions cannot be specified for main windows"
-
-#: cobc/typeck.c:9183 cobc/typeck.c:9187 cobc/typeck.c:9211
-msgid "HANDLE must be either a generic or a WINDOW HANDLE or X(10)"
-msgstr "HANDLE must be either a generic or a WINDOW HANDLE or X(10)"
-
-#: cobc/typeck.c:9324
-#, c-format
-msgid "'%s' is an invalid type for DISPLAY operand"
-msgstr "‘%s’ is an invalid type for DISPLAY operand"
-
-#: cobc/typeck.c:9329
-msgid "invalid type for DISPLAY operand"
-msgstr "invalid type for DISPLAY operand"
-
-#: cobc/typeck.c:9668 cobc/typeck.c:9701
-#, c-format
-msgid "'%s' is not an output device"
-msgstr "‘%s’ is not an output device"
-
-#: cobc/typeck.c:9800
-msgid "invalid use of 88 level in WHEN expression"
-msgstr "invalid use of 88 level in WHEN expression"
-
-#: cobc/typeck.c:9861
-msgid "wrong number of WHEN parameters"
-msgstr "wrong number of WHEN parameters"
-
-#: cobc/typeck.c:9983 cobc/typeck.c:9995
-#, c-format
-msgid "target %d of FREE is not a BASED data item"
-msgstr "target %d of FREE is not a BASED data item"
-
-#: cobc/typeck.c:10001
-#, c-format
-msgid "target %d of FREE must be a data pointer"
-msgstr "target %d of FREE must be a data pointer"
-
-#: cobc/typeck.c:10015
-msgid "GO TO without procedure-name"
-msgstr "GO TO without procedure-name"
-
-#: cobc/typeck.c:10023
-msgid "GO TO with multiple procedure-names"
-msgstr "GO TO with multiple procedure-names"
-
-#: cobc/typeck.c:10088
-msgid "invalid INITIALIZE statement"
-msgstr "invalid INITIALIZE statement"
-
-#: cobc/typeck.c:10193 cobc/typeck.c:10196
-#, c-format
-msgid "%s operands differ in size"
-msgstr "%s operands differ in size"
-
-#: cobc/typeck.c:10226
-#, c-format
-msgid "unexpected clause %d"
-msgstr "unexpected clause %d"
-
-#: cobc/typeck.c:10301 cobc/typeck.c:10312 cobc/typeck.c:10323
-#: cobc/typeck.c:10334
-#, c-format
-msgid "data name expected before %s"
-msgstr "data name expected before %s"
-
-#: cobc/typeck.c:10344
-#, c-format
-msgid "ALL, LEADING or TRAILING expected before '%s'"
-msgstr "ALL, LEADING or TRAILING expected before ‘%s’"
-
-#: cobc/typeck.c:10354
-msgid "operand has wrong size"
-msgstr "operand has wrong size"
-
-#: cobc/typeck.c:10448
-#, c-format
-msgid "'%s' defined here as PIC %s"
-msgstr "‘%s’ defined here as PIC %s"
-
-#: cobc/typeck.c:10452
-#, c-format
-msgid "'%s' defined here as a group of length %d"
-msgstr "‘%s’ defined here as a group of length %d"
-
-#: cobc/typeck.c:10458
-#, c-format
-msgid "internal register '%s' defined as USAGE %s"
-msgstr "internal register ‘%s’ defined as USAGE %s"
-
-#: cobc/typeck.c:10461
-#, c-format
-msgid "'%s' defined here as USAGE %s"
-msgstr "‘%s’ defined here as USAGE %s"
-
-#: cobc/typeck.c:10486 cobc/typeck.c:10504
-#, c-format
-msgid "value size is %d"
-msgstr "value size is %d"
-
-#: cobc/typeck.c:10500
-#, c-format
-msgid "value is %s"
-msgstr "value is %s"
-
-#: cobc/typeck.c:10824
-msgid "MOVE of figurative constant SPACE to numeric item"
-msgstr "MOVE of figurative constant SPACE to numeric item"
-
-#: cobc/typeck.c:10839
-msgid "MOVE of figurative constant QUOTE to numeric item"
-msgstr "MOVE of figurative constant QUOTE to numeric item"
-
-#: cobc/typeck.c:10844 cobc/typeck.c:10855
-msgid "MOVE of figurative constant to numeric item"
-msgstr "MOVE of figurative constant to numeric item"
-
-#: cobc/typeck.c:10936
-msgid "numeric literal in VALUE clause of numeric-edited item"
-msgstr "numeric literal in VALUE clause of numeric-edited item"
-
-#: cobc/typeck.c:10966
-msgid "numeric move to ALPHABETIC"
-msgstr "numeric move to ALPHABETIC"
-
-#: cobc/typeck.c:10978
-msgid "data item not signed"
-msgstr "data item not signed"
-
-#: cobc/typeck.c:10981
-msgid "ignoring sign"
-msgstr "ignoring sign"
-
-#: cobc/typeck.c:11381
-msgid "overlapping MOVE may occur and produce unpredictable results"
-msgstr "overlapping MOVE may occur and produce unpredictable results"
-
-#: cobc/typeck.c:11388
-msgid "overlapping MOVE may produce unpredictable results"
-msgstr "overlapping MOVE may produce unpredictable results"
-
-#: cobc/typeck.c:11593
-msgid "invalid source for MOVE"
-msgstr "invalid source for MOVE"
-
-#: cobc/typeck.c:11614
-msgid "source is non-numeric - substituting zero"
-msgstr "source is non-numeric - substituting zero"
-
-#: cobc/typeck.c:11620 cobc/typeck.c:11631
-msgid "invalid VALUE clause"
-msgstr "invalid VALUE clause"
-
-#: cobc/typeck.c:11623 cobc/typeck.c:13622 cobc/typeck.c:13627
-#: cobc/typeck.c:13654 cobc/typeck.c:13659
-msgid "invalid SET statement"
-msgstr "invalid SET statement"
-
-#: cobc/typeck.c:11625
-msgid "invalid MOVE statement"
-msgstr "invalid MOVE statement"
-
-#: cobc/typeck.c:11632
-msgid "literal exceeds data size"
-msgstr "literal exceeds data size"
-
-#: cobc/typeck.c:11636
-msgid "numeric literal exceeds data size"
-msgstr "numeric literal exceeds data size"
-
-#: cobc/typeck.c:11645
-msgid "MOVE of non-integer to alphanumeric"
-msgstr "MOVE of non-integer to alphanumeric"
-
-#: cobc/typeck.c:11666 cobc/typeck.c:11671
-msgid "national value is expected"
-msgstr "national value is expected"
-
-#: cobc/typeck.c:11676
-msgid "value does not fit the picture string"
-msgstr "value does not fit the picture string"
-
-#: cobc/typeck.c:11682
-msgid "value size exceeds data size"
-msgstr "value size exceeds data size"
-
-#: cobc/typeck.c:11687
-msgid "sending field larger than receiving field"
-msgstr "sending field larger than receiving field"
-
-#: cobc/typeck.c:11692
-msgid "some digits may be truncated"
-msgstr "some digits may be truncated"
-
-#: cobc/typeck.c:12566 cobc/typeck.c:12619
-#, c-format
-msgid "invalid MOVE target: %s"
-msgstr "invalid MOVE target: %s"
-
-#: cobc/typeck.c:12876
-msgid "READ PREVIOUS not allowed for this file type"
-msgstr "READ PREVIOUS not allowed for this file type"
-
-#: cobc/typeck.c:12884
-msgid "KEY ignored with sequential READ"
-msgstr "KEY ignored with sequential READ"
-
-#: cobc/typeck.c:12980
-msgid "figurative constants not allowed in FROM clause"
-msgstr "figurative constants not allowed in FROM clause"
-
-#: cobc/typeck.c:12987
-msgid "literal in FROM clause must be alphanumeric, utf-8, national or boolean"
-msgstr "literal in FROM clause must be alphanumeric, utf-8, national or boolean"
-
-#: cobc/typeck.c:13010 cobc/typeck.c:14305
-#, c-format
-msgid "%s FILE requires a FROM clause"
-msgstr "%s FILE requires a FROM clause"
-
-#: cobc/typeck.c:13032 cobc/typeck.c:13116 cobc/typeck.c:14327
-#, c-format
-msgid "%s subject does not refer to a record name"
-msgstr "%s subject does not refer to a record name"
-
-#: cobc/typeck.c:13122
-msgid "RELEASE not allowed on this record item"
-msgstr "RELEASE not allowed on this record item"
-
-#: cobc/typeck.c:13183 cobc/typeck.c:13209 cobc/typeck.c:13237
-msgid "invalid SEARCH ALL condition"
-msgstr "invalid SEARCH ALL condition"
-
-#: cobc/typeck.c:13231
-msgid "SEARCH ALL requires comparision of KEY field"
-msgstr "SEARCH ALL requires comparision of KEY field"
-
-#: cobc/typeck.c:13354 cobc/typeck.c:13361
-msgid "SET targets must be PROGRAM-POINTER"
-msgstr "SET targets must be PROGRAM-POINTER"
-
-#: cobc/typeck.c:13386
-#, c-format
-msgid "SET target '%s' is not numeric, an INDEX or a POINTER"
-msgstr "SET target ‘%s’ is not numeric, an INDEX or a POINTER"
-
-#: cobc/typeck.c:13403 cobc/typeck.c:13475 cobc/typeck.c:13543
-#, c-format
-msgid "cannot change address of '%s', which is not level 1 or 77"
-msgstr "cannot change address of '%s', which is not level 1 or 77"
-
-#: cobc/typeck.c:13500
-#, c-format
-msgid "SET target '%s' is not a POINTER for FCD"
-msgstr "SET target ‘%s’ is not a POINTER for FCD"
-
-#: cobc/typeck.c:13569
-#, c-format
-msgid "SET target '%s' is not a POINTER for FCD-KEYDEF"
-msgstr "SET target ‘%s’ is not a POINTER for FCD-KEYDEF"
-
-#: cobc/typeck.c:13663
-msgid "field does not have a FALSE clause"
-msgstr "field does not have a FALSE clause"
-
-#: cobc/typeck.c:13694
-msgid "THREAD-priority must be between 1 and 32767"
-msgstr "THREAD-priority must be between 1 and 32767"
-
-#: cobc/typeck.c:13714
-msgid "SET ATTRIBUTE requires a screen item as subject"
-msgstr "SET ATTRIBUTE requires a screen item as subject"
-
-#: cobc/typeck.c:13720
-msgid "SET ATTRIBUTE subject does not refer to a screen item"
-msgstr "SET ATTRIBUTE subject does not refer to a screen item"
-
-#: cobc/typeck.c:13835 cobc/typeck.c:13875
-#, c-format
-msgid "invalid %s parameter"
-msgstr "invalid %s parameter"
-
-#: cobc/typeck.c:13940 cobc/typeck.c:13967 cobc/typeck.c:13987
-msgid "invalid key item"
-msgstr "invalid key item"
-
-#: cobc/typeck.c:14017
-msgid "LENGTH/SIZE clause only allowed on INDEXED files"
-msgstr "LENGTH/SIZE clause only allowed on INDEXED files"
-
-#: cobc/typeck.c:14022
-msgid "START not allowed with ACCESS MODE RANDOM"
-msgstr "START not allowed with ACCESS MODE RANDOM"
-
-#: cobc/typeck.c:14111 cobc/typeck.c:14117
-#, c-format
-msgid "%s item '%s' must be an integer"
-msgstr "%s item ‘%s’ must be an integer"
-
-#: cobc/typeck.c:14121
-#, c-format
-msgid "%s item '%s' may not have PICTURE with P in it"
-msgstr "%s item ‘%s’ may not have PICTURE with P in it"
-
-#: cobc/typeck.c:14137
-#, c-format
-msgid "'%s' is not an elementary item"
-msgstr "‘%s’ is not an elementary item"
-
-#: cobc/typeck.c:14213
-msgid "STRING items must be all NATIONAL or none"
-msgstr "STRING items must be all NATIONAL or none"
-
-#: cobc/typeck.c:14361
-msgid "LOCK clause invalid here"
-msgstr "LOCK clause invalid here"
-
-#: cobc/typeck.c:14606
-msgid "data item is not part of a report"
-msgstr "data item is not part of a report"
-
-#: cobc/typeck.c:14626
-msgid "improper use of SUPPRESS PRINTING"
-msgstr "improper use of SUPPRESS PRINTING"
-
-#: cobc/typeck.c:14642
-#, c-format
-msgid "%s must be alphanumeric or national"
-msgstr "%s must be alphanumeric or national"
-
-#: cobc/typeck.c:14652
-#, c-format
-msgid "%s may not be a figurative constant"
-msgstr "%s may not be a figurative constant"
-
-#: cobc/typeck.c:14690
-#, c-format
-msgid "%s must be a child of the input record"
-msgstr "%s must be a child of the input record"
-
-#: cobc/typeck.c:14715
-#, c-format
-msgid "%s may not be an ignored item in JSON/XML GENERATE"
-msgstr "%s may not be an ignored item in JSON/XML GENERATE"
-
-#: cobc/typeck.c:14725
-#, c-format
-msgid "%s must be elementary"
-msgstr "%s must be elementary"
-
-#: cobc/typeck.c:14737
-#, c-format
-msgid "STRING item '%s' must be USAGE DISPLAY or NATIONAL"
-msgstr "STRING item ‘%s’ must be USAGE DISPLAY or NATIONAL"
-
-#: cobc/typeck.c:14749
-#, c-format
-msgid "%s must be USAGE DISPLAY or NATIONAL"
-msgstr "%s must be USAGE DISPLAY or NATIONAL"
-
-#: cobc/typeck.c:14761
-#, c-format
-msgid "%s must be an integer"
-msgstr "%s must be an integer"
-
-#: cobc/typeck.c:14776 cobc/typeck.c:14782
-msgid "JSON/XML GENERATE receiving item"
-msgstr "JSON/XML GENERATE receiving item"
-
-#: cobc/typeck.c:14779
-msgid "JSON/XML GENERATE receiving item may not have JUSTIFIED clause"
-msgstr "JSON/XML GENERATE receiving item may not have JUSTIFIED clause"
-
-#: cobc/typeck.c:14867
-msgid "JSON/XML GENERATE input record may not be reference modified"
-msgstr "JSON/XML GENERATE input record may not be reference modified"
-
-#: cobc/typeck.c:14873
-msgid "JSON/XML GENERATE input record may not have RENAMES clause"
-msgstr "JSON/XML GENERATE input record may not have RENAMES clause"
-
-#: cobc/typeck.c:14878
-#, c-format
-msgid "all the children of '%s' are ignored in JSON/XML GENERATE"
-msgstr "all the children of ‘%s’ are ignored in JSON/XML GENERATE"
-
-#: cobc/typeck.c:14885
-msgid "JSON/XML GENERATE input record has subrecords with non-unique names"
-msgstr "JSON/XML GENERATE input record has subrecords with non-unique names"
-
-#: cobc/typeck.c:14890
-msgid "floating-point items in JSON/XML GENERATE"
-msgstr "floating-point items in JSON/XML GENERATE"
-
-#: cobc/typeck.c:14894
-msgid "OCCURS items in JSON/XML GENERATE"
-msgstr "OCCURS items in JSON/XML GENERATE"
-
-#: cobc/typeck.c:14941
-msgid "NAMESPACE must be a valid URI"
-msgstr "NAMESPACE must be a valid URI"
-
-#: cobc/typeck.c:14985
-msgid "NAMESPACE-PREFIX must be a valid XML name"
-msgstr "NAMESPACE-PREFIX must be a valid XML name"
-
-#: cobc/typeck.c:15014 cobc/typeck.c:15022
-msgid "NAME OF item"
-msgstr "NAME OF item"
-
-#: cobc/typeck.c:15019
-msgid "NAME OF item must be the input record or a child of it"
-msgstr "NAME OF item must be the input record or a child of it"
-
-#: cobc/typeck.c:15029
-msgid "NAME OF ... OMITTED only valid for source identifier"
-msgstr "NAME OF ... OMITTED only valid for source identifier"
-
-#: cobc/typeck.c:15037
-#, c-format
-msgid "NAME OF literal must be a valid %s identifier"
-msgstr "NAME OF literal must be a valid %s identifier"
-
-#: cobc/typeck.c:15062 cobc/typeck.c:15063 cobc/typeck.c:15066
-#: cobc/typeck.c:15070
-msgid "TYPE OF item"
-msgstr "TYPE OF item"
-
-#: cobc/typeck.c:15088
-msgid "SUPPRESS WHEN SPACE item"
-msgstr "SUPPRESS WHEN SPACE item"
-
-#: cobc/typeck.c:15091
-msgid "SUPPRESS WHEN LOW-VALUE item"
-msgstr "SUPPRESS WHEN LOW-VALUE item"
-
-#: cobc/typeck.c:15093
-msgid "SUPPRESS WHEN HIGH-VALUE item"
-msgstr "SUPPRESS WHEN HIGH-VALUE item"
-
-#: cobc/typeck.c:15122 cobc/typeck.c:15130 cobc/typeck.c:15134
-msgid "SUPPRESS item"
-msgstr "SUPPRESS item"
-
-#: cobc/typeck.c:15126
-msgid "SUPPRESS item with WHEN clause"
-msgstr "SUPPRESS item with WHEN clause"
-
-#: cobc/typeck.c:15204
-msgid "WITH ATTRIBUTES specified, but no attributes can be generated"
-msgstr "WITH ATTRIBUTES specified, but no attributes can be generated"
-
-#: cobc/warning.def:31
-msgid " -Wadditional additional warnings only raised with -Wall"
-msgstr " -Wadditional additional warnings only raised with -Wall"
-
-#: cobc/warning.def:34
-msgid " -Wno-unfinished do not warn if unfinished features are used"
-msgstr " -Wno-unfinished do not warn if unfinished features are used"
-
-#: cobc/warning.def:37
-msgid " -Wno-pending do not warn if pending features are used"
-msgstr " -Wno-pending do not warn if pending features are used"
-
-#: cobc/warning.def:40
-msgid " -Wno-repository-checks\tdo not warn/check for program/function/external signature mismatch"
-msgstr " -Wno-repository-checks\tdo not warn/check for program/function/external signature mismatch"
-
-#: cobc/warning.def:43
-msgid " -Wno-ignored-error do not warn about errors in code parts which are unreachable and so normally ignored"
-msgstr " -Wno-ignored-error do not warn about errors in code parts which are unreachable and so normally ignored"
-
-#: cobc/warning.def:46
-msgid " -Wobsolete warn if obsolete features are used"
-msgstr " -Wobsolete warn if obsolete features are used"
-
-#: cobc/warning.def:49
-msgid " -Warchaic warn if archaic features are used"
-msgstr " -Warchaic warn if archaic features are used"
-
-#: cobc/warning.def:52
-msgid " -Wredefinition warn about non-referenced ambiguous data items"
-msgstr " -Wredefinition warn about non-referenced ambiguous data items"
-
-#: cobc/warning.def:55
-msgid " -Wtruncate warn about field truncation from constant assignments"
-msgstr " -Wtruncate warn about field truncation from constant assignments"
-
-#: cobc/warning.def:58
-msgid " -Wpossible-truncate warn about possible field truncation"
-msgstr " -Wpossible-truncate warn about possible field truncation"
-
-#: cobc/warning.def:61
-msgid " -Woverlap warn about overlapping MOVE of items"
-msgstr " -Woverlap warn about overlapping MOVE of items"
-
-#: cobc/warning.def:64
-msgid " -Wpossible-overlap warn about MOVE of items that may overlap depending on variables"
-msgstr " -Wpossible-overlap warn about MOVE of items that may overlap depending on variables"
-
-#: cobc/warning.def:67
-msgid " -Wparentheses warn if parentheses are omitted around AND within OR"
-msgstr " -Wparentheses warn if parentheses are omitted around AND within OR"
-
-#: cobc/warning.def:70
-msgid " -Wstrict-typing warn strictly about type mismatch, even when same size"
-msgstr " -Wstrict-typing warn strictly about type mismatch, even when same size"
-
-#: cobc/warning.def:73
-msgid " -Wtyping warn about type mismatch"
-msgstr " -Wtyping warn about type mismatch"
-
-#: cobc/warning.def:76
-msgid " -Wimplicit-define warn whenever data items are implicitly defined"
-msgstr " -Wimplicit-define warn whenever data items are implicitly defined"
-
-#: cobc/warning.def:79
-msgid " -Wno-corresponding do not warn about CORRESPONDING with no matching items"
-msgstr " -Wno-corresponding do not warn about CORRESPONDING with no matching items"
-
-#: cobc/warning.def:82
-msgid " -Winitial-value warn if initial VALUE clause is ignored"
-msgstr " -Winitial-value warn if initial VALUE clause is ignored"
-
-#: cobc/warning.def:85
-msgid " -Wprototypes warn about missing FUNCTION prototypes/definitions"
-msgstr " -Wprototypes warn about missing FUNCTION prototypes/definitions"
-
-#: cobc/warning.def:88
-msgid " -Warithmetic-osvs warn if arithmetic expression precision has changed"
-msgstr " -Warithmetic-osvs warn if arithmetic expression precision has changed"
-
-#: cobc/warning.def:91
-msgid " -Wcall-params warn about non 01/77 items for CALL parameters"
-msgstr " -Wcall-params warn about non 01/77 items for CALL parameters"
-
-#: cobc/warning.def:94
-msgid " -Wconstant-expression warn about expressions that always resolve to true/false"
-msgstr " -Wconstant-expression warn about expressions that always resolve to true/false"
-
-#: cobc/warning.def:97
-msgid " -Wconstant-numlit-expression\twarn about numeric expressions that always resolve to true/false"
-msgstr " -Wconstant-numlit-expression\twarn about numeric expressions that always resolve to true/false"
-
-#: cobc/warning.def:100
-msgid " -Wlarger-01-redefines warn about larger redefines allowed by COBOL standards"
-msgstr " -Wlarger-01-redefines warn about larger redefines allowed by COBOL standards"
-
-#: cobc/warning.def:103
-msgid " -Wcolumn-overflow warn about text after program-text area, FIXED format"
-msgstr " -Wcolumn-overflow warn about text after program-text area, FIXED format"
-
-#: cobc/warning.def:106
-msgid " -Wterminator warn about lack of scope terminator END-XXX"
-msgstr " -Wterminator warn about lack of scope terminator END-XXX"
-
-#: cobc/warning.def:109
-msgid " -Wlinkage warn about dangling LINKAGE items"
-msgstr " -Wlinkage warn about dangling LINKAGE items"
-
-#: cobc/warning.def:112
-msgid " -Wunreachable warn about likely unreachable statements"
-msgstr " -Wunreachable warn about likely unreachable statements"
-
-#: cobc/warning.def:115
-msgid " -Wno-dialect do not warn about dialect specific issues"
-msgstr " -Wno-dialect do not warn about dialect specific issues"
-
-#: cobc/warning.def:118
-msgid " -Wno-goto-section do not warn about GO TO section-name"
-msgstr " -Wno-goto-section do not warn about GO TO section-name"
-
-#: cobc/warning.def:121
-msgid " -Wgoto-different-section\twarn about GO TO a praragraph defined in a different section"
-msgstr " -Wgoto-different-section\twarn about GO TO a praragraph defined in a different section"
-
-#: cobc/warning.def:124
-msgid " -Wsuspicious-perform-thru\twarn if PERFORM THRU references procedures not in ascending order or multiple sections"
-msgstr " -Wsuspicious-perform-thru\twarn if PERFORM THRU references procedures not in ascending order or multiple sections"
-
-#: cobc/warning.def:127
-msgid " -Wdangling-text warn about source text after program-area"
-msgstr " -Wdangling-text warn about source text after program-area"
-
-#: cobc/warning.def:130
-msgid " -Wno-missing-newline do not warn about missing newlines"
-msgstr " -Wno-missing-newline do not warn about missing newlines"
-
-#: cobc/warning.def:133
-msgid " -Wno-others do not warn about different issues"
-msgstr " -Wno-others do not warn about different issues"
-
-#: cobc/warning.def:136
-msgid " -Wno-unsupported do not warn if runtime does not support a feature used"
-msgstr " -Wno-unsupported do not warn if runtime does not support a feature used"
-
-#: libcob/call.c:98
-#, c-format
-msgid "LoadLibrary/GetProcAddress error %d"
-msgstr "LoadLibrary/GetProcAddress error %d"
-
-#: libcob/call.c:626
-#, c-format
-msgid "preloading from existing path '%s' failed; %s"
-msgstr "preloading from existing path ‘%s’ failed; %s"
-
-#: libcob/call.c:817
-#, c-format
-msgid "%s: PROGRAM name exceeds %d characters"
-msgstr "%s: PROGRAM name exceeds %d characters"
-
-#: libcob/call.c:818
-#, c-format
-msgid "%s: FUNCTION name exceeds %d characters"
-msgstr "%s: FUNCTION name exceeds %d characters"
-
-#: libcob/call.c:945 libcob/call.c:978
-#, c-format
-msgid "loading from existing path '%s' failed; %s"
-msgstr "loading from existing path ‘%s’ failed; %s"
-
-#: libcob/call.c:1049
-msgid "indeterminable error in resolve of COBOL CALL"
-msgstr "indeterminable error in resolve of COBOL CALL"
-
-#: libcob/call.c:1145
-#, c-format
-msgid "user-defined FUNCTION '%s' not found"
-msgstr "user-defined FUNCTION ‘%s’ not found"
-
-#: libcob/call.c:1247 libcob/call.c:1328 libcob/call.c:1448 libcob/call.c:1475
-#, c-format
-msgid "NULL parameter passed to '%s'"
-msgstr "NULL parameter passed to ‘%s’"
-
-#: libcob/call.c:1332
-#, c-format
-msgid "invalid number of arguments passed to '%s'"
-msgstr "invalid number of arguments passed to ‘%s’"
-
-#: libcob/call.c:1452
-msgid "multiple call to 'cob_setjmp'"
-msgstr "multiple call to ‘cob_setjmp’"
-
-#: libcob/call.c:1479
-msgid "call to 'cob_longjmp' with no prior 'cob_setjmp'"
-msgstr "call to ‘cob_longjmp’ with no prior ‘cob_setjmp’"
-
-#: libcob/call.c:1608
-#, c-format
-msgid "preloading of '%s' failed"
-msgstr "preloading of ‘%s’ failed"
-
-#: libcob/call.c:1706 libcob/call.c:1733 libcob/common.c:8965
-msgid "cob_init() has not been called"
-msgstr "cob_init() has not been called"
-
-#: libcob/call.c:1712
-#, c-format
-msgid "parameter %d is not within range of %d"
-msgstr "parameter %d is not within range of %d"
-
-#: libcob/call.c:1718
-#, c-format
-msgid "parameter %d is NULL"
-msgstr "parameter %d is NULL"
-
-#: libcob/call.c:2045
-msgid "NULL field"
-msgstr "NULL field"
-
-#: libcob/call.c:2053
-msgid "field not allocated"
-msgstr "field not allocated"
-
-#: libcob/call.c:2119
-#, c-format
-msgid "attempt to over-write constant field with '%s'"
-msgstr "attempt to over-write constant field with ‘%s’"
-
-#: libcob/call.c:2161 libcob/call.c:2219 libcob/call.c:2270
-#, c-format
-msgid "attempt to over-write constant parameter %d with '%s'"
-msgstr "attempt to over-write constant parameter %d with ‘%s’"
-
-#: libcob/cobgetopt.c:330
-#, c-format
-msgid "%s: option '%s%s' is ambiguous"
-msgstr "%s: option ‘%s%s’ is ambiguous"
-
-#: libcob/cobgetopt.c:338
-#, c-format
-msgid "%s: option '%s%s' is ambiguous; possibilities:"
-msgstr "%s: option ‘%s%s’ is ambiguous; possibilities:"
-
-#: libcob/cobgetopt.c:371
-#, c-format
-msgid "%s: unrecognized option '%s%s'"
-msgstr "%s: unrecognized option ‘%s%s’"
-
-#: libcob/cobgetopt.c:400
-#, c-format
-msgid "%s: option '%s%s' doesn't allow an argument"
-msgstr "%s: option ‘%s%s’ doesn't allow an argument"
-
-#: libcob/cobgetopt.c:418
-#, c-format
-msgid "%s: option '%s%s' requires an argument"
-msgstr "%s: option ‘%s%s’ requires an argument"
-
-#: libcob/cobgetopt.c:689
-#, c-format
-msgid "%s: invalid option -- '%c'"
-msgstr "%s: invalid option -- ‘%c’"
-
-#: libcob/cobgetopt.c:707 libcob/cobgetopt.c:754
-#, c-format
-msgid "%s: option requires an argument -- '%c'"
-msgstr "%s: option requires an argument -- ‘%c’"
-
-#: libcob/common.c:1074
-#, c-format
-msgid "requested coredump creation failed with status %d"
-msgstr "requested coredump creation failed with status %d"
-
-#: libcob/common.c:1303
-msgid "fatal arithmetic error"
-msgstr "fatal arithmetic error"
-
-#: libcob/common.c:1306
-msgid "interrupt from keyboard"
-msgstr "interrupt from keyboard"
-
-#: libcob/common.c:1310
-msgid "hangup"
-msgstr "hangup"
-
-#: libcob/common.c:1314
-msgid "quit"
-msgstr "quit"
-
-#: libcob/common.c:1318
-msgid "termination"
-msgstr "termination"
-
-#: libcob/common.c:1322
-msgid "emt termination"
-msgstr "emt termination"
-
-#: libcob/common.c:1326
-msgid "broken pipe"
-msgstr "broken pipe"
-
-#: libcob/common.c:1330
-msgid "I/O signal"
-msgstr "I/O signal"
-
-#: libcob/common.c:1334
-msgid "attempt to reference invalid memory address"
-msgstr "attempt to reference invalid memory address"
-
-#: libcob/common.c:1338
-msgid "bus error"
-msgstr "bus error"
-
-#: libcob/common.c:1342
-msgid "illegal instruction"
-msgstr "illegal instruction"
-
-#: libcob/common.c:1346
-msgid "abort"
-msgstr "abort"
-
-#: libcob/common.c:1350
-msgid "process killed"
-msgstr "process killed"
-
-#: libcob/common.c:1354
-msgid "alarm signal"
-msgstr "alarm signal"
-
-#: libcob/common.c:1358
-msgid "stop process"
-msgstr "stop process"
-
-#: libcob/common.c:1362 libcob/common.c:1366
-msgid "child process stopped"
-msgstr "child process stopped"
-
-#. TRANSLATORS: This msgid is used for an OS signal like SIGABRT.
-#: libcob/common.c:1373
-msgid "signal"
-msgstr "signal"
-
-#. TRANSLATORS: This msgid is shown for a requested but not complete stack trace.
-#: libcob/common.c:1375
-msgid "(more COBOL runtime elements follow...)"
-msgstr "(more COBOL runtime elements follow...)"
-
-#: libcob/common.c:1377 libcob/common.c:8922
-#, c-format
-msgid "abnormal termination - file contents may be incorrect"
-msgstr "abnormal termination - file contents may be incorrect"
-
-#: libcob/common.c:3441 libcob/common.c:9398 libcob/common.c:9412
-msgid "version mismatch"
-msgstr "version mismatch"
-
-#: libcob/common.c:3442 libcob/common.c:3444 libcob/common.c:9399
-#: libcob/common.c:9401
-#, c-format
-msgid "%s has version %s.%d"
-msgstr "%s has version %s.%d"
-
-#: libcob/common.c:3454
-#, c-format
-msgid "CALL to %s requires %d arguments"
-msgstr "CALL to %s requires %d arguments"
-
-#: libcob/common.c:4141
-#, c-format
-msgid "code execution leaving %s"
-msgstr "code execution leaving %s"
-
-#: libcob/common.c:4151
-#, c-format
-msgid "BASED/LINKAGE item %s has NULL address"
-msgstr "BASED/LINKAGE item %s has NULL address"
-
-#: libcob/common.c:4168
-#, c-format
-msgid "memory violation detected for '%s' after %s"
-msgstr "memory violation detected for ‘%s’ after %s"
-
-#: libcob/common.c:4171
-#, c-format
-msgid "memory violation detected after %s"
-msgstr "memory violation detected after %s"
-
-#: libcob/common.c:4229 libcob/common.c:4244 libcob/common.c:4283
-#: libcob/common.c:4287
-#, c-format
-msgid "LINKAGE item %s not passed by caller"
-msgstr "LINKAGE item %s not passed by caller"
-
-#: libcob/common.c:4253
-#, c-format
-msgid "LINKAGE item %s (size %lu) too small in the caller (size %lu)"
-msgstr "LINKAGE item %s (size %lu) too small in the caller (size %lu)"
-
-#: libcob/common.c:4378
-#, c-format
-msgid "'%s' (Type: %s) not numeric: '%s'"
-msgstr "‘%s’ (Type: %s) not numeric: ‘%s’"
-
-#: libcob/common.c:4403
-#, c-format
-msgid "OCCURS DEPENDING ON '%s' out of bounds: %d"
-msgstr "OCCURS DEPENDING ON ‘%s’ out of bounds: %d"
-
-#: libcob/common.c:4406 libcob/common.c:4444
-#, c-format
-msgid "maximum subscript for '%s': %d"
-msgstr "maximum subscript for '%s': %d"
-
-#: libcob/common.c:4408
-#, c-format
-msgid "minimum subscript for '%s': %d"
-msgstr "minimum subscript for '%s': %d"
-
-#: libcob/common.c:4441
-#, c-format
-msgid "current maximum subscript for '%s': %d"
-msgstr "current maximum subscript for '%s': %d"
-
-#: libcob/common.c:4465
-#, c-format
-msgid "offset of '%s' out of bounds: %d, maximum: %d"
-msgstr "offset of ‘%s’ out of bounds: %d, maximum: %d"
-
-#: libcob/common.c:4480
-#, c-format
-msgid "length of '%s' out of bounds: %d, maximum: %d"
-msgstr "length of ‘%s’ out of bounds: %d, maximum: %d"
-
-#: libcob/common.c:4491
-#, c-format
-msgid "length of '%s' out of bounds: %d, starting at: %d, maximum: %d"
-msgstr "length of ‘%s’ out of bounds: %d, starting at: %d, maximum: %d"
-
-#: libcob/common.c:4579 libcob/common.c:4584
-#, c-format
-msgid "EXTERNAL item '%s' previously allocated with size %d, requested size is %d"
-msgstr "EXTERNAL item ‘%s’ previously allocated with size %d, requested size is %d"
-
-#: libcob/common.c:4961 libcob/common.c:5201
-#, c-format
-msgid "COB_CURRENT_DATE '%s' is invalid"
-msgstr "COB_CURRENT_DATE ‘%s’ is invalid"
-
-#: libcob/common.c:6321 libcob/common.c:6324
-msgid "Program abandoned at user request"
-msgstr "Program abandoned at user request"
-
-#: libcob/common.c:6348
-#, c-format
-msgid "parameter to SYSTEM call is larger than %d characters"
-msgstr "parameter to SYSTEM call is larger than %d characters"
-
-#: libcob/common.c:6998
-#, c-format
-msgid "error '%s' during CBL_GC_FORK"
-msgstr "error ‘%s’ during CBL_GC_FORK"
-
-#: libcob/common.c:7003 libcob/common.c:7100
-#, c-format
-msgid "'%s' is not supported on this platform"
-msgstr "‘%s’ is not supported on this platform"
-
-#: libcob/common.c:7029
-#, c-format
-msgid "error '%s' for P%d during CBL_GC_WAITPID"
-msgstr "error ‘%s’ for P%d during CBL_GC_WAITPID"
-
-#: libcob/common.c:7220
-msgid "call to CBL_GC_GETOPT with wrong longoption size"
-msgstr "call to CBL_GC_GETOPT with wrong longoption size"
-
-#: libcob/common.c:7225
-msgid "call to CBL_GC_GETOPT with missing longind"
-msgstr "call to CBL_GC_GETOPT with missing longind"
-
-#: libcob/common.c:7654 libcob/common.c:7675 libcob/common.c:7688
-#: libcob/common.c:9924 libcob/common.c:9928
-#, c-format
-msgid "(default)"
-msgstr "(default)"
-
-#: libcob/common.c:7973 libcob/common.c:7992
-msgid "should be unsigned"
-msgstr "should be unsigned"
-
-#: libcob/common.c:7981 libcob/common.c:8030
-msgid "should be numeric"
-msgstr "should be numeric"
-
-#: libcob/common.c:8039
-#, c-format
-msgid "minimum value: %lu"
-msgstr "minimum value: %lu"
-
-#: libcob/common.c:8069 libcob/common.c:8640 libcob/common.c:8654
-#: bin/cobcrun.c:206
-#, c-format
-msgid "should not contain '%c'"
-msgstr "should not contain ‘%c’"
-
-#: libcob/common.c:8150 libcob/common.c:8169 libcob/common.c:8231
-#: libcob/common.c:8240 libcob/common.c:8248 libcob/common.c:8273
-#, c-format
-msgid "not set"
-msgstr "not set"
-
-#: libcob/common.c:8223 libcob/common.c:8226 libcob/common.c:8229
-#, c-format
-msgid "set by %s"
-msgstr "set by %s"
-
-#: libcob/common.c:8367
-#, c-format
-msgid "WARNING - '%s' without a value - ignored!"
-msgstr "WARNING - ‘%s’ without a value - ignored!"
-
-#: libcob/common.c:8370
-#, c-format
-msgid "'%s' without a value!"
-msgstr "‘%s’ without a value!"
-
-#: libcob/common.c:8397
-#, c-format
-msgid "WARNING - '%s %s' without a value - ignored!"
-msgstr "WARNING - ‘%s %s’ without a value - ignored!"
-
-#: libcob/common.c:8906
-msgid "error"
-msgstr "error"
-
-#: libcob/common.c:8948
-msgid "attempt to CANCEL active program"
-msgstr "attempt to CANCEL active program"
-
-#: libcob/common.c:8975
-msgid "CALL of program with CHAINING clause"
-msgstr "CALL of program with CHAINING clause"
-
-#: libcob/common.c:8979
-msgid "stack overflow, possible PERFORM depth exceeded"
-msgstr "stack overflow, possible PERFORM depth exceeded"
-
-#: libcob/common.c:8984
-msgid "invalid entry/exit in GLOBAL USE procedure"
-msgstr "invalid entry/exit in GLOBAL USE procedure"
-
-#: libcob/common.c:8988
-msgid "unable to allocate memory"
-msgstr "unable to allocate memory"
-
-#: libcob/common.c:8993
-msgid "invalid entry into module"
-msgstr "invalid entry into module"
-
-#: libcob/common.c:9000
-#, c-format
-msgid "recursive CALL from '%s' to '%s' which is NOT RECURSIVE"
-msgstr "recursive CALL from ‘%s’ to ‘%s’ which is NOT RECURSIVE"
-
-#: libcob/common.c:9005
-#, c-format
-msgid "invalid recursive COBOL CALL to '%s'"
-msgstr "invalid recursive COBOL CALL to ‘%s’"
-
-#: libcob/common.c:9020
-msgid "end of file"
-msgstr "end of file"
-
-#: libcob/common.c:9023
-msgid "key out of range"
-msgstr "key out of range"
-
-#: libcob/common.c:9026
-msgid "key order not ascending"
-msgstr "key order not ascending"
-
-#: libcob/common.c:9029
-msgid "record key already exists"
-msgstr "record key already exists"
-
-#: libcob/common.c:9032
-msgid "record key does not exist"
-msgstr "record key does not exist"
-
-#: libcob/common.c:9035
-msgid "permanent file error"
-msgstr "permanent file error"
-
-#: libcob/common.c:9038
-msgid "inconsistent file name"
-msgstr "inconsistent file name"
-
-#: libcob/common.c:9041
-msgid "file does not exist"
-msgstr "file does not exist"
-
-#: libcob/common.c:9044
-msgid "permission denied"
-msgstr "permission denied"
-
-#: libcob/common.c:9047
-msgid "mismatch of fixed file attributes"
-msgstr "mismatch of fixed file attributes"
-
-#: libcob/common.c:9050
-msgid "file already open"
-msgstr "file already open"
-
-#: libcob/common.c:9053
-msgid "file not open"
-msgstr "file not open"
-
-#: libcob/common.c:9056
-msgid "READ must be executed first"
-msgstr "READ must be executed first"
-
-#: libcob/common.c:9059
-msgid "record overflow"
-msgstr "record overflow"
-
-#: libcob/common.c:9062
-msgid "READ after unsuccessful READ/START"
-msgstr "READ after unsuccessful READ/START"
-
-#: libcob/common.c:9065
-msgid "READ/START not allowed, file not open for input"
-msgstr "READ/START not allowed, file not open for input"
-
-#: libcob/common.c:9068
-msgid "WRITE not allowed, file not open for output"
-msgstr "WRITE not allowed, file not open for output"
-
-#: libcob/common.c:9071
-msgid "DELETE/REWRITE not allowed, file not open for I-O"
-msgstr "DELETE/REWRITE not allowed, file not open for I-O"
-
-#: libcob/common.c:9074
-msgid "record locked by another file connector"
-msgstr "record locked by another file connector"
-
-#: libcob/common.c:9077
-msgid "LINAGE values invalid"
-msgstr "LINAGE values invalid"
-
-#: libcob/common.c:9080
-msgid "file sharing conflict"
-msgstr "file sharing conflict"
-
-#: libcob/common.c:9083
-msgid "invalid data in LINE SEQUENTIAL file"
-msgstr "invalid data in LINE SEQUENTIAL file"
-
-#: libcob/common.c:9087
-msgid "runtime library is not configured for this operation"
-msgstr "runtime library is not configured for this operation"
-
-#: libcob/common.c:9092
-msgid "unknown file error"
-msgstr "unknown file error"
-
-#: libcob/common.c:9099
-#, c-format
-msgid "%s (status = %02d) for file %s"
-msgstr "%s (status = %02d) for file %s"
-
-#: libcob/common.c:9102
-#, c-format
-msgid "%s (status = %02d) for file %s on %s"
-msgstr "%s (status = %02d) for file %s on %s"
-
-#: libcob/common.c:9109
-msgid "attempt to use non-implemented function"
-msgstr "attempt to use non-implemented function"
-
-#: libcob/common.c:9112
-msgid "attempt to use non-implemented XML I/O"
-msgstr "attempt to use non-implemented XML I/O"
-
-#: libcob/common.c:9115
-msgid "attempt to use non-implemented JSON I/O"
-msgstr "attempt to use non-implemented JSON I/O"
-
-#: libcob/common.c:9162
-msgid "environment variables"
-msgstr "environment variables"
-
-#: libcob/common.c:9283 libcob/common.c:9356 libcob/common.c:9371
-#: libcob/common.c:9676 libcob/common.c:9710 libcob/common.c:9727
-#: libcob/common.c:9742
-#, c-format
-msgid "%s, version %d.%d.%d"
-msgstr "%s, version %d.%d.%d"
-
-#: libcob/common.c:9285 libcob/common.c:9358 libcob/common.c:9375
-#: libcob/common.c:9679 libcob/common.c:9730 libcob/common.c:9745
-#, c-format
-msgid "%s, version %d.%d.%d (compiled with %d.%d)"
-msgstr "%s, version %d.%d.%d (compiled with %d.%d)"
-
-#: libcob/common.c:9288
-#, c-format
-msgid "%s, version %s"
-msgstr "%s, version %s"
-
-#: libcob/common.c:9556
-#, c-format
-msgid "License LGPLv3+: GNU LGPL version 3 or later <%s>"
-msgstr "License LGPLv3+: GNU LGPL version 3 or later <%s>"
-
-#: libcob/common.c:9620 libcob/common.c:9622
-msgid "dynamic loading"
-msgstr "dynamic loading"
-
-#: libcob/common.c:9755
-msgid "mouse support"
-msgstr "mouse support"
-
-#: libcob/common.c:9772
-msgid "CALL configuration"
-msgstr "CALL configuration"
-
-#: libcob/common.c:9773
-msgid "File I/O configuration"
-msgstr "File I/O configuration"
-
-#: libcob/common.c:9774
-msgid "Screen I/O configuration"
-msgstr "Screen I/O configuration"
-
-#: libcob/common.c:9775
-msgid "Miscellaneous"
-msgstr "Miscellaneous"
-
-#: libcob/common.c:9776
-msgid "System configuration"
-msgstr "System configuration"
-
-#: libcob/common.c:9780
-msgid "runtime configuration"
-msgstr "runtime configuration"
-
-#: libcob/common.c:9782
-msgid "via"
-msgstr "via"
-
-#: libcob/common.c:9857 libcob/common.c:9885
-msgid "... removed from environment"
-msgstr "... removed from environment"
-
-#: libcob/common.c:9911 libcob/common.c:9913
-#, c-format
-msgid "(set by %s)"
-msgstr "(set by %s)"
-
-#: libcob/common.c:9921
-#, c-format
-msgid "(reset)"
-msgstr "(reset)"
-
-#: libcob/common.c:10151
-msgid "compiler was not built with --enable-debug-log; COB_DEBUG_LOG ignored"
-msgstr "compiler was not built with --enable-debug-log; COB_DEBUG_LOG ignored"
-
-#: libcob/common.c:10338 libcob/common.c:10364
-#, c-format
-msgid "%s called with unknown option: %d"
-msgstr "%s called with unknown option: %d"
-
-#. TRANSLATORS: This msgid is shown for a requested but empty stack trace.
-#: libcob/common.c:10411
-msgid "No COBOL runtime elements on stack."
-msgstr "No COBOL runtime elements on stack."
-
-#: libcob/common.c:10734
-#, c-format
-msgid "Module dump due to %s"
-msgstr "Module dump due to %s"
-
-#: libcob/common.c:10762
-#, c-format
-msgid "Dump Program-Id %s from %s compiled %s"
-msgstr "Dump Program-Id %s from %s compiled %s"
-
-#: libcob/common.c:10788
-#, c-format
-msgid "dump written to %s"
-msgstr "dump written to %s"
-
-#: libcob/fileio.c:784 libcob/fileio.c:1664 libcob/fileio.c:1926
-#: libcob/fileio.c:3938 libcob/fileio.c:4522 libcob/fileio.c:10049
-#: libcob/fileio.c:10077 libcob/numeric.c:1915
-#, c-format
-msgid "invalid internal call of %s"
-msgstr "invalid internal call of %s"
-
-#: libcob/fileio.c:3486
-#, c-format
-msgid "BDB error: %s"
-msgstr "BDB error: %s"
-
-#: libcob/fileio.c:3496
-#, c-format
-msgid "BDB error: %s %s"
-msgstr "BDB error: %s %s"
-
-#: libcob/fileio.c:3510 libcob/fileio.c:3530
-#, c-format
-msgid "cannot join BDB environment (%s), error: %d %s"
-msgstr "cannot join BDB environment (%s), error: %d %s"
-
-#: libcob/fileio.c:3585 libcob/fileio.c:3610 libcob/fileio.c:3636
-#: libcob/fileio.c:3655
-#, c-format
-msgid "BDB (%s), error: %d %s"
-msgstr "BDB (%s), error: %d %s"
-
-#: libcob/fileio.c:6199
-#, c-format
-msgid "ERROR FILE %s has ASSIGN field is NULL"
-msgstr "ERROR FILE %s has ASSIGN field is NULL"
-
-#: libcob/fileio.c:7050
-#, c-format
-msgid "call to CBL_OPEN_FILE with wrong access mode: %d"
-msgstr "call to CBL_OPEN_FILE with wrong access mode: %d"
-
-#: libcob/fileio.c:7135
-#, c-format
-msgid "call to CBL_CREATE_FILE with wrong file_lock: %d"
-msgstr "call to CBL_CREATE_FILE with wrong file_lock: %d"
-
-#: libcob/fileio.c:7138
-#, c-format
-msgid "call to CBL_CREATE_FILE with wrong file_dev: %d"
-msgstr "call to CBL_CREATE_FILE with wrong file_dev: %d"
-
-#: libcob/fileio.c:7362 libcob/fileio.c:7645
-#, c-format
-msgid "'%s' - File detail area is too short"
-msgstr "‘%s’ - File detail area is too short"
-
-#: libcob/fileio.c:7871
-msgid "SORT is unable to acquire temporary file"
-msgstr "SORT is unable to acquire temporary file"
-
-#. TRANSLATORS: This msgid is concatenated with a filename;
-#. setup translation to allow this to be followed on the right side,
-#. if necessary use a colon or hyphen
-#: libcob/fileio.c:8777
-msgid "implicit CLOSE of "
-msgstr "implicit CLOSE of "
-
-#: libcob/fileio.c:10008 libcob/fileio.c:10193
-#, c-format
-msgid "ERROR: EXTFH called with FCD version %d"
-msgstr "ERROR: EXTFH called with FCD version %d"
-
-#: libcob/fileio.c:10310
-#, c-format
-msgid "ERROR: EXTFH called with wrong file organization %d"
-msgstr "ERROR: EXTFH called with wrong file organization %d"
-
-#: libcob/fileio.c:10317
-#, c-format
-msgid "ERROR: EXTFH called with no %s pointer"
-msgstr "ERROR: EXTFH called with no %s pointer"
-
-#: libcob/fileio.c:10461
-#, c-format
-msgid "ERROR: EXTFH called with no %s pointer; Function %d"
-msgstr "ERROR: EXTFH called with no %s pointer; Function %d"
-
-#: libcob/fileio.c:10683
-#, c-format
-msgid "ERROR: EXTFH called with unknown Function %d"
-msgstr "ERROR: EXTFH called with unknown Function %d"
-
-#: libcob/reportio.c:629
-#, c-format
-msgid "INITIATE %s LINE %d exceeds PAGE LIMIT %d"
-msgstr "INITIATE %s LINE %d exceeds PAGE LIMIT %d"
-
-#: libcob/reportio.c:636 libcob/reportio.c:651
-#, c-format
-msgid "INITIATE %s NEXT GROUP %d exceeds PAGE LIMIT"
-msgstr "INITIATE %s NEXT GROUP %d exceeds PAGE LIMIT"
-
-#: libcob/reportio.c:644
-#, c-format
-msgid "INITIATE %s LINE %d exceeds PAGE LIMIT"
-msgstr "INITIATE %s LINE %d exceeds PAGE LIMIT"
-
-#: libcob/reportio.c:1336
-#, c-format
-msgid "INITIATE %s was already done"
-msgstr "INITIATE %s was already done"
-
-#: libcob/reportio.c:1352
-#, c-format
-msgid "INITIATE %s PAGE LIMIT problem"
-msgstr "INITIATE %s PAGE LIMIT problem"
-
-#: libcob/reportio.c:1429
-#, c-format
-msgid "TERMINATE %s but no INITIATE was done"
-msgstr "TERMINATE %s but no INITIATE was done"
-
-#: libcob/reportio.c:1574
-#, c-format
-msgid "GENERATE %s but no INITIATE was done"
-msgstr "GENERATE %s but no INITIATE was done"
-
-#: libcob/reportio.c:1926
-#, c-format
-msgid "could not find line to SUPPRESS in report %s"
-msgstr "could not find line to SUPPRESS in report %s"
-
-#: libcob/screenio.c:1055
-msgid "failed to initialize curses"
-msgstr "failed to initialize curses"
-
-#: libcob/screenio.c:5034
-msgid "end of program, please press a key to exit"
-msgstr "end of program, please press a key to exit"
-
-#: libcob/termio.c:76 libcob/termio.c:136
-msgid "(Not representable)"
-msgstr "(Not representable)"
-
-#: libcob/termio.c:406
-#, c-format
-msgid "cannot open %s (=%s)"
-msgstr "cannot open %s (=%s)"
-
-#: libcob/termio.c:421
-msgid "COB_DISPLAY_PUNCH_FILE is invalid, output to SYSPUNCH skipped"
-msgstr "COB_DISPLAY_PUNCH_FILE is invalid, output to SYSPUNCH skipped"
-
-#: bin/cobcrun.c:118
-msgid "GnuCOBOL module loader"
-msgstr "GnuCOBOL module loader"
-
-#: bin/cobcrun.c:120
-#, c-format
-msgid "Usage: %s [options] PROGRAM [parameter ...]"
-msgstr "Usage: %s [options] PROGRAM [parameter ...]"
-
-#: bin/cobcrun.c:122
-#, c-format
-msgid " or: %s options"
-msgstr " or: %s options"
-
-#: bin/cobcrun.c:126
-msgid " -h, --help display this help and exit"
-msgstr " -h, --help display this help and exit"
-
-#: bin/cobcrun.c:127
-msgid " -V, --version display version information for cobcrun + runtime and exit"
-msgstr " -V, --version display version information for cobcrun + runtime and exit"
-
-#: bin/cobcrun.c:128
-msgid " -dumpversion display runtime version and exit"
-msgstr " -dumpversion display runtime version and exit"
-
-#: bin/cobcrun.c:129
-msgid " -i, --info display runtime information (build/environment)"
-msgstr " -i, --info display runtime information (build/environment)"
-
-#: bin/cobcrun.c:130
-msgid " -v, --verbose display extended output with --info"
-msgstr " -v, --verbose display extended output with --info"
-
-#: bin/cobcrun.c:132
-msgid " -q, --brief reduced displays"
-msgstr " -q, --brief reduced displays"
-
-#: bin/cobcrun.c:134
-msgid " -c <file>, --config=<file> set runtime configuration from <file>"
-msgstr " -c <file>, --config=<file> set runtime configuration from <file>"
-
-#: bin/cobcrun.c:135
-msgid ""
-" -r, --runtime-config display current runtime configuration\n"
-" (value and origin for all settings)"
-msgstr ""
-" -r, --runtime-config display current runtime configuration\n"
-" (value and origin for all settings)"
-
-#: bin/cobcrun.c:137
-msgid ""
-" -M <module>, --module=<module> set entry point module name and/or load path\n"
-" where -M module prepends any directory to the\n"
-" dynamic link loader library search path\n"
-" and any basename to the module preload list\n"
-" (COB_LIBRARY_PATH and/or COB_PRELOAD)"
-msgstr ""
-" -M <module>, --module=<module> set entry point module name and/or load path\n"
-" where -M module prepends any directory to the\n"
-" dynamic link loader library search path\n"
-" and any basename to the module preload list\n"
-" (COB_LIBRARY_PATH and/or COB_PRELOAD)"
-
-#: bin/cobcrun.c:286
-msgid "invalid configuration file name"
-msgstr "invalid configuration file name"
-
-#: bin/cobcrun.c:353
-#, c-format
-msgid "invalid module argument '%s'"
-msgstr "invalid module argument ‘%s’"
-
-#: bin/cobcrun.c:408
-#, c-format
-msgid "%s: missing PROGRAM name"
-msgstr "%s: missing PROGRAM name"
-
-#: bin/cobcrun.c:410
-#, c-format
-msgid "Try '%s --help' for more information."
-msgstr "Try ‘%s --help’ for more information."
diff --git a/po/es.gmo b/po/es.gmo
deleted file mode 100644
index afa7d3e..0000000
Binary files a/po/es.gmo and /dev/null differ
diff --git a/po/fr.gmo b/po/fr.gmo
deleted file mode 100644
index f595423..0000000
Binary files a/po/fr.gmo and /dev/null differ
diff --git a/po/it.gmo b/po/it.gmo
deleted file mode 100644
index 7b2e16c..0000000
Binary files a/po/it.gmo and /dev/null differ
diff --git a/po/ja.gmo b/po/ja.gmo
deleted file mode 100644
index 5175b01..0000000
Binary files a/po/ja.gmo and /dev/null differ
diff --git a/po/nl.gmo b/po/nl.gmo
deleted file mode 100644
index 36d7699..0000000
Binary files a/po/nl.gmo and /dev/null differ
diff --git a/po/pt.gmo b/po/pt.gmo
deleted file mode 100644
index 6cf4328..0000000
Binary files a/po/pt.gmo and /dev/null differ
diff --git a/po/sr.gmo b/po/sr.gmo
deleted file mode 100644
index 785d76c..0000000
Binary files a/po/sr.gmo and /dev/null differ
diff --git a/po/sv.gmo b/po/sv.gmo
deleted file mode 100644
index f51cbdd..0000000
Binary files a/po/sv.gmo and /dev/null differ
diff --git a/po/tr.gmo b/po/tr.gmo
deleted file mode 100644
index 6a96c34..0000000
Binary files a/po/tr.gmo and /dev/null differ
diff --git a/tarstamp.h b/tarstamp.h
deleted file mode 100644
index ccd86ee..0000000
--- a/tarstamp.h
+++ /dev/null
@@ -1,3 +0,0 @@
-#define COB_TAR_DATE "Jul 28 2023 17:02:56 UTC"
-#define COB_NUM_TAR_DATE 20230728
-#define COB_NUM_TAR_TIME 170256
diff --git a/tests/Makefile.in b/tests/Makefile.in
deleted file mode 100644
index afa9b0e..0000000
--- a/tests/Makefile.in
+++ /dev/null
@@ -1,862 +0,0 @@
-# Makefile.in generated by automake 1.16.3 from Makefile.am.
-# @configure_input@
-
-# Copyright (C) 1994-2020 Free Software Foundation, Inc.
-
-# This Makefile.in is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
-# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
-# PARTICULAR PURPOSE.
-
-@SET_MAKE@
-
-#
-# Makefile gnucobol/tests
-#
-# Copyright (C) 2003-2012, 2014-2019, 2022-2023 Free Software Foundation, Inc.
-# Written by Keisuke Nishida, Roger While, Simon Sobisch
-#
-# 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 <https://www.gnu.org/licenses/>.
-
-VPATH = @srcdir@
-am__is_gnu_make = { \
- if test -z '$(MAKELEVEL)'; then \
- false; \
- elif test -n '$(MAKE_HOST)'; then \
- true; \
- elif test -n '$(MAKE_VERSION)' && test -n '$(CURDIR)'; then \
- true; \
- else \
- false; \
- fi; \
-}
-am__make_running_with_option = \
- case $${target_option-} in \
- ?) ;; \
- *) echo "am__make_running_with_option: internal error: invalid" \
- "target option '$${target_option-}' specified" >&2; \
- exit 1;; \
- esac; \
- has_opt=no; \
- sane_makeflags=$$MAKEFLAGS; \
- if $(am__is_gnu_make); then \
- sane_makeflags=$$MFLAGS; \
- else \
- case $$MAKEFLAGS in \
- *\\[\ \ ]*) \
- bs=\\; \
- sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \
- | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \
- esac; \
- fi; \
- skip_next=no; \
- strip_trailopt () \
- { \
- flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \
- }; \
- for flg in $$sane_makeflags; do \
- test $$skip_next = yes && { skip_next=no; continue; }; \
- case $$flg in \
- *=*|--*) continue;; \
- -*I) strip_trailopt 'I'; skip_next=yes;; \
- -*I?*) strip_trailopt 'I';; \
- -*O) strip_trailopt 'O'; skip_next=yes;; \
- -*O?*) strip_trailopt 'O';; \
- -*l) strip_trailopt 'l'; skip_next=yes;; \
- -*l?*) strip_trailopt 'l';; \
- -[dEDm]) skip_next=yes;; \
- -[JT]) skip_next=yes;; \
- esac; \
- case $$flg in \
- *$$target_option*) has_opt=yes; break;; \
- esac; \
- done; \
- test $$has_opt = yes
-am__make_dryrun = (target_option=n; $(am__make_running_with_option))
-am__make_keepgoing = (target_option=k; $(am__make_running_with_option))
-pkgdatadir = $(datadir)/@PACKAGE@
-pkgincludedir = $(includedir)/@PACKAGE@
-pkglibdir = $(libdir)/@PACKAGE@
-pkglibexecdir = $(libexecdir)/@PACKAGE@
-am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
-install_sh_DATA = $(install_sh) -c -m 644
-install_sh_PROGRAM = $(install_sh) -c
-install_sh_SCRIPT = $(install_sh) -c
-INSTALL_HEADER = $(INSTALL_DATA)
-transform = $(program_transform_name)
-NORMAL_INSTALL = :
-PRE_INSTALL = :
-POST_INSTALL = :
-NORMAL_UNINSTALL = :
-PRE_UNINSTALL = :
-POST_UNINSTALL = :
-build_triplet = @build@
-host_triplet = @host@
-subdir = tests
-ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
-am__aclocal_m4_deps = $(top_srcdir)/m4/ax_ac_append_to_file.m4 \
- $(top_srcdir)/m4/ax_ac_define_resolved.m4 \
- $(top_srcdir)/m4/ax_ac_print_to_file.m4 \
- $(top_srcdir)/m4/ax_add_am_macro_static.m4 \
- $(top_srcdir)/m4/ax_am_macros_static.m4 \
- $(top_srcdir)/m4/ax_check_define.m4 \
- $(top_srcdir)/m4/ax_check_gnu_make.m4 \
- $(top_srcdir)/m4/ax_code_coverage.m4 \
- $(top_srcdir)/m4/ax_file_escapes.m4 \
- $(top_srcdir)/m4/ax_prog_bison.m4 \
- $(top_srcdir)/m4/ax_prog_flex.m4 $(top_srcdir)/m4/codeset.m4 \
- $(top_srcdir)/m4/gettext.m4 $(top_srcdir)/m4/iconv.m4 \
- $(top_srcdir)/m4/intlmacosx.m4 $(top_srcdir)/m4/lib-ld.m4 \
- $(top_srcdir)/m4/lib-link.m4 $(top_srcdir)/m4/lib-prefix.m4 \
- $(top_srcdir)/m4/libtool.m4 $(top_srcdir)/m4/ltoptions.m4 \
- $(top_srcdir)/m4/ltsugar.m4 $(top_srcdir)/m4/ltversion.m4 \
- $(top_srcdir)/m4/lt~obsolete.m4 $(top_srcdir)/m4/nls.m4 \
- $(top_srcdir)/m4/pkg.m4 $(top_srcdir)/m4/po.m4 \
- $(top_srcdir)/m4/progtest.m4 $(top_srcdir)/configure.ac
-am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
- $(ACLOCAL_M4)
-DIST_COMMON = $(srcdir)/Makefile.am $(dist_check_SCRIPTS) \
- $(dist_noinst_SCRIPTS) $(am__DIST_COMMON)
-mkinstalldirs = $(SHELL) $(top_srcdir)/build_aux/mkinstalldirs
-CONFIG_HEADER = $(top_builddir)/config.h
-CONFIG_CLEAN_FILES = atlocal run_prog_manual.sh
-CONFIG_CLEAN_VPATH_FILES =
-SCRIPTS = $(dist_noinst_SCRIPTS)
-AM_V_P = $(am__v_P_@AM_V@)
-am__v_P_ = $(am__v_P_@AM_DEFAULT_V@)
-am__v_P_0 = false
-am__v_P_1 = :
-AM_V_GEN = $(am__v_GEN_@AM_V@)
-am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@)
-am__v_GEN_0 = @echo " GEN " $@;
-am__v_GEN_1 =
-AM_V_at = $(am__v_at_@AM_V@)
-am__v_at_ = $(am__v_at_@AM_DEFAULT_V@)
-am__v_at_0 = @
-am__v_at_1 =
-SOURCES =
-DIST_SOURCES =
-RECURSIVE_TARGETS = all-recursive check-recursive cscopelist-recursive \
- ctags-recursive dvi-recursive html-recursive info-recursive \
- install-data-recursive install-dvi-recursive \
- install-exec-recursive install-html-recursive \
- install-info-recursive install-pdf-recursive \
- install-ps-recursive install-recursive installcheck-recursive \
- installdirs-recursive pdf-recursive ps-recursive \
- tags-recursive uninstall-recursive
-am__can_run_installinfo = \
- case $$AM_UPDATE_INFO_DIR in \
- n|no|NO) false;; \
- *) (install-info --version) >/dev/null 2>&1;; \
- esac
-RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \
- distclean-recursive maintainer-clean-recursive
-am__recursive_targets = \
- $(RECURSIVE_TARGETS) \
- $(RECURSIVE_CLEAN_TARGETS) \
- $(am__extra_recursive_targets)
-AM_RECURSIVE_TARGETS = $(am__recursive_targets:-recursive=) TAGS CTAGS \
- distdir distdir-am
-am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP)
-# Read a list of newline-separated strings from the standard input,
-# and print each of them once, without duplicates. Input order is
-# *not* preserved.
-am__uniquify_input = $(AWK) '\
- BEGIN { nonempty = 0; } \
- { items[$$0] = 1; nonempty = 1; } \
- END { if (nonempty) { for (i in items) print i; }; } \
-'
-# Make sure the list of sources is unique. This is necessary because,
-# e.g., the same source file might be shared among _SOURCES variables
-# for different programs/libraries.
-am__define_uniq_tagged_files = \
- list='$(am__tagged_files)'; \
- unique=`for i in $$list; do \
- if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
- done | $(am__uniquify_input)`
-ETAGS = etags
-CTAGS = ctags
-DIST_SUBDIRS = $(SUBDIRS)
-am__DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/atlocal.in \
- $(srcdir)/run_prog_manual.sh.in \
- $(top_srcdir)/build_aux/mkinstalldirs ChangeLog
-DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
-am__relativize = \
- dir0=`pwd`; \
- sed_first='s,^\([^/]*\)/.*$$,\1,'; \
- sed_rest='s,^[^/]*/*,,'; \
- sed_last='s,^.*/\([^/]*\)$$,\1,'; \
- sed_butlast='s,/*[^/]*$$,,'; \
- while test -n "$$dir1"; do \
- first=`echo "$$dir1" | sed -e "$$sed_first"`; \
- if test "$$first" != "."; then \
- if test "$$first" = ".."; then \
- dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \
- dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \
- else \
- first2=`echo "$$dir2" | sed -e "$$sed_first"`; \
- if test "$$first2" = "$$first"; then \
- dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \
- else \
- dir2="../$$dir2"; \
- fi; \
- dir0="$$dir0"/"$$first"; \
- fi; \
- fi; \
- dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \
- done; \
- reldir="$$dir2"
-ACLOCAL = @ACLOCAL@
-AMTAR = @AMTAR@
-AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@
-AR = @AR@
-AS = @AS@
-AUTOCONF = @AUTOCONF@
-AUTOHEADER = @AUTOHEADER@
-AUTOMAKE = @AUTOMAKE@
-AWK = @AWK@
-BDB_CFLAGS = @BDB_CFLAGS@
-BDB_LIBS = @BDB_LIBS@
-CC = @CC@
-CCDEPMODE = @CCDEPMODE@
-CFLAGS = @CFLAGS@
-CJSON_CFLAGS = @CJSON_CFLAGS@
-CJSON_LIBS = @CJSON_LIBS@
-COBC_CPPFLAGS = @COBC_CPPFLAGS@
-COB_BIGENDIAN = @COB_BIGENDIAN@
-COB_CC = @COB_CC@
-COB_CFLAGS = @COB_CFLAGS@
-COB_CONFIG_DIR = @COB_CONFIG_DIR@
-COB_COPY_DIR = @COB_COPY_DIR@
-COB_ENABLE_DEBUG = @COB_ENABLE_DEBUG@
-COB_EXE_EXT = @COB_EXE_EXT@
-COB_FIX_LIBTOOL = @COB_FIX_LIBTOOL@
-COB_HAS_64_BIT_POINTER = @COB_HAS_64_BIT_POINTER@
-COB_HAS_CURSES = @COB_HAS_CURSES@
-COB_HAS_ISAM = @COB_HAS_ISAM@
-COB_HAS_JSON = @COB_HAS_JSON@
-COB_HAS_XML2 = @COB_HAS_XML2@
-COB_LDFLAGS = @COB_LDFLAGS@
-COB_LIBRARY_PATH = @COB_LIBRARY_PATH@
-COB_LIBS = @COB_LIBS@
-COB_MODULE_EXT = @COB_MODULE_EXT@
-COB_OBJECT_EXT = @COB_OBJECT_EXT@
-COB_PATCH_LEVEL = @COB_PATCH_LEVEL@
-CODE_COVERAGE_CFLAGS = @CODE_COVERAGE_CFLAGS@
-CODE_COVERAGE_CPPFLAGS = @CODE_COVERAGE_CPPFLAGS@
-CODE_COVERAGE_CXXFLAGS = @CODE_COVERAGE_CXXFLAGS@
-CODE_COVERAGE_ENABLED = @CODE_COVERAGE_ENABLED@
-CODE_COVERAGE_LIBS = @CODE_COVERAGE_LIBS@
-CPP = @CPP@
-CPPFLAGS = @CPPFLAGS@
-CURSES_LIBS = @CURSES_LIBS@
-CYGPATH_W = @CYGPATH_W@
-DEFS = @DEFS@
-DEPDIR = @DEPDIR@
-DIFF_FLAGS = @DIFF_FLAGS@
-DLLTOOL = @DLLTOOL@
-DSYMUTIL = @DSYMUTIL@
-DUMPBIN = @DUMPBIN@
-ECHO_C = @ECHO_C@
-ECHO_N = @ECHO_N@
-ECHO_T = @ECHO_T@
-EGREP = @EGREP@
-EXEEXT = @EXEEXT@
-FGREP = @FGREP@
-GCOV = @GCOV@
-GENHTML = @GENHTML@
-GETTEXT_MACRO_VERSION = @GETTEXT_MACRO_VERSION@
-GMP_CFLAGS = @GMP_CFLAGS@
-GMP_LIBS = @GMP_LIBS@
-GMSGFMT = @GMSGFMT@
-GMSGFMT_015 = @GMSGFMT_015@
-GREP = @GREP@
-HELP2MAN = @HELP2MAN@
-INSTALL = @INSTALL@
-INSTALL_DATA = @INSTALL_DATA@
-INSTALL_PROGRAM = @INSTALL_PROGRAM@
-INSTALL_SCRIPT = @INSTALL_SCRIPT@
-INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
-INTLLIBS = @INTLLIBS@
-INTL_MACOSX_LIBS = @INTL_MACOSX_LIBS@
-JSON_C_CFLAGS = @JSON_C_CFLAGS@
-JSON_C_LIBS = @JSON_C_LIBS@
-LCOV = @LCOV@
-LD = @LD@
-LDFLAGS = @LDFLAGS@
-LEX = @LEX@
-LEXLIB = @LEXLIB@
-LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@
-LIBCOB_CPPFLAGS = @LIBCOB_CPPFLAGS@
-LIBCOB_LIBS = @LIBCOB_LIBS@
-LIBICONV = @LIBICONV@
-LIBINTL = @LIBINTL@
-LIBOBJS = @LIBOBJS@
-LIBS = @LIBS@
-LIBTOOL = @LIBTOOL@
-LIPO = @LIPO@
-LN_S = @LN_S@
-LTLIBICONV = @LTLIBICONV@
-LTLIBINTL = @LTLIBINTL@
-LTLIBOBJS = @LTLIBOBJS@
-LT_SYS_LIBRARY_PATH = @LT_SYS_LIBRARY_PATH@
-MAKE = @MAKE@
-MAKEINFO = @MAKEINFO@
-MANIFEST_TOOL = @MANIFEST_TOOL@
-MKDIR_P = @MKDIR_P@
-MPIR_CFLAGS = @MPIR_CFLAGS@
-MPIR_LIBS = @MPIR_LIBS@
-MSGFMT = @MSGFMT@
-MSGMERGE = @MSGMERGE@
-MSGMERGE_FOR_MSGFMT_OPTION = @MSGMERGE_FOR_MSGFMT_OPTION@
-NM = @NM@
-NMEDIT = @NMEDIT@
-OBJDUMP = @OBJDUMP@
-OBJEXT = @OBJEXT@
-OTOOL = @OTOOL@
-OTOOL64 = @OTOOL64@
-PACKAGE = @PACKAGE@
-PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
-PACKAGE_NAME = @PACKAGE_NAME@
-PACKAGE_STRING = @PACKAGE_STRING@
-PACKAGE_TARNAME = @PACKAGE_TARNAME@
-PACKAGE_URL = @PACKAGE_URL@
-PACKAGE_VERSION = @PACKAGE_VERSION@
-PATH_SEPARATOR = @PATH_SEPARATOR@
-PERL = @PERL@
-PKG_CONFIG = @PKG_CONFIG@
-PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@
-PKG_CONFIG_PATH = @PKG_CONFIG_PATH@
-POSUB = @POSUB@
-PROGRAMS_LIBS = @PROGRAMS_LIBS@
-QUOTE_INCLUDE_FLAG = @QUOTE_INCLUDE_FLAG@
-RANLIB = @RANLIB@
-RC = @RC@
-SED = @SED@
-SET_MAKE = @SET_MAKE@
-SHELL = @SHELL@
-STRIP = @STRIP@
-USE_NLS = @USE_NLS@
-VERSION = @VERSION@
-XGETTEXT = @XGETTEXT@
-XGETTEXT_015 = @XGETTEXT_015@
-XGETTEXT_EXTRA_OPTIONS = @XGETTEXT_EXTRA_OPTIONS@
-XML2_CFLAGS = @XML2_CFLAGS@
-XML2_CONFIG = @XML2_CONFIG@
-XML2_LIBS = @XML2_LIBS@
-YACC = @YACC@
-YFLAGS = @YFLAGS@
-abs_builddir = @abs_builddir@
-abs_srcdir = @abs_srcdir@
-abs_top_builddir = @abs_top_builddir@
-abs_top_srcdir = @abs_top_srcdir@
-ac_ct_AR = @ac_ct_AR@
-ac_ct_CC = @ac_ct_CC@
-ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
-am__include = @am__include@
-am__leading_dot = @am__leading_dot@
-am__quote = @am__quote@
-am__tar = @am__tar@
-am__untar = @am__untar@
-bindir = @bindir@
-build = @build@
-build_alias = @build_alias@
-build_cpu = @build_cpu@
-build_os = @build_os@
-build_vendor = @build_vendor@
-builddir = @builddir@
-configured_make = @configured_make@
-datadir = @datadir@
-datarootdir = @datarootdir@
-docdir = @docdir@
-dvidir = @dvidir@
-exec_prefix = @exec_prefix@
-host = @host@
-host_alias = @host_alias@
-host_cpu = @host_cpu@
-host_os = @host_os@
-host_vendor = @host_vendor@
-htmldir = @htmldir@
-ifGNUmake = @ifGNUmake@
-ifnGNUmake = @ifnGNUmake@
-includedir = @includedir@
-infodir = @infodir@
-install_sh = @install_sh@
-libdir = @libdir@
-libexecdir = @libexecdir@
-localedir = @localedir@
-localstatedir = @localstatedir@
-mandir = @mandir@
-mkdir_p = @mkdir_p@
-oldincludedir = @oldincludedir@
-pdfdir = @pdfdir@
-prefix = @prefix@
-program_transform_name = @program_transform_name@
-psdir = @psdir@
-runstatedir = @runstatedir@
-sbindir = @sbindir@
-sharedstatedir = @sharedstatedir@
-srcdir = @srcdir@
-sysconfdir = @sysconfdir@
-target_alias = @target_alias@
-top_build_prefix = @top_build_prefix@
-top_builddir = @top_builddir@
-top_srcdir = @top_srcdir@
-SUBDIRS = cobol85
-TESTSUITE = $(srcdir)/testsuite
-TESTSUITE_MANUAL = $(srcdir)/testsuite_manual
-dist_check_SCRIPTS = listings-sed.sh
-dist_noinst_SCRIPTS = $(TESTSUITE) $(TESTSUITE_MANUAL)
-testsuite_sources = \
- testsuite.src/used_binaries.at \
- testsuite.src/configuration.at \
- testsuite.src/syn_copy.at \
- testsuite.src/syn_definition.at \
- testsuite.src/syn_file.at \
- testsuite.src/syn_functions.at \
- testsuite.src/syn_literals.at \
- testsuite.src/syn_misc.at \
- testsuite.src/syn_move.at \
- testsuite.src/syn_multiply.at \
- testsuite.src/syn_occurs.at \
- testsuite.src/syn_redefines.at \
- testsuite.src/syn_refmod.at \
- testsuite.src/syn_reportwriter.at \
- testsuite.src/syn_screen.at \
- testsuite.src/syn_set.at \
- testsuite.src/syn_subscripts.at \
- testsuite.src/syn_value.at \
- testsuite.src/listings.at \
- testsuite.src/run_accept.at \
- testsuite.src/run_extensions.at \
- testsuite.src/run_file.at \
- testsuite.src/run_functions.at \
- testsuite.src/run_fundamental.at \
- testsuite.src/run_initialize.at \
- testsuite.src/run_misc.at \
- testsuite.src/run_ml.at \
- testsuite.src/run_refmod.at \
- testsuite.src/run_reportwriter.at \
- testsuite.src/run_returncode.at \
- testsuite.src/run_subscripts.at \
- testsuite.src/data_binary.at \
- testsuite.src/data_display.at \
- testsuite.src/data_packed.at \
- testsuite.src/data_pointer.at \
- testsuite.src/numeric-dump.cob \
- testsuite.src/numeric-display.cob
-
-testsuite_manual_sources = \
- testsuite.src/run_manual_screen.at
-
-EXTRA_DIST = $(srcdir)/package.m4 \
- $(srcdir)/testsuite.at $(srcdir)/testsuite_manual.at \
- $(srcdir)/listings-sed.sh \
- $(srcdir)/valgrind.supp \
- $(testsuite_sources) $(testsuite_manual_sources)
-
-DISTCLEANFILES = atconfig
-all: all-recursive
-
-.SUFFIXES:
-$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps)
- @for dep in $?; do \
- case '$(am__configure_deps)' in \
- *$$dep*) \
- ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
- && { if test -f $@; then exit 0; else break; fi; }; \
- exit 1;; \
- esac; \
- done; \
- echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu tests/Makefile'; \
- $(am__cd) $(top_srcdir) && \
- $(AUTOMAKE) --gnu tests/Makefile
-Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
- @case '$?' in \
- *config.status*) \
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
- *) \
- echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__maybe_remake_depfiles)'; \
- cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__maybe_remake_depfiles);; \
- esac;
-
-$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-
-$(top_srcdir)/configure: $(am__configure_deps)
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-$(ACLOCAL_M4): $(am__aclocal_m4_deps)
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-$(am__aclocal_m4_deps):
-atlocal: $(top_builddir)/config.status $(srcdir)/atlocal.in
- cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
-run_prog_manual.sh: $(top_builddir)/config.status $(srcdir)/run_prog_manual.sh.in
- cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
-
-mostlyclean-libtool:
- -rm -f *.lo
-
-clean-libtool:
- -rm -rf .libs _libs
-
-# This directory's subdirectories are mostly independent; you can cd
-# into them and run 'make' without going through this Makefile.
-# To change the values of 'make' variables: instead of editing Makefiles,
-# (1) if the variable is set in 'config.status', edit 'config.status'
-# (which will cause the Makefiles to be regenerated when you run 'make');
-# (2) otherwise, pass the desired values on the 'make' command line.
-$(am__recursive_targets):
- @fail=; \
- if $(am__make_keepgoing); then \
- failcom='fail=yes'; \
- else \
- failcom='exit 1'; \
- fi; \
- dot_seen=no; \
- target=`echo $@ | sed s/-recursive//`; \
- case "$@" in \
- distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \
- *) list='$(SUBDIRS)' ;; \
- esac; \
- for subdir in $$list; do \
- echo "Making $$target in $$subdir"; \
- if test "$$subdir" = "."; then \
- dot_seen=yes; \
- local_target="$$target-am"; \
- else \
- local_target="$$target"; \
- fi; \
- ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \
- || eval $$failcom; \
- done; \
- if test "$$dot_seen" = "no"; then \
- $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \
- fi; test -z "$$fail"
-
-ID: $(am__tagged_files)
- $(am__define_uniq_tagged_files); mkid -fID $$unique
-tags: tags-recursive
-TAGS: tags
-
-tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files)
- set x; \
- here=`pwd`; \
- if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \
- include_option=--etags-include; \
- empty_fix=.; \
- else \
- include_option=--include; \
- empty_fix=; \
- fi; \
- list='$(SUBDIRS)'; for subdir in $$list; do \
- if test "$$subdir" = .; then :; else \
- test ! -f $$subdir/TAGS || \
- set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \
- fi; \
- done; \
- $(am__define_uniq_tagged_files); \
- shift; \
- if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
- test -n "$$unique" || unique=$$empty_fix; \
- if test $$# -gt 0; then \
- $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
- "$$@" $$unique; \
- else \
- $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
- $$unique; \
- fi; \
- fi
-ctags: ctags-recursive
-
-CTAGS: ctags
-ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files)
- $(am__define_uniq_tagged_files); \
- test -z "$(CTAGS_ARGS)$$unique" \
- || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
- $$unique
-
-GTAGS:
- here=`$(am__cd) $(top_builddir) && pwd` \
- && $(am__cd) $(top_srcdir) \
- && gtags -i $(GTAGS_ARGS) "$$here"
-cscopelist: cscopelist-recursive
-
-cscopelist-am: $(am__tagged_files)
- list='$(am__tagged_files)'; \
- case "$(srcdir)" in \
- [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \
- *) sdir=$(subdir)/$(srcdir) ;; \
- esac; \
- for i in $$list; do \
- if test -f "$$i"; then \
- echo "$(subdir)/$$i"; \
- else \
- echo "$$sdir/$$i"; \
- fi; \
- done >> $(top_builddir)/cscope.files
-
-distclean-tags:
- -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
-
-distdir: $(BUILT_SOURCES)
- $(MAKE) $(AM_MAKEFLAGS) distdir-am
-
-distdir-am: $(DISTFILES)
- @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
- topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
- list='$(DISTFILES)'; \
- dist_files=`for file in $$list; do echo $$file; done | \
- sed -e "s|^$$srcdirstrip/||;t" \
- -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
- case $$dist_files in \
- */*) $(MKDIR_P) `echo "$$dist_files" | \
- sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
- sort -u` ;; \
- esac; \
- for file in $$dist_files; do \
- if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
- if test -d $$d/$$file; then \
- dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
- if test -d "$(distdir)/$$file"; then \
- find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
- fi; \
- if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
- cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
- find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
- fi; \
- cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
- else \
- test -f "$(distdir)/$$file" \
- || cp -p $$d/$$file "$(distdir)/$$file" \
- || exit 1; \
- fi; \
- done
- @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \
- if test "$$subdir" = .; then :; else \
- $(am__make_dryrun) \
- || test -d "$(distdir)/$$subdir" \
- || $(MKDIR_P) "$(distdir)/$$subdir" \
- || exit 1; \
- dir1=$$subdir; dir2="$(distdir)/$$subdir"; \
- $(am__relativize); \
- new_distdir=$$reldir; \
- dir1=$$subdir; dir2="$(top_distdir)"; \
- $(am__relativize); \
- new_top_distdir=$$reldir; \
- echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \
- echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \
- ($(am__cd) $$subdir && \
- $(MAKE) $(AM_MAKEFLAGS) \
- top_distdir="$$new_top_distdir" \
- distdir="$$new_distdir" \
- am__remove_distdir=: \
- am__skip_length_check=: \
- am__skip_mode_fix=: \
- distdir) \
- || exit 1; \
- fi; \
- done
-check-am: all-am
- $(MAKE) $(AM_MAKEFLAGS) $(dist_check_SCRIPTS)
- $(MAKE) $(AM_MAKEFLAGS) check-local
-check: check-recursive
-all-am: Makefile $(SCRIPTS)
-installdirs: installdirs-recursive
-installdirs-am:
-install: install-recursive
-install-exec: install-exec-recursive
-install-data: install-data-recursive
-uninstall: uninstall-recursive
-
-install-am: all-am
- @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
-
-installcheck: installcheck-recursive
-install-strip:
- if test -z '$(STRIP)'; then \
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- install; \
- else \
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
- fi
-mostlyclean-generic:
-
-clean-generic:
-
-distclean-generic:
- -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
- -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
- -test -z "$(DISTCLEANFILES)" || rm -f $(DISTCLEANFILES)
-
-maintainer-clean-generic:
- @echo "This command is intended for maintainers to use"
- @echo "it deletes files that may require special tools to rebuild."
-clean: clean-recursive
-
-clean-am: clean-generic clean-libtool clean-local mostlyclean-am
-
-distclean: distclean-recursive
- -rm -f Makefile
-distclean-am: clean-am distclean-generic distclean-tags
-
-dvi: dvi-recursive
-
-dvi-am:
-
-html: html-recursive
-
-html-am:
-
-info: info-recursive
-
-info-am:
-
-install-data-am:
-
-install-dvi: install-dvi-recursive
-
-install-dvi-am:
-
-install-exec-am:
-
-install-html: install-html-recursive
-
-install-html-am:
-
-install-info: install-info-recursive
-
-install-info-am:
-
-install-man:
-
-install-pdf: install-pdf-recursive
-
-install-pdf-am:
-
-install-ps: install-ps-recursive
-
-install-ps-am:
-
-installcheck-am: installcheck-local
-
-maintainer-clean: maintainer-clean-recursive
- -rm -f Makefile
-maintainer-clean-am: distclean-am maintainer-clean-generic
-
-mostlyclean: mostlyclean-recursive
-
-mostlyclean-am: mostlyclean-generic mostlyclean-libtool
-
-pdf: pdf-recursive
-
-pdf-am:
-
-ps: ps-recursive
-
-ps-am:
-
-uninstall-am:
-
-.MAKE: $(am__recursive_targets) check-am install-am install-strip
-
-.PHONY: $(am__recursive_targets) CTAGS GTAGS TAGS all all-am check \
- check-am check-local clean clean-generic clean-libtool \
- clean-local cscopelist-am ctags ctags-am distclean \
- distclean-generic distclean-libtool distclean-tags distdir dvi \
- dvi-am html html-am info info-am install install-am \
- install-data install-data-am install-dvi install-dvi-am \
- install-exec install-exec-am install-html install-html-am \
- install-info install-info-am install-man install-pdf \
- install-pdf-am install-ps install-ps-am install-strip \
- installcheck installcheck-am installcheck-local installdirs \
- installdirs-am maintainer-clean maintainer-clean-generic \
- mostlyclean mostlyclean-generic mostlyclean-libtool pdf pdf-am \
- ps ps-am tags tags-am uninstall uninstall-am
-
-.PRECIOUS: Makefile
-
-
-# rule included in the check-target by automake
-check-local: prereq-testsuite
- @GNUCOBOL_TEST_LOCAL="" $(TESTSUITE) $(TESTSUITEFLAGS) || (rm -f testsuite.dir/at-job-fifo; exit 1)
- @rm -f testsuite.dir/at-job-fifo
-
-# rule included in the "standard" target "installcheck" to run tests from the final install location, intended for post-install verification
-installcheck-local:
- @echo " WARNING: currently no support for installcheck"
-# TODO: needs additional work to handle exec_prefix and friends (datadir, ...)
-# @GNUCOBOL_TEST_LOCAL="i" $(TESTSUITE) $(TESTSUITEFLAGS) || (rm -f testsuite.dir/at-job-fifo; exit 1)
-# @rm -f testsuite.dir/at-job-fifo
-
-# special target to check with whatever is in PATH (uses, if exported COBC, COBCRUN, COBCRUN_DIRECT)
-localcheck: prereq-testsuite
- @GNUCOBOL_TEST_LOCAL="1" $(TESTSUITE) $(TESTSUITEFLAGS) || (rm -f testsuite.dir/at-job-fifo; exit 1)
- @rm -f testsuite.dir/at-job-fifo
-
-prereq-testsuite: $(TESTSUITE) atlocal
- @rm -rf testsuite.dir
-
-prereq-manual: $(TESTSUITE_MANUAL) atlocal run_prog_manual.sh
- @rm -rf testsuite_manual.dir
-
-clean-local:
- rm -rf *.dir *.log *.out valgrind callgrind perf
-
-checkmanual: prereq-manual
- @$(TESTSUITE_MANUAL) $(TESTSUITEFLAGS) || (rm -f testsuite_manual.dir/at-job-fifo; exit 1)
- @rm -f testsuite_manual.dir/at-job-fifo
-
-# targets that are only logical targets instead of files
-.PHONY: test checkall checkmanual localcheck \
- prereq-check prereq-testsuite prereq-manual
-
-test: atlocal
- @echo testing for perl && $(PERL) -v 1>/dev/null \
- || (echo "Error: could not executed $(PERL)" && false)
- @cd cobol85 && $(MAKE) $(AM_MAKEFLAGS) test
-
-checkall: check test
-
-$(srcdir)/package.m4: $(top_srcdir)/configure.ac
- @echo "creating $(srcdir)/package.m4"
- @{ \
- echo '# Signature of the current package.'; \
- echo 'm4_define([AT_PACKAGE_NAME], [@PACKAGE_NAME@])'; \
- echo 'm4_define([AT_PACKAGE_TARNAME], [@PACKAGE_TARNAME@])'; \
- echo 'm4_define([AT_PACKAGE_VERSION], [@PACKAGE_VERSION@])'; \
- echo 'm4_define([AT_PACKAGE_STRING], [@PACKAGE_STRING@])'; \
- echo 'm4_define([AT_PACKAGE_BUGREPORT], [@PACKAGE_BUGREPORT@])'; \
- echo 'm4_define([AT_PACKAGE_URL], [@PACKAGE_URL@])'; \
- } > $(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
- 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
-
-# Tell versions [3.59,3.63) of GNU make to not export all variables.
-# Otherwise a system limit (for SysV at least) may be exceeded.
-.NOEXPORT:
diff --git a/tests/cobol85/Makefile.in b/tests/cobol85/Makefile.in
deleted file mode 100644
index 75dc132..0000000
--- a/tests/cobol85/Makefile.in
+++ /dev/null
@@ -1,796 +0,0 @@
-# Makefile.in generated by automake 1.16.3 from Makefile.am.
-# @configure_input@
-
-# Copyright (C) 1994-2020 Free Software Foundation, Inc.
-
-# This Makefile.in is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
-# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
-# PARTICULAR PURPOSE.
-
-@SET_MAKE@
-
-#
-# Makefile gnucobol/tests/cobol85
-#
-# Copyright (C) 2002-2012, 2015-2023 Free Software Foundation, Inc.
-# Written by Keisuke Nishida, Roger While, Simon Sobisch
-#
-# 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 <https://www.gnu.org/licenses/>.
-
-# FIXME: doesn't work when EXEC85$(EXEEXT) exists in sourcedir but not
-# in builddir
-VPATH = @srcdir@
-am__is_gnu_make = { \
- if test -z '$(MAKELEVEL)'; then \
- false; \
- elif test -n '$(MAKE_HOST)'; then \
- true; \
- elif test -n '$(MAKE_VERSION)' && test -n '$(CURDIR)'; then \
- true; \
- else \
- false; \
- fi; \
-}
-am__make_running_with_option = \
- case $${target_option-} in \
- ?) ;; \
- *) echo "am__make_running_with_option: internal error: invalid" \
- "target option '$${target_option-}' specified" >&2; \
- exit 1;; \
- esac; \
- has_opt=no; \
- sane_makeflags=$$MAKEFLAGS; \
- if $(am__is_gnu_make); then \
- sane_makeflags=$$MFLAGS; \
- else \
- case $$MAKEFLAGS in \
- *\\[\ \ ]*) \
- bs=\\; \
- sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \
- | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \
- esac; \
- fi; \
- skip_next=no; \
- strip_trailopt () \
- { \
- flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \
- }; \
- for flg in $$sane_makeflags; do \
- test $$skip_next = yes && { skip_next=no; continue; }; \
- case $$flg in \
- *=*|--*) continue;; \
- -*I) strip_trailopt 'I'; skip_next=yes;; \
- -*I?*) strip_trailopt 'I';; \
- -*O) strip_trailopt 'O'; skip_next=yes;; \
- -*O?*) strip_trailopt 'O';; \
- -*l) strip_trailopt 'l'; skip_next=yes;; \
- -*l?*) strip_trailopt 'l';; \
- -[dEDm]) skip_next=yes;; \
- -[JT]) skip_next=yes;; \
- esac; \
- case $$flg in \
- *$$target_option*) has_opt=yes; break;; \
- esac; \
- done; \
- test $$has_opt = yes
-am__make_dryrun = (target_option=n; $(am__make_running_with_option))
-am__make_keepgoing = (target_option=k; $(am__make_running_with_option))
-pkgdatadir = $(datadir)/@PACKAGE@
-pkgincludedir = $(includedir)/@PACKAGE@
-pkglibdir = $(libdir)/@PACKAGE@
-pkglibexecdir = $(libexecdir)/@PACKAGE@
-am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
-install_sh_DATA = $(install_sh) -c -m 644
-install_sh_PROGRAM = $(install_sh) -c
-install_sh_SCRIPT = $(install_sh) -c
-INSTALL_HEADER = $(INSTALL_DATA)
-transform = $(program_transform_name)
-NORMAL_INSTALL = :
-PRE_INSTALL = :
-POST_INSTALL = :
-NORMAL_UNINSTALL = :
-PRE_UNINSTALL = :
-POST_UNINSTALL = :
-build_triplet = @build@
-host_triplet = @host@
-subdir = tests/cobol85
-ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
-am__aclocal_m4_deps = $(top_srcdir)/m4/ax_ac_append_to_file.m4 \
- $(top_srcdir)/m4/ax_ac_define_resolved.m4 \
- $(top_srcdir)/m4/ax_ac_print_to_file.m4 \
- $(top_srcdir)/m4/ax_add_am_macro_static.m4 \
- $(top_srcdir)/m4/ax_am_macros_static.m4 \
- $(top_srcdir)/m4/ax_check_define.m4 \
- $(top_srcdir)/m4/ax_check_gnu_make.m4 \
- $(top_srcdir)/m4/ax_code_coverage.m4 \
- $(top_srcdir)/m4/ax_file_escapes.m4 \
- $(top_srcdir)/m4/ax_prog_bison.m4 \
- $(top_srcdir)/m4/ax_prog_flex.m4 $(top_srcdir)/m4/codeset.m4 \
- $(top_srcdir)/m4/gettext.m4 $(top_srcdir)/m4/iconv.m4 \
- $(top_srcdir)/m4/intlmacosx.m4 $(top_srcdir)/m4/lib-ld.m4 \
- $(top_srcdir)/m4/lib-link.m4 $(top_srcdir)/m4/lib-prefix.m4 \
- $(top_srcdir)/m4/libtool.m4 $(top_srcdir)/m4/ltoptions.m4 \
- $(top_srcdir)/m4/ltsugar.m4 $(top_srcdir)/m4/ltversion.m4 \
- $(top_srcdir)/m4/lt~obsolete.m4 $(top_srcdir)/m4/nls.m4 \
- $(top_srcdir)/m4/pkg.m4 $(top_srcdir)/m4/po.m4 \
- $(top_srcdir)/m4/progtest.m4 $(top_srcdir)/configure.ac
-am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
- $(ACLOCAL_M4)
-DIST_COMMON = $(srcdir)/Makefile.am $(am__DIST_COMMON)
-mkinstalldirs = $(SHELL) $(top_srcdir)/build_aux/mkinstalldirs
-CONFIG_HEADER = $(top_builddir)/config.h
-CONFIG_CLEAN_FILES =
-CONFIG_CLEAN_VPATH_FILES =
-AM_V_P = $(am__v_P_@AM_V@)
-am__v_P_ = $(am__v_P_@AM_DEFAULT_V@)
-am__v_P_0 = false
-am__v_P_1 = :
-AM_V_GEN = $(am__v_GEN_@AM_V@)
-am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@)
-am__v_GEN_0 = @echo " GEN " $@;
-am__v_GEN_1 =
-AM_V_at = $(am__v_at_@AM_V@)
-am__v_at_ = $(am__v_at_@AM_DEFAULT_V@)
-am__v_at_0 = @
-am__v_at_1 =
-SOURCES =
-DIST_SOURCES =
-am__can_run_installinfo = \
- case $$AM_UPDATE_INFO_DIR in \
- n|no|NO) false;; \
- *) (install-info --version) >/dev/null 2>&1;; \
- esac
-am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP)
-am__DIST_COMMON = $(srcdir)/Makefile.in \
- $(top_srcdir)/build_aux/mkinstalldirs ChangeLog README
-DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
-ACLOCAL = @ACLOCAL@
-AMTAR = @AMTAR@
-AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@
-AR = @AR@
-AS = @AS@
-AUTOCONF = @AUTOCONF@
-AUTOHEADER = @AUTOHEADER@
-AUTOMAKE = @AUTOMAKE@
-AWK = @AWK@
-BDB_CFLAGS = @BDB_CFLAGS@
-BDB_LIBS = @BDB_LIBS@
-CC = @CC@
-CCDEPMODE = @CCDEPMODE@
-CFLAGS = @CFLAGS@
-CJSON_CFLAGS = @CJSON_CFLAGS@
-CJSON_LIBS = @CJSON_LIBS@
-COBC_CPPFLAGS = @COBC_CPPFLAGS@
-COB_BIGENDIAN = @COB_BIGENDIAN@
-COB_CC = @COB_CC@
-COB_CFLAGS = @COB_CFLAGS@
-COB_CONFIG_DIR = @COB_CONFIG_DIR@
-COB_COPY_DIR = @COB_COPY_DIR@
-COB_ENABLE_DEBUG = @COB_ENABLE_DEBUG@
-COB_EXE_EXT = @COB_EXE_EXT@
-COB_FIX_LIBTOOL = @COB_FIX_LIBTOOL@
-COB_HAS_64_BIT_POINTER = @COB_HAS_64_BIT_POINTER@
-COB_HAS_CURSES = @COB_HAS_CURSES@
-COB_HAS_ISAM = @COB_HAS_ISAM@
-COB_HAS_JSON = @COB_HAS_JSON@
-COB_HAS_XML2 = @COB_HAS_XML2@
-COB_LDFLAGS = @COB_LDFLAGS@
-COB_LIBRARY_PATH = @COB_LIBRARY_PATH@
-COB_LIBS = @COB_LIBS@
-COB_MODULE_EXT = @COB_MODULE_EXT@
-COB_OBJECT_EXT = @COB_OBJECT_EXT@
-COB_PATCH_LEVEL = @COB_PATCH_LEVEL@
-CODE_COVERAGE_CFLAGS = @CODE_COVERAGE_CFLAGS@
-CODE_COVERAGE_CPPFLAGS = @CODE_COVERAGE_CPPFLAGS@
-CODE_COVERAGE_CXXFLAGS = @CODE_COVERAGE_CXXFLAGS@
-CODE_COVERAGE_ENABLED = @CODE_COVERAGE_ENABLED@
-CODE_COVERAGE_LIBS = @CODE_COVERAGE_LIBS@
-CPP = @CPP@
-CPPFLAGS = @CPPFLAGS@
-CURSES_LIBS = @CURSES_LIBS@
-CYGPATH_W = @CYGPATH_W@
-DEFS = @DEFS@
-DEPDIR = @DEPDIR@
-DIFF_FLAGS = @DIFF_FLAGS@
-DLLTOOL = @DLLTOOL@
-DSYMUTIL = @DSYMUTIL@
-DUMPBIN = @DUMPBIN@
-ECHO_C = @ECHO_C@
-ECHO_N = @ECHO_N@
-ECHO_T = @ECHO_T@
-EGREP = @EGREP@
-EXEEXT = @EXEEXT@
-FGREP = @FGREP@
-GCOV = @GCOV@
-GENHTML = @GENHTML@
-GETTEXT_MACRO_VERSION = @GETTEXT_MACRO_VERSION@
-GMP_CFLAGS = @GMP_CFLAGS@
-GMP_LIBS = @GMP_LIBS@
-GMSGFMT = @GMSGFMT@
-GMSGFMT_015 = @GMSGFMT_015@
-GREP = @GREP@
-HELP2MAN = @HELP2MAN@
-INSTALL = @INSTALL@
-INSTALL_DATA = @INSTALL_DATA@
-INSTALL_PROGRAM = @INSTALL_PROGRAM@
-INSTALL_SCRIPT = @INSTALL_SCRIPT@
-INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
-INTLLIBS = @INTLLIBS@
-INTL_MACOSX_LIBS = @INTL_MACOSX_LIBS@
-JSON_C_CFLAGS = @JSON_C_CFLAGS@
-JSON_C_LIBS = @JSON_C_LIBS@
-LCOV = @LCOV@
-LD = @LD@
-LDFLAGS = @LDFLAGS@
-LEX = @LEX@
-LEXLIB = @LEXLIB@
-LEX_OUTPUT_ROOT = @LEX_OUTPUT_ROOT@
-LIBCOB_CPPFLAGS = @LIBCOB_CPPFLAGS@
-LIBCOB_LIBS = @LIBCOB_LIBS@
-LIBICONV = @LIBICONV@
-LIBINTL = @LIBINTL@
-LIBOBJS = @LIBOBJS@
-LIBS = @LIBS@
-LIBTOOL = @LIBTOOL@
-LIPO = @LIPO@
-LN_S = @LN_S@
-LTLIBICONV = @LTLIBICONV@
-LTLIBINTL = @LTLIBINTL@
-LTLIBOBJS = @LTLIBOBJS@
-LT_SYS_LIBRARY_PATH = @LT_SYS_LIBRARY_PATH@
-MAKE = @MAKE@
-MAKEINFO = @MAKEINFO@
-MANIFEST_TOOL = @MANIFEST_TOOL@
-MKDIR_P = @MKDIR_P@
-MPIR_CFLAGS = @MPIR_CFLAGS@
-MPIR_LIBS = @MPIR_LIBS@
-MSGFMT = @MSGFMT@
-MSGMERGE = @MSGMERGE@
-MSGMERGE_FOR_MSGFMT_OPTION = @MSGMERGE_FOR_MSGFMT_OPTION@
-NM = @NM@
-NMEDIT = @NMEDIT@
-OBJDUMP = @OBJDUMP@
-OBJEXT = @OBJEXT@
-OTOOL = @OTOOL@
-OTOOL64 = @OTOOL64@
-PACKAGE = @PACKAGE@
-PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
-PACKAGE_NAME = @PACKAGE_NAME@
-PACKAGE_STRING = @PACKAGE_STRING@
-PACKAGE_TARNAME = @PACKAGE_TARNAME@
-PACKAGE_URL = @PACKAGE_URL@
-PACKAGE_VERSION = @PACKAGE_VERSION@
-PATH_SEPARATOR = @PATH_SEPARATOR@
-PERL = @PERL@
-PKG_CONFIG = @PKG_CONFIG@
-PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@
-PKG_CONFIG_PATH = @PKG_CONFIG_PATH@
-POSUB = @POSUB@
-PROGRAMS_LIBS = @PROGRAMS_LIBS@
-QUOTE_INCLUDE_FLAG = @QUOTE_INCLUDE_FLAG@
-RANLIB = @RANLIB@
-RC = @RC@
-SED = @SED@
-SET_MAKE = @SET_MAKE@
-SHELL = @SHELL@
-STRIP = @STRIP@
-USE_NLS = @USE_NLS@
-VERSION = @VERSION@
-XGETTEXT = @XGETTEXT@
-XGETTEXT_015 = @XGETTEXT_015@
-XGETTEXT_EXTRA_OPTIONS = @XGETTEXT_EXTRA_OPTIONS@
-XML2_CFLAGS = @XML2_CFLAGS@
-XML2_CONFIG = @XML2_CONFIG@
-XML2_LIBS = @XML2_LIBS@
-YACC = @YACC@
-YFLAGS = @YFLAGS@
-abs_builddir = @abs_builddir@
-abs_srcdir = @abs_srcdir@
-abs_top_builddir = @abs_top_builddir@
-abs_top_srcdir = @abs_top_srcdir@
-ac_ct_AR = @ac_ct_AR@
-ac_ct_CC = @ac_ct_CC@
-ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
-am__include = @am__include@
-am__leading_dot = @am__leading_dot@
-am__quote = @am__quote@
-am__tar = @am__tar@
-am__untar = @am__untar@
-bindir = @bindir@
-build = @build@
-build_alias = @build_alias@
-build_cpu = @build_cpu@
-build_os = @build_os@
-build_vendor = @build_vendor@
-builddir = @builddir@
-configured_make = @configured_make@
-datadir = @datadir@
-datarootdir = @datarootdir@
-docdir = @docdir@
-dvidir = @dvidir@
-exec_prefix = @exec_prefix@
-host = @host@
-host_alias = @host_alias@
-host_cpu = @host_cpu@
-host_os = @host_os@
-host_vendor = @host_vendor@
-htmldir = @htmldir@
-ifGNUmake = @ifGNUmake@
-ifnGNUmake = @ifnGNUmake@
-includedir = @includedir@
-infodir = @infodir@
-install_sh = @install_sh@
-libdir = @libdir@
-libexecdir = @libexecdir@
-localedir = @localedir@
-localstatedir = @localstatedir@
-mandir = @mandir@
-mkdir_p = @mkdir_p@
-oldincludedir = @oldincludedir@
-pdfdir = @pdfdir@
-prefix = @prefix@
-program_transform_name = @program_transform_name@
-psdir = @psdir@
-runstatedir = @runstatedir@
-sbindir = @sbindir@
-sharedstatedir = @sharedstatedir@
-srcdir = @srcdir@
-sysconfdir = @sysconfdir@
-target_alias = @target_alias@
-top_build_prefix = @top_build_prefix@
-top_builddir = @top_builddir@
-top_srcdir = @top_srcdir@
-RM = rm -rf
-MODULES_ALL = NC SM IC SQ RL ST SG OB IF RW DB IX DBNOIX CM
-@COB_MAKE_IX_FALSE@MODULES = NC SM IC SQ RL ST SG OB IF RW DBNOIX
-
-# currently untested modules: CM
-@COB_MAKE_IX_TRUE@MODULES = NC SM IC SQ RL ST SG OB IF RW DB IX
-@COB_MAKE_IX_FALSE@MODULES_RUN = NC_RUN SM_RUN IC_RUN SQ_RUN RL_RUN \
-@COB_MAKE_IX_FALSE@ ST_RUN SG_RUN OB_RUN IF_RUN RW_RUN DBNOIX_RUN
-
-@COB_MAKE_IX_TRUE@MODULES_RUN = NC_RUN SM_RUN IC_RUN SQ_RUN RL_RUN \
-@COB_MAKE_IX_TRUE@ ST_RUN SG_RUN OB_RUN IF_RUN RW_RUN DB_RUN IX_RUN
-
-@COB_MAKE_IX_FALSE@SUMMARY = summarynoix.txt
-@COB_MAKE_IX_TRUE@SUMMARY = summary.txt
-URL_NEWCOB_Z = https://www.itl.nist.gov/div897/ctg/suites/newcob.val.Z
-URL_NEWCOB_TAR_GZ = https://gnucobol.sourceforge.io/files/newcob.val.tar.gz
-EXTRA_DIST = EXEC85.conf.in expand.pl report.pl summary.pl summary.txt \
- summarynoix.txt NC.txt SM.txt IC.txt SQ.txt RL.txt IX.txt \
- ST.txt SG.txt OB.txt IF.txt RW.txt DB.txt DBNOIX.txt Makefile.module.in
-
-
-#CLEANFILES = EXEC85$(EXEEXT) summary.log
-COBC = $(PRE_INST_ENV) cobc$(EXEEXT)
-COBC_FLAGS = -std=cobol85 -debug $(COBOL_FLAGS)
-CURL_FLAGS =
-WGET_FLAGS = -t1 -T5
-PRE_INST_ENV = "$(abs_top_builddir)/pre-inst-env"
-all: all-am
-
-.SUFFIXES:
-$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps)
- @for dep in $?; do \
- case '$(am__configure_deps)' in \
- *$$dep*) \
- ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
- && { if test -f $@; then exit 0; else break; fi; }; \
- exit 1;; \
- esac; \
- done; \
- echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu tests/cobol85/Makefile'; \
- $(am__cd) $(top_srcdir) && \
- $(AUTOMAKE) --gnu tests/cobol85/Makefile
-Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
- @case '$?' in \
- *config.status*) \
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
- *) \
- echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__maybe_remake_depfiles)'; \
- cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__maybe_remake_depfiles);; \
- esac;
-
-$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-
-$(top_srcdir)/configure: $(am__configure_deps)
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-$(ACLOCAL_M4): $(am__aclocal_m4_deps)
- cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-$(am__aclocal_m4_deps):
-
-mostlyclean-libtool:
- -rm -f *.lo
-
-clean-libtool:
- -rm -rf .libs _libs
-tags TAGS:
-
-ctags CTAGS:
-
-cscope cscopelist:
-
-
-distdir: $(BUILT_SOURCES)
- $(MAKE) $(AM_MAKEFLAGS) distdir-am
-
-distdir-am: $(DISTFILES)
- @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
- topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
- list='$(DISTFILES)'; \
- dist_files=`for file in $$list; do echo $$file; done | \
- sed -e "s|^$$srcdirstrip/||;t" \
- -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
- case $$dist_files in \
- */*) $(MKDIR_P) `echo "$$dist_files" | \
- sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
- sort -u` ;; \
- esac; \
- for file in $$dist_files; do \
- if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
- if test -d $$d/$$file; then \
- dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
- if test -d "$(distdir)/$$file"; then \
- find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
- fi; \
- if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
- cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
- find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
- fi; \
- cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
- else \
- test -f "$(distdir)/$$file" \
- || cp -p $$d/$$file "$(distdir)/$$file" \
- || exit 1; \
- fi; \
- done
-check-am: all-am
-check: check-am
-all-am: Makefile
-installdirs:
-install: install-am
-install-exec: install-exec-am
-install-data: install-data-am
-uninstall: uninstall-am
-
-install-am: all-am
- @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
-
-installcheck: installcheck-am
-install-strip:
- if test -z '$(STRIP)'; then \
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- install; \
- else \
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
- fi
-mostlyclean-generic:
-
-clean-generic:
-
-distclean-generic:
- -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
- -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
-
-maintainer-clean-generic:
- @echo "This command is intended for maintainers to use"
- @echo "it deletes files that may require special tools to rebuild."
-clean: clean-am
-
-clean-am: clean-generic clean-libtool clean-local mostlyclean-am
-
-distclean: distclean-am
- -rm -f Makefile
-distclean-am: clean-am distclean-generic
-
-dvi: dvi-am
-
-dvi-am:
-
-html: html-am
-
-html-am:
-
-info: info-am
-
-info-am:
-
-install-data-am:
-
-install-dvi: install-dvi-am
-
-install-dvi-am:
-
-install-exec-am:
-
-install-html: install-html-am
-
-install-html-am:
-
-install-info: install-info-am
-
-install-info-am:
-
-install-man:
-
-install-pdf: install-pdf-am
-
-install-pdf-am:
-
-install-ps: install-ps-am
-
-install-ps-am:
-
-installcheck-am:
-
-maintainer-clean: maintainer-clean-am
- -rm -f Makefile
-maintainer-clean-am: distclean-am maintainer-clean-generic
-
-mostlyclean: mostlyclean-am
-
-mostlyclean-am: mostlyclean-generic mostlyclean-libtool
-
-pdf: pdf-am
-
-pdf-am:
-
-ps: ps-am
-
-ps-am:
-
-uninstall-am:
-
-.MAKE: install-am install-strip
-
-.PHONY: all all-am check check-am clean clean-generic clean-libtool \
- clean-local cscopelist-am ctags-am distclean distclean-generic \
- distclean-libtool distdir dvi dvi-am html html-am info info-am \
- install install-am install-data install-data-am install-dvi \
- install-dvi-am install-exec install-exec-am install-html \
- install-html-am install-info install-info-am install-man \
- install-pdf install-pdf-am install-ps install-ps-am \
- install-strip installcheck installcheck-am installdirs \
- maintainer-clean maintainer-clean-generic mostlyclean \
- mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \
- tags-am uninstall uninstall-am
-
-.PRECIOUS: Makefile
-
-
-# MAKEFLAGS = --no-print-directory
-
-# targets that are only logical targets instead of files
-.PHONY: test test-local test-local-compat \
- diff-summary diff summary.log \
- modules $(MODULES_RUN) \
- unpack-Z unpack-gz
-
-NC_RUN: NC
- @cd NC && $(MAKE) -k $(SINGLE_TARGET)
-
-SM_RUN: SM
- @cd SM && $(MAKE) -k $(SINGLE_TARGET)
-
-IC_RUN: IC
- @cd IC && $(MAKE) -k $(SINGLE_TARGET)
-
-SQ_RUN: SQ
- @cd SQ && $(MAKE) -k $(SINGLE_TARGET)
-
-RL_RUN: RL
- @cd RL && $(MAKE) -k $(SINGLE_TARGET)
-
-ST_RUN: ST
- @cd ST && $(MAKE) -k $(SINGLE_TARGET)
-
-SG_RUN: SG
- @cd SG && $(MAKE) -k $(SINGLE_TARGET)
-
-OB_RUN: OB
- @cd OB && $(MAKE) -k $(SINGLE_TARGET)
-
-IF_RUN: IF
- @cd IF && $(MAKE) -k $(SINGLE_TARGET)
-
-RW_RUN: RW
- @cd RW && $(MAKE) -k $(SINGLE_TARGET)
-
-DB_RUN: DB
- @cd DB && $(MAKE) -k $(SINGLE_TARGET)
-
-IX_RUN: IX
- @cd IX && $(MAKE) -k $(SINGLE_TARGET)
-
-DBNOIX_RUN: DBNOIX
- @cd DBNOIX && $(MAKE) -k $(SINGLE_TARGET)
-
-CM_RUN: CM
- @cd CM && $(MAKE) -k $(SINGLE_TARGET)
-
-modules: $(MODULES_ALL)
-
-duration.log:
- @echo "Collecting durations for each module..."
- @echo "Duration for modules: $(MODULES)" > $@
- @echo "" >> $@
- @for m in $(MODULES); do \
- cat "$$m/duration.txt" >> $@; \
- done
- @echo Done
-
-# most common run target
-test: $(MODULES_RUN)
- @echo
- $(MAKE) diff-summary
-
-# testing that the" local active" GnuCOBOL environment works as expected
-test-local:
- $(MAKE) $(MODULES_RUN) SINGLE_TARGET=all-local
- @echo
- $(MAKE) diff-summary
-
-# verify that we can compile with the "local active" version and still
-# get the expected result when executing with the version in top_builddir
-test-local-compat:
- @echo "Verification for compilation with $$(which cobc) ..."
- @echo "... as $$($(COBC) --brief --version)"
- @echo
- @echo "... and running with $$($(PRE_INST_ENV) cobcrun --verbose --version)"
- @echo
- $(MAKE) $(MODULES_RUN) SINGLE_TARGET=all-local \
- "COBCRUN=$(PRE_INST_ENV) cobcrun" \
- "COBCRUN_DIRECT=$(PRE_INST_ENV)"
- @echo
- $(MAKE) diff-summary
-
-# FIXME: as some make implementations don't support .PHONY (POSIX 2021)
-# and we don't need it: add all depdencies below (MODULES -> report.txt)
-# then remove the rm of the file below
-summary.log:
- @echo "Computing total test results..."
- @$(PERL) "$(srcdir)/summary.pl" $(MODULES) > $@
-
-diff:
- @echo "Comparing test results for each module"
- @retd=0; for m in $(MODULES); do \
- echo "diff $$m/report.txt..."; \
- diff $(DIFF_FLAGS) "$(srcdir)/$$m.txt" "$$m/report.txt"; \
- ret=$$? && if test $$ret -gt $$retd; then retd=$$ret; fi \
- done; \
- if test $$retd -gt 1; then exit $$retd; fi
- @echo Done
- $(MAKE) diff-summary
-
-diff-summary:
- @$(RM) summary.log
- $(MAKE) summary.log
- @echo "Comparing total test results..."
- @echo "diff $(SUMMARY)..."
- @diff $(DIFF_FLAGS) "$(srcdir)/$(SUMMARY)" "summary.log"
- @echo Done
-
-newcob.val.Z:
- @echo "Trying to download newcob.val.Z..."
- @(which curl 1>/dev/null && curl $(CURL_FLAGS) "$(URL_NEWCOB_Z)" -o $@) || \
- wget $(WGET_FLAGS) "$(URL_NEWCOB_Z)" || \
- ($(RM) $@; echo "Downloading $@ failed"; false)
-
-newcob.val.tar.gz:
- @echo "Trying to download newcob.val.tar.gz..."
- @(which curl 1>/dev/null && curl $(CURL_FLAGS) "$(URL_NEWCOB_TAR_GZ)" -o $@) || \
- wget $(WGET_FLAGS) -O $@ "$(URL_NEWCOB_TAR_GZ)" || \
- ($(RM) $@; echo "Downloading $@ failed"; false)
-
-unpack-Z: newcob.val.Z
- @echo "Unpacking $<..."
- @gunzip -f "$<" || gzip -d -f "$<" || uncompress "$<"
-
-unpack-gz: newcob.val.tar.gz
- @echo "Unpacking $<..."
- @tar -xf "$<"
-
-# always copy pack from srcdir for in-place unpack, if possible
-newcob.val:
- @if test -f "$(srcdir)/newcob.val.tar.gz"; then \
- if test ! -f "$(abs_builddir)/newcob.val.tar.gz"; then \
- export pack=newcob.val.tar.gz && \
- echo "Copying $$pack to current directory..." && \
- cp "$(srcdir)/$$pack" . ; \
- fi; \
- $(MAKE) unpack-gz; \
- else \
- if test -f "$(srcdir)/newcob.val.Z"; then \
- if test ! -f "$(abs_builddir)/newcob.val.Z"; then \
- export pack=newcob.val.Z && \
- echo "Copying $$pack to current directory..." && \
- cp "$(srcdir)/$$pack" . ; \
- fi; \
- $(MAKE) unpack-Z; \
- else \
- ($(MAKE) newcob.val.Z && $(MAKE) unpack-Z) || \
- (echo Fallback to sourceforge.net && \
- $(MAKE) newcob.val.tar.gz && $(MAKE) unpack-gz); \
- fi; \
- fi
- @if ! test -f "newcob.val"; then \
- echo "newcob.val missing, automatic download and uncompress did not work"; \
- exit 1; \
- fi
-
-clean-local:
- $(RM) copy copyalt $(MODULES_ALL) EXEC85$(EXEEXT) summary.log EXEC85.cob
-
-$(MODULES_ALL): newcob.val EXEC85$(EXEEXT) $(srcdir)/EXEC85.conf.in Makefile.module.in
- @echo "Building module directory $@ ..."
- @mkdir -p ./$@
- @echo "*SELECT-MODULE `echo $@ | $(SED) 's/\(..\).*/\1/'`" > ./$@/EXEC85.conf
- @cat $(srcdir)/EXEC85.conf.in >> ./$@/EXEC85.conf
-# setting NEWCOB_VAL to the full name for EXEC85
- @if test -f "$(abs_builddir)/newcob.val"; then \
- export NEWCOB_VAL=$(abs_builddir)/newcob.val; \
- else \
- export NEWCOB_VAL=$(abs_srcdir)/newcob.val; \
- fi; \
- (cd $@ && COB_UNIX_LF=Y $(PRE_INST_ENV) ../EXEC85$(EXEEXT)) || ($(RM) $(abs_builddir)/$@ && false)
- @$(PERL) $(srcdir)/expand.pl $@/newcob.tmp $@ || ($(RM) $(abs_builddir)/$@ && false)
-# @$(RM) ./$@/newcob.tmp ./$@/newcob.log ./$@/EXEC85.conf
- @(export CBL_LIST="`ls $@/*.CBL | cut -f2 -d/ | tr '\n' ' '`" && \
- $(SED) -e 's/##MODULE##/'"$@"'/' \
- -e 's|##COB85DIR##|'$(abs_srcdir)'|' \
- -e 's|##DIFF_FLAGS##|'"$(DIFF_FLAGS)"'|' \
- -e 's|##PERL##|'"$(PERL)"'|' \
- -e 's|##TESTS##|'"` echo $$CBL_LIST | $(SED) -e 's/\.CBL//g'`"'|' \
- -e 's|##TESTS_LOCAL##|'"`echo $$CBL_LIST | $(SED) -e 's/\.CBL/-local/g'`"'|' \
- $(srcdir)/Makefile.module.in > $@/Makefile) || ($(RM) $(abs_builddir)/$@ && false)
- @echo "Finished module directory $@."
-
-EXEC85.cob: newcob.val
- @echo "Extracting EXEC85 program from newcob.val"
-# setting NEWCOB_VAL to the full name for the sed invocation
- @if test -f "$(abs_builddir)/newcob.val"; then \
- NEWCOB_VAL=$(abs_builddir)/newcob.val; \
- else \
- NEWCOB_VAL=$(abs_srcdir)/newcob.val; \
- fi; \
- $(SED) -e '/^\*END/,$$d' \
- -e '1,/^\*HEADER/d' \
- -e 's/^002500.*/ SELECT POPULATION-FILE/' \
- -e 's/^002700.*/ "NEWCOB_VAL" ORGANIZATION LINE SEQUENTIAL./' \
- -e 's/^003000.*/ "newcob.tmp" ORGANIZATION LINE SEQUENTIAL./' \
- -e 's/^003100.*//' \
- -e 's/^003400.*/ "unused"./' \
- -e 's/^003700.*/ "newcob.log"./' \
- -e 's/^004000.*/ "EXEC85.conf" ORGANIZATION LINE SEQUENTIAL./' \
- "$$NEWCOB_VAL" > EXEC85.cob || ($(RM) EXEC85.cob && false)
-
-EXEC85$(EXEEXT): EXEC85.cob
- @echo "Compiling EXEC85 program"
- @if test -f "EXEC85.cob"; then EXEC_SRC="EXEC85.cob"; else EXEC_SRC="$(srcdir)/EXEC85.cob"; fi; \
- $(COBC) $(COBC_FLAGS) -x "$$EXEC_SRC"
-
-# Tell versions [3.59,3.63) of GNU make to not export all variables.
-# Otherwise a system limit (for SysV at least) may be exceeded.
-.NOEXPORT:
diff --git a/tests/package.m4 b/tests/package.m4
deleted file mode 100644
index ee5ecac..0000000
--- a/tests/package.m4
+++ /dev/null
@@ -1,7 +0,0 @@
-# Signature of the current package.
-m4_define([AT_PACKAGE_NAME], [GnuCOBOL])
-m4_define([AT_PACKAGE_TARNAME], [gnucobol])
-m4_define([AT_PACKAGE_VERSION], [3.2])
-m4_define([AT_PACKAGE_STRING], [GnuCOBOL 3.2])
-m4_define([AT_PACKAGE_BUGREPORT], [bug-gnucobol@gnu.org])
-m4_define([AT_PACKAGE_URL], [https://www.gnu.org/software/gnucobol/])
diff --git a/tests/testsuite b/tests/testsuite
deleted file mode 100755
index 643c9e1..0000000
--- a/tests/testsuite
+++ /dev/null
@@ -1,224157 +0,0 @@
-#! /bin/sh
-# Generated from testsuite.at by GNU Autoconf 2.71.
-#
-# Test cases Copyright (C) 2023 Free Software Foundation, Inc.
-#
-# Written by Keisuke Nishida, Roger While, Simon Sobisch, Edward Hart,
-# Ron Norman, Brian Tiffin, Dave Pitts
-#
-# Copyright (C) 2009-2017, 2020-2021 Free Software Foundation, Inc.
-#
-# This test suite is free software; the Free Software Foundation gives
-# unlimited permission to copy, distribute and modify it.
-## -------------------- ##
-## M4sh Initialization. ##
-## -------------------- ##
-
-# Be more Bourne compatible
-DUALCASE=1; export DUALCASE # for MKS sh
-as_nop=:
-if test ${ZSH_VERSION+y} && (emulate sh) >/dev/null 2>&1
-then :
- emulate sh
- NULLCMD=:
- # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which
- # is contrary to our usage. Disable this feature.
- alias -g '${1+"$@"}'='"$@"'
- setopt NO_GLOB_SUBST
-else $as_nop
- case `(set -o) 2>/dev/null` in #(
- *posix*) :
- set -o posix ;; #(
- *) :
- ;;
-esac
-fi
-
-
-
-# Reset variables that may have inherited troublesome values from
-# the environment.
-
-# IFS needs to be set, to space, tab, and newline, in precisely that order.
-# (If _AS_PATH_WALK were called with IFS unset, it would have the
-# side effect of setting IFS to empty, thus disabling word splitting.)
-# Quoting is to prevent editors from complaining about space-tab.
-as_nl='
-'
-export as_nl
-IFS=" "" $as_nl"
-
-PS1='$ '
-PS2='> '
-PS4='+ '
-
-# Ensure predictable behavior from utilities with locale-dependent output.
-LC_ALL=C
-export LC_ALL
-LANGUAGE=C
-export LANGUAGE
-
-# We cannot yet rely on "unset" to work, but we need these variables
-# to be unset--not just set to an empty or harmless value--now, to
-# avoid bugs in old shells (e.g. pre-3.0 UWIN ksh). This construct
-# also avoids known problems related to "unset" and subshell syntax
-# in other old shells (e.g. bash 2.01 and pdksh 5.2.14).
-for as_var in BASH_ENV ENV MAIL MAILPATH CDPATH
-do eval test \${$as_var+y} \
- && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || :
-done
-
-# Ensure that fds 0, 1, and 2 are open.
-if (exec 3>&0) 2>/dev/null; then :; else exec 0</dev/null; fi
-if (exec 3>&1) 2>/dev/null; then :; else exec 1>/dev/null; fi
-if (exec 3>&2) ; then :; else exec 2>/dev/null; fi
-
-# The user is always right.
-if ${PATH_SEPARATOR+false} :; then
- PATH_SEPARATOR=:
- (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && {
- (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 ||
- PATH_SEPARATOR=';'
- }
-fi
-
-
-# Find who we are. Look in the path if we contain no directory separator.
-as_myself=
-case $0 in #((
- *[\\/]* ) as_myself=$0 ;;
- *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- case $as_dir in #(((
- '') as_dir=./ ;;
- */) ;;
- *) as_dir=$as_dir/ ;;
- esac
- test -r "$as_dir$0" && as_myself=$as_dir$0 && break
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-# We did not find ourselves, most probably we were run as `sh COMMAND'
-# in which case we are not to be found in the path.
-if test "x$as_myself" = x; then
- as_myself=$0
-fi
-if test ! -f "$as_myself"; then
- printf "%s\n" "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2
- exit 1
-fi
-
-
-if test "x$CONFIG_SHELL" = x; then
- as_bourne_compatible="as_nop=:
-if test \${ZSH_VERSION+y} && (emulate sh) >/dev/null 2>&1
-then :
- emulate sh
- NULLCMD=:
- # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which
- # is contrary to our usage. Disable this feature.
- alias -g '\${1+\"\$@\"}'='\"\$@\"'
- setopt NO_GLOB_SUBST
-else \$as_nop
- case \`(set -o) 2>/dev/null\` in #(
- *posix*) :
- set -o posix ;; #(
- *) :
- ;;
-esac
-fi
-"
- as_required="as_fn_return () { (exit \$1); }
-as_fn_success () { as_fn_return 0; }
-as_fn_failure () { as_fn_return 1; }
-as_fn_ret_success () { return 0; }
-as_fn_ret_failure () { return 1; }
-
-exitcode=0
-as_fn_success || { exitcode=1; echo as_fn_success failed.; }
-as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; }
-as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; }
-as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; }
-if ( set x; as_fn_ret_success y && test x = \"\$1\" )
-then :
-
-else \$as_nop
- exitcode=1; echo positional parameters were not saved.
-fi
-test x\$exitcode = x0 || exit 1
-blah=\$(echo \$(echo blah))
-test x\"\$blah\" = xblah || exit 1
-test -x / || exit 1"
- as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO
- as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO
- eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" &&
- test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1
-test \$(( 1 + 1 )) = 2 || exit 1"
- if (eval "$as_required") 2>/dev/null
-then :
- as_have_required=yes
-else $as_nop
- as_have_required=no
-fi
- if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null
-then :
-
-else $as_nop
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-as_found=false
-for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH
-do
- IFS=$as_save_IFS
- case $as_dir in #(((
- '') as_dir=./ ;;
- */) ;;
- *) as_dir=$as_dir/ ;;
- esac
- as_found=:
- case $as_dir in #(
- /*)
- for as_base in sh bash ksh sh5; do
- # Try only shells that exist, to save several forks.
- as_shell=$as_dir$as_base
- if { test -f "$as_shell" || test -f "$as_shell.exe"; } &&
- as_run=a "$as_shell" -c "$as_bourne_compatible""$as_required" 2>/dev/null
-then :
- CONFIG_SHELL=$as_shell as_have_required=yes
- if as_run=a "$as_shell" -c "$as_bourne_compatible""$as_suggested" 2>/dev/null
-then :
- break 2
-fi
-fi
- done;;
- esac
- as_found=false
-done
-IFS=$as_save_IFS
-if $as_found
-then :
-
-else $as_nop
- if { test -f "$SHELL" || test -f "$SHELL.exe"; } &&
- as_run=a "$SHELL" -c "$as_bourne_compatible""$as_required" 2>/dev/null
-then :
- CONFIG_SHELL=$SHELL as_have_required=yes
-fi
-fi
-
-
- if test "x$CONFIG_SHELL" != x
-then :
- export CONFIG_SHELL
- # We cannot yet assume a decent shell, so we have to provide a
-# neutralization value for shells without unset; and this also
-# works around shells that cannot unset nonexistent variables.
-# Preserve -v and -x to the replacement shell.
-BASH_ENV=/dev/null
-ENV=/dev/null
-(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV
-case $- in # ((((
- *v*x* | *x*v* ) as_opts=-vx ;;
- *v* ) as_opts=-v ;;
- *x* ) as_opts=-x ;;
- * ) as_opts= ;;
-esac
-exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"}
-# Admittedly, this is quite paranoid, since all the known shells bail
-# out after a failed `exec'.
-printf "%s\n" "$0: could not re-execute with $CONFIG_SHELL" >&2
-exit 255
-fi
-
- if test x$as_have_required = xno
-then :
- printf "%s\n" "$0: This script requires a shell more modern than all"
- printf "%s\n" "$0: the shells that I found on your system."
- if test ${ZSH_VERSION+y} ; then
- printf "%s\n" "$0: In particular, zsh $ZSH_VERSION has bugs and should"
- printf "%s\n" "$0: be upgraded to zsh 4.3.4 or later."
- else
- printf "%s\n" "$0: Please tell bug-autoconf@gnu.org about your system,
-$0: including any error possibly output before this
-$0: message. Then install a modern shell, or manually run
-$0: the script under such a shell if you do have one."
- fi
- exit 1
-fi
-fi
-fi
-SHELL=${CONFIG_SHELL-/bin/sh}
-export SHELL
-# Unset more variables known to interfere with behavior of common tools.
-CLICOLOR_FORCE= GREP_OPTIONS=
-unset CLICOLOR_FORCE GREP_OPTIONS
-
-## --------------------- ##
-## M4sh Shell Functions. ##
-## --------------------- ##
-# as_fn_unset VAR
-# ---------------
-# Portably unset VAR.
-as_fn_unset ()
-{
- { eval $1=; unset $1;}
-}
-as_unset=as_fn_unset
-
-
-# as_fn_set_status STATUS
-# -----------------------
-# Set $? to STATUS, without forking.
-as_fn_set_status ()
-{
- return $1
-} # as_fn_set_status
-
-# as_fn_exit STATUS
-# -----------------
-# Exit the shell with STATUS, even in a "trap 0" or "set -e" context.
-as_fn_exit ()
-{
- set +e
- as_fn_set_status $1
- exit $1
-} # as_fn_exit
-# as_fn_nop
-# ---------
-# Do nothing but, unlike ":", preserve the value of $?.
-as_fn_nop ()
-{
- return $?
-}
-as_nop=as_fn_nop
-
-# as_fn_mkdir_p
-# -------------
-# Create "$as_dir" as a directory, including parents if necessary.
-as_fn_mkdir_p ()
-{
-
- case $as_dir in #(
- -*) as_dir=./$as_dir;;
- esac
- test -d "$as_dir" || eval $as_mkdir_p || {
- as_dirs=
- while :; do
- case $as_dir in #(
- *\'*) as_qdir=`printf "%s\n" "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'(
- *) as_qdir=$as_dir;;
- esac
- as_dirs="'$as_qdir' $as_dirs"
- as_dir=`$as_dirname -- "$as_dir" ||
-$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
- X"$as_dir" : 'X\(//\)[^/]' \| \
- X"$as_dir" : 'X\(//\)$' \| \
- X"$as_dir" : 'X\(/\)' \| . 2>/dev/null ||
-printf "%s\n" X"$as_dir" |
- sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
- s//\1/
- q
- }
- /^X\(\/\/\)[^/].*/{
- s//\1/
- q
- }
- /^X\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`
- test -d "$as_dir" && break
- done
- test -z "$as_dirs" || eval "mkdir $as_dirs"
- } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir"
-
-
-} # as_fn_mkdir_p
-
-# as_fn_executable_p FILE
-# -----------------------
-# Test if FILE is an executable regular file.
-as_fn_executable_p ()
-{
- test -f "$1" && test -x "$1"
-} # as_fn_executable_p
-# as_fn_append VAR VALUE
-# ----------------------
-# Append the text in VALUE to the end of the definition contained in VAR. Take
-# advantage of any shell optimizations that allow amortized linear growth over
-# repeated appends, instead of the typical quadratic growth present in naive
-# implementations.
-if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null
-then :
- eval 'as_fn_append ()
- {
- eval $1+=\$2
- }'
-else $as_nop
- as_fn_append ()
- {
- eval $1=\$$1\$2
- }
-fi # as_fn_append
-
-# as_fn_arith ARG...
-# ------------------
-# Perform arithmetic evaluation on the ARGs, and store the result in the
-# global $as_val. Take advantage of shells that can avoid forks. The arguments
-# must be portable across $(()) and expr.
-if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null
-then :
- eval 'as_fn_arith ()
- {
- as_val=$(( $* ))
- }'
-else $as_nop
- as_fn_arith ()
- {
- as_val=`expr "$@" || test $? -eq 1`
- }
-fi # as_fn_arith
-
-
-# as_fn_error STATUS ERROR [LINENO LOG_FD]
-# ----------------------------------------
-# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are
-# provided, also output the error to LOG_FD, referencing LINENO. Then exit the
-# script with STATUS, using 1 if that was 0.
-as_fn_error ()
-{
- as_status=$1; test $as_status -eq 0 && as_status=1
- if test "$4"; then
- as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: $2" >&$4
- fi
- printf "%s\n" "$as_me: error: $2" >&2
- as_fn_exit $as_status
-} # as_fn_error
-
-if expr a : '\(a\)' >/dev/null 2>&1 &&
- test "X`expr 00001 : '.*\(...\)'`" = X001; then
- as_expr=expr
-else
- as_expr=false
-fi
-
-if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then
- as_basename=basename
-else
- as_basename=false
-fi
-
-as_me=`$as_basename -- "$0" ||
-$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \
- X"$0" : 'X\(//\)$' \| \
- X"$0" : 'X\(/\)' \| . 2>/dev/null ||
-printf "%s\n" X/"$0" |
- sed '/^.*\/\([^/][^/]*\)\/*$/{
- s//\1/
- q
- }
- /^X\/\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\/\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`
-
-if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then
- as_dirname=dirname
-else
- as_dirname=false
-fi
-
-# Avoid depending upon Character Ranges.
-as_cr_letters='abcdefghijklmnopqrstuvwxyz'
-as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
-as_cr_Letters=$as_cr_letters$as_cr_LETTERS
-as_cr_digits='0123456789'
-as_cr_alnum=$as_cr_Letters$as_cr_digits
-
-
- as_lineno_1=$LINENO as_lineno_1a=$LINENO
- as_lineno_2=$LINENO as_lineno_2a=$LINENO
- eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" &&
- test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || {
- # Blame Lee E. McMahon (1931-1989) for sed's syntax. :-)
- sed -n '
- p
- /[$]LINENO/=
- ' <$as_myself |
- sed '
- s/[$]LINENO.*/&-/
- t lineno
- b
- :lineno
- N
- :loop
- s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/
- t loop
- s/-\n.*//
- ' >$as_me.lineno &&
- chmod +x "$as_me.lineno" ||
- { printf "%s\n" "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; }
-
- # If we had to re-execute with $CONFIG_SHELL, we're ensured to have
- # already done that, so ensure we don't try to do so again and fall
- # in an infinite loop. This has already happened in practice.
- _as_can_reexec=no; export _as_can_reexec
- # Don't try to exec as it changes $[0], causing all sort of problems
- # (the dirname of $[0] is not the place where we might find the
- # original and so on. Autoconf is especially sensitive to this).
- . "./$as_me.lineno"
- # Exit status is that of the last command.
- exit
-}
-
-
-# Determine whether it's possible to make 'echo' print without a newline.
-# These variables are no longer used directly by Autoconf, but are AC_SUBSTed
-# for compatibility with existing Makefiles.
-ECHO_C= ECHO_N= ECHO_T=
-case `echo -n x` in #(((((
--n*)
- case `echo 'xy\c'` in
- *c*) ECHO_T=' ';; # ECHO_T is single tab character.
- xy) ECHO_C='\c';;
- *) echo `echo ksh88 bug on AIX 6.1` > /dev/null
- ECHO_T=' ';;
- esac;;
-*)
- ECHO_N='-n';;
-esac
-
-# For backward compatibility with old third-party macros, we provide
-# the shell variables $as_echo and $as_echo_n. New code should use
-# AS_ECHO(["message"]) and AS_ECHO_N(["message"]), respectively.
-as_echo='printf %s\n'
-as_echo_n='printf %s'
-
-
-rm -f conf$$ conf$$.exe conf$$.file
-if test -d conf$$.dir; then
- rm -f conf$$.dir/conf$$.file
-else
- rm -f conf$$.dir
- mkdir conf$$.dir 2>/dev/null
-fi
-if (echo >conf$$.file) 2>/dev/null; then
- if ln -s conf$$.file conf$$ 2>/dev/null; then
- as_ln_s='ln -s'
- # ... but there are two gotchas:
- # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail.
- # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable.
- # In both cases, we have to default to `cp -pR'.
- ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe ||
- as_ln_s='cp -pR'
- elif ln conf$$.file conf$$ 2>/dev/null; then
- as_ln_s=ln
- else
- as_ln_s='cp -pR'
- fi
-else
- as_ln_s='cp -pR'
-fi
-rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file
-rmdir conf$$.dir 2>/dev/null
-
-if mkdir -p . 2>/dev/null; then
- as_mkdir_p='mkdir -p "$as_dir"'
-else
- test -d ./-p && rmdir ./-p
- as_mkdir_p=false
-fi
-
-as_test_x='test -x'
-as_executable_p=as_fn_executable_p
-
-# Sed expression to map a string onto a valid CPP name.
-as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'"
-
-# Sed expression to map a string onto a valid variable name.
-as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'"
-
-
-
-
-
-SHELL=${CONFIG_SHELL-/bin/sh}
-
-# How were we run?
-at_cli_args="$@"
-
-
-# Not all shells have the 'times' builtin; the subshell is needed to make
-# sure we discard the 'times: not found' message from the shell.
-at_times_p=false
-(times) >/dev/null 2>&1 && at_times_p=:
-
-# CLI Arguments to pass to the debugging scripts.
-at_debug_args=
-# -e sets to true
-at_errexit_p=false
-# Shall we be verbose? ':' means no, empty means yes.
-at_verbose=:
-at_quiet=
-# Running several jobs in parallel, 0 means as many as test groups.
-at_jobs=1
-at_traceon=:
-at_trace_echo=:
-at_check_filter_trace=:
-
-# Shall we keep the debug scripts? Must be `:' when the suite is
-# run by a debug script, so that the script doesn't remove itself.
-at_debug_p=false
-# Display help message?
-at_help_p=false
-# Display the version message?
-at_version_p=false
-# List test groups?
-at_list_p=false
-# --clean
-at_clean=false
-# Test groups to run
-at_groups=
-# Whether to rerun failed tests.
-at_recheck=
-# Whether a write failure occurred
-at_write_fail=0
-
-# The directory we run the suite in. Default to . if no -C option.
-at_dir=`pwd`
-# An absolute reference to this testsuite script.
-case $as_myself in
- [\\/]* | ?:[\\/]* ) at_myself=$as_myself ;;
- * ) at_myself=$at_dir/$as_myself ;;
-esac
-# Whether -C is in effect.
-at_change_dir=false
-
-# Whether to enable colored test results.
-at_color=auto
-# As many question marks as there are digits in the last test group number.
-# Used to normalize the test group numbers so that `ls' lists them in
-# numerical order.
-at_format='????'
-# Description of all the test groups.
-at_help_all="1;used_binaries.at:27;compiler help and information;runmisc cobc;
-2;used_binaries.at:51;compiler warnings;runmisc cobc warning;
-3;used_binaries.at:179;compiler outputs (general);runmisc cobc;
-4;used_binaries.at:219;compiler outputs (file specified);runmisc cobc gen-c-line-directives gen-c-labels gen line labels copy;
-5;used_binaries.at:300;compiler outputs (path specified);runmisc cobc;
-6;used_binaries.at:329;compiler outputs (assembler);runmisc cobc;
-7;used_binaries.at:364;source file not found;cobc runmisc;
-8;used_binaries.at:374;temporary path invalid;cobc runmisc;
-9;used_binaries.at:409;use of full path for cobc;runmisc;
-10;used_binaries.at:427;C Compiler optimizations;runmisc cobc optimization;
-11;used_binaries.at:464;invalid cobc option;runmisc cobc;
-12;used_binaries.at:484;cobcrun help and information;runmisc cobcrun;
-13;used_binaries.at:500;cobcrun validation;runmisc;
-14;used_binaries.at:540;cobcrun -M DSO entry argument;runmisc preload;
-15;used_binaries.at:626;cobcrun -M directory/ default;runmisc;
-16;used_binaries.at:665;cobcrun -M directory/dso alternate;runmisc preload;
-17;used_binaries.at:716;cobcrun -M DSO entry multiple arguments;runmisc preload;
-18;used_binaries.at:762;cobcrun error messages;runmisc;
-19;used_binaries.at:796;run job with unsuccessful compilation;runmisc cobcrun;
-20;used_binaries.at:815;run job after compilation;runmisc cobcrun;
-21;used_binaries.at:832;run job after compilation (path specified);runmisc cobcrun;
-22;used_binaries.at:850;run job with optional arguments;runmisc cobcrun;
-23;used_binaries.at:872;compile from stdin;runmisc cobc cobcrun;
-24;used_binaries.at:900;run job after compilation from stdin;runmisc cobc cobcrun;
-25;used_binaries.at:924;cobc diagnostics show caret;;
-26;configuration.at:22;cobc with standard configuration file;configuration misc;
-27;configuration.at:43;cobc dialect features for all -std;configuration misc;
-28;configuration.at:105;cobc with configuration file via -std;configuration misc;
-29;configuration.at:126;cobc with standard configuration file via -conf;configuration misc;
-30;configuration.at:147;cobc with own configuration file via -conf;configuration misc;
-31;configuration.at:176;cobc configuration: recursive include;configuration misc;
-32;configuration.at:214;cobc with -std and -conf;configuration misc;
-33;configuration.at:241;cobc compiler flag on command line;configuration misc;
-34;configuration.at:260;cobc compiler flag on command line (priority);configuration misc;
-35;configuration.at:293;cobc configuration: entries;configuration misc;
-36;configuration.at:340;cobc configuration: conf missing;configuration misc;
-37;configuration.at:368;cobc configuration: conf optional;configuration misc;
-38;configuration.at:404;cobc configuration: incomplete;configuration misc;
-39;configuration.at:546;runtime configuration;configuration misc;
-40;configuration.at:565;runtime configuration file;configuration misc;
-41;configuration.at:608;runtime configuration: recursive include;configuration misc;
-42;configuration.at:637;runtime configuration: environment priority;configuration misc;
-43;configuration.at:650;runtime configuration: entries;configuration misc;
-44;configuration.at:731;runtime configuration: conf missing;configuration misc;
-45;configuration.at:760;runtime configuration: conf optional;configuration misc;
-46;configuration.at:773;runtime configuration: strings and environment;configuration environment variable;
-47;configuration.at:787;validation of COB_CONFIG_DIR;runtime configuration environment variable;
-48;configuration.at:827;cobc configuration: source format;configuration misc format;
-49;configuration.at:885;cobc configuration: ebcdic-table;configuration misc ebcdic collating sequence alphabet collation;
-50;syn_copy.at:23;COPY: IN / OF / -I;copy cobc;
-51;syn_copy.at:125;COPY: relative copybooks;copy cobc;
-52;syn_copy.at:170;COPY: extension;copy cobc in of -i;
-53;syn_copy.at:257;COPY: within comment;copy;
-54;syn_copy.at:286;COPY: file not found;copy case fold-copy;
-55;syn_copy.at:342;COPY: recursive;copy;
-56;syn_copy.at:382;COPY: replacement order;copy;
-57;syn_copy.at:409;COPY: separators;copy;
-58;syn_copy.at:438;COPY: partial replacement;copy;
-59;syn_copy.at:468;COPY: LEADING replacement;copy;
-60;syn_copy.at:498;COPY: TRAILING replacement;copy;
-61;syn_copy.at:528;COPY: partial replacement BY literal;copy gcos;
-62;syn_copy.at:630;COPY: recursive replacement;copy;
-63;syn_copy.at:660;COPY: fixed/free format;copy;
-64;syn_copy.at:686;REPLACE: partial replacement BY SPACE;replace gcos acu figurative constant spaces;
-65;syn_copy.at:739;COPY: simple partial match;copy;
-66;syn_copy.at:766;COPY: with LEADING, multiple partial matches;copy;
-67;syn_copy.at:804;COPY: multiple partial matches with an error;copy;
-68;syn_copy.at:844;COPY: Multiple partial matches (1);copy;
-69;syn_copy.at:884;COPY: Multiple partial matches (2);copy;
-70;syn_copy.at:923;COPY and REPLACE in same file;replacing preprocess;
-71;syn_copy.at:997;COPY and REPLACE errors;copy;
-72;syn_copy.at:1041;COPY and REPLACE with reserved words;copy;
-73;syn_definition.at:25;Invalid source name;definition;
-74;syn_definition.at:37;Invalid PROGRAM-ID;definition underscore hyphen entry;
-75;syn_definition.at:89;Invalid PROGRAM-ID type clause (1);definition;
-76;syn_definition.at:106;invalid PROGRAM-ID type clause (2);definition;
-77;syn_definition.at:123;INITIAL / RECURSIVE before COMMON;program-id definition;
-78;syn_definition.at:155;Undefined data name;definition;
-79;syn_definition.at:173;Undefined group name;definition;
-80;syn_definition.at:194;Undefined data name in group;definition;
-81;syn_definition.at:217;Reference not a group name;definition;
-82;syn_definition.at:239;Incomplete 01 definition;definition;
-83;syn_definition.at:257;error handling in conditions;definition;
-84;syn_definition.at:333;Same paragraphs in different sections;definition procedures label go to;
-85;syn_definition.at:376;GO TO sections and foreign paragraphs;definition procedures section paragraph;
-86;syn_definition.at:413;Redefinition of 01 items;definition;
-87;syn_definition.at:442;Redefinition of 01 and 02 items;definition;
-88;syn_definition.at:462;Redefinition of 02 items;definition redefines;
-89;syn_definition.at:495;Redefinition of 77 items;definition;
-90;syn_definition.at:515;Redefinition of 01 and 77 items;definition;
-91;syn_definition.at:535;Redefinition of 88 items;definition;
-92;syn_definition.at:556;Redefinition of program-name by other programs;definition;
-93;syn_definition.at:636;Redefinition of program-name within program;definition;
-94;syn_definition.at:666;Redefinition of function-prototype name;definition;
-95;syn_definition.at:691;PROCEDURE DIVISION RETURNING OMITTED: main;runmisc;
-96;syn_definition.at:711;PROCEDURE DIVISION RETURNING OMITTED: FUNCTION;runmisc;
-97;syn_definition.at:730;PROCEDURE DIVISION RETURNING item;runmisc;
-98;syn_definition.at:825;Data item with same name as program-name;definition;
-99;syn_definition.at:852;Ambiguous reference to 02 items;definition;
-100;syn_definition.at:878;Ambiguous reference to 02 and 03 items;definition;
-101;syn_definition.at:903;Ambiguous reference with qualification;definition;
-102;syn_definition.at:931;Unique reference with ambiguous qualifiers;definition;
-103;syn_definition.at:955;SYNCHRONIZED clause;definition sync;
-104;syn_definition.at:998;Undefined procedure name;definition;
-105;syn_definition.at:1018;Redefinition of section names;definition;
-106;syn_definition.at:1043;Redefinition of section and paragraph names;definition;
-107;syn_definition.at:1069;Redefinition of label and variable names;definition;
-108;syn_definition.at:1106;Redefinition of paragraph names;definition;
-109;syn_definition.at:1132;Ambiguous reference to paragraph name;definition;
-110;syn_definition.at:1158;Non-matching level numbers (extension);definition;
-111;syn_definition.at:1190;CALL BY VALUE alphanumeric item (extension);definition content;
-112;syn_definition.at:1212;CALL BY VALUE national item (extension);definition content;
-113;syn_definition.at:1234;CALL BY VALUE figurative constants;definition;
-114;syn_definition.at:1268;Duplicate identification division header;definition;
-115;syn_definition.at:1283;RETURNING in STOP RUN / GOBACK / EXIT PROGRAM;definition return-code;
-116;syn_definition.at:1334;OSVS register CURRENT-DATE and TIME-OF-DAY;definition;
-117;syn_definition.at:1404;Invalid ENVIRONMENT DIVISION order;definition;
-118;syn_definition.at:1429;Function without END FUNCTION;definition functions;
-119;syn_definition.at:1443;Nested programs without END PROGRAM;definition;
-120;syn_definition.at:1465;Nested programs not in procedure division;definition;
-121;syn_definition.at:1484;Screen section starts with 78-level;screen definition;
-122;syn_definition.at:1500;Invalid PICTURE strings;definition usage;
-123;syn_definition.at:1756;PICTURE string with control character;definition;
-124;syn_definition.at:1774;PICTURE strings invalid with BLANK WHEN ZERO;definition;
-125;syn_definition.at:1797;PICTURE strings invalid with USAGE;definition;
-126;syn_definition.at:1817;Edited monetary PICTURE strings;definition;
-127;syn_definition.at:1844;ALPHABET definition;definition;
-128;syn_definition.at:1867;PROGRAM COLLATING SEQUENCE;definition alphabet;
-129;syn_definition.at:2050;RENAMES item;definition 66;
-130;syn_definition.at:2124;RENAMES of 01-, 66- and 77-level items;definition 66 extensions;
-131;syn_definition.at:2150;SAME AS clause;definition external global;
-132;syn_definition.at:2214;TYPEDEF clause;definition external global type usage listing symbols xref;
-133;syn_definition.at:2566;LIKE clause;definition external global;
-134;syn_definition.at:2624;APPLY COMMIT clause;definition i-o-control rollback;
-135;syn_definition.at:2729;GLOBAL record-names;definition alternate indexed;
-136;syn_definition.at:2848;Invalid USE BEFORE;use;
-137;syn_subscripts.at:23;Non-numeric subscript;subscripts;
-138;syn_subscripts.at:50;Subscript range check;subscripts;
-139;syn_subscripts.at:98;Subscript bounds with OCCURS DEPENDING ON;runsubscripts subscripts odo;
-140;syn_subscripts.at:125;Subscripted item requires OCCURS clause;subscripts;
-141;syn_subscripts.at:151;Number of subscripts;subscripts;
-142;syn_subscripts.at:195;SET SSRANGE syntax;subscripts directive extensions;
-143;syn_occurs.at:29;OCCURS with level 01 and 77;;
-144;syn_occurs.at:84;OCCURS with level 66;renames;
-145;syn_occurs.at:103;OCCURS with level 78;;
-146;syn_occurs.at:121;OCCURS with level 88;;
-147;syn_occurs.at:143;OCCURS with variable-occurrence data item;nested depending extensions odo odoslide directive;
-148;syn_occurs.at:248;OCCURS UNBOUNDED;;
-149;syn_occurs.at:359;OCCURS data-items for INDEXED and KEY;ascending descending;
-150;syn_occurs.at:399;Nested OCCURS clause;;
-151;syn_occurs.at:436;OCCURS DEPENDING with wrong size;range;
-152;syn_occurs.at:475;OCCURS DEPENDING followed by another field;extensions;
-153;syn_occurs.at:517;OCCURS with unmatched DEPENDING / TO phrases;odo;
-154;syn_occurs.at:560;OCCURS INDEXED before KEY;ascending descending;
-155;syn_occurs.at:598;OCCURS size check;limit;
-156;syn_redefines.at:28;REDEFINES: not following entry-name;redefines;
-157;syn_redefines.at:53;REDEFINES: level 02 by 01;redefines;
-158;syn_redefines.at:74;REDEFINES: level 03 by 02;redefines;
-159;syn_redefines.at:96;REDEFINES: level 66;redefines;
-160;syn_redefines.at:118;REDEFINES: level 88;redefines;
-161;syn_redefines.at:146;REDEFINES: lower level number;redefines;
-162;syn_redefines.at:172;REDEFINES: with OCCURS;redefines;
-163;syn_redefines.at:196;REDEFINES: with subscript;redefines;
-164;syn_redefines.at:219;REDEFINES: with variable occurrence;redefines;
-165;syn_redefines.at:254;REDEFINES: with qualification;redefines;
-166;syn_redefines.at:280;REDEFINES: multiple redefinition;redefines;
-167;syn_redefines.at:308;REDEFINES: size exceeds;redefines;
-168;syn_redefines.at:359;REDEFINES: with VALUE;redefines;
-169;syn_redefines.at:392;REDEFINES: with intervention;redefines;
-170;syn_redefines.at:424;REDEFINES: within REDEFINES;redefines;
-171;syn_redefines.at:467;REDEFINES: for ANY LENGTH item;redefines;
-172;syn_redefines.at:500;REDEFINES: non-referenced ambiguous item;redefines extensions;
-173;syn_value.at:28;bad VALUES / VALUES ARE in format-1;value;
-174;syn_value.at:76;OCCURS too many VALUEs;initialize value;
-175;syn_value.at:162;Numeric item (integer);value size;
-176;syn_value.at:189;Numeric item (non-integer);value size;
-177;syn_value.at:213;Numeric item with picture P;value size;
-178;syn_value.at:245;Signed numeric literal;value;
-179;syn_value.at:271;Alphabetic item;value size;
-180;syn_value.at:299;Alphanumeric item;value size;
-181;syn_value.at:325;Alphanumeric group item;value size;
-182;syn_value.at:352;National item;value size;
-183;syn_value.at:392;Numeric-edited item;value editing size;
-184;syn_value.at:428;Alphanumeric-edited item;value editing size;
-185;syn_value.at:497;Implicit picture from value;value;
-186;syn_file.at:23;Missing SELECT;file;
-187;syn_file.at:50;Duplicated SELECT;file;
-188;syn_file.at:82;Missing FD;file;
-189;syn_file.at:108;Duplicated FD;file;
-190;syn_file.at:137;ASSIGN to device-name;file disk device;
-191;syn_file.at:204;ASSIGN to printer-name;file printer print device;
-192;syn_file.at:271;ASSIGN to lsq-device-name;file printer device;
-193;syn_file.at:326;ASSIGN to variable;file;
-194;syn_file.at:431;SELECT without ASSIGN;file;
-195;syn_file.at:459;START on SEQUENTIAL file;file;
-196;syn_file.at:496;OPEN SEQUENTIAL file REVERSED;file;
-197;syn_file.at:544;OPEN SEQUENTIAL file NO REWIND;file;
-198;syn_file.at:583;valid key items;file record alternate;
-199;syn_file.at:633;INDEXED file invalid key items;record alternate split;
-200;syn_file.at:697;variable record length;file;
-201;syn_file.at:808;variable record length DEPENDING item;file;
-202;syn_file.at:910;DECLARATIVES invalid procedure reference (1);file goto go perform;
-203;syn_file.at:999;DECLARATIVES invalid procedure reference (2);file;
-204;syn_file.at:1040;EXTERNAL file;file;
-205;syn_file.at:1068;RECORDING MODE;file extensions;
-206;syn_file.at:1097;CODE-SET clause;file;
-207;syn_file.at:1147;CODE-SET FOR clause;file extensions;
-208;syn_file.at:1180;WRITE / REWRITE FROM clause and FILE;file record condition-name level-88 88;
-209;syn_file.at:1241;Clauses following invalid ACCESS clause;file;
-210;syn_file.at:1265;RELATIVE KEY type validation;relative file;
-211;syn_file.at:1325;Mismatched KEY clause;file relative indexed;
-212;syn_file.at:1352;RECORD DELIMITER;file;
-213;syn_file.at:1460;FILE STATUS;file status;
-214;syn_file.at:1556;VSAM status;file status extensions;
-215;syn_file.at:1602;INDEXED file PASSWORD clause;file external split key;
-216;syn_file.at:1653;RECORD clause equal limits;file;
-217;syn_file.at:1693;FILE ... FROM literal;file;
-218;syn_file.at:1752;WRITE / REWRITE on REPORT files;file;
-219;syn_file.at:1789;SELECT without fd-name;file;
-220;syn_file.at:1810;Undeclared FILE-ID variable;file;
-221;syn_file.at:1835;ASSIGN external-name matching filename;file external;
-222;syn_file.at:1863;Undeclared ASSIGN variable;file global;
-223;syn_file.at:1942;ACCESS RANDOM with ORG SEQUENTIAL;file;
-224;syn_file.at:1969;ALTERNATE RECORD KEY SUPPRESS WHEN;file;
-225;syn_file.at:2014;RECORD definition with SOURCE IS / =;file;
-226;syn_file.at:2065;ALTERNATE RECORD definition WITH NO DUPLICATES;file;
-227;syn_file.at:2095;ALTERNATE RECORD definition omitting RECORD;file;
-228;syn_file.at:2124;SELECT/OPEN syntax extensions;file select open mass-update bulk-addition lock;
-229;syn_file.at:2219;GLOBAL FD nested progam;global-fd;
-230;syn_file.at:2257;Invalid file name in SELECT;file;
-231;syn_reportwriter.at:23;REPORT error/warning;report;
-232;syn_reportwriter.at:124;REPORT not positive integers in COL / LINE PLUS;lines cols columns;
-233;syn_reportwriter.at:177;Missing PICTURE for SOURCE;report;
-234;syn_reportwriter.at:218;Missing DETAIL line;report;
-235;syn_reportwriter.at:261;REPORT LINE PLUS ZERO;report;
-236;syn_reportwriter.at:311;Incorrect REPORT NAME;report;
-237;syn_reportwriter.at:428;REPORT with PLUS RIGHT/CENTER;report;
-238;syn_reportwriter.at:521;PAGE LIMITS clause;report;
-239;syn_reportwriter.at:556;Report FD without period;report;
-240;syn_reportwriter.at:598;REPORT with unreferenced control field;report;
-241;syn_reportwriter.at:626;Incorrect USAGE clause;report;
-242;syn_refmod.at:26;valid reference-modification;refmod;
-243;syn_refmod.at:55;invalid reference-modification;refmod condition-name;
-244;syn_refmod.at:79;Static out of bounds;refmod;
-245;syn_refmod.at:123;constant-folding out of bounds;refmod expression;
-246;syn_refmod.at:159;no static bound check for ANY LENGTH;refmod;
-247;syn_misc.at:23;ambiguous AND/OR;misc expression;
-248;syn_misc.at:54;warn constant expressions;misc expression;
-249;syn_misc.at:120;warn literal size;misc numeric constant expression;
-250;syn_misc.at:388;warn literal size in constant expr. (level 88);misc numeric constant expression;
-251;syn_misc.at:438;Invalid conditional expression (1);misc;
-252;syn_misc.at:550;Invalid conditional expression (2);misc;
-253;syn_misc.at:619;Invalid conditional expression (3);expression condition;
-254;syn_misc.at:683;Valid conditional expression;misc;
-255;syn_misc.at:716;missing headers;misc;
-256;syn_misc.at:773;one line program;misc;
-257;syn_misc.at:794;empty program;misc;
-258;syn_misc.at:842;INITIALIZE constant;misc;
-259;syn_misc.at:869;CLASS duplicate values;misc;
-260;syn_misc.at:902;INSPECT invalid size;misc refmod;
-261;syn_misc.at:943;INSPECT invalid target;misc;
-262;syn_misc.at:966;INSPECT missing keyword;misc;
-263;syn_misc.at:987;INSPECT repeated keywords;misc;
-264;syn_misc.at:1023;INSPECT incomplete clause;misc;
-265;syn_misc.at:1045;INSPECT multiple BEFORE/AFTER clauses;misc;
-266;syn_misc.at:1068;EXAMINE invalid literals;misc;
-267;syn_misc.at:1104;maximum data size;misc max;
-268;syn_misc.at:1152;unreachable statement;misc extensions;
-269;syn_misc.at:1202;CRT STATUS;special-names misc;
-270;syn_misc.at:1244;SPECIAL-NAMES clause;misc extensions cursor crt status;
-271;syn_misc.at:1345;CURRENCY SIGN;special-names misc;
-272;syn_misc.at:1457;SWITCHES;runmisc extensions;
-273;syn_misc.at:1583;unexpected mnemonic-name location;misc;
-274;syn_misc.at:1610;wrong device for mnemonic-name;misc accept display special-names;
-275;syn_misc.at:1635;missing mnemonic-name declaration;misc accept special-names;
-276;syn_misc.at:1656;unknown device in dialect;misc accept display special-names;
-277;syn_misc.at:1686;ACCEPT WITH ( NO ) UPDATE / DEFAULT;misc extensions;
-278;syn_misc.at:1711;ACCEPT WITH AUTO / TAB;auto-skip autoterminate misc extensions screen;
-279;syn_misc.at:1736;ACCEPT WITH LOWER / UPPER;misc extensions screen;
-280;syn_misc.at:1758;ACCEPT WITH SIZE;protected size misc extensions screen;
-281;syn_misc.at:1787;DISPLAY WITH SIZE;size misc extensions screen;
-282;syn_misc.at:1812;source text after program-text area;misc fixed;
-283;syn_misc.at:1833;line overflow in fixed-form / free-form;misc;
-284;syn_misc.at:1891;missing newline in fixed-form / free-form;misc;
-285;syn_misc.at:1925;continuation of COBOL words;misc fixed literals;
-286;syn_misc.at:1947;line and floating comments;misc extensions indicator;
-287;syn_misc.at:2101;word length;misc word-length;
-288;syn_misc.at:2264;Segmentation Module;misc;
-289;syn_misc.at:2356;ACCEPT FROM ESCAPE KEY;misc;
-290;syn_misc.at:2382;ACUCOBOL USAGE FLOAT / DOUBLE;misc acu extensions reserved;
-291;syn_misc.at:2411;ACUCOBOL USAGE HANDLE;misc acu extensions reserved call destroy;
-292;syn_misc.at:2518;ACUCOBOL WINDOW statements;misc acu extensions screen;
-293;syn_misc.at:2603;ACUCOBOL GRAPHICAL controls;misc acu extensions screen modify inquire;
-294;syn_misc.at:2681;DISPLAY MESSAGE BOX;misc acu extensions screen;
-295;syn_misc.at:2724;DISPLAY OMITTED;misc extensions screen;
-296;syn_misc.at:2745;CGI: EXTERNAL-FORM;misc acu extensions accept display;
-297;syn_misc.at:2800;adding/removing reserved words;misc extensions configuration;
-298;syn_misc.at:2830;adding aliases;misc extensions configuration reserved;
-299;syn_misc.at:2864;overriding default words;misc extensions configuration reserved;
-300;syn_misc.at:2895;complete specified word list;misc extensions configuration reserved;
-301;syn_misc.at:2915;ANY LENGTH item as formal parameter;misc;
-302;syn_misc.at:2950;ANY LENGTH item as BY VALUE formal parameter;misc by value;
-303;syn_misc.at:2973;swapped SOURCE- and OBJECT-COMPUTER;misc extensions;
-304;syn_misc.at:2995;CONF. SECTION paragraphs in wrong order;misc extensions;
-305;syn_misc.at:3067;NOT ON EXCEPTION with STATIC CALL convention;misc call-convention;
-306;syn_misc.at:3115;NOT ON EXCEPTION phrases before ON EXCEPTION;misc;
-307;syn_misc.at:3179;wrong dialect hints;misc configuration reserved;
-308;syn_misc.at:3204;redundant periods;misc redundant-periods;
-309;syn_misc.at:3234;missing periods;misc cobol85 area-a missing-periods;
-310;syn_misc.at:3275;missing periods with COPYs;misc cobol85 area-a missing-periods copy;
-311;syn_misc.at:3363;statement in Area A;misc cobol85 areacheck;
-312;syn_misc.at:3406;pseudotext replacement with text in area A;misc cobol85 gcos copy missing-periods;
-313;syn_misc.at:3473;IF-ELSE statement list with invalid syntax;misc;
-314;syn_misc.at:3506;EVALUATE statement with invalid syntax;misc expression;
-315;syn_misc.at:3555;COBOL-WORDS directive;misc reserved words;
-316;syn_misc.at:3629;MF reserved word directives;misc extensions addrsv addsyn makesyn override remove;
-317;syn_misc.at:3691;TURN directive;misc;
-318;syn_misc.at:3724;STRING / UNSTRING with invalid syntax;misc;
-319;syn_misc.at:3789;STRING / UNSTRING POINTER clause;misc;
-320;syn_misc.at:3864;STRING with non-DISPLAY;initialize;
-321;syn_misc.at:3903;UNSTRING COUNT clause;misc;
-322;syn_misc.at:3951;use of program-prototype-names;misc prototype prototypes;
-323;syn_misc.at:3978;checking prototypes and definitions match;misc prototype;
-324;syn_misc.at:4115;invalid INSPECT/TRANSFORM operands;misc inspect transform;
-325;syn_misc.at:4167;SIGN clause checks;misc;
-326;syn_misc.at:4192;conflicting entry conventions;misc entry-convention call-convention linkage;
-327;syn_misc.at:4261;conflicting call conventions;misc call-convention linkage;
-328;syn_misc.at:4290;dangling LINKAGE items;misc;
-329;syn_misc.at:4346;duplicate PROCEDURE DIVISION/ENTRY USING items;misc division entry reference;
-330;syn_misc.at:4367;duplicate CALL USING BY REFERENCE items;misc;
-331;syn_misc.at:4393;ADD / SUBTRACT TABLE;misc;
-332;syn_misc.at:4436;USE FOR DEBUGGING invalid ref-mod / subscripts;misc;
-333;syn_misc.at:4481;USE FOR DEBUGGING duplicate targets;misc;
-334;syn_misc.at:4534;USE FOR DEBUGGING implicit statements;misc;
-335;syn_misc.at:4582;USE FOR DEBUGGING syntax-checks (1);misc debug-item debug-name debug-line debug-contents debug-sub-1 debug-sub-2 debug-sub-3;
-336;syn_misc.at:4675;USE FOR DEBUGGING syntax-checks (2);misc debug-item debug-line;
-337;syn_misc.at:4748;Empty PERFORM with DEBUGGING MODE;misc;
-338;syn_misc.at:4776;whitespace handling;misc;
-339;syn_misc.at:4864;STOP identifier;misc extensions;
-340;syn_misc.at:4890;01 CONSTANT;mirc reserved;
-341;syn_misc.at:4938;78 VALUE;constant;
-342;syn_misc.at:4985;level 78 NEXT / START OF;extensions constant length;
-343;syn_misc.at:5044;SYMBOLIC CONSTANT;misc special-names;
-344;syn_misc.at:5093;Constant Expressions (1);condition expression refmod if evaluate;
-345;syn_misc.at:5218;Constant Expressions (2);condition expression unreachable 78;
-346;syn_misc.at:5274;Constant Expressions (3);condition expression refmod undefined;
-347;syn_misc.at:5365;Constant Expressions (4);condition expression refmod;
-348;syn_misc.at:5399;Constant Expressions (5);condition expression unreachable;
-349;syn_misc.at:5499;Missing imperative statements;condition expression if evaluate when perform;
-350;syn_misc.at:5591;Fall-Through to WHEN OTHER;condition expression evaluate when;
-351;syn_misc.at:5629;CONSTANT LENGTH / BYTE-LENGTH;misc;
-352;syn_misc.at:5653;ANY LENGTH/NUMERIC with incorrect PIC;misc;
-353;syn_misc.at:5697;VOLATILE clause;extensions;
-354;syn_misc.at:5741;SET SOURCEFORMAT syntax checks;misc extensions source directives;
-355;syn_misc.at:5774;WHEN-COMPILED register in dialect;misc extensions;
-356;syn_misc.at:5800;LIN / COL register;misc extensions;
-357;syn_misc.at:5832;tokens consisting of multiple words;misc;
-358;syn_misc.at:5860;@OPTIONS parsing;misc options fujitsu;
-359;syn_misc.at:5904;PROCESS / CBL parsing;misc ibm;
-360;syn_misc.at:5969;*CONTROL / *CBL parsing;misc ibm;
-361;syn_misc.at:6002;system routines with wrong number of parameters;misc call 91 c\$toupper cbl_gc_fork;
-362;syn_misc.at:6031;invalid use of condition-name;misc move string unstring compute;
-363;syn_misc.at:6095;XML GENERATE syntax checks;extensions;
-364;syn_misc.at:6313;BASED clause, ALLOCATE / FREE statements;based;
-365;syn_misc.at:6394;CONTINUE statement;based;
-366;syn_misc.at:6438;conflict markers;;
-367;syn_misc.at:6497;SORT syntax;misc fundamental key;
-368;syn_misc.at:6551;OSVS I/O extensions;ibm file extensions;
-369;syn_misc.at:6618;EQUALS in expressions;misc;
-370;syn_misc.at:6644;SEARCH ALL checks;misc;
-371;syn_misc.at:6764;Invalid parentheses around condition;misc;
-372;syn_misc.at:6787;DISPLAY directive (1);misc directive;
-373;syn_misc.at:6810;DISPLAY directive (2);misc extension directive;
-374;syn_misc.at:6830;DISPLAY directive (3);misc extension directive;
-375;syn_misc.at:6849;SET CONSTANT directive;misc directives extensions;
-376;syn_misc.at:6948;conditional / define directives (1);misc directive;
-377;syn_misc.at:6973;conditional / define directives (2);misc directive;
-378;syn_misc.at:7001;conditional / define directives (3);misc directive;
-379;syn_misc.at:7031;conditional / define directives (4);misc directive;
-380;syn_misc.at:7053;error handling in conditional directives;misc directive;
-381;syn_misc.at:7081;conditional directives with lvl 78 (1);misc extensions directive;
-382;syn_misc.at:7116;conditional directives with lvl 78 (2);misc extensions directive;
-383;syn_misc.at:7166;Missing reserved word with DEBUGGING MODE;misc cobol-85;
-384;syn_misc.at:7195;Invalid PERFORM statement;misc;
-385;syn_misc.at:7226;PERFORM THRU syntax checks;misc warning;
-386;syn_misc.at:7274;VALIDATE parsing;misc 2002 bit typedef strong validate-status present when destination;
-387;syn_misc.at:7421;field-tree via COBC_GEN_DUMP_COMMENTS;misc binaries dump;
-388;syn_misc.at:7704;CONTROL DIVISION;control gcos;
-389;syn_misc.at:7756;CONTROL: empty default section;control gcos;
-390;syn_misc.at:7782;CONTROL: default section;control gcos;
-391;syn_misc.at:7816;CONTROL: substitution & default section;control gcos;
-392;syn_misc.at:7895;CONTROL DIVISION & AREACHECK;gcos;
-393;syn_misc.at:7931;PICTURE L;extensions gcos picture-l;
-394;syn_misc.at:8026;AREACHECK / NOAREACHECK directives;misc directive continue;
-395;syn_misc.at:8066;AREACHECK / NOAREACHECK directives (2);misc directive missing-periods;
-396;syn_misc.at:8118;optional dots;misc missing-periods;
-397;syn_misc.at:8173;optional dots before PROCEDURE DIVISION;misc missing-periods;
-398;syn_misc.at:8210;AREACHECK;misc;
-399;syn_misc.at:8250;autodetect format;cobc free fixed format;
-400;syn_misc.at:8324;context sensitive alias;misc context alias;
-401;syn_move.at:38;MOVE SPACE TO numeric or numeric-edited item;move editing;
-402;syn_move.at:64;MOVE ZERO TO alphabetic item;move;
-403;syn_move.at:90;MOVE alphabetic TO x;move;
-404;syn_move.at:124;MOVE alphanumeric TO x;move;
-405;syn_move.at:155;MOVE alphanumeric-edited TO x;move editing;
-406;syn_move.at:189;MOVE numeric (integer) TO x;move;
-407;syn_move.at:222;MOVE numeric (non-integer) TO x;move;
-408;syn_move.at:258;MOVE numeric-edited TO x;move editing;
-409;syn_move.at:293;MOVE national TO x;move;
-410;syn_move.at:330;MOVE national-edited TO x;move editing national;
-411;syn_move.at:374;CORRESPONDING - Operands must be groups;move;
-412;syn_move.at:404;CORRESPONDING - Target has no matching items;move;
-413;syn_move.at:430;MOVE to erroneous field;move;
-414;syn_move.at:453;Overlapping MOVE;move;
-415;syn_move.at:552;invalid source for MOVE;move label program-prototype;
-416;syn_move.at:582;invalid target for MOVE;move constant label program-prototype;
-417;syn_move.at:618;SET error;set-move;
-418;syn_move.at:653;MOVE FIGURATIVE to NUMERIC;move;
-419;syn_multiply.at:28;Category check of Format 1;multiply;
-420;syn_multiply.at:64;Category check of Format 2;multiply;
-421;syn_multiply.at:102;Category check of literals;multiply;
-422;syn_screen.at:24;Flexible ACCEPT/DISPLAY syntax;screen accept display;
-423;syn_screen.at:92;Duplicate ACCEPT/DISPLAY clauses;screen accept display;
-424;syn_screen.at:121;AT clause;screen extensions;
-425;syn_screen.at:175;ACCEPT/DISPLAY extensions detection;at line column accept display screen extensions;
-426;syn_screen.at:221;FROM clause;screen;
-427;syn_screen.at:250;Incorrect USAGE clause;screen;
-428;syn_screen.at:283;SCREEN SECTION clause numbers;screen;
-429;syn_screen.at:315;Screen clauses;full required leftline rightline overline underline grid;
-430;syn_screen.at:341;ACCEPT ON EXCEPTION/ESCAPE;screen;
-431;syn_screen.at:371;Referencing 88-level;screen;
-432;syn_screen.at:402;Conflicting screen clauses;screen;
-433;syn_screen.at:473;Redundant screen clauses;screen;
-434;syn_screen.at:506;Screen item OCCURS w-/wo relative LINE/COL;occurs;
-435;syn_screen.at:566;VALUE clause missing;screen;
-436;syn_screen.at:592;FULL on numeric item;screen;
-437;syn_screen.at:616;Compiler-specific SCREEN SECTION clause rules;screen;
-438;syn_screen.at:774;MS-COBOL position-spec;screen position lin col;
-439;syn_screen.at:822;Screen with invalid FROM clause;screen constant;
-440;syn_screen.at:867;DISPLAY WITH CONVERSION;display;
-441;syn_set.at:24;SET ADDRESS OF item;set;
-442;syn_set.at:53;SET item TO 88-level;set;
-443;syn_functions.at:22;ANY LENGTH / NUMERIC as function RETURNING item;functions extensions;
-444;syn_functions.at:64;REPOSITORY INTRINSIC phrase;functions;
-445;syn_functions.at:87;REPOSITORY FUNCTION phrase;functions;
-446;syn_functions.at:135;Redundant REPOSITORY entries;functions;
-447;syn_functions.at:174;Missing prototype/definition;functions programs prototypes;
-448;syn_functions.at:205;Empty function;functions;
-449;syn_functions.at:232;Function definition inside program;functions;
-450;syn_functions.at:255;Intrinsic functions: dialect;functions;
-451;syn_functions.at:280;Intrinsic functions: replaced;functions substitute;
-452;syn_functions.at:324;Intrinsic functions: number of arguments;functions;
-453;syn_functions.at:364;Intrinsic functions: reference modification;functions refmod;
-454;syn_functions.at:410;Intrinsic functions: argument type;functions;
-455;syn_functions.at:433;invalid formatted date/time args;functions formatted-date formatted-current-date formatted-time formatted-datetime integer-of-formatted-date seconds-from-formatted-time;
-456;syn_functions.at:514;invalid formats w/ DECIMAL-POINT IS COMMA;functions formatted-time formatted-datetime;
-457;syn_functions.at:544;Specified offset and SYSTEM-OFFSET;functions formatted-time formatted-datetime;
-458;syn_functions.at:568;FUNCTION LENGTH / BYTE-LENGTH;functions prefixed;
-459;syn_literals.at:25;continuation Indicator - too many lines;misc fixed literals listing;
-460;syn_literals.at:583;literal too long;misc literals literal-length continuation listing;
-461;syn_literals.at:819;numeric literals;misc numeric-literal-length;
-462;syn_literals.at:998;floating-point literals;misc;
-463;syn_literals.at:1105;X literals;misc;
-464;syn_literals.at:1140;national literals;misc;
-465;syn_literals.at:1181;NX literals;misc;
-466;syn_literals.at:1222;binary literals;misc extensions;
-467;syn_literals.at:1258;binary-hexadecimal literals;misc extensions;
-468;syn_literals.at:1287;HP COBOL octal literals;misc extensions;
-469;syn_literals.at:1323;ACUCOBOL literals;misc acu extensions binary octal hexadecimal;
-470;syn_literals.at:1385;ACUCOBOL 32bit literal size;extensions literals;
-471;syn_literals.at:1418;zero-length literals;misc;
-472;syn_literals.at:1481;long literal in error message;misc literals;
-473;syn_literals.at:1513;literal missing terminating character;misc literals terminator;
-474;syn_literals.at:1534;GCOS literals with EBCDIC symbols (syntax);extensions;
-475;listings.at:21;Minimal lines per listing pages;listing symbols options;
-476;listings.at:85;COPY within comment;listing;
-477;listings.at:149;Replacement w/o strings;listing symbols;
-478;listings.at:205;Partial replacement with literals;listing gcos;
-479;listings.at:269;COPY replacement with partial match;listing copy;
-480;listings.at:318;COPY replacement with multiple partial matches;listing copy;
-481;listings.at:517;COPY replacement order;listing symbols;
-482;listings.at:608;COPY separators;listing symbols;
-483;listings.at:667;COPY partial replacement;listing symbols;
-484;listings.at:869;COPY LEADING replacement;listing symbols;
-485;listings.at:932;COPY TRAILING replacement;listing symbols;
-486;listings.at:996;COPY recursive replacement;listing symbols;
-487;listings.at:1055;COPY multiple files;listing symbols based external global;
-488;listings.at:1269;Error/Warning messages;listing error warning warnings symbols;
-489;listings.at:1590;Two source files;listing;
-490;listings.at:1651;Multiple programs in one file;listing symbols;
-491;listings.at:1860;Multiple programs in one compilation group;listing;
-492;listings.at:2038;command line;listing;
-493;listings.at:2102;Wide listing;listing;
-494;listings.at:2178;Symbols: simple;listing symbols comp;
-495;listings.at:2320;Symbols: pointer;listing symbols 64bit;
-496;listings.at:2598;Symbols: multiple programs/functions;listing symbols program function;
-497;listings.at:2718;Symbols: OCCURS and REDEFINES;listing symbols unbounded;
-498;listings.at:2808;Conditional compilation;listing cdf;
-499;listings.at:2907;File descriptions;listing;
-500;listings.at:3245;Invalid PICTURE strings;listing;
-501;listings.at:3689;Variable format;listing overflow;
-502;listings.at:3726;MFCOMMENT;listing;
-503;listings.at:3788;LISTING directive;cdf;
-504;listings.at:3884;LISTING directive free-form reference-format;cdf;
-505;listings.at:3980;Listing-directive statements;listing directive eject skip1 skip2 skip3 title;
-506;listings.at:4042;Eject page;listing directive;
-507;listings.at:4220;Cross reference;listing xref;
-508;listings.at:5716;Report Writer;listing;
-509;listings.at:6018;huge REPLACE;listing;
-510;listings.at:6928;Long concatenated literal;listing overflow;
-511;run_fundamental.at:25;DISPLAY literals;fundamental;
-512;run_fundamental.at:72;DISPLAY literals, DECIMAL-POINT is COMMA;fundamental;
-513;run_fundamental.at:105;Hexadecimal literal;fundamental;
-514;run_fundamental.at:146;DISPLAY data items with VALUE clause;fundamental;
-515;run_fundamental.at:193;DISPLAY data items with MOVE statement;fundamental;
-516;run_fundamental.at:247;MOVE to edited item (1);fundamental editing;
-517;run_fundamental.at:296;MOVE to edited item (2);fundamental editing;
-518;run_fundamental.at:345;MOVE to edited item (3);fundamental editing;
-519;run_fundamental.at:450;MOVE to item with simple and floating insertion;fundamental edited editing;
-520;run_fundamental.at:485;MOVE to JUSTIFIED item;fundamental;
-521;run_fundamental.at:530;MOVE integer literal to alphanumeric;fundamental typing;
-522;run_fundamental.at:567;Compare FLOAT-LONG with floating-point literal;fundamental literal exponent;
-523;run_fundamental.at:620;equality of FLOAT-SHORT / FLOAT-LONG;fundamental;
-524;run_fundamental.at:743;equality of FLOAT-SHORT / FLOAT-EXTENDED;fundamental;
-525;run_fundamental.at:874;Overlapping MOVE (GnuCOBOL);fundamental;
-526;run_fundamental.at:958;Overlapping MOVE (IBM);fundamental;
-527;run_fundamental.at:1039;ALPHABETIC test;fundamental;
-528;run_fundamental.at:1071;ALPHABETIC-UPPER test;fundamental;
-529;run_fundamental.at:1103;ALPHABETIC-LOWER test;fundamental;
-530;run_fundamental.at:1135;GLOBAL at same level;fundamental;
-531;run_fundamental.at:1184;GLOBAL at lower level;fundamental;
-532;run_fundamental.at:1233;GLOBAL CONSTANT;fundamental;
-533;run_fundamental.at:1317;GLOBAL identifiers from ENVIRONMENT DIVISION;fundamental function currency sign returning;
-534;run_fundamental.at:1398;GLOBAL REDEFINES;fundamental;
-535;run_fundamental.at:1417;function with variable-length RETURNING item;fundamental udf;
-536;run_fundamental.at:1500;Entry point visibility (1);fundamental call;
-537;run_fundamental.at:1532;Entry point visibility (2);fundamental call;
-538;run_fundamental.at:1570;Contained program visibility (1);fundamental call;
-539;run_fundamental.at:1625;Contained program visibility (2);fundamental call;
-540;run_fundamental.at:1678;Contained program visibility (3);fundamental call;
-541;run_fundamental.at:1729;Contained program visibility (4);fundamental call;
-542;run_fundamental.at:1784;CALL alphanumeric data-name;fundamental cancel;
-543;run_fundamental.at:1872;CALL program-pointer;fundamental cancel set address pointer;
-544;run_fundamental.at:1968;CALL/CANCEL/SET ADDRESS program-prototype-name;fundamental call cancel set;
-545;run_fundamental.at:2072;GLOBAL FD (1);fundamental;
-546;run_fundamental.at:2123;GLOBAL FD (2);fundamental;
-547;run_fundamental.at:2175;GLOBAL FD (3);fundamental;
-548;run_fundamental.at:2225;GLOBAL FD (4);fundamental;
-549;run_fundamental.at:2277;CANCEL test (1);fundamental call;
-550;run_fundamental.at:2304;CANCEL test (2);fundamental call;
-551;run_fundamental.at:2341;CANCEL test (3);fundamental call;
-552;run_fundamental.at:2379;Separate sign positions (1);fundamental;
-553;run_fundamental.at:2403;Separate sign positions (2);fundamental;
-554;run_fundamental.at:2436;Context sensitive words (1);fundamental byte-length;
-555;run_fundamental.at:2459;Context sensitive words (2);fundamental yyyymmdd;
-556;run_fundamental.at:2483;Context sensitive words (3);fundamental yyyyddd;
-557;run_fundamental.at:2507;Context sensitive words (4);fundamental intrinsic;
-558;run_fundamental.at:2532;Context sensitive words (5);fundamental recursive;
-559;run_fundamental.at:2555;Context sensitive words (6);fundamental normal;
-560;run_fundamental.at:2577;Context sensitive words (7);fundamental compute away-from-zero;
-561;run_fundamental.at:2604;Context sensitive words (8);fundamental ibm unbounded attributes;
-562;run_fundamental.at:2631;ROUNDED AWAY-FROM-ZERO;fundamental compute;
-563;run_fundamental.at:2694;ROUNDED NEAREST-AWAY-FROM-ZERO;fundamental compute;
-564;run_fundamental.at:2757;ROUNDED NEAREST-EVEN;fundamental compute;
-565;run_fundamental.at:2820;ROUNDED NEAREST-TOWARD-ZERO;fundamental compute;
-566;run_fundamental.at:2883;ROUNDED TOWARD-GREATER;fundamental compute;
-567;run_fundamental.at:2946;ROUNDED TOWARD-LESSER;fundamental compute;
-568;run_fundamental.at:3009;ROUNDED TRUNCATION;fundamental compute;
-569;run_fundamental.at:3072;Numeric operations (1);fundamental add subtract;
-570;run_fundamental.at:3108;Numeric operations (2) DISPLAY;fundamental add subtract;
-571;run_fundamental.at:3344;Numeric operations (3) PACKED-DECIMAL;fundamental add subtract comp-3;
-572;run_fundamental.at:3648;Numeric operations (4) BINARY;fundamental add subtract comp;
-573;run_fundamental.at:3883;Numeric operations (5) COMP-5;fundamental add subtract;
-574;run_fundamental.at:4118;Numeric operations (6);fundamental add;
-575;run_fundamental.at:4178;Numeric operations (7);fundamental add compute literal;
-576;run_fundamental.at:4468;Numeric operations (8);fundamental compute literal;
-577;run_fundamental.at:4518;ADD CORRESPONDING;fundamental corresponding;
-578;run_fundamental.at:4566;ADD CORRESPONDING no match;fundamental corresponding;
-579;run_fundamental.at:4616;SYNC in OCCURS;fundamental synchronize;
-580;run_fundamental.at:4656;88 level with THRU;runmisc;
-581;run_fundamental.at:4751;88 level with FILLER;runmisc;
-582;run_fundamental.at:4780;88 level with FALSE IS clause;runmisc;
-583;run_fundamental.at:4808;BLANK WHEN ZERO;fundamental;
-584;run_fundamental.at:4838;MULTIPLY BY literal in INITIAL program;decimal constants fundamental;
-585;run_fundamental.at:4867;DIVIDE complex;decimal constants fundamental;
-586;run_fundamental.at:4988;COMPUTE with decimal constants;fundamental;
-587;run_fundamental.at:5024;debugging lines (not active);fundamental;
-588;run_fundamental.at:5047;debugging lines (-fdebugging-line);fundamental;
-589;run_fundamental.at:5070;debugging lines (WITH DEBUGGING MODE);fundamental extensions;
-590;run_fundamental.at:5096;debugging lines, free format (not active);fundamental extensions;
-591;run_fundamental.at:5119;debugging lines, free format (-fdebugging-line);fundamental extensions;
-592;run_fundamental.at:5142;USE FOR DEBUGGING (no DEBUGGING MODE);fundamental configuration;
-593;run_fundamental.at:5187;USE FOR DEBUGGING (COB_SET_DEBUG deactivated);fundamental configuration;
-594;run_fundamental.at:5232;USE FOR DEBUGGING ON ALL PROCEDURES;fundamental debug-item;
-595;run_fundamental.at:5283;USE FOR DEBUGGING ON procedure;fundamental;
-596;run_fundamental.at:5331;USE FOR DEBUGGING (COB_SET_DEBUG switched);fundamental configuration set environment;
-597;run_fundamental.at:5380;USE FOR DEBUGGING ON [ALL] REFERENCES OF field;fundamental;
-598;run_fundamental.at:5460;USE FOR DEBUGGING, reference within DEBUGGING;fundamental;
-599;run_fundamental.at:5501;USE FOR DEBUGGING, time of execution;fundamental debugging;
-600;run_fundamental.at:5551;USE FOR DEBUGGING, reference with OCCURS;fundamental debugging;
-601;run_fundamental.at:5584;USE FOR DEBUGGING, referencing BASED item;fundamental debugging free allocate;
-602;run_fundamental.at:5639;USE FOR DEBUGGING file;fundamental open write read close;
-603;run_fundamental.at:5682;Simple Expressions with figurative constants;expression conditional;
-604;run_fundamental.at:6025;Expression numeric vs. DISPLAY;expression conditional;
-605;run_fundamental.at:6080;Abbreviated Expressions;expression conditional;
-606;run_fundamental.at:6192;integer arithmetic on floating-point var;fundamental literal;
-607;run_fundamental.at:6234;TYPEDEF application;fundamental external;
-608;run_fundamental.at:6286;Alphanumeric VALUE longer than PIC;fundamental size;
-609;run_fundamental.at:6318;DISPLAY with P fields;fundamental runmisc pretty-display pretty-printing pretty packed-decimal;
-610;run_fundamental.at:6404;condition IS ZERO AND;fundamental if;
-611;run_fundamental.at:6455;abbreviated conditions with multiple words operators;fundamental if;
-612;run_fundamental.at:6493;abbreviated conditions with multiple words operators;fundamental if;
-613;run_fundamental.at:6521;MOVE with JUSTIFIED clause;fundamental right;
-614;run_fundamental.at:6566;MOVE with PICTURE P;fundamental;
-615;run_fundamental.at:6770;MOVE with de-editting to USAGE DISPLAY;fundamental;
-616;run_fundamental.at:6822;MOVE with de-editting to DECIMAL IS COMMA;fundamental;
-617;run_fundamental.at:6880;MOVE with de-editting to BINARY;fundamental;
-618;run_fundamental.at:6931;MOVE with de-editting to COMP-3;fundamental packed-decimal;
-619;run_fundamental.at:6983;MOVE with de-editting to COMP-5;fundamental;
-620;run_fundamental.at:7035;MOVE with de-editting to NUMERIC DISPLAY (2);fundamental;
-621;run_fundamental.at:7164;MOVE misc. edited;fundamental;
-622;run_fundamental.at:7238;MOVE between USAGEs;fundamental comp-1 comp-2 comp-3 comp-4 comp-5 comp-6 display binary packed-decimal binary-c-long binary-char binary-double binary-int binary-long signed unsigned binary-long-long binary-short float-decimal-16 float-decimal-34 float-short signed-int signed-long signed-short unsigned-int unsigned-long unsigned-short;
-623;run_fundamental.at:9021;MOVE to editted ZERO;fundamental;
-624;run_fundamental.at:9066;SPECIAL-NAMES CLASS;fundamental;
-625;run_subscripts.at:26;Subscript out of bounds;runsubscripts subscripts;
-626;run_subscripts.at:71;Value of DEPENDING ON N out of bounds;runsubscripts subscripts;
-627;run_subscripts.at:122;Subscript bounds with OCCURS DEPENDING ON (1);runsubscripts subscripts odo;
-628;run_subscripts.at:148;Subscript bounds with OCCURS DEPENDING ON (2);runsubscripts subscripts odo if;
-629;run_subscripts.at:176;Subscript bounds with OCCURS DEPENDING ON (3);runsubscripts subscripts odo evaluate when;
-630;run_subscripts.at:211;Subscript by arithmetic expression;runsubscripts subscripts;
-631;run_subscripts.at:242;length of ODO w/- reference-modification;runsubscripts subscripts;
-632;run_subscripts.at:298;SEARCH ALL with OCCURS DEPENDING ON;runsubscripts subscripts odo;
-633;run_subscripts.at:351;enable / disable subscript check;runsubscripts subscripts debug exception-name turn bound nobound;
-634;run_subscripts.at:396;enable / disable subscript check with ODO;runsubscripts subscripts odo debug;
-635;run_subscripts.at:437;BOUND and NOBOUND directives;runsubscripts subscripts extensions directive;
-636;run_subscripts.at:506;SSRANGE and NOSSRANGE directives;runsubscripts subscripts extensions directive;
-637;run_subscripts.at:542;CALL with OCCURS DEPENDING ON;runsubscripts subscripts odo;
-638;run_refmod.at:25;Static reference-modification;refmod;
-639;run_refmod.at:57;Dynamic reference-modification;refmod;
-640;run_refmod.at:94;Offset underflow;refmod;
-641;run_refmod.at:118;Offset overflow;refmod;
-642;run_refmod.at:145;Length underflow;refmod;
-643;run_refmod.at:189;Length overflow;refmod;
-644;run_refmod.at:231;Length overflow with offset (1);refmod;
-645;run_refmod.at:254;Length overflow with offset (2);refmod if;
-646;run_refmod.at:280;Length overflow with offset (3);refmod evaluate when;
-647;run_refmod.at:313;enable / disable ref-mod check;refmod debug exception-name;
-648;run_refmod.at:388;MF SSRANGE and NOSSRANGE directives;refmod extensions directive;
-649;run_accept.at:29;ACCEPT OMITTED (simple);extensions;
-650;run_accept.at:51;ACCEPT FROM TIME / DATE / DAY / DAY-OF-WEEK (1);inspect converting configuration cob_current_date;
-651;run_accept.at:141;ACCEPT FROM TIME / DATE / DAY / DAY-OF-WEEK (2);configuration cob_current_date microsecond microsecond-time extensions acu;
-652;run_accept.at:283;ACCEPT DATE / DAY and intrinsic functions (1);function integer-of-date day-of-integer;
-653;run_accept.at:320;ACCEPT DATE / DAY and intrinsic functions (2);configuration function integer-of-date day-of-integer cob_current_date;
-654;run_accept.at:367;ACCEPT OMITTED (SCREEN);extensions;
-655;run_initialize.at:29;INITIALIZE group entry with OCCURS;initialize;
-656;run_initialize.at:57;INITIALIZE OCCURS with numeric edited;initialize editing;
-657;run_initialize.at:90;INITIALIZE OCCURS with SIGN LEADING / TRAILING;initialize display;
-658;run_initialize.at:161;INITIALIZE complex group (1);initialize;
-659;run_initialize.at:189;INITIALIZE complex group (2);initialize;
-660;run_initialize.at:217;initial value for group item with VALUE;initialize;
-661;run_initialize.at:249;Value for group item with VALUE;initialize;
-662;run_initialize.at:298;INITIALIZE group item;initialize;
-663;run_initialize.at:415;INITIALIZE with REDEFINES;initialize;
-664;run_initialize.at:442;INITIALIZE with FILLER;initialize;
-665;run_initialize.at:509;INITIALIZE of EXTERNAL data items;initialize;
-666;run_initialize.at:560;INITIALIZE with reference-modification;initialize;
-667;run_initialize.at:596;INITIALIZE big table with VALUE;value occurs nested;
-668;run_initialize.at:655;INITIALIZE to table-format VALUES ARE;value occurs extension nested;
-669;run_misc.at:23;Comma separator without space;runmisc;
-670;run_misc.at:44;DECIMAL-POINT is COMMA (1);misc extensions;
-671;run_misc.at:72;DECIMAL-POINT is COMMA (2);misc extensions;
-672;run_misc.at:100;DECIMAL-POINT is COMMA (3);misc extensions;
-673;run_misc.at:128;DECIMAL-POINT is COMMA (4);misc extensions;
-674;run_misc.at:156;DECIMAL-POINT is COMMA (5);misc extensions;
-675;run_misc.at:190;CURRENCY SIGN;misc fundamental;
-676;run_misc.at:221;CURRENCY SIGN WITH PICTURE SYMBOL;misc fundamental;
-677;run_misc.at:268;LOCAL-STORAGE (1);runmisc;
-678;run_misc.at:304;LOCAL-STORAGE (2);runmisc;
-679;run_misc.at:348;LOCAL-STORAGE (3);runmisc occurs index indexed;
-680;run_misc.at:432;EXTERNAL data item;runmisc;
-681;run_misc.at:470;EXTERNAL AS data item;runmisc;
-682;run_misc.at:513;EXTERNAL data item size mismatch;runmisc;
-683;run_misc.at:594;MOVE to itself;runmisc;
-684;run_misc.at:618;MOVE with refmod;runmisc;
-685;run_misc.at:640;MOVE with refmod (variable);runmisc;
-686;run_misc.at:664;MOVE with group refmod;runmisc;
-687;run_misc.at:687;MOVE indexes;runmisc;
-688;run_misc.at:711;MOVE X'00';runmisc;
-689;run_misc.at:746;MOVE Z'literal';runmisc literal;
-690;run_misc.at:788;Floating continuation indicator;runmisc;
-691;run_misc.at:810;Fixed continuation indicator;;
-692;run_misc.at:852;Concatenation operator;runmisc;
-693;run_misc.at:876;SOURCE FIXED/FREE directives;runmisc sourceformat fixed free;
-694;run_misc.at:912;TURN directive;runmisc bound nobound directives;
-695;run_misc.at:953;OCCURS on level 01;runmisc toplevel value set address bound depending odo;
-696;run_misc.at:1038;Class check with reference-modification;runmisc;
-697;run_misc.at:1060;Index and parenthesized expression;runmisc;
-698;run_misc.at:1082;Alphanumeric and binary numeric;runmisc;
-699;run_misc.at:1106;Non-numeric data in numeric items;runmisc;
-700;run_misc.at:1172;Dynamic call with static linking;runmisc;
-701;run_misc.at:1201;Static call with static linking;runmisc;
-702;run_misc.at:1232;Dynamic CALL with ON EXCEPTION;runmisc;
-703;run_misc.at:1264;Static CALL with ON EXCEPTION;runmisc;
-704;run_misc.at:1304;CALL m1. CALL m2. CALL m1.;runmisc;
-705;run_misc.at:1355;Recursive CALL of RECURSIVE program;runmisc cancel external;
-706;run_misc.at:1413;Recursive CALL of INITIAL program;runmisc;
-707;run_misc.at:1464;Recursive CALL with RECURSIVE assumed;runmisc;
-708;run_misc.at:1510;Recursive CALL with ON EXCEPTION;runmisc exception-status;
-709;run_misc.at:1567;Multiple calls of INITIAL program;runmisc call;
-710;run_misc.at:1624;CALL binary literal parameter/LENGTH OF;runmisc;
-711;run_misc.at:1678;INSPECT REPLACING LEADING ZEROS BY SPACES;runmisc;
-712;run_misc.at:1700;INSPECT: no repeat conversion;runmisc inspect;
-713;run_misc.at:1726;TRANSFORM statement;runmisc converting alphabet;
-714;run_misc.at:1759;INSPECT CONVERTING alphabet;runmisc ascii ebcdic;
-715;run_misc.at:1808;INSPECT CONVERTING TO figurative constant;runmisc;
-716;run_misc.at:1830;INSPECT CONVERTING NULL;runmisc;
-717;run_misc.at:1852;INSPECT CONVERTING TO NULL;runmisc;
-718;run_misc.at:1874;INSPECT CONVERTING complex;runmisc;
-719;run_misc.at:1903;INSPECT numeric signed;runmisc;
-720;run_misc.at:2044;INSPECT TALLYING BEFORE;runmisc;
-721;run_misc.at:2077;INSPECT TALLYING AFTER;runmisc;
-722;run_misc.at:2110;INSPECT TALLYING BEFORE and AFTER;runmisc;
-723;run_misc.at:2146;INSPECT TALLYING REPLACING BEFORE and AFTER;runmisc;
-724;run_misc.at:2183;INSPECT REPLACING figurative constant;runmisc;
-725;run_misc.at:2207;SWITCHES (environment COB_SWITCH_n and SET);runmisc;
-726;run_misc.at:2288;Nested PERFORM;runmisc;
-727;run_misc.at:2311;PERFORM VARYING BY -0.2 decimal;runmisc;
-728;run_misc.at:2337;PERFORM VARYING Float;perform;
-729;run_misc.at:2376;PERFORM VARYING BY phrase omitted;runmisc;
-730;run_misc.at:2407;EXIT PERFORM;runmisc;
-731;run_misc.at:2430;EXIT PERFORM CYCLE;runmisc;
-732;run_misc.at:2453;EXIT PARAGRAPH;runmisc;
-733;run_misc.at:2487;EXIT SECTION;runmisc;
-734;run_misc.at:2528;implicit GOBACK at end of PROCEDURE DIVISION;runmisc;
-735;run_misc.at:2551;PERFORM FOREVER / PERFORM UNTIL EXIT;runmisc extension;
-736;run_misc.at:2592;PERFORM inline (1);runmisc;
-737;run_misc.at:2618;PERFORM inline (2);runmisc;
-738;run_misc.at:2642;Non-overflow after overflow;runmisc;
-739;run_misc.at:2669;PERFORM ... CONTINUE;runmisc;
-740;run_misc.at:2686;STRING with subscript reference;runmisc;
-741;run_misc.at:2712;STRING WITH POINTER ON OVERFLOW with DELIMITER;runmisc exceptions;
-742;run_misc.at:2796;STRING / UNSTRING [NOT] ON OVERFLOW;runmisc exceptions;
-743;run_misc.at:2913;UNSTRING DELIMITED ALL LOW-VALUE;runmisc;
-744;run_misc.at:2944;UNSTRING DELIMITED ALL SPACE-2;runmisc;
-745;run_misc.at:2997;UNSTRING DELIMITED POINTER;runmisc;
-746;run_misc.at:3045;UNSTRING DELIMITER IN;runmisc;
-747;run_misc.at:3087;UNSTRING combined;runmisc;
-748;run_misc.at:3201;UNSTRING with FUNCTION / literal;runmisc;
-749;run_misc.at:3271;SORT: table;runmisc sort;
-750;run_misc.at:3305;SORT: table (2);runmisc sort;
-751;run_misc.at:3430;SORT: table (3);runmisc sort;
-752;run_misc.at:3522;SORT: table (toplevel);runmisc sort;
-753;run_misc.at:3544;SORT: EBCDIC table;runmisc sort alphabet object-computer;
-754;run_misc.at:3608;SORT: use EXTSM;runmisc;
-755;run_misc.at:3719;Alphanum comparison with default COLLATING SEQUENCE;runmisc ebcdic ascii default-colseq;
-756;run_misc.at:3747;SORT: table with default COLLATING SEQUENCE;runmisc sort ebcdic ascii default-colseq;
-757;run_misc.at:3783;JUSTIFIED and VALUE clauses;runmisc just right initialize ibm;
-758;run_misc.at:4037;SEARCH ALL: table with default COLLATING SEQUENCE;runmisc ebcdic ascii default-colseq;
-759;run_misc.at:4077;PIC ZZZ-, ZZZ+;runmisc editing;
-760;run_misc.at:4118;PERFORM type OSVS;runmisc;
-761;run_misc.at:4153;Sticky LINKAGE;runmisc call;
-762;run_misc.at:4195;COB_PRE_LOAD;runmisc;
-763;run_misc.at:4221;COB_PRE_LOAD with entry points;runmisc;
-764;run_misc.at:4292;Lookup ENTRY from main executable;runmisc;
-765;run_misc.at:4333;COB_LOAD_CASE=UPPER;runmisc call cob_load_case;
-766;run_misc.at:4359;ALLOCATE / FREE with BASED item (1);runmisc;
-767;run_misc.at:4385;ALLOCATE / FREE with BASED item (2);runmisc;
-768;run_misc.at:4429;ALLOCATE CHARACTERS INITIALIZED (TO);runmisc;
-769;run_misc.at:4476;Initialized value with defaultbyte;runmisc;
-770;run_misc.at:4500;CALL with OMITTED parameter;runmisc;
-771;run_misc.at:4536;direct CALL in from C w/wo error;runmisc cobcall cob_call cob_init cob_runtime_hint;
-772;run_misc.at:4617;direct CALL in from C w/wo error; no exit;runmisc cobcall cob_call cob_call_with_exception_check cob_runtime_hint;
-773;run_misc.at:4751;CALL in from C, cob_call_params explicitly set;runmisc;
-774;run_misc.at:4810;CALL in from C, cob_call_params unknown;runmisc;
-775;run_misc.at:4863;CALL C with callback, PROCEDURE DIVISION EXTERN;runmisc extensions call-convention;
-776;run_misc.at:4933;CALL C with callback, ENTRY-CONVENTION EXTERN;runmisc call-convention linkage options;
-777;run_misc.at:5084;CALL in from C with init missing / implicit;runmisc implicit-init;
-778;run_misc.at:5132;CALL STATIC C from COBOL;runmisc;
-779;run_misc.at:5188;ANY LENGTH (1);runmisc call;
-780;run_misc.at:5227;ANY LENGTH (2);runmisc call;
-781;run_misc.at:5267;ANY LENGTH (3);runmisc call;
-782;run_misc.at:5310;ANY LENGTH (4);runmisc if call;
-783;run_misc.at:5353;ANY LENGTH (5);runmisc call;
-784;run_misc.at:5378;access to BASED item without allocation;runmisc;
-785;run_misc.at:5417;access to OPTIONAL LINKAGE item not passed;runmisc call;
-786;run_misc.at:5455;STOP RUN WITH NORMAL STATUS;runmisc;
-787;run_misc.at:5473;STOP RUN WITH ERROR STATUS;runmisc;
-788;run_misc.at:5491;STOP ERROR;runmisc;
-789;run_misc.at:5516;SYMBOLIC clause;runmisc alphabet;
-790;run_misc.at:5549;OCCURS clause with 1 entry;runmisc;
-791;run_misc.at:5590;Computing of different USAGEs w/o decimal point;runmisc binary-c-long binary-char binary-double binary-long comp comp-1 comp-2 comp-3 packed-decimal comp-5 comp-6 comp-x comp-n float-decimal-16 float-decimal-34 float-long float-short;
-792;run_misc.at:6115;Computing of different USAGEs w/- decimal point;runmisc binary-c-long binary-char binary-double binary-long comp comp-1 comp-2 comp-3 packed-decimal comp-5 comp-6 comp-n comp-x float-decimal-16 float-decimal-34 float-long float-short;
-793;run_misc.at:6604;compilation-group with decimal;runmisc function numval;
-794;run_misc.at:6644;C/C++ reserved words/predefined identifiers;runmisc;
-795;run_misc.at:7100;PICTURE with Edit mask;numeric;
-796;run_misc.at:7173;POINTER;numeric;
-797;run_misc.at:7209;CALL RETURNING POINTER;run_extensions;
-798;run_misc.at:7279;ON EXCEPTION clause of DISPLAY;runmisc exceptions screen;
-799;run_misc.at:7305;EC-SCREEN-LINE-NUMBER and -STARTING-COLUMN;runmisc exceptions screen;
-800;run_misc.at:7347;LINE/COLUMN 0 exceptions;line column runmisc exceptions extensions screen;
-801;run_misc.at:7386;SET LAST EXCEPTION TO OFF;runmisc exceptions exception-status exception-location;
-802;run_misc.at:7422;void PROCEDURE;runmisc;
-803;run_misc.at:7451;Figurative constants to numeric field;numeric;
-804;run_misc.at:7513;MF FIGURATIVE to NUMERIC;move;
-805;run_misc.at:7648;CALL RETURNING;runmisc giving return-code;
-806;run_misc.at:7687;void PROCEDURE, NOTHING return;runmisc procedure using returning omitted call giving;
-807;run_misc.at:7722;READY TRACE / RESET TRACE;runmisc -ftrace -ftraceall -fsource-location call recursive return-code search cob_physical_cancel cob_pre_load;
-808;run_misc.at:8187;Trace feature with subroutine;;
-809;run_misc.at:10312;stack and dump feature;stacktrace configuration cob_stacktrace cob_dump_file call;
-810;run_misc.at:11129;dump feature with NULL address;stack stacktrace;
-811;run_misc.at:11404;CALL with program prototypes;runmisc;
-812;run_misc.at:11483;REDEFINES values on FILLER and INITIALIZE;runmisc initialize;
-813;run_misc.at:11538;PICTURE with constant-name;runmisc;
-814;run_misc.at:11566;Quote marks in comment paragraphs;runmisc;
-815;run_misc.at:11592;Numeric MOVE with/without -fbinary-truncate;runmisc size binary-truncate;
-816;run_misc.at:11662;Alphanumeric MOVE with truncation;misc fundamental size;
-817;run_misc.at:11713;PROGRAM-ID / CALL literal/variable with spaces;runmisc;
-818;run_misc.at:11781;PROGRAM-ID / CALL with hyphen and underscore;runmisc;
-819;run_misc.at:11818;CALL with directory;runmisc;
-820;run_misc.at:11876;C-API (param based);runmisc call api;
-821;run_misc.at:12111;C-API (field based);runmisc call api;
-822;run_misc.at:12339;OPTIONS paragraph, DEFAULT ROUNDED MODE;runmisc;
-823;run_misc.at:12369;OCCURS INDEXED ASCENDING;occurs extension;
-824;run_misc.at:12470;ZERO unsigned and negative binary subscript;runmisc;
-825;run_misc.at:12547;Default Arithmetic (1);runmisc;
-826;run_misc.at:12651;Default Arithmetic Test (2);runmisc;
-827;run_misc.at:12702;OSVS Arithmetic (1);runmisc;
-828;run_misc.at:12819;OSVS Arithmetic Test (2);runmisc;
-829;run_misc.at:12876;SET CONSTANT directive;misc directives extensions;
-830;run_misc.at:12979;DEFINE OVERRIDE;cdf directive;
-831;run_misc.at:13045;DEFINE Defaults;cdf directive;
-832;run_misc.at:13111;78 VALUE;constant misc;
-833;run_misc.at:13179;01 CONSTANT;misc;
-834;run_misc.at:13259;DISPLAY UPON;chaining printer pipe console syserr syspch syspunch cob_display_print_pipe cob_display_print_file cob_display_punch_file;
-835;run_misc.at:13361;FLOAT-DECIMAL w/o SIZE ERROR;numeric runmisc overflow float-decimal-16 float-decimal-34 display compute;
-836;run_misc.at:13535;FLOAT-SHORT / FLOAT-LONG w/o SIZE ERROR;numeric runmisc overflow comp-1 comp-2 display compute;
-837;run_misc.at:13734;FLOAT-SHORT with SIZE ERROR;comp-1 overflow;
-838;run_misc.at:13785;FLOAT-LONG with SIZE ERROR;comp-2 overflow;
-839;run_misc.at:13843;EC-SIZE-ZERO-DIVIDE;misc fundamental exceptions divide compute exception-status;
-840;run_misc.at:13886;EC-SIZE-OVERFLOW;misc fundamental exceptions;
-841;run_misc.at:13917;Constant Expressions;runmisc condition expression;
-842;run_misc.at:14006;ENTRY FOR GO TO / GO TO ENTRY;runmisc condition expression;
-843;run_misc.at:14096;runtime checks within conditions;runmisc condition expression;
-844;run_misc.at:14210;runtime check: write to internal storage (1);runmisc call bounds exceptions;
-845;run_misc.at:14310;runtime check: write to internal storage (2);runmisc call bounds exceptions;
-846;run_misc.at:14405;libcob version check;runmisc;
-847;run_misc.at:14510;assorted math;runmisc expression;
-848;run_misc.at:14547;compare numeric DISPLAY SPACE with ZERO;runmisc expression;
-849;run_file.at:23;OPEN EXTEND and CLOSE, SEQUENTIAL;runfile empty close optional write read;
-850;run_file.at:89;variable-length SEQUENTIAL data integrity;runfile record open;
-851;run_file.at:154;DELETE FILE, SEQUENTIAL;runfile file open i-o optional;
-852;run_file.at:224;OUTPUT on SEQUENTIAL file to missing directory;runfile open assign;
-853;run_file.at:261;OPEN EXTEND and CLOSE, INDEXED;runfile empty close optional write read;
-854;run_file.at:333;DELETE FILE, INDEXED;runfile file open i-o optional;
-855;run_file.at:406;OUTPUT on INDEXED file to missing directory;runfile open assign;
-856;run_file.at:447;READ INTO data item AT-END sequence;runfile;
-857;run_file.at:484;First READ on empty SEQUENTIAL INDEXED file;runfile;
-858;run_file.at:524;READ NEXT without previous START;runfile write indexed;
-859;run_file.at:602;REWRITE a RELATIVE file with RANDOM access;runfile;
-860;run_file.at:672;ASSIGN DYNAMIC and EXTERNAL;extensions runfile;
-861;run_file.at:720;ASSIGN EXTERNAL parsing;extensions runfile;
-862;run_file.at:754;ASSIGN directive;extensions runfile;
-863;run_file.at:797;ASSIGN filename expansion;extensions runfile;
-864;run_file.at:824;ASSIGN filename mapping;extensions runfile optional;
-865;run_file.at:1000;ASSIGN with COB_FILE_PATH;extensions runfile;
-866;run_file.at:1037;ASSIGN DYNAMIC with LOCAL-STORAGE item;runfile;
-867;run_file.at:1074;ASSIGN DYNAMIC with LOCAL-STORAGE item, INITIAL;runfile;
-868;run_file.at:1114;ASSIGN DYNAMIC with BASED data item;runfile status;
-869;run_file.at:1200;ASSIGN DYNAMIC with data item in LINKAGE;runfile-control file status call;
-870;run_file.at:1372;ASSIGN DYNAMIC with empty data item;runfile status;
-871;run_file.at:1412;ASSIGN DYNAMIC with unset implicit data item;runfile status;
-872;run_file.at:1444;INDEXED file key-name;runfile split key;
-873;run_file.at:1486;INDEXED file sparse/split keys;runfile split key sparse suppress;
-874;run_file.at:2006;INDEXED file split keys WITH DUPLICATES;runfile key extfh;
-875;run_file.at:2172;INDEXED file variable length record;runfile optional suppress write start read;
-876;run_file.at:2448;INDEXED sample;runfile optional file status read write duplicates start unlock cob_sync;
-877;run_file.at:2949;WRITE + REWRITE FILE name;runfile relative cob_sync;
-878;run_file.at:3110;START RELATIVE (1);fundamental runfile delete file;
-879;run_file.at:3159;START RELATIVE (2);fundamental runfile;
-880;run_file.at:3235;START RELATIVE (3);runfile;
-881;run_file.at:3311;READ on OPTIONAL missing RELATIVE / SEQUENTIAL;runfile;
-882;run_file.at:3433;READ on OPTIONAL missing INDEXED file;runfile;
-883;run_file.at:3483;EXTERNAL RELATIVE file;runfile;
-884;run_file.at:3547;DECLARATIVES procedure referencing;runfile;
-885;run_file.at:3587;DECLARATIVES procedure referencing (multiple);runfile;
-886;run_file.at:3631;System routines for directories (1);extensions runfile cbl_create_dir cbl_change_dir cbl_delete_dir;
-887;run_file.at:3673;System routines for directories (2);runfile extensions cbl_create_dir cbl_create_file cbl_close_file cbl_check_file_exist cbl_delete_dir cbl_purge_dir;
-888;run_file.at:3770;System routines for files;extensions runfile cbl_create_file cbl_write_file cbl_flush_file cbl_open_file cbl_read_file cbl_close_file cbl_rename_file cbl_delete_file c\$delete;
-889;run_file.at:3967;System routines for files - filename mapping;extensions runfile cbl_open_file cbl_close_file;
-890;run_file.at:4084;System routine CBL_COPY_FILE;extensions runfile;
-891;run_file.at:4119;Default file external name;runfile;
-892;run_file.at:4193;SEQUENTIAL basic I/O;runfile read write rewrite cob_sync;
-893;run_file.at:4242;LINE SEQUENTIAL basic I/O;runfile read write rewrite;
-894;run_file.at:4308;LINE SEQUENTIAL WRITE AFTER;runfile;
-895;run_file.at:4354;LINE SEQUENTIAL record truncation (1);runfile extensions read configuration cob_ls_split split;
-896;run_file.at:4458;LINE SEQUENTIAL record truncation (2);runfile extensions read write configuration cob_ls_split split;
-897;run_file.at:4594;LINE SEQUENTIAL standard record overflow;runfile read write configuration cob_ls_split split;
-898;run_file.at:4730;LINAGE and LINAGE-COUNTER sample;runfile optional file status read write end-of-page line sequential configuration cob_current_date date;
-899;run_file.at:5017;EXTFH: LINAGE and LINAGE-COUNTER sample;runfile extfh optional file status read write end-of-page line sequential;
-900;run_file.at:5307;SEQUENTIAL file I/O with variable records;runfile;
-901;run_file.at:5382;LINE SEQUENTIAL file I/O with variable records;runfile;
-902;run_file.at:5456;SEQUENTIAL file REWRITE;runfile;
-903;run_file.at:5568;SEQUENTIAL file with LOCK MODE EXCLUSIVE;runfile;
-904;run_file.at:5638;SEQUENTIAL file with OPEN WITH LOCK;runfile;
-905;run_file.at:5706;SEQUENTIAL file with SHARING NO;runfile;
-906;run_file.at:5776;SEQUENTIAL file with SHARING READ ONLY;runfile;
-907;run_file.at:5851;SEQUENTIAL file with blocked lock;runfile;
-908;run_file.at:5924;RELATIVE SEQUENTIAL basic I/O;runfile;
-909;run_file.at:5958;RELATIVE RANDOM basic I/O;runfile;
-910;run_file.at:6008;RELATIVE SEQUENTIAL with variable records;runfile;
-911;run_file.at:6082;INDEXED SEQUENTIAL basic I/O;runfile;
-912;run_file.at:6120;INDEXED SEQUENTIAL with variable records;runfile;
-913;run_file.at:6202;INDEXED file with LOCK MODE EXCLUSIVE;runfile;
-914;run_file.at:6283;INDEXED file with OPEN WITH LOCK;runfile;
-915;run_file.at:6363;INDEXED file with SHARING NO;runfile;
-916;run_file.at:6444;INDEXED file with SHARING READ ONLY;runfile;
-917;run_file.at:6532;INDEXED file with blocked lock;runfile;
-918;run_file.at:6616;INDEXED file with LOCK AUTOMATIC (1);runfile;
-919;run_file.at:6707;INDEXED file with LOCK AUTOMATIC (2);runfile;
-920;run_file.at:6799;INDEXED file with LOCK MANUAL;runfile;
-921;run_file.at:6889;START INDEXED;runfile;
-922;run_file.at:6968;INDEXED partial keys;runfile;
-923;run_file.at:7116;INDEXED undeclared keys;runfile;
-924;run_file.at:7287;READ INPUT pipe & WRITE OUTPUT pipe;runfile;
-925;run_file.at:7385;EXTFH: using ISAM callback;runfile extfh indexed;
-926;run_file.at:8085;EXTFH: Indexed with FH--FCD;runfile extfh fcdreg fh--keydef isam;
-927;run_file.at:8698;EXTFH: SEQUENTIAL files;runfile extfh;
-928;run_file.at:9108;EXTFH: LINE SEQUENTIAL files, direct EXTFH;runfile;
-929;run_file.at:9287;EXTFH: LINE SEQUENTIAL files (2);runfile extfh;
-930;run_file.at:9480;EXTFH: FIXED SEQUENTIAL;runfile extfh;
-931;run_file.at:9677;EXTFH: operation OP_GETINFO / QUERY-FILE;runfile extfh getinfo query;
-932;run_file.at:9856;EXTFH: changing record address;runfile extfh;
-933;run_file.at:10178;EXTFH: INDEXED with multiple keys;runfile extfh;
-934;run_file.at:10509;EXTFH: RELATIVE files;extfh;
-935;run_file.at:10698;EXTFH: reading two files with one FCD;runfile extfh;
-936;run_file.at:10879;EXTFH: auto-conversion FCD2 <-> FCD3 on 32bit;runfile extfh;
-937;run_file.at:11245;RELATIVE Multi-Record;runfile;
-938;run_file.at:11495;INDEXED File READ/DELETE/READ;runfile read delete extfh;
-939;run_file.at:12302;TURN EC-I-O;runfile directive;
-940;run_file.at:12399;LINE SEQUENTIAL REWRITE;runfile cob_sync read write;
-941;run_file.at:12671;LINE SEQUENTIAL data;runfile;
-942;run_file.at:12828;Concatenated Files;runfile status;
-943;run_file.at:12972;File SORT, SEQUENTIAL;runfile sort using giving;
-944;run_file.at:13022;File SORT, SEQUENTIAL variable records;runfile sort using giving;
-945;run_file.at:13108;File SORT, LINE SEQUENTIAL;runfile sort using giving;
-946;run_file.at:13167;File SORT, LINE SEQUENTIAL same file;runfile sort using giving;
-947;run_file.at:13214;File SORT, LINE SEQUENTIAL variable records;runfile sort using giving;
-948;run_file.at:13278;EXTFH: File SORT, LINE SEQUENTIAL variable records;runfile sort using giving extfh;
-949;run_file.at:13345;File MERGE, LINE SEQUENTIAL variable records;runfile;
-950;run_file.at:13436;SORT nonexistent file;runfile;
-951;run_file.at:13471;SORT with INPUT/OUTPUT PROCEDUREs;runfile;
-952;run_file.at:13561;SORT with key1 ASCENDING, key2 DESCENDING;runfile;
-953;run_file.at:13628;Scope of FD GLOBAL in nested programs;file;
-954;run_file.at:13785;OPEN / CLOSE with multiple filenames;declaratives file error;
-955;run_reportwriter.at:23;Report Line Order;report file mapping;
-956;run_reportwriter.at:120;REPORT COL PLUS;report runfile;
-957;run_reportwriter.at:189;Report Overlapping Fields;report runfile;
-958;run_reportwriter.at:258;EMPTY REPORT;report runfile;
-959;run_reportwriter.at:327;PAGE LIMIT REPORT;report runfile;
-960;run_reportwriter.at:388;PAGE LIMIT REPORT 2;report runfile;
-961;run_reportwriter.at:460;Sample Customer Report;report runfile;
-962;run_reportwriter.at:775;Sample Charge Report;report runfile;
-963;run_reportwriter.at:1128;Sample Charge Report 2;report runfile;
-964;run_reportwriter.at:1498;Sample Charge Report 3;report runfile;
-965;run_reportwriter.at:1798;Sample Charge Report 4;report runfile;
-966;run_reportwriter.at:2214;Sample Payroll Report;report runfile;
-967;run_reportwriter.at:2895;Sample REPORT with RIGHT/CENTER;report runfile;
-968;run_reportwriter.at:3063;STUDENT REPORT with INITIAL;report runfile;
-969;run_reportwriter.at:3215;ORDER REPORT; Test substring;report runfile;
-970;run_reportwriter.at:3563;Sample Control Break;report runfile;
-971;run_reportwriter.at:3792;Sample Inventory Report;report runfile;
-972;run_reportwriter.at:3985;Duplicate Detail Line;report runfile;
-973;run_reportwriter.at:4113;Report with OCCURS;report runfile;
-974;run_reportwriter.at:4217;Report CODE and LIMIT COLUMNS;report runfile occurs;
-975;run_reportwriter.at:4435;Test Report dump DECLARATIVES;dump;
-976;run_reportwriter.at:4580;Duplicate INITIATE;report runfile;
-977;run_reportwriter.at:4646;Missing INITIATE and GENERATE;report runfile;
-978;run_reportwriter.at:4706;Missing INITIATE and TERMINATE;report runfile;
-979;run_reportwriter.at:4760;Next Group Next Page;report runfile;
-980;run_reportwriter.at:9083;Report PRESENT AFTER;report runfile;
-981;run_reportwriter.at:9345;Varying and Nested OCCURS;report;
-982;run_reportwriter.at:9519;BEFORE REPORTING;report;
-983;run_returncode.at:23;RETURN-CODE moving;returncode;
-984;run_returncode.at:49;RETURN-CODE passing;returncode;
-985;run_returncode.at:101;RETURN-CODE nested;returncode;
-986;run_functions.at:24;FUNCTION ABS;functions;
-987;run_functions.at:46;FUNCTION ACOS;functions packed-decimal comp-3 comp-6;
-988;run_functions.at:80;FUNCTION ANNUITY;functions;
-989;run_functions.at:102;FUNCTION ASIN;functions packed-decimal comp-3 comp-6;
-990;run_functions.at:141;FUNCTION ATAN;functions;
-991;run_functions.at:165;FUNCTION BYTE-LENGTH;functions length;
-992;run_functions.at:219;FUNCTION CHAR;functions;
-993;run_functions.at:257;FUNCTION COMBINED-DATETIME;functions;
-994;run_functions.at:282;FUNCTION CONCAT / CONCATENATE;functions;
-995;run_functions.at:329;FUNCTION CONCATENATE with reference modding;functions;
-996;run_functions.at:357;FUNCTION BIT-OF and BIT-TO-CHAR;functions literal ibm;
-997;run_functions.at:414;FUNCTION HEX-OF and HEX-TO-CHAR;functions literal ibm national;
-998;run_functions.at:545;FUNCTION CONTENT-LENGTH;functions length;
-999;run_functions.at:579;FUNCTION CONTENT-OF;functions pointer literal based allocate free exception-status;
-1000;run_functions.at:654;FUNCTION as CALL parameter BY CONTENT;functions;
-1001;run_functions.at:690;FUNCTION COS;functions;
-1002;run_functions.at:714;FUNCTION CURRENCY-SYMBOL;functions;
-1003;run_functions.at:737;FUNCTION CURRENT-DATE;functions;
-1004;run_functions.at:808;FUNCTION DATE-OF-INTEGER;functions;
-1005;run_functions.at:833;FUNCTION DATE-TO-YYYYMMDD;functions;
-1006;run_functions.at:858;FUNCTION DAY-OF-INTEGER;functions;
-1007;run_functions.at:883;FUNCTION DAY-TO-YYYYDDD;functions;
-1008;run_functions.at:908;FUNCTION E;functions;
-1009;run_functions.at:932;FUNCTION EXCEPTION-FILE;functions exceptions;
-1010;run_functions.at:967;FUNCTION EXCEPTION-LOCATION;functions exceptions;
-1011;run_functions.at:1055;FUNCTION EXCEPTION-STATEMENT;functions exceptions;
-1012;run_functions.at:1090;FUNCTION EXCEPTION-STATUS;functions exceptions;
-1013;run_functions.at:1125;FUNCTION EXP;functions;
-1014;run_functions.at:1149;FUNCTION EXP10;functions;
-1015;run_functions.at:1174;FUNCTION FACTORIAL;functions;
-1016;run_functions.at:1199;FUNCTION FORMATTED-CURRENT-DATE;functions;
-1017;run_functions.at:1227;FUNCTION FORMATTED-DATE;functions;
-1018;run_functions.at:1290;FUNCTION FORMATTED-DATE with ref modding;functions;
-1019;run_functions.at:1315;FUNCTION FORMATTED-DATETIME;functions;
-1020;run_functions.at:1372;FUNCTION FORMATTED-DATETIME with ref modding;functions;
-1021;run_functions.at:1398;FUNCTION FORMATTED-TIME;functions;
-1022;run_functions.at:1485;FUNCTION FORMATTED-TIME DP.COMMA;functions;
-1023;run_functions.at:1516;FUNCTION FORMATTED-TIME with ref modding;functions;
-1024;run_functions.at:1541;FUNCTION FRACTION-PART;functions;
-1025;run_functions.at:1572;FUNCTION HIGHEST-ALGEBRAIC;functions;
-1026;run_functions.at:1640;FUNCTION INTEGER;functions;
-1027;run_functions.at:1673;FUNCTION INTEGER-OF-DATE;functions;
-1028;run_functions.at:1698;FUNCTION INTEGER-OF-DAY;functions;
-1029;run_functions.at:1723;FUNCTION INTEGER-OF-FORMATTED-DATE;functions;
-1030;run_functions.at:1773;FUNCTION INTEGER-PART;functions;
-1031;run_functions.at:1799;FUNCTION LENGTH;functions;
-1032;run_functions.at:1881;FUNCTION LOCALE-COMPARE;functions;
-1033;run_functions.at:1911;FUNCTION LOCALE-DATE;functions;
-1034;run_functions.at:1937;FUNCTION LOCALE-TIME;functions;
-1035;run_functions.at:1963;FUNCTION LOCALE-TIME-FROM-SECONDS;functions;
-1036;run_functions.at:1989;FUNCTION LOG;functions;
-1037;run_functions.at:2013;FUNCTION LOG10;functions;
-1038;run_functions.at:2037;FUNCTION LOWER-CASE;functions;
-1039;run_functions.at:2065;FUNCTION LOWER-CASE with reference modding;functions;
-1040;run_functions.at:2091;FUNCTION LOWEST-ALGEBRAIC;functions;
-1041;run_functions.at:2144;FUNCTION MAX;functions;
-1042;run_functions.at:2166;FUNCTION MEAN;functions;
-1043;run_functions.at:2188;FUNCTION MEDIAN;functions;
-1044;run_functions.at:2210;FUNCTION MIDRANGE;functions;
-1045;run_functions.at:2232;FUNCTION MIN;functions;
-1046;run_functions.at:2254;FUNCTION MOD (valid);functions;
-1047;run_functions.at:2284;FUNCTION MOD (invalid);functions exceptions;
-1048;run_functions.at:2315;FUNCTION MODULE-CALLER-ID;functions;
-1049;run_functions.at:2349;FUNCTION MODULE-DATE;functions;
-1050;run_functions.at:2374;FUNCTION MODULE-FORMATTED-DATE;functions;
-1051;run_functions.at:2399;FUNCTION MODULE-ID;functions;
-1052;run_functions.at:2420;FUNCTION MODULE-PATH;functions;
-1053;run_functions.at:2445;FUNCTION MODULE-SOURCE;functions;
-1054;run_functions.at:2466;FUNCTION MODULE-TIME;functions;
-1055;run_functions.at:2491;FUNCTION MONETARY-DECIMAL-POINT;functions;
-1056;run_functions.at:2514;FUNCTION MONETARY-THOUSANDS-SEPARATOR;functions;
-1057;run_functions.at:2537;FUNCTION NUMERIC-DECIMAL-POINT;functions;
-1058;run_functions.at:2560;FUNCTION NUMERIC-THOUSANDS-SEPARATOR;functions;
-1059;run_functions.at:2583;FUNCTION NUMVAL;functions;
-1060;run_functions.at:2656;FUNCTION NUMVAL-C;functions numval;
-1061;run_functions.at:2717;FUNCTION NUMVAL-C DP.COMMA;functions numval;
-1062;run_functions.at:2745;FUNCTION NUMVAL-F;functions numval;
-1063;run_functions.at:2780;FUNCTION ORD;functions;
-1064;run_functions.at:2801;FUNCTION ORD-MAX;functions;
-1065;run_functions.at:2822;FUNCTION ORD-MIN;functions;
-1066;run_functions.at:2843;FUNCTION PI;functions;
-1067;run_functions.at:2865;FUNCTION PRESENT-VALUE;functions;
-1068;run_functions.at:2886;FUNCTION RANDOM;functions;
-1069;run_functions.at:2908;FUNCTION RANGE;functions;
-1070;run_functions.at:2930;FUNCTION REM (valid);functions;
-1071;run_functions.at:2952;FUNCTION REM (invalid);functions exceptions;
-1072;run_functions.at:2979;FUNCTION REVERSE;functions;
-1073;run_functions.at:3002;FUNCTION REVERSE with reference modding;functions;
-1074;run_functions.at:3025;FUNCTION SECONDS-FROM-FORMATTED-TIME;functions;
-1075;run_functions.at:3080;FUNCTION SECONDS-PAST-MIDNIGHT;functions;
-1076;run_functions.at:3102;FUNCTION SIGN;functions;
-1077;run_functions.at:3146;FUNCTION SIN;functions;
-1078;run_functions.at:3168;FUNCTION SQRT;functions;
-1079;run_functions.at:3190;FUNCTION STANDARD-DEVIATION;functions;
-1080;run_functions.at:3212;FUNCTION STORED-CHAR-LENGTH;functions;
-1081;run_functions.at:3236;FUNCTION SUBSTITUTE;functions;
-1082;run_functions.at:3263;FUNCTION SUBSTITUTE with reference modding;functions;
-1083;run_functions.at:3289;FUNCTION SUBSTITUTE-CASE;functions;
-1084;run_functions.at:3314;FUNCTION SUBSTITUTE-CASE with reference mod;functions;
-1085;run_functions.at:3340;FUNCTION SUM;functions;
-1086;run_functions.at:3362;FUNCTION TAN;functions;
-1087;run_functions.at:3384;FUNCTION TEST-DATE-YYYYMMDD;functions;
-1088;run_functions.at:3406;FUNCTION TEST-DAY-YYYYDDD;functions;
-1089;run_functions.at:3428;FUNCTION TEST-FORMATTED-DATETIME with dates;functions;
-1090;run_functions.at:3529;FUNCTION TEST-FORMATTED-DATETIME with times;functions;
-1091;run_functions.at:3610;FUNCTION TEST-FORMATTED-DATETIME with datetimes;functions;
-1092;run_functions.at:3663;FUNCTION TEST-FORMATTED-DATETIME DP.COMMA;functions;
-1093;run_functions.at:3704;FUNCTION TEST-NUMVAL;functions;
-1094;run_functions.at:3855;FUNCTION TEST-NUMVAL-C;functions numval;
-1095;run_functions.at:3955;FUNCTION TEST-NUMVAL-F;functions numval;
-1096;run_functions.at:4055;FUNCTION TRIM;functions;
-1097;run_functions.at:4081;FUNCTION TRIM with reference modding;functions;
-1098;run_functions.at:4107;FUNCTION TRIM zero length;functions;
-1099;run_functions.at:4134;FUNCTION UPPER-CASE;functions;
-1100;run_functions.at:4159;FUNCTION UPPER-CASE with reference modding;functions;
-1101;run_functions.at:4184;FUNCTION VARIANCE;functions compute decimal;
-1102;run_functions.at:4214;FUNCTION WHEN-COMPILED;functions;
-1103;run_functions.at:4268;FUNCTION YEAR-TO-YYYY;functions;
-1104;run_functions.at:4292;Formatted funcs w/ invalid variable format;functions formatted-current-date formatted-date formatted-time formatted-datetime;
-1105;run_functions.at:4373;FORMATTED-(DATE)TIME with SYSTEM-OFFSET;functions formatted-time formatted-datetime extensions;
-1106;run_functions.at:4411;Intrinsics without FUNCTION keyword (1);functions;
-1107;run_functions.at:4432;Intrinsics without FUNCTION keyword (2);functions;
-1108;run_functions.at:4455;User-Defined FUNCTION with/without parameter;functions;
-1109;run_functions.at:4506;UDF in COMPUTE;functions;
-1110;run_functions.at:4549;UDF replacing intrinsic function;functions substitute;
-1111;run_functions.at:4592;UDF with recursion;functions local-storage;
-1112;run_extensions.at:25;CALL BY CONTENT binary and literal;extensions literals;
-1113;run_extensions.at:72;Numeric Boolean literals;extensions;
-1114;run_extensions.at:101;ACUCOBOL literals;extensions acu binary octal hexadecimal;
-1115;run_extensions.at:127;HP COBOL octal literals;extensions;
-1116;run_extensions.at:188;Hexadecimal numeric literals;extensions;
-1117;run_extensions.at:217;Semi-parenthesized condition;extensions;
-1118;run_extensions.at:237;ADDRESS OF;extensions;
-1119;run_extensions.at:287;LENGTH OF;extensions value renames;
-1120;run_extensions.at:451;SET TO SIZE OF;extensions acu length;
-1121;run_extensions.at:488;WHEN-COMPILED;extensions;
-1122;run_extensions.at:517;Complex OCCURS DEPENDING ON (1);extensions;
-1123;run_extensions.at:546;Complex OCCURS DEPENDING ON (2);extensions;
-1124;run_extensions.at:609;Complex OCCURS DEPENDING ON (3);extensions;
-1125;run_extensions.at:673;Complex OCCURS DEPENDING ON (4);extensions;
-1126;run_extensions.at:739;Complex OCCURS DEPENDING ON (5);extensions;
-1127;run_extensions.at:805;Complex OCCURS DEPENDING ON (6);extensions runsubscripts nested subscripts odo odoslide;
-1128;run_extensions.at:846;OCCURS UNBOUNDED (1);extensions runsubscripts subscripts;
-1129;run_extensions.at:908;OCCURS UNBOUNDED (2);extensions runsubscripts depending odo subscripts;
-1130;run_extensions.at:1048;INITIALIZE OCCURS UNBOUNDED;extensions runsubscripts subscripts refmod exceptions ibm;
-1131;run_extensions.at:1151;INITIALIZE OCCURS ODOSLIDE;extensions runsubscripts subscripts ibm;
-1132;run_extensions.at:1248;DEPENDING ON with ODOSLIDE;nested odo;
-1133;run_extensions.at:1463;DEPENDING ON with ODOSLIDE for IBM;occurs odo;
-1134;run_extensions.at:1568;INITIALIZE level 01 OCCURS;extensions;
-1135;run_extensions.at:1625;MOVE of non-integer to alphanumeric;extensions;
-1136;run_extensions.at:1715;CALL USING file-name;extensions;
-1137;run_extensions.at:1761;CALL unusual PROGRAM-ID.;extensions;
-1138;run_extensions.at:1826;CALL / GOBACK with LOCAL-STORAGE;extensions;
-1139;run_extensions.at:1877;CALL BY VALUE alphanumeric item;extensions;
-1140;run_extensions.at:1914;CALL BY VALUE numeric literal with SIZE IS;extensions;
-1141;run_extensions.at:2019;CALL BY VALUE to C;extensions size chaining;
-1142;run_extensions.at:2101;Case-sensitive PROGRAM-ID;extensions;
-1143;run_extensions.at:2126;Quoted PROGRAM-ID;extensions;
-1144;run_extensions.at:2149;PROGRAM-ID AS clause;extensions;
-1145;run_extensions.at:2172;NUMBER-OF-CALL-PARAMETERS;extensions;
-1146;run_extensions.at:2253;TALLY register;extensions;
-1147;run_extensions.at:2285;Redefining TALLY;extensions register;
-1148;run_extensions.at:2321;PROCEDURE DIVISION USING BY ...;extensions;
-1149;run_extensions.at:2374;PROCEDURE DIVISION CHAINING;extensions call initialize;
-1150;run_extensions.at:2497;STOP RUN RETURNING/GIVING;extensions;
-1151;run_extensions.at:2553;GOBACK/EXIT PROGRAM RETURNING/GIVING;extensions;
-1152;run_extensions.at:2603;ENTRY;extensions exceptions ibm;
-1153;run_extensions.at:2654;ASSIGN to KEYBOARD/DISPLAY;extensions;
-1154;run_extensions.at:2712;SORT ASSIGN KEYBOARD to ASSIGN DISPLAY;extensions;
-1155;run_extensions.at:2774;Environment/Argument variable;extensions;
-1156;run_extensions.at:2820;78 Level (1);extensions;
-1157;run_extensions.at:2843;78 Level (2);extensions;
-1158;run_extensions.at:2869;78 Level (3);extensions;
-1159;run_extensions.at:2893;SWITCHES with non-standard names;runmisc extensions;
-1160;run_extensions.at:3006;Larger REDEFINES lengths;extensions;
-1161;run_extensions.at:3071;REDEFINES: non-referenced ambiguous item;extensions redefines mf;
-1162;run_extensions.at:3097;Obsolete 2002 keywords with COBOL2014;extensions;
-1163;run_extensions.at:3127;System routine with wrong number of parameters;extensions narg;
-1164;run_extensions.at:3170;System routine C\$NARG;extensions narg;
-1165;run_extensions.at:3247;System routine C\$PARAMSIZE;extensions;
-1166;run_extensions.at:3289;System routine C\$CALLEDBY;extensions;
-1167;run_extensions.at:3335;System routine C\$JUSTIFY;extensions;
-1168;run_extensions.at:3360;System routine C\$PRINTABLE;extensions;
-1169;run_extensions.at:3389;System routine C\$MAKEDIR;extensions;
-1170;run_extensions.at:3410;System routine C\$GETPID;extensions;
-1171;run_extensions.at:3435;System routine C\$TOUPPER;extensions;
-1172;run_extensions.at:3460;System routine C\$TOLOWER;extensions;
-1173;run_extensions.at:3485;System routine CBL_OR;extensions;
-1174;run_extensions.at:3512;System routine CBL_NOR;extensions;
-1175;run_extensions.at:3539;System routine CBL_AND;extensions;
-1176;run_extensions.at:3566;System routine CBL_XOR;extensions;
-1177;run_extensions.at:3593;System routine CBL_IMP;extensions;
-1178;run_extensions.at:3620;System routine CBL_NIMP;extensions;
-1179;run_extensions.at:3647;System routine CBL_NOT;extensions;
-1180;run_extensions.at:3673;System routine CBL_EQ;extensions;
-1181;run_extensions.at:3700;System routine CBL_GC_GETOPT;extensions;
-1182;run_extensions.at:4137;System routine CBL_GC_FORK;extensions c\$getpid;
-1183;run_extensions.at:4205;System routine CBL_GC_WAITPID;extensions cbl_gc_fork;
-1184;run_extensions.at:4257;System routine CBL_GC_HOSTED;extensions errno external based pointer;
-1185;run_extensions.at:4387;System routine SYSTEM, parameter handling;chaining trim;
-1186;run_extensions.at:4498;System routine CBL_EXIT_PROC;extensions;
-1187;run_extensions.at:4608;System routine CBL_ERROR_PROC (1);extensions exceptions error exception-location exception-statement exception-file exception-status;
-1188;run_extensions.at:4707;System routine CBL_ERROR_PROC (2);extensions exceptions error local-storage recursive exception-location exception-statement exception-file exception-status;
-1189;run_extensions.at:4788;System routine x'91' function NN;extensions;
-1190;run_extensions.at:4804;CALL own PROGRAM-ID and RECURSIVE attribute;extensions exceptions;
-1191;run_extensions.at:4869;DISPLAY DIRECTIVE and \$DISPLAY;extensions;
-1192;run_extensions.at:4902;Conditional / define directives (1);extensions directive;
-1193;run_extensions.at:4927;Conditional / define directives (2);extensions directive;
-1194;run_extensions.at:4952;Conditional / define directives (3);extensions directive;
-1195;run_extensions.at:4980;Conditional / define directives (4);extensions directive;
-1196;run_extensions.at:5006;Invalid source format;extensions runmisc;
-1197;run_extensions.at:5035;Variable format;extensions runmisc;
-1198;run_extensions.at:5074;COBOLX format;extensions runmisc;
-1199;run_extensions.at:5113;X/Open free-form format;fundamental xopen extensions;
-1200;run_extensions.at:5162;TERMINAL format;fundamental extensions;
-1201;run_extensions.at:5246;MF FREE format (X/Open);fundamental xopen extensions directives;
-1202;run_extensions.at:5296;Binary COMP-1 (1);extensions;
-1203;run_extensions.at:5327;Binary COMP-1 (2);extensions directive;
-1204;run_extensions.at:5363;EXHIBIT statement;extensions osvs sort-return tally;
-1205;run_extensions.at:5393;Bit Operations;bit-wise;
-1206;run_extensions.at:5496;Bit Shift Operations;bit-wise;
-1207;run_extensions.at:5571;GCOS floating-point usages;gcos;
-1208;run_extensions.at:5610;PICTURE L (basic);extensions gcos picture-l odo;
-1209;run_extensions.at:5740;PICTURE L (under/over shoot);extensions gcos picture-l odo;
-1210;run_extensions.at:5795;PICTURE L (MOVE CORRESPONDING);extensions gcos picture-l odo;
-1211;run_extensions.at:5873;PICTURE L (OCCURS ... PIC L);extensions gcos picture-l odo;
-1212;run_extensions.at:5942;PICTURE L (REDEFINES);extensions gcos picture-l odo;
-1213;run_extensions.at:6030;INSPECT TRAILING;extensions;
-1214;run_extensions.at:6100;INSPECT REPLACING TRAILING ZEROS BY SPACES;runmisc figurative constant;
-1215;run_extensions.at:6122;INSPECT REPLACING complex;runmisc characters trailing;
-1216;run_extensions.at:6159;EXAMINE TALLYING;runmisc;
-1217;run_extensions.at:6216;EXAMINE REPLACING;runmisc;
-1218;run_extensions.at:6252;GCOS literals with EBCDIC symbols (run);extensions;
-1219;run_ml.at:19;XML GENERATE general;extensions;
-1220;run_ml.at:127;XML GENERATE SUPPRESS;extensions;
-1221;run_ml.at:204;XML GENERATE exceptions;extensions xml-code;
-1222;run_ml.at:316;XML GENERATE record selection;extensions;
-1223;run_ml.at:360;XML GENERATE trimming;extensions;
-1224;run_ml.at:457;XML DPC-IN-DATA directive;extensions;
-1225;run_ml.at:488;XML dpc-in-data config option;extensions;
-1226;run_ml.at:532;JSON GENERATE general;extensions;
-1227;run_ml.at:589;JSON GENERATE SUPPRESS;extensions;
-1228;run_ml.at:628;JSON GENERATE exceptions;extensions json-code;
-1229;run_ml.at:693;JSON GENERATE record selection;extensions;
-1230;run_ml.at:737;JSON GENERATE trimming;extensions;
-1231;run_ml.at:837;JSON DPC-IN-DATA directive;extensions;
-1232;run_ml.at:868;JSON dpc-in-data config option;extensions;
-1233;data_binary.at:23;BINARY: 2-4-8 big-endian;binary;
-1234;data_binary.at:205;BINARY: 2-4-8 native;binary;
-1235;data_binary.at:393;BINARY: 1-2-4-8 big-endian;binary;
-1236;data_binary.at:575;BINARY: 1-2-4-8 native;binary;
-1237;data_binary.at:763;BINARY: 1--8 big-endian;binary;
-1238;data_binary.at:945;BINARY: 1--8 native;binary;
-1239;data_binary.at:1133;BINARY: full-print;binary;
-1240;data_binary.at:1185;BINARY: 64bit unsigned compare;binary;
-1241;data_binary.at:1215;BINARY: 64bit unsigned arithmetic notrunc;binary;
-1242;data_binary.at:1242;BINARY: 64bit signed negative constant range;binary;
-1243;data_binary.at:1262;COMP-4 Truncate;binary numeric;
-1244;data_binary.at:1323;COMP-4 No Truncate;binary numeric;
-1245;data_binary.at:1409;MOVE DISPLAY to BINARY;fundamental ppp;
-1246;data_binary.at:1595;MOVE PACKED-DECIMAL to BINARY;fundamental ppp;
-1247;data_binary.at:1781;MOVE BINARY to PACKED-DECIMAL;fundamental ppp;
-1248;data_binary.at:1961;MOVE BINARY to BINARY;fundamental ppp;
-1249;data_binary.at:2143;PPP COMP-5;fundamental binary move display add subtract multiply divide;
-1250;data_binary.at:2217;arithmetic truncation with USAGE BINARY;fundamental compute;
-1251;data_display.at:22;DISPLAY: Sign ASCII;display;
-1252;data_display.at:81;DISPLAY: Sign ASCII (2);display;
-1253;data_display.at:127;DISPLAY: Sign EBCDIC;display;
-1254;data_display.at:172;DISPLAY: unsigned;display;
-1255;data_display.at:226;MOVE DISPLAY to DISPLAY;fundamental ppp;
-1256;data_display.at:408;PPP DISPLAY;fundamental move add subtract multiply divide;
-1257;data_display.at:480;arithmetic truncation with USAGE DISPLAY;fundamental compute;
-1258;data_display.at:533;DISPLAY: ADD and SUBTRACT w/o SIZE ERROR;display fundamental arithmetic;
-1259;data_display.at:16940;DISPLAY: ADD and SUBTRACT, all ROUNDED MODEs;display fundamental arithmetic subtract mode away-from-zero nearest-away-from-zero nearest-even nearest-toward-zero toward-greater toward-lesser prohibited truncation;
-1260;data_packed.at:27;PACKED-DECIMAL dump;packed-decimal comp-3;
-1261;data_packed.at:163;PACKED-DECIMAL used with DISPLAY;packed-decimal comp-3;
-1262;data_packed.at:221;PACKED-DECIMAL used with MOVE;display;
-1263;data_packed.at:459;MOVE PACKED-DECIMAL to PACKED-DECIMAL;fundamental ppp;
-1264;data_packed.at:639;MOVE PACKED-DECIMAL to DISPLAY;fundamenta pppl;
-1265;data_packed.at:825;MOVE DISPLAY to PACKED-DECIMAL;fundamental ppp;
-1266;data_packed.at:1026;PACKED-DECIMAL used with INITIALIZE;packed-decimal display;
-1267;data_packed.at:1063;PACKED-DECIMAL arithmetic;packed-decimal comp-3;
-1268;data_packed.at:1187;PACKED-DECIMAL comparison;packed-decimal comp-3;
-1269;data_packed.at:1269;PACKED-DECIMAL numeric test (1);packed-decimal comp-3;
-1270;data_packed.at:1333;PACKED-DECIMAL numeric test (2);packed-decimal comp-3;
-1271;data_packed.at:1399;COMP-6 used with DISPLAY;packed-decimal comp-3;
-1272;data_packed.at:1432;COMP-6 used with MOVE;packed-decimal comp-3;
-1273;data_packed.at:1474;COMP-6 arithmetic;packed-decimal comp-3;
-1274;data_packed.at:1563;COMP-6 numeric;packed-decimal comp-3;
-1275;data_packed.at:1609;COMP-6 comparison;packed-decimal comp-3;
-1276;data_packed.at:1671;COMP-3 vs. COMP-6 - BCD comparison;packed-decimal;
-1277;data_packed.at:1971;PPP COMP-3;packed-decimal fundamental move display add subtract multiply divide;
-1278;data_packed.at:2083;PPP COMP-6;packed-decimal fundamental move display add subtract multiply divide;
-1279;data_packed.at:2174;arithmetic truncation with USAGE PACKED-DECIMAL;fundamental compute comp-3;
-1280;data_packed.at:2236;MOVE between several BCD fields;fundamental comp-3 comp-6 packed-decimal;
-1281;data_packed.at:12326;BCD ADD and SUBTRACT w/o SIZE ERROR;fundamental arithmetic comp-3 comp-6 packed-decimal;
-1282;data_packed.at:28746;BCD ADD and SUBTRACT, all ROUNDED MODEs;fundamental arithmetic subtract mode comp-3 comp-6 packed-decimal away-from-zero nearest-away-from-zero nearest-even nearest-toward-zero toward-greater toward-lesser prohibited truncation;
-1283;data_pointer.at:21;POINTER: display;pointer 64bit;
-1284;i18n_sjis_pic-n.at:1;PIC N Value clause;;
-1285;i18n_sjis_pic-n.at:19;PIC N Move;;
-1286;i18n_sjis_pic-n.at:38;PIC N Move with trunc;;
-1287;i18n_sjis_pic-n.at:61;PIC N Move with padding by full-width SPC;;
-1288;i18n_sjis_pic-n.at:80;PIC N Move with justify;;
-1289;i18n_sjis_pic-n.at:99;PIC N EDITED w/ VALUE;;
-1290;i18n_sjis_pic-n.at:117;INITIALIZE PIC N EDITED;;
-1291;i18n_sjis_pic-n.at:137;INITIALIZE PIC N EDITED TO VALUE;;
-1292;i18n_sjis_pic-n.at:157;PIC N Move to NATIONAL EDITED;;
-1293;i18n_sjis_pic-n.at:176;PIC N Move with half-width alnum conv.;;
-1294;i18n_sjis_pic-n.at:195;PIC N Move with half-width kana conv.;;
-1295;i18n_sjis_pic-n.at:215;PIC N Ref mod(n:);;
-1296;i18n_sjis_pic-n.at:234;PIC N Ref mod(n:m);;
-1297;i18n_sjis_pic-n.at:253;PIC N STRING by size;;
-1298;i18n_sjis_pic-n.at:276;PIC N STRING with delimiter (causes warn);;
-1299;i18n_sjis_pic-n.at:299;PIC N STRING with NATIONAL delimiter;;
-1300;i18n_sjis_pic-n.at:322;PIC N STRING with pointer;;
-1301;i18n_sjis_pic-n.at:346;PIC N INSPECT REPLACING;;
-1302;i18n_sjis_pic-n.at:365;PIC N INSPECT REPLACING by ZERO;;
-1303;i18n_sjis_pic-n.at:384;PIC N INSPECT REPLACING by NATIONAL ZERO;;
-1304;i18n_sjis_pic-n.at:403;PIC N INSPECT TALLYING;;
-1305;i18n_sjis_pic-n.at:423;PIC N Move with half-width dakuten kana.;;
-1306;i18n_sjis_pic-n.at:442;PIC N Move with half-width han-dakuten kana.;;
-"
-# List of the all the test groups.
-at_groups_all=`printf "%s\n" "$at_help_all" | sed 's/;.*//'`
-
-# at_fn_validate_ranges NAME...
-# -----------------------------
-# Validate and normalize the test group number contained in each variable
-# NAME. Leading zeroes are treated as decimal.
-at_fn_validate_ranges ()
-{
- for at_grp
- do
- eval at_value=\$$at_grp
- if test $at_value -lt 1 || test $at_value -gt 1306; then
- printf "%s\n" "invalid test group: $at_value" >&2
- exit 1
- fi
- case $at_value in
- 0*) # We want to treat leading 0 as decimal, like expr and test, but
- # AS_VAR_ARITH treats it as octal if it uses $(( )).
- # With XSI shells, ${at_value#${at_value%%[1-9]*}} avoids the
- # expr fork, but it is not worth the effort to determine if the
- # shell supports XSI when the user can just avoid leading 0.
- eval $at_grp='`expr $at_value + 0`' ;;
- esac
- done
-}
-# List of the tested programs.
-at_tested='"cobc"
-"cobcrun"'
-
-
-at_prev=
-for at_option
-do
- # If the previous option needs an argument, assign it.
- if test -n "$at_prev"; then
- at_option=$at_prev=$at_option
- at_prev=
- fi
-
- case $at_option in
- *=?*) at_optarg=`expr "X$at_option" : '[^=]*=\(.*\)'` ;;
- *) at_optarg= ;;
- esac
-
- case $at_option in
- --help | -h )
- at_help_p=:
- ;;
-
- --list | -l )
- at_list_p=:
- ;;
-
- --version | -V )
- at_version_p=:
- ;;
-
- --clean | -c )
- at_clean=:
- ;;
-
- --color )
- at_color=always
- ;;
- --color=* )
- case $at_optarg in
- no | never | none) at_color=never ;;
- auto | tty | if-tty) at_color=auto ;;
- always | yes | force) at_color=always ;;
- *) at_optname=`echo " $at_option" | sed 's/^ //; s/=.*//'`
- as_fn_error $? "unrecognized argument to $at_optname: $at_optarg" ;;
- esac
- ;;
-
- --debug | -d )
- at_debug_p=:
- ;;
-
- --errexit | -e )
- at_debug_p=:
- at_errexit_p=:
- ;;
-
- --verbose | -v )
- at_verbose=; at_quiet=:
- ;;
-
- --trace | -x )
- at_traceon='set -x'
- at_trace_echo=echo
- at_check_filter_trace=at_fn_filter_trace
- ;;
-
- [0-9] | [0-9][0-9] | [0-9][0-9][0-9] | [0-9][0-9][0-9][0-9])
- at_fn_validate_ranges at_option
- as_fn_append at_groups "$at_option$as_nl"
- ;;
-
- # Ranges
- [0-9]- | [0-9][0-9]- | [0-9][0-9][0-9]- | [0-9][0-9][0-9][0-9]-)
- at_range_start=`echo $at_option |tr -d X-`
- at_fn_validate_ranges at_range_start
- at_range=`printf "%s\n" "$at_groups_all" | \
- sed -ne '/^'$at_range_start'$/,$p'`
- as_fn_append at_groups "$at_range$as_nl"
- ;;
-
- -[0-9] | -[0-9][0-9] | -[0-9][0-9][0-9] | -[0-9][0-9][0-9][0-9])
- at_range_end=`echo $at_option |tr -d X-`
- at_fn_validate_ranges at_range_end
- at_range=`printf "%s\n" "$at_groups_all" | \
- sed -ne '1,/^'$at_range_end'$/p'`
- as_fn_append at_groups "$at_range$as_nl"
- ;;
-
- [0-9]-[0-9] | [0-9]-[0-9][0-9] | [0-9]-[0-9][0-9][0-9] | \
- [0-9]-[0-9][0-9][0-9][0-9] | [0-9][0-9]-[0-9][0-9] | \
- [0-9][0-9]-[0-9][0-9][0-9] | [0-9][0-9]-[0-9][0-9][0-9][0-9] | \
- [0-9][0-9][0-9]-[0-9][0-9][0-9] | \
- [0-9][0-9][0-9]-[0-9][0-9][0-9][0-9] | \
- [0-9][0-9][0-9][0-9]-[0-9][0-9][0-9][0-9] )
- at_range_start=`expr $at_option : '\(.*\)-'`
- at_range_end=`expr $at_option : '.*-\(.*\)'`
- if test $at_range_start -gt $at_range_end; then
- at_tmp=$at_range_end
- at_range_end=$at_range_start
- at_range_start=$at_tmp
- fi
- at_fn_validate_ranges at_range_start at_range_end
- at_range=`printf "%s\n" "$at_groups_all" | \
- sed -ne '/^'$at_range_start'$/,/^'$at_range_end'$/p'`
- as_fn_append at_groups "$at_range$as_nl"
- ;;
-
- # Directory selection.
- --directory | -C )
- at_prev=--directory
- ;;
- --directory=* )
- at_change_dir=:
- at_dir=$at_optarg
- if test x- = "x$at_dir" ; then
- at_dir=./-
- fi
- ;;
-
- # Parallel execution.
- --jobs | -j )
- at_jobs=0
- ;;
- --jobs=* | -j[0-9]* )
- if test -n "$at_optarg"; then
- at_jobs=$at_optarg
- else
- at_jobs=`expr X$at_option : 'X-j\(.*\)'`
- fi
- case $at_jobs in *[!0-9]*)
- at_optname=`echo " $at_option" | sed 's/^ //; s/[0-9=].*//'`
- as_fn_error $? "non-numeric argument to $at_optname: $at_jobs" ;;
- esac
- ;;
-
- # Keywords.
- --keywords | -k )
- at_prev=--keywords
- ;;
- --keywords=* )
- at_groups_selected=$at_help_all
- at_save_IFS=$IFS
- IFS=,
- set X $at_optarg
- shift
- IFS=$at_save_IFS
- for at_keyword
- do
- at_invert=
- case $at_keyword in
- '!'*)
- at_invert="-v"
- at_keyword=`expr "X$at_keyword" : 'X!\(.*\)'`
- ;;
- esac
- # It is on purpose that we match the test group titles too.
- at_groups_selected=`printf "%s\n" "$at_groups_selected" |
- grep -i $at_invert "^[1-9][^;]*;.*[; ]$at_keyword[ ;]"`
- done
- # Smash the keywords.
- at_groups_selected=`printf "%s\n" "$at_groups_selected" | sed 's/;.*//'`
- as_fn_append at_groups "$at_groups_selected$as_nl"
- ;;
- --recheck)
- at_recheck=:
- ;;
-
- *=*)
- at_envvar=`expr "x$at_option" : 'x\([^=]*\)='`
- # Reject names that are not valid shell variable names.
- case $at_envvar in
- '' | [0-9]* | *[!_$as_cr_alnum]* )
- as_fn_error $? "invalid variable name: \`$at_envvar'" ;;
- esac
- at_value=`printf "%s\n" "$at_optarg" | sed "s/'/'\\\\\\\\''/g"`
- # Export now, but save eval for later and for debug scripts.
- export $at_envvar
- as_fn_append at_debug_args " $at_envvar='$at_value'"
- ;;
-
- *) printf "%s\n" "$as_me: invalid option: $at_option" >&2
- printf "%s\n" "Try \`$0 --help' for more information." >&2
- exit 1
- ;;
- esac
-done
-
-# Verify our last option didn't require an argument
-if test -n "$at_prev"
-then :
- as_fn_error $? "\`$at_prev' requires an argument"
-fi
-
-# The file containing the suite.
-at_suite_log=$at_dir/$as_me.log
-
-# Selected test groups.
-if test -z "$at_groups$at_recheck"; then
- at_groups=$at_groups_all
-else
- if test -n "$at_recheck" && test -r "$at_suite_log"; then
- at_oldfails=`sed -n '
- /^Failed tests:$/,/^Skipped tests:$/{
- s/^[ ]*\([1-9][0-9]*\):.*/\1/p
- }
- /^Unexpected passes:$/,/^## Detailed failed tests/{
- s/^[ ]*\([1-9][0-9]*\):.*/\1/p
- }
- /^## Detailed failed tests/q
- ' "$at_suite_log"`
- as_fn_append at_groups "$at_oldfails$as_nl"
- fi
- # Sort the tests, removing duplicates.
- at_groups=`printf "%s\n" "$at_groups" | sort -nu | sed '/^$/d'`
-fi
-
-if test x"$at_color" = xalways \
- || { test x"$at_color" = xauto && test -t 1; }; then
- at_red=`printf '\033[0;31m'`
- at_grn=`printf '\033[0;32m'`
- at_lgn=`printf '\033[1;32m'`
- at_blu=`printf '\033[1;34m'`
- at_std=`printf '\033[m'`
-else
- at_red= at_grn= at_lgn= at_blu= at_std=
-fi
-
-# Help message.
-if $at_help_p; then
- cat <<_ATEOF || at_write_fail=1
-Usage: $0 [OPTION]... [VARIABLE=VALUE]... [TESTS]
-
-Run all the tests, or the selected TESTS, given by numeric ranges, and
-save a detailed log file. Upon failure, create debugging scripts.
-
-Do not change environment variables directly. Instead, set them via
-command line arguments. Set \`AUTOTEST_PATH' to select the executables
-to exercise. Each relative directory is expanded as build and source
-directories relative to the top level of this distribution.
-E.g., from within the build directory /tmp/foo-1.0, invoking this:
-
- $ $0 AUTOTEST_PATH=bin
-
-is equivalent to the following, assuming the source directory is /src/foo-1.0:
-
- PATH=/tmp/foo-1.0/bin:/src/foo-1.0/bin:\$PATH $0
-_ATEOF
-cat <<_ATEOF || at_write_fail=1
-
-Operation modes:
- -h, --help print the help message, then exit
- -V, --version print version number, then exit
- -c, --clean remove all the files this test suite might create and exit
- -l, --list describes all the tests, or the selected TESTS
-_ATEOF
-cat <<_ATEOF || at_write_fail=1
-
-Execution tuning:
- -C, --directory=DIR
- change to directory DIR before starting
- --color[=never|auto|always]
- disable colored test results, or enable even without terminal
- -j, --jobs[=N]
- Allow N jobs at once; infinite jobs with no arg (default 1)
- -k, --keywords=KEYWORDS
- select the tests matching all the comma-separated KEYWORDS
- multiple \`-k' accumulate; prefixed \`!' negates a KEYWORD
- --recheck select all tests that failed or passed unexpectedly last time
- -e, --errexit abort as soon as a test fails; implies --debug
- -v, --verbose force more detailed output
- default for debugging scripts
- -d, --debug inhibit clean up and top-level logging
- default for debugging scripts
- -x, --trace enable tests shell tracing
-_ATEOF
-cat <<_ATEOF || at_write_fail=1
-
-Report bugs to <bug-gnucobol@gnu.org>.
-GnuCOBOL home page: <https://www.gnu.org/software/gnucobol/>.
-_ATEOF
- exit $at_write_fail
-fi
-
-# List of tests.
-if $at_list_p; then
- cat <<_ATEOF || at_write_fail=1
-GnuCOBOL 3.2 test suite: GnuCOBOL Tests test groups:
-
- NUM: FILE-NAME:LINE TEST-GROUP-NAME
- KEYWORDS
-
-_ATEOF
- # Pass an empty line as separator between selected groups and help.
- printf "%s\n" "$at_groups$as_nl$as_nl$at_help_all" |
- awk 'NF == 1 && FS != ";" {
- selected[$ 1] = 1
- next
- }
- /^$/ { FS = ";" }
- NF > 0 {
- if (selected[$ 1]) {
- printf " %3d: %-18s %s\n", $ 1, $ 2, $ 3
- if ($ 4) {
- lmax = 79
- indent = " "
- line = indent
- len = length (line)
- n = split ($ 4, a, " ")
- for (i = 1; i <= n; i++) {
- l = length (a[i]) + 1
- if (i > 1 && len + l > lmax) {
- print line
- line = indent " " a[i]
- len = length (line)
- } else {
- line = line " " a[i]
- len += l
- }
- }
- if (n)
- print line
- }
- }
- }' || at_write_fail=1
- exit $at_write_fail
-fi
-if $at_version_p; then
- printf "%s\n" "$as_me (GnuCOBOL 3.2)" &&
- cat <<\_ATEOF || at_write_fail=1
-
-Test cases Copyright (C) 2023 Free Software Foundation, Inc.
-
-Written by Keisuke Nishida, Roger While, Simon Sobisch, Edward Hart,
-Ron Norman, Brian Tiffin, Dave Pitts
-
-Copyright (C) 2021 Free Software Foundation, Inc.
-This test suite is free software; the Free Software Foundation gives
-unlimited permission to copy, distribute and modify it.
-_ATEOF
- exit $at_write_fail
-fi
-
-# Should we print banners? Yes if more than one test is run.
-case $at_groups in #(
- *$as_nl* )
- at_print_banners=: ;; #(
- * ) at_print_banners=false ;;
-esac
-# Text for banner N, set to a single space once printed.
-# Banner 1. testsuite.at:32
-# Category starts at test group 1.
-at_banner_text_1="General tests of used binaries"
-# Banner 2. testsuite.at:37
-# Category starts at test group 50.
-at_banner_text_2="Syntax tests"
-# Banner 3. testsuite.at:57
-# Category starts at test group 475.
-at_banner_text_3="Listing tests"
-# Banner 4. testsuite.at:62
-# Category starts at test group 511.
-at_banner_text_4="Run tests"
-# Banner 5. testsuite.at:78
-# Category starts at test group 1233.
-at_banner_text_5="Data Representation"
-# Banner 6. testsuite.at:86
-# Category starts at test group 1284.
-at_banner_text_6="NATIONAL Support"
-
-# Take any -C into account.
-if $at_change_dir ; then
- test x != "x$at_dir" && cd "$at_dir" \
- || as_fn_error $? "unable to change directory"
- at_dir=`pwd`
-fi
-
-# Load the config files for any default variable assignments.
-for at_file in atconfig atlocal
-do
- test -r $at_file || continue
- . ./$at_file || as_fn_error $? "invalid content: $at_file"
-done
-
-# Autoconf <=2.59b set at_top_builddir instead of at_top_build_prefix:
-: "${at_top_build_prefix=$at_top_builddir}"
-
-# Perform any assignments requested during argument parsing.
-eval "$at_debug_args"
-
-# atconfig delivers names relative to the directory the test suite is
-# in, but the groups themselves are run in testsuite-dir/group-dir.
-if test -n "$at_top_srcdir"; then
- builddir=../..
- for at_dir_var in srcdir top_srcdir top_build_prefix
- do
- eval at_val=\$at_$at_dir_var
- case $at_val in
- [\\/$]* | ?:[\\/]* ) at_prefix= ;;
- *) at_prefix=../../ ;;
- esac
- eval "$at_dir_var=\$at_prefix\$at_val"
- done
-fi
-
-## -------------------- ##
-## Directory structure. ##
-## -------------------- ##
-
-# This is the set of directories and files used by this script
-# (non-literals are capitalized):
-#
-# TESTSUITE - the testsuite
-# TESTSUITE.log - summarizes the complete testsuite run
-# TESTSUITE.dir/ - created during a run, remains after -d or failed test
-# + at-groups/ - during a run: status of all groups in run
-# | + NNN/ - during a run: meta-data about test group NNN
-# | | + check-line - location (source file and line) of current AT_CHECK
-# | | + status - exit status of current AT_CHECK
-# | | + stdout - stdout of current AT_CHECK
-# | | + stder1 - stderr, including trace
-# | | + stderr - stderr, with trace filtered out
-# | | + test-source - portion of testsuite that defines group
-# | | + times - timestamps for computing duration
-# | | + pass - created if group passed
-# | | + xpass - created if group xpassed
-# | | + fail - created if group failed
-# | | + xfail - created if group xfailed
-# | | + skip - created if group skipped
-# + at-stop - during a run: end the run if this file exists
-# + at-source-lines - during a run: cache of TESTSUITE line numbers for extraction
-# + 0..NNN/ - created for each group NNN, remains after -d or failed test
-# | + TESTSUITE.log - summarizes the group results
-# | + ... - files created during the group
-
-# The directory the whole suite works in.
-# Should be absolute to let the user `cd' at will.
-at_suite_dir=$at_dir/$as_me.dir
-# The file containing the suite ($at_dir might have changed since earlier).
-at_suite_log=$at_dir/$as_me.log
-# The directory containing helper files per test group.
-at_helper_dir=$at_suite_dir/at-groups
-# Stop file: if it exists, do not start new jobs.
-at_stop_file=$at_suite_dir/at-stop
-# The fifo used for the job dispatcher.
-at_job_fifo=$at_suite_dir/at-job-fifo
-
-if $at_clean; then
- test -d "$at_suite_dir" &&
- find "$at_suite_dir" -type d ! -perm -700 -exec chmod u+rwx \{\} \;
- rm -f -r "$at_suite_dir" "$at_suite_log"
- exit $?
-fi
-
-# Don't take risks: use only absolute directories in PATH.
-#
-# For stand-alone test suites (ie. atconfig was not found),
-# AUTOTEST_PATH is relative to `.'.
-#
-# For embedded test suites, AUTOTEST_PATH is relative to the top level
-# of the package. Then expand it into build/src parts, since users
-# may create executables in both places.
-AUTOTEST_PATH=`printf "%s\n" "$AUTOTEST_PATH" | sed "s|:|$PATH_SEPARATOR|g"`
-at_path=
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $AUTOTEST_PATH $PATH
-do
- IFS=$as_save_IFS
- case $as_dir in #(((
- '') as_dir=./ ;;
- */) ;;
- *) as_dir=$as_dir/ ;;
- esac
- test -n "$at_path" && as_fn_append at_path $PATH_SEPARATOR
-case $as_dir in
- [\\/]* | ?:[\\/]* )
- as_fn_append at_path "$as_dir"
- ;;
- * )
- if test -z "$at_top_build_prefix"; then
- # Stand-alone test suite.
- as_fn_append at_path "$as_dir"
- else
- # Embedded test suite.
- as_fn_append at_path "$at_top_build_prefix$as_dir$PATH_SEPARATOR"
- as_fn_append at_path "$at_top_srcdir/$as_dir"
- fi
- ;;
-esac
- done
-IFS=$as_save_IFS
-
-
-# Now build and simplify PATH.
-#
-# There might be directories that don't exist, but don't redirect
-# builtins' (eg., cd) stderr directly: Ultrix's sh hates that.
-at_new_path=
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $at_path
-do
- IFS=$as_save_IFS
- case $as_dir in #(((
- '') as_dir=./ ;;
- */) ;;
- *) as_dir=$as_dir/ ;;
- esac
- test -d "$as_dir" || continue
-case $as_dir in
- [\\/]* | ?:[\\/]* ) ;;
- * ) as_dir=`(cd "$as_dir" && pwd) 2>/dev/null` ;;
-esac
-case $PATH_SEPARATOR$at_new_path$PATH_SEPARATOR in
- *$PATH_SEPARATOR$as_dir$PATH_SEPARATOR*) ;;
- $PATH_SEPARATOR$PATH_SEPARATOR) at_new_path=$as_dir ;;
- *) as_fn_append at_new_path "$PATH_SEPARATOR$as_dir" ;;
-esac
- done
-IFS=$as_save_IFS
-
-PATH=$at_new_path
-export PATH
-
-# Setting up the FDs.
-
-
-
-# 5 is the log file. Not to be overwritten if `-d'.
-if $at_debug_p; then
- at_suite_log=/dev/null
-else
- : >"$at_suite_log"
-fi
-exec 5>>"$at_suite_log"
-
-# Banners and logs.
-printf "%s\n" "## ---------------------------------------- ##
-## GnuCOBOL 3.2 test suite: GnuCOBOL Tests. ##
-## ---------------------------------------- ##"
-{
- printf "%s\n" "## ---------------------------------------- ##
-## GnuCOBOL 3.2 test suite: GnuCOBOL Tests. ##
-## ---------------------------------------- ##"
- echo
-
- printf "%s\n" "$as_me: command line was:"
- printf "%s\n" " \$ $0 $at_cli_args"
- echo
-
- # If ChangeLog exists, list a few lines in case it might help determining
- # the exact version.
- if test -n "$at_top_srcdir" && test -f "$at_top_srcdir/ChangeLog"; then
- printf "%s\n" "## ---------- ##
-## ChangeLog. ##
-## ---------- ##"
- echo
- sed 's/^/| /;10q' "$at_top_srcdir/ChangeLog"
- echo
- fi
-
- {
-cat <<_ASUNAME
-## --------- ##
-## Platform. ##
-## --------- ##
-
-hostname = `(hostname || uname -n) 2>/dev/null | sed 1q`
-uname -m = `(uname -m) 2>/dev/null || echo unknown`
-uname -r = `(uname -r) 2>/dev/null || echo unknown`
-uname -s = `(uname -s) 2>/dev/null || echo unknown`
-uname -v = `(uname -v) 2>/dev/null || echo unknown`
-
-/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown`
-/bin/uname -X = `(/bin/uname -X) 2>/dev/null || echo unknown`
-
-/bin/arch = `(/bin/arch) 2>/dev/null || echo unknown`
-/usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown`
-/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown`
-/usr/bin/hostinfo = `(/usr/bin/hostinfo) 2>/dev/null || echo unknown`
-/bin/machine = `(/bin/machine) 2>/dev/null || echo unknown`
-/usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown`
-/bin/universe = `(/bin/universe) 2>/dev/null || echo unknown`
-
-_ASUNAME
-
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- case $as_dir in #(((
- '') as_dir=./ ;;
- */) ;;
- *) as_dir=$as_dir/ ;;
- esac
- printf "%s\n" "PATH: $as_dir"
- done
-IFS=$as_save_IFS
-
-}
- echo
-
- # Contents of the config files.
- for at_file in atconfig atlocal
- do
- test -r $at_file || continue
- printf "%s\n" "$as_me: $at_file:"
- sed 's/^/| /' $at_file
- echo
- done
-} >&5
-
-
-## ------------------------- ##
-## Autotest shell functions. ##
-## ------------------------- ##
-
-# at_fn_banner NUMBER
-# -------------------
-# Output banner NUMBER, provided the testsuite is running multiple groups and
-# this particular banner has not yet been printed.
-at_fn_banner ()
-{
- $at_print_banners || return 0
- eval at_banner_text=\$at_banner_text_$1
- test "x$at_banner_text" = "x " && return 0
- eval "at_banner_text_$1=\" \""
- if test -z "$at_banner_text"; then
- $at_first || echo
- else
- printf "%s\n" "$as_nl$at_banner_text$as_nl"
- fi
-} # at_fn_banner
-
-# at_fn_check_prepare_notrace REASON LINE
-# ---------------------------------------
-# Perform AT_CHECK preparations for the command at LINE for an untraceable
-# command; REASON is the reason for disabling tracing.
-at_fn_check_prepare_notrace ()
-{
- $at_trace_echo "Not enabling shell tracing (command contains $1)"
- printf "%s\n" "$2" >"$at_check_line_file"
- at_check_trace=: at_check_filter=:
- : >"$at_stdout"; : >"$at_stderr"
-}
-
-# at_fn_check_prepare_trace LINE
-# ------------------------------
-# Perform AT_CHECK preparations for the command at LINE for a traceable
-# command.
-at_fn_check_prepare_trace ()
-{
- printf "%s\n" "$1" >"$at_check_line_file"
- at_check_trace=$at_traceon at_check_filter=$at_check_filter_trace
- : >"$at_stdout"; : >"$at_stderr"
-}
-
-# at_fn_check_prepare_dynamic COMMAND LINE
-# ----------------------------------------
-# Decide if COMMAND at LINE is traceable at runtime, and call the appropriate
-# preparation function.
-at_fn_check_prepare_dynamic ()
-{
- case $1 in
- *$as_nl*)
- at_fn_check_prepare_notrace 'an embedded newline' "$2" ;;
- *)
- at_fn_check_prepare_trace "$2" ;;
- esac
-}
-
-# at_fn_filter_trace
-# ------------------
-# Remove the lines in the file "$at_stderr" generated by "set -x" and print
-# them to stderr.
-at_fn_filter_trace ()
-{
- mv "$at_stderr" "$at_stder1"
- grep '^ *+' "$at_stder1" >&2
- grep -v '^ *+' "$at_stder1" >"$at_stderr"
-}
-
-# at_fn_log_failure FILE-LIST
-# ---------------------------
-# Copy the files in the list on stdout with a "> " prefix, and exit the shell
-# with a failure exit code.
-at_fn_log_failure ()
-{
- for file
- do printf "%s\n" "$file:"; sed 's/^/> /' "$file"; done
- echo 1 > "$at_status_file"
- exit 1
-}
-
-# at_fn_check_skip EXIT-CODE LINE
-# -------------------------------
-# Check whether EXIT-CODE is a special exit code (77 or 99), and if so exit
-# the test group subshell with that same exit code. Use LINE in any report
-# about test failure.
-at_fn_check_skip ()
-{
- case $1 in
- 99) echo 99 > "$at_status_file"; at_failed=:
- printf "%s\n" "$2: hard failure"; exit 99;;
- 77) echo 77 > "$at_status_file"; exit 77;;
- esac
-}
-
-# at_fn_check_status EXPECTED EXIT-CODE LINE
-# ------------------------------------------
-# Check whether EXIT-CODE is the EXPECTED exit code, and if so do nothing.
-# Otherwise, if it is 77 or 99, exit the test group subshell with that same
-# exit code; if it is anything else print an error message referring to LINE,
-# and fail the test.
-at_fn_check_status ()
-{
- case $2 in
- $1 ) ;;
- 77) echo 77 > "$at_status_file"; exit 77;;
- 99) echo 99 > "$at_status_file"; at_failed=:
- printf "%s\n" "$3: hard failure"; exit 99;;
- *) printf "%s\n" "$3: exit code was $2, expected $1"
- at_failed=:;;
- esac
-}
-
-# at_fn_diff_devnull FILE
-# -----------------------
-# Emit a diff between /dev/null and FILE. Uses "test -s" to avoid useless diff
-# invocations.
-at_fn_diff_devnull ()
-{
- test -s "$1" || return 0
- $at_diff "$at_devnull" "$1"
-}
-
-# at_fn_test NUMBER
-# -----------------
-# Parse out test NUMBER from the tail of this file.
-at_fn_test ()
-{
- eval at_sed=\$at_sed$1
- sed "$at_sed" "$at_myself" > "$at_test_source"
-}
-
-# at_fn_create_debugging_script
-# -----------------------------
-# Create the debugging script $at_group_dir/run which will reproduce the
-# current test group.
-at_fn_create_debugging_script ()
-{
- {
- echo "#! /bin/sh" &&
- echo 'test ${ZSH_VERSION+y} && alias -g '\''${1+"$@"}'\''='\''"$@"'\''' &&
- printf "%s\n" "cd '$at_dir'" &&
- printf "%s\n" "exec \${CONFIG_SHELL-$SHELL} \"$at_myself\" -v -d $at_debug_args $at_group \${1+\"\$@\"}" &&
- echo 'exit 1'
- } >"$at_group_dir/run" &&
- chmod +x "$at_group_dir/run"
-}
-
-## -------------------------------- ##
-## End of autotest shell functions. ##
-## -------------------------------- ##
-{
- printf "%s\n" "## ---------------- ##
-## Tested programs. ##
-## ---------------- ##"
- echo
-} >&5
-
-# Report what programs are being tested.
-for at_program in : `eval echo $at_tested`
-do
- case $at_program in #(
- :) :
- continue ;; #(
- [\\/]* | ?:[\\/]*) :
- at_program_=$at_program ;; #(
- *) :
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- case $as_dir in #(((
- '') as_dir=./ ;;
- */) ;;
- *) as_dir=$as_dir/ ;;
- esac
- test -f "$as_dir$at_program" && break
- done
-IFS=$as_save_IFS
-
- at_program_=$as_dir$at_program ;;
-esac
-
- if test -f "$at_program_"; then
- {
- printf "%s\n" "$at_srcdir/testsuite.at:26: $at_program_ --version"
- "$at_program_" --version </dev/null
- echo
- } >&5 2>&1
- else
- as_fn_error $? "cannot find $at_program" "$LINENO" 5
- fi
-done
-
-{
- printf "%s\n" "## ------------------ ##
-## Running the tests. ##
-## ------------------ ##"
-} >&5
-
-at_start_date=`date`
-at_start_time=`date +%s 2>/dev/null`
-printf "%s\n" "$as_me: starting at: $at_start_date" >&5
-
-# Create the master directory if it doesn't already exist.
-as_dir="$at_suite_dir"; as_fn_mkdir_p ||
- as_fn_error $? "cannot create \`$at_suite_dir'" "$LINENO" 5
-
-# Can we diff with `/dev/null'? DU 5.0 refuses.
-if diff /dev/null /dev/null >/dev/null 2>&1; then
- at_devnull=/dev/null
-else
- at_devnull=$at_suite_dir/devnull
- >"$at_devnull"
-fi
-
-# Use `diff -u' when possible.
-if at_diff=`diff -u "$at_devnull" "$at_devnull" 2>&1` && test -z "$at_diff"
-then
- at_diff='diff -u'
-else
- at_diff=diff
-fi
-
-# Get the last needed group.
-for at_group in : $at_groups; do :; done
-
-# Extract the start and end lines of each test group at the tail
-# of this file
-awk '
-BEGIN { FS="" }
-/^#AT_START_/ {
- start = NR
-}
-/^#AT_STOP_/ {
- test = substr ($ 0, 10)
- print "at_sed" test "=\"1," start "d;" (NR-1) "q\""
- if (test == "'"$at_group"'") exit
-}' "$at_myself" > "$at_suite_dir/at-source-lines" &&
-. "$at_suite_dir/at-source-lines" ||
- as_fn_error $? "cannot create test line number cache" "$LINENO" 5
-rm -f "$at_suite_dir/at-source-lines"
-
-# Set number of jobs for `-j'; avoid more jobs than test groups.
-set X $at_groups; shift; at_max_jobs=$#
-if test $at_max_jobs -eq 0; then
- at_jobs=1
-fi
-if test $at_jobs -ne 1 &&
- { test $at_jobs -eq 0 || test $at_jobs -gt $at_max_jobs; }; then
- at_jobs=$at_max_jobs
-fi
-
-# If parallel mode, don't output banners, don't split summary lines.
-if test $at_jobs -ne 1; then
- at_print_banners=false
- at_quiet=:
-fi
-
-# Set up helper dirs.
-rm -rf "$at_helper_dir" &&
-mkdir "$at_helper_dir" &&
-cd "$at_helper_dir" &&
-{ test -z "$at_groups" || mkdir $at_groups; } ||
-as_fn_error $? "testsuite directory setup failed" "$LINENO" 5
-
-# Functions for running a test group. We leave the actual
-# test group execution outside of a shell function in order
-# to avoid hitting zsh 4.x exit status bugs.
-
-# at_fn_group_prepare
-# -------------------
-# Prepare for running a test group.
-at_fn_group_prepare ()
-{
- # The directory for additional per-group helper files.
- at_job_dir=$at_helper_dir/$at_group
- # The file containing the location of the last AT_CHECK.
- at_check_line_file=$at_job_dir/check-line
- # The file containing the exit status of the last command.
- at_status_file=$at_job_dir/status
- # The files containing the output of the tested commands.
- at_stdout=$at_job_dir/stdout
- at_stder1=$at_job_dir/stder1
- at_stderr=$at_job_dir/stderr
- # The file containing the code for a test group.
- at_test_source=$at_job_dir/test-source
- # The file containing dates.
- at_times_file=$at_job_dir/times
-
- # Be sure to come back to the top test directory.
- cd "$at_suite_dir"
-
- # Clearly separate the test groups when verbose.
- $at_first || $at_verbose echo
-
- at_group_normalized=$at_group
-
- eval 'while :; do
- case $at_group_normalized in #(
- '"$at_format"'*) break;;
- esac
- at_group_normalized=0$at_group_normalized
- done'
-
-
- # Create a fresh directory for the next test group, and enter.
- # If one already exists, the user may have invoked ./run from
- # within that directory; we remove the contents, but not the
- # directory itself, so that we aren't pulling the rug out from
- # under the shell's notion of the current directory.
- at_group_dir=$at_suite_dir/$at_group_normalized
- at_group_log=$at_group_dir/$as_me.log
- if test -d "$at_group_dir"
-then
- find "$at_group_dir" -type d ! -perm -700 -exec chmod u+rwx {} \;
- rm -fr "$at_group_dir"/* "$at_group_dir"/.[!.] "$at_group_dir"/.??*
-fi ||
- { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: test directory for $at_group_normalized could not be cleaned" >&5
-printf "%s\n" "$as_me: WARNING: test directory for $at_group_normalized could not be cleaned" >&2;}
- # Be tolerant if the above `rm' was not able to remove the directory.
- as_dir="$at_group_dir"; as_fn_mkdir_p
-
- echo 0 > "$at_status_file"
-
- # In verbose mode, append to the log file *and* show on
- # the standard output; in quiet mode only write to the log.
- if test -z "$at_verbose"; then
- at_tee_pipe='tee -a "$at_group_log"'
- else
- at_tee_pipe='cat >> "$at_group_log"'
- fi
-}
-
-# at_fn_group_banner ORDINAL LINE DESC PAD [BANNER]
-# -------------------------------------------------
-# Declare the test group ORDINAL, located at LINE with group description DESC,
-# and residing under BANNER. Use PAD to align the status column.
-at_fn_group_banner ()
-{
- at_setup_line="$2"
- test -n "$5" && at_fn_banner $5
- at_desc="$3"
- case $1 in
- [0-9]) at_desc_line=" $1: ";;
- [0-9][0-9]) at_desc_line=" $1: " ;;
- *) at_desc_line="$1: " ;;
- esac
- as_fn_append at_desc_line "$3$4"
- $at_quiet printf %s "$at_desc_line"
- echo "# -*- compilation -*-" >> "$at_group_log"
-}
-
-# at_fn_group_postprocess
-# -----------------------
-# Perform cleanup after running a test group.
-at_fn_group_postprocess ()
-{
- # Be sure to come back to the suite directory, in particular
- # since below we might `rm' the group directory we are in currently.
- cd "$at_suite_dir"
-
- if test ! -f "$at_check_line_file"; then
- sed "s/^ */$as_me: WARNING: /" <<_ATEOF
- A failure happened in a test group before any test could be
- run. This means that test suite is improperly designed. Please
- report this failure to <bug-gnucobol@gnu.org>.
-_ATEOF
- printf "%s\n" "$at_setup_line" >"$at_check_line_file"
- at_status=99
- fi
- $at_verbose printf %s "$at_group. $at_setup_line: "
- printf %s "$at_group. $at_setup_line: " >> "$at_group_log"
- case $at_xfail:$at_status in
- yes:0)
- at_msg="UNEXPECTED PASS"
- at_res=xpass
- at_errexit=$at_errexit_p
- at_color=$at_red
- ;;
- no:0)
- at_msg="ok"
- at_res=pass
- at_errexit=false
- at_color=$at_grn
- ;;
- *:77)
- at_msg='skipped ('`cat "$at_check_line_file"`')'
- at_res=skip
- at_errexit=false
- at_color=$at_blu
- ;;
- no:* | *:99)
- at_msg='FAILED ('`cat "$at_check_line_file"`')'
- at_res=fail
- at_errexit=$at_errexit_p
- at_color=$at_red
- ;;
- yes:*)
- at_msg='expected failure ('`cat "$at_check_line_file"`')'
- at_res=xfail
- at_errexit=false
- at_color=$at_lgn
- ;;
- esac
- echo "$at_res" > "$at_job_dir/$at_res"
- # In parallel mode, output the summary line only afterwards.
- if test $at_jobs -ne 1 && test -n "$at_verbose"; then
- printf "%s\n" "$at_desc_line $at_color$at_msg$at_std"
- else
- # Make sure there is a separator even with long titles.
- printf "%s\n" " $at_color$at_msg$at_std"
- fi
- at_log_msg="$at_group. $at_desc ($at_setup_line): $at_msg"
- case $at_status in
- 0|77)
- # $at_times_file is only available if the group succeeded.
- # We're not including the group log, so the success message
- # is written in the global log separately. But we also
- # write to the group log in case they're using -d.
- if test -f "$at_times_file"; then
- at_log_msg="$at_log_msg ("`sed 1d "$at_times_file"`')'
- rm -f "$at_times_file"
- fi
- printf "%s\n" "$at_log_msg" >> "$at_group_log"
- printf "%s\n" "$at_log_msg" >&5
-
- # Cleanup the group directory, unless the user wants the files
- # or the success was unexpected.
- if $at_debug_p || test $at_res = xpass; then
- at_fn_create_debugging_script
- if test $at_res = xpass && $at_errexit; then
- echo stop > "$at_stop_file"
- fi
- else
- if test -d "$at_group_dir"; then
- find "$at_group_dir" -type d ! -perm -700 -exec chmod u+rwx \{\} \;
- rm -fr "$at_group_dir"
- fi
- rm -f "$at_test_source"
- fi
- ;;
- *)
- # Upon failure, include the log into the testsuite's global
- # log. The failure message is written in the group log. It
- # is later included in the global log.
- printf "%s\n" "$at_log_msg" >> "$at_group_log"
-
- # Upon failure, keep the group directory for autopsy, and create
- # the debugging script. With -e, do not start any further tests.
- at_fn_create_debugging_script
- if $at_errexit; then
- echo stop > "$at_stop_file"
- fi
- ;;
- esac
-}
-
-
-## ------------ ##
-## Driver loop. ##
-## ------------ ##
-
-
-if (set -m && set +m && set +b) >/dev/null 2>&1; then
- set +b
- at_job_control_on='set -m' at_job_control_off='set +m' at_job_group=-
-else
- at_job_control_on=: at_job_control_off=: at_job_group=
-fi
-
-for at_signal in 1 2 15; do
- trap 'set +x; set +e
- $at_job_control_off
- at_signal='"$at_signal"'
- echo stop > "$at_stop_file"
- trap "" $at_signal
- at_pgids=
- for at_pgid in `jobs -p 2>/dev/null`; do
- at_pgids="$at_pgids $at_job_group$at_pgid"
- done
- test -z "$at_pgids" || kill -$at_signal $at_pgids 2>/dev/null
- wait
- if test "$at_jobs" -eq 1 || test -z "$at_verbose"; then
- echo >&2
- fi
- at_signame=`kill -l $at_signal 2>&1 || echo $at_signal`
- set x $at_signame
- test 1 -gt 2 && at_signame=$at_signal
- { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: caught signal $at_signame, bailing out" >&5
-printf "%s\n" "$as_me: WARNING: caught signal $at_signame, bailing out" >&2;}
- as_fn_arith 128 + $at_signal && exit_status=$as_val
- as_fn_exit $exit_status' $at_signal
-done
-
-rm -f "$at_stop_file"
-at_first=:
-
-if test $at_jobs -ne 1 &&
- rm -f "$at_job_fifo" &&
- test -n "$at_job_group" &&
- ( mkfifo "$at_job_fifo" && trap 'exit 1' PIPE STOP TSTP ) 2>/dev/null
-then
- # FIFO job dispatcher.
-
- trap 'at_pids=
- for at_pid in `jobs -p`; do
- at_pids="$at_pids $at_job_group$at_pid"
- done
- if test -n "$at_pids"; then
- at_sig=TSTP
- test ${TMOUT+y} && at_sig=STOP
- kill -$at_sig $at_pids 2>/dev/null
- fi
- kill -STOP $$
- test -z "$at_pids" || kill -CONT $at_pids 2>/dev/null' TSTP
-
- echo
- # Turn jobs into a list of numbers, starting from 1.
- at_joblist=`printf "%s\n" "$at_groups" | sed -n 1,${at_jobs}p`
-
- set X $at_joblist
- shift
- for at_group in $at_groups; do
- $at_job_control_on 2>/dev/null
- (
- # Start one test group.
- $at_job_control_off
- if $at_first; then
- exec 7>"$at_job_fifo"
- else
- exec 6<&-
- fi
- trap 'set +x; set +e
- trap "" PIPE
- echo stop > "$at_stop_file"
- echo >&7
- as_fn_exit 141' PIPE
- at_fn_group_prepare
- if cd "$at_group_dir" &&
- at_fn_test $at_group &&
- . "$at_test_source"
- then :; else
- { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: unable to parse test group: $at_group" >&5
-printf "%s\n" "$as_me: WARNING: unable to parse test group: $at_group" >&2;}
- at_failed=:
- fi
- at_fn_group_postprocess
- echo >&7
- ) &
- $at_job_control_off
- if $at_first; then
- at_first=false
- exec 6<"$at_job_fifo" 7>"$at_job_fifo"
- fi
- shift # Consume one token.
- if test $# -gt 0; then :; else
- read at_token <&6 || break
- set x $*
- fi
- test -f "$at_stop_file" && break
- done
- exec 7>&-
- # Read back the remaining ($at_jobs - 1) tokens.
- set X $at_joblist
- shift
- if test $# -gt 0; then
- shift
- for at_job
- do
- read at_token
- done <&6
- fi
- exec 6<&-
- wait
-else
- # Run serially, avoid forks and other potential surprises.
- for at_group in $at_groups; do
- at_fn_group_prepare
- if cd "$at_group_dir" &&
- at_fn_test $at_group &&
- . "$at_test_source"; then :; else
- { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: unable to parse test group: $at_group" >&5
-printf "%s\n" "$as_me: WARNING: unable to parse test group: $at_group" >&2;}
- at_failed=:
- fi
- at_fn_group_postprocess
- test -f "$at_stop_file" && break
- at_first=false
- done
-fi
-
-# Wrap up the test suite with summary statistics.
-cd "$at_helper_dir"
-
-# Use ?..???? when the list must remain sorted, the faster * otherwise.
-at_pass_list=`for f in */pass; do echo $f; done | sed '/\*/d; s,/pass,,'`
-at_skip_list=`for f in */skip; do echo $f; done | sed '/\*/d; s,/skip,,'`
-at_xfail_list=`for f in */xfail; do echo $f; done | sed '/\*/d; s,/xfail,,'`
-at_xpass_list=`for f in ?/xpass ??/xpass ???/xpass ????/xpass; do
- echo $f; done | sed '/?/d; s,/xpass,,'`
-at_fail_list=`for f in ?/fail ??/fail ???/fail ????/fail; do
- echo $f; done | sed '/?/d; s,/fail,,'`
-
-set X $at_pass_list $at_xpass_list $at_xfail_list $at_fail_list $at_skip_list
-shift; at_group_count=$#
-set X $at_xpass_list; shift; at_xpass_count=$#; at_xpass_list=$*
-set X $at_xfail_list; shift; at_xfail_count=$#
-set X $at_fail_list; shift; at_fail_count=$#; at_fail_list=$*
-set X $at_skip_list; shift; at_skip_count=$#
-
-as_fn_arith $at_group_count - $at_skip_count && at_run_count=$as_val
-as_fn_arith $at_xpass_count + $at_fail_count && at_unexpected_count=$as_val
-as_fn_arith $at_xfail_count + $at_fail_count && at_total_fail_count=$as_val
-
-# Back to the top directory.
-cd "$at_dir"
-rm -rf "$at_helper_dir"
-
-# Compute the duration of the suite.
-at_stop_date=`date`
-at_stop_time=`date +%s 2>/dev/null`
-printf "%s\n" "$as_me: ending at: $at_stop_date" >&5
-case $at_start_time,$at_stop_time in
- [0-9]*,[0-9]*)
- as_fn_arith $at_stop_time - $at_start_time && at_duration_s=$as_val
- as_fn_arith $at_duration_s / 60 && at_duration_m=$as_val
- as_fn_arith $at_duration_m / 60 && at_duration_h=$as_val
- as_fn_arith $at_duration_s % 60 && at_duration_s=$as_val
- as_fn_arith $at_duration_m % 60 && at_duration_m=$as_val
- at_duration="${at_duration_h}h ${at_duration_m}m ${at_duration_s}s"
- printf "%s\n" "$as_me: test suite duration: $at_duration" >&5
- ;;
-esac
-
-echo
-printf "%s\n" "## ------------- ##
-## Test results. ##
-## ------------- ##"
-echo
-{
- echo
- printf "%s\n" "## ------------- ##
-## Test results. ##
-## ------------- ##"
- echo
-} >&5
-
-if test $at_run_count = 1; then
- at_result="1 test"
- at_were=was
-else
- at_result="$at_run_count tests"
- at_were=were
-fi
-if $at_errexit_p && test $at_unexpected_count != 0; then
- if test $at_xpass_count = 1; then
- at_result="$at_result $at_were run, one passed"
- else
- at_result="$at_result $at_were run, one failed"
- fi
- at_result="$at_result unexpectedly and inhibited subsequent tests."
- at_color=$at_red
-else
- # Don't you just love exponential explosion of the number of cases?
- at_color=$at_red
- case $at_xpass_count:$at_fail_count:$at_xfail_count in
- # So far, so good.
- 0:0:0) at_result="$at_result $at_were successful." at_color=$at_grn ;;
- 0:0:*) at_result="$at_result behaved as expected." at_color=$at_lgn ;;
-
- # Some unexpected failures
- 0:*:0) at_result="$at_result $at_were run,
-$at_fail_count failed unexpectedly." ;;
-
- # Some failures, both expected and unexpected
- 0:*:1) at_result="$at_result $at_were run,
-$at_total_fail_count failed ($at_xfail_count expected failure)." ;;
- 0:*:*) at_result="$at_result $at_were run,
-$at_total_fail_count failed ($at_xfail_count expected failures)." ;;
-
- # No unexpected failures, but some xpasses
- *:0:*) at_result="$at_result $at_were run,
-$at_xpass_count passed unexpectedly." ;;
-
- # No expected failures, but failures and xpasses
- *:1:0) at_result="$at_result $at_were run,
-$at_unexpected_count did not behave as expected ($at_fail_count unexpected failure)." ;;
- *:*:0) at_result="$at_result $at_were run,
-$at_unexpected_count did not behave as expected ($at_fail_count unexpected failures)." ;;
-
- # All of them.
- *:*:1) at_result="$at_result $at_were run,
-$at_xpass_count passed unexpectedly,
-$at_total_fail_count failed ($at_xfail_count expected failure)." ;;
- *:*:*) at_result="$at_result $at_were run,
-$at_xpass_count passed unexpectedly,
-$at_total_fail_count failed ($at_xfail_count expected failures)." ;;
- esac
-
- if test $at_skip_count = 0 && test $at_run_count -gt 1; then
- at_result="All $at_result"
- fi
-fi
-
-# Now put skips in the mix.
-case $at_skip_count in
- 0) ;;
- 1) at_result="$at_result
-1 test was skipped." ;;
- *) at_result="$at_result
-$at_skip_count tests were skipped." ;;
-esac
-
-if test $at_unexpected_count = 0; then
- echo "$at_color$at_result$at_std"
- echo "$at_result" >&5
-else
- echo "${at_color}ERROR: $at_result$at_std" >&2
- echo "ERROR: $at_result" >&5
- {
- echo
- printf "%s\n" "## ------------------------ ##
-## Summary of the failures. ##
-## ------------------------ ##"
-
- # Summary of failed and skipped tests.
- if test $at_fail_count != 0; then
- echo "Failed tests:"
- $SHELL "$at_myself" $at_fail_list --list
- echo
- fi
- if test $at_skip_count != 0; then
- echo "Skipped tests:"
- $SHELL "$at_myself" $at_skip_list --list
- echo
- fi
- if test $at_xpass_count != 0; then
- echo "Unexpected passes:"
- $SHELL "$at_myself" $at_xpass_list --list
- echo
- fi
- if test $at_fail_count != 0; then
- printf "%s\n" "## ---------------------- ##
-## Detailed failed tests. ##
-## ---------------------- ##"
- echo
- for at_group in $at_fail_list
- do
- at_group_normalized=$at_group
-
- eval 'while :; do
- case $at_group_normalized in #(
- '"$at_format"'*) break;;
- esac
- at_group_normalized=0$at_group_normalized
- done'
-
- cat "$at_suite_dir/$at_group_normalized/$as_me.log"
- echo
- done
- echo
- fi
- if test -n "$at_top_srcdir"; then
- sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX
-## ${at_top_build_prefix}config.log ##
-_ASBOX
- sed 's/^/| /' ${at_top_build_prefix}config.log
- echo
- fi
- } >&5
-
- sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX
-## $as_me.log was created. ##
-_ASBOX
-
- echo
- if $at_debug_p; then
- at_msg='per-test log files'
- else
- at_msg="\`${at_testdir+${at_testdir}/}$as_me.log'"
- fi
- at_msg1a=${at_xpass_list:+', '}
- at_msg1=$at_fail_list${at_fail_list:+" failed$at_msg1a"}
- at_msg2=$at_xpass_list${at_xpass_list:+" passed unexpectedly"}
-
- printf "%s\n" "Please send $at_msg and all information you think might help:
-
- To: <bug-gnucobol@gnu.org>
- Subject: [GnuCOBOL 3.2] $as_me: $at_msg1$at_msg2
-
-You may investigate any problem if you feel able to do so, in which
-case the test suite provides a good starting point. Its output may
-be found below \`${at_testdir+${at_testdir}/}$as_me.dir'.
-"
- exit 1
-fi
-
-exit 0
-
-## ------------- ##
-## Actual tests. ##
-## ------------- ##
-#AT_START_1
-at_fn_group_banner 1 'used_binaries.at:27' \
- "compiler help and information" " " 1
-at_xfail=no
-(
- printf "%s\n" "1. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# FIXME: check at least some parts of the output by using $GREP
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:31: \$COBC --version"
-at_fn_check_prepare_dynamic "$COBC --version" "used_binaries.at:31"
-( $at_check_trace; $COBC --version
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:31"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:32: \$COBC -v --version"
-at_fn_check_prepare_dynamic "$COBC -v --version" "used_binaries.at:32"
-( $at_check_trace; $COBC -v --version
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:32"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:33: \$COBC -q --version"
-at_fn_check_prepare_dynamic "$COBC -q --version" "used_binaries.at:33"
-( $at_check_trace; $COBC -q --version
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:33"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:34: \$COBC --help"
-at_fn_check_prepare_dynamic "$COBC --help" "used_binaries.at:34"
-( $at_check_trace; $COBC --help
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:34"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:35: \$COBC --info"
-at_fn_check_prepare_dynamic "$COBC --info" "used_binaries.at:35"
-( $at_check_trace; $COBC --info
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:35"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:36: \$COBC -v --info"
-at_fn_check_prepare_dynamic "$COBC -v --info" "used_binaries.at:36"
-( $at_check_trace; $COBC -v --info
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:36"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:37: \$COBC -q --info"
-at_fn_check_prepare_dynamic "$COBC -q --info" "used_binaries.at:37"
-( $at_check_trace; $COBC -q --info
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:37"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:38: \$COBC --list-reserved"
-at_fn_check_prepare_dynamic "$COBC --list-reserved" "used_binaries.at:38"
-( $at_check_trace; $COBC --list-reserved
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:38"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:39: \$COBC --list-registers"
-at_fn_check_prepare_dynamic "$COBC --list-registers" "used_binaries.at:39"
-( $at_check_trace; $COBC --list-registers
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:39"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:40: \$COBC --list-intrinsics"
-at_fn_check_prepare_dynamic "$COBC --list-intrinsics" "used_binaries.at:40"
-( $at_check_trace; $COBC --list-intrinsics
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:40"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:41: \$COBC --list-mnemonics"
-at_fn_check_prepare_dynamic "$COBC --list-mnemonics" "used_binaries.at:41"
-( $at_check_trace; $COBC --list-mnemonics
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:41"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:42: \$COBC -std=mf --list-reserved"
-at_fn_check_prepare_dynamic "$COBC -std=mf --list-reserved" "used_binaries.at:42"
-( $at_check_trace; $COBC -std=mf --list-reserved
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:42"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:43: \$COBC -std=acu --list-registers"
-at_fn_check_prepare_dynamic "$COBC -std=acu --list-registers" "used_binaries.at:43"
-( $at_check_trace; $COBC -std=acu --list-registers
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:43"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:44: \$COBC -std=cobol2002 --list-intrinsics"
-at_fn_check_prepare_dynamic "$COBC -std=cobol2002 --list-intrinsics" "used_binaries.at:44"
-( $at_check_trace; $COBC -std=cobol2002 --list-intrinsics
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:44"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:45: \$COBC -std=ibm --list-mnemonics"
-at_fn_check_prepare_dynamic "$COBC -std=ibm --list-mnemonics" "used_binaries.at:45"
-( $at_check_trace; $COBC -std=ibm --list-mnemonics
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:45"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:46: \$COBC --list-system"
-at_fn_check_prepare_dynamic "$COBC --list-system" "used_binaries.at:46"
-( $at_check_trace; $COBC --list-system
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:46"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:47: \$COBC --list-exceptions"
-at_fn_check_prepare_dynamic "$COBC --list-exceptions" "used_binaries.at:47"
-( $at_check_trace; $COBC --list-exceptions
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:47"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1
-#AT_START_2
-at_fn_group_banner 2 'used_binaries.at:51' \
- "compiler warnings" " " 1
-at_xfail=no
-(
- printf "%s\n" "2. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 var1 pic 9.
- 77 var2 pic 99.
- PROCEDURE DIVISION.
- PERFORM UNTIL 0 = 1
- DISPLAY 'BLA'
- END-PERFORM.
- MOVE var1 to var2
- MOVE var2 to var1
- GOBACK.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:69: \$COBC -fsyntax-only prog.cob"
-at_fn_check_prepare_dynamic "$COBC -fsyntax-only prog.cob" "used_binaries.at:69"
-( $at_check_trace; $COBC -fsyntax-only prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:69"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# increasing to more warnings
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:71: \$COBC -fsyntax-only -fdiagnostics-plain-output -Wadditional prog.cob"
-at_fn_check_prepare_dynamic "$COBC -fsyntax-only -fdiagnostics-plain-output -Wadditional prog.cob" "used_binaries.at:71"
-( $at_check_trace; $COBC -fsyntax-only -fdiagnostics-plain-output -Wadditional prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: warning: PERFORM FOREVER since UNTIL is always FALSE [-Wadditional]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:71"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:74: \$COBC -fsyntax-only -fdiagnostics-plain-output -fno-diagnostics-show-option -Wadditional prog.cob"
-at_fn_check_prepare_dynamic "$COBC -fsyntax-only -fdiagnostics-plain-output -fno-diagnostics-show-option -Wadditional prog.cob" "used_binaries.at:74"
-( $at_check_trace; $COBC -fsyntax-only -fdiagnostics-plain-output -fno-diagnostics-show-option -Wadditional prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: warning: PERFORM FOREVER since UNTIL is always FALSE
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:74"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# which in this case is also included in -Wall
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:78: \$COBC -fsyntax-only -fdiagnostics-plain-output -Wall prog.cob"
-at_fn_check_prepare_dynamic "$COBC -fsyntax-only -fdiagnostics-plain-output -Wall prog.cob" "used_binaries.at:78"
-( $at_check_trace; $COBC -fsyntax-only -fdiagnostics-plain-output -Wall prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: warning: expression '0' EQUALS '1' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:9: warning: PERFORM FOREVER since UNTIL is always FALSE [-Wadditional]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:78"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# -Wextra is more descriptive ...
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:83: \$COBC -fsyntax-only -fdiagnostics-plain-output -Wextra prog.cob"
-at_fn_check_prepare_dynamic "$COBC -fsyntax-only -fdiagnostics-plain-output -Wextra prog.cob" "used_binaries.at:83"
-( $at_check_trace; $COBC -fsyntax-only -fdiagnostics-plain-output -Wextra prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: warning: expression '0' EQUALS '1' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:9: warning: PERFORM FOREVER since UNTIL is always FALSE [-Wadditional]
-prog.cob:10: warning: DISPLAY statement not terminated by END-DISPLAY [-Wterminator]
-prog.cob:13: warning: some digits may be truncated [-Wpossible-truncate]
-prog.cob:7: note: 'var2' defined here as PIC 99 [-Wpossible-truncate]
-prog.cob:6: note: 'var1' defined here as PIC 9 [-Wpossible-truncate]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:83"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# ... the old -W is in for backwards portability
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:92: \$COBC -fsyntax-only -fdiagnostics-plain-output -W prog.cob"
-at_fn_check_prepare_dynamic "$COBC -fsyntax-only -fdiagnostics-plain-output -W prog.cob" "used_binaries.at:92"
-( $at_check_trace; $COBC -fsyntax-only -fdiagnostics-plain-output -W prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: warning: expression '0' EQUALS '1' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:9: warning: PERFORM FOREVER since UNTIL is always FALSE [-Wadditional]
-prog.cob:10: warning: DISPLAY statement not terminated by END-DISPLAY [-Wterminator]
-prog.cob:13: warning: some digits may be truncated [-Wpossible-truncate]
-prog.cob:7: note: 'var2' defined here as PIC 99 [-Wpossible-truncate]
-prog.cob:6: note: 'var1' defined here as PIC 9 [-Wpossible-truncate]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:92"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# a global "error" use implies no warning settings
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:101: \$COBC -fsyntax-only -Werror prog.cob"
-at_fn_check_prepare_dynamic "$COBC -fsyntax-only -Werror prog.cob" "used_binaries.at:101"
-( $at_check_trace; $COBC -fsyntax-only -Werror prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:101"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# a concrete "error" use implies setting the warning
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:103: \$COBC -fsyntax-only -fdiagnostics-plain-output -Werror=additional prog.cob"
-at_fn_check_prepare_dynamic "$COBC -fsyntax-only -fdiagnostics-plain-output -Werror=additional prog.cob" "used_binaries.at:103"
-( $at_check_trace; $COBC -fsyntax-only -fdiagnostics-plain-output -Werror=additional prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: PERFORM FOREVER since UNTIL is always FALSE [-Werror=additional]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/used_binaries.at:103"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:106: \$COBC -fsyntax-only -fdiagnostics-plain-output -fno-diagnostics-show-option -Werror=additional prog.cob"
-at_fn_check_prepare_dynamic "$COBC -fsyntax-only -fdiagnostics-plain-output -fno-diagnostics-show-option -Werror=additional prog.cob" "used_binaries.at:106"
-( $at_check_trace; $COBC -fsyntax-only -fdiagnostics-plain-output -fno-diagnostics-show-option -Werror=additional prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: PERFORM FOREVER since UNTIL is always FALSE
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/used_binaries.at:106"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# a "no-error" use implies nothing
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:110: \$COBC -fsyntax-only -Wno-error=additional prog.cob"
-at_fn_check_prepare_dynamic "$COBC -fsyntax-only -Wno-error=additional prog.cob" "used_binaries.at:110"
-( $at_check_trace; $COBC -fsyntax-only -Wno-error=additional prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:110"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# ... now combined
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:112: \$COBC -fsyntax-only -Werror -Wno-error=additional prog.cob"
-at_fn_check_prepare_dynamic "$COBC -fsyntax-only -Werror -Wno-error=additional prog.cob" "used_binaries.at:112"
-( $at_check_trace; $COBC -fsyntax-only -Werror -Wno-error=additional prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:112"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:113: \$COBC -fsyntax-only -fdiagnostics-plain-output -Werror=additional -Wno-error prog.cob"
-at_fn_check_prepare_dynamic "$COBC -fsyntax-only -fdiagnostics-plain-output -Werror=additional -Wno-error prog.cob" "used_binaries.at:113"
-( $at_check_trace; $COBC -fsyntax-only -fdiagnostics-plain-output -Werror=additional -Wno-error prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: PERFORM FOREVER since UNTIL is always FALSE [-Werror=additional]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/used_binaries.at:113"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:116: \$COBC -fsyntax-only -fdiagnostics-plain-output -w -Werror=additional prog.cob"
-at_fn_check_prepare_dynamic "$COBC -fsyntax-only -fdiagnostics-plain-output -w -Werror=additional prog.cob" "used_binaries.at:116"
-( $at_check_trace; $COBC -fsyntax-only -fdiagnostics-plain-output -w -Werror=additional prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: PERFORM FOREVER since UNTIL is always FALSE [-Werror=additional]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/used_binaries.at:116"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:119: \$COBC -fsyntax-only -fdiagnostics-plain-output -w -Wadditional prog.cob"
-at_fn_check_prepare_dynamic "$COBC -fsyntax-only -fdiagnostics-plain-output -w -Wadditional prog.cob" "used_binaries.at:119"
-( $at_check_trace; $COBC -fsyntax-only -fdiagnostics-plain-output -w -Wadditional prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: warning: PERFORM FOREVER since UNTIL is always FALSE [-Wadditional]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:119"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:122: \$COBC -fsyntax-only -fdiagnostics-plain-output -w -Wpossible-truncate prog.cob"
-at_fn_check_prepare_dynamic "$COBC -fsyntax-only -fdiagnostics-plain-output -w -Wpossible-truncate prog.cob" "used_binaries.at:122"
-( $at_check_trace; $COBC -fsyntax-only -fdiagnostics-plain-output -w -Wpossible-truncate prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:13: warning: some digits may be truncated [-Wpossible-truncate]
-prog.cob:7: note: 'var2' defined here as PIC 99 [-Wpossible-truncate]
-prog.cob:6: note: 'var1' defined here as PIC 9 [-Wpossible-truncate]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:122"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# TODO: unknown warnings should only get a diagnostic (in verbose mode)
-#AT_CHECK([$COBC -fsyntax-only -Wunknown-warning prog.cob], [0], [], [])
-#AT_CHECK([$COBC -fsyntax-only -Wno-unknown-warning prog.cob], [0], [], [])
-#AT_CHECK([$COBC -fsyntax-only -v -Wunknown-warning prog.cob], [0], [],
-#[cobc: unknown warning option 'unknown-warning'
-#])
-#AT_CHECK([$COBC -fsyntax-only -v -Wno-unknown-warning prog.cob], [0], [],
-#[cobc: unknown warning option 'unknown-warning'
-#])
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TEST-VAR PIC 9(2) VALUE 'A'.
- COPY 'CRUD.CPY'.
- PROCEDURE DIVISION.
- DISPLAY TEST-VAR NO ADVANCING
- END-DISPLAY
- MOVE 12 TO TEST-VAR
- DISPLAY TEST-VAR NO ADVANCING
- END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:153: \$COBC -fsyntax-only -fdiagnostics-plain-output -Wall prog2.cob"
-at_fn_check_prepare_dynamic "$COBC -fsyntax-only -fdiagnostics-plain-output -Wall prog2.cob" "used_binaries.at:153"
-( $at_check_trace; $COBC -fsyntax-only -fdiagnostics-plain-output -Wall prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:7: error: CRUD.CPY: No such file or directory
-prog2.cob:6: warning: numeric value is expected [-Wothers]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/used_binaries.at:153"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:158: \$COBC -fsyntax-only -fdiagnostics-plain-output -fmax-errors=0 prog2.cob"
-at_fn_check_prepare_dynamic "$COBC -fsyntax-only -fdiagnostics-plain-output -fmax-errors=0 prog2.cob" "used_binaries.at:158"
-( $at_check_trace; $COBC -fsyntax-only -fdiagnostics-plain-output -fmax-errors=0 prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:7: error: CRUD.CPY: No such file or directory
-cobc: too many errors [-fmax-errors=0]
-
-cobc: aborting compile of prog2.cob at line 7 (unknown: unknown)
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 97 $at_status "$at_srcdir/used_binaries.at:158"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:165: \$COBC -fsyntax-only -fdiagnostics-plain-output -Wfatal-errors prog2.cob"
-at_fn_check_prepare_dynamic "$COBC -fsyntax-only -fdiagnostics-plain-output -Wfatal-errors prog2.cob" "used_binaries.at:165"
-( $at_check_trace; $COBC -fsyntax-only -fdiagnostics-plain-output -Wfatal-errors prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:7: error: CRUD.CPY: No such file or directory
-cobc: too many errors [-Wfatal-errors]
-
-cobc: aborting compile of prog2.cob at line 7 (unknown: unknown)
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 97 $at_status "$at_srcdir/used_binaries.at:165"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:172: \$COBC -q -Wfatal-errors=123 prog.cob"
-at_fn_check_prepare_dynamic "$COBC -q -Wfatal-errors=123 prog.cob" "used_binaries.at:172"
-( $at_check_trace; $COBC -q -Wfatal-errors=123 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "cobc: option '-Wfatal-errors' doesn't allow an argument
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/used_binaries.at:172"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_2
-#AT_START_3
-at_fn_group_banner 3 'used_binaries.at:179' \
- "compiler outputs (general)" " " 1
-at_xfail=no
-(
- printf "%s\n" "3. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 BLA PIC X(5) VALUE 'bluBb'.
- PROCEDURE DIVISION.
- DISPLAY BLA NO ADVANCING END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:193: \$COBC -C prog.cob"
-at_fn_check_prepare_dynamic "$COBC -C prog.cob" "used_binaries.at:193"
-( $at_check_trace; $COBC -C prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:193"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:194: \$COBC -v -c prog.c"
-at_fn_check_prepare_dynamic "$COBC -v -c prog.c" "used_binaries.at:194"
-( $at_check_trace; $COBC -v -c prog.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:194"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:195: \$COBC -v prog.\$COB_OBJECT_EXT"
-at_fn_check_prepare_dynamic "$COBC -v prog.$COB_OBJECT_EXT" "used_binaries.at:195"
-( $at_check_trace; $COBC -v prog.$COB_OBJECT_EXT
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:195"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:196: \$COBCRUN prog"
-at_fn_check_prepare_dynamic "$COBCRUN prog" "used_binaries.at:196"
-( $at_check_trace; $COBCRUN prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "bluBb" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:196"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:197: \$COBC -x -C prog.cob"
-at_fn_check_prepare_dynamic "$COBC -x -C prog.cob" "used_binaries.at:197"
-( $at_check_trace; $COBC -x -C prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:197"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:198: \$COBC -v -x -c prog.c"
-at_fn_check_prepare_dynamic "$COBC -v -x -c prog.c" "used_binaries.at:198"
-( $at_check_trace; $COBC -v -x -c prog.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:198"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:199: \$COBC -v -x prog.\$COB_OBJECT_EXT -o progo"
-at_fn_check_prepare_dynamic "$COBC -v -x prog.$COB_OBJECT_EXT -o progo" "used_binaries.at:199"
-( $at_check_trace; $COBC -v -x prog.$COB_OBJECT_EXT -o progo
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:199"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:200: \$COBCRUN_DIRECT ./progo"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./progo" "used_binaries.at:200"
-( $at_check_trace; $COBCRUN_DIRECT ./progo
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "bluBb" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:200"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:201: \$COBC -E prog.cob"
-at_fn_check_prepare_dynamic "$COBC -E prog.cob" "used_binaries.at:201"
-( $at_check_trace; $COBC -E prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "#line 1 \"prog.cob\"
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 BLA PIC X(5) VALUE 'bluBb'.
- PROCEDURE DIVISION.
- DISPLAY BLA NO ADVANCING END-DISPLAY
- STOP RUN.
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:201"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:213: \$COBC -E -o prog.i prog.cob"
-at_fn_check_prepare_dynamic "$COBC -E -o prog.i prog.cob" "used_binaries.at:213"
-( $at_check_trace; $COBC -E -o prog.i prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:213"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:214: \$COBC -x prog.i"
-at_fn_check_prepare_dynamic "$COBC -x prog.i" "used_binaries.at:214"
-( $at_check_trace; $COBC -x prog.i
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:214"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:215: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "used_binaries.at:215"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "bluBb" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:215"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_3
-#AT_START_4
-at_fn_group_banner 4 'used_binaries.at:219' \
- "compiler outputs (file specified)" " " 1
-at_xfail=no
-(
- printf "%s\n" "4. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 BLA PIC X(5) VALUE 'bluBb'.
- PROCEDURE DIVISION.
- MAIN-PROC SECTION.
- 00.
- COPY PROC.
- END-PROC SECTION.
- COPY PROCE in "sub".
- EX.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:238: mkdir -p sub/copy"
-at_fn_check_prepare_trace "used_binaries.at:238"
-( $at_check_trace; mkdir -p sub/copy
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:238"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >sub/copy/PROC.cpy <<'_ATEOF'
-
- DISPLAY BLA NO ADVANCING.
-_ATEOF
-
-cat >sub/PROCE.cpy <<'_ATEOF'
-
- DISPLAY ' END' NO ADVANCING.
-_ATEOF
-
-
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:250: \$COBC -I sub/copy prog.cob -o prog.c"
-at_fn_check_prepare_dynamic "$COBC -I sub/copy prog.cob -o prog.c" "used_binaries.at:250"
-( $at_check_trace; $COBC -I sub/copy prog.cob -o prog.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:250"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:251: \$COBC -I sub/copy prog.c -o prog.\$COB_OBJECT_EXT"
-at_fn_check_prepare_dynamic "$COBC -I sub/copy prog.c -o prog.$COB_OBJECT_EXT" "used_binaries.at:251"
-( $at_check_trace; $COBC -I sub/copy prog.c -o prog.$COB_OBJECT_EXT
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:251"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:252: \$COBC -I sub/copy prog.\$COB_OBJECT_EXT -o prog.\$COB_MODULE_EXT"
-at_fn_check_prepare_dynamic "$COBC -I sub/copy prog.$COB_OBJECT_EXT -o prog.$COB_MODULE_EXT" "used_binaries.at:252"
-( $at_check_trace; $COBC -I sub/copy prog.$COB_OBJECT_EXT -o prog.$COB_MODULE_EXT
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:252"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:253: \$COBCRUN prog"
-at_fn_check_prepare_dynamic "$COBCRUN prog" "used_binaries.at:253"
-( $at_check_trace; $COBCRUN prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "bluBb END" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:253"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:254: \$COBC -I sub/copy -x prog.cob -o prog.c"
-at_fn_check_prepare_dynamic "$COBC -I sub/copy -x prog.cob -o prog.c" "used_binaries.at:254"
-( $at_check_trace; $COBC -I sub/copy -x prog.cob -o prog.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:254"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:255: \$COBC -I sub/copy -x prog.c -o prog.\$COB_OBJECT_EXT"
-at_fn_check_prepare_dynamic "$COBC -I sub/copy -x prog.c -o prog.$COB_OBJECT_EXT" "used_binaries.at:255"
-( $at_check_trace; $COBC -I sub/copy -x prog.c -o prog.$COB_OBJECT_EXT
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:255"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:256: \$COBC -I sub/copy -x prog.\$COB_OBJECT_EXT -o progo\$COB_EXE_EXT"
-at_fn_check_prepare_dynamic "$COBC -I sub/copy -x prog.$COB_OBJECT_EXT -o progo$COB_EXE_EXT" "used_binaries.at:256"
-( $at_check_trace; $COBC -I sub/copy -x prog.$COB_OBJECT_EXT -o progo$COB_EXE_EXT
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:256"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:257: \$COBCRUN_DIRECT ./progo"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./progo" "used_binaries.at:257"
-( $at_check_trace; $COBCRUN_DIRECT ./progo
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "bluBb END" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:257"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c"
-$at_traceon; }
-
-# making the extension explicit here to not let case-insensitive file-systems catch a .CPY...
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:259: \$COBC -I sub/copy prog.cob -ext=cpy -o prog.i"
-at_fn_check_prepare_dynamic "$COBC -I sub/copy prog.cob -ext=cpy -o prog.i" "used_binaries.at:259"
-( $at_check_trace; $COBC -I sub/copy prog.cob -ext=cpy -o prog.i
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:259"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:260: \$COBC -x prog.i -o prog\$COB_EXE_EXT"
-at_fn_check_prepare_dynamic "$COBC -x prog.i -o prog$COB_EXE_EXT" "used_binaries.at:260"
-( $at_check_trace; $COBC -x prog.i -o prog$COB_EXE_EXT
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:260"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:261: \$COBCRUN_DIRECT ./prog\$COB_EXE_EXT"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog$COB_EXE_EXT" "used_binaries.at:261"
-( $at_check_trace; $COBCRUN_DIRECT ./prog$COB_EXE_EXT
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "bluBb END" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:261"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:262: \$COBC -x prog.i -fgen-c-line-directives -fgen-c-labels -save-temps"
-at_fn_check_prepare_dynamic "$COBC -x prog.i -fgen-c-line-directives -fgen-c-labels -save-temps" "used_binaries.at:262"
-( $at_check_trace; $COBC -x prog.i -fgen-c-line-directives -fgen-c-labels -save-temps
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:262"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:263: \$GREP 'prog.i' prog.c"
-at_fn_check_prepare_dynamic "$GREP 'prog.i' prog.c" "used_binaries.at:263"
-( $at_check_trace; $GREP 'prog.i' prog.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:263"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:264: \$GREP 'prog.i' prog.c | \$GREP '#line'"
-at_fn_check_prepare_notrace 'a shell pipeline' "used_binaries.at:264"
-( $at_check_trace; $GREP 'prog.i' prog.c | $GREP '#line'
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 1 $at_status "$at_srcdir/used_binaries.at:264"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:265: \$GREP 'prog.cob' prog.c | \$GREP '#line'"
-at_fn_check_prepare_notrace 'a shell pipeline' "used_binaries.at:265"
-( $at_check_trace; $GREP 'prog.cob' prog.c | $GREP '#line'
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:265"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:266: \$GREP 'PROC.cpy' prog.c | \$GREP '#line'"
-at_fn_check_prepare_notrace 'a shell pipeline' "used_binaries.at:266"
-( $at_check_trace; $GREP 'PROC.cpy' prog.c | $GREP '#line'
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:266"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:267: \$GREP 'ENTRY_PROG:' prog.c"
-at_fn_check_prepare_dynamic "$GREP 'ENTRY_PROG:' prog.c" "used_binaries.at:267"
-( $at_check_trace; $GREP 'ENTRY_PROG:' prog.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:267"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:268: \$GREP 'SECTION_END__PROC:' prog.c"
-at_fn_check_prepare_dynamic "$GREP 'SECTION_END__PROC:' prog.c" "used_binaries.at:268"
-( $at_check_trace; $GREP 'SECTION_END__PROC:' prog.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:268"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:269: \$GREP 'PARAGRAPH_00_l_4:' prog.c"
-at_fn_check_prepare_dynamic "$GREP 'PARAGRAPH_00_l_4:' prog.c" "used_binaries.at:269"
-( $at_check_trace; $GREP 'PARAGRAPH_00_l_4:' prog.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:269"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:270: \$GREP 'PARAGRAPH_EX_l_7:' prog.c"
-at_fn_check_prepare_dynamic "$GREP 'PARAGRAPH_EX_l_7:' prog.c" "used_binaries.at:270"
-( $at_check_trace; $GREP 'PARAGRAPH_EX_l_7:' prog.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:270"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:271: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "used_binaries.at:271"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "bluBb END" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:271"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c"
-$at_traceon; }
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:274: \$COBC -I sub/copy prog.cob -ext=cpy -o prog.i -MF prog.d -MT \"prog.c prog.h\" -MT prog\$COB_EXE_EXT -MT prog.\$COB_OBJECT_EXT -MT prog.i -fsyntax-only"
-at_fn_check_prepare_dynamic "$COBC -I sub/copy prog.cob -ext=cpy -o prog.i -MF prog.d -MT \"prog.c prog.h\" -MT prog$COB_EXE_EXT -MT prog.$COB_OBJECT_EXT -MT prog.i -fsyntax-only" "used_binaries.at:274"
-( $at_check_trace; $COBC -I sub/copy prog.cob -ext=cpy -o prog.i -MF prog.d -MT "prog.c prog.h" -MT prog$COB_EXE_EXT -MT prog.$COB_OBJECT_EXT -MT prog.i -fsyntax-only
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:274"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c" \
-"prog.d"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:275: \$GREP 'prog.c prog.h ' prog.d"
-at_fn_check_prepare_dynamic "$GREP 'prog.c prog.h ' prog.d" "used_binaries.at:275"
-( $at_check_trace; $GREP 'prog.c prog.h ' prog.d
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:275"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c" \
-"prog.d"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:276: \$GREP ' prog.i:' prog.d"
-at_fn_check_prepare_dynamic "$GREP ' prog.i:' prog.d" "used_binaries.at:276"
-( $at_check_trace; $GREP ' prog.i:' prog.d
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:276"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c" \
-"prog.d"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:277: \$GREP 'sub/copy/PROC.cpy' prog.d"
-at_fn_check_prepare_dynamic "$GREP 'sub/copy/PROC.cpy' prog.d" "used_binaries.at:277"
-( $at_check_trace; $GREP 'sub/copy/PROC.cpy' prog.d
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:277"
-if $at_failed
-then :
-
- # Previous test "failed" --> no entry with slash available, check backslash for this and following tests
- { set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:277: \$GREP ' sub\\\\copy\\\\PROC.cpy \\\\' prog.d"
-at_fn_check_prepare_dynamic "$GREP ' sub\\\\copy\\\\PROC.cpy \\\\' prog.d" "used_binaries.at:277"
-( $at_check_trace; $GREP ' sub\\copy\\PROC.cpy \\' prog.d
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:277"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c" \
-"prog.d"
-$at_traceon; }
-
- { set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:277: \$GREP ' sub\\\\PROCE.cpy' prog.d"
-at_fn_check_prepare_dynamic "$GREP ' sub\\\\PROCE.cpy' prog.d" "used_binaries.at:277"
-( $at_check_trace; $GREP ' sub\\PROCE.cpy' prog.d
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:277"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c" \
-"prog.d"
-$at_traceon; }
-
- { set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:277: \$GREP 'sub\\\\copy\\\\PROC.cpy:' prog.d"
-at_fn_check_prepare_dynamic "$GREP 'sub\\\\copy\\\\PROC.cpy:' prog.d" "used_binaries.at:277"
-( $at_check_trace; $GREP 'sub\\copy\\PROC.cpy:' prog.d
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:277"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c" \
-"prog.d"
-$at_traceon; }
-
- { set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:277: \$GREP 'sub\\\\PROCE.cpy:' prog.d"
-at_fn_check_prepare_dynamic "$GREP 'sub\\\\PROCE.cpy:' prog.d" "used_binaries.at:277"
-( $at_check_trace; $GREP 'sub\\PROCE.cpy:' prog.d
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:277"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c" \
-"prog.d"
-$at_traceon; }
-
-
-else $as_nop
-
- { set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:277: \$GREP ' sub/copy/PROC.cpy \\\\' prog.d"
-at_fn_check_prepare_dynamic "$GREP ' sub/copy/PROC.cpy \\\\' prog.d" "used_binaries.at:277"
-( $at_check_trace; $GREP ' sub/copy/PROC.cpy \\' prog.d
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:277"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c" \
-"prog.d"
-$at_traceon; }
-
- { set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:277: \$GREP ' sub/PROCE.cpy' prog.d"
-at_fn_check_prepare_dynamic "$GREP ' sub/PROCE.cpy' prog.d" "used_binaries.at:277"
-( $at_check_trace; $GREP ' sub/PROCE.cpy' prog.d
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:277"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c" \
-"prog.d"
-$at_traceon; }
-
- { set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:277: \$GREP 'sub/copy/PROC.cpy:' prog.d"
-at_fn_check_prepare_dynamic "$GREP 'sub/copy/PROC.cpy:' prog.d" "used_binaries.at:277"
-( $at_check_trace; $GREP 'sub/copy/PROC.cpy:' prog.d
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:277"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c" \
-"prog.d"
-$at_traceon; }
-
- { set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:277: \$GREP 'sub/PROCE.cpy:' prog.d"
-at_fn_check_prepare_dynamic "$GREP 'sub/PROCE.cpy:' prog.d" "used_binaries.at:277"
-( $at_check_trace; $GREP 'sub/PROCE.cpy:' prog.d
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:277"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c" \
-"prog.d"
-$at_traceon; }
-
-
-fi
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c" \
-"prog.d"
-$at_traceon; }
-
-
-# test again with trailing slash which should not result in different files
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:291: \$COBC -I sub/copy/ prog.cob -ext=cpy -o prog.i -MF prog.d -MT \"prog.c prog.h\" -MT prog\$COB_EXE_EXT -MT prog.\$COB_OBJECT_EXT -MT prog.i -fsyntax-only"
-at_fn_check_prepare_dynamic "$COBC -I sub/copy/ prog.cob -ext=cpy -o prog.i -MF prog.d -MT \"prog.c prog.h\" -MT prog$COB_EXE_EXT -MT prog.$COB_OBJECT_EXT -MT prog.i -fsyntax-only" "used_binaries.at:291"
-( $at_check_trace; $COBC -I sub/copy/ prog.cob -ext=cpy -o prog.i -MF prog.d -MT "prog.c prog.h" -MT prog$COB_EXE_EXT -MT prog.$COB_OBJECT_EXT -MT prog.i -fsyntax-only
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:291"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c" \
-"prog.d"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:292: \$GREP 'sub/copy/PROC.cpy' prog.d"
-at_fn_check_prepare_dynamic "$GREP 'sub/copy/PROC.cpy' prog.d" "used_binaries.at:292"
-( $at_check_trace; $GREP 'sub/copy/PROC.cpy' prog.d
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:292"
-if $at_failed
-then :
-
- # Previous test "failed" --> no entry with slash available, check backslash for this test
- { set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:292: \$GREP 'sub\\\\copy\\\\PROC.cpy' prog.d"
-at_fn_check_prepare_dynamic "$GREP 'sub\\\\copy\\\\PROC.cpy' prog.d" "used_binaries.at:292"
-( $at_check_trace; $GREP 'sub\\copy\\PROC.cpy' prog.d
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:292"
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c" \
-"prog.d"
-$at_traceon; }
-
-
-fi
-$at_failed && at_fn_log_failure \
-"prog.i" \
-"prog.c" \
-"prog.d"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_4
-#AT_START_5
-at_fn_group_banner 5 'used_binaries.at:300' \
- "compiler outputs (path specified)" " " 1
-at_xfail=no
-(
- printf "%s\n" "5. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 BLA PIC X(5) VALUE 'bluBb'.
- PROCEDURE DIVISION.
- DISPLAY BLA NO ADVANCING END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:314: mkdir -p sub"
-at_fn_check_prepare_trace "used_binaries.at:314"
-( $at_check_trace; mkdir -p sub
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:314"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:315: \$COBC prog.cob -o sub/prog.c"
-at_fn_check_prepare_dynamic "$COBC prog.cob -o sub/prog.c" "used_binaries.at:315"
-( $at_check_trace; $COBC prog.cob -o sub/prog.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:315"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:316: \$COBC \$(_return_path \"sub/prog.c\") -o \$(_return_path \"sub/prog.\$COB_OBJECT_EXT\")"
-at_fn_check_prepare_notrace 'a $(...) command substitution' "used_binaries.at:316"
-( $at_check_trace; $COBC $(_return_path "sub/prog.c") -o $(_return_path "sub/prog.$COB_OBJECT_EXT")
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:316"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:317: \$COBC \$(_return_path \"sub/prog.\$COB_OBJECT_EXT\") -o \$(_return_path \"sub/prog\")"
-at_fn_check_prepare_notrace 'a $(...) command substitution' "used_binaries.at:317"
-( $at_check_trace; $COBC $(_return_path "sub/prog.$COB_OBJECT_EXT") -o $(_return_path "sub/prog")
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:317"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:318: \$COBCRUN -M \$(_return_path \"sub/\") prog"
-at_fn_check_prepare_notrace 'a $(...) command substitution' "used_binaries.at:318"
-( $at_check_trace; $COBCRUN -M $(_return_path "sub/") prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "bluBb" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:318"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:319: \$COBC -x prog.cob -o \$(_return_path \"sub/prog.c\")"
-at_fn_check_prepare_notrace 'a $(...) command substitution' "used_binaries.at:319"
-( $at_check_trace; $COBC -x prog.cob -o $(_return_path "sub/prog.c")
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:319"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:320: \$COBC -x \$(_return_path \"sub/prog.c\") -o \$(_return_path \"sub/prog.\$COB_OBJECT_EXT\")"
-at_fn_check_prepare_notrace 'a $(...) command substitution' "used_binaries.at:320"
-( $at_check_trace; $COBC -x $(_return_path "sub/prog.c") -o $(_return_path "sub/prog.$COB_OBJECT_EXT")
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:320"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:321: \$COBC -x \$(_return_path \"sub/prog.\$COB_OBJECT_EXT\") -o \$(_return_path \"sub/progo\$COB_EXE_EXT\")"
-at_fn_check_prepare_notrace 'a $(...) command substitution' "used_binaries.at:321"
-( $at_check_trace; $COBC -x $(_return_path "sub/prog.$COB_OBJECT_EXT") -o $(_return_path "sub/progo$COB_EXE_EXT")
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:321"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:322: \$COBCRUN_DIRECT ./sub/progo"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./sub/progo" "used_binaries.at:322"
-( $at_check_trace; $COBCRUN_DIRECT ./sub/progo
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "bluBb" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:322"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:323: \$COBC prog.cob -o \$(_return_path \"sub/prog.i\")"
-at_fn_check_prepare_notrace 'a $(...) command substitution' "used_binaries.at:323"
-( $at_check_trace; $COBC prog.cob -o $(_return_path "sub/prog.i")
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:323"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:324: \$COBC -x sub/prog.i -o \$(_return_path \"sub/prog\$COB_EXE_EXT\")"
-at_fn_check_prepare_notrace 'a $(...) command substitution' "used_binaries.at:324"
-( $at_check_trace; $COBC -x sub/prog.i -o $(_return_path "sub/prog$COB_EXE_EXT")
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:324"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:325: \$COBCRUN_DIRECT ./sub/prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./sub/prog" "used_binaries.at:325"
-( $at_check_trace; $COBCRUN_DIRECT ./sub/prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "bluBb" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:325"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_5
-#AT_START_6
-at_fn_group_banner 6 'used_binaries.at:329' \
- "compiler outputs (assembler)" " " 1
-at_xfail=no
-(
- printf "%s\n" "6. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 BLA PIC X(5) VALUE 'bluBb'.
- PROCEDURE DIVISION.
- DISPLAY BLA NO ADVANCING END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:343: \$COBC -v -S prog.cob"
-at_fn_check_prepare_dynamic "$COBC -v -S prog.cob" "used_binaries.at:343"
-( $at_check_trace; $COBC -v -S prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:343"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:344: test -f prog.s"
-at_fn_check_prepare_trace "used_binaries.at:344"
-( $at_check_trace; test -f prog.s
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:344"
-if $at_failed
-then :
- # Previous test "failed" --> prog.s not available --> likely a VS build
-# only check for file as cl.exe cannot create executables from self-created
-# assembler sources
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:344: test -f prog.asm"
-at_fn_check_prepare_trace "used_binaries.at:344"
-( $at_check_trace; test -f prog.asm
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:344"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-else $as_nop
- # Previous test "passed" --> prog.s is available, test compilation and run
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:344: \$COBC -v prog.s"
-at_fn_check_prepare_dynamic "$COBC -v prog.s" "used_binaries.at:344"
-( $at_check_trace; $COBC -v prog.s
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:344"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- { set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:344: \$COBCRUN prog"
-at_fn_check_prepare_dynamic "$COBCRUN prog" "used_binaries.at:344"
-( $at_check_trace; $COBCRUN prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "bluBb" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:344"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-fi
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:352: \$COBC -v -x -S prog.cob"
-at_fn_check_prepare_dynamic "$COBC -v -x -S prog.cob" "used_binaries.at:352"
-( $at_check_trace; $COBC -v -x -S prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:352"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:353: test -f prog.s"
-at_fn_check_prepare_trace "used_binaries.at:353"
-( $at_check_trace; test -f prog.s
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:353"
-if $at_failed
-then :
- # Previous test "failed" --> prog.s not available --> likely a VS build
-# only check for file as cl.exe cannot create executables from self-created
-# assembler sources
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:353: test -f prog.asm"
-at_fn_check_prepare_trace "used_binaries.at:353"
-( $at_check_trace; test -f prog.asm
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:353"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-else $as_nop
- # Previous test "passed" --> prog.s is available, test compilation and run
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:353: \$COBC -v -x prog.s"
-at_fn_check_prepare_dynamic "$COBC -v -x prog.s" "used_binaries.at:353"
-( $at_check_trace; $COBC -v -x prog.s
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:353"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- { set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:353: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "used_binaries.at:353"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "bluBb" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:353"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-fi
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_6
-#AT_START_7
-at_fn_group_banner 7 'used_binaries.at:364' \
- "source file not found" " " 1
-at_xfail=no
-(
- printf "%s\n" "7. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:367: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "used_binaries.at:367"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "cobc: prog.cob: No such file or directory
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/used_binaries.at:367"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_7
-#AT_START_8
-at_fn_group_banner 8 'used_binaries.at:374' \
- "temporary path invalid" " " 1
-at_xfail=no
-(
- printf "%s\n" "8. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# Note: may be either removed completely as there was a report about
-# this test "failing" - or skipped as this very often fails for
-# WIN32 builds
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- DISPLAY "OK" NO ADVANCING
- END-DISPLAY.
- EXIT PROGRAM.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:390: TMPDIR=\"\" TMP=\"notthere\" TEMP=\"\" \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "TMPDIR=\"\" TMP=\"notthere\" TEMP=\"\" $COMPILE prog.cob" "used_binaries.at:390"
-( $at_check_trace; TMPDIR="" TMP="notthere" TEMP="" $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: warning: Temporary directory TMP is invalid, adjust TMPDIR!
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:390"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:393: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "used_binaries.at:393"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:393"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:394: TMPDIR=\"\" TMP=\"\" TEMP=\"./prog.cob\" \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "TMPDIR=\"\" TMP=\"\" TEMP=\"./prog.cob\" $COMPILE prog.cob" "used_binaries.at:394"
-( $at_check_trace; TMPDIR="" TMP="" TEMP="./prog.cob" $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: warning: Temporary directory TEMP is invalid, adjust TMPDIR!
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:394"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# TMPDIR is only checked when actually needed which is currently only the case
-# for SORT
-#AT_CHECK([TMPDIR="./prog.cob" $COBCRUN_DIRECT ./prog], [0], [OK],
-#[libcob: warning: Temporary directory TEMP is invalid, adjust TMPDIR!
-#])
-#AT_CHECK([COB_DISABLE_WARNINGS=1 TMPDIR="./prog.cob" $COBCRUN_DIRECT ./prog], [0], [OK],
-#[libcob: warning: Temporary directory TEMP is invalid, adjust TMPDIR!
-#])
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_8
-#AT_START_9
-at_fn_group_banner 9 'used_binaries.at:409' \
- "use of full path for cobc" " " 1
-at_xfail=no
-(
- printf "%s\n" "9. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- DISPLAY "OK" NO ADVANCING
- END-DISPLAY.
- EXIT PROGRAM.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:421: \$COMPILE \"\$(_return_path \"\$(pwd)/prog.cob\")\""
-at_fn_check_prepare_notrace 'a $(...) command substitution' "used_binaries.at:421"
-( $at_check_trace; $COMPILE "$(_return_path "$(pwd)/prog.cob")"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:421"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:422: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "used_binaries.at:422"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:422"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_9
-#AT_START_10
-at_fn_group_banner 10 'used_binaries.at:427' \
- "C Compiler optimizations" " " 1
-at_xfail=no
-(
- printf "%s\n" "10. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- DISPLAY "OK" NO ADVANCING
- END-DISPLAY.
- EXIT PROGRAM.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:439: \$COMPILE -v -O -o prog prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -v -O -o prog prog.cob" "used_binaries.at:439"
-( $at_check_trace; $COMPILE -v -O -o prog prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:439"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:440: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "used_binaries.at:440"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:440"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:442: \$COMPILE -v -O2 -o prog2 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -v -O2 -o prog2 prog.cob" "used_binaries.at:442"
-( $at_check_trace; $COMPILE -v -O2 -o prog2 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:442"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:443: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "used_binaries.at:443"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:443"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:445: \$COMPILE -v -Os -o progs prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -v -Os -o progs prog.cob" "used_binaries.at:445"
-( $at_check_trace; $COMPILE -v -Os -o progs prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:445"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:446: \$COBCRUN_DIRECT ./progs"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./progs" "used_binaries.at:446"
-( $at_check_trace; $COBCRUN_DIRECT ./progs
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:446"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:448: \$COMPILE -v -O3 -o prog3 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -v -O3 -o prog3 prog.cob" "used_binaries.at:448"
-( $at_check_trace; $COMPILE -v -O3 -o prog3 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:448"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:449: \$COBCRUN_DIRECT ./prog3"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog3" "used_binaries.at:449"
-( $at_check_trace; $COBCRUN_DIRECT ./prog3
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:449"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:451: \$COMPILE -v -O0 -o prog prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -v -O0 -o prog prog.cob" "used_binaries.at:451"
-( $at_check_trace; $COMPILE -v -O0 -o prog prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:451"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:452: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "used_binaries.at:452"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:452"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# last test with O2 (strips output) and output name
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:455: mkdir -p sub"
-at_fn_check_prepare_trace "used_binaries.at:455"
-( $at_check_trace; mkdir -p sub
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:455"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:456: \$COMPILE_MODULE -v -O2 -o \$(_return_path \"sub/prog\") prog.cob"
-at_fn_check_prepare_notrace 'a $(...) command substitution' "used_binaries.at:456"
-( $at_check_trace; $COMPILE_MODULE -v -O2 -o $(_return_path "sub/prog") prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:456"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:457: \$COBCRUN -M sub/ prog"
-at_fn_check_prepare_dynamic "$COBCRUN -M sub/ prog" "used_binaries.at:457"
-( $at_check_trace; $COBCRUN -M sub/ prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:457"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:458: \$COMPILE -v -O2 -o \$(_return_path \"sub/prog\$COB_EXE_EXT\") prog.cob"
-at_fn_check_prepare_notrace 'a $(...) command substitution' "used_binaries.at:458"
-( $at_check_trace; $COMPILE -v -O2 -o $(_return_path "sub/prog$COB_EXE_EXT") prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:458"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:459: \$COBCRUN_DIRECT ./sub/prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./sub/prog" "used_binaries.at:459"
-( $at_check_trace; $COBCRUN_DIRECT ./sub/prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:459"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_10
-#AT_START_11
-at_fn_group_banner 11 'used_binaries.at:464' \
- "invalid cobc option" " " 1
-at_xfail=no
-(
- printf "%s\n" "11. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-_ATEOF
-
-
-# normal option
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:473: \$COMPILE -q --thisoptiondoesntexist prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -q --thisoptiondoesntexist prog.cob" "used_binaries.at:473"
-( $at_check_trace; $COMPILE -q --thisoptiondoesntexist prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "cobc: unrecognized option '--thisoptiondoesntexist'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/used_binaries.at:473"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# flag
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:477: \$COMPILE -q -flagdoesntexist prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -q -flagdoesntexist prog.cob" "used_binaries.at:477"
-( $at_check_trace; $COMPILE -q -flagdoesntexist prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "cobc: unrecognized option '-flagdoesntexist'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/used_binaries.at:477"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_11
-#AT_START_12
-at_fn_group_banner 12 'used_binaries.at:484' \
- "cobcrun help and information" " " 1
-at_xfail=no
-(
- printf "%s\n" "12. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# FIXME: check at least some parts of the output by using $GREP
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:488: \$COBCRUN --version"
-at_fn_check_prepare_dynamic "$COBCRUN --version" "used_binaries.at:488"
-( $at_check_trace; $COBCRUN --version
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:488"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:489: \$COBCRUN -v --version"
-at_fn_check_prepare_dynamic "$COBCRUN -v --version" "used_binaries.at:489"
-( $at_check_trace; $COBCRUN -v --version
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:489"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:490: \$COBCRUN -q --version"
-at_fn_check_prepare_dynamic "$COBCRUN -q --version" "used_binaries.at:490"
-( $at_check_trace; $COBCRUN -q --version
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:490"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:491: \$COBCRUN --help"
-at_fn_check_prepare_dynamic "$COBCRUN --help" "used_binaries.at:491"
-( $at_check_trace; $COBCRUN --help
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:491"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:492: \$COBCRUN --info"
-at_fn_check_prepare_dynamic "$COBCRUN --info" "used_binaries.at:492"
-( $at_check_trace; $COBCRUN --info
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:492"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# we explicit do not want to run this here, as it initializes curses
-# AT_CHECK([$COBCRUN -v --info], [0], [ignore], [])
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:495: \$COBCRUN -q --info"
-at_fn_check_prepare_dynamic "$COBCRUN -q --info" "used_binaries.at:495"
-( $at_check_trace; $COBCRUN -q --info
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:495"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:496: \$COBCRUN --dumpversion"
-at_fn_check_prepare_dynamic "$COBCRUN --dumpversion" "used_binaries.at:496"
-( $at_check_trace; $COBCRUN --dumpversion
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:496"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_12
-#AT_START_13
-at_fn_group_banner 13 'used_binaries.at:500' \
- "cobcrun validation" " " 1
-at_xfail=no
-(
- printf "%s\n" "13. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 WRK-VAR PIC X(5).
- 01 EXT-VAR PIC X(5) EXTERNAL.
- PROCEDURE DIVISION.
- DISPLAY EXT-VAR NO ADVANCING
- END-DISPLAY.
- MOVE "World" TO EXT-VAR.
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 EXT-VAR PIC X(5) EXTERNAL.
- 01 WRK-VAR PIC X(5).
- PROCEDURE DIVISION.
- MOVE "Hello" TO EXT-VAR.
- CALL "callee"
- END-CALL.
- DISPLAY EXT-VAR NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:533: \$COMPILE_MODULE callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee.cob" "used_binaries.at:533"
-( $at_check_trace; $COMPILE_MODULE callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:533"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:534: \$COMPILE_MODULE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE caller.cob" "used_binaries.at:534"
-( $at_check_trace; $COMPILE_MODULE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:534"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:535: \$COBCRUN caller"
-at_fn_check_prepare_dynamic "$COBCRUN caller" "used_binaries.at:535"
-( $at_check_trace; $COBCRUN caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "HelloWorld" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:535"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_13
-#AT_START_14
-at_fn_group_banner 14 'used_binaries.at:540' \
- "cobcrun -M DSO entry argument" " " 1
-at_xfail=no
-(
- printf "%s\n" "14. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:543: \$COBCRUN -M \"\" nope"
-at_fn_check_prepare_dynamic "$COBCRUN -M \"\" nope" "used_binaries.at:543"
-( $at_check_trace; $COBCRUN -M "" nope
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "invalid module argument ''
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/used_binaries.at:543"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 EXT-VAR PIC X(5) EXTERNAL.
- PROCEDURE DIVISION.
- DISPLAY EXT-VAR END-DISPLAY.
- MOVE "World" TO EXT-VAR.
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 EXT-VAR PIC X(5) EXTERNAL.
- PROCEDURE DIVISION.
- MOVE "Hello" TO EXT-VAR.
- CALL "callee" END-CALL.
- DISPLAY EXT-VAR END-DISPLAY.
- STOP RUN.
- END PROGRAM caller.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. inside.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 EXT-VAR PIC X(5) EXTERNAL.
- 01 CLA-VAR PIC X(5).
- PROCEDURE DIVISION.
- MOVE "Aloha" TO EXT-VAR.
- CALL "callee" END-CALL.
- DISPLAY EXT-VAR END-DISPLAY.
- ACCEPT CLA-VAR FROM COMMAND-LINE END-ACCEPT.
- DISPLAY CLA-VAR END-DISPLAY.
- STOP RUN.
- END PROGRAM inside.
-_ATEOF
-
-
-cat >caller2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. inside2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 EXT-VAR PIC X(5) EXTERNAL.
- 01 CLA-VAR PIC X(5).
- PROCEDURE DIVISION.
- DISPLAY "Aloha2".
- CALL "inside".
- GOBACK. *> never gets here
- END PROGRAM inside2.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:602: \$COMPILE_MODULE callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee.cob" "used_binaries.at:602"
-( $at_check_trace; $COMPILE_MODULE callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:602"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:603: \$COMPILE_MODULE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE caller.cob" "used_binaries.at:603"
-( $at_check_trace; $COMPILE_MODULE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:603"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:604: \$COBCRUN -M ./caller inside again"
-at_fn_check_prepare_dynamic "$COBCRUN -M ./caller inside again" "used_binaries.at:604"
-( $at_check_trace; $COBCRUN -M ./caller inside again
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Aloha
-World
-again
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:604"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:610: \$COMPILE_MODULE caller2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE caller2.cob" "used_binaries.at:610"
-( $at_check_trace; $COMPILE_MODULE caller2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:610"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:611: COB_PRE_LOAD=caller2 \$COBCRUN -M ./caller inside2 again"
-at_fn_check_prepare_dynamic "COB_PRE_LOAD=caller2 $COBCRUN -M ./caller inside2 again" "used_binaries.at:611"
-( $at_check_trace; COB_PRE_LOAD=caller2 $COBCRUN -M ./caller inside2 again
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Aloha2
-Aloha
-World
-again
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:611"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_14
-#AT_START_15
-at_fn_group_banner 15 'used_binaries.at:626' \
- "cobcrun -M directory/ default" " " 1
-at_xfail=no
-(
- printf "%s\n" "15. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 EXT-VAR PIC X(5) EXTERNAL.
- PROCEDURE DIVISION.
- DISPLAY EXT-VAR END-DISPLAY.
- MOVE "World" TO EXT-VAR.
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 EXT-VAR PIC X(5) EXTERNAL.
- PROCEDURE DIVISION.
- MOVE "Hello" TO EXT-VAR.
- CALL "callee" END-CALL.
- DISPLAY EXT-VAR END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:654: \$COMPILE_MODULE callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee.cob" "used_binaries.at:654"
-( $at_check_trace; $COMPILE_MODULE callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:654"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:655: \$COMPILE_MODULE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE caller.cob" "used_binaries.at:655"
-( $at_check_trace; $COMPILE_MODULE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:655"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:656: \$COBCRUN -M ./ caller"
-at_fn_check_prepare_dynamic "$COBCRUN -M ./ caller" "used_binaries.at:656"
-( $at_check_trace; $COBCRUN -M ./ caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Hello
-World
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:656"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_15
-#AT_START_16
-at_fn_group_banner 16 'used_binaries.at:665' \
- "cobcrun -M directory/dso alternate" " " 1
-at_xfail=no
-(
- printf "%s\n" "16. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 EXT-VAR PIC X(5) EXTERNAL.
- PROCEDURE DIVISION.
- DISPLAY EXT-VAR END-DISPLAY.
- MOVE "World" TO EXT-VAR.
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 EXT-VAR PIC X(5) EXTERNAL.
- PROCEDURE DIVISION.
- MOVE "Hello" TO EXT-VAR.
- CALL "callee" END-CALL.
- DISPLAY EXT-VAR END-DISPLAY.
- STOP RUN.
- END PROGRAM caller.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. inside.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 EXT-VAR PIC X(5) EXTERNAL.
- PROCEDURE DIVISION.
- MOVE "Aloha" TO EXT-VAR.
- CALL "callee" END-CALL.
- DISPLAY EXT-VAR END-DISPLAY.
- STOP RUN.
- END PROGRAM inside.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:706: \$COMPILE_MODULE callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee.cob" "used_binaries.at:706"
-( $at_check_trace; $COMPILE_MODULE callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:706"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:707: \$COMPILE_MODULE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE caller.cob" "used_binaries.at:707"
-( $at_check_trace; $COMPILE_MODULE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:707"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:708: \$COBCRUN -M ./caller inside"
-at_fn_check_prepare_dynamic "$COBCRUN -M ./caller inside" "used_binaries.at:708"
-( $at_check_trace; $COBCRUN -M ./caller inside
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Aloha
-World
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:708"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_16
-#AT_START_17
-at_fn_group_banner 17 'used_binaries.at:716' \
- "cobcrun -M DSO entry multiple arguments" " " 1
-at_xfail=no
-(
- printf "%s\n" "17. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# Test that modules can be called with ARGUMENT-VALUES
-cat >called.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. called.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 CLI-ARGS PIC X(27).
- 01 ARG-TWO PIC X(6).
- PROCEDURE DIVISION.
- ACCEPT CLI-ARGS FROM COMMAND-LINE END-ACCEPT.
- DISPLAY 2 UPON ARGUMENT-NUMBER END-DISPLAY.
- ACCEPT ARG-TWO FROM ARGUMENT-VALUE END-ACCEPT.
- DISPLAY CLI-ARGS ":" ARG-TWO END-DISPLAY.
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >mainer.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. mainer.
- PROCEDURE DIVISION.
- STOP RUN.
- END PROGRAM mainer.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:743: \$COBC -b \${FLAGS} mainer.cob called.cob"
-at_fn_check_prepare_notrace 'a ${...} parameter expansion' "used_binaries.at:743"
-( $at_check_trace; $COBC -b ${FLAGS} mainer.cob called.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:743"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:744: \$COBCRUN -M ./mainer called \"first argument\" \"second\" \"third\""
-at_fn_check_prepare_dynamic "$COBCRUN -M ./mainer called \"first argument\" \"second\" \"third\"" "used_binaries.at:744"
-( $at_check_trace; $COBCRUN -M ./mainer called "first argument" "second" "third"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "first argument second third:second
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:744"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# additional test with environment configuration settings removed:
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:749: unset COB_PRE_LOAD COB_LIBRARY_PATH ; \\
- \$COBCRUN -M ./mainer called \"first argument\" \"second\" \"third\""
-at_fn_check_prepare_notrace 'an embedded newline' "used_binaries.at:749"
-( $at_check_trace; unset COB_PRE_LOAD COB_LIBRARY_PATH ; \
- $COBCRUN -M ./mainer called "first argument" "second" "third"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "first argument second third:second
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:749"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# additional test with showing the preloaded environment
-# FIXME: check at least some parts of the output ("configuration" and the expected output) by using $GREP
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:756: \$COBCRUN -M ./mainer --runtime-conf called \"first argument\" \"second\" \"third\""
-at_fn_check_prepare_dynamic "$COBCRUN -M ./mainer --runtime-conf called \"first argument\" \"second\" \"third\"" "used_binaries.at:756"
-( $at_check_trace; $COBCRUN -M ./mainer --runtime-conf called "first argument" "second" "third"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:756"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_17
-#AT_START_18
-at_fn_group_banner 18 'used_binaries.at:762' \
- "cobcrun error messages" " " 1
-at_xfail=no
-(
- printf "%s\n" "18. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:765: \$COBCRUN -q"
-at_fn_check_prepare_dynamic "$COBCRUN -q" "used_binaries.at:765"
-( $at_check_trace; $COBCRUN -q
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "cobcrun: missing PROGRAM name
-Try 'cobcrun --help' for more information.
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/used_binaries.at:765"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:769: \$COBCRUN -q -prog"
-at_fn_check_prepare_dynamic "$COBCRUN -q -prog" "used_binaries.at:769"
-( $at_check_trace; $COBCRUN -q -prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "cobcrun: unrecognized option '-prog'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/used_binaries.at:769"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:772: \$COBCRUN noprog"
-at_fn_check_prepare_dynamic "$COBCRUN noprog" "used_binaries.at:772"
-( $at_check_trace; $COBCRUN noprog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: error: module 'noprog' not found
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/used_binaries.at:772"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:775: \$COBCRUN -q -M"
-at_fn_check_prepare_dynamic "$COBCRUN -q -M" "used_binaries.at:775"
-( $at_check_trace; $COBCRUN -q -M
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "cobcrun: option requires an argument -- 'M'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/used_binaries.at:775"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:778: \$COBCRUN -q -M noprog"
-at_fn_check_prepare_dynamic "$COBCRUN -q -M noprog" "used_binaries.at:778"
-( $at_check_trace; $COBCRUN -q -M noprog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "cobcrun: missing PROGRAM name
-Try 'cobcrun --help' for more information.
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/used_binaries.at:778"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# this was previously checked in cobcrun, now only done in the runtime
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:783: \$COBCRUN ThisIsANameThatIsReallyNotAllowedAsProgIdInCOBOL"
-at_fn_check_prepare_dynamic "$COBCRUN ThisIsANameThatIsReallyNotAllowedAsProgIdInCOBOL" "used_binaries.at:783"
-( $at_check_trace; $COBCRUN ThisIsANameThatIsReallyNotAllowedAsProgIdInCOBOL
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: error: ThisIsANameThatIsReallyNotAllowedAsProgIdInCOBOL: PROGRAM name exceeds 31 characters
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/used_binaries.at:783"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# it would be allowed for preloading
-# this was previously checked in cobcrun, now only done in the runtime
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:788: \$COBCRUN -q -M ThisIsANameThatIsReallyNotAllowedAsProgIdInCOBOL noprog"
-at_fn_check_prepare_dynamic "$COBCRUN -q -M ThisIsANameThatIsReallyNotAllowedAsProgIdInCOBOL noprog" "used_binaries.at:788"
-( $at_check_trace; $COBCRUN -q -M ThisIsANameThatIsReallyNotAllowedAsProgIdInCOBOL noprog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: warning: preloading of 'ThisIsANameThatIsReallyNotAllowedAsProgIdInCOBOL' failed
-libcob: error: module 'noprog' not found
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/used_binaries.at:788"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_18
-#AT_START_19
-at_fn_group_banner 19 'used_binaries.at:796' \
- "run job with unsuccessful compilation" " " 1
-at_xfail=no
-(
- printf "%s\n" "19. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- DISPLAY "jobby"
- EXIT HERE.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:808: \$COMPILE -j prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -j prog.cob" "used_binaries.at:808"
-( $at_check_trace; $COMPILE -j prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: error: syntax error, unexpected Identifier
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/used_binaries.at:808"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_19
-#AT_START_20
-at_fn_group_banner 20 'used_binaries.at:815' \
- "run job after compilation" " " 1
-at_xfail=no
-(
- printf "%s\n" "20. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- DISPLAY "job" WITH NO ADVANCING END-DISPLAY
- STOP RUN WITH NORMAL STATUS.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:826: \$COMPILE -jd prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -jd prog.cob" "used_binaries.at:826"
-( $at_check_trace; $COMPILE -jd prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "job" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:826"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:827: \$COMPILE_MODULE -jd prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE -jd prog.cob" "used_binaries.at:827"
-( $at_check_trace; $COMPILE_MODULE -jd prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "job" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:827"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_20
-#AT_START_21
-at_fn_group_banner 21 'used_binaries.at:832' \
- "run job after compilation (path specified)" " " 1
-at_xfail=no
-(
- printf "%s\n" "21. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- DISPLAY "job" WITH NO ADVANCING END-DISPLAY
- STOP RUN WITH NORMAL STATUS.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:843: mkdir -p sub"
-at_fn_check_prepare_trace "used_binaries.at:843"
-( $at_check_trace; mkdir -p sub
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:843"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:844: \$COMPILE_MODULE -jd -o \$(_return_path \"sub/prog\") prog.cob"
-at_fn_check_prepare_notrace 'a $(...) command substitution' "used_binaries.at:844"
-( $at_check_trace; $COMPILE_MODULE -jd -o $(_return_path "sub/prog") prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "job" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:844"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:845: \$COMPILE -jd -o \$(_return_path \"sub/prog\$COB_EXE_EXT\") prog.cob"
-at_fn_check_prepare_notrace 'a $(...) command substitution' "used_binaries.at:845"
-( $at_check_trace; $COMPILE -jd -o $(_return_path "sub/prog$COB_EXE_EXT") prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "job" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:845"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_21
-#AT_START_22
-at_fn_group_banner 22 'used_binaries.at:850' \
- "run job with optional arguments" " " 1
-at_xfail=no
-(
- printf "%s\n" "22. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 CLI PIC X(8).
- PROCEDURE DIVISION.
- ACCEPT CLI FROM COMMAND-LINE
- DISPLAY CLI WITH NO ADVANCING END-DISPLAY
- STOP RUN WITH NORMAL STATUS.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:865: \$COMPILE -j=\"job 123\" prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -j=\"job 123\" prog.cob" "used_binaries.at:865"
-( $at_check_trace; $COMPILE -j="job 123" prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "job 123 " | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:865"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:866: \$COMPILE -jdg prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -jdg prog.cob" "used_binaries.at:866"
-( $at_check_trace; $COMPILE -jdg prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " " | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:866"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:867: \$COMPILE_MODULE --job=job123 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE --job=job123 prog.cob" "used_binaries.at:867"
-( $at_check_trace; $COMPILE_MODULE --job=job123 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "job123 " | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:867"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_22
-#AT_START_23
-at_fn_group_banner 23 'used_binaries.at:872' \
- "compile from stdin" " " 1
-at_xfail=no
-(
- printf "%s\n" "23. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. a.
- PROCEDURE DIVISION.
- STOP RUN WITH NORMAL STATUS.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:882: cat prog.cob | \$COMPILE_MODULE -"
-at_fn_check_prepare_notrace 'a shell pipeline' "used_binaries.at:882"
-( $at_check_trace; cat prog.cob | $COMPILE_MODULE -
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:882"
-if $at_failed
-then :
- # Previous test failed run again with full verbose output
-# leading to an (expected) fail, but with decent messages
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:882: cat prog.cob | \$COMPILE_MODULE -vv -"
-at_fn_check_prepare_notrace 'a shell pipeline' "used_binaries.at:882"
-( $at_check_trace; cat prog.cob | $COMPILE_MODULE -vv -
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:882"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-fi
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:887: \$COBCRUN a"
-at_fn_check_prepare_dynamic "$COBCRUN a" "used_binaries.at:887"
-( $at_check_trace; $COBCRUN a
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:887"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:889: cat prog.cob | \$COMPILE -"
-at_fn_check_prepare_notrace 'a shell pipeline' "used_binaries.at:889"
-( $at_check_trace; cat prog.cob | $COMPILE -
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:889"
-if $at_failed
-then :
- # more to debug ...
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:889: cat prog.cob | \$COMPILE -vv -"
-at_fn_check_prepare_notrace 'a shell pipeline' "used_binaries.at:889"
-( $at_check_trace; cat prog.cob | $COMPILE -vv -
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:889"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-fi
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:893: \$COBCRUN_DIRECT ./a.out"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./a.out" "used_binaries.at:893"
-( $at_check_trace; $COBCRUN_DIRECT ./a.out
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:893"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_23
-#AT_START_24
-at_fn_group_banner 24 'used_binaries.at:900' \
- "run job after compilation from stdin" " " 1
-at_xfail=no
-(
- printf "%s\n" "24. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. a.
- PROCEDURE DIVISION.
- DISPLAY "job" WITH NO ADVANCING END-DISPLAY
- STOP RUN WITH NORMAL STATUS.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:911: cat prog.cob | \$COMPILE -j -"
-at_fn_check_prepare_notrace 'a shell pipeline' "used_binaries.at:911"
-( $at_check_trace; cat prog.cob | $COMPILE -j -
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "job" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:911"
-if $at_failed
-then :
- # Previous test failed run again with full verbose output
-# leading to an (expected) fail, but with decent messages
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:911: cat prog.cob | \$COMPILE -vv -j -"
-at_fn_check_prepare_notrace 'a shell pipeline' "used_binaries.at:911"
-( $at_check_trace; cat prog.cob | $COMPILE -vv -j -
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:911"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-fi
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:916: cat prog.cob | \$COMPILE_MODULE -j -"
-at_fn_check_prepare_notrace 'a shell pipeline' "used_binaries.at:916"
-( $at_check_trace; cat prog.cob | $COMPILE_MODULE -j -
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "job" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:916"
-if $at_failed
-then :
- # more to debug ...
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:916: cat prog.cob | \$COMPILE_MODULE -vv -j -"
-at_fn_check_prepare_notrace 'a shell pipeline' "used_binaries.at:916"
-( $at_check_trace; cat prog.cob | $COMPILE_MODULE -vv -j -
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:916"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-fi
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_24
-#AT_START_25
-at_fn_group_banner 25 'used_binaries.at:924' \
- "cobc diagnostics show caret" " " 1
-at_xfail=no
-(
- printf "%s\n" "25. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-#AT_KEYWORDS([cobc diagnostics])
-
-cat >progprep.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION. #
- 01 TEST-VAR PIC 9(2) VALUE 'A'.
- COPY 'CRUD.CPY'.
- PROCEDURE DIVISION.
- DISPLAY TEST-VAR NO ADVANCING
- END-DISPLAY
- MOVE 12 TO TEST-VAR
- DISPLAY TEST-VAR NO ADVANCING
- END-DISPLAY
- STOP RUN...
-_ATEOF
-
-
-# Testcase includes trailing whitespace, setup by dropping '#'
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:944: cat progprep.cob | tr -d '#' > prog.cob"
-at_fn_check_prepare_notrace 'a shell pipeline' "used_binaries.at:944"
-( $at_check_trace; cat progprep.cob | tr -d '#' > prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/used_binaries.at:944"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:946: \$COBC -fdiagnostics-plain-output -Wall prog.cob"
-at_fn_check_prepare_dynamic "$COBC -fdiagnostics-plain-output -Wall prog.cob" "used_binaries.at:946"
-( $at_check_trace; $COBC -fdiagnostics-plain-output -Wall prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: error: CRUD.CPY: No such file or directory
-prog.cob:6: warning: numeric value is expected [-Wothers]
-prog.cob:14: warning: ignoring redundant . [-Wothers]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/used_binaries.at:946"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:951: \$COBC -fdiagnostics-show-caret -fdiagnostics-show-line-numbers prog.cob"
-at_fn_check_prepare_dynamic "$COBC -fdiagnostics-show-caret -fdiagnostics-show-line-numbers prog.cob" "used_binaries.at:951"
-( $at_check_trace; $COBC -fdiagnostics-show-caret -fdiagnostics-show-line-numbers prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: error: CRUD.CPY: No such file or directory
- 5 | WORKING-STORAGE SECTION.
- 6 | 01 TEST-VAR PIC 9(2) VALUE 'A'.
- 7 > COPY 'CRUD.CPY'.
- 8 | PROCEDURE DIVISION.
- 9 | DISPLAY TEST-VAR NO ADVANCING
-prog.cob:6: warning: numeric value is expected [-Wothers]
- 4 | DATA DIVISION.
- 5 | WORKING-STORAGE SECTION.
- 6 > 01 TEST-VAR PIC 9(2) VALUE 'A'.
- 7 | COPY 'CRUD.CPY'.
- 8 | PROCEDURE DIVISION.
-prog.cob:14: warning: ignoring redundant . [-Wothers]
- 12 | DISPLAY TEST-VAR NO ADVANCING
- 13 | END-DISPLAY
- 14 > STOP RUN...
- 15 | <EOF>
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/used_binaries.at:951"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:971: \$COBC -fdiagnostics-plain-output -fdiagnostics-show-caret prog.cob"
-at_fn_check_prepare_dynamic "$COBC -fdiagnostics-plain-output -fdiagnostics-show-caret prog.cob" "used_binaries.at:971"
-( $at_check_trace; $COBC -fdiagnostics-plain-output -fdiagnostics-show-caret prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: error: CRUD.CPY: No such file or directory
- WORKING-STORAGE SECTION.
- 01 TEST-VAR PIC 9(2) VALUE 'A'.
- > COPY 'CRUD.CPY'.
- PROCEDURE DIVISION.
- DISPLAY TEST-VAR NO ADVANCING
-prog.cob:6: warning: numeric value is expected [-Wothers]
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- > 01 TEST-VAR PIC 9(2) VALUE 'A'.
- COPY 'CRUD.CPY'.
- PROCEDURE DIVISION.
-prog.cob:14: warning: ignoring redundant . [-Wothers]
- DISPLAY TEST-VAR NO ADVANCING
- END-DISPLAY
- > STOP RUN...
- <EOF>
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/used_binaries.at:971"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# Testcase for line too long and printing only one line
-cat >longgy.cob <<'_ATEOF'
-ddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd
-_ATEOF
-
-
-# note: this is actually an error in the parser line number,
-# but until that is solved, it is a nice edge case of "line not available"
-{ set +x
-printf "%s\n" "$at_srcdir/used_binaries.at:997: \$COBC -fdiagnostics-plain-output -fdiagnostics-show-caret -Wno-others longgy.cob"
-at_fn_check_prepare_dynamic "$COBC -fdiagnostics-plain-output -fdiagnostics-show-caret -Wno-others longgy.cob" "used_binaries.at:997"
-( $at_check_trace; $COBC -fdiagnostics-plain-output -fdiagnostics-show-caret -Wno-others longgy.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "longgy.cob:2: error: PROGRAM-ID header missing
- dddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd..
- > <EOF>
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/used_binaries.at:997"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_25
-#AT_START_26
-at_fn_group_banner 26 'configuration.at:22' \
- "cobc with standard configuration file" " " 1
-at_xfail=no
-(
- printf "%s\n" "26. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- AUTHOR. tester.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-# default configuration permits this extension
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:36: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "configuration.at:36"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:4: warning: AUTHOR is obsolete in GnuCOBOL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:36"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_26
-#AT_START_27
-at_fn_group_banner 27 'configuration.at:43' \
- "cobc dialect features for all -std" " " 1
-at_xfail=no
-(
- printf "%s\n" "27. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- AUTHOR. tester.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:56: \$COMPILE_ONLY -std=default prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=default prog.cob" "configuration.at:56"
-( $at_check_trace; $COMPILE_ONLY -std=default prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:4: warning: AUTHOR is obsolete in GnuCOBOL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:56"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:59: \$COMPILE_ONLY -std=cobol85 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol85 prog.cob" "configuration.at:59"
-( $at_check_trace; $COMPILE_ONLY -std=cobol85 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:4: warning: AUTHOR is obsolete in COBOL 85
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:59"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:62: \$COMPILE_ONLY -std=cobol2002 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol2002 prog.cob" "configuration.at:62"
-( $at_check_trace; $COMPILE_ONLY -std=cobol2002 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:4: error: AUTHOR does not conform to COBOL 2002
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/configuration.at:62"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:65: \$COMPILE_ONLY -std=cobol2014 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol2014 prog.cob" "configuration.at:65"
-( $at_check_trace; $COMPILE_ONLY -std=cobol2014 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:4: error: AUTHOR does not conform to COBOL 2014
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/configuration.at:65"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:68: \$COMPILE_ONLY -std=xopen prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=xopen prog.cob" "configuration.at:68"
-( $at_check_trace; $COMPILE_ONLY -std=xopen prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:4: warning: AUTHOR used
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:68"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:71: \$COMPILE_ONLY -std=acu-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=acu-strict prog.cob" "configuration.at:71"
-( $at_check_trace; $COMPILE_ONLY -std=acu-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:4: warning: AUTHOR is obsolete in ACUCOBOL-GT
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:71"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:74: \$COMPILE_ONLY -std=bs2000-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=bs2000-strict prog.cob" "configuration.at:74"
-( $at_check_trace; $COMPILE_ONLY -std=bs2000-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:4: error: AUTHOR does not conform to BS2000 COBOL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/configuration.at:74"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:77: \$COMPILE_ONLY -std=ibm-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=ibm-strict prog.cob" "configuration.at:77"
-( $at_check_trace; $COMPILE_ONLY -std=ibm-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:4: warning: AUTHOR is obsolete in IBM COBOL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:77"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:80: \$COMPILE_ONLY -std=mf-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=mf-strict prog.cob" "configuration.at:80"
-( $at_check_trace; $COMPILE_ONLY -std=mf-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:4: warning: AUTHOR is obsolete in Micro Focus COBOL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:80"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:83: \$COMPILE_ONLY -std=rm-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=rm-strict prog.cob" "configuration.at:83"
-( $at_check_trace; $COMPILE_ONLY -std=rm-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:4: warning: AUTHOR is obsolete in RM-COBOL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:83"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:86: \$COMPILE_ONLY -std=realia-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=realia-strict prog.cob" "configuration.at:86"
-( $at_check_trace; $COMPILE_ONLY -std=realia-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:86"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:87: \$COMPILE_ONLY -std=mvs-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=mvs-strict prog.cob" "configuration.at:87"
-( $at_check_trace; $COMPILE_ONLY -std=mvs-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:4: warning: AUTHOR is obsolete in IBM COBOL for MVS & VM
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:87"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:90: \$COMPILE_ONLY -std=gcos-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=gcos-strict prog.cob" "configuration.at:90"
-( $at_check_trace; $COMPILE_ONLY -std=gcos-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:4: warning: AUTHOR is obsolete in GCOS
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:90"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:93: \$COMPILE_ONLY -std=acu prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=acu prog.cob" "configuration.at:93"
-( $at_check_trace; $COMPILE_ONLY -std=acu prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:93"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:94: \$COMPILE_ONLY -std=bs2000 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=bs2000 prog.cob" "configuration.at:94"
-( $at_check_trace; $COMPILE_ONLY -std=bs2000 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:94"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:95: \$COMPILE_ONLY -std=ibm prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=ibm prog.cob" "configuration.at:95"
-( $at_check_trace; $COMPILE_ONLY -std=ibm prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:95"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:96: \$COMPILE_ONLY -std=mf prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=mf prog.cob" "configuration.at:96"
-( $at_check_trace; $COMPILE_ONLY -std=mf prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:96"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:97: \$COMPILE_ONLY -std=rm prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=rm prog.cob" "configuration.at:97"
-( $at_check_trace; $COMPILE_ONLY -std=rm prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:97"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:98: \$COMPILE_ONLY -std=realia prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=realia prog.cob" "configuration.at:98"
-( $at_check_trace; $COMPILE_ONLY -std=realia prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:98"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:99: \$COMPILE_ONLY -std=mvs prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=mvs prog.cob" "configuration.at:99"
-( $at_check_trace; $COMPILE_ONLY -std=mvs prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:99"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:100: \$COMPILE_ONLY -std=gcos prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=gcos prog.cob" "configuration.at:100"
-( $at_check_trace; $COMPILE_ONLY -std=gcos prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:100"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_27
-#AT_START_28
-at_fn_group_banner 28 'configuration.at:105' \
- "cobc with configuration file via -std" " " 1
-at_xfail=no
-(
- printf "%s\n" "28. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- AUTHOR. tester.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-# check if -std loads configuration file and if override works
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:119: \$COMPILE_ONLY -std=cobol2014 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol2014 prog.cob" "configuration.at:119"
-( $at_check_trace; $COMPILE_ONLY -std=cobol2014 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:4: error: AUTHOR does not conform to COBOL 2014
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/configuration.at:119"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_28
-#AT_START_29
-at_fn_group_banner 29 'configuration.at:126' \
- "cobc with standard configuration file via -conf" "" 1
-at_xfail=no
-(
- printf "%s\n" "29. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- AUTHOR. tester.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-# check if override via -conf works
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:140: \$COMPILE_ONLY -conf=cobol2014.conf prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -conf=cobol2014.conf prog.cob" "configuration.at:140"
-( $at_check_trace; $COMPILE_ONLY -conf=cobol2014.conf prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:4: error: AUTHOR does not conform to COBOL 2014
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/configuration.at:140"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_29
-#AT_START_30
-at_fn_group_banner 30 'configuration.at:147' \
- "cobc with own configuration file via -conf" " " 1
-at_xfail=no
-(
- printf "%s\n" "30. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >test.conf <<'_ATEOF'
-
-include "default.conf"
-name: "Sample Conf"
-comment-paragraphs: ok
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- AUTHOR. tester.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-# check if override via -conf works and if include works
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:167: \$COMPILE_ONLY -conf=test.conf prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -conf=test.conf prog.cob" "configuration.at:167"
-( $at_check_trace; $COMPILE_ONLY -conf=test.conf prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:167"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# check if configuration file loading with full path works
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:170: \$COMPILE_ONLY \\
--conf=\"\$(_return_path \"\$(pwd)/test.conf\")\" prog.cob"
-at_fn_check_prepare_notrace 'a $(...) command substitution' "configuration.at:170"
-( $at_check_trace; $COMPILE_ONLY \
--conf="$(_return_path "$(pwd)/test.conf")" prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:170"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_30
-#AT_START_31
-at_fn_group_banner 31 'configuration.at:176' \
- "cobc configuration: recursive include" " " 1
-at_xfail=no
-(
- printf "%s\n" "31. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >test.conf <<'_ATEOF'
-
-# different line for "include" to check the line number
-include "test2.conf"
-_ATEOF
-
-
-cat >test2.conf <<'_ATEOF'
-
-# include in
-# line 4
-include "test3.conf"
-_ATEOF
-
-
-cat >test3.conf <<'_ATEOF'
-
-include "test.conf"
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:203: \$COMPILE_ONLY -conf=test.conf prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -conf=test.conf prog.cob" "configuration.at:203"
-( $at_check_trace; $COMPILE_ONLY -conf=test.conf prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "configuration error:
-test.conf: recursive inclusion
-test3.conf:2: configuration file was included here
-test2.conf:4: configuration file was included here
-test.conf:3: configuration file was included here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/configuration.at:203"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_31
-#AT_START_32
-at_fn_group_banner 32 'configuration.at:214' \
- "cobc with -std and -conf" " " 1
-at_xfail=no
-(
- printf "%s\n" "32. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >test.conf <<'_ATEOF'
-
-include "mf.conf"
-name: "Sample Conf"
-comment-paragraphs: ok
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- AUTHOR. tester.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-# check if override via -conf works and if include works
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:234: \$COMPILE_ONLY -std=default -conf=test.conf prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=default -conf=test.conf prog.cob" "configuration.at:234"
-( $at_check_trace; $COMPILE_ONLY -std=default -conf=test.conf prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "configuration warning: test.conf: The previous loaded configuration 'GnuCOBOL' will be discarded.
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:234"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_32
-#AT_START_33
-at_fn_group_banner 33 'configuration.at:241' \
- "cobc compiler flag on command line" " " 1
-at_xfail=no
-(
- printf "%s\n" "33. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- AUTHOR. tester.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:254: \$COMPILE_ONLY -fcomment-paragraphs=ok prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fcomment-paragraphs=ok prog.cob" "configuration.at:254"
-( $at_check_trace; $COMPILE_ONLY -fcomment-paragraphs=ok prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:254"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_33
-#AT_START_34
-at_fn_group_banner 34 'configuration.at:260' \
- "cobc compiler flag on command line (priority)" " " 1
-at_xfail=no
-(
- printf "%s\n" "34. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >test.conf <<'_ATEOF'
-
-include "default.conf"
-name: "Sample Conf"
-comment-paragraphs: unconformable
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- AUTHOR. tester.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-# configuration flags must work
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:280: \$COMPILE_ONLY \\
--fcomment-paragraphs=ok prog.cob"
-at_fn_check_prepare_notrace 'an embedded newline' "configuration.at:280"
-( $at_check_trace; $COMPILE_ONLY \
--fcomment-paragraphs=ok prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:280"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# configuration flag on command line must override all (no matter where it's used)
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:284: \$COMPILE_ONLY \\
--fcomment-paragraphs=ok -conf=test.conf prog.cob"
-at_fn_check_prepare_notrace 'an embedded newline' "configuration.at:284"
-( $at_check_trace; $COMPILE_ONLY \
--fcomment-paragraphs=ok -conf=test.conf prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:284"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:286: \$COMPILE_ONLY \\
--conf=test.conf -fcomment-paragraphs=ok prog.cob"
-at_fn_check_prepare_notrace 'an embedded newline' "configuration.at:286"
-( $at_check_trace; $COMPILE_ONLY \
--conf=test.conf -fcomment-paragraphs=ok prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:286"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_34
-#AT_START_35
-at_fn_group_banner 35 'configuration.at:293' \
- "cobc configuration: entries" " " 1
-at_xfail=no
-(
- printf "%s\n" "35. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-# conf entries must be clean
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:306: \$COMPILE_ONLY -q \\
--fcomment-paragraphsok prog.cob"
-at_fn_check_prepare_notrace 'an embedded newline' "configuration.at:306"
-( $at_check_trace; $COMPILE_ONLY -q \
--fcomment-paragraphsok prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "cobc: unrecognized option '-fcomment-paragraphsok'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/configuration.at:306"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:310: \$COMPILE_ONLY \\
--fassign-clause=cobol-2002 prog.cob"
-at_fn_check_prepare_notrace 'an embedded newline' "configuration.at:310"
-( $at_check_trace; $COMPILE_ONLY \
--fassign-clause=cobol-2002 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "configuration error:
--fassign-clause=cobol-2002: invalid value 'cobol-2002' for configuration tag 'assign-clause';
- should be one of the following values: dynamic, external, mf, ibm
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/configuration.at:310"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:316: \$COMPILE_ONLY \\
--freserved-words=default prog.cob"
-at_fn_check_prepare_notrace 'an embedded newline' "configuration.at:316"
-( $at_check_trace; $COMPILE_ONLY \
--freserved-words=default prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:316"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:318: \$COMPILE_ONLY \\
--freserved-words=defaults prog.cob"
-at_fn_check_prepare_notrace 'an embedded newline' "configuration.at:318"
-( $at_check_trace; $COMPILE_ONLY \
--freserved-words=defaults prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "configuration error:
--freserved-words=defaults: Could not access word list for 'defaults'
-defaults.words: No such file or directory
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/configuration.at:318"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:324: \$COMPILE_ONLY \\
--fword-length=thirty prog.cob"
-at_fn_check_prepare_notrace 'an embedded newline' "configuration.at:324"
-( $at_check_trace; $COMPILE_ONLY \
--fword-length=thirty prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "configuration error:
--fword-length=thirty: invalid value 'thirty' for configuration tag 'word-length';
- must be numeric
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/configuration.at:324"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:330: \$COMPILE_ONLY \\
--fstandard-define=99 prog.cob"
-at_fn_check_prepare_notrace 'an embedded newline' "configuration.at:330"
-( $at_check_trace; $COMPILE_ONLY \
--fstandard-define=99 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "configuration error:
--fstandard-define=99: invalid value '99' for configuration tag 'standard-define';
- maximum value: 9
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/configuration.at:330"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_35
-#AT_START_36
-at_fn_group_banner 36 'configuration.at:340' \
- "cobc configuration: conf missing" " " 1
-at_xfail=no
-(
- printf "%s\n" "36. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >defunc.conf <<'_ATEOF'
-
-include "notthere.conf"
-_ATEOF
-
-
-cat >defunc2.conf <<'_ATEOF'
-
-include
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:351: \$COMPILE_ONLY -conf=notthere.conf prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -conf=notthere.conf prog.cob" "configuration.at:351"
-( $at_check_trace; $COMPILE_ONLY -conf=notthere.conf prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "configuration error:
-notthere.conf: No such file or directory
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/configuration.at:351"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:355: \$COMPILE_ONLY -conf=defunc.conf prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -conf=defunc.conf prog.cob" "configuration.at:355"
-( $at_check_trace; $COMPILE_ONLY -conf=defunc.conf prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "configuration error:
-notthere.conf: No such file or directory
-defunc.conf:2: configuration file was included here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/configuration.at:355"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:360: \$COMPILE_ONLY -conf=defunc2.conf prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -conf=defunc2.conf prog.cob" "configuration.at:360"
-( $at_check_trace; $COMPILE_ONLY -conf=defunc2.conf prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "configuration error:
-defunc2.conf:2: invalid configuration tag 'include'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/configuration.at:360"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_36
-#AT_START_37
-at_fn_group_banner 37 'configuration.at:368' \
- "cobc configuration: conf optional" " " 1
-at_xfail=no
-(
- printf "%s\n" "37. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >defunc.conf <<'_ATEOF'
-
-include "default.conf"
-includeif "notthere.conf"
-_ATEOF
-
-
-cat >test.conf <<'_ATEOF'
-
-include "default.conf"
-include "test2.conf"
-_ATEOF
-
-
-cat >test2.conf <<'_ATEOF'
-
-name: "Sample Conf"
-comment-paragraphs: ok
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- AUTHOR. tester.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:396: \$COMPILE_ONLY -conf=defunc.conf prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -conf=defunc.conf prog.cob" "configuration.at:396"
-( $at_check_trace; $COMPILE_ONLY -conf=defunc.conf prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:4: warning: AUTHOR is obsolete in GnuCOBOL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:396"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:399: \$COMPILE_ONLY -conf=test.conf prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -conf=test.conf prog.cob" "configuration.at:399"
-( $at_check_trace; $COMPILE_ONLY -conf=test.conf prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:399"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_37
-#AT_START_38
-at_fn_group_banner 38 'configuration.at:404' \
- "cobc configuration: incomplete" " " 1
-at_xfail=no
-(
- printf "%s\n" "38. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >test.conf <<'_ATEOF'
-
-name: "Empty Conf"
-_ATEOF
-
-
-# check if incomplete configuration result in error
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:412: \$COMPILE_ONLY -conf=test.conf prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -conf=test.conf prog.cob" "configuration.at:412"
-( $at_check_trace; $COMPILE_ONLY -conf=test.conf prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "configuration error:
-test.conf: missing definitions:
- no definition of 'reserved-words'
- no definition of 'tab-width'
- no definition of 'text-column'
- no definition of 'pic-length'
- no definition of 'word-length'
- no definition of 'literal-length'
- no definition of 'numeric-literal-length'
- no definition of 'defaultbyte'
- no definition of 'standard-define'
- no definition of 'format'
- no definition of 'binary-size'
- no definition of 'binary-byteorder'
- no definition of 'assign-clause'
- no definition of 'screen-section-rules'
- no definition of 'dpc-in-data'
- no definition of 'subscript-check'
- no definition of 'filename-mapping'
- no definition of 'pretty-display'
- no definition of 'binary-truncate'
- no definition of 'complex-odo'
- no definition of 'odoslide'
- no definition of 'init-justify'
- no definition of 'indirect-redefines'
- no definition of 'relax-syntax-checks'
- no definition of 'ref-mod-zero-length'
- no definition of 'relax-level-hierarchy'
- no definition of 'select-working'
- no definition of 'local-implies-recursive'
- no definition of 'sticky-linkage'
- no definition of 'move-ibm'
- no definition of 'perform-osvs'
- no definition of 'arithmetic-osvs'
- no definition of 'constant-folding'
- no definition of 'hostsign'
- no definition of 'program-name-redefinition'
- no definition of 'accept-update'
- no definition of 'accept-auto'
- no definition of 'console-is-crt'
- no definition of 'no-echo-means-secure'
- no definition of 'line-col-zero-default'
- no definition of 'display-special-fig-consts'
- no definition of 'binary-comp-1'
- no definition of 'numeric-pointer'
- no definition of 'move-non-numeric-lit-to-numeric-is-zero'
- no definition of 'implicit-assign-dynamic-var'
- no definition of 'device-mnemonics'
- no definition of 'xml-parse-xmlss'
- no definition of 'areacheck'
- no definition of 'comment-paragraphs'
- no definition of 'control-division'
- no definition of 'partial-replace-when-literal-src'
- no definition of 'memory-size-clause'
- no definition of 'multiple-file-tape-clause'
- no definition of 'label-records-clause'
- no definition of 'value-of-clause'
- no definition of 'data-records-clause'
- no definition of 'top-level-occurs-clause'
- no definition of 'same-as-clause'
- no definition of 'type-to-clause'
- no definition of 'usage-type'
- no definition of 'synchronized-clause'
- no definition of 'sync-left-right'
- no definition of 'special-names-clause'
- no definition of 'goto-statement-without-name'
- no definition of 'stop-literal-statement'
- no definition of 'stop-identifier-statement'
- no definition of 'stop-error-statement'
- no definition of 'debugging-mode'
- no definition of 'use-for-debugging'
- no definition of 'padding-character-clause'
- no definition of 'next-sentence-phrase'
- no definition of 'listing-statements'
- no definition of 'title-statement'
- no definition of 'entry-statement'
- no definition of 'move-noninteger-to-alphanumeric'
- no definition of 'move-figurative-constant-to-numeric'
- no definition of 'move-figurative-space-to-numeric'
- no definition of 'move-figurative-quote-to-numeric'
- no definition of 'odo-without-to'
- no definition of 'section-segments'
- no definition of 'alter-statement'
- no definition of 'call-overflow'
- no definition of 'numeric-boolean'
- no definition of 'hexadecimal-boolean'
- no definition of 'national-literals'
- no definition of 'hexadecimal-national-literals'
- no definition of 'national-character-literals'
- no definition of 'hp-octal-literals'
- no definition of 'acu-literals'
- no definition of 'ebcdic-symbolic-characters'
- no definition of 'word-continuation'
- no definition of 'not-exception-before-exception'
- no definition of 'accept-display-extensions'
- no definition of 'renames-uncommon-levels'
- no definition of 'larger-redefines'
- no definition of 'symbolic-constant'
- no definition of 'constant-78'
- no definition of 'constant-01'
- no definition of 'perform-varying-without-by'
- no definition of 'reference-out-of-declaratives'
- no definition of 'program-prototypes'
- no definition of 'call-convention-mnemonic'
- no definition of 'call-convention-linkage'
- no definition of 'using-optional'
- no definition of 'numeric-value-for-edited-item'
- no definition of 'incorrect-conf-sec-order'
- no definition of 'define-constant-directive'
- no definition of 'free-redefines-position'
- no definition of 'records-mismatch-record-clause'
- no definition of 'record-delimiter'
- no definition of 'sequential-delimiters'
- no definition of 'record-delim-with-fixed-recs'
- no definition of 'missing-statement'
- no definition of 'missing-period'
- no definition of 'zero-length-literals'
- no definition of 'xml-generate-extra-phrases'
- no definition of 'continue-after'
- no definition of 'goto-entry'
- no definition of 'assign-variable'
- no definition of 'assign-using-variable'
- no definition of 'assign-ext-dyn'
- no definition of 'assign-disk-from'
- no definition of 'vsam-status'
- no definition of 'self-call-recursive'
- no definition of 'record-contains-depending-clause'
- no definition of 'picture-l'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/configuration.at:412"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_38
-#AT_START_39
-at_fn_group_banner 39 'configuration.at:546' \
- "runtime configuration" " " 1
-at_xfail=no
-(
- printf "%s\n" "39. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# check if --runtime-conf exits without error
-# don't compare stdout
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:551: \$COBCRUN --runtime-conf"
-at_fn_check_prepare_dynamic "$COBCRUN --runtime-conf" "configuration.at:551"
-( $at_check_trace; $COBCRUN --runtime-conf
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:551"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# check if --runtime-conf points to a file called "runtime_empty.cfg"
-# use tr to remove newlines and spaces as the path likely is split
-# into two lines
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:556: \$COBCRUN --runtime-conf | tr -d '\\n ' | \\
-\$GREP \"runtime_empty.cfg\""
-at_fn_check_prepare_notrace 'an embedded newline' "configuration.at:556"
-( $at_check_trace; $COBCRUN --runtime-conf | tr -d '\n ' | \
-$GREP "runtime_empty.cfg"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:556"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:558: COB_RUNTIME_CONFIG=\"\" \$COBCRUN --runtime-conf | tr -d '\\n ' \\
-| \$GREP \"runtime.cfg\""
-at_fn_check_prepare_notrace 'an embedded newline' "configuration.at:558"
-( $at_check_trace; COB_RUNTIME_CONFIG="" $COBCRUN --runtime-conf | tr -d '\n ' \
-| $GREP "runtime.cfg"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:558"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_39
-#AT_START_40
-at_fn_group_banner 40 'configuration.at:565' \
- "runtime configuration file" " " 1
-at_xfail=no
-(
- printf "%s\n" "40. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >test.cfg <<'_ATEOF'
-
-include "test2.cfg"
-_ATEOF
-
-
-cat >test2.cfg <<'_ATEOF'
-
-physical_cancel true
-_ATEOF
-
-
-cat >test3.cfg <<'_ATEOF'
-
-setenv COB_PHYSICAL_CANCEL=true
-_ATEOF
-
-
-
-# verify that default for physical cancel is still "no"
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:582: \$COBCRUN --runtime-conf | \\
-\$GREP \"COB_PHYSICAL_CANCEL\" | \$GREP \"no\" | \$GREP \"default\""
-at_fn_check_prepare_notrace 'an embedded newline' "configuration.at:582"
-( $at_check_trace; $COBCRUN --runtime-conf | \
-$GREP "COB_PHYSICAL_CANCEL" | $GREP "no" | $GREP "default"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:582"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# verify that override via -c works and if include works
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:586: \$COBCRUN -c test2.cfg --runtime-conf | \\
-\$GREP \"physical_cancel\" | \$GREP \"yes\""
-at_fn_check_prepare_notrace 'an embedded newline' "configuration.at:586"
-( $at_check_trace; $COBCRUN -c test2.cfg --runtime-conf | \
-$GREP "physical_cancel" | $GREP "yes"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:586"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:588: \$COBCRUN -c test.cfg --runtime-conf | \\
-\$GREP \"physical_cancel\" | \$GREP \"yes\""
-at_fn_check_prepare_notrace 'an embedded newline' "configuration.at:588"
-( $at_check_trace; $COBCRUN -c test.cfg --runtime-conf | \
-$GREP "physical_cancel" | $GREP "yes"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:588"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:590: \$COBCRUN -c test3.cfg --runtime-conf | \\
-\$GREP \"COB_PHYSICAL_CANCEL\" | \$GREP \"yes\""
-at_fn_check_prepare_notrace 'an embedded newline' "configuration.at:590"
-( $at_check_trace; $COBCRUN -c test3.cfg --runtime-conf | \
-$GREP "COB_PHYSICAL_CANCEL" | $GREP "yes"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:590"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# verify that that long option works
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:594: \$COBCRUN --config=test3.cfg --runtime-conf | \\
-\$GREP \"COB_PHYSICAL_CANCEL\" | \$GREP \"yes\""
-at_fn_check_prepare_notrace 'an embedded newline' "configuration.at:594"
-( $at_check_trace; $COBCRUN --config=test3.cfg --runtime-conf | \
-$GREP "COB_PHYSICAL_CANCEL" | $GREP "yes"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:594"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# verify that that environment setting works
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:598: COB_RUNTIME_CONFIG=test3.cfg \$COBCRUN --runtime-conf | \\
-\$GREP \"COB_PHYSICAL_CANCEL\" | \$GREP \"yes\""
-at_fn_check_prepare_notrace 'an embedded newline' "configuration.at:598"
-( $at_check_trace; COB_RUNTIME_CONFIG=test3.cfg $COBCRUN --runtime-conf | \
-$GREP "COB_PHYSICAL_CANCEL" | $GREP "yes"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:598"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# verify that configuration file loading with full path works
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:602: \$COBCRUN -c \"\$(_return_path \"\$(pwd)/test.cfg\")\" --runtime-conf"
-at_fn_check_prepare_notrace 'a $(...) command substitution' "configuration.at:602"
-( $at_check_trace; $COBCRUN -c "$(_return_path "$(pwd)/test.cfg")" --runtime-conf
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:602"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_40
-#AT_START_41
-at_fn_group_banner 41 'configuration.at:608' \
- "runtime configuration: recursive include" " " 1
-at_xfail=no
-(
- printf "%s\n" "41. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >test.cfg <<'_ATEOF'
-
-# different line for "include" to check the line number
-include "test2.cfg"
-_ATEOF
-
-
-cat >test2.cfg <<'_ATEOF'
-
-# include in
-# line 4
-include "test3.cfg"
-_ATEOF
-
-
-cat >test3.cfg <<'_ATEOF'
-
-include "test.cfg"
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:626: \$COBCRUN -c test.cfg -r"
-at_fn_check_prepare_dynamic "$COBCRUN -c test.cfg -r" "configuration.at:626"
-( $at_check_trace; $COBCRUN -c test.cfg -r
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "configuration error:
-test.cfg: recursive inclusion
-test3.cfg:2: configuration file was included here
-test2.cfg:4: configuration file was included here
-test.cfg:3: configuration file was included here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/configuration.at:626"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_41
-#AT_START_42
-at_fn_group_banner 42 'configuration.at:637' \
- "runtime configuration: environment priority" " " 1
-at_xfail=no
-(
- printf "%s\n" "42. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >test.cfg <<'_ATEOF'
-
-physical_cancel true
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:644: COB_PHYSICAL_CANCEL=false \$COBCRUN -c test.cfg --runtime-conf | \\
-\$GREP \"COB_PHYSICAL_CANCEL\" | \$GREP \"no\""
-at_fn_check_prepare_notrace 'an embedded newline' "configuration.at:644"
-( $at_check_trace; COB_PHYSICAL_CANCEL=false $COBCRUN -c test.cfg --runtime-conf | \
-$GREP "COB_PHYSICAL_CANCEL" | $GREP "no"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:644"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_42
-#AT_START_43
-at_fn_group_banner 43 'configuration.at:650' \
- "runtime configuration: entries" " " 1
-at_xfail=no
-(
- printf "%s\n" "43. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:653: echo \"\$PATHSEP\""
-at_fn_check_prepare_dynamic "echo \"$PATHSEP\"" "configuration.at:653"
-( $at_check_trace; echo "$PATHSEP"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" ";
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:653"
-if $at_failed
-then :
-
-
-# Previous test "failed" --> PATHSEP isn't ;
-
- cat >defunc.cfg <<'_ATEOF'
-
-novar
-physical_cancel notwithme
-load_case insensitive
-varseq_format big
-sort_chunk 4K
-sort_memory 4G # too big by some byte
-setenv nothing
-sort_chunk
-trace_file /tmp:/temp
-_ATEOF
-
-
-# conf entries must be clean
- { set +x
-printf "%s\n" "$at_srcdir/configuration.at:653: \$COBCRUN -c defunc.cfg --runtime-conf"
-at_fn_check_prepare_dynamic "$COBCRUN -c defunc.cfg --runtime-conf" "configuration.at:653"
-( $at_check_trace; $COBCRUN -c defunc.cfg --runtime-conf
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "configuration error:
-defunc.cfg:2: unknown configuration tag 'novar'
-defunc.cfg:3: invalid value 'notwithme' for configuration tag 'physical_cancel';
- should be one of the following values: true, false
-defunc.cfg:4: invalid value 'insensitive' for configuration tag 'load_case';
- should be one of the following values: LOWER(1), UPPER(2), not set(0)
-defunc.cfg:5: invalid value 'big' for configuration tag 'varseq_format';
- should be one of the following values: 0, 1, 2, 3
-defunc.cfg:6: invalid value '4K' for configuration tag 'sort_chunk';
- minimum value: 131072
-defunc.cfg:7: invalid value '4G' for configuration tag 'sort_memory';
- maximum value: 4294967294
-defunc.cfg:8: WARNING - 'setenv nothing' without a value - ignored!
-defunc.cfg:9: WARNING - 'sort_chunk' without a value - ignored!
-defunc.cfg:10: invalid value '/tmp:/temp' for configuration tag 'trace_file';
- should not contain ':'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/configuration.at:653"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-else $as_nop
-
-# Previous test "passed" --> PATHSEP is ;
-
- cat >defunc.cfg <<'_ATEOF'
-
-novar
-physical_cancel notwithme
-load_case insensitive
-varseq_format big
-sort_chunk 4K
-sort_memory 4G # too big by some byte
-setenv nothing
-sort_chunk
-trace_file C:\tmp;C:\temp
-_ATEOF
-
-
-# conf entries must be clean
- { set +x
-printf "%s\n" "$at_srcdir/configuration.at:653: \$COBCRUN -c defunc.cfg --runtime-conf"
-at_fn_check_prepare_dynamic "$COBCRUN -c defunc.cfg --runtime-conf" "configuration.at:653"
-( $at_check_trace; $COBCRUN -c defunc.cfg --runtime-conf
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "configuration error:
-defunc.cfg:2: unknown configuration tag 'novar'
-defunc.cfg:3: invalid value 'notwithme' for configuration tag 'physical_cancel';
- should be one of the following values: true, false
-defunc.cfg:4: invalid value 'insensitive' for configuration tag 'load_case';
- should be one of the following values: LOWER(1), UPPER(2), not set(0)
-defunc.cfg:5: invalid value 'big' for configuration tag 'varseq_format';
- should be one of the following values: 0, 1, 2, 3
-defunc.cfg:6: invalid value '4K' for configuration tag 'sort_chunk';
- minimum value: 131072
-defunc.cfg:7: invalid value '4G' for configuration tag 'sort_memory';
- maximum value: 4294967294
-defunc.cfg:8: WARNING - 'setenv nothing' without a value - ignored!
-defunc.cfg:9: WARNING - 'sort_chunk' without a value - ignored!
-defunc.cfg:10: invalid value 'C:\\tmp;C:\\temp' for configuration tag 'trace_file';
- should not contain ';'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/configuration.at:653"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-fi
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_43
-#AT_START_44
-at_fn_group_banner 44 'configuration.at:731' \
- "runtime configuration: conf missing" " " 1
-at_xfail=no
-(
- printf "%s\n" "44. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >defunc.cfg <<'_ATEOF'
-
-include "notthere.cfg"
-_ATEOF
-
-
-cat >defunc2.cfg <<'_ATEOF'
-
-include
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:742: \$COBCRUN -c notthere.cfg --runtime-conf"
-at_fn_check_prepare_dynamic "$COBCRUN -c notthere.cfg --runtime-conf" "configuration.at:742"
-( $at_check_trace; $COBCRUN -c notthere.cfg --runtime-conf
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "configuration error:
-notthere.cfg: No such file or directory
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/configuration.at:742"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:746: \$COBCRUN -c defunc.cfg --runtime-conf"
-at_fn_check_prepare_dynamic "$COBCRUN -c defunc.cfg --runtime-conf" "configuration.at:746"
-( $at_check_trace; $COBCRUN -c defunc.cfg --runtime-conf
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "configuration error:
-notthere.cfg: No such file or directory
-defunc.cfg:2: configuration file was included here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/configuration.at:746"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:752: \$COBCRUN -c defunc2.cfg --runtime-conf"
-at_fn_check_prepare_dynamic "$COBCRUN -c defunc2.cfg --runtime-conf" "configuration.at:752"
-( $at_check_trace; $COBCRUN -c defunc2.cfg --runtime-conf
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "configuration error:
-defunc2.cfg:2: 'include' without a value!
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/configuration.at:752"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_44
-#AT_START_45
-at_fn_group_banner 45 'configuration.at:760' \
- "runtime configuration: conf optional" " " 1
-at_xfail=no
-(
- printf "%s\n" "45. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >defunc.cfg <<'_ATEOF'
-
-include "runtime_empty.cfg"
-includeif "notthere.cfg"
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:768: \$COBCRUN -c defunc.cfg --runtime-conf"
-at_fn_check_prepare_dynamic "$COBCRUN -c defunc.cfg --runtime-conf" "configuration.at:768"
-( $at_check_trace; $COBCRUN -c defunc.cfg --runtime-conf
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:768"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_45
-#AT_START_46
-at_fn_group_banner 46 'configuration.at:773' \
- "runtime configuration: strings and environment" " " 1
-at_xfail=no
-(
- printf "%s\n" "46. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:776: unset greet name ; \\
- TESTME=\"this is a test\" \\
- COB_EXIT_MSG='\${greet:Bye} \${name:-user}, \${TESTME}' \\
- \$COBCRUN --runtime-conf | \\
-\$GREP \"COB_EXIT_MSG\" | \$GREP \"Bye user, this is a test\""
-at_fn_check_prepare_notrace 'a ${...} parameter expansion' "configuration.at:776"
-( $at_check_trace; unset greet name ; \
- TESTME="this is a test" \
- COB_EXIT_MSG='${greet:Bye} ${name:-user}, ${TESTME}' \
- $COBCRUN --runtime-conf | \
-$GREP "COB_EXIT_MSG" | $GREP "Bye user, this is a test"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:776"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:781: \$COBCRUN --runtime-conf | \\
-\$GREP \"COB_EXIT_MSG\" | \$GREP \"end of program, please press a key to exit\""
-at_fn_check_prepare_notrace 'an embedded newline' "configuration.at:781"
-( $at_check_trace; $COBCRUN --runtime-conf | \
-$GREP "COB_EXIT_MSG" | $GREP "end of program, please press a key to exit"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:781"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_46
-#AT_START_47
-at_fn_group_banner 47 'configuration.at:787' \
- "validation of COB_CONFIG_DIR" " " 1
-at_xfail=no
-(
- printf "%s\n" "47. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:797: echo \"\$PATHSEP\""
-at_fn_check_prepare_dynamic "echo \"$PATHSEP\"" "configuration.at:797"
-( $at_check_trace; echo "$PATHSEP"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" ";
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:797"
-if $at_failed
-then :
- # Previous test "failed" --> PATHSEP isn't ;
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:802: COB_CONFIG_DIR=\".:/temp:/tmp\" \\
-\$COMPILE prog.cob"
-at_fn_check_prepare_notrace 'an embedded newline' "configuration.at:802"
-( $at_check_trace; COB_CONFIG_DIR=".:/temp:/tmp" \
-$COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "cobc: environment variable 'COB_CONFIG_DIR' is '.:/temp:/tmp'; should not contain ':'
-configuration error:
-./default.conf: No such file or directory
-cobc: error: please check environment variables as noted above
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/configuration.at:802"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-else $as_nop
- # Previous test "passed" --> PATHSEP is ;
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:814: COB_CONFIG_DIR=\".;C:\\temp;C:\\tmp\" \\
-\$COMPILE prog.cob"
-at_fn_check_prepare_notrace 'an embedded newline' "configuration.at:814"
-( $at_check_trace; COB_CONFIG_DIR=".;C:\temp;C:\tmp" \
-$COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "cobc: environment variable 'COB_CONFIG_DIR' is '.;C:\\temp;C:\\tmp'; should not contain ';'
-configuration error:
-.\\default.conf: No such file or directory
-cobc: error: please check environment variables as noted above
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/configuration.at:814"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-fi
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_47
-#AT_START_48
-at_fn_group_banner 48 'configuration.at:827' \
- "cobc configuration: source format" " " 1
-at_xfail=no
-(
- printf "%s\n" "48. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >fixed.cob <<'_ATEOF'
-
- *Example prog in fixed format (the default)
- IDENTIFICATION DIVISION.
- PROGRAM-ID. fixed.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- /
- PROCEDURE DIVISION.
- D DISPLAY 'START'
- DISPLAY ' 20 30 40 50 60 '
- DISPLAY ' 20 30 40 50 60
- - ' 70'
- D DISPLAY 'STOP'
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:846: \$COMPILE_ONLY -fformat=unknown fixed.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fformat=unknown fixed.cob" "configuration.at:846"
-( $at_check_trace; $COMPILE_ONLY -fformat=unknown fixed.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "configuration error:
--fformat=unknown: invalid value 'unknown' for configuration tag 'format';
- should be one of the following values: FIXED, FREE, COBOL85, VARIABLE, XOPEN, XCARD, CRT, TERMINAL, COBOLX
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/configuration.at:846"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:851: \$COMPILE_ONLY -fixed fixed.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fixed fixed.cob" "configuration.at:851"
-( $at_check_trace; $COMPILE_ONLY -fixed fixed.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:851"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:852: \$COMPILE_ONLY -fformat=fixed fixed.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fformat=fixed fixed.cob" "configuration.at:852"
-( $at_check_trace; $COMPILE_ONLY -fformat=fixed fixed.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:852"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:853: \$COMPILE_ONLY -fformat=cobol85 fixed.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fformat=cobol85 fixed.cob" "configuration.at:853"
-( $at_check_trace; $COMPILE_ONLY -fformat=cobol85 fixed.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:853"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >wide.cob <<'_ATEOF'
-
- *Example prog in fixed format with wider record length
- IDENTIFICATION DIVISION.
- PROGRAM-ID. wide.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- /
- PROCEDURE DIVISION.
- DISPLAY ' 20 30 40 50 60 70 '
- DISPLAY ' 20 30 40 50 60 70
- - ' 80'
- STOP RUN.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:868: \$COMPILE_ONLY -fformat=fixed wide.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fformat=fixed wide.cob" "configuration.at:868"
-( $at_check_trace; $COMPILE_ONLY -fformat=fixed wide.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "wide.cob:10: error: continuation character expected
-wide.cob:9: error: invalid literal: ' ...'
-wide.cob:9: note: missing terminating ' character
-wide.cob:9: warning: optional period used
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/configuration.at:868"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:874: \$COMPILE_ONLY -fformat=cobol85 wide.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fformat=cobol85 wide.cob" "configuration.at:874"
-( $at_check_trace; $COMPILE_ONLY -fformat=cobol85 wide.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "wide.cob:10: error: continuation character expected
-wide.cob:9: error: invalid literal: ' ...'
-wide.cob:9: note: missing terminating ' character
-wide.cob:9: warning: optional period used
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/configuration.at:874"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:880: \$COMPILE_ONLY -ftext-column=80 wide.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -ftext-column=80 wide.cob" "configuration.at:880"
-( $at_check_trace; $COMPILE_ONLY -ftext-column=80 wide.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:880"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_48
-#AT_START_49
-at_fn_group_banner 49 'configuration.at:885' \
- "cobc configuration: ebcdic-table" " " 1
-at_xfail=no
-(
- printf "%s\n" "49. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- OBJECT-COMPUTER.
- PROGRAM COLLATING SEQUENCE IS an-ebcdic.
- SPECIAL-NAMES.
- ALPHABET an-ebcdic IS EBCDIC.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-# Note: these tests need compile to C, as -febcdic-table handling is postponed to codegen
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:903: \$COMPILE -C -febcdic-table=default prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -C -febcdic-table=default prog.cob" "configuration.at:903"
-( $at_check_trace; $COMPILE -C -febcdic-table=default prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:903"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:904: \$COMPILE -C -febcdic-table=alternate prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -C -febcdic-table=alternate prog.cob" "configuration.at:904"
-( $at_check_trace; $COMPILE -C -febcdic-table=alternate prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:904"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:905: \$COMPILE -C -febcdic-table=ebcdic500_ascii7bit prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -C -febcdic-table=ebcdic500_ascii7bit prog.cob" "configuration.at:905"
-( $at_check_trace; $COMPILE -C -febcdic-table=ebcdic500_ascii7bit prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:905"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:906: \$COMPILE -C -febcdic-table=ebcdic500_ascii8bit prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -C -febcdic-table=ebcdic500_ascii8bit prog.cob" "configuration.at:906"
-( $at_check_trace; $COMPILE -C -febcdic-table=ebcdic500_ascii8bit prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:906"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:907: \$COMPILE -C -febcdic-table=ebcdic500_latin1 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -C -febcdic-table=ebcdic500_latin1 prog.cob" "configuration.at:907"
-( $at_check_trace; $COMPILE -C -febcdic-table=ebcdic500_latin1 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:907"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:908: \$COMPILE -C -febcdic-table=unknown prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -C -febcdic-table=unknown prog.cob" "configuration.at:908"
-( $at_check_trace; $COMPILE -C -febcdic-table=unknown prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: error: can't open translation table 'unknown'
-cobc: error: invalid parameter: -febcdic-table
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/configuration.at:908"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >valid.ttbl <<'_ATEOF'
-
-000102039C09867F978D8E0B0C0D0E0F101112139D8508871819928F1C1D1E1F80818283840A171B
-88898A8B8C050607909116939495960498999A9B14159E1A20A0E2E4E0E1E3E5E7F15B2E3C282B21
-26E9EAEBE8EDEEEFECDF5D242A293B5E2D2FC2C4C0C1C3C5C7D1A62C255F3E3FF8C9CACBC8CDCECF
-CC603A2340273D22D8616263646566676869ABBBF0FDFEB1B06A6B6C6D6E6F707172AABAE6B8C6A4
-B57E737475767778797AA1BFD0DDDEAEA2A3A5B7A9A7B6BCBDBEAC7CAFA8B4D77B41424344454647
-4849ADF4F6F2F3F57D4A4B4C4D4E4F505152B9FBFCF9FAFF5CF7535455565758595AB2D4D6D2D3D5
-30313233343536373839B3DBDCD9DA9F
-_ATEOF
-
-
-cat >valid2.ttbl <<'_ATEOF'
-
-# we may have any comments in here
-00 01 02 03 9C 09 86 7F 97 8D 8E 0B 0C 0D 0E 0F 10 11 12 13 9D 85 08 87 18 19 92
-8F 1C 1D 1E 1F 80 81 82 83 84 0A 17 1B 88 89 8A 8B 8C 05 06 07 90 91 16 93 94 95
-
-# even within
-
-96 04 98 99 9A 9B 14 15 9E 1A 20 A0 E2 E4 E0 E1 E3 E5 E7 F1 5B 2E 3C 28 2B 21 26
-E9 EA EB E8 ED EE EF EC DF 5D 24 2A 29 3B 5E 2D 2F C2 C4 C0 C1 C3 C5 C7 D1 A6 2C
-25 5F 3E 3F F8 C9 CA CB C8 CD CE CF CC 60 3A 23 40 27 3D 22 D8 61 62 63 64 65 66
-67 68 69 AB BB F0 FD FE B1 B0 6A 6B 6C 6D 6E 6F 70 71 72 AA BA E6 B8 C6 A4 B5 7E
-73 74 75 76 77 78 79 7A A1 BF D0 DD DE AE A2 A3 A5 B7 A9 A7 B6 BC BD BE AC 7C AF
-A8 B4 D7 7B 41 42 43 44 45 46 47 48 49 AD F4 F6 F2 F3 F5 7D 4A 4B 4C 4D 4E 4F 50
-51 52 B9 FB FC F9 FA FF 5C F7 53 54 55 56 57 58 59 5A B2 D4 D6 D2 D3 D5 30 31 32
-33 34 35 36 37 38 39 B3 DB DC D9 DA 9F
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:940: \$COMPILE -C -febcdic-table=./valid.ttbl prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -C -febcdic-table=./valid.ttbl prog.cob" "configuration.at:940"
-( $at_check_trace; $COMPILE -C -febcdic-table=./valid.ttbl prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:940"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:941: \$COMPILE -C -febcdic-table=./valid2.ttbl prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -C -febcdic-table=./valid2.ttbl prog.cob" "configuration.at:941"
-( $at_check_trace; $COMPILE -C -febcdic-table=./valid2.ttbl prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/configuration.at:941"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >invalid.ttbl <<'_ATEOF'
-
-000102039C09867F978D8E0B0C0D0E0F101112139D8508871819928F1C1D1E1F80818283840A171B
-88898A8B8C050607909116939495960498999A9B14159E1A20A0E2E4E0E1E3E5E7F15B2E3C282B21
-26E9EAEBE8EDEEEFECDF5D242A293B5E2D2FC2C4C0C1C3C5C7D1A62X255F3E3FF8C9CACBC8CDCECF
-CC60YA2340273D22D8616263646566676869ABBBF0FDFEB1B06A6B6C6D6E6F707172AABAE6B8C6A4
-B57E737475767778797AA1BFD0DDDEAEA2A3A5B7A9A7B6BCBDBEAC7CAFA8B4D77B41424344454647
-4849ADF4F6F2F3F57D4A4B4C4D4E4F505152B9FBFCF9FAFF5CF7535455565758595AB2D4D6D2D3D5
-30313233343536373839B3DBDCD9DA9F
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:953: \$COMPILE -C -febcdic-table=./invalid.ttbl prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -C -febcdic-table=./invalid.ttbl prog.cob" "configuration.at:953"
-( $at_check_trace; $COMPILE -C -febcdic-table=./invalid.ttbl prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: error: errors in translation table './invalid.ttbl':
-libcob: error: invalid hex byte on line 4: '2X'
-libcob: error: invalid hex byte on line 5: 'YA'
-cobc: error: invalid parameter: -febcdic-table
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/configuration.at:953"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >shorter.ttbl <<'_ATEOF'
-
-0102039C09867F978D8E0B0C0D0E0F101112139D8508871819928F1C1D1E1F80818283840A171B88
-898A8B8C050607909116939495960498999A9B14159E1A20A0E2E4E0E1E3E5E7F15B2E3C282B2126
-E9EAEBE8EDEEEFECDF5D242A293B5E2D2FC2C4C0C1C3C5C7D1A62C255F3E3FF8C9CACBC8CDCECFCC
-603A2340273D22D8616263646566676869ABBBF0FDFEB1B06A6B6C6D6E6F707172AABAE6B8C6A4B5
-7E737475767778797AA1BFD0DDDEAEA2A3A5B7A9A7B6BCBDBEAC7CAFA8B4D77B4142434445464748
-49ADF4F6F2F3F57D4A4B4C4D4E4F505152B9FBFCF9FAFF5CF7535455565758595AB2D4D6D2D3D530
-313233343536373839B3DBDCD9DA9F
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:970: \$COMPILE -C -febcdic-table=./shorter.ttbl prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -C -febcdic-table=./shorter.ttbl prog.cob" "configuration.at:970"
-( $at_check_trace; $COMPILE -C -febcdic-table=./shorter.ttbl prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: error: not enough data in translation table './shorter.ttbl'
-cobc: error: invalid parameter: -febcdic-table
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/configuration.at:970"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >shorter_longer.ttbl <<'_ATEOF'
-
-000102039C09867F978D8E0B0C0D0E0F101112139D8508871819928F1C1D1E1F80818283840A171B
-88898A8B8C050607909116939495960498999A9B14159E1A20A0E2E4E0E1E3E5E7F15B2E3C282B21
-26E9EAEBE8EDEEEFECDF5D242A293B5E2D2FC2C4C0C1C3C5C7D1A62C255F3E3FF8C9CACBC8CDCECF
-CC603A2340273D22D8616263646566676869ABBBF0FDFEB1B06A6B6C6D6E6F707172AABAE6B8C6A4
-B57E737475767778797AA1BFD0DDDEAEA2A3A5B7A9A7B6BCBDBEAC7CAFA8B4D77B41424344454647
-4849ADF4F6F2F3F57D4A4B4C4D4E4F505152B9FBFCF9FAFF5CF7535455565758595AB2D4D6D2D3D5
-30313233343536373839B3DBDCD9DA9FFF
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:985: \$COMPILE -C -febcdic-table=./shorter_longer.ttbl prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -C -febcdic-table=./shorter_longer.ttbl prog.cob" "configuration.at:985"
-( $at_check_trace; $COMPILE -C -febcdic-table=./shorter_longer.ttbl prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: error: either not enough or too much data in translation table './shorter_longer.ttbl'
-cobc: error: invalid parameter: -febcdic-table
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/configuration.at:985"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >longer.ttbl <<'_ATEOF'
-
-000102039C09867F978D8E0B0C0D0E0F101112139D8508871819928F1C1D1E1F80818283840A171B
-88898A8B8C050607909116939495960498999A9B14159E1A20A0E2E4E0E1E3E5E7F15B2E3C282B21
-26E9EAEBE8EDEEEFECDF5D242A293B5E2D2FC2C4C0C1C3C5C7D1A62C255F3E3FF8C9CACBC8CDCECF
-CC603A2340273D22D8616263646566676869ABBBF0FDFEB1B06A6B6C6D6E6F707172AABAE6B8C6A4
-B57E737475767778797AA1BFD0DDDEAEA2A3A5B7A9A7B6BCBDBEAC7CAFA8B4D77B41424344454647
-4849ADF4F6F2F3F57D4A4B4C4D4E4F505152B9FBFCF9FAFF5CF7535455565758595AB2D4D6D2D3D5
-30313233343536373839B3DBDCD9DA9F
-FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/configuration.at:1007: \$COMPILE -C -febcdic-table=./longer.ttbl prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -C -febcdic-table=./longer.ttbl prog.cob" "configuration.at:1007"
-( $at_check_trace; $COMPILE -C -febcdic-table=./longer.ttbl prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: error: too much data in translation table './longer.ttbl'
-cobc: error: invalid parameter: -febcdic-table
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/configuration.at:1007"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_49
-#AT_START_50
-at_fn_group_banner 50 'syn_copy.at:23' \
- "COPY: IN / OF / -I" " " 2
-at_xfail=no
-(
- printf "%s\n" "50. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "copy.inc" IN SUB.
- PROCEDURE DIVISION.
- DISPLAY TEST-VAR.
- STOP RUN.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "copy.inc" OF SUB.
- PROCEDURE DIVISION.
- DISPLAY TEST-VAR.
- STOP RUN.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "copy.inc" OF SUB.
- PROCEDURE DIVISION.
- DISPLAY TEST-VAR.
- STOP RUN.
-_ATEOF
-
-
-# TODO: Should default to auto-folding when IN "sub2" (literal) is used
-# and therefore don't work on case-sensitive file-systems
-cat >prog3.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "copy.inc" IN sub2.
- PROCEDURE DIVISION.
- DISPLAY TEST-VAR.
- STOP RUN.
-_ATEOF
-
-
-cat >prog4.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "copy.inc".
- PROCEDURE DIVISION.
- DISPLAY TEST-VAR.
- STOP RUN.
-_ATEOF
-
-
-cat >prog5.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "copy.inc" IN CBD.
- PROCEDURE DIVISION.
- DISPLAY TEST-VAR.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:94: mkdir -p SUB"
-at_fn_check_prepare_trace "syn_copy.at:94"
-( $at_check_trace; mkdir -p SUB
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:94"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-cat >SUB/copy.inc <<'_ATEOF'
-
- 77 TEST-VAR PIC X VALUE '1'.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:99: mkdir -p sub2"
-at_fn_check_prepare_trace "syn_copy.at:99"
-( $at_check_trace; mkdir -p sub2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:99"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-cat >sub2/copy.inc <<'_ATEOF'
-
- 77 TEST-VAR PIC X VALUE '2'.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:104: mkdir -p SUB/UNDER"
-at_fn_check_prepare_trace "syn_copy.at:104"
-( $at_check_trace; mkdir -p SUB/UNDER
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:104"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-cat >SUB/UNDER/copy.inc <<'_ATEOF'
-
- 77 TEST-VAR PIC X VALUE '3'.
-_ATEOF
-
-cat >copy.inc <<'_ATEOF'
-
- 77 TEST-VAR PIC X VALUE '4'.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:112: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_copy.at:112"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:112"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:113: \$COMPILE_ONLY prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog2.cob" "syn_copy.at:113"
-( $at_check_trace; $COMPILE_ONLY prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:113"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:114: \$COMPILE_ONLY prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog3.cob" "syn_copy.at:114"
-( $at_check_trace; $COMPILE_ONLY prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:114"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:115: \$COMPILE_ONLY prog4.cob -I SUB"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog4.cob -I SUB" "syn_copy.at:115"
-( $at_check_trace; $COMPILE_ONLY prog4.cob -I SUB
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:115"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:116: unset COB_COPY_LIB_CBD; \$COMPILE_ONLY prog5.cob"
-at_fn_check_prepare_dynamic "unset COB_COPY_LIB_CBD; $COMPILE_ONLY prog5.cob" "syn_copy.at:116"
-( $at_check_trace; unset COB_COPY_LIB_CBD; $COMPILE_ONLY prog5.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog5.cob:6: warning: copybook not found in library 'CBD', library-name ignored
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:116"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:119: COB_COPY_LIB_CBD=\"./SUB/UNDER\" \$COMPILE_ONLY prog5.cob"
-at_fn_check_prepare_dynamic "COB_COPY_LIB_CBD=\"./SUB/UNDER\" $COMPILE_ONLY prog5.cob" "syn_copy.at:119"
-( $at_check_trace; COB_COPY_LIB_CBD="./SUB/UNDER" $COMPILE_ONLY prog5.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:119"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:120: COB_COPY_LIB_CBD=\"\" \$COMPILE_ONLY prog5.cob"
-at_fn_check_prepare_dynamic "COB_COPY_LIB_CBD=\"\" $COMPILE_ONLY prog5.cob" "syn_copy.at:120"
-( $at_check_trace; COB_COPY_LIB_CBD="" $COMPILE_ONLY prog5.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:120"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_50
-#AT_START_51
-at_fn_group_banner 51 'syn_copy.at:125' \
- "COPY: relative copybooks" " " 2
-at_xfail=yes
-(
- printf "%s\n" "51. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# TODO - the source for the COPY statement is currently completely ignored
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:131: mkdir -p SUB/SUB2/SUB3"
-at_fn_check_prepare_trace "syn_copy.at:131"
-( $at_check_trace; mkdir -p SUB/SUB2/SUB3
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:131"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >SUB/prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "copy.inc" IN SUB2.
- PROCEDURE DIVISION.
- DISPLAY TEST-VAR TEST-VAR2.
- STOP RUN.
-_ATEOF
-
-
-
-cat >SUB/SUB2/copy.inc <<'_ATEOF'
-
- COPY "copy2.inc" IN SUB3.
-_ATEOF
-
-cat >SUB/SUB2/SUB3/copy2.inc <<'_ATEOF'
-
- 77 TEST-VAR PIC X VALUE '1'.
- COPY "copy3.inc".
-_ATEOF
-
-# for compatibility reasons (older GC versions) it was considered to add
-# the current working directory, but this idea was dropped:
-# explicit add via -I. or COB_COPY_DIR/COBCPY (where both "empty" and "." work)
-cat >copy3.inc <<'_ATEOF'
-
- COPY "copy4.inc" IN "SUBX".
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:158: mkdir -p SUBX"
-at_fn_check_prepare_trace "syn_copy.at:158"
-( $at_check_trace; mkdir -p SUBX
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:158"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-cat >SUBX/copy4.inc <<'_ATEOF'
-
- 77 TEST-VAR2 PIC X VALUE '2'.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:163: \$COMPILE_ONLY -I. SUB/prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -I. SUB/prog.cob" "syn_copy.at:163"
-( $at_check_trace; $COMPILE_ONLY -I. SUB/prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:163"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:164: COB_COPY_DIR=\".\" \$COMPILE_ONLY SUB/prog.cob"
-at_fn_check_prepare_dynamic "COB_COPY_DIR=\".\" $COMPILE_ONLY SUB/prog.cob" "syn_copy.at:164"
-( $at_check_trace; COB_COPY_DIR="." $COMPILE_ONLY SUB/prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:164"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:165: COB_COPY_DIR=\":\" \$COMPILE_ONLY SUB/prog.cob"
-at_fn_check_prepare_dynamic "COB_COPY_DIR=\":\" $COMPILE_ONLY SUB/prog.cob" "syn_copy.at:165"
-( $at_check_trace; COB_COPY_DIR=":" $COMPILE_ONLY SUB/prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:165"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_51
-#AT_START_52
-at_fn_group_banner 52 'syn_copy.at:170' \
- "COPY: extension" " " 2
-at_xfail=no
-(
- printf "%s\n" "52. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "copy.inc".
- PROCEDURE DIVISION.
- DISPLAY TEST-VAR.
- STOP RUN.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "copy".
- PROCEDURE DIVISION.
- DISPLAY TEST-VAR.
- STOP RUN.
-_ATEOF
-
-
-cat >prog3.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "sub.inc" OF SUB.
- PROCEDURE DIVISION.
- DISPLAY TEST-VAR.
- STOP RUN.
-_ATEOF
-
-
-cat >prog4.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "sub" OF SUB.
- PROCEDURE DIVISION.
- DISPLAY TEST-VAR.
- STOP RUN.
-_ATEOF
-
-
-cat >prog5.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "sub" OF "..".
- PROCEDURE DIVISION.
- DISPLAY TEST-VAR.
- STOP RUN.
-_ATEOF
-
-
-cat >prog6.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "sub".
- PROCEDURE DIVISION.
- DISPLAY TEST-VAR.
- STOP RUN.
-_ATEOF
-
-
-cat >copy.inc <<'_ATEOF'
-
- 77 TEST-VAR PIC X VALUE 'V'.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:242: mkdir -p SUB/OSUB"
-at_fn_check_prepare_trace "syn_copy.at:242"
-( $at_check_trace; mkdir -p SUB/OSUB
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:242"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-cat >SUB/sub.inc <<'_ATEOF'
-
- 77 TEST-VAR PIC X VALUE 'V'.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:247: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_copy.at:247"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:247"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:248: \$COMPILE_ONLY prog2.cob -ext=inc"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog2.cob -ext=inc" "syn_copy.at:248"
-( $at_check_trace; $COMPILE_ONLY prog2.cob -ext=inc
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:248"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:249: \$COMPILE_ONLY prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog3.cob" "syn_copy.at:249"
-( $at_check_trace; $COMPILE_ONLY prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:249"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:250: \$COMPILE_ONLY prog4.cob -ext=inc"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog4.cob -ext=inc" "syn_copy.at:250"
-( $at_check_trace; $COMPILE_ONLY prog4.cob -ext=inc
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:250"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:251: \$COMPILE_ONLY prog5.cob -ext=inc -I SUB/OSUB"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog5.cob -ext=inc -I SUB/OSUB" "syn_copy.at:251"
-( $at_check_trace; $COMPILE_ONLY prog5.cob -ext=inc -I SUB/OSUB
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:251"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:252: \$COMPILE_ONLY prog6.cob -ext=inc -I SUB"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog6.cob -ext=inc -I SUB" "syn_copy.at:252"
-( $at_check_trace; $COMPILE_ONLY prog6.cob -ext=inc -I SUB
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:252"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_52
-#AT_START_53
-at_fn_group_banner 53 'syn_copy.at:257' \
- "COPY: within comment" " " 2
-at_xfail=no
-(
- printf "%s\n" "53. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- *COPY "copy.inc".
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- *> COPY "copy.inc".
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:280: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_copy.at:280"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:280"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:281: \$COMPILE_ONLY -free prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -free prog2.cob" "syn_copy.at:281"
-( $at_check_trace; $COMPILE_ONLY -free prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:281"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_53
-#AT_START_54
-at_fn_group_banner 54 'syn_copy.at:286' \
- "COPY: file not found" " " 2
-at_xfail=no
-(
- printf "%s\n" "54. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# FIXME: possibly move "name without literal" to an extra test
-# also testing the library name part (as "found", because
-# of different slash)
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "copy.inc".
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:303: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_copy.at:303"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: error: copy.inc: No such file or directory
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_copy.at:303"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY copy.inc.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:317: \$COMPILE_ONLY prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog2.cob" "syn_copy.at:317"
-( $at_check_trace; $COMPILE_ONLY prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:6: error: COPY.INC: No such file or directory
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_copy.at:317"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog3.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY copy.INC.inc.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:331: \$COMPILE_ONLY prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog3.cob" "syn_copy.at:331"
-( $at_check_trace; $COMPILE_ONLY prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog3.cob:6: error: COPY.INC.INC: No such file or directory
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_copy.at:331"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:335: \$COMPILE_ONLY -ffold-copy=lower prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -ffold-copy=lower prog3.cob" "syn_copy.at:335"
-( $at_check_trace; $COMPILE_ONLY -ffold-copy=lower prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog3.cob:6: error: copy.inc.inc: No such file or directory
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_copy.at:335"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_54
-#AT_START_55
-at_fn_group_banner 55 'syn_copy.at:342' \
- "COPY: recursive" " " 2
-at_xfail=no
-(
- printf "%s\n" "55. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY copy1.
- PROCEDURE DIVISION.
- DISPLAY TEST-VAR.
- STOP RUN.
-_ATEOF
-
-
-cat >copy1.CPY <<'_ATEOF'
-
- COPY copy2.
- 01 TEST-VAR PIC X(2) VALUE "V1".
-_ATEOF
-
-
-cat >copy2.CPY <<'_ATEOF'
-
- 01 TEST-VAR2 PIC X(2) VALUE "V2".
- COPY copy3.
-_ATEOF
-
-
-cat >copy3.CPY <<'_ATEOF'
- COPY "copy1.CPY".
- 01 TEST-VAR3 PIC X(2) VALUE "V3".
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:371: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_copy.at:371"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "in file included from prog.cob:6:
-in file included from copy1.CPY:2:
-in file included from copy2.CPY:3:
-in file included from copy3.CPY:1:
-copy1.CPY: error: recursive inclusion
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_copy.at:371"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_55
-#AT_START_56
-at_fn_group_banner 56 'syn_copy.at:382' \
- "COPY: replacement order" " " 2
-at_xfail=no
-(
- printf "%s\n" "56. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >copy.inc <<'_ATEOF'
-
- 01 TEST-VAR PIC X(2) VALUE "OK".
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "copy.inc"
- REPLACING ==TEST-VAR== BY ==FIRST-MATCH==
- ==TEST-VAR== BY ==SECOND-MATCH==.
- PROCEDURE DIVISION.
- DISPLAY FIRST-MATCH NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:403: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "syn_copy.at:403"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:403"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:404: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "syn_copy.at:404"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:404"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_56
-#AT_START_57
-at_fn_group_banner 57 'syn_copy.at:409' \
- "COPY: separators" " " 2
-at_xfail=no
-(
- printf "%s\n" "57. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >copy.inc <<'_ATEOF'
-
- 01 TEST-VAR PIC X(2) VALUE "OK".
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "copy.inc"
- REPLACING ==TEST-VAR==, BY ==FIRST-MATCH==,
- , ==TEST-VAR==; BY ==SECOND-MATCH==;
- ; ==TEST-VAR== , BY ==THIRD-MATCH==
- ==TEST-VAR== ; BY ==FOURTH-MATCH==.
- PROCEDURE DIVISION.
- DISPLAY FIRST-MATCH NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:432: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "syn_copy.at:432"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:432"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:433: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "syn_copy.at:433"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:433"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_57
-#AT_START_58
-at_fn_group_banner 58 'syn_copy.at:438' \
- "COPY: partial replacement" " " 2
-at_xfail=no
-(
- printf "%s\n" "58. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >copy.inc <<'_ATEOF'
-
- 01 :TEST:-VAR PIC X(2) VALUE "OK".
- 01 (TEST)-VAR PIC X(2) VALUE "OK".
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "copy.inc"
- REPLACING ==:TEST:== BY ==COLON==
- ==(TEST)== BY ==PAREN==.
- PROCEDURE DIVISION.
- DISPLAY COLON-VAR NO ADVANCING
- END-DISPLAY.
- DISPLAY PAREN-VAR NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:462: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "syn_copy.at:462"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:462"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:463: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "syn_copy.at:463"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OKOK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:463"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_58
-#AT_START_59
-at_fn_group_banner 59 'syn_copy.at:468' \
- "COPY: LEADING replacement" " " 2
-at_xfail=no
-(
- printf "%s\n" "59. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >copy.inc <<'_ATEOF'
-
- 01 TEST-VAR PIC X(2) VALUE "OK".
- 01 NORM-VAR PIC X(2) VALUE "OK".
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "copy.inc"
- REPLACING LEADING ==TEST== BY ==FIRST==
- LEADING ==NORM== BY ==SECOND==.
- PROCEDURE DIVISION.
- DISPLAY FIRST-VAR NO ADVANCING
- END-DISPLAY.
- DISPLAY SECOND-VAR NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:492: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "syn_copy.at:492"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:492"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:493: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "syn_copy.at:493"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OKOK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:493"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_59
-#AT_START_60
-at_fn_group_banner 60 'syn_copy.at:498' \
- "COPY: TRAILING replacement" " " 2
-at_xfail=no
-(
- printf "%s\n" "60. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >copy.inc <<'_ATEOF'
-
- 01 TEST-FIRST PIC X(2) VALUE "OK".
- 01 TEST-SECOND PIC X(2) VALUE "OK".
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "copy.inc"
- REPLACING TRAILING ==FIRST== BY ==VAR1==
- TRAILING ==SECOND== BY ==VAR2==.
- PROCEDURE DIVISION.
- DISPLAY TEST-VAR1 NO ADVANCING
- END-DISPLAY.
- DISPLAY TEST-VAR2 NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:522: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "syn_copy.at:522"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:522"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:523: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "syn_copy.at:523"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OKOK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:523"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_60
-#AT_START_61
-at_fn_group_banner 61 'syn_copy.at:528' \
- "COPY: partial replacement BY literal" " " 2
-at_xfail=no
-(
- printf "%s\n" "61. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >copy.inc <<'_ATEOF'
-
- 01 TEST-VAR PIC X(2) VALUE "OK".
- 01 NORM-VAR PIC X(2) VALUE "OK".
- 01 X PIC X(2) VALUE "OK".
-_ATEOF
-
-
-cat >copy2.inc <<'_ATEOF'
-
- 01 TEST-FIRST PIC X(2) VALUE "OK".
- 01 TEST-SECND PIC X(2) VALUE "OK".
- 01 Y PIC X(2) VALUE "OK".
-_ATEOF
-
-
-# When `-fpartial-replace-when-literal-src' is "skip", X and
-# Y are available: partial replacement with a source literal does not
-# apply when the replacement does not lead to a valid word (cf GCOS
-# reference manual, pp 537--538, 542).
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "copy.inc"
- REPLACING LEADING "TEST" BY "FIRST"
- LEADING "NORM" BY "SECOND"
- LEADING "X" BY "".
- COPY "copy2.inc"
- REPLACING TRAILING "FIRST" BY "VAR1"
- TRAILING "SECND" BY "VAR2"
- TRAILING "Y" BY "".
- PROCEDURE DIVISION.
- DISPLAY FIRST-VAR NO ADVANCING END-DISPLAY.
- DISPLAY SECOND-VAR NO ADVANCING END-DISPLAY.
- DISPLAY X NO ADVANCING END-DISPLAY.
- DISPLAY TEST-VAR1 NO ADVANCING END-DISPLAY.
- DISPLAY TEST-VAR2 NO ADVANCING END-DISPLAY.
- DISPLAY Y NO ADVANCING END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:569: \$COMPILE -fpartial-replace-when-literal-src=skip -o prog-skip prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fpartial-replace-when-literal-src=skip -o prog-skip prog.cob" "syn_copy.at:569"
-( $at_check_trace; $COMPILE -fpartial-replace-when-literal-src=skip -o prog-skip prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:569"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:570: \$COBCRUN_DIRECT ./prog-skip"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog-skip" "syn_copy.at:570"
-( $at_check_trace; $COBCRUN_DIRECT ./prog-skip
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OKOKOKOKOKOK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:570"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:571: \$COMPILE -fpartial-replace-when-literal-src=ok -o prog prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fpartial-replace-when-literal-src=ok -o prog prog.cob" "syn_copy.at:571"
-( $at_check_trace; $COMPILE -fpartial-replace-when-literal-src=ok -o prog prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "copy.inc:2: error: parentheses must be preceded by a picture symbol
-copy.inc:2: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol
-copy.inc:3: error: parentheses must be preceded by a picture symbol
-copy.inc:3: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol
-copy.inc:4: error: parentheses must be preceded by a picture symbol
-copy.inc:4: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol
-prog.cob:17: error: 'X' cannot be used here
-prog.cob:20: error: 'Y' cannot be used here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_copy.at:571"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:581: \$COMPILE_ONLY -fpartial-replace-when-literal-src=error prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fpartial-replace-when-literal-src=error prog.cob" "syn_copy.at:581"
-( $at_check_trace; $COMPILE_ONLY -fpartial-replace-when-literal-src=error prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: error: partial replacing with literal used
-prog.cob:7: error: partial replacing with literal used
-prog.cob:8: error: partial replacing with literal used
-prog.cob:8: error: partial replacing with literal used
-prog.cob:9: error: partial replacing with literal used
-prog.cob:9: error: partial replacing with literal used
-prog.cob:11: error: partial replacing with literal used
-prog.cob:11: error: partial replacing with literal used
-prog.cob:12: error: partial replacing with literal used
-prog.cob:12: error: partial replacing with literal used
-prog.cob:13: error: partial replacing with literal used
-prog.cob:13: error: partial replacing with literal used
-copy.inc:2: error: parentheses must be preceded by a picture symbol
-copy.inc:2: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol
-copy.inc:3: error: parentheses must be preceded by a picture symbol
-copy.inc:3: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol
-copy.inc:4: error: parentheses must be preceded by a picture symbol
-copy.inc:4: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol
-prog.cob:17: error: 'X' cannot be used here
-prog.cob:20: error: 'Y' cannot be used here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_copy.at:581"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog_err.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "copy.inc"
- REPLACING LEADING TEST BY "FIRST"
- LEADING "NORM" BY SECOND.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:616: \$COMPILE_ONLY -fpartial-replace-when-literal-src=skip prog_err.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fpartial-replace-when-literal-src=skip prog_err.cob" "syn_copy.at:616"
-( $at_check_trace; $COMPILE_ONLY -fpartial-replace-when-literal-src=skip prog_err.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog_err.cob:7: error: unexpected COBOL word in partial replacement phrase
-prog_err.cob:8: error: unexpected COBOL word in partial replacement phrase
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_copy.at:616"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:620: \$COMPILE_ONLY -fpartial-replace-when-literal-src=unconformable prog_err.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fpartial-replace-when-literal-src=unconformable prog_err.cob" "syn_copy.at:620"
-( $at_check_trace; $COMPILE_ONLY -fpartial-replace-when-literal-src=unconformable prog_err.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog_err.cob:7: error: unexpected COBOL word in partial replacement phrase
-prog_err.cob:7: error: partial replacing with literal does not conform to GnuCOBOL
-prog_err.cob:8: error: partial replacing with literal does not conform to GnuCOBOL
-prog_err.cob:8: error: unexpected COBOL word in partial replacement phrase
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_copy.at:620"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_61
-#AT_START_62
-at_fn_group_banner 62 'syn_copy.at:630' \
- "COPY: recursive replacement" " " 2
-at_xfail=no
-(
- printf "%s\n" "62. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >copy-2.inc <<'_ATEOF'
-
- 01 TEST-VAR PIC X(2) VALUE "OK".
-_ATEOF
-
-
-cat >copy-1.inc <<'_ATEOF'
-
- COPY "copy-2.inc".
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "copy-1.inc"
- REPLACING ==TEST-VAR== BY ==COPY-VAR==.
- PROCEDURE DIVISION.
- DISPLAY COPY-VAR NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:654: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "syn_copy.at:654"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:654"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:655: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "syn_copy.at:655"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:655"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_62
-#AT_START_63
-at_fn_group_banner 63 'syn_copy.at:660' \
- "COPY: fixed/free format" " " 2
-at_xfail=no
-(
- printf "%s\n" "63. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >copy.inc <<'_ATEOF'
-
- >>SOURCE FIXED
- 01 TEST-VAR PIC X(2) VALUE "OK".
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "copy.inc".
- PROCEDURE DIVISION.
- DISPLAY TEST-VAR NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:680: \$COMPILE -free prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -free prog.cob" "syn_copy.at:680"
-( $at_check_trace; $COMPILE -free prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:680"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:681: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "syn_copy.at:681"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:681"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_63
-#AT_START_64
-at_fn_group_banner 64 'syn_copy.at:686' \
- "REPLACE: partial replacement BY SPACE" " " 2
-at_xfail=no
-(
- printf "%s\n" "64. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- REPLACE LEADING "PREFIX-" BY SPACES
- TRAILING "-SUFFIX" BY SPACE.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 PREFIX-VAR1 PIC X(2) VALUE "OK".
- 01 VAR2-SUFFIX PIC X(2) VALUE "OK".
- PROCEDURE DIVISION.
- DISPLAY "VAR1: " VAR1 NO ADVANCING.
- DISPLAY "VAR1: " VAR2 NO ADVANCING.
- STOP RUN.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:703: \$COMPILE_ONLY -fpartial-replace-when-literal-src=ok prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fpartial-replace-when-literal-src=ok prog.cob" "syn_copy.at:703"
-( $at_check_trace; $COMPILE_ONLY -fpartial-replace-when-literal-src=ok prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:703"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:704: \$COMPILE_ONLY -fpartial-replace-when-literal-src=skip prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fpartial-replace-when-literal-src=skip prog.cob" "syn_copy.at:704"
-( $at_check_trace; $COMPILE_ONLY -fpartial-replace-when-literal-src=skip prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:704"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog2.cob <<'_ATEOF'
-
- COPY prog REPLACING LEADING "VAR1" BY SPACES.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:709: \$COMPILE_ONLY -fpartial-replace-when-literal-src=ok prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fpartial-replace-when-literal-src=ok prog2.cob" "syn_copy.at:709"
-( $at_check_trace; $COMPILE_ONLY -fpartial-replace-when-literal-src=ok prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:709"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog_err.cob <<'_ATEOF'
-
- COPY prog REPLACING LEADING SPACES BY "PREFIX-".
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:714: \$COMPILE_ONLY -fpartial-replace-when-literal-src=ok prog_err.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fpartial-replace-when-literal-src=ok prog_err.cob" "syn_copy.at:714"
-( $at_check_trace; $COMPILE_ONLY -fpartial-replace-when-literal-src=ok prog_err.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog_err.cob:2: error: unexpected COBOL word in partial replacement phrase
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_copy.at:714"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:717: \$COMPILE_ONLY -fpartial-replace-when-literal-src=skip prog_err.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fpartial-replace-when-literal-src=skip prog_err.cob" "syn_copy.at:717"
-( $at_check_trace; $COMPILE_ONLY -fpartial-replace-when-literal-src=skip prog_err.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog_err.cob:2: error: unexpected COBOL word in partial replacement phrase
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_copy.at:717"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# Check that partial replacement rejects spaces in right operand:
-cat >prog_err2.cob <<'_ATEOF'
-
- COPY prog REPLACING LEADING "VAR" BY "VAR1 ".
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:725: \$COMPILE_ONLY -fpartial-replace-when-literal-src=ok prog_err2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fpartial-replace-when-literal-src=ok prog_err2.cob" "syn_copy.at:725"
-( $at_check_trace; $COMPILE_ONLY -fpartial-replace-when-literal-src=ok prog_err2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog_err2.cob:2: error: invalid partial replacing operand
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_copy.at:725"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog_err3.cob <<'_ATEOF'
-
- COPY prog REPLACING LEADING "VAR" BY " VAR1".
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:732: \$COMPILE_ONLY -fpartial-replace-when-literal-src=ok prog_err3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fpartial-replace-when-literal-src=ok prog_err3.cob" "syn_copy.at:732"
-( $at_check_trace; $COMPILE_ONLY -fpartial-replace-when-literal-src=ok prog_err3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog_err3.cob:2: error: invalid partial replacing operand
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_copy.at:732"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_64
-#AT_START_65
-at_fn_group_banner 65 'syn_copy.at:739' \
- "COPY: simple partial match" " " 2
-at_xfail=no
-(
- printf "%s\n" "65. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >copy.inc <<'_ATEOF'
-
- 02 TEST-VAR PIC X(2) VALUE "OK".
- 02 TEST-CC PIC X(4) VALUE "OK 2".
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 GET-VALUE.
- COPY "copy.inc" REPLACING ==TEST-VAR== BY ==TEST-AVR==
- == 02 TEST-EE == BY == 02 TEST-FF ==.
- PROCEDURE DIVISION.
- main.
- DISPLAY TEST-AVR.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:761: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_copy.at:761"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:761"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_65
-#AT_START_66
-at_fn_group_banner 66 'syn_copy.at:766' \
- "COPY: with LEADING, multiple partial matches" " " 2
-at_xfail=no
-(
- printf "%s\n" "66. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >copy.inc <<'_ATEOF'
-
- 02 TEST-VAR PIC X(2) VALUE "OK".
- 02 TEST-VAR-BIS PIC X(6) VALUE "OK BIS".
- 02 TEST-CC PIC X(4) VALUE "OK 2".
- 02 TEST-OK PIC X(4) VALUE "OK 3".
- 02 TEST-EE PIC X(4) VALUE "OK 4".
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 GET-VALUE.
- COPY "copy.inc"
- REPLACING LEADING ==TEST-VAR== BY ==TEST-AVR==
- == 02 TEST-OK == BY == 02 TEST-KO ==
- ==TEST-CC== BY ==TEST-DD==
- == 02 TEST-EE == BY == 02 TEST-FF ==
- == PIC == BY == pic ==.
- PROCEDURE DIVISION.
- main.
- DISPLAY TEST-AVR.
- DISPLAY TEST-AVR-BIS.
- DISPLAY TEST-KO.
- DISPLAY TEST-DD.
- DISPLAY TEST-FF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:799: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_copy.at:799"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:799"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_66
-#AT_START_67
-at_fn_group_banner 67 'syn_copy.at:804' \
- "COPY: multiple partial matches with an error" " " 2
-at_xfail=no
-(
- printf "%s\n" "67. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >copy.inc <<'_ATEOF'
-
- 02 TEST-VAR PIC X(2) VALUE "OK".
- 02 TEST-VAR-BIS PIC X(6) VALUE "OK BIS".
- 02 TEST-CC PIC X(4) VALUE "OK 2".
- 02 TEST-OK PIC X(4) VALUE "OK 3".
- 02 TEST-EE PIC X(4) VALUE "OK 4".
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 GET-VALUE.
- COPY "copy.inc" REPLACING ==TEST-VAR== BY ==TEST-AVR==
- == 02 TEST-OK == BY == 02 TEST-KO ==
- ==TEST-CC== BY ==TEST-DD==
- == 02 TEST-EE == BY == 02 TEST-FF ==
- == PIC == BY == pic ==.
- PROCEDURE DIVISION.
- main.
- DISPLAY TEST-AVR.
- DISPLAY TEST-AVR-BIS.
- DISPLAY TEST-KO.
- DISPLAY TEST-DD.
- DISPLAY TEST-FF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:836: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_copy.at:836"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in paragraph 'main':
-prog.cob:15: error: 'TEST-AVR-BIS' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_copy.at:836"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_67
-#AT_START_68
-at_fn_group_banner 68 'syn_copy.at:844' \
- "COPY: Multiple partial matches (1)" " " 2
-at_xfail=no
-(
- printf "%s\n" "68. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-# testing with multiple spaces in the including source file
-
-
-cat >copy.inc <<'_ATEOF'
-
- 02 TEST-VAR PIC X(2) VALUE "OK".
- 02 TEST-VAR-BIS PIC X(6) VALUE "OK BIS".
- 02 TEST-CC PIC X(4) VALUE "OK 2".
- 02 TEST-OK PIC X(4) VALUE "OK 3".
- 02 TEST-EE PIC X(4) VALUE "OK 4".
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 GET-VALUE.
- COPY "copy.inc"
- REPLACING LEADING ==TEST-VAR== BY ==TEST-AVR==
- == 02 TEST-OK == BY == 02 TEST-KO ==
- == TEST-CC == BY == TEST-DD ==
- == 02 TEST-EE ==
- BY == 02 TEST-FF ==
- == PIC == BY == pic ==.
- PROCEDURE DIVISION.
- main.
- DISPLAY TEST-AVR.
- DISPLAY TEST-AVR-BIS.
- DISPLAY TEST-KO.
- DISPLAY TEST-DD.
- DISPLAY TEST-FF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:879: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_copy.at:879"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:879"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_68
-#AT_START_69
-at_fn_group_banner 69 'syn_copy.at:884' \
- "COPY: Multiple partial matches (2)" " " 2
-at_xfail=no
-(
- printf "%s\n" "69. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-# testing with multiple spaces in the included coypbook
-
-
-cat >copy.inc <<'_ATEOF'
-
- 02 TEST-VAR PIC X(2) VALUE "OK".
- 02 TEST-VAR-BIS PIC X(6) VALUE "OK BIS".
- 02 TEST-CC PIC X(4) VALUE "OK 2".
- 02 TEST-OK PIC X(4) VALUE "OK 3".
- 02 TEST-EE PIC X(4) VALUE "OK 4".
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 GET-VALUE.
- COPY "copy.inc"
- REPLACING LEADING ==TEST-VAR== BY ==TEST-AVR==
- == 02 TEST-OK == BY == 02 TEST-KO ==
- ==TEST-CC== BY ==TEST-DD==
- == 02 TEST-EE == BY == 02 TEST-FF ==
- == PIC == BY == pic ==.
- PROCEDURE DIVISION.
- main.
- DISPLAY TEST-AVR.
- DISPLAY TEST-AVR-BIS.
- DISPLAY TEST-KO.
- DISPLAY TEST-DD.
- DISPLAY TEST-FF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:918: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_copy.at:918"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:918"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_69
-#AT_START_70
-at_fn_group_banner 70 'syn_copy.at:923' \
- "COPY and REPLACE in same file" " " 2
-at_xfail=no
-(
- printf "%s\n" "70. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# See Bug #831
-# the issue with this example is that the outer REPLACE
-# _could_ only see the result of the inner REPLACING:
-# "COLON", but needs to see "VAR-COLON".
-
-cat >copy.inc <<'_ATEOF'
-
- 01 VAR-:TEST: PIC X(2) VALUE "OK".
-_ATEOF
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- REPLACE ==VAR-COLON== BY ==VAR-COMMA==.
- COPY "copy.inc"
- REPLACING ==:TEST:== BY ==COLON==.
- PROCEDURE DIVISION.
- DISPLAY VAR-COLON NO ADVANCING
- END-DISPLAY.
- STOP RUN.
- REPLACE OFF.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:949: \$COMPILE_ONLY -P- prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -P- prog.cob" "syn_copy.at:949"
-( $at_check_trace; $COMPILE_ONLY -P- prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " 1
- 2 IDENTIFICATION DIVISION.
- 3 PROGRAM-ID. prog.
- 4 DATA DIVISION.
- 5 WORKING-STORAGE SECTION.
- 6
- 7
- 8
- 9 01 VAR-COMMA PIC X(2) VALUE \"OK\".
- 10
- 11 PROCEDURE DIVISION.
- 12 DISPLAY VAR-COMMA NO ADVANCING
- 13 END-DISPLAY.
- 14 STOP RUN.
- 15
-
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:949"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:968: \$COMPILE_LISTING -t- prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING -t- prog.cob" "syn_copy.at:968"
-( $at_check_trace; $COMPILE_LISTING -t- prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob Page 0001
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 DATA DIVISION.
-000005 WORKING-STORAGE SECTION.
-000006 REPLACE ==VAR-COLON== BY ==VAR-COMMA==.
-000007 COPY \"copy.inc\"
-000001C
-000002C 01 VAR-:TEST: PIC X(2) VALUE \"OK\".
-000007 REPLACING ==:TEST:== BY ==COLON==.
-000008 PROCEDURE DIVISION.
-000009 DISPLAY VAR-COMMA NO ADVANCING
-000010 END-DISPLAY.
-000011 STOP RUN.
-000012 REPLACE OFF.
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:968"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_70
-#AT_START_71
-at_fn_group_banner 71 'syn_copy.at:997' \
- "COPY and REPLACE errors" " " 2
-at_xfail=no
-(
- printf "%s\n" "71. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >copy.inc <<'_ATEOF'
-
- 05 VAR PIC XX.
-_ATEOF
-
-
-# see Bug #890 - the buffer for the copybook was switched
-# already before parsing the DOT; additional the error did
-# not stopped at the DOT, so there was max. one error printed
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "copy.inc" A.
- COPY "copy.inc" ==A== BY B.
- COPY "copy.inc" REPLACING.
- COPY "copy.inc" REPLACING ABC.
- COPY "copy.inc" REPLACING 'POST' IN.
- COPY "copy.inc" REPLACING 'POST' BY BY.
- COPY "copy.inc"
- REPLACING ==some-name== BY ==other-name==
- REPLACING "some lit" BY "other literal".
- COPY "copy.inc".
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:1027: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_copy.at:1027"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: error: syntax error, unexpected Word or Literal, expecting .
-prog.cob:7: error: syntax error, unexpected ==, expecting .
-prog.cob:8: error: syntax error, unexpected ., expecting == or LEADING or TRAILING or Word or Literal
-prog.cob:9: error: syntax error, unexpected ., expecting BY
-prog.cob:10: error: syntax error, unexpected ., expecting Word or Literal
-prog.cob:11: error: syntax error, unexpected BY, expecting == or IN or OF or Word or Literal
-prog.cob:14: error: syntax error, unexpected REPLACING, expecting .
-copy.inc:2: error: level number must begin with 01 or 77
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_copy.at:1027"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_71
-#AT_START_72
-at_fn_group_banner 72 'syn_copy.at:1041' \
- "COPY and REPLACE with reserved words" " " 2
-at_xfail=no
-(
- printf "%s\n" "72. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# see Bug #23
-cat >copy.inc <<'_ATEOF'
-
- 05 WS-'POST' PIC XX.
- 05 'POST'-A PIC XX.
- 05 'POST'-WS PIC XX.
-_ATEOF
-
-cat >proc.inc <<'_ATEOF'
-
- DISPLAY VAR VAR-2
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 INPUT-REC.
- COPY "copy.inc"
- REPLACING 'POST' BY IN.
- PROCEDURE DIVISION.
- DISPLAY WS-IN IN-A IN-WS NO ADVANCING.
- IF WS-IN EQUALS IN-A
- COPY "proc.inc"
- REPLACING VAR BY IN-A IN INPUT-REC
- ==VAR-2== BY ==IN-WS (1:1)==.
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_copy.at:1072: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_copy.at:1072"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_copy.at:1072"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_72
-#AT_START_73
-at_fn_group_banner 73 'syn_definition.at:25' \
- "Invalid source name" " " 2
-at_xfail=no
-(
- printf "%s\n" "73. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-: >short.cob
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:30: \$COMPILE_ONLY short.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY short.cob" "syn_definition.at:30"
-( $at_check_trace; $COMPILE_ONLY short.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "short.cob: error: invalid file base name 'short' - name duplicates a 'C' keyword
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:30"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_73
-#AT_START_74
-at_fn_group_banner 74 'syn_definition.at:37' \
- "Invalid PROGRAM-ID" " " 2
-at_xfail=no
-(
- printf "%s\n" "74. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# note: the name check is identical for the ENTRY statement
-
-cat >SHORT.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. short.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:49: \$COMPILE_ONLY SHORT.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY SHORT.cob" "syn_definition.at:49"
-( $at_check_trace; $COMPILE_ONLY SHORT.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "SHORT.cob:3: error: invalid PROGRAM-ID 'short' - name duplicates a 'C' keyword
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:49"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >SHORT2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. "_short".
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:60: \$COMPILE_ONLY SHORT2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY SHORT2.cob" "syn_definition.at:60"
-( $at_check_trace; $COMPILE_ONLY SHORT2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:60"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-cat >SHORT3.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. _short.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:70: \$COMPILE_ONLY SHORT3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY SHORT3.cob" "syn_definition.at:70"
-( $at_check_trace; $COMPILE_ONLY SHORT3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "SHORT3.cob:3: error: invalid symbol '_' - skipping word
-SHORT3.cob:4: error: syntax error, unexpected DIVISION
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:70"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >SHORT4.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. "-short".
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:82: \$COMPILE_ONLY SHORT4.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY SHORT4.cob" "syn_definition.at:82"
-( $at_check_trace; $COMPILE_ONLY SHORT4.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "SHORT4.cob:3: error: invalid PROGRAM-ID '-short' - name cannot begin with space or hyphen
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:82"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_74
-#AT_START_75
-at_fn_group_banner 75 'syn_definition.at:89' \
- "Invalid PROGRAM-ID type clause (1)" " " 2
-at_xfail=no
-(
- printf "%s\n" "75. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog IS COMMON.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:99: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:99"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:3: error: COMMON may only be used in a contained program
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:99"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_75
-#AT_START_76
-at_fn_group_banner 76 'syn_definition.at:106' \
- "invalid PROGRAM-ID type clause (2)" " " 2
-at_xfail=no
-(
- printf "%s\n" "76. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog IS INITIAL RECURSIVE.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:116: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:116"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:3: error: syntax error, unexpected RECURSIVE, expecting .
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:116"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_76
-#AT_START_77
-at_fn_group_banner 77 'syn_definition.at:123' \
- "INITIAL / RECURSIVE before COMMON" " " 2
-at_xfail=no
-(
- printf "%s\n" "77. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >containing-prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. containing-prog.
-
- PROCEDURE DIVISION.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog-1 IS INITIAL COMMON.
- PROCEDURE DIVISION.
- STOP RUN.
- END PROGRAM prog-1.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog-2 IS RECURSIVE COMMON.
- PROCEDURE DIVISION.
- STOP RUN.
- END PROGRAM prog-2.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:145: \$COMPILE_ONLY containing-prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY containing-prog.cob" "syn_definition.at:145"
-( $at_check_trace; $COMPILE_ONLY containing-prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:145"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_77
-#AT_START_78
-at_fn_group_banner 78 'syn_definition.at:155' \
- "Undefined data name" " " 2
-at_xfail=no
-(
- printf "%s\n" "78. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- DISPLAY X.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:166: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:166"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:5: error: 'X' cannot be used here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:166"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_78
-#AT_START_79
-at_fn_group_banner 79 'syn_definition.at:173' \
- "Undefined group name" " " 2
-at_xfail=no
-(
- printf "%s\n" "79. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X.
- PROCEDURE DIVISION.
- DISPLAY X IN G.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:187: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:187"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: error: 'X IN G' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:187"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_79
-#AT_START_80
-at_fn_group_banner 80 'syn_definition.at:194' \
- "Undefined data name in group" " " 2
-at_xfail=no
-(
- printf "%s\n" "80. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G.
- 02 X PIC X.
- 01 Y PIC X.
- PROCEDURE DIVISION.
- DISPLAY Y IN G.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:210: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:210"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: 'Y IN G' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:210"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_80
-#AT_START_81
-at_fn_group_banner 81 'syn_definition.at:217' \
- "Reference not a group name" " " 2
-at_xfail=no
-(
- printf "%s\n" "81. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X.
- PROCEDURE DIVISION.
- DISPLAY X IN X
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:232: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:232"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: error: 'X IN X' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:232"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_81
-#AT_START_82
-at_fn_group_banner 82 'syn_definition.at:239' \
- "Incomplete 01 definition" " " 2
-at_xfail=no
-(
- printf "%s\n" "82. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:250: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:250"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: error: PICTURE clause required for 'X'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:250"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_82
-#AT_START_83
-at_fn_group_banner 83 'syn_definition.at:257' \
- "error handling in conditions" " " 2
-at_xfail=no
-(
- printf "%s\n" "83. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TESTME PIC X(1).
-
- PROCEDURE DIVISION.
-
- EVALUATE TRUE
- WHEN TESTME IS NOT-DEFINED
- CONTINUE
- WHEN TESTME = 'A'
- CONTINUE
- WHEN OTHER
- IF NOT TESTME IS NOT-DEFINED
- THEN
- CONTINUE
- ELSE
- CONTINUE
- END-IF
- END-EVALUATE
- EVALUATE TRUE
- WHEN TESTME IS 'ABC'
- CONTINUE
- WHEN TESTME = 'B'
- CONTINUE
- END-EVALUATE
- EVALUATE TRUE
- WHEN TESTME IS TESTME
- CONTINUE
- WHEN TESTME = 'C'
- CONTINUE
- END-EVALUATE
- EVALUATE TRUE
- WHEN TESTME NOT = NOT-DEFINED
- CONTINUE
- WHEN TESTME = 'D'
- CONTINUE
- END-EVALUATE
- EVALUATE TRUE
- WHEN TESTME ELSE NOT-DEFINED
- CONTINUE
- WHEN TESTME = 'E'
- CONTINUE
- END-EVALUATE
- EVALUATE broken
- WHEN NOT-DEFINED
- continue
- END-EVALUATE
-
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:314: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:314"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:11: error: syntax error, unexpected Identifier
-prog.cob:11: error: WHEN without imperative statement
-prog.cob:16: error: syntax error, unexpected Identifier
-prog.cob:24: error: syntax error, unexpected Literal
-prog.cob:24: error: WHEN without imperative statement
-prog.cob:30: error: syntax error, unexpected Identifier
-prog.cob:30: error: WHEN without imperative statement
-prog.cob:36: error: 'NOT-DEFINED' is not defined
-prog.cob:42: error: syntax error, unexpected ELSE
-prog.cob:42: error: syntax error, unexpected Identifier
-prog.cob:42: error: WHEN without imperative statement
-prog.cob:42: error: incomplete expression
-prog.cob:47: error: 'broken' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:314"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_83
-#AT_START_84
-at_fn_group_banner 84 'syn_definition.at:333' \
- "Same paragraphs in different sections" " " 2
-at_xfail=no
-(
- printf "%s\n" "84. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- S-1 SECTION.
- L.
-
- S-2 SECTION.
- L.
-
- S-3 SECTION.
- GO TO L.
- L.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- PROCEDURE DIVISION.
- S-1 SECTION.
- L.
-
- S-2 SECTION.
- L.
-
- S-3 SECTION.
- GO TO L.
- K.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:366: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:366"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:366"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:367: \$COMPILE_ONLY prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog2.cob" "syn_definition.at:367"
-( $at_check_trace; $COMPILE_ONLY prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob: in section 'S-3':
-prog2.cob:12: error: 'L' is ambiguous; needs qualification
-prog2.cob:6: note: 'L IN S-1' defined here
-prog2.cob:9: note: 'L IN S-2' defined here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:367"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_84
-#AT_START_85
-at_fn_group_banner 85 'syn_definition.at:376' \
- "GO TO sections and foreign paragraphs" " " 2
-at_xfail=no
-(
- printf "%s\n" "85. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- S-1 SECTION.
- GO TO S-2.
- E-1.
- IF FUNCTION SECONDS-PAST-MIDNIGHT = 10
- GO TO S-1. *> check that go to its own section is not warned
-
- S-2 SECTION.
- GO TO E-3.
- E-2.
-
- S-3 SECTION.
- E-3.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:397: \$COBC -fdiagnostics-plain-output -fsyntax-only prog.cob"
-at_fn_check_prepare_dynamic "$COBC -fdiagnostics-plain-output -fsyntax-only prog.cob" "syn_definition.at:397"
-( $at_check_trace; $COBC -fdiagnostics-plain-output -fsyntax-only prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in section 'S-1':
-prog.cob:6: warning: GO TO SECTION 'S-2' [-Wgoto-section]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:397"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:401: \$COBC -fdiagnostics-plain-output -fsyntax-only -Wall -Werror=goto-section prog.cob"
-at_fn_check_prepare_dynamic "$COBC -fdiagnostics-plain-output -fsyntax-only -Wall -Werror=goto-section prog.cob" "syn_definition.at:401"
-( $at_check_trace; $COBC -fdiagnostics-plain-output -fsyntax-only -Wall -Werror=goto-section prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in section 'S-1':
-prog.cob:6: error: GO TO SECTION 'S-2' [-Werror=goto-section]
-prog.cob: in section 'S-2':
-prog.cob:12: warning: GO TO paragraph 'E-3' which is defined in another SECTION [-Wgoto-different-section]
-prog.cob:16: note: 'E-3 IN S-3' defined here [-Wgoto-different-section]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:401"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_85
-#AT_START_86
-at_fn_group_banner 86 'syn_definition.at:413' \
- "Redefinition of 01 items" " " 2
-at_xfail=no
-(
- printf "%s\n" "86. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X.
- 01 X PIC X.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:425: \$COBC -fsyntax-only prog.cob"
-at_fn_check_prepare_dynamic "$COBC -fsyntax-only prog.cob" "syn_definition.at:425"
-( $at_check_trace; $COBC -fsyntax-only prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:425"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:426: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:426"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: warning: redefinition of 'X'
-prog.cob:6: note: 'X' previously defined here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:426"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:430: \$COMPILE_ONLY -Wno-redefinition prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wno-redefinition prog.cob" "syn_definition.at:430"
-( $at_check_trace; $COMPILE_ONLY -Wno-redefinition prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:430"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:431: \$COMPILE_ONLY -Werror=redefinition prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Werror=redefinition prog.cob" "syn_definition.at:431"
-( $at_check_trace; $COMPILE_ONLY -Werror=redefinition prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: error: redefinition of 'X'
-prog.cob:6: note: 'X' previously defined here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:431"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:435: \$COMPILE_ONLY -fdiagnostics-show-option -Werror=redefinition prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fdiagnostics-show-option -Werror=redefinition prog.cob" "syn_definition.at:435"
-( $at_check_trace; $COMPILE_ONLY -fdiagnostics-show-option -Werror=redefinition prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: error: redefinition of 'X' [-Werror=redefinition]
-prog.cob:6: note: 'X' previously defined here [-Werror=redefinition]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:435"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_86
-#AT_START_87
-at_fn_group_banner 87 'syn_definition.at:442' \
- "Redefinition of 01 and 02 items" " " 2
-at_xfail=no
-(
- printf "%s\n" "87. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X.
- 02 X PIC X.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:454: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:454"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: warning: redefinition of 'X'
-prog.cob:6: note: 'X' previously defined here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:454"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_87
-#AT_START_88
-at_fn_group_banner 88 'syn_definition.at:462' \
- "Redefinition of 02 items" " " 2
-at_xfail=no
-(
- printf "%s\n" "88. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G.
- 02 X PIC X.
- 02 X PIC X.
-_ATEOF
-
-
-# validation for #881 - error if redefinition on redefines
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G.
- 02 X PIC X.
- 02 X REDEFINES X PIC X.
- 02 Y PIC 9.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:487: \$COMPILE_ONLY prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog2.cob" "syn_definition.at:487"
-( $at_check_trace; $COMPILE_ONLY prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:8: warning: redefinition of 'X'
-prog2.cob:7: note: 'X' previously defined here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:487"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_88
-#AT_START_89
-at_fn_group_banner 89 'syn_definition.at:495' \
- "Redefinition of 77 items" " " 2
-at_xfail=no
-(
- printf "%s\n" "89. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 X PIC X.
- 77 X PIC X.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:507: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:507"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: warning: redefinition of 'X'
-prog.cob:6: note: 'X' previously defined here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:507"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_89
-#AT_START_90
-at_fn_group_banner 90 'syn_definition.at:515' \
- "Redefinition of 01 and 77 items" " " 2
-at_xfail=no
-(
- printf "%s\n" "90. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X.
- 77 X PIC X.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:527: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:527"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: warning: redefinition of 'X'
-prog.cob:6: note: 'X' previously defined here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:527"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_90
-#AT_START_91
-at_fn_group_banner 91 'syn_definition.at:535' \
- "Redefinition of 88 items" " " 2
-at_xfail=no
-(
- printf "%s\n" "91. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X.
- 88 A VALUE "A".
- 88 A VALUE "B".
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:548: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:548"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: warning: redefinition of 'A'
-prog.cob:7: note: 'A' previously defined here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:548"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_91
-#AT_START_92
-at_fn_group_banner 92 'syn_definition.at:556' \
- "Redefinition of program-name by other programs" " " 2
-at_xfail=no
-(
- printf "%s\n" "92. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 PROG PIC X.
-
- PROCEDURE DIVISION.
- CONTINUE
- .
- IDENTIFICATION DIVISION.
- PROGRAM-ID. foo COMMON.
- END PROGRAM foo.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. barr.
- PROCEDURE DIVISION.
- CONTINUE
- .
- *> This should cause an error (clashes with COMMON subprog foo)
- IDENTIFICATION DIVISION.
- PROGRAM-ID. foo.
- END PROGRAM foo.
- END PROGRAM barr.
- END PROGRAM prog.
-
-
- *> This should cause an error.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 foo PIC X.
-
- PROCEDURE DIVISION.
- CONTINUE
- .
- *> This should clash with the data definition.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. foo.
- END PROGRAM foo.
- END PROGRAM prog.
-
- *> This should cause an error
- IDENTIFICATION DIVISION.
- PROGRAM-ID. samename.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. samename.
- END PROGRAM samename.
- END PROGRAM samename.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:613: \$COMPILE_ONLY --ffold-call=upper -fdiagnostics-show-option prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY --ffold-call=upper -fdiagnostics-show-option prog.cob" "syn_definition.at:613"
-( $at_check_trace; $COMPILE_ONLY --ffold-call=upper -fdiagnostics-show-option prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: warning: redefinition of 'prog' [-Wredefinition]
-prog.cob:3: note: 'prog' previously defined here [-Wredefinition]
-prog.cob:23: error: redefinition of program name 'foo'
-prog.cob:31: error: redefinition of program name 'prog'
-prog.cob:42: error: redefinition of 'foo'
-prog.cob:35: note: 'foo' previously defined here [-Wredefinition]
-prog.cob:42: error: redefinition of program name 'foo'
-prog.cob:49: error: PROCEDURE DIVISION header missing
-prog.cob:50: error: redefinition of program name 'samename'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:613"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:625: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:625"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:23: error: redefinition of program ID 'foo'
-prog.cob:31: error: redefinition of program ID 'prog'
-prog.cob:42: error: redefinition of program ID 'foo'
-prog.cob:49: error: PROCEDURE DIVISION header missing
-prog.cob:50: error: redefinition of program ID 'samename'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:625"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_92
-#AT_START_93
-at_fn_group_banner 93 'syn_definition.at:636' \
- "Redefinition of program-name within program" " " 2
-at_xfail=no
-(
- printf "%s\n" "93. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 prog PIC 99 VALUE 0.
-
- PROCEDURE DIVISION.
- prog.
- CONTINUE
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:653: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:653"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: redefinition of 'prog'
-prog.cob:7: note: 'prog' previously defined here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:653"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:657: \$COMPILE_ONLY -fno-program-name-redefinition prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fno-program-name-redefinition prog.cob" "syn_definition.at:657"
-( $at_check_trace; $COMPILE_ONLY -fno-program-name-redefinition prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: warning: redefinition of 'prog'
-prog.cob:3: note: 'prog' previously defined here
-prog.cob:10: error: redefinition of 'prog'
-prog.cob:3: note: 'prog' previously defined here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:657"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_93
-#AT_START_94
-at_fn_group_banner 94 'syn_definition.at:666' \
- "Redefinition of function-prototype name" " " 2
-at_xfail=no
-(
- printf "%s\n" "94. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- REPOSITORY.
- FUNCTION func
- .
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 func PIC X.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:683: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:683"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: warning: no definition/prototype seen for FUNCTION 'func'
-prog.cob:12: error: syntax error, unexpected user function name
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:683"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_94
-#AT_START_95
-at_fn_group_banner 95 'syn_definition.at:691' \
- "PROCEDURE DIVISION RETURNING OMITTED: main" " " 2
-at_xfail=no
-(
- printf "%s\n" "95. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION RETURNING OMITTED.
- MOVE 42 TO RETURN-CODE
- GOBACK.
-_ATEOF
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:703: \$COMPILE_MODULE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE prog.cob" "syn_definition.at:703"
-( $at_check_trace; $COMPILE_MODULE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:703"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:704: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "syn_definition.at:704"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:4: error: RETURNING clause cannot be OMITTED for main program
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:704"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_95
-#AT_START_96
-at_fn_group_banner 96 'syn_definition.at:711' \
- "PROCEDURE DIVISION RETURNING OMITTED: FUNCTION" " " 2
-at_xfail=no
-(
- printf "%s\n" "96. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- FUNCTION-ID. func.
- PROCEDURE DIVISION RETURNING OMITTED.
- MOVE 42 TO RETURN-CODE
- GOBACK.
- END FUNCTION func.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:723: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:723"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:4: error: RETURNING clause cannot be OMITTED for a FUNCTION
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:723"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_96
-#AT_START_97
-at_fn_group_banner 97 'syn_definition.at:730' \
- "PROCEDURE DIVISION RETURNING item" " " 2
-at_xfail=no
-(
- printf "%s\n" "97. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- FUNCTION-ID. func.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 PAR-OUT PIC 9.
- PROCEDURE DIVISION RETURNING PAR-OUT.
- MOVE 4 TO PAR-OUT
- GOBACK.
- END FUNCTION func.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- FUNCTION-ID. func.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 PAR-OUT PIC 9.
- PROCEDURE DIVISION RETURNING PAR-OUT.
- MOVE 4 TO PAR-OUT
- GOBACK.
- END FUNCTION func.
-_ATEOF
-
-
-cat >prog3.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- FUNCTION-ID. func.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 PAR-OUT PIC 9 OCCURS 10.
- PROCEDURE DIVISION RETURNING PAR-OUT.
- MOVE 4 TO PAR-OUT (1)
- GOBACK.
- END FUNCTION func.
-_ATEOF
-
-
-cat >prog4.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- FUNCTION-ID. func.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 PAR.
- 02 PAR-OUT PIC 9.
- PROCEDURE DIVISION RETURNING PAR-OUT.
- MOVE 4 TO PAR-OUT
- GOBACK.
- END FUNCTION func.
-_ATEOF
-
-
-cat >prog5.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- FUNCTION-ID. func.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 PAR PIC 9.
- PROCEDURE DIVISION USING PAR RETURNING PAR.
- MOVE 4 TO PAR
- GOBACK.
- END FUNCTION func.
-
- IDENTIFICATION DIVISION.
- FUNCTION-ID. func2.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 PAR-IN PIC 9.
- 01 PAR-OUT REDEFINES PAR-IN PIC 9.
- PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT.
- MOVE 4 TO PAR-OUT
- GOBACK.
- END FUNCTION func2.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:806: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:806"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:806"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:807: \$COMPILE_ONLY prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog2.cob" "syn_definition.at:807"
-( $at_check_trace; $COMPILE_ONLY prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:7: error: RETURNING item is not defined in LINKAGE SECTION
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:807"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:810: \$COMPILE_ONLY prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog3.cob" "syn_definition.at:810"
-( $at_check_trace; $COMPILE_ONLY prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog3.cob:7: error: RETURNING item should not have OCCURS
-prog3.cob:9: error: 'PAR-OUT' requires one subscript
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:810"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:814: \$COMPILE_ONLY prog4.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog4.cob" "syn_definition.at:814"
-( $at_check_trace; $COMPILE_ONLY prog4.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog4.cob:8: error: RETURNING item must have level 01
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:814"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:817: \$COMPILE_ONLY prog5.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog5.cob" "syn_definition.at:817"
-( $at_check_trace; $COMPILE_ONLY prog5.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog5.cob:7: error: 'PAR' USING item duplicates RETURNING item
-prog5.cob:18: error: 'PAR-OUT' REDEFINES field not allowed here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:817"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_97
-#AT_START_98
-at_fn_group_banner 98 'syn_definition.at:825' \
- "Data item with same name as program-name" " " 2
-at_xfail=no
-(
- printf "%s\n" "98. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- FUNCTION-ID. x.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 ret PIC 99.
- PROCEDURE DIVISION RETURNING ret.
- CONTINUE
- .
- END FUNCTION x.
-
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x PIC 999 VALUE 134.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:847: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:847"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:847"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_98
-#AT_START_99
-at_fn_group_banner 99 'syn_definition.at:852' \
- "Ambiguous reference to 02 items" " " 2
-at_xfail=no
-(
- printf "%s\n" "99. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G1.
- 02 X PIC X.
- 01 G2.
- 02 X PIC X.
- PROCEDURE DIVISION.
- DISPLAY X.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:869: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:869"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:11: error: 'X' is ambiguous; needs qualification
-prog.cob:7: note: 'X IN G1' defined here
-prog.cob:9: note: 'X IN G2' defined here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:869"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_99
-#AT_START_100
-at_fn_group_banner 100 'syn_definition.at:878' \
- "Ambiguous reference to 02 and 03 items" " " 2
-at_xfail=no
-(
- printf "%s\n" "100. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G.
- 02 X.
- 03 X PIC X.
- PROCEDURE DIVISION.
- DISPLAY X.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:894: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:894"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: 'X' is ambiguous; needs qualification
-prog.cob:7: note: 'X IN G' defined here
-prog.cob:8: note: 'X IN X IN G' defined here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:894"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_100
-#AT_START_101
-at_fn_group_banner 101 'syn_definition.at:903' \
- "Ambiguous reference with qualification" " " 2
-at_xfail=no
-(
- printf "%s\n" "101. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G1.
- 02 X.
- 03 Y PIC X.
- 01 G2.
- 02 X.
- 03 Y PIC X.
- PROCEDURE DIVISION.
- DISPLAY Y IN X.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:922: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:922"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:13: error: 'Y IN X' is ambiguous; needs qualification
-prog.cob:8: note: 'Y IN X IN G1' defined here
-prog.cob:11: note: 'Y IN X IN G2' defined here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:922"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_101
-#AT_START_102
-at_fn_group_banner 102 'syn_definition.at:931' \
- "Unique reference with ambiguous qualifiers" " " 2
-at_xfail=no
-(
- printf "%s\n" "102. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G1.
- 02 X.
- 03 Y PIC X VALUE "Y".
- 01 G2.
- 02 X.
- 03 Z PIC X VALUE "Z".
- PROCEDURE DIVISION.
- DISPLAY Z IN X NO ADVANCING.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:950: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:950"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:950"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_102
-#AT_START_103
-at_fn_group_banner 103 'syn_definition.at:955' \
- "SYNCHRONIZED clause" " " 2
-at_xfail=no
-(
- printf "%s\n" "103. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# GC simply ignored RIGHT which is wrong according to ANSI/ISO;
-# most dialects just skip this, but according to docs IBM handles it
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 CS-FULL PICTURE 9(4) COMPUTATIONAL SYNCHRONIZED.
- 77 CS PIC 9(4) COMP SYNC.
- 77 CSL PIC 9(4) COMP SYNC LEFT.
- 77 CSR PIC 9(4) COMP SYNC RIGHT.
- PROCEDURE DIVISION.
- MOVE 1 TO CS-FULL, CS, CSL, CSR.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:975: \$COMPILE_ONLY -std=mf prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=mf prog.cob" "syn_definition.at:975"
-( $at_check_trace; $COMPILE_ONLY -std=mf prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:975"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# currently is:
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:977: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:977"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: warning: SYNCHRONIZED LEFT/RIGHT is not implemented
-prog.cob:9: warning: SYNCHRONIZED LEFT/RIGHT is not implemented
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:977"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# TODO: should be
-#AT_CHECK([$COMPILE_ONLY prog.cob], [0], [], [])
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_103
-#AT_START_104
-at_fn_group_banner 104 'syn_definition.at:998' \
- "Undefined procedure name" " " 2
-at_xfail=no
-(
- printf "%s\n" "104. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- GO TO END-OF-PROGRAM.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1009: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:1009"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:5: error: 'END-OF-PROGRAM' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:1009"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_104
-#AT_START_105
-at_fn_group_banner 105 'syn_definition.at:1018' \
- "Redefinition of section names" " " 2
-at_xfail=no
-(
- printf "%s\n" "105. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- L SECTION.
- L SECTION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1030: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:1030"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in section 'L':
-prog.cob:6: error: redefinition of 'L'
-prog.cob:5: note: 'L' previously defined here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:1030"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# FIXME: as long as there is no direct reference to the section
-# this should be not more than a warning,
-# maybe depending on a compiler configuration
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_105
-#AT_START_106
-at_fn_group_banner 106 'syn_definition.at:1043' \
- "Redefinition of section and paragraph names" " " 2
-at_xfail=no
-(
- printf "%s\n" "106. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- L SECTION.
- L.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1055: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:1055"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in section 'L':
-prog.cob:6: error: redefinition of 'L'
-prog.cob:5: note: 'L' previously defined here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:1055"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# FIXME: as long as there is no direct reference to
-# the paragraph/section this should be not more
-# than a warning, maybe depending on a compiler
-# configuration
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_106
-#AT_START_107
-at_fn_group_banner 107 'syn_definition.at:1069' \
- "Redefinition of label and variable names" " " 2
-at_xfail=yes
-(
- printf "%s\n" "107. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# currently failing, see FR #260
-
-
-cat >prog.cob <<'_ATEOF'
-
- identification division.
- program-id. WORD.
- data division.
- working-storage section.
- *-----------------------------------------------------------------
- 77 word pic 9.
- *-----------------------------------------------------------------
- PROCEDURE DIVISION.
- main section.
- *
- move 0 to word
- perform word
- *
- stop run returning word.
- *-----------------------------------------------------------------
- word section.
- add 1 to word.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1095: \$COMPILE_ONLY -std=cobol2014 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol2014 prog.cob" "syn_definition.at:1095"
-( $at_check_trace; $COMPILE_ONLY -std=cobol2014 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in section 'main':
-prog.cob:17: error: user-defined word re-used with different type does not conform to COBOL 2014
-prog.cob:17: error: redefinition of 'word' as label-name
-prog.cob:7: note: 'word' previously defined here as data-name
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:1095"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1101: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:1101"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:1101"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_107
-#AT_START_108
-at_fn_group_banner 108 'syn_definition.at:1106' \
- "Redefinition of paragraph names" " " 2
-at_xfail=no
-(
- printf "%s\n" "108. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- L.
- L.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1118: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:1118"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:1118"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-## Change when we DON'T allow this (likely as a warning,
-## depending on compiler configuration)
-## AT_CHECK([$COMPILE_ONLY prog.cob], [1], [],
-## [prog.cob: in paragraph 'L':
-## prog.cob:6: error: redefinition of 'L'
-## prog.cob:5: error: 'L' previously defined here
-## ])
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_108
-#AT_START_109
-at_fn_group_banner 109 'syn_definition.at:1132' \
- "Ambiguous reference to paragraph name" " " 2
-at_xfail=no
-(
- printf "%s\n" "109. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- S-1 SECTION.
- L.
- S-2 SECTION.
- L.
- S-3 SECTION.
- GO TO L.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1148: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:1148"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in section 'S-3':
-prog.cob:10: error: 'L' is ambiguous; needs qualification
-prog.cob:6: note: 'L IN S-1' defined here
-prog.cob:8: note: 'L IN S-2' defined here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:1148"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_109
-#AT_START_110
-at_fn_group_banner 110 'syn_definition.at:1158' \
- "Non-matching level numbers (extension)" " " 2
-at_xfail=no
-(
- printf "%s\n" "110. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 A.
- 05 B.
- 10 C PIC X.
- 04 D.
- 05 E PIC X.
- 05 F PIC X.
- 04 D2.
- 05 E2 PIC X.
- 04 D3.
- 05 E3 PIC X.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1180: \$COMPILE_ONLY -frelax-level-hierarchy prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -frelax-level-hierarchy prog.cob" "syn_definition.at:1180"
-( $at_check_trace; $COMPILE_ONLY -frelax-level-hierarchy prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: warning: no previous data item of level 04
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:1180"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1183: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:1183"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: no previous data item of level 04
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:1183"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_110
-#AT_START_111
-at_fn_group_banner 111 'syn_definition.at:1190' \
- "CALL BY VALUE alphanumeric item (extension)" " " 2
-at_xfail=no
-(
- printf "%s\n" "111. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4).
- PROCEDURE DIVISION.
- CALL "PROG2" USING BY VALUE X
- END-CALL.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1205: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:1205"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: warning: BY CONTENT assumed for alphanumeric item 'X'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:1205"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_111
-#AT_START_112
-at_fn_group_banner 112 'syn_definition.at:1212' \
- "CALL BY VALUE national item (extension)" " " 2
-at_xfail=no
-(
- printf "%s\n" "112. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 N PIC N(4).
- PROCEDURE DIVISION.
- CALL "PROG2" USING BY VALUE N
- END-CALL.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1227: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:1227"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: warning: BY CONTENT assumed for national item 'N'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:1227"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_112
-#AT_START_113
-at_fn_group_banner 113 'syn_definition.at:1234' \
- "CALL BY VALUE figurative constants" " " 2
-at_xfail=no
-(
- printf "%s\n" "113. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- CALL "PROG2" USING BY VALUE
- low-value
- high-value
- space
- quote
- zero
- END-CALL.
- CALL "PROG2" USING
- low-value
- high-value
- space
- quote
- zero
- END-CALL.
- CALL "PROG3" USING
- null
- END-CALL.
- STOP RUN.
-_ATEOF
-
-
-# FIXME: should raise an error with -std=cobolNNNN, no warning with -std=default
-# --> revise after rw-merge
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1263: \$COMPILE_ONLY -w prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -w prog.cob" "syn_definition.at:1263"
-( $at_check_trace; $COMPILE_ONLY -w prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:1263"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_113
-#AT_START_114
-at_fn_group_banner 114 'syn_definition.at:1268' \
- "Duplicate identification division header" " " 2
-at_xfail=no
-(
- printf "%s\n" "114. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1277: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:1277"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:3: error: syntax error, unexpected IDENTIFICATION, expecting FUNCTION-ID or PROGRAM-ID
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:1277"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_114
-#AT_START_115
-at_fn_group_banner 115 'syn_definition.at:1283' \
- "RETURNING in STOP RUN / GOBACK / EXIT PROGRAM" " " 2
-at_xfail=no
-(
- printf "%s\n" "115. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog1.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog1.
- PROCEDURE DIVISION.
- EXIT PROGRAM RETURNING -1.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- PROCEDURE DIVISION.
- GOBACK GIVING 2.
-_ATEOF
-
-
-cat >prog3.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3.
- PROCEDURE DIVISION.
- STOP RUN GIVING 0.
-_ATEOF
-
-
-cat >prog4.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog4.
- PROCEDURE DIVISION.
- MOVE 42 TO RETURN-CODE
- GOBACK.
-_ATEOF
-
-
-cat >prog5.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog5.
- PROCEDURE DIVISION.
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1322: \$COMPILE prog1.cob prog2.cob prog3.cob prog4.cob prog5.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog1.cob prog2.cob prog3.cob prog4.cob prog5.cob" "syn_definition.at:1322"
-( $at_check_trace; $COMPILE prog1.cob prog2.cob prog3.cob prog4.cob prog5.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:1322"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1324: \$COMPILE -fnot-register=return-code \\
-prog1.cob prog2.cob prog3.cob prog4.cob prog5.cob"
-at_fn_check_prepare_notrace 'an embedded newline' "syn_definition.at:1324"
-( $at_check_trace; $COMPILE -fnot-register=return-code \
-prog1.cob prog2.cob prog3.cob prog4.cob prog5.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog1.cob:5: error: RETURNING/GIVING not allowed for non-returning runtime elements
-prog2.cob:5: error: RETURNING/GIVING not allowed for non-returning runtime elements
-prog4.cob:5: error: 'RETURN-CODE' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:1324"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_115
-#AT_START_116
-at_fn_group_banner 116 'syn_definition.at:1334' \
- "OSVS register CURRENT-DATE and TIME-OF-DAY" " " 2
-at_xfail=yes
-(
- printf "%s\n" "116. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# special "special register" - the value is dynamic like a function so needs to
-# be either handled as an "internal" function call with c/s reserved words or
-# new codegen branch for "set variable on use" which would allow register handling
-
-
-
-cat >prog1.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog1.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 display-out pic x(10).
- PROCEDURE DIVISION.
- MOVE CURRENT-DATE TO DISPLAY-OUT
- MOVE TIME-OF-DAY TO DISPLAY-OUT
- STOP RUN.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 current-date pic x(08).
- PROCEDURE DIVISION.
- MOVE 'unknown' TO CURRENT-DATE
- STOP RUN.
-_ATEOF
-
-
-cat >prog3.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3.
- PROCEDURE DIVISION.
- MOVE 'unknown' TO CURRENT-DATE
- STOP RUN.
-_ATEOF
-
-
-# this extension is NOT available with Enterprise COBOL (also not by default for MF)
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1375: \$COMPILE_ONLY -std=cobol85 prog1.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol85 prog1.cob" "syn_definition.at:1375"
-( $at_check_trace; $COMPILE_ONLY -std=cobol85 prog1.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog1.cob:8: error: 'CURRENT-DATE' is not defined
-prog1.cob:9: error: 'TIME-OF-DAY' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:1375"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1379: \$COMPILE_ONLY -std=ibm-strict prog1.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=ibm-strict prog1.cob" "syn_definition.at:1379"
-( $at_check_trace; $COMPILE_ONLY -std=ibm-strict prog1.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog1.cob:8: error: 'CURRENT-DATE' is not defined
-prog1.cob:9: error: 'TIME-OF-DAY' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:1379"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1383: \$COMPILE_ONLY -std=mf prog1.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=mf prog1.cob" "syn_definition.at:1383"
-( $at_check_trace; $COMPILE_ONLY -std=mf prog1.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog1.cob:8: error: 'CURRENT-DATE' is not defined
-prog1.cob:9: error: 'TIME-OF-DAY' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:1383"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1388: \$COMPILE_ONLY prog1.cob prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog1.cob prog2.cob" "syn_definition.at:1388"
-( $at_check_trace; $COMPILE_ONLY prog1.cob prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog1.cob:8: error: 'CURRENT-DATE' is not defined
-prog1.cob:9: error: 'TIME-OF-DAY' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:1388"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1392: \$COMPILE_ONLY -fregister=current-date,time-of-day \\
- prog1.cob prog2.cob prog3.cob"
-at_fn_check_prepare_notrace 'an embedded newline' "syn_definition.at:1392"
-( $at_check_trace; $COMPILE_ONLY -fregister=current-date,time-of-day \
- prog1.cob prog2.cob prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:6: warning: redefinition of 'CURRENT-DATE'
-prog2.cob:8: error: 'CURRENT-DATE' is ambiguous; needs qualification
-prog2.cob:8: note: 'CURRENT-DATE' is a special register
-prog2.cob:6: note: 'CURRENT-DATE' defined here
-prog3.cob:5: error: invalid MOVE statement
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:1392"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_116
-#AT_START_117
-at_fn_group_banner 117 'syn_definition.at:1404' \
- "Invalid ENVIRONMENT DIVISION order" " " 2
-at_xfail=no
-(
- printf "%s\n" "117. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- CONSOLE IS CRT
- .
- SPECIAL-NAMES.
- DECIMAL-POINT IS COMMA
- .
- SOURCE-COMPUTER. a-computer.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1422: \$COMPILE_ONLY -fincorrect-conf-sec-order=error prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fincorrect-conf-sec-order=error prog.cob" "syn_definition.at:1422"
-( $at_check_trace; $COMPILE_ONLY -fincorrect-conf-sec-order=error prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: duplicate SPECIAL-NAMES
-prog.cob:13: error: SOURCE-COMPUTER incorrectly after SPECIAL-NAMES used
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:1422"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_117
-#AT_START_118
-at_fn_group_banner 118 'syn_definition.at:1429' \
- "Function without END FUNCTION" " " 2
-at_xfail=no
-(
- printf "%s\n" "118. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- FUNCTION-ID. func.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1437: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:1437"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:4: error: syntax error, unexpected end of file, expecting END FUNCTION
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:1437"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_118
-#AT_START_119
-at_fn_group_banner 119 'syn_definition.at:1443' \
- "Nested programs without END PROGRAM" " " 2
-at_xfail=no
-(
- printf "%s\n" "119. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog-2.
- PROCEDURE DIVISION.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog-3.
-
- END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1461: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:1461"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:1461"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_119
-#AT_START_120
-at_fn_group_banner 120 'syn_definition.at:1465' \
- "Nested programs not in procedure division" " " 2
-at_xfail=no
-(
- printf "%s\n" "120. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog-2.
-
- END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1478: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:1478"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:5: error: PROCEDURE DIVISION header missing
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:1478"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_120
-#AT_START_121
-at_fn_group_banner 121 'syn_definition.at:1484' \
- "Screen section starts with 78-level" " " 2
-at_xfail=no
-(
- printf "%s\n" "121. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- SCREEN SECTION.
- 78 const VALUE "x".
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1496: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:1496"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:1496"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_121
-#AT_START_122
-at_fn_group_banner 122 'syn_definition.at:1500' \
- "Invalid PICTURE strings" " " 2
-at_xfail=no
-(
- printf "%s\n" "122. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 empty-pic PIC.
- 01 too-long-pic PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
- -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX.
- 01 too-long-pic2 PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
- -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
- -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
- -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
- -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX.
- 01 multiple-symbols.
- 03 PIC 9CRCR.
- 03 PIC 9DBDB.
- 03 PIC SS99S.
- 03 PIC 99..9.
- 03 PIC 99VV9.
- 03 PIC +$99+.
- 03 PIC $+99$-.
- 01 non-symbols.
- 03 PIC 9K.
- 03 PIC 999C.
- 03 PIC 999D.
- 01 too-many-digits PIC 9(50).
- 01 too-long-number-in-parens PIC 9(11111111111111).
- 01 nested-parens PIC 9((100)).
- 01 unbalanced-parens PIC 9(.
- 01 multiple-pairs-of-parens PIC 9(5)(3).
- 01 no-digit-in-parens PIC 9().
- 01 mutually-exclusive-symbols.
- 03 PIC P(3)9.9.
- 03 PIC 9V.9.
- 03 PIC Z*.
- 03 PIC +(5)--.
- 03 PIC $(4)Z(9).
- 03 PIC $$B*(4).
- 03 PIC NX.
- 03 PIC AN.
- 03 PIC AZ(3).
- 03 PIC 99.99XXXXX.
- 03 PIC SA.
- 03 PIC $$$B+++B---.
- 03 PIC +++9+.
- 03 PIC +9(5)CR.
- 03 PIC -9(5)DB.
- 01 non-rightmost-leftmost-symbols.
- 03 PIC BBB+BB99.
- 03 PIC 99-B.
- 03 PIC 9CRB.
- 03 PIC DB9(5).
- 03 PIC 99$$$.
- 03 PIC 99$B.
- 03 PIC 0$99.
- 03 PIC PPPVP9.
- 01 missing-symbols.
- 03 PIC B(5).
- 03 PIC +.
- 03 PIC $.
-
- 01 str-constant CONSTANT "hello".
- 01 float-constant CONSTANT 1.0.
- 01 signed-constant CONSTANT -1.
- 01 invalid-constant.
- 03 PIC X(str-constant).
- 03 PIC X(float-constant).
- 03 PIC X(signed-constant).
- 03 PIC X(unseen-constant).
-
- 01 integer-constant CONSTANT 5.
- 01 valid-pics.
- 03 PIC VP9B.
- 03 PIC B9P(3).
- 03 PIC B$$$.
- 03 PIC 0000+B0+++0B,+.
- 03 PIC +(5)P(3).
- 03 PIC ++.++.
- 03 PIC $(integer-constant).
- 03 PIC $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
- -(integer-constant). *> CHECKME: should this be really valid?
-
-
- 01 PC-COLOR-BACKGROUND-TABLE.
- 05 BIT-BACKGROUND-BLACK PIC 1(8) BIT VALUE B"00000000".
- 05 BIT-BACKGROUND-BLUE PIC 1(8) BIT VALUE B"00010000".
- 05 BIT-BACKGROUND-GREEN PIC 1(8) BIT VALUE B"00100000".
- 05 BIT-BACKGROUND-CYAN PIC 1(8) BIT VALUE B"00110000".
- 05 BIT-BACKGROUND-RED PIC 1(8) BIT VALUE B"01000000".
- 05 BIT-BACKGROUND-MAGENTA PIC 1(8) BIT VALUE B"01010000".
- 05 BIT-BACKGROUND-BROWN PIC 1(8) BIT VALUE B"01100000".
- 05 BIT-BACKGROUND-LIGHT-GRAY PIC 1(8) BIT VALUE B"01110000".
- 01 FILLER REDEFINES PC-COLOR-BACKGROUND-TABLE.
- 05 COLOR-BACKGROUND
- OCCURS 8 TIMES PIC 1(8) BIT.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1601: \$COMPILE_ONLY -std=cobol2014 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol2014 prog.cob" "syn_definition.at:1601"
-( $at_check_trace; $COMPILE_ONLY -std=cobol2014 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: warning: continuation of COBOL words is archaic in COBOL 2014
-prog.cob:11: warning: continuation of COBOL words is archaic in COBOL 2014
-prog.cob:12: warning: continuation of COBOL words is archaic in COBOL 2014
-prog.cob:13: warning: continuation of COBOL words is archaic in COBOL 2014
-prog.cob:14: warning: continuation of COBOL words is archaic in COBOL 2014
-prog.cob:82: warning: continuation of COBOL words is archaic in COBOL 2014
-prog.cob:7: error: missing PICTURE string
-prog.cob:8: error: PICTURE string may not contain more than 63 characters; contains 76 characters
-prog.cob:10: error: PICTURE string may not contain more than 63 characters; contains 301 characters
-prog.cob:16: error: CR or DB may only occur once in a PICTURE string
-prog.cob:17: error: CR or DB may only occur once in a PICTURE string
-prog.cob:18: error: S may only occur once in a PICTURE string
-prog.cob:18: error: S must be at start of PICTURE string
-prog.cob:19: error: . may only occur once in a PICTURE string
-prog.cob:20: error: V may only occur once in a PICTURE string
-prog.cob:21: error: a trailing +/- sign cannot follow a leading +/- sign
-prog.cob:22: error: a leading +/- sign cannot follow a leading currency symbol
-prog.cob:22: error: a trailing currency symbol cannot follow a leading currency symbol
-prog.cob:22: error: a trailing +/- sign cannot follow a leading +/- sign
-prog.cob:24: error: invalid PICTURE character 'K'
-prog.cob:25: error: C must be followed by R
-prog.cob:26: error: D must be followed by B
-prog.cob:27: error: numeric field cannot be larger than 38 digits
-prog.cob:28: error: only up to 10 significant digits are permitted within parentheses
-prog.cob:29: error: parentheses must be preceded by a picture symbol
-prog.cob:30: error: unbalanced parentheses
-prog.cob:31: error: parentheses must be preceded by a picture symbol
-prog.cob:32: error: parentheses must contain an unsigned integer
-prog.cob:34: error: . cannot follow a P which is after the decimal point
-prog.cob:35: error: . cannot follow V
-prog.cob:36: error: cannot have both Z and * in PICTURE string
-prog.cob:37: error: a trailing +/- sign cannot follow a floating +/- string which is before the decimal point
-prog.cob:37: error: a trailing +/- sign may only occur once in a PICTURE string
-prog.cob:38: error: a Z or * which is before the decimal point cannot follow a floating currency symbol string which is before the decimal point
-prog.cob:39: error: a Z or * which is before the decimal point cannot follow a floating currency symbol string which is before the decimal point
-prog.cob:40: error: A or X cannot follow N
-prog.cob:41: error: N cannot follow A or X
-prog.cob:42: error: a Z or * which is before the decimal point cannot follow A or X
-prog.cob:43: error: A or X cannot follow .
-prog.cob:44: error: A or X cannot follow S
-prog.cob:45: error: a leading +/- sign cannot follow B, 0 or /
-prog.cob:45: error: a leading +/- sign cannot follow a floating currency symbol string which is before the decimal point
-prog.cob:45: error: a leading +/- sign may only occur once in a PICTURE string
-prog.cob:45: error: a trailing +/- sign cannot follow a leading +/- sign
-prog.cob:45: error: a trailing +/- sign may only occur once in a PICTURE string
-prog.cob:46: error: a trailing +/- sign cannot follow a floating +/- string which is before the decimal point
-prog.cob:47: error: CR or DB cannot follow a leading +/- sign
-prog.cob:48: error: CR or DB cannot follow a leading +/- sign
-prog.cob:50: error: a leading +/- sign cannot follow B, 0 or /
-prog.cob:51: error: a leading +/- sign cannot follow 9
-prog.cob:52: error: B, 0 or / cannot follow CR or DB
-prog.cob:53: error: 9 cannot follow CR or DB
-prog.cob:54: error: a floating currency symbol string which is before the decimal point cannot follow 9
-prog.cob:55: error: a leading currency symbol cannot follow 9
-prog.cob:56: error: a leading currency symbol cannot follow B, 0 or /
-prog.cob:57: error: P must be at start or end of PICTURE string
-prog.cob:57: error: V cannot follow a P which is after the decimal point
-prog.cob:59: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol
-prog.cob:60: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol
-prog.cob:61: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol
-prog.cob:67: error: 'STR-CONSTANT' is not an unsigned positive integer
-prog.cob:68: error: 'FLOAT-CONSTANT' is not an unsigned positive integer
-prog.cob:69: error: 'SIGNED-CONSTANT' is not an unsigned positive integer
-prog.cob:70: error: 'UNSEEN-CONSTANT' is not defined
-prog.cob:81: warning: uncommon parentheses
-prog.cob:86: warning: USAGE BIT is not implemented
-prog.cob:87: warning: USAGE BIT is not implemented
-prog.cob:88: warning: USAGE BIT is not implemented
-prog.cob:89: warning: USAGE BIT is not implemented
-prog.cob:90: warning: USAGE BIT is not implemented
-prog.cob:91: warning: USAGE BIT is not implemented
-prog.cob:92: warning: USAGE BIT is not implemented
-prog.cob:93: warning: USAGE BIT is not implemented
-prog.cob:96: warning: USAGE BIT is not implemented
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:1601"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1678: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:1678"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: warning: continuation of COBOL words used
-prog.cob:11: warning: continuation of COBOL words used
-prog.cob:12: warning: continuation of COBOL words used
-prog.cob:13: warning: continuation of COBOL words used
-prog.cob:14: warning: continuation of COBOL words used
-prog.cob:82: warning: continuation of COBOL words used
-prog.cob:7: error: missing PICTURE string
-prog.cob:10: error: PICTURE string may not contain more than 255 characters; contains 301 characters
-prog.cob:16: error: CR or DB may only occur once in a PICTURE string
-prog.cob:17: error: CR or DB may only occur once in a PICTURE string
-prog.cob:18: error: S may only occur once in a PICTURE string
-prog.cob:18: error: S must be at start of PICTURE string
-prog.cob:19: error: . may only occur once in a PICTURE string
-prog.cob:20: error: V may only occur once in a PICTURE string
-prog.cob:21: error: a trailing +/- sign cannot follow a leading +/- sign
-prog.cob:22: error: a leading +/- sign cannot follow a leading currency symbol
-prog.cob:22: error: a trailing currency symbol cannot follow a leading currency symbol
-prog.cob:22: error: a trailing +/- sign cannot follow a leading +/- sign
-prog.cob:24: error: invalid PICTURE character 'K'
-prog.cob:25: error: C must be followed by R
-prog.cob:26: error: D must be followed by B
-prog.cob:27: error: numeric field cannot be larger than 38 digits
-prog.cob:28: error: only up to 10 significant digits are permitted within parentheses
-prog.cob:29: error: parentheses must be preceded by a picture symbol
-prog.cob:30: error: unbalanced parentheses
-prog.cob:31: error: parentheses must be preceded by a picture symbol
-prog.cob:32: error: parentheses must contain an unsigned integer
-prog.cob:34: error: . cannot follow a P which is after the decimal point
-prog.cob:35: error: . cannot follow V
-prog.cob:36: error: cannot have both Z and * in PICTURE string
-prog.cob:37: error: a trailing +/- sign cannot follow a floating +/- string which is before the decimal point
-prog.cob:37: error: a trailing +/- sign may only occur once in a PICTURE string
-prog.cob:38: error: a Z or * which is before the decimal point cannot follow a floating currency symbol string which is before the decimal point
-prog.cob:39: error: a Z or * which is before the decimal point cannot follow a floating currency symbol string which is before the decimal point
-prog.cob:40: error: A or X cannot follow N
-prog.cob:41: error: N cannot follow A or X
-prog.cob:42: error: a Z or * which is before the decimal point cannot follow A or X
-prog.cob:43: error: A or X cannot follow .
-prog.cob:44: error: A or X cannot follow S
-prog.cob:45: error: a leading +/- sign cannot follow B, 0 or /
-prog.cob:45: error: a leading +/- sign cannot follow a floating currency symbol string which is before the decimal point
-prog.cob:45: error: a leading +/- sign may only occur once in a PICTURE string
-prog.cob:45: error: a trailing +/- sign cannot follow a leading +/- sign
-prog.cob:45: error: a trailing +/- sign may only occur once in a PICTURE string
-prog.cob:46: error: a trailing +/- sign cannot follow a floating +/- string which is before the decimal point
-prog.cob:47: error: CR or DB cannot follow a leading +/- sign
-prog.cob:48: error: CR or DB cannot follow a leading +/- sign
-prog.cob:50: error: a leading +/- sign cannot follow B, 0 or /
-prog.cob:51: error: a leading +/- sign cannot follow 9
-prog.cob:52: error: B, 0 or / cannot follow CR or DB
-prog.cob:53: error: 9 cannot follow CR or DB
-prog.cob:54: error: a floating currency symbol string which is before the decimal point cannot follow 9
-prog.cob:55: error: a leading currency symbol cannot follow 9
-prog.cob:56: error: a leading currency symbol cannot follow B, 0 or /
-prog.cob:57: error: P must be at start or end of PICTURE string
-prog.cob:57: error: V cannot follow a P which is after the decimal point
-prog.cob:59: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol
-prog.cob:60: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol
-prog.cob:61: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol
-prog.cob:67: error: 'STR-CONSTANT' is not an unsigned positive integer
-prog.cob:68: error: 'FLOAT-CONSTANT' is not an unsigned positive integer
-prog.cob:69: error: 'SIGNED-CONSTANT' is not an unsigned positive integer
-prog.cob:70: error: 'UNSEEN-CONSTANT' is not defined
-prog.cob:81: warning: uncommon parentheses
-prog.cob:86: warning: USAGE BIT is not implemented
-prog.cob:87: warning: USAGE BIT is not implemented
-prog.cob:88: warning: USAGE BIT is not implemented
-prog.cob:89: warning: USAGE BIT is not implemented
-prog.cob:90: warning: USAGE BIT is not implemented
-prog.cob:91: warning: USAGE BIT is not implemented
-prog.cob:92: warning: USAGE BIT is not implemented
-prog.cob:93: warning: USAGE BIT is not implemented
-prog.cob:96: warning: USAGE BIT is not implemented
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:1678"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_122
-#AT_START_123
-at_fn_group_banner 123 'syn_definition.at:1756' \
- "PICTURE string with control character" " " 2
-at_xfail=no
-(
- printf "%s\n" "123. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- PIC(P)
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1763: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:1763"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:2: error: 'P' is not defined
-prog.cob:2: error: invalid PICTURE character ''
-prog.cob:2: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol
-prog.cob:2: error: PROGRAM-ID header missing
-prog.cob:2: error: PROCEDURE DIVISION header missing
-prog.cob:2: error: syntax error, unexpected PICTURE
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:1763"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_123
-#AT_START_124
-at_fn_group_banner 124 'syn_definition.at:1774' \
- "PICTURE strings invalid with BLANK WHEN ZERO" " " 2
-at_xfail=no
-(
- printf "%s\n" "124. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x PIC S9(5) BLANK ZERO.
- 01 y PIC *(5) BLANK ZERO.
-
- *> Actually valid
- 01 z PIC -9(5) BLANK ZERO.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1790: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:1790"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: error: 'x' cannot have S in PICTURE string and BLANK WHEN ZERO
-prog.cob:8: error: 'y' cannot have * in PICTURE string and BLANK WHEN ZERO
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:1790"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_124
-#AT_START_125
-at_fn_group_banner 125 'syn_definition.at:1797' \
- "PICTURE strings invalid with USAGE" " " 2
-at_xfail=no
-(
- printf "%s\n" "125. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x PIC XXX, COMP-6.
- 01 y PIC +999, PACKED-DECIMAL.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1810: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:1810"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: error: PICTURE clause not compatible with USAGE COMP-6
-prog.cob:8: error: PICTURE clause not compatible with USAGE COMP-3
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:1810"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_125
-#AT_START_126
-at_fn_group_banner 126 'syn_definition.at:1817' \
- "Edited monetary PICTURE strings" " " 2
-at_xfail=no
-(
- printf "%s\n" "126. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 DOLLARS.
- 05 REPORT-LINE.
- 10 REPORT-ITEMS PIC ZZ,ZZZ,ZZZ,ZZ9-.
- 10 REPORT-FICA-WAGES PIC
- $$$,$$$,$$$,$$$,$$$.99-.
- 10 REPORT-FICA-TIPS PIC
- $$$,$$$,$$$,$$$,$$$.99-.
- 10 REPORT-TOTAL-COMP PIC
- $$$,$$$,$$$,$$$,$$$.99-.
- 10 REPORT-MEDICARE PIC
- $$$,$$$,$$$,$$$,$$$.99-.
- 05 ACCT-REPORT-TOTAL-LINE PIC XXX.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1840: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:1840"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:1840"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_126
-#AT_START_127
-at_fn_group_banner 127 'syn_definition.at:1844' \
- "ALPHABET definition" " " 2
-at_xfail=no
-(
- printf "%s\n" "127. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- ALPHABET TESTME IS
- 'A' THROUGH 'Z', x'00' thru x'05';
- x'41' ALSO x'42', ALSO x'00', x'C1' ALSO x'C2'.
- ALPHABET FINE
- 'A' also 'B' also 'C' also 'd' also 'e' ALSO 'f',
- 'g' also 'G', '1' thru '9', x'00'.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:1861: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:1861"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: error: duplicate character values in alphabet 'TESTME': x'00', A, B
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:1861"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_127
-#AT_START_128
-at_fn_group_banner 128 'syn_definition.at:1867' \
- "PROGRAM COLLATING SEQUENCE" " " 2
-at_xfail=no
-(
- printf "%s\n" "128. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# check that a reference on the bad alphabet does not break cobc
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER. GNU-LINUX.
- OBJECT-COMPUTER. GC-MACHINE,
- PROGRAM COLLATING SEQUENCE IS TESTME.
- SPECIAL-NAMES.
- ALPHABET TESTME IS
- x'00' thru x'05', 'A' THROUGH 'Z';
- x'41' ALSO x'42', ALSO x'00', x'C1' ALSO x'C2'.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER. GNU-LINUX.
- OBJECT-COMPUTER. GC-MACHINE,
- PROGRAM COLLATING SEQUENCE IS TESTNO.
-_ATEOF
-
-
-cat >prog3.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER. GNU-LINUX.
- OBJECT-COMPUTER. GC-MACHINE,
- PROGRAM COLLATING SEQUENCE IS ALPHABET-1,
- ALPHABET-2.
- SPECIAL-NAMES.
- ALPHABET ALPHABET-1 IS
- 'A' THROUGH 'Z', x'00' thru x'05'.
- ALPHABET ALPHABET-2
- n'A' also n'B' ALSO n'f',
- n'g' also n'G', n'1' thru n'9'.
- END PROGRAM prog3.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3b.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER. GNU-LINUX.
- OBJECT-COMPUTER. GC-MACHINE,
- PROGRAM SEQUENCE IS ALPHABET-1,
- ALPHABET-2.
- SPECIAL-NAMES.
- ALPHABET ALPHABET-1 IS
- 'A' THROUGH 'Z', x'00' thru x'05'.
- ALPHABET ALPHABET-2 IS
- n'A' ALSO n'f',
- n'g' also n'G'.
- END PROGRAM prog3b.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3c.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER. GNU-LINUX.
- OBJECT-COMPUTER. GC-MACHINE, SEQUENCE ALPHABET-1, ALPHABET-2.
- SPECIAL-NAMES.
- ALPHABET ALPHABET-1 x'00' thru x'05'.
- ALPHABET ALPHABET-2 IS n'g' also n'G', n'1' thru n'9'.
- END PROGRAM prog3c.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3d.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER. GNU-LINUX.
- OBJECT-COMPUTER. GC-MACHINE, SEQUENCE ALPHABET-1, ALPHABET-2.
- SPECIAL-NAMES.
- ALPHABET ALPHABET-1 IS 'A' THROUGH 'Z'.
- ALPHABET ALPHABET-2 n'A' also n'B', n'1' thru n'9'.
- END PROGRAM prog3d.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3e.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER. GNU-LINUX.
- OBJECT-COMPUTER. GC-MACHINE, SEQUENCE ALPHABET-1.
- SPECIAL-NAMES.
- ALPHABET ALPHABET-1 IS 'Z', x'00'.
- END PROGRAM prog3e.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3f.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER. GNU-LINUX.
- OBJECT-COMPUTER. GC-MACHINE,
- COLLATING SEQUENCE
- FOR ALPHANUMERIC IS ALPHABET-1.
- SPECIAL-NAMES.
- ALPHABET ALPHABET-1 IS
- 'A' THROUGH 'Z', x'00', x'05'.
- END PROGRAM prog3f.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3g.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER. GNU-LINUX.
- OBJECT-COMPUTER. GC-MACHINE,
- SEQUENCE ALPHANUMERIC ALPHABET-1.
- SPECIAL-NAMES.
- ALPHABET ALPHABET-1 IS
- 'A' THROUGH 'D'.
- END PROGRAM prog3g.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3h.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER. GNU-LINUX.
- OBJECT-COMPUTER. GC-MACHINE,
- COLLATING SEQUENCE
- FOR ALPHANUMERIC IS ALPHABET-1
- NATIONAL IS ALPHABET-2.
- SPECIAL-NAMES.
- ALPHABET ALPHABET-1 IS
- 'A', 'C', x'05'.
- ALPHABET ALPHABET-2
- n'A', n'1' thru n'9'.
- END PROGRAM prog3h.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3i.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER. GNU-LINUX.
- OBJECT-COMPUTER. GC-MACHINE,
- COLLATING SEQUENCE
- NATIONAL ALPHABET-2
- ALPHANUMERIC ALPHABET-1.
- SPECIAL-NAMES.
- ALPHABET ALPHABET-1 IS
- 'a' THROUGH 'z'.
- ALPHABET ALPHABET-2
- n'B', n'C'; n'g' also n'G'.
- END PROGRAM prog3i.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3j.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER. GNU-LINUX.
- OBJECT-COMPUTER. GC-MACHINE,
- COLLATING SEQUENCE
- NATIONAL ALPHABET-2.
- SPECIAL-NAMES.
- ALPHABET ALPHABET-2
- n'B', n'C'; n'g' also n'G'.
- END PROGRAM prog3j.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:2031: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:2031"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: duplicate character values in alphabet 'TESTME': x'00', A, B
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:2031"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:2034: \$COMPILE_ONLY prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog2.cob" "syn_definition.at:2034"
-( $at_check_trace; $COMPILE_ONLY prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:8: error: 'TESTNO' is not defined
-prog2.cob:8: error: 'TESTNO' is not an alphabet-name
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:2034"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:2038: \$COMPILE_ONLY -Wno-unfinished prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wno-unfinished prog3.cob" "syn_definition.at:2038"
-( $at_check_trace; $COMPILE_ONLY -Wno-unfinished prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog3.cob:9: warning: NATIONAL COLLATING SEQUENCE is not implemented
-prog3.cob:25: warning: NATIONAL COLLATING SEQUENCE is not implemented
-prog3.cob:39: warning: NATIONAL COLLATING SEQUENCE is not implemented
-prog3.cob:50: warning: NATIONAL COLLATING SEQUENCE is not implemented
-prog3.cob:99: warning: NATIONAL COLLATING SEQUENCE is not implemented
-prog3.cob:114: warning: NATIONAL COLLATING SEQUENCE is not implemented
-prog3.cob:130: warning: NATIONAL COLLATING SEQUENCE is not implemented
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:2038"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_128
-#AT_START_129
-at_fn_group_banner 129 'syn_definition.at:2050' \
- "RENAMES item" " " 2
-at_xfail=no
-(
- printf "%s\n" "129. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 a.
- 03 b PIC 9.
- 03 c.
- 05 d PIC 9.
- 05 e PIC 9.
-
- 66 valid-1 RENAMES b.
- 66 valid-2 RENAMES d THRU e.
-
- 66 invalid-1 RENAMES a.
- 66 invalid-2 RENAMES c THRU d.
- 66 invalid-3 RENAMES e THRU d.
- 66 invalid-4 RENAMES valid-2.
-
- 01 f.
- 03 g PIC X.
- 88 h VALUE "a".
- 03 i PIC X.
- 03 j OCCURS 5 TIMES.
- 05 k PIC X.
- 05 l PIC 9.
- 03 m PIC 9.
- 03 n POINTER, SYNC.
- 03 o.
- 05 p PIC X OCCURS 1 TO 10 DEPENDING ON l.
-
- 66 valid-3 RENAMES g THRU i.
- 66 invalid-5 RENAMES h.
- 66 invalid-6 RENAMES k THRU l.
- 66 invalid-7 RENAMES j.
- 66 invalid-8 RENAMES m THRU o.
- 66 invalid-9 RENAMES b THRU m.
-
- 78 my-ext-const VALUE "123".
- 66 invalid-ec RENAMES my-ext-const.
-
- 01 my-std-const CONSTANT AS "123".
- 66 invalid-sc RENAMES my-std-const.
-
- PROCEDURE DIVISION.
- DISPLAY valid-2 OF a
- IF valid-1 = 1
- CONTINUE
- END-IF
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:2105: \$COMPILE_ONLY -std=cobol2014 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol2014 prog.cob" "syn_definition.at:2105"
-( $at_check_trace; $COMPILE_ONLY -std=cobol2014 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:15: error: RENAMES of 01-, 66- and 77-level items does not conform to COBOL 2014
-prog.cob:16: error: THRU item 'd' may not be subordinate to 'c'
-prog.cob:17: error: THRU item 'd' may not come before 'e'
-prog.cob:18: error: RENAMES of 01-, 66- and 77-level items does not conform to COBOL 2014
-prog.cob:33: error: RENAMES may not reference a level 88
-prog.cob:34: error: cannot use RENAMES on part of the table 'j'
-prog.cob:35: error: RENAMES cannot start/end at the OCCURS item 'j'
-prog.cob:36: error: RENAMES may not contain 'n' as it is a pointer or object reference
-prog.cob:36: error: RENAMES may not contain 'p' as it is an OCCURS DEPENDING table
-prog.cob:37: error: 'invalid-9' must immediately follow the record 'a'
-prog.cob:37: error: 'b' and 'm' must be in the same record
-prog.cob:39: error: 78 VALUE does not conform to COBOL 2014
-prog.cob:40: error: a constant may not be used here - 'my-ext-const'
-prog.cob:43: error: a constant may not be used here - 'my-std-const'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:2105"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_129
-#AT_START_130
-at_fn_group_banner 130 'syn_definition.at:2124' \
- "RENAMES of 01-, 66- and 77-level items" " " 2
-at_xfail=no
-(
- printf "%s\n" "130. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 a PIC X.
- 66 renames-a RENAMES a.
- 66 renames-a2 RENAMES renames-a.
-
- 77 b PIC X.
- 66 renames-b RENAMES b.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:2140: \$COMPILE_ONLY -std=cobol2014 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol2014 prog.cob" "syn_definition.at:2140"
-( $at_check_trace; $COMPILE_ONLY -std=cobol2014 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: error: RENAMES of 01-, 66- and 77-level items does not conform to COBOL 2014
-prog.cob:8: error: RENAMES of 01-, 66- and 77-level items does not conform to COBOL 2014
-prog.cob:11: error: RENAMES of 01-, 66- and 77-level items does not conform to COBOL 2014
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:2140"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:2145: \$COMPILE_ONLY -frenames-uncommon-levels=ok prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -frenames-uncommon-levels=ok prog.cob" "syn_definition.at:2145"
-( $at_check_trace; $COMPILE_ONLY -frenames-uncommon-levels=ok prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:2145"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_130
-#AT_START_131
-at_fn_group_banner 131 'syn_definition.at:2150' \
- "SAME AS clause" " " 2
-at_xfail=no
-(
- printf "%s\n" "131. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 MESSAGE-TEXT-2 EXTERNAL.
- 02 AUSGABE-FILE-NAME PIC X(50).
- 02 FILLER REDEFINES AUSGABE-FILE-NAME.
- 05 FILLER PIC 9999.
- 02 AUSGABE-FILE-NAME-2.
- 05 FILLER PIC 9999.
- 05 DETAIL-NO PIC 9999.
- 02 FILLER SAME AS AUSGABE-FILE-NAME.
-
- 77 OUTPUT-NAME SAME AS DETAIL-NO GLOBAL.
-
- 01 Z-MESSAGE-T2 SAME AS AUSGABE-FILE-NAME-2.
- 01 Z-MESSAGE-T3.
- 49 MT3 SAME AS MESSAGE-TEXT-2.
- 49 MT3-REN REDEFINES MT3 SAME AS MESSAGE-TEXT-2.
-
- PROCEDURE DIVISION.
- DISPLAY AUSGABE-FILE-NAME OF MESSAGE-TEXT-2
- DISPLAY DETAIL-NO OF Z-MESSAGE-T2
- DISPLAY AUSGABE-FILE-NAME OF MT3
- DISPLAY OUTPUT-NAME
- GOBACK.
-_ATEOF
-
-
-cat >badprog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 MESSAGE-TEXT-2.
- 02 AUSGABE-FILE-NAME PIC X(50).
- 02 F1 SAME AS MESSAGE-TEXT-2.
- 01 MT2 SAME AS MESSAGE-TEXT-2.
- 05 FILLER PIC 9999.
- 01 MT3 SAME AS MESSAGE-TEXT-2 PIC X.
- 77 OUTPUT-NAME SAME AS MESSAGE-TEXT-2.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:2196: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:2196"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:2196"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:2197: \$COMPILE_ONLY -std=mf-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=mf-strict prog.cob" "syn_definition.at:2197"
-( $at_check_trace; $COMPILE_ONLY -std=mf-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:13: error: SAME AS clause does not conform to Micro Focus COBOL
-prog.cob:15: error: SAME AS clause does not conform to Micro Focus COBOL
-prog.cob:17: error: SAME AS clause does not conform to Micro Focus COBOL
-prog.cob:19: error: SAME AS clause does not conform to Micro Focus COBOL
-prog.cob:20: error: SAME AS clause does not conform to Micro Focus COBOL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:2197"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:2204: \$COMPILE_ONLY badprog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY badprog.cob" "syn_definition.at:2204"
-( $at_check_trace; $COMPILE_ONLY badprog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "badprog.cob:8: error: item may not reference itself
-badprog.cob:10: error: entry following SAME AS may not be subordinate to it
-badprog.cob:11: error: illegal combination of SAME AS with other clauses
-badprog.cob:12: error: elementary item expected
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:2204"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_131
-#AT_START_132
-at_fn_group_banner 132 'syn_definition.at:2214' \
- "TYPEDEF clause" " " 2
-at_xfail=no
-(
- printf "%s\n" "132. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 AUSGABE-FILE-NAME-T PIC X(50) IS TYPEDEF.
- 01 SOME-VERY-LONG-TYPEDEF-NAME PIC 9999 IS TYPEDEF.
- 01 AUSGABE-FILE-NAME-2T IS TYPEDEF.
- 05 FILLER PIC 9999.
- 05 DETAIL-NO USAGE SOME-VERY-LONG-TYPEDEF-NAME.
- *
- 01 MESSAGE-TEXT-2T IS TYPEDEF.
- 02 AUSGABE-FILE-NAME USAGE AUSGABE-FILE-NAME-T.
- 02 FILLER REDEFINES AUSGABE-FILE-NAME.
- 05 FILLER PIC 9999.
- 02 AUSGABE-FILE-NAME-2 USAGE AUSGABE-FILE-NAME-2T.
- 02 FILLER USAGE AUSGABE-FILE-NAME-T.
- *
- 01 MESSAGE-TEXT-2 EXTERNAL USAGE MESSAGE-TEXT-2T.
-
- 77 OUTPUT-NAME USAGE SOME-VERY-LONG-TYPEDEF-NAME GLOBAL.
-
- 01 Z-MESSAGE-T2 USAGE AUSGABE-FILE-NAME-2T.
- 01 Z-MESSAGE-T3.
- 49 MT3 USAGE MESSAGE-TEXT-2T.
- 49 MT3-REN REDEFINES MT3 USAGE MESSAGE-TEXT-2T.
-
- 01 CALCULUS PIC S9(15)V9(03) IS TYPEDEF.
- 88 NO-DETAIL VALUE ZERO.
- 88 MIN-DETAIL VALUE 0.001.
- 01 USER-TYPE IS TYPEDEF.
- 02 AMOUNT USAGE CALCULUS.
- 02 FILLER OCCURS 100.
- 05 GRP-AMOUNT USAGE CALCULUS.
- 01 USER-VAR USAGE USER-TYPE.
-
- 01 PROC USAGE PROGRAM-POINTER IS TYPEDEF.
- 88 PROC-UNSET VALUE NULL.
- 77 MY-PROC USAGE PROC VALUE NULL.
-
- PROCEDURE DIVISION.
- DISPLAY AUSGABE-FILE-NAME OF MESSAGE-TEXT-2
- DISPLAY DETAIL-NO OF Z-MESSAGE-T2
- DISPLAY AUSGABE-FILE-NAME OF MT3
- DISPLAY OUTPUT-NAME
- MOVE -123.45 TO AMOUNT
- MOVE AMOUNT TO GRP-AMOUNT (1)
- IF MY-PROC = NULL
- SET MY-PROC TO ADDRESS OF PROGRAM "prog".
- GOBACK.
-_ATEOF
-
-
-cat >progstd.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 AUSGABE-FILE-NAME-T PIC X(50) IS TYPEDEF.
- 01 DETAIL-NO-T PIC 9999 IS TYPEDEF.
- 01 AUSGABE-FILE-NAME-2T IS TYPEDEF.
- 05 FILLER PIC 9999.
- 05 DETAIL-NO TYPE TO DETAIL-NO-T.
- *
- 01 MESSAGE-TEXT-2T IS TYPEDEF.
- 02 AUSGABE-FILE-NAME TYPE AUSGABE-FILE-NAME-T.
- 02 FILLER REDEFINES AUSGABE-FILE-NAME.
- 05 FILLER PIC 9999.
- 02 AUSGABE-FILE-NAME-2 TYPE AUSGABE-FILE-NAME-2T.
- 02 FILLER TYPE AUSGABE-FILE-NAME-T.
- *
- 01 MESSAGE-TEXT-2 EXTERNAL TYPE MESSAGE-TEXT-2T.
-
- 77 OUTPUT-NAME TYPE TO DETAIL-NO-T GLOBAL.
-
- 01 Z-MESSAGE-T2 TYPE AUSGABE-FILE-NAME-2T.
- 01 Z-MESSAGE-T3.
- 49 MT3 TYPE MESSAGE-TEXT-2T.
- 49 MT3-REN REDEFINES MT3 TYPE MESSAGE-TEXT-2T.
-
- 77 CALCULUS PIC S9(15)V9(03) IS TYPEDEF.
-
- 01 SOME-STRUCT IS TYPEDEF.
- 02 SOME-DATA PIC 9.
- 02 SOME-VALUES OCCURS 3.
- 03 OTHER-DATA PIC X.
- 03 OTHER-VALUES OCCURS 2 PIC 9.
- 77 SOME2-DATA PIC 9. *> temporary variant until solved...
- 01 SOME-STRUCT2 IS TYPEDEF.
- *> 02 SOME2-DATA PIC 9. TODO!
- 02 SOME2-VALUES OCCURS 1 TO 6 DEPENDING ON SOME2-DATA
- DESCENDING KEY SB SA
- INDEXED BY SOME2-INDEX.
- 05 SA PIC X VALUE x'12'.
- 05 SB PIC 9 VALUE 0.
- 05 SDATA PIC X(12).
-
- 01 MY-TEST.
- 02 AMOUNT TYPE CALCULUS.
- 02 FILLER OCCURS 100.
- 05 GRP-AMOUNT TYPE CALCULUS.
- 02 MY-NAME TYPE SOME-STRUCT OCCURS 5.
- 02 MY-NAME2 TYPE SOME-STRUCT2.
- 01 MY-TEST2 TYPE SOME-STRUCT2.
- LINKAGE SECTION.
- 01 MY-STORE TYPE CALCULUS.
-
- PROCEDURE DIVISION USING MY-STORE.
- DISPLAY AUSGABE-FILE-NAME OF MESSAGE-TEXT-2
- DISPLAY DETAIL-NO OF Z-MESSAGE-T2
- DISPLAY AUSGABE-FILE-NAME OF MT3
- DISPLAY OUTPUT-NAME
- SET ADDRESS OF MY-STORE TO NULL
- INITIALIZE MY-NAME(2) GRP-AMOUNT (99)
- INITIALIZE OTHER-VALUES (2, 3, 2)
- SEARCH ALL SOME2-VALUES OF MY-NAME2
- *> WHEN SA(SOME2-INDEX) = x'12' CHECKME: Should work
- WHEN SA OF MY-NAME2(SOME2-INDEX OF MY-NAME2) = x'12'
- CONTINUE.
- GOBACK.
-_ATEOF
-
-
-cat >badprog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 MESSAGE-TEXT-2T IS TYPEDEF.
- 02 AUSGABE-FILE-NAME PIC X(50).
- 02 F1 USAGE MESSAGE-TEXT-2T.
- 01 MT2 USAGE MESSAGE-TEXT-2T.
- 05 FILLER PIC 9999.
- 01 MT3 TYPE TO MESSAGE-TEXT-2T PIC X.
- 77 OUTPUT-NAME TYPE TO MESSAGE-TEXT-2T.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:2352: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:2352"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:2352"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:2353: \$COMPILE_ONLY -std=cobol2002 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol2002 prog.cob" "syn_definition.at:2353"
-( $at_check_trace; $COMPILE_ONLY -std=cobol2002 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: USAGE type-name does not conform to COBOL 2002
-prog.cob:13: error: USAGE type-name does not conform to COBOL 2002
-prog.cob:16: error: USAGE type-name does not conform to COBOL 2002
-prog.cob:17: error: USAGE type-name does not conform to COBOL 2002
-prog.cob:19: error: USAGE type-name does not conform to COBOL 2002
-prog.cob:21: error: USAGE type-name does not conform to COBOL 2002
-prog.cob:23: error: USAGE type-name does not conform to COBOL 2002
-prog.cob:25: error: USAGE type-name does not conform to COBOL 2002
-prog.cob:26: error: USAGE type-name does not conform to COBOL 2002
-prog.cob:32: error: USAGE type-name does not conform to COBOL 2002
-prog.cob:34: error: USAGE type-name does not conform to COBOL 2002
-prog.cob:35: error: USAGE type-name does not conform to COBOL 2002
-prog.cob:39: error: USAGE type-name does not conform to COBOL 2002
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:2353"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:2368: \$COMPILE_ONLY -std=mf-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=mf-strict prog.cob" "syn_definition.at:2368"
-( $at_check_trace; $COMPILE_ONLY -std=mf-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:2368"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:2369: \$COMPILE_ONLY progstd.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY progstd.cob" "syn_definition.at:2369"
-( $at_check_trace; $COMPILE_ONLY progstd.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:2369"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:2370: \$COMPILE_ONLY -std=cobol2002 progstd.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol2002 progstd.cob" "syn_definition.at:2370"
-( $at_check_trace; $COMPILE_ONLY -std=cobol2002 progstd.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:2370"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:2371: \$COMPILE_ONLY -std=mf-strict progstd.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=mf-strict progstd.cob" "syn_definition.at:2371"
-( $at_check_trace; $COMPILE_ONLY -std=mf-strict progstd.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "progstd.cob:10: error: TYPE TO clause does not conform to Micro Focus COBOL
-progstd.cob:13: error: TYPE TO clause does not conform to Micro Focus COBOL
-progstd.cob:16: error: TYPE TO clause does not conform to Micro Focus COBOL
-progstd.cob:17: error: TYPE TO clause does not conform to Micro Focus COBOL
-progstd.cob:19: error: TYPE TO clause does not conform to Micro Focus COBOL
-progstd.cob:21: error: TYPE TO clause does not conform to Micro Focus COBOL
-progstd.cob:23: error: TYPE TO clause does not conform to Micro Focus COBOL
-progstd.cob:25: error: TYPE TO clause does not conform to Micro Focus COBOL
-progstd.cob:26: error: TYPE TO clause does not conform to Micro Focus COBOL
-progstd.cob:46: error: TYPE TO clause does not conform to Micro Focus COBOL
-progstd.cob:48: error: TYPE TO clause does not conform to Micro Focus COBOL
-progstd.cob:49: error: TYPE TO clause does not conform to Micro Focus COBOL
-progstd.cob:50: error: TYPE TO clause does not conform to Micro Focus COBOL
-progstd.cob:51: error: TYPE TO clause does not conform to Micro Focus COBOL
-progstd.cob:53: error: TYPE TO clause does not conform to Micro Focus COBOL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:2371"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:2389: \$COMPILE_ONLY badprog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY badprog.cob" "syn_definition.at:2389"
-( $at_check_trace; $COMPILE_ONLY badprog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "badprog.cob:8: error: item may not reference itself
-badprog.cob:10: error: entry following TYPE TO may not be subordinate to it
-badprog.cob:11: error: illegal combination of TYPE TO with other clauses
-badprog.cob:12: error: elementary item expected
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:2389"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# FIXME: mises NO-DETAIL above MIN-DETAIL (likely bug in copying in field.c)
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:2398: \$COMPILE_LISTING0 -t - -Xref -fno-tsource -fno-tmessages prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t - -Xref -fno-tsource -fno-tmessages prog.cob" "syn_definition.at:2398"
-( $at_check_trace; $COMPILE_LISTING0 -t - -Xref -fno-tsource -fno-tmessages prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob
-
-NAME DEFINED REFERENCES
-
-AUSGABE-FILE-NAME-T 6 13 17 x2
-SOME-VERY-LONG-TYPEDEF-NAME 7 10 21 x2
-AUSGABE-FILE-NAME-2T 8 16 23 x2
-MESSAGE-TEXT-2T 12 19 25 26 x3
-MESSAGE-TEXT-2 19 42 x1
-AUSGABE-FILE-NAME 21 42 x1
-AUSGABE-FILE-NAME-2 21 referenced by parent
-DETAIL-NO 21 referenced by parent
-OUTPUT-NAME 21 45 x1
-Z-MESSAGE-T2 23 43 x1
-DETAIL-NO 24 43 x1
-Z-MESSAGE-T3 24 referenced by child
-MT3 25 44 x1
-AUSGABE-FILE-NAME 26 44 x1
-AUSGABE-FILE-NAME-2 26 referenced by parent
-DETAIL-NO 26 referenced by parent
-MT3-REN 26 not referenced
-AUSGABE-FILE-NAME 28 not referenced
-AUSGABE-FILE-NAME-2 28 not referenced
-DETAIL-NO 28 not referenced
-CALCULUS 28 32 34 x2
-USER-TYPE 31 35 x1
-USER-VAR 35 referenced by child
-AMOUNT 37 *46 47 x2
-MIN-DETAIL 37 not referenced
-GRP-AMOUNT 37 *47 x1
-MIN-DETAIL 37 not referenced
-PROC 37 39 x1
-MY-PROC 39 48 *49 x2
-PROC-UNSET 41 not referenced
-
-
-LABEL DEFINED REFERENCES
-
-E prog 42
-
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:2398"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:2444: \$COMPILE_LISTING0 -t symbols.lst -tsymbols -fno-tsource -fno-tmessages prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t symbols.lst -tsymbols -fno-tsource -fno-tmessages prog.cob" "syn_definition.at:2444"
-( $at_check_trace; $COMPILE_LISTING0 -t symbols.lst -tsymbols -fno-tsource -fno-tmessages prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:2444"
-$at_failed && at_fn_log_failure \
-"symbols.lst"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:2447: test \"\$COB_HAS_64_BIT_POINTER\" = \"yes\""
-at_fn_check_prepare_dynamic "test \"$COB_HAS_64_BIT_POINTER\" = \"yes\"" "syn_definition.at:2447"
-( $at_check_trace; test "$COB_HAS_64_BIT_POINTER" = "yes"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:2447"
-if $at_failed
-then :
-
-
-# Previous test "failed" --> 32 bit
-
-cat >prog-32.lst <<'_ATEOF'
-GnuCOBOL V.R.P prog.cob
-
-SIZE TYPE LVL NAME PICTURE
-
- WORKING-STORAGE SECTION
-
-00050 T ALPHANUMERIC 01 AUSGABE-FILE-NAME-T X(50)
-
-00004 T NUMERIC 01 SOME-VERY-LONG-TYPEDEF-NAME 9999
-
-00008 T GROUP 01 AUSGABE-FILE-NAME-2T
-00004 NUMERIC 05 FILLER 9999
-00004 NUMERIC 05 DETAIL-NO SOME-VERY-LONG-TYPEDE...
-
-00108 T GROUP 01 MESSAGE-TEXT-2T
-00050 ALPHANUMERIC 02 AUSGABE-FILE-NAME AUSGABE-FILE-NAME-T
-00004 GROUP 02 FILLER, REDEFINES AUSGABE-FILE-NAME
-00004 NUMERIC 05 FILLER 9999
-00008 GROUP 02 AUSGABE-FILE-NAME-2 AUSGABE-FILE-NAME-2T
-00050 ALPHANUMERIC 02 FILLER AUSGABE-FILE-NAME-T
-
-00108 GROUP 01 MESSAGE-TEXT-2 MESSAGE-TEXT-2T EXTERNAL
-
-00004 NUMERIC 77 OUTPUT-NAME SOME-VERY-LONG-TYPEDE... GLOBAL
-
-00008 GROUP 01 Z-MESSAGE-T2 AUSGABE-FILE-NAME-2T
-
-00108 GROUP 01 Z-MESSAGE-T3
-00108 GROUP 49 MT3 MESSAGE-TEXT-2T
-00108 GROUP 49 MT3-REN MESSAGE-TEXT-2T, REDEFINES MT3
-
-00018 T NUMERIC 01 CALCULUS S9(15)V9(03)
- CONDITIONAL 88 NO-DETAIL
- CONDITIONAL 88 MIN-DETAIL
-
-01818 T GROUP 01 USER-TYPE
-00018 NUMERIC 02 AMOUNT CALCULUS
-01800 GROUP 02 FILLER OCCURS 100
-00018 NUMERIC 05 GRP-AMOUNT CALCULUS
-
-01818 GROUP 01 USER-VAR USER-TYPE
-
-00004 T POINTER 01 PROC PROGRAM-POINTER
- CONDITIONAL 88 PROC-UNSET
-
-00004 POINTER 77 MY-PROC PROC
-
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:2447: diff prog-32.lst symbols.lst"
-at_fn_check_prepare_trace "syn_definition.at:2447"
-( $at_check_trace; diff prog-32.lst symbols.lst
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:2447"
-$at_failed && at_fn_log_failure \
-"symbols.lst"
-$at_traceon; }
-
-
-
-else $as_nop
-
-
-# Previous test "passed" --> 64 bit
-
-cat >prog-64.lst <<'_ATEOF'
-GnuCOBOL V.R.P prog.cob
-
-SIZE TYPE LVL NAME PICTURE
-
- WORKING-STORAGE SECTION
-
-00050 T ALPHANUMERIC 01 AUSGABE-FILE-NAME-T X(50)
-
-00004 T NUMERIC 01 SOME-VERY-LONG-TYPEDEF-NAME 9999
-
-00008 T GROUP 01 AUSGABE-FILE-NAME-2T
-00004 NUMERIC 05 FILLER 9999
-00004 NUMERIC 05 DETAIL-NO SOME-VERY-LONG-TYPEDE...
-
-00108 T GROUP 01 MESSAGE-TEXT-2T
-00050 ALPHANUMERIC 02 AUSGABE-FILE-NAME AUSGABE-FILE-NAME-T
-00004 GROUP 02 FILLER, REDEFINES AUSGABE-FILE-NAME
-00004 NUMERIC 05 FILLER 9999
-00008 GROUP 02 AUSGABE-FILE-NAME-2 AUSGABE-FILE-NAME-2T
-00050 ALPHANUMERIC 02 FILLER AUSGABE-FILE-NAME-T
-
-00108 GROUP 01 MESSAGE-TEXT-2 MESSAGE-TEXT-2T EXTERNAL
-
-00004 NUMERIC 77 OUTPUT-NAME SOME-VERY-LONG-TYPEDE... GLOBAL
-
-00008 GROUP 01 Z-MESSAGE-T2 AUSGABE-FILE-NAME-2T
-
-00108 GROUP 01 Z-MESSAGE-T3
-00108 GROUP 49 MT3 MESSAGE-TEXT-2T
-00108 GROUP 49 MT3-REN MESSAGE-TEXT-2T, REDEFINES MT3
-
-00018 T NUMERIC 01 CALCULUS S9(15)V9(03)
- CONDITIONAL 88 NO-DETAIL
- CONDITIONAL 88 MIN-DETAIL
-
-01818 T GROUP 01 USER-TYPE
-00018 NUMERIC 02 AMOUNT CALCULUS
-01800 GROUP 02 FILLER OCCURS 100
-00018 NUMERIC 05 GRP-AMOUNT CALCULUS
-
-01818 GROUP 01 USER-VAR USER-TYPE
-
-00008 T POINTER 01 PROC PROGRAM-POINTER
- CONDITIONAL 88 PROC-UNSET
-
-00008 POINTER 77 MY-PROC PROC
-
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:2447: diff prog-64.lst symbols.lst"
-at_fn_check_prepare_trace "syn_definition.at:2447"
-( $at_check_trace; diff prog-64.lst symbols.lst
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:2447"
-$at_failed && at_fn_log_failure \
-"symbols.lst"
-$at_traceon; }
-
-
-
-fi
-$at_failed && at_fn_log_failure \
-"symbols.lst"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_132
-#AT_START_133
-at_fn_group_banner 133 'syn_definition.at:2566' \
- "LIKE clause" " " 2
-at_xfail=yes
-(
- printf "%s\n" "133. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# work in progress
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 MESSAGE-TEXT-2 EXTERNAL.
- 02 AUSGABE-FILE-NAME PIC X(50).
- 02 FILLER REDEFINES AUSGABE-FILE-NAME.
- 05 FILLER PIC 9999.
- 02 AUSGABE-FILE-NAME-2.
- 05 FILLER PIC 9999.
- 05 DETAIL-NO PIC 9999.
- 02 FILLER LIKE AUSGABE-FILE-NAME.
-
- 77 OUTPUT-VAL LIKE DETAIL-NO GLOBAL.
- 77 OUTPUT-VAL-P1 LIKE DETAIL-NO (+1).
- 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1).
- 77 OUTPUT-VAL-M2 LIKE DETAIL-NO (-2).
-
- 01 Z-MESSAGE-T2 LIKE AUSGABE-FILE-NAME-2.
- 01 Z-MESSAGE-T3.
- 49 MT3 LIKE MESSAGE-TEXT-2.
-
- PROCEDURE DIVISION.
- DISPLAY AUSGABE-FILE-NAME OF MESSAGE-TEXT-2
- DISPLAY Z-MESSAGE-T2 (55:LENGTH OF DETAIL-NO)
- DISPLAY MT3 (1:LENGTH OF AUSGABE-FILE-NAME)
- ADD OUTPUT-VAL TO DETAIL-NO
- GOBACK.
-_ATEOF
-
-
-# TODO add tests and syntax checks in cobc
-# AT_DATA([badprog.cob], [
-# IDENTIFICATION DIVISION.
-# PROGRAM-ID. prog.
-# DATA DIVISION.
-# WORKING-STORAGE SECTION.
-#
-# ])
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:2612: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:2612"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_definition.at:2612"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:2613: \$COMPILE_ONLY -std=mf-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=mf-strict prog.cob" "syn_definition.at:2613"
-( $at_check_trace; $COMPILE_ONLY -std=mf-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:13: error: SAME AS clause does not conform to Micro Focus COBOL
-prog.cob:15: error: SAME AS clause does not conform to Micro Focus COBOL
-prog.cob:17: error: SAME AS clause does not conform to Micro Focus COBOL
-prog.cob:19: error: SAME AS clause does not conform to Micro Focus COBOL
-prog.cob:20: error: SAME AS clause does not conform to Micro Focus COBOL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:2613"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_133
-#AT_START_134
-at_fn_group_banner 134 'syn_definition.at:2624' \
- "APPLY COMMIT clause" " " 2
-at_xfail=no
-(
- printf "%s\n" "134. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog. *> taken from "commit and rollback example"
- *> from COBOL 202x draft
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT STCK-FILE
- ASSIGN TO "STOCK"
- ORGANIZATION IS INDEXED
- ACCESS MODE IS RANDOM
- FILE STATUS IS STCK-FILE-STATUS
- RECORD KEY IS APPLY
- SHARING WITH ALL OTHER.
-
- SELECT CHNG-FILE
- ASSIGN TO "CHANGE"
- ORGANIZATION IS SEQUENTIAL
- ACCESS MODE IS SEQUENTIAL
- FILE STATUS IS CHNG-FILE-STATUS
- SHARING WITH ALL OTHER.
-
- SELECT SORT-FILE
- ASSIGN TO "SORT".
-
- I-O-CONTROL.
- APPLY COMMIT ON STCK-FILE CHNG-FILE STCK-FILE not-there
- SORT-FILE UPDATE-COUNT not-there-again BASED-STUFF
- RED-DATA SOME-DATA.
-
- DATA DIVISION.
- FILE SECTION.
-
- FD STCK-FILE.
- 01 STCK-REC.
- 03 APPLY PIC X(5).
- 03 STCK-QTY PIC 9(5)V99.
-
- SD SORT-FILE.
- 01 SORT-REC PIC X(100).
-
- FD CHNG-FILE.
- 01 CHNG-REC.
- 03 CHNG-KEY PIC X(5).
- 03 CHNG-QTY PIC 9(5)V99.
- 03 CHNG-ACTION PIC X.
- 03 CHNG-STATE PIC X.
-
- WORKING-STORAGE SECTION.
-
- 01 FILE-STATES.
- 03 STCK-FILE-STATUS PIC XX.
- 88 STCK-FILE-OK VALUE "00".
- 03 CHNG-FILE-STATUS PIC XX.
- 88 CHNG-FILE-OK VALUE "00".
- 77 UPDATE-COUNT BINARY-LONG.
- 77 BASED-STUFF PIC X BASED.
- 01 DATA-HERE.
- 03 SOME-DATA PIC 9.
- 01 RED-DATA REDEFINES DATA-HERE PIC X.
-
- PROCEDURE DIVISION.
-
- MAIN SECTION.
-
- PERFORM INITIALISATION
- PERFORM TERMINATION
- STOP RUN WITH NORMAL STATUS 0
-
- . INITIALISATION SECTION.
-
- OPEN I-O CHNG-FILE, STCK-FILE
- IF NOT STCK-FILE-OK OR NOT CHNG-FILE-OK
- PERFORM FATAL-ERROR
- END-IF
-
- . TERMINATION SECTION.
-
- COMMIT
- IF NOT STCK-FILE-OK OR NOT CHNG-FILE-OK
- PERFORM FATAL-ERROR
- END-IF
-
- . FATAL-ERROR SECTION.
-
- ROLLBACK
- STOP RUN WITH ERROR STATUS 16.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:2716: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:2716"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:29: warning: APPLY COMMIT is not implemented
-prog.cob:27: error: 'not-there' is not defined
-prog.cob:28: error: 'not-there-again' is not defined
-prog.cob:27: error: duplicate APPLY COMMIT target: 'STCK-FILE'
-prog.cob:28: error: APPLY COMMIT statement invalid for SORT file
-prog.cob:29: error: 'RED-DATA' REDEFINES field not allowed here
-prog.cob:29: error: 'SOME-DATA' not level 01 or 77
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:2716"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_134
-#AT_START_135
-at_fn_group_banner 135 'syn_definition.at:2729' \
- "GLOBAL record-names" " " 2
-at_xfail=no
-(
- printf "%s\n" "135. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. OUTER-PROGRAM.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT STCK-FILE
- ASSIGN TO "STOCK"
- ORGANIZATION IS INDEXED
- ACCESS MODE IS RANDOM
- FILE STATUS IS STCK-FILE-STATUS
- RECORD People-LastName
- ALTERNATE People-NameKey
- SOURCE People-FirstName People-LastName
- ALTERNATE People-NameKeyFirst
- SOURCE People-1stName
- *> validating internal error handling:
- ALTERNATE BadKey People-1stName.
- SELECT LOCAL-FILE
- ASSIGN TO "LOCAL"
- ORGANIZATION IS INDEXED
- ACCESS MODE IS RANDOM
- FILE STATUS IS LOCL-FILE-STATUS
- RECORD LPeople-LastName
- ALTERNATE LPeople-NameKey
- SOURCE LPeople-FirstName LPeople-LastName.
-
- DATA DIVISION.
- FILE SECTION.
-
- FD STCK-FILE GLOBAL.
- 01 STCK-REC.
- 02 People-LastName PIC X(50).
- 02 People-FirstName PIC X(50).
- 01 STCK-REC-PART.
- 02 People-1stName PIC X(50).
-
- FD LOCAL-FILE.
- 01 LOCAL-REC.
- 02 LPeople-LastName PIC X(50).
- 02 LPeople-FirstName PIC X(50).
-
- WORKING-STORAGE SECTION.
-
- 01 FILE-STATES IS GLOBAL.
- 03 STCK-FILE-STATUS PIC XX.
- 88 STCK-FILE-OK VALUE "00".
- 03 LOCL-FILE-STATUS PIC XX.
- 88 LOCL-FILE-OK VALUE "00".
-
- PROCEDURE DIVISION.
-
- MAIN SECTION.
-
- OPEN OUTPUT LOCAL-FILE
- MOVE "John" TO LPeople-FirstName
- MOVE "Doe" TO LPeople-LastName
- WRITE LOCAL-REC
- CLOSE LOCAL-FILE
-
- OPEN OUTPUT STCK-FILE
- MOVE "John" TO People-FirstName
- MOVE "Doe" TO People-LastName
- WRITE STCK-REC
- CLOSE STCK-FILE
-
- CALL "INNER-PROGRAM".
- GOBACK.
-
- PROGRAM-ID. INNER-PROGRAM.
- PROCEDURE DIVISION.
- OPEN INPUT STCK-FILE
- MOVE "John" TO People-FirstName
- MOVE "Doe" TO People-LastName
- READ STCK-FILE KEY People-NameKey
- NOT INVALID KEY
- DISPLAY People-FirstName " " People-LastName
- INVALID KEY
- DISPLAY "NOT FOUND"
- END-READ
- INITIALIZE STCK-REC
- MOVE "John" TO People-1stName
- READ STCK-FILE KEY People-NameKeyFirst
- NOT INVALID KEY
- DISPLAY People-FirstName " " People-LastName
- INVALID KEY
- DISPLAY "NOT FOUND"
- END-READ
- CLOSE STCK-FILE
- OPEN INPUT LOCAL-FILE
- MOVE "John" TO LPeople-FirstName
- MOVE "Doe" TO LPeople-LastName
- READ LOCAL-FILE KEY LPeople-NameKey
- NOT INVALID KEY
- DISPLAY LPeople-FirstName " " LPeople-LastName
- INVALID KEY
- DISPLAY "NOT FOUND"
- END-READ
- CLOSE LOCAL-FILE
- GOBACK.
- END PROGRAM INNER-PROGRAM.
- *>****************************************************************
- END PROGRAM OUTER-PROGRAM.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:2837: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_definition.at:2837"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:18: error: syntax error, unexpected Identifier, expecting SEQUENTIAL
-prog.cob:18: error: 'BadKey' is not defined
-prog.cob:91: error: 'LPeople-FirstName' is not defined
-prog.cob:92: error: 'LPeople-LastName' is not defined
-prog.cob:93: error: 'LPeople-NameKey' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:2837"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_135
-#AT_START_136
-at_fn_group_banner 136 'syn_definition.at:2848' \
- "Invalid USE BEFORE" " " 2
-at_xfail=no
-(
- printf "%s\n" "136. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- DEPTHDRUSE SECTION.
- USE BEFORE REPORTING DEPTHDR.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_definition.at:2859: \$COMPILE_ONLY -std=default prog.cob "
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=default prog.cob " "syn_definition.at:2859"
-( $at_check_trace; $COMPILE_ONLY -std=default prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in section 'DEPTHDRUSE':
-prog.cob:6: error: 'DEPTHDR' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_definition.at:2859"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_136
-#AT_START_137
-at_fn_group_banner 137 'syn_subscripts.at:23' \
- "Non-numeric subscript" " " 2
-at_xfail=no
-(
- printf "%s\n" "137. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G1.
- 02 X PIC X OCCURS 10.
- 01 I PIC X.
- PROCEDURE DIVISION.
- DISPLAY X(I)
- END-DISPLAY.
- DISPLAY X(I + 1)
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_subscripts.at:42: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_subscripts.at:42"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: 'I' is not an integer
-prog.cob:12: error: 'I' is not numeric
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_subscripts.at:42"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_137
-#AT_START_138
-at_fn_group_banner 138 'syn_subscripts.at:50' \
- "Subscript range check" " " 2
-at_xfail=no
-(
- printf "%s\n" "138. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G1.
- 02 X OCCURS 2.
- 03 Y PIC X OCCURS 3.
- PROCEDURE DIVISION.
- DISPLAY X(0)
- END-DISPLAY.
- DISPLAY X(1)
- END-DISPLAY.
- DISPLAY X(2)
- END-DISPLAY.
- DISPLAY X(3)
- END-DISPLAY.
- DISPLAY Y(1, 0)
- END-DISPLAY.
- DISPLAY Y(1, 1)
- END-DISPLAY.
- DISPLAY Y(1, 3)
- END-DISPLAY.
- DISPLAY Y(1, 4)
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_subscripts.at:81: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_subscripts.at:81"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: subscript of 'X' out of bounds: 0
-prog.cob:16: error: subscript of 'X' out of bounds: 3
-prog.cob:18: error: subscript of 'Y' out of bounds: 0
-prog.cob:24: error: subscript of 'Y' out of bounds: 4
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_subscripts.at:81"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_subscripts.at:88: \$COMPILE_ONLY -frelax-syntax-checks prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -frelax-syntax-checks prog.cob" "syn_subscripts.at:88"
-( $at_check_trace; $COMPILE_ONLY -frelax-syntax-checks prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: warning: subscript of 'X' out of bounds: 0
-prog.cob:16: warning: subscript of 'X' out of bounds: 3
-prog.cob:18: warning: subscript of 'Y' out of bounds: 0
-prog.cob:24: warning: subscript of 'Y' out of bounds: 4
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_subscripts.at:88"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_138
-#AT_START_139
-at_fn_group_banner 139 'syn_subscripts.at:98' \
- "Subscript bounds with OCCURS DEPENDING ON" " " 2
-at_xfail=no
-(
- printf "%s\n" "139. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G.
- 02 X PIC X OCCURS 4 TO 6 DEPENDING ON N.
- 01 N PIC 9 VALUE 4.
- PROCEDURE DIVISION.
- DISPLAY X(0)
- DISPLAY X(7)
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_subscripts.at:115: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_subscripts.at:115"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: subscript of 'X' out of bounds: 0
-prog.cob:11: error: subscript of 'X' out of bounds: 7
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_subscripts.at:115"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_139
-#AT_START_140
-at_fn_group_banner 140 'syn_subscripts.at:125' \
- "Subscripted item requires OCCURS clause" " " 2
-at_xfail=no
-(
- printf "%s\n" "140. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G.
- 02 X PIC X.
- PROCEDURE DIVISION.
- DISPLAY G(1)
- END-DISPLAY.
- DISPLAY X(1)
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_subscripts.at:143: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_subscripts.at:143"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: 'G' cannot be subscripted
-prog.cob:11: error: 'X' cannot be subscripted
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_subscripts.at:143"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_140
-#AT_START_141
-at_fn_group_banner 141 'syn_subscripts.at:151' \
- "Number of subscripts" " " 2
-at_xfail=no
-(
- printf "%s\n" "141. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G1.
- 02 X OCCURS 2.
- 03 Y PIC X OCCURS 3.
- PROCEDURE DIVISION.
- DISPLAY X
- END-DISPLAY.
- DISPLAY X(1)
- END-DISPLAY.
- DISPLAY X(1, 2)
- END-DISPLAY.
- DISPLAY Y(1)
- END-DISPLAY.
- DISPLAY Y(1, 2)
- END-DISPLAY.
- DISPLAY Y(1, 2, 3)
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_subscripts.at:178: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_subscripts.at:178"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: 'X' requires one subscript
-prog.cob:14: error: 'X' requires one subscript
-prog.cob:16: error: 'Y' requires 2 subscripts
-prog.cob:20: error: 'Y' requires 2 subscripts
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_subscripts.at:178"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_subscripts.at:185: \$COMPILE_ONLY -frelax-syntax-checks prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -frelax-syntax-checks prog.cob" "syn_subscripts.at:185"
-( $at_check_trace; $COMPILE_ONLY -frelax-syntax-checks prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: warning: subscript missing for 'X' - defaulting to 1
-prog.cob:14: error: 'X' requires one subscript
-prog.cob:16: warning: subscript missing for 'Y' - defaulting to 1
-prog.cob:20: error: 'Y' requires 2 subscripts
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_subscripts.at:185"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_141
-#AT_START_142
-at_fn_group_banner 142 'syn_subscripts.at:195' \
- "SET SSRANGE syntax" " " 2
-at_xfail=no
-(
- printf "%s\n" "142. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- *> Valid
- $SET SSRANGE
- $SET SSRANGE(1)
- $SET SSRANGE "2"
- $SET SSRANGE (3)
-
- *> Invalid
- $SET SSRANGE(0)
- $SET SSRANGE(4)
- $SET SSRANGE "variable"
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- GOBACK
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_subscripts.at:217: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_subscripts.at:217"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: invalid SSRANGE directive option '0'
-prog.cob:10: error: invalid SSRANGE directive option '4'
-prog.cob:11: error: invalid SSRANGE directive option 'variable'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_subscripts.at:217"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_142
-#AT_START_143
-at_fn_group_banner 143 'syn_occurs.at:29' \
- "OCCURS with level 01 and 77" " " 2
-at_xfail=no
-(
- printf "%s\n" "143. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-#AT_KEYWORDS([occurs])
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X-01 PIC X OCCURS 10.
- 01 G OCCURS 10.
- 02 X-02 PIC X OCCURS 10.
- 01 G2.
- 02 X2-02 PIC X OCCURS 10.
- 77 X-77 PIC X OCCURS 10.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:45: \$COMPILE_ONLY -std=cobol2014 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol2014 prog.cob" "syn_occurs.at:45"
-( $at_check_trace; $COMPILE_ONLY -std=cobol2014 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: error: 01/77 OCCURS does not conform to COBOL 2014
-prog.cob:7: error: 01/77 OCCURS does not conform to COBOL 2014
-prog.cob:11: error: 01/77 OCCURS does not conform to COBOL 2014
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_occurs.at:45"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:51: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_occurs.at:51"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_occurs.at:51"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:52: \$COMPILE_ONLY -ftop-level-occurs-clause=warning prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -ftop-level-occurs-clause=warning prog.cob" "syn_occurs.at:52"
-( $at_check_trace; $COMPILE_ONLY -ftop-level-occurs-clause=warning prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: warning: 01/77 OCCURS used
-prog.cob:7: warning: 01/77 OCCURS used
-prog.cob:11: warning: 01/77 OCCURS used
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_occurs.at:52"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_143
-#AT_START_144
-at_fn_group_banner 144 'syn_occurs.at:84' \
- "OCCURS with level 66" " " 2
-at_xfail=no
-(
- printf "%s\n" "144. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x PIC X.
- 66 y RENAMES x OCCURS 10.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:96: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_occurs.at:96"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: error: syntax error, unexpected OCCURS
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_occurs.at:96"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_144
-#AT_START_145
-at_fn_group_banner 145 'syn_occurs.at:103' \
- "OCCURS with level 78" " " 2
-at_xfail=no
-(
- printf "%s\n" "145. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-#AT_KEYWORDS([occurs])
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 78 c value "a" OCCURS 10.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:114: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_occurs.at:114"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: error: syntax error, unexpected OCCURS
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_occurs.at:114"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_145
-#AT_START_146
-at_fn_group_banner 146 'syn_occurs.at:121' \
- "OCCURS with level 88" " " 2
-at_xfail=no
-(
- printf "%s\n" "146. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-#AT_KEYWORDS([occurs])
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x PIC X.
- 88 y VALUE "a" OCCURS 10.
-_ATEOF
-
-
-# note: the message is from level-88 content-validation entry format,
-# which is mixed in the parser (as it may be used as) condition format
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:135: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_occurs.at:135"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: error: syntax error, unexpected OCCURS
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_occurs.at:135"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_146
-#AT_START_147
-at_fn_group_banner 147 'syn_occurs.at:143' \
- "OCCURS with variable-occurrence data item" " " 2
-at_xfail=no
-(
- printf "%s\n" "147. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G-1.
- 02 G-2 OCCURS 10.
- 03 X PIC X(10) OCCURS 1 TO 4 DEPENDING ON I.
- 77 I PIC 9.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G-1.
- 02 G-2 OCCURS 1 TO 10 DEPENDING ON I.
- 03 X PIC X(10) OCCURS 1 TO 4 DEPENDING ON I.
- 77 I PIC 9.
- PROCEDURE DIVISION.
- DISPLAY X(I, I) END-DISPLAY
- DISPLAY G-2 (I) END-DISPLAY
- DISPLAY G-1 END-DISPLAY
- .
-
-_ATEOF
-
-
-cat >prog3.cob <<'_ATEOF'
-
- $SET ODOSLIDE
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G-1.
- 02 G-2 OCCURS 10.
- 03 X PIC X(10) OCCURS 1 TO 4 DEPENDING ON I.
- 77 I PIC 9.
-_ATEOF
-
-
-cat >prog4.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G-1.
- 02 G-2 OCCURS 10.
- 03 X PIC X(10) OCCURS 1 TO 4 DEPENDING ON I.
- 77 I PIC X.
-_ATEOF
-
-
-cat >prog5.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G-1.
- 05 G-1-F1 PIC X(002).
- 05 G-2.
- 07 G-3
- OCCURS 1 TO 99999
- DEPENDING ON G-3-ELEMENTS
- ASCENDING KEY IS G-4-KEY
- INDEXED BY IND.
- 10 G-4.
- 15 N PIC 9(001).
- *
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:215: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_occurs.at:215"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: error: 'G-2' cannot have an OCCURS clause due to 'X'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_occurs.at:215"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:219: \$COMPILE_ONLY -fcomplex-odo prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fcomplex-odo prog.cob" "syn_occurs.at:219"
-( $at_check_trace; $COMPILE_ONLY -fcomplex-odo prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_occurs.at:219"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:221: \$COMPILE_ONLY -fcomplex-odo prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fcomplex-odo prog2.cob" "syn_occurs.at:221"
-( $at_check_trace; $COMPILE_ONLY -fcomplex-odo prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:8: error: 'X' cannot have nested OCCURS DEPENDING
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_occurs.at:221"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:225: \$COMPILE_ONLY -fodoslide prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fodoslide prog2.cob" "syn_occurs.at:225"
-( $at_check_trace; $COMPILE_ONLY -fodoslide prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_occurs.at:225"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:226: \$COMPILE_ONLY prog3.cob prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog3.cob prog2.cob" "syn_occurs.at:226"
-( $at_check_trace; $COMPILE_ONLY prog3.cob prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:7: error: 'G-2' cannot have an OCCURS clause due to 'X'
-prog2.cob:8: error: 'X' cannot have nested OCCURS DEPENDING
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_occurs.at:226"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:231: \$COMPILE_ONLY prog4.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog4.cob" "syn_occurs.at:231"
-( $at_check_trace; $COMPILE_ONLY prog4.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog4.cob:7: error: 'G-2' cannot have an OCCURS clause due to 'X'
-prog4.cob:8: error: 'I' is not numeric
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_occurs.at:231"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:236: \$COMPILE_ONLY -fcomplex-odo prog4.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fcomplex-odo prog4.cob" "syn_occurs.at:236"
-( $at_check_trace; $COMPILE_ONLY -fcomplex-odo prog4.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog4.cob:8: error: 'I' is not numeric
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_occurs.at:236"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:240: \$COMPILE_ONLY prog5.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog5.cob" "syn_occurs.at:240"
-( $at_check_trace; $COMPILE_ONLY prog5.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog5.cob:11: error: 'G-3-ELEMENTS' is not defined
-prog5.cob:12: error: 'G-4-KEY IN G-2 IN G-1' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_occurs.at:240"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_147
-#AT_START_148
-at_fn_group_banner 148 'syn_occurs.at:248' \
- "OCCURS UNBOUNDED" " " 2
-at_xfail=no
-(
- printf "%s\n" "148. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-#AT_KEYWORDS([ibm])
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 G-1.
- 07 G-2-ELEMENTS PIC 9(08).
- 07 G-2
- OCCURS UNBOUNDED
- DEPENDING ON G-2-ELEMENTS.
- 10 X PIC X.
- PROCEDURE DIVISION USING G-1.
- DISPLAY G-1.
- GOBACK.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 G-1.
- 05 G-1-F1 PIC X(22).
- 05 G-1-F2 PIC X(12).
- 05 G-2.
- 07 G-3-ELEMENTS PIC 9(08).
- 07 G-3
- OCCURS UNBOUNDED
- DEPENDING ON G-3-ELEMENTS.
- 10 G-4.
- 15 X PIC 9(22).
- PROCEDURE DIVISION USING G-1.
- DISPLAY G-1.
- GOBACK.
-_ATEOF
-
-
-cat >bad.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G-1.
- 07 G-2-ELEMENTS PIC 9(08).
- 07 G-2
- OCCURS UNBOUNDED
- DEPENDING ON G-2-ELEMENTS.
- 10 X PIC X.
-_ATEOF
-
-
-cat >bad2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G-1.
- 05 G-1-F1 PIC X(22).
- 05 G-2.
- 07 G-3-ELEMENTS PIC 9(08).
- 07 G-3
- OCCURS UNBOUNDED.
- 10 G-4.
- 15 X PIC 9(22).
-_ATEOF
-
-
-cat >bad3.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G-1.
- 05 G-1-F1 PIC X(22).
- 05 G-1-F2 PIC X(12).
- 05 G-2.
- 07 G-3
- OCCURS UNBOUNDED
- DEPENDING ON G-3-ELEMENTS.
- 10 G-4.
- 15 X PIC 9(22).
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:331: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_occurs.at:331"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_occurs.at:331"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:332: \$COMPILE_ONLY -std=ibm-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=ibm-strict prog.cob" "syn_occurs.at:332"
-( $at_check_trace; $COMPILE_ONLY -std=ibm-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_occurs.at:332"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# TODO: opt to a different path, if UNBOUNDED is not reserved
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:335: \$COMPILE_ONLY -std=cobol2014 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol2014 prog.cob" "syn_occurs.at:335"
-( $at_check_trace; $COMPILE_ONLY -std=cobol2014 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: syntax error, unexpected Identifier, expecting UNBOUNDED
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_occurs.at:335"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:339: \$COMPILE_ONLY prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog2.cob" "syn_occurs.at:339"
-( $at_check_trace; $COMPILE_ONLY prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_occurs.at:339"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:341: \$COMPILE_ONLY bad.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY bad.cob" "syn_occurs.at:341"
-( $at_check_trace; $COMPILE_ONLY bad.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "bad.cob:8: error: 'G-2' is not in LINKAGE SECTION
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_occurs.at:341"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:345: \$COMPILE_ONLY bad2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY bad2.cob" "syn_occurs.at:345"
-( $at_check_trace; $COMPILE_ONLY bad2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "bad2.cob:11: error: syntax error, unexpected ., expecting DEPENDING
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_occurs.at:345"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:349: \$COMPILE_ONLY bad3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY bad3.cob" "syn_occurs.at:349"
-( $at_check_trace; $COMPILE_ONLY bad3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "bad3.cob:10: error: 'G-3' is not in LINKAGE SECTION
-bad3.cob:12: error: 'G-3-ELEMENTS' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_occurs.at:349"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_148
-#AT_START_149
-at_fn_group_banner 149 'syn_occurs.at:359' \
- "OCCURS data-items for INDEXED and KEY" " " 2
-at_xfail=no
-(
- printf "%s\n" "149. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 . *> the "filler" explicit checks bugs #699 and #776
- 05 TAB-ENTRY1
- OCCURS 5 TIMES
- ASCENDING KEY IS X1
- OF TAB-ENTRY1
- OF TAB
- INDEXED BY IDX1 OF TAB.
- 10 X1 PIC 9.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:377: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_occurs.at:377"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: a subscripted data-item cannot be used here
-prog.cob:12: error: a subscripted data-item cannot be used here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_occurs.at:377"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_149
-#AT_START_150
-at_fn_group_banner 150 'syn_occurs.at:399' \
- "Nested OCCURS clause" " " 2
-at_xfail=no
-(
- printf "%s\n" "150. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-#AT_KEYWORDS([occurs])
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G-1.
- 02 G-2 OCCURS 2.
- 03 G-3 OCCURS 2.
- 04 G-4 OCCURS 2.
- 05 G-5 OCCURS 2.
- 06 G-6 OCCURS 2.
- 07 G-7 OCCURS 2.
- 08 G-8 OCCURS 2.
- 09 X PIC X.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:418: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_occurs.at:418"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_occurs.at:418"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_150
-#AT_START_151
-at_fn_group_banner 151 'syn_occurs.at:436' \
- "OCCURS DEPENDING with wrong size" " " 2
-at_xfail=no
-(
- printf "%s\n" "151. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 FILLER.
- 02 G-1 PIC X OCCURS 1 TO 1 DEPENDING ON I.
- 01 FILLER.
- 02 G-2 PIC X OCCURS -1 TO 1 DEPENDING ON I.
- 01 FILLER.
- 02 G-3 PIC X OCCURS +1 TO 1 DEPENDING ON I.
- 01 FILLER.
- 02 G-4 PIC X OCCURS 0 TO 1 DEPENDING ON I.
- 01 I PIC 9.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:455: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_occurs.at:455"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: error: OCCURS TO must be greater than OCCURS FROM
-prog.cob:9: error: unsigned integer value expected
-prog.cob:11: error: unsigned integer value expected
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_occurs.at:455"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_151
-#AT_START_152
-at_fn_group_banner 152 'syn_occurs.at:475' \
- "OCCURS DEPENDING followed by another field" " " 2
-at_xfail=no
-(
- printf "%s\n" "152. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G-1.
- 02 X PIC X OCCURS 1 TO 3 DEPENDING ON I.
- 02 Y PIC X.
- 01 G-2.
- 02 G-3 OCCURS 1 TO 3 DEPENDING ON I.
- 03 X PIC X.
- 02 Y PIC X.
- 01 G-4.
- 02 G-5.
- 03 X PIC X OCCURS 1 TO 3 DEPENDING ON I.
- 02 Y PIC X.
- 01 I PIC 9.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:497: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_occurs.at:497"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: error: 'X' cannot have OCCURS DEPENDING because of 'Y'
-prog.cob:10: error: 'G-3' cannot have OCCURS DEPENDING because of 'Y'
-prog.cob:15: error: 'X' cannot have OCCURS DEPENDING because of 'Y'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_occurs.at:497"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:503: \$COMPILE_ONLY -fcomplex-odo prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fcomplex-odo prog.cob" "syn_occurs.at:503"
-( $at_check_trace; $COMPILE_ONLY -fcomplex-odo prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_occurs.at:503"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_152
-#AT_START_153
-at_fn_group_banner 153 'syn_occurs.at:517' \
- "OCCURS with unmatched DEPENDING / TO phrases" " " 2
-at_xfail=no
-(
- printf "%s\n" "153. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Y PIC 9.
- 01 XTAB.
- 03 X PIC X OCCURS 10 DEPENDING ON Y.
- 01 XTAB2.
- 03 X2 PIC X OCCURS 1 TO 10.
- 01 XTAB3.
- 03 X3 PIC X OCCURS 1 TO 10 DEPENDING ON MISSING.
- PROCEDURE DIVISION.
- MOVE 'A' TO X(1), X2(2), X3(3)
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:537: \$COMPILE_ONLY -std=cobol2014 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol2014 prog.cob" "syn_occurs.at:537"
-( $at_check_trace; $COMPILE_ONLY -std=cobol2014 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: error: OCCURS DEPENDING ON without TO phrase does not conform to COBOL 2014
-prog.cob:10: error: TO phrase without DEPENDING phrase
-prog.cob:12: error: 'MISSING' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_occurs.at:537"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:542: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_occurs.at:542"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: warning: OCCURS DEPENDING ON without TO phrase used
-prog.cob:10: error: TO phrase without DEPENDING phrase
-prog.cob:12: error: 'MISSING' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_occurs.at:542"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:547: \$COMPILE_ONLY -frelax-syntax prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -frelax-syntax prog.cob" "syn_occurs.at:547"
-( $at_check_trace; $COMPILE_ONLY -frelax-syntax prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: warning: OCCURS DEPENDING ON without TO phrase used
-prog.cob:10: warning: TO phrase without DEPENDING phrase
-prog.cob:10: note: maximum number of occurrences assumed to be exact number
-prog.cob:12: error: 'MISSING' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_occurs.at:547"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_153
-#AT_START_154
-at_fn_group_banner 154 'syn_occurs.at:560' \
- "OCCURS INDEXED before KEY" " " 2
-at_xfail=no
-(
- printf "%s\n" "154. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TAB.
- 05 TAB-ENTRY1
- OCCURS 5 TIMES
- INDEXED BY IDX1
- ASCENDING KEY IS X1
- DESCENDING Y1.
- 10 X1 PIC 9(4).
- 10 Y1 PIC X.
- 05 TAB-ENTRY
- OCCURS 2 TIMES
- INDEXED BY IDX2
- DESCENDING KEY IS X2
- ASCENDING Y2.
- 10 X2 PIC 9(4).
- 10 Y2 PIC X.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:585: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_occurs.at:585"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: INDEXED should follow ASCENDING/DESCENDING
-prog.cob:17: error: INDEXED should follow ASCENDING/DESCENDING
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_occurs.at:585"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:590: \$COMPILE_ONLY -frelax-syntax-checks prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -frelax-syntax-checks prog.cob" "syn_occurs.at:590"
-( $at_check_trace; $COMPILE_ONLY -frelax-syntax-checks prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: warning: INDEXED should follow ASCENDING/DESCENDING
-prog.cob:17: warning: INDEXED should follow ASCENDING/DESCENDING
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_occurs.at:590"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_154
-#AT_START_155
-at_fn_group_banner 155 'syn_occurs.at:598' \
- "OCCURS size check" " " 2
-at_xfail=no
-(
- printf "%s\n" "155. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X1.
- 03 X PIC X OCCURS 1530001234 TIMES.
- 01 X2.
- 03 X PIC X OCCURS 2147483648 TIMES.
- 01 X3.
- 03 X PIC X OCCURS 9223372036854775808 TIMES.
-_ATEOF
-
-
-# Don't check actual output here as the actual limit depends on INT_MAX, therefore
-# all entries may raise this error but only the last error message is guaranteed.
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:616: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_occurs.at:616"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_occurs.at:616"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_occurs.at:617: \$COMPILE_ONLY prog.cob 2>&1 | \\
-\$GREP \"prog.cob:11: error: numeric literal '9223372036854775808' exceeds limit\""
-at_fn_check_prepare_notrace 'an embedded newline' "syn_occurs.at:617"
-( $at_check_trace; $COMPILE_ONLY prog.cob 2>&1 | \
-$GREP "prog.cob:11: error: numeric literal '9223372036854775808' exceeds limit"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/syn_occurs.at:617"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_155
-#AT_START_156
-at_fn_group_banner 156 'syn_redefines.at:28' \
- "REDEFINES: not following entry-name" " " 2
-at_xfail=no
-(
- printf "%s\n" "156. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X.
- 01 Y PIC 9 REDEFINES X.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_redefines.at:40: \$COMPILE_ONLY -ffree-redefines-position=error prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -ffree-redefines-position=error prog.cob" "syn_redefines.at:40"
-( $at_check_trace; $COMPILE_ONLY -ffree-redefines-position=error prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: error: REDEFINES clause not following entry-name used
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_redefines.at:40"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_redefines.at:44: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_redefines.at:44"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: warning: REDEFINES clause not following entry-name used
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_redefines.at:44"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_156
-#AT_START_157
-at_fn_group_banner 157 'syn_redefines.at:53' \
- "REDEFINES: level 02 by 01" " " 2
-at_xfail=no
-(
- printf "%s\n" "157. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G.
- 02 X PIC X.
- 01 Y REDEFINES X PIC 9.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_redefines.at:68: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_redefines.at:68"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: error: level number of REDEFINES entries must be identical
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_redefines.at:68"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_157
-#AT_START_158
-at_fn_group_banner 158 'syn_redefines.at:74' \
- "REDEFINES: level 03 by 02" " " 2
-at_xfail=no
-(
- printf "%s\n" "158. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G1.
- 02 G2.
- 03 X PIC X.
- 02 Y REDEFINES X PIC 9.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_redefines.at:90: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_redefines.at:90"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: 'X' is not defined in 'G1'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_redefines.at:90"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_158
-#AT_START_159
-at_fn_group_banner 159 'syn_redefines.at:96' \
- "REDEFINES: level 66" " " 2
-at_xfail=no
-(
- printf "%s\n" "159. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G.
- 02 X PIC X.
- 66 A RENAMES X.
- 66 B REDEFINES A PIC 9.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_redefines.at:112: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_redefines.at:112"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: syntax error, unexpected REDEFINES, expecting RENAMES
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_redefines.at:112"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_159
-#AT_START_160
-at_fn_group_banner 160 'syn_redefines.at:118' \
- "REDEFINES: level 88" " " 2
-at_xfail=no
-(
- printf "%s\n" "160. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X.
- 88 A VALUE "A".
- 88 B REDEFINES A VALUE "B".
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_redefines.at:133: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_redefines.at:133"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: error: syntax error, unexpected REDEFINES, expecting VALUE or VALUES
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_redefines.at:133"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_160
-#AT_START_161
-at_fn_group_banner 161 'syn_redefines.at:146' \
- "REDEFINES: lower level number" " " 2
-at_xfail=no
-(
- printf "%s\n" "161. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G1.
- 02 G2.
- 03 X PIC X.
- 02 G3.
- 03 A REDEFINES X PIC 9.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_redefines.at:163: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_redefines.at:163"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: 'X' is not defined in 'G3'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_redefines.at:163"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_161
-#AT_START_162
-at_fn_group_banner 162 'syn_redefines.at:172' \
- "REDEFINES: with OCCURS" " " 2
-at_xfail=no
-(
- printf "%s\n" "162. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G.
- 02 X PIC X OCCURS 2.
- 02 Y REDEFINES X PIC XX.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-# TODO: should be a dialect option, currntly it is _always_ a warning
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_redefines.at:189: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_redefines.at:189"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: warning: the original definition 'X' should not have an OCCURS clause
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_redefines.at:189"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_162
-#AT_START_163
-at_fn_group_banner 163 'syn_redefines.at:196' \
- "REDEFINES: with subscript" " " 2
-at_xfail=no
-(
- printf "%s\n" "163. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G1.
- 02 G2 OCCURS 2.
- 03 X PIC X.
- 03 Y REDEFINES X(1) PIC X.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_redefines.at:212: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_redefines.at:212"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: 'X' cannot be subscripted here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_redefines.at:212"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_163
-#AT_START_164
-at_fn_group_banner 164 'syn_redefines.at:219' \
- "REDEFINES: with variable occurrence" " " 2
-at_xfail=no
-(
- printf "%s\n" "164. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G1.
- 02 X PIC XX.
- 02 Y REDEFINES X PIC X OCCURS 1 TO 2 DEPENDING ON I.
- 01 G2.
- 02 X PIC XX.
- 02 Y REDEFINES X.
- 03 A PIC X OCCURS 1 TO 2 DEPENDING ON I.
- 01 G3.
- 02 X.
- 03 A PIC X OCCURS 1 TO 2 DEPENDING ON I.
- 02 Y REDEFINES X PIC X.
- 01 I PIC 9.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_redefines.at:243: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_redefines.at:243"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: error: 'Y' cannot be variable length
-prog.cob:11: error: 'Y' cannot be variable length
-prog.cob:16: error: the original definition 'X' cannot be variable length
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_redefines.at:243"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_164
-#AT_START_165
-at_fn_group_banner 165 'syn_redefines.at:254' \
- "REDEFINES: with qualification" " " 2
-at_xfail=no
-(
- printf "%s\n" "165. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G1.
- 02 X PIC X.
- 01 G2.
- 02 X PIC X.
- 02 A REDEFINES X IN G1.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_redefines.at:271: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_redefines.at:271"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: 'X' cannot be qualified here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_redefines.at:271"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_165
-#AT_START_166
-at_fn_group_banner 166 'syn_redefines.at:280' \
- "REDEFINES: multiple redefinition" " " 2
-at_xfail=no
-(
- printf "%s\n" "166. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G1.
- 02 X PIC X.
- 02 A REDEFINES X PIC 9.
- 02 B REDEFINES X PIC 9.
- 02 C REDEFINES B PIC 9.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_redefines.at:297: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_redefines.at:297"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: 'B' is not the original definition
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_redefines.at:297"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_redefines.at:301: \$COMPILE_ONLY -std=mvs prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=mvs prog.cob" "syn_redefines.at:301"
-( $at_check_trace; $COMPILE_ONLY -std=mvs prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_redefines.at:301"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_166
-#AT_START_167
-at_fn_group_banner 167 'syn_redefines.at:308' \
- "REDEFINES: size exceeds" " " 2
-at_xfail=no
-(
- printf "%s\n" "167. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G1.
- 02 X PIC X.
- 02 A REDEFINES X PIC 99.
- 01 G2.
- 02 X PIC X.
- 02 A REDEFINES X PIC 9 OCCURS 2.
- 01 EXT-X PIC X EXTERNAL.
- 01 EXT-X-REDEF REDEFINES EXT-X PIC 99.
- *> other than the above EXTERNAL one, this is explicit "fine"
- *> by COBOL standard (01, non-external) - only warn upon explicit request
- 01 WRK-X2 PIC X.
- 01 FILLER REDEFINES WRK-X2 PIC X(4).
- 88 WRK-X2-BADDY VALUE "99".
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_redefines.at:333: \$COBC -fdiagnostics-plain-output -Wextra prog.cob"
-at_fn_check_prepare_dynamic "$COBC -fdiagnostics-plain-output -Wextra prog.cob" "syn_redefines.at:333"
-( $at_check_trace; $COBC -fdiagnostics-plain-output -Wextra prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: error: larger REDEFINES used
-prog.cob:8: note: size of 'A' larger than size of 'X' [-Wdialect]
-prog.cob:11: error: larger REDEFINES used
-prog.cob:11: note: size of 'A' larger than size of 'X' [-Wdialect]
-prog.cob:13: error: larger REDEFINES used
-prog.cob:13: note: size of 'EXT-X-REDEF' larger than size of 'EXT-X' [-Wdialect]
-prog.cob:17: warning: size of 'FILLER 1' larger than size of 'WRK-X2' [-Wlarger-01-redefines]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_redefines.at:333"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# of course, other dialects ignore the rules, implicit adding a FILLER to the original item...
-{ set +x
-printf "%s\n" "$at_srcdir/syn_redefines.at:344: \$COBC -std=mf prog.cob"
-at_fn_check_prepare_dynamic "$COBC -std=mf prog.cob" "syn_redefines.at:344"
-( $at_check_trace; $COBC -std=mf prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_redefines.at:344"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_redefines.at:345: \$COBC -fdiagnostics-plain-output -flarger-redefines=warning prog.cob"
-at_fn_check_prepare_dynamic "$COBC -fdiagnostics-plain-output -flarger-redefines=warning prog.cob" "syn_redefines.at:345"
-( $at_check_trace; $COBC -fdiagnostics-plain-output -flarger-redefines=warning prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: warning: larger REDEFINES used [-Wdialect]
-prog.cob:8: note: size of 'A' larger than size of 'X' [-Wdialect]
-prog.cob:11: warning: larger REDEFINES used [-Wdialect]
-prog.cob:11: note: size of 'A' larger than size of 'X' [-Wdialect]
-prog.cob:13: warning: larger REDEFINES used [-Wdialect]
-prog.cob:13: note: size of 'EXT-X-REDEF' larger than size of 'EXT-X' [-Wdialect]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_redefines.at:345"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_167
-#AT_START_168
-at_fn_group_banner 168 'syn_redefines.at:359' \
- "REDEFINES: with VALUE" " " 2
-at_xfail=no
-(
- printf "%s\n" "168. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X.
- 01 A REDEFINES X PIC X VALUE "A".
- 01 G REDEFINES X.
- 02 B PIC X VALUE "A".
- 01 Y REDEFINES X PIC X.
- 88 C VALUE "A".
- PROCEDURE DIVISION.
- INITIALIZE G ALL TO VALUE *> the reason that this extension is useful
- STOP RUN.
-_ATEOF
-
-
-# FIXME: add a compiler configuration as the COBOL standard forbids this
-# default.conf will allow it (with a warning)
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_redefines.at:381: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_redefines.at:381"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: warning: initial VALUE clause ignored for REDEFINES item 'A'
-prog.cob:9: warning: initial VALUE clause ignored for REDEFINES item 'B'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_redefines.at:381"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_redefines.at:385: \$COMPILE -frelax-syntax-checks prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -frelax-syntax-checks prog.cob" "syn_redefines.at:385"
-( $at_check_trace; $COMPILE -frelax-syntax-checks prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_redefines.at:385"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_168
-#AT_START_169
-at_fn_group_banner 169 'syn_redefines.at:392' \
- "REDEFINES: with intervention" " " 2
-at_xfail=no
-(
- printf "%s\n" "169. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X.
- 01 Y PIC X.
- 01 A REDEFINES X PIC X.
- 01 G.
- 02 G-X PIC X.
- 02 G-Y PIC X.
- 02 G-A REDEFINES G-X PIC X.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_redefines.at:411: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_redefines.at:411"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: error: REDEFINES must follow the original definition
-prog.cob:12: error: REDEFINES must follow the original definition
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_redefines.at:411"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# TODO: several implementations allow to specify those anywhere - add
-# dialect option, configure accordingly and test here
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_169
-#AT_START_170
-at_fn_group_banner 170 'syn_redefines.at:424' \
- "REDEFINES: within REDEFINES" " " 2
-at_xfail=no
-(
- printf "%s\n" "170. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X.
- 01 G REDEFINES X.
- 02 A PIC X.
- 02 B REDEFINES A PIC 9.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_redefines.at:440: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_redefines.at:440"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_redefines.at:440"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_170
-#AT_START_171
-at_fn_group_banner 171 'syn_redefines.at:467' \
- "REDEFINES: for ANY LENGTH item" " " 2
-at_xfail=no
-(
- printf "%s\n" "171. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 X PIC X ANY LENGTH.
- 01 Y REDEFINES X PIC X.
- 01 N PIC 9 ANY NUMERIC.
- 01 M REDEFINES N PIC 9.
- PROCEDURE DIVISION USING X N.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_redefines.at:483: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_redefines.at:483"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: error: the original definition 'X' should not have an ANY LENGTH clause
-prog.cob:9: error: the original definition 'N' should not have an ANY LENGTH clause
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_redefines.at:483"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_171
-#AT_START_172
-at_fn_group_banner 172 'syn_redefines.at:500' \
- "REDEFINES: non-referenced ambiguous item" " " 2
-at_xfail=no
-(
- printf "%s\n" "172. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# bad extension, supported for compatibility to at least MicroFocus
-# the redefines always applies to the item defined before, verified in
-# run_extensions.at, syntax check for redefinition in syn_definition.at
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X.
- 01 X PIC X.
- 01 G REDEFINES X PIC 9.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_redefines.at:519: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_redefines.at:519"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: warning: redefinition of 'X'
-prog.cob:6: note: 'X' previously defined here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_redefines.at:519"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_172
-#AT_START_173
-at_fn_group_banner 173 'syn_value.at:28' \
- "bad VALUES / VALUES ARE in format-1" " " 2
-at_xfail=no
-(
- printf "%s\n" "173. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
-
- * explicit testing in sub-fields to ensure parsing goes on
- 01 WS.
- 10 SEPX PICTURE XX VALUES ", ".
- 10 SEPL PICTURE X VALUE LOW-VALUE.
- 10 BADIS PICTURE 9 VALUE ARE 1.
- 10 BADARE PICTURE 9 VALUES IS 2.
- 10 DAYS PICTURE 99 VALUES ARE 31.
- 10 MONTHS PICTURE 99 VALUE IS 12.
- 10 NO-OCCURS PICTURE 99 VALUES ARE 08 15.
-
- PROCEDURE DIVISION.
- DISPLAY DAYS SEPX MONTHS SEPL.
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_value.at:54: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_value.at:54"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:11: error: unexpected VALUES ARE
-prog.cob:13: error: syntax error, unexpected ARE
-prog.cob:14: error: syntax error, unexpected IS
-prog.cob:15: error: unexpected VALUES ARE
-prog.cob:17: error: unexpected VALUES ARE for elementary item
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_value.at:54"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_value.at:62: \$COMPILE_ONLY -frelax-syntax-checks prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -frelax-syntax-checks prog.cob" "syn_value.at:62"
-( $at_check_trace; $COMPILE_ONLY -frelax-syntax-checks prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:11: warning: unexpected VALUES ARE
-prog.cob:13: error: syntax error, unexpected ARE
-prog.cob:14: error: syntax error, unexpected IS
-prog.cob:15: warning: unexpected VALUES ARE
-prog.cob:17: error: unexpected VALUES ARE for elementary item
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_value.at:62"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_173
-#AT_START_174
-at_fn_group_banner 174 'syn_value.at:76' \
- "OCCURS too many VALUEs" " " 2
-at_xfail=no
-(
- printf "%s\n" "174. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
-
- 01 WS.
- 05 IX1 PIC 99.
- 05 IX2 PIC 99.
- 05 IX3 PIC 99.
- 05 GRP1 OCCURS 3 TIMES.
- 10 GRPX PIC X(99).
- 05 MONTH-IN-YEAR OCCURS 13 TIMES PICTURE X(3)
- VALUES "jan" "feb" "mar" "apr"
- "may" "jun" "jul" "aug"
- "sep" "oct" "nov" "dec"
- "Hi" "Bye" "Dog".
- 05 DAYS-IN-MONTH OCCURS 13 TIMES PICTURE 9(2) BINARY
- VALUES 31 28 31 30 31 30 31 31 30 31 30 31.
- 05 DAYS-MONTHS OCCURS 2 TIMES.
- 06 DAYX-MONTHX OCCURS 4 TIMES.
- 07 DAY-MONTH OCCURS 3 TIMES.
- 10 XXX1 PICTURE X VALUE " ".
- 10 MONTHS PICTURE X(3)
- VALUES "Jan" "Feb" "Mar" "Apr"
- "May" "Jun" "Jul" "Aug"
- "Sep" "Oct" "Nov" "Dec"
- "JAN" "FEB" "MAR" "APR"
- "MAY" "JUN" "JUL" "AUG"
- "SEP" "OCT" "NOV" "DEC" "Bye".
- 10 SEPX PICTURE XX VALUE ", ".
- 10 DAYS PICTURE 99
- VALUES 31 28 31 30 31 30 31 31 30 31 30 31
- 91 28 91 90 91 90 91 91 90 91 90 91.
- 10 PER PICTURE X VALUE ".".
- 07 FLR PICTURE X(4) VALUES " <A>" " <B>" " <C>" " <D>"
- " <E>" " <F>" " <G>" " <H>" " <*>".
-
- PROCEDURE DIVISION.
-
- INIT-RTN.
- DISPLAY "Simple OCCURS with multi VALUES".
- PERFORM VARYING IX1 FROM 1 BY 1 UNTIL IX1 > 13
- DISPLAY IX1 ": "
- MONTH-IN-YEAR (IX1) " has "
- DAYS-IN-MONTH (IX1) " days"
- END-DISPLAY
- END-PERFORM.
- DISPLAY "Complex OCCURS with multi VALUES".
- PERFORM VARYING IX3 FROM 1 BY 1 UNTIL IX3 > 2
- PERFORM VARYING IX2 FROM 1 BY 1 UNTIL IX2 > 4
- DISPLAY IX3 "-" IX2 ": "
- DAYX-MONTHX (IX3, IX2)
- END-DISPLAY
- END-PERFORM
- END-PERFORM.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_value.at:140: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_value.at:140"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:15: error: elements in VALUE clause for 'MONTH-IN-YEAR' (15) exceed max amount (13)
-prog.cob:26: error: elements in VALUE clause for 'MONTHS' (25) exceed max amount (24)
-prog.cob:38: error: elements in VALUE clause for 'FLR' (9) exceed max amount (8)
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_value.at:140"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_174
-#AT_START_175
-at_fn_group_banner 175 'syn_value.at:162' \
- "Numeric item (integer)" " " 2
-at_xfail=no
-(
- printf "%s\n" "175. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X-SPACE PIC 999 VALUE SPACE.
- 01 X-ABC PIC 999 VALUE "abc".
- 01 X-12-3 PIC 999 VALUE 12.3.
- 01 X-123 PIC 999 VALUE 123.
- 01 X-1234 PIC 999 VALUE 1234.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_value.at:179: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_value.at:179"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: error: invalid VALUE clause
-prog.cob:7: warning: numeric value is expected
-prog.cob:8: warning: value size exceeds data size
-prog.cob:10: warning: value size exceeds data size
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_value.at:179"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_175
-#AT_START_176
-at_fn_group_banner 176 'syn_value.at:189' \
- "Numeric item (non-integer)" " " 2
-at_xfail=no
-(
- printf "%s\n" "176. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X-12 PIC 99V9 VALUE 12.
- 01 X-123 PIC 99V9 VALUE 123.
- 01 X-12-3 PIC 99V9 VALUE 12.3.
- 01 X-12-34 PIC 99V9 VALUE 12.34.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_value.at:205: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_value.at:205"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: warning: value size exceeds data size
-prog.cob:9: warning: value size exceeds data size
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_value.at:205"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_176
-#AT_START_177
-at_fn_group_banner 177 'syn_value.at:213' \
- "Numeric item with picture P" " " 2
-at_xfail=no
-(
- printf "%s\n" "177. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X-99PP-0 PIC 99PP VALUE 0.
- 01 X-99PP-1200 PIC 99PP VALUE 1200.
- 01 X-99PP-1230 PIC 99PP VALUE 1230.
- 01 X-99PP-10000 PIC 99PP VALUE 10000.
- 01 X-PP99--0 PIC PP99 VALUE .0.
- 01 X-PP99--0012 PIC PP99 VALUE .0012.
- 01 X-PP99--0123 PIC PP99 VALUE .0123.
- 01 X-PP99--00001 PIC PP99 VALUE .00001.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_value.at:233: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_value.at:233"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: warning: value does not fit the picture string
-prog.cob:9: warning: value size exceeds data size
-prog.cob:12: warning: value does not fit the picture string
-prog.cob:13: warning: value size exceeds data size
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_value.at:233"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_177
-#AT_START_178
-at_fn_group_banner 178 'syn_value.at:245' \
- "Signed numeric literal" " " 2
-at_xfail=no
-(
- printf "%s\n" "178. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X-9P PIC 9 VALUE +1.
- 01 X-9N PIC 9 VALUE -1.
- 01 X-S9P PIC S9 VALUE +1.
- 01 X-S9N PIC S9 VALUE -1.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_value.at:261: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_value.at:261"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: error: data item not signed
-prog.cob:7: error: data item not signed
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_value.at:261"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_178
-#AT_START_179
-at_fn_group_banner 179 'syn_value.at:271' \
- "Alphabetic item" " " 2
-at_xfail=no
-(
- printf "%s\n" "179. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X-123 PIC AAA VALUE 123.
- 01 X-ZERO PIC AAA VALUE ZERO.
- 01 X-AB1 PIC AAA VALUE "ab1".
- 01 X-ABC PIC AAA VALUE "abc".
- 01 X-ABCD PIC AAA VALUE "abcd".
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_value.at:288: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_value.at:288"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: warning: alphanumeric value is expected
-prog.cob:7: error: invalid VALUE clause
-prog.cob:8: warning: value does not fit the picture string
-prog.cob:10: warning: value size exceeds data size
-prog.cob:10: note: value size is 4
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_value.at:288"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_179
-#AT_START_180
-at_fn_group_banner 180 'syn_value.at:299' \
- "Alphanumeric item" " " 2
-at_xfail=no
-(
- printf "%s\n" "180. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X-ABC PIC XXX VALUE "abc".
- 01 X-ABCD PIC XXX VALUE "abcd".
- 01 X-SPACE PIC XXX VALUE "abc ".
- 01 X-123 PIC XXX VALUE 123.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_value.at:315: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_value.at:315"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: warning: value size exceeds data size
-prog.cob:7: note: value size is 4
-prog.cob:8: warning: value does not fit the picture string
-prog.cob:9: warning: alphanumeric value is expected
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_value.at:315"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_180
-#AT_START_181
-at_fn_group_banner 181 'syn_value.at:325' \
- "Alphanumeric group item" " " 2
-at_xfail=no
-(
- printf "%s\n" "181. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G-1 VALUE 123.
- 02 X PIC XXX.
- 01 G-2 VALUE "abc".
- 02 X PIC XXX.
- 01 G-3 VALUE "abcd".
- 02 X PIC XXX.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_value.at:343: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_value.at:343"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: warning: alphanumeric value is expected
-prog.cob:10: warning: value size exceeds data size
-prog.cob:10: note: value size is 4
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_value.at:343"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_181
-#AT_START_182
-at_fn_group_banner 182 'syn_value.at:352' \
- "National item" " " 2
-at_xfail=no
-(
- printf "%s\n" "182. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# Skip due to change in N type specifications
-printf "%s\n" "syn_value.at:356" >"$at_check_line_file"
-at_fn_check_skip 77 "$at_srcdir/syn_value.at:356"
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 N-ABC PIC NNN VALUE N"abc".
- 01 N-ABCD PIC NNN VALUE N"abcd".
- 01 N-SPACE PIC NNN VALUE N"abc ".
- 01 X-123 PIC NNN VALUE 123.
- 01 X-ABC PIC NNN VALUE "abc".
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_value.at:372: \$COMPILE_ONLY -Wno-unfinished prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wno-unfinished prog.cob" "syn_value.at:372"
-( $at_check_trace; $COMPILE_ONLY -Wno-unfinished prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: warning: value size exceeds data size
-prog.cob:7: note: value size is 4
-prog.cob:8: warning: value does not fit the picture string
-prog.cob:9: warning: national value is expected
-prog.cob:10: warning: national value is expected
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_value.at:372"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_182
-#AT_START_183
-at_fn_group_banner 183 'syn_value.at:392' \
- "Numeric-edited item" " " 2
-at_xfail=no
-(
- printf "%s\n" "183. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X-SPACE PIC **99.00 VALUE SPACE.
- 01 X-123 PIC **999.00 VALUE 123.
- 01 X-ABC PIC **99.00 VALUE "abc".
- 01 X-MATCH PIC **99.00 VALUE "*123.00".
- 01 X-OVERFLOW PIC **99.00 VALUE "*123.000".
- PROCEDURE DIVISION.
- MOVE 320.00 TO X-123
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_value.at:410: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_value.at:410"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: warning: value size exceeds data size
-prog.cob:10: note: value size is 8
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_value.at:410"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_value.at:414: \$COMPILE_ONLY -std=ibm-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=ibm-strict prog.cob" "syn_value.at:414"
-( $at_check_trace; $COMPILE_ONLY -std=ibm-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: error: numeric literal in VALUE clause of numeric-edited item used
-prog.cob:10: warning: value size exceeds data size
-prog.cob:10: note: value size is 8
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_value.at:414"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_value.at:419: \$COMPILE_ONLY -std=ibm prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=ibm prog.cob" "syn_value.at:419"
-( $at_check_trace; $COMPILE_ONLY -std=ibm prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: warning: numeric literal in VALUE clause of numeric-edited item used
-prog.cob:10: warning: value size exceeds data size
-prog.cob:10: note: value size is 8
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_value.at:419"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_183
-#AT_START_184
-at_fn_group_banner 184 'syn_value.at:428' \
- "Alphanumeric-edited item" " " 2
-at_xfail=no
-(
- printf "%s\n" "184. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X-123 PIC BXX VALUE 123.
- 01 X-ABC PIC BXX VALUE "abc".
- 01 X-MATCH PIC BXX VALUE " ab".
- 01 X-OVERFLOW PIC BXX VALUE " abc".
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_value.at:444: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_value.at:444"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: warning: alphanumeric value is expected
-prog.cob:9: warning: value size exceeds data size
-prog.cob:9: note: value size is 4
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_value.at:444"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_184
-#AT_START_185
-at_fn_group_banner 185 'syn_value.at:497' \
- "Implicit picture from value" " " 2
-at_xfail=no
-(
- printf "%s\n" "185. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 IMPHEAD.
- 05 IMPPIC VALUE " abc".
- PROCEDURE DIVISION.
- DISPLAY IMPPIC END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-# Check: should we raise an error without -frelax-syntax-checks?
-#AT_CHECK([$COMPILE_ONLY prog.cob], [1], [],
-#[prog.cob:7: error: PICTURE clause required for 'IMPPIC'
-#])
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_value.at:517: \$COMPILE_ONLY -frelax-syntax-checks prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -frelax-syntax-checks prog.cob" "syn_value.at:517"
-( $at_check_trace; $COMPILE_ONLY -frelax-syntax-checks prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: warning: defining implicit picture size 4 for 'IMPPIC'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_value.at:517"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_value.at:521: \$COMPILE_ONLY -frelax-syntax-checks -w prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -frelax-syntax-checks -w prog.cob" "syn_value.at:521"
-( $at_check_trace; $COMPILE_ONLY -frelax-syntax-checks -w prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_value.at:521"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_185
-#AT_START_186
-at_fn_group_banner 186 'syn_file.at:23' \
- "Missing SELECT" " " 2
-at_xfail=no
-(
- printf "%s\n" "186. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT file2 ASSIGN DISK.
- DATA DIVISION.
- FILE SECTION.
- FD file1.
- 01 file1-rec PIC X.
- FD file2.
- 01 file2-rec PIC X.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:43: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:43"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: 'file1' is not defined
-prog.cob:10: error: 'file1' is not a file name
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:43"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_186
-#AT_START_187
-at_fn_group_banner 187 'syn_file.at:50' \
- "Duplicated SELECT" " " 2
-at_xfail=no
-(
- printf "%s\n" "187. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT file1 ASSIGN DISK.
- SELECT file2 ASSIGN DISK.
- SELECT file1 ASSIGN DISK.
- DATA DIVISION.
- FILE SECTION.
- FD file1.
- 01 file1-rec PIC X.
- FD file2.
- 01 file2-rec PIC X.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:72: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:72"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: redefinition of 'file1'
-prog.cob:7: note: 'file1' previously defined here
-prog.cob:9: error: missing file description for FILE SELECT on line 9
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:72"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_187
-#AT_START_188
-at_fn_group_banner 188 'syn_file.at:82' \
- "Missing FD" " " 2
-at_xfail=no
-(
- printf "%s\n" "188. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT file1 ASSIGN DISK.
- SELECT file2 ASSIGN DISK.
- DATA DIVISION.
- FILE SECTION.
- FD file2.
- 01 file2-rec PIC X.
- PROCEDURE DIVISION.
- OPEN input file1
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:102: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:102"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: error: missing file description for FILE file1
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:102"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_188
-#AT_START_189
-at_fn_group_banner 189 'syn_file.at:108' \
- "Duplicated FD" " " 2
-at_xfail=no
-(
- printf "%s\n" "189. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT file1 ASSIGN DISK.
- SELECT file2 ASSIGN DISK.
- DATA DIVISION.
- FILE SECTION.
- FD file1.
- 01 file1-rec PIC X.
- FD file2.
- 01 file2-rec PIC X.
- FD file1.
- 01 file1-rec-2 PIC X.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:131: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:131"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:15: error: duplicate file description for FILE file1
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:131"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_189
-#AT_START_190
-at_fn_group_banner 190 'syn_file.at:137' \
- "ASSIGN to device-name" " " 2
-at_xfail=no
-(
- printf "%s\n" "190. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN TO DISK
- ORGANIZATION IS SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(4).
- PROCEDURE DIVISION.
- OPEN INPUT TEST-FILE.
- CLOSE TEST-FILE.
- STOP RUN.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN TO DISK 'TFILE'
- ORGANIZATION IS SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(4).
- PROCEDURE DIVISION.
- OPEN INPUT TEST-FILE.
- CLOSE TEST-FILE.
- STOP RUN.
-_ATEOF
-
-
-cat >prog3.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN TO DISK FNAME OF F1
- ORGANIZATION IS SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(4).
- WORKING-STORAGE SECTION.
- 01 F1.
- 05 FNAME PIC X(255) VALUE 'TFILEOF'.
- PROCEDURE DIVISION.
- OPEN INPUT TEST-FILE.
- CLOSE TEST-FILE.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:197: \$COMPILE_ONLY -std=acu prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=acu prog.cob" "syn_file.at:197"
-( $at_check_trace; $COMPILE_ONLY -std=acu prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:197"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:198: \$COMPILE_ONLY -std=acu prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=acu prog2.cob" "syn_file.at:198"
-( $at_check_trace; $COMPILE_ONLY -std=acu prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:198"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:199: \$COMPILE_ONLY -std=acu prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=acu prog3.cob" "syn_file.at:199"
-( $at_check_trace; $COMPILE_ONLY -std=acu prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:199"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_190
-#AT_START_191
-at_fn_group_banner 191 'syn_file.at:204' \
- "ASSIGN to printer-name" " " 2
-at_xfail=no
-(
- printf "%s\n" "191. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN TO PRINT
- ORGANIZATION IS SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(4).
- PROCEDURE DIVISION.
- OPEN INPUT TEST-FILE.
- CLOSE TEST-FILE.
- STOP RUN.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN TO PRINTER 'PFILE'
- ORGANIZATION IS SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(4).
- PROCEDURE DIVISION.
- OPEN INPUT TEST-FILE.
- CLOSE TEST-FILE.
- STOP RUN.
-_ATEOF
-
-
-cat >prog3.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN TO PRINTER-1 FNAME OF F1
- ORGANIZATION IS SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(4).
- WORKING-STORAGE SECTION.
- 01 F1.
- 05 FNAME PIC X(255) VALUE 'PFILEOF'.
- PROCEDURE DIVISION.
- OPEN INPUT TEST-FILE.
- CLOSE TEST-FILE.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:264: \$COMPILE_ONLY -std=acu prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=acu prog.cob" "syn_file.at:264"
-( $at_check_trace; $COMPILE_ONLY -std=acu prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:264"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:265: \$COMPILE_ONLY -std=acu prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=acu prog2.cob" "syn_file.at:265"
-( $at_check_trace; $COMPILE_ONLY -std=acu prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:265"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:266: \$COMPILE_ONLY -std=acu prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=acu prog3.cob" "syn_file.at:266"
-( $at_check_trace; $COMPILE_ONLY -std=acu prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:266"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_191
-#AT_START_192
-at_fn_group_banner 192 'syn_file.at:271' \
- "ASSIGN to lsq-device-name" " " 2
-at_xfail=no
-(
- printf "%s\n" "192. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TST-FILE1 ASSIGN TO CARD-PUNCH "F1".
- SELECT TST-FILE2 ASSIGN TO CARD-READER "F2".
- SELECT TST-FILE3 ASSIGN TO CASSETTE "F3".
- SELECT TST-FILE4 ASSIGN TO INPUT "F4".
- SELECT TST-FILE5 ASSIGN TO INPUT-OUTPUT.
- SELECT TST-FILE6 ASSIGN TO MAGNETIC-TAPE.
- SELECT TST-FILE7 ASSIGN TO OUTPUT "F7".
- DATA DIVISION.
- FILE SECTION.
- FD TST-FILE1.
- 01 TST1-REC PIC X(4).
- FD TST-FILE2.
- 01 TST2-REC PIC X(4).
- FD TST-FILE3.
- 01 TST3-REC PIC X(4).
- FD TST-FILE4.
- 01 TST4-REC PIC X(4).
- FD TST-FILE5.
- 01 TST5-REC PIC X(4).
- FD TST-FILE6.
- 01 TST6-REC PIC X(4).
- FD TST-FILE7.
- 01 TST7-REC PIC X(4).
- PROCEDURE DIVISION.
- OPEN INPUT TST-FILE1.
- CLOSE TST-FILE1.
- OPEN INPUT TST-FILE2.
- CLOSE TST-FILE2.
- OPEN INPUT TST-FILE3.
- CLOSE TST-FILE3.
- OPEN INPUT TST-FILE4.
- CLOSE TST-FILE4.
- OPEN INPUT TST-FILE5.
- CLOSE TST-FILE5.
- OPEN INPUT TST-FILE6.
- CLOSE TST-FILE6.
- OPEN INPUT TST-FILE7.
- CLOSE TST-FILE7.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:321: \$COMPILE_ONLY -std=acu prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=acu prog.cob" "syn_file.at:321"
-( $at_check_trace; $COMPILE_ONLY -std=acu prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:321"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_192
-#AT_START_193
-at_fn_group_banner 193 'syn_file.at:326' \
- "ASSIGN to variable" " " 2
-at_xfail=no
-(
- printf "%s\n" "193. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# Valid ASSIGNs
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT test-file-1 ASSIGN TO var-1
- ORGANIZATION IS SEQUENTIAL.
- SELECT test-file-2 ASSIGN USING var-2
- ORGANIZATION IS SEQUENTIAL.
- SELECT test-file-3 ASSIGN TO VARYING var-3
- ORGANIZATION IS SEQUENTIAL.
- SELECT test-file-4 ASSIGN DISK USING var-4
- ORGANIZATION IS SEQUENTIAL.
- SELECT test-file-5 ASSIGN DYNAMIC DISK var-5
- ORGANIZATION IS SEQUENTIAL.
- SELECT test-file-6 ASSIGN DISK FROM var-6
- ORGANIZATION IS SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD test-file-1.
- 01 test-rec-1 PIC X(4).
- FD test-file-2.
- 01 test-rec-2 PIC X(4).
- FD test-file-3.
- 01 test-rec-3 PIC X(4).
- FD test-file-4.
- 01 test-rec-4 PIC X(4).
- FD test-file-5.
- 01 test-rec-5 PIC X(4).
- FD test-file-6.
- 01 test-rec-6 PIC X(4).
- WORKING-STORAGE SECTION.
- 01 var-1 PIC X(255).
- 01 var-2 PIC X(255).
- 01 var-3 PIC X(255).
- 01 var-4 PIC X(255).
- 01 var-5 PIC X(255).
- 01 var-6 PIC X(255).
- PROCEDURE DIVISION.
- OPEN INPUT test-file-1
- CLOSE test-file-1
- OPEN INPUT test-file-2
- CLOSE test-file-2
- OPEN INPUT test-file-3
- CLOSE test-file-3
- OPEN INPUT test-file-4
- CLOSE test-file-4
- OPEN INPUT test-file-5
- CLOSE test-file-5
- OPEN INPUT test-file-6
- CLOSE test-file-6
- .
-_ATEOF
-
-
-# Invalid assigns
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT test-file-1 ASSIGN USING not-a-var
- ORGANIZATION IS SEQUENTIAL.
- SELECT test-file-2 ASSIGN DYNAMIC not-a-var
- ORGANIZATION IS SEQUENTIAL.
- SELECT test-file-3 ASSIGN DISK FROM not-a-var
- ORGANIZATION IS SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD test-file-1.
- 01 test-rec-1 PIC X(4).
- FD test-file-2.
- 01 test-rec-2 PIC X(4).
- FD test-file-3.
- 01 test-rec-3 PIC X(4).
- PROCEDURE DIVISION.
- OPEN INPUT test-file-1
- CLOSE test-file-1
- OPEN INPUT test-file-2
- CLOSE test-file-2
- OPEN INPUT test-file-3
- CLOSE test-file-3
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:416: \$COMPILE_ONLY -fassign-variable=warning -fassign-using-variable=warning -fassign-ext-dyn=warning -fassign-disk-from=warning prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fassign-variable=warning -fassign-using-variable=warning -fassign-ext-dyn=warning -fassign-disk-from=warning prog.cob" "syn_file.at:416"
-( $at_check_trace; $COMPILE_ONLY -fassign-variable=warning -fassign-using-variable=warning -fassign-ext-dyn=warning -fassign-disk-from=warning prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: warning: ASSIGN USING/VARYING variable used
-prog.cob:12: warning: ASSIGN USING/VARYING variable used
-prog.cob:14: warning: ASSIGN USING/VARYING variable used
-prog.cob:15: warning: ASSIGN EXTERNAL/DYNAMIC used
-prog.cob:18: warning: ASSIGN DISK FROM used
-prog.cob:7: warning: ASSIGN variable used
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:416"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:424: \$COMPILE_ONLY prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog2.cob" "syn_file.at:424"
-( $at_check_trace; $COMPILE_ONLY prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:11: error: 'not-a-var' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:424"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_193
-#AT_START_194
-at_fn_group_banner 194 'syn_file.at:431' \
- "SELECT without ASSIGN" " " 2
-at_xfail=no
-(
- printf "%s\n" "194. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE
- ORGANIZATION IS SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(4).
- PROCEDURE DIVISION.
- OPEN INPUT TEST-FILE.
- CLOSE TEST-FILE.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:452: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:452"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: error: ASSIGN clause is required for file 'TEST-FILE'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:452"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_194
-#AT_START_195
-at_fn_group_banner 195 'syn_file.at:459' \
- "START on SEQUENTIAL file" " " 2
-at_xfail=no
-(
- printf "%s\n" "195. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN "./TEST-FILE"
- ORGANIZATION IS SEQUENTIAL.
- SELECT TEST-FILE2 ASSIGN "./TEST-FILE"
- ORGANIZATION IS LINE SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(4).
- FD TEST-FILE2.
- 01 TEST-REC2 PIC X(4).
- PROCEDURE DIVISION.
- OPEN INPUT TEST-FILE TEST-FILE2
- START TEST-FILE KEY EQUAL TEST-REC
- END-START
- START TEST-FILE2 KEY EQUAL TEST-REC2
- END-START
- CLOSE TEST-FILE TEST-FILE2
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:488: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:488"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:19: error: START not allowed on SEQUENTIAL files
-prog.cob:21: error: START not allowed on SEQUENTIAL files
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:488"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_195
-#AT_START_196
-at_fn_group_banner 196 'syn_file.at:496' \
- "OPEN SEQUENTIAL file REVERSED" " " 2
-at_xfail=no
-(
- printf "%s\n" "196. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# FIXME: only allowed for INPUT + sequential files (currently not checked).
-# If added we likely can allow this for LINE SEQUENTIAL, too.
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN "./TEST-FILE"
- ORGANIZATION IS SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(4).
- PROCEDURE DIVISION.
- OPEN INPUT TEST-FILE
- READ TEST-FILE NEXT
- END-READ
- CLOSE TEST-FILE
- OPEN INPUT TEST-FILE REVERSED
- READ TEST-FILE NEXT
- END-READ
- CLOSE TEST-FILE
- OPEN INPUT TEST-FILE WITH LOCK REVERSED
- READ TEST-FILE NEXT
- END-READ
- CLOSE TEST-FILE
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:530: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:530"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:18: warning: OPEN REVERSED is not implemented
-prog.cob:22: warning: OPEN REVERSED is not implemented
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:530"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# note: as soon as implemented: won't be obsolete in GnuCOBOL, but leave message for now...
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:536: \$COMPILE_ONLY -Werror=obsolete -fdiagnostics-show-option prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Werror=obsolete -fdiagnostics-show-option prog.cob" "syn_file.at:536"
-( $at_check_trace; $COMPILE_ONLY -Werror=obsolete -fdiagnostics-show-option prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:18: error: OPEN REVERSED is obsolete in GnuCOBOL [-Werror=obsolete]
-prog.cob:22: error: OPEN REVERSED is obsolete in GnuCOBOL [-Werror=obsolete]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:536"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_196
-#AT_START_197
-at_fn_group_banner 197 'syn_file.at:544' \
- "OPEN SEQUENTIAL file NO REWIND" " " 2
-at_xfail=no
-(
- printf "%s\n" "197. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# FIXME: only allowed for INPUT/OUTPUT sequential files (currently not checked).
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN "./TEST-FILE"
- ORGANIZATION IS SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(4).
- PROCEDURE DIVISION.
- OPEN OUTPUT TEST-FILE NO REWIND
- WRITE TEST-REC FROM "tEsT"
- END-WRITE
- WRITE TEST-REC FROM "TeSt"
- END-WRITE
- CLOSE TEST-FILE WITH NO REWIND
- OPEN INPUT TEST-FILE WITH LOCK WITH NO REWIND
- READ TEST-FILE NEXT *> should get EOF
- END-READ
- CLOSE TEST-FILE
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:575: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:575"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:14: warning: OPEN WITH NO REWIND is not implemented
-prog.cob:20: warning: OPEN WITH NO REWIND is not implemented
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:575"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_197
-#AT_START_198
-at_fn_group_banner 198 'syn_file.at:583' \
- "valid key items" " " 2
-at_xfail=no
-(
- printf "%s\n" "198. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-SOME ASSIGN TO 'FILE-TEST'
- ORGANIZATION IS INDEXED
- ACCESS MODE IS DYNAMIC
- RECORD KEY IS TEST-P2 IN TEST-SOME
- ALTERNATE KEY IS TEST-P3 IN TEST-SOME.
- SELECT TEST-FILE ASSIGN TO 'FILE-TEST2'
- ORGANIZATION IS INDEXED
- ACCESS MODE IS DYNAMIC
- RECORD KEY IS TEST-P1
- ALTERNATE KEY IS TEST-P4.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-SOME.
- 01 SOME-REC.
- 05 TEST-P2 PIC S9(4) COMP.
- 05 TEST-P3 PIC S9(5) COMP-3.
- FD TEST-FILE.
- 01 TEST-REC.
- 05 TEST-P1 PIC X(4).
- 05 FILLER PIC X(4).
- 05 TEST-P4 PIC X(4).
- WORKING-STORAGE SECTION.
- 01 WS-REC.
- 05 TEST-P2 PIC S9(4) COMP.
- 05 TEST-P3 PIC S9(5) COMP-3.
- PROCEDURE DIVISION.
- OPEN INPUT TEST-FILE
- CLOSE TEST-FILE
- OPEN OUTPUT TEST-SOME
- MOVE CORRESPONDING WS-REC TO SOME-REC
- WRITE SOME-REC
- CLOSE TEST-SOME
- *
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:628: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:628"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:628"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_198
-#AT_START_199
-at_fn_group_banner 199 'syn_file.at:633' \
- "INDEXED file invalid key items" " " 2
-at_xfail=no
-(
- printf "%s\n" "199. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-SOME ASSIGN TO 'FILE-TEST'
- ORGANIZATION IS INDEXED
- ACCESS MODE IS DYNAMIC
- RECORD KEY IS TEST-P2
- ALTERNATE KEY IS TEST-P1
- ALTERNATE KEY IS TEST-P3.
- SELECT TEST-FILE ASSIGN TO 'FILE-TEST2'
- ORGANIZATION IS INDEXED
- ACCESS MODE IS DYNAMIC
- RECORD KEY IS TEST-P1
- ALTERNATE KEY IS TEST-P4
- ALTERNATE KEY IS NOT-THERE
- ALTERNATE KEY IS SOME-REC.
- SELECT TEST-MORE ASSIGN TO 'FILE-TEST-EXT'
- ORGANIZATION IS INDEXED
- ACCESS MODE IS DYNAMIC
- RECORD KEY IS NOT-HERE-KEY
- SOURCE IS NOT-IN-FILE1
- NOT-IN-FILE2.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-SOME.
- 01 SOME-REC PIC X(20).
- FD TEST-FILE.
- 01 TEST-REC.
- 05 TEST-P1 PIC X(4).
- 05 FILLER PIC X(4).
- 05 TEST-P4 PIC X(4).
- FD TEST-MORE.
- 01 MORE-REC.
- 05 MORE-DATA PIC X(4).
- WORKING-STORAGE SECTION.
- 77 TEST-P2 PIC S9(4) COMP.
- 77 TEST-P3 PIC S9(5) COMP-3.
- PROCEDURE DIVISION.
- OPEN INPUT TEST-FILE.
- CLOSE TEST-FILE.
- STOP RUN.
-_ATEOF
-
-
-# FIXME: "is not defined" should be changed in "is not defined in file ..."
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:683: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:683"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: 'TEST-P2' is not defined
-prog.cob:11: error: 'TEST-P1' is not defined
-prog.cob:12: error: 'TEST-P3' is not defined
-prog.cob:18: error: 'NOT-THERE' is not defined
-prog.cob:13: error: invalid KEY item 'SOME-REC', not in file 'TEST-FILE'
-prog.cob:24: error: 'NOT-IN-FILE1' is not defined
-prog.cob:20: error: invalid KEY item 'NOT-HERE-KEY', not in file 'TEST-MORE'
-prog.cob:25: error: 'NOT-IN-FILE2' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:683"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_199
-#AT_START_200
-at_fn_group_banner 200 'syn_file.at:697' \
- "variable record length" " " 2
-at_xfail=no
-(
- printf "%s\n" "200. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN TO 'FILE-TEST'
- ORGANIZATION IS SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE
- RECORD IS VARYING IN SIZE
- RECORD CONTAINS 1 TO 1250 CHARACTERS.
- 01 TEST-REC.
- 05 TEST-P1 PIC X(4).
- 05 TEST-P2 PIC S9(4) COMP.
- 05 TEST-P3 PIC S9(5) COMP-3.
- 05 TEST-P4 PIC S9(5).
- 05 TEST-P5 PIC S9(2) BINARY.
- 05 FILLER PIC X(129).
- PROCEDURE DIVISION.
- OPEN INPUT TEST-FILE.
- CLOSE TEST-FILE.
- STOP RUN.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN TO 'FILE-TEST'
- ORGANIZATION IS INDEXED
- ACCESS MODE IS DYNAMIC
- RECORD KEY IS TEST-P2
- ALTERNATE KEY IS TEST-P1
- ALTERNATE KEY IS TEST-P3.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE
- RECORD IS VARYING IN SIZE
- FROM 2 TO 1250 CHARACTERS.
- 01 TEST-REC.
- 05 TEST-P1 PIC X(4).
- 05 TEST-P2 PIC S9(4) COMP.
- 05 TEST-P3 PIC S9(5) COMP-3.
- 05 TEST-P4 PIC S9(5).
- 05 TEST-P5 PIC S9(2) BINARY.
- 05 FILLER PIC X(129).
- 01 RECORDSIZE PIC X(04).
- PROCEDURE DIVISION.
- OPEN INPUT TEST-FILE.
- CLOSE TEST-FILE.
- STOP RUN.
-_ATEOF
-
-
-cat >prog3.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN TO 'FILE-TEST'
- ORGANIZATION IS SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE
- RECORD CONTAINS 5 TO 10 CHARACTERS.
- 01 TEST-REC-1.
- 05 FILLER PIC X(4).
- 01 TEST-REC-2.
- 05 FILLER PIC X(50).
- PROCEDURE DIVISION.
- OPEN INPUT TEST-FILE.
- CLOSE TEST-FILE.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:779: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:779"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:13: error: duplicate RECORD clause
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:779"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:783: \$COMPILE_ONLY -frelax-syntax-checks prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -frelax-syntax-checks prog.cob" "syn_file.at:783"
-( $at_check_trace; $COMPILE_ONLY -frelax-syntax-checks prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:13: warning: duplicate RECORD clause
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:783"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:787: \$COMPILE_ONLY prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog2.cob" "syn_file.at:787"
-( $at_check_trace; $COMPILE_ONLY prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:20: error: minimal record length 2 can not hold the key item 'TEST-P2'; needs to be at least 6
-prog2.cob:19: error: minimal record length 2 can not hold the key item 'TEST-P1'; needs to be at least 4
-prog2.cob:21: error: minimal record length 2 can not hold the key item 'TEST-P3'; needs to be at least 9
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:787"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:793: \$COMPILE_ONLY -std=cobol2014 prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol2014 prog3.cob" "syn_file.at:793"
-( $at_check_trace; $COMPILE_ONLY -std=cobol2014 prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog3.cob:13: error: size of record 'TEST-REC-1' (4) smaller than minimum of file 'TEST-FILE' (5)
-prog3.cob:15: error: size of record 'TEST-REC-2' (50) larger than maximum of file 'TEST-FILE' (10)
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:793"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:798: \$COMPILE_ONLY prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog3.cob" "syn_file.at:798"
-( $at_check_trace; $COMPILE_ONLY prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog3.cob:13: warning: size of record 'TEST-REC-1' (4) smaller than minimum of file 'TEST-FILE' (5)
-prog3.cob:13: warning: file size adjusted
-prog3.cob:15: warning: size of record 'TEST-REC-2' (50) larger than maximum of file 'TEST-FILE' (10)
-prog3.cob:15: warning: file size adjusted
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:798"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_200
-#AT_START_201
-at_fn_group_banner 201 'syn_file.at:808' \
- "variable record length DEPENDING item" " " 2
-at_xfail=no
-(
- printf "%s\n" "201. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN TO 'FILE-TEST'
- ORGANIZATION IS SEQUENTIAL.
- SELECT TEST-FIL2 ASSIGN TO 'FILE-TEST-2'
- ORGANIZATION IS SEQUENTIAL.
- SELECT TEST-FIL3 ASSIGN TO 'FILE-TEST-3'
- ORGANIZATION IS SEQUENTIAL.
- SELECT TEST-FIL4 ASSIGN TO 'FILE-TEST-4'
- ORGANIZATION IS SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE
- RECORD IS VARYING IN SIZE
- FROM 12 TO 125 CHARACTERS
- DEPENDING ON RECORDSIZE.
- 01 TEST-REC.
- 05 FILLER PIC X(40).
- FD TEST-FIL2
- RECORD IS VARYING IN SIZE
- FROM 20 TO 250 CHARACTERS
- DEPENDING ON TEST-FILE.
- 01 TEST-REC2.
- 05 FILLER PIC X(129).
- 05 RECORDSIZE3 PIC 9(04).
- 05 RECORDSIZE4 PIC X(04).
- FD TEST-FIL3
- RECORD IS VARYING IN SIZE
- FROM 40 TO 50 CHARACTERS
- DEPENDING ON RECORDSIZE3.
- 01 TEST-REC3.
- 05 FILLER PIC X(50).
- FD TEST-FIL4
- RECORD IS VARYING IN SIZE
- FROM 1 TO 2 CHARACTERS
- DEPENDING ON RECORDSIZE4.
- 01 TEST-REC4.
- 05 FILLER PIC X(2).
- PROCEDURE DIVISION.
- OPEN INPUT TEST-FILE.
- CLOSE TEST-FILE.
- OPEN INPUT TEST-FIL2.
- CLOSE TEST-FIL2.
- OPEN INPUT TEST-FIL3.
- CLOSE TEST-FIL3.
- OPEN INPUT TEST-FIL4.
- CLOSE TEST-FIL4.
- STOP RUN.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN TO 'FILE-TEST'
- ORGANIZATION IS SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE
- RECORD CONTAINS 12 TO 125 CHARACTERS
- DEPENDING ON RECORDSIZE.
- 01 TEST-REC.
- 05 FILLER PIC X(40).
- PROCEDURE DIVISION.
- OPEN INPUT TEST-FILE.
- CLOSE TEST-FILE.
- STOP RUN.
-_ATEOF
-
-
-# FIXME: the check misses "prog.cob:40: error: RECORD DEPENDING item must be unsigned numeric"
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:887: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:887"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:20: error: 'RECORDSIZE' is not defined
-prog.cob:26: error: RECORD DEPENDING must reference a data-item
-prog.cob:34: error: RECORD DEPENDING item 'RECORDSIZE3' should be defined in WORKING-STORAGE, LOCAL-STORAGE or LINKAGE SECTION
-prog.cob:40: error: RECORD DEPENDING item 'RECORDSIZE4' should be defined in WORKING-STORAGE, LOCAL-STORAGE or LINKAGE SECTION
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:887"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:893: \$COMPILE_ONLY -frelax-syntax-checks prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -frelax-syntax-checks prog.cob" "syn_file.at:893"
-( $at_check_trace; $COMPILE_ONLY -frelax-syntax-checks prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:20: error: 'RECORDSIZE' is not defined
-prog.cob:26: error: RECORD DEPENDING must reference a data-item
-prog.cob:34: warning: RECORD DEPENDING item 'RECORDSIZE3' should be defined in WORKING-STORAGE, LOCAL-STORAGE or LINKAGE SECTION
-prog.cob:40: warning: RECORD DEPENDING item 'RECORDSIZE4' should be defined in WORKING-STORAGE, LOCAL-STORAGE or LINKAGE SECTION
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:893"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:899: \$COMPILE_ONLY -frecord-contains-depending-clause=error prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -frecord-contains-depending-clause=error prog2.cob" "syn_file.at:899"
-( $at_check_trace; $COMPILE_ONLY -frecord-contains-depending-clause=error prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:13: error: RECORD CONTAINS DEPENDING used
-prog2.cob:13: error: 'RECORDSIZE' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:899"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:903: \$COMPILE_ONLY -frecord-contains-depending-clause=ok prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -frecord-contains-depending-clause=ok prog2.cob" "syn_file.at:903"
-( $at_check_trace; $COMPILE_ONLY -frecord-contains-depending-clause=ok prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:13: error: 'RECORDSIZE' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:903"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_201
-#AT_START_202
-at_fn_group_banner 202 'syn_file.at:910' \
- "DECLARATIVES invalid procedure reference (1)" " " 2
-at_xfail=no
-(
- printf "%s\n" "202. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT GO-FILE ASSIGN "./TEST-FILE"
- ORGANIZATION IS LINE SEQUENTIAL.
- SELECT PERF-FILE ASSIGN "./TEST-FILE"
- ORGANIZATION IS LINE SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD GO-FILE.
- 01 GO-REC PIC X(4).
- FD PERF-FILE.
- 01 PERF-REC PIC X(4).
- PROCEDURE DIVISION.
- DECLARATIVES.
- G01 SECTION.
- USE AFTER ERROR PROCEDURE ON GO-FILE.
- G02.
- DISPLAY "OK".
- * explicit check both PERFORM and GO TO - silencing its warning
- GO TO GG02.
- P01 SECTION.
- USE AFTER ERROR PROCEDURE ON PERF-FILE.
- P02.
- DISPLAY "OK"
- END-DISPLAY.
- * programs may do this -> nothing happens there with PERF-FILE
- PERFORM PPOK.
- * programs should not do this
- * (the compiler currently cannot distinguish this)
- PERFORM PP02.
- END DECLARATIVES.
- GG01 SECTION.
- GG02.
- OPEN INPUT GO-FILE.
- CLOSE GO-FILE.
- PP01 SECTION.
- PP02.
- OPEN INPUT PERF-FILE.
- CLOSE PERF-FILE.
- PP03.
- DISPLAY 'LOG OUTPUT HERE'.
- PPOK.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:962: \$COMPILE_ONLY -Wno-dialect -Wno-goto-different-section prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wno-dialect -Wno-goto-different-section prog.cob" "syn_file.at:962"
-( $at_check_trace; $COMPILE_ONLY -Wno-dialect -Wno-goto-different-section prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:962"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:964: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:964"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in section 'G01':
-prog.cob: in paragraph 'G02':
-prog.cob:24: warning: 'GG02' is not in DECLARATIVES
-prog.cob: in section 'P01':
-prog.cob: in paragraph 'P02':
-prog.cob:31: warning: 'PPOK' is not in DECLARATIVES
-prog.cob:34: warning: 'PP02' is not in DECLARATIVES
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:964"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:974: \$COMPILE_ONLY -freference-out-of-declaratives=ok -Wno-goto-different-section prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -freference-out-of-declaratives=ok -Wno-goto-different-section prog.cob" "syn_file.at:974"
-( $at_check_trace; $COMPILE_ONLY -freference-out-of-declaratives=ok -Wno-goto-different-section prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:974"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:976: \$COMPILE_ONLY -std=cobol2014 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol2014 prog.cob" "syn_file.at:976"
-( $at_check_trace; $COMPILE_ONLY -std=cobol2014 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in section 'G01':
-prog.cob: in paragraph 'G02':
-prog.cob:24: error: 'GG02' is not in DECLARATIVES
-prog.cob: in section 'P01':
-prog.cob: in paragraph 'P02':
-prog.cob:31: error: 'PPOK' is not in DECLARATIVES
-prog.cob:34: error: 'PP02' is not in DECLARATIVES
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:976"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:986: \$COMPILE_ONLY -std=cobol2014 -frelax-syntax prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol2014 -frelax-syntax prog.cob" "syn_file.at:986"
-( $at_check_trace; $COMPILE_ONLY -std=cobol2014 -frelax-syntax prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in section 'G01':
-prog.cob: in paragraph 'G02':
-prog.cob:24: warning: 'GG02' is not in DECLARATIVES
-prog.cob: in section 'P01':
-prog.cob: in paragraph 'P02':
-prog.cob:31: warning: 'PPOK' is not in DECLARATIVES
-prog.cob:34: warning: 'PP02' is not in DECLARATIVES
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:986"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_202
-#AT_START_203
-at_fn_group_banner 203 'syn_file.at:999' \
- "DECLARATIVES invalid procedure reference (2)" " " 2
-at_xfail=no
-(
- printf "%s\n" "203. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN "./TEST-FILE"
- ORGANIZATION IS LINE SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(4).
- PROCEDURE DIVISION.
- DECLARATIVES.
- P01 SECTION.
- USE AFTER ERROR PROCEDURE ON TEST-FILE.
- P02.
- DISPLAY "OK"
- END-DISPLAY.
- END DECLARATIVES.
- PP01 SECTION.
- PP02.
- OPEN INPUT TEST-FILE.
- CLOSE TEST-FILE.
- PERFORM P02.
- GO TO P02.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:1031: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:1031"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in section 'PP01':
-prog.cob: in paragraph 'PP02':
-prog.cob:26: error: invalid reference to 'P02' (in DECLARATIVES)
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:1031"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_203
-#AT_START_204
-at_fn_group_banner 204 'syn_file.at:1040' \
- "EXTERNAL file" " " 2
-at_xfail=no
-(
- printf "%s\n" "204. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT my-file
- ASSIGN TO "somefile"
- ORGANIZATION IS SEQUENTIAL.
-
- DATA DIVISION.
- FILE SECTION.
- FD my-file EXTERNAL.
- 01 my-record.
- 03 my-record-data PIC X(80).
-
- PROCEDURE DIVISION.
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:1064: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:1064"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:1064"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_204
-#AT_START_205
-at_fn_group_banner 205 'syn_file.at:1068' \
- "RECORDING MODE" " " 2
-at_xfail=no
-(
- printf "%s\n" "205. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT f ASSIGN "f.dat" LINE SEQUENTIAL.
-
- DATA DIVISION.
- FILE SECTION.
- FD f RECORDING MODE IS U.
- 01 x PIC X.
-
- PROCEDURE DIVISION.
- OPEN INPUT f
- CLOSE f
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:1091: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:1091"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:12: error: RECORDING MODE U or S can only be used with RECORD SEQUENTIAL files
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:1091"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_205
-#AT_START_206
-at_fn_group_banner 206 'syn_file.at:1097' \
- "CODE-SET clause" " " 2
-at_xfail=no
-(
- printf "%s\n" "206. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- ALPHABET A IS ASCII, ALPHABET EBC IS EBCDIC.
-
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT f, ASSIGN "f.dat", LINE SEQUENTIAL.
- SELECT g, ASSIGN "g.dat", SEQUENTIAL.
- SELECT h, ASSIGN "h.dat", LINE SEQUENTIAL.
- SELECT i, ASSIGN "i.dat", SEQUENTIAL.
-
- DATA DIVISION.
- FILE SECTION.
- FD f CODE-SET A.
- 01 f-rec PIC X(10).
-
- FD g CODE-SET foo.
- 01 g-rec PIC X(10).
-
- FD h CODE-SET ebcdic.
- 01 h-rec PIC X(10).
-
- FD i CODE-SET ebc FOR h-rec.
- 01 i-rec PIC X(10).
-_ATEOF
-
-
-# FIXME: this test will false-positive fail on EBCDIC machines
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:1133: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:1133"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:19: note: ignoring CODE-SET 'A'
-prog.cob:22: error: 'foo' is not defined
-prog.cob:22: error: 'foo' is not an alphabet-name
-prog.cob:25: error: 'ebcdic' cannot be used here
-prog.cob:25: error: 'ebcdic' is not an alphabet-name
-prog.cob:28: warning: handling of CODE-SET is unfinished; implementation is likely to be changed
-prog.cob:28: error: FOR item 'h-rec' is a record
-prog.cob:28: error: FOR item 'h-rec' is not in a record associated with 'FILE i'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:1133"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_206
-#AT_START_207
-at_fn_group_banner 207 'syn_file.at:1147' \
- "CODE-SET FOR clause" " " 2
-at_xfail=no
-(
- printf "%s\n" "207. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- ALPHABET A IS EBCDIC.
-
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT f ASSIGN "f.dat" LINE SEQUENTIAL.
-
- DATA DIVISION.
- FILE SECTION.
- FD f CODE-SET A FOR x, y, z.
- 01 x.
- 03 y PIC X(10).
- 01 x-2.
- 03 z PIC X(10).
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:1172: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:1172"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:16: warning: handling of CODE-SET is unfinished; implementation is likely to be changed
-prog.cob:16: error: FOR item 'x' is a record
-prog.cob:16: error: FOR item 'z' is in different record to 'x'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:1172"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_207
-#AT_START_208
-at_fn_group_banner 208 'syn_file.at:1180' \
- "WRITE / REWRITE FROM clause and FILE" " " 2
-at_xfail=no
-(
- printf "%s\n" "208. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN TO 'FILE-TEST'
- ORGANIZATION IS INDEXED
- ACCESS MODE IS DYNAMIC
- RECORD KEY IS TEST-P1.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC.
- 05 TEST-P1 PIC X(4).
- 05 TEST-P2 PIC S9(4) COMP.
- WORKING-STORAGE SECTION.
- 01 SOME-REC PIC X(04).
- 88 SOME-VAL VALUE 'ABCD'.
- PROCEDURE DIVISION.
- OPEN I-O TEST-FILE.
- WRITE SOME-VAL.
- WRITE SOME-REC.
- WRITE TEST-REC.
- WRITE TEST-REC FROM SOME-REC.
- WRITE TEST-FILE.
- WRITE FILE TEST-REC.
- WRITE FILE TEST-FILE.
- WRITE FILE TEST-FILE FROM TEST-REC.
- WRITE FILE TEST-FILE FROM SOME-REC.
- REWRITE SOME-VAL.
- REWRITE SOME-REC.
- REWRITE TEST-REC.
- REWRITE TEST-REC FROM SOME-REC.
- REWRITE TEST-FILE.
- REWRITE FILE TEST-REC.
- REWRITE FILE TEST-FILE.
- REWRITE FILE TEST-FILE FROM TEST-REC.
- REWRITE FILE TEST-FILE FROM SOME-REC.
- CLOSE TEST-FILE.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:1226: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:1226"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:22: error: condition-name not allowed here: 'SOME-VAL'
-prog.cob:23: error: WRITE subject does not refer to a record name
-prog.cob:26: error: WRITE requires a record name as subject
-prog.cob:27: error: 'TEST-REC' is not a file name
-prog.cob:28: error: WRITE FILE requires a FROM clause
-prog.cob:31: error: condition-name not allowed here: 'SOME-VAL'
-prog.cob:32: error: REWRITE subject does not refer to a record name
-prog.cob:35: error: REWRITE requires a record name as subject
-prog.cob:36: error: 'TEST-REC' is not a file name
-prog.cob:37: error: REWRITE FILE requires a FROM clause
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:1226"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_208
-#AT_START_209
-at_fn_group_banner 209 'syn_file.at:1241' \
- "Clauses following invalid ACCESS clause" " " 2
-at_xfail=no
-(
- printf "%s\n" "209. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT testfile
- ASSIGN TO filename
- ORGANIZATION RELATIVE
- ACCESS IS sequentia
- STATUS IS stat.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:1258: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:1258"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:11: error: syntax error, unexpected Identifier, expecting DYNAMIC or RANDOM or SEQUENTIAL
-prog.cob:8: error: missing file description for FILE testfile
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:1258"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_209
-#AT_START_210
-at_fn_group_banner 210 'syn_file.at:1265' \
- "RELATIVE KEY type validation" " " 2
-at_xfail=no
-(
- printf "%s\n" "210. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT FILE1 ASSIGN DISK
- ORGANIZATION RELATIVE ACCESS MODE RANDOM
- RELATIVE KEY FILE1-KEY.
- SELECT FILE2 ASSIGN DISK
- ORGANIZATION RELATIVE ACCESS MODE RANDOM
- RELATIVE KEY FILE2-KEY.
- SELECT FILE3 ASSIGN DISK
- ORGANIZATION RELATIVE ACCESS MODE RANDOM
- RELATIVE KEY FILE3-KEY.
- SELECT FILE4 ASSIGN DISK
- ORGANIZATION RELATIVE ACCESS MODE RANDOM
- RELATIVE KEY FILE4-KEY.
- SELECT FILE5 ASSIGN DISK
- ORGANIZATION RELATIVE ACCESS MODE RANDOM
- RELATIVE KEY FILE5-KEY.
- DATA DIVISION.
- FILE SECTION.
- FD FILE1.
- 01 FILE1-REC PIC X.
- FD FILE2.
- 01 FILE2-REC PIC X.
- FD FILE3.
- 01 FILE3-REC PIC X.
- FD FILE4.
- 01 FILE4-REC.
- 05 FLD1 PIC X.
- 05 FILE4-KEY PIC 999.
- FD FILE5.
- 01 FILE5-REC PIC X.
- WORKING-STORAGE SECTION.
- 77 FILE1-KEY PIC XXXX.
- 01 FILE2-KEY.
- 05 F2-KEY PIC 9(5).
- 01 F3-KEY.
- 05 FILE3-KEY PIC 9(5) OCCURS 2 TIMES.
- 77 FILE5-KEY PIC 999V9.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:1314: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:1314"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: file FILE1: RELATIVE KEY FILE1-KEY is not numeric
-prog.cob:12: error: file FILE2: RELATIVE KEY FILE2-KEY is not numeric
-prog.cob:15: error: file FILE3: RELATIVE KEY FILE3-KEY cannot have OCCURS
-prog.cob:18: error: RELATIVE KEY FILE4-KEY cannot be in file record belonging to FILE4
-prog.cob:21: error: file FILE5: RELATIVE KEY FILE5-KEY must be integer
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:1314"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_210
-#AT_START_211
-at_fn_group_banner 211 'syn_file.at:1325' \
- "Mismatched KEY clause" " " 2
-at_xfail=no
-(
- printf "%s\n" "211. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT file-1 ASSIGN DISK,
- INDEXED, RELATIVE KEY file-1-key.
- SELECT file-2 ASSIGN DISK,
- RELATIVE, RECORD KEY file-2-key.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:1340: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:1340"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: error: cannot use RELATIVE KEY clause on INDEXED files
-prog.cob:10: error: cannot use RECORD KEY clause on RELATIVE files
-prog.cob:7: error: missing file description for FILE file-1
-prog.cob:8: error: 'file-1-key' is not defined
-prog.cob:9: error: missing file description for FILE file-2
-prog.cob:10: error: 'file-2-key' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:1340"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_211
-#AT_START_212
-at_fn_group_banner 212 'syn_file.at:1352' \
- "RECORD DELIMITER" " " 2
-at_xfail=no
-(
- printf "%s\n" "212. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- *> Valid.
- SELECT good-1 ASSIGN "a"
- RECORD DELIMITER LINE-SEQUENTIAL.
-
- SELECT good-2 ASSIGN "a"
- SEQUENTIAL
- RECORD DELIMITER LINE-SEQUENTIAL.
-
- SELECT good-3 ASSIGN "a"
- RECORD DELIMITER LINE-SEQUENTIAL
- LINE SEQUENTIAL.
-
- SELECT good-4 ASSIGN "a"
- RECORD DELIMITER BINARY-SEQUENTIAL.
-
- *> Warning.
- SELECT ok-i-guess-1 ASSIGN "a"
- RECORD DELIMITER STANDARD-1.
-
- SELECT ok-i-guess-2 ASSIGN "a"
- RECORD DELIMITER THE-END-OF-THE-WORLD.
-
- *> Not valid.
- SELECT bad-1 ASSIGN "a"
- RECORD DELIMITER LINE-SEQUENTIAL
- INDEXED
- RECORD KEY bad-1-rec.
-
- SELECT bad-2 ASSIGN "a"
- INDEXED
- RECORD KEY bad-2-rec
- RECORD DELIMITER LINE-SEQUENTIAL.
-
- SELECT bad-3 ASSIGN "a"
- LINE SEQUENTIAL
- RECORD DELIMITER BINARY-SEQUENTIAL.
-
- SELECT bad-4 ASSIGN "a"
- LINE SEQUENTIAL
- RECORD DELIMITER STANDARD-1.
-
- SELECT bad-5 ASSIGN "a"
- RECORD DELIMITER BINARY-SEQUENTIAL.
-
- DATA DIVISION.
- FILE SECTION.
- FD good-1.
- 01 good-1-rec PIC 9.
- 01 good-1-rec-2 PIC 99.
-
- FD good-2 RECORD VARYING FROM 1 TO 5 CHARACTERS.
- 01 good-2-rec PIC 9.
-
- FD good-3.
- 01 good-3-rec PIC 9.
- 01 good-3-rec-2 PIC 99.
-
- FD good-4 RECORD CONTAINS 1 TO 5 CHARACTERS.
- 01 good-4-rec PIC 9.
-
- FD ok-i-guess-1.
- 01 ok-i-guess-1-rec PIC 9.
- 01 ok-i-guess-1-rec-2 PIC 99.
-
- FD ok-i-guess-2.
- 01 ok-i-guess-2-rec PIC 9.
- 01 ok-i-guess-2-rec-2 PIC 99.
-
- FD bad-1.
- 01 bad-1-rec PIC 9.
-
- FD bad-2.
- 01 bad-2-rec PIC 9.
-
- FD bad-3.
- 01 bad-3-rec PIC 9.
-
- FD bad-4.
- 01 bad-4-rec PIC 9.
-
- FD bad-5 RECORD CONTAINS 1 CHARACTERS.
- 01 bad-5-rec PIC 9.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:1446: \$COMPILE_ONLY -frecord-delim-with-fixed-recs=warning prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -frecord-delim-with-fixed-recs=warning prog.cob" "syn_file.at:1446"
-( $at_check_trace; $COMPILE_ONLY -frecord-delim-with-fixed-recs=warning prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:25: warning: RECORD DELIMITER STANDARD-1 ignored
-prog.cob:28: warning: RECORD DELIMITER THE-END-OF-THE-WORLD not recognized; will be ignored
-prog.cob:33: error: ORGANIZATION INDEXED is incompatible with RECORD DELIMITER
-prog.cob:39: error: RECORD DELIMITER LINE-SEQUENTIAL only allowed with (LINE) SEQUENTIAL files
-prog.cob:36: error: RECORD clause is invalid for file 'bad-2' (file type)
-prog.cob:43: error: RECORD DELIMITER BINARY-SEQUENTIAL only allowed with SEQUENTIAL files
-prog.cob:47: error: RECORD DELIMITER STANDARD-1 only allowed with SEQUENTIAL files
-prog.cob:76: warning: RECORD DELIMITER clause on file with fixed-length records used
-prog.cob:88: warning: RECORD DELIMITER clause on file with fixed-length records used
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:1446"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_212
-#AT_START_213
-at_fn_group_banner 213 'syn_file.at:1460' \
- "FILE STATUS" " " 2
-at_xfail=no
-(
- printf "%s\n" "213. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT f ASSIGN "f.txt" FILE STATUS fs.
- SELECT g ASSIGN "g.txt" FILE STATUS gs.
- SELECT h ASSIGN "h.txt" FILE STATUS hs.
- SELECT j ASSIGN "j.txt" FILE STATUS js.
- SELECT k ASSIGN "k.txt" FILE STATUS ks.
- SELECT l ASSIGN "l.txt" FILE STATUS ls.
- SELECT m ASSIGN "m.txt" FILE STATUS ms.
- SELECT n ASSIGN "n.txt" FILE STATUS ns.
- SELECT o ASSIGN "o.txt" FILE STATUS os.
- SELECT p ASSIGN "p.txt" FILE STATUS ps.
- SELECT q ASSIGN "q.txt" FILE STATUS non-existent.
- SELECT r ASSIGN "r.txt" FILE STATUS rs.
-
- DATA DIVISION.
- FILE SECTION.
- FD f.
- 01 hs PIC XX.
- FD g.
- 01 g-rec PIC X.
- FD h.
- 01 h-rec PIC X.
- FD j.
- 01 j-rec PIC X.
- FD k.
- 01 k-rec PIC X.
- FD l.
- 01 l-rec PIC X.
- FD m.
- 01 m-rec PIC X.
- FD n.
- 01 n-rec PIC X.
- FD o.
- 01 o-rec PIC X.
- FD p.
- 01 p-rec PIC X.
- FD q.
- 01 q-rec PIC X.
- FD r.
- 01 r-rec PIC X.
-
- WORKING-STORAGE SECTION.
- *> Valid
- 01 fs PIC XX.
-
- LOCAL-STORAGE SECTION.
- *> Valid, but warning
- 01 gs PIC 99.
-
- *> Invalid
- 01 js PIC N.
- 01 ks PIC XX COMP-X.
- 01 ls PIC V99.
- 01 ms PIC 99PP.
- 01 ns PIC XXX.
- 01 x.
- 03 y PIC 99.
- 03 z PIC XX OCCURS 1 TO 10 TIMES DEPENDING ON y.
- 03 os PIC XX.
- 88 ps VALUE "00".
- 03 z2 PIC XX OCCURS 1 TO 10 TIMES DEPENDING ON y.
-
- 01 rs CONSTANT "00".
-
- PROCEDURE DIVISION.
- CONTINUE
- .
- END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:1539: \$COMPILE_ONLY -fodoslide prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fodoslide prog.cob" "syn_file.at:1539"
-( $at_check_trace; $COMPILE_ONLY -fodoslide prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:18: error: 'non-existent' is not defined
-prog.cob:9: warning: FILE STATUS 'gs' is a numeric field, but I-O status codes are not numeric in general
-prog.cob:10: error: FILE STATUS 'hs' must be in WORKING-STORAGE, LOCAL-STORAGE or LINKAGE
-prog.cob:11: error: FILE STATUS 'js' must be an alphanumeric or numeric field
-prog.cob:12: warning: FILE STATUS 'ks' is a numeric field, but I-O status codes are not numeric in general
-prog.cob:12: error: FILE STATUS 'ks' must be USAGE DISPLAY
-prog.cob:13: error: FILE STATUS 'ls' may not be a decimal or have a PIC with a P
-prog.cob:14: error: FILE STATUS 'ms' may not be a decimal or have a PIC with a P
-prog.cob:15: error: FILE STATUS 'ns' must be 2 characters long
-prog.cob:16: error: FILE STATUS 'os' may not be located after an OCCURS DEPENDING field
-prog.cob:17: error: FILE STATUS 'ps' must be an alphanumeric or numeric field
-prog.cob:19: error: FILE STATUS 'rs' is not a field
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:1539"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_213
-#AT_START_214
-at_fn_group_banner 214 'syn_file.at:1556' \
- "VSAM status" " " 2
-at_xfail=no
-(
- printf "%s\n" "214. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT file1 ASSIGN TO 'FILE-TEST'
- ORGANIZATION IS INDEXED
- ACCESS MODE IS DYNAMIC
- RECORD KEY IS file1-key
- STATUS IS STATUS-1.
- SELECT file2 ASSIGN TO 'FILE-TEST'
- ORGANIZATION IS INDEXED
- ACCESS MODE IS DYNAMIC
- RECORD KEY IS file2-key
- STATUS IS STATUS-1, STATUS-2.
- DATA DIVISION.
- FILE SECTION.
- FD FILE1.
- 01 FILE1-REC.
- 05 FILE1-KEY PIC X.
- FD FILE2.
- 01 FILE2-REC.
- 05 FILE2-KEY PIC 9.
- 05 FILE2-DAT PIC X.
- WORKING-STORAGE SECTION.
- 77 STATUS-1 PIC X(02).
- 77 STATUS-2 PIC X(06).
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:1591: \$COMPILE_ONLY -std=ibm prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=ibm prog.cob" "syn_file.at:1591"
-( $at_check_trace; $COMPILE_ONLY -std=ibm prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:1591"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:1592: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:1592"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:16: warning: VSAM status ignored
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:1592"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:1595: \$COMPILE_ONLY -std=cobol2014 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol2014 prog.cob" "syn_file.at:1595"
-( $at_check_trace; $COMPILE_ONLY -std=cobol2014 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:16: error: VSAM status does not conform to COBOL 2014
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:1595"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_214
-#AT_START_215
-at_fn_group_banner 215 'syn_file.at:1602' \
- "INDEXED file PASSWORD clause" " " 2
-at_xfail=no
-(
- printf "%s\n" "215. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT file1 ASSIGN TO 'FILE-TEST'
- ORGANIZATION IS INDEXED
- ACCESS MODE IS DYNAMIC
- RECORD KEY IS file1-key PASSWORD IS PASS1
- STATUS IS FSTAT.
- SELECT file2 ASSIGN TO 'FILE-TEST-EXT'
- ORGANIZATION IS INDEXED
- ACCESS MODE IS DYNAMIC
- RECORD KEY IS file2-key PASSWORD IS PASS2
- ALTERNATE RECORD KEY IS NOTHEREKEY
- SOURCE IS file2-dat file2-key
- PASSWORD IS PASS-EXT
- STATUS IS FSTAT.
- DATA DIVISION.
- FILE SECTION.
- FD FILE1.
- 01 FILE1-REC.
- 05 FILE1-KEY PIC X.
- FD FILE2 EXTERNAL.
- 01 FILE2-REC.
- 05 FILE2-KEY PIC 9.
- 05 FILE2-DAT PIC X.
- WORKING-STORAGE SECTION.
- 77 FSTAT PIC X(02).
- *> note: IBM specifies PASSWORDs are cut at / space filled to 8 bytes
- 77 PASS1 PIC X(08).
- 77 PASS2 PIC X(10).
- 77 PASS-EXT PIC X(04) EXTERNAL.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:1643: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:1643"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: warning: PASSWORD clause is not implemented
-prog.cob:15: warning: PASSWORD clause is not implemented
-prog.cob:18: warning: PASSWORD clause is not implemented
-prog.cob:15: error: PASSWORD 'PASS2' for EXTERNAL file 'file2' must have EXTERNAL attribute
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:1643"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_215
-#AT_START_216
-at_fn_group_banner 216 'syn_file.at:1653' \
- "RECORD clause equal limits" " " 2
-at_xfail=no
-(
- printf "%s\n" "216. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT f1 ASSIGN "f1".
- SELECT f2 ASSIGN "f2".
- SELECT f3 ASSIGN "f3".
- SELECT f4 ASSIGN "f4".
-
- DATA DIVISION.
- FILE SECTION.
- FD f1 RECORD VARYING.
- 01 f1-rec-1 PIC X.
- 01 f1-rec-2 PIC 9.
-
- FD f2 RECORD VARYING 1 TO 1.
- 01 f2-rec PIC X.
-
- FD f3 RECORD 1 TO 1.
- 01 f3-rec PIC X.
-
- FD f4 RECORD IS VARYING IN SIZE.
- 01 f4-rec-1 PIC X.
- 01 f4-rec-2 PIC 99.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:1685: \$COMPILE_ONLY -Wadditional prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wadditional prog.cob" "syn_file.at:1685"
-( $at_check_trace; $COMPILE_ONLY -Wadditional prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:15: warning: RECORD VARYING specified without limits, but implied limits are equal
-prog.cob:19: error: RECORD clause invalid
-prog.cob:22: error: RECORD clause invalid
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:1685"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_216
-#AT_START_217
-at_fn_group_banner 217 'syn_file.at:1693' \
- "FILE ... FROM literal" " " 2
-at_xfail=no
-(
- printf "%s\n" "217. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT f ASSIGN TO "ssad".
-
- DATA DIVISION.
- FILE SECTION.
- FD f.
- 01 f-rec PIC 999999.
-
- WORKING-STORAGE SECTION.
- 01 num PIC 9(6) VALUE 123456.
-
- PROCEDURE DIVISION.
- OPEN OUTPUT f
- WRITE FILE f FROM zero
- WRITE FILE f FROM 0
- WRITE FILE f FROM "abc"
- REWRITE FILE f FROM zero
- REWRITE FILE f FROM 0
- REWRITE FILE f FROM "abc"
- CLOSE f
- .
-_ATEOF
-
-
-# FIXME: the references to ZERO should actually show one less
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:1727: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:1727"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:21: error: figurative constants not allowed in FROM clause
-prog.cob:21: error: literal in FROM clause must be alphanumeric, utf-8, national or boolean
-prog.cob:22: warning: numeric value is expected
-prog.cob:13: note: 'f-rec' defined here as PIC 999999
-prog.cob:24: error: figurative constants not allowed in FROM clause
-prog.cob:24: error: literal in FROM clause must be alphanumeric, utf-8, national or boolean
-prog.cob:25: warning: numeric value is expected
-prog.cob:13: note: 'f-rec' defined here as PIC 999999
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:1727"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:1737: \$COMPILE_ONLY -frelax-syntax-checks prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -frelax-syntax-checks prog.cob" "syn_file.at:1737"
-( $at_check_trace; $COMPILE_ONLY -frelax-syntax-checks prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:22: warning: numeric value is expected
-prog.cob:13: note: 'f-rec' defined here as PIC 999999
-prog.cob:25: warning: numeric value is expected
-prog.cob:13: note: 'f-rec' defined here as PIC 999999
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:1737"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:1743: \$COMPILE_ONLY -std=mf-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=mf-strict prog.cob" "syn_file.at:1743"
-( $at_check_trace; $COMPILE_ONLY -std=mf-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:22: warning: source is non-numeric - substituting zero
-prog.cob:25: warning: source is non-numeric - substituting zero
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:1743"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_217
-#AT_START_218
-at_fn_group_banner 218 'syn_file.at:1752' \
- "WRITE / REWRITE on REPORT files" " " 2
-at_xfail=no
-(
- printf "%s\n" "218. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT f ASSIGN TO "ssad" LINE SEQUENTIAL.
-
- DATA DIVISION.
- FILE SECTION.
- FD f REPORT f-rep.
- 01 f-rec PIC X(05).
-
- REPORT SECTION.
- RD f-rep.
- 01 f-rep-line TYPE DE PIC XXX.
-
- PROCEDURE DIVISION.
- OPEN OUTPUT f
- WRITE FILE f FROM "abc"
- REWRITE FILE f FROM "abc"
- CLOSE f
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:1781: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:1781"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:21: error: WRITE not allowed on REPORT files
-prog.cob:22: error: REWRITE not allowed on REPORT files
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:1781"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_218
-#AT_START_219
-at_fn_group_banner 219 'syn_file.at:1789' \
- "SELECT without fd-name" " " 2
-at_xfail=no
-(
- printf "%s\n" "219. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT ASSIGN "asd".
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:1802: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:1802"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: error: syntax error, unexpected ASSIGN, expecting Identifier
-prog.cob:8: error: syntax error, unexpected Literal
-prog.cob:8: error: missing file description for FILE SELECT on line 8
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:1802"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_219
-#AT_START_220
-at_fn_group_banner 220 'syn_file.at:1810' \
- "Undeclared FILE-ID variable" " " 2
-at_xfail=no
-(
- printf "%s\n" "220. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT file1 ASSIGN DISK.
- DATA DIVISION.
- FILE SECTION.
- FD file1 VALUE OF FILE-ID fid-file1.
- 01 file1-rec PIC X.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:1828: \$COMPILE_ONLY -Wimplicit-define prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wimplicit-define prog.cob" "syn_file.at:1828"
-( $at_check_trace; $COMPILE_ONLY -Wimplicit-define prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: warning: VALUE OF is obsolete in GnuCOBOL
-prog.cob:12: warning: variable 'fid-file1' will be implicitly defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:1828"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_220
-#AT_START_221
-at_fn_group_banner 221 'syn_file.at:1835' \
- "ASSIGN external-name matching filename" " " 2
-at_xfail=no
-(
- printf "%s\n" "221. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT SYSUT1 ASSIGN TO sysut1.
- DATA DIVISION.
- FILE SECTION.
- FD SYSUT1.
- 01 SYSUT1-REC PIC X(4).
- PROCEDURE DIVISION.
- OPEN INPUT SYSUT1.
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:1855: \$COMPILE_ONLY -fassign-clause=external prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fassign-clause=external prog.cob" "syn_file.at:1855"
-( $at_check_trace; $COMPILE_ONLY -fassign-clause=external prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:1855"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# ASSIGN dynamic should still work here, it is to be seen as literal
-# as long as it matches the file name (note: it still differs as "external"
-# would also cut "labels" from the literal
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:1859: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:1859"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:1859"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_221
-#AT_START_222
-at_fn_group_banner 222 'syn_file.at:1863' \
- "Undeclared ASSIGN variable" " " 2
-at_xfail=no
-(
- printf "%s\n" "222. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE
- ASSIGN GLOB-PATH
- .
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE GLOBAL.
- 01 TEST-REC PIC X(4).
- WORKING-STORAGE SECTION.
- 78 GLOB-PATH GLOBAL VALUE "GLOBP1".
- 01 GLOB-PATH2 CONSTANT GLOBAL "GLOBP2".
- * Test global vars because of implicitly defined ASSIGN var, too.
- 78 GLOB-VAR GLOBAL VALUE "GLOBV1".
- 01 GLOB-VAR2 CONSTANT GLOBAL "GLOBV2".
- PROCEDURE DIVISION.
- DISPLAY GLOB-PATH GLOB-VAR
- END-DISPLAY.
- CALL "prog2"
- END-CALL.
- CALL "prog3"
- END-CALL.
- STOP RUN.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST2-FILE
- ASSIGN GLOB-PATH2
- .
- DATA DIVISION.
- FILE SECTION.
- FD TEST2-FILE GLOBAL.
- 01 TEST2-REC PIC X(4).
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY GLOB-PATH2 GLOB-VAR2
- END-DISPLAY.
- EXIT PROGRAM.
- END PROGRAM prog2.
- END PROGRAM prog.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST3-FILE
- ASSIGN GLOB-PATH
- .
- DATA DIVISION.
- FILE SECTION.
- FD TEST3-FILE GLOBAL.
- 01 TEST3-REC PIC X(4).
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY 'in prog3'
- END-DISPLAY
- IF GLOB-PATH NOT = SPACES
- DISPLAY GLOB-PATH
- END-DISPLAY
- END-IF
- EXIT PROGRAM.
- END PROGRAM prog3.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:1936: \$COMPILE_ONLY -Wimplicit-define prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wimplicit-define prog.cob" "syn_file.at:1936"
-( $at_check_trace; $COMPILE_ONLY -Wimplicit-define prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:60: warning: variable 'GLOB-PATH' will be implicitly defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:1936"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_222
-#AT_START_223
-at_fn_group_banner 223 'syn_file.at:1942' \
- "ACCESS RANDOM with ORG SEQUENTIAL" " " 2
-at_xfail=no
-(
- printf "%s\n" "223. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT file1 ASSIGN DISK ORGANIZATION SEQUENTIAL
- ACCESS RANDOM.
- DATA DIVISION.
- FILE SECTION.
- FD file1.
- 01 file1-rec PIC X.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-# TO-DO: Improve error message - say ACCESS RANDOM is incompatible with ORGANIZATION SEQUENTIAL.
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:1962: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:1962"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: error: ORGANIZATION clause is invalid for file 'file1'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:1962"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_223
-#AT_START_224
-at_fn_group_banner 224 'syn_file.at:1969' \
- "ALTERNATE RECORD KEY SUPPRESS WHEN" " " 2
-at_xfail=no
-(
- printf "%s\n" "224. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE
- ASSIGN "TESTFILE"
- ACCESS DYNAMIC
- ORGANIZATION INDEXED
- RECORD KEY TESTKEY-P1
- ALTERNATE RECORD KEY TESTKEY-P2
- WITH DUPLICATES
- SUPPRESS WHEN ZEROES
- ALTERNATE RECORD KEY TESTKEY-P3
- WITH DUPLICATES
- SUPPRESS WHEN SPACES
- ALTERNATE RECORD KEY TESTKEY-P4
- WITH DUPLICATES
- SUPPRESS WHEN ALL "A"
- ALTERNATE RECORD KEY TESTKEY-P5
- WITH DUPLICATES
- SUPPRESS WHEN ALL SPACES
- .
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC.
- 03 TESTKEY-P1 PIC X(4).
- 03 TESTKEY-P2 PIC 9(4).
- 03 TESTDATA PIC X(4).
- 03 TESTKEY-P3 PIC X(4).
- 03 TESTKEY-P4 PIC X(4).
- 03 TESTKEY-P5 PIC X(4).
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:2010: \$COMPILE_ONLY -std=mf prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=mf prog.cob" "syn_file.at:2010"
-( $at_check_trace; $COMPILE_ONLY -std=mf prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:2010"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_224
-#AT_START_225
-at_fn_group_banner 225 'syn_file.at:2014' \
- "RECORD definition with SOURCE IS / =" " " 2
-at_xfail=no
-(
- printf "%s\n" "225. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE1
- ASSIGN "TESTFILE"
- ACCESS DYNAMIC
- ORGANIZATION INDEXED
- RECORD KEY TESTKEY-P1 OF TEST-REC1
- ALTERNATE RECORD KEY
- TEST1KEY2 = TESTKEY-P2 OF TEST-REC1,
- TESTKEY-P3 OF TEST-REC1
- WITH DUPLICATES
- .
- SELECT TEST-FILE2
- ASSIGN "TESTFILE"
- ACCESS DYNAMIC
- ORGANIZATION INDEXED
- RECORD KEY TESTKEY-P1 OF TEST-REC2
- ALTERNATE RECORD KEY
- TEST2KEY2 SOURCE IS TESTKEY-P2 OF TEST-REC2,
- TESTKEY-P3 OF TEST-REC2
- WITH DUPLICATES
- .
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE1.
- 01 TEST-REC1.
- 03 TESTKEY-P1 PIC X(4).
- 03 TESTKEY-P2 PIC 9(4).
- 03 TESTDATA PIC X(4).
- 03 TESTKEY-P3 PIC X(4).
- FD TEST-FILE2.
- 01 TEST-REC2.
- 03 TESTKEY-P1 PIC X(4).
- 03 TESTKEY-P2 PIC 9(4).
- 03 TESTDATA PIC X(4).
- 03 TESTKEY-P3 PIC X(4).
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:2061: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:2061"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:2061"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_225
-#AT_START_226
-at_fn_group_banner 226 'syn_file.at:2065' \
- "ALTERNATE RECORD definition WITH NO DUPLICATES" " " 2
-at_xfail=yes
-(
- printf "%s\n" "226. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE
- ASSIGN "TESTFILE"
- ACCESS DYNAMIC
- ORGANIZATION INDEXED
- RECORD KEY TESTKEY1
- ALTERNATE RECORD KEY TESTKEY2
- WITH DUPLICATES
- ALTERNATE RECORD KEY TESTKEY3
- WITH NO DUPLICATES
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:2088: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:2088"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:15: error: non-standard 'NO DUPLICATES'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:2088"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:2091: \$COMPILE_ONLY -frelax-syntax prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -frelax-syntax prog.cob" "syn_file.at:2091"
-( $at_check_trace; $COMPILE_ONLY -frelax-syntax prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:2091"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_226
-#AT_START_227
-at_fn_group_banner 227 'syn_file.at:2095' \
- "ALTERNATE RECORD definition omitting RECORD" " " 2
-at_xfail=yes
-(
- printf "%s\n" "227. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE
- ASSIGN "TESTFILE"
- ACCESS DYNAMIC
- ORGANIZATION INDEXED
- RECORD KEY TESTKEY1
- ALTERNATE KEY TESTKEY2
- .
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:2117: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:2117"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:12: error: 'RECORD' is mandatory here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:2117"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:2120: \$COMPILE_ONLY -frelax-syntax prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -frelax-syntax prog.cob" "syn_file.at:2120"
-( $at_check_trace; $COMPILE_ONLY -frelax-syntax prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:2120"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_227
-#AT_START_228
-at_fn_group_banner 228 'syn_file.at:2124' \
- "SELECT/OPEN syntax extensions" " " 2
-at_xfail=no
-(
- printf "%s\n" "228. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# FIXME: split tests, possibly add dialect configuration,
-# add checks for "mutually exclusive" and ORGANIZATION
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE1
- ASSIGN "TESTFILE1"
- *> WITH ENCRYPTION shift/reduce conflict ?
- ORGANIZATION INDEXED
- ACCESS DYNAMIC
- RECORD KEY TESTKEY-1P1
- WITH DUPLICATES
- ALTERNATE RECORD KEY TESTKEY-1P2
- WITH NO DUPLICATES
- LOCK EXCLUSIVE MASS-UPDATE
- .
- SELECT TEST-FILE2
- ASSIGN "TESTFILE2"
- *> ENCRYPTION shift/reduce conflict ?
- ORGANIZATION INDEXED
- ACCESS DYNAMIC
- RECORD KEY TESTKEY-2P1
- WITH NO DUPLICATES
- ALTERNATE RECORD KEY TESTKEY-2P2
- WITH DUPLICATES
- .
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE1.
- 01 TEST-REC1.
- 03 TESTKEY-1P1 PIC X(4).
- 03 TESTKEY-1P2 PIC 9(4).
- 03 ENCRYPTION PIC X(4).
- FD TEST-FILE2.
- 01 TEST-REC2.
- 03 TESTKEY-2P1 PIC X(4).
- 03 ALLOWING PIC X(4).
- 03 TESTKEY-2P2 PIC 9(4).
- PROCEDURE DIVISION.
- OPEN EXCLUSIVE INPUT TEST-FILE2
- CLOSE TEST-FILE2
- OPEN I-O TEST-FILE1 TEST-FILE2 ALLOWING UPDATERS
- CLOSE TEST-FILE1
- OPEN I-O TEST-FILE1 ALLOWING UPDATERS
- CLOSE TEST-FILE1
- CLOSE TEST-FILE1
- OPEN I-O TEST-FILE1 ALLOWING READERS
- CLOSE TEST-FILE1
- CLOSE TEST-FILE1
- OPEN I-O TEST-FILE1 ALLOWING WRITERS
- CLOSE TEST-FILE1
- CLOSE TEST-FILE1
- OPEN I-O TEST-FILE1 ALLOWING ALL
- CLOSE TEST-FILE1
- CLOSE TEST-FILE1
- OPEN I-O TEST-FILE1 ALLOWING NO
- CLOSE TEST-FILE1
- OPEN I-O TEST-FILE1 ALLOWING NO OTHERS
- CLOSE TEST-FILE1
- OPEN I-O TEST-FILE1 FOR LOCK
- CLOSE TEST-FILE1
- OPEN I-O TEST-FILE1 LOCK
- CLOSE TEST-FILE1
- OPEN I-O TEST-FILE1 BULK-ADDITION
- CLOSE TEST-FILE1
- OPEN I-O TEST-FILE1 MASS-UPDATE
- CLOSE TEST-FILE1
- *
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:2202: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:2202"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:13: warning: DUPLICATES for primary keys is not implemented
-prog.cob:16: warning: WITH MASS-UPDATE is not implemented
-prog.cob:65: warning: WITH BULK-ADDITION is not implemented
-prog.cob:67: warning: WITH MASS-UPDATE is not implemented
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:2202"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:2208: \$COMPILE_ONLY -std=acu-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=acu-strict prog.cob" "syn_file.at:2208"
-( $at_check_trace; $COMPILE_ONLY -std=acu-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:13: warning: DUPLICATES for primary keys is not implemented
-prog.cob:16: warning: WITH MASS-UPDATE is not implemented
-prog.cob:34: error: syntax error, unexpected ENCRYPTION
-prog.cob:38: error: syntax error, unexpected ALLOWING
-prog.cob:65: warning: WITH BULK-ADDITION is not implemented
-prog.cob:67: warning: WITH MASS-UPDATE is not implemented
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:2208"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_228
-#AT_START_229
-at_fn_group_banner 229 'syn_file.at:2219' \
- "GLOBAL FD nested progam" " " 2
-at_xfail=no
-(
- printf "%s\n" "229. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT f ASSIGN "foo.dat"
- ORGANIZATION INDEXED
- RECORD KEY f-key.
-
- DATA DIVISION.
- FILE SECTION.
- FD f GLOBAL.
- 01 f-rec GLOBAL.
- 03 f-key PIC 9.
-
- PROCEDURE DIVISION.
- CALL "output-statement".
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. output-statement.
-
- PROCEDURE DIVISION.
- WRITE f-rec.
- END PROGRAM output-statement.
- END PROGRAM prog.
-_ATEOF
-
-
-# note: we actually want to check codegen -> C compilation here
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:2252: \$COMPILE -std=cobol2002 -Wno-unsupported prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=cobol2002 -Wno-unsupported prog.cob" "syn_file.at:2252"
-( $at_check_trace; $COMPILE -std=cobol2002 -Wno-unsupported prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_file.at:2252"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_229
-#AT_START_230
-at_fn_group_banner 230 'syn_file.at:2257' \
- "Invalid file name in SELECT" " " 2
-at_xfail=no
-(
- printf "%s\n" "230. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. HELLO.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT input ASSIGN "in.txt".
-
- DATA DIVISION.
- FILE SECTION.
- FD input.
- 01 input-rec PIC X.
-
- PROCEDURE DIVISION.
- CONTINUE
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_file.at:2279: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_file.at:2279"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: error: syntax error, unexpected INPUT, expecting Identifier
-prog.cob:12: error: syntax error, unexpected INPUT, expecting Identifier
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_file.at:2279"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_230
-#AT_START_231
-at_fn_group_banner 231 'syn_reportwriter.at:23' \
- "REPORT error/warning" " " 2
-at_xfail=no
-(
- printf "%s\n" "231. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TRANSACTION-DATA
- ASSIGN TO EXTERNAL DATAIN
- ORGANIZATION IS LINE SEQUENTIAL.
-
- SELECT REPORT-FILE
- ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT.
-
- DATA DIVISION.
- FILE SECTION.
- FD TRANSACTION-DATA.
- 01 TRANSACTION-RECORD.
- 03 TR-CUSTOMER-NUMBER PIC 9(04).
- 03 FILLER PIC X(01).
- 03 TR-CUSTOMER-NAME PIC X(16).
- 03 FILLER PIC X(01).
- 03 TR-ITEM-NUMBER PIC 9(05).
- 03 FILLER REDEFINES TR-ITEM-NUMBER.
- 05 TR-ITEM-DEPARTMENT PIC 9(01).
- 05 FILLER PIC 9(04).
- 03 FILLER PIC X(01).
- 03 TR-ITEM-COST PIC 9(03)V99.
- 03 FILLER PIC X(47).
- FD REPORT-FILE
- REPORT IS NO-REPORT.
- WORKING-STORAGE SECTION.
- 01 END-OF-FILE-SWITCH PIC X(1) VALUE 'N'.
- 88 END-OF-FILE VALUE 'Y'.
- 88 GOFOREVER VALUE 'X'.
-
- REPORT SECTION.
- RD NO-REPORT
- PAGE LIMIT IS 66 LINES
- HEADING 1
- FIRST DETAIL 5
- LAST DETAIL 58.
-
- 01 PAGE-HEAD-GROUP TYPE PAGE HEADING.
- 02 LINE 1.
- 03 COLUMN 27 PIC X(41) VALUE
- 'S A M P L E R E P O R T'.
- 02 LINE PLUS 2.
- 03 COLUMN 01 PIC X(09) VALUE 'CUST. NO.'.
- 03 COLUMN 15 PIC X(10) VALUE 'CUST. NAME'.
- 03 COLUMN 30 PIC X(05) VALUE 'DEPT.'.
- 03 COLUMN 39 PIC X(08) VALUE 'ITEM NO.'.
- 03 COLUMN 51 PIC X(09) VALUE 'ITEM COST'.
-
- 01 CHARGE-DETAIL TYPE DETAIL.
- 02 LINE PLUS 1.
- 03 COLUMN 03 PIC Z(04) SOURCE TR-CUSTOMER-NUMBER.
- 03 COLUMN 10 PIC X(16) SOURCE TR-CUSTOMER-NAME.
- 03 COLUMN 32 PIC 9(01) SOURCE TR-ITEM-DEPARTMENT.
- 03 COLUMN 40 PIC 9(05) SOURCE TR-ITEM-NUMBER.
- 03 COLUMN 51 PIC $$$$.99 SOURCE TR-ITEM-COST.
-
- PROCEDURE DIVISION.
-
- OPEN INPUT TRANSACTION-DATA,
- OUTPUT REPORT-FILE.
-
- INITIATE CUSTOMER-REPORT.
-
- READ TRANSACTION-DATA
- AT END
- MOVE 'Y' TO END-OF-FILE-SWITCH
- END-READ.
-
- PERFORM UNTIL GOFOREVER
- GENERATE CHARGE-DETAIL
- READ TRANSACTION-DATA
- AT END
- EXIT PERFORM
- END-READ
- END-PERFORM.
-
- TERMINATE CUSTOMER-REPORT.
-
- CLOSE TRANSACTION-DATA,
- REPORT-FILE.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_reportwriter.at:115: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_reportwriter.at:115"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:67: error: 'CUSTOMER-REPORT' is not defined
-prog.cob:67: error: 'CUSTOMER-REPORT' is not a valid report name
-prog.cob:82: error: 'CUSTOMER-REPORT' is not a valid report name
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_reportwriter.at:115"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_231
-#AT_START_232
-at_fn_group_banner 232 'syn_reportwriter.at:124' \
- "REPORT not positive integers in COL / LINE PLUS" "" 2
-at_xfail=no
-(
- printf "%s\n" "232. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT out-file ASSIGN "blah.txt"
- ORGANIZATION LINE SEQUENTIAL.
-
- DATA DIVISION.
- FILE SECTION.
- FD out-file REPORT rp.
-
- REPORT SECTION.
- RD rp.
- 01 rp-head TYPE PH.
- 02 LINE NUMBER IS 1, COLUMNS 0 VALUE "Hello!".
- 02 LINE IS 2, COLS 2 VALUE "Hello!".
- 02 LINE NUMBERS ARE PLUS 1.
- 03 COLUMN NUMBER 01 PIC X(09) VALUE 'CUST. NO.'.
- 03 COLUMN PLUS 0 PIC X(09) VALUE 'ITEM'.
- 02 LINES ARE PLUS 2 COL NUMBERS PLUS 0.
- 03 COLUMN 1.5 PIC X(09) VALUE 'CUST. NO.'.
- 03 COLUMN + -10 PIC X(09) VALUE 'ITEM'.
-
- 01 rp-detail TYPE DETAIL.
- 02 LINE PLUS 1.
- 03 COLUMN 03 PIC X(06) VALUE 'SAMPLE'.
- 03 COLUMN +9 PIC X(06) VALUE 'REPORT'.
-
- PROCEDURE DIVISION.
- OPEN OUTPUT out-file.
- INITIATE rp.
- GENERATE rp-detail.
- TERMINATE rp.
- CLOSE out-file.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_reportwriter.at:167: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_reportwriter.at:167"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:18: error: invalid COLUMN integer; must be > 0
-prog.cob:24: error: unsigned integer value expected
-prog.cob:25: error: unsigned integer value expected
-prog.cob:30: error: unsigned integer value expected
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_reportwriter.at:167"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_232
-#AT_START_233
-at_fn_group_banner 233 'syn_reportwriter.at:177' \
- "Missing PICTURE for SOURCE" " " 2
-at_xfail=no
-(
- printf "%s\n" "233. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT out-file ASSIGN "blah.txt"
- ORGANIZATION LINE SEQUENTIAL.
-
- DATA DIVISION.
- FILE SECTION.
- FD out-file REPORT rp.
-
- WORKING-STORAGE SECTION.
- 77 data-source pic x(20) value "data".
-
- REPORT SECTION.
- RD rp.
- 01 rp-head TYPE IS DETAIL.
- 02 LINE 1, COL 2 VALUE "Hello!".
- 02 LINE PLUS 1.
- 03 COLUMN 01 PIC X(09) VALUE 'CUST. NO.'.
- 03 ok COLUMN PLUS 20 SOURCE IS data-source PIC X(10).
- 03 bad COLUMN PLUS 20 SOURCE IS data-source.
-
-
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_reportwriter.at:211: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_reportwriter.at:211"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:25: error: PICTURE clause required for 'bad'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_reportwriter.at:211"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_233
-#AT_START_234
-at_fn_group_banner 234 'syn_reportwriter.at:218' \
- "Missing DETAIL line" " " 2
-at_xfail=no
-(
- printf "%s\n" "234. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT out-file ASSIGN "blah.txt"
- ORGANIZATION LINE SEQUENTIAL.
-
- DATA DIVISION.
- FILE SECTION.
- FD out-file REPORT rp.
-
- REPORT SECTION.
- RD rp.
- 01 rp-head TYPE PH.
- 02 LINE 1, COL 2 VALUE "Hello!".
- 02 LINE PLUS 1.
- 03 COLUMN 01 PIC X(09) VALUE 'CUST. NO.'.
- 03 COLUMN PLUS 20 PIC X(09) VALUE 'ITEM'.
-
-
- PROCEDURE DIVISION.
- OPEN OUTPUT out-file.
- INITIATE rp.
- GENERATE rp-detail.
- TERMINATE rp.
- CLOSE out-file.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_reportwriter.at:253: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_reportwriter.at:253"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:13: warning: no DETAIL line defined in report rp
-prog.cob:27: error: 'rp-detail' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_reportwriter.at:253"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_234
-#AT_START_235
-at_fn_group_banner 235 'syn_reportwriter.at:261' \
- "REPORT LINE PLUS ZERO" " " 2
-at_xfail=no
-(
- printf "%s\n" "235. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT out-file ASSIGN "blah.txt"
- ORGANIZATION LINE SEQUENTIAL.
-
- DATA DIVISION.
- FILE SECTION.
- FD out-file REPORT rp.
-
- REPORT SECTION.
- RD rp.
- 01 rp-head TYPE PH.
- 02 LINE 1 COL 5 PIC X(20) VALUE "Hello World!".
- 02 LINE 2 COL 4 PIC X(20) VALUE "Hello Goodbye!".
- 02 LINE PLUS 0.
- 03 COLUMN 1 PIC X(09) VALUE 'CUST. No.'.
- 03 COLUMN PLUS 0 PIC X(09) VALUE 'ITEM'.
- 02 LINE PLUS ZERO.
- 03 COLUMN 1 PIC X(09) VALUE 'Cust. No.'.
- 03 COLUMN + 10 PIC X(09) VALUE 'Item'.
-
- 01 rp-detail TYPE DETAIL.
- 02 LINE PLUS 1.
- 03 COLUMN 03 PIC X(06) VALUE 'SAMPLE'.
-
- PROCEDURE DIVISION.
- OPEN OUTPUT out-file.
- INITIATE rp.
- GENERATE rp-detail.
- TERMINATE rp.
- CLOSE out-file.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_reportwriter.at:303: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_reportwriter.at:303"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:20: warning: LINE PLUS 0 is not implemented
-prog.cob:23: warning: LINE PLUS 0 is not implemented
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_reportwriter.at:303"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_235
-#AT_START_236
-at_fn_group_banner 236 'syn_reportwriter.at:311' \
- "Incorrect REPORT NAME" " " 2
-at_xfail=no
-(
- printf "%s\n" "236. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TRANSACTION-DATA
- ASSIGN TO EXTERNAL DATAIN
- ORGANIZATION IS LINE SEQUENTIAL.
-
- SELECT REPORT-FILE
- ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT.
-
- DATA DIVISION.
- FILE SECTION.
- FD TRANSACTION-DATA
- LABEL RECORDS ARE OMITTED
- BLOCK CONTAINS 0 RECORDS
- RECORD CONTAINS 80 CHARACTERS
- DATA RECORD IS TRANSACTION-RECORD.
- 01 TRANSACTION-RECORD.
- 03 TR-CUSTOMER-NUMBER PIC 9(04).
- 03 FILLER PIC X(01).
- 03 TR-CUSTOMER-NAME PIC X(16).
- 03 FILLER PIC X(01).
- 03 TR-ITEM-NUMBER PIC 9(05).
- 03 FILLER REDEFINES TR-ITEM-NUMBER.
- 05 TR-ITEM-DEPARTMENT PIC 9(01).
- 05 FILLER PIC 9(04).
- 03 FILLER PIC X(01).
- 03 TR-ITEM-COST PIC 9(03)V99.
- 03 FILLER PIC X(47).
- FD REPORT-FILE
- LABEL RECORDS ARE OMITTED
- REPORT IS NO-REPORT.
- WORKING-STORAGE SECTION.
- 01 END-OF-FILE-SWITCH PIC X(1) VALUE 'N'.
- 88 END-OF-FILE VALUE 'Y'.
- 88 GOFOREVER VALUE 'X'.
-
- REPORT SECTION.
- RD SOME-REPORT
- PAGE LIMIT IS 66 LINES
- HEADING 1
- FIRST DETAIL 5
- LAST DETAIL 58.
-
- 01 PAGE-HEAD-GROUP TYPE PAGE HEADING.
- 02 LINE 1.
- 03 COLUMN 27 PIC X(41) VALUE
- 'S A M P L E R E P O R T'.
- 02 LINE PLUS 2.
- 03 COLUMN 01 PIC X(09) VALUE 'CUST. NO.'.
- 03 COLUMN 15 PIC X(10) VALUE 'CUST. NAME'.
- 03 COLUMN 30 PIC X(05) VALUE 'DEPT.'.
- 03 COLUMN 39 PIC X(08) VALUE 'ITEM NO.'.
- 03 COLUMN 51 PIC X(09) VALUE 'ITEM COST'.
-
- 01 CHARGE-DETAIL TYPE DETAIL.
- 02 LINE PLUS 1.
- 03 COLUMN 03 PIC Z(04) SOURCE TR-CUSTOMER-NUMBER.
- 03 COLUMN 10 PIC X(16) SOURCE TR-CUSTOMER-NAME.
- 03 COLUMN 32 PIC 9(01) SOURCE TR-ITEM-DEPARTMENT.
- 03 COLUMN 40 PIC 9(05) SOURCE TR-ITEM-NUMBER.
- 03 COLUMN 51 PIC $$$$.99 SOURCE TR-ITEM-COST.
-
- PROCEDURE DIVISION.
-
- OPEN INPUT TRANSACTION-DATA,
- OUTPUT REPORT-FILE.
-
- INITIATE CUSTOMER-REPORT.
-
- READ TRANSACTION-DATA
- AT END
- MOVE 'Y' TO END-OF-FILE-SWITCH
- END-READ.
-
- PERFORM UNTIL GOFOREVER
- GENERATE CHARGE-DETAIL
- READ TRANSACTION-DATA
- AT END
- EXIT PERFORM
- END-READ
- END-PERFORM.
-
- TERMINATE CUSTOMER-REPORT.
-
- CLOSE TRANSACTION-DATA,
- REPORT-FILE.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_reportwriter.at:408: \$COMPILE_ONLY -std=mf-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=mf-strict prog.cob" "syn_reportwriter.at:408"
-( $at_check_trace; $COMPILE_ONLY -std=mf-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:17: warning: LABEL RECORDS is obsolete in Micro Focus COBOL
-prog.cob:19: warning: RECORD clause ignored for LINE SEQUENTIAL
-prog.cob:20: warning: DATA RECORDS is obsolete in Micro Focus COBOL
-prog.cob:34: warning: LABEL RECORDS is obsolete in Micro Focus COBOL
-prog.cob:42: error: 'SOME-REPORT' is not defined
-prog.cob:42: error: 'SOME-REPORT' is not a valid report name
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_reportwriter.at:408"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_reportwriter.at:417: \$COMPILE_ONLY -std=cobol2002 -fassign-ext-dyn=ok prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol2002 -fassign-ext-dyn=ok prog.cob" "syn_reportwriter.at:417"
-( $at_check_trace; $COMPILE_ONLY -std=cobol2002 -fassign-ext-dyn=ok prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:17: error: syntax error, unexpected Identifier, expecting EXTERNAL or GLOBAL
-prog.cob:34: error: syntax error, unexpected Identifier, expecting EXTERNAL or GLOBAL
-prog.cob:36: error: RECORD description missing or invalid
-prog.cob:42: error: 'SOME-REPORT' is not defined
-prog.cob:42: error: 'SOME-REPORT' is not a valid report name
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_reportwriter.at:417"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_236
-#AT_START_237
-at_fn_group_banner 237 'syn_reportwriter.at:428' \
- "REPORT with PLUS RIGHT/CENTER" " " 2
-at_xfail=no
-(
- printf "%s\n" "237. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT INPUT-FILE ASSIGN TO EXTERNAL STUDENT
- ORGANIZATION IS LINE SEQUENTIAL.
- SELECT PRINT-FILE ASSIGN TO EXTERNAL
- LINE ADVANCING REPORT1.
-
- DATA DIVISION.
- FILE SECTION.
- FD INPUT-FILE.
- 01 INPUT-REC.
- 05 STUDENT-ID PIC 9(5).
- 05 STUDENT-NAME PIC X(20).
- 05 MAJOR PIC XXX.
- 05 NUM-COURSES PIC 9(6).
-
- FD PRINT-FILE
- REPORT IS STUDENT-REPORT.
-
- WORKING-STORAGE SECTION.
- 01 ARE-THERE-MORE-RECORDS PIC XXX VALUE "YES".
-
- REPORT SECTION.
- RD STUDENT-REPORT
- PAGE LIMIT 30 LINES
- HEADING 1
- FIRST DETAIL 3
- LAST DETAIL 25
- FOOTING 28.
- 01 HEADING-LINE
- TYPE PAGE HEADING LINE PLUS 1.
- 05 COLUMN 1 PIC X(2) VALUE "Ln".
- 05 COLUMN 4 PIC X(6) VALUE "--ID--".
- 05 COLUMN 16 PIC X(20) VALUE "--------Name--------".
- 05 COLUMN 39 PIC X(5) VALUE " Mjr".
- 05 COLUMN 48 PIC XXX VALUE "*-*".
- 05 COLUMN 54 PIC X(5) VALUE "+Num+".
-
- 01 REPORT-LINE
- TYPE DETAIL LINE PLUS 1.
- 05 COLUMN PLUS 1 PIC 9(2)
- SOURCE LINE-COUNTER OF STUDENT-REPORT.
- 05 COLUMN LEFT PLUS 1 PIC Z(5)9 SOURCE STUDENT-ID.
- 05 COLUMN CENTER 25 PIC X(20) SOURCE STUDENT-NAME.
- 05 COLUMN RIGHT 43 PIC X(5) SOURCE MAJOR.
- 05 COLUMN 48 PIC XXX VALUE "<->".
- 05 COLUMN CENTER 56 PIC Z(4)9 SOURCE NUM-COURSES.
- 05 COLUMN 60 62 65 PIC Z9 OCCURS 3 TIMES.
-
- PROCEDURE DIVISION.
- A000-MAINLINE.
- OPEN INPUT INPUT-FILE
- OUTPUT PRINT-FILE
- PERFORM DO-INIT.
- READ INPUT-FILE
- AT END
- MOVE "NO" TO ARE-THERE-MORE-RECORDS.
- PERFORM A001-LOOP
- UNTIL ARE-THERE-MORE-RECORDS = "NO ".
- PERFORM DO-TERM.
- CLOSE INPUT-FILE
- PRINT-FILE.
- STOP RUN.
-
- A001-LOOP.
- GENERATE REPORT-LINE.
- READ INPUT-FILE
- AT END
- MOVE "NO " TO ARE-THERE-MORE-RECORDS.
- DO-INIT.
- INITIATE STUDENT-REPORT.
-
- DO-TERM.
- TERMINATE STUDENT-REPORT.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_reportwriter.at:512: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_reportwriter.at:512"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:46: warning: PLUS is ignored on first field of line
-prog.cob:48: error: PLUS is not allowed with LEFT, RIGHT or CENTER
-prog.cob:53: error: OCCURS and multi COLUMNs is not allowed
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_reportwriter.at:512"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_237
-#AT_START_238
-at_fn_group_banner 238 'syn_reportwriter.at:521' \
- "PAGE LIMITS clause" " " 2
-at_xfail=no
-(
- printf "%s\n" "238. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT f ASSIGN "f.txt".
-
- DATA DIVISION.
- FILE SECTION.
- FD f REPORT r1, r2.
- 01 f-rec PIC XXXXX.
-
- REPORT SECTION.
- RD r1 PAGE LIMIT 1 LINES 1 COLUMNS
- HEADING f-rec,
- HEADING f-rec,
- LINE LIMIT 1.
-
- RD r2 PAGE LIMIT 1 COLUMNS
- HEADING f-rec.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_reportwriter.at:548: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_reportwriter.at:548"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:19: error: duplicate HEADING clause
-prog.cob:19: error: duplicate LINE LIMIT clause
-prog.cob:22: error: cannot specify HEADING without number of lines on page
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_reportwriter.at:548"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_238
-#AT_START_239
-at_fn_group_banner 239 'syn_reportwriter.at:556' \
- "Report FD without period" " " 2
-at_xfail=no
-(
- printf "%s\n" "239. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# note: these samples used to loop in the error handling
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT f ASSIGN "f.txt".
-
- DATA DIVISION.
- FILE SECTION.
- FD f REPORT
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT f ASSIGN "f.txt".
-
- DATA DIVISION.
- FILE SECTION.
- FD f REPORT r
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_reportwriter.at:589: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_reportwriter.at:589"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:13: error: syntax error, unexpected end of file, expecting Identifier
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_reportwriter.at:589"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_reportwriter.at:592: \$COMPILE_ONLY prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog2.cob" "syn_reportwriter.at:592"
-( $at_check_trace; $COMPILE_ONLY prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:13: error: syntax error, unexpected end of file, expecting EXTERNAL or GLOBAL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_reportwriter.at:592"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_239
-#AT_START_240
-at_fn_group_banner 240 'syn_reportwriter.at:598' \
- "REPORT with unreferenced control field" " " 2
-at_xfail=no
-(
- printf "%s\n" "240. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT f ASSIGN "f.txt".
-
- DATA DIVISION.
- FILE SECTION.
- FD f REPORT r.
- 01 f-rec PIC X.
-
- REPORT SECTION.
- RD r.
- 01 r0 TYPE DETAIL, PRESENT AFTER NEW f-rec.
-_ATEOF
-
-
-# no compile_only here as we check the C generation
-{ set +x
-printf "%s\n" "$at_srcdir/syn_reportwriter.at:621: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "syn_reportwriter.at:621"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_reportwriter.at:621"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_240
-#AT_START_241
-at_fn_group_banner 241 'syn_reportwriter.at:626' \
- "Incorrect USAGE clause" " " 2
-at_xfail=no
-(
- printf "%s\n" "241. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT report-file ASSIGN EXTERNAL PRINTOUT
- ORGANIZATION LINE SEQUENTIAL.
-
- DATA DIVISION.
- FILE SECTION.
- FD report-file REPORT rp.
-
- WORKING-STORAGE SECTION.
- 01 foo PIC X(20).
- 01 WS-INPUT-RECORD.
- 05 WSI-A PIC X(1).
- 05 WSI-B PIC X(1).
- 05 WSI-C PIC X(1).
- 05 WSI-V PIC 9.
-
- REPORT SECTION.
- RD rp PAGE LIMIT 3.
-
- 01 rp-detail TYPE DE.
- 02 LINE PLUS 1.
- 03 FILLER SOURCE foo PIC X(30).
- 03 FILLER PIC X(6) SOURCE "<--->".
- 03 THING1 PIC 9(3) BINARY VALUE 12.
- 03 THING2 COMP-2 VALUE 12.
-
- 01 CF-A TYPE CONTROL FOOTING WSI-A.
- 02 LINE PLUS 1.
- 03 COLUMN 1 VALUE "**SUM:".
- 03 COLUMN PLUS 2 SUM WSI-V.
- 03 COLUMN PLUS 2 SUM WSI-V PIC XXX.
-
- PROCEDURE DIVISION.
- OPEN OUTPUT report-file.
- INITIATE rp.
-
- MOVE "hello" TO foo.
- GENERATE rp-detail.
-
- MOVE "goodbye" TO foo.
- GENERATE rp-detail.
-
- TERMINATE rp.
- CLOSE report-file.
- STOP RUN.
- END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_reportwriter.at:683: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_reportwriter.at:683"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:30: error: syntax error, unexpected BINARY, expecting DISPLAY or DISPLAY-1 or NATIONAL or UTF-8
-prog.cob:31: error: syntax error, unexpected COMP-2, expecting DISPLAY or DISPLAY-1 or NATIONAL or UTF-8
-prog.cob:36: error: needs PICTURE clause for SUM WSI-V
-prog.cob:37: warning: non-numeric PICTURE clause for SUM WSI-V
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_reportwriter.at:683"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_241
-#AT_START_242
-at_fn_group_banner 242 'syn_refmod.at:26' \
- "valid reference-modification" " " 2
-at_xfail=no
-(
- printf "%s\n" "242. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4) VALUE "abcd".
- 77 VAR PIC 9 VALUE 1.
- PROCEDURE DIVISION.
- DISPLAY X(1:1) ":" X(1:2) ":" X(1:3) ":" X(1:4) ":" X(1:).
- DISPLAY X(2:1) ":" X(2:2) ":" X(2:3) ":" X(2:).
- DISPLAY X(3:1) ":" X(3:2) ":" X(3:).
- DISPLAY X(4:1) ":" X(4:).
- DISPLAY X(1:4)
- DISPLAY X(VAR:4)
- DISPLAY X(4:)
- DISPLAY X(4:VAR)
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_refmod.at:48: \$COMPILE -fdiagnostics-show-option prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fdiagnostics-show-option prog.cob" "syn_refmod.at:48"
-( $at_check_trace; $COMPILE -fdiagnostics-show-option prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:14: warning: suspicious reference-modification: always using max. length [-Wothers]
-prog.cob:16: warning: suspicious reference-modification: always using max. position [-Wothers]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_refmod.at:48"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_242
-#AT_START_243
-at_fn_group_banner 243 'syn_refmod.at:55' \
- "invalid reference-modification" " " 2
-at_xfail=no
-(
- printf "%s\n" "243. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4) VALUE "abcd".
- 88 X-AB VALUE "AB".
- PROCEDURE DIVISION.
- DISPLAY X-AB(1:1).
- *> TODO: more to add
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_refmod.at:71: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "syn_refmod.at:71"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: 'X-AB' cannot be reference modified
-prog.cob:9: error: condition-name not allowed here: 'X-AB'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_refmod.at:71"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_243
-#AT_START_244
-at_fn_group_banner 244 'syn_refmod.at:79' \
- "Static out of bounds" " " 2
-at_xfail=no
-(
- printf "%s\n" "244. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4).
- 01 Y PIC 9 VALUE 1.
- PROCEDURE DIVISION.
- DISPLAY X(0:1)
- END-DISPLAY.
- DISPLAY X(0:Y)
- END-DISPLAY.
- DISPLAY X(5:1)
- END-DISPLAY.
- DISPLAY X(5:Y)
- END-DISPLAY.
- DISPLAY X(1:0)
- END-DISPLAY.
- DISPLAY X(Y:0)
- END-DISPLAY.
- DISPLAY X(1:5)
- END-DISPLAY.
- DISPLAY X(Y:5)
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_refmod.at:109: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_refmod.at:109"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: offset of 'X' out of bounds: 0
-prog.cob:11: error: offset of 'X' out of bounds: 0
-prog.cob:13: error: offset of 'X' out of bounds: 5
-prog.cob:15: error: offset of 'X' out of bounds: 5
-prog.cob:17: error: length of 'X' out of bounds: 0
-prog.cob:19: error: length of 'X' out of bounds: 0
-prog.cob:21: error: length of 'X' out of bounds: 5
-prog.cob:23: error: length of 'X' out of bounds: 5
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_refmod.at:109"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_244
-#AT_START_245
-at_fn_group_banner 245 'syn_refmod.at:123' \
- "constant-folding out of bounds" " " 2
-at_xfail=no
-(
- printf "%s\n" "245. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# note: actually checking out of bounds in general, too
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 78 VAR-LEN VALUE 4.
- 01 X PIC X(VAR-LEN).
- PROCEDURE DIVISION.
- IF VAR-LEN < 4
- DISPLAY X(4 - VAR-LEN:1)
- DISPLAY X(1: 4 - VAR-LEN)
- DISPLAY X(9 - VAR-LEN:1)
- DISPLAY X(1:9 - VAR-LEN)
- *> special test...
- INSPECT X CONVERTING "DEF" TO X (1:0 + VAR-LEN)
- END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_refmod.at:147: \$COMPILE_ONLY -fdiagnostics-show-option -Wno-constant-numlit-expression prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fdiagnostics-show-option -Wno-constant-numlit-expression prog.cob" "syn_refmod.at:147"
-( $at_check_trace; $COMPILE_ONLY -fdiagnostics-show-option -Wno-constant-numlit-expression prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: warning: offset of 'X' out of bounds: 0 [-Wignored-error]
-prog.cob:11: warning: length of 'X' out of bounds: 0 [-Wignored-error]
-prog.cob:12: warning: offset of 'X' out of bounds: 5 [-Wignored-error]
-prog.cob:13: warning: length of 'X' out of bounds: 5 [-Wignored-error]
-prog.cob:15: warning: CONVERTING operands differ in size [-Wignored-error]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_refmod.at:147"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_refmod.at:154: \$COMPILE_ONLY -Wno-constant-numlit-expression -fno-constant-folding prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wno-constant-numlit-expression -fno-constant-folding prog.cob" "syn_refmod.at:154"
-( $at_check_trace; $COMPILE_ONLY -Wno-constant-numlit-expression -fno-constant-folding prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_refmod.at:154"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_245
-#AT_START_246
-at_fn_group_banner 246 'syn_refmod.at:159' \
- "no static bound check for ANY LENGTH" " " 2
-at_xfail=no
-(
- printf "%s\n" "246. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 POS PIC 9(4).
- LINKAGE SECTION.
- 01 TESTME PIC X ANY LENGTH.
- PROCEDURE DIVISION USING TESTME.
- main.
- evaluate true
- when TESTME(POS:2) = ", "
- continue
- when TESTME(POS:1) = "," and TESTME(1 + POS:1) = " "
- display 'TESTME' pos 1525
- end-evaluate
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_refmod.at:181: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_refmod.at:181"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_refmod.at:181"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_246
-#AT_START_247
-at_fn_group_banner 247 'syn_misc.at:23' \
- "ambiguous AND/OR" " " 2
-at_xfail=no
-(
- printf "%s\n" "247. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 ONE PIC 9 VALUE 1.
- 01 TWO PIC 9 VALUE 2.
- 01 THREE PIC 9 VALUE 3.
- PROCEDURE DIVISION.
- IF THREE = ONE AND TWO OR THREE
- DISPLAY "OK"
- END-DISPLAY
- END-IF.
- IF 3 = 1 OR 2 AND 3
- DISPLAY "NO"
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:46: \$COMPILE_ONLY -Wno-constant-numlit-expression prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wno-constant-numlit-expression prog.cob" "syn_misc.at:46"
-( $at_check_trace; $COMPILE_ONLY -Wno-constant-numlit-expression prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: warning: suggest parentheses around AND within OR
-prog.cob:14: warning: suggest parentheses around OR within AND
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:46"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_247
-#AT_START_248
-at_fn_group_banner 248 'syn_misc.at:54' \
- "warn constant expressions" " " 2
-at_xfail=no
-(
- printf "%s\n" "248. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- IF 3 = 1
- AND 2 OR 3
- DISPLAY "OK"
- END-DISPLAY
- END-IF.
- IF 3 = 1 OR
- 2 AND 3
- DISPLAY "NO"
- END-DISPLAY
- END-IF
- IF "a" = "b"
- DISPLAY "NO"
- END-DISPLAY
- END-IF.
- IF "c" = "c "
- DISPLAY "NO"
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-# FIXME positions broken
-# Note: also checks that -Wconstant-expression works as "group" warning
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:84: \$COMPILE_ONLY -fdiagnostics-show-option -w -Wconstant-expression prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fdiagnostics-show-option -w -Wconstant-expression prog.cob" "syn_misc.at:84"
-( $at_check_trace; $COMPILE_ONLY -fdiagnostics-show-option -w -Wconstant-expression prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:5: warning: expression '3' EQUALS '1' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:6: warning: expression '3' EQUALS '2' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:6: warning: expression '3' EQUALS '3' is always TRUE [-Wconstant-numlit-expression]
-prog.cob:10: warning: expression '3' EQUALS '1' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:11: warning: expression '3' EQUALS '2' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:11: warning: expression '3' EQUALS '3' is always TRUE [-Wconstant-numlit-expression]
-prog.cob:15: warning: expression 'a' EQUALS 'b' is always FALSE [-Wconstant-expression]
-prog.cob:19: warning: expression 'c' EQUALS 'c ' is always TRUE [-Wconstant-expression]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:84"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:94: \$COMPILE_ONLY -fdiagnostics-show-option -Wno-parentheses prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fdiagnostics-show-option -Wno-parentheses prog.cob" "syn_misc.at:94"
-( $at_check_trace; $COMPILE_ONLY -fdiagnostics-show-option -Wno-parentheses prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:5: warning: expression '3' EQUALS '1' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:6: warning: expression '3' EQUALS '2' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:6: warning: expression '3' EQUALS '3' is always TRUE [-Wconstant-numlit-expression]
-prog.cob:10: warning: expression '3' EQUALS '1' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:11: warning: expression '3' EQUALS '2' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:11: warning: expression '3' EQUALS '3' is always TRUE [-Wconstant-numlit-expression]
-prog.cob:15: warning: expression 'a' EQUALS 'b' is always FALSE [-Wconstant-expression]
-prog.cob:19: warning: expression 'c' EQUALS 'c ' is always TRUE [-Wconstant-expression]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:94"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:104: \$COMPILE_ONLY -fdiagnostics-show-option -w -Wconstant-numlit-expression prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fdiagnostics-show-option -w -Wconstant-numlit-expression prog.cob" "syn_misc.at:104"
-( $at_check_trace; $COMPILE_ONLY -fdiagnostics-show-option -w -Wconstant-numlit-expression prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:5: warning: expression '3' EQUALS '1' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:6: warning: expression '3' EQUALS '2' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:6: warning: expression '3' EQUALS '3' is always TRUE [-Wconstant-numlit-expression]
-prog.cob:10: warning: expression '3' EQUALS '1' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:11: warning: expression '3' EQUALS '2' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:11: warning: expression '3' EQUALS '3' is always TRUE [-Wconstant-numlit-expression]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:104"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:112: \$COMPILE_ONLY -fdiagnostics-show-option -Wno-parentheses -Wno-constant-numlit-expression prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fdiagnostics-show-option -Wno-parentheses -Wno-constant-numlit-expression prog.cob" "syn_misc.at:112"
-( $at_check_trace; $COMPILE_ONLY -fdiagnostics-show-option -Wno-parentheses -Wno-constant-numlit-expression prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:15: warning: expression 'a' EQUALS 'b' is always FALSE [-Wconstant-expression]
-prog.cob:19: warning: expression 'c' EQUALS 'c ' is always TRUE [-Wconstant-expression]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:112"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_248
-#AT_START_249
-at_fn_group_banner 249 'syn_misc.at:120' \
- "warn literal size" " " 2
-at_xfail=no
-(
- printf "%s\n" "249. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 WS-LINE-NUMBER PIC 9(3) VALUE ZERO.
- 01 WS-NUMBER PIC 9(3)V99 VALUE ZERO.
- 01 WS-TEXT PIC X(5) VALUE 'CAT'.
- 01 PIC-9-SIGNED PIC S9(2) VALUE 5.
- 01 PIC-9-SIGNED-DECIMAL PIC S9(2)V99 VALUE 5.
- 01 PIC-9-NOT-SIGNED PIC 9(3) VALUE 5.
- 01 PIC-9-NOT-DECIMAL PIC 9(3) VALUE 5.
- 01 XX PIC 9(2) VALUE 2.
- 01 PIC-9-DECIMAL PIC 9(3)V9 VALUE 5.
- 01 COMPUTE-1 PIC 999V9999 VALUE 654.1873.
- 01 GROUP-ITEM-X6.
- 05 FILLER PIC X(6) VALUE 'CAT'.
- 78 CONST1 VALUE 'CAT '.
- 01 CONST2 CONSTANT AS 00000001234.
- 01 IF-D16 PIC PP99 VALUE .0012.
- PROCEDURE DIVISION.
- MAIN.
- IF GROUP-ITEM-X6 = '1234567' CONTINUE.
- IF PIC-9-NOT-DECIMAL = 1.1 CONTINUE.
- IF PIC-9-NOT-DECIMAL = 1.0
- CONTINUE.
- IF PIC-9-DECIMAL = 1.01
- CONTINUE.
- IF PIC-9-DECIMAL = 1.100
- CONTINUE.
- IF PIC-9-SIGNED NOT = 11.0
- CONTINUE.
- IF PIC-9-NOT-SIGNED < 0
- CONTINUE.
- IF PIC-9-NOT-SIGNED < ZERO
- CONTINUE.
- IF PIC-9-NOT-SIGNED < (25 - 50)
- CONTINUE.
- IF PIC-9-DECIMAL = (2.24 / 2)
- CONTINUE.
- IF PIC-9-NOT-DECIMAL = "123"
- CONTINUE.
- IF PIC-9-NOT-DECIMAL = "1B0" *> field is numeric
- CONTINUE.
- IF PIC-9-NOT-DECIMAL (1:3) = "1B0" *> refmod is always alphanumeric
- CONTINUE.
- IF PIC-9-NOT-DECIMAL (1:3) NOT = "Hot Doggy"
- CONTINUE.
- IF PIC-9-NOT-DECIMAL (1:XX) NOT = "Hi"
- CONTINUE.
- IF WS-LINE-NUMBER > '123'
- CONTINUE.
- IF WS-TEXT > 'DOGGY'
- CONTINUE.
- IF WS-NUMBER > 123.999
- CONTINUE.
- IF WS-LINE-NUMBER > 2345
- CONTINUE.
- IF WS-LINE-NUMBER <= 1234
- CONTINUE.
- IF WS-LINE-NUMBER > '1234'
- CONTINUE.
- IF 5432 < WS-LINE-NUMBER
- CONTINUE.
- IF 7855 >= WS-LINE-NUMBER
- CONTINUE.
- IF 1234 < WS-LINE-NUMBER
- CONTINUE.
- IF 5432 >= WS-LINE-NUMBER
- CONTINUE.
- IF WS-TEXT > 'DOGGY++'
- CONTINUE.
- IF WS-TEXT > 3141596
- CONTINUE.
- IF WS-TEXT > 3.141596
- CONTINUE.
- IF WS-TEXT = 3.141596
- CONTINUE.
- IF 'DOG+CAT' NOT = WS-TEXT
- CONTINUE.
- IF WS-TEXT = 'CAT+DOG'
- CONTINUE.
- EVALUATE TRUE
- WHEN 'DOG+CAT' = WS-TEXT
- CONTINUE
- WHEN CONST1 = 'CAT+DOG'
- CONTINUE
- WHEN CONST1 = 'CAT'
- CONTINUE
- WHEN CONST2 = 1234
- CONTINUE
- END-EVALUATE
- IF WS-LINE-NUMBER > 0000234
- CONTINUE.
- IF WS-TEXT = 'CAT '
- CONTINUE.
- IF ( COMPUTE-1 < 654.20038) AND
- ( COMPUTE-1 > 654.17422) THEN
- CONTINUE.
- IF ( COMPUTE-1 < 5654.20) CONTINUE.
- IF ( COMPUTE-1 > 5654.20) CONTINUE.
- IF COMPUTE-1 < 05654.20 CONTINUE.
- IF COMPUTE-1 > 05654.20 CONTINUE.
- IF ( 5654.20 > COMPUTE-1) CONTINUE.
- IF ( 5654.20 < COMPUTE-1) CONTINUE.
- IF 05654.20 > COMPUTE-1 CONTINUE.
- IF 05654.20 < COMPUTE-1 CONTINUE.
- IF IF-D16 POSITIVE
- CONTINUE.
- IF IF-D16 NOT POSITIVE
- CONTINUE.
- IF IF-D16 NEGATIVE
- CONTINUE.
- IF IF-D16 NOT NEGATIVE
- CONTINUE.
- IF PIC-9-NOT-SIGNED > (25 - 50)
- CONTINUE.
- IF PIC-9-NOT-SIGNED >= -1 CONTINUE.
- IF PIC-9-NOT-SIGNED >= -.1 CONTINUE.
- IF PIC-9-NOT-SIGNED > 0.0 CONTINUE.
- IF PIC-9-NOT-SIGNED > .0 CONTINUE.
- IF PIC-9-NOT-SIGNED > ZERO
- CONTINUE.
- IF PIC-9-NOT-SIGNED >= 0.0 CONTINUE.
- IF PIC-9-NOT-SIGNED >= .0 CONTINUE.
- IF PIC-9-NOT-SIGNED >= ZERO
- CONTINUE.
- IF GROUP-ITEM-X6 (1:6) = '123456'
- CONTINUE.
- * Both have correct error check verified in syn_refmod.at
- * IF GROUP-ITEM-X6 (2:6) = '123456'
- * CONTINUE.
- * IF GROUP-ITEM-X6 (WS-LINE-NUMBER:7) = '123456'
- * CONTINUE.
- IF GROUP-ITEM-X6 (1:5) = '123456'
- CONTINUE.
- IF GROUP-ITEM-X6 (3:) = '12345'
- CONTINUE.
- IF GROUP-ITEM-X6 (3:WS-LINE-NUMBER) = '12345'
- CONTINUE.
- IF GROUP-ITEM-X6 (WS-LINE-NUMBER:3) = '12345'
- CONTINUE.
- IF GROUP-ITEM-X6 (WS-LINE-NUMBER:WS-LINE-NUMBER) = '12345'
- CONTINUE.
- IF GROUP-ITEM-X6 (WS-LINE-NUMBER:) = '12345'
- CONTINUE.
- IF PIC-9-NOT-DECIMAL > 9 CONTINUE.
- IF PIC-9-NOT-DECIMAL > 009 CONTINUE.
- IF PIC-9-NOT-DECIMAL > 900 CONTINUE.
- IF PIC-9-NOT-DECIMAL > 909 CONTINUE.
- IF PIC-9-NOT-DECIMAL > 999 CONTINUE.
- IF PIC-9-NOT-DECIMAL > 0000999 CONTINUE.
- IF PIC-9-DECIMAL > 999 CONTINUE.
- IF PIC-9-DECIMAL > 990.9 CONTINUE.
- IF PIC-9-DECIMAL > 999.9 CONTINUE.
- IF PIC-9-DECIMAL > 0999.90 CONTINUE.
- IF PIC-9-DECIMAL > -0999.90 CONTINUE.
- IF PIC-9-SIGNED-DECIMAL > 99.99 CONTINUE.
- IF PIC-9-SIGNED-DECIMAL >= 99.99 CONTINUE.
- IF PIC-9-SIGNED-DECIMAL < -99.99 CONTINUE.
- IF PIC-9-SIGNED-DECIMAL <= -099.990 CONTINUE.
- IF PIC-9-SIGNED-DECIMAL <= -099.991 CONTINUE.
- IF 99 > XX CONTINUE.
- IF XX NOT < 99 CONTINUE.
- IF NOT XX < 99 CONTINUE.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:292: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:292"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in paragraph 'MAIN':
-prog.cob:23: warning: literal '1234567' is longer than 'GROUP-ITEM-X6'
-prog.cob:23: warning: expression is always FALSE
-prog.cob:24: warning: literal '1.1' has more decimals than 'PIC-9-NOT-DECIMAL'
-prog.cob:24: warning: expression is always FALSE
-prog.cob:27: warning: literal '1.01' has more decimals than 'PIC-9-DECIMAL'
-prog.cob:27: warning: expression is always FALSE
-prog.cob:33: warning: unsigned 'PIC-9-NOT-SIGNED' may not be LESS THAN ZERO
-prog.cob:35: warning: unsigned 'PIC-9-NOT-SIGNED' may not be LESS THAN ZERO
-prog.cob:38: warning: unsigned 'PIC-9-NOT-SIGNED' may not be LESS THAN -25
-prog.cob:40: warning: literal '1.12' has more decimals than 'PIC-9-DECIMAL'
-prog.cob:40: warning: expression is always FALSE
-prog.cob:43: warning: literal '1B0' is alphanumeric but 'PIC-9-NOT-DECIMAL' is numeric
-prog.cob:47: warning: literal 'Hot Doggy' is longer than 'PIC-9-NOT-DECIMAL'
-prog.cob:47: warning: expression is always TRUE
-prog.cob:55: warning: literal '123.999' has more decimals than 'WS-NUMBER'
-prog.cob:57: warning: literal '2345' has more digits than 'WS-LINE-NUMBER'
-prog.cob:57: warning: expression is always FALSE
-prog.cob:59: warning: literal '1234' has more digits than 'WS-LINE-NUMBER'
-prog.cob:59: warning: expression is always TRUE
-prog.cob:61: warning: literal '1234' has more digits than 'WS-LINE-NUMBER'
-prog.cob:61: warning: expression is always FALSE
-prog.cob:63: warning: literal '5432' has more digits than 'WS-LINE-NUMBER'
-prog.cob:63: warning: expression is always FALSE
-prog.cob:65: warning: literal '7855' has more digits than 'WS-LINE-NUMBER'
-prog.cob:65: warning: expression is always TRUE
-prog.cob:67: warning: literal '1234' has more digits than 'WS-LINE-NUMBER'
-prog.cob:67: warning: expression is always FALSE
-prog.cob:69: warning: literal '5432' has more digits than 'WS-LINE-NUMBER'
-prog.cob:69: warning: expression is always TRUE
-prog.cob:71: warning: literal 'DOGGY++' is longer than 'WS-TEXT'
-prog.cob:73: warning: literal '3141596' is longer than 'WS-TEXT'
-prog.cob:75: warning: literal '3.141596' is longer than 'WS-TEXT'
-prog.cob:77: warning: literal '3.141596' is longer than 'WS-TEXT'
-prog.cob:77: warning: expression is always FALSE
-prog.cob:79: warning: literal 'DOG+CAT' is longer than 'WS-TEXT'
-prog.cob:79: warning: expression is always TRUE
-prog.cob:81: warning: literal 'CAT+DOG' is longer than 'WS-TEXT'
-prog.cob:81: warning: expression is always FALSE
-prog.cob:84: warning: literal 'DOG+CAT' is longer than 'WS-TEXT'
-prog.cob:84: warning: expression is always FALSE
-prog.cob:86: warning: expression 'CAT ' EQUALS 'CAT+DOG' is always FALSE
-prog.cob:88: warning: expression 'CAT ' EQUALS 'CAT' is always TRUE
-prog.cob:90: warning: expression '00000001234' EQUALS '1234' is always TRUE
-prog.cob:97: warning: literal '654.20038' has more decimals than 'COMPUTE-1'
-prog.cob:98: warning: literal '654.17422' has more decimals than 'COMPUTE-1'
-prog.cob:100: warning: literal '5654.20' has more digits than 'COMPUTE-1'
-prog.cob:100: warning: expression is always TRUE
-prog.cob:101: warning: literal '5654.20' has more digits than 'COMPUTE-1'
-prog.cob:101: warning: expression is always FALSE
-prog.cob:102: warning: literal '5654.20' has more digits than 'COMPUTE-1'
-prog.cob:102: warning: expression is always TRUE
-prog.cob:103: warning: literal '5654.20' has more digits than 'COMPUTE-1'
-prog.cob:103: warning: expression is always FALSE
-prog.cob:104: warning: literal '5654.20' has more digits than 'COMPUTE-1'
-prog.cob:104: warning: expression is always TRUE
-prog.cob:105: warning: literal '5654.20' has more digits than 'COMPUTE-1'
-prog.cob:105: warning: expression is always FALSE
-prog.cob:106: warning: literal '5654.20' has more digits than 'COMPUTE-1'
-prog.cob:106: warning: expression is always TRUE
-prog.cob:107: warning: literal '5654.20' has more digits than 'COMPUTE-1'
-prog.cob:107: warning: expression is always FALSE
-prog.cob:112: warning: unsigned 'IF-D16' may not be LESS THAN ZERO
-prog.cob:114: warning: unsigned 'IF-D16' may not be LESS THAN ZERO
-prog.cob:117: warning: unsigned 'PIC-9-NOT-SIGNED' may always be GREATER THAN -25
-prog.cob:118: warning: unsigned 'PIC-9-NOT-SIGNED' may always be GREATER OR EQUAL -1
-prog.cob:119: warning: literal '-.1' has more decimals than 'PIC-9-NOT-SIGNED'
-prog.cob:119: warning: unsigned 'PIC-9-NOT-SIGNED' may always be GREATER OR EQUAL -.1
-prog.cob:124: warning: unsigned 'PIC-9-NOT-SIGNED' may always be GREATER OR EQUAL ZERO
-prog.cob:125: warning: unsigned 'PIC-9-NOT-SIGNED' may always be GREATER OR EQUAL ZERO
-prog.cob:126: warning: unsigned 'PIC-9-NOT-SIGNED' may always be GREATER OR EQUAL ZERO
-prog.cob:135: warning: literal '123456' is longer than reference-modification of 'GROUP-ITEM-X6'
-prog.cob:135: warning: expression is always FALSE
-prog.cob:137: warning: literal '12345' is longer than reference-modification of 'GROUP-ITEM-X6'
-prog.cob:137: warning: expression is always FALSE
-prog.cob:139: warning: literal '12345' is longer than reference-modification of 'GROUP-ITEM-X6'
-prog.cob:139: warning: expression is always FALSE
-prog.cob:141: warning: literal '12345' is longer than reference-modification of 'GROUP-ITEM-X6'
-prog.cob:141: warning: expression is always FALSE
-prog.cob:151: warning: 'PIC-9-NOT-DECIMAL' may not be GREATER THAN 999
-prog.cob:152: warning: 'PIC-9-NOT-DECIMAL' may not be GREATER THAN 999
-prog.cob:155: warning: 'PIC-9-DECIMAL' may not be GREATER THAN 999.9
-prog.cob:156: warning: 'PIC-9-DECIMAL' may not be GREATER THAN 999.9
-prog.cob:157: warning: unsigned 'PIC-9-DECIMAL' may always be GREATER THAN -999.90
-prog.cob:158: warning: 'PIC-9-SIGNED-DECIMAL' may not be GREATER THAN 99.99
-prog.cob:159: warning: 'PIC-9-SIGNED-DECIMAL' may not be GREATER THAN 99.99
-prog.cob:160: warning: 'PIC-9-SIGNED-DECIMAL' may not be LESS THAN -99.99
-prog.cob:161: warning: 'PIC-9-SIGNED-DECIMAL' may not be LESS THAN -99.99
-prog.cob:162: warning: literal '-99.991' has more decimals than 'PIC-9-SIGNED-DECIMAL'
-prog.cob:164: warning: 'XX' may not be GREATER THAN 99
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:292"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_249
-#AT_START_250
-at_fn_group_banner 250 'syn_misc.at:388' \
- "warn literal size in constant expr. (level 88)" " " 2
-at_xfail=no
-(
- printf "%s\n" "250. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
-
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x PIC 9.
- 88 never-true value 99.
- 01 y PIC 9.
- 88 never-truen value -9.
- 01 xx pic x.
- 88 some-not values 'a', 'b', 'cd'.
- 88 some-not-s values '00', 'a', 'b', 'cd'.
-
- PROCEDURE DIVISION.
- if never-true
- continue
- end-if
- if never-truen
- continue
- end-if
- if some-not-s
- set some-not to true
- set some-not-s to true
- end-if
- set never-true to true
- goback.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:420: \$COMPILE_ONLY -fdiagnostics-show-option prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fdiagnostics-show-option prog.cob" "syn_misc.at:420"
-( $at_check_trace; $COMPILE_ONLY -fdiagnostics-show-option prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: warning: literal '99' has more digits than 'x' [-Wconstant-expression]
-prog.cob:8: warning: expression is always FALSE [-Wconstant-expression]
-prog.cob:13: warning: literal '00' is longer than 'xx' [-Wconstant-expression]
-prog.cob:13: warning: expression is always FALSE [-Wconstant-expression]
-prog.cob:13: warning: literal 'cd' is longer than 'xx' [-Wconstant-expression]
-prog.cob:13: warning: expression is always FALSE [-Wconstant-expression]
-prog.cob:24: warning: value size exceeds data size [-Wtruncate]
-prog.cob:24: note: value size is 2 [-Wtruncate]
-prog.cob:11: note: 'xx' defined here as PIC X [-Wtruncate]
-prog.cob:26: warning: value size exceeds data size [-Wtruncate]
-prog.cob:26: note: value is 99 [-Wtruncate]
-prog.cob:7: note: 'x' defined here as PIC 9 [-Wtruncate]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:420"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_250
-#AT_START_251
-at_fn_group_banner 251 'syn_misc.at:438' \
- "Invalid conditional expression (1)" " " 2
-at_xfail=no
-(
- printf "%s\n" "251. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 CON CONSTANT 10.
- 01 V PIC 9.
- 78 C78 VALUE 'A'.
- PROCEDURE DIVISION.
- IF FUNCTION TRIM (' ')
- CONTINUE
- CONTINUE
- END-IF.
- IF CON
- CONTINUE
- CONTINUE
- END-IF.
- IF V
- CONTINUE
- CONTINUE
- END-IF.
- IF C78
- CONTINUE
- CONTINUE
- END-IF.
- IF '2'
- CONTINUE
- CONTINUE
- END-IF.
- IF C78 OR V
- CONTINUE
- CONTINUE
- END-IF.
- EVALUATE TRUE
- WHEN FUNCTION TRIM (' ')
- CONTINUE
- CONTINUE
- WHEN CON
- CONTINUE
- CONTINUE
- WHEN V
- CONTINUE
- CONTINUE
- WHEN C78
- CONTINUE
- CONTINUE
- WHEN '2'
- CONTINUE
- WHEN OTHER
- CONTINUE
- END-EVALUATE.
- PERFORM VARYING V
- FROM 1 BY 1
- UNTIL FUNCTION TRIM (' ')
- CONTINUE
- CONTINUE
- END-PERFORM.
- PERFORM VARYING V
- FROM 1 BY 1
- UNTIL V
- CONTINUE
- CONTINUE
- END-PERFORM.
- PERFORM VARYING V
- FROM 1 BY 1
- UNTIL C78
- CONTINUE
- CONTINUE
- END-PERFORM.
- PERFORM VARYING V
- FROM 1 BY 1
- UNTIL '2'
- CONTINUE
- CONTINUE
- END-PERFORM.
- IF NOTDEFINED = 1 OR 2
- CONTINUE
- END-IF.
-
- IF (V = 1) AND V
- CONTINUE
- END-IF
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:527: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:527"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: incomplete expression
-prog.cob:14: error: incomplete expression
-prog.cob:18: error: incomplete expression
-prog.cob:22: error: incomplete expression
-prog.cob:26: error: incomplete expression
-prog.cob:30: error: invalid conditional expression
-prog.cob:35: error: incomplete expression
-prog.cob:38: error: incomplete expression
-prog.cob:41: error: incomplete expression
-prog.cob:44: error: incomplete expression
-prog.cob:47: error: incomplete expression
-prog.cob:54: error: incomplete expression
-prog.cob:60: error: incomplete expression
-prog.cob:66: error: incomplete expression
-prog.cob:72: error: incomplete expression
-prog.cob:76: error: 'NOTDEFINED' is not defined
-prog.cob:80: error: invalid expression: boolean expected with logical operator
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:527"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_251
-#AT_START_252
-at_fn_group_banner 252 'syn_misc.at:550' \
- "Invalid conditional expression (2)" " " 2
-at_xfail=no
-(
- printf "%s\n" "252. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 WRKN PIC S999 VALUE 123.
- 88 WRKN-IS-ZERO VALUE 0.
- 01 WRKX PIC X(8) VALUE 'House'.
- PROCEDURE DIVISION.
- MAIN.
- EVALUATE WRKN
- GREATER ZERO
- < 0
- > 0
- WHEN TRUE
- DISPLAY "WHAT IS IT?"
- END-EVALUATE.
- IF WRKN = 123 EQUAL 456
- DISPLAY "Strange brew! " WRKN
- END-IF.
- IF WRKN NOT EQUAL 123 NOT = 456
- DISPLAY "Strange brew! " WRKN
- END-IF.
- IF WRKN = 123 OR 456
- DISPLAY "Home brew! " WRKN
- END-IF.
- IF WRKX = "Red" OR "White"
- DISPLAY "Home wine! " WRKX
- END-IF.
- IF WRKX <= "Red" = "White"
- DISPLAY "Home wine! " WRKX
- END-IF.
- IF WRKX = "Red" NOT "White"
- DISPLAY "Home wine! " WRKX
- END-IF.
- IF WRKN = (123 - 12) OR
- >= (456 + 16)
- DISPLAY "And another brew! " WRKN
- END-IF.
- IF ( WRKN-IS-ZERO + 3 ) > 0
- DISPLAY "Weird if compiled"
- END-IF.
- IF ( 3 + WRKN-IS-ZERO ) > 0
- DISPLAY "Weird if compiled"
- END-IF.
- IF ( WRKN-IS-ZERO AND WRKN-IS-ZERO ) > 0
- DISPLAY "Weird if compiled"
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:604: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:604"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in paragraph 'MAIN':
-prog.cob:13: error: condition expression found where decimal expression was expected
-prog.cob:18: error: condition expression found where decimal expression was expected
-prog.cob:21: error: condition expression found where decimal expression was expected
-prog.cob:30: error: condition expression found where decimal expression was expected
-prog.cob:33: error: invalid expression: unfinished expression
-prog.cob:40: error: condition-name not allowed here: 'WRKN-IS-ZERO'
-prog.cob:43: error: condition-name not allowed here: 'WRKN-IS-ZERO'
-prog.cob:46: error: condition expression found where decimal expression was expected
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:604"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_252
-#AT_START_253
-at_fn_group_banner 253 'syn_misc.at:619' \
- "Invalid conditional expression (3)" " " 2
-at_xfail=no
-(
- printf "%s\n" "253. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- ******************************************************************
- WORKING-STORAGE SECTION.
- *
- 01 FLD1 PIC 9 VALUE 1.
- 01 FLD2 PIC 9 VALUE 2.
- 01 FLDX PIC 9 VALUE 5.
- 01 FLDY PIC 9 VALUE 6.
-
- PROCEDURE DIVISION.
- IF 1 AND 2 > 1 THEN
- DISPLAY 'Test 1 is WRONG'
- ELSE
- DISPLAY 'Test 1 is OK'.
-
- IF FLD1 AND FLDX > FLD2 THEN
- DISPLAY 'Test 2 is OK'
- ELSE
- DISPLAY 'Test 2 is Wrong'.
-
- IF FLD1 OR FLDX > FLD2 THEN
- DISPLAY 'Test 2 is OK'
- ELSE
- DISPLAY 'Test 2 is Wrong'.
-
- IF FLD1 > 2 AND FLDX > FLD2 THEN
- DISPLAY 'Test 2 is OK'
- ELSE
- DISPLAY 'Test 2 is Wrong'.
-
- IF FLD2 IS NUMERIC AND FLD1 THEN
- DISPLAY 'Test 2 is OK'
- ELSE
- DISPLAY 'Test 2 is Wrong'.
-
- IF FLDX > FLD2 AND FLD1 AND 8 THEN
- DISPLAY 'Test 3 is OK ' FLDX ' > ' FLD2 ' & ' FLD1
- ELSE
- DISPLAY 'Test 3 is Wrong'.
-
- IF FLDX > FLD2 OR FLD1 OR 8 THEN
- DISPLAY 'Test 3 is OK'
- ELSE
- DISPLAY 'Test 3 is Wrong'.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:673: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:673"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:15: error: invalid conditional expression
-prog.cob:20: error: invalid conditional expression
-prog.cob:25: error: invalid conditional expression
-prog.cob:35: error: invalid expression: boolean expected with logical operator
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:673"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_253
-#AT_START_254
-at_fn_group_banner 254 'syn_misc.at:683' \
- "Valid conditional expression" " " 2
-at_xfail=no
-(
- printf "%s\n" "254. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 var PIC 999.
-
- PROCEDURE DIVISION.
- IF var = 83 AND > 1 + 1
- CONTINUE
- END-IF
- IF var = 83 AND > 2
- CONTINUE
- END-IF
- IF var = 83 AND > (1 + 1)
- CONTINUE
- END-IF
- IF (var NOT = 1) OR (var NOT = 2)
- CONTINUE
- END-IF
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:710: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:710"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:710"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:711: \$COMPILE_ONLY -fno-constant-folding prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fno-constant-folding prog.cob" "syn_misc.at:711"
-( $at_check_trace; $COMPILE_ONLY -fno-constant-folding prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:711"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_254
-#AT_START_255
-at_fn_group_banner 255 'syn_misc.at:716' \
- "missing headers" " " 2
-at_xfail=no
-(
- printf "%s\n" "255. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- SOURCE-COMPUTER. GNU-LINUX.
- SPECIAL-NAMES.
- SYMBOLIC NL IS 101
- NL2 102
- NUMERIC SIGN TRAILING SEPARATE
- DECIMAL-POINT IS COMMA
- .
-
- SELECT PRINT-FILE ASSIGN "EXTRXW"
- ORGANIZATION LINE SEQUENTIAL
- .
- DATA DIVISION.
- FD PRINT-FILE EXTERNAL.
- 01 PRINT-REC PIC X(64).
-
- DISPLAY "X"
- END-DISPLAY
- ACCEPT OMITTED
- END-ACCEPT
- GOBACK
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:743: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:743"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:2: error: PROGRAM-ID header missing
-prog.cob:2: error: ENVIRONMENT DIVISION header missing
-prog.cob:2: error: CONFIGURATION SECTION header missing
-prog.cob:10: error: INPUT-OUTPUT SECTION header missing
-prog.cob:10: error: FILE-CONTROL header missing
-prog.cob:14: error: FILE SECTION header missing
-prog.cob:17: error: PROCEDURE DIVISION header missing
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:743"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:753: \$COMPILE_ONLY -frelax-syntax-checks prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -frelax-syntax-checks prog.cob" "syn_misc.at:753"
-( $at_check_trace; $COMPILE_ONLY -frelax-syntax-checks prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:2: warning: PROGRAM-ID header missing
-prog.cob:2: note: PROGRAM-ID header assumed
-prog.cob:2: warning: ENVIRONMENT DIVISION header missing
-prog.cob:2: note: ENVIRONMENT DIVISION header assumed
-prog.cob:2: warning: CONFIGURATION SECTION header missing
-prog.cob:2: note: CONFIGURATION SECTION header assumed
-prog.cob:10: warning: INPUT-OUTPUT SECTION header missing
-prog.cob:10: note: INPUT-OUTPUT SECTION header assumed
-prog.cob:10: warning: FILE-CONTROL header missing
-prog.cob:10: note: FILE-CONTROL header assumed
-prog.cob:14: warning: FILE SECTION header missing
-prog.cob:14: note: FILE SECTION header assumed
-prog.cob:17: warning: PROCEDURE DIVISION header missing
-prog.cob:17: note: PROCEDURE DIVISION header assumed
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:753"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_255
-#AT_START_256
-at_fn_group_banner 256 'syn_misc.at:773' \
- "one line program" " " 2
-at_xfail=no
-(
- printf "%s\n" "256. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
- DISPLAY "minimal".
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:779: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:779"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:1: error: PROGRAM-ID header missing
-prog.cob:1: error: PROCEDURE DIVISION header missing
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:779"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:784: \$COMPILE_ONLY -frelax-syntax-checks prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -frelax-syntax-checks prog.cob" "syn_misc.at:784"
-( $at_check_trace; $COMPILE_ONLY -frelax-syntax-checks prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:1: warning: PROGRAM-ID header missing
-prog.cob:1: note: PROGRAM-ID header assumed
-prog.cob:1: warning: PROCEDURE DIVISION header missing
-prog.cob:1: note: PROCEDURE DIVISION header assumed
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:784"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_256
-#AT_START_257
-at_fn_group_banner 257 'syn_misc.at:794' \
- "empty program" " " 2
-at_xfail=no
-(
- printf "%s\n" "257. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x PIC 999 VALUE 124.
- END PROGRAM prog.
-_ATEOF
-
-
-# Note: we need to test for generating a valid C source (with normal/no flags)
-# here, not only for COBOL compilation
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:809: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "syn_misc.at:809"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:809"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:810: \$COBC prog.cob"
-at_fn_check_prepare_dynamic "$COBC prog.cob" "syn_misc.at:810"
-( $at_check_trace; $COBC prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:810"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x PIC 999 VALUE 124.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:821: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "syn_misc.at:821"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:821"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:822: \$COBC prog2.cob"
-at_fn_check_prepare_dynamic "$COBC prog2.cob" "syn_misc.at:822"
-( $at_check_trace; $COBC prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:822"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-: >prog3.cob
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:826: \$COMPILE_ONLY prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog3.cob" "syn_misc.at:826"
-( $at_check_trace; $COMPILE_ONLY prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog3.cob:1: error: PROGRAM-ID header missing
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:826"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:830: \$COMPILE -fdiagnostics-plain-output -frelax-syntax-checks prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fdiagnostics-plain-output -frelax-syntax-checks prog3.cob" "syn_misc.at:830"
-( $at_check_trace; $COMPILE -fdiagnostics-plain-output -frelax-syntax-checks prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog3.cob:1: warning: PROGRAM-ID header missing
-prog3.cob:1: note: PROGRAM-ID header assumed
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:830"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:834: \$COBC -fdiagnostics-plain-output -frelax-syntax-checks prog3.cob"
-at_fn_check_prepare_dynamic "$COBC -fdiagnostics-plain-output -frelax-syntax-checks prog3.cob" "syn_misc.at:834"
-( $at_check_trace; $COBC -fdiagnostics-plain-output -frelax-syntax-checks prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog3.cob:1: warning: PROGRAM-ID header missing [-Wothers]
-prog3.cob:1: note: PROGRAM-ID header assumed [-Wothers]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:834"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_257
-#AT_START_258
-at_fn_group_banner 258 'syn_misc.at:842' \
- "INITIALIZE constant" " " 2
-at_xfail=no
-(
- printf "%s\n" "258. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 CON CONSTANT 10.
- 01 V PIC 9.
- 78 C78 VALUE 'A'.
- PROCEDURE DIVISION.
- INITIALIZE CON.
- INITIALIZE V.
- INITIALIZE V, 9.
- INITIALIZE C78, V.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:860: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:860"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: invalid INITIALIZE statement
-prog.cob:12: error: invalid INITIALIZE statement
-prog.cob:13: error: invalid INITIALIZE statement
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:860"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_258
-#AT_START_259
-at_fn_group_banner 259 'syn_misc.at:869' \
- "CLASS duplicate values" " " 2
-at_xfail=no
-(
- printf "%s\n" "259. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- SYMBOLIC NL IS 101
- NL2 102
- CLASS CHECK-VALID 'a' THRU 'z'
- 'A' THRU 'Z'
- 'cdef'
- .
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(8).
- PROCEDURE DIVISION.
- IF X IS CHECK-VALID
- DISPLAY "OK"
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:895: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:895"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: warning: duplicate character values in class 'CHECK-VALID'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:895"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_259
-#AT_START_260
-at_fn_group_banner 260 'syn_misc.at:902' \
- "INSPECT invalid size" " " 2
-at_xfail=no
-(
- printf "%s\n" "260. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- ALPHABET ALPHA IS ASCII.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01.
- 02 X-POS PIC 9 VALUE 3.
- 02 X PIC X(8) OCCURS 2.
- PROCEDURE DIVISION.
- INSPECT X(1) REPLACING ALL SPACES BY "AA".
- INSPECT X(1) REPLACING ALL "ABC" BY "AA".
- INSPECT X(1) REPLACING ALL "DEF" BY SPACES.
- INSPECT X(1) CONVERTING SPACES TO "AA".
- INSPECT X(1) CONVERTING "ABC" TO "AA".
- INSPECT X(1) (X-POS:2) CONVERTING "DEF" TO SPACES.
- INSPECT X(1) CONVERTING "GHI" TO ALPHA.
- *> the following is allowed, see NC221A and ref-mod definition
- INSPECT X(1) CONVERTING "DEF" TO X(2) (X-POS:3).
- INSPECT X(1) CONVERTING "DEF" TO X(2) (X-POS:4).
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:931: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:931"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:14: error: REPLACING operands differ in size
-prog.cob:15: error: REPLACING operands differ in size
-prog.cob:17: error: CONVERTING operands differ in size
-prog.cob:18: error: CONVERTING operands differ in size
-prog.cob:20: error: CONVERTING operands differ in size
-prog.cob:23: error: CONVERTING operands differ in size
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:931"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_260
-#AT_START_261
-at_fn_group_banner 261 'syn_misc.at:943' \
- "INSPECT invalid target" " " 2
-at_xfail=no
-(
- printf "%s\n" "261. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(8).
- PROCEDURE DIVISION.
- INSPECT FUNCTION TRIM(X) REPLACING ALL "ABC" BY "DEF".
- INSPECT FUNCTION TRIM(X) CONVERTING "ABC" TO "AAA".
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:958: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:958"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: error: invalid target for REPLACING
-prog.cob:9: error: invalid target for CONVERTING
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:958"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_261
-#AT_START_262
-at_fn_group_banner 262 'syn_misc.at:966' \
- "INSPECT missing keyword" " " 2
-at_xfail=no
-(
- printf "%s\n" "262. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(8).
- PROCEDURE DIVISION.
- INSPECT X REPLACING "AB" BY "CD".
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:980: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:980"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: error: INSPECT missing ALL/FIRST/LEADING/TRAILING
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:980"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_262
-#AT_START_263
-at_fn_group_banner 263 'syn_misc.at:987' \
- "INSPECT repeated keywords" " " 2
-at_xfail=no
-(
- printf "%s\n" "263. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x PIC 9(5).
-
- PROCEDURE DIVISION.
- *> Ok
- INSPECT "abcde" TALLYING x FOR CHARACTERS CHARACTERS
-
- *> Not ok
- INSPECT "abcde" TALLYING x FOR ALL LEADING
- TRAILING ALL ALL ALL TRAILING
- INSPECT "abcde" TALLYING x FOR x FOR LEADING "a"
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1009: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:1009"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:14: error: missing value between ALL/LEADING/TRAILING words
-prog.cob:15: error: missing value between ALL/LEADING/TRAILING words
-prog.cob:15: error: missing value between ALL/LEADING/TRAILING words
-prog.cob:15: error: missing value between ALL/LEADING/TRAILING words
-prog.cob:15: error: missing value between ALL/LEADING/TRAILING words
-prog.cob:15: error: missing value between ALL/LEADING/TRAILING words
-prog.cob:16: error: TALLYING clause is incomplete
-prog.cob:16: error: missing CHARACTERS/ALL/LEADING/TRAILING phrase after FOR phrase
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:1009"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_263
-#AT_START_264
-at_fn_group_banner 264 'syn_misc.at:1023' \
- "INSPECT incomplete clause" " " 2
-at_xfail=no
-(
- printf "%s\n" "264. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x PIC 9(5).
-
- PROCEDURE DIVISION.
- INSPECT "abcde" TALLYING x FOR
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1039: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:1039"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:11: error: TALLYING clause is incomplete
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:1039"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_264
-#AT_START_265
-at_fn_group_banner 265 'syn_misc.at:1045' \
- "INSPECT multiple BEFORE/AFTER clauses" " " 2
-at_xfail=no
-(
- printf "%s\n" "265. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x PIC X(10).
-
- PROCEDURE DIVISION.
- INSPECT x REPLACING CHARACTERS BY "x"
- BEFORE "A" BEFORE "b" AFTER "c"
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1062: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:1062"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:11: error: syntax error, unexpected BEFORE
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:1062"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_265
-#AT_START_266
-at_fn_group_banner 266 'syn_misc.at:1068' \
- "EXAMINE invalid literals" " " 2
-at_xfail=no
-(
- printf "%s\n" "266. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x PIC X(10).
- 01 y PIC X.
- 01 yy PIC XX.
-
- PROCEDURE DIVISION.
- EXAMINE x TALLYING ALL "AA" REPLACING BY "CC"
- EXAMINE x TALLYING UNTIL FIRST SPACE
- EXAMINE x TALLYING UNTIL FIRST y
- EXAMINE x TALLYING LEADING yy
- EXAMINE y TALLYING ALL x (1).
- EXAMINE y TALLYING ALL x (3:2).
- EXAMINE x TALLYING UNTIL FIRST ALL
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1091: \$COMPILE_ONLY -freserved=EXAMINE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -freserved=EXAMINE prog.cob" "syn_misc.at:1091"
-( $at_check_trace; $COMPILE_ONLY -freserved=EXAMINE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:12: error: single-character literal or data item expected
-prog.cob:12: error: single-character literal or data item expected
-prog.cob:15: error: single-character literal or data item expected
-prog.cob:16: error: single-character literal or data item expected
-prog.cob:16: error: syntax error, unexpected (
-prog.cob:17: error: single-character literal or data item expected
-prog.cob:17: error: syntax error, unexpected (
-prog.cob:18: error: syntax error, unexpected ALL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:1091"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_266
-#AT_START_267
-at_fn_group_banner 267 'syn_misc.at:1104' \
- "maximum data size" " " 2
-at_xfail=no
-(
- printf "%s\n" "267. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 SINGLE-ITEM PIC X(9999999999).
- 01 GROUP-ITEM1.
- 05 FILLER PIC X(9999999999).
- 01 GROUP-ITEM2.
- 05 FILLER PIC X(199999999).
- 05 FILLER PIC X(199999999).
- >> IF P64 SET
- 05 FILLER PIC X(1999999999).
- >> END-IF
- PROCEDURE DIVISION.
- STOP RUN.
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1126: test \"\$COB_HAS_64_BIT_POINTER\" = \"yes\""
-at_fn_check_prepare_dynamic "test \"$COB_HAS_64_BIT_POINTER\" = \"yes\"" "syn_misc.at:1126"
-( $at_check_trace; test "$COB_HAS_64_BIT_POINTER" = "yes"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:1126"
-if $at_failed
-then :
- # Previous test "failed" --> 32 bit
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1126: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:1126"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: error: 'SINGLE-ITEM' cannot be larger than 268435456 bytes
-prog.cob:8: error: 'FILLER 1' cannot be larger than 268435456 bytes
-prog.cob:7: error: 'GROUP-ITEM1' cannot be larger than 268435456 bytes
-prog.cob:9: error: 'GROUP-ITEM2' cannot be larger than 268435456 bytes
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:1126"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-else $as_nop
- # Previous test "passed" --> 64 bit
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1126: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:1126"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: error: 'SINGLE-ITEM' cannot be larger than 2147483646 bytes
-prog.cob:8: error: 'FILLER 1' cannot be larger than 2147483646 bytes
-prog.cob:7: error: 'GROUP-ITEM1' cannot be larger than 2147483646 bytes
-prog.cob:9: error: 'GROUP-ITEM2' cannot be larger than 2147483646 bytes
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:1126"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-fi
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_267
-#AT_START_268
-at_fn_group_banner 268 'syn_misc.at:1152' \
- "unreachable statement" " " 2
-at_xfail=no
-(
- printf "%s\n" "268. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT f ASSIGN TO 'f' LINE SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD f.
- 01 f-rec PIC X.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DECLARATIVES.
- f-error SECTION.
- USE AFTER ERROR ON f.
- GOBACK
- .
- END DECLARATIVES.
-
- DISPLAY "VALID"
- END-DISPLAY.
-
- P01.
- GO TO P02.
- DISPLAY "INVALID"
- END-DISPLAY.
- P02.
- GO TO P03
- CONTINUE. *> explicit no unreachable warning
- P03.
- GO TO P04
- CONTINUE AFTER 2 SECONDS. *> that's one again
- P04.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1192: \$COMPILE_ONLY -Wunreachable prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wunreachable prog.cob" "syn_misc.at:1192"
-( $at_check_trace; $COMPILE_ONLY -Wunreachable prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in paragraph 'P01':
-prog.cob:26: warning: unreachable statement 'DISPLAY'
-prog.cob: in paragraph 'P03':
-prog.cob:33: warning: unreachable statement 'CONTINUE AFTER'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:1192"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_268
-#AT_START_269
-at_fn_group_banner 269 'syn_misc.at:1202' \
- "CRT STATUS" " " 2
-at_xfail=no
-(
- printf "%s\n" "269. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- CRT STATUS IS MY-CRT-STATUS.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X.
- PROCEDURE DIVISION.
- ACCEPT X END-ACCEPT.
- STOP RUN.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- CRT STATUS IS MY-CRT-STATUS.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X.
- 77 MY-CRT-STATUS PIC 9(04).
- PROCEDURE DIVISION.
- ACCEPT X END-ACCEPT.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1236: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:1236"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: error: 'MY-CRT-STATUS' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:1236"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1239: \$COMPILE_ONLY prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog2.cob" "syn_misc.at:1239"
-( $at_check_trace; $COMPILE_ONLY prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:1239"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_269
-#AT_START_270
-at_fn_group_banner 270 'syn_misc.at:1244' \
- "SPECIAL-NAMES clause" " " 2
-at_xfail=no
-(
- printf "%s\n" "270. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# FIXME: actually this is the only place for some CRT STATUS checks...
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- CRT STATUS IS MY-CRT-STATUS.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 CURSOR-POSITION IS SPECIAL-NAMES CURSOR.
- 03 CURSOR-ROW PIC 999.
- 03 CURSOR-COL PIC 999.
- 77 MY-CRT-STATUS PIC 9(04).
- 77 CRT-STATUS IS SPECIAL-NAMES CRT STATUS PIC 9(5).
- PROCEDURE DIVISION.
- ACCEPT OMITTED END-ACCEPT.
- STOP RUN.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 CRT-STATUS IS SPECIAL-NAMES CRT STATUS PIC X(5).
- PROCEDURE DIVISION.
- ACCEPT OMITTED END-ACCEPT.
- STOP RUN.
-_ATEOF
-
-
-cat >prog3.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 CURSOR-POSITION IS SPECIAL-NAMES CURSOR.
- 03 CURSOR-ROW PIC 999.
- 03 CURSOR-COL PIC 999.
- 77 CRT-STATUS PIC X(4) IS SPECIAL-NAMES CRT STATUS.
- PROCEDURE DIVISION.
- ACCEPT OMITTED END-ACCEPT.
- STOP RUN.
-_ATEOF
-
-
-cat >prog4.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 CURSOR-POSITION IS SPECIAL-NAMES CURSOR.
- 03 CURSOR-ROW PIC 999.
- 03 CURSOR-COL PIC 999.
- 77 CRT-STATUS PIC 9(5) IS SPECIAL-NAMES CRT STATUS.
- PROCEDURE DIVISION.
- ACCEPT OMITTED END-ACCEPT.
- STOP RUN.
-_ATEOF
-
-
-cat >prog5.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 CRT-STATUS PIC 9(3) IS SPECIAL-NAMES CRT STATUS.
- PROCEDURE DIVISION.
- ACCEPT OMITTED END-ACCEPT.
- STOP RUN.
-_ATEOF
-
-
-cat >prog6.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 CRT-STATUS PIC X(3) IS SPECIAL-NAMES CRT STATUS.
- PROCEDURE DIVISION.
- ACCEPT OMITTED END-ACCEPT.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1329: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:1329"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:14: error: duplicate CRT STATUS clause
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:1329"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1332: \$COMPILE_ONLY prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog2.cob" "syn_misc.at:1332"
-( $at_check_trace; $COMPILE_ONLY prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:6: error: 'CRT-STATUS' CRT STATUS must be 3 or 4 characters long
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:1332"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1335: \$COMPILE_ONLY prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog3.cob" "syn_misc.at:1335"
-( $at_check_trace; $COMPILE_ONLY prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:1335"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1336: \$COMPILE_ONLY prog4.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog4.cob" "syn_misc.at:1336"
-( $at_check_trace; $COMPILE_ONLY prog4.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:1336"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1337: \$COMPILE_ONLY prog5.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog5.cob" "syn_misc.at:1337"
-( $at_check_trace; $COMPILE_ONLY prog5.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog5.cob:6: error: 'CRT-STATUS' numeric CRT STATUS must have at least 4 digits
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:1337"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1340: \$COMPILE_ONLY prog6.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog6.cob" "syn_misc.at:1340"
-( $at_check_trace; $COMPILE_ONLY prog6.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:1340"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_270
-#AT_START_271
-at_fn_group_banner 271 'syn_misc.at:1345' \
- "CURRENCY SIGN" " " 2
-at_xfail=no
-(
- printf "%s\n" "271. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- CURRENCY SIGN IS '*'.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- CURRENCY 'DOLLAR'.
-_ATEOF
-
-
-cat >prog3.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- CURRENCY 'DOLLAR'
- WITH PICTURE SYMBOL '$'.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 SOME-CASH PIC 9(04).99$.
- PROCEDURE DIVISION.
- MOVE 123.4 TO SOME-CASH
- DISPLAY SOME-CASH END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-cat >prog4.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog4.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- CURRENCY ' '
- PICTURE SYMBOL '*'.
-_ATEOF
-
-
-cat >prog5.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog5.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- CURRENCY ' T '
- PICTURE SYMBOL ' '.
-_ATEOF
-
-
-cat >prog6.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog6.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- CURRENCY '+-'
- PICTURE SYMBOL 'TT'.
-_ATEOF
-
-
-cat >prog7.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog7.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- CURRENCY SIGN IS 'T'.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 SOME-CASH PIC 9(04).99T.
- PROCEDURE DIVISION.
- MOVE 123.4 TO SOME-CASH
- DISPLAY SOME-CASH END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1429: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:1429"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: error: invalid character '*' in currency symbol
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:1429"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1432: \$COMPILE_ONLY prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog2.cob" "syn_misc.at:1432"
-( $at_check_trace; $COMPILE_ONLY prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:7: error: currency symbol must be one character long
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:1432"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1435: \$COMPILE_ONLY prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog3.cob" "syn_misc.at:1435"
-( $at_check_trace; $COMPILE_ONLY prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog3.cob:7: warning: separate currency symbol and currency string is not implemented
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:1435"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1438: \$COMPILE_ONLY prog4.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog4.cob" "syn_misc.at:1438"
-( $at_check_trace; $COMPILE_ONLY prog4.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog4.cob:7: warning: separate currency symbol and currency string is not implemented
-prog4.cob:7: error: invalid CURRENCY SIGN ' '
-prog4.cob:8: error: invalid character '*' in currency symbol
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:1438"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1443: \$COMPILE_ONLY prog5.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog5.cob" "syn_misc.at:1443"
-( $at_check_trace; $COMPILE_ONLY prog5.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog5.cob:7: warning: separate currency symbol and currency string is not implemented
-prog5.cob:8: error: invalid character ' ' in currency symbol
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:1443"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1447: \$COMPILE_ONLY prog6.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog6.cob" "syn_misc.at:1447"
-( $at_check_trace; $COMPILE_ONLY prog6.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog6.cob:7: warning: separate currency symbol and currency string is not implemented
-prog6.cob:7: error: invalid CURRENCY SIGN '+-'
-prog6.cob:8: error: currency symbol must be one character long
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:1447"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1452: \$COMPILE_ONLY prog7.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog7.cob" "syn_misc.at:1452"
-( $at_check_trace; $COMPILE_ONLY prog7.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:1452"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_271
-#AT_START_272
-at_fn_group_banner 272 'syn_misc.at:1457' \
- "SWITCHES" " " 2
-at_xfail=no
-(
- printf "%s\n" "272. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- SW1
- ON IS SWIT1-ON
- OFF IS SWIT1-OFF
- .
- SWITCH B IS SWITCH-B
- ON IS SWIT2-ON
- OFF IS SWIT2-OFF
- .
- SWITCH-25
- ON IS SWIT25-ON
- OFF IS SWIT25-OFF
- .
- SWITCH-25
- ON IS SWIT25-IS-ON
- OFF IS SWIT25-IS-OFF
- .
- SWITCH 25
- ON IS SWIT25-SP-ON
- OFF IS SWIT25-SP-OFF
- .
- SWITCH Y
- ON IS SWIT25-Y-ON
- OFF IS SWIT25-Y-OFF
- .
- SWITCH Z
- ON IS SWIT26-ON
- ON IS SWIT26-OFF
- .
- SWITCH-32
- ON IS SWIT32-ON
- .
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 SWITCH PIC 99 VALUE 12.
- PROCEDURE DIVISION.
- ADD SWITCH 1 GIVING SWITCH
- END-ADD.
- IF SWITCH NOT = 13
- DISPLAY "SWITCH (variable) WRONG: "
- SWITCH
- END-DISPLAY
- END-IF.
- IF SWIT1-ON
- DISPLAY "ON"
- END-DISPLAY
- ELSE
- DISPLAY "OFF"
- END-DISPLAY
- END-IF.
- IF SWIT2-ON
- DISPLAY " ON"
- END-DISPLAY
- ELSE
- DISPLAY " OFF"
- END-DISPLAY
- END-IF.
- SET SWITCH-B TO OFF
- IF SWIT2-ON
- CONTINUE
- END-IF.
- IF SWIT25-ON
- CONTINUE
- END-IF.
- IF SWIT26-ON
- CONTINUE
- END-IF.
- IF SWIT32-ON
- CONTINUE
- END-IF.
- IF SWIT32-OFF
- CONTINUE
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1541: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:1541"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: error: invalid system-name 'SW1'
-prog.cob:8: error: ON/OFF usage requires a SWITCH name
-prog.cob:9: error: ON/OFF usage requires a SWITCH name
-prog.cob:11: error: invalid system-name 'SWITCH B'
-prog.cob:12: error: ON/OFF usage requires a SWITCH name
-prog.cob:13: error: ON/OFF usage requires a SWITCH name
-prog.cob:23: error: invalid system-name 'SWITCH 25'
-prog.cob:24: error: ON/OFF usage requires a SWITCH name
-prog.cob:25: error: ON/OFF usage requires a SWITCH name
-prog.cob:27: error: invalid system-name 'SWITCH Y'
-prog.cob:28: error: ON/OFF usage requires a SWITCH name
-prog.cob:29: error: ON/OFF usage requires a SWITCH name
-prog.cob:31: error: invalid system-name 'SWITCH Z'
-prog.cob:32: error: ON/OFF usage requires a SWITCH name
-prog.cob:33: error: ON/OFF usage requires a SWITCH name
-prog.cob:49: error: 'SWIT1-ON' is not defined
-prog.cob:56: error: 'SWIT2-ON' is not defined
-prog.cob:63: error: 'SWITCH-B' is not defined
-prog.cob:63: error: syntax error, unexpected OFF
-prog.cob:70: error: 'SWIT26-ON' is not defined
-prog.cob:76: error: 'SWIT32-OFF' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:1541"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# FIXME: There should be an additional
-#prog.cob:19: error: duplicate definition of 'SWITCH-25'
-#prog.cob:15: note: 'SWITCH-25' previously defined here
-#
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1568: \$COMPILE_ONLY -std=acu-strict -fsystem-name=SW1 -fno-relax-syntax-checks prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=acu-strict -fsystem-name=SW1 -fno-relax-syntax-checks prog.cob" "syn_misc.at:1568"
-( $at_check_trace; $COMPILE_ONLY -std=acu-strict -fsystem-name=SW1 -fno-relax-syntax-checks prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:33: error: duplicate ON clause
-prog.cob:76: error: 'SWIT32-OFF' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:1568"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# FIXME: There should be an additional
-#prog.cob:19: error: duplicate definition of 'SWITCH-25'
-#prog.cob:15: note: 'SWITCH-25' previously defined here
-#prog.cob:23: error: duplicate definition of 'SWITCH 25'
-#prog.cob:15: note: 'SWITCH-25' previously defined here
-#prog.cob:27: error: duplicate definition of 'SWITCH Y'
-#prog.cob:15: note: 'SWITCH-25' previously defined here
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_272
-#AT_START_273
-at_fn_group_banner 273 'syn_misc.at:1583' \
- "unexpected mnemonic-name location" " " 2
-at_xfail=no
-(
- printf "%s\n" "273. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- stdin IS my-stdin
- .
- PROCEDURE DIVISION.
- CALL "something" USING stdout
- CALL "something" USING stdin
- CALL "something" USING my-stdin
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1601: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:1601"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: invalid mnemonic identifier
-prog.cob:11: error: invalid mnemonic identifier
-prog.cob:12: error: invalid mnemonic identifier
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:1601"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_273
-#AT_START_274
-at_fn_group_banner 274 'syn_misc.at:1610' \
- "wrong device for mnemonic-name" " " 2
-at_xfail=no
-(
- printf "%s\n" "274. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 var PIC x.
- PROCEDURE DIVISION.
- ACCEPT var FROM SYSOUT
- DISPLAY var UPON SYSIN
- ACCEPT var FROM SYSIN
- DISPLAY var UPON SYSOUT
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1627: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:1627"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: error: 'SYSOUT' is not an input device
-prog.cob:9: error: 'SYSIN' is not an output device
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:1627"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_274
-#AT_START_275
-at_fn_group_banner 275 'syn_misc.at:1635' \
- "missing mnemonic-name declaration" " " 2
-at_xfail=no
-(
- printf "%s\n" "275. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 var PIC x.
- PROCEDURE DIVISION.
- ACCEPT var FROM mnemonic-name
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1649: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:1649"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: error: unknown device 'mnemonic-name'; not defined in SPECIAL-NAMES
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:1649"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_275
-#AT_START_276
-at_fn_group_banner 276 'syn_misc.at:1656' \
- "unknown device in dialect" " " 2
-at_xfail=no
-(
- printf "%s\n" "276. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 var PIC x.
- PROCEDURE DIVISION.
- ACCEPT var FROM COMMAND-LINE
- DISPLAY var UPON COMMAND-LINE
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1671: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:1671"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:1671"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# Checkme: Error currently doesn't occur for UPON_COMMAND_LINE as this is already tokenized
-# in scanner.l. We just ignore this for now and maybe fix it later.
-#AT_CHECK([$COMPILE_ONLY -fnot-reserved=COMMAND-LINE prog.cob], [1], [],
-#[prog.cob:8: error: unknown device 'COMMAND-LINE'; it may exist in another dialect
-#prog.cob:9: error: unknown device 'COMMAND-LINE'; it may exist in another dialect
-#])
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1679: \$COMPILE_ONLY -fnot-reserved=COMMAND-LINE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fnot-reserved=COMMAND-LINE prog.cob" "syn_misc.at:1679"
-( $at_check_trace; $COMPILE_ONLY -fnot-reserved=COMMAND-LINE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: error: unknown device 'COMMAND-LINE'; it may exist in another dialect
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:1679"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_276
-#AT_START_277
-at_fn_group_banner 277 'syn_misc.at:1686' \
- "ACCEPT WITH ( NO ) UPDATE / DEFAULT" " " 2
-at_xfail=no
-(
- printf "%s\n" "277. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X.
- PROCEDURE DIVISION.
- ACCEPT X END-ACCEPT.
- ACCEPT X WITH UPDATE END-ACCEPT.
- ACCEPT X WITH DEFAULT END-ACCEPT.
- ACCEPT X WITH NO UPDATE END-ACCEPT.
- ACCEPT X WITH NO DEFAULT END-ACCEPT.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1706: \$COMPILE_ONLY -faccept-update prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -faccept-update prog.cob" "syn_misc.at:1706"
-( $at_check_trace; $COMPILE_ONLY -faccept-update prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:1706"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_277
-#AT_START_278
-at_fn_group_banner 278 'syn_misc.at:1711' \
- "ACCEPT WITH AUTO / TAB" " " 2
-at_xfail=no
-(
- printf "%s\n" "278. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X.
- PROCEDURE DIVISION.
- ACCEPT X END-ACCEPT.
- ACCEPT X WITH AUTO END-ACCEPT.
- ACCEPT X WITH AUTO-SKIP END-ACCEPT.
- ACCEPT X WITH AUTOTERMINATE END-ACCEPT.
- ACCEPT X WITH TAB END-ACCEPT.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1731: \$COMPILE_ONLY -faccept-auto prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -faccept-auto prog.cob" "syn_misc.at:1731"
-( $at_check_trace; $COMPILE_ONLY -faccept-auto prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:1731"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_278
-#AT_START_279
-at_fn_group_banner 279 'syn_misc.at:1736' \
- "ACCEPT WITH LOWER / UPPER" " " 2
-at_xfail=no
-(
- printf "%s\n" "279. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(05).
- PROCEDURE DIVISION.
- ACCEPT X WITH LOWER END-ACCEPT.
- ACCEPT X WITH UPPER END-ACCEPT.
- ACCEPT X LOWER
- ACCEPT X UPPER
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1753: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:1753"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:1753"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_279
-#AT_START_280
-at_fn_group_banner 280 'syn_misc.at:1758' \
- "ACCEPT WITH SIZE" " " 2
-at_xfail=no
-(
- printf "%s\n" "280. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(05).
- 01 Y PIC 9(04) BINARY VALUE 4.
- PROCEDURE DIVISION.
- ACCEPT X WITH SIZE 0 END-ACCEPT.
- ACCEPT X WITH SIZE IS 1 END-ACCEPT.
- ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT.
- ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT.
- ACCEPT X SIZE Y END-ACCEPT.
- ACCEPT X SIZE 0
- ACCEPT X SIZE IS 1
- ACCEPT X PROTECTED SIZE 2
- ACCEPT X PROTECTED SIZE IS 3
- ACCEPT X SIZE Y
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1782: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:1782"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:1782"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_280
-#AT_START_281
-at_fn_group_banner 281 'syn_misc.at:1787' \
- "DISPLAY WITH SIZE" " " 2
-at_xfail=no
-(
- printf "%s\n" "281. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(05).
- 01 Y PIC 9(04) BINARY VALUE 7.
- PROCEDURE DIVISION.
- DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY.
- DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY.
- DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY.
- DISPLAY X AT 0101 SIZE 5 END-DISPLAY.
- DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY.
- DISPLAY X AT 0101 SIZE IS Y END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1807: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:1807"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:1807"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_281
-#AT_START_282
-at_fn_group_banner 282 'syn_misc.at:1812' \
- "source text after program-text area" " " 2
-at_xfail=no
-(
- printf "%s\n" "282. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION. COMMENT
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1826: \$COMPILE_ONLY -Wextra prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wextra prog.cob" "syn_misc.at:1826"
-( $at_check_trace; $COMPILE_ONLY -Wextra prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: warning: source text after program-text area (column 72)
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:1826"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_282
-#AT_START_283
-at_fn_group_banner 283 'syn_misc.at:1833' \
- "line overflow in fixed-form / free-form" " " 2
-at_xfail=no
-(
- printf "%s\n" "283. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# We're testing trailing tabs and whitespace (should not lead to warning)
-# along with comments after boundaries (col 72 / col 512)
-
-# remark: some editors remove trailing spaces, the workaround: add "_" and
-# remove it later via sed; AT_DATA would not do that when using double [[ ]]
-
-cat >prog_tmpl.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION. _
- DATA DIVISION. _
- WORKING-STORAGE SECTION. *> This is a real comment
- PROCEDURE DIVISION. This is commentary only
- CONTINUE. *> comment after column 72
- * This is a very long comment that exceeds column 72 but doesn't exceed 512 bytes, therefore not leading to a line overflow. As it is a comment line there is no "Source text after column 72" warning
- CONTINUE. CONTINUE.
- CONTINUE. _
- STOP RUN.
-_ATEOF
-
-
-# AT_DATA workaround via sed:
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1858: \$SED -e 's/_\$//' prog_tmpl.cob > prog.cob"
-at_fn_check_prepare_dynamic "$SED -e 's/_$//' prog_tmpl.cob > prog.cob" "syn_misc.at:1858"
-( $at_check_trace; $SED -e 's/_$//' prog_tmpl.cob > prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:1858"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1860: \$COBC -fsyntax-only -fdiagnostics-plain-output -fixed -Wextra prog.cob"
-at_fn_check_prepare_dynamic "$COBC -fsyntax-only -fdiagnostics-plain-output -fixed -Wextra prog.cob" "syn_misc.at:1860"
-( $at_check_trace; $COBC -fsyntax-only -fdiagnostics-plain-output -fixed -Wextra prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: warning: source text exceeds 512 bytes, will be truncated [-Wothers]
-prog.cob:8: warning: source text exceeds 512 bytes, will be truncated [-Wothers]
-prog.cob:11: warning: source text after program-text area (column 72) [-Wdangling-text]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:1860"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1866: \$COBC -fsyntax-only -fdiagnostics-plain-output -free -Wextra prog.cob"
-at_fn_check_prepare_dynamic "$COBC -fsyntax-only -fdiagnostics-plain-output -free -Wextra prog.cob" "syn_misc.at:1866"
-( $at_check_trace; $COBC -fsyntax-only -fdiagnostics-plain-output -free -Wextra prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: warning: source text exceeds 512 bytes, will be truncated [-Wothers]
-prog.cob:8: warning: source text exceeds 512 bytes, will be truncated [-Wothers]
-prog.cob:8: error: syntax error, unexpected IS, expecting SECTION or .
-prog.cob:8: note: unknown statement 'This'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:1866"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1873: \$COBC -fsyntax-only -fdiagnostics-plain-output -F -Wextra prog.cob"
-at_fn_check_prepare_dynamic "$COBC -fsyntax-only -fdiagnostics-plain-output -F -Wextra prog.cob" "syn_misc.at:1873"
-( $at_check_trace; $COBC -fsyntax-only -fdiagnostics-plain-output -F -Wextra prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: warning: source text exceeds 512 bytes, will be truncated [-Wothers]
-prog.cob:8: warning: source text exceeds 512 bytes, will be truncated [-Wothers]
-prog.cob:8: error: syntax error, unexpected IS, expecting SECTION or .
-prog.cob:8: note: unknown statement 'This'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:1873"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# Check dialect option `format` (fixed for default) does not erase flags like `-F`, `--free`:
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1881: \$COBC -fsyntax-only -fdiagnostics-plain-output -F -std=default -Wextra prog.cob"
-at_fn_check_prepare_dynamic "$COBC -fsyntax-only -fdiagnostics-plain-output -F -std=default -Wextra prog.cob" "syn_misc.at:1881"
-( $at_check_trace; $COBC -fsyntax-only -fdiagnostics-plain-output -F -std=default -Wextra prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: warning: source text exceeds 512 bytes, will be truncated [-Wothers]
-prog.cob:8: warning: source text exceeds 512 bytes, will be truncated [-Wothers]
-prog.cob:8: error: syntax error, unexpected IS, expecting SECTION or .
-prog.cob:8: note: unknown statement 'This'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:1881"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_283
-#AT_START_284
-at_fn_group_banner 284 'syn_misc.at:1891' \
- "missing newline in fixed-form / free-form" " " 2
-at_xfail=no
-(
- printf "%s\n" "284. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- PROCEDURE DIVISION.
- CONTINUE
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1903: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:1903"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: warning: optional period used
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:1903"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# fixing the initial setup but now producing a missing newline:
-printf " CONTINUE." >> prog.cob
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1910: \$COBC -fsyntax-only -fdiagnostics-plain-output -Wextra -fixed prog.cob"
-at_fn_check_prepare_dynamic "$COBC -fsyntax-only -fdiagnostics-plain-output -Wextra -fixed prog.cob" "syn_misc.at:1910"
-( $at_check_trace; $COBC -fsyntax-only -fdiagnostics-plain-output -Wextra -fixed prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: warning: line not terminated by a newline [-Wmissing-newline]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:1910"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1913: \$COBC -fsyntax-only -fdiagnostics-plain-output -Wextra -free prog.cob"
-at_fn_check_prepare_dynamic "$COBC -fsyntax-only -fdiagnostics-plain-output -Wextra -free prog.cob" "syn_misc.at:1913"
-( $at_check_trace; $COBC -fsyntax-only -fdiagnostics-plain-output -Wextra -free prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: warning: line not terminated by a newline [-Wmissing-newline]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:1913"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# should not happen if the data only consists of space characters
-printf "\n \t " >> prog.cob
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1919: \$COMPILE_ONLY -Wextra prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wextra prog.cob" "syn_misc.at:1919"
-( $at_check_trace; $COMPILE_ONLY -Wextra prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:1919"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_284
-#AT_START_285
-at_fn_group_banner 285 'syn_misc.at:1925' \
- "continuation of COBOL words" " " 2
-at_xfail=no
-(
- printf "%s\n" "285. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- GO
- - BACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1936: \$COMPILE_ONLY -std=cobol2014 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol2014 prog.cob" "syn_misc.at:1936"
-( $at_check_trace; $COMPILE_ONLY -std=cobol2014 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: warning: continuation of COBOL words is archaic in COBOL 2014
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:1936"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:1939: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:1939"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: warning: continuation of COBOL words used
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:1939"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_285
-#AT_START_286
-at_fn_group_banner 286 'syn_misc.at:1947' \
- "line and floating comments" " " 2
-at_xfail=no
-(
- printf "%s\n" "286. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- * DISPLAY 'COMMENT' END-DISPLAY
- / DISPLAY 'COMMENTSLASH' END-DISPLAY
-* DISPLAY 'MFCOMMENT' END-DISPLAY
- * DISPLAY 'NOMFCOMMENT' END-DISPLAY
- *> DISPLAY 'FLOATING' END-DISPLAY
- *> DISPLAY 'NOFLOATING' END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- * DISPLAY 'COMMENT' END-DISPLAY
- / DISPLAY 'COMMENTSLASH' END-DISPLAY
- $ DISPLAY 'COMMENTDOLLAR' END-DISPLAY
-* DISPLAY 'MFCOMMENT' END-DISPLAY
- * DISPLAY 'NOMFCOMMENT' END-DISPLAY
- *> DISPLAY 'FLOATING' END-DISPLAY
- | DISPLAY 'ACUFLOATING' END-DISPLAY
- | DISPLAY 'NOACUFLOATING' END-DISPLAY
- *> DISPLAY 'NOFLOATING' END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-cat >prog3.cob <<'_ATEOF'
-
-IDENTIFICATION DIVISION.
-PROGRAM-ID. prog3.
-ENVIRONMENT DIVISION.
-CONFIGURATION SECTION.
-DATA DIVISION.
-WORKING-STORAGE SECTION.
-PROCEDURE DIVISION.
- * DISPLAY 'NOCOMMENT' END-DISPLAY
- / DISPLAY 'NOCOMMENTSLASH' END-DISPLAY
-$ DISPLAY 'ACUCOMMENTDOLLAR' END-DISPLAY
-* DISPLAY 'NOMFCOMMENT' END-DISPLAY
- | DISPLAY 'ACUFLOATING' END-DISPLAY
- *> DISPLAY 'FLOATING' END-DISPLAY
- x DISPLAY 'WRONGINDICATOR' END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2005: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "syn_misc.at:2005"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:2005"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2007: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "syn_misc.at:2007"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "MFCOMMENT
-NOMFCOMMENT
-NOFLOATING
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:2007"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2013: \$COMPILE_ONLY prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog2.cob" "syn_misc.at:2013"
-( $at_check_trace; $COMPILE_ONLY prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:11: error: invalid indicator '\$' at column 7
-prog2.cob:15: error: invalid symbol '|' - skipping word
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:2013"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# note: for checking the result we actually either need to run the program
-# or change it to string concatenation and raise a constant compile
-# time warning we do (historically) the first (for now)
-#
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2022: \$COMPILE -fmfcomment prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fmfcomment prog.cob" "syn_misc.at:2022"
-( $at_check_trace; $COMPILE -fmfcomment prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:2022"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2025: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "syn_misc.at:2025"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "NOMFCOMMENT
-NOFLOATING
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:2025"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2030: \$COMPILE_ONLY -fmfcomment prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fmfcomment prog2.cob" "syn_misc.at:2030"
-( $at_check_trace; $COMPILE_ONLY -fmfcomment prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:11: error: invalid indicator '\$' at column 7
-prog2.cob:15: error: invalid symbol '|' - skipping word
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:2030"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# COMPILE needed, see note above
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2036: \$COMPILE -facucomment prog.cob -o prog1"
-at_fn_check_prepare_dynamic "$COMPILE -facucomment prog.cob -o prog1" "syn_misc.at:2036"
-( $at_check_trace; $COMPILE -facucomment prog.cob -o prog1
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:2036"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2038: \$COBCRUN_DIRECT ./prog1"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog1" "syn_misc.at:2038"
-( $at_check_trace; $COBCRUN_DIRECT ./prog1
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "MFCOMMENT
-NOMFCOMMENT
-NOFLOATING
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:2038"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# COMPILE needed, see note above
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2045: \$COMPILE -facucomment prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE -facucomment prog2.cob" "syn_misc.at:2045"
-( $at_check_trace; $COMPILE -facucomment prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:2045"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2047: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "syn_misc.at:2047"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "MFCOMMENT
-NOMFCOMMENT
-NOACUFLOATING
-NOFLOATING
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:2047"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2055: \$COMPILE_ONLY -free prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -free prog3.cob" "syn_misc.at:2055"
-( $at_check_trace; $COMPILE_ONLY -free prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog3.cob:11: warning: ignoring invalid directive: '\$ DISPLAY'
-prog3.cob:9: error: syntax error, unexpected *
-prog3.cob:10: error: syntax error, unexpected /
-prog3.cob:12: error: syntax error, unexpected *
-prog3.cob:13: error: invalid symbol '|' - skipping word
-prog3.cob:15: error: syntax error, unexpected Identifier
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:2055"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2063: \$COMPILE_ONLY -free -fmfcomment prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -free -fmfcomment prog3.cob" "syn_misc.at:2063"
-( $at_check_trace; $COMPILE_ONLY -free -fmfcomment prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog3.cob:11: warning: ignoring invalid directive: '\$ DISPLAY'
-prog3.cob:9: error: syntax error, unexpected *
-prog3.cob:10: error: syntax error, unexpected /
-prog3.cob:12: error: syntax error, unexpected *
-prog3.cob:13: error: invalid symbol '|' - skipping word
-prog3.cob:15: error: syntax error, unexpected Identifier
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:2063"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2071: \$COMPILE_ONLY -free -facucomment prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -free -facucomment prog3.cob" "syn_misc.at:2071"
-( $at_check_trace; $COMPILE_ONLY -free -facucomment prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog3.cob:11: warning: ignoring invalid directive: '\$ DISPLAY'
-prog3.cob:9: error: syntax error, unexpected *
-prog3.cob:10: error: syntax error, unexpected /
-prog3.cob:12: error: syntax error, unexpected *
-prog3.cob:15: error: syntax error, unexpected Identifier
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:2071"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2078: \$COMPILE_ONLY -fformat=terminal -facucomment prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fformat=terminal -facucomment prog3.cob" "syn_misc.at:2078"
-( $at_check_trace; $COMPILE_ONLY -fformat=terminal -facucomment prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog3.cob:9: error: syntax error, unexpected *
-prog3.cob:10: error: syntax error, unexpected /
-prog3.cob:15: error: syntax error, unexpected Identifier
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:2078"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# Check that invalid indicator and doesn't abort preprocessing
-# and that errors in preprocessing doesn't abort compilation
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2085: \$COMPILE_ONLY -fixed prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fixed prog3.cob" "syn_misc.at:2085"
-( $at_check_trace; $COMPILE_ONLY -fixed prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog3.cob:2: error: invalid indicator 'F' at column 7
-prog3.cob:3: error: invalid indicator 'M' at column 7
-prog3.cob:4: error: invalid indicator 'N' at column 7
-prog3.cob:5: error: invalid indicator 'U' at column 7
-prog3.cob:7: error: invalid indicator 'G' at column 7
-prog3.cob:8: error: invalid indicator 'U' at column 7
-prog3.cob:15: error: invalid indicator 'x' at column 7
-prog3.cob:6: error: PROGRAM-ID header missing
-prog3.cob:6: error: PROCEDURE DIVISION header missing
-prog3.cob:6: error: syntax error, unexpected DIVISION
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:2085"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_286
-#AT_START_287
-at_fn_group_banner 287 'syn_misc.at:2101' \
- "word length" " " 2
-at_xfail=no
-(
- printf "%s\n" "287. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 FILLER PIC 9(01) VALUE 0.
- 88 SOME-SPECIAL-VAL-WITH-LENGTH30 VALUE 0.
- 88 SOME-SPECIAL-VAL-WITH-LENGTH-31 VALUE 1.
- 88 SOME-SPECIAL-VAL-WITH-LENGTH-32C VALUE 1.
- 88 SOME-SPECIAL-VAL-WITH-LENGTH-58C-WHO-NEEDS-THAT-LONG-NAMES VALUE 3.
- 88 SOME-SPECIAL-VAL-WITH-LENGTH-90-CHARS-WHO-NEEDS-THAT-LONG-NAMES-I-CANNOT-THINK-OF-SOMEONE VALUE 4.
- PROCEDURE DIVISION.
- SOME-SPECIAL-PAR-WITH-LENGTH30.
- SET SOME-SPECIAL-VAL-WITH-LENGTH30 TO TRUE.
- SOME-SPECIAL-PAR-WITH-LENGTH-31.
- SET SOME-SPECIAL-VAL-WITH-LENGTH-31 TO TRUE.
- SOME-SPECIAL-PAR-WITH-LENGTH-32C.
- SET SOME-SPECIAL-VAL-WITH-LENGTH-32C TO TRUE.
- SOME-SPECIAL-PAR-WITH-LENGTH-58C-WHO-NEEDS-THAT-LONG-NAMES.
- SET SOME-SPECIAL-VAL-WITH-LENGTH-58C-WHO-NEEDS-THAT-LONG-NAMES TO TRUE.
- SOME-SPECIAL-PAR-WITH-LENGTH-90-CHARS-WHO-NEEDS-THAT-LONG-NAMES-I-CANNOT-THINK-OF-SOMEONE.
- SET SOME-SPECIAL-VAL-WITH-LENGTH-90-CHARS-WHO-NEEDS-THAT-LONG-NAMES-I-CANNOT-THINK-OF-SOMEONE TO TRUE.
- STOP RUN.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 FILLER PIC 9(01) VALUE 0.
- 88 SOME-SPECIAL-VAL-WITH-LENGTH30 VALUE 0.
- 88 SOME-SPECIAL-VAL-WITH-LENGTH-31 VALUE 1.
- 88 SOME-SPECIAL-VAL-WITH-LENGTH-32C VALUE 1.
- 88 SOME-SPECIAL-VAL-WITH-LENGTH-58C-WHO-NEEDS-THAT-LONG-NAMES VALUE 3.
- PROCEDURE DIVISION.
- SOME-SPECIAL-PAR-WITH-LENGTH30.
- SET SOME-SPECIAL-VAL-WITH-LENGTH30 TO TRUE.
- SOME-SPECIAL-PAR-WITH-LENGTH-31.
- SET SOME-SPECIAL-VAL-WITH-LENGTH-31 TO TRUE.
- SOME-SPECIAL-PAR-WITH-LENGTH-32C.
- SET SOME-SPECIAL-VAL-WITH-LENGTH-32C TO TRUE.
- SOME-SPECIAL-PAR-WITH-LENGTH-58C-WHO-NEEDS-THAT-LONG-NAMES.
- SET SOME-SPECIAL-VAL-WITH-LENGTH-58C-WHO-NEEDS-THAT-LONG-NAMES TO TRUE.
- STOP RUN.
-_ATEOF
-
-
-cat >prog3.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 COUNTER PIC 9 VALUE 0.
- PROCEDURE DIVISION.
-
- 00000000000000000000000000000000000000000000000000000000000
- SECTION.
- 000000000000000000000000000000000000000000000000000000000000.
- ADD 1 TO COUNTER END-ADD
- EVALUATE COUNTER
- WHEN 1
- PERFORM
- 00000000000000000000000000000000000000000000000000000000000
- WHEN 2
- PERFORM
- 000000000000000000000000000000000000000000000000000000000000
- WHEN 3
- MOVE 0 TO COUNTER
- END-EVALUATE.
-
- 100000000000000000000000000000000000000000000000000000000001
- SECTION.
- 20000000000000000000000000000000000000000000000000000000002.
- ADD 1 TO COUNTER END-ADD
- EVALUATE COUNTER
- WHEN 1
- PERFORM
- 100000000000000000000000000000000000000000000000000000000001
- WHEN 2
- PERFORM
- 20000000000000000000000000000000000000000000000000000000002
- WHEN 3
- MOVE 0 TO COUNTER
- END-EVALUATE.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2196: \$COMPILE_ONLY -free -fword-length=31 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -free -fword-length=31 prog.cob" "syn_misc.at:2196"
-( $at_check_trace; $COMPILE_ONLY -free -fword-length=31 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:11: error: word length exceeds 31 characters: 'SOME-SPECIAL-VAL-WITH-LENGTH-32C'
-prog.cob:12: error: word length exceeds 31 characters: 'SOME-SPECIAL-VAL-WITH-LENGTH-58C-WHO-NEEDS-THAT-LONG-NAMES'
-prog.cob:13: error: word length exceeds maximum of 63 characters: 'SOME-SPECIAL-VAL-WITH-LENGTH-90-CHARS-WHO-NEEDS-THAT-LONG-NAMES-I-CANNOT-THINK-OF-SOMEONE'
-prog.cob: in paragraph 'SOME-SPECIAL-PAR-WITH-LENGTH-31':
-prog.cob:19: error: word length exceeds 31 characters: 'SOME-SPECIAL-PAR-WITH-LENGTH-32C'
-prog.cob: in paragraph 'SOME-SPECIAL-PAR-WITH-LENGTH-32C':
-prog.cob:20: error: word length exceeds 31 characters: 'SOME-SPECIAL-VAL-WITH-LENGTH-32C'
-prog.cob:21: error: word length exceeds 31 characters: 'SOME-SPECIAL-PAR-WITH-LENGTH-58C-WHO-NEEDS-THAT-LONG-NAMES'
-prog.cob: in paragraph 'SOME-SPECIAL-PAR-WITH-LENGTH-58C-WHO-NEEDS-THAT-LONG-NAMES':
-prog.cob:22: error: word length exceeds 31 characters: 'SOME-SPECIAL-VAL-WITH-LENGTH-58C-WHO-NEEDS-THAT-LONG-NAMES'
-prog.cob:23: error: word length exceeds maximum of 63 characters: 'SOME-SPECIAL-PAR-WITH-LENGTH-90-CHARS-WHO-NEEDS-THAT-LONG-NAMES-I-CANNOT-THINK-OF-SOMEONE'
-prog.cob: in paragraph 'SOME-SPECIAL-PAR-WITH-LENGTH-90-CHARS-WHO-NEEDS-THAT-LONG-NAMES-I-CANNOT-THINK-OF-SOMEONE':
-prog.cob:24: error: word length exceeds maximum of 63 characters: 'SOME-SPECIAL-VAL-WITH-LENGTH-90-CHARS-WHO-NEEDS-THAT-LONG-NAMES-I-CANNOT-THINK-OF-SOMEONE'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:2196"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2212: \$COMPILE_ONLY -free -fword-length=45 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -free -fword-length=45 prog.cob" "syn_misc.at:2212"
-( $at_check_trace; $COMPILE_ONLY -free -fword-length=45 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:12: error: word length exceeds 45 characters: 'SOME-SPECIAL-VAL-WITH-LENGTH-58C-WHO-NEEDS-THAT-LONG-NAMES'
-prog.cob:13: error: word length exceeds maximum of 63 characters: 'SOME-SPECIAL-VAL-WITH-LENGTH-90-CHARS-WHO-NEEDS-THAT-LONG-NAMES-I-CANNOT-THINK-OF-SOMEONE'
-prog.cob: in paragraph 'SOME-SPECIAL-PAR-WITH-LENGTH-32C':
-prog.cob:21: error: word length exceeds 45 characters: 'SOME-SPECIAL-PAR-WITH-LENGTH-58C-WHO-NEEDS-THAT-LONG-NAMES'
-prog.cob: in paragraph 'SOME-SPECIAL-PAR-WITH-LENGTH-58C-WHO-NEEDS-THAT-LONG-NAMES':
-prog.cob:22: error: word length exceeds 45 characters: 'SOME-SPECIAL-VAL-WITH-LENGTH-58C-WHO-NEEDS-THAT-LONG-NAMES'
-prog.cob:23: error: word length exceeds maximum of 63 characters: 'SOME-SPECIAL-PAR-WITH-LENGTH-90-CHARS-WHO-NEEDS-THAT-LONG-NAMES-I-CANNOT-THINK-OF-SOMEONE'
-prog.cob: in paragraph 'SOME-SPECIAL-PAR-WITH-LENGTH-90-CHARS-WHO-NEEDS-THAT-LONG-NAMES-I-CANNOT-THINK-OF-SOMEONE':
-prog.cob:24: error: word length exceeds maximum of 63 characters: 'SOME-SPECIAL-VAL-WITH-LENGTH-90-CHARS-WHO-NEEDS-THAT-LONG-NAMES-I-CANNOT-THINK-OF-SOMEONE'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:2212"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2224: \$COMPILE_ONLY -free -fword-length=60 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -free -fword-length=60 prog.cob" "syn_misc.at:2224"
-( $at_check_trace; $COMPILE_ONLY -free -fword-length=60 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:13: error: word length exceeds maximum of 63 characters: 'SOME-SPECIAL-VAL-WITH-LENGTH-90-CHARS-WHO-NEEDS-THAT-LONG-NAMES-I-CANNOT-THINK-OF-SOMEONE'
-prog.cob: in paragraph 'SOME-SPECIAL-PAR-WITH-LENGTH-58C-WHO-NEEDS-THAT-LONG-NAMES':
-prog.cob:23: error: word length exceeds maximum of 63 characters: 'SOME-SPECIAL-PAR-WITH-LENGTH-90-CHARS-WHO-NEEDS-THAT-LONG-NAMES-I-CANNOT-THINK-OF-SOMEONE'
-prog.cob: in paragraph 'SOME-SPECIAL-PAR-WITH-LENGTH-90-CHARS-WHO-NEEDS-THAT-LONG-NAMES-I-CANNOT-THINK-OF-SOMEONE':
-prog.cob:24: error: word length exceeds maximum of 63 characters: 'SOME-SPECIAL-VAL-WITH-LENGTH-90-CHARS-WHO-NEEDS-THAT-LONG-NAMES-I-CANNOT-THINK-OF-SOMEONE'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:2224"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2232: \$COMPILE_ONLY -free -fword-length=45 -frelax-syntax-checks prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -free -fword-length=45 -frelax-syntax-checks prog2.cob" "syn_misc.at:2232"
-( $at_check_trace; $COMPILE_ONLY -free -fword-length=45 -frelax-syntax-checks prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:12: warning: word length exceeds 45 characters: 'SOME-SPECIAL-VAL-WITH-LENGTH-58C-WHO-NEEDS-THAT-LONG-NAMES'
-prog2.cob: in paragraph 'SOME-SPECIAL-PAR-WITH-LENGTH-32C':
-prog2.cob:20: warning: word length exceeds 45 characters: 'SOME-SPECIAL-PAR-WITH-LENGTH-58C-WHO-NEEDS-THAT-LONG-NAMES'
-prog2.cob: in paragraph 'SOME-SPECIAL-PAR-WITH-LENGTH-58C-WHO-NEEDS-THAT-LONG-NAMES':
-prog2.cob:21: warning: word length exceeds 45 characters: 'SOME-SPECIAL-VAL-WITH-LENGTH-58C-WHO-NEEDS-THAT-LONG-NAMES'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:2232"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2240: \$COMPILE_ONLY -free -fword-length=60 prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -free -fword-length=60 prog2.cob" "syn_misc.at:2240"
-( $at_check_trace; $COMPILE_ONLY -free -fword-length=60 prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:2240"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2242: \$COMPILE_ONLY -free -fword-length=31 -frelax-syntax-checks prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -free -fword-length=31 -frelax-syntax-checks prog2.cob" "syn_misc.at:2242"
-( $at_check_trace; $COMPILE_ONLY -free -fword-length=31 -frelax-syntax-checks prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:11: warning: word length exceeds 31 characters: 'SOME-SPECIAL-VAL-WITH-LENGTH-32C'
-prog2.cob:12: warning: word length exceeds 31 characters: 'SOME-SPECIAL-VAL-WITH-LENGTH-58C-WHO-NEEDS-THAT-LONG-NAMES'
-prog2.cob: in paragraph 'SOME-SPECIAL-PAR-WITH-LENGTH-31':
-prog2.cob:18: warning: word length exceeds 31 characters: 'SOME-SPECIAL-PAR-WITH-LENGTH-32C'
-prog2.cob: in paragraph 'SOME-SPECIAL-PAR-WITH-LENGTH-32C':
-prog2.cob:19: warning: word length exceeds 31 characters: 'SOME-SPECIAL-VAL-WITH-LENGTH-32C'
-prog2.cob:20: warning: word length exceeds 31 characters: 'SOME-SPECIAL-PAR-WITH-LENGTH-58C-WHO-NEEDS-THAT-LONG-NAMES'
-prog2.cob: in paragraph 'SOME-SPECIAL-PAR-WITH-LENGTH-58C-WHO-NEEDS-THAT-LONG-NAMES':
-prog2.cob:21: warning: word length exceeds 31 characters: 'SOME-SPECIAL-VAL-WITH-LENGTH-58C-WHO-NEEDS-THAT-LONG-NAMES'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:2242"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2254: \$COMPILE_ONLY -fword-length=59 prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fword-length=59 prog3.cob" "syn_misc.at:2254"
-( $at_check_trace; $COMPILE_ONLY -fword-length=59 prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog3.cob: in section '00000000000000000000000000000000000000000000000000000000000':
-prog3.cob:11: error: word length exceeds 59 characters: '000000000000000000000000000000000000000000000000000000000000'
-prog3.cob: in paragraph '000000000000000000000000000000000000000000000000000000000000':
-prog3.cob:25: error: word length exceeds 59 characters: '100000000000000000000000000000000000000000000000000000000001'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:2254"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_287
-#AT_START_288
-at_fn_group_banner 288 'syn_misc.at:2264' \
- "Segmentation Module" " " 2
-at_xfail=no
-(
- printf "%s\n" "288. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- PROCEDURE DIVISION.
-
- DECLARATIVES.
-
- DEC-1 SECTION 49.
- CONTINUE.
-
- DEC-2 SECTION 50.
- CONTINUE.
-
- END DECLARATIVES.
-
- SEC-1 SECTION 00.
- CONTINUE.
-
- SEC-2 SECTION 01.
- CONTINUE.
-
- SEC-3 SECTION -00.
- CONTINUE.
-
- SEC-4 SECTION 100.
- CONTINUE.
-
- SEC-5 SECTION 49.
- CONTINUE.
-
- SEC-6 SECTION 50.
- PERFORM SEC-1.
-
- SEC-7 SECTION 99.
- PERFORM SEC-1.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2307: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:2307"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in section 'DEC-1':
-prog.cob:9: warning: section segments ignored
-prog.cob: in section 'DEC-2':
-prog.cob:12: warning: section segments ignored
-prog.cob: in section 'SEC-1':
-prog.cob:17: warning: section segments ignored
-prog.cob: in section 'SEC-2':
-prog.cob:20: warning: section segments ignored
-prog.cob: in section 'SEC-3':
-prog.cob:23: error: unsigned integer value expected
-prog.cob:23: warning: section segments ignored
-prog.cob: in section 'SEC-4':
-prog.cob:26: warning: section segments ignored
-prog.cob: in section 'SEC-5':
-prog.cob:29: warning: section segments ignored
-prog.cob: in section 'SEC-6':
-prog.cob:32: warning: section segments ignored
-prog.cob: in section 'SEC-7':
-prog.cob:35: warning: section segments ignored
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:2307"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2328: \$COMPILE_ONLY -std=cobol85 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol85 prog.cob" "syn_misc.at:2328"
-( $at_check_trace; $COMPILE_ONLY -std=cobol85 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in section 'DEC-1':
-prog.cob:9: warning: section segments is obsolete in COBOL 85
-prog.cob:9: warning: SECTION segment within DECLARATIVES is not implemented
-prog.cob: in section 'DEC-2':
-prog.cob:12: warning: section segments is obsolete in COBOL 85
-prog.cob:12: error: SECTION segment-number in DECLARATIVES must be less than 50
-prog.cob:12: warning: SECTION segment within DECLARATIVES is not implemented
-prog.cob: in section 'SEC-1':
-prog.cob:17: warning: section segments is obsolete in COBOL 85
-prog.cob: in section 'SEC-2':
-prog.cob:20: warning: section segments is obsolete in COBOL 85
-prog.cob: in section 'SEC-3':
-prog.cob:23: error: unsigned integer value expected
-prog.cob:23: warning: section segments is obsolete in COBOL 85
-prog.cob: in section 'SEC-4':
-prog.cob:26: warning: section segments is obsolete in COBOL 85
-prog.cob:26: error: SECTION segment-number must be less than or equal to 99
-prog.cob: in section 'SEC-5':
-prog.cob:29: warning: section segments is obsolete in COBOL 85
-prog.cob: in section 'SEC-6':
-prog.cob:32: warning: section segments is obsolete in COBOL 85
-prog.cob: in section 'SEC-7':
-prog.cob:35: warning: section segments is obsolete in COBOL 85
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:2328"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_288
-#AT_START_289
-at_fn_group_banner 289 'syn_misc.at:2356' \
- "ACCEPT FROM ESCAPE KEY" " " 2
-at_xfail=no
-(
- printf "%s\n" "289. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# TODO: add function test to run_manual_screen.at
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 KEYNUM PIC 9(04).
- PROCEDURE DIVISION.
-
- ACCEPT KEYNUM FROM ESCAPE KEY
- DISPLAY "Key pressed: " KEYNUM
- ACCEPT KEYNUM FROM ESCAPE
- DISPLAY "Key pressed: " KEYNUM
- ACCEPT OMITTED
-
- STOP RUN.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2377: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:2377"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:2377"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_289
-#AT_START_290
-at_fn_group_banner 290 'syn_misc.at:2382' \
- "ACUCOBOL USAGE FLOAT / DOUBLE" " " 2
-at_xfail=no
-(
- printf "%s\n" "290. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 myfloat usage float
- value is 3.97E+24.
- 77 mydouble usage double
- value is 3.97E+44.
- PROCEDURE DIVISION.
- MAIN.
- *
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2400: \$COMPILE_ONLY -std=acu-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=acu-strict prog.cob" "syn_misc.at:2400"
-( $at_check_trace; $COMPILE_ONLY -std=acu-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:2400"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2401: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:2401"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:2401"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2403: \$COMPILE_ONLY -std=mf-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=mf-strict prog.cob" "syn_misc.at:2403"
-( $at_check_trace; $COMPILE_ONLY -std=mf-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: error: 'float' is not defined, but is a reserved word in another dialect
-prog.cob:8: error: 'double' is not defined, but is a reserved word in another dialect
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:2403"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_290
-#AT_START_291
-at_fn_group_banner 291 'syn_misc.at:2411' \
- "ACUCOBOL USAGE HANDLE" " " 2
-at_xfail=no
-(
- printf "%s\n" "291. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# TODO: need a better test here
-# TODO: maybe add a compiler support configuration to provide better messages
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 78 listdir-open value 1.
- 78 listdir-next value 2.
- 78 listdir-close value 3.
- 77 pattern pic x(5) value "*.cob".
- 77 directory pic x(5) value ".".
- 77 filename pic x(256).
- 77 mydir usage handle.
-
- 77 mythread usage handle of thread.
- 77 unused-thread handle thread.
-
- 77 mywindow usage handle of window.
-
- 77 nor-a-handle usage handle bananas.
- 77 neither-a-handle usage handle of apes.
- 77 control-handle usage handle of label.
-
- PROCEDURE DIVISION.
- MAIN.
- * Call LISTDIR-OPEN to get a directory handle.
- call "C$LIST-DIRECTORY"
- using listdir-open, directory, pattern.
- move return-code to mydir.
- * Call LISTDIR-NEXT to get the names of the files.
- * Repeat this operation until a filename containing only
- * spaces is returned. The filenames are not necessarily
- * returned in any particular order. Filenames may be
- * sorted on some machines and not on others.
- perform thread with test after until filename = spaces
- handle in mywindow
- call "C$LIST-DIRECTORY"
- using listdir-next, mydir, filename
- end-perform.
- stop thread mywindow
- * Call LISTDIR-CLOSE to close the directory and deallocate
- * memory. Omitting this call will result in memory leaks.
- call "C$LIST-DIRECTORY" using listdir-close, mydir.
- *
- CALL IN THREAD 'NOTHERE'
- HANDLE IN mywindow
- USING 'STUFF'
- NOT ON EXCEPTION DISPLAY 'called in THREAD'
- END-CALL
- *
- * Just to check that the handles are still recognized and usable:
- destroy neither-a-handle, control-handle
- *
- * check for invalid use
- add neither-a-handle to control-handle
- compute mywindow = 0
- string mydir delimited by size into filename
- *
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2477: \$COMPILE_ONLY -std=acu-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=acu-strict prog.cob" "syn_misc.at:2477"
-( $at_check_trace; $COMPILE_ONLY -std=acu-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:19: error: unknown HANDLE type: bananas
-prog.cob:20: error: unknown HANDLE type: apes
-prog.cob:21: warning: HANDLE OF control-type is not implemented
-prog.cob: in paragraph 'MAIN':
-prog.cob:34: warning: THREAD is not implemented
-prog.cob:36: warning: THREAD is not implemented
-prog.cob:35: error: HANDLE must be either a generic or a THREAD HANDLE
-prog.cob:39: error: HANDLE must be either a generic or a THREAD HANDLE
-prog.cob:39: warning: STOP THREAD is replaced by STOP RUN
-prog.cob:44: warning: THREAD is not implemented
-prog.cob:46: warning: THREAD is not implemented
-prog.cob:45: error: HANDLE must be either a generic or a THREAD HANDLE
-prog.cob:51: warning: GRAPHICAL CONTROL is not implemented
-prog.cob:54: error: HANDLE item not allowed here: 'neither-a-handle'
-prog.cob:55: error: HANDLE item not allowed here: 'mywindow'
-prog.cob:56: error: HANDLE item not allowed here: 'mydir'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:2477"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2496: \$COMPILE_ONLY -std=rm-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=rm-strict prog.cob" "syn_misc.at:2496"
-( $at_check_trace; $COMPILE_ONLY -std=rm-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:12: error: 'handle' is not defined, but is a reserved word in another dialect
-prog.cob:14: error: 'handle' is not defined, but is a reserved word in another dialect
-prog.cob:15: error: syntax error, unexpected Identifier
-prog.cob:17: error: 'handle' is not defined, but is a reserved word in another dialect
-prog.cob:19: error: 'handle' is not defined, but is a reserved word in another dialect
-prog.cob:20: error: 'handle' is not defined, but is a reserved word in another dialect
-prog.cob:21: error: 'handle' is not defined, but is a reserved word in another dialect
-prog.cob: in paragraph 'MAIN':
-prog.cob:35: error: 'handle IN mywindow' is not defined
-prog.cob:34: error: invalid expression: unfinished expression
-prog.cob:38: error: syntax error, unexpected END-PERFORM
-prog.cob:39: error: 'thread' is not defined, but is a reserved word in another dialect
-prog.cob:39: error: syntax error, unexpected Identifier
-prog.cob:44: error: syntax error, unexpected Identifier, expecting THREAD
-prog.cob:48: error: syntax error, unexpected END-CALL
-prog.cob:51: error: syntax error, unexpected Identifier
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:2496"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_291
-#AT_START_292
-at_fn_group_banner 292 'syn_misc.at:2518' \
- "ACUCOBOL WINDOW statements" " " 2
-at_xfail=no
-(
- printf "%s\n" "292. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# TODO: need a better tests when we implement this,
-# likely split into multiple ones
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 myhandle usage handle.
- 77 mythread usage handle of thread.
- 77 WINDOW-HANDLE usage handle of window.
- PROCEDURE DIVISION.
- MAIN.
- DISPLAY WINDOW, LINE 1, COLUMN 29, SIZE 51, LINES 12,
- ERASE SCREEN BOXED SHADOW, POP-UP AREA IS WINDOW-HANDLE
- END-DISPLAY
- DISPLAY "THIS IS TEXT IN A WINDOW"
- DISPLAY FLOATING WINDOW UPON WINDOW-HANDLE,
- LINE 5, COLUMN 10, SIZE 20, LINES 2,
- ERASE SCREEN, POP-UP AREA IS myhandle
- END-DISPLAY
- DISPLAY "Some text for the floating window"
- ACCEPT OMITTED
- CLOSE WINDOW myhandle
- DISPLAY FLOATING WINDOW,
- LINE 5, COLUMN 10, SIZE 20, LINES 2,
- ERASE SCREEN, POP-UP AREA mythread
- END-DISPLAY
- ACCEPT OMITTED
- DESTROY WINDOW-HANDLE
- DISPLAY WINDOW AT 1020 SIZE 36 LINES 15 BOXED
- FOREGROUND-COLOR IS 7
- BACKGROUND-COLOR IS 0
- TOP CENTERED TITLE IS 'SOME TITLE'
- pop-up area = WINDOW-HANDLE.
- DISPLAY SUBWINDOW UPON WINDOW-HANDLE SHADOW
- AT 0505 SIZE 25 LINES 10
- BOTTOM LEFT TITLE = 'buttom left'
- BACKGROUND-COLOR IS 10
- FOREGROUND-COLOR IS 5.
- DISPLAY WINDOW UPON WINDOW-HANDLE SHADOW
- AT 0808 SIZE 18 LINES 5
- RIGHT TITLE 'top right'
- BACKGROUND-COLOR 1
- FOREGROUND-COLOR 14.
- ACCEPT OMITTED
- DESTROY WINDOW-HANDLE
- *
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2572: \$COMPILE_ONLY -std=acu-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=acu-strict prog.cob" "syn_misc.at:2572"
-( $at_check_trace; $COMPILE_ONLY -std=acu-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in paragraph 'MAIN':
-prog.cob:11: warning: GRAPHICAL WINDOW is not implemented
-prog.cob:15: warning: GRAPHICAL WINDOW is not implemented
-prog.cob:21: warning: GRAPHICAL WINDOW is not implemented
-prog.cob:22: warning: GRAPHICAL WINDOW is not implemented
-prog.cob:24: error: HANDLE must be either a generic or a WINDOW HANDLE or X(10)
-prog.cob:27: warning: GRAPHICAL CONTROL is not implemented
-prog.cob:28: warning: GRAPHICAL WINDOW is not implemented
-prog.cob:33: warning: GRAPHICAL WINDOW is not implemented
-prog.cob:38: warning: GRAPHICAL WINDOW is not implemented
-prog.cob:44: warning: GRAPHICAL CONTROL is not implemented
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:2572"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2586: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:2586"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in paragraph 'MAIN':
-prog.cob:11: warning: GRAPHICAL WINDOW is not implemented
-prog.cob:15: warning: GRAPHICAL WINDOW is not implemented
-prog.cob:21: warning: GRAPHICAL WINDOW is not implemented
-prog.cob:22: warning: GRAPHICAL WINDOW is not implemented
-prog.cob:24: error: HANDLE must be either a generic or a WINDOW HANDLE or X(10)
-prog.cob:27: warning: GRAPHICAL CONTROL is not implemented
-prog.cob:28: warning: GRAPHICAL WINDOW is not implemented
-prog.cob:33: warning: GRAPHICAL WINDOW is not implemented
-prog.cob:38: warning: GRAPHICAL WINDOW is not implemented
-prog.cob:44: warning: GRAPHICAL CONTROL is not implemented
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:2586"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_292
-#AT_START_293
-at_fn_group_banner 293 'syn_misc.at:2603' \
- "ACUCOBOL GRAPHICAL controls" " " 2
-at_xfail=no
-(
- printf "%s\n" "293. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# TODO: need a better tests when we implement this,
-# likely split into multiple ones
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 window-handle USAGE HANDLE OF WINDOW.
- 77 lb-row PIC X(10).
- 77 lb-color PIC 9(05) VALUE 8192.
- 77 lb-num-lines PIC 9(02) VALUE 20.
- 77 lb-num-rows PIC 9(02) VALUE 11.
- 77 window-lines PIC 9(02) VALUE 22.
- 77 window-rows PIC 9(02) VALUE 13.
- 77 selection-idx PIC S9(02).
- SCREEN SECTION.
- 01 lb-screen.
- 03 lb-frm LIST-BOX 3-D
- * FIXME: the following should be possible in any order
- UNSORTED
- EXCEPTION-VALUE = 13
- COLOR lb-color
- CLINE 1 CCOL 1
- LINES = lb-num-lines
- SIZE IS lb-num-rows
- * VALUE lb-row raises error as no identifer according
- * to cobol2002, but here it is fine
- .
- PROCEDURE DIVISION.
- MAIN.
- MODIFY lb-frm ITEM-TO-ADD = 'Row 1'
- MODIFY lb-frm ITEM-TO-ADD = 'Row 2'
- MODIFY lb-frm ITEM-TO-ADD = 'Row 3'
- MODIFY lb-frm ITEM-TO-ADD = 'Row 4'
- MODIFY lb-frm ITEM-TO-ADD = 'Row 5'
- MODIFY lb-frm ITEM-TO-ADD = 'Row 6'
- MODIFY lb-frm ITEM-TO-ADD = 'Row 7'
- DISPLAY FLOATING WINDOW
- LINE 5 COL 5
- LINES window-lines
- SIZE window-rows
- BOXED
- COLOR lb-color
- HANDLE IS window-handle
- END-DISPLAY
- DISPLAY lb-screen
- ACCEPT lb-screen
- IF lb-row = SPACES
- INQUIRE lb-frm SELECTION-INDEX IN selection-idx
- IF selection-idx > ZERO
- MODIFY lb-frm QUERY-INDEX = selection-idx
- INQUIRE lb-frm ITEM-VALUE IN lb-row
- END-IF
- END-IF
- CLOSE WINDOW window-handle
- DISPLAY "chosen row value was '" lb-row "'"
- ACCEPT OMITTED
- *
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2668: \$COMPILE_ONLY -std=acu-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=acu-strict prog.cob" "syn_misc.at:2668"
-( $at_check_trace; $COMPILE_ONLY -std=acu-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:16: warning: GRAPHICAL CONTROL is not implemented
-prog.cob:21: warning: COLOR clause (SCREEN) is not implemented
-prog.cob:23: warning: LINES clause is not implemented
-prog.cob:26: warning: screen positions from data-item is not implemented
-prog.cob: in paragraph 'MAIN':
-prog.cob:36: warning: GRAPHICAL WINDOW is not implemented
-prog.cob:53: warning: GRAPHICAL WINDOW is not implemented
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:2668"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_293
-#AT_START_294
-at_fn_group_banner 294 'syn_misc.at:2681' \
- "DISPLAY MESSAGE BOX" " " 2
-at_xfail=no
-(
- printf "%s\n" "294. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 my-text pic x(10) value "TEXT".
- 78 MB-OK VALUE 1.
- 78 MB-YES-NO VALUE 2.
- 78 MB-OK-CANCEL VALUE 3.
- 78 MB-YES-NO-CANCEL VALUE 4.
- 78 MB-YES VALUE 1.
- 78 MB-NO VALUE 2.
- 78 MB-CANCEL VALUE 3.
- 78 MB-DEFAULT-ICON VALUE 1.
- 78 MB-WARNING-ICON VALUE 2.
- 78 MB-ERROR-ICON VALUE 3.
- PROCEDURE DIVISION.
- DISPLAY MESSAGE "Important"
- TITLE "Very important"
- TYPE = MB-OK
- ICON IS MB-WARNING-ICON
- DISPLAY MESSAGE "This is" space "my" space my-text
- DISPLAY MESSAGE BOX "More messages?"
- TYPE MB-YES-NO
- TITLE = "box title"
- DEFAULT IS MB-YES
- RETURNING RETURN-CODE
- *
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2715: \$COMPILE_ONLY -std=acu-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=acu-strict prog.cob" "syn_misc.at:2715"
-( $at_check_trace; $COMPILE_ONLY -std=acu-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:18: warning: handling of DISPLAY MESSAGE is unfinished; implementation is likely to be changed
-prog.cob:22: warning: handling of DISPLAY MESSAGE is unfinished; implementation is likely to be changed
-prog.cob:23: warning: handling of DISPLAY MESSAGE is unfinished; implementation is likely to be changed
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:2715"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_294
-#AT_START_295
-at_fn_group_banner 295 'syn_misc.at:2724' \
- "DISPLAY OMITTED" " " 2
-at_xfail=no
-(
- printf "%s\n" "295. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- DISPLAY OMITTED WITH BELL
- DISPLAY OMITTED LINE 10 COL 15 ERASE EOL
- *
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2737: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:2737"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:5: warning: handling of DISPLAY OMITTED is unfinished; implementation is likely to be changed
-prog.cob:6: warning: handling of DISPLAY OMITTED is unfinished; implementation is likely to be changed
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:2737"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_295
-#AT_START_296
-at_fn_group_banner 296 'syn_misc.at:2745' \
- "CGI: EXTERNAL-FORM" " " 2
-at_xfail=no
-(
- printf "%s\n" "296. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# TODO: need a better tests when we implement this,
-# likely split into multiple ones
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 GNUCOBOL-URL IS EXTERNAL-FORM
- IDENTIFIED BY "http://www.gnu.org/software/gnucobol/".
- 01 WEB-PAGE-1 EXTERNAL-FORM,
- IDENTIFIED "cgipage1".
- 01 SIMPLE-FORM IS EXTERNAL-FORM.
- 03 SIMPLE-FORM-VAR1 PIC X(10).
- 03 SIMPLE-FORM-VAR2 PIC 9(5).
- 01 MY-FORM EXTERNAL-FORM.
- 03 CGI-VAR1 PIC X(20) IDENTIFIED "Name".
- 03 CGI-VAR2 PIC X(50) IDENTIFIED BY CGI-VAR1.
-
- PROCEDURE DIVISION.
- MAIN.
- *> CGI display of static content (full URL)
- DISPLAY GNUCOBOL-URL
- *> CGI display of static content (current URL + "cgipage1" + ".html")
- DISPLAY WEB-PAGE-1
- *> CGI display of output form
- DISPLAY MY-FORM
- *> CGI display of input form (docs say: used for debugging purposes)
- DISPLAY SIMPLE-FORM
- *> CGI accept
- ACCEPT SIMPLE-FORM
- *> normal accept
- ACCEPT SIMPLE-FORM-VAR1
- *> CGI accept with first var (with cgi identifier Name)
- *> setting the cgi identifier of the second
- ACCEPT MY-FORM
- *
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2788: \$COMPILE_ONLY -std=acu-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=acu-strict prog.cob" "syn_misc.at:2788"
-( $at_check_trace; $COMPILE_ONLY -std=acu-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: warning: EXTERNAL-FORM is not implemented
-prog.cob:8: warning: EXTERNAL-FORM is not implemented
-prog.cob:10: warning: EXTERNAL-FORM is not implemented
-prog.cob:13: warning: EXTERNAL-FORM is not implemented
-prog.cob:14: warning: EXTERNAL-FORM (IDENTIFIED BY) is not implemented
-prog.cob:15: warning: EXTERNAL-FORM (IDENTIFIED BY) is not implemented
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:2788"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_296
-#AT_START_297
-at_fn_group_banner 297 'syn_misc.at:2800' \
- "adding/removing reserved words" " " 2
-at_xfail=no
-(
- printf "%s\n" "297. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 hello PIC X.
- 01 foo PIC X.
- 01 bars PIC X.
- 01 file PIC X.
- 01 background-color PIC X.
-
- PROCEDURE DIVISION.
- CONTINUE
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2820: \$COMPILE_ONLY -freserved=hello,foo,bars,background-color -fnot-reserved=file prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -freserved=hello,foo,bars,background-color -fnot-reserved=file prog.cob" "syn_misc.at:2820"
-( $at_check_trace; $COMPILE_ONLY -freserved=hello,foo,bars,background-color -fnot-reserved=file prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: error: 'hello' is a reserved word, but isn't supported
-prog.cob:8: error: 'foo' is a reserved word, but isn't supported
-prog.cob:9: error: 'bars' is a reserved word, but isn't supported
-prog.cob:11: error: syntax error, unexpected BACKGROUND-COLOR
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:2820"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2826: \$COMPILE_ONLY -fnot-reserved=file prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fnot-reserved=file prog.cob" "syn_misc.at:2826"
-( $at_check_trace; $COMPILE_ONLY -fnot-reserved=file prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:2826"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_297
-#AT_START_298
-at_fn_group_banner 298 'syn_misc.at:2830' \
- "adding aliases" " " 2
-at_xfail=no
-(
- printf "%s\n" "298. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- PROCEDURE DIVISION.
- FOO "Hello, world!"
- .
-_ATEOF
-
-
-# FIXME: user defined words need to store a reference to the name originally defining the word
-# otherwise we can't help the user to know where the error came from
-# (command line is only a special case, but even then it may be wrapped and not visible
-# to the user)
-#AT_CHECK([$COMPILE_ONLY -freserved=FOO=DISPLAY* -freserved=BARS:FOO prog.cob], [1], [],
-#[configuration warning: -freserved=FOO=DISPLAY*: ignored asterisk at end of alias target
-#configuration error:
-#-freserved=BARS:FOO: alias target 'FOO' is not a default reserved word
-#])
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2852: \$COMPILE_ONLY -freserved=FOO=DISPLAY* -freserved=BARS:FOO prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -freserved=FOO=DISPLAY* -freserved=BARS:FOO prog.cob" "syn_misc.at:2852"
-( $at_check_trace; $COMPILE_ONLY -freserved=FOO=DISPLAY* -freserved=BARS:FOO prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "configuration warning: -freserved=FOO=DISPLAY*: ignored asterisk at end of alias target
-configuration error:
-alias target 'FOO' is not a default reserved word
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:2852"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2858: \$COMPILE_ONLY -freserved=FOO=DISPLAY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -freserved=FOO=DISPLAY prog.cob" "syn_misc.at:2858"
-( $at_check_trace; $COMPILE_ONLY -freserved=FOO=DISPLAY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:2858"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2859: \$COMPILE_ONLY -freserved=FOO:DISPLAY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -freserved=FOO:DISPLAY prog.cob" "syn_misc.at:2859"
-( $at_check_trace; $COMPILE_ONLY -freserved=FOO:DISPLAY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:2859"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2860: \$COMPILE_ONLY -freserved=\" FOO = DISPLAY \" prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -freserved=\" FOO = DISPLAY \" prog.cob" "syn_misc.at:2860"
-( $at_check_trace; $COMPILE_ONLY -freserved=" FOO = DISPLAY " prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:2860"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_298
-#AT_START_299
-at_fn_group_banner 299 'syn_misc.at:2864' \
- "overriding default words" " " 2
-at_xfail=no
-(
- printf "%s\n" "299. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- PROCEDURE DIVISION.
- COMP-1 "Hello, world!"
- DISPLAY "Hello, world!".
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2876: \$COMPILE_ONLY -freserved=COMP-1=DISPLAY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -freserved=COMP-1=DISPLAY prog.cob" "syn_misc.at:2876"
-( $at_check_trace; $COMPILE_ONLY -freserved=COMP-1=DISPLAY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:2876"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
-
- PROCEDURE DIVISION.
- COMP-1 "Hello, world!".
- DISPLAY "Hello, world!".
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2887: \$COMPILE_ONLY -fnot-reserved=DISPLAY -freserved=COMP-1=DISPLAY prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fnot-reserved=DISPLAY -freserved=COMP-1=DISPLAY prog2.cob" "syn_misc.at:2887"
-( $at_check_trace; $COMPILE_ONLY -fnot-reserved=DISPLAY -freserved=COMP-1=DISPLAY prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:7: error: syntax error, unexpected Literal, expecting SECTION or .
-prog2.cob:7: note: unknown statement 'DISPLAY'; it may exist in another dialect
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:2887"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_299
-#AT_START_300
-at_fn_group_banner 300 'syn_misc.at:2895' \
- "complete specified word list" " " 2
-at_xfail=no
-(
- printf "%s\n" "300. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 SQLCA.
- 03 SQLCABC USAGE BINARY-LONG VALUE 136.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2907: \$COMPILE_ONLY -std=ibm-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=ibm-strict prog.cob" "syn_misc.at:2907"
-( $at_check_trace; $COMPILE_ONLY -std=ibm-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: error: 'BINARY-LONG' is not defined, but is a reserved word in another dialect
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:2907"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2910: \$COMPILE_ONLY -std=ibm-strict -freserved=BINARY-LONG prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=ibm-strict -freserved=BINARY-LONG prog.cob" "syn_misc.at:2910"
-( $at_check_trace; $COMPILE_ONLY -std=ibm-strict -freserved=BINARY-LONG prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:2910"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2911: \$COMPILE_ONLY -std=ibm prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=ibm prog.cob" "syn_misc.at:2911"
-( $at_check_trace; $COMPILE_ONLY -std=ibm prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:2911"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_300
-#AT_START_301
-at_fn_group_banner 301 'syn_misc.at:2915' \
- "ANY LENGTH item as formal parameter" " " 2
-at_xfail=no
-(
- printf "%s\n" "301. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- LINKAGE SECTION.
- 01 str ANY LENGTH PIC X.
-
- PROCEDURE DIVISION USING str.
- GOBACK
- .
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
-
- DATA DIVISION.
- LINKAGE SECTION.
- 01 str ANY LENGTH PIC X.
-
- PROCEDURE DIVISION.
- GOBACK
- .
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2943: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:2943"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:2943"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2944: \$COMPILE_ONLY prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog2.cob" "syn_misc.at:2944"
-( $at_check_trace; $COMPILE_ONLY prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:7: error: 'str' ANY LENGTH item must be a formal parameter
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:2944"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_301
-#AT_START_302
-at_fn_group_banner 302 'syn_misc.at:2950' \
- "ANY LENGTH item as BY VALUE formal parameter" " " 2
-at_xfail=no
-(
- printf "%s\n" "302. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- LINKAGE SECTION.
- 01 str ANY LENGTH PIC X.
-
- PROCEDURE DIVISION USING VALUE str.
- GOBACK
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2966: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:2966"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: warning: handling of parameters passed BY VALUE is unfinished; implementation is likely to be changed
-prog.cob:9: error: ANY LENGTH items may only be BY REFERENCE formal parameters
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:2966"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_302
-#AT_START_303
-at_fn_group_banner 303 'syn_misc.at:2973' \
- "swapped SOURCE- and OBJECT-COMPUTER" " " 2
-at_xfail=no
-(
- printf "%s\n" "303. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- OBJECT-COMPUTER. a.
- SOURCE-COMPUTER. b.
-_ATEOF
-
-
-# MF extension, supported by GnuCOBOL
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2987: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:2987"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:2987"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# note: testing with lax configuration, otherwise there would be an error
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:2989: \$COMPILE_ONLY -std=acu prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=acu prog.cob" "syn_misc.at:2989"
-( $at_check_trace; $COMPILE_ONLY -std=acu prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: warning: SOURCE-COMPUTER incorrectly after OBJECT-COMPUTER used
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:2989"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_303
-#AT_START_304
-at_fn_group_banner 304 'syn_misc.at:2995' \
- "CONF. SECTION paragraphs in wrong order" " " 2
-at_xfail=no
-(
- printf "%s\n" "304. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- REPOSITORY.
- SOURCE-COMPUTER. b.
- OBJECT-COMPUTER. a.
- SPECIAL-NAMES.
-
- END PROGRAM prog.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER. b.
- OBJECT-COMPUTER. a.
- REPOSITORY.
- SPECIAL-NAMES.
-
- END PROGRAM prog2.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- REPOSITORY.
- SOURCE-COMPUTER. b.
- OBJECT-COMPUTER. a.
-
- END PROGRAM prog3.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog4.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- REPOSITORY.
- SPECIAL-NAMES.
- SOURCE-COMPUTER. b.
- OBJECT-COMPUTER. a.
-
- END PROGRAM prog4.
-_ATEOF
-
-
-# MF extension, supported by GnuCOBOL
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3048: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:3048"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:3048"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# note: testing with lax configuration, otherwise there would be an error
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3050: \$COMPILE_ONLY -std=acu prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=acu prog.cob" "syn_misc.at:3050"
-( $at_check_trace; $COMPILE_ONLY -std=acu prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: warning: SOURCE-COMPUTER incorrectly after REPOSITORY used
-prog.cob:22: warning: SPECIAL-NAMES incorrectly after REPOSITORY used
-prog.cob:32: warning: SOURCE-COMPUTER incorrectly after REPOSITORY used
-prog.cob:43: warning: SPECIAL-NAMES incorrectly after REPOSITORY used
-prog.cob:44: warning: SOURCE-COMPUTER incorrectly after SPECIAL-NAMES used
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:3050"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3057: \$COMPILE_ONLY -std=cobol2014 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol2014 prog.cob" "syn_misc.at:3057"
-( $at_check_trace; $COMPILE_ONLY -std=cobol2014 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: error: SOURCE-COMPUTER incorrectly after REPOSITORY used
-prog.cob:22: error: SPECIAL-NAMES incorrectly after REPOSITORY used
-prog.cob:32: error: SOURCE-COMPUTER incorrectly after REPOSITORY used
-prog.cob:43: error: SPECIAL-NAMES incorrectly after REPOSITORY used
-prog.cob:44: error: SOURCE-COMPUTER incorrectly after SPECIAL-NAMES used
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:3057"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_304
-#AT_START_305
-at_fn_group_banner 305 'syn_misc.at:3067' \
- "NOT ON EXCEPTION with STATIC CALL convention" " " 2
-at_xfail=no
-(
- printf "%s\n" "305. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- CALL STATIC "stuff"
- ON EXCEPTION
- CONTINUE
- END-CALL
- GOBACK.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- PROCEDURE DIVISION.
- CALL "stuff"
- ON EXCEPTION
- CONTINUE
- END-CALL
- GOBACK.
-_ATEOF
-
-
-cat >prog3.cob <<'_ATEOF'
-
- >> CALL-CONVENTION STATIC
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3.
- PROCEDURE DIVISION.
- CALL "stuff"
- ON EXCEPTION
- CONTINUE
- END-CALL
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3104: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:3104"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:5: warning: ON EXCEPTION ignored because of STATIC CALL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:3104"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3107: \$COMPILE_ONLY prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog2.cob" "syn_misc.at:3107"
-( $at_check_trace; $COMPILE_ONLY prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:3107"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3108: \$COMPILE_ONLY -static prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -static prog2.cob" "syn_misc.at:3108"
-( $at_check_trace; $COMPILE_ONLY -static prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:3108"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3109: \$COMPILE_ONLY prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog3.cob" "syn_misc.at:3109"
-( $at_check_trace; $COMPILE_ONLY prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog3.cob:6: warning: STATIC CALL convention ignored because of ON EXCEPTION
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:3109"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_305
-#AT_START_306
-at_fn_group_banner 306 'syn_misc.at:3115' \
- "NOT ON EXCEPTION phrases before ON EXCEPTION" " " 2
-at_xfail=no
-(
- printf "%s\n" "306. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT f ASSIGN "f.txt"
- ORGANIZATION LINE SEQUENTIAL.
-
- DATA DIVISION.
- FILE SECTION.
- FD f LINAGE 10.
- 01 f-rec PIC X.
-
- PROCEDURE DIVISION.
- WRITE f-rec FROM "x"
- NOT END-OF-PAGE
- CONTINUE
- END-OF-PAGE
- CONTINUE
- END-WRITE
- WRITE f-rec FROM "x"
- END-OF-PAGE
- CONTINUE
- NOT END-OF-PAGE
- CONTINUE
- END-WRITE
- WRITE f-rec FROM "x"
- NOT END-OF-PAGE
- CONTINUE
- END-WRITE
- WRITE f-rec FROM "x"
- END-OF-PAGE
- CONTINUE
- END-WRITE
-
- DISPLAY "blah"
- ON EXCEPTION
- CALL "err"
- NOT ON EXCEPTION
- CONTINUE
- ON EXCEPTION
- CONTINUE.
- DISPLAY "blah"
- NOT ON EXCEPTION
- CALL "err"
- ON EXCEPTION
- CONTINUE
- NOT ON EXCEPTION
- CONTINUE.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3171: \$COMPILE_ONLY -std=cobol85 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol85 prog.cob" "syn_misc.at:3171"
-( $at_check_trace; $COMPILE_ONLY -std=cobol85 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:22: error: NOT AT END-OF-PAGE before AT END-OF-PAGE does not conform to COBOL 85
-prog.cob:44: error: NOT EXCEPTION before EXCEPTION does not conform to COBOL 85
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:3171"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3175: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:3175"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:3175"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_306
-#AT_START_307
-at_fn_group_banner 307 'syn_misc.at:3179' \
- "wrong dialect hints" " " 2
-at_xfail=no
-(
- printf "%s\n" "307. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x PIC X.
-
- PROCEDURE DIVISION.
- DISPLAY x CONVERSION.
- TRANSFORM x
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3196: \$COMPILE_ONLY -std=cobol85 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol85 prog.cob" "syn_misc.at:3196"
-( $at_check_trace; $COMPILE_ONLY -std=cobol85 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: 'CONVERSION' is not defined, but is a reserved word in another dialect
-prog.cob:11: error: syntax error, unexpected Identifier, expecting SECTION or .
-prog.cob:11: note: unknown statement 'TRANSFORM'; it may exist in another dialect
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:3196"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_307
-#AT_START_308
-at_fn_group_banner 308 'syn_misc.at:3204' \
- "redundant periods" " " 2
-at_xfail=no
-(
- printf "%s\n" "308. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >a.cpy <<'_ATEOF'
-
- 01 var PIC X
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- REPLACE ==a== BY ==b==.. *> blah blah
- .
-
- COPY a..
-
- 78 var VALUE "hello".
- * blah blah
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3227: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:3227"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: warning: ignoring redundant .
-prog.cob:12: warning: ignoring redundant .
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:3227"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_308
-#AT_START_309
-at_fn_group_banner 309 'syn_misc.at:3234' \
- "missing periods" " " 2
-at_xfail=no
-(
- printf "%s\n" "309. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# Check whether the first line is correcly handled:
-cat >prog.cob <<'_ATEOF'
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 DONE COMP-1 VALUE ZERO.
-
- PROCEDURE DIVISION.
- MAIN SECTION.
- PERFORM SEC-1.
- IF NOT DONE = 1
- DISPLAY "SEC-1 NOT EXECUTED"
- END-IF
- STOP RUN
- SEC-1 SECTION.
- MOVE 1 TO DONE
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3257: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:3257"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in section 'MAIN':
-prog.cob:15: error: 'SEC-1' is not defined
-prog.cob:15: error: syntax error, unexpected SECTION
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:3257"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3262: \$COMPILE_ONLY -fformat=cobol85 -fmissing-period=error prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fformat=cobol85 -fmissing-period=error prog.cob" "syn_misc.at:3262"
-( $at_check_trace; $COMPILE_ONLY -fformat=cobol85 -fmissing-period=error prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in section 'MAIN':
-prog.cob:15: error: optional period used
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:3262"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3266: \$COMPILE -fformat=cobol85 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fformat=cobol85 prog.cob" "syn_misc.at:3266"
-( $at_check_trace; $COMPILE -fformat=cobol85 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in section 'MAIN':
-prog.cob:15: warning: optional period used
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:3266"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3270: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "syn_misc.at:3270"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:3270"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_309
-#AT_START_310
-at_fn_group_banner 310 'syn_misc.at:3275' \
- "missing periods with COPYs" " " 2
-at_xfail=no
-(
- printf "%s\n" "310. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >ok.inc <<'_ATEOF'
-
- 01 FLG PIC XX VALUE "KO".
-_ATEOF
-
-
-cat >sec-1.inc <<'_ATEOF'
-
- SEC-1 SECTION.
- MOVE "OK" TO FLG
-_ATEOF
-
-
-cat >sec-2.inc <<'_ATEOF'
-
- SEC-2 SECTION.
- IF FLG NOT EQUAL "OK"
- DISPLAY "DEC-1 NOT EXECUTED"
- END-IF.
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "ok.inc".
-
- PROCEDURE DIVISION.
- MAIN SECTION.
- PERFORM SEC-1.
- PERFORM SEC-2.
- * Directive purposefully in Area A
- REPLACE ==RUNNN== BY ==RUN==.
- STOP RUNNN
- COPY "sec-1.inc".
- * Also purposefully in Area A
- COPY "sec-2.inc".
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3314: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:3314"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "sec-1.inc: in section 'MAIN':
-sec-1.inc:2: error: 'SEC-1' is not defined
-sec-1.inc:2: error: syntax error, unexpected SECTION
-sec-2.inc:2: error: 'SEC-2' is not defined
-sec-2.inc:2: error: syntax error, unexpected SECTION
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:3314"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3321: \$COMPILE -fformat=cobol85 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fformat=cobol85 prog.cob" "syn_misc.at:3321"
-( $at_check_trace; $COMPILE -fformat=cobol85 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "sec-1.inc: in section 'MAIN':
-sec-1.inc:2: warning: optional period used
-sec-2.inc: in section 'SEC-1':
-sec-2.inc:2: warning: optional period used
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:3321"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3327: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "syn_misc.at:3327"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:3327"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog_err.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "ok.inc".
-
- PROCEDURE DIVISION.
- MAIN SECTION.
- PERFORM SEC-1.
- PERFORM SEC-2.
- * Directive purposefully in Area A
- REPLACE ==RUNNN== BY ==RUN==.
- PERFORM SEC-3.
- STOP RUN
- COPY "sec-1.inc".
- COPY "sec-2.inc".
- SEC-3 SECTION.
- DISPLAY KO NO ADVANCING.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3351: \$COMPILE_ONLY -fformat=cobol85 prog_err.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fformat=cobol85 prog_err.cob" "syn_misc.at:3351"
-( $at_check_trace; $COMPILE_ONLY -fformat=cobol85 prog_err.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "sec-1.inc: in section 'MAIN':
-sec-1.inc:2: warning: optional period used
-sec-2.inc: in section 'SEC-1':
-sec-2.inc:2: warning: optional period used
-prog_err.cob: in section 'SEC-3':
-prog_err.cob:20: error: 'KO' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:3351"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_310
-#AT_START_311
-at_fn_group_banner 311 'syn_misc.at:3363' \
- "statement in Area A" " " 2
-at_xfail=no
-(
- printf "%s\n" "311. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 FLAG PIC 9 VALUE ZERO.
- PROCEDURE DIVISION.
- MAIN
- .
- PERFORM SEC-1
- IF NOT FLAG = 1
- DISPLAY "SEC-1 NOT EXECUTED"
- END-IF
- STOP RUN
- .
- SEC-1 SECTION.
- MOVE 1 TO FLAG
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3386: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:3386"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:3386"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3387: \$COMPILE_ONLY -std=cobol85 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol85 prog.cob" "syn_misc.at:3387"
-( $at_check_trace; $COMPILE_ONLY -std=cobol85 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: separator period in Area A
-prog.cob: in paragraph 'MAIN':
-prog.cob:10: error: start of statement in Area A
-prog.cob:11: error: start of statement in Area A
-prog.cob:13: error: END-IF should not start in Area A
-prog.cob:14: error: start of statement in Area A
-prog.cob:15: error: separator period in Area A
-prog.cob: in section 'SEC-1':
-prog.cob:17: error: start of statement in Area A
-prog.cob:18: error: separator period in Area A
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:3387"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3400: \$COMPILE_ONLY -std=cobol85 -fno-areacheck prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol85 -fno-areacheck prog.cob" "syn_misc.at:3400"
-( $at_check_trace; $COMPILE_ONLY -std=cobol85 -fno-areacheck prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:3400"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3401: \$COMPILE_ONLY -std=cobol85 -fformat=fixed prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol85 -fformat=fixed prog.cob" "syn_misc.at:3401"
-( $at_check_trace; $COMPILE_ONLY -std=cobol85 -fformat=fixed prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:3401"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_311
-#AT_START_312
-at_fn_group_banner 312 'syn_misc.at:3406' \
- "pseudotext replacement with text in area A" " " 2
-at_xfail=no
-(
- printf "%s\n" "312. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# Check whether the first line is correcly handled:
-cat >ok.inc <<'_ATEOF'
- 01 REPLACE-ME
- 01 KO PIC XX VALUE "KO".
- PROCEDURE DIVISION.
- MAIN SECTION.
- PERFORM SEC-1
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "ok.inc" REPLACING == 01 REPLACE-ME == BY ==
- 01 OK PIC XX VALUE "OK". ==
- .
-
- PERFORM SEC-2
- STOP RUN
- CONTINUE
- SEC-1 SECTION.
- IF OK NOT EQUAL "OK" DISPLAY OK
- SEC-2 SECTION.
- IF OK NOT EQUAL "OK" DISPLAY OK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3436: \$COMPILE -std=cobol85 -fmissing-period=warning prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=cobol85 -fmissing-period=warning prog.cob" "syn_misc.at:3436"
-( $at_check_trace; $COMPILE -std=cobol85 -fmissing-period=warning prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in section 'MAIN':
-prog.cob:14: warning: optional period used
-prog.cob: in section 'SEC-1':
-prog.cob:16: warning: optional period used
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:3436"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3442: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "syn_misc.at:3442"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:3442"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog_err.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "ok.inc" REPLACING == 01 REPLACE-ME == BY ==
- 01 OK PIC XX VALUE "OK". ==
- .
-
- PERFORM SEC-2.
- STOP RUN
- SEC-1 SECTION.
- IF OK NOT EQUAL "OK" DISPLAY OK
- SEC-2 SECTION.
- DISPLAY NOT-FOUND.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3461: \$COMPILE -std=gcos prog_err.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=gcos prog_err.cob" "syn_misc.at:3461"
-( $at_check_trace; $COMPILE -std=gcos prog_err.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog_err.cob: in section 'MAIN':
-prog_err.cob:13: warning: optional period used
-prog_err.cob: in section 'SEC-1':
-prog_err.cob:15: warning: optional period used
-prog_err.cob: in section 'SEC-2':
-prog_err.cob:16: error: 'NOT-FOUND' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:3461"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_312
-#AT_START_313
-at_fn_group_banner 313 'syn_misc.at:3473' \
- "IF-ELSE statement list with invalid syntax" " " 2
-at_xfail=no
-(
- printf "%s\n" "313. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 a-variable PIC 9.
-
- PROCEDURE DIVISION.
- IF a-variable = 1
- ACCEPT a-variable, not-a-variable
- ON EXCEPTION
- CONTINUE
- END-ACCEPT
- ELSE
- CONTINUE
- END-IF
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3496: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:3496"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:11: error: syntax error, unexpected Identifier
-prog.cob:14: error: syntax error, unexpected END-ACCEPT
-prog.cob:15: error: syntax error, unexpected ELSE
-prog.cob:17: error: syntax error, unexpected END-IF
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:3496"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_313
-#AT_START_314
-at_fn_group_banner 314 'syn_misc.at:3506' \
- "EVALUATE statement with invalid syntax" " " 2
-at_xfail=no
-(
- printf "%s\n" "314. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 a-variable PIC 9.
-
- PROCEDURE DIVISION.
- EVALUATE a-variable
-
- ALSO true
-
- WHEN 1
-
- ALSO a-variable
- CONTINUE
-
- WHEN 1 OR 2
- CONTINUE
-
- END-EVALUATE
- .
- EVALUATE a-variable
-
- ALSO true
-
- WHEN 3
- CONTINUE
-
- WHEN 5
- CONTINUE
-
- END-EVALUATE
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3546: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:3546"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:19: error: invalid conditional expression
-prog.cob:16: error: invalid expression: boolean expected with logical operator
-prog.cob:28: error: wrong number of WHEN parameters
-prog.cob:31: error: wrong number of WHEN parameters
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:3546"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_314
-#AT_START_315
-at_fn_group_banner 315 'syn_misc.at:3555' \
- "COBOL-WORDS directive" " " 2
-at_xfail=no
-(
- printf "%s\n" "315. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# note: currently not checked - should all be seen before first IDENTIFICATION DIVISION
-
-cat >prog.cob <<'_ATEOF'
-
- *> Valid
- >>COBOL-WORDS RESERVE "CAT"
- *> Valid (GC-extension)
- >>COBOL-WORDS RESERVE "doggy" "catty" "mouse"
- *> Valid
- >>COBOL-WORDS EQUATE "VALUE" WITH "VA"
- *> Invalid - Bread is not reserved.
- >>COBOL-WORDS EQUATE "BREAD" WITH "BARA"
- *> Invalid - ID is already reserved
- >>COBOL-WORDS EQUATE "IDENTIFICATION" WITH "ID"
-
- *> Valid, BREAD is not reserved.
- >>COBOL-WORDS SUBSTITUTE "program" BY "bread"
- *> Valid (GC-extension)
- >>COBOL-WORDS SUBSTITUTE "DIVISION" BY "DIV", "JUST" BY "JS"
- *> Invalid - Bread is not reserved.
- >>COBOL-WORDS SUBSTITUTE "BREAD" BY "BARA"
- *> Invalid - ID is already reserved
- >>COBOL-WORDS SUBSTITUTE "IDENTIFICATION" BY "ID"
- *> Invalid - needs BY, not WITH
- *> FIXME: error-recovery is bad, see below
- *> >>COBOL-WORDS SUBSTITUTE "INITIALIZE" WITH "INIT"
-
- *> Valid
- >>COBOL-WORDS UNDEFINE "BREAD"
- *> Valid (GC-extension)
- >>COBOL-WORDS UNDEFINE "DOGGY" "CATTY"
- *> Invalid in Standard COBOL, must be a defined word
- >>COBOL-WORDS UNDEFINE "BREAD"
-
- *> FIXME: error-recovery is bad, see below
- *>>COBOL-WORDS REMOVE "BREAD"
-
- IDENTIFICATION DIV.
- PROGRAM-ID. prog.
-
- DATA DIV.
- WORKING-STORAGE SECTION.
- *> Check EQUATE and SUBSTITUTE work correctly
- 01 just PIC XX VA "1" JS.
- *> Check RESERVE
- 01 cat PIC 9 VA 1.
- *> Check UNDEFINE
- 01 dog PIC 9 VA 1.
-_ATEOF
-
-
-# TODO: add checks for valid reserved word names
-# CHECKME: do we follow the rule "The same COBOL word shall not be contained
-# in a literal in more than one COBOL-WORDS directive within a single compilation group."
-# or specify "this restriction is removed"
-
-# FIXME: error-recovery is really bad, the lines above lead to only directives
-# being part of prog.i, ending with the first broken one
-# prog.cob:23: error: syntax error, unexpected BY, expecting WITH
-# prog.cob:26: error: syntax error, unexpected Literal, expecting EQUATE or UNDEFINE or SUBSTITUTE or RESERVE
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3617: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:3617"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: 'BREAD' is not a default reserved word, so cannot be aliased
-prog.cob:11: error: 'ID' is already reserved
-prog.cob:18: error: 'BREAD' is not a default reserved word, so cannot be aliased
-prog.cob:20: error: 'ID' is already reserved
-prog.cob:30: error: 'BREAD' is not a reserved word, so cannot be removed
-prog.cob:43: error: 'cat' is a reserved word, but isn't supported
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:3617"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_315
-#AT_START_316
-at_fn_group_banner 316 'syn_misc.at:3629' \
- "MF reserved word directives" " " 2
-at_xfail=no
-(
- printf "%s\n" "316. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# note: currently not checked - should all be seen before first IDENTIFICATION DIVISION
-
-cat >prog.cob <<'_ATEOF'
-
- *> Valid
- $SET ADDRSV"DOG""CAT"
- $SET ADD-RSV "doggy" "catty"
- *> Valid
- $SET ADD-SYN "VALUE" = "VA"
- *> Invalid - Bread is not reserved.
- $SET ADDSYN "BREAD" = "BARA"
- *> Invalid - ID is already reserved
- $SET ADDSYN "IDENTIFICATION" = "ID"
-
- *> Valid
- $SET MAKESYN(PROGRAM) = (FUNCTION)
- *> Invalid - BREAD is not reserved.
- $SET MAKESYN "BREAD" = "PROGRAM"
- $SET MAKE-SYN "program" = "bread"
-
- *> Valid
- $SET OVERRIDE "DIVISION" = "DIV" "JUST" = "JS"
- *> Invalid - Bread is not reserved
- $SET OVERRIDE "BREAD" = "BARA"
- *>Invalid - ID is already reserved; note: MF documents this rule but
- *> does not check it and applies the line; we do it better on purpose :-)
- $SET OVERRIDE "IDENTIFICATION" = "ID"
-
- *> Valid - note: MF rules does allow reserving not reserved words
- $SET REMOVE "BREAD" (BARA)REMOVE(DOG)
-
- IDENTIFICATION DIV.
- PROGRAM-ID. prog.
-
- DATA DIV.
- WORKING-STORAGE SECTION.
- *> Check ADDSYN and OVERRIDE work correctly
- 01 just PIC XX VA "1" JS.
- *> Check ADDRSV
- 01 cat PIC 9 VA 1.
- *> Check REMOVE
- 01 dog PIC 9 VA 1.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3675: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:3675"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: error: 'BREAD' is not a default reserved word, so cannot be aliased
-prog.cob:10: error: 'ID' is already reserved
-prog.cob:10: note: you may want MAKESYN instead
-prog.cob:15: error: 'BREAD' is not a default reserved word, so cannot be aliased
-prog.cob:16: error: 'BREAD' is not a reserved word
-prog.cob:16: note: you may want ADDSYN or OVERRIDE instead
-prog.cob:21: error: 'BREAD' is not a default reserved word, so cannot be aliased
-prog.cob:24: error: 'ID' is already reserved
-prog.cob:24: note: you may want MAKESYN instead
-prog.cob:37: error: 'cat' is a reserved word, but isn't supported
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:3675"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_316
-#AT_START_317
-at_fn_group_banner 317 'syn_misc.at:3691' \
- "TURN directive" " " 2
-at_xfail=no
-(
- printf "%s\n" "317. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- *> Valid
- >> TURN ec-i-o f CHECKING ON
- *> Invalid
- >> TURN dd CHECKING ON
- >> TURN ec-all f CHECKING ON
- >> TURN EC-I-O-invalid-KEY not-exist CHECKING OFF
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT F ASSIGN "f.txt", SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD f.
- 01 f-rec PIC X.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3715: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:3715"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: error: invalid exception-name: DD
-prog.cob:7: error: invalid exception-name: F
-prog.cob:8: error: file 'not-exist' does not exist
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:3715"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_317
-#AT_START_318
-at_fn_group_banner 318 'syn_misc.at:3724' \
- "STRING / UNSTRING with invalid syntax" " " 2
-at_xfail=no
-(
- printf "%s\n" "318. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 a PIC X.
- 77 b PIC X.
- 77 c PIC XXX.
-
- PROCEDURE DIVISION.
- STRING DELIMITED BY SPACE INTO
- END-STRING
- STRING a DELIMITED BY SPACE c
- END-STRING
- STRING a DELIMITED BY SPACE INTO
- END-STRING
- STRING
- DELIMITED BY SPACE
- INTO c
- END-STRING
- STRING a DELIMITED BY SPACE
-
- DELIMITED BY SIZE
- INTO c
- END-STRING
- STRING a DELIMITED BY SPACE
- b DELIMITED BY SIZE
- INTO c
- END-STRING
- *
- UNSTRING DELIMITED BY SPACE INTO a
- END-UNSTRING
- UNSTRING c DELIMITED BY SPACE a
- END-UNSTRING
- UNSTRING c DELIMITED BY SPACE INTO
- END-UNSTRING
- UNSTRING DELIMITED BY SPACE INTO a
- END-UNSTRING
- UNSTRING c DELIMITED BY SPACE INTO a
- END-UNSTRING
- UNSTRING c DELIMITED BY SPACE
- DELIMITED BY SIZE INTO a
- END-UNSTRING
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3774: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:3774"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:12: error: syntax error, unexpected DELIMITED
-prog.cob:15: error: syntax error, unexpected END-STRING, expecting INTO
-prog.cob:17: error: syntax error, unexpected END-STRING, expecting Identifier
-prog.cob:19: error: syntax error, unexpected DELIMITED
-prog.cob:24: error: syntax error, unexpected DELIMITED, expecting INTO
-prog.cob:32: error: syntax error, unexpected DELIMITED
-prog.cob:34: error: syntax error, unexpected Identifier, expecting INTO
-prog.cob:37: error: syntax error, unexpected END-UNSTRING, expecting Identifier
-prog.cob:38: error: syntax error, unexpected DELIMITED
-prog.cob:43: error: syntax error, unexpected DELIMITED, expecting INTO
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:3774"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_318
-#AT_START_319
-at_fn_group_banner 319 'syn_misc.at:3789' \
- "STRING / UNSTRING POINTER clause" " " 2
-at_xfail=no
-(
- printf "%s\n" "319. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 valid-ptr PIC 99.
- 01 valid-ptr-2 BINARY-LONG.
- 01 valid-ptr-3 PIC 99 COMP-3.
-
- 01 invalid-ptr PIC 9.
- 01 invalid-ptr-2 PIC 99V99.
- 01 invalid-ptr-3 FLOAT-LONG.
- 01 invalid-ptr-4 PIC 99PP.
- 01 invalid-ptr-5 PIC VPP99.
- 01 invalid-ptr-6 PIC X(30).
- 01 invalid-ptr-7.
- 03 n PIC 99.
- 03 n2 PIC 99.
-
-
- 01 x PIC X(9).
- 01 y PIC X(9).
-
- PROCEDURE DIVISION.
- STRING "hello" INTO x POINTER valid-ptr
- STRING "hello" INTO x POINTER valid-ptr-2
- STRING "hello" INTO x POINTER valid-ptr-3
-
- STRING "hello" INTO x POINTER invalid-ptr
- STRING "hello" INTO x POINTER invalid-ptr-2
- STRING "hello" INTO x POINTER invalid-ptr-3
- STRING "hello" INTO x POINTER invalid-ptr-4
- STRING "hello" INTO x POINTER invalid-ptr-5
- STRING "hello" INTO x POINTER invalid-ptr-6
- STRING "hello" INTO x POINTER invalid-ptr-7
-
- UNSTRING y INTO x POINTER valid-ptr
- UNSTRING y INTO x POINTER valid-ptr-2
- UNSTRING y INTO x POINTER valid-ptr-3
-
- UNSTRING y INTO x POINTER invalid-ptr
- UNSTRING y INTO x POINTER invalid-ptr-2
- UNSTRING y INTO x POINTER invalid-ptr-3
- UNSTRING y INTO x POINTER invalid-ptr-4
- UNSTRING y INTO x POINTER invalid-ptr-5
- UNSTRING y INTO x POINTER invalid-ptr-6
- UNSTRING y INTO x POINTER invalid-ptr-7
- .
-_ATEOF
-
-
-# Note: the following checks (per COBOL standard) added with [r3678] are 4.x only:
-# prog.cob:30: error: 'invalid-ptr' is too small to contain the number 10 (one plus the size of 'x')
-# prog.cob:42: error: 'invalid-ptr' is too small to contain the number 10 (one plus the size of 'y')
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3847: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:3847"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:31: error: POINTER item 'invalid-ptr-2' must be an integer
-prog.cob:32: error: POINTER item 'invalid-ptr-3' must be an integer
-prog.cob:33: error: POINTER item 'invalid-ptr-4' may not have PICTURE with P in it
-prog.cob:34: error: POINTER item 'invalid-ptr-5' must be an integer
-prog.cob:35: error: POINTER item 'invalid-ptr-6' must be an integer
-prog.cob:36: error: 'invalid-ptr-7' is not an elementary item
-prog.cob:43: error: POINTER item 'invalid-ptr-2' must be an integer
-prog.cob:44: error: POINTER item 'invalid-ptr-3' must be an integer
-prog.cob:45: error: POINTER item 'invalid-ptr-4' may not have PICTURE with P in it
-prog.cob:46: error: POINTER item 'invalid-ptr-5' must be an integer
-prog.cob:47: error: POINTER item 'invalid-ptr-6' must be an integer
-prog.cob:48: error: 'invalid-ptr-7' is not an elementary item
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:3847"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_319
-#AT_START_320
-at_fn_group_banner 320 'syn_misc.at:3864' \
- "STRING with non-DISPLAY" " " 2
-at_xfail=no
-(
- printf "%s\n" "320. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 I-X PIC 9(9) COMP-X VALUE 6.
- 01 I-B PIC 9(9) BINARY VALUE 6.
- 01 I-P PIC 9(9) COMP-3 VALUE 6.
- 01 I-D PIC 9(9) VALUE 6.
- 01 I-F COMP-1 VALUE 6.
- 01 TSTWRK PIC X(48).
-
- PROCEDURE DIVISION.
- MAIN-10.
- STRING " ID:" I-D
- DELIMITED BY SIZE INTO TSTWRK.
- STRING " IX:" I-X " IB:" I-B
- " ID:" I-D
- " IP:" I-P " IF:" I-F
- DELIMITED BY SIZE INTO TSTWRK.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3892: \$COMPILE -x -std=mf -debug -Wall prog.cob "
-at_fn_check_prepare_dynamic "$COMPILE -x -std=mf -debug -Wall prog.cob " "syn_misc.at:3892"
-( $at_check_trace; $COMPILE -x -std=mf -debug -Wall prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in paragraph 'MAIN-10':
-prog.cob:19: error: STRING item 'I-X' must be USAGE DISPLAY or NATIONAL
-prog.cob:19: error: STRING item 'I-B' must be USAGE DISPLAY or NATIONAL
-prog.cob:21: error: STRING item 'I-P' must be USAGE DISPLAY or NATIONAL
-prog.cob:21: error: STRING item 'I-F' must be USAGE DISPLAY or NATIONAL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:3892"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_320
-#AT_START_321
-at_fn_group_banner 321 'syn_misc.at:3903' \
- "UNSTRING COUNT clause" " " 2
-at_xfail=no
-(
- printf "%s\n" "321. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 valid-1 PIC 9.
- 01 valid-2 BINARY-LONG.
- 01 valid-3 PIC 99 COMP-3.
-
- 01 invalid-1 PIC 99V99.
- 01 invalid-2 FLOAT-LONG.
- 01 invalid-3 PIC 99PP.
- 01 invalid-4 PIC VPP99.
- 01 invalid-5 PIC X(30).
- 88 invalid-6 VALUE "abc".
-
- 01 x PIC X(9).
- 01 y PIC X(9).
-
- PROCEDURE DIVISION.
- UNSTRING x INTO y COUNT valid-1
- UNSTRING x INTO y COUNT valid-2
- UNSTRING x INTO y COUNT valid-3
-
- UNSTRING x INTO y COUNT invalid-1
- UNSTRING x INTO y COUNT invalid-2
- UNSTRING x INTO y COUNT invalid-3
- UNSTRING x INTO y COUNT invalid-4
- UNSTRING x INTO y COUNT invalid-5
- UNSTRING x INTO y COUNT invalid-6
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3940: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:3940"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:26: error: COUNT item 'invalid-1' must be an integer
-prog.cob:27: error: COUNT item 'invalid-2' must be an integer
-prog.cob:28: error: COUNT item 'invalid-3' may not have PICTURE with P in it
-prog.cob:29: error: COUNT item 'invalid-4' must be an integer
-prog.cob:30: error: COUNT item 'invalid-5' must be an integer
-prog.cob:31: error: condition-name not allowed here: 'invalid-6'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:3940"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_321
-#AT_START_322
-at_fn_group_banner 322 'syn_misc.at:3951' \
- "use of program-prototype-names" " " 2
-at_xfail=no
-(
- printf "%s\n" "322. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- REPOSITORY.
- PROGRAM test-prog
- .
- PROCEDURE DIVISION.
- CALL test-prog
- CANCEL test-prog
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:3969: \$COMPILE_ONLY -fprogram-prototypes=warning prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fprogram-prototypes=warning prog.cob" "syn_misc.at:3969"
-( $at_check_trace; $COMPILE_ONLY -fprogram-prototypes=warning prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: warning: PROGRAM phrase used
-prog.cob:8: warning: no definition/prototype seen for PROGRAM 'test-prog'
-prog.cob:11: warning: CALL/CANCEL with program-prototype-name used
-prog.cob:12: warning: CALL/CANCEL with program-prototype-name used
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:3969"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_322
-#AT_START_323
-at_fn_group_banner 323 'syn_misc.at:3978' \
- "checking prototypes and definitions match" " " 2
-at_xfail=yes
-(
- printf "%s\n" "323. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-
-# patch #32 was not fully included and the current implementation
-# needs updating
-
-cat >prog.cob <<'_ATEOF'
-
- *> Prototype and definition have different signatures.
- IDENTIFICATION DIVISION.
- FUNCTION-ID. invalid-1 PROTOTYPE.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER. x.
- SPECIAL-NAMES.
- DECIMAL-POINT COMMA
- CURRENCY SIGN "F"
- .
- DATA DIVISION.
- LINKAGE SECTION.
- 01 x.
- 03 x1 PIC X(15).
- 03 x2 PIC X(15) JUST.
- 01 y PIC +9(30) BLANK ZERO.
-
- PROCEDURE DIVISION USING x returning y.
- END FUNCTION invalid-1.
-
- *> Prototype and definition have different signatures.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. invalid-2 PROTOTYPE.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 x PIC X.
- PROCEDURE DIVISION USING x.
- END PROGRAM invalid-2.
-
- *> Prototype and definition have matching signatures.
- IDENTIFICATION DIVISION.
- FUNCTION-ID. valid-1 PROTOTYPE.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- DECIMAL-POINT COMMA
- .
- DATA DIVISION.
- LINKAGE SECTION.
- 01 ret PIC 999V99.
-
- PROCEDURE DIVISION RETURNING ret.
- END FUNCTION valid-1.
-
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. blahblah AS "invalid-1".
-
- DATA DIVISION.
- LINKAGE SECTION.
- 01 a.
- 03 a-1 PIC X(15) JUST.
- 03 a-2 PIC X(15).
- 01 b PIC S9(10) SIGN LEADING.
-
- PROCEDURE DIVISION USING a RETURNING b.
- DISPLAY "yes"
- .
- END PROGRAM blahblah.
-
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. invalid-2.
-
- DATA DIVISION.
- LINKAGE SECTION.
- 01 ret PIC X.
-
- PROCEDURE DIVISION RETURNING ret.
- MOVE "x" TO ret
- .
- END PROGRAM invalid-2.
-
- IDENTIFICATION DIVISION.
- FUNCTION-ID. valid-1.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- DECIMAL-POINT COMMA
- .
- DATA DIVISION.
- LINKAGE SECTION.
- 01 ret PIC 999V99.
-
- PROCEDURE DIVISION RETURNING ret.
- MOVE 1,5 TO ret
- .
- END FUNCTION valid-1.
-
- *> Prototypes must be at start of compilation group.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. invalid-3.
-
- DATA DIVISION.
- LINKAGE SECTION.
- 01 x PIC X(10).
-
- PROCEDURE DIVISION USING x.
- END PROGRAM invalid-3.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. invalid-3 IS PROTOTYPE.
-
- DATA DIVISION.
- LINKAGE SECTION.
- 01 x PIC X(10).
-
- PROCEDURE DIVISION USING x.
- END PROGRAM invalid-3.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4100: \$COMPILE_ONLY -Wno-unfinished -Wno-pending prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wno-unfinished -Wno-pending prog.cob" "syn_misc.at:4100"
-( $at_check_trace; $COMPILE_ONLY -Wno-unfinished -Wno-pending prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:60: warning: prototype and definition of 'invalid-1' do not match
-prog.cob:60: note: definition is a program but the prototype is a function
-prog.cob:60: note: DECIMAL-POINT IS COMMA clauses differ
-prog.cob:60: note: CURRENCY clauses differ
-prog.cob:60: note: parameters #1 ('a-1' in the definition and 'x1' in the prototype) differ
-prog.cob:60: note: returning items ('b' in the definition and 'y' in the prototype) differ
-prog.cob:73: warning: prototype and definition of 'invalid-2' do not match
-prog.cob:73: note: number of parameters differ
-prog.cob:73: note: definition has a RETURNING item but protoype does not
-prog.cob:106: error: prototypes must be come before any program/function definitions
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:4100"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_323
-#AT_START_324
-at_fn_group_banner 324 'syn_misc.at:4115' \
- "invalid INSPECT/TRANSFORM operands" " " 2
-at_xfail=no
-(
- printf "%s\n" "324. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT f ASSIGN "A".
-
- DATA DIVISION.
- FILE SECTION.
- FD f.
- 01 f-rec PIC X.
-
- WORKING-STORAGE SECTION.
- 01 not-display PIC 9(5) COMP.
- 01 not-a-num PIC X(5).
-
- PROCEDURE DIVISION.
- INSPECT f TALLYING not-a-num FOR ALL 3
- REPLACING FIRST "abcde" BY not-display
- TRANSFORM f FROM 3 TO 2
- TRANSFORM function udf(f-rec) FROM SPACE TO ZERO
- TRANSFORM "yada" FROM SPACE TO ZERO
- INSPECT function trim(f-rec)
- TALLYING not-display FOR ALL SPACES *> valid with func
- REPLACING FIRST ZERO BY SPACE *> not valid
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4148: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:4148"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:20: error: 'f' is not a field
-prog.cob:20: error: 'not-a-num' is not numeric
-prog.cob:20: error: 3 is not an alphanumeric literal
-prog.cob:20: error: invalid target for TALLYING
-prog.cob:21: error: 'not-display' is not USAGE DISPLAY
-prog.cob:20: error: REPLACING operands differ in size
-prog.cob:20: error: invalid target for REPLACING
-prog.cob:22: error: 'f' is not a field
-prog.cob:22: error: 3 is not an alphanumeric literal
-prog.cob:22: error: 2 is not an alphanumeric literal
-prog.cob:22: error: invalid target for TRANSFORM
-prog.cob:23: error: syntax error, unexpected intrinsic function name, expecting Identifier
-prog.cob:24: error: syntax error, unexpected Literal, expecting Identifier
-prog.cob:25: error: invalid target for REPLACING
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:4148"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_324
-#AT_START_325
-at_fn_group_banner 325 'syn_misc.at:4167' \
- "SIGN clause checks" " " 2
-at_xfail=no
-(
- printf "%s\n" "325. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 valid-1 SIGN TRAILING.
- 03 x PIC S999.
- 03 y PIC S999.
- 01 valid-2 PIC S99.
-
- 01 invalid-1 PIC 99 SIGN LEADING.
- 01 invalid-2 PIC S99 SIGN TRAILING, USAGE BINARY.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4185: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:4185"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:12: error: elementary items with SIGN clause must have S in PICTURE
-prog.cob:13: error: elementary items with SIGN clause must be USAGE DISPLAY or NATIONAL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:4185"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_325
-#AT_START_326
-at_fn_group_banner 326 'syn_misc.at:4192' \
- "conflicting entry conventions" " " 2
-at_xfail=no
-(
- printf "%s\n" "326. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- OPTIONS.
- ENTRY-CONVENTION COBOL.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- CALL-CONVENTION 0 IS EXTERN.
-
- PROCEDURE DIVISION EXTERN.
- CONTINUE
- .
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4209: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:4209"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:11: warning: overriding convention specified in ENTRY-CONVENTION
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:4209"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- OPTIONS.
- ENTRY-CONVENTION COBOL.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
-
- PROCEDURE DIVISION WITH C LINKAGE.
- CONTINUE
- .
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4225: \$COMPILE_ONLY prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog2.cob" "syn_misc.at:4225"
-( $at_check_trace; $COMPILE_ONLY prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:9: warning: overriding convention specified in ENTRY-CONVENTION
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:4225"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog3.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- CALL-CONVENTION 0 IS EXTERN.
-
- PROCEDURE DIVISION
- EXTERN
- WITH C LINKAGE.
- CONTINUE
- ENTRY 'ANOTHERSTATEMENT'.
- CONTINUE
- ENTRY EXTERN 'ANOTHERSTATEMENT2'.
- CONTINUE
- ENTRY 'ANOTHERSTATEMENT3' WITH C LINKAGE.
- CONTINUE
- ENTRY
- EXTERN
- 'ANOTHERSTATEMENT4'
- WITH C LINKAGE.
- CONTINUE
- .
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4254: \$COMPILE_ONLY prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog3.cob" "syn_misc.at:4254"
-( $at_check_trace; $COMPILE_ONLY prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog3.cob:11: error: CALL-CONVENTION and WITH LINKAGE are mutually exclusive
-prog3.cob:22: error: CALL-CONVENTION and WITH LINKAGE are mutually exclusive
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:4254"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_326
-#AT_START_327
-at_fn_group_banner 327 'syn_misc.at:4261' \
- "conflicting call conventions" " " 2
-at_xfail=no
-(
- printf "%s\n" "327. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- CALL EXTERN 'callee'.
- CALL 'callee' WITH C LINKAGE.
- CALL
- EXTERN
- 'callee'
- WITH C LINKAGE
- .
- STOP RUN.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4277: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:4277"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: CALL-CONVENTION and WITH LINKAGE are mutually exclusive
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:4277"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4280: \$COMPILE_ONLY -std=cobol85 -freserved=EXTERN,C prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol85 -freserved=EXTERN,C prog.cob" "syn_misc.at:4280"
-( $at_check_trace; $COMPILE_ONLY -std=cobol85 -freserved=EXTERN,C prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:5: error: CALL-/ENTRY-CONVENTION does not conform to COBOL 85
-prog.cob:6: error: WITH ... LINKAGE does not conform to COBOL 85
-prog.cob:8: error: CALL-/ENTRY-CONVENTION does not conform to COBOL 85
-prog.cob:10: error: WITH ... LINKAGE does not conform to COBOL 85
-prog.cob:10: error: CALL-CONVENTION and WITH LINKAGE are mutually exclusive
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:4280"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_327
-#AT_START_328
-at_fn_group_banner 328 'syn_misc.at:4290' \
- "dangling LINKAGE items" " " 2
-at_xfail=no
-(
- printf "%s\n" "328. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- LINKAGE SECTION.
- * constants may occur anywhere but don't belong to LINKAGE
- 78 NSIZE VALUE 1.
- *
- * two variables in USING
- 77 A PIC X.
- 01 B.
- 03 B1 PIC X.
- 03 B2 PIC 9(NSIZE).
- * variable not referenced anywhere - no warning
- 77 C PIC X.
- * variable referenced by its REDEFINE
- 01 D PIC XX.
- 01 filler redefines D.
- 03 D1 PIC X.
- 03 D2 PIC 9(NSIZE).
- * variable referenced by its second REDEFINE
- 01 E PIC XX.
- 01 filler redefines E.
- 03 Ea1 PIC X.
- 03 Ea2 PIC 9(NSIZE).
- 01 filler redefines E.
- 03 Eb1 PIC X.
- 03 Eb2 PIC 9(NSIZE).
- * variable referenced by its child
- 01 F.
- 03 F1 PIC X.
- 03 F2 PIC 9(NSIZE).
- * variable referenced by level 88 (a validation entry)
- 01 G.
- 03 filler PIC X.
- 88 g-val-a value 'a'.
- 88 g-val-b value 'b'.
- PROCEDURE DIVISION USING A B.
-
- IF D2 OMITTED OR Eb2 OMITTED or F2 OMITTED
- set g-val-b to true
- END-IF
- .
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4337: \$COMPILE_ONLY -Wlinkage prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wlinkage prog.cob" "syn_misc.at:4337"
-( $at_check_trace; $COMPILE_ONLY -Wlinkage prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:17: warning: LINKAGE item 'D' is not a PROCEDURE USING parameter
-prog.cob:22: warning: LINKAGE item 'E' is not a PROCEDURE USING parameter
-prog.cob:30: warning: LINKAGE item 'F' is not a PROCEDURE USING parameter
-prog.cob:34: warning: LINKAGE item 'G' is not a PROCEDURE USING parameter
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:4337"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_328
-#AT_START_329
-at_fn_group_banner 329 'syn_misc.at:4346' \
- "duplicate PROCEDURE DIVISION/ENTRY USING items" " " 2
-at_xfail=no
-(
- printf "%s\n" "329. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-# see bug #635
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 p PIC 9.
- 01 o PIC X(5).
- PROCEDURE DIVISION USING p p o.
- ENTRY "sub" USING o p o.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4360: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:4360"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: error: duplicate USING BY REFERENCE item 'p'
-prog.cob:9: error: duplicate USING BY REFERENCE item 'o'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:4360"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_329
-#AT_START_330
-at_fn_group_banner 330 'syn_misc.at:4367' \
- "duplicate CALL USING BY REFERENCE items" " " 2
-at_xfail=no
-(
- printf "%s\n" "330. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-# see bug #635
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 p PIC 99.
- 01 o PIC X(5).
- PROCEDURE DIVISION.
- CALL "prog2" USING p p o
- p.
- CALL "prog3" USING BY REFERENCE p
- BY CONTENT p o
- BY REFERENCE p o(2:).
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4385: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:4385"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: warning: duplicate USING BY REFERENCE item 'p'
-prog.cob:10: warning: duplicate USING BY REFERENCE item 'p'
-prog.cob:13: warning: duplicate USING BY REFERENCE item 'p'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:4385"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_330
-#AT_START_331
-at_fn_group_banner 331 'syn_misc.at:4393' \
- "ADD / SUBTRACT TABLE" " " 2
-at_xfail=no
-(
- printf "%s\n" "331. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 tab1.
- 03 tab1-entry OCCURS 5 PIC S999.
- 01 tab2.
- 03 tab2-entry OCCURS 7 PIC S99.
- 03 tab2b-entry OCCURS 7.
- 05 x PIC S99.
- 01 tab3.
- 03 sub-tab-3 OCCURS 2.
- 05 tab3-entry OCCURS 5 PIC S999.
-
- PROCEDURE DIVISION.
- ADD TABLE tab1-entry TO tab2-entry.
- SUBTRACT TABLE tab2-entry FROM tab1-entry.
- ADD TABLE tab1-entry TO tab3-entry (1).
- SUBTRACT TABLE tab2-entry FROM tab3-entry (2).
- ADD TABLE tab1-entry TO x.
- SUBTRACT TABLE x FROM tab1-entry.
- ADD TABLE tab1-entry TO tab2b-entry.
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4423: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:4423"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:18: warning: ADD TABLE is not implemented
-prog.cob:19: warning: SUBTRACT TABLE is not implemented
-prog.cob:20: warning: ADD TABLE is not implemented
-prog.cob:21: warning: SUBTRACT TABLE is not implemented
-prog.cob:22: warning: ADD TABLE is not implemented
-prog.cob:23: warning: SUBTRACT TABLE is not implemented
-prog.cob:24: warning: ADD TABLE is not implemented
-prog.cob:24: error: 'tab2b-entry' is not numeric
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:4423"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_331
-#AT_START_332
-at_fn_group_banner 332 'syn_misc.at:4436' \
- "USE FOR DEBUGGING invalid ref-mod / subscripts" " " 2
-at_xfail=no
-(
- printf "%s\n" "332. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# COBOL85 3.2.3 Syntax Rules 10+12 - "no subscripts. not reference-modified"
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER.
- whatever WITH DEBUGGING MODE.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 i PIC 9.
- 01 FILLER.
- 03 x OCCURS 2 PIC 9.
-
- PROCEDURE DIVISION.
- DECLARATIVES.
- test-DEBUG SECTION.
- USE FOR DEBUGGING ON ALL OF I (1:1).
- DISPLAY DEBUG-LINE.
- test-DEBUGo SECTION.
- USE FOR DEBUGGING ON ALL OF X (1).
- DISPLAY DEBUG-LINE.
- END DECLARATIVES.
-
- MAIN SECTION.
- MOVE 1 TO i, x(2)
- STOP RUN.
-_ATEOF
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4471: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:4471"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in section 'test-DEBUG':
-prog.cob:19: error: DEBUGGING target may not be reference modified
-prog.cob: in section 'test-DEBUGo':
-prog.cob:22: error: DEBUGGING target may not be subscripted
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:4471"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_332
-#AT_START_333
-at_fn_group_banner 333 'syn_misc.at:4481' \
- "USE FOR DEBUGGING duplicate targets" " " 2
-at_xfail=no
-(
- printf "%s\n" "333. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# TODO: add cd-names and file-names here
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER.
- whatever WITH DEBUGGING MODE.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 i PIC 9.
- 01 j PIC 9.
-
- PROCEDURE DIVISION.
- DECLARATIVES.
- test-DEBUG SECTION.
- USE FOR DEBUGGING ON MAIN MAIN.
- DISPLAY DEBUG-LINE.
- test-DEBUG2 SECTION.
- USE FOR DEBUGGING ON ALL I
- ALL REFERENCES OF J
- ALL PROCEDURES.
- DISPLAY DEBUG-LINE.
- test-DEBUG3 SECTION.
- USE FOR DEBUGGING ON ALL PROCEDURES
- J
- ALL OF I.
- DISPLAY DEBUG-LINE.
- END DECLARATIVES.
-
- MAIN SECTION.
- MOVE 1 TO i
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4522: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:4522"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in section 'test-DEBUG3':
-prog.cob:26: error: duplicate USE DEBUGGING ON ALL PROCEDURES
-prog.cob:27: error: duplicate DEBUGGING target: 'j'
-prog.cob:28: error: duplicate DEBUGGING target: 'i'
-prog.cob: in section 'test-DEBUG':
-prog.cob:18: error: DEBUGGING target already specified with ALL PROCEDURES: 'MAIN'
-prog.cob:18: error: duplicate DEBUGGING target: 'MAIN'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:4522"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_333
-#AT_START_334
-at_fn_group_banner 334 'syn_misc.at:4534' \
- "USE FOR DEBUGGING implicit statements" " " 2
-at_xfail=no
-(
- printf "%s\n" "334. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# see bug #693, WHEN created an implicit statement before
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. TESTING.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TSTFIL1 ASSIGN TO "TSTFIL1"
- ORGANIZATION LINE SEQUENTIAL.
- SELECT TSTFIL2 ASSIGN TO "TSTFIL2"
- ORGANIZATION LINE SEQUENTIAL.
-
- DATA DIVISION.
- FILE SECTION.
- FD TSTFIL1.
- 01 TSTREC1 PIC X(256).
- FD TSTFIL2.
- 01 TSTREC2 PIC X(256).
- WORKING-STORAGE SECTION.
- 01 OODB-RESULT PIC X(07).
-
- PROCEDURE DIVISION.
- DECLARATIVES.
- MY-TEST SECTION.
- USE FOR DEBUGGING ON ALL REFERENCES OF OODB-RESULT.
- I-O-TEST-OODB-RESULT.
- EVALUATE OODB-RESULT
- WHEN SPACES
- DISPLAY "LINE 1"
- WHEN OTHER
- DISPLAY "LINE 2" END-DISPLAY
- END-EVALUATE.
- CLOSE TSTFIL1, TSTFIL2.
- END DECLARATIVES.
-
- MAIN SECTION.
- 000-BEGIN.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4578: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:4578"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:4578"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_334
-#AT_START_335
-at_fn_group_banner 335 'syn_misc.at:4582' \
- "USE FOR DEBUGGING syntax-checks (1)" " " 2
-at_xfail=no
-(
- printf "%s\n" "335. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER.
- whatever WITH DEBUGGING MODE.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 i PIC 9.
-
- PROCEDURE DIVISION.
- DECLARATIVES.
- test-DEBUG SECTION.
- USE FOR DEBUGGING ON ALL REFERENCES OF I
- MAIN.
- DISPLAY DEBUG-ITEM.
- DISPLAY DEBUG-NAME " AT " DEBUG-LINE " WITH " DEBUG-CONTENTS.
- DISPLAY DEBUG-SUB-1 DEBUG-SUB-2 DEBUG-SUB-3.
- END DECLARATIVES.
-
- MAIN SECTION.
- MOVE 1 TO i
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4614: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:4614"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:4614"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4615: \$COMPILE_ONLY -std=cobol85 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol85 prog.cob" "syn_misc.at:4615"
-( $at_check_trace; $COMPILE_ONLY -std=cobol85 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in section 'test-DEBUG':
-prog.cob:18: warning: USE FOR DEBUGGING is obsolete in COBOL 85
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:4615"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4619: \$COMPILE_ONLY -std=acu-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=acu-strict prog.cob" "syn_misc.at:4619"
-( $at_check_trace; $COMPILE_ONLY -std=acu-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in section 'test-DEBUG':
-prog.cob:17: error: 'REFERENCES IN i' is not defined
-prog.cob:18: error: USE FOR DEBUGGING does not conform to ACUCOBOL-GT
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:4619"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4624: \$COMPILE_ONLY -std=acu-strict -fuse-for-debugging=ok -freserved=REFERENCES prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=acu-strict -fuse-for-debugging=ok -freserved=REFERENCES prog.cob" "syn_misc.at:4624"
-( $at_check_trace; $COMPILE_ONLY -std=acu-strict -fuse-for-debugging=ok -freserved=REFERENCES prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:4624"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# verify that DEBUG-ITEM and friends can only be used when DEBUGGING is actually active
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
-
- PROCEDURE DIVISION.
- MAIN.
- DISPLAY DEBUG-ITEM.
- DISPLAY DEBUG-NAME " AT " DEBUG-LINE " WITH " DEBUG-CONTENTS.
- DISPLAY DEBUG-SUB-1 DEBUG-SUB-2 DEBUG-SUB-3.
- STOP RUN.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4641: \$COMPILE_ONLY prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog2.cob" "syn_misc.at:4641"
-( $at_check_trace; $COMPILE_ONLY prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob: in paragraph 'MAIN':
-prog2.cob:10: error: 'DEBUG-ITEM' is not defined
-prog2.cob:11: error: 'DEBUG-NAME' is not defined
-prog2.cob:11: error: 'DEBUG-LINE' is not defined
-prog2.cob:11: error: 'DEBUG-CONTENTS' is not defined
-prog2.cob:12: error: 'DEBUG-SUB-1' is not defined
-prog2.cob:12: error: 'DEBUG-SUB-2' is not defined
-prog2.cob:12: error: 'DEBUG-SUB-3' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:4641"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# HACK to cater for the reserved words hack...
-#AT_CHECK([$COMPILE_ONLY -std=cobol85 prog2.cob], [1], [],
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4653: \$COMPILE_ONLY -std=cobol85 prog2.cob \\
--freserved=\"debug-item,debug-name,debug-line,debug-contents\" \\
--freserved=\"debug-sub-1,debug-sub-2,debug-sub-3\" \\
-"
-at_fn_check_prepare_notrace 'an embedded newline' "syn_misc.at:4653"
-( $at_check_trace; $COMPILE_ONLY -std=cobol85 prog2.cob \
--freserved="debug-item,debug-name,debug-line,debug-contents" \
--freserved="debug-sub-1,debug-sub-2,debug-sub-3" \
-
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob: in paragraph 'MAIN':
-prog2.cob:10: error: 'DEBUG-ITEM' is not defined
-prog2.cob:11: error: 'DEBUG-NAME' is a reserved word, but isn't supported
-prog2.cob:11: error: 'DEBUG-NAME' cannot be used here
-prog2.cob:11: error: 'DEBUG-LINE' is a reserved word, but isn't supported
-prog2.cob:11: error: 'DEBUG-LINE' cannot be used here
-prog2.cob:11: error: 'DEBUG-CONTENTS' is a reserved word, but isn't supported
-prog2.cob:11: error: 'DEBUG-CONTENTS' cannot be used here
-prog2.cob:12: error: 'DEBUG-SUB-1' is a reserved word, but isn't supported
-prog2.cob:12: error: 'DEBUG-SUB-2' is a reserved word, but isn't supported
-prog2.cob:12: error: 'DEBUG-SUB-1' cannot be used here
-prog2.cob:12: error: 'DEBUG-SUB-3' is a reserved word, but isn't supported
-prog2.cob:12: error: 'DEBUG-SUB-2' cannot be used here
-prog2.cob:12: error: 'DEBUG-SUB-3' cannot be used here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:4653"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_335
-#AT_START_336
-at_fn_group_banner 336 'syn_misc.at:4675' \
- "USE FOR DEBUGGING syntax-checks (2)" " " 2
-at_xfail=yes
-(
- printf "%s\n" "336. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# TODO: still need tests/checks (3.2.3 Syntax Rules 9+11):
-# 09 Identifier must not reference any data item defined in the Report
-# Section except sum counters.
-# 11 References to the special register DEBUG-ITEM are restricted to
-# references from within a debugging section.
-
-
-# we currently fail to detect references into DECLARATIVES and
-# references to debugging-procedures other than PERFORM --> both in prog2
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER.
- whatever WITH DEBUGGING MODE.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 i PIC 9.
- 01 j PIC 9.
-
- PROCEDURE DIVISION.
- DECLARATIVES.
- test-DEBUG SECTION.
- USE FOR DEBUGGING ON ALL REFERENCES OF I
- TEST-debug
- MAIN.
- DISPLAY DEBUG-LINE.
- PERFORM MAIN. PERFORM TEST-DEBUG2. GO TO TEST-DEBUG2.
- test-DEBUG2 SECTION.
- USE FOR DEBUGGING ON ALL OF I
- TEST-debug.
- DISPLAY DEBUG-LINE.
- END DECLARATIVES.
-
- MAIN SECTION.
- MOVE 1 TO i, j
- PERFORM TesT-DebuG
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4722: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:4722"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in section 'test-DEBUG':
-prog.cob:22: warning: 'MAIN' is not in DECLARATIVES
-prog.cob:22: error: 'TEST-DEBUG2' may only be referenced with PERFORM
-prog.cob:19: error: DEBUGGING target invalid: 'test-DEBUG'
-prog.cob: in section 'TEST-DEBUG2':
-prog.cob:24: error: duplicate DEBUGGING target: 'i'
-prog.cob:25: error: DEBUGGING target invalid: 'test-DEBUG'
-prog.cob: in section 'MAIN':
-prog.cob:31: warning: 'test-DEBUG' is in DECLARATIVES
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:4722"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4733: \$COMPILE_ONLY -std=cobol85 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol85 prog.cob" "syn_misc.at:4733"
-( $at_check_trace; $COMPILE_ONLY -std=cobol85 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in section 'test-DEBUG':
-prog.cob:20: warning: USE FOR DEBUGGING is obsolete in COBOL 85
-prog.cob:22: error: 'MAIN' is not in DECLARATIVES
-prog.cob:22: error: 'TEST-DEBUG2' may only be referenced with PERFORM
-prog.cob:19: error: DEBUGGING target invalid: 'test-DEBUG'
-prog.cob: in section 'TEST-DEBUG2':
-prog.cob:24: error: duplicate DEBUGGING target: 'i'
-prog.cob:25: error: DEBUGGING target invalid: 'test-DEBUG'
-prog.cob: in section 'MAIN':
-prog.cob:31: error: 'test-DEBUG' is in DECLARATIVES
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:4733"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_336
-#AT_START_337
-at_fn_group_banner 337 'syn_misc.at:4748' \
- "Empty PERFORM with DEBUGGING MODE" " " 2
-at_xfail=no
-(
- printf "%s\n" "337. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER.
- whatever WITH DEBUGGING MODE.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 i PIC 9.
-
- PROCEDURE DIVISION.
- PERFORM VARYING i FROM 1 BY 1
- UNTIL i = 5
- END-PERFORM
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4771: \$COMPILE_ONLY -fmissing-statement=ok prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fmissing-statement=ok prog.cob" "syn_misc.at:4771"
-( $at_check_trace; $COMPILE_ONLY -fmissing-statement=ok prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:4771"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_337
-#AT_START_338
-at_fn_group_banner 338 'syn_misc.at:4776' \
- "whitespace handling" " " 2
-at_xfail=no
-(
- printf "%s\n" "338. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog1.cob <<'_ATEOF'
-
- IDENTIFICATION
- DIVISION
- .
- author.
- tester.
- PROGRAM-ID
- .
- prog1
- .
- REMARKS;. Should work.,,
-
- ENVIRONMENT
- DIVISION
- .
- CONFIGURATION
- SECTION
- .
- SOURCE-COMPUTER
- .
- whatever
- WITH
- DEBUGGING
- MODE
- .
-
- DDATA
- D DIVISION
- D .
- WORKING-STORAGE
- SECTION
- .
- 01
- i
- PIC
- 9
- .
-
- PROCEDURE
- DIVISION
- .
- >> SOURCE FORMAT IS FREE
-IF
-i
-GREATER
-THAN
-OR
-EQUAL
-
-TO
-
-5
-
-THEN
-
-GOBACK.
- STOP
- RUN
- .
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- ID,;DIVISION;,.,;
- author,.;tester.
- PROGRAM-ID,;.;,prog2;,.;,
- REMARKS;. Should work.,,
- ENVIRONMENT,;DIVISION;,.,;
- CONFIGURATION;;,,SECTION;;,,.
- SOURCE-COMPUTER;;.,,whatever;;DEBUGGING,,MODE;,.
-
- DDATA;DIVISION,.
- DWORKING-STORAGE,SECTION;.
- 01;i,PIC;9;.
-
- PROCEDURE;DIVISION,.;
- IF;,i;,GREATER,;THAN;,OR,;EQUAL ,;TO;;5;
- ,,,THEN;;;GOBACK.
- STOP,RUN;.,
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4859: \$COMPILE_ONLY -Wno-obsolete prog1.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wno-obsolete prog1.cob" "syn_misc.at:4859"
-( $at_check_trace; $COMPILE_ONLY -Wno-obsolete prog1.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:4859"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4860: \$COMPILE_ONLY -Wno-obsolete prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wno-obsolete prog2.cob" "syn_misc.at:4860"
-( $at_check_trace; $COMPILE_ONLY -Wno-obsolete prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:4860"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_338
-#AT_START_339
-at_fn_group_banner 339 'syn_misc.at:4864' \
- "STOP identifier" " " 2
-at_xfail=no
-(
- printf "%s\n" "339. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x PIC 9(5) VALUE 1.
- 01 y CONSTANT "ab".
-
- PROCEDURE DIVISION.
- STOP x
- STOP y
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4882: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:4882"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:12: warning: STOP identifier is obsolete in GnuCOBOL
-prog.cob:12: warning: STOP literal is obsolete in GnuCOBOL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:4882"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4886: \$COMPILE_ONLY -fstop-identifier=ok -fstop-literal=ok prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fstop-identifier=ok -fstop-literal=ok prog.cob" "syn_misc.at:4886"
-( $at_check_trace; $COMPILE_ONLY -fstop-identifier=ok -fstop-literal=ok prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:4886"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_339
-#AT_START_340
-at_fn_group_banner 340 'syn_misc.at:4890' \
- "01 CONSTANT" " " 2
-at_xfail=no
-(
- printf "%s\n" "340. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 NUM2 CONSTANT 3.
- 01 CON3 CONSTANT ((1 + 2) * NUM2 - 4.
- 01 CON4 CONSTANT (1 + 2) * NUM2 - 4).
- 01 CON5 CONSTANT (1 + 2) // NUM2.
- 01 CON6 CONSTANT (1 + 2 + 3 + (4)) / (NUM2).
- *
- PROCEDURE DIVISION.
- MAIN.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4909: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:4909"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: error: missing right parenthesis
-prog.cob:8: error: missing left parenthesis
-prog.cob:9: error: '/' operator misplaced
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:4909"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4915: \$COMPILE_ONLY -std=mf-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=mf-strict prog.cob" "syn_misc.at:4915"
-( $at_check_trace; $COMPILE_ONLY -std=mf-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: error: syntax error, unexpected Identifier
-prog.cob:7: error: syntax error, unexpected Identifier
-prog.cob:8: error: syntax error, unexpected Identifier
-prog.cob:9: error: syntax error, unexpected Identifier
-prog.cob:10: error: syntax error, unexpected Identifier
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:4915"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4923: \$COMPILE_ONLY -std=mf-strict -freserved=CONSTANT prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=mf-strict -freserved=CONSTANT prog.cob" "syn_misc.at:4923"
-( $at_check_trace; $COMPILE_ONLY -std=mf-strict -freserved=CONSTANT prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: error: 01 CONSTANT does not conform to Micro Focus COBOL
-prog.cob:7: error: 01 CONSTANT does not conform to Micro Focus COBOL
-prog.cob:7: error: syntax error, unexpected Identifier
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:4923"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4929: \$COMPILE_ONLY -std=mf prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=mf prog.cob" "syn_misc.at:4929"
-( $at_check_trace; $COMPILE_ONLY -std=mf prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: error: missing right parenthesis
-prog.cob:8: error: missing left parenthesis
-prog.cob:9: error: '/' operator misplaced
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:4929"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_340
-#AT_START_341
-at_fn_group_banner 341 'syn_misc.at:4938' \
- "78 VALUE" " " 2
-at_xfail=no
-(
- printf "%s\n" "341. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 78 NUM2 VALUE 3.
- 78 NEG1 VALUE -1.
- 78 CON3 VALUE ((1 + 2) * NUM2 - 4.
- 78 CON4 VALUE (1 + 2) * NUM2 - 4).
- 78 CON5 VALUE (1 + 2) // NUM2.
- 78 CON6 VALUE (1 + 2 + 3 + (4)) / (NUM2).
- *
- PROCEDURE DIVISION.
- MAIN.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4958: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:4958"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: error: missing right parenthesis
-prog.cob:9: error: missing left parenthesis
-prog.cob:10: error: '/' operator misplaced
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:4958"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4964: \$COMPILE_ONLY -std=ibm-strict prog.cob "
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=ibm-strict prog.cob " "syn_misc.at:4964"
-( $at_check_trace; $COMPILE_ONLY -std=ibm-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: error: 78 VALUE does not conform to IBM COBOL
-prog.cob:7: error: 78 VALUE does not conform to IBM COBOL
-prog.cob:8: error: 78 VALUE does not conform to IBM COBOL
-prog.cob:8: error: missing right parenthesis
-prog.cob:9: error: 78 VALUE does not conform to IBM COBOL
-prog.cob:9: error: missing left parenthesis
-prog.cob:10: error: 78 VALUE does not conform to IBM COBOL
-prog.cob:10: error: '/' operator misplaced
-prog.cob:11: error: 78 VALUE does not conform to IBM COBOL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:4964"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:4976: \$COMPILE_ONLY -std=ibm prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=ibm prog.cob" "syn_misc.at:4976"
-( $at_check_trace; $COMPILE_ONLY -std=ibm prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: error: missing right parenthesis
-prog.cob:9: error: missing left parenthesis
-prog.cob:10: error: '/' operator misplaced
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:4976"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_341
-#AT_START_342
-at_fn_group_banner 342 'syn_misc.at:4985' \
- "level 78 NEXT / START OF" " " 2
-at_xfail=no
-(
- printf "%s\n" "342. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 78 POS0 VALUE NEXT.
- 01 MYREC.
- 05 FLD1 PIC 9(2).
- 05 FLD2 PIC X(7).
- 78 POS3 VALUE NEXT.
- 05 FLD3 PIC X(2) OCCURS 5 TIMES.
- 78 POS4 VALUE NEXT.
- 05 FLD4 PIC X(4).
- 78 POS-NEXT VALUE NEXT.
- 77 MYREC2 PIC X.
- 01 MYREC3 EXTERNAL.
- 05 FLD5 PIC X(4).
- 78 POS5 VALUE NEXT.
- 05 FLD6 PIC X(4).
- 01 PICX PIC XXX VALUE 'Abc'.
- 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3.
- 78 HUN2 VALUE HUN * (10 + LENGTH
- OF PICX) -4.
- 78 DIV1 VALUE 100 / 3.
- 78 STRT4 VALUE START OF FLD4.
- LINKAGE SECTION.
- 01 XMYREC.
- 05 XFLD1 PIC 9(2).
- 05 XFLD2 PIC X(7).
- 78 XPOS3 VALUE NEXT.
- 05 XFLD3 PIC X(2) OCCURS 5 TIMES.
- 78 XPOS4 VALUE NEXT.
- 05 XFLD4 PIC X(4).
- 05 XFLD5 PIC X(4).
- 78 XSTRT4 VALUE START OF XFLD4.
- *
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5028: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:5028"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: error: VALUE of 'POS0': NEXT target is invalid
-prog.cob:6: error: no previous data-item found
-prog.cob:10: error: VALUE of 'POS3': NEXT target is invalid
-prog.cob:10: error: target must be in FILE SECTION or LINKAGE SECTION or have the EXTERNAL clause
-prog.cob:12: error: VALUE of 'POS4': NEXT target is invalid
-prog.cob:12: error: target must be in FILE SECTION or LINKAGE SECTION or have the EXTERNAL clause
-prog.cob:14: error: VALUE of 'POS-NEXT': NEXT target is invalid
-prog.cob:14: error: target must be in FILE SECTION or LINKAGE SECTION or have the EXTERNAL clause
-prog.cob:25: error: VALUE of 'STRT4': START OF target 'FLD4' is invalid
-prog.cob:25: error: target must be in FILE SECTION or LINKAGE SECTION or have the EXTERNAL clause
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:5028"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_342
-#AT_START_343
-at_fn_group_banner 343 'syn_misc.at:5044' \
- "SYMBOLIC CONSTANT" " " 2
-at_xfail=no
-(
- printf "%s\n" "343. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- SYMBOLIC CONSTANT
- con-1 IS 1
- 25156c "25156c".
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 NUM2 PIC 9.
- 01 SHORT-X PIC X(5).
- *
- PROCEDURE DIVISION.
- MAIN.
- MOVE CON-1 TO NUM2.
- MOVE 25156C TO SHORT-X
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5068: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:5068"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in paragraph 'MAIN':
-prog.cob:18: warning: value size exceeds data size
-prog.cob:18: note: value size is 6
-prog.cob:13: note: 'SHORT-X' defined here as PIC X(5)
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:5068"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5075: \$COMPILE_ONLY -std=mf-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=mf-strict prog.cob" "syn_misc.at:5075"
-( $at_check_trace; $COMPILE_ONLY -std=mf-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: invalid SYMBOLIC clause
-prog.cob:9: error: integer value expected
-prog.cob: in paragraph 'MAIN':
-prog.cob:17: error: 'con-1' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:5075"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5082: \$COMPILE_ONLY -std=cobol2014 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol2014 prog.cob" "syn_misc.at:5082"
-( $at_check_trace; $COMPILE_ONLY -std=cobol2014 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: SYMBOLIC CONSTANT does not conform to COBOL 2014
-prog.cob: in paragraph 'MAIN':
-prog.cob:18: warning: value size exceeds data size
-prog.cob:18: note: value size is 6
-prog.cob:13: note: 'SHORT-X' defined here as PIC X(5)
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:5082"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_343
-#AT_START_344
-at_fn_group_banner 344 'syn_misc.at:5093' \
- "Constant Expressions (1)" " " 2
-at_xfail=no
-(
- printf "%s\n" "344. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 var PIC X(200).
- 01 othervar PIC X(115).
- 01 A PIC 9 VALUE 1.
- 01 B PIC 9 VALUE 2.
- 01 C PIC 9 VALUE 3.
- 78 var-len value 115.
-
- PROCEDURE DIVISION.
-
- IF var-len < 16
- move othervar (1:var-len - 8)
- to var (17 - var-len:var-len - 8)
- ELSE
- move othervar to var
- END-IF
-
- IF (2 = 3)
- move othervar to var
- ELSE
- IF 1 = 1
- move var to othervar
- ELSE
- move othervar (1:var-len - 8)
- to var (17 - var-len:var-len - 8)
- IF 1 = 1
- move var to othervar
- END-IF
- END-IF
- move A to B
- IF 1 = 1
- IF 2 = 1
- move othervar (1:var-len - 8)
- to var (17 - var-len:var-len - 8)
- .
-
- PERFORM WITH TEST BEFORE UNTIL 1 = 3
- move othervar to var
- END-PERFORM
-
- PERFORM WITH TEST BEFORE UNTIL 1 = 1
- move othervar (1:var-len - 8)
- to var (17 - var-len:var-len - 8)
- END-PERFORM
-
- PERFORM WITH TEST AFTER UNTIL 1 = 3
- move othervar to var
- END-PERFORM
-
- PERFORM WITH TEST AFTER UNTIL 1 = 1
- move othervar to var
- END-PERFORM
-
- EVALUATE TRUE
- WHEN var-len < 16
- move othervar (1:var-len - 8)
- to var (17 - var-len:var-len - 8)
- WHEN var-len > 16
- move othervar to var
- WHEN A = B
- move var to othervar
- WHEN OTHER
- CONTINUE
- END-EVALUATE
-
- EVALUATE FALSE
- WHEN var-len < 16
- move othervar (1:var-len - 9)
- to var (16 - var-len:var-len - 9)
- WHEN var-len > 16
- move othervar to var
- WHEN A = B
- move var to othervar
- WHEN OTHER
- CONTINUE
- END-EVALUATE.
-
- IF 15 = var-len
- move othervar to var.
-
- IF var-len = 15
- move var to othervar.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5186: \$COMPILE_ONLY -fdiagnostics-show-option prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fdiagnostics-show-option prog.cob" "syn_misc.at:5186"
-( $at_check_trace; $COMPILE_ONLY -fdiagnostics-show-option prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:15: warning: expression '115' LESS THAN '16' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:17: warning: offset of 'var' out of bounds: -98 [-Wignored-error]
-prog.cob:22: warning: expression '2' EQUALS '3' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:25: warning: expression '1' EQUALS '1' is always TRUE [-Wconstant-numlit-expression]
-prog.cob:29: warning: offset of 'var' out of bounds: -98 [-Wignored-error]
-prog.cob:30: warning: expression '1' EQUALS '1' is always TRUE [-Wconstant-numlit-expression]
-prog.cob:35: warning: expression '1' EQUALS '1' is always TRUE [-Wconstant-numlit-expression]
-prog.cob:36: warning: expression '2' EQUALS '1' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:38: warning: offset of 'var' out of bounds: -98 [-Wignored-error]
-prog.cob:41: warning: expression '1' EQUALS '3' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:41: warning: PERFORM FOREVER since UNTIL is always FALSE [-Wadditional]
-prog.cob:45: warning: expression '1' EQUALS '1' is always TRUE [-Wconstant-numlit-expression]
-prog.cob:45: warning: PERFORM NEVER since UNTIL is always TRUE [-Wadditional]
-prog.cob:47: warning: offset of 'var' out of bounds: -98 [-Wignored-error]
-prog.cob:50: warning: expression '1' EQUALS '3' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:50: warning: PERFORM FOREVER since UNTIL is always FALSE [-Wadditional]
-prog.cob:54: warning: expression '1' EQUALS '1' is always TRUE [-Wconstant-numlit-expression]
-prog.cob:54: warning: PERFORM ONCE since UNTIL is always TRUE [-Wadditional]
-prog.cob:59: warning: expression '115' LESS THAN '16' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:61: warning: offset of 'var' out of bounds: -98 [-Wignored-error]
-prog.cob:62: warning: expression '115' GREATER THAN '16' is always TRUE [-Wconstant-numlit-expression]
-prog.cob:71: warning: expression '115' LESS THAN '16' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:73: error: offset of 'var' out of bounds: -99
-prog.cob:74: warning: expression '115' GREATER THAN '16' is always TRUE [-Wconstant-numlit-expression]
-prog.cob:82: warning: expression '15' EQUALS '115' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:85: warning: expression '115' EQUALS '15' is always FALSE [-Wconstant-numlit-expression]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:5186"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_344
-#AT_START_345
-at_fn_group_banner 345 'syn_misc.at:5218' \
- "Constant Expressions (2)" " " 2
-at_xfail=no
-(
- printf "%s\n" "345. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 78 const1 value 115.
- 01 const2 CONSTANT 200.
- 78 const3 value const2.
- 78 const4 value const2 + const1.
- 77 othervar PIC X(const1).
- 01 var PIC X(const2).
-
- PROCEDURE DIVISION.
-
- IF const1 = const2
- OR const2 = const1
- OR const3 = const4
- OR const4 = const3
- DISPLAY 'no way' END-DISPLAY
- END-IF
-
- EVALUATE const1
- WHEN 15
- WHEN 115
- display '1'
- WHEN < 16
- move othervar (1:8)
- to var (17:8)
- WHEN > 16
- display othervar
- *> actually WHEN OTHER is also FALSE in this case (115 = 16),
- *> but this is too complex to check
- WHEN OTHER
- display othervar
- END-EVALUATE
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5260: \$COMPILE_ONLY prog.cob "
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob " "syn_misc.at:5260"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:15: warning: expression '115' EQUALS '200' is always FALSE
-prog.cob:16: warning: expression '200' EQUALS '115' is always FALSE
-prog.cob:17: warning: expression '200' EQUALS '315' is always FALSE
-prog.cob:18: warning: expression '315' EQUALS '200' is always FALSE
-prog.cob:26: warning: expression '115' LESS THAN '16' is always FALSE
-prog.cob:29: warning: expression '115' GREATER THAN '16' is always TRUE
-prog.cob:23: warning: expression '115' EQUALS '15' is always FALSE
-prog.cob:24: warning: expression '115' EQUALS '115' is always TRUE
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:5260"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_345
-#AT_START_346
-at_fn_group_banner 346 'syn_misc.at:5274' \
- "Constant Expressions (3)" " " 2
-at_xfail=no
-(
- printf "%s\n" "346. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# verify that we do ignore undefined errors where possible
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 var PIC X(200).
- 78 var-len value 115.
-
- PROCEDURE DIVISION.
-
- IF var-len < 16
- move spaces
- to var (17 - var-len:var-len - 8)
- END-IF
-
- IF var-len < 16
- move notdefined to var
- END-IF
-
- IF var-len < 16
- perform notdefined
- END-IF
-
- IF var-len < 16
- if notdefined continue.
-
- STOP RUN.
-_ATEOF
-
-
-# note: the last error message comes from program validation
-# and therefore cannot be raised earlier
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5309: \$COMPILE_ONLY -fdiagnostics-show-option prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fdiagnostics-show-option prog.cob" "syn_misc.at:5309"
-( $at_check_trace; $COMPILE_ONLY -fdiagnostics-show-option prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:11: warning: expression '115' LESS THAN '16' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:13: warning: offset of 'var' out of bounds: -98 [-Wignored-error]
-prog.cob:16: warning: expression '115' LESS THAN '16' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:17: warning: 'notdefined' is not defined [-Wignored-error]
-prog.cob:20: warning: expression '115' LESS THAN '16' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:24: warning: expression '115' LESS THAN '16' is always FALSE [-Wconstant-numlit-expression]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:5309"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# verify that we do only skip an undefined error when it actually was reported
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 var PIC X(200).
- 78 var-len value 115.
-
- PROCEDURE DIVISION.
-
- IF var-len < 16
- move notdefined to var *> won't be seen with -Wno-ignore-error
- END-IF
-
- >> IF SKIP-FIRST-ERROR NOT DEFINED
- *> always reported here (if active) as that's the first error
- move notdefined to var
- >> END-IF
-
- IF var-len < 16
- move notdefined to var *> never here, because of the warning/error above
- END-IF
-
- move var to notdefined *> only here if not the skip was active
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5347: \$COMPILE_ONLY -fdiagnostics-show-option -Wno-constant-expression prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fdiagnostics-show-option -Wno-constant-expression prog2.cob" "syn_misc.at:5347"
-( $at_check_trace; $COMPILE_ONLY -fdiagnostics-show-option -Wno-constant-expression prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:12: warning: 'notdefined' is not defined [-Wignored-error]
-prog2.cob:17: error: 'notdefined' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:5347"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5351: \$COMPILE_ONLY -fdiagnostics-show-option -Wno-constant-expression -Wno-ignored-error prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fdiagnostics-show-option -Wno-constant-expression -Wno-ignored-error prog2.cob" "syn_misc.at:5351"
-( $at_check_trace; $COMPILE_ONLY -fdiagnostics-show-option -Wno-constant-expression -Wno-ignored-error prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:17: error: 'notdefined' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:5351"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5354: \$COMPILE_ONLY -fdiagnostics-show-option -Wno-constant-expression -DSKIP-FIRST-ERROR prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fdiagnostics-show-option -Wno-constant-expression -DSKIP-FIRST-ERROR prog2.cob" "syn_misc.at:5354"
-( $at_check_trace; $COMPILE_ONLY -fdiagnostics-show-option -Wno-constant-expression -DSKIP-FIRST-ERROR prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:12: warning: 'notdefined' is not defined [-Wignored-error]
-prog2.cob:24: error: 'notdefined' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:5354"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5358: \$COMPILE_ONLY -fdiagnostics-show-option -Wno-constant-expression -Werror=ignored-error prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fdiagnostics-show-option -Wno-constant-expression -Werror=ignored-error prog2.cob" "syn_misc.at:5358"
-( $at_check_trace; $COMPILE_ONLY -fdiagnostics-show-option -Wno-constant-expression -Werror=ignored-error prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:12: error: 'notdefined' is not defined [-Werror=ignored-error]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:5358"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_346
-#AT_START_347
-at_fn_group_banner 347 'syn_misc.at:5365' \
- "Constant Expressions (4)" " " 2
-at_xfail=no
-(
- printf "%s\n" "347. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# verify that we do not ignore parsing errors as
-# these are likely to raise issues in codegen
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 var PIC X(200).
- 78 var-len value 115.
-
- PROCEDURE DIVISION.
-
- IF var-len < 16
- move spaces
- to var (17 - var-len:var-len - 8)
- IF IF.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5389: \$COMPILE_ONLY -fdiagnostics-show-option prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fdiagnostics-show-option prog.cob" "syn_misc.at:5389"
-( $at_check_trace; $COMPILE_ONLY -fdiagnostics-show-option prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:11: warning: expression '115' LESS THAN '16' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:13: warning: offset of 'var' out of bounds: -98 [-Wignored-error]
-prog.cob:14: error: syntax error, unexpected IF
-prog.cob:14: error: IF without imperative statement
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:5389"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_347
-#AT_START_348
-at_fn_group_banner 348 'syn_misc.at:5399' \
- "Constant Expressions (5)" " " 2
-at_xfail=no
-(
- printf "%s\n" "348. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 VAR PIC X(200).
- 01 OTHERVAR PIC X(115).
- 78 VAR-LEN VALUE 115.
-
- PROCEDURE DIVISION.
- MAIN-10.
- MOVE "Peek a boo" TO VAR.
- EVALUATE TRUE
- ALSO FALSE
- ALSO TRUE
- WHEN TRUE
- ALSO VAR-LEN > 16 AND VAR-LEN < 200
- ALSO TRUE
- MOVE OTHERVAR (1 : VAR-LEN - 9)
- TO VAR (16 - VAR-LEN : VAR-LEN - 9)
- DISPLAY "A: Should NOT be executed"
- WHEN TRUE
- ALSO VAR-LEN < 16
- ALSO TRUE
- MOVE OTHERVAR TO VAR
- DISPLAY "A: OK VAR-LEN > 16 AND VAR-LEN < 200"
- WHEN TRUE
- ALSO VAR = SPACES
- ALSO TRUE
- MOVE OTHERVAR TO VAR
- DISPLAY "A: OK VAR IS SPACES"
- END-EVALUATE.
-
- MOVE "Peek a boo" TO VAR.
- EVALUATE 3 EQUALS 7
- WHEN VAR = SPACES
- DISPLAY "B: OK VAR IS NOT SPACES"
- WHEN VAR NOT = SPACES
- DISPLAY "B: FALSE VAR IS SPACES"
- END-EVALUATE.
-
- MOVE SPACES TO VAR.
- EVALUATE FALSE
- WHEN VAR = SPACES
- DISPLAY "C: FALSE VAR IS SPACES"
- WHEN VAR NOT = SPACES
- DISPLAY "C: OK VAR IS SPACES"
- END-EVALUATE.
-
- MOVE "Peek a boo" TO VAR.
- EVALUATE TRUE
- WHEN VAR = SPACES
- DISPLAY "D: BAD VAR IS SPACES"
- WHEN VAR NOT = SPACES
- DISPLAY "D: OK VAR IS NOT SPACES"
- END-EVALUATE.
-
- MOVE SPACES TO VAR.
- EVALUATE VAR-LEN ALSO VAR
- WHEN < 32 ALSO SPACES
- DISPLAY "E: OK VAR IS SPACES"
- WHEN > 16 ALSO NOT SPACES
- DISPLAY "E: BAD VAR IS NOT SPACES"
- WHEN OTHER
- DISPLAY "E: OK OTHER option taken"
- END-EVALUATE.
-
- STOP RUN.
-_ATEOF
-
-
-# Note: ideally this should not result in a difference compared to the next one
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5474: \$COMPILE_ONLY -fdiagnostics-show-option -C -fno-remove-unreachable prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fdiagnostics-show-option -C -fno-remove-unreachable prog.cob" "syn_misc.at:5474"
-( $at_check_trace; $COMPILE_ONLY -fdiagnostics-show-option -C -fno-remove-unreachable prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in paragraph 'MAIN-10':
-prog.cob:17: warning: expression '115' GREATER THAN '16' is always TRUE [-Wconstant-numlit-expression]
-prog.cob:17: warning: expression '115' LESS THAN '200' is always TRUE [-Wconstant-numlit-expression]
-prog.cob:20: error: offset of 'VAR' out of bounds: -99
-prog.cob:23: warning: expression '115' LESS THAN '16' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:35: warning: expression '3' EQUALS '7' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:60: warning: expression '115' LESS THAN '32' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:62: warning: expression '115' GREATER THAN '16' is always TRUE [-Wconstant-numlit-expression]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:5474"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5485: \$COMPILE_ONLY -fdiagnostics-show-option -C prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fdiagnostics-show-option -C prog.cob" "syn_misc.at:5485"
-( $at_check_trace; $COMPILE_ONLY -fdiagnostics-show-option -C prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in paragraph 'MAIN-10':
-prog.cob:17: warning: expression '115' GREATER THAN '16' is always TRUE [-Wconstant-numlit-expression]
-prog.cob:17: warning: expression '115' LESS THAN '200' is always TRUE [-Wconstant-numlit-expression]
-prog.cob:20: warning: offset of 'VAR' out of bounds: -99 [-Wignored-error]
-prog.cob:23: warning: expression '115' LESS THAN '16' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:35: warning: expression '3' EQUALS '7' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:60: warning: expression '115' LESS THAN '32' is always FALSE [-Wconstant-numlit-expression]
-prog.cob:62: warning: expression '115' GREATER THAN '16' is always TRUE [-Wconstant-numlit-expression]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:5485"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_348
-#AT_START_349
-at_fn_group_banner 349 'syn_misc.at:5499' \
- "Missing imperative statements" " " 2
-at_xfail=no
-(
- printf "%s\n" "349. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 var PIC X(200).
- 01 othervar PIC X(115).
- 01 A PIC 9 VALUE 1.
- 01 B PIC 9 VALUE 2.
- 01 C PIC 9 VALUE 3.
- 78 var-len value 115.
-
- PROCEDURE DIVISION.
-
- IF var-len < 16
- ELSE
- move othervar to var
- END-IF
-
- IF var-len > 16
- ELSE
- move othervar to var
- END-IF
-
- IF (2 = 3)
- ELSE
- IF 1 = 1
- ELSE
- IF 1 = 1
- move var to othervar
- END-IF
- END-IF
- .
-
- EVALUATE TRUE
- WHEN A = B
- move var to othervar
- WHEN OTHER
- END-EVALUATE
-
- PERFORM WITH TEST BEFORE UNTIL 1 <> 3
- END-PERFORM
-
- EVALUATE FALSE
- WHEN A = B
- WHEN B = A
- END-EVALUATE.
-
- EVALUATE TRUE
- WHEN A = B
- move var to othervar
- WHEN OTHER
- .
-
- EVALUATE TRUE
- WHEN A = B
- WHEN B = A
- .
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5564: \$COMPILE_ONLY -w -fmissing-statement=error prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -w -fmissing-statement=error prog.cob" "syn_misc.at:5564"
-( $at_check_trace; $COMPILE_ONLY -w -fmissing-statement=error prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:15: error: IF without imperative statement used
-prog.cob:20: error: IF without imperative statement used
-prog.cob:27: error: IF without imperative statement used
-prog.cob:25: error: IF without imperative statement used
-prog.cob:38: error: WHEN OTHER without imperative statement used
-prog.cob:42: error: inline PERFORM without imperative statement used
-prog.cob:47: error: WHEN without imperative statement used
-prog.cob:52: error: WHEN OTHER without imperative statement used
-prog.cob:58: error: WHEN without imperative statement used
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:5564"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5576: \$COMPILE_ONLY -fno-constant-folding -fmissing-statement=warning prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fno-constant-folding -fmissing-statement=warning prog.cob" "syn_misc.at:5576"
-( $at_check_trace; $COMPILE_ONLY -fno-constant-folding -fmissing-statement=warning prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:15: warning: IF without imperative statement used
-prog.cob:20: warning: IF without imperative statement used
-prog.cob:27: warning: IF without imperative statement used
-prog.cob:25: warning: IF without imperative statement used
-prog.cob:38: warning: WHEN OTHER without imperative statement used
-prog.cob:42: warning: inline PERFORM without imperative statement used
-prog.cob:47: warning: WHEN without imperative statement used
-prog.cob:52: warning: WHEN OTHER without imperative statement used
-prog.cob:58: warning: WHEN without imperative statement used
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:5576"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_349
-#AT_START_350
-at_fn_group_banner 350 'syn_misc.at:5591' \
- "Fall-Through to WHEN OTHER" " " 2
-at_xfail=yes
-(
- printf "%s\n" "350. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# we currently don't do the necessary parsing steps for
-# this test to pass - and likely need a different option
-# than frelax-syntax-checks..
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 A PIC 9 VALUE 1.
- 01 B PIC 9 VALUE 2.
-
- PROCEDURE DIVISION.
-
- EVALUATE TRUE
- WHEN A = B
- WHEN OTHER
- DISPLAY 'other' END-DISPLAY
- END-EVALUATE
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5619: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:5619"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:12: error: fall-through to WHEN OTHER is not allowed
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:5619"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5623: \$COMPILE_ONLY -frelax-syntax-checks prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -frelax-syntax-checks prog.cob" "syn_misc.at:5623"
-( $at_check_trace; $COMPILE_ONLY -frelax-syntax-checks prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:12: warning: fall-through to WHEN OTHER
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:5623"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_350
-#AT_START_351
-at_fn_group_banner 351 'syn_misc.at:5629' \
- "CONSTANT LENGTH / BYTE-LENGTH" " " 2
-at_xfail=no
-(
- printf "%s\n" "351. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- identification division.
- program-id. prog.
- environment division.
- data division.
- working-storage section.
- 01 item-01.
- 05 item-05-a pointer.
- 05 item-05-b pic x(01).
- 01 myk-01 constant as length of item-01.
- 01 myk-02 constant is global as length item-05-a.
- 01 myk-03 constant global as length of pointer. *> extension
- 01 myk-04 constant global as byte-length of item-01.
- 01 myk-05 constant is global as byte-length item-05-a.
- 01 myk-06 constant as byte-length of pointer. *> extension
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5649: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:5649"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:5649"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_351
-#AT_START_352
-at_fn_group_banner 352 'syn_misc.at:5653' \
- "ANY LENGTH/NUMERIC with incorrect PIC" " " 2
-at_xfail=no
-(
- printf "%s\n" "352. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- LINKAGE SECTION.
- *> Valid
- 01 valid-1 PIC X ANY LENGTH.
- 01 valid-2 PIC N ANY LENGTH.
- 01 valid-3 PIC 9 ANY NUMERIC.
-
- *> Invalid
- 01 invalid-1 PIC A ANY LENGTH.
- 01 invalid-2 PIC Z ANY LENGTH.
- 01 invalid-3 PIC 9 ANY LENGTH.
- 01 invalid-4 PIC X ANY NUMERIC.
- 01 invalid-5 PIC XX ANY LENGTH.
- 01 invalid-6 PIC NN ANY LENGTH.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5676: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:5676"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:13: error: 'invalid-1' ANY LENGTH must be PIC X, PIC U, PIC N or PIC 1
-prog.cob:14: error: 'invalid-2' ANY LENGTH must be PIC X, PIC U, PIC N or PIC 1
-prog.cob:15: error: 'invalid-3' ANY LENGTH must be PIC X, PIC U, PIC N or PIC 1
-prog.cob:16: error: 'invalid-4' ANY NUMERIC must be PIC 9
-prog.cob:17: error: 'invalid-5' ANY LENGTH has invalid definition
-prog.cob:18: error: 'invalid-6' ANY LENGTH has invalid definition
-prog.cob:8: error: 'valid-1' ANY LENGTH item must be a formal parameter
-prog.cob:9: error: 'valid-2' ANY LENGTH item must be a formal parameter
-prog.cob:10: error: 'valid-3' ANY LENGTH item must be a formal parameter
-prog.cob:13: error: 'invalid-1' ANY LENGTH item must be a formal parameter
-prog.cob:14: error: 'invalid-2' ANY LENGTH item must be a formal parameter
-prog.cob:15: error: 'invalid-3' ANY LENGTH item must be a formal parameter
-prog.cob:16: error: 'invalid-4' ANY LENGTH item must be a formal parameter
-prog.cob:17: error: 'invalid-5' ANY LENGTH item must be a formal parameter
-prog.cob:18: error: 'invalid-6' ANY LENGTH item must be a formal parameter
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:5676"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_352
-#AT_START_353
-at_fn_group_banner 353 'syn_misc.at:5697' \
- "VOLATILE clause" " " 2
-at_xfail=no
-(
- printf "%s\n" "353. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 DATA-COLLECTION.
- 03 DATA-ITEMS-A VOLATILE.
- 05 DATA-A1 PIC S9(9) BINARY.
- 05 DATA-A2 PIC S9(9) BINARY.
- 03 VOLATILE.
- 05 DATA-FILLER PIC S9(9) BINARY.
- 03 DATA-ITEMS-B.
- 05 DATA-B1 PIC S9(9).
- 05 DATA-B2 PIC S9(9) VOLATILE.
- 03 DATA-ITEMS-C.
- 05 DATA-C1 PIC S9(9).
- 05 DATA-C2 PIC S9(9).
- 01 STEP PIC 9(8) BINARY VALUE 0 EXTERNAL VOLATILE.
- *01 WRONGY PIC X.
- * 88 TESTVAL-A VALUE 'A' VOLATILE.
- * 88 TESTVAL-B VOLATILE VALUE 'B'.
- LINKAGE SECTION.
- 01 XMYREC.
- 05 XFLD1 PIC 9(2) VOLATILE.
- *SCREEN SECTION.
- *01 WRONG-SCREEN.
- * 05 WRONG-FIELD PIC X VOLATILE.
- *
- PROCEDURE DIVISION.
- MOVE DATA-ITEMS-B TO DATA-ITEMS-C.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5733: \$COMPILE_ONLY -Wno-unfinished prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wno-unfinished prog.cob" "syn_misc.at:5733"
-( $at_check_trace; $COMPILE_ONLY -Wno-unfinished prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:18: warning: initial VALUE clause ignored for EXTERNAL item 'STEP'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:5733"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5736: \$COMPILE_ONLY -std=ibm-strict -w prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=ibm-strict -w prog.cob" "syn_misc.at:5736"
-( $at_check_trace; $COMPILE_ONLY -std=ibm-strict -w prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:5736"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_353
-#AT_START_354
-at_fn_group_banner 354 'syn_misc.at:5741' \
- "SET SOURCEFORMAT syntax checks" " " 2
-at_xfail=no
-(
- printf "%s\n" "354. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- *> Valid
- $set sourceformat(free)
- $ SET SOURCEFORMAT"FIXED"
- *> Invalid
- $SET SOURCEFORMAT"hi!"
- $SET SOURCEFORMAT()
- $SET sourceformat'mis-matched"
-_ATEOF
-
-
-# FIXME: something is broken with the '"#OPTION here,
-# that should be generated as #OPTION 'mis-matched"
-# and in a second step not be generated at all
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5758: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:5758"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: error: invalid SOURCEFORMAT directive option 'hi!'
-prog.cob:7: error: invalid SOURCEFORMAT directive option ''
-prog.cob:8: error: syntax error, unexpected Variable, expecting Literal
-prog.cob:8: error: invalid SOURCEFORMAT directive option
-prog.cob:8: error: invalid literal: '\"#OPTION mis-matched ...'
-prog.cob:8: note: missing terminating ' character
-prog.cob:8: error: PROGRAM-ID header missing
-prog.cob:8: error: PROCEDURE DIVISION header missing
-prog.cob:8: error: syntax error, unexpected Literal
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:5758"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_354
-#AT_START_355
-at_fn_group_banner 355 'syn_misc.at:5774' \
- "WHEN-COMPILED register in dialect" " " 2
-at_xfail=no
-(
- printf "%s\n" "355. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- PROCEDURE DIVISION.
- DISPLAY WHEN-COMPILED
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5786: \$COMPILE_ONLY -std=cobol2014 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol2014 prog.cob" "syn_misc.at:5786"
-( $at_check_trace; $COMPILE_ONLY -std=cobol2014 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: error: 'WHEN-COMPILED' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:5786"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5789: \$COMPILE_ONLY -std=ibm prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=ibm prog.cob" "syn_misc.at:5789"
-( $at_check_trace; $COMPILE_ONLY -std=ibm prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:5789"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5790: \$COMPILE_ONLY -std=mvs prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=mvs prog.cob" "syn_misc.at:5790"
-( $at_check_trace; $COMPILE_ONLY -std=mvs prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:5790"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5791: \$COMPILE_ONLY -std=rm prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=rm prog.cob" "syn_misc.at:5791"
-( $at_check_trace; $COMPILE_ONLY -std=rm prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:5791"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5792: \$COMPILE_ONLY -fregister=WHEN-COMPILED prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fregister=WHEN-COMPILED prog.cob" "syn_misc.at:5792"
-( $at_check_trace; $COMPILE_ONLY -fregister=WHEN-COMPILED prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:5792"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5793: \$COMPILE_ONLY -freserved=WHEN-COMPILED -fregister=WHEN-COMPILED prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -freserved=WHEN-COMPILED -fregister=WHEN-COMPILED prog.cob" "syn_misc.at:5793"
-( $at_check_trace; $COMPILE_ONLY -freserved=WHEN-COMPILED -fregister=WHEN-COMPILED prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:5793"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_355
-#AT_START_356
-at_fn_group_banner 356 'syn_misc.at:5800' \
- "LIN / COL register" " " 2
-at_xfail=no
-(
- printf "%s\n" "356. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- PROCEDURE DIVISION.
- MOVE 1 TO LIN, COL
- .
-_ATEOF
-
-
-# "strict" configuration:
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5813: \$COMPILE_ONLY -std=cobol2014 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol2014 prog.cob" "syn_misc.at:5813"
-( $at_check_trace; $COMPILE_ONLY -std=cobol2014 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: error: 'LIN' is not defined
-prog.cob:6: error: syntax error, unexpected COL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:5813"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# "lax" configuration:
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5818: \$COMPILE_ONLY -std=acu prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=acu prog.cob" "syn_misc.at:5818"
-( $at_check_trace; $COMPILE_ONLY -std=acu prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: error: 'LIN' is not defined
-prog.cob:6: error: syntax error, unexpected COL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:5818"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# standard configuration:
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5823: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:5823"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: error: 'LIN' is not defined
-prog.cob:6: error: syntax error, unexpected COL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:5823"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# explicit enabled
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5828: \$COMPILE_ONLY -fregister=LIN,COL prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fregister=LIN,COL prog.cob" "syn_misc.at:5828"
-( $at_check_trace; $COMPILE_ONLY -fregister=LIN,COL prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:5828"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_356
-#AT_START_357
-at_fn_group_banner 357 'syn_misc.at:5832' \
- "tokens consisting of multiple words" " " 2
-at_xfail=no
-(
- printf "%s\n" "357. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-# note: we actually do not check for all possible cases, but two are better than none...
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 test-var pic xx.
- 88 endOfFile value '10'.
- 01 todo pic xx.
-
- PROCEDURE DIVISION.
- if not endOfFile
- display 'all fine'
- end-if
- if test-var greater or equal todo
- display 'still fine'
- end-if
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5855: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:5855"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:5855"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_357
-#AT_START_358
-at_fn_group_banner 358 'syn_misc.at:5860' \
- "@OPTIONS parsing" " " 2
-at_xfail=no
-(
- printf "%s\n" "358. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# GnuCOBOL currently only skips these, see FR 305
-
-cat >valid.cob <<'_ATEOF'
-
-000100 @OPTIONS NOMAIN,APOST
-000200 @OPTIONS APOST
-000300 IDENTIFICATION DIVISION.
-000400 PROGRAM-ID. VALID.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5872: \$COMPILE_ONLY valid.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY valid.cob" "syn_misc.at:5872"
-( $at_check_trace; $COMPILE_ONLY valid.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "valid.cob:2: warning: ignoring unknown directive: '@OPTIONS NOMAIN,APOST'
-valid.cob:3: warning: ignoring unknown directive: '@OPTIONS APOST'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:5872"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-#AT_DATA([invalid.cob], [
-# @OPTIONS ALPHAL(WORD)
-# @OPTIONS INITVALUE(100)
-# @OPTIONS INITVALUE(F)
-# @OPTIONS INITVALUE(AG)
-# @OPTIONS BINARY(WORD,MLBON) INITVALUE(00) NOTRUNC
-# @OPTIONS INITVALUE(00)
-# @OPTIONS NOTRUNC
-# @OPTIONS APOST,MAIN
-# @OPTIONS THREAD(SINGLE)
-# IDENTIFICATION DIVISION.
-# PROGRAM-ID. INVALID.
-#])
-
-#AT_CHECK([$COMPILE_ONLY valid.cob], [0], [], [])
-#AT_CHECK([$COMPILE_ONLY invalid.cob], [1], [],
-#[invalid.cob:2: warning: unknown @OPTIONS directive 'ALPHAL'
-#invalid.cob:3: error: invalid @OPTIONS INITVALUE value '100'
-#invalid.cob:4: error: invalid @OPTIONS INITVALUE value 'F'
-#invalid.cob:5: error: invalid @OPTIONS INITVALUE value 'AG'
-#invalid.cob:6: warning: skipping line after first space
-#invalid.cob:7: error: @OPTIONS MAIN conflicts with command line option '-m'
-#])
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_358
-#AT_START_359
-at_fn_group_banner 359 'syn_misc.at:5904' \
- "PROCESS / CBL parsing" " " 2
-at_xfail=no
-(
- printf "%s\n" "359. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# GnuCOBOL currently only skips these, see FR 305
-
-#AT_DATA([valid.cob], [
-#Process codepage(1047)
-#CBL CODEPAGE(1047)
-#Process
-# Process codepage(1208)
-# CBL CODEPAGE(1208)
-#000100 Process codepage(1047)
-#000200 CBL CODEPAGE(1047)
-#000300 CBL
-#000400 IDENTIFICATION DIVISION.
-#000500 PROGRAM-ID. VALID.
-#])
-#
-#AT_CHECK([$COMPILE_ONLY valid.cob], [0], [],
-#[valid.cob:2: warning: ignoring unknown directive: 'Process codepage(1047)'
-#valid.cob:3: warning: ignoring unknown directive: 'CBL CODEPAGE(1047)'
-#valid.cob:5: warning: ignoring unknown directive: 'Process codepage(1208)'
-#valid.cob:6: warning: ignoring unknown directive: 'CBL CODEPAGE(1208)'
-#valid.cob:7: warning: ignoring unknown directive: 'Process codepage(1047)'
-#valid.cob:8: warning: ignoring unknown directive: 'CBL CODEPAGE(1047)'
-#])
-
-# FIXME: the part above does not work
-
-#AT_DATA([valid.cob], [
-#Process codepage(1047)
-# Process
-# CBL
-#000100 Process codepage(1208)
-#000200 CBL CODEPAGE(1208)
-#000300 CBL
-#000400 IDENTIFICATION DIVISION.
-#000500 PROGRAM-ID. VALID.
-#])
-
-#AT_CHECK([$COMPILE_ONLY valid.cob], [0], [],
-#[valid.cob:2: warning: ignoring unknown directive: 'Process codepage(1047)'
-#valid.cob:5: warning: ignoring unknown directive: 'Process codepage(1208)'
-#valid.cob:6: warning: ignoring unknown directive: 'CBL CODEPAGE(1208)'
-#])
-
-# simple one, to consider later how to make the necessary changes for
-# process/cbl before col 7
-
-cat >valid.cob <<'_ATEOF'
-
-000100 Process codepage(1047)
-000200 CBL CODEPAGE(1208)
-000300 CBL
-000400 IDENTIFICATION DIVISION.
-000500 PROGRAM-ID. VALID.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5961: \$COMPILE_ONLY valid.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY valid.cob" "syn_misc.at:5961"
-( $at_check_trace; $COMPILE_ONLY valid.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "valid.cob:2: warning: ignoring unknown directive: 'Process codepage(1047)'
-valid.cob:3: warning: ignoring unknown directive: 'CBL CODEPAGE(1208)'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:5961"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_359
-#AT_START_360
-at_fn_group_banner 360 'syn_misc.at:5969' \
- "*CONTROL / *CBL parsing" " " 2
-at_xfail=no
-(
- printf "%s\n" "360. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-#AT_DATA([valid.cob], [
-# *CONTROL LIST
-# *CONTROL SOURCE
-# *CBL MAP LIST
-#000100 *CBL NOMAP NOSOURCE NOLIST
-#000200 IDENTIFICATION DIVISION.
-#000300 PROGRAM-ID. VALID.
-#])
-
-#AT_CHECK([$COMPILE_ONLY valid.cob], [0], [],
-#[valid.cob:2: warning: LIST is not applicable, consider -g / -s
-#valid.cob:4: warning: LIST is not applicable, consider -g / -s
-#])
-
-# for now only simple one -> ignored
-
-cat >valid.cob <<'_ATEOF'
-
- *CONTROL LIST
- *CONTROL SOURCE
- *CBL MAP LIST
-000100 *CBL NOMAP NOSOURCE NOLIST
-000200 IDENTIFICATION DIVISION.
-000300 PROGRAM-ID. VALID.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:5997: \$COMPILE_ONLY valid.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY valid.cob" "syn_misc.at:5997"
-( $at_check_trace; $COMPILE_ONLY valid.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:5997"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_360
-#AT_START_361
-at_fn_group_banner 361 'syn_misc.at:6002' \
- "system routines with wrong number of parameters" "" 2
-at_xfail=no
-(
- printf "%s\n" "361. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 VAR1 PIC 9.
- 01 VAR2 PIC 9.
- 01 VAR3 PIC 9.
- 01 VAR4 PIC 9.
- PROCEDURE DIVISION.
- CALL X"91" USING VAR1 VAR2 VAR3 VAR4.
- CALL X"91" USING VAR1.
- CALL "C$TOUPPER" USING VAR1 VAR2 VAR3.
- CALL "CBL_GC_FORK" USING VAR1.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:6021: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:6021"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:11: warning: wrong number of CALL parameters for 'X\"91\"', 4 given, 3 expected
-prog.cob:12: error: wrong number of CALL parameters for 'X\"91\"', 1 given, 3 expected
-prog.cob:13: warning: wrong number of CALL parameters for 'C\$TOUPPER', 3 given, 2 expected
-prog.cob:14: warning: wrong number of CALL parameters for 'CBL_GC_FORK', 1 given, 0 expected
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:6021"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_361
-#AT_START_362
-at_fn_group_banner 362 'syn_misc.at:6031' \
- "invalid use of condition-name" " " 2
-at_xfail=no
-(
- printf "%s\n" "362. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-# see Bug #543 "level 88 item not checked in all places for STRING"
-# and FR #339
-# Note: we actually check much more here, for example special data types
-# like HANDLE, see "ACUCOBOL USAGE HANDLE";
-# condition-name is also checked in syn_file.at "WRITE / REWRITE FROM clause"
-
-cat >prog.cob <<'_ATEOF'
-
- identification division.
- program-id. prog.
- data division.
- working-storage section.
- 77 p usage pointer.
- 01 val pic x(10).
- 88 val-i1 value 'some'.
- 88 val-i2 value 'val'.
- 77 val2 pic x(50).
- 77 target pic x(50).
- 01 vnum pic 9.
- 88 vnum-1 value 1.
- 88 vnum-2 values 2 thru 5.
- 88 vnum-9 value 9.
- 01 filler.
- 02 tentry pic x occurs 0 to 6 depending on vnum-1.
- procedure division.
- string val-i1 delimited by size into target
- string val2 delimited by val-i2 into target
- string val2 delimited by size into val-i1
- with pointer val-i2
- unstring val-i1 into target
- unstring val2 delimited by val-i1 into target
- unstring val2 into val-i1
- with pointer val-i2
- move val-i1
- to val-i2, tentry (vnum-9)
- compute vnum-1 = vnum
- compute vnum = vnum-1 /
- vnum-2
- go to val-i1
- set p to val-i1
- set p to address of val-i2.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:6075: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:6075"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:17: error: condition-name not allowed here: 'vnum-1'
-prog.cob:19: error: condition-name not allowed here: 'val-i1'
-prog.cob:20: error: condition-name not allowed here: 'val-i2'
-prog.cob:21: error: condition-name not allowed here: 'val-i1'
-prog.cob:23: error: condition-name not allowed here: 'val-i1'
-prog.cob:24: error: condition-name not allowed here: 'val-i1'
-prog.cob:25: error: condition-name not allowed here: 'val-i1'
-prog.cob:28: error: condition-name not allowed here: 'vnum-9'
-prog.cob:27: error: condition-name not allowed here: 'val-i1'
-prog.cob:29: error: condition-name not allowed here: 'vnum-1'
-prog.cob:30: error: condition-name not allowed here: 'vnum-1'
-prog.cob:31: error: condition-name not allowed here: 'vnum-2'
-prog.cob:33: error: condition-name not allowed here: 'val-i1'
-prog.cob:34: error: condition-name not allowed here: 'val-i2'
-prog.cob:32: error: 'val-i1 (MAIN SECTION:)' is not a procedure name
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:6075"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_362
-#AT_START_363
-at_fn_group_banner 363 'syn_misc.at:6095' \
- "XML GENERATE syntax checks" " " 2
-at_xfail=no
-(
- printf "%s\n" "363. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 str.
- 03 str-1 PIC XX.
- 03 str-2 PIC X.
- 66 renames-item RENAMES str-1 THRU str-2.
- 01 bool-area.
- 03 bool-item PIC 1(30) USAGE BIT.
- 03 zoned-decimal PIC 99V99 PACKED-DECIMAL.
- 01 just-item PIC X(30) JUST.
- 01 table-area.
- 03 table-entry PIC X(30) OCCURS 2 TIMES.
- 01 long-str PIC X(200).
-
- 01 float-item FLOAT-SHORT.
- 01 pic-p-item PIC 99P(3).
-
- 01 rec.
- 03 child-1 PIC X(30).
- 03 child-1a REDEFINES child-1 PIC 9(30).
- 03 child-2 PIC X(30).
- 03 child-3.
- 05 child-3-1 PIC X OCCURS 5 TIMES.
-
- 01 all-filler-rec.
- 03 FILLER PIC XXXX.
- 03 FILLER PIC 9999.
-
- 01 invalid-sub-elt-rec.
- 03 non-unique-name PIC X.
- 03 valid-sub-rec.
- 05 non-unique-name PIC X.
- 03 bit-item PIC 1 USAGE BIT.
- 03 ptr-item USAGE POINTER.
-
- 01 with-attrs-does-nothing.
- 03 FILLER PIC X.
- 03 table-elt PIC X OCCURS 2 TIMES.
- 03 with-attrs-group.
- 05 with-attrs-group-child PIC X.
- 03 with-attrs-child PIC X.
-
- PROCEDURE DIVISION.
- *> Receiving area is not alphanumeric or national.
- XML GENERATE bool-item FROM str
- *> Receiving area is JUSTIFIED RIGHT.
- XML GENERATE just-item FROM str
- *> Receiving area is subscripted or ref-mod'd.
- XML GENERATE table-entry (1) FROM str
- XML GENERATE long-str (1:100) FROM str
-
- *> Input record cannot be function identifier.
- XML GENERATE long-str FROM FUNCTION CHAR(4)
- *> Input record cannot be ref-mod'd.
- XML GENERATE long-str FROM str (2:1)
- *> " " is not RENAMES (children may be RENAMES).
- XML GENERATE long-str FROM renames-item
- *> Non-ignored items of the input record must:
- *> * alphabetic, alphanumeric, national, numeric or index.
- *> * there must be at least one item.
- *> * each non-FILLER name must be unique within the input record.
- XML GENERATE long-str FROM invalid-sub-elt-rec *> XXXXXXXXX ptr element is invalid
- XML GENERATE long-str FROM all-filler-rec
-
- *> COUNT IN field must be an integer.
- XML GENERATE long-str FROM str COUNT float-item
- *> COUNT IN field must not have P in PIC.
- XML GENERATE long-str FROM str COUNT pic-p-item
-
- *> ENCODING codepage must be unsigned integer.
- *> If receiving area is national, codepage must be 1200.
- *> " " " alphanumeric, codepage must be 1208 or EBCDIC
- *> page supported with XML.
-
- *> WITH ATTRIBUTES, generated immediate children must be
- *> * elementary
- *> * be non-FILLER
- *> * not be OCCURS
- *> * not be subject of a TYPE phrase.
- XML GENERATE long-str FROM with-attrs-does-nothing
- WITH ATTRIBUTES
- TYPE OF with-attrs-child IS ELEMENT
-
- *> NAMESPACE must be a valid URI.
- XML GENERATE long-str FROM str NAMESPACE "<>"
- *> NAMESPACE and -PREFIX must be alphanumeric or national.
- XML GENERATE long-str FROM str
- NAMESPACE bool-item NAMESPACE-PREFIX bool-item
- *> " " " may not be figurative constants.
- XML GENERATE long-str FROM str
- NAMESPACE SPACES NAMESPACE-PREFIX QUOTES
- *> NAMESPACE-PREFIX must be a valid XML name.
- XML GENERATE long-str FROM str
- NAMESPACE "http://www.w3.org/xml" NAMESPACE-PREFIX X"00"
-
- *> NAME items must reference input record or its children.
- XML GENERATE long-str FROM rec
- NAME OF child-1 IS "c1", long-str IS "c2", rec IS "r"
- *> NAME items cannot be reference modified or subscripted.
- XML GENERATE long-str FROM rec
- NAME OF child-1 (1:2) IS "c1"
- *> NAME items may not be ignored by the statement.
- XML GENERATE long-str FROM rec
- NAME OF child-1a IS "c1a"
- *> NAME literals must be valid XML names.
- XML GENERATE long-str FROM rec
- NAME OF child-1 IS X"00"
-
- *> TYPE items must be elementary and children of input record.
- XML GENERATE long-str FROM rec
- TYPE OF child-3 IS ELEMENT, long-str IS CONTENT,
- rec IS CONTENT
- *> TYPE items cannot be ref-mod'd or subscripted.
- XML GENERATE long-str FROM rec
- TYPE OF child-1 (1:3) IS ATTRIBUTE,
- child-3-1 (1) IS CONTENT
- *> TYPE items may not be ignored by the statement
- XML GENERATE long-str FROM rec
- TYPE OF child-1a IS ELEMENT
- *> TYPE ATTRIBUTE items must satisfy the conditions for WITH
- *> ATTRIBUTES. (Covered by the above.)
-
- *> SUPPRESS WHEN items must be:
- *> * elementary
- *> * not ignored
- *> * child of input record.
- XML GENERATE long-str FROM rec
- SUPPRESS child-3 WHEN SPACES, child-1a WHEN SPACES,
- rec WHEN SPACES
- *> All SUPPRESS items must not be functions
- XML GENERATE long-str FROM rec
- SUPPRESS FUNCTION CHAR(5) WHEN SPACE
- *> All SUPPRESS items must not be ref-mod'd or subscripted.
- XML GENERATE long-str FROM rec
- SUPPRESS child-1 (1:3) WHEN ZERO,
- child-3-1 (1) WHEN SPACES
- *> If non-WHEN SUPPRESS items may be groups. (No error message here.)
- XML GENERATE long-str FROM rec SUPPRESS child-3
- *> If SUPPRESS WHEN ZEROES, item is not DISPLAY-1.
- *> If SUPPRESS WHEN SPACES, item must be USAGE DISPLAY, DISPLAY-1 or
- *> NATIONAL
- XML GENERATE long-str FROM bool-area
- SUPPRESS bool-item WHEN SPACES
- *> If SUPPRESS WHEN LOW-/HIGH-VALUES, item must be USAGE DISPLAY or
- *> NATIONAL. If item is a zoned/national decimal item, it must be
- *> an integer.
- XML GENERATE long-str FROM bool-area
- SUPPRESS bool-item WHEN LOW-VALUES,
- zoned-decimal WHEN HIGH-VALUE
- *> (For generic WHEN phrases, invalid items above are ignored.)
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:6255: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:6255"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:12: warning: USAGE BIT is not implemented
-prog.cob:37: warning: USAGE BIT is not implemented
-prog.cob:49: error: JSON/XML GENERATE receiving item must be alphanumeric or national
-prog.cob:51: error: JSON/XML GENERATE receiving item may not have JUSTIFIED clause
-prog.cob:53: error: JSON/XML GENERATE receiving item may not be subscripted
-prog.cob:54: error: JSON/XML GENERATE receiving item may not be reference modified
-prog.cob:57: error: syntax error, unexpected intrinsic function name, expecting Identifier
-prog.cob:59: error: JSON/XML GENERATE input record may not be reference modified
-prog.cob:61: error: JSON/XML GENERATE input record may not have RENAMES clause
-prog.cob:66: error: JSON/XML GENERATE input record has subrecords with non-unique names
-prog.cob:67: error: all the children of 'all-filler-rec' are ignored in JSON/XML GENERATE
-prog.cob:70: error: COUNT IN item 'float-item' must be an integer
-prog.cob:72: error: COUNT IN item 'pic-p-item' may not have PICTURE with P in it
-prog.cob:89: warning: OCCURS items in JSON/XML GENERATE is not implemented
-prog.cob:89: warning: WITH ATTRIBUTES specified, but no attributes can be generated
-prog.cob:89: error: NAMESPACE must be a valid URI
-prog.cob:92: error: NAMESPACE must be alphanumeric or national
-prog.cob:92: error: NAMESPACE-PREFIX must be alphanumeric or national
-prog.cob:97: error: NAMESPACE may not be a figurative constant
-prog.cob:97: error: NAMESPACE-PREFIX may not be a figurative constant
-prog.cob:98: error: NAMESPACE-PREFIX must be a valid XML name
-prog.cob:104: warning: OCCURS items in JSON/XML GENERATE is not implemented
-prog.cob:102: error: NAME OF item must be the input record or a child of it
-prog.cob:107: warning: OCCURS items in JSON/XML GENERATE is not implemented
-prog.cob:105: error: NAME OF item may not be reference modified
-prog.cob:110: warning: OCCURS items in JSON/XML GENERATE is not implemented
-prog.cob:108: error: NAME OF item may not be an ignored item in JSON/XML GENERATE
-prog.cob:114: warning: OCCURS items in JSON/XML GENERATE is not implemented
-prog.cob:111: error: NAME OF literal must be a valid XML identifier
-prog.cob:118: warning: OCCURS items in JSON/XML GENERATE is not implemented
-prog.cob:115: error: TYPE OF item must be elementary
-prog.cob:115: error: TYPE OF item must be a child of the input record
-prog.cob:116: error: TYPE OF item must be elementary
-prog.cob:116: error: TYPE OF item must be a child of the input record
-prog.cob:122: warning: OCCURS items in JSON/XML GENERATE is not implemented
-prog.cob:119: error: TYPE OF item may not be reference modified
-prog.cob:120: error: TYPE OF item may not be subscripted
-prog.cob:131: warning: OCCURS items in JSON/XML GENERATE is not implemented
-prog.cob:123: error: TYPE OF item may not be an ignored item in JSON/XML GENERATE
-prog.cob:135: warning: OCCURS items in JSON/XML GENERATE is not implemented
-prog.cob:133: error: SUPPRESS item with WHEN clause must be elementary
-prog.cob:133: error: SUPPRESS item must be a child of the input record
-prog.cob:132: error: SUPPRESS item may not be an ignored item in JSON/XML GENERATE
-prog.cob:132: error: SUPPRESS item with WHEN clause must be elementary
-prog.cob:136: error: syntax error, unexpected intrinsic function name, expecting EVERY or WHEN or Identifier
-prog.cob:142: warning: OCCURS items in JSON/XML GENERATE is not implemented
-prog.cob:140: error: SUPPRESS item may not be subscripted
-prog.cob:139: error: SUPPRESS item may not be reference modified
-prog.cob:146: warning: OCCURS items in JSON/XML GENERATE is not implemented
-prog.cob:147: error: SUPPRESS WHEN SPACE item must be USAGE DISPLAY or NATIONAL
-prog.cob:153: error: SUPPRESS WHEN HIGH-VALUE item must be USAGE DISPLAY or NATIONAL
-prog.cob:153: error: SUPPRESS WHEN HIGH-VALUE item must be an integer
-prog.cob:152: error: SUPPRESS WHEN LOW-VALUE item must be USAGE DISPLAY or NATIONAL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:6255"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_363
-#AT_START_364
-at_fn_group_banner 364 'syn_misc.at:6313' \
- "BASED clause, ALLOCATE / FREE statements" " " 2
-at_xfail=no
-(
- printf "%s\n" "364. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 str.
- 03 str-1 PIC XX BASED.
- 01 str-2 BASED.
- 03 str-2a PIC X SYNC.
- 03 str-2b PIC 9.
- 01 one PIC XX BASED.
- 77 seven PIC 9 BASED.
- 77 var PIC 9.
- 77 ptr USAGE POINTER.
- SCREEN-STORAGE SECTION.
- 01 scrn BASED.
- 03 scrn-field pic x.
-
- PROCEDURE DIVISION.
- ALLOCATE one
- ALLOCATE seven INITIALIZED
- ALLOCATE seven CHARACTERS
- ALLOCATE seven CHARACTERS RETURNING ptr
- ALLOCATE 1 + 2 * 3 CHARACTERS RETURNING ptr
- ALLOCATE 1 + one * 3 CHARACTERS RETURNING ptr
- ALLOCATE one CHARACTERS RETURNING ptr
- ALLOCATE seven CHARACTERS INITIALIZED RETURNING ptr
- ALLOCATE var
- ALLOCATE 9 CHARACTERS INITIALIZED TO 9 RETURNING ptr.
- FREE var
- FREE ADDRESS OF var
- FREE one
- FREE ADDRESS OF seven
- MOVE ADDRESS OF seven TO ptr
- FREE ptr
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:6355: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:6355"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: error: BASED only allowed at 01/77 level
-prog.cob:16: error: PROCEDURE DIVISION header missing
-prog.cob:16: error: syntax error, unexpected Identifier
-prog.cob:17: error: syntax error, unexpected Identifier, expecting SECTION or .
-prog.cob:17: note: unknown statement '01'
-prog.cob:18: error: syntax error, unexpected Identifier, expecting SECTION or .
-prog.cob:18: note: unknown statement '03'
-prog.cob:20: error: syntax error, unexpected PROCEDURE
-prog.cob:23: error: ALLOCATE CHARACTERS requires RETURNING clause
-prog.cob:26: error: 'one' is not numeric
-prog.cob:27: error: amount must be specified as a numeric expression
-prog.cob:29: error: target of ALLOCATE must have BASED clause
-prog.cob:30: error: INITIALIZED TO item is not alphanumeric
-prog.cob:31: error: target 1 of FREE is not a BASED data item
-prog.cob:32: error: target 1 of FREE is not a BASED data item
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:6355"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:6373: \$COMPILE_ONLY -frelax-syntax-checks prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -frelax-syntax-checks prog.cob" "syn_misc.at:6373"
-( $at_check_trace; $COMPILE_ONLY -frelax-syntax-checks prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: error: BASED only allowed at 01/77 level
-prog.cob:16: warning: PROCEDURE DIVISION header missing
-prog.cob:16: note: PROCEDURE DIVISION header assumed
-prog.cob:16: error: syntax error, unexpected Identifier
-prog.cob:17: error: syntax error, unexpected Identifier, expecting SECTION or .
-prog.cob:17: note: unknown statement '01'
-prog.cob:18: error: syntax error, unexpected Identifier, expecting SECTION or .
-prog.cob:18: note: unknown statement '03'
-prog.cob:20: error: syntax error, unexpected PROCEDURE
-prog.cob:23: error: ALLOCATE CHARACTERS requires RETURNING clause
-prog.cob:26: error: 'one' is not numeric
-prog.cob:27: error: amount must be specified as a numeric expression
-prog.cob:29: error: cannot change address of 'var', which is not BASED or a LINKAGE item
-prog.cob:30: error: INITIALIZED TO item is not alphanumeric
-prog.cob:31: error: target 1 of FREE is not a BASED data item
-prog.cob:32: error: target 1 of FREE is not a BASED data item
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:6373"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_364
-#AT_START_365
-at_fn_group_banner 365 'syn_misc.at:6394' \
- "CONTINUE statement" " " 2
-at_xfail=no
-(
- printf "%s\n" "365. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 one PIC X.
- 77 seven PIC 9 BASED.
- 77 var PIC 9.
- 77 ptr USAGE POINTER.
- PROCEDURE DIVISION.
- CONTINUE
- PERFORM VARYING var FROM 1 BY 1 UNTIL var = 4
- CONTINUE
- END-PERFORM
- CONTINUE AFTER 42 SECONDS *> COBOL 202x
- CONTINUE AFTER 4 + 2 SECONDS
- CONTINUE AFTER var + 2 SECONDS
- CONTINUE AFTER '1' SECONDS
- CONTINUE AFTER ptr SECONDS
- CONTINUE AFTER one SECONDS
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:6421: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:6421"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:19: error: amount must be specified as a numeric expression
-prog.cob:20: error: amount must be specified as a numeric expression
-prog.cob:21: error: amount must be specified as a numeric expression
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:6421"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:6427: \$COMPILE_ONLY -std=cobol2014 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol2014 prog.cob" "syn_misc.at:6427"
-( $at_check_trace; $COMPILE_ONLY -std=cobol2014 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:16: error: AFTER phrase in CONTINUE statement does not conform to COBOL 2014
-prog.cob:17: error: AFTER phrase in CONTINUE statement does not conform to COBOL 2014
-prog.cob:18: error: AFTER phrase in CONTINUE statement does not conform to COBOL 2014
-prog.cob:19: error: AFTER phrase in CONTINUE statement does not conform to COBOL 2014
-prog.cob:20: error: AFTER phrase in CONTINUE statement does not conform to COBOL 2014
-prog.cob:21: error: AFTER phrase in CONTINUE statement does not conform to COBOL 2014
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:6427"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_365
-#AT_START_366
-at_fn_group_banner 366 'syn_misc.at:6438' \
- "conflict markers" " " 2
-at_xfail=no
-(
- printf "%s\n" "366. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- *> Verify that we report conflict markers correctly
-<<<<<<< HEAD
- 01 one-1 PIC X.
-======= there may be something here
- 01 one-2 PIC X.
->>>>>>> some note
- *> Verify that we don't have an issue with unmatched conflict markers
- 77 var PIC 9.
-<<<<<<< HEAD
- 01 var2 PIC X.
-=======
-<<<<<<< HEAD
- *> Verify that we only report conflict markers at the start of lines.
- <<<<<<< HEAD
- 01 one PIC X.
- =======
- 01 two PIC 9.
- >>>>>>> some note
- PROCEDURE DIVISION.
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:6469: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:6469"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: error: version control conflict marker in file
-prog.cob:10: error: version control conflict marker in file
-prog.cob:12: error: version control conflict marker in file
-prog.cob:15: error: version control conflict marker in file
-prog.cob:17: error: version control conflict marker in file
-prog.cob:18: error: version control conflict marker in file
-prog.cob:20: error: invalid indicator '<' at column 7
-prog.cob:22: error: invalid indicator '=' at column 7
-prog.cob:24: warning: ignoring invalid directive: '>> some'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:6469"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:6481: \$COMPILE_ONLY -free prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -free prog.cob" "syn_misc.at:6481"
-( $at_check_trace; $COMPILE_ONLY -free prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: error: version control conflict marker in file
-prog.cob:10: error: version control conflict marker in file
-prog.cob:12: error: version control conflict marker in file
-prog.cob:15: error: version control conflict marker in file
-prog.cob:17: error: version control conflict marker in file
-prog.cob:18: error: version control conflict marker in file
-prog.cob:24: warning: ignoring invalid directive
-prog.cob:20: error: PROCEDURE DIVISION header missing
-prog.cob:20: error: syntax error, unexpected <
-prog.cob:22: error: syntax error, unexpected =
-prog.cob:25: error: syntax error, unexpected PROCEDURE
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:6481"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_366
-#AT_START_367
-at_fn_group_banner 367 'syn_misc.at:6497' \
- "SORT syntax" " " 2
-at_xfail=no
-(
- printf "%s\n" "367. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT SRTFIL ASSIGN TO "SRTFIL"
- ORGANIZATION LINE SEQUENTIAL.
- SELECT STFILE ASSIGN TO "STFILE"
- ORGANIZATION LINE SEQUENTIAL.
-
- DATA DIVISION.
- FILE SECTION.
- FD SRTFIL.
- 01 SRTREC PIC X(256).
- SD STFILE.
- 01 STFREC PIC X(256).
-
- WORKING-STORAGE SECTION.
- 01 G VALUE "d4b2e1a3c5".
- 02 TBL OCCURS 5.
- 03 X PIC X.
- 03 Y PIC 9.
- 02 TBL-ORD OCCURS 5 ASCENDING YO.
- 03 XO PIC X.
- 03 YO PIC 9.
-
- PROCEDURE DIVISION.
- SORT TBL ASCENDING KEY X.
- SORT TBL DESCENDING.
- SORT TBL.
- SORT TBL-ORD ASCENDING.
- SORT TBL-ORD.
- SORT STFILE DESCENDING KEY SRTREC.
- SORT STFILE DESCENDING KEY SRTREC USING SRTFIL GIVING SRTFIL.
- SORT STFILE ASCENDING.
- SORT STFILE.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:6541: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:6541"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:32: error: table SORT requires KEY phrase
-prog.cob:35: error: file SORT requires USING or INPUT PROCEDURE
-prog.cob:35: error: file SORT requires GIVING or OUTPUT PROCEDURE
-prog.cob:37: error: file SORT requires KEY phrase
-prog.cob:38: error: file SORT requires KEY phrase
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:6541"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_367
-#AT_START_368
-at_fn_group_banner 368 'syn_misc.at:6551' \
- "OSVS I/O extensions" " " 2
-at_xfail=no
-(
- printf "%s\n" "368. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT f ASSIGN "f.dat" SEQUENTIAL
- FILE-LIMITS ARE 1 THRU 10, 100 THRU f-max
- TRACK-AREA 100 CHARACTERS
- TRACK-LIMIT 5 TRACKS.
- SELECT g ASSIGN "g.dat" RELATIVE
- RELATIVE KEY g-key
- ACTUAL KEY g-actual-key.
-
- I-O-CONTROL.
- APPLY RECORD-OVERFLOW f, g
- APPLY CORE-INDEX core-idx ON f
- APPLY CYL-INDEX TO 5 ON f
- APPLY CYL-OVERFLOW 10 TRACKS f
- APPLY EXTENDED-SEARCH g
- APPLY MASTER-INDEX TO 5 on g
- APPLY WRITE-VERIFY f, g
- APPLY REORG-CRITERIA f-rec, f
- RERUN ON "g2.dat" EVERY END REEL g
- .
- DATA DIVISION.
- FILE SECTION.
- FD f.
- 01 f-rec PIC X(100).
-
- FD g.
- 01 g-rec PIC 9(10).
-
- WORKING-STORAGE SECTION.
- 01 core-idx PIC 999.
- 01 f-max PIC 9(5) VALUE 1000.
- 01 g-key PIC 999.
- 01 g-actual-key PIC XXX.
-
- PROCEDURE DIVISION.
- OPEN INPUT f DISP, INPUT g REREAD
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:6599: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:6599"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: warning: FILE-LIMIT is obsolete in GnuCOBOL
-prog.cob:10: warning: TRACK-AREA is obsolete in GnuCOBOL
-prog.cob:11: warning: TRACK-LIMIT is obsolete in GnuCOBOL
-prog.cob:14: warning: ACTUAL KEY is obsolete in GnuCOBOL
-prog.cob:18: warning: DOS/VS APPLY phrase is obsolete in GnuCOBOL
-prog.cob:19: warning: DOS/VS APPLY phrase is obsolete in GnuCOBOL
-prog.cob:20: warning: DOS/VS APPLY phrase is obsolete in GnuCOBOL
-prog.cob:21: warning: DOS/VS APPLY phrase is obsolete in GnuCOBOL
-prog.cob:22: warning: DOS/VS APPLY phrase is obsolete in GnuCOBOL
-prog.cob:23: warning: DOS/VS APPLY phrase is obsolete in GnuCOBOL
-prog.cob:24: warning: DOS/VS APPLY phrase is obsolete in GnuCOBOL
-prog.cob:25: warning: DOS/VS APPLY phrase is obsolete in GnuCOBOL
-prog.cob:42: warning: OPEN LEAVE/REREAD/DISP is obsolete in GnuCOBOL
-prog.cob:42: warning: OPEN LEAVE/REREAD/DISP is obsolete in GnuCOBOL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:6599"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_368
-#AT_START_369
-at_fn_group_banner 369 'syn_misc.at:6618' \
- "EQUALS in expressions" " " 2
-at_xfail=no
-(
- printf "%s\n" "369. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 num PIC 99 VALUE 0.
- PROCEDURE DIVISION.
- IF num LESS OR EQUALS 0
- CONTINUE
- END-IF
- IF num GREATER THAN OR EQUALS 1
- CONTINUE
- END-IF
- IF num EQUALS TO 0
- CONTINUE
- END-IF
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:6640: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "syn_misc.at:6640"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:6640"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_369
-#AT_START_370
-at_fn_group_banner 370 'syn_misc.at:6644' \
- "SEARCH ALL checks" " " 2
-at_xfail=no
-(
- printf "%s\n" "370. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TAB-1.
- 05 TAB-1-ENTRY OCCURS 50
- ASCENDING KEY IS TAB-1-KEY
- INDEXED BY TAB-1-INDEX.
- 10 TAB-1-KEY.
- 15 T1K-SUB1 PIC X(03).
- 15 T1K-SUB2 PIC 9(03).
- 10 TAB-1-DATA PIC X(50).
- 01 TAB-2.
- 05 TAB-2-ENTRY OCCURS 50
- INDEXED BY TAB-2-INDEX.
- 10 TAB-2-KEY.
- 15 T2K-SUB1 PIC X(03).
- 15 T2K-SUB2 PIC 9(03).
- 10 TAB-2-DATA PIC X(50).
-
- PROCEDURE DIVISION.
- TESTING SECTION.
- SEARCH ALL TAB-1-ENTRY
- AT END
- CONTINUE
- WHEN TAB-1-KEY = ALL ZERO
- CONTINUE
- END-SEARCH
- SEARCH ALL TAB-1-ENTRY
- AT END
- CONTINUE
- WHEN TAB-1-KEY (TAB-1-INDEX) = ALL ZERO
- CONTINUE
- END-SEARCH
- SEARCH ALL TAB-1-ENTRY
- AT END
- CONTINUE
- WHEN "ABC123" = TAB-1-KEY (TAB-1-INDEX)
- CONTINUE
- END-SEARCH
- SEARCH ALL TAB-1-ENTRY
- AT END
- CONTINUE
- WHEN TAB-1-KEY (TAB-2-INDEX) = ALL ZERO
- CONTINUE
- END-SEARCH
- SEARCH ALL TAB-1-ENTRY
- WHEN TAB-1-KEY (TAB-1-INDEX) = ALL ZERO
- CONTINUE
- AT END
- CONTINUE
- END-SEARCH
- SEARCH ALL TAB-1-ENTRY
- AT END
- CONTINUE
- WHEN TAB-1-KEY (TAB-1-INDEX) = ALL ZERO
- WHEN TAB-1-KEY (TAB-1-INDEX) = "ZZZ999"
- CONTINUE
- END-SEARCH
- SEARCH ALL TAB-1-ENTRY
- AT END
- CONTINUE
- WHEN TESTING
- CONTINUE
- END-SEARCH
- SEARCH ALL TAB-1-ENTRY
- AT END
- CONTINUE
- WHEN T1K-SUB1 (TAB-1-INDEX) = "ZZZ"
- CONTINUE
- END-SEARCH
- SEARCH ALL TAB-1-ENTRY
- AT END
- CONTINUE
- WHEN TAB-2-KEY (TAB-1-INDEX) = ALL ZERO
- CONTINUE
- END-SEARCH
- SEARCH ALL TAB-1-ENTRY
- AT END
- CONTINUE
- WHEN TAB-2-KEY (TAB-2-INDEX) = ALL ZERO
- CONTINUE
- END-SEARCH
- SEARCH ALL TAB-1-ENTRY
- AT END
- CONTINUE
- WHEN "AA" = "BB"
- CONTINUE
- END-SEARCH
- SEARCH ALL TAB-2-ENTRY
- AT END
- CONTINUE
- WHEN TAB-2-KEY (TAB-2-INDEX) = ALL ZERO
- CONTINUE
- END-SEARCH
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:6746: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "syn_misc.at:6746"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in section 'TESTING':
-prog.cob:27: error: 'TAB-1-KEY' requires one subscript
-prog.cob:51: error: syntax error, unexpected AT END
-prog.cob:53: error: syntax error, unexpected END-SEARCH
-prog.cob:58: error: syntax error, unexpected WHEN
-prog.cob:64: error: 'TESTING' is not a field
-prog.cob:70: error: SEARCH ALL requires comparision of KEY field
-prog.cob:76: error: SEARCH ALL requires comparision of KEY field
-prog.cob:82: error: SEARCH ALL requires comparision of KEY field
-prog.cob:88: warning: expression 'AA' EQUALS 'BB' is always FALSE
-prog.cob:88: error: invalid SEARCH ALL condition
-prog.cob:91: error: SEARCH ALL requires KEY phrase
-prog.cob:15: note: 'TAB-2-ENTRY' defined here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:6746"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_370
-#AT_START_371
-at_fn_group_banner 371 'syn_misc.at:6764' \
- "Invalid parentheses around condition" " " 2
-at_xfail=no
-(
- printf "%s\n" "371. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 num PIC 99 VALUE 0.
- PROCEDURE DIVISION.
- IF num NOT (LESS OR EQUALS) 0
- CONTINUE
- END-IF
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:6781: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "syn_misc.at:6781"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: invalid expression: unfinished expression
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:6781"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_371
-#AT_START_372
-at_fn_group_banner 372 'syn_misc.at:6787' \
- "DISPLAY directive (1)" " " 2
-at_xfail=no
-(
- printf "%s\n" "372. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# this format is COBOL 202x without UPON
-# --> implied UPON LISTING which goes to stdout
-# as there is no listing active
-# TODO: extend the >> DISPLAY tests and actually support
-# the complete format...
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- >>DISPLAY "OK"
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:6804: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:6804"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:6804"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_372
-#AT_START_373
-at_fn_group_banner 373 'syn_misc.at:6810' \
- "DISPLAY directive (2)" " " 2
-at_xfail=no
-(
- printf "%s\n" "373. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# this is an OpenCOBOL/GnuCOBOL 2.x extension, with implied literal
-# similar to $DISPLAY
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- >>DISPLAY OK
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:6824: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:6824"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:6824"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_373
-#AT_START_374
-at_fn_group_banner 374 'syn_misc.at:6830' \
- "DISPLAY directive (3)" " " 2
-at_xfail=no
-(
- printf "%s\n" "374. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# this is the classical MicroFocus format
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- $DISPLAY OK
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:6843: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:6843"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:6843"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_374
-#AT_START_375
-at_fn_group_banner 375 'syn_misc.at:6849' \
- "SET CONSTANT directive" " " 2
-at_xfail=no
-(
- printf "%s\n" "375. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# The SET CONSTANT directive defines a level78 variable
-# for the current compilation unit
-
-# original MF extension: $SET CONSTANT
-cat >prog.cob <<'_ATEOF'
-
- $SET CONSTANT DOGGY "Barky"
- $SET CONSTANT PONY "Blacky"
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 THEDOG PIC X(6) VALUE DOGGY.
- 77 MYHORSE PIC X(7) VALUE PONY.
- $SET CONSTANT PONY "White"
- *
- * ensure to test a numeric, too (not actually used):
- $SET CONSTANT C-UNUSED-NUM 0
- PROCEDURE DIVISION.
- MAIN.
- DISPLAY "Your Dog's name is " DOGGY ";".
- DISPLAY "The Dog's name is " THEDOG ";".
- DISPLAY "My Horse is " MYHORSE ";".
- DISPLAY "My little pony is " PONY ".".
- STOP RUN.
-_ATEOF
-
-
-# OpenCOBOL/GnuCOBOL extension (deprecated): >>SET CONSTANT
-cat >prog2.cob <<'_ATEOF'
-
- >>SET CONSTANT DOGGY "Barky"
- >>SET CONSTANT PONY "Blacky"
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 THEDOG PIC X(6) VALUE DOGGY.
- 77 MYHORSE PIC X(7) VALUE PONY.
- >>SET CONSTANT PONY "White"
- *
- PROCEDURE DIVISION.
- MAIN.
- DISPLAY "Your Dog's name is " DOGGY ";".
- DISPLAY "The Dog's name is " THEDOG ";".
- DISPLAY "My Horse is " MYHORSE ";".
- DISPLAY "My little pony is " PONY ".".
- STOP RUN.
-_ATEOF
-
-
-# OpenCOBOL/GnuCOBOL extension: >>DEFINE CONSTANT
-cat >prog3.cob <<'_ATEOF'
-
- >>DEFINE CONSTANT DOGGY "Barky"
- >>DEFINE CONSTANT PONY "Blacky"
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 THEDOG PIC X(6) VALUE DOGGY.
- 77 MYHORSE PIC X(7) VALUE PONY.
- >>DEFINE CONSTANT PONY "White" OVERRIDE
- *
- PROCEDURE DIVISION.
- MAIN.
- DISPLAY "Your Dog's name is " DOGGY ";".
- DISPLAY "The Dog's name is " THEDOG ";".
- DISPLAY "My Horse is " MYHORSE ";".
- DISPLAY "My little pony is " PONY ".".
- STOP RUN.
-_ATEOF
-
-
-# Note: MF does not redefine a value via SET CONSTANT
-# the first definitions wins (we should add a warning)
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:6922: \$COMPILE_ONLY -std=mf prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=mf prog.cob" "syn_misc.at:6922"
-( $at_check_trace; $COMPILE_ONLY -std=mf prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:6922"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# FIXME: Should raise an error or at least a warning
-# AT_CHECK([$COMPILE_ONLY -std=cobol2002 prog.cob], [0], [], [])
-
-# Note: MF does not redefine a value via SET CONSTANT
-# the first definitions wins (we should add a warning)
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:6928: \$COMPILE_ONLY prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog2.cob" "syn_misc.at:6928"
-( $at_check_trace; $COMPILE_ONLY prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:6928"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# FIXME: Should raise an error or at least a warning
-# AT_CHECK([$COMPILE_ONLY -std=cobol2002 prog2.cob], [0], [], [])
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:6932: \$COMPILE_ONLY -fdefine-constant-directive=ok prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fdefine-constant-directive=ok prog3.cob" "syn_misc.at:6932"
-( $at_check_trace; $COMPILE_ONLY -fdefine-constant-directive=ok prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:6932"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# CHECKME: Replace the syntax error by explicit "is not defined".
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:6934: \$COMPILE_ONLY -std=cobol2002 prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol2002 prog3.cob" "syn_misc.at:6934"
-( $at_check_trace; $COMPILE_ONLY -std=cobol2002 prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog3.cob:2: error: >> DEFINE CONSTANT var used
-prog3.cob:3: error: >> DEFINE CONSTANT var used
-prog3.cob:10: error: >> DEFINE CONSTANT var used
-prog3.cob:8: error: syntax error, unexpected Identifier
-prog3.cob:9: error: syntax error, unexpected Identifier
-prog3.cob: in paragraph 'MAIN':
-prog3.cob:14: error: 'DOGGY' is not defined
-prog3.cob:17: error: 'PONY' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:6934"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_375
-#AT_START_376
-at_fn_group_banner 376 'syn_misc.at:6948' \
- "conditional / define directives (1)" " " 2
-at_xfail=no
-(
- printf "%s\n" "376. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- >>IF ACTIVATE DEFINED
- >>DISPLAY "NOTOK"
- >>ELIF ACTIVATE2 DEFINED
- >>DISPLAY "OK"
- >>ELSE
- >>DISPLAY "NOTOK"
- >>END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:6967: \$COMPILE_ONLY -DACTIVATE2 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -DACTIVATE2 prog.cob" "syn_misc.at:6967"
-( $at_check_trace; $COMPILE_ONLY -DACTIVATE2 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:6967"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_376
-#AT_START_377
-at_fn_group_banner 377 'syn_misc.at:6973' \
- "conditional / define directives (2)" " " 2
-at_xfail=no
-(
- printf "%s\n" "377. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# COBOL 2002 format; checks that defines are applied at correct place
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- >> IF X DEFINED
- >>DISPLAY "X defined"
- >> ELSE
- >> DISPLAY "X not defined"
- >> DEFINE X 1
- >> END-IF
- CONTINUE
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:6992: \$COMPILE_ONLY -D X prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -D X prog.cob" "syn_misc.at:6992"
-( $at_check_trace; $COMPILE_ONLY -D X prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "X defined
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:6992"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:6995: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:6995"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "X not defined
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:6995"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_377
-#AT_START_378
-at_fn_group_banner 378 'syn_misc.at:7001' \
- "conditional / define directives (3)" " " 2
-at_xfail=no
-(
- printf "%s\n" "378. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- >>IF A IS DEFINED
- >>IF B IS DEFINED
- CONTINUE
- >> DISPLAY "NOT OK (not both definitions)"
- .
- >>ELSE
- CONTINUE
- >> DISPLAY "NOT OK (no definitions)"
- .
- >>END-IF
- >>ELSE
- CONTINUE
- >> DISPLAY "OK"
- .
- >>END-IF
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7025: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:7025"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:7025"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_378
-#AT_START_379
-at_fn_group_banner 379 'syn_misc.at:7031' \
- "conditional / define directives (4)" " " 2
-at_xfail=no
-(
- printf "%s\n" "379. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# check for case-insensivity
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- >>IF A IS DEFINED
- CONTINUE
- .
- >>else
- CONTINUE
- .
- >>eNd-If
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7049: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:7049"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:7049"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_379
-#AT_START_380
-at_fn_group_banner 380 'syn_misc.at:7053' \
- "error handling in conditional directives" " " 2
-at_xfail=no
-(
- printf "%s\n" "380. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# TODO: add missing tests for syntax errors in >>IF/ELSE/END
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- >> IF BANANA
- >>DISPLAY "Who throws bananas?"
- >> ELSE
- >> DISPLAY "No BANANA here."
- >> DEFINE X 1
- >> END-IF
- CONTINUE
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7072: \$COMPILE_ONLY -D X prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -D X prog.cob" "syn_misc.at:7072"
-( $at_check_trace; $COMPILE_ONLY -D X prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:5: error: invalid IF directive
-prog.cob:9: error: duplicate DEFINE directive 'X'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "No BANANA here.
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:7072"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_380
-#AT_START_381
-at_fn_group_banner 381 'syn_misc.at:7081' \
- "conditional directives with lvl 78 (1)" " " 2
-at_xfail=yes
-(
- printf "%s\n" "381. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# MicroFocus format; checks that level 78 are applied
-
-# FIXME - not done yet:
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 78 Y VALUE 'a'.
- PROCEDURE DIVISION.
- $IF X DEFINED
- $DISPLAY X defined
- $ELIF Y DEFINED
- $DISPLAY X not defined, but Y via lvl 78
- $ELSE
- $DISPLAY X not defined
- $END
- CONTINUE
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7107: \$COMPILE_ONLY -D X prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -D X prog.cob" "syn_misc.at:7107"
-( $at_check_trace; $COMPILE_ONLY -D X prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "X defined
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:7107"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7110: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:7110"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "X not defined, but Y via lvl 78
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:7110"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_381
-#AT_START_382
-at_fn_group_banner 382 'syn_misc.at:7116' \
- "conditional directives with lvl 78 (2)" " " 2
-at_xfail=yes
-(
- printf "%s\n" "382. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# MicroFocus format; checks that level 78 are applied with correct values
-
-# FIXME - not done yet:
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 78 Y VALUE 1.
- 78 Y2 VALUE 1.
- 78 X VALUE 2.
- 78 Z VALUE 354.
- PROCEDURE DIVISION.
- $IF Y = Y2X
- $DISPLAY correct Y = Y2
- $ELSE
- $DISPLAY bad: Y should be = Y2
- $END
- $IF Y > X
- $DISPLAY BAD - Y is not > X
- $ELIF Y < X
- $DISPLAY correct Y < X
- $ELSE
- $DISPLAY BROKEN
- $END
-
- $IF X > Y
- $DISPLAY correct X > Y
- $ELIF X < Y
- $DISPLAY BAD - X is not < Y
- $ELSE
- $DISPLAY BROKEN
- $END
- CONTINUE
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7158: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:7158"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "correct Y = Y2
-correct Y < X
-correct X > Y
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:7158"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_382
-#AT_START_383
-at_fn_group_banner 383 'syn_misc.at:7166' \
- "Missing reserved word with DEBUGGING MODE" " " 2
-at_xfail=no
-(
- printf "%s\n" "383. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. my-prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER. GNU-Linux WITH DEBUGGING MODE.
-
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT gen-file ASSIGN "f.txt".
-
- DATA DIVISION.
- FILE SECTION.
- FD gen-file.
- 01 gen-file-rec PIC X.
-
- PROCEDURE DIVISION.
- OPEN INPUT gen-file
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7191: \$COMPILE_ONLY -std=cobol85 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol85 prog.cob" "syn_misc.at:7191"
-( $at_check_trace; $COMPILE_ONLY -std=cobol85 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:7191"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_383
-#AT_START_384
-at_fn_group_banner 384 'syn_misc.at:7195' \
- "Invalid PERFORM statement" " " 2
-at_xfail=no
-(
- printf "%s\n" "384. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# TODO: likely more to add here when inspecting code-coverage
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. DEMOUNSTRING.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Full-Name PIC X(40).
- 01 SUB1 USAGE BINARY-SHORT.
- PROCEDURE DIVISION.
- MOVE 1 TO SUB1
- PERFORM LENGTH(Full-Name) TIMES
- IF Full-Name(SUB2:1) = SPACE
- IF Full-Name(SUB2 + 1:1) = SPACE
- DISPLAY 'IN'
- EXIT PERFORM CYCLE
- END-IF
- END-IF
- ADD 1 TO SUB1.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7219: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:7219"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: syntax error, unexpected (
-prog.cob:17: error: syntax error, unexpected ., expecting TIMES
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:7219"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_384
-#AT_START_385
-at_fn_group_banner 385 'syn_misc.at:7226' \
- "PERFORM THRU syntax checks" " " 2
-at_xfail=no
-(
- printf "%s\n" "385. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- MAIN SECTION.
- MAIN-00.
- PERFORM SUB1
- PERFORM SUB1 THRU SUB1-EX
- PERFORM SUB1-00 THRU SUB1-EX
- PERFORM SUB1 THRU SUB1
- PERFORM SUB1 THRU SUB2
- GOBACK.
- MAIN-EX. EXIT.
- *
- SUB1 SECTION.
- SUB1-00.
- PERFORM SUB1-01 THRU SUB1-02.
- SUB1-01.
- CONTINUE.
- SUB1-02.
- CONTINUE.
- SUB1-EX. EXIT.
- *
- SUB2 SECTION.
- SUB2-00.
- PERFORM SUB1-02 THRU SUB1-01.
- SUB2-01.
- CONTINUE.
- SUB2-02.
- CONTINUE.
- SUB2-EX. EXIT.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7262: \$COMPILE_ONLY -Wno-suspicious-perform-thru prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wno-suspicious-perform-thru prog.cob" "syn_misc.at:7262"
-( $at_check_trace; $COMPILE_ONLY -Wno-suspicious-perform-thru prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:7262"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7263: \$COMPILE_ONLY -Wall -fsection-exit-check prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wall -fsection-exit-check prog.cob" "syn_misc.at:7263"
-( $at_check_trace; $COMPILE_ONLY -Wall -fsection-exit-check prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in section 'SUB2':
-prog.cob: in paragraph 'SUB2-00':
-prog.cob:11: warning: PERFORM ... THROUGH SECTION and -fsection-exit-check are mutually exclusive
-prog.cob:26: warning: SUB1-01 is defined before SUB1-02
-prog.cob:20: note: 'SUB1-02' defined here
-prog.cob:18: note: 'SUB1-01' defined here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:7263"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_385
-#AT_START_386
-at_fn_group_banner 386 'syn_misc.at:7274' \
- "VALIDATE parsing" " " 2
-at_xfail=no
-(
- printf "%s\n" "386. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# Note: so far the VALIDATE statement is only partial implemented in the
-# compiler, but it is planned to completely add it
-# This syntax example also show-cases a bunch of other COBOL 2002 options
-# which would otherwise be not checked elsewhere so far
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- *> D.22.7.1 Example of validation of USAGE DISPLAY items
- *>
- *>*************************************************************
- *>Description of target record (note: should be possible to define later)
- *>*************************************************************
- *>This is set up by the optional DESTINATION clauses defined
- *>in the input record;
- *>if a format error is found, a default value is stored instead.
- 01 TARGET-AREA.
- 05 OUT-NAME PIC X(20).
- 05 OUT-WEEK PIC 99 COMP OCCURS 5.
- *>*************************************************************
- *>Validated items
- *>*************************************************************
- 01 INPUT-RECORD.
- *>PIC 99 checks that IN-TYPE is 2 characters numeric;
- 03 IN-TYPE PIC 99
- *>if IN-TYPE fails the PICTURE check, it is assumed to be 1;
- *>without a DEFAULT clause, the assumed value would here be 0.
- DEFAULT 1.
- *>PRESENT WHEN states the condition for this format to be used.
- 03 IN-REC-FORMAT-1 PRESENT WHEN IN-TYPE = 0 OR 1 OR 2.
- *>PICTURE A(20) checks for 20 alphabetic (or space) characters.
- 05 IN-NAME PIC A(20)
- *>PRESENT WHEN defines when the validation clauses for this data item apply:
- PRESENT WHEN IN-TYPE = 0 OR 1
- *>CLASS checks each character for a class defined in SPECIAL-NAMES
- *>or a predefined class
- CLASS IS ALPHABETIC-UPPER
- *>DESTINATION moves this item (or spaces if not alpha) to OUT-NAME.
- DESTINATION OUT-NAME.
- *>PRESENT WHEN checks whether the item is "blank" under this condition
- 05 FILLER REDEFINES IN-NAME PIC X(20) *> should PIC be optional?
- PRESENT WHEN IN-TYPE = 2
- DESTINATION OUT-NAME.
- 88 VALUE SPACES IS VALID.
- *>The values of IN-WEEK are checked to be in non-descending order.
- 05 IN-WEEK PIC 99 OCCURS 5
- VARYING IN-WEEK-NO FROM 1, IN-NEXT-WEEK-NO FROM 2
- INVALID WHEN IN-WEEK-NO < 5
- AND IN-WEEK (IN-WEEK-NO) > IN-WEEK (IN-NEXT-WEEK-NO)
- *>OUT-WEEK (1) to (5) will hold the values of IN-WEEK (1) to (5),
- *>or zero for any one that failed the format (PICTURE) test.
- DESTINATION OUT-WEEK (IN-WEEK-NO).
- *>The 88-level INVALID entries check for invalid ranges of values.
- 88 VALUES 0, 53 THRU 99 ARE INVALID.
- *>REDEFINES and another PRESENT WHEN define an alternate format.
- 03 IN-REC-FORMAT-2 REDEFINES IN-REC-FORMAT-1
- PRESENT WHEN IN-TYPE > 2.
- *>IN-PAY has insertion characters that must be present on input.
- 05 IN-PAY PIC ZZ,ZZZ.ZZ.
- *>The 88-level VALID entries check for valid ranges of values;
- *>the condition-name, if present, may be used in the usual way.
- *>The following assume that DECIMAL POINT IS COMMA is not specified.
- 88 IN-PAY-OK VALUES "10,000.00" THRU "20,000.00" ARE VALID.
- *>88-level entries may also have a condition attached.
- 88 VALUES "20,000.01" THRU "30,000.00" ARE VALID
- WHEN IN-TYPE = 8.
- *>exceptional cases can be specified using PRESENT WHEN
- 05 IN-CODE PIC AX(3)9(4)
- PRESENT WHEN IN-CODE NOT = "UNKNOWN".
- 05 FILLER PIC X(13).
- *>
- *>*************************************************************
- *> Description of error messages
- *>*************************************************************
- *>Error messages or flags are set up or cleared automatically
- *>when the VALIDATE statement is executed; the programmer chooses
- *>where they go and what messages or values they contain;
- *>they need not be contiguous as they are in this example.
- 01 VALIDATE-MESSAGES.
- 03 PIC X(40) VALIDATE-STATUS "Unknown Record Type - 1 assumed"
- WHEN ERROR FOR IN-TYPE
- *> more than one VALIDATE-STATUS clause may be defined in one entry;
- *> a NO ERROR phrase produces a message when the item is valid.
- VALIDATE-STATUS "Record type Accepted"
- WHEN NO ERROR FOR IN-TYPE.
- *> The VALIDATE-STATUS clause can pinpoint the stage of the failed check.
- 03 PIC X(40) VALIDATE-STATUS "Name not alphabetic"
- WHEN ERROR ON FORMAT FOR IN-NAME
- VALIDATE-STATUS "Lower-case not allowed in name"
- WHEN ERROR ON CONTENT FOR IN-NAME
- VALIDATE-STATUS "Name not allowed in this case"
- WHEN ERROR ON RELATION FOR IN-NAME.
- *> If no message is stored, spaces will be stored in these cases.
- *> Errors may also be indicated by flags;
- *> they may also refer to a table of input items.
- 03 W-ERROR-FLAG PIC 9 COMP OCCURS 5
- VALIDATE-STATUS 1 WHEN ERROR FOR IN-WEEK.
- *>An EC-VALIDATE (nonfatal) exception is also set if the
- *>VALIDATE statement detects an invalid condition.
-
-
- *> From D.22.7.2 Example of validation of non-display items:
- 01 MIXED-GROUP TYPEDEF STRONG.
- 05 FLD-1 PIC S9(4) USAGE COMP.
- 05 FLD-2 PIC S9(7) USAGE PACKED-DECIMAL.
- 05 FLD-3 PIC 1(8) USAGE BIT ALIGNED.
- 05 PTR-1 USAGE INDEX.
- 05 PTR-2 USAGE OBJECT REFERENCE.
- 05 TXT-1 PIC N(12) USAGE NATIONAL.
- 01 MY-MIXED-GROUP TYPE MIXED-GROUP.
-
-
- *>
- *>*************************************************************
- *>Execution of the VALIDATE statement
- *>*************************************************************
- PROCEDURE DIVISION.
-
- *>A single VALIDATE statement performs all the actions implied
- *>in the above data descriptions.
- VALIDATE INPUT-RECORD
- *>After this statement has been executed:
- *>(1) the input record is unchanged;
- *>(2) input items are moved automatically to the target area;
- *>(3) error messages are set up wherever specified in the program.
- *>
-
- *> From D.22.7.2 Example of validation of non-display items:
- *>A declarative section could be used instead of VALIDATE-STATUS clauses
- *>especially if errors are not expected.
- *>> TURN EC-VALIDATE CHECKING ON
- VALIDATE MY-MIXED-GROUP
-
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7415: \$COMPILE_ONLY -Wno-pending -Wno-unfinished -free prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wno-pending -Wno-unfinished -free prog.cob" "syn_misc.at:7415"
-( $at_check_trace; $COMPILE_ONLY -Wno-pending -Wno-unfinished -free prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:7415"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_386
-#AT_START_387
-at_fn_group_banner 387 'syn_misc.at:7421' \
- "field-tree via COBC_GEN_DUMP_COMMENTS" " " 2
-at_xfail=no
-(
- printf "%s\n" "387. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# Skip due to change in N type specifications
-printf "%s\n" "syn_misc.at:7425" >"$at_check_line_file"
-at_fn_check_skip 77 "$at_srcdir/syn_misc.at:7425"
-
-# Note: this is a feature which is used in external tools, primarily
-# cobcd from COBOLworx debugging extensions, this test does only
-# verify that modules compiled with that can be compiled and
-# that the expected content is found in the dump code (everything
-# which is not related to the actual dump is included as comment
-# Note2: This feature will vanish if/when cobc gets an option to output
-# its (parse) trees.
-
-cat >prog.cob <<'_ATEOF'
-
- identification division.
- program-id. debugme.
- data division.
- working-storage section.
- 01 numeric-data.
- 05 disp usage display pic s99v999 value -12.34.
- 05 disp-u usage display pic 99v999 value 12.34.
- 05 dispp usage display pic sppp9999 value -.000123.
- 05 dispp-u usage display pic ppp9999 value .000123.
- 05 disppp usage display pic s9999ppp value -1234000.
- 05 disppp-u usage display pic 9999ppp value 1234000.
- 05 bin usage binary pic s99v999 value -12.34.
- 05 bin-u usage binary pic 99v999 value 12.34.
- 05 cmp3 usage packed-decimal pic s99v999 value -12.34.
- 05 cmp3-u usage packed-decimal pic 99v999 value 12.34.
- 05 cmp5 usage comp-5 pic s99v999 value -12.34.
- 05 cmp5-u usage comp-5 pic 99v999 value 12.34.
- 05 cmp6 usage comp-6 pic 99v999 value 12.34.
- 05 cmpx usage comp-x pic s99v999 value -12.34.
- 05 cmpx-u usage comp-x pic 99v999 value 12.34.
- 05 cmpn usage comp-n pic s99v999 value -12.34.
- 05 cmpn-u usage comp-n pic 99v999 value 12.34.
- 05 chr usage binary-char signed value -128.
- 05 chr-u usage binary-char unsigned value 254.
- 05 shrt usage binary-short signed value -32768.
- 05 shrt-u usage binary-short unsigned value 65535.
- 05 long usage binary-long signed value -2147483648.
- 05 long-u usage binary-long unsigned value 4294967295.
- 05 dble usage binary-double signed value -4294967295.
- 05 dble-u usage binary-double unsigned value 8294967295.
- * 05 cmp0 usage comp-0. TODO
- 01 floating-data.
- 05 dbl usage float-long value -3.40282e+038.
- 05 flt usage float-short value 3.40282e+038.
- * 05 b32 usage FLOAT-BINARY-32 signed. TODO
- * 05 b64 usage FLOAT-BINARY-64 signed. TODO
- * 05 b128 usage FLOAT-BINARY-128 signed. TODO
- * 05 b32-u usage FLOAT-BINARY-32 unsigned. TODO
- * 05 b64-u usage FLOAT-BINARY-64 unsigned. TODO
- * 05 b128-u usage FLOAT-BINARY-128 unsigned. TODO
- *
- * --> missing: floating point edited pictures,
- * those are left to the reader as excercise :-)
- 77 x36 pic x(36) is typedef.
- * In the following block, "sync" prevents SIGBUS errors on SOLARIS systems.
- 01 special-data.
- 05 r2d2 usage bit pic 111 value b'110'.
- *> disabled for now because of varying size
- *> 05 point usage pointer sync.
- *> 05 ppoint usage program-pointer sync.
- *> 05 idx usage index sync.
- *> 05 hnd usage handle sync.
- 01 alphanumeric-data.
- 05 alpnum usage x36 value "some numb3rs 4 n00bs l1k3 m3".
- 05 alpha pic a(36) value "thats some text".
- 05 edit-num1 pic --9.999.
- 05 edit-num2 pic ++9.999.
- 05 edit-num3 pic zz9.999.
- 05 edit-num4 pic -zz9.999 blank when zero.
- 01 national-data.
- 05 nat pic n(36) value "data shown here will change.".
- 05 nat-num pic 9(12)v9(3) usage national.
- 05 net-num1 pic --9.999 usage national.
- 05 net-num2 pic ++9.999 usage national.
- 05 net-num3 pic zz9.999 usage national.
- 05 net-num4 pic -zz9.999 usage national blank when zero.
- *
- 01 occurs 2 to 5 times depending on chr indexed by x-idx.
- 03 x-basis.
- 05 x-a pic x(01) value space.
- 05 x-b pic x(01) value space.
- 05 x-c pic x(01) value space.
- 03 filler redefines x-basis pic x(03).
- 88 sw-x-basis-full value "xxx".
- 01 x-rms.
- 05 x-rms-a pic x(01) value space.
- 01 filler redefines x-rms pic x(01).
- 88 sw-x-rms-full value "X" or "A" thru "C" or QUOTE.
-
- local-storage section.
- 01 var1 pic x.
- 01 var2.
- 03 var2a pic x.
- 03 var2b pic 9.
- 88 yay values zero, 2 through 5, 9.
-_ATEOF
-
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7525: COBC_GEN_DUMP_COMMENTS=1 \\
- \$COMPILE -C -fdump=all -w prog.cob"
-at_fn_check_prepare_notrace 'an embedded newline' "syn_misc.at:7525"
-( $at_check_trace; COBC_GEN_DUMP_COMMENTS=1 \
- $COMPILE -C -fdump=all -w prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:7525"
-$at_failed && at_fn_log_failure \
-"prog.c"
-$at_traceon; }
-
-# TODO: only execute this piece when extended $GREP works
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7528: (\$GREP -A 200 \"P_dump:\" prog.c | \$GREP -B 200 \"END OF DUMP\") || exit 77"
-at_fn_check_prepare_notrace 'a shell pipeline' "syn_misc.at:7528"
-( $at_check_trace; ($GREP -A 200 "P_dump:" prog.c | $GREP -B 200 "END OF DUMP") || exit 77
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " P_dump:
- /* Dump WORKING-STORAGE */
- cob_dump_output (\"WORKING-STORAGE\");
- cob_dump_field_ext (77, \"RETURN-CODE\", COB_SET_FLD (f0, 4, (cob_u8_t *)&b_2, &a_46), 0, 0);
- cob_dump_field_ext ( 1, \"numeric-data\", COB_SET_FLD (f0, 93, b_17, &a_47), 0, 0);
- cob_dump_field_ext ( 5, \"disp\", COB_SET_FLD (f0, 5, b_17, &a_2), 0, 0);
- cob_dump_field_ext ( 5, \"disp-u\", COB_SET_FLD (f0, 5, b_17 + 5, &a_4), 0, 0);
- cob_dump_field_ext ( 5, \"dispp\", COB_SET_FLD (f0, 4, b_17 + 10, &a_6), 0, 0);
- cob_dump_field_ext ( 5, \"dispp-u\", COB_SET_FLD (f0, 4, b_17 + 14, &a_8), 0, 0);
- cob_dump_field_ext ( 5, \"disppp\", COB_SET_FLD (f0, 4, b_17 + 18, &a_10), 0, 0);
- cob_dump_field_ext ( 5, \"disppp-u\", COB_SET_FLD (f0, 4, b_17 + 22, &a_12), 0, 0);
- cob_dump_field_ext ( 5, \"bin\", COB_SET_FLD (f0, 4, b_17 + 26, &a_13), 0, 0);
- cob_dump_field_ext ( 5, \"bin-u\", COB_SET_FLD (f0, 4, b_17 + 30, &a_14), 0, 0);
- cob_dump_field_ext ( 5, \"cmp3\", COB_SET_FLD (f0, 3, b_17 + 34, &a_15), 0, 0);
- cob_dump_field_ext ( 5, \"cmp3-u\", COB_SET_FLD (f0, 3, b_17 + 37, &a_16), 0, 0);
- cob_dump_field_ext ( 5, \"cmp5\", COB_SET_FLD (f0, 4, b_17 + 40, &a_17), 0, 0);
- cob_dump_field_ext ( 5, \"cmp5-u\", COB_SET_FLD (f0, 4, b_17 + 44, &a_18), 0, 0);
- cob_dump_field_ext ( 5, \"cmp6\", COB_SET_FLD (f0, 3, b_17 + 48, &a_19), 0, 0);
- cob_dump_field_ext ( 5, \"cmpx\", COB_SET_FLD (f0, 3, b_17 + 51, &a_20), 0, 0);
- cob_dump_field_ext ( 5, \"cmpx-u\", COB_SET_FLD (f0, 3, b_17 + 54, &a_21), 0, 0);
- cob_dump_field_ext ( 5, \"cmpn\", COB_SET_FLD (f0, 3, b_17 + 57, &a_20), 0, 0);
- cob_dump_field_ext ( 5, \"cmpn-u\", COB_SET_FLD (f0, 3, b_17 + 60, &a_21), 0, 0);
- cob_dump_field_ext ( 5, \"chr\", &f_35, 0, 0);
- cob_dump_field_ext ( 5, \"chr-u\", COB_SET_FLD (f0, 1, b_17 + 64, &a_25), 0, 0);
- cob_dump_field_ext ( 5, \"shrt\", COB_SET_FLD (f0, 2, b_17 + 65, &a_27), 0, 0);
- cob_dump_field_ext ( 5, \"shrt-u\", COB_SET_FLD (f0, 2, b_17 + 67, &a_29), 0, 0);
- cob_dump_field_ext ( 5, \"long\", COB_SET_FLD (f0, 4, b_17 + 69, &a_31), 0, 0);
- cob_dump_field_ext ( 5, \"long-u\", COB_SET_FLD (f0, 4, b_17 + 73, &a_33), 0, 0);
- cob_dump_field_ext ( 5, \"dble\", COB_SET_FLD (f0, 8, b_17 + 77, &a_34), 0, 0);
- cob_dump_field_ext ( 5, \"dble-u\", COB_SET_FLD (f0, 8, b_17 + 85, &a_35), 0, 0);
- cob_dump_field_ext ( 1, \"floating-data\", COB_SET_FLD (f0, 12, b_43, &a_47), 0, 0);
- cob_dump_field_ext ( 5, \"dbl\", COB_SET_FLD (f0, 8, b_43, &a_37), 0, 0);
- cob_dump_field_ext ( 5, \"flt\", COB_SET_FLD (f0, 4, b_43 + 8, &a_39), 0, 0);
- cob_dump_field_ext ( 1, \"special-data\", COB_SET_FLD (f0, 1, b_47, &a_47), 0, 0);
- cob_dump_field_ext ( 5, \"r2d2\", COB_SET_FLD (f0, 1, b_47, &a_41), 0, 0);
- cob_dump_field_ext ( 1, \"alphanumeric-data\", COB_SET_FLD (f0, 101, b_49, &a_47), 0, 0);
- cob_dump_field_ext ( 5, \"alpnum\", COB_SET_FLD (f0, 36, b_49, &a_48), 0, 0);
- cob_dump_field_ext ( 5, \"alpha\", COB_SET_FLD (f0, 36, b_49 + 36, &a_48), 0, 0);
- cob_dump_field_ext ( 5, \"edit-num1\", COB_SET_FLD (f0, 7, b_49 + 72, &a_42), 0, 0);
- cob_dump_field_ext ( 5, \"edit-num2\", COB_SET_FLD (f0, 7, b_49 + 79, &a_43), 0, 0);
- cob_dump_field_ext ( 5, \"edit-num3\", COB_SET_FLD (f0, 7, b_49 + 86, &a_44), 0, 0);
- cob_dump_field_ext ( 5, \"edit-num4\", COB_SET_FLD (f0, 8, b_49 + 93, &a_45), 0, 0);
- cob_dump_field_ext ( 1, \"national-data\", COB_SET_FLD (f0, 160, b_56, &a_47), 0, 0);
- cob_dump_field_ext ( 5, \"nat\", COB_SET_FLD (f0, 72, b_56, &a_49), 0, 0);
- cob_dump_field_ext ( 5, \"nat-num\", COB_SET_FLD (f0, 30, b_56 + 72, &a_50), 0, 0);
- cob_dump_field_ext ( 5, \"net-num1\", COB_SET_FLD (f0, 14, b_56 + 102, &a_42), 0, 0);
- cob_dump_field_ext ( 5, \"net-num2\", COB_SET_FLD (f0, 14, b_56 + 116, &a_43), 0, 0);
- cob_dump_field_ext ( 5, \"net-num3\", COB_SET_FLD (f0, 14, b_56 + 130, &a_44), 0, 0);
- cob_dump_field_ext ( 5, \"net-num4\", COB_SET_FLD (f0, 16, b_56 + 144, &a_45), 0, 0);
- cob_dump_field_ext ( 0, \"x-idx\", COB_SET_FLD (f0, 4, (cob_u8_t *)&b_64, &a_46), 0, 0);
- {
- int i_1;
- int max_1 = (*(cob_s8_ptr) (b_17 + 63));
- if (max_1 > 5) max_1 = 5;
- for (i_1=0; i_1 < max_1; i_1++)
- {
- cob_dump_field_ext ( 1, \"FILLER\", COB_SET_FLD (f0, 3, b_63, &a_47), 0, 1, i_1, 3UL); /* OCCURS 2 5 */
- cob_dump_field_ext ( 3, \"x-basis\", COB_SET_FLD (f0, 3, b_63, &a_47), 0, 1, i_1, 3UL);
- cob_dump_field_ext ( 5, \"x-a\", COB_SET_FLD (f0, 1, b_63, &a_48), 0, 1, i_1, 3UL);
- cob_dump_field_ext ( 5, \"x-b\", COB_SET_FLD (f0, 1, b_63 + 1, &a_48), 0, 1, i_1, 3UL);
- cob_dump_field_ext ( 5, \"x-c\", COB_SET_FLD (f0, 1, b_63 + 2, &a_48), 0, 1, i_1, 3UL);
- /* cob_dump_field_ext ( 3, \"FILLER\", COB_SET_FLD (f0, 3, b_63, &a_48), 0, 1, i_1, 3UL); REDEFINES */
- /* cob_dump_field_ext (88, \"sw-x-basis-full\", COB_SET_FLD (f0, 3, b_63, &a_48), 0, 1, i_1, 3UL); VALUE (cob_field *)&c_18 */
- }
- }
- cob_dump_field_ext ( 1, \"x-rms\", COB_SET_FLD (f0, 1, b_71, &a_47), 0, 0);
- cob_dump_field_ext ( 5, \"x-rms-a\", COB_SET_FLD (f0, 1, b_71, &a_48), 0, 0);
- /* cob_dump_field_ext ( 1, \"FILLER\", COB_SET_FLD (f0, 1, b_71, &a_48), 0, 0); REDEFINES */
- /* cob_dump_field_ext (88, \"sw-x-rms-full\", COB_SET_FLD (f0, 1, b_71, &a_48), 0, 0); VALUE (cob_field *)&c_19 OR (cob_field *)&c_20 OR (cob_field *)&c_21 THRU (cob_field *)&c_22 OR (cob_field *)&c_20 OR &cob_all_quote */
-
- /* Dump LOCAL-STORAGE SECTION */
- cob_dump_output (\"LOCAL-STORAGE\");
- cob_dump_field_ext ( 1, \"var1\", COB_SET_FLD (f0, 1, cob_local_ptr, &a_48), 0, 0);
- cob_dump_field_ext ( 1, \"var2\", COB_SET_FLD (f0, 2, cob_local_ptr + 16, &a_47), 0, 0);
- cob_dump_field_ext ( 3, \"var2a\", COB_SET_FLD (f0, 1, cob_local_ptr + 16, &a_48), 0, 0);
- cob_dump_field_ext ( 3, \"var2b\", COB_SET_FLD (f0, 1, cob_local_ptr + 16 + 1, &a_52), 0, 0);
- /* cob_dump_field_ext (88, \"yay\", COB_SET_FLD (f0, 1, cob_local_ptr + 16 + 1, &a_52), 0, 0); VALUE &cob_all_zero OR (cob_field *)&c_23 THRU (cob_field *)&c_24 OR (cob_field *)&c_25 */
-
- cob_dump_output (\"END OF DUMP - debugme\");
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:7528"
-$at_failed && at_fn_log_failure \
-"prog.c"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7610: COBC_GEN_DUMP_COMMENTS=1 \\
- \$COMPILE -C -w prog.cob"
-at_fn_check_prepare_notrace 'an embedded newline' "syn_misc.at:7610"
-( $at_check_trace; COBC_GEN_DUMP_COMMENTS=1 \
- $COMPILE -C -w prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:7610"
-$at_failed && at_fn_log_failure \
-"prog.c"
-$at_traceon; }
-
-# TODO: only execute this piece when extended $GREP works
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7613: (\$GREP -A 200 \"P_dump:\" prog.c | \$GREP -B 200 \"END OF DUMP\") || exit 77"
-at_fn_check_prepare_notrace 'a shell pipeline' "syn_misc.at:7613"
-( $at_check_trace; ($GREP -A 200 "P_dump:" prog.c | $GREP -B 200 "END OF DUMP") || exit 77
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " P_dump:
- /* Dump WORKING-STORAGE (informational) */
- /* cob_dump_output (\"WORKING-STORAGE\"); */
- /* cob_dump_field_ext (77, \"RETURN-CODE\", COB_SET_FLD (f0, 4, (cob_u8_t *)&b_2, &a_46), 0, 0); */
- /* cob_dump_field_ext ( 1, \"numeric-data\", COB_SET_FLD (f0, 93, b_17, &a_47), 0, 0); */
- /* cob_dump_field_ext ( 5, \"disp\", COB_SET_FLD (f0, 5, b_17, &a_2), 0, 0); */
- /* cob_dump_field_ext ( 5, \"disp-u\", COB_SET_FLD (f0, 5, b_17 + 5, &a_4), 0, 0); */
- /* cob_dump_field_ext ( 5, \"dispp\", COB_SET_FLD (f0, 4, b_17 + 10, &a_6), 0, 0); */
- /* cob_dump_field_ext ( 5, \"dispp-u\", COB_SET_FLD (f0, 4, b_17 + 14, &a_8), 0, 0); */
- /* cob_dump_field_ext ( 5, \"disppp\", COB_SET_FLD (f0, 4, b_17 + 18, &a_10), 0, 0); */
- /* cob_dump_field_ext ( 5, \"disppp-u\", COB_SET_FLD (f0, 4, b_17 + 22, &a_12), 0, 0); */
- /* cob_dump_field_ext ( 5, \"bin\", COB_SET_FLD (f0, 4, b_17 + 26, &a_13), 0, 0); */
- /* cob_dump_field_ext ( 5, \"bin-u\", COB_SET_FLD (f0, 4, b_17 + 30, &a_14), 0, 0); */
- /* cob_dump_field_ext ( 5, \"cmp3\", COB_SET_FLD (f0, 3, b_17 + 34, &a_15), 0, 0); */
- /* cob_dump_field_ext ( 5, \"cmp3-u\", COB_SET_FLD (f0, 3, b_17 + 37, &a_16), 0, 0); */
- /* cob_dump_field_ext ( 5, \"cmp5\", COB_SET_FLD (f0, 4, b_17 + 40, &a_17), 0, 0); */
- /* cob_dump_field_ext ( 5, \"cmp5-u\", COB_SET_FLD (f0, 4, b_17 + 44, &a_18), 0, 0); */
- /* cob_dump_field_ext ( 5, \"cmp6\", COB_SET_FLD (f0, 3, b_17 + 48, &a_19), 0, 0); */
- /* cob_dump_field_ext ( 5, \"cmpx\", COB_SET_FLD (f0, 3, b_17 + 51, &a_20), 0, 0); */
- /* cob_dump_field_ext ( 5, \"cmpx-u\", COB_SET_FLD (f0, 3, b_17 + 54, &a_21), 0, 0); */
- /* cob_dump_field_ext ( 5, \"cmpn\", COB_SET_FLD (f0, 3, b_17 + 57, &a_20), 0, 0); */
- /* cob_dump_field_ext ( 5, \"cmpn-u\", COB_SET_FLD (f0, 3, b_17 + 60, &a_21), 0, 0); */
- /* cob_dump_field_ext ( 5, \"chr\", &f_35, 0, 0); */
- /* cob_dump_field_ext ( 5, \"chr-u\", COB_SET_FLD (f0, 1, b_17 + 64, &a_25), 0, 0); */
- /* cob_dump_field_ext ( 5, \"shrt\", COB_SET_FLD (f0, 2, b_17 + 65, &a_27), 0, 0); */
- /* cob_dump_field_ext ( 5, \"shrt-u\", COB_SET_FLD (f0, 2, b_17 + 67, &a_29), 0, 0); */
- /* cob_dump_field_ext ( 5, \"long\", COB_SET_FLD (f0, 4, b_17 + 69, &a_31), 0, 0); */
- /* cob_dump_field_ext ( 5, \"long-u\", COB_SET_FLD (f0, 4, b_17 + 73, &a_33), 0, 0); */
- /* cob_dump_field_ext ( 5, \"dble\", COB_SET_FLD (f0, 8, b_17 + 77, &a_34), 0, 0); */
- /* cob_dump_field_ext ( 5, \"dble-u\", COB_SET_FLD (f0, 8, b_17 + 85, &a_35), 0, 0); */
- /* cob_dump_field_ext ( 1, \"floating-data\", COB_SET_FLD (f0, 12, b_43, &a_47), 0, 0); */
- /* cob_dump_field_ext ( 5, \"dbl\", COB_SET_FLD (f0, 8, b_43, &a_37), 0, 0); */
- /* cob_dump_field_ext ( 5, \"flt\", COB_SET_FLD (f0, 4, b_43 + 8, &a_39), 0, 0); */
- /* cob_dump_field_ext ( 1, \"special-data\", COB_SET_FLD (f0, 1, b_47, &a_47), 0, 0); */
- /* cob_dump_field_ext ( 5, \"r2d2\", COB_SET_FLD (f0, 1, b_47, &a_41), 0, 0); */
- /* cob_dump_field_ext ( 1, \"alphanumeric-data\", COB_SET_FLD (f0, 101, b_49, &a_47), 0, 0); */
- /* cob_dump_field_ext ( 5, \"alpnum\", COB_SET_FLD (f0, 36, b_49, &a_48), 0, 0); */
- /* cob_dump_field_ext ( 5, \"alpha\", COB_SET_FLD (f0, 36, b_49 + 36, &a_48), 0, 0); */
- /* cob_dump_field_ext ( 5, \"edit-num1\", COB_SET_FLD (f0, 7, b_49 + 72, &a_42), 0, 0); */
- /* cob_dump_field_ext ( 5, \"edit-num2\", COB_SET_FLD (f0, 7, b_49 + 79, &a_43), 0, 0); */
- /* cob_dump_field_ext ( 5, \"edit-num3\", COB_SET_FLD (f0, 7, b_49 + 86, &a_44), 0, 0); */
- /* cob_dump_field_ext ( 5, \"edit-num4\", COB_SET_FLD (f0, 8, b_49 + 93, &a_45), 0, 0); */
- /* cob_dump_field_ext ( 1, \"national-data\", COB_SET_FLD (f0, 160, b_56, &a_47), 0, 0); */
- /* cob_dump_field_ext ( 5, \"nat\", COB_SET_FLD (f0, 72, b_56, &a_49), 0, 0); */
- /* cob_dump_field_ext ( 5, \"nat-num\", COB_SET_FLD (f0, 30, b_56 + 72, &a_50), 0, 0); */
- /* cob_dump_field_ext ( 5, \"net-num1\", COB_SET_FLD (f0, 14, b_56 + 102, &a_42), 0, 0); */
- /* cob_dump_field_ext ( 5, \"net-num2\", COB_SET_FLD (f0, 14, b_56 + 116, &a_43), 0, 0); */
- /* cob_dump_field_ext ( 5, \"net-num3\", COB_SET_FLD (f0, 14, b_56 + 130, &a_44), 0, 0); */
- /* cob_dump_field_ext ( 5, \"net-num4\", COB_SET_FLD (f0, 16, b_56 + 144, &a_45), 0, 0); */
- /* cob_dump_field_ext ( 0, \"x-idx\", COB_SET_FLD (f0, 4, (cob_u8_t *)&b_64, &a_46), 0, 0); */
- {
- /* int max_1 = (*(cob_s8_ptr) (b_17 + 63)); */
- {
- /* cob_dump_field_ext ( 1, \"FILLER\", COB_SET_FLD (f0, 3, b_63, &a_47), 0, 1, i_1, 3UL); OCCURS 2 5 */
- /* cob_dump_field_ext ( 3, \"x-basis\", COB_SET_FLD (f0, 3, b_63, &a_47), 0, 1, i_1, 3UL); */
- /* cob_dump_field_ext ( 5, \"x-a\", COB_SET_FLD (f0, 1, b_63, &a_48), 0, 1, i_1, 3UL); */
- /* cob_dump_field_ext ( 5, \"x-b\", COB_SET_FLD (f0, 1, b_63 + 1, &a_48), 0, 1, i_1, 3UL); */
- /* cob_dump_field_ext ( 5, \"x-c\", COB_SET_FLD (f0, 1, b_63 + 2, &a_48), 0, 1, i_1, 3UL); */
- /* cob_dump_field_ext ( 3, \"FILLER\", COB_SET_FLD (f0, 3, b_63, &a_48), 0, 1, i_1, 3UL); REDEFINES */
- /* cob_dump_field_ext (88, \"sw-x-basis-full\", COB_SET_FLD (f0, 3, b_63, &a_48), 0, 1, i_1, 3UL); VALUE (cob_field *)&c_18 */
- }
- }
- /* cob_dump_field_ext ( 1, \"x-rms\", COB_SET_FLD (f0, 1, b_71, &a_47), 0, 0); */
- /* cob_dump_field_ext ( 5, \"x-rms-a\", COB_SET_FLD (f0, 1, b_71, &a_48), 0, 0); */
- /* cob_dump_field_ext ( 1, \"FILLER\", COB_SET_FLD (f0, 1, b_71, &a_48), 0, 0); REDEFINES */
- /* cob_dump_field_ext (88, \"sw-x-rms-full\", COB_SET_FLD (f0, 1, b_71, &a_48), 0, 0); VALUE (cob_field *)&c_19 OR (cob_field *)&c_20 OR (cob_field *)&c_21 THRU (cob_field *)&c_22 OR (cob_field *)&c_20 OR &cob_all_quote */
-
- /* Dump LOCAL-STORAGE SECTION (informational) */
- /* cob_dump_output (\"LOCAL-STORAGE\"); */
- /* cob_dump_field_ext ( 1, \"var1\", COB_SET_FLD (f0, 1, cob_local_ptr, &a_48), 0, 0); */
- /* cob_dump_field_ext ( 1, \"var2\", COB_SET_FLD (f0, 2, cob_local_ptr + 16, &a_47), 0, 0); */
- /* cob_dump_field_ext ( 3, \"var2a\", COB_SET_FLD (f0, 1, cob_local_ptr + 16, &a_48), 0, 0); */
- /* cob_dump_field_ext ( 3, \"var2b\", COB_SET_FLD (f0, 1, cob_local_ptr + 16 + 1, &a_52), 0, 0); */
- /* cob_dump_field_ext (88, \"yay\", COB_SET_FLD (f0, 1, cob_local_ptr + 16 + 1, &a_52), 0, 0); VALUE &cob_all_zero OR (cob_field *)&c_23 THRU (cob_field *)&c_24 OR (cob_field *)&c_25 */
-
- /* cob_dump_output (\"END OF DUMP - debugme\"); */
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:7613"
-$at_failed && at_fn_log_failure \
-"prog.c"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7692: \$COMPILE -C -w prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -C -w prog.cob" "syn_misc.at:7692"
-( $at_check_trace; $COMPILE -C -w prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:7692"
-$at_failed && at_fn_log_failure \
-"prog.c"
-$at_traceon; }
-
-# TODO: only execute this piece when extended $GREP works
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7694: (\$GREP -A 200 \"P_dump:\" prog.c | \$GREP -B 200 \" CANCEL \") || exit 77"
-at_fn_check_prepare_notrace 'a shell pipeline' "syn_misc.at:7694"
-( $at_check_trace; ($GREP -A 200 "P_dump:" prog.c | $GREP -B 200 " CANCEL ") || exit 77
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " P_dump:
- return 0;
-
-
- /* CANCEL callback handling */
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:7694"
-$at_failed && at_fn_log_failure \
-"prog.c"
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_387
-#AT_START_388
-at_fn_group_banner 388 'syn_misc.at:7704' \
- "CONTROL DIVISION" " " 2
-at_xfail=no
-(
- printf "%s\n" "388. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >empty.cob <<'_ATEOF'
-
- CONTROL DIVISION.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. empty.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7713: \$COMPILE_ONLY -fcontrol-division=ok empty.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fcontrol-division=ok empty.cob" "syn_misc.at:7713"
-( $at_check_trace; $COMPILE_ONLY -fcontrol-division=ok empty.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:7713"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >replace.cob <<'_ATEOF'
-
- CONTROL DIVISION.
- SUBSTITUTION SECTION.
- REPLACE ==TEST-VAR== BY ==VAR==.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. replace.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TEST-VAR PIC X(2) VALUE "OK".
- PROCEDURE DIVISION.
- DISPLAY VAR NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7730: \$COMPILE -fcontrol-division=ok replace.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fcontrol-division=ok replace.cob" "syn_misc.at:7730"
-( $at_check_trace; $COMPILE -fcontrol-division=ok replace.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:7730"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7731: \$COBCRUN_DIRECT ./replace"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./replace" "syn_misc.at:7731"
-( $at_check_trace; $COBCRUN_DIRECT ./replace
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:7731"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7732: \$COMPILE replace.cob"
-at_fn_check_prepare_dynamic "$COMPILE replace.cob" "syn_misc.at:7732"
-( $at_check_trace; $COMPILE replace.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "replace.cob:2: error: CONTROL DIVISION does not conform to GnuCOBOL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:7732"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >replace.cob <<'_ATEOF'
-
- CONTROL DIVISION.
- REPLACE ==TEST-VAR== BY ==VAR==.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. replace.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TEST-VAR PIC X(2) VALUE "OK".
- PROCEDURE DIVISION.
- DISPLAY VAR NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7750: \$COMPILE -fcontrol-division=ok replace.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fcontrol-division=ok replace.cob" "syn_misc.at:7750"
-( $at_check_trace; $COMPILE -fcontrol-division=ok replace.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:7750"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7751: \$COBCRUN_DIRECT ./replace"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./replace" "syn_misc.at:7751"
-( $at_check_trace; $COBCRUN_DIRECT ./replace
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:7751"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_388
-#AT_START_389
-at_fn_group_banner 389 'syn_misc.at:7756' \
- "CONTROL: empty default section" " " 2
-at_xfail=no
-(
- printf "%s\n" "389. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- CONTROL DIVISION.
- DEFAULT SECTION.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 VAR PIC X(2) VALUE "OK".
- PROCEDURE DIVISION.
- DISPLAY VAR NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7773: \$COMPILE -fcontrol-division=ok prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fcontrol-division=ok prog.cob" "syn_misc.at:7773"
-( $at_check_trace; $COMPILE -fcontrol-division=ok prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:7773"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7774: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "syn_misc.at:7774"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:7774"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7775: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "syn_misc.at:7775"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:2: error: CONTROL DIVISION does not conform to GnuCOBOL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:7775"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_389
-#AT_START_390
-at_fn_group_banner 390 'syn_misc.at:7782' \
- "CONTROL: default section" " " 2
-at_xfail=no
-(
- printf "%s\n" "390. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- CONTROL DIVISION.
- DEFAULT SECTION.
- ACCEPT ALTERNATE CONSOLE
- DISPLAY IS TERMINAL
- .
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 VAR PIC X(2) VALUE "OK".
- PROCEDURE DIVISION.
- DISPLAY VAR NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7802: \$COMPILE -fcontrol-division=ok prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fcontrol-division=ok prog.cob" "syn_misc.at:7802"
-( $at_check_trace; $COMPILE -fcontrol-division=ok prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:4: warning: ACCEPT statement in DEFAULT SECTION is not implemented
-prog.cob:5: warning: DISPLAY statement in DEFAULT SECTION is not implemented
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:7802"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7806: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "syn_misc.at:7806"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:7806"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7807: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "syn_misc.at:7807"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:2: error: CONTROL DIVISION does not conform to GnuCOBOL
-prog.cob:4: warning: ACCEPT statement in DEFAULT SECTION is not implemented
-prog.cob:5: warning: DISPLAY statement in DEFAULT SECTION is not implemented
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:7807"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_390
-#AT_START_391
-at_fn_group_banner 391 'syn_misc.at:7816' \
- "CONTROL: substitution & default section" " " 2
-at_xfail=no
-(
- printf "%s\n" "391. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >empties.cob <<'_ATEOF'
-
- CONTROL DIVISION.
- SUBSTITUTION SECTION.
- DEFAULT SECTION.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. empties.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7829: \$COMPILE -fcontrol-division=ok empties.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fcontrol-division=ok empties.cob" "syn_misc.at:7829"
-( $at_check_trace; $COMPILE -fcontrol-division=ok empties.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:7829"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >empty0.cob <<'_ATEOF'
-
- CONTROL DIVISION.
- SUBSTITUTION SECTION.
- DEFAULT SECTION.
- ACCEPT ALTERNATE CONSOLE
- .
- IDENTIFICATION DIVISION.
- PROGRAM-ID. empty0.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7843: \$COMPILE -fcontrol-division=ok empty0.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fcontrol-division=ok empty0.cob" "syn_misc.at:7843"
-( $at_check_trace; $COMPILE -fcontrol-division=ok empty0.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "empty0.cob:5: warning: ACCEPT statement in DEFAULT SECTION is not implemented
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:7843"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >empty1.cob <<'_ATEOF'
-
- CONTROL DIVISION.
- SUBSTITUTION SECTION.
- REPLACE "KO" BY "OK".
- DEFAULT SECTION.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. empty1.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 VAR PIC X(2) VALUE "KO".
- PROCEDURE DIVISION.
- DISPLAY VAR NO ADVANCING
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7862: \$COMPILE -fcontrol-division=ok empty1.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fcontrol-division=ok empty1.cob" "syn_misc.at:7862"
-( $at_check_trace; $COMPILE -fcontrol-division=ok empty1.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:7862"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7863: \$COBCRUN_DIRECT ./empty1"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./empty1" "syn_misc.at:7863"
-( $at_check_trace; $COBCRUN_DIRECT ./empty1
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:7863"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog.cob <<'_ATEOF'
-
- CONTROL DIVISION.
- SUBSTITUTION SECTION.
- REPLACE IISS BY IS
- TERM BY TERMINAL
- "KO" BY "OK".
- DEFAULT SECTION.
- ACCEPT ALTERNATE CONSOLE
- DISPLAY IISS TERM
- .
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 VAR PIC X(2) VALUE "KO".
- PROCEDURE DIVISION.
- DISPLAY VAR NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7886: \$COMPILE -fcontrol-division=ok prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fcontrol-division=ok prog.cob" "syn_misc.at:7886"
-( $at_check_trace; $COMPILE -fcontrol-division=ok prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: warning: ACCEPT statement in DEFAULT SECTION is not implemented
-prog.cob:9: warning: DISPLAY statement in DEFAULT SECTION is not implemented
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:7886"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7890: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "syn_misc.at:7890"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:7890"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_391
-#AT_START_392
-at_fn_group_banner 392 'syn_misc.at:7895' \
- "CONTROL DIVISION & AREACHECK" " " 2
-at_xfail=no
-(
- printf "%s\n" "392. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- CONTROL DIVISION.
- SUBSTITUTION SECTION.
- *> This REPLACE in Area A is ignored for now:
- REPLACE IISS BY IS
- TERM BY TERMINAL
- "KO" BY "OK".
- DEFAULT SECTION.
- ACCEPT ALTERNATE CONSOLE
- DISPLAY IISS TERM
- .
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 VAR PIC X(2) VALUE "KO".
- PROCEDURE DIVISION.
- DISPLAY VAR
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7919: \$COMPILE -std=gcos-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=gcos-strict prog.cob" "syn_misc.at:7919"
-( $at_check_trace; $COMPILE -std=gcos-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: warning: start of statement in Area A
-prog.cob:9: warning: ACCEPT statement in DEFAULT SECTION is not implemented
-prog.cob:10: warning: start of statement in Area A
-prog.cob:10: warning: DISPLAY statement in DEFAULT SECTION is not implemented
-prog.cob:18: warning: start of statement in Area A
-prog.cob:19: warning: start of statement in Area A
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:7919"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_392
-#AT_START_393
-at_fn_group_banner 393 'syn_misc.at:7931' \
- "PICTURE L" " " 2
-at_xfail=no
-(
- printf "%s\n" "393. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog_extraneous_depending.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog_extraneous_depending.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 1 L COMP-1.
- 1 F-DAT PICTURE X(10) DEPENDING ON L.
- PROCEDURE DIVISION.
- MOVE SPACES TO F-DAT
- STOP RUN.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7945: \$COMPILE_ONLY prog_extraneous_depending.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog_extraneous_depending.cob" "syn_misc.at:7945"
-( $at_check_trace; $COMPILE_ONLY prog_extraneous_depending.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog_extraneous_depending.cob:7: error: DEPENDING clause needs either an OCCURS clause or a variable-length PICTURE
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:7945"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog_missing_depending.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog_missing_depending.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 1 F-DAT PICTURE LX(10).
- PROCEDURE DIVISION.
- MOVE SPACES TO F-DAT
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7960: \$COMPILE_ONLY prog_missing_depending.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog_missing_depending.cob" "syn_misc.at:7960"
-( $at_check_trace; $COMPILE_ONLY prog_missing_depending.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog_missing_depending.cob:6: error: variable-length PICTURE requires DEPENDING clause
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:7960"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog_value.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog_value.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 1 L COMP-1 VALUE 10.
- 1 F-DAT PICTURE LX(10) DEPENDING ON L
- VALUE "0123456789".
- 1 F-DAT2 PICTURE LX(10) DEPENDING ON L
- BLANK WHEN ZERO.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7977: \$COMPILE_ONLY prog_value.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog_value.cob" "syn_misc.at:7977"
-( $at_check_trace; $COMPILE_ONLY prog_value.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog_value.cob:7: error: variable-length PICTURE and VALUE are mutually exclusive
-prog_value.cob:9: error: 'F-DAT2' cannot have BLANK WHEN ZERO clause
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:7977"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog_errs.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog_errs.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 1 W-LGS.
- 2 LGS PICTURE X(10).
- 1 W-DATA.
- 2 L-DAT PICTURE LX(10) DEPENDING ON LGS.
- 2 L-ERR1 PICTURE L9 DEPENDING ON LGS.
- 2 L-ERR2 PICTURE XXXXLA(2) DEPENDING ON LGS.
- 2 L-ERR3 PICTURE LX(1) DEPENDING ON LGS JUSTIFIED.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:7998: \$COMPILE_ONLY prog_errs.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog_errs.cob" "syn_misc.at:7998"
-( $at_check_trace; $COMPILE_ONLY prog_errs.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog_errs.cob:10: error: only USAGE DISPLAY may specify a variable-length PICTURE
-prog_errs.cob:11: error: L must be at start of PICTURE string
-prog_errs.cob:11: error: L cannot follow A or X
-prog_errs.cob:11: error: only USAGE DISPLAY may specify a variable-length PICTURE
-prog_errs.cob:12: error: 'L-ERR3' cannot have JUSTIFIED RIGHT clause
-prog_errs.cob:9: error: 'LGS' is not numeric
-prog_errs.cob:12: error: 'LGS' is not numeric
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:7998"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 1 LGS PICTURE 9(10).
- 1 L-DAT PICTURE LX(10) DEPENDING ON LGS.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:8019: \$COMPILE_ONLY -fpicture-l=warning prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fpicture-l=warning prog.cob" "syn_misc.at:8019"
-( $at_check_trace; $COMPILE_ONLY -fpicture-l=warning prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: warning: PICTURE string with 'L' character used
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:8019"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_393
-#AT_START_394
-at_fn_group_banner 394 'syn_misc.at:8026' \
- "AREACHECK / NOAREACHECK directives" " " 2
-at_xfail=no
-(
- printf "%s\n" "394. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
- # note: the following does an _extra_ check for the CONTINUE
- # statement, as this internally is post-created (= on the next token)
- # and therefore keeps its starting position "extra",
- # see parser.y (begin_statement_at_tree_pos)
-
-cat >prog.cob <<'_ATEOF'
-
- $SET NO-AREA-CHECK
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- MAIN-1 SECTION.
- DISPLAY "SOMETHING".
- $SET AREA-CHECK
- MAIN-2 SECTION.
- CONTINUE.
- CONTINUE.
- DISPLAY "SOMETHING ELSE"
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:8051: \$COMPILE_ONLY -std=cobol85 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol85 prog.cob" "syn_misc.at:8051"
-( $at_check_trace; $COMPILE_ONLY -std=cobol85 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in section 'MAIN-2':
-prog.cob:13: error: start of statement in Area A
-prog.cob:14: error: start of statement in Area A
-prog.cob:15: error: start of statement in Area A
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:8051"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:8057: \$COMPILE_ONLY -std=cobol85 -frelax-syntax-checks prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol85 -frelax-syntax-checks prog.cob" "syn_misc.at:8057"
-( $at_check_trace; $COMPILE_ONLY -std=cobol85 -frelax-syntax-checks prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in section 'MAIN-2':
-prog.cob:13: warning: start of statement in Area A
-prog.cob:14: warning: start of statement in Area A
-prog.cob:15: warning: start of statement in Area A
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:8057"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_394
-#AT_START_395
-at_fn_group_banner 395 'syn_misc.at:8066' \
- "AREACHECK / NOAREACHECK directives (2)" " " 2
-at_xfail=no
-(
- printf "%s\n" "395. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- $SET NOAREACHECK
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- $SET AREACHECK
- WORKING-STORAGE SECTION.
- 01 X.
- 02 Y PIC X.
- 01 Z PIC X
- 01 T PIC 9.
- $SET NOAREACHECK
- PROCEDURE DIVISION.
- MAIN-1 SECTION.
- DISPLAY "SOMETHING"
- $SET AREACHECK
- MAIN-2 SECTION.
- DISPLAY "SOMETHING ELSE"
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:8090: \$COMPILE_ONLY -std=cobol85 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol85 prog.cob" "syn_misc.at:8090"
-( $at_check_trace; $COMPILE_ONLY -std=cobol85 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: '01' should start in Area A
-prog.cob:11: error: optional period used
-prog.cob: in section 'MAIN-1':
-prog.cob:17: error: optional period used
-prog.cob: in section 'MAIN-2':
-prog.cob:18: error: start of statement in Area A
-prog.cob:19: error: start of statement in Area A
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:8090"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:8099: \$COMPILE_ONLY -std=cobol85 -fmissing-period=ok prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol85 -fmissing-period=ok prog.cob" "syn_misc.at:8099"
-( $at_check_trace; $COMPILE_ONLY -std=cobol85 -fmissing-period=ok prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: '01' should start in Area A
-prog.cob: in section 'MAIN-2':
-prog.cob:18: error: start of statement in Area A
-prog.cob:19: error: start of statement in Area A
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:8099"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:8105: \$COMPILE_ONLY -fformat=cobol85 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fformat=cobol85 prog.cob" "syn_misc.at:8105"
-( $at_check_trace; $COMPILE_ONLY -fformat=cobol85 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: '01' should start in Area A
-prog.cob:11: warning: optional period used
-prog.cob: in section 'MAIN-1':
-prog.cob:17: warning: optional period used
-prog.cob: in section 'MAIN-2':
-prog.cob:18: error: start of statement in Area A
-prog.cob:19: error: start of statement in Area A
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:8105"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_395
-#AT_START_396
-at_fn_group_banner 396 'syn_misc.at:8118' \
- "optional dots" " " 2
-at_xfail=no
-(
- printf "%s\n" "396. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION
- PROGRAM-ID. prog.
- DATA DIVISION
- WORKING-STORAGE SECTION.
- 01 X PIC X.
- 01 Y PIC X.
- PROCEDURE DIVISION.
- MAIN SECTION.
- PERFORM P
- STOP RUN.
- P.
- GOBACK
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:8136: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:8136"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:3: warning: optional period used
-prog.cob:5: warning: optional period used
-prog.cob: in section 'MAIN':
-prog.cob: in paragraph 'P':
-prog.cob:14: warning: optional period used
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:8136"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >cobol85.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION
- PROGRAM-ID. cobol85.
- DATA DIVISION
- WORKING-STORAGE SECTION
- 01 X PIC X *> dot optional here because of cobol85 format
- 01 Y PIC X.
- PROCEDURE DIVISION.
- MAIN SECTION.
- PERFORM P
- STOP RUN *> dot optional here because of cobol85 format
- P.
- GOBACK
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:8159: \$COMPILE_ONLY -fformat=cobol85 cobol85.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fformat=cobol85 cobol85.cob" "syn_misc.at:8159"
-( $at_check_trace; $COMPILE_ONLY -fformat=cobol85 cobol85.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "cobol85.cob:3: warning: optional period used
-cobol85.cob:5: warning: optional period used
-cobol85.cob:6: warning: optional period used
-cobol85.cob:7: warning: optional period used
-cobol85.cob: in section 'MAIN':
-cobol85.cob:12: warning: optional period used
-cobol85.cob: in paragraph 'P':
-cobol85.cob:14: warning: optional period used
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:8159"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_396
-#AT_START_397
-at_fn_group_banner 397 'syn_misc.at:8173' \
- "optional dots before PROCEDURE DIVISION" " " 2
-at_xfail=no
-(
- printf "%s\n" "397. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION
- PROGRAM-ID. prog.
- DATA DIVISION
- WORKING-STORAGE SECTION
- 77 PMODE PIC X
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-# The syntax error below is hard to avoid, and can be missleading.
-# The error is actually on the `77`, which is only parsed as a
-# LEVEL_NUMBER if the preceding token is a `.`.
-#
-# TODO: To avoid this, we need to unput the WORD/Literal when dealing
-# with optional periods outside of PROCEDURE DIVISION, and ensure it
-# is reparsed as a LEVEL_NUMBER.
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:8193: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_misc.at:8193"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:3: warning: optional period used
-prog.cob:5: warning: optional period used
-prog.cob:6: error: syntax error, unexpected Literal
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:8193"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# Here the AREACHECK helps us recover from all missing periods
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:8200: \$COMPILE_ONLY -fformat=cobol85 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fformat=cobol85 prog.cob" "syn_misc.at:8200"
-( $at_check_trace; $COMPILE_ONLY -fformat=cobol85 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:3: warning: optional period used
-prog.cob:5: warning: optional period used
-prog.cob:6: warning: optional period used
-prog.cob:7: warning: optional period used
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:8200"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_397
-#AT_START_398
-at_fn_group_banner 398 'syn_misc.at:8210' \
- "AREACHECK" " " 2
-at_xfail=no
-(
- printf "%s\n" "398. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >pgm1.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. PGM1.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT FILE01 ASSIGN "file01.dat".
- DATA DIVISION.
- FILE SECTION.
- FD FILE01.
- 01 RECORD-FILE01 PIC X(50).
- WORKING-STORAGE SECTION.
- 01 W-DATA01.
- * 02 items may still lie in Area A for now:
- 02 W-CH01 PIC X(10).
- PROCEDURE DIVISION.
- MAIN-PROCEDURE.
- DISPLAY "Hello"
- STOP RUN
- .
- END PROGRAM PGM1.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:8236: \$COMPILE_ONLY -std=mvs pgm1.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=mvs pgm1.cob" "syn_misc.at:8236"
-( $at_check_trace; $COMPILE_ONLY -std=mvs pgm1.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "pgm1.cob:7: warning: start of statement in Area A
-pgm1.cob: in paragraph 'MAIN-PROCEDURE':
-pgm1.cob:18: warning: start of statement in Area A
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:8236"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:8242: \$COMPILE_ONLY -std=mvs-strict pgm1.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=mvs-strict pgm1.cob" "syn_misc.at:8242"
-( $at_check_trace; $COMPILE_ONLY -std=mvs-strict pgm1.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "pgm1.cob:7: error: start of statement in Area A
-pgm1.cob: in paragraph 'MAIN-PROCEDURE':
-pgm1.cob:18: error: start of statement in Area A
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:8242"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_398
-#AT_START_399
-at_fn_group_banner 399 'syn_misc.at:8250' \
- "autodetect format" " " 2
-at_xfail=no
-(
- printf "%s\n" "399. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >free.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- DISPLAY "OK" NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-cat >fixed1.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- * this is a comment
- PROCEDURE DIVISION.
- DISPLAY "OK" NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-cat >fixed2.cob <<'_ATEOF'
-
- * this is a comment
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- DISPLAY "OK" NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-# Generate source files with DOM
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:8283: printf '\\357\\273\\277' > header.dom"
-at_fn_check_prepare_trace "syn_misc.at:8283"
-( $at_check_trace; printf '\357\273\277' > header.dom
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:8283"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:8284: cat header.dom free.cob >> domfree.cob"
-at_fn_check_prepare_trace "syn_misc.at:8284"
-( $at_check_trace; cat header.dom free.cob >> domfree.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:8284"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:8285: cat header.dom fixed1.cob >> domfixed.cob"
-at_fn_check_prepare_trace "syn_misc.at:8285"
-( $at_check_trace; cat header.dom fixed1.cob >> domfixed.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:8285"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:8287: \$COMPILE_ONLY -fformat=auto free.cob fixed1.cob fixed2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fformat=auto free.cob fixed1.cob fixed2.cob" "syn_misc.at:8287"
-( $at_check_trace; $COMPILE_ONLY -fformat=auto free.cob fixed1.cob fixed2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "free.cob:2: note: free format detected
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:8287"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:8290: \$COMPILE_ONLY -fformat=auto domfree.cob domfixed.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fformat=auto domfree.cob domfixed.cob" "syn_misc.at:8290"
-( $at_check_trace; $COMPILE_ONLY -fformat=auto domfree.cob domfixed.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "domfree.cob:2: note: free format detected
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:8290"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# In case we decide to have a disabled warning at some point
-# AT_CHECK([$COMPILE_ONLY -fformat=auto -w free.cob fixed1.cob fixed2.cob], [0], [], [])
-# AT_CHECK([$COMPILE_ONLY -fformat=auto -w domfree.cob domfixed.cob], [0], [], [])
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:8298: \$COMPILE_ONLY -fformat=fixed free.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fformat=fixed free.cob" "syn_misc.at:8298"
-( $at_check_trace; $COMPILE_ONLY -fformat=fixed free.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "free.cob:2: error: invalid indicator 'T' at column 7
-free.cob:3: error: invalid indicator 'R' at column 7
-free.cob:4: error: invalid indicator 'E' at column 7
-free.cob:5: error: invalid indicator 'I' at column 7
-free.cob:6: error: invalid indicator 'N' at column 7
-free.cob:7: error: invalid indicator 'T' at column 7
-free.cob:8: error: PROGRAM-ID header missing
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:8298"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:8308: \$COMPILE_ONLY -fformat=fixed domfree.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fformat=fixed domfree.cob" "syn_misc.at:8308"
-( $at_check_trace; $COMPILE_ONLY -fformat=fixed domfree.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "domfree.cob:2: error: invalid indicator 'T' at column 7
-domfree.cob:3: error: invalid indicator 'R' at column 7
-domfree.cob:4: error: invalid indicator 'E' at column 7
-domfree.cob:5: error: invalid indicator 'I' at column 7
-domfree.cob:6: error: invalid indicator 'N' at column 7
-domfree.cob:7: error: invalid indicator 'T' at column 7
-domfree.cob:8: error: PROGRAM-ID header missing
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_misc.at:8308"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:8318: \$COMPILE_ONLY -fformat=fixed fixed1.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fformat=fixed fixed1.cob" "syn_misc.at:8318"
-( $at_check_trace; $COMPILE_ONLY -fformat=fixed fixed1.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:8318"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:8319: \$COMPILE_ONLY -fformat=fixed fixed2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fformat=fixed fixed2.cob" "syn_misc.at:8319"
-( $at_check_trace; $COMPILE_ONLY -fformat=fixed fixed2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:8319"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:8320: \$COMPILE_ONLY -fformat=fixed domfixed.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fformat=fixed domfixed.cob" "syn_misc.at:8320"
-( $at_check_trace; $COMPILE_ONLY -fformat=fixed domfixed.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:8320"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_399
-#AT_START_400
-at_fn_group_banner 400 'syn_misc.at:8324' \
- "context sensitive alias" " " 2
-at_xfail=no
-(
- printf "%s\n" "400. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 XX PIC 9.
- 01 X CONSTANT AS XX OF XX.
- PROCEDURE DIVISION.
- MOVE X TO XX.
- DISPLAY XX NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:8341: \$COMPILE -freserved=\"XX*=BYTE-LENGTH\" prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -freserved=\"XX*=BYTE-LENGTH\" prog.cob" "syn_misc.at:8341"
-( $at_check_trace; $COMPILE -freserved="XX*=BYTE-LENGTH" prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:8341"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_misc.at:8342: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "syn_misc.at:8342"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "1" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_misc.at:8342"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_400
-#AT_START_401
-at_fn_group_banner 401 'syn_move.at:38' \
- "MOVE SPACE TO numeric or numeric-edited item" " " 2
-at_xfail=no
-(
- printf "%s\n" "401. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC 9.
- 01 Y PIC 09.
- PROCEDURE DIVISION.
- MOVE SPACE TO X.
- MOVE SPACE TO Y.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_move.at:54: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_move.at:54"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: MOVE of figurative constant SPACE to numeric item used
-prog.cob:10: error: MOVE of figurative constant SPACE to numeric item used
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_move.at:54"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_401
-#AT_START_402
-at_fn_group_banner 402 'syn_move.at:64' \
- "MOVE ZERO TO alphabetic item" " " 2
-at_xfail=no
-(
- printf "%s\n" "402. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 A PIC A.
- PROCEDURE DIVISION.
- MOVE ZERO TO A.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_move.at:78: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_move.at:78"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: error: invalid MOVE statement
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_move.at:78"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_402
-#AT_START_403
-at_fn_group_banner 403 'syn_move.at:90' \
- "MOVE alphabetic TO x" " " 2
-at_xfail=no
-(
- printf "%s\n" "403. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC A.
- 01 Y-A PIC A.
- 01 Y-X PIC X.
- 01 Y-BX PIC BX.
- 01 Y-N PIC N.
- 01 Y-9 PIC 9.
- 01 Y-09 PIC 09.
- PROCEDURE DIVISION.
- MOVE X TO Y-A.
- MOVE X TO Y-X.
- MOVE X TO Y-BX.
- MOVE X TO Y-N.
- MOVE X TO Y-9.
- MOVE X TO Y-09.
- STOP RUN.
-_ATEOF
-
-
-# unfinished national
-{ set +x
-printf "%s\n" "$at_srcdir/syn_move.at:116: \$COMPILE_ONLY -Wno-unfinished prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wno-unfinished prog.cob" "syn_move.at:116"
-( $at_check_trace; $COMPILE_ONLY -Wno-unfinished prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:18: error: invalid MOVE statement
-prog.cob:19: error: invalid MOVE statement
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_move.at:116"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_403
-#AT_START_404
-at_fn_group_banner 404 'syn_move.at:124' \
- "MOVE alphanumeric TO x" " " 2
-at_xfail=no
-(
- printf "%s\n" "404. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X.
- 01 Y-A PIC A.
- 01 Y-X PIC X.
- 01 Y-BX PIC BX.
- 01 Y-N PIC N.
- 01 Y-9 PIC 9.
- 01 Y-09 PIC 09.
- PROCEDURE DIVISION.
- MOVE X TO Y-A.
- MOVE X TO Y-X.
- MOVE X TO Y-BX.
- MOVE X TO Y-N.
- MOVE X TO Y-9.
- MOVE X TO Y-09.
- STOP RUN.
-_ATEOF
-
-
-# unfinished national
-{ set +x
-printf "%s\n" "$at_srcdir/syn_move.at:150: \$COMPILE_ONLY -Wno-unfinished prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wno-unfinished prog.cob" "syn_move.at:150"
-( $at_check_trace; $COMPILE_ONLY -Wno-unfinished prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_move.at:150"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_404
-#AT_START_405
-at_fn_group_banner 405 'syn_move.at:155' \
- "MOVE alphanumeric-edited TO x" " " 2
-at_xfail=no
-(
- printf "%s\n" "405. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC BX.
- 01 Y-A PIC A.
- 01 Y-X PIC X.
- 01 Y-BX PIC BX.
- 01 Y-N PIC N.
- 01 Y-9 PIC 9.
- 01 Y-09 PIC 09.
- PROCEDURE DIVISION.
- MOVE X TO Y-A.
- MOVE X TO Y-X.
- MOVE X TO Y-BX.
- MOVE X TO Y-N.
- MOVE X TO Y-9.
- MOVE X TO Y-09.
- STOP RUN.
-_ATEOF
-
-
-# unfinished national
-{ set +x
-printf "%s\n" "$at_srcdir/syn_move.at:181: \$COMPILE_ONLY -Wno-unfinished prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wno-unfinished prog.cob" "syn_move.at:181"
-( $at_check_trace; $COMPILE_ONLY -Wno-unfinished prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:18: error: invalid MOVE statement
-prog.cob:19: error: invalid MOVE statement
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_move.at:181"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_405
-#AT_START_406
-at_fn_group_banner 406 'syn_move.at:189' \
- "MOVE numeric (integer) TO x" " " 2
-at_xfail=no
-(
- printf "%s\n" "406. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC 9.
- 01 Y-A PIC A.
- 01 Y-X PIC X.
- 01 Y-BX PIC BX.
- 01 Y-N PIC N.
- 01 Y-9 PIC 9.
- 01 Y-09 PIC 09.
- PROCEDURE DIVISION.
- MOVE X TO Y-A.
- MOVE X TO Y-X.
- MOVE X TO Y-BX.
- MOVE X TO Y-N.
- MOVE X TO Y-9.
- MOVE X TO Y-09.
- STOP RUN.
-_ATEOF
-
-
-# unfinished national
-{ set +x
-printf "%s\n" "$at_srcdir/syn_move.at:215: \$COMPILE_ONLY -Wno-unfinished prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wno-unfinished prog.cob" "syn_move.at:215"
-( $at_check_trace; $COMPILE_ONLY -Wno-unfinished prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:14: error: invalid MOVE statement
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_move.at:215"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_406
-#AT_START_407
-at_fn_group_banner 407 'syn_move.at:222' \
- "MOVE numeric (non-integer) TO x" " " 2
-at_xfail=no
-(
- printf "%s\n" "407. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC 9V9.
- 01 Y-A PIC A.
- 01 Y-X PIC X.
- 01 Y-BX PIC BX.
- 01 Y-N PIC N.
- 01 Y-9 PIC 9.
- 01 Y-09 PIC 09.
- PROCEDURE DIVISION.
- MOVE X TO Y-A.
- MOVE X TO Y-X.
- MOVE X TO Y-BX.
- MOVE X TO Y-N.
- MOVE X TO Y-9.
- MOVE X TO Y-09.
- STOP RUN.
-_ATEOF
-
-
-# unfinished national
-{ set +x
-printf "%s\n" "$at_srcdir/syn_move.at:248: \$COMPILE_ONLY -Wno-unfinished prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wno-unfinished prog.cob" "syn_move.at:248"
-( $at_check_trace; $COMPILE_ONLY -Wno-unfinished prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:14: error: invalid MOVE statement
-prog.cob:15: error: invalid MOVE statement
-prog.cob:16: error: invalid MOVE statement
-prog.cob:17: error: invalid MOVE statement
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_move.at:248"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_407
-#AT_START_408
-at_fn_group_banner 408 'syn_move.at:258' \
- "MOVE numeric-edited TO x" " " 2
-at_xfail=no
-(
- printf "%s\n" "408. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC 09.
- 01 Y-A PIC A.
- 01 Y-X PIC X.
- 01 Y-BX PIC BX.
- 01 Y-N PIC N.
- 01 Y-0N PIC 0N.
- 01 Y-9 PIC 9.
- 01 Y-09 PIC 09.
- PROCEDURE DIVISION.
- MOVE X TO Y-A.
- MOVE X TO Y-X.
- MOVE X TO Y-BX.
- MOVE X TO Y-N.
- MOVE X TO Y-0N.
- MOVE X TO Y-9.
- MOVE X TO Y-09.
- STOP RUN.
-_ATEOF
-
-
-# unfinished national
-{ set +x
-printf "%s\n" "$at_srcdir/syn_move.at:286: \$COMPILE_ONLY -Wno-unfinished prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wno-unfinished prog.cob" "syn_move.at:286"
-( $at_check_trace; $COMPILE_ONLY -Wno-unfinished prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:15: error: invalid MOVE statement
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_move.at:286"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_408
-#AT_START_409
-at_fn_group_banner 409 'syn_move.at:293' \
- "MOVE national TO x" " " 2
-at_xfail=no
-(
- printf "%s\n" "409. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC N.
- 01 Y-A PIC A.
- 01 Y-X PIC X.
- 01 Y-BX PIC BX.
- 01 Y-N PIC N.
- 01 Y-0N PIC 0N.
- 01 Y-9 PIC 9.
- 01 Y-09 PIC 09.
- PROCEDURE DIVISION.
- MOVE X TO Y-A.
- MOVE X TO Y-X.
- MOVE X TO Y-BX.
- MOVE X TO Y-N.
- MOVE X TO Y-0N.
- MOVE X TO Y-9.
- MOVE X TO Y-09.
- STOP RUN.
-_ATEOF
-
-
-# unfinished national
-{ set +x
-printf "%s\n" "$at_srcdir/syn_move.at:321: \$COMPILE_ONLY -Wno-unfinished prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wno-unfinished prog.cob" "syn_move.at:321"
-( $at_check_trace; $COMPILE_ONLY -Wno-unfinished prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:15: error: invalid MOVE statement
-prog.cob:16: error: invalid MOVE statement
-prog.cob:17: error: invalid MOVE statement
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_move.at:321"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_409
-#AT_START_410
-at_fn_group_banner 410 'syn_move.at:330' \
- "MOVE national-edited TO x" " " 2
-at_xfail=no
-(
- printf "%s\n" "410. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC 0N.
- 01 Y-A PIC A.
- 01 Y-X PIC X.
- 01 Y-BX PIC BX.
- 01 Y-N PIC N.
- 01 Y-0N PIC 0N.
- 01 Y-9 PIC 9.
- 01 Y-09 PIC 09.
- PROCEDURE DIVISION.
- MOVE X TO Y-A.
- MOVE X TO Y-X.
- MOVE X TO Y-BX.
- MOVE X TO Y-N.
- MOVE X TO Y-0N.
- MOVE X TO Y-9.
- MOVE X TO Y-09.
- STOP RUN.
-_ATEOF
-
-
-# unfinished national
-{ set +x
-printf "%s\n" "$at_srcdir/syn_move.at:358: \$COMPILE_ONLY -Wno-unfinished prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wno-unfinished prog.cob" "syn_move.at:358"
-( $at_check_trace; $COMPILE_ONLY -Wno-unfinished prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:15: error: invalid MOVE statement
-prog.cob:16: error: invalid MOVE statement
-prog.cob:17: error: invalid MOVE statement
-prog.cob:20: error: invalid MOVE statement
-prog.cob:21: error: invalid MOVE statement
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_move.at:358"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_410
-#AT_START_411
-at_fn_group_banner 411 'syn_move.at:374' \
- "CORRESPONDING - Operands must be groups" " " 2
-at_xfail=no
-(
- printf "%s\n" "411. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G-1.
- 02 X PIC X.
- 01 G-2.
- 02 Y PIC X.
- PROCEDURE DIVISION.
- MOVE CORR X TO G-1.
- MOVE CORR G-1 TO X.
- MOVE CORR G-1(1:1) TO G-2.
- MOVE CORR G-1 TO G-2(1:1).
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_move.at:394: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_move.at:394"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:11: error: 'X' is not a group name
-prog.cob:12: error: 'X' is not a group name
-prog.cob:13: error: 'G-1 (1:1)' is not a group name
-prog.cob:14: error: 'G-2 (1:1)' is not a group name
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_move.at:394"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_411
-#AT_START_412
-at_fn_group_banner 412 'syn_move.at:404' \
- "CORRESPONDING - Target has no matching items" " " 2
-at_xfail=no
-(
- printf "%s\n" "412. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G-1.
- 02 X PIC X.
- 01 G-2.
- 02 Y PIC X.
- PROCEDURE DIVISION.
- MOVE CORR G-1 TO G-2.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_move.at:421: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_move.at:421"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:11: warning: no CORRESPONDING items found
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_move.at:421"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_412
-#AT_START_413
-at_fn_group_banner 413 'syn_move.at:430' \
- "MOVE to erroneous field" " " 2
-at_xfail=no
-(
- printf "%s\n" "413. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 INVALID-ITEM.
- 01 I PIC 9(3).
- PROCEDURE DIVISION.
- MOVE 1 TO INVALID-ITEM.
- MOVE SPACE TO I(1:2).
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_move.at:446: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_move.at:446"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: error: PICTURE clause required for 'INVALID-ITEM'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_move.at:446"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_413
-#AT_START_414
-at_fn_group_banner 414 'syn_move.at:453' \
- "Overlapping MOVE" " " 2
-at_xfail=no
-(
- printf "%s\n" "414. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 STRUCTURE1.
- 05 FIELD1-1 PIC X(5).
- 05 FIELD1-2 PIC X(10).
- 01 STRUCTURE2 REDEFINES STRUCTURE1.
- 05 FIELD2-1 PIC X(10).
- 05 FIELD2-2 PIC X(5).
- 01 FILLER REDEFINES STRUCTURE1.
- 05 FILLER PIC X(01).
- 05 FIELD PIC X(02) OCCURS 7.
- 01 FILLER.
- 05 FIELDO PIC X(02) OCCURS 7.
- 77 NUMVAR PIC 9(02) VALUE 1.
- 78 CONST4 VALUE 4.
- PROCEDURE DIVISION.
- MOVE FIELD1-2 TO STRUCTURE1
- MOVE FIELD1-2 TO FIELD1-1
- MOVE FIELD1-1 TO FIELD1-2, FIELD2-2
- MOVE FIELD1-2 TO FIELD2-1
- MOVE FIELD2-1 TO FIELD2-2
- MOVE FIELD2-1 (2:5) TO FIELD1-2
- MOVE STRUCTURE1 (2:4) TO STRUCTURE1 (5:4)
- MOVE STRUCTURE1 (2:4) TO STRUCTURE1 (6:4)
- MOVE STRUCTURE1 (1:NUMVAR) TO STRUCTURE1 (3:13)
- MOVE STRUCTURE1 (NUMVAR:1) TO STRUCTURE1 (3:13)
- MOVE STRUCTURE1 (3:13) TO STRUCTURE1 (1:NUMVAR)
- MOVE STRUCTURE1 (3:13) TO STRUCTURE1 (NUMVAR:1)
- MOVE STRUCTURE1 (CONST4:2) TO STRUCTURE1 (3:2)
- MOVE STRUCTURE1 (6:4) TO STRUCTURE1 (2:4)
- MOVE STRUCTURE1 (6:4) TO STRUCTURE1 (2: )
- MOVE FIELD (6) TO STRUCTURE1 (13:2)
- MOVE FIELD (5) TO STRUCTURE1 (13:2)
- MOVE FIELD (NUMVAR) TO STRUCTURE1 (13:2)
- MOVE FIELD (CONST4) TO STRUCTURE1 (13:2)
- MOVE FIELDO (1) TO FIELDO (1)
- MOVE FIELDO (CONST4) TO FIELDO (CONST4)
- MOVE FIELDO (1) TO FIELDO (2)
- MOVE FIELDO (4) TO FIELDO (CONST4)
- MOVE FIELDO (CONST4) TO FIELDO (4)
- MOVE FIELDO (4) TO FIELDO (NUMVAR)
- MOVE FIELDO (NUMVAR) TO FIELDO (4)
- MOVE FIELDO (NUMVAR) TO FIELDO (NUMVAR)
- MOVE FIELDO (NUMVAR) (1:1) TO FIELDO (NUMVAR) (2:1)
- MOVE FIELDO (NUMVAR) (2:1) TO FIELDO (NUMVAR)
- MOVE FIELDO (4) (2:1) TO FIELDO (CONST4)
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_move.at:508: \$COMPILE -w prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -w prog.cob" "syn_move.at:508"
-( $at_check_trace; $COMPILE -w prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_move.at:508"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_move.at:510: \$COMPILE -fdiagnostics-show-option prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fdiagnostics-show-option prog.cob" "syn_move.at:510"
-( $at_check_trace; $COMPILE -fdiagnostics-show-option prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:20: warning: overlapping MOVE may produce unpredictable results [-Woverlap]
-prog.cob:23: warning: overlapping MOVE may produce unpredictable results [-Woverlap]
-prog.cob:25: warning: overlapping MOVE may produce unpredictable results [-Woverlap]
-prog.cob:26: warning: overlapping MOVE may produce unpredictable results [-Woverlap]
-prog.cob:32: warning: overlapping MOVE may produce unpredictable results [-Woverlap]
-prog.cob:34: warning: overlapping MOVE may produce unpredictable results [-Woverlap]
-prog.cob:39: warning: overlapping MOVE may produce unpredictable results [-Woverlap]
-prog.cob:40: warning: overlapping MOVE may produce unpredictable results [-Woverlap]
-prog.cob:42: warning: overlapping MOVE may produce unpredictable results [-Woverlap]
-prog.cob:43: warning: overlapping MOVE may produce unpredictable results [-Woverlap]
-prog.cob:46: warning: overlapping MOVE may produce unpredictable results [-Woverlap]
-prog.cob:48: warning: overlapping MOVE may produce unpredictable results [-Woverlap]
-prog.cob:49: warning: overlapping MOVE may produce unpredictable results [-Woverlap]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_move.at:510"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_move.at:526: \$COMPILE -fdiagnostics-show-option -Wpossible-overlap prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fdiagnostics-show-option -Wpossible-overlap prog.cob" "syn_move.at:526"
-( $at_check_trace; $COMPILE -fdiagnostics-show-option -Wpossible-overlap prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:20: warning: overlapping MOVE may produce unpredictable results [-Woverlap]
-prog.cob:23: warning: overlapping MOVE may produce unpredictable results [-Woverlap]
-prog.cob:25: warning: overlapping MOVE may produce unpredictable results [-Woverlap]
-prog.cob:26: warning: overlapping MOVE may produce unpredictable results [-Woverlap]
-prog.cob:28: warning: overlapping MOVE may occur and produce unpredictable results [-Wpossible-overlap]
-prog.cob:29: warning: overlapping MOVE may occur and produce unpredictable results [-Wpossible-overlap]
-prog.cob:30: warning: overlapping MOVE may occur and produce unpredictable results [-Wpossible-overlap]
-prog.cob:31: warning: overlapping MOVE may occur and produce unpredictable results [-Wpossible-overlap]
-prog.cob:32: warning: overlapping MOVE may produce unpredictable results [-Woverlap]
-prog.cob:34: warning: overlapping MOVE may produce unpredictable results [-Woverlap]
-prog.cob:39: warning: overlapping MOVE may produce unpredictable results [-Woverlap]
-prog.cob:40: warning: overlapping MOVE may produce unpredictable results [-Woverlap]
-prog.cob:42: warning: overlapping MOVE may produce unpredictable results [-Woverlap]
-prog.cob:43: warning: overlapping MOVE may produce unpredictable results [-Woverlap]
-prog.cob:46: warning: overlapping MOVE may produce unpredictable results [-Woverlap]
-prog.cob:48: warning: overlapping MOVE may produce unpredictable results [-Woverlap]
-prog.cob:49: warning: overlapping MOVE may produce unpredictable results [-Woverlap]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_move.at:526"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# note: for GnuCOBOL the result actually _is_ predictable,
-# we verify that in run_fundamental
-# AT_CHECK([$COBCRUN_DIRECT ./prog], [0], [], [])
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_414
-#AT_START_415
-at_fn_group_banner 415 'syn_move.at:552' \
- "invalid source for MOVE" " " 2
-at_xfail=no
-(
- printf "%s\n" "415. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- REPOSITORY.
- PROGRAM repo-prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 MAIN-VAR PIC X(3).
- PROCEDURE DIVISION.
- MAIN.
- MOVE MAIN TO MAIN-VAR.
- MOVE repo-prog TO MAIN.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_move.at:572: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_move.at:572"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: warning: no definition/prototype seen for PROGRAM 'repo-prog'
-prog.cob: in paragraph 'MAIN':
-prog.cob:13: error: 'MAIN' is not a field
-prog.cob:14: error: 'repo-prog' is not a field
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_move.at:572"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_415
-#AT_START_416
-at_fn_group_banner 416 'syn_move.at:582' \
- "invalid target for MOVE" " " 2
-at_xfail=no
-(
- printf "%s\n" "416. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- REPOSITORY.
- PROGRAM repo-prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 78 DEFINED-CONST VALUE 'A'.
- 77 MAIN-VAR PIC X(3).
- PROCEDURE DIVISION.
- MAIN.
- MOVE 'A' TO MAIN-VAR.
- MOVE 'B' TO MAIN.
- MOVE 'C' TO repo-prog.
- MOVE 'D' TO QUOTE.
- MOVE 'E' TO DEFINED-CONST.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_move.at:606: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_move.at:606"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: warning: no definition/prototype seen for PROGRAM 'repo-prog'
-prog.cob: in paragraph 'MAIN':
-prog.cob:15: error: invalid MOVE target: MAIN
-prog.cob:16: error: invalid MOVE target: repo-prog
-prog.cob:17: error: invalid MOVE target: QUOTE
-prog.cob:18: error: invalid MOVE target: literal \"A\"
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_move.at:606"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_416
-#AT_START_417
-at_fn_group_banner 417 'syn_move.at:618' \
- "SET error" " " 2
-at_xfail=no
-(
- printf "%s\n" "417. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- program-id. prog.
- data division.
- working-storage section.
- 01 default-float usage float-long.
- 01 no-pointer pic s9(9) comp.
-
- linkage section.
- 01 float-var usage float-long.
-
- procedure division .
- *> previously generated error message about invalid MOVE statement,
- *> see bug #255 and an internal compiler error, see bug #295:
- set address of float-var to default-float
- set no-pointer to address of default-float
- *> previously raised internal compiler error, see bug #643:
- set 1 to no-pointer
- *> all fine...
- set address of float-var to address of default-float
- goback.
- end program prog .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_move.at:644: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_move.at:644"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:14: error: invalid SET statement
-prog.cob:15: error: invalid SET statement
-prog.cob:17: error: invalid SET statement
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_move.at:644"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_417
-#AT_START_418
-at_fn_group_banner 418 'syn_move.at:653' \
- "MOVE FIGURATIVE to NUMERIC" " " 2
-at_xfail=no
-(
- printf "%s\n" "418. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 MYFLD PIC 9(4) VALUE 96.
- 01 BIGFLT COMP-1 VALUE 543.12345E10.
- PROCEDURE DIVISION.
- MAIN-1.
- MOVE BIGFLT TO MYFLD.
- MOVE SPACES TO MYFLD.
- MOVE LOW-VALUES TO MYFLD.
- MOVE HIGH-VALUES TO MYFLD.
- MOVE QUOTE TO MYFLD.
- MOVE ALL '*' TO MYFLD.
- MOVE ALL '0' TO MYFLD.
- MOVE ALL 'A1' TO MYFLD.
- MOVE ALL '21' TO MYFLD.
- SET MYFLD TO HIGH-VALUES.
- SET MYFLD TO SPACES.
- MOVE HIGH-VALUES TO MYFLD (1:).
-
- MOVE HIGH-VALUES TO BIGFLT.
- MOVE QUOTE TO BIGFLT.
- MOVE ALL '*' TO BIGFLT.
- MOVE ALL '21' TO BIGFLT.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_move.at:685: \$COMPILE_ONLY -std=cobol2002 -freserved=COMP-1:FLOAT prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol2002 -freserved=COMP-1:FLOAT prog.cob" "syn_move.at:685"
-( $at_check_trace; $COMPILE_ONLY -std=cobol2002 -freserved=COMP-1:FLOAT prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in paragraph 'MAIN-1':
-prog.cob:11: error: MOVE of figurative constant SPACE to numeric item used
-prog.cob:12: warning: MOVE of figurative constant to numeric item is archaic in COBOL 2002
-prog.cob:13: warning: MOVE of figurative constant to numeric item is archaic in COBOL 2002
-prog.cob:14: warning: MOVE of figurative constant QUOTE to numeric item is archaic in COBOL 2002
-prog.cob:15: warning: numeric value is expected
-prog.cob:6: note: 'MYFLD' defined here as PIC 9(4)
-prog.cob:17: warning: numeric value is expected
-prog.cob:6: note: 'MYFLD' defined here as PIC 9(4)
-prog.cob:19: error: invalid SET statement
-prog.cob:20: error: invalid SET statement
-prog.cob:23: warning: MOVE of figurative constant to numeric item is archaic in COBOL 2002
-prog.cob:24: warning: MOVE of figurative constant QUOTE to numeric item is archaic in COBOL 2002
-prog.cob:25: warning: numeric value is expected
-prog.cob:7: note: 'BIGFLT' defined here as USAGE FLOAT
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_move.at:685"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_move.at:703: \$COMPILE_ONLY -std=ibm prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=ibm prog.cob" "syn_move.at:703"
-( $at_check_trace; $COMPILE_ONLY -std=ibm prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in paragraph 'MAIN-1':
-prog.cob:11: error: MOVE of figurative constant SPACE to numeric item used
-prog.cob:12: warning: MOVE of figurative constant to numeric item is archaic in IBM COBOL (lax)
-prog.cob:13: warning: MOVE of figurative constant to numeric item is archaic in IBM COBOL (lax)
-prog.cob:14: warning: MOVE of figurative constant QUOTE to numeric item is archaic in IBM COBOL (lax)
-prog.cob:15: warning: numeric value is expected
-prog.cob:6: note: 'MYFLD' defined here as PIC 9(4)
-prog.cob:17: warning: numeric value is expected
-prog.cob:6: note: 'MYFLD' defined here as PIC 9(4)
-prog.cob:19: error: invalid SET statement
-prog.cob:20: error: invalid SET statement
-prog.cob:23: warning: MOVE of figurative constant to numeric item is archaic in IBM COBOL (lax)
-prog.cob:24: warning: MOVE of figurative constant QUOTE to numeric item is archaic in IBM COBOL (lax)
-prog.cob:25: warning: numeric value is expected
-prog.cob:7: note: 'BIGFLT' defined here as USAGE FLOAT
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_move.at:703"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_move.at:721: \$COMPILE_ONLY -std=mf prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=mf prog.cob" "syn_move.at:721"
-( $at_check_trace; $COMPILE_ONLY -std=mf prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in paragraph 'MAIN-1':
-prog.cob:11: warning: source is non-numeric - substituting zero
-prog.cob:12: warning: source is non-numeric - substituting zero
-prog.cob:13: warning: source is non-numeric - substituting zero
-prog.cob:14: warning: source is non-numeric - substituting zero
-prog.cob:15: warning: source is non-numeric - substituting zero
-prog.cob:17: warning: source is non-numeric - substituting zero
-prog.cob:19: error: invalid SET statement
-prog.cob:20: error: invalid SET statement
-prog.cob:23: warning: source is non-numeric - substituting zero
-prog.cob:24: warning: source is non-numeric - substituting zero
-prog.cob:25: warning: source is non-numeric - substituting zero
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_move.at:721"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_move.at:736: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_move.at:736"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in paragraph 'MAIN-1':
-prog.cob:11: error: MOVE of figurative constant SPACE to numeric item used
-prog.cob:12: warning: MOVE of figurative constant to numeric item is archaic in GnuCOBOL
-prog.cob:13: warning: MOVE of figurative constant to numeric item is archaic in GnuCOBOL
-prog.cob:14: warning: MOVE of figurative constant QUOTE to numeric item is obsolete in GnuCOBOL
-prog.cob:14: warning: MOVE of figurative constant to numeric item is archaic in GnuCOBOL
-prog.cob:15: warning: numeric value is expected
-prog.cob:6: note: 'MYFLD' defined here as PIC 9(4)
-prog.cob:17: warning: numeric value is expected
-prog.cob:6: note: 'MYFLD' defined here as PIC 9(4)
-prog.cob:19: error: invalid SET statement
-prog.cob:20: error: invalid SET statement
-prog.cob:23: warning: MOVE of figurative constant to numeric item is archaic in GnuCOBOL
-prog.cob:24: warning: MOVE of figurative constant QUOTE to numeric item is obsolete in GnuCOBOL
-prog.cob:24: warning: MOVE of figurative constant to numeric item is archaic in GnuCOBOL
-prog.cob:25: warning: numeric value is expected
-prog.cob:7: note: 'BIGFLT' defined here as USAGE FLOAT
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_move.at:736"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_418
-#AT_START_419
-at_fn_group_banner 419 'syn_multiply.at:28' \
- "Category check of Format 1" " " 2
-at_xfail=no
-(
- printf "%s\n" "419. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X-X PIC X.
- 01 X-9 PIC 9.
- 01 X-09 PIC 09.
- PROCEDURE DIVISION.
- MULTIPLY 123 BY 456
- MULTIPLY "a" BY "b"
- MULTIPLY 123 BY "b"
- MULTIPLY X-X BY X-9
- MULTIPLY X-9 BY X-09
- MULTIPLY X-09 BY X-X
- MULTIPLY 123 BY X-X
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_multiply.at:50: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_multiply.at:50"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: '456' is not a numeric name
-prog.cob:11: error: 'literal \"a\"' is not numeric
-prog.cob:12: error: 'literal \"b\"' is not a numeric name
-prog.cob:13: error: 'X-X' is not numeric
-prog.cob:14: error: 'X-09' is not a numeric name
-prog.cob:15: error: 'X-09' is not numeric
-prog.cob:16: error: 'X-X' is not a numeric name
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_multiply.at:50"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_419
-#AT_START_420
-at_fn_group_banner 420 'syn_multiply.at:64' \
- "Category check of Format 2" " " 2
-at_xfail=no
-(
- printf "%s\n" "420. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X-X PIC X.
- 01 X-9 PIC 9.
- 01 X-09 PIC 09.
- PROCEDURE DIVISION.
- MULTIPLY 123 BY 456 GIVING 789
- MULTIPLY "a" BY "b" GIVING "c"
- MULTIPLY 123 BY 456 GIVING "c"
- MULTIPLY X-X BY X-9 GIVING X-09
- MULTIPLY X-9 BY X-09 GIVING X-X
- MULTIPLY 123 BY 456 GIVING X-X
- MULTIPLY X-09 BY X-X GIVING X-9
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_multiply.at:86: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_multiply.at:86"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: '789' is not a numeric or numeric-edited name
-prog.cob:11: error: 'literal \"a\"' is not numeric
-prog.cob:11: error: 'literal \"b\"' is not numeric
-prog.cob:12: error: 'literal \"c\"' is not a numeric or numeric-edited name
-prog.cob:13: error: 'X-X' is not numeric
-prog.cob:14: error: 'X-09' is not numeric
-prog.cob:15: error: 'X-X' is not a numeric or numeric-edited name
-prog.cob:16: error: 'X-09' is not numeric
-prog.cob:16: error: 'X-X' is not numeric
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_multiply.at:86"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_420
-#AT_START_421
-at_fn_group_banner 421 'syn_multiply.at:102' \
- "Category check of literals" " " 2
-at_xfail=no
-(
- printf "%s\n" "421. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC 9.
- PROCEDURE DIVISION.
- MULTIPLY 123 BY X
- END-MULTIPLY.
- MULTIPLY "a" BY X
- END-MULTIPLY.
- MULTIPLY 123 BY 456 GIVING X
- END-MULTIPLY.
- MULTIPLY "a" BY "b" GIVING X
- END-MULTIPLY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_multiply.at:123: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_multiply.at:123"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: 'literal \"a\"' is not numeric
-prog.cob:14: error: 'literal \"a\"' is not numeric
-prog.cob:14: error: 'literal \"b\"' is not numeric
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_multiply.at:123"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_421
-#AT_START_422
-at_fn_group_banner 422 'syn_screen.at:24' \
- "Flexible ACCEPT/DISPLAY syntax" " " 2
-at_xfail=no
-(
- printf "%s\n" "422. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- SYSERR IS ERR-STREAM
- .
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 a-field PIC XXX.
-
- SCREEN SECTION.
- 01 scr.
- 03 VALUE "blah" LINE 5 COL 5.
-
- PROCEDURE DIVISION.
- *> Valid statements
- DISPLAY "123" "456" "789" NO ADVANCING
- DISPLAY "foo" COL 1 HIGHLIGHT AT LINE 1 WITH UNDERLINE,
- "bar", "foo"
- DISPLAY "a" UPON CRT, "b" LINE 3 COL 3, "c" UPON CRT-UNDER
- DISPLAY scr, scr
-
- ACCEPT a-field LINE 5 SIZE 3 AT COL 1 WITH AUTO
- REVERSE-VIDEO, BLINK
-
- *> invalid statements
- DISPLAY scr WITH NO ADVANCING
- DISPLAY scr, scr LINE 2 COL 2 UPON ERR-STREAM
- DISPLAY "foo" LINE 2 COL 2, scr
- DISPLAY "foo" LINE 2 COL 2, "bar" UPON ERR-STREAM
- DISPLAY "foo" LINE 1 UPON ERR-STREAM
- DISPLAY scr, "foo"
- .
- END PROGRAM prog.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog-2.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- CONSOLE IS CRT
- .
- PROCEDURE DIVISION.
- DISPLAY "foo" NO ADVANCING
- .
- END PROGRAM prog-2.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_screen.at:79: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_screen.at:79"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:31: error: cannot specify NO ADVANCING in screen DISPLAY
-prog.cob:31: error: screens may only be displayed on CRT
-prog.cob:32: error: cannot mix screens and fields in the same DISPLAY statement
-prog.cob:33: error: ambiguous DISPLAY; put items to display on device in separate DISPLAY
-prog.cob:34: error: screen clauses may only be used for DISPLAY on CRT
-prog.cob:35: error: cannot mix screens and fields in the same DISPLAY statement
-prog.cob:49: error: cannot specify NO ADVANCING in screen DISPLAY
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_screen.at:79"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_422
-#AT_START_423
-at_fn_group_banner 423 'syn_screen.at:92' \
- "Duplicate ACCEPT/DISPLAY clauses" " " 2
-at_xfail=no
-(
- printf "%s\n" "423. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 a-field PIC XXX.
- PROCEDURE DIVISION.
- DISPLAY "foo" LINE 1 COL 1 HIGHLIGHT LINE 1 HIGHLIGHT
- AT 0101 MODE IS BLOCK MODE IS BLOCK
- ACCEPT a-field LINE 1 COL 1 HIGHLIGHT LINE 1 HIGHLIGHT
- AT 0101
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_screen.at:109: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_screen.at:109"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: error: duplicate LINE clause
-prog.cob:8: error: duplicate HIGHLIGHT clause
-prog.cob:9: error: cannot specify both AT screen-location and LINE or COLUMN
-prog.cob:9: error: duplicate MODE IS BLOCK clause
-prog.cob:10: error: duplicate LINE clause
-prog.cob:10: error: duplicate HIGHLIGHT clause
-prog.cob:11: error: cannot specify both AT screen-location and LINE or COLUMN
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_screen.at:109"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_423
-#AT_START_424
-at_fn_group_banner 424 'syn_screen.at:121' \
- "AT clause" " " 2
-at_xfail=no
-(
- printf "%s\n" "424. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 curs-1 PIC 9(4) VALUE 00000000001111.
- 01 curs-2.
- 03 linee PIC 999.
- 03 coll PIC 999.
- 01 posc CONSTANT 0101.
-
- 01 curs-3 PIC 99.
- 01 curs-4 PIC 9(8) VALUE 0101.
- 01 curs-5 PIC X(4).
-
- 01 SCREEN-POS.
- 03 SPOS PIC 9(04) VALUE ZERO.
- 03 WS2-CURS REDEFINES SPOS.
- 05 SLIN PIC 9(02).
- 05 SCOL PIC 9(02).
-
- PROCEDURE DIVISION.
- *> Valid AT clauses
- DISPLAY "a" AT curs-1
- DISPLAY "a" AT curs-2
- DISPLAY "a" AT posc
- DISPLAY "a" AT posc
- DISPLAY "a" AT SPOS
- DISPLAY "a" AT WS2-CURS
- DISPLAY "a" AT SCREEN-POS
-
- *> Invalid AT clauses
- DISPLAY "a" AT curs-3
- DISPLAY "a" AT curs-4
- DISPLAY "a" AT curs-5
- DISPLAY "a" AT 101
- DISPLAY "a" AT ZERO
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_screen.at:165: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_screen.at:165"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:34: error: value in AT clause must have 4 or 6 digits
-prog.cob:35: error: value in AT clause must have 4 or 6 digits
-prog.cob:36: error: value in AT clause is not numeric
-prog.cob:37: error: value in AT clause must have 4 or 6 digits
-prog.cob:39: error: cannot specify figurative constant ZERO in AT clause
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_screen.at:165"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_424
-#AT_START_425
-at_fn_group_banner 425 'syn_screen.at:175' \
- "ACCEPT/DISPLAY extensions detection" " " 2
-at_xfail=no
-(
- printf "%s\n" "425. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 zero-const CONSTANT 0.
- 01 x PIC 99.
-
- SCREEN SECTION.
- 01 scr.
- 03 y PIC 99 FROM x LINE 3 COLUMN 5.
-
- PROCEDURE DIVISION.
- DISPLAY "hello" AT 0000
- DISPLAY "world" LINE ZERO COLUMN zero-const
- ACCEPT x WITH TIME-OUT 5
-
- DISPLAY scr WITH UNDERLINE
- ACCEPT scr WITH HIGHLIGHT
-
- DISPLAY scr, scr
-
- *> Valid statements
- DISPLAY scr UPON CRT-UNDER
- ACCEPT scr AT LINE 4 COLUMN 4
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_screen.at:207: \$COMPILE_ONLY -faccept-display-extensions=error prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -faccept-display-extensions=error prog.cob" "syn_screen.at:207"
-( $at_check_trace; $COMPILE_ONLY -faccept-display-extensions=error prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:15: error: AT clause used
-prog.cob:15: error: non-standard DISPLAY used
-prog.cob:16: error: LINE 0 used
-prog.cob:16: error: COLUMN 0 used
-prog.cob:16: error: non-standard DISPLAY used
-prog.cob:17: error: non-standard ACCEPT used
-prog.cob:19: error: non-standard DISPLAY used
-prog.cob:20: error: non-standard ACCEPT used
-prog.cob:22: error: non-standard DISPLAY used
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_screen.at:207"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_425
-#AT_START_426
-at_fn_group_banner 426 'syn_screen.at:221' \
- "FROM clause" " " 2
-at_xfail=no
-(
- printf "%s\n" "426. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X.
- SCREEN SECTION.
- 01 SG.
- 05 SI1 LINE 1 COL 1 PIC X FROM X.
- 05 SI2 LINE 2 COL 1 PIC X FROM SPACE.
- 05 SI2-2 LINE 2 COL 5 PIC X(03) FROM ALL SPACES.
- 05 SI3 LINE 3 COL 1 PIC 9 FROM ZERO.
- 05 SI3-2 LINE 3 COL 5 PIC X(03) FROM ALL ZEROES.
- 05 SI4 LINE 4 COL 1 FROM X. *> PIC is implied by FROM
- PROCEDURE DIVISION.
- DISPLAY SG END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_screen.at:243: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_screen.at:243"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:14: warning: 'SI4' has FROM, TO or USING without PIC; PIC will be implied
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_screen.at:243"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_426
-#AT_START_427
-at_fn_group_banner 427 'syn_screen.at:250' \
- "Incorrect USAGE clause" " " 2
-at_xfail=no
-(
- printf "%s\n" "427. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X.
- SCREEN SECTION.
- 01 SG.
- 05 SI1 LINE 1 COL 1 PIC X FROM X.
- 05 SI2 LINE 2 COL 1 PIC X FROM SPACE.
- 05 SI2-2 LINE 2 COL 5 PIC X(03) FROM ALL SPACES.
- 05 BAD1 LINE 4 COL 1 PIC 9 BINARY FROM ZERO.
- 05 BAD2 LINE 4 COL 1 PIC 9 USAGE BINARY FROM ZERO.
- 05 FILLER LINE 4 COL 8 PIC 9 COMP-5 FROM ZERO.
- 05 BAD3 LINE 4 COL 5 COMP-2 FROM ALL ZEROES.
- PROCEDURE DIVISION.
- DISPLAY SG END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_screen.at:273: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "syn_screen.at:273"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:12: error: syntax error, unexpected BINARY
-prog.cob:13: error: syntax error, unexpected BINARY, expecting DISPLAY or DISPLAY-1 or NATIONAL or UTF-8
-prog.cob:14: error: syntax error, unexpected COMP-5
-prog.cob:15: error: syntax error, unexpected COMP-2
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_screen.at:273"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_427
-#AT_START_428
-at_fn_group_banner 428 'syn_screen.at:283' \
- "SCREEN SECTION clause numbers" " " 2
-at_xfail=no
-(
- printf "%s\n" "428. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- SCREEN SECTION.
- *> Valid numbers
- 01 v1 VALUE "-" LINE 1.
- 01 v2 VALUE "-" LINE + 1.
- 01 v3 VALUE "-" LINE - 1.
- 01 v4 VALUE "-" LINE 0.
-
- *> invalid numbers
- 01 i1 VALUE "-" LINE +1.
- 01 i2 VALUE "-" LINE -1.
- 01 i3 VALUE "-" LINE 1.0.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_screen.at:305: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_screen.at:305"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:13: error: unsigned integer value expected
-prog.cob:14: error: unsigned integer value expected
-prog.cob:15: error: unsigned integer value expected
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_screen.at:305"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_428
-#AT_START_429
-at_fn_group_banner 429 'syn_screen.at:315' \
- "Screen clauses" " " 2
-at_xfail=no
-(
- printf "%s\n" "429. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 foo PIC X.
- SCREEN SECTION.
- 01 scr.
- 03 a PIC X TO foo FULL, REQUIRED,
- LEFTLINE, RIGHTLINE, OVERLINE, UNDERLINE,
- GRID.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_screen.at:334: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_screen.at:334"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:11: warning: GRID is not implemented
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_screen.at:334"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_429
-#AT_START_430
-at_fn_group_banner 430 'syn_screen.at:341' \
- "ACCEPT ON EXCEPTION/ESCAPE" " " 2
-at_xfail=no
-(
- printf "%s\n" "430. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 foo PIC X.
- PROCEDURE DIVISION.
- ACCEPT foo
- ON EXCEPTION
- CONTINUE
- NOT EXCEPTION
- CONTINUE
- END-ACCEPT
-
- ACCEPT foo
- ESCAPE
- CONTINUE
- NOT ON ESCAPE
- CONTINUE
- END-ACCEPT
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_screen.at:367: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_screen.at:367"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_screen.at:367"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_430
-#AT_START_431
-at_fn_group_banner 431 'syn_screen.at:371' \
- "Referencing 88-level" " " 2
-at_xfail=no
-(
- printf "%s\n" "431. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-# see bug #178
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 flag PIC X.
- 88 blah VALUE "N".
-
- SCREEN SECTION.
- 01 scr.
- 03 PIC X COLUMN blah TO blah FROM blah.
-
- PROCEDURE DIVISION.
- ACCEPT scr
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_screen.at:393: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_screen.at:393"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:12: error: condition-name not allowed here: 'blah'
-prog.cob:12: error: condition-name not allowed here: 'blah'
-prog.cob:12: error: condition-name not allowed here: 'blah'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_screen.at:393"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_431
-#AT_START_432
-at_fn_group_banner 432 'syn_screen.at:402' \
- "Conflicting screen clauses" " " 2
-at_xfail=no
-(
- printf "%s\n" "432. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x PIC 999.
-
- SCREEN SECTION.
- 01 scr.
- 03 VALUE "foo" HIGHLIGHT, LOWLIGHT;
- ERASE EOL, ERASE EOS;
- BLANK LINE, BLANK SCREEN.
-
- PROCEDURE DIVISION.
- DISPLAY "blah" WITH HIGHLIGHT, LOWLIGHT;
- ERASE EOL, ERASE EOS;
- BLANK LINE, BLANK SCREEN;
- SCROLL UP, SCROLL DOWN;
-
- ACCEPT x WITH AUTO, TAB; SCROLL UP, SCROLL DOWN;
- UPDATE, NO UPDATE
-
- SET scr ATTRIBUTE HIGHLIGHT ON, LOWLIGHT OFF
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_screen.at:432: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_screen.at:432"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:11: error: cannot specify both LOWLIGHT and HIGHLIGHT
-prog.cob:12: error: cannot specify both ERASE EOS and ERASE EOL
-prog.cob:13: error: cannot specify both BLANK SCREEN and BLANK LINE
-prog.cob:16: error: cannot specify both LOWLIGHT and HIGHLIGHT
-prog.cob:17: error: cannot specify both ERASE EOS and ERASE EOL
-prog.cob:18: error: cannot specify both BLANK SCREEN and BLANK LINE
-prog.cob:21: error: cannot specify both SCROLL DOWN and SCROLL UP
-prog.cob:21: error: cannot specify both TAB and AUTO
-prog.cob:22: error: cannot specify both SCROLL DOWN and SCROLL UP
-prog.cob:22: error: cannot specify both NO UPDATE and UPDATE
-prog.cob:24: error: cannot specify both HIGHLIGHT and LOWLIGHT
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_screen.at:432"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_screen.at:446: \$COMPILE_ONLY -frelax-syntax-checks prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -frelax-syntax-checks prog.cob" "syn_screen.at:446"
-( $at_check_trace; $COMPILE_ONLY -frelax-syntax-checks prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:11: warning: cannot specify both LOWLIGHT and HIGHLIGHT
-prog.cob:11: note: LOWLIGHT is ignored
-prog.cob:12: warning: cannot specify both ERASE EOS and ERASE EOL
-prog.cob:12: note: ERASE EOS is ignored
-prog.cob:13: warning: cannot specify both BLANK SCREEN and BLANK LINE
-prog.cob:13: note: BLANK SCREEN is ignored
-prog.cob:16: warning: cannot specify both LOWLIGHT and HIGHLIGHT
-prog.cob:16: note: LOWLIGHT is ignored
-prog.cob:17: warning: cannot specify both ERASE EOS and ERASE EOL
-prog.cob:17: note: ERASE EOS is ignored
-prog.cob:18: warning: cannot specify both BLANK SCREEN and BLANK LINE
-prog.cob:18: note: BLANK SCREEN is ignored
-prog.cob:21: warning: cannot specify both SCROLL DOWN and SCROLL UP
-prog.cob:21: note: SCROLL DOWN is ignored
-prog.cob:21: warning: cannot specify both TAB and AUTO
-prog.cob:21: note: TAB is ignored
-prog.cob:22: warning: cannot specify both SCROLL DOWN and SCROLL UP
-prog.cob:22: note: SCROLL DOWN is ignored
-prog.cob:22: warning: cannot specify both NO UPDATE and UPDATE
-prog.cob:22: note: NO UPDATE is ignored
-prog.cob:24: error: cannot specify both HIGHLIGHT and LOWLIGHT
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_screen.at:446"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_432
-#AT_START_433
-at_fn_group_banner 433 'syn_screen.at:473' \
- "Redundant screen clauses" " " 2
-at_xfail=no
-(
- printf "%s\n" "433. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x PIC 999.
-
- SCREEN SECTION.
- 01 scr.
- 03 HIGHLIGHT FULL.
- 05 HIGHLIGHT FULL.
- 07 FULL FULL VALUE "foo".
-
- PROCEDURE DIVISION.
- DISPLAY "hello" WITH BACKGROUND-COLOR 2, BACKGROUND-COLOR 2
- ACCEPT x WITH HIGHLIGHT, HIGHLIGHT, UPDATE, DEFAULT
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_screen.at:496: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_screen.at:496"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:13: error: duplicate FULL clause
-prog.cob:16: error: duplicate BACKGROUND-COLOR clause
-prog.cob:17: error: duplicate HIGHLIGHT clause
-prog.cob:17: error: duplicate UPDATE clause
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_screen.at:496"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_433
-#AT_START_434
-at_fn_group_banner 434 'syn_screen.at:506' \
- "Screen item OCCURS w-/wo relative LINE/COL" " " 2
-at_xfail=no
-(
- printf "%s\n" "434. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- SCREEN SECTION.
- 01 x-scr.
- 03 x PIC X VALUE "a" OCCURS 10.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- SCREEN SECTION.
- 01 x-scr.
- 03 x PIC X VALUE "a" OCCURS 10 COL 10.
- 01 y-scr.
- 03 y PIC X VALUE "a" OCCURS 10 LINE 10.
-_ATEOF
-
-
-cat >prog3.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3.
- DATA DIVISION.
- SCREEN SECTION.
- 01 x-scr.
- 03 x PIC X VALUE "a" OCCURS 10 COL + 10.
- 01 y-scr.
- 03 y PIC X VALUE "a" OCCURS 10 LINE - 10.
- 01 a-scr.
- 03 a PIC X VALUE "a" OCCURS 10 COL PLUS 10.
- 01 b-scr.
- 03 b PIC X VALUE "a" OCCURS 10 LINE MINUS 10.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_screen.at:544: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_screen.at:544"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: warning: OCCURS screen items is not implemented
-prog.cob:7: error: relative LINE/COLUMN clause required with OCCURS
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_screen.at:544"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_screen.at:549: \$COMPILE_ONLY prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog2.cob" "syn_screen.at:549"
-( $at_check_trace; $COMPILE_ONLY prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:7: warning: OCCURS screen items is not implemented
-prog2.cob:7: error: relative LINE/COLUMN clause required with OCCURS
-prog2.cob:9: warning: OCCURS screen items is not implemented
-prog2.cob:9: error: relative LINE/COLUMN clause required with OCCURS
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_screen.at:549"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_screen.at:556: \$COMPILE_ONLY prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog3.cob" "syn_screen.at:556"
-( $at_check_trace; $COMPILE_ONLY prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog3.cob:7: warning: OCCURS screen items is not implemented
-prog3.cob:9: warning: OCCURS screen items is not implemented
-prog3.cob:11: warning: OCCURS screen items is not implemented
-prog3.cob:13: warning: OCCURS screen items is not implemented
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_screen.at:556"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_434
-#AT_START_435
-at_fn_group_banner 435 'syn_screen.at:566' \
- "VALUE clause missing" " " 2
-at_xfail=no
-(
- printf "%s\n" "435. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- SCREEN SECTION.
- 01 SG.
- 05 LINE 21 COL 1 VALUE "TESTING".
- 05 " IMPLICIT VALUE " HIGHLIGHT.
- PROCEDURE DIVISION.
- DISPLAY SG END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-# Note: currently depends on -std, may also depend on -frelax-syntax-checks
-{ set +x
-printf "%s\n" "$at_srcdir/syn_screen.at:584: \$COMPILE_ONLY -std=cobol2002 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol2002 prog.cob" "syn_screen.at:584"
-( $at_check_trace; $COMPILE_ONLY -std=cobol2002 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: missing VALUE
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_screen.at:584"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_screen.at:587: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_screen.at:587"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_screen.at:587"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_435
-#AT_START_436
-at_fn_group_banner 436 'syn_screen.at:592' \
- "FULL on numeric item" " " 2
-at_xfail=no
-(
- printf "%s\n" "436. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 num PIC 999.
-
- SCREEN SECTION.
- 01 scr.
- 03 full-pointless PIC 999 TO num FULL.
- 03 full-useful PIC ZZZ TO num FULL.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_screen.at:609: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_screen.at:609"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:11: warning: FULL has no effect on numeric items; you may want REQUIRED or PIC Z
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_screen.at:609"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_436
-#AT_START_437
-at_fn_group_banner 437 'syn_screen.at:616' \
- "Compiler-specific SCREEN SECTION clause rules" " " 2
-at_xfail=no
-(
- printf "%s\n" "437. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x PIC X.
- 01 num PIC 9.
-
- SCREEN SECTION.
- 01 scr.
- 03 no-clauses.
- 03 no-required-clauses BACKGROUND-COLOR 1.
- 03 only-line LINE 1.
- 03 numeric-pic-and-value PIC 999 VALUE 100.
- 03 only-pic PIC 9.
- 03 from-to-using-without-pic FROM x.
- 03 auto-without-from-to-using PIC 9 AUTO.
- 03 full-without-to-using PIC X FROM x FULL.
- 03 full-and-justified PIC X USING x, FULL, JUST.
- 03 secure-with-from PIC X FROM x SECURE.
- 03 secure-justified-no-clauses VALUE "Hello" SECURE, JUST.
- 03 blank-when-zero-without-pic FROM num, BLANK ZERO.
- 03 justified-without-pic FROM x, JUST.
- 03 sign-no-clauses PIC S9, SIGN LEADING SEPARATE.
- 03 figurative-constant-value VALUE SPACES.
- 03 only-erase ERASE EOL.
- 03 only-blank BLANK SCREEN.
- 03 only-bell BELL.
- 03 numeric-value-no-pic VALUE 1.
-
- 01 always-ok-scr.
- 03 my-group LINE 1, COL 1, FULL.
- 05 PIC X FROM "x" TO x.
- 05 PIC Z USING num.
- 05 VALUE "Hello, world!".
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_screen.at:657: \$COMPILE_ONLY -fscreen-section-rules=std prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fscreen-section-rules=std prog.cob" "syn_screen.at:657"
-( $at_check_trace; $COMPILE_ONLY -fscreen-section-rules=std prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:12: error: 'no-clauses' needs a PIC, FROM, TO, USING, VALUE, BELL, BLANK or ERASE clause
-prog.cob:13: error: 'no-required-clauses' needs a PIC, FROM, TO, USING, VALUE, BELL, BLANK or ERASE clause
-prog.cob:14: error: 'only-line' needs a PIC, FROM, TO, USING, VALUE, BELL, BLANK or ERASE clause
-prog.cob:16: error: 'only-pic' cannot have PIC without FROM, TO, USING or numeric VALUE
-prog.cob:17: error: cannot have FROM, TO or USING without PIC
-prog.cob:18: error: 'auto-without-from-to-using' cannot have PIC without FROM, TO, USING or numeric VALUE
-prog.cob:20: error: cannot specify both FULL and JUSTIFIED
-prog.cob:23: error: cannot have FROM, TO or USING without PIC
-prog.cob:24: error: cannot have FROM, TO or USING without PIC
-prog.cob:25: error: 'sign-no-clauses' cannot have PIC without FROM, TO, USING or numeric VALUE
-prog.cob:26: error: VALUE may not contain a figurative constant
-prog.cob:30: error: cannot have numeric VALUE without PIC
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_screen.at:657"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_screen.at:672: \$COMPILE_ONLY -fscreen-section-rules=acu prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fscreen-section-rules=acu prog.cob" "syn_screen.at:672"
-( $at_check_trace; $COMPILE_ONLY -fscreen-section-rules=acu prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:15: error: cannot specify both PIC and VALUE
-prog.cob:15: error: cannot have PIC without FROM, TO or USING
-prog.cob:15: error: VALUE item may not be numeric
-prog.cob:16: error: cannot have PIC without FROM, TO or USING
-prog.cob:17: warning: 'from-to-using-without-pic' has FROM, TO or USING without PIC; PIC will be implied
-prog.cob:18: error: cannot have PIC without FROM, TO or USING
-prog.cob:22: error: cannot have JUSTIFIED without PIC
-prog.cob:23: warning: 'blank-when-zero-without-pic' has FROM, TO or USING without PIC; PIC will be implied
-prog.cob:23: error: cannot have BLANK WHEN ZERO without PIC
-prog.cob:24: warning: 'justified-without-pic' has FROM, TO or USING without PIC; PIC will be implied
-prog.cob:24: error: cannot have JUSTIFIED without PIC
-prog.cob:25: error: cannot have PIC without FROM, TO or USING
-prog.cob:30: error: VALUE item may not be numeric
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_screen.at:672"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_screen.at:688: \$COMPILE_ONLY -fscreen-section-rules=mf prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fscreen-section-rules=mf prog.cob" "syn_screen.at:688"
-( $at_check_trace; $COMPILE_ONLY -fscreen-section-rules=mf prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:12: error: 'no-clauses' needs a PIC, COL, LINE, VALUE, BELL or BLANK clause
-prog.cob:13: error: 'no-required-clauses' needs a PIC, COL, LINE, VALUE, BELL or BLANK clause
-prog.cob:15: error: cannot specify both PIC and VALUE
-prog.cob:15: error: cannot have PIC without FROM, TO or USING
-prog.cob:15: error: VALUE item may not be numeric
-prog.cob:16: error: cannot have PIC without FROM, TO or USING
-prog.cob:17: error: 'from-to-using-without-pic' needs a PIC, COL, LINE, VALUE, BELL or BLANK clause
-prog.cob:17: warning: 'from-to-using-without-pic' has FROM, TO or USING without PIC; PIC will be implied
-prog.cob:18: error: cannot have PIC without FROM, TO or USING
-prog.cob:18: error: cannot use AUTO, FULL, PROMPT, REQUIRED or SECURE on elementary item without TO or USING
-prog.cob:19: error: cannot use AUTO, FULL, PROMPT, REQUIRED or SECURE on elementary item without TO or USING
-prog.cob:21: error: cannot use AUTO, FULL, PROMPT, REQUIRED or SECURE on elementary item without TO or USING
-prog.cob:22: error: cannot use AUTO, FULL, PROMPT, REQUIRED or SECURE on elementary item without TO or USING
-prog.cob:22: error: cannot use BLANK WHEN ZERO, JUSTIFIED, OCCURS or SIGN on item without FROM, TO or USING
-prog.cob:23: error: 'blank-when-zero-without-pic' needs a PIC, COL, LINE, VALUE, BELL or BLANK clause
-prog.cob:23: warning: 'blank-when-zero-without-pic' has FROM, TO or USING without PIC; PIC will be implied
-prog.cob:24: error: 'justified-without-pic' needs a PIC, COL, LINE, VALUE, BELL or BLANK clause
-prog.cob:24: warning: 'justified-without-pic' has FROM, TO or USING without PIC; PIC will be implied
-prog.cob:25: error: cannot have PIC without FROM, TO or USING
-prog.cob:25: error: cannot use BLANK WHEN ZERO, JUSTIFIED, OCCURS or SIGN on item without FROM, TO or USING
-prog.cob:26: error: VALUE may not contain a figurative constant
-prog.cob:27: error: 'only-erase' needs a PIC, COL, LINE, VALUE, BELL or BLANK clause
-prog.cob:30: error: VALUE item may not be numeric
-prog.cob:36: error: cannot use AUTO, FULL, PROMPT, REQUIRED or SECURE on elementary item without TO or USING
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_screen.at:688"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_screen.at:715: \$COMPILE_ONLY -fscreen-section-rules=rm prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fscreen-section-rules=rm prog.cob" "syn_screen.at:715"
-( $at_check_trace; $COMPILE_ONLY -fscreen-section-rules=rm prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:15: error: cannot specify both PIC and VALUE
-prog.cob:15: error: cannot have PIC without FROM, TO or USING
-prog.cob:15: error: VALUE item may not be numeric
-prog.cob:16: error: cannot have PIC without FROM, TO or USING
-prog.cob:17: error: cannot have FROM, TO or USING without PIC
-prog.cob:18: error: cannot have PIC without FROM, TO or USING
-prog.cob:22: error: cannot use AUTO, FULL, REQUIRED or SECURE on elementary item without FROM, TO or USING
-prog.cob:22: error: cannot use BLANK WHEN ZERO, JUSTIFIED or SIGN without FROM, TO or USING
-prog.cob:23: error: cannot have FROM, TO or USING without PIC
-prog.cob:23: error: cannot use BLANK WHEN ZERO, JUSTIFIED or SIGN without FROM, TO or USING
-prog.cob:24: error: cannot have FROM, TO or USING without PIC
-prog.cob:24: error: cannot use BLANK WHEN ZERO, JUSTIFIED or SIGN without FROM, TO or USING
-prog.cob:25: error: cannot have PIC without FROM, TO or USING
-prog.cob:30: error: VALUE item may not be numeric
-prog.cob:36: error: cannot use AUTO, FULL, REQUIRED or SECURE on elementary item without FROM, TO or USING
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_screen.at:715"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_screen.at:733: \$COMPILE_ONLY -fscreen-section-rules=xopen prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fscreen-section-rules=xopen prog.cob" "syn_screen.at:733"
-( $at_check_trace; $COMPILE_ONLY -fscreen-section-rules=xopen prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:12: error: 'no-clauses' needs a PIC, COL, LINE, VALUE, BELL or BLANK clause
-prog.cob:13: error: 'no-required-clauses' needs a PIC, COL, LINE, VALUE, BELL or BLANK clause
-prog.cob:15: error: cannot specify both PIC and VALUE
-prog.cob:15: error: cannot have PIC without FROM, TO or USING
-prog.cob:15: error: VALUE item may not be numeric
-prog.cob:16: error: cannot have PIC without FROM, TO or USING
-prog.cob:17: error: 'from-to-using-without-pic' needs a PIC, COL, LINE, VALUE, BELL or BLANK clause
-prog.cob:17: error: cannot have FROM, TO or USING without PIC
-prog.cob:18: error: cannot have PIC without FROM, TO or USING
-prog.cob:18: error: cannot have AUTO without FROM, TO or USING
-prog.cob:19: error: cannot use FULL or REQUIRED on item without TO or USING
-prog.cob:20: error: cannot specify both FULL and JUSTIFIED
-prog.cob:21: error: SECURE can be used with TO only
-prog.cob:22: error: SECURE must be used with TO
-prog.cob:23: error: 'blank-when-zero-without-pic' needs a PIC, COL, LINE, VALUE, BELL or BLANK clause
-prog.cob:23: error: cannot have FROM, TO or USING without PIC
-prog.cob:24: error: 'justified-without-pic' needs a PIC, COL, LINE, VALUE, BELL or BLANK clause
-prog.cob:24: error: cannot have FROM, TO or USING without PIC
-prog.cob:25: error: cannot have PIC without FROM, TO or USING
-prog.cob:27: error: 'only-erase' needs a PIC, COL, LINE, VALUE, BELL or BLANK clause
-prog.cob:30: error: VALUE item may not be numeric
-prog.cob:36: error: cannot use FULL or REQUIRED on item without TO or USING
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_screen.at:733"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_screen.at:758: \$COMPILE_ONLY -fscreen-section-rules=gc prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fscreen-section-rules=gc prog.cob" "syn_screen.at:758"
-( $at_check_trace; $COMPILE_ONLY -fscreen-section-rules=gc prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:12: warning: 'no-clauses' does nothing
-prog.cob:13: warning: 'no-required-clauses' does nothing
-prog.cob:15: warning: 'numeric-pic-and-value' has numeric VALUE without PIC; PIC will be implied
-prog.cob:16: warning: 'only-pic' does nothing
-prog.cob:17: warning: 'from-to-using-without-pic' has FROM, TO or USING without PIC; PIC will be implied
-prog.cob:18: warning: 'auto-without-from-to-using' does nothing
-prog.cob:23: warning: 'blank-when-zero-without-pic' has FROM, TO or USING without PIC; PIC will be implied
-prog.cob:24: warning: 'justified-without-pic' has FROM, TO or USING without PIC; PIC will be implied
-prog.cob:25: warning: 'sign-no-clauses' does nothing
-prog.cob:30: warning: 'numeric-value-no-pic' has numeric VALUE without PIC; PIC will be implied
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_screen.at:758"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_437
-#AT_START_438
-at_fn_group_banner 438 'syn_screen.at:774' \
- "MS-COBOL position-spec" " " 2
-at_xfail=no
-(
- printf "%s\n" "438. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# FIXME: WITH clause including a WITH COLUMN (both separate (working)
-# and combined - error - must be added
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 FIELD-A PIC X(06) VALUE "ms-cob".
- 01 A PIC X.
- PROCEDURE DIVISION.
- DISPLAY ERASE
- MOVE 10 TO LIN. MOVE 15 TO COL.
- DISPLAY (LIN , COL - 3) FIELD-A.
- DISPLAY (LIN + 1 , COL) FIELD-A.
- ACCEPT ( , 10) A.
- DISPLAY (08 , 12) FIELD-A.
- ACCEPT ( , 08) A WITH NO-ECHO.
- DISPLAY FIELD-A AT LINE 06 COLUMN 12.
- ACCEPT A AT COLUMN 8.
- SUBTRACT 2 FROM LIN.
- SUBTRACT 3 FROM COL.
- DISPLAY FIELD-A AT LINE LIN COLUMN COL.
- ACCEPT ( , 10) A.
- DISPLAY ( 1 , 1 ) ERASE.
- DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A.
- DISPLAY ( 3 , 1 ) A " --> A value"
- DISPLAY ( 5 , 1 ) "Press ENTER to exit".
- ACCEPT (11 , 1 ) A.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_screen.at:809: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_screen.at:809"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: 'LIN' is not defined
-prog.cob:10: error: syntax error, unexpected COL
-prog.cob:11: error: syntax error, unexpected COL, expecting Literal or ) or Identifier
-prog.cob:12: error: syntax error, unexpected COL, expecting Literal or ) or Identifier
-prog.cob:19: error: syntax error, unexpected COL
-prog.cob:20: error: syntax error, unexpected COL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_screen.at:809"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_screen.at:817: \$COMPILE_ONLY -fregister=LIN,COL prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fregister=LIN,COL prog.cob" "syn_screen.at:817"
-( $at_check_trace; $COMPILE_ONLY -fregister=LIN,COL prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_screen.at:817"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_438
-#AT_START_439
-at_fn_group_banner 439 'syn_screen.at:822' \
- "Screen with invalid FROM clause" " " 2
-at_xfail=no
-(
- printf "%s\n" "439. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# FIXME: some warnings are useless / confusing with follow-up errors
-# this has to be adjusted in cobc/field.c
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 some-const CONSTANT AS '123'.
- 77 x PIC XX.
- SCREEN SECTION.
- 01 bild.
- 05 from-constant-with-size FROM some-const.
- 05 from-constant-without-pic FROM ZERO.
- 05 LINE 24 COL 1 FROM message.
- 05 from-func-without-pic FROM FUNCTION TRIM(x).
- 05 from-func-with-pic FROM FUNCTION TRIM(x) PIC XX.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_screen.at:845: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_screen.at:845"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:13: error: syntax error, unexpected MESSAGE
-prog.cob:11: warning: 'from-constant-with-size' has FROM, TO or USING without PIC; PIC will be implied
-prog.cob:12: warning: 'from-constant-without-pic' has FROM, TO or USING without PIC; PIC will be implied
-prog.cob:12: error: PICTURE clause required for 'from-constant-without-pic'
-prog.cob:14: warning: 'from-func-without-pic' has FROM, TO or USING without PIC; PIC will be implied
-prog.cob:14: error: PICTURE clause required for 'from-func-without-pic'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_screen.at:845"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_screen.at:853: \$COMPILE_ONLY -fnot-reserved=MESSAGE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fnot-reserved=MESSAGE prog.cob" "syn_screen.at:853"
-( $at_check_trace; $COMPILE_ONLY -fnot-reserved=MESSAGE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:13: error: 'message' is not defined, but is a reserved word in another dialect
-prog.cob:11: warning: 'from-constant-with-size' has FROM, TO or USING without PIC; PIC will be implied
-prog.cob:12: warning: 'from-constant-without-pic' has FROM, TO or USING without PIC; PIC will be implied
-prog.cob:12: error: PICTURE clause required for 'from-constant-without-pic'
-prog.cob:13: warning: 'FILLER' has FROM, TO or USING without PIC; PIC will be implied
-prog.cob:13: error: PICTURE clause required for 'FILLER'
-prog.cob:14: warning: 'from-func-without-pic' has FROM, TO or USING without PIC; PIC will be implied
-prog.cob:14: error: PICTURE clause required for 'from-func-without-pic'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_screen.at:853"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_439
-#AT_START_440
-at_fn_group_banner 440 'syn_screen.at:867' \
- "DISPLAY WITH CONVERSION" " " 2
-at_xfail=no
-(
- printf "%s\n" "440. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY WITH CONVERSION "Whatever".
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_screen.at:880: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_screen.at:880"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: warning: DISPLAY WITH CONVERSION is not implemented
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_screen.at:880"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_440
-#AT_START_441
-at_fn_group_banner 441 'syn_set.at:24' \
- "SET ADDRESS OF item" " " 2
-at_xfail=no
-(
- printf "%s\n" "441. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X.
-
- LINKAGE SECTION.
- 01 Y BASED.
- 03 Z PIC X.
-
- PROCEDURE DIVISION.
- SET ADDRESS OF X TO NULL.
- SET ADDRESS OF Z TO NULL.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_set.at:45: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_set.at:45"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:14: error: cannot change address of 'X', which is not BASED or a LINKAGE item
-prog.cob:15: error: cannot change address of 'Z', which is not level 1 or 77
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_set.at:45"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_441
-#AT_START_442
-at_fn_group_banner 442 'syn_set.at:53' \
- "SET item TO 88-level" " " 2
-at_xfail=no
-(
- printf "%s\n" "442. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC 9.
- 88 x-wrong-init value space.
- 01 Y PIC X.
- 88 y-wrong-init value low-value.
-
- PROCEDURE DIVISION.
- SET x-wrong-init TO TRUE.
- SET y-wrong-init TO TRUE.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_set.at:73: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_set.at:73"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: error: literal type does not match numeric data type
-prog.cob:13: error: invalid SET statement
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_set.at:73"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_442
-#AT_START_443
-at_fn_group_banner 443 'syn_functions.at:22' \
- "ANY LENGTH / NUMERIC as function RETURNING item" "" 2
-at_xfail=no
-(
- printf "%s\n" "443. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- FUNCTION-ID. func.
-
- DATA DIVISION.
- LINKAGE SECTION.
- 01 any-len PIC X ANY LENGTH.
-
- PROCEDURE DIVISION RETURNING any-len.
- CONTINUE
- .
- END FUNCTION func.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_functions.at:39: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_functions.at:39"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: function RETURNING item may not be ANY LENGTH
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_functions.at:39"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- FUNCTION-ID. func.
-
- DATA DIVISION.
- LINKAGE SECTION.
- 01 any-len PIC 9 ANY NUMERIC.
-
- PROCEDURE DIVISION RETURNING any-len.
- CONTINUE
- .
- END FUNCTION func.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_functions.at:57: \$COMPILE_ONLY prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog2.cob" "syn_functions.at:57"
-( $at_check_trace; $COMPILE_ONLY prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:9: error: function RETURNING item may not be ANY LENGTH
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_functions.at:57"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_443
-#AT_START_444
-at_fn_group_banner 444 'syn_functions.at:64' \
- "REPOSITORY INTRINSIC phrase" " " 2
-at_xfail=no
-(
- printf "%s\n" "444. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- REPOSITORY.
- FUNCTION pi e intrinsic
- .
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY PI.
- DISPLAY E.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_functions.at:83: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_functions.at:83"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_functions.at:83"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_444
-#AT_START_445
-at_fn_group_banner 445 'syn_functions.at:87' \
- "REPOSITORY FUNCTION phrase" " " 2
-at_xfail=no
-(
- printf "%s\n" "445. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- FUNCTION-ID. x AS "y".
-
- DATA DIVISION.
- LINKAGE SECTION.
- 01 ret PIC 9(4).
-
- PROCEDURE DIVISION RETURNING ret.
- MOVE 100 TO ret
- .
- END FUNCTION x.
-
- IDENTIFICATION DIVISION.
- FUNCTION-ID. z.
-
- DATA DIVISION.
- LINKAGE SECTION.
- 01 ret PIC 9(5).
-
- PROCEDURE DIVISION RETURNING ret.
- MOVE 1 TO ret
- .
- END FUNCTION z.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- REPOSITORY.
- FUNCTION y AS "y"
- FUNCTION z
- .
- PROCEDURE DIVISION.
- DISPLAY FUNCTION y
- DISPLAY FUNCTION z
- .
- END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_functions.at:131: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_functions.at:131"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_functions.at:131"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_445
-#AT_START_446
-at_fn_group_banner 446 'syn_functions.at:135' \
- "Redundant REPOSITORY entries" " " 2
-at_xfail=no
-(
- printf "%s\n" "446. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- PROGRAM-ID. prog.
- END PROGRAM prog.
-
- IDENTIFICATION DIVISION.
- FUNCTION-ID. alpha.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- ALPHABET gamma IS ASCII
- .
- REPOSITORY.
- FUNCTION alpha
- PROGRAM prog
- PROGRAM prog
- PROGRAM prog AS "alpha"
- FUNCTION prog
- FUNCTION gamma
- .
- END FUNCTION alpha.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_functions.at:161: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_functions.at:161"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:14: warning: prototype has same name as current function and will be ignored
-prog.cob:16: warning: duplicate REPOSITORY entry for 'prog'
-prog.cob:17: error: duplicate REPOSITORY entries for 'prog' do not match
-prog.cob:18: error: duplicate REPOSITORY entries for 'prog' do not match
-prog.cob:19: warning: no definition/prototype seen for FUNCTION 'gamma'
-prog.cob:19: error: redefinition of 'gamma'
-prog.cob:11: note: 'gamma' previously defined here
-prog.cob:21: error: FUNCTION 'alpha' has no PROCEDURE DIVISION
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_functions.at:161"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_446
-#AT_START_447
-at_fn_group_banner 447 'syn_functions.at:174' \
- "Missing prototype/definition" " " 2
-at_xfail=no
-(
- printf "%s\n" "447. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- FUNCTION-ID. blah.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- REPOSITORY.
- FUNCTION x
- PROGRAM y
- .
- DATA DIVISION.
- LINKAGE SECTION.
- 01 ret PIC X.
-
- PROCEDURE DIVISION RETURNING ret.
- MOVE FUNCTION x TO ret
- MOVE FUNCTION x TO ret
- .
- END FUNCTION blah.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_functions.at:198: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_functions.at:198"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: warning: no definition/prototype seen for FUNCTION 'x'
-prog.cob:9: warning: no definition/prototype seen for PROGRAM 'y'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_functions.at:198"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_447
-#AT_START_448
-at_fn_group_banner 448 'syn_functions.at:205' \
- "Empty function" " " 2
-at_xfail=no
-(
- printf "%s\n" "448. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# Note: Test case for "Function without END FUNCTION" in syn_definition
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- FUNCTION-ID. func.
-
- END FUNCTION func.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x PIC 999 VALUE 124.
- END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_functions.at:225: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_functions.at:225"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:5: error: FUNCTION 'func' has no PROCEDURE DIVISION
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_functions.at:225"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_448
-#AT_START_449
-at_fn_group_banner 449 'syn_functions.at:232' \
- "Function definition inside program" " " 2
-at_xfail=no
-(
- printf "%s\n" "449. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- PROCEDURE DIVISION.
- CONTINUE
- .
-
- IDENTIFICATION DIVISION.
- FUNCTION-ID. f.
- END FUNCTION f.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_functions.at:248: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_functions.at:248"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: functions may not be defined within a program/function
-prog.cob:11: error: FUNCTION 'f' has no PROCEDURE DIVISION
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_functions.at:248"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_449
-#AT_START_450
-at_fn_group_banner 450 'syn_functions.at:255' \
- "Intrinsic functions: dialect" " " 2
-at_xfail=no
-(
- printf "%s\n" "450. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY FUNCTION ABS (1).
- DISPLAY FUNCTION STORED-CHAR-LENGTH (" some text here").
- DISPLAY FUNCTION SUBSTITUTE ('some text' 'some' 'nice').
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_functions.at:271: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_functions.at:271"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_functions.at:271"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_functions.at:272: \$COMPILE_ONLY -std=acu-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=acu-strict prog.cob" "syn_functions.at:272"
-( $at_check_trace; $COMPILE_ONLY -std=acu-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: FUNCTION 'STORED-CHAR-LENGTH' unknown
-prog.cob:10: error: FUNCTION 'SUBSTITUTE' unknown
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_functions.at:272"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_450
-#AT_START_451
-at_fn_group_banner 451 'syn_functions.at:280' \
- "Intrinsic functions: replaced" " " 2
-at_xfail=no
-(
- printf "%s\n" "451. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- FUNCTION-ID. SUBSTITUTE.
-
- DATA DIVISION.
- LINKAGE SECTION.
- 01 func-in PIC X(15).
- 01 func-sub PIC X.
- 01 func-out PIC X(15).
-
- PROCEDURE DIVISION USING func-in, func-sub RETURNING func-out.
- MOVE func-in TO func-out
- INSPECT func-out REPLACING ALL '%' BY func-sub
- .
- END FUNCTION SUBSTITUTE.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- REPOSITORY.
- FUNCTION SUBSTITUTE
- .
- PROCEDURE DIVISION.
- DISPLAY FUNCTION SUBSTITUTE(" % C%O%B%O%L % ", "_")
- DISPLAY FUNCTION SUBSTITUTE(" % C%O%B%O%L % ", "-")
- .
- END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_functions.at:314: \$COMPILE_ONLY -fnot-intrinsic=substitute prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fnot-intrinsic=substitute prog.cob" "syn_functions.at:314"
-( $at_check_trace; $COMPILE_ONLY -fnot-intrinsic=substitute prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_functions.at:314"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_functions.at:315: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_functions.at:315"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:24: error: syntax error, unexpected ., expecting intrinsic function name or INTRINSIC
-prog.cob:26: error: FUNCTION 'SUBSTITUTE' has wrong number of arguments
-prog.cob:27: error: FUNCTION 'SUBSTITUTE' has wrong number of arguments
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_functions.at:315"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_451
-#AT_START_452
-at_fn_group_banner 452 'syn_functions.at:324' \
- "Intrinsic functions: number of arguments" " " 2
-at_xfail=no
-(
- printf "%s\n" "452. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY FUNCTION PI.
- DISPLAY FUNCTION PI ( ).
- DISPLAY FUNCTION PI (1).
- DISPLAY FUNCTION ABS.
- DISPLAY FUNCTION ABS (1).
- DISPLAY FUNCTION ABS (1, 2).
- DISPLAY FUNCTION DAY-TO-YYYYDDD.
- DISPLAY FUNCTION DAY-TO-YYYYDDD (6000).
- DISPLAY FUNCTION DAY-TO-YYYYDDD (6000,50).
- DISPLAY FUNCTION DAY-TO-YYYYDDD (6000,50,1600).
- DISPLAY FUNCTION DAY-TO-YYYYDDD (6000,50,1600,500).
- DISPLAY FUNCTION MAX ().
- DISPLAY FUNCTION MAX (6000).
- DISPLAY FUNCTION SUBSTITUTE ('A' 'B' 'C' 'D').
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_functions.at:351: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_functions.at:351"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: FUNCTION 'PI' has wrong number of arguments
-prog.cob:11: error: FUNCTION 'ABS' has wrong number of arguments
-prog.cob:13: error: FUNCTION 'ABS' has wrong number of arguments
-prog.cob:14: error: FUNCTION 'DAY-TO-YYYYDDD' has wrong number of arguments
-prog.cob:18: error: FUNCTION 'DAY-TO-YYYYDDD' has wrong number of arguments
-prog.cob:19: error: FUNCTION 'MAX' has wrong number of arguments
-prog.cob:21: error: FUNCTION 'SUBSTITUTE' has wrong number of arguments
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_functions.at:351"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_452
-#AT_START_453
-at_fn_group_banner 453 'syn_functions.at:364' \
- "Intrinsic functions: reference modification" " " 2
-at_xfail=no
-(
- printf "%s\n" "453. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# the following should be checked, currently doesn't work
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY FUNCTION CHAR (66)(1:2).
- DISPLAY FUNCTION NUMVAL-C (123)(1:2).
- DISPLAY FUNCTION REVERSE ("TESTME")(-1:1).
- DISPLAY FUNCTION REVERSE ("TESTME")(1:0).
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_functions.at:382: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_functions.at:382"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: error: FUNCTION 'CHAR' cannot have reference modification
-prog.cob:9: error: FUNCTION 'NUMVAL-C' cannot have reference modification
-prog.cob:10: error: FUNCTION 'REVERSE' has invalid reference modification
-prog.cob:11: error: FUNCTION 'REVERSE' has invalid reference modification
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_functions.at:382"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# missing: resolving constant values at compile-time, allowing us to
-# catch bad ref-mods
-#AT_DATA([prog2.cob], [
-# IDENTIFICATION DIVISION.
-# PROGRAM-ID. prog2.
-# ENVIRONMENT DIVISION.
-# DATA DIVISION.
-# WORKING-STORAGE SECTION.
-# PROCEDURE DIVISION.
-# DISPLAY FUNCTION REVERSE ("TESTME")(20:1).
-# STOP RUN.
-#])
-#
-#AT_CHECK([$COMPILE_ONLY prog3.cob], [1], [],
-#[prog.cob:8: error: FUNCTION 'REVERSE' has invalid reference modification
-#prog.cob:8: error: reference modification out of bounds
-#])
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_453
-#AT_START_454
-at_fn_group_banner 454 'syn_functions.at:410' \
- "Intrinsic functions: argument type" " " 2
-at_xfail=no
-(
- printf "%s\n" "454. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# TODO: Add more tests
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY FUNCTION ABS ('1').
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_functions.at:426: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_functions.at:426"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: error: FUNCTION 'ABS' has invalid argument
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_functions.at:426"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_454
-#AT_START_455
-at_fn_group_banner 455 'syn_functions.at:433' \
- "invalid formatted date/time args" " " 2
-at_xfail=no
-(
- printf "%s\n" "455. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 format-str PIC X(8) VALUE "YYYYMMDD".
- 01 Date-Format CONSTANT "YYYYMMDD".
- 01 Time-Format CONSTANT "hhmmss".
- 01 Datetime-Format CONSTANT "YYYYMMDDThhmmss".
- PROCEDURE DIVISION.
- *> Test wrong formats
- DISPLAY FUNCTION FORMATTED-DATE ( "YYYYWWWD", 1 )
- END-DISPLAY
- DISPLAY FUNCTION FORMATTED-TIME ( "HHMMSS", 1)
- END-DISPLAY
- DISPLAY FUNCTION FORMATTED-DATETIME
- ( "YYYYWWWDTHHMMSS", 1, 1)
- END-DISPLAY
-
- *> Test format in variable
- DISPLAY FUNCTION FORMATTED-DATE ( format-str, 1)
- END-DISPLAY
-
- *> Test incompatible formats
- DISPLAY FUNCTION FORMATTED-CURRENT-DATE (Date-Format)
- END-DISPLAY
- DISPLAY FUNCTION FORMATTED-CURRENT-DATE (Time-Format)
- END-DISPLAY
-
- DISPLAY FUNCTION FORMATTED-DATE ( Time-Format, 1)
- END-DISPLAY
- DISPLAY FUNCTION FORMATTED-DATE ( Datetime-Format, 1)
- END-DISPLAY
-
- DISPLAY FUNCTION FORMATTED-TIME ( Date-Format, 1)
- END-DISPLAY
- DISPLAY FUNCTION FORMATTED-TIME ( Datetime-Format, 1)
- END-DISPLAY
-
- DISPLAY FUNCTION FORMATTED-DATETIME ( Date-Format, 1, 1)
- END-DISPLAY
- DISPLAY FUNCTION FORMATTED-DATETIME ( Time-Format, 1, 1)
- END-DISPLAY
-
- DISPLAY FUNCTION INTEGER-OF-FORMATTED-DATE ( Time-Format, 1)
- END-DISPLAY
-
- DISPLAY FUNCTION SECONDS-FROM-FORMATTED-TIME
- ( Date-Format, 1)
- END-DISPLAY
-
- *> Time format with more than 9 decimal places.
- DISPLAY FUNCTION FORMATTED-TIME ( "hhmmss.ssssssssss", 1)
- END-DISPLAY
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_functions.at:494: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_functions.at:494"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:12: error: FUNCTION 'FORMATTED-DATE' has invalid date/time format
-prog.cob:14: error: FUNCTION 'FORMATTED-TIME' has invalid date/time format
-prog.cob:16: error: FUNCTION 'FORMATTED-DATETIME' has invalid date/time format
-prog.cob:21: warning: FUNCTION 'FORMATTED-DATE' has format in variable
-prog.cob:25: error: FUNCTION 'FORMATTED-CURRENT-DATE' has invalid date/time format
-prog.cob:27: error: FUNCTION 'FORMATTED-CURRENT-DATE' has invalid date/time format
-prog.cob:30: error: FUNCTION 'FORMATTED-DATE' has invalid date/time format
-prog.cob:32: error: FUNCTION 'FORMATTED-DATE' has invalid date/time format
-prog.cob:35: error: FUNCTION 'FORMATTED-TIME' has invalid date/time format
-prog.cob:37: error: FUNCTION 'FORMATTED-TIME' has invalid date/time format
-prog.cob:40: error: FUNCTION 'FORMATTED-DATETIME' has invalid date/time format
-prog.cob:42: error: FUNCTION 'FORMATTED-DATETIME' has invalid date/time format
-prog.cob:45: error: FUNCTION 'INTEGER-OF-FORMATTED-DATE' has invalid date/time format
-prog.cob:48: error: FUNCTION 'SECONDS-FROM-FORMATTED-TIME' has invalid date/time format
-prog.cob:53: error: FUNCTION 'FORMATTED-TIME' has invalid date/time format
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_functions.at:494"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_455
-#AT_START_456
-at_fn_group_banner 456 'syn_functions.at:514' \
- "invalid formats w/ DECIMAL-POINT IS COMMA" " " 2
-at_xfail=no
-(
- printf "%s\n" "456. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- DECIMAL-POINT IS COMMA.
- PROCEDURE DIVISION.
- DISPLAY FUNCTION FORMATTED-TIME ("hhmmss,ss", 1).
- DISPLAY FUNCTION FORMATTED-DATETIME
- ("YYYYMMDDThhmmss,ss", 1, 1).
-
- DISPLAY FUNCTION FORMATTED-TIME ("hhmmss.ss", 1).
- DISPLAY FUNCTION FORMATTED-DATETIME
- ("YYYYMMDDThhmmss.ss", 1, 1).
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_functions.at:536: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_functions.at:536"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:13: error: FUNCTION 'FORMATTED-TIME' has invalid date/time format
-prog.cob:14: error: FUNCTION 'FORMATTED-DATETIME' has invalid date/time format
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_functions.at:536"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_456
-#AT_START_457
-at_fn_group_banner 457 'syn_functions.at:544' \
- "Specified offset and SYSTEM-OFFSET" " " 2
-at_xfail=no
-(
- printf "%s\n" "457. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- DISPLAY FUNCTION FORMATTED-DATETIME
- ("YYYYDDDThhmmssZ", 1, 1, 1, SYSTEM-OFFSET)
- END-DISPLAY
- DISPLAY FUNCTION FORMATTED-TIME
- ("hhmmssZ", 1, 1, SYSTEM-OFFSET)
- END-DISPLAY
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_functions.at:560: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "syn_functions.at:560"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: error: cannot specify offset and SYSTEM-OFFSET at the same time
-prog.cob:9: error: cannot specify offset and SYSTEM-OFFSET at the same time
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_functions.at:560"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_457
-#AT_START_458
-at_fn_group_banner 458 'syn_functions.at:568' \
- "FUNCTION LENGTH / BYTE-LENGTH" " " 2
-at_xfail=no
-(
- printf "%s\n" "458. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- DISPLAY FUNCTION LENGTH ("abcd" & "xyz")
- DISPLAY FUNCTION BYTE-LENGTH ("abcd" & "xyz")
- DISPLAY FUNCTION LENGTH ("abcd" "xyz")
- DISPLAY FUNCTION BYTE-LENGTH (01234)
- DISPLAY FUNCTION LENGTH (567)
- DISPLAY FUNCTION LENGTH ("abcd" & "xyz" PHYSICAL)
- DISPLAY FUNCTION BYTE-LENGTH ("abcd" & "xyz" PHYSICAL)
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_functions.at:585: \$COMPILE -Wno-pending prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -Wno-pending prog.cob" "syn_functions.at:585"
-( $at_check_trace; $COMPILE -Wno-pending prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: error: syntax error, unexpected Literal, expecting PHYSICAL or )
-prog.cob:8: error: a non-numeric literal is expected here
-prog.cob:9: error: a non-numeric literal is expected here
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_functions.at:585"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_458
-#AT_START_459
-at_fn_group_banner 459 'syn_literals.at:25' \
- "continuation Indicator - too many lines" " " 2
-at_xfail=no
-(
- printf "%s\n" "459. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - ' ' END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:569: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_literals.at:569"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:538: error: buffer overrun - too many continuation lines
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_literals.at:569"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# extra test with listing as this is an edge case there
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:575: \$COMPILE_ONLY -t prog.lst prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -t prog.lst prog.cob" "syn_literals.at:575"
-( $at_check_trace; $COMPILE_ONLY -t prog.lst prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:538: error: buffer overrun - too many continuation lines
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_literals.at:575"
-$at_failed && at_fn_log_failure \
-"prog.lst"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_459
-#AT_START_460
-at_fn_group_banner 460 'syn_literals.at:583' \
- "literal too long" " " 2
-at_xfail=no
-(
- printf "%s\n" "460. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - ' '.
- STOP RUN.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' '-
- ' ' END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:787: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_literals.at:787"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: invalid literal: ' ...'
-prog.cob:9: note: literal length exceeds 8191 characters
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_literals.at:787"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:792: \$COMPILE_ONLY -fliteral-length=160 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fliteral-length=160 prog.cob" "syn_literals.at:792"
-( $at_check_trace; $COMPILE_ONLY -fliteral-length=160 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: invalid literal: ' ...'
-prog.cob:9: note: literal length exceeds 160 characters
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_literals.at:792"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:797: \$COMPILE_ONLY -free prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -free prog2.cob" "syn_literals.at:797"
-( $at_check_trace; $COMPILE_ONLY -free prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:9: error: invalid literal: ' ...'
-prog2.cob:9: note: literal length 8299 exceeds 8191 characters
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_literals.at:797"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# extra test with listing as this is an edge case there
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:804: \$COMPILE_ONLY -t prog.lst prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -t prog.lst prog.cob" "syn_literals.at:804"
-( $at_check_trace; $COMPILE_ONLY -t prog.lst prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: invalid literal: ' ...'
-prog.cob:9: note: literal length exceeds 8191 characters
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_literals.at:804"
-$at_failed && at_fn_log_failure \
-"prog.lst"
-$at_traceon; }
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:810: \$COMPILE_ONLY -free -t prog2.lst prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -free -t prog2.lst prog2.cob" "syn_literals.at:810"
-( $at_check_trace; $COMPILE_ONLY -free -t prog2.lst prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:9: error: invalid literal: ' ...'
-prog2.cob:9: note: literal length 8299 exceeds 8191 characters
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_literals.at:810"
-$at_failed && at_fn_log_failure \
-"prog.lst" \
-"prog2.lst"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_460
-#AT_START_461
-at_fn_group_banner 461 'syn_literals.at:819' \
- "numeric literals" " " 2
-at_xfail=no
-(
- printf "%s\n" "461. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 COUNTER PIC 9 VALUE 0.
- PROCEDURE DIVISION.
-
- *> No literals at all
- 00000000000000000000000000000000000000000000000000000000000
- SECTION.
- 000000000000000000000000000000000000000000000000000000000000.
- ADD 1 TO COUNTER END-ADD
- EVALUATE COUNTER
- WHEN 1
- PERFORM
- 00000000000000000000000000000000000000000000000000000000000
- WHEN 2
- PERFORM
- 000000000000000000000000000000000000000000000000000000000000
- WHEN 3
- MOVE 0 TO COUNTER
- END-EVALUATE.
-
- 100000000000000000000000000000000000000000000000000000000001
- SECTION.
- 20000000000000000000000000000000000000000000000000000000002.
- ADD 1 TO COUNTER END-ADD
- EVALUATE COUNTER
- WHEN 1
- PERFORM
- 100000000000000000000000000000000000000000000000000000000001
- WHEN 2
- PERFORM
- 20000000000000000000000000000000000000000000000000000000002
- WHEN 3
- MOVE 0 TO COUNTER
- END-EVALUATE.
-
- STOP RUN.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- PROCEDURE DIVISION.
-
- *> Valid literals, depending on numeric literal size
- DISPLAY 1.0076, +100000.03, +1.0, -0078,
- +.1234567890123456789012345678901234
- .123456789012345678901234567890123450
- END-DISPLAY
-
- *> Invalid literals
- DISPLAY 1.03.0 END-DISPLAY
- DISPLAY --123 END-DISPLAY
- DISPLAY -123- END-DISPLAY
- DISPLAY -123-456 END-DISPLAY
- DISPLAY -123-4.56 END-DISPLAY
- DISPLAY -12.3-456 END-DISPLAY
- DISPLAY -12.3-4.56 END-DISPLAY
- DISPLAY 1000003+ END-DISPLAY
- DISPLAY 1.000003+ END-DISPLAY
- DISPLAY .3+ END-DISPLAY
- DISPLAY 3.+ END-DISPLAY
-
- STOP RUN.
-_ATEOF
-
-
-cat >prog3.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES. DECIMAL-POINT IS COMMA.
- PROCEDURE DIVISION.
-
- *> Valid literals, depending on numeric literal size
- DISPLAY 1,0076, +100000,03, +1,0, -0078,
- +,1234567890123456789012345678901234
- ,123456789012345678901234567890123450
- END-DISPLAY
-
- *> Invalid literals
- DISPLAY 1,03,0 END-DISPLAY
- DISPLAY --123 END-DISPLAY
- DISPLAY -123- END-DISPLAY
- DISPLAY -123-456 END-DISPLAY
- DISPLAY -123-4,56 END-DISPLAY
- DISPLAY -12,3-456 END-DISPLAY
- DISPLAY -12,3-4,56 END-DISPLAY
- DISPLAY 1000003+ END-DISPLAY
- DISPLAY 1,000003+ END-DISPLAY
- DISPLAY ,3+ END-DISPLAY
- DISPLAY 3,+ END-DISPLAY
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:924: \$COMPILE_ONLY -fliteral-length=1 -fnumeric-literal-length=1 -fword-length=60 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fliteral-length=1 -fnumeric-literal-length=1 -fword-length=60 prog.cob" "syn_literals.at:924"
-( $at_check_trace; $COMPILE_ONLY -fliteral-length=1 -fnumeric-literal-length=1 -fword-length=60 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_literals.at:924"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# result with extended scanner for wrong numeric literals:
-#AT_CHECK([$COMPILE_ONLY prog2.cob], [1], [],
-#[prog2.cob:16: error: invalid numeric literal: '1.03.0'
-#prog2.cob:16: error: literal with more than one decimal point
-#prog2.cob:17: error: invalid numeric literal: '--123'
-#prog2.cob:17: error: literal with more than one sign character
-#prog2.cob:18: error: invalid numeric literal: '-123-'
-#prog2.cob:18: error: literal with more than one sign character
-#prog2.cob:19: error: invalid numeric literal: '-123-456'
-#prog2.cob:19: error: literal with more than one sign character
-#prog2.cob:20: error: invalid numeric literal: '-123-4.56'
-#prog2.cob:20: error: literal with more than one sign character
-#prog2.cob:21: error: invalid numeric literal: '-12.3-456'
-#prog2.cob:21: error: literal with more than one sign character
-#prog2.cob:22: error: invalid numeric literal: '-12.3-4.56'
-#prog2.cob:22: error: literal with more than one sign character
-#prog2.cob:22: error: literal with more than one decimal point
-#prog2.cob:23: error: invalid numeric literal: '1000003+'
-#prog2.cob:23: error: sign must appear as leftmost character
-#prog2.cob:24: error: invalid numeric literal: '1.000003+'
-#prog2.cob:24: error: sign must appear as leftmost character
-#prog2.cob:25: error: invalid numeric literal: '.3+'
-#prog2.cob:25: error: sign must appear as leftmost character
-#prog2.cob:26: error: invalid numeric literal: '3.+'
-#prog2.cob:26: error: sign must appear as leftmost character
-#])
-#AT_CHECK([$COMPILE_ONLY prog3.cob], [1], [],
-#[prog3.cob:16: error: invalid numeric literal: '1,03,0'
-#prog3.cob:16: error: literal with more than one decimal point
-#prog3.cob:17: error: invalid numeric literal: '--123'
-#prog3.cob:17: error: literal with more than one sign character
-#prog3.cob:18: error: invalid numeric literal: '-123-'
-#prog3.cob:18: error: literal with more than one sign character
-#prog3.cob:19: error: invalid numeric literal: '-123-456'
-#prog3.cob:19: error: literal with more than one sign character
-#prog3.cob:20: error: invalid numeric literal: '-123-4,56'
-#prog3.cob:20: error: literal with more than one sign character
-#prog3.cob:21: error: invalid numeric literal: '-12,3-456'
-#prog3.cob:21: error: literal with more than one sign character
-#prog3.cob:22: error: invalid numeric literal: '-12,3-4,56'
-#prog3.cob:22: error: literal with more than one sign character
-#prog3.cob:22: error: literal with more than one decimal point
-#prog3.cob:23: error: invalid numeric literal: '1000003+'
-#prog3.cob:23: error: sign must appear as leftmost character
-#prog3.cob:24: error: invalid numeric literal: '1,000003+'
-#prog3.cob:24: error: sign must appear as leftmost character
-#prog3.cob:25: error: invalid numeric literal: ',3+'
-#prog3.cob:25: error: sign must appear as leftmost character
-#prog3.cob:26: error: invalid numeric literal: '3,+'
-#prog3.cob:26: error: sign must appear as leftmost character
-#])
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:978: \$COMPILE_ONLY prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog2.cob" "syn_literals.at:978"
-( $at_check_trace; $COMPILE_ONLY prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:17: error: syntax error, unexpected -, expecting (
-prog2.cob:18: error: syntax error, unexpected -
-prog2.cob:23: error: syntax error, unexpected +
-prog2.cob:24: error: syntax error, unexpected +
-prog2.cob:25: error: syntax error, unexpected +
-prog2.cob:26: error: syntax error, unexpected +
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_literals.at:978"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:986: \$COMPILE_ONLY prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog3.cob" "syn_literals.at:986"
-( $at_check_trace; $COMPILE_ONLY prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog3.cob:17: error: syntax error, unexpected -, expecting (
-prog3.cob:18: error: syntax error, unexpected -
-prog3.cob:23: error: syntax error, unexpected +
-prog3.cob:24: error: syntax error, unexpected +
-prog3.cob:25: error: syntax error, unexpected +
-prog3.cob:26: error: syntax error, unexpected +
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_literals.at:986"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_461
-#AT_START_462
-at_fn_group_banner 462 'syn_literals.at:998' \
- "floating-point literals" " " 2
-at_xfail=no
-(
- printf "%s\n" "462. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-# Refer to Section 8.3.1.2.2.2 of COBOL 2014.
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- *> Valid literals
- DISPLAY 1.0E6144, +1.0E+3, +1.0E-6143, 123.E1,
- +.123456789012345678901234567890123456E+0000
- END-DISPLAY
-
- *> invalid literals
- DISPLAY 1.0D3 END-DISPLAY
- DISPLAY 1E3 END-DISPLAY
- DISPLAY '1.0E3'BLAH END-DISPLAY
- DISPLAY 1.0E3.0 END-DISPLAY
- DISPLAY -0.0E-0 END-DISPLAY
- DISPLAY 1.0E00003 END-DISPLAY
- DISPLAY .123456789012345678901234567890123456789E0
- END-DISPLAY
- DISPLAY 0.0E3 END-DISPLAY
-
- *> Implementor-defined invalid literals
- DISPLAY 1.0E6145 END-DISPLAY
- DISPLAY 1.0E-6144 END-DISPLAY
-
- STOP RUN.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- DECIMAL-POINT IS COMMA.
- PROCEDURE DIVISION.
- *> Valid literals
- DISPLAY 1,0E6144; +1,0E+3; +1,0E-6143; 123,E1;
- +,123456789012345678901234567890123456E+0000
- END-DISPLAY
-
- *> invalid literals
- DISPLAY 1,0D3 END-DISPLAY
- DISPLAY 1E3 END-DISPLAY
- DISPLAY 1,0E3BLAH END-DISPLAY
- DISPLAY 1,0E3,0 END-DISPLAY
- DISPLAY -0,0E-0 END-DISPLAY
- DISPLAY 1,0E00003 END-DISPLAY
- DISPLAY ,123456789012345678901234567890123456789E0
- END-DISPLAY
- DISPLAY 0,0E3 END-DISPLAY
-
- *> Implementor-defined invalid literals
- DISPLAY 1,0E6145 END-DISPLAY
- DISPLAY 1,0E-6144 END-DISPLAY
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:1060: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_literals.at:1060"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:11: error: 'D3' is not defined
-prog.cob:12: error: '1E3' is not defined
-prog.cob:13: error: 'BLAH' is not defined
-prog.cob:14: error: invalid floating-point literal: '1.0E3.0'
-prog.cob:14: note: exponent has decimal point
-prog.cob:15: error: invalid floating-point literal: '-0.0E-0'
-prog.cob:15: note: significand of 0 must be positive
-prog.cob:15: note: exponent of 0 must be positive
-prog.cob:16: error: invalid floating-point literal: '1.0E00003'
-prog.cob:16: note: exponent has more than 4 digits
-prog.cob:17: error: invalid floating-point literal: '.123456789012345678901234567890123 ...'
-prog.cob:17: note: significand has more than 36 digits
-prog.cob:19: error: invalid floating-point literal: '0.0E3'
-prog.cob:19: note: exponent of 0 must be 0
-prog.cob:22: error: invalid floating-point literal: '1.0E6145'
-prog.cob:22: note: exponent not between -6143 and 6144
-prog.cob:23: error: invalid floating-point literal: '1.0E-6144'
-prog.cob:23: note: exponent not between -6143 and 6144
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_literals.at:1060"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:1081: \$COMPILE_ONLY prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog2.cob" "syn_literals.at:1081"
-( $at_check_trace; $COMPILE_ONLY prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:15: error: 'D3' is not defined
-prog2.cob:16: error: '1E3' is not defined
-prog2.cob:17: error: 'BLAH' is not defined
-prog2.cob:18: error: invalid floating-point literal: '1,0E3,0'
-prog2.cob:18: note: exponent has decimal point
-prog2.cob:19: error: invalid floating-point literal: '-0,0E-0'
-prog2.cob:19: note: significand of 0 must be positive
-prog2.cob:19: note: exponent of 0 must be positive
-prog2.cob:20: error: invalid floating-point literal: '1,0E00003'
-prog2.cob:20: note: exponent has more than 4 digits
-prog2.cob:21: error: invalid floating-point literal: ',123456789012345678901234567890123 ...'
-prog2.cob:21: note: significand has more than 36 digits
-prog2.cob:23: error: invalid floating-point literal: '0,0E3'
-prog2.cob:23: note: exponent of 0 must be 0
-prog2.cob:26: error: invalid floating-point literal: '1,0E6145'
-prog2.cob:26: note: exponent not between -6143 and 6144
-prog2.cob:27: error: invalid floating-point literal: '1,0E-6144'
-prog2.cob:27: note: exponent not between -6143 and 6144
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_literals.at:1081"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_462
-#AT_START_463
-at_fn_group_banner 463 'syn_literals.at:1105' \
- "X literals" " " 2
-at_xfail=no
-(
- printf "%s\n" "463. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- *> Valid form
- DISPLAY X"0123456789ABCDEF"
-
- *> invalid form
- DISPLAY X"GH"
- X"1"
- END-DISPLAY.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:1121: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_literals.at:1121"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: invalid X literal: 'GH'
-prog.cob:9: note: literal contains invalid character 'G'
-prog.cob:9: note: literal contains invalid character 'H'
-prog.cob:10: error: invalid X literal: '1'
-prog.cob:10: note: literal does not have an even number of digits
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_literals.at:1121"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:1129: \$COMPILE_ONLY -std=mf-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=mf-strict prog.cob" "syn_literals.at:1129"
-( $at_check_trace; $COMPILE_ONLY -std=mf-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: invalid X literal: 'GH'
-prog.cob:9: note: literal contains invalid character 'G'
-prog.cob:9: note: literal contains invalid character 'H'
-prog.cob:10: warning: invalid X literal: '1'
-prog.cob:10: note: literal does not have an even number of digits
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_literals.at:1129"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_463
-#AT_START_464
-at_fn_group_banner 464 'syn_literals.at:1140' \
- "national literals" " " 2
-at_xfail=no
-(
- printf "%s\n" "464. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# Skip due to change in N type specifications
-printf "%s\n" "syn_literals.at:1144" >"$at_check_line_file"
-at_fn_check_skip 77 "$at_srcdir/syn_literals.at:1144"
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- DISPLAY N"UTF-16 string".
- DISPLAY N'0123456789ABCDEF'.
- DISPLAY N"0123456789ABCDEF"-
- N"0123456789ABCDEF".
- DISPLAY NC"0123456789ABCDEF"-
- NC'0123456789ABCDEF'.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:1158: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_literals.at:1158"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:5: warning: handling of national literal is unfinished; implementation is likely to be changed
-prog.cob:6: warning: handling of national literal is unfinished; implementation is likely to be changed
-prog.cob:7: warning: handling of national literal is unfinished; implementation is likely to be changed
-prog.cob:8: warning: handling of national literal is unfinished; implementation is likely to be changed
-prog.cob:9: warning: national-character literal used
-prog.cob:9: warning: handling of national literal is unfinished; implementation is likely to be changed
-prog.cob:10: warning: national-character literal used
-prog.cob:10: warning: handling of national literal is unfinished; implementation is likely to be changed
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_literals.at:1158"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:1169: \$COMPILE_ONLY -std=cobol85 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol85 prog.cob" "syn_literals.at:1169"
-( $at_check_trace; $COMPILE_ONLY -std=cobol85 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:5: error: national literal does not conform to COBOL 85
-prog.cob:6: error: national literal does not conform to COBOL 85
-prog.cob:7: error: national literal does not conform to COBOL 85
-prog.cob:8: error: national literal does not conform to COBOL 85
-prog.cob:9: error: national-character literal does not conform to COBOL 85
-prog.cob:10: error: national-character literal does not conform to COBOL 85
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_literals.at:1169"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_464
-#AT_START_465
-at_fn_group_banner 465 'syn_literals.at:1181' \
- "NX literals" " " 2
-at_xfail=no
-(
- printf "%s\n" "465. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# Skip due to change in N type specifications
-printf "%s\n" "syn_literals.at:1185" >"$at_check_line_file"
-at_fn_check_skip 77 "$at_srcdir/syn_literals.at:1185"
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- *> Valid form
- DISPLAY NX"265E"
- DISPLAY NX"0123456789ABCDEF"
-
- *> invalid form
- DISPLAY NX"GH"
- NX"1".
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:1200: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_literals.at:1200"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: warning: handling of national literal is unfinished; implementation is likely to be changed
-prog.cob:7: warning: handling of national literal is unfinished; implementation is likely to be changed
-prog.cob:10: warning: handling of national literal is unfinished; implementation is likely to be changed
-prog.cob:10: error: invalid NX literal: 'GH'
-prog.cob:10: note: literal contains invalid character 'G'
-prog.cob:10: note: literal contains invalid character 'H'
-prog.cob:11: warning: handling of national literal is unfinished; implementation is likely to be changed
-prog.cob:11: error: invalid NX literal: '1'
-prog.cob:11: note: literal does not have an even number of digits
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_literals.at:1200"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:1212: \$COMPILE_ONLY -std=cobol85 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol85 prog.cob" "syn_literals.at:1212"
-( $at_check_trace; $COMPILE_ONLY -std=cobol85 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: error: hexadecimal-national literal does not conform to COBOL 85
-prog.cob:7: error: hexadecimal-national literal does not conform to COBOL 85
-prog.cob:10: error: hexadecimal-national literal does not conform to COBOL 85
-prog.cob:11: error: hexadecimal-national literal does not conform to COBOL 85
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_literals.at:1212"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_465
-#AT_START_466
-at_fn_group_banner 466 'syn_literals.at:1222' \
- "binary literals" " " 2
-at_xfail=no
-(
- printf "%s\n" "466. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- DISPLAY B"101010"
- DISPLAY B"111111111111111111111111111111111111111111111111111
- - "1111111111111" *> " Syntax highlighting hack
-
- DISPLAY B"23"
- DISPLAY B"111111111111111111111111111111111111111111111111111
- - "111111111111111111111111111111111111111111111111111
- - "11111111111111111111111111111111111111111111111111"
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:1240: \$COMPILE_ONLY -std=mf prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=mf prog.cob" "syn_literals.at:1240"
-( $at_check_trace; $COMPILE_ONLY -std=mf prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: invalid B literal: '23'
-prog.cob:9: note: literal contains invalid character '2'
-prog.cob:9: note: literal contains invalid character '3'
-prog.cob:10: error: invalid B literal: '1111111111111111111111111111111111 ...'
-prog.cob:10: note: literal length 152 exceeds 64 characters
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_literals.at:1240"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:1248: \$COMPILE_ONLY -std=cobol85 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol85 prog.cob" "syn_literals.at:1248"
-( $at_check_trace; $COMPILE_ONLY -std=cobol85 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:5: error: numeric boolean literal does not conform to COBOL 85
-prog.cob:6: error: numeric boolean literal does not conform to COBOL 85
-prog.cob:9: error: numeric boolean literal does not conform to COBOL 85
-prog.cob:10: error: numeric boolean literal does not conform to COBOL 85
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_literals.at:1248"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_466
-#AT_START_467
-at_fn_group_banner 467 'syn_literals.at:1258' \
- "binary-hexadecimal literals" " " 2
-at_xfail=no
-(
- printf "%s\n" "467. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- DISPLAY BX"AB05CD0F"
- DISPLAY BX"0123456789ABCDEF0123456789ABCDEF0123456789A
- - "BCDEF" *> " Syntax highlighting hack
-
- DISPLAY BX"A"
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:1273: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_literals.at:1273"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: error: invalid BX literal: '0123456789ABCDEF0123456789ABCDEF01 ...'
-prog.cob:6: note: literal length 192 exceeds 64 characters
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_literals.at:1273"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:1278: \$COMPILE_ONLY -std=cobol85 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol85 prog.cob" "syn_literals.at:1278"
-( $at_check_trace; $COMPILE_ONLY -std=cobol85 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:5: error: hexadecimal-boolean literal does not conform to COBOL 85
-prog.cob:6: error: hexadecimal-boolean literal does not conform to COBOL 85
-prog.cob:9: error: hexadecimal-boolean literal does not conform to COBOL 85
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_literals.at:1278"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_467
-#AT_START_468
-at_fn_group_banner 468 'syn_literals.at:1287' \
- "HP COBOL octal literals" " " 2
-at_xfail=no
-(
- printf "%s\n" "468. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- *> Valid forms
- DISPLAY %17 %37777777777 %456
-
- *> invalid forms
- DISPLAY %11111111111111111111111
- DISPLAY %89
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:1304: \$COMPILE_ONLY -Wno-unfinished -fhp-octal-literals=ok prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wno-unfinished -fhp-octal-literals=ok prog.cob" "syn_literals.at:1304"
-( $at_check_trace; $COMPILE_ONLY -Wno-unfinished -fhp-octal-literals=ok prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: invalid % literal: '11111111111111111111111'
-prog.cob:9: note: literal length 23 exceeds 22 characters
-prog.cob:10: error: invalid % literal: '89'
-prog.cob:10: note: literal contains invalid character '8'
-prog.cob:10: note: literal contains invalid character '9'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_literals.at:1304"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:1312: \$COMPILE_ONLY -std=cobol2014 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol2014 prog.cob" "syn_literals.at:1312"
-( $at_check_trace; $COMPILE_ONLY -std=cobol2014 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: error: HP COBOL octal literal does not conform to COBOL 2014
-prog.cob:6: error: HP COBOL octal literal does not conform to COBOL 2014
-prog.cob:6: error: HP COBOL octal literal does not conform to COBOL 2014
-prog.cob:9: error: HP COBOL octal literal does not conform to COBOL 2014
-prog.cob:10: error: HP COBOL octal literal does not conform to COBOL 2014
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_literals.at:1312"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_468
-#AT_START_469
-at_fn_group_banner 469 'syn_literals.at:1323' \
- "ACUCOBOL literals" " " 2
-at_xfail=no
-(
- printf "%s\n" "469. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- *> Valid forms
- DISPLAY B#10 O#12345670123 X#12345678 H#90aBcDeF
- END-DISPLAY
-
- *> invalid forms
- >>SOURCE FREE
- DISPLAY B#11111111111111111111111111111111111111111111111111111111111111111
- O#11111111111111111111111 X#11111111111111111 H#22222222222222222
- >>SOURCE FIXED
- DISPLAY B#23 O#89 X#GG H#HH
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:1344: \$COMPILE_ONLY -std=acu prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=acu prog.cob" "syn_literals.at:1344"
-( $at_check_trace; $COMPILE_ONLY -std=acu prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:11: error: invalid B# literal: '1111111111111111111111111111111111 ...'
-prog.cob:11: note: literal length 65 exceeds 64 characters
-prog.cob:12: error: invalid O# literal: '11111111111111111111111'
-prog.cob:12: note: literal length 23 exceeds 22 characters
-prog.cob:12: error: invalid hexadecimal literal: '11111111111111111'
-prog.cob:12: note: literal length 17 exceeds 16 characters
-prog.cob:12: error: invalid hexadecimal literal: '22222222222222222'
-prog.cob:12: note: literal length 17 exceeds 16 characters
-prog.cob:14: error: invalid B# literal: '23'
-prog.cob:14: note: literal contains invalid character '2'
-prog.cob:14: note: literal contains invalid character '3'
-prog.cob:14: error: invalid O# literal: '89'
-prog.cob:14: note: literal contains invalid character '8'
-prog.cob:14: note: literal contains invalid character '9'
-prog.cob:14: error: invalid X# literal: 'GG'
-prog.cob:14: note: literal contains invalid character 'G'
-prog.cob:14: note: literal contains invalid character 'G'
-prog.cob:14: error: invalid H# literal: 'HH'
-prog.cob:14: note: literal contains invalid character 'H'
-prog.cob:14: note: literal contains invalid character 'H'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_literals.at:1344"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:1367: \$COMPILE_ONLY -std=cobol2014 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol2014 prog.cob" "syn_literals.at:1367"
-( $at_check_trace; $COMPILE_ONLY -std=cobol2014 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: error: ACUCOBOL numeric literal does not conform to COBOL 2014
-prog.cob:6: error: ACUCOBOL numeric literal does not conform to COBOL 2014
-prog.cob:6: error: ACUCOBOL numeric literal does not conform to COBOL 2014
-prog.cob:6: error: ACUCOBOL numeric literal does not conform to COBOL 2014
-prog.cob:11: error: ACUCOBOL numeric literal does not conform to COBOL 2014
-prog.cob:12: error: ACUCOBOL numeric literal does not conform to COBOL 2014
-prog.cob:12: error: ACUCOBOL numeric literal does not conform to COBOL 2014
-prog.cob:12: error: ACUCOBOL numeric literal does not conform to COBOL 2014
-prog.cob:14: error: ACUCOBOL numeric literal does not conform to COBOL 2014
-prog.cob:14: error: ACUCOBOL numeric literal does not conform to COBOL 2014
-prog.cob:14: error: ACUCOBOL numeric literal does not conform to COBOL 2014
-prog.cob:14: error: ACUCOBOL numeric literal does not conform to COBOL 2014
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_literals.at:1367"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_469
-#AT_START_470
-at_fn_group_banner 470 'syn_literals.at:1385' \
- "ACUCOBOL 32bit literal size" " " 2
-at_xfail=no
-(
- printf "%s\n" "470. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-# ACUCOBOL literal max - the result is system dependent on size of unsigned long int
-# FIXME: do not skip when expecting we pass
-printf "%s\n" "syn_literals.at:1389" >"$at_check_line_file"
-at_fn_check_skip 77 "$at_srcdir/syn_literals.at:1389"
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
-
- >>SOURCE FREE
- DISPLAY B#1111111111111111111111111111111111111111111111111111111111111111
- O#1111111111111111111111 X#1111111111111111
-
- STOP RUN.
-_ATEOF
-
-
-#AT_CHECK([$COMPILE_ONLY -std=acu prog.cob], [0], [], [])
-# TODO check the result according to COB_32_BIT_LONG --> 1 should result in the following
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:1407: \$COMPILE_ONLY -std=acu prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=acu prog.cob" "syn_literals.at:1407"
-( $at_check_trace; $COMPILE_ONLY -std=acu prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:7: error: invalid B# literal: '11111111111111111111111111111111111...'
-prog.cob:7: note: literal exceeds limit 4294967295
-prog.cob:8: error: invalid O# literal: '1111111111111111111111'
-prog.cob:8: note: literal exceeds limit 4294967295
-prog.cob:8: error: invalid X# literal: '1111111111111111'
-prog.cob:8: note: literal exceeds limit 4294967295
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_literals.at:1407"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_470
-#AT_START_471
-at_fn_group_banner 471 'syn_literals.at:1418' \
- "zero-length literals" " " 2
-at_xfail=no
-(
- printf "%s\n" "471. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# Skip due to change in N type specifications
-printf "%s\n" "syn_literals.at:1422" >"$at_check_line_file"
-at_fn_check_skip 77 "$at_srcdir/syn_literals.at:1422"
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x PIC X.
- 01 nat PIC N.
- 01 n PIC 9.
-
- PROCEDURE DIVISION.
- MOVE X'' TO x
- MOVE H'' TO n
- MOVE Z'' TO x
- MOVE L'' TO x
- MOVE N"" TO nat
- MOVE NX'' TO nat
- MOVE B"" TO n
- MOVE BX"" TO n
- .
-_ATEOF
-
-
-# unfinished national
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:1447: \$COMPILE_ONLY -Wno-unfinished prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wno-unfinished prog.cob" "syn_literals.at:1447"
-( $at_check_trace; $COMPILE_ONLY -Wno-unfinished prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:12: warning: hexadecimal literal has zero length; X'00' will be assumed
-prog.cob:13: error: invalid H literal: ''
-prog.cob:13: note: H literals must contain at least one character
-prog.cob:14: error: invalid Z literal: ''
-prog.cob:14: note: Z literals must contain at least one character
-prog.cob:15: error: invalid L literal: ''
-prog.cob:15: note: L literals must contain at least one character
-prog.cob:16: warning: national literal has zero length; a SPACE will be assumed
-prog.cob:17: warning: hexadecimal literal has zero length; X'00' will be assumed
-prog.cob:18: warning: boolean literal has zero length; B'0' will be assumed
-prog.cob:19: warning: hexadecimal literal has zero length; X'00' will be assumed
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_literals.at:1447"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:1460: \$COMPILE_ONLY -fzero-length-literals=error -Wno-unfinished prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fzero-length-literals=error -Wno-unfinished prog.cob" "syn_literals.at:1460"
-( $at_check_trace; $COMPILE_ONLY -fzero-length-literals=error -Wno-unfinished prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:12: error: zero-length literal used
-prog.cob:12: warning: hexadecimal literal has zero length; X'00' will be assumed
-prog.cob:13: error: invalid H literal: ''
-prog.cob:13: note: H literals must contain at least one character
-prog.cob:14: error: invalid Z literal: ''
-prog.cob:14: note: Z literals must contain at least one character
-prog.cob:15: error: invalid L literal: ''
-prog.cob:15: note: L literals must contain at least one character
-prog.cob:16: error: zero-length literal used
-prog.cob:16: warning: national literal has zero length; a SPACE will be assumed
-prog.cob:17: error: zero-length literal used
-prog.cob:17: warning: hexadecimal literal has zero length; X'00' will be assumed
-prog.cob:18: error: zero-length literal used
-prog.cob:18: warning: boolean literal has zero length; B'0' will be assumed
-prog.cob:19: error: zero-length literal used
-prog.cob:19: warning: hexadecimal literal has zero length; X'00' will be assumed
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_literals.at:1460"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_471
-#AT_START_472
-at_fn_group_banner 472 'syn_literals.at:1481' \
- "long literal in error message" " " 2
-at_xfail=no
-(
- printf "%s\n" "472. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. tutorial.
- PROCEDURE DIVISION.
- move low-values to
- ' 1 c d e f g h i j k l m n 0 q.'-
- ' 2 C D E F G H I J K L M N 0 Q.'-
- ' 3 c d e f g h i j k l m n 0 q.'-
- ' 4 C D E F G H I J K L M N 0 Q.'-
- ' 5 c d e f g h i j k l m n 0 q.'-
- ' 6 C D E F G H I J K L M N 0 Q.'-
- ' 7 c d e f g h i j k l m n 0 q.'-
- ' 8 C D E F G H I J K L M N 0 Q.'-
- ' 9 c d e f g h i j k l m n 0 q.'-
- '10 C D E F G H I J K L M N 0 Q.'-
- '11 c d e f g h i j k l m n 0 q.'-
- '12 C D E F G H I J K L M N 0 Q.'-
- '13 c d e f g h i j k l m n 0 q.'-
- '14 C D E F G H I J K L M N 0 Q.'-
- '15 c d e f g h i j k l m n 0 q.'.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:1506: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "syn_literals.at:1506"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:5: error: invalid MOVE target: literal \" 1 c d e f g h i j k l m n 0 q. 2 ...\"
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_literals.at:1506"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_472
-#AT_START_473
-at_fn_group_banner 473 'syn_literals.at:1513' \
- "literal missing terminating character" " " 2
-at_xfail=no
-(
- printf "%s\n" "473. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. tutorial.
- PROCEDURE DIVISION.
- DISPLAY ' 1 c d e f g h i j k l m n 0 q.
- - ' 2 C D E F G H I J K L M N 0 Q.
-_ATEOF
-
-
-# FIXME: we should move this from scanner to pplex to preserve the spaces
-# [prog.cob:5: error: invalid literal: ' 1 c d e f g h i j k l m n 0 q. ...'
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:1526: \$COMPILE_ONLY -w prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -w prog.cob" "syn_literals.at:1526"
-( $at_check_trace; $COMPILE_ONLY -w prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:5: error: invalid literal: ' 1 c d e f g h i j k l m n 0 q. 2 ...'
-prog.cob:5: note: missing terminating ' character
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_literals.at:1526"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_473
-#AT_START_474
-at_fn_group_banner 474 'syn_literals.at:1534' \
- "GCOS literals with EBCDIC symbols (syntax)" " " 2
-at_xfail=no
-(
- printf "%s\n" "474. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- DISPLAY ""135,151,151"bar"195,194,0""
- DISPLAY ""135,257""
- DISPLAY ""135,x,194,1""
- DISPLAY ""135,,155,""
- DISPLAY ""135 155 " "
-
- STOP RUN.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:1548: \$COMPILE -febcdic-symbolic-characters prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -febcdic-symbolic-characters prog.cob" "syn_literals.at:1548"
-( $at_check_trace; $COMPILE -febcdic-symbolic-characters prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:5: error: character code 0 out of encoding range (1..256)
-prog.cob:6: error: character code 257 out of encoding range (1..256)
-prog.cob:7: error: invalid character 'x' in sequence of symbolic EBCDIC characters
-prog.cob:8: error: extraneous character ',' in sequence of symbolic EBCDIC characters
-prog.cob:8: error: extraneous separator ',' at end of symbolic EBCDIC characters
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_literals.at:1548"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- DISPLAY ""135,151,151"bar"195,194,234" = foobarBAZ"
- STOP RUN.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:1562: \$COMPILE -febcdic-symbolic-characters prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE -febcdic-symbolic-characters prog2.cob" "syn_literals.at:1562"
-( $at_check_trace; $COMPILE -febcdic-symbolic-characters prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_literals.at:1562"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:1563: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "syn_literals.at:1563"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2.cob:5: warning: alphanumeric literal has zero length; a SPACE will be assumed
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/syn_literals.at:1563"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/syn_literals.at:1566: \$COMPILE -febcdic-symbolic-characters -febcdic-table=dummyNotThere prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE -febcdic-symbolic-characters -febcdic-table=dummyNotThere prog2.cob" "syn_literals.at:1566"
-( $at_check_trace; $COMPILE -febcdic-symbolic-characters -febcdic-table=dummyNotThere prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: error: can't open translation table 'dummyNotThere'
-prog2.cob:5: error: invalid parameter: -febcdic-table
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/syn_literals.at:1566"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_474
-#AT_START_475
-at_fn_group_banner 475 'listings.at:21' \
- "Minimal lines per listing pages" " " 3
-at_xfail=no
-(
- printf "%s\n" "475. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# note: 2.2 did not use a minimal length,
-# a typo like -tlines=2 loops forever
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- * some comments go here
- *> and here
- *> and finally... here
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 NEWSTUFF PIC X(80).
- PROCEDURE DIVISION.
- DISPLAY NEWSTUFF " BENEFITS SOME PARTS FROM "
- "MANY" "STUFF" ", " "VERY MUCH" "GOOD" NEWSTUFF
- "AND STUFF !"
- NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-cat >expected.lst <<'_ATEOF'
-GnuCOBOL OSS Consortium prog.cob DDD MMM dd HH:MM:SS YYYY Page 0001
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 * some comments go here
-000003 *> and here
-000004 *> and finally... here
-000005 IDENTIFICATION DIVISION.
-000006 PROGRAM-ID. prog.
-000007 DATA DIVISION.
-000008 WORKING-STORAGE SECTION.
-000009 01 NEWSTUFF PIC X(80).
-000010 PROCEDURE DIVISION.
-000011 DISPLAY NEWSTUFF " BENEFITS SOME PARTS FROM "
-000012 "MANY" "STUFF" ", " "VERY MUCH" "GOOD" NEWSTUFF
-000013 "AND STUFF !"
-000014 NO ADVANCING
-000015 END-DISPLAY.
-000016 STOP RUN.
-
- GnuCOBOL OSS Consortium prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002
-
-0 warnings in compilation group
-0 errors in compilation group
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:75: \$COMPILE_ONLY -t prog.lst -tlines=2 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -t prog.lst -tlines=2 prog.cob" "listings.at:75"
-( $at_check_trace; $COMPILE_ONLY -t prog.lst -tlines=2 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "cobc: warning: 2 lines per listing page specified, using 20
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:75"
-$at_failed && at_fn_log_failure \
-"prog.lst"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:79: \$UNIFY_LISTING prog.lst prog.lis"
-at_fn_check_prepare_dynamic "$UNIFY_LISTING prog.lst prog.lis" "listings.at:79"
-( $at_check_trace; $UNIFY_LISTING prog.lst prog.lis
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:79"
-$at_failed && at_fn_log_failure \
-"prog.lst"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:80: diff expected.lst prog.lis"
-at_fn_check_prepare_trace "listings.at:80"
-( $at_check_trace; diff expected.lst prog.lis
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:80"
-$at_failed && at_fn_log_failure \
-"prog.lst"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_475
-#AT_START_476
-at_fn_group_banner 476 'listings.at:85' \
- "COPY within comment" " " 3
-at_xfail=no
-(
- printf "%s\n" "476. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- *COPY "copy.inc".
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:98: \$COMPILE_LISTING0 -t- prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t- prog.cob" "listings.at:98"
-( $at_check_trace; $COMPILE_LISTING0 -t- prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 DATA DIVISION.
-000005 WORKING-STORAGE SECTION.
-000006 *COPY \"copy.inc\".
-000007 PROCEDURE DIVISION.
-000008 STOP RUN.
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:98"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- *> COPY "copy.inc".
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:127: \$COMPILE_LISTING0 -t- -free prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t- -free prog2.cob" "listings.at:127"
-( $at_check_trace; $COMPILE_LISTING0 -t- -free prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog2.cob
-
-LINE .....................SOURCE.............................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog2.
-000004 DATA DIVISION.
-000005 WORKING-STORAGE SECTION.
-000006 *> COPY \"copy.inc\".
-000007 PROCEDURE DIVISION.
-000008 STOP RUN.
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:127"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_476
-#AT_START_477
-at_fn_group_banner 477 'listings.at:149' \
- "Replacement w/o strings" " " 3
-at_xfail=no
-(
- printf "%s\n" "477. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- REPLACE =="SOME"== BY =="MANY"==
- =='SOME'== BY =="VERY MUCH"==
- ==STUFF== BY ==NEWSTUFF==.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 NEWSTUFF PIC X(80).
- PROCEDURE DIVISION.
- DISPLAY STUFF " BENEFITS SOME PARTS FROM "
- "SOME" "STUFF" ", " 'SOME' "GOOD" STUFF "AND STUFF !"
- NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:169: \$COMPILE_LISTING0 -t- -ftsymbols prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t- -ftsymbols prog.cob" "listings.at:169"
-( $at_check_trace; $COMPILE_LISTING0 -t- -ftsymbols prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 REPLACE ==\"SOME\"== BY ==\"MANY\"==
-000003 =='SOME'== BY ==\"VERY MUCH\"==
-000004 ==STUFF== BY ==NEWSTUFF==.
-000005 IDENTIFICATION DIVISION.
-000006 PROGRAM-ID. prog.
-000007 DATA DIVISION.
-000008 WORKING-STORAGE SECTION.
-000009 01 NEWSTUFF PIC X(80).
-000010 PROCEDURE DIVISION.
-000011 DISPLAY NEWSTUFF \" BENEFITS SOME PARTS FROM \"
-000012 \"MANY\" \"STUFF\" \", \" \"VERY MUCH\" \"GOOD\" NEWSTUFF
-000012+ - \"AND STUFF !\"
-000013 NO ADVANCING
-000014 END-DISPLAY.
-000015 STOP RUN.
-
-SIZE TYPE LVL NAME PICTURE
-
- WORKING-STORAGE SECTION
-
-00080 ALPHANUMERIC 01 NEWSTUFF X(80)
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:169"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_477
-#AT_START_478
-at_fn_group_banner 478 'listings.at:205' \
- "Partial replacement with literals" " " 3
-at_xfail=no
-(
- printf "%s\n" "478. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 1 W-DATA.
- 3 X PIC X(1) VALUE "X".
- 3 XX PIC X(2) VALUE "XX".
- 3 Z PIC X(1) VALUE "Z".
- 3 ZZ PIC X(2) VALUE "ZZ".
- 3 Y PIC X(1) VALUE "Y".
- PROCEDURE DIVISION.
- REPLACE LEADING "X" BY SPACES
- TRAILING "Z" BY SPACES
- LEADING "Y" BY "X".
- MAIN.
- DISPLAY "XX: *" XX "*"
- DISPLAY "X: *" X "*"
- DISPLAY "ZZ: *" ZZ "*"
- DISPLAY "Z: *" Z "*"
- DISPLAY "Y: *" Y "*"
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:232: \$COMPILE_LISTING0 -fpartial-replace-when-literal-src=skip -t- prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -fpartial-replace-when-literal-src=skip -t- prog.cob" "listings.at:232"
-( $at_check_trace; $COMPILE_LISTING0 -fpartial-replace-when-literal-src=skip -t- prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 DATA DIVISION.
-000005 WORKING-STORAGE SECTION.
-000006 1 W-DATA.
-000007 3 X PIC X(1) VALUE \"X\".
-000008 3 XX PIC X(2) VALUE \"XX\".
-000009 3 Z PIC X(1) VALUE \"Z\".
-000010 3 ZZ PIC X(2) VALUE \"ZZ\".
-000011 3 Y PIC X(1) VALUE \"Y\".
-000012 PROCEDURE DIVISION.
-000013 REPLACE LEADING \"X\" BY SPACES
-000014 TRAILING \"Z\" BY SPACES
-000015 LEADING \"Y\" BY \"X\".
-000016 MAIN.
-000017 DISPLAY \"XX: *\" X \"*\"
-000018 DISPLAY \"X: *\" X \"*\"
-000019 DISPLAY \"ZZ: *\" ZZ \"*\"
-000020 DISPLAY \"Z: *\" Z \"*\"
-000021 DISPLAY \"Y: *\" X \"*\"
-000022 STOP RUN.
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:232"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_478
-#AT_START_479
-at_fn_group_banner 479 'listings.at:269' \
- "COPY replacement with partial match" " " 3
-at_xfail=no
-(
- printf "%s\n" "479. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >copy.inc <<'_ATEOF'
-
- 02 TEST-VAR PIC X(2) VALUE "OK".
- 02 TEST-CC PIC X(4) VALUE "OK 2".
-_ATEOF
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 GET-VALUE.
- COPY "copy.inc" REPLACING ==TEST-VAR== BY ==TEST-AVR==
- == 02 TEST-EE == BY == 02 TEST-FF ==.
- PROCEDURE DIVISION.
- DISPLAY TEST-AVR.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:289: \$COMPILE_LISTING0 -t- prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t- prog.cob" "listings.at:289"
-( $at_check_trace; $COMPILE_LISTING0 -t- prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 DATA DIVISION.
-000005 WORKING-STORAGE SECTION.
-000006 01 GET-VALUE.
-000007 COPY \"copy.inc\" REPLACING ==TEST-VAR== BY ==TEST-AVR==
-000008 == 02 TEST-EE == BY == 02 TEST-FF ==.
-000001C
-000002C 02 TEST-AVR PIC X(2) VALUE \"OK\".
-000003C 02 TEST-CC PIC X(4) VALUE \"OK 2\".
-000009 PROCEDURE DIVISION.
-000010 DISPLAY TEST-AVR.
-000011 STOP RUN.
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:289"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_479
-#AT_START_480
-at_fn_group_banner 480 'listings.at:318' \
- "COPY replacement with multiple partial matches" " " 3
-at_xfail=no
-(
- printf "%s\n" "480. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >copy.inc <<'_ATEOF'
-
- 02 TEST-VAR PIC X(2) VALUE "OK".
- 02 TEST-VAR-BIS PIC X(6) VALUE "OK BIS".
- 02 TEST-CC PIC X(4) VALUE "OK 2".
- 02 TEST-OK PIC X(4) VALUE "OK 3".
- 02 TEST-EE PIC X(4) VALUE "OK 4".
-_ATEOF
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 GET-VALUE.
- COPY "copy.inc" REPLACING
- LEADING ==TEST-VAR== BY ==TEST-AVR==
- == 02 TEST-OK == BY == 02 TEST-KO ==
- ==TEST-CC== BY ==TEST-DD==
- == 02 TEST-EE == BY == 02 TEST-FF ==
- == PIC == BY == pic ==.
- PROCEDURE DIVISION.
- DISPLAY TEST-AVR.
- DISPLAY TEST-AVR-BIS.
- DISPLAY TEST-KO.
- DISPLAY TEST-DD.
- DISPLAY TEST-FF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:349: \$COMPILE_LISTING0 -t- prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t- prog.cob" "listings.at:349"
-( $at_check_trace; $COMPILE_LISTING0 -t- prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 DATA DIVISION.
-000005 WORKING-STORAGE SECTION.
-000006 01 GET-VALUE.
-000007 COPY \"copy.inc\" REPLACING
-000008 LEADING ==TEST-VAR== BY ==TEST-AVR==
-000009 == 02 TEST-OK == BY == 02 TEST-KO ==
-000010 ==TEST-CC== BY ==TEST-DD==
-000011 == 02 TEST-EE == BY == 02 TEST-FF ==
-000012 == PIC == BY == pic ==.
-000001C
-000002C 02 TEST-AVR pic X(2) VALUE \"OK\".
-000003C 02 TEST-AVR-BIS pic X(6) VALUE \"OK BIS\".
-000004C 02 TEST-DD pic X(4) VALUE \"OK 2\".
-000005C 02 TEST-KO pic X(4) VALUE \"OK 3\".
-000006C 02 TEST-FF pic X(4) VALUE \"OK 4\".
-000013 PROCEDURE DIVISION.
-000014 DISPLAY TEST-AVR.
-000015 DISPLAY TEST-AVR-BIS.
-000016 DISPLAY TEST-KO.
-000017 DISPLAY TEST-DD.
-000018 DISPLAY TEST-FF.
-000019 STOP RUN.
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:349"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-cat >copy2.inc <<'_ATEOF'
-
- 02 TEST-VAR PIC X(2) VALUE "OK".
- 02 TEST-VAR-BIS PIC X(6) VALUE "OK BIS".
- 02 TEST-CC PIC X(4) VALUE "OK 2".
- 02 TEST-OK PIC X(4) VALUE "OK 3".
- 02 TEST-EE PIC X(4) VALUE "OK 4".
-_ATEOF
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 GET-VALUE.
- COPY "copy2.inc"
- REPLACING LEADING ==TEST-VAR== BY ==TEST-AVR==
- == 02 TEST-OK == BY == 02 TEST-KO ==
- == TEST-CC == BY == TEST-DD ==
- == 02 TEST-EE == BY == 02 TEST-FF ==
- == PIC == BY == pic ==.
- PROCEDURE DIVISION.
- DISPLAY TEST-AVR.
- DISPLAY TEST-AVR-BIS.
- DISPLAY TEST-KO.
- DISPLAY TEST-DD.
- DISPLAY TEST-FF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:413: \$COMPILE_LISTING0 -t- prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t- prog2.cob" "listings.at:413"
-( $at_check_trace; $COMPILE_LISTING0 -t- prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog2.cob
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog2.
-000004 DATA DIVISION.
-000005 WORKING-STORAGE SECTION.
-000006 01 GET-VALUE.
-000007 COPY \"copy2.inc\"
-000008 REPLACING LEADING ==TEST-VAR== BY ==TEST-AVR==
-000009 == 02 TEST-OK == BY == 02 TEST-KO ==
-000010 == TEST-CC == BY == TEST-DD ==
-000011 == 02 TEST-EE == BY == 02 TEST-FF ==
-000012 == PIC == BY == pic ==.
-000001C
-000002C 02 TEST-AVR pic X(2) VALUE \"OK\".
-000003C 02 TEST-AVR-BIS pic X(6) VALUE \"OK BIS\".
-000004C 02 TEST-DD pic X(4) VALUE \"OK 2\".
-000005C 02 TEST-KO pic X(4) VALUE \"OK 3\".
-000006C 02 TEST-FF pic X(4) VALUE \"OK 4\".
-000013 PROCEDURE DIVISION.
-000014 DISPLAY TEST-AVR.
-000015 DISPLAY TEST-AVR-BIS.
-000016 DISPLAY TEST-KO.
-000017 DISPLAY TEST-DD.
-000018 DISPLAY TEST-FF.
-000019 STOP RUN.
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:413"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-cat >copy3.inc <<'_ATEOF'
-
- 02 TEST-VAR PIC X(2) VALUE "OK".
- 02 TEST-VAR-BIS PIC X(6) VALUE "OK BIS".
- 02 TEST-CC PIC X(4) VALUE "OK 2".
- 02 TEST-OK PIC X(4) VALUE "OK 3".
- 02 TEST-EE PIC X(4) VALUE "OK 4".
-_ATEOF
-
-cat >prog3.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 GET-VALUE.
- COPY "copy3.inc"
- REPLACING LEADING ==TEST-VAR== BY ==TEST-AVR==
- == 02 TEST-OK == BY == 02 TEST-KO ==
- ==TEST-CC== BY ==TEST-DD==
- == 02 TEST-EE == BY == 02 TEST-FF ==
- == PIC == BY == pic ==.
- PROCEDURE DIVISION.
- DISPLAY TEST-AVR.
- DISPLAY TEST-AVR-BIS.
- DISPLAY TEST-KO.
- DISPLAY TEST-DD.
- DISPLAY TEST-FF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:477: \$COMPILE_LISTING0 -t- prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t- prog3.cob" "listings.at:477"
-( $at_check_trace; $COMPILE_LISTING0 -t- prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog3.cob
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog3.
-000004 DATA DIVISION.
-000005 WORKING-STORAGE SECTION.
-000006 01 GET-VALUE.
-000007 COPY \"copy3.inc\"
-000008 REPLACING LEADING ==TEST-VAR== BY ==TEST-AVR==
-000009 == 02 TEST-OK == BY == 02 TEST-KO ==
-000010 ==TEST-CC== BY ==TEST-DD==
-000011 == 02 TEST-EE == BY == 02 TEST-FF ==
-000012 == PIC == BY == pic ==.
-000001C
-000002C 02 TEST-AVR pic X(2) VALUE \"OK\".
-000003C 02 TEST-AVR-BIS pic X(6) VALUE \"OK BIS\".
-000004C 02 TEST-DD pic X(4) VALUE \"OK 2\".
-000005C 02 TEST-KO pic X(4) VALUE \"OK 3\".
-000006C 02 TEST-FF pic X(4) VALUE \"OK 4\".
-000013 PROCEDURE DIVISION.
-000014 DISPLAY TEST-AVR.
-000015 DISPLAY TEST-AVR-BIS.
-000016 DISPLAY TEST-KO.
-000017 DISPLAY TEST-DD.
-000018 DISPLAY TEST-FF.
-000019 STOP RUN.
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:477"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_480
-#AT_START_481
-at_fn_group_banner 481 'listings.at:517' \
- "COPY replacement order" " " 3
-at_xfail=no
-(
- printf "%s\n" "481. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >copy.inc <<'_ATEOF'
-
- 01 TEST-VAR PIC X(2) VALUE "OK".
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "copy.inc"
- REPLACING ==TEST-VAR== BY ==FIRST-MATCH==
- ==TEST-VAR== BY ==SECOND-MATCH==.
- PROCEDURE DIVISION.
- DISPLAY FIRST-MATCH NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:538: \$COMPILE_LISTING0 -t- -ftsymbols prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t- -ftsymbols prog.cob" "listings.at:538"
-( $at_check_trace; $COMPILE_LISTING0 -t- -ftsymbols prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 DATA DIVISION.
-000005 WORKING-STORAGE SECTION.
-000006 COPY \"copy.inc\"
-000007 REPLACING ==TEST-VAR== BY ==FIRST-MATCH==
-000008 ==TEST-VAR== BY ==SECOND-MATCH==.
-000001C
-000002C 01 FIRST-MATCH PIC X(2) VALUE \"OK\".
-000009 PROCEDURE DIVISION.
-000010 DISPLAY FIRST-MATCH NO ADVANCING
-000011 END-DISPLAY.
-000012 STOP RUN.
-
-SIZE TYPE LVL NAME PICTURE
-
- WORKING-STORAGE SECTION
-
-00002 ALPHANUMERIC 01 FIRST-MATCH X(2)
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:538"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:569: \$COBC \$FLAGS -E -o prog.i prog.cob"
-at_fn_check_prepare_dynamic "$COBC $FLAGS -E -o prog.i prog.cob" "listings.at:569"
-( $at_check_trace; $COBC $FLAGS -E -o prog.i prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:569"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:570: \$COMPILE_LISTING0 -t- -ftsymbols prog.i"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t- -ftsymbols prog.i" "listings.at:570"
-( $at_check_trace; $COMPILE_LISTING0 -t- -ftsymbols prog.i
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.i
-
-LINE PG/LN A...B............................................................
-
-000001 #line 1 \"prog.cob\"
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 DATA DIVISION.
-000005 WORKING-STORAGE SECTION.
-000006
-000007
-000008
-000001 #line 1 \"copy.inc\"
-000001
-000002 01 FIRST-MATCH PIC X(2) VALUE \"OK\".
-000008 #line 8 \"prog.cob\"
-000008
-000009 PROCEDURE DIVISION.
-000010 DISPLAY FIRST-MATCH NO ADVANCING
-000011 END-DISPLAY.
-000012 STOP RUN.
-
-SIZE TYPE LVL NAME PICTURE
-
- WORKING-STORAGE SECTION
-
-00002 ALPHANUMERIC 01 FIRST-MATCH X(2)
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:570"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_481
-#AT_START_482
-at_fn_group_banner 482 'listings.at:608' \
- "COPY separators" " " 3
-at_xfail=no
-(
- printf "%s\n" "482. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >copy.inc <<'_ATEOF'
-
- 01 TEST-VAR PIC X(2) VALUE "OK". COPY001
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION. PROG001
- PROGRAM-ID. prog. PROG002
- DATA DIVISION. PROG003
- WORKING-STORAGE SECTION. PROG004
- COPY "copy.inc" PROG005
- REPLACING ==TEST-VAR==, BY ==FIRST-MATCH==, PROG006
- , ==TEST-VAR==; BY ==SECOND-MATCH==; PROG007
- ; ==TEST-VAR== , BY ==THIRD-MATCH== PROG008
- ==TEST-VAR== ; BY ==FOURTH-MATCH==. PROG009
- PROCEDURE DIVISION. PROG010
- DISPLAY FIRST-MATCH NO ADVANCING PROG011
- END-DISPLAY. PROG012
- STOP RUN. PROG013
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:631: \$COMPILE_LISTING0 -t- -ftsymbols prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t- -ftsymbols prog.cob" "listings.at:631"
-( $at_check_trace; $COMPILE_LISTING0 -t- -ftsymbols prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 DATA DIVISION.
-000005 WORKING-STORAGE SECTION.
-000006 COPY \"copy.inc\"
-000007 REPLACING ==TEST-VAR==, BY ==FIRST-MATCH==,
-000008 , ==TEST-VAR==; BY ==SECOND-MATCH==;
-000009 ; ==TEST-VAR== , BY ==THIRD-MATCH==
-000010 ==TEST-VAR== ; BY ==FOURTH-MATCH==.
-000001C
-000002C 01 FIRST-MATCH PIC X(2) VALUE \"OK\".
-000011 PROCEDURE DIVISION.
-000012 DISPLAY FIRST-MATCH NO ADVANCING
-000013 END-DISPLAY.
-000014 STOP RUN.
-
-SIZE TYPE LVL NAME PICTURE
-
- WORKING-STORAGE SECTION
-
-00002 ALPHANUMERIC 01 FIRST-MATCH X(2)
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:631"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_482
-#AT_START_483
-at_fn_group_banner 483 'listings.at:667' \
- "COPY partial replacement" " " 3
-at_xfail=no
-(
- printf "%s\n" "483. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >copy.inc <<'_ATEOF'
-
- 01 :TEST:-VAR PIC X(2) VALUE "OK".
- 01 (TEST)-VAR PIC X(2) VALUE "OK".
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "copy.inc"
- REPLACING ==:TEST:== BY ==COLON==
- ==(TEST)== BY ==PAREN==.
- PROCEDURE DIVISION.
- DISPLAY COLON-VAR NO ADVANCING
- END-DISPLAY.
- DISPLAY PAREN-VAR NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:691: \$COMPILE_LISTING0 -t- -ftsymbols prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t- -ftsymbols prog.cob" "listings.at:691"
-( $at_check_trace; $COMPILE_LISTING0 -t- -ftsymbols prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 DATA DIVISION.
-000005 WORKING-STORAGE SECTION.
-000006 COPY \"copy.inc\"
-000007 REPLACING ==:TEST:== BY ==COLON==
-000008 ==(TEST)== BY ==PAREN==.
-000001C
-000002C 01 COLON PIC X(2) VALUE \"OK\".
-000003C 01 PAREN PIC X(2) VALUE \"OK\".
-000009 PROCEDURE DIVISION.
-000010 DISPLAY COLON-VAR NO ADVANCING
-000011 END-DISPLAY.
-000012 DISPLAY PAREN-VAR NO ADVANCING
-000013 END-DISPLAY.
-000014 STOP RUN.
-
-SIZE TYPE LVL NAME PICTURE
-
- WORKING-STORAGE SECTION
-
-00002 ALPHANUMERIC 01 COLON-VAR X(2)
-
-00002 ALPHANUMERIC 01 PAREN-VAR X(2)
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:691"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >copy1.inc <<'_ATEOF'
-
- 01 'yyy-'struktur.
- 05 'yyy-'hello pic x(30) value 'yyy copy1.inc'.
- 05 'yy1-'hello pic x(30) value 'yy1 copy1.inc'.
- 05 'yy2-'hello pic x(30) value 'yy2 copy1.inc'.
- 05 filler pic x(20).
-_ATEOF
-
-
-cat >prog1.cob <<'_ATEOF'
-
- identification division.
- program-id. copytest.
-
- data division.
- working-storage section.
- 01 hello pic x(20) value 'Copytest'.
-
- 01 xx pic x(02).
-
- copy 'copy1.inc' replacing 'YYY-' by a10-
- 'yy1-' by a11-
- 'yy2-' by a12-.
-
- copy 'copy1.inc' replacing 'YYY-' by a20-
- 'yy1-' by a21-
- 'yy2-' by a22-.
-
- copy 'copy1.inc' replacing 'YYY-' by a30-
- 'yy1-' by a31-
- 'yy2-' by a32-.
-
- procedure division.
-
- display hello
-
- display 'a10-struktur'
- display a10-struktur
-
- display 'a20-struktur'
- display a20-struktur
-
- display 'a30-struktur'
- display a30-struktur
-
- goback.
- end program copytest.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:774: \$COMPILE_LISTING0 -t- -ftsymbols prog1.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t- -ftsymbols prog1.cob" "listings.at:774"
-( $at_check_trace; $COMPILE_LISTING0 -t- -ftsymbols prog1.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog1.cob
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 identification division.
-000003 program-id. copytest.
-000004
-000005 data division.
-000006 working-storage section.
-000007 01 hello pic x(20) value 'Copytest'.
-000008
-000009 01 xx pic x(02).
-000010
-000011 copy 'copy1.inc' replacing 'YYY-' by a10-
-000012 'yy1-' by a11-
-000013 'yy2-' by a12-.
-000001C
-000002C 01 a10-struktur.
-000003C 05 a10-hello pic x(30) value 'yyy copy1.inc'.
-000004C 05 a11-hello pic x(30) value 'yy1 copy1.inc'.
-000005C 05 a12-hello pic x(30) value 'yy2 copy1.inc'.
-000006C 05 filler pic x(20).
-000014
-000015 copy 'copy1.inc' replacing 'YYY-' by a20-
-000016 'yy1-' by a21-
-000017 'yy2-' by a22-.
-000001C
-000002C 01 a20-struktur.
-000003C 05 a20-hello pic x(30) value 'yyy copy1.inc'.
-000004C 05 a21-hello pic x(30) value 'yy1 copy1.inc'.
-000005C 05 a22-hello pic x(30) value 'yy2 copy1.inc'.
-000006C 05 filler pic x(20).
-000018
-000019 copy 'copy1.inc' replacing 'YYY-' by a30-
-000020 'yy1-' by a31-
-000021 'yy2-' by a32-.
-000001C
-000002C 01 a30-struktur.
-000003C 05 a30-hello pic x(30) value 'yyy copy1.inc'.
-000004C 05 a31-hello pic x(30) value 'yy1 copy1.inc'.
-000005C 05 a32-hello pic x(30) value 'yy2 copy1.inc'.
-000006C 05 filler pic x(20).
-000022
-000023 procedure division.
-000024
-000025 display hello
-000026
-000027 display 'a10-struktur'
-000028 display a10-struktur
-000029
-000030 display 'a20-struktur'
-000031 display a20-struktur
-000032
-000033 display 'a30-struktur'
-000034 display a30-struktur
-000035
-000036 goback.
-000037 end program copytest.
-
-SIZE TYPE LVL NAME PICTURE
-
- WORKING-STORAGE SECTION
-
-00020 ALPHANUMERIC 01 hello X(20)
-
-00002 ALPHANUMERIC 01 xx X(02)
-
-00110 GROUP 01 a10-struktur
-00030 ALPHANUMERIC 05 a10-hello X(30)
-00030 ALPHANUMERIC 05 a11-hello X(30)
-00030 ALPHANUMERIC 05 a12-hello X(30)
-00020 ALPHANUMERIC 05 FILLER X(20)
-
-00110 GROUP 01 a20-struktur
-00030 ALPHANUMERIC 05 a20-hello X(30)
-00030 ALPHANUMERIC 05 a21-hello X(30)
-00030 ALPHANUMERIC 05 a22-hello X(30)
-00020 ALPHANUMERIC 05 FILLER X(20)
-
-00110 GROUP 01 a30-struktur
-00030 ALPHANUMERIC 05 a30-hello X(30)
-00030 ALPHANUMERIC 05 a31-hello X(30)
-00030 ALPHANUMERIC 05 a32-hello X(30)
-00020 ALPHANUMERIC 05 FILLER X(20)
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:774"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_483
-#AT_START_484
-at_fn_group_banner 484 'listings.at:869' \
- "COPY LEADING replacement" " " 3
-at_xfail=no
-(
- printf "%s\n" "484. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >copy.inc <<'_ATEOF'
-
- 01 TEST-VAR PIC X(2) VALUE "OK".
- 01 NORM-VAR PIC X(2) VALUE "OK".
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "copy.inc"
- REPLACING LEADING ==TEST== BY ==FIRST==
- LEADING ==NORM== BY ==SECOND==.
- PROCEDURE DIVISION.
- DISPLAY FIRST-VAR NO ADVANCING
- END-DISPLAY.
- DISPLAY SECOND-VAR NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:893: \$COMPILE_LISTING0 -t- -ftsymbols prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t- -ftsymbols prog.cob" "listings.at:893"
-( $at_check_trace; $COMPILE_LISTING0 -t- -ftsymbols prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 DATA DIVISION.
-000005 WORKING-STORAGE SECTION.
-000006 COPY \"copy.inc\"
-000007 REPLACING LEADING ==TEST== BY ==FIRST==
-000008 LEADING ==NORM== BY ==SECOND==.
-000001C
-000002C 01 FIRST-VAR PIC X(2) VALUE \"OK\".
-000003C 01 SECOND-VAR PIC X(2) VALUE \"OK\".
-000009 PROCEDURE DIVISION.
-000010 DISPLAY FIRST-VAR NO ADVANCING
-000011 END-DISPLAY.
-000012 DISPLAY SECOND-VAR NO ADVANCING
-000013 END-DISPLAY.
-000014 STOP RUN.
-
-SIZE TYPE LVL NAME PICTURE
-
- WORKING-STORAGE SECTION
-
-00002 ALPHANUMERIC 01 FIRST-VAR X(2)
-
-00002 ALPHANUMERIC 01 SECOND-VAR X(2)
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:893"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_484
-#AT_START_485
-at_fn_group_banner 485 'listings.at:932' \
- "COPY TRAILING replacement" " " 3
-at_xfail=no
-(
- printf "%s\n" "485. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >copy.inc <<'_ATEOF'
-
- 01 TEST-FIRST PIC X(2) VALUE "OK".
- 01 TEST-SECOND PIC X(2) VALUE "OK".
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "copy.inc"
- REPLACING TRAILING ==FIRST== BY ==VAR1==
- TRAILING ==SECOND== BY ==VAR2==.
- PROCEDURE DIVISION.
- DISPLAY TEST-VAR1 NO ADVANCING
- END-DISPLAY.
- DISPLAY TEST-VAR2 NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:957: \$COMPILE_LISTING0 -t- -ftsymbols prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t- -ftsymbols prog.cob" "listings.at:957"
-( $at_check_trace; $COMPILE_LISTING0 -t- -ftsymbols prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 DATA DIVISION.
-000005 WORKING-STORAGE SECTION.
-000006 COPY \"copy.inc\"
-000007 REPLACING TRAILING ==FIRST== BY ==VAR1==
-000008 TRAILING ==SECOND== BY ==VAR2==.
-000001C
-000002C 01 TEST-VAR1 PIC X(2) VALUE \"OK\".
-000003C 01 TEST-VAR2 PIC X(2) VALUE \"OK\".
-000009 PROCEDURE DIVISION.
-000010 DISPLAY TEST-VAR1 NO ADVANCING
-000011 END-DISPLAY.
-000012 DISPLAY TEST-VAR2 NO ADVANCING
-000013 END-DISPLAY.
-000014 STOP RUN.
-
-SIZE TYPE LVL NAME PICTURE
-
- WORKING-STORAGE SECTION
-
-00002 ALPHANUMERIC 01 TEST-VAR1 X(2)
-
-00002 ALPHANUMERIC 01 TEST-VAR2 X(2)
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:957"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_485
-#AT_START_486
-at_fn_group_banner 486 'listings.at:996' \
- "COPY recursive replacement" " " 3
-at_xfail=no
-(
- printf "%s\n" "486. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >copy-2.inc <<'_ATEOF'
-
- 01 TEST-VAR PIC X(2) VALUE "OK".
-_ATEOF
-
-
-cat >copy-1.inc <<'_ATEOF'
-
- COPY "copy-2.inc".
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "copy-1.inc"
- REPLACING ==TEST-VAR== BY ==COPY-VAR==.
- PROCEDURE DIVISION.
- DISPLAY COPY-VAR NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:1020: \$COMPILE_LISTING0 -t- -ftsymbols prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t- -ftsymbols prog.cob" "listings.at:1020"
-( $at_check_trace; $COMPILE_LISTING0 -t- -ftsymbols prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 DATA DIVISION.
-000005 WORKING-STORAGE SECTION.
-000006 COPY \"copy-1.inc\"
-000007 REPLACING ==TEST-VAR== BY ==COPY-VAR==.
-000001C
-000002C COPY \"copy-2.inc\".
-000001C
-000002C 01 COPY-VAR PIC X(2) VALUE \"OK\".
-000008 PROCEDURE DIVISION.
-000009 DISPLAY COPY-VAR NO ADVANCING
-000010 END-DISPLAY.
-000011 STOP RUN.
-
-SIZE TYPE LVL NAME PICTURE
-
- WORKING-STORAGE SECTION
-
-00002 ALPHANUMERIC 01 COPY-VAR X(2)
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:1020"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_486
-#AT_START_487
-at_fn_group_banner 487 'listings.at:1055' \
- "COPY multiple files" " " 3
-at_xfail=no
-(
- printf "%s\n" "487. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >copy-fd-1.inc <<'_ATEOF'
-
- FD TEXTFILE-1 RECORD VARYING 1 TO 999 CHARACTERS
- DEPENDING ON TEXTFILE-1-SIZE.
- 01 TEXTRECD-1.
- 03 FILLER PIC X(999).
- *
-_ATEOF
-
-
-cat >copy-fd-2.inc <<'_ATEOF'
-
- FD TEXTFILE-2 RECORD VARYING 1 TO 999 CHARACTERS
- DEPENDING ON TEXTFILE-2-SIZE.
- 01 TEXTRECD-2.
- 03 FILLER PIC X(999).
- *
-_ATEOF
-
-
-cat >copy-ws-1.inc <<'_ATEOF'
-
- 01 TEXTFILE-1-NAME PIC X(080) VALUE "TEXTFILE.1".
- 01 TEXTFILE-1-OCFG PIC X(001) VALUE "C".
- 88 TEXTFILE-1-NOTOPEN VALUE "C".
- 88 TEXTFILE-1-IS-OPEN VALUE "I", "O", "U".
- 01 TEXTFILE-1-SIZE PIC 9(004) EXTERNAL.
- *
-_ATEOF
-
-
-cat >copy-ws-2.inc <<'_ATEOF'
-
- 01 TEXTFILE-2-NAME PIC X(080) VALUE "TEXTFILE.2".
- 01 TEXTFILE-2-OCFG PIC X(001) VALUE "C".
- 88 TEXTFILE-2-NOTOPEN VALUE "C".
- 88 TEXTFILE-2-IS-OPEN VALUE "I", "O", "U".
- 01 TEXTFILE-2-SIZE PIC 9(004).
- *
-_ATEOF
-
-
-cat >copy-sl-1.inc <<'_ATEOF'
-
- SELECT TEXTFILE-1 ASSIGN TO DISK TEXTFILE-1-NAME
- ORGANIZATION LINE SEQUENTIAL
- ACCESS MODE SEQUENTIAL.
- *
-_ATEOF
-
-
-cat >copy-sl-2.inc <<'_ATEOF'
-
- SELECT TEXTFILE-2 ASSIGN TO DISK TEXTFILE-2-NAME
- ORGANIZATION LINE SEQUENTIAL
- ACCESS MODE SEQUENTIAL.
- *
-_ATEOF
-
-
-cat >tstcpybk.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. tstcpybk.
- *
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- *
- SOURCE-COMPUTER. LINUX.
- OBJECT-COMPUTER. LINUX.
-
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- COPY "copy-sl-1.inc".
- COPY "copy-sl-2.inc".
-
- DATA DIVISION.
- FILE SECTION.
- COPY "copy-fd-1.inc".
- COPY "copy-fd-2.inc".
-
- WORKING-STORAGE SECTION.
- 01 HEADER BASED.
- 03 FILLER PIC X(016) VALUE 'FCSI CodeWerks:'.
- 03 FILLER PIC X(064) VALUE
- 'Name:tstcpybk.cbl Version:1.7.1 Date:2017-03-15'.
- 03 FILLER PIC X(002) VALUE LOW-VALUES.
- *
- 77 GLOB PIC 99 GLOBAL.
- *
- COPY "copy-ws-1.inc".
- COPY "copy-ws-2.inc".
-
- PROCEDURE DIVISION.
- MAIN-PROCEDURE SECTION.
- MAIN-PROCEDURE-0000.
- CONTINUE.
- MAIN-PROCEDURE-EXIT.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:1146: \$COMPILE_LISTING0 -t- -ftsymbols tstcpybk.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t- -ftsymbols tstcpybk.cob" "listings.at:1146"
-( $at_check_trace; $COMPILE_LISTING0 -t- -ftsymbols tstcpybk.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P tstcpybk.cob
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. tstcpybk.
-000004 *
-000005 ENVIRONMENT DIVISION.
-000006 CONFIGURATION SECTION.
-000007 *
-000008 SOURCE-COMPUTER. LINUX.
-000009 OBJECT-COMPUTER. LINUX.
-000010
-000011 INPUT-OUTPUT SECTION.
-000012 FILE-CONTROL.
-000013 COPY \"copy-sl-1.inc\".
-000001C
-000002C SELECT TEXTFILE-1 ASSIGN TO DISK TEXTFILE-1-NAME
-000003C ORGANIZATION LINE SEQUENTIAL
-000004C ACCESS MODE SEQUENTIAL.
-000005C *
-000014 COPY \"copy-sl-2.inc\".
-000001C
-000002C SELECT TEXTFILE-2 ASSIGN TO DISK TEXTFILE-2-NAME
-000003C ORGANIZATION LINE SEQUENTIAL
-000004C ACCESS MODE SEQUENTIAL.
-000005C *
-000015
-000016 DATA DIVISION.
-000017 FILE SECTION.
-000018 COPY \"copy-fd-1.inc\".
-000001C
-000002C FD TEXTFILE-1 RECORD VARYING 1 TO 999 CHARACTERS
-000003C DEPENDING ON TEXTFILE-1-SIZE.
-000004C 01 TEXTRECD-1.
-000005C 03 FILLER PIC X(999).
-000006C *
-000019 COPY \"copy-fd-2.inc\".
-000001C
-000002C FD TEXTFILE-2 RECORD VARYING 1 TO 999 CHARACTERS
-000003C DEPENDING ON TEXTFILE-2-SIZE.
-000004C 01 TEXTRECD-2.
-000005C 03 FILLER PIC X(999).
-000006C *
-000020
-000021 WORKING-STORAGE SECTION.
-000022 01 HEADER BASED.
-000023 03 FILLER PIC X(016) VALUE 'FCSI CodeWerks:'.
-000024 03 FILLER PIC X(064) VALUE
-000025 'Name:tstcpybk.cbl Version:1.7.1 Date:2017-03-15'.
-000026 03 FILLER PIC X(002) VALUE LOW-VALUES.
-000027 *
-000028 77 GLOB PIC 99 GLOBAL.
-000029 *
-000030 COPY \"copy-ws-1.inc\".
-000001C
-000002C 01 TEXTFILE-1-NAME PIC X(080) VALUE \"TEXTFILE.1\".
-000003C 01 TEXTFILE-1-OCFG PIC X(001) VALUE \"C\".
-000004C 88 TEXTFILE-1-NOTOPEN VALUE \"C\".
-000005C 88 TEXTFILE-1-IS-OPEN VALUE \"I\", \"O\", \"U\".
-000006C 01 TEXTFILE-1-SIZE PIC 9(004) EXTERNAL.
-000007C *
-000031 COPY \"copy-ws-2.inc\".
-000001C
-000002C 01 TEXTFILE-2-NAME PIC X(080) VALUE \"TEXTFILE.2\".
-000003C 01 TEXTFILE-2-OCFG PIC X(001) VALUE \"C\".
-000004C 88 TEXTFILE-2-NOTOPEN VALUE \"C\".
-000005C 88 TEXTFILE-2-IS-OPEN VALUE \"I\", \"O\", \"U\".
-000006C 01 TEXTFILE-2-SIZE PIC 9(004).
-000007C *
-000032
-000033 PROCEDURE DIVISION.
-000034 MAIN-PROCEDURE SECTION.
-000035 MAIN-PROCEDURE-0000.
-000036 CONTINUE.
-000037 MAIN-PROCEDURE-EXIT.
-000038 STOP RUN.
-
-SIZE TYPE LVL NAME PICTURE
-
-00999 FILE TEXTFILE-1
-00999 GROUP 01 TEXTRECD-1
-00999 ALPHANUMERIC 03 FILLER X(999)
-
-00999 FILE TEXTFILE-2
-00999 GROUP 01 TEXTRECD-2
-00999 ALPHANUMERIC 03 FILLER X(999)
-
- WORKING-STORAGE SECTION
-
-00082 GROUP 01 HEADER BASED
-00016 ALPHANUMERIC 03 FILLER X(016)
-00064 ALPHANUMERIC 03 FILLER X(064)
-00002 ALPHANUMERIC 03 FILLER X(002)
-
-00002 NUMERIC 77 GLOB 99 GLOBAL
-
-00080 ALPHANUMERIC 01 TEXTFILE-1-NAME X(080)
-
-00001 ALPHANUMERIC 01 TEXTFILE-1-OCFG X(001)
- CONDITIONAL 88 TEXTFILE-1-NOTOPEN
- CONDITIONAL 88 TEXTFILE-1-IS-OPEN
-
-00004 NUMERIC 01 TEXTFILE-1-SIZE 9(004) EXTERNAL
-
-00080 ALPHANUMERIC 01 TEXTFILE-2-NAME X(080)
-
-00001 ALPHANUMERIC 01 TEXTFILE-2-OCFG X(001)
- CONDITIONAL 88 TEXTFILE-2-NOTOPEN
- CONDITIONAL 88 TEXTFILE-2-IS-OPEN
-
-00004 NUMERIC 01 TEXTFILE-2-SIZE 9(004)
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:1146"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_487
-#AT_START_488
-at_fn_group_banner 488 'listings.at:1269' \
- "Error/Warning messages" " " 3
-at_xfail=no
-(
- printf "%s\n" "488. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >copy.inc <<'_ATEOF'
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT testfile
- ASSIGN TO filename
- ORGANIZATION RELATIVE
- ACCESS IS sequentia
- STATUS IS stat.
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- COPY "copy.inc".
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY FIRST-MATCH NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:1295: \$COMPILE_LISTING -Wimplicit-define -t- prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING -Wimplicit-define -t- prog.cob" "listings.at:1295"
-( $at_check_trace; $COMPILE_LISTING -Wimplicit-define -t- prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob Page 0001
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 COPY \"copy.inc\".
-000001C
-000002C ENVIRONMENT DIVISION.
-000003C INPUT-OUTPUT SECTION.
-000004C FILE-CONTROL.
-000005C SELECT testfile
-error: missing file description for FILE testfile
-000006C ASSIGN TO filename
-000007C ORGANIZATION RELATIVE
-000008C ACCESS IS sequentia
-error: syntax error, unexpected Identifier, expecting DYNAMIC or RANDOM or
- + SEQUENTIAL
-000009C STATUS IS stat.
-000005 DATA DIVISION.
-000006 WORKING-STORAGE SECTION.
-000007 PROCEDURE DIVISION.
-warning: variable 'filename' will be implicitly defined
-000008 DISPLAY FIRST-MATCH NO ADVANCING
-error: 'FIRST-MATCH' is not defined
-000009 END-DISPLAY.
-000010 STOP RUN.
-
-
- GnuCOBOL V.R.P prog.cob Page 0002
-
-Error/Warning summary:
-
-copy.inc:5: error: missing file description for FILE testfile
-copy.inc:8: error: syntax error, unexpected Identifier, expecting DYNAMIC or RANDOM or SEQUENTIAL
-prog.cob:7: warning: variable 'filename' will be implicitly defined
-prog.cob:8: error: 'FIRST-MATCH' is not defined
-
-1 warning in compilation group
-3 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/listings.at:1295"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:1339: \$COMPILE_LISTING -Wimplicit-define -T- prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING -Wimplicit-define -T- prog.cob" "listings.at:1339"
-( $at_check_trace; $COMPILE_LISTING -Wimplicit-define -T- prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob Page 0001
-
-LINE PG/LN A...B............................................................SEQUENCE
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 COPY \"copy.inc\".
-000001C
-000002C ENVIRONMENT DIVISION.
-000003C INPUT-OUTPUT SECTION.
-000004C FILE-CONTROL.
-000005C SELECT testfile
-error: missing file description for FILE testfile
-000006C ASSIGN TO filename
-000007C ORGANIZATION RELATIVE
-000008C ACCESS IS sequentia
-error: syntax error, unexpected Identifier, expecting DYNAMIC or RANDOM or SEQUENTIAL
-000009C STATUS IS stat.
-000005 DATA DIVISION.
-000006 WORKING-STORAGE SECTION.
-000007 PROCEDURE DIVISION.
-warning: variable 'filename' will be implicitly defined
-000008 DISPLAY FIRST-MATCH NO ADVANCING
-error: 'FIRST-MATCH' is not defined
-000009 END-DISPLAY.
-000010 STOP RUN.
-
-
- GnuCOBOL V.R.P prog.cob Page 0002
-
-Error/Warning summary:
-
-copy.inc:5: error: missing file description for FILE testfile
-copy.inc:8: error: syntax error, unexpected Identifier, expecting DYNAMIC or RANDOM or SEQUENTIAL
-prog.cob:7: warning: variable 'filename' will be implicitly defined
-prog.cob:8: error: 'FIRST-MATCH' is not defined
-
-1 warning in compilation group
-3 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/listings.at:1339"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TEST-VAR PIC 9(2) VALUE 'F1'.
- PROCEDURE DIVISION.
- DISPLAY TEST-VAR NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:1394: \$COMPILE_LISTING -t- -ftsymbols prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING -t- -ftsymbols prog.cob" "listings.at:1394"
-( $at_check_trace; $COMPILE_LISTING -t- -ftsymbols prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob Page 0001
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 DATA DIVISION.
-000005 WORKING-STORAGE SECTION.
-000006 01 TEST-VAR PIC 9(2) VALUE 'F1'.
-warning: numeric value is expected
-000007 PROCEDURE DIVISION.
-000008 DISPLAY TEST-VAR NO ADVANCING
-000009 END-DISPLAY.
-000010 STOP RUN.
- GnuCOBOL V.R.P prog.cob Page 0002
-
-SIZE TYPE LVL NAME PICTURE
-
- WORKING-STORAGE SECTION
-
-00002 NUMERIC 01 TEST-VAR 9(2)
-
-
- GnuCOBOL V.R.P prog.cob Page 0003
-
-Error/Warning summary:
-
-prog.cob:6: warning: numeric value is expected
-
-1 warning in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:1394"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:1429: \$COMPILE_LISTING -t- crud.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING -t- crud.cob" "listings.at:1429"
-( $at_check_trace; $COMPILE_LISTING -t- crud.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P crud.cob Page 0001
-
- cobc: crud.cob: No such file or directory
-
-
-0 warnings in compilation group
-1 error in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/listings.at:1429"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog.cpy <<'_ATEOF'
-
- 78 I VALUE 20.
- 78 J VALUE 5000.
- 78 M VALUE 5.
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TEST-VAR PIC 9(2) VALUE 12.
- COPY 'prog.cpy'.
- PROCEDURE DIVISION.
- DISPLAY TEST-VAR NO ADVANCING
- END-DISPLAY
- MOVE 'AA' TO TEST-VAR
- DISPLAY TEST-VAR NO ADVANCING
- END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-cat >prog17.lst <<'_ATEOF'
-GnuCOBOL V.R.P prog.i
-
-LINE PG/LN A...B............................................................
-
-000001 #line 1 "prog.cob"
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 DATA DIVISION.
-000005 WORKING-STORAGE SECTION.
-000006 01 TEST-VAR PIC 9(2) VALUE 12.
-000007
-000001 #line 1 "prog.cpy"
-000001
-000002 78 I VALUE 20.
-000003 78 J VALUE 5000.
-000004 78 M VALUE 5.
-000007 #line 7 "prog.cob"
-000007
-000008 PROCEDURE DIVISION.
-000009 DISPLAY TEST-VAR NO ADVANCING
-000010 END-DISPLAY
-000011 MOVE 'AA' TO TEST-VAR
-warning: numeric value is expected
-000012 DISPLAY TEST-VAR NO ADVANCING
-000013 END-DISPLAY
-000014 STOP RUN.
-
-SIZE TYPE LVL NAME PICTURE
-
- WORKING-STORAGE SECTION
-
-00002 NUMERIC 01 TEST-VAR 9(2)
-
-
-
-Error/Warning summary:
-
-prog.cob:11: warning: numeric value is expected
-
-1 warning in compilation group
-0 errors in compilation group
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TEST-VAR PIC 9(2) VALUE 'A'.
- COPY 'CRUD.CPY'.
- PROCEDURE DIVISION.
- DISPLAY TEST-VAR NO ADVANCING
- END-DISPLAY
- MOVE 12 TO TEST-VAR
- DISPLAY TEST-VAR NO ADVANCING
- END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:1522: \$COMPILE_LISTING0 -t- prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t- prog.cob" "listings.at:1522"
-( $at_check_trace; $COMPILE_LISTING0 -t- prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 DATA DIVISION.
-000005 WORKING-STORAGE SECTION.
-000006 01 TEST-VAR PIC 9(2) VALUE 'A'.
-warning: numeric value is expected
-000007 COPY 'CRUD.CPY'.
-error: CRUD.CPY: No such file or directory
-000008 PROCEDURE DIVISION.
-000009 DISPLAY TEST-VAR NO ADVANCING
-000010 END-DISPLAY
-000011 MOVE 12 TO TEST-VAR
-000012 DISPLAY TEST-VAR NO ADVANCING
-000013 END-DISPLAY
-000014 STOP RUN.
-
-
-
-Error/Warning summary:
-
-prog.cob:7: error: CRUD.CPY: No such file or directory
-prog.cob:6: warning: numeric value is expected
-
-1 warning in compilation group
-1 error in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/listings.at:1522"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:1555: \$COMPILE_LISTING0 -t- -fmax-errors=0 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t- -fmax-errors=0 prog.cob" "listings.at:1555"
-( $at_check_trace; $COMPILE_LISTING0 -t- -fmax-errors=0 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 DATA DIVISION.
-000005 WORKING-STORAGE SECTION.
-000006 01 TEST-VAR PIC 9(2) VALUE 'A'.
-000007 COPY 'CRUD.CPY'.
-error: CRUD.CPY: No such file or directory
-000008 PROCEDURE DIVISION.
-000009 DISPLAY TEST-VAR NO ADVANCING
-000010 END-DISPLAY
-000011 MOVE 12 TO TEST-VAR
-000012 DISPLAY TEST-VAR NO ADVANCING
-000013 END-DISPLAY
-000014 STOP RUN.
-
-
-
-Error/Warning summary:
-
-prog.cob:7: error: CRUD.CPY: No such file or directory
-
-0 warnings in compilation group
-1 error in compilation group
-Too many errors in compilation group: 0 maximum errors
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 97 $at_status "$at_srcdir/listings.at:1555"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_488
-#AT_START_489
-at_fn_group_banner 489 'listings.at:1590' \
- "Two source files" " " 3
-at_xfail=no
-(
- printf "%s\n" "489. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- *COPY "copy.inc".
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-cat >prog1.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog1.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- *COPY "copy.inc".
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:1613: \$COMPILE_LISTING -t- prog.cob prog1.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING -t- prog.cob prog1.cob" "listings.at:1613"
-( $at_check_trace; $COMPILE_LISTING -t- prog.cob prog1.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob Page 0001
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 DATA DIVISION.
-000005 WORKING-STORAGE SECTION.
-000006 *COPY \"copy.inc\".
-000007 PROCEDURE DIVISION.
-000008 STOP RUN.
-
-
-0 warnings in compilation group
-0 errors in compilation group
- GnuCOBOL V.R.P prog1.cob Page 0001
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog1.
-000004 DATA DIVISION.
-000005 WORKING-STORAGE SECTION.
-000006 *COPY \"copy.inc\".
-000007 PROCEDURE DIVISION.
-000008 STOP RUN.
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:1613"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_489
-#AT_START_490
-at_fn_group_banner 490 'listings.at:1651' \
- "Multiple programs in one file" " " 3
-at_xfail=no
-(
- printf "%s\n" "490. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog-1.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 blah PIC x.
-
- END PROGRAM prog-1.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog-2.
- END PROGRAM prog-2.
-_ATEOF
-
-
-cat >prog20.lst <<'_ATEOF'
-GnuCOBOL V.R.P prog.cob Page 0001
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog-1.
-000004
-000005 DATA DIVISION.
-000006 WORKING-STORAGE SECTION.
-000007 01 blah PIC x.
-000008
-000009 END PROGRAM prog-1.
-000010
-000011 IDENTIFICATION DIVISION.
-000012 PROGRAM-ID. prog-2.
-000013 END PROGRAM prog-2.
- GnuCOBOL V.R.P prog.cob Page 0002
-
-SIZE TYPE LVL NAME PICTURE
-
- PROGRAM prog-1
-
- WORKING-STORAGE SECTION
-
-00001 ALPHANUMERIC 01 blah X
-
- PROGRAM prog-2
-
- No fields defined.
-
-
-0 warnings in compilation group
-0 errors in compilation group
-_ATEOF
-
-
-# Check once with $COMPILE and once with $COMPILE_ONLY.
-# This tests whether codegen affects the listing.
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:1711: \$COMPILE \$LISTING_FLAGS -t prog.lst -ftsymbols prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE $LISTING_FLAGS -t prog.lst -ftsymbols prog.cob" "listings.at:1711"
-( $at_check_trace; $COMPILE $LISTING_FLAGS -t prog.lst -ftsymbols prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:1711"
-$at_failed && at_fn_log_failure \
-"prog.lst" \
-"prog2.lst"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:1712: diff prog20.lst prog.lst"
-at_fn_check_prepare_trace "listings.at:1712"
-( $at_check_trace; diff prog20.lst prog.lst
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:1712"
-$at_failed && at_fn_log_failure \
-"prog.lst" \
-"prog2.lst"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:1713: \$COMPILE_LISTING -t prog2.lst -ftsymbols prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING -t prog2.lst -ftsymbols prog.cob" "listings.at:1713"
-( $at_check_trace; $COMPILE_LISTING -t prog2.lst -ftsymbols prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:1713"
-$at_failed && at_fn_log_failure \
-"prog.lst" \
-"prog2.lst"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:1714: diff prog20.lst prog2.lst"
-at_fn_check_prepare_trace "listings.at:1714"
-( $at_check_trace; diff prog20.lst prog2.lst
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:1714"
-$at_failed && at_fn_log_failure \
-"prog.lst" \
-"prog2.lst"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:1716: rm -f prog.lst prog2.lst"
-at_fn_check_prepare_trace "listings.at:1716"
-( $at_check_trace; rm -f prog.lst prog2.lst
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:1716"
-$at_failed && at_fn_log_failure \
-"prog.lst" \
-"prog2.lst"
-$at_traceon; }
-
-
-cat >progb.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog-1.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 blah PIC x.
-
- PROCEDURE DIVISION.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog-2.
- PROCEDURE DIVISION.
- END PROGRAM prog-2.
-
- END PROGRAM prog-1.
-_ATEOF
-
-
-cat >prog20b.lst <<'_ATEOF'
-GnuCOBOL V.R.P progb.cob Page 0001
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog-1.
-000004
-000005 DATA DIVISION.
-000006 WORKING-STORAGE SECTION.
-000007 01 blah PIC x.
-000008
-000009 PROCEDURE DIVISION.
-000010
-000011 IDENTIFICATION DIVISION.
-000012 PROGRAM-ID. prog-2.
-000013 PROCEDURE DIVISION.
-000014 END PROGRAM prog-2.
-000015
-000016 END PROGRAM prog-1.
- GnuCOBOL V.R.P progb.cob Page 0002
-
-SIZE TYPE LVL NAME PICTURE
-
- PROGRAM prog-1
-
- WORKING-STORAGE SECTION
-
-00001 ALPHANUMERIC 01 blah X
-
- PROGRAM prog-2
-
- No fields defined.
-
-
-0 warnings in compilation group
-0 errors in compilation group
-_ATEOF
-
-
-# Check once with $COMPILE and once with $COMPILE_ONLY.
-# This tests whether codegen affects the listing.
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:1778: \$COMPILE \$LISTING_FLAGS -t prog.lst -ftsymbols progb.cob"
-at_fn_check_prepare_dynamic "$COMPILE $LISTING_FLAGS -t prog.lst -ftsymbols progb.cob" "listings.at:1778"
-( $at_check_trace; $COMPILE $LISTING_FLAGS -t prog.lst -ftsymbols progb.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:1778"
-$at_failed && at_fn_log_failure \
-"prog.lst" \
-"prog2.lst"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:1779: diff prog20b.lst prog.lst"
-at_fn_check_prepare_trace "listings.at:1779"
-( $at_check_trace; diff prog20b.lst prog.lst
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:1779"
-$at_failed && at_fn_log_failure \
-"prog.lst" \
-"prog2.lst"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:1780: \$COMPILE_LISTING -t prog2.lst -ftsymbols progb.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING -t prog2.lst -ftsymbols progb.cob" "listings.at:1780"
-( $at_check_trace; $COMPILE_LISTING -t prog2.lst -ftsymbols progb.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:1780"
-$at_failed && at_fn_log_failure \
-"prog.lst" \
-"prog2.lst"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:1781: diff prog20b.lst prog2.lst"
-at_fn_check_prepare_trace "listings.at:1781"
-( $at_check_trace; diff prog20b.lst prog2.lst
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:1781"
-$at_failed && at_fn_log_failure \
-"prog.lst" \
-"prog2.lst"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:1783: rm -f prog.lst prog2.lst"
-at_fn_check_prepare_trace "listings.at:1783"
-( $at_check_trace; rm -f prog.lst prog2.lst
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:1783"
-$at_failed && at_fn_log_failure \
-"prog.lst" \
-"prog2.lst"
-$at_traceon; }
-
-
-cat >progc.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog-1.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 blah PIC x.
-
- PROCEDURE DIVISION.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog-2.
- PROCEDURE.
- END PROGRAM prog-2.
-
- END PROGRAM prog-1.
-_ATEOF
-
-
-cat >prog20c.lst <<'_ATEOF'
-GnuCOBOL V.R.P progc.cob Page 0001
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog-1.
-000004
-000005 DATA DIVISION.
-000006 WORKING-STORAGE SECTION.
-000007 01 blah PIC x.
-000008
-000009 PROCEDURE DIVISION.
-000010
-000011 IDENTIFICATION DIVISION.
-000012 PROGRAM-ID. prog-2.
-000013 PROCEDURE.
-error: syntax error, unexpected ., expecting DIVISION
-000014 END PROGRAM prog-2.
-000015
-000016 END PROGRAM prog-1.
- GnuCOBOL V.R.P progc.cob Page 0002
-
-SIZE TYPE LVL NAME PICTURE
-
- PROGRAM prog-1
-
- WORKING-STORAGE SECTION
-
-00001 ALPHANUMERIC 01 blah X
-
- PROGRAM prog-2
-
- No fields defined.
-
-
- GnuCOBOL V.R.P progc.cob Page 0003
-
-Error/Warning summary:
-
-progc.cob:13: error: syntax error, unexpected ., expecting DIVISION
-
-0 warnings in compilation group
-1 error in compilation group
-_ATEOF
-
-
-# Check once with $COMPILE and once with $COMPILE_ONLY.
-# This tests whether codegen affects the listing.
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:1852: \$COMPILE \$LISTING_FLAGS -t prog.lst -ftsymbols progc.cob"
-at_fn_check_prepare_dynamic "$COMPILE $LISTING_FLAGS -t prog.lst -ftsymbols progc.cob" "listings.at:1852"
-( $at_check_trace; $COMPILE $LISTING_FLAGS -t prog.lst -ftsymbols progc.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/listings.at:1852"
-$at_failed && at_fn_log_failure \
-"prog.lst" \
-"prog2.lst"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:1853: diff prog20c.lst prog.lst"
-at_fn_check_prepare_trace "listings.at:1853"
-( $at_check_trace; diff prog20c.lst prog.lst
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:1853"
-$at_failed && at_fn_log_failure \
-"prog.lst" \
-"prog2.lst"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:1854: \$COMPILE_LISTING -t prog2.lst -ftsymbols progc.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING -t prog2.lst -ftsymbols progc.cob" "listings.at:1854"
-( $at_check_trace; $COMPILE_LISTING -t prog2.lst -ftsymbols progc.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/listings.at:1854"
-$at_failed && at_fn_log_failure \
-"prog.lst" \
-"prog2.lst"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:1855: diff prog20c.lst prog2.lst"
-at_fn_check_prepare_trace "listings.at:1855"
-( $at_check_trace; diff prog20c.lst prog2.lst
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:1855"
-$at_failed && at_fn_log_failure \
-"prog.lst" \
-"prog2.lst"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_490
-#AT_START_491
-at_fn_group_banner 491 'listings.at:1860' \
- "Multiple programs in one compilation group" " " 3
-at_xfail=no
-(
- printf "%s\n" "491. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# TODO CHECK
-# combinations and positions of entries in compilation group,
-# the previous test should likely produce a different result, too...
-
-
-
-cat >prog-1.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog-1.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 blah PIC x.
-
- PROCEDURE DIVISION.
- ACCEPT blah END-ACCEPT
- CALL "prog-2" USING blah END-CALL
- GO TO EX
-
- DISPLAY blah.
-
- EX. STOP RUN.
-_ATEOF
-
-
-cat >prog-2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog-2.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 data-b PIC 9.
- LINKAGE SECTION.
- 01 stuff PIC x.
- PROCEDURE DIVISION USING stuff.
- MAIN.
- MOVE FUNCTION NUMVAL (stuff) TO data-b
- DISPLAY data-b
- GO TO EX
-
- ACCEPT stuff.
-
- EX. STOP RUN.
-
-_ATEOF
-
-
-cat >expected.lst <<'_ATEOF'
-GnuCOBOL V.R.P prog-1.cob Page 0001
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog-1.
-000004
-000005 DATA DIVISION.
-000006 WORKING-STORAGE SECTION.
-000007 01 blah PIC x.
-000008
-000009 PROCEDURE DIVISION.
-000010 ACCEPT blah END-ACCEPT
-000011 CALL "prog-2" USING blah END-CALL
-000012 GO TO EX
-000013
-000014 DISPLAY blah.
-warning: unreachable statement 'DISPLAY'
-000015
-000016 EX. STOP RUN.
- GnuCOBOL V.R.P prog-1.cob Page 0002
-
-SIZE TYPE LVL NAME PICTURE
-
- WORKING-STORAGE SECTION
-
-00001 ALPHANUMERIC 01 blah X
-
- GnuCOBOL V.R.P prog-1.cob Page 0003
-
-NAME DEFINED REFERENCES
-
-blah 7 *10 11 14 x3
-
- GnuCOBOL V.R.P prog-1.cob Page 0004
-
-LABEL DEFINED REFERENCES
-
-E prog__1 10
-P EX 16 12 x1
- GnuCOBOL V.R.P prog-1.cob Page 0005
-
-FUNCTION TYPE REFERENCES
-
-L prog-2 EXTERN 11 x1
-
- GnuCOBOL V.R.P prog-1.cob Page 0006
-
-Error/Warning summary:
-
-prog-1.cob:14: warning: unreachable statement 'DISPLAY'
-
-1 warning in compilation group
-0 errors in compilation group
- GnuCOBOL V.R.P prog-2.cob Page 0001
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog-2.
-000004
-000005 DATA DIVISION.
-000006 WORKING-STORAGE SECTION.
-000007 01 data-b PIC 9.
-000008 LINKAGE SECTION.
-000009 01 stuff PIC x.
-000010 PROCEDURE DIVISION USING stuff.
-000011 MAIN.
-000012 MOVE FUNCTION NUMVAL (stuff) TO data-b
-000013 DISPLAY data-b
-000014 GO TO EX
-000015
-000016 ACCEPT stuff.
-warning: unreachable statement 'ACCEPT'
-000017
-000018 EX. STOP RUN.
-000019
- GnuCOBOL V.R.P prog-2.cob Page 0002
-
-SIZE TYPE LVL NAME PICTURE
-
- WORKING-STORAGE SECTION
-
-00001 NUMERIC 01 data-b 9
-
- LINKAGE SECTION
-
-00001 ALPHANUMERIC 01 stuff X
-
- GnuCOBOL V.R.P prog-2.cob Page 0003
-
-NAME DEFINED REFERENCES
-
-data-b 7 *12 13 x2
-
-stuff 9 *10 12 *16 x3
-
- GnuCOBOL V.R.P prog-2.cob Page 0004
-
-LABEL DEFINED REFERENCES
-
-E prog__2 11
-P MAIN 11 not referenced
-P EX 18 14 x1
-
- GnuCOBOL V.R.P prog-2.cob Page 0005
-
-Error/Warning summary:
-
-prog-2.cob:16: warning: unreachable statement 'ACCEPT'
-
-2 warnings in compilation group
-0 errors in compilation group
-_ATEOF
-
-
-# Check once with $COMPILE and once with $COMPILE_ONLY.
-# This tests whether codegen affects the listing.
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:2029: \$COMPILE \$LISTING_FLAGS -Wunreachable -t prog.lst -Xref -ftsymbols prog-1.cob prog-2.cob"
-at_fn_check_prepare_dynamic "$COMPILE $LISTING_FLAGS -Wunreachable -t prog.lst -Xref -ftsymbols prog-1.cob prog-2.cob" "listings.at:2029"
-( $at_check_trace; $COMPILE $LISTING_FLAGS -Wunreachable -t prog.lst -Xref -ftsymbols prog-1.cob prog-2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:2029"
-$at_failed && at_fn_log_failure \
-"prog.lst"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:2030: diff expected.lst prog.lst"
-at_fn_check_prepare_trace "listings.at:2030"
-( $at_check_trace; diff expected.lst prog.lst
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:2030"
-$at_failed && at_fn_log_failure \
-"prog.lst"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:2032: \$COMPILE_LISTING -Wunreachable -t prog.lst -Xref -ftsymbols prog-1.cob prog-2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING -Wunreachable -t prog.lst -Xref -ftsymbols prog-1.cob prog-2.cob" "listings.at:2032"
-( $at_check_trace; $COMPILE_LISTING -Wunreachable -t prog.lst -Xref -ftsymbols prog-1.cob prog-2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:2032"
-$at_failed && at_fn_log_failure \
-"prog.lst"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:2033: diff expected.lst prog.lst"
-at_fn_check_prepare_trace "listings.at:2033"
-( $at_check_trace; diff expected.lst prog.lst
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:2033"
-$at_failed && at_fn_log_failure \
-"prog.lst"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_491
-#AT_START_492
-at_fn_group_banner 492 'listings.at:2038' \
- "command line" " " 3
-at_xfail=no
-(
- printf "%s\n" "492. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- FUNCTION-ID. WITHPAR.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 PAR-IN PIC 9.
- 01 PAR-OUT PIC 9.
- PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT.
- ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD.
- GOBACK.
- END FUNCTION WITHPAR.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:2055: \$COBC \$LISTING_FLAGS -q -fsyntax-only -t- -fno-theader -ftcmd prog.cob"
-at_fn_check_prepare_dynamic "$COBC $LISTING_FLAGS -q -fsyntax-only -t- -fno-theader -ftcmd prog.cob" "listings.at:2055"
-( $at_check_trace; $COBC $LISTING_FLAGS -q -fsyntax-only -t- -fno-theader -ftcmd prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "
-000001
-000002 IDENTIFICATION DIVISION.
-000003 FUNCTION-ID. WITHPAR.
-000004 DATA DIVISION.
-000005 LINKAGE SECTION.
-000006 01 PAR-IN PIC 9.
-000007 01 PAR-OUT PIC 9.
-000008 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT.
-000009 ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD.
-000010 GOBACK.
-000011 END FUNCTION WITHPAR.
-
-command line:
- cobc -fttitle=GnuCOBOL_V.R.P -fno-ttimestamp -q -fsyntax-only -t-
-+ -fno-theader -ftcmd prog.cob
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:2055"
-$at_failed && at_fn_log_failure \
-"prog.lst"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:2076: \$COBC \$LISTING_FLAGS -q -std=default -Wall -fno-tmessages -fsyntax-only -t- -fno-tsymbols -ftcmd prog.cob"
-at_fn_check_prepare_dynamic "$COBC $LISTING_FLAGS -q -std=default -Wall -fno-tmessages -fsyntax-only -t- -fno-tsymbols -ftcmd prog.cob" "listings.at:2076"
-( $at_check_trace; $COBC $LISTING_FLAGS -q -std=default -Wall -fno-tmessages -fsyntax-only -t- -fno-tsymbols -ftcmd prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob Page 0001
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 FUNCTION-ID. WITHPAR.
-000004 DATA DIVISION.
-000005 LINKAGE SECTION.
-000006 01 PAR-IN PIC 9.
-000007 01 PAR-OUT PIC 9.
-000008 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT.
-000009 ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD.
-000010 GOBACK.
-000011 END FUNCTION WITHPAR.
- GnuCOBOL V.R.P prog.cob Page 0002
-
-command line:
- cobc -fttitle=GnuCOBOL_V.R.P -fno-ttimestamp -q -std=default -Wall
-+ -fno-tmessages -fsyntax-only -t- -fno-tsymbols -ftcmd prog.cob
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:2076"
-$at_failed && at_fn_log_failure \
-"prog.lst"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_492
-#AT_START_493
-at_fn_group_banner 493 'listings.at:2102' \
- "Wide listing" " " 3
-at_xfail=no
-(
- printf "%s\n" "493. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION. PROG001
- PROGRAM-ID. prog. PROG002
- DATA DIVISION. PROG003
- WORKING-STORAGE SECTION. PROG004
- / PROG005
- PROCEDURE DIVISION. PROG006
- STOP RUN. PROG007
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:2115: \$COMPILE_LISTING -T- prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING -T- prog.cob" "listings.at:2115"
-( $at_check_trace; $COMPILE_LISTING -T- prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob Page 0001
-
-LINE PG/LN A...B............................................................SEQUENCE
-
-000001
-000002 IDENTIFICATION DIVISION. PROG001
-000003 PROGRAM-ID. prog. PROG002
-000004 DATA DIVISION. PROG003
-000005 WORKING-STORAGE SECTION. PROG004
- GnuCOBOL V.R.P prog.cob Page 0002
-
-LINE PG/LN A...B............................................................SEQUENCE
-
-000006 / PROG005
-000007 PROCEDURE DIVISION. PROG006
-000008 STOP RUN. PROG007
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:2115"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- >> PAGE page feed comment
- PROCEDURE DIVISION.
- DISPLAY
- '3456&'.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:2150: \$COMPILE_LISTING -T- -free prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING -T- -free prog2.cob" "listings.at:2150"
-( $at_check_trace; $COMPILE_LISTING -T- -free prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog2.cob Page 0001
-
-LINE .....................................................SOURCE.....................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog2.
-000004 DATA DIVISION.
-000005 WORKING-STORAGE SECTION.
- GnuCOBOL V.R.P prog2.cob Page 0002
-
-LINE .....................................................SOURCE.....................................................
-
-000006 >> PAGE page feed comment
-000007 PROCEDURE DIVISION.
-000008 DISPLAY
-000009 '3456&'.
-000010 STOP RUN.
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:2150"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_493
-#AT_START_494
-at_fn_group_banner 494 'listings.at:2178' \
- "Symbols: simple" " " 3
-at_xfail=no
-(
- printf "%s\n" "494. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 WS-ONE PIC 9(4) VALUE 37.
- 01 WS-TWO PIC A(4) VALUE 'HIGH'.
- 01 WS-THREE PIC X(4) VALUE 'BAR'.
- 01 WS-FOUR COMP-1 VALUE 37.
- 01 WS-FIVE COMP-2 VALUE 37.
- 01 WS-SIX PIC S999 COMP-3 VALUE -37.
- 01 WS-SEVEN PIC $$,$$$,$$9.99 VALUE ZERO.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:2199: \$COMPILE_LISTING0 -t- -fno-tmessages -ftsymbols prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t- -fno-tmessages -ftsymbols prog.cob" "listings.at:2199"
-( $at_check_trace; $COMPILE_LISTING0 -t- -fno-tmessages -ftsymbols prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 DATA DIVISION.
-000005 WORKING-STORAGE SECTION.
-000006 01 WS-ONE PIC 9(4) VALUE 37.
-000007 01 WS-TWO PIC A(4) VALUE 'HIGH'.
-000008 01 WS-THREE PIC X(4) VALUE 'BAR'.
-000009 01 WS-FOUR COMP-1 VALUE 37.
-000010 01 WS-FIVE COMP-2 VALUE 37.
-000011 01 WS-SIX PIC S999 COMP-3 VALUE -37.
-000012 01 WS-SEVEN PIC \$\$,\$\$\$,\$\$9.99 VALUE ZERO.
-000013 PROCEDURE DIVISION.
-000014 STOP RUN.
-
-SIZE TYPE LVL NAME PICTURE
-
- WORKING-STORAGE SECTION
-
-00004 NUMERIC 01 WS-ONE 9(4)
-
-00004 ALPHABETIC 01 WS-TWO A(4)
-
-00004 ALPHANUMERIC 01 WS-THREE X(4)
-
-00004 NUMERIC 01 WS-FOUR S9(7)V9(8) COMP-1
-
-00008 NUMERIC 01 WS-FIVE S9(17)V9(17) COMP-2
-
-00002 NUMERIC 01 WS-SIX S999 COMP-3
-
-00013 NUMERIC 01 WS-SEVEN \$\$,\$\$\$,\$\$9.99
-
-
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:2199"
-$at_failed && at_fn_log_failure \
-"prog.lst"
-$at_traceon; }
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 WS-ONE PIC 9(4).
- 01 WS-TWO PIC A(4).
- 01 WS-THREE PIC X(4).
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:2252: \$COMPILE_LISTING0 -t- -fno-tmessages -fno-tsource -ftsymbols prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t- -fno-tmessages -fno-tsource -ftsymbols prog2.cob" "listings.at:2252"
-( $at_check_trace; $COMPILE_LISTING0 -t- -fno-tmessages -fno-tsource -ftsymbols prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog2.cob
-
-SIZE TYPE LVL NAME PICTURE
-
- LINKAGE SECTION
-
-00004 NUMERIC 01 WS-ONE 9(4)
-
-00004 ALPHABETIC 01 WS-TWO A(4)
-
-00004 ALPHANUMERIC 01 WS-THREE X(4)
-
-
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:2252"
-$at_failed && at_fn_log_failure \
-"prog.lst"
-$at_traceon; }
-
-
-cat >prog3.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 WS-ONE PIC 9(4) VALUE 37.
- 01 WS-TWO PIC A(4) VALUE 'HIGH'.
- 01 WS-THREE PIC X(4) VALUE 'BAR'.
- 01 WS-FOUR COMP-1 VALUE 37.
- 01 WS-FIVE COMP-2 VALUE 37.
- 01 WS-SIX PIC S999 COMP-3 VALUE -37.
- 01 WS-SEVEN PIC $$,$$$,$$9.99 VALUE ZERO.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:2284: \$COMPILE_LISTING0 -t prog.lst -fno-tsource -fno-tmessages -ftsymbols prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t prog.lst -fno-tsource -fno-tmessages -ftsymbols prog3.cob" "listings.at:2284"
-( $at_check_trace; $COMPILE_LISTING0 -t prog.lst -fno-tsource -fno-tmessages -ftsymbols prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:2284"
-$at_failed && at_fn_log_failure \
-"prog.lst"
-$at_traceon; }
-
-
-cat >prog15-1.lst <<'_ATEOF'
-GnuCOBOL V.R.P prog3.cob
-
-SIZE TYPE LVL NAME PICTURE
-
- WORKING-STORAGE SECTION
-
-00004 NUMERIC 01 WS-ONE 9(4)
-
-00004 ALPHABETIC 01 WS-TWO A(4)
-
-00004 ALPHANUMERIC 01 WS-THREE X(4)
-
-00004 NUMERIC 01 WS-FOUR S9(7)V9(8) COMP-1
-
-00008 NUMERIC 01 WS-FIVE S9(17)V9(17) COMP-2
-
-00002 NUMERIC 01 WS-SIX S999 COMP-3
-
-00013 NUMERIC 01 WS-SEVEN $$,$$$,$$9.99
-
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:2310: diff prog15-1.lst prog.lst"
-at_fn_check_prepare_trace "listings.at:2310"
-( $at_check_trace; diff prog15-1.lst prog.lst
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:2310"
-$at_failed && at_fn_log_failure \
-"prog.lst"
-$at_traceon; }
-
-
-# verify that the symbol listing is identical if full codegen was done
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:2313: \$COMPILE \$LISTING_FLAGS -t prog2.lst -tlines=0 -fno-tsource -fno-tmessages -ftsymbols prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE $LISTING_FLAGS -t prog2.lst -tlines=0 -fno-tsource -fno-tmessages -ftsymbols prog3.cob" "listings.at:2313"
-( $at_check_trace; $COMPILE $LISTING_FLAGS -t prog2.lst -tlines=0 -fno-tsource -fno-tmessages -ftsymbols prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:2313"
-$at_failed && at_fn_log_failure \
-"prog.lst"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:2315: diff prog15-1.lst prog2.lst"
-at_fn_check_prepare_trace "listings.at:2315"
-( $at_check_trace; diff prog15-1.lst prog2.lst
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:2315"
-$at_failed && at_fn_log_failure \
-"prog.lst"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_494
-#AT_START_495
-at_fn_group_banner 495 'listings.at:2320' \
- "Symbols: pointer" " " 3
-at_xfail=no
-(
- printf "%s\n" "495. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 WS-Where pic x(512).
-
- 01 ws-mysql.
- 02 ws-mysql-cid usage pointer.
- 02 ws-mysql-result usage pointer.
- 02 ws-mysql-result-2 usage pointer.
- 02 ws-mysql-result-3 usage pointer.
- 02 ws-mysql-count-rows pic s9(9) comp.
- 02 ws-mysql-error-number pic x(4).
- 02 ws-mysql-error-message pic x(80).
- 02 ws-mysql-host-name pic x(64).
- 02 ws-mysql-implementation pic x(64).
- 02 ws-mysql-password pic x(64).
- 02 ws-mysql-base-name pic x(64).
- 02 ws-mysql-port-number pic x(4).
- 02 ws-mysql-socket pic x(64).
- 02 ws-mysql-command pic x(4096).
-
- 01 ws-No-Paragraph pic 9(4).
- local-storage section.
- 01 subscripts usage comp-5.
- 12 J pic s9(4).
- 12 K pic s9(4).
- 12 L pic s9(4).
-
- SCREEN SECTION.
- 01 Display-Message-1 foreground-color 2.
- 03 value "WS-Where=" line 23 col 1.
- 03 from WS-Where (1:J) pic x(69) col 10.
- 01 Display-Message-2 foreground-color 2.
- 03 value "ST004 SQL Err No.=" line 4 col 1.
- 03 using ws-mysql-error-number pic x(4) col 19.
- 03 value " Para=" col 23.
- 03 using WS-No-Paragraph pic 9(3) col 29.
- 03 value " SQL Cmd=" col 32.
- 03 using ws-mysql-command pic x(199) col 41.
- 03 value "SQL Err Msg=" line 7 col 1.
- 03 using ws-mysql-error-message pic x(67) col 13.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:2372: \$COMPILE_LISTING0 -t prog.lst -ftsymbols prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t prog.lst -ftsymbols prog.cob" "listings.at:2372"
-( $at_check_trace; $COMPILE_LISTING0 -t prog.lst -ftsymbols prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:2372"
-$at_failed && at_fn_log_failure \
-"prog.lst"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:2374: test \"\$COB_HAS_64_BIT_POINTER\" = \"yes\""
-at_fn_check_prepare_dynamic "test \"$COB_HAS_64_BIT_POINTER\" = \"yes\"" "listings.at:2374"
-( $at_check_trace; test "$COB_HAS_64_BIT_POINTER" = "yes"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:2374"
-if $at_failed
-then :
- # Previous test "failed" --> 32 bit
-
-cat >prog17-32.lst <<'_ATEOF'
-GnuCOBOL V.R.P prog.cob
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 DATA DIVISION.
-000005 WORKING-STORAGE SECTION.
-000006 77 WS-Where pic x(512).
-000007
-000008 01 ws-mysql.
-000009 02 ws-mysql-cid usage pointer.
-000010 02 ws-mysql-result usage pointer.
-000011 02 ws-mysql-result-2 usage pointer.
-000012 02 ws-mysql-result-3 usage pointer.
-000013 02 ws-mysql-count-rows pic s9(9) comp.
-000014 02 ws-mysql-error-number pic x(4).
-000015 02 ws-mysql-error-message pic x(80).
-000016 02 ws-mysql-host-name pic x(64).
-000017 02 ws-mysql-implementation pic x(64).
-000018 02 ws-mysql-password pic x(64).
-000019 02 ws-mysql-base-name pic x(64).
-000020 02 ws-mysql-port-number pic x(4).
-000021 02 ws-mysql-socket pic x(64).
-000022 02 ws-mysql-command pic x(4096).
-000023
-000024 01 ws-No-Paragraph pic 9(4).
-000025 local-storage section.
-000026 01 subscripts usage comp-5.
-000027 12 J pic s9(4).
-000028 12 K pic s9(4).
-000029 12 L pic s9(4).
-000030
-000031 SCREEN SECTION.
-000032 01 Display-Message-1 foreground-color 2.
-000033 03 value "WS-Where=" line 23 col 1.
-000034 03 from WS-Where (1:J) pic x(69) col 10.
-000035 01 Display-Message-2 foreground-color 2.
-000036 03 value "ST004 SQL Err No.=" line 4 col 1.
-000037 03 using ws-mysql-error-number pic x(4) col 19.
-000038 03 value " Para=" col 23.
-000039 03 using WS-No-Paragraph pic 9(3) col 29.
-000040 03 value " SQL Cmd=" col 32.
-000041 03 using ws-mysql-command pic x(199) col 41.
-000042 03 value "SQL Err Msg=" line 7 col 1.
-000043 03 using ws-mysql-error-message pic x(67) col 13.
-000044 PROCEDURE DIVISION.
-000045 STOP RUN.
-
-SIZE TYPE LVL NAME PICTURE
-
- WORKING-STORAGE SECTION
-
-00512 ALPHANUMERIC 77 WS-Where X(512)
-
-04524 GROUP 01 ws-mysql
-00004 POINTER 02 ws-mysql-cid
-00004 POINTER 02 ws-mysql-result
-00004 POINTER 02 ws-mysql-result-2
-00004 POINTER 02 ws-mysql-result-3
-00004 NUMERIC 02 ws-mysql-count-rows S9(9) COMP
-00004 ALPHANUMERIC 02 ws-mysql-error-number X(4)
-00080 ALPHANUMERIC 02 ws-mysql-error-message X(80)
-00064 ALPHANUMERIC 02 ws-mysql-host-name X(64)
-00064 ALPHANUMERIC 02 ws-mysql-implementation X(64)
-00064 ALPHANUMERIC 02 ws-mysql-password X(64)
-00064 ALPHANUMERIC 02 ws-mysql-base-name X(64)
-00004 ALPHANUMERIC 02 ws-mysql-port-number X(4)
-00064 ALPHANUMERIC 02 ws-mysql-socket X(64)
-04096 ALPHANUMERIC 02 ws-mysql-command X(4096)
-
-00004 NUMERIC 01 ws-No-Paragraph 9(4)
-
- LOCAL-STORAGE SECTION
-
-00006 GROUP 01 subscripts
-00002 NUMERIC 12 J S9(4) COMP-5
-00002 NUMERIC 12 K S9(4) COMP-5
-00002 NUMERIC 12 L S9(4) COMP-5
-
- SCREEN SECTION
-
-00078 GROUP 01 Display-Message-1
-00009 ALPHANUMERIC 03 FILLER X(9)
-00069 ALPHANUMERIC 03 FILLER X(69)
-
-00318 GROUP 01 Display-Message-2
-00018 ALPHANUMERIC 03 FILLER X(18)
-00004 ALPHANUMERIC 03 FILLER X(4)
-00006 ALPHANUMERIC 03 FILLER X(6)
-00003 NUMERIC 03 FILLER 9(3)
-00009 ALPHANUMERIC 03 FILLER X(9)
-00199 ALPHANUMERIC 03 FILLER X(199)
-00012 ALPHANUMERIC 03 FILLER X(12)
-00067 ALPHANUMERIC 03 FILLER X(67)
-
-
-0 warnings in compilation group
-0 errors in compilation group
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:2481: diff prog17-32.lst prog.lst"
-at_fn_check_prepare_trace "listings.at:2481"
-( $at_check_trace; diff prog17-32.lst prog.lst
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:2481"
-$at_failed && at_fn_log_failure \
-"prog.lst"
-$at_traceon; }
-
-
-
-else $as_nop
- # Previous test "passed" --> 64 bit
-
-cat >prog17-64.lst <<'_ATEOF'
-GnuCOBOL V.R.P prog.cob
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 DATA DIVISION.
-000005 WORKING-STORAGE SECTION.
-000006 77 WS-Where pic x(512).
-000007
-000008 01 ws-mysql.
-000009 02 ws-mysql-cid usage pointer.
-000010 02 ws-mysql-result usage pointer.
-000011 02 ws-mysql-result-2 usage pointer.
-000012 02 ws-mysql-result-3 usage pointer.
-000013 02 ws-mysql-count-rows pic s9(9) comp.
-000014 02 ws-mysql-error-number pic x(4).
-000015 02 ws-mysql-error-message pic x(80).
-000016 02 ws-mysql-host-name pic x(64).
-000017 02 ws-mysql-implementation pic x(64).
-000018 02 ws-mysql-password pic x(64).
-000019 02 ws-mysql-base-name pic x(64).
-000020 02 ws-mysql-port-number pic x(4).
-000021 02 ws-mysql-socket pic x(64).
-000022 02 ws-mysql-command pic x(4096).
-000023
-000024 01 ws-No-Paragraph pic 9(4).
-000025 local-storage section.
-000026 01 subscripts usage comp-5.
-000027 12 J pic s9(4).
-000028 12 K pic s9(4).
-000029 12 L pic s9(4).
-000030
-000031 SCREEN SECTION.
-000032 01 Display-Message-1 foreground-color 2.
-000033 03 value "WS-Where=" line 23 col 1.
-000034 03 from WS-Where (1:J) pic x(69) col 10.
-000035 01 Display-Message-2 foreground-color 2.
-000036 03 value "ST004 SQL Err No.=" line 4 col 1.
-000037 03 using ws-mysql-error-number pic x(4) col 19.
-000038 03 value " Para=" col 23.
-000039 03 using WS-No-Paragraph pic 9(3) col 29.
-000040 03 value " SQL Cmd=" col 32.
-000041 03 using ws-mysql-command pic x(199) col 41.
-000042 03 value "SQL Err Msg=" line 7 col 1.
-000043 03 using ws-mysql-error-message pic x(67) col 13.
-000044 PROCEDURE DIVISION.
-000045 STOP RUN.
-
-SIZE TYPE LVL NAME PICTURE
-
- WORKING-STORAGE SECTION
-
-00512 ALPHANUMERIC 77 WS-Where X(512)
-
-04540 GROUP 01 ws-mysql
-00008 POINTER 02 ws-mysql-cid
-00008 POINTER 02 ws-mysql-result
-00008 POINTER 02 ws-mysql-result-2
-00008 POINTER 02 ws-mysql-result-3
-00004 NUMERIC 02 ws-mysql-count-rows S9(9) COMP
-00004 ALPHANUMERIC 02 ws-mysql-error-number X(4)
-00080 ALPHANUMERIC 02 ws-mysql-error-message X(80)
-00064 ALPHANUMERIC 02 ws-mysql-host-name X(64)
-00064 ALPHANUMERIC 02 ws-mysql-implementation X(64)
-00064 ALPHANUMERIC 02 ws-mysql-password X(64)
-00064 ALPHANUMERIC 02 ws-mysql-base-name X(64)
-00004 ALPHANUMERIC 02 ws-mysql-port-number X(4)
-00064 ALPHANUMERIC 02 ws-mysql-socket X(64)
-04096 ALPHANUMERIC 02 ws-mysql-command X(4096)
-
-00004 NUMERIC 01 ws-No-Paragraph 9(4)
-
- LOCAL-STORAGE SECTION
-
-00006 GROUP 01 subscripts
-00002 NUMERIC 12 J S9(4) COMP-5
-00002 NUMERIC 12 K S9(4) COMP-5
-00002 NUMERIC 12 L S9(4) COMP-5
-
- SCREEN SECTION
-
-00078 GROUP 01 Display-Message-1
-00009 ALPHANUMERIC 03 FILLER X(9)
-00069 ALPHANUMERIC 03 FILLER X(69)
-
-00318 GROUP 01 Display-Message-2
-00018 ALPHANUMERIC 03 FILLER X(18)
-00004 ALPHANUMERIC 03 FILLER X(4)
-00006 ALPHANUMERIC 03 FILLER X(6)
-00003 NUMERIC 03 FILLER 9(3)
-00009 ALPHANUMERIC 03 FILLER X(9)
-00199 ALPHANUMERIC 03 FILLER X(199)
-00012 ALPHANUMERIC 03 FILLER X(12)
-00067 ALPHANUMERIC 03 FILLER X(67)
-
-
-0 warnings in compilation group
-0 errors in compilation group
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:2590: diff prog17-64.lst prog.lst"
-at_fn_check_prepare_trace "listings.at:2590"
-( $at_check_trace; diff prog17-64.lst prog.lst
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:2590"
-$at_failed && at_fn_log_failure \
-"prog.lst"
-$at_traceon; }
-
-
-
-fi
-$at_failed && at_fn_log_failure \
-"prog.lst"
-$at_traceon; }
-
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_495
-#AT_START_496
-at_fn_group_banner 496 'listings.at:2598' \
- "Symbols: multiple programs/functions" " " 3
-at_xfail=no
-(
- printf "%s\n" "496. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- FUNCTION-ID. WITHPAR.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 PAR-IN PIC 9.
- 01 PAR-OUT PIC 9.
- PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT.
- ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD.
- GOBACK.
- END FUNCTION WITHPAR.
-
- IDENTIFICATION DIVISION.
- FUNCTION-ID. WITHOUTPAR.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 PAR PIC 9.
- PROCEDURE DIVISION RETURNING PAR.
- MOVE 1 TO PAR.
- GOBACK.
- END FUNCTION WITHOUTPAR.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- REPOSITORY.
- FUNCTION WITHPAR
- FUNCTION WITHOUTPAR.
- PROCEDURE DIVISION.
- IF WITHPAR(1) NOT = 2
- DISPLAY WITHPAR(1)
- END-DISPLAY
- END-IF.
- IF WITHOUTPAR NOT = 1
- DISPLAY WITHOUTPAR
- END-DISPLAY
- END-IF.
- STOP RUN.
- END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:2643: \$COMPILE_LISTING -t- -ftsymbols prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING -t- -ftsymbols prog.cob" "listings.at:2643"
-( $at_check_trace; $COMPILE_LISTING -t- -ftsymbols prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob Page 0001
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 FUNCTION-ID. WITHPAR.
-000004 DATA DIVISION.
-000005 LINKAGE SECTION.
-000006 01 PAR-IN PIC 9.
-000007 01 PAR-OUT PIC 9.
-000008 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT.
-000009 ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD.
-000010 GOBACK.
-000011 END FUNCTION WITHPAR.
-000012
-000013 IDENTIFICATION DIVISION.
-000014 FUNCTION-ID. WITHOUTPAR.
-000015 DATA DIVISION.
-000016 LINKAGE SECTION.
-000017 01 PAR PIC 9.
-000018 PROCEDURE DIVISION RETURNING PAR.
-000019 MOVE 1 TO PAR.
-000020 GOBACK.
-000021 END FUNCTION WITHOUTPAR.
-000022
-000023 IDENTIFICATION DIVISION.
-000024 PROGRAM-ID. prog.
-000025 ENVIRONMENT DIVISION.
-000026 CONFIGURATION SECTION.
-000027 REPOSITORY.
-000028 FUNCTION WITHPAR
-000029 FUNCTION WITHOUTPAR.
-000030 PROCEDURE DIVISION.
-000031 IF WITHPAR(1) NOT = 2
-000032 DISPLAY WITHPAR(1)
-000033 END-DISPLAY
-000034 END-IF.
-000035 IF WITHOUTPAR NOT = 1
-000036 DISPLAY WITHOUTPAR
-000037 END-DISPLAY
-000038 END-IF.
-000039 STOP RUN.
-000040 END PROGRAM prog.
- GnuCOBOL V.R.P prog.cob Page 0002
-
-SIZE TYPE LVL NAME PICTURE
-
- FUNCTION WITHPAR
-
- LINKAGE SECTION
-
-00001 NUMERIC 01 PAR-IN 9
-
-00001 NUMERIC 01 PAR-OUT 9
-
- FUNCTION WITHOUTPAR
-
- LINKAGE SECTION
-
-00001 NUMERIC 01 PAR 9
-
- PROGRAM prog
-
- No fields defined.
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:2643"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_496
-#AT_START_497
-at_fn_group_banner 497 'listings.at:2718' \
- "Symbols: OCCURS and REDEFINES" " " 3
-at_xfail=no
-(
- printf "%s\n" "497. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 78 I VALUE 20.
- 78 J VALUE 5000.
- 78 M VALUE 5.
- 01 SETUP-REC.
- 05 FL1 PIC X(04).
- 05 FL2 PIC ZZZZZ.
- 05 FL3 PIC 9(04).
- 05 FL4 PIC 9(08) COMP.
- 05 FL5 PIC 9(04) COMP-4.
- 05 FL6 PIC Z,ZZZ.99.
- 05 FL7 PIC S9(05) SIGN LEADING SEPARATE.
- 05 FL8 PIC X(04).
- 05 FL9 REDEFINES FL8 PIC 9(04).
- 05 FLA.
- 10 FLB OCCURS I TIMES.
- 15 FLC PIC X(02).
- 10 FLD PIC X(20).
- 05 FLD1 PIC X(100).
- 05 FLD2 OCCURS M TO J TIMES DEPENDING ON FL5.
- 10 FILLER PIC X(01).
- 05 FLD3 PIC X(3).
- 05 FLD4 PIC X(4).
- LINKAGE SECTION.
- 01 O1 PIC X OCCURS UNBOUNDED DEPENDING ON FL4.
- 01 O2.
- 05 O-START PIC X(42).
- 05 FILLER OCCURS UNBOUNDED DEPENDING ON FL9.
- 07 O-ENTRY.
- 10 O-E1 PIC 9(24).
- 10 O-E2 PIC XXX.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:2762: \$COMPILE_LISTING -fcomplex-odo -t- -fno-tsource -ftsymbols prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING -fcomplex-odo -t- -fno-tsource -ftsymbols prog.cob" "listings.at:2762"
-( $at_check_trace; $COMPILE_LISTING -fcomplex-odo -t- -fno-tsource -ftsymbols prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob Page 0001
-
-SIZE TYPE LVL NAME PICTURE
-
- WORKING-STORAGE SECTION
-
-05204 GROUP 01 SETUP-REC
-00004 ALPHANUMERIC 05 FL1 X(04)
-00005 NUMERIC 05 FL2 ZZZZZ
-00004 NUMERIC 05 FL3 9(04)
-00004 NUMERIC 05 FL4 9(08) COMP
-00002 NUMERIC 05 FL5 9(04) COMP
-00008 NUMERIC 05 FL6 Z,ZZZ.99
-00006 NUMERIC 05 FL7 S9(05)
-00004 ALPHANUMERIC 05 FL8 X(04)
-00004 NUMERIC 05 FL9 9(04), REDEFINES FL8
-00060 GROUP 05 FLA
-00040 GROUP 10 FLB OCCURS 20
-00002 ALPHANUMERIC 15 FLC X(02)
-00020 ALPHANUMERIC 10 FLD X(20)
-00100 ALPHANUMERIC 05 FLD1 X(100)
-05000 GROUP 05 FLD2 OCCURS 5 TO 5000
-00001 ALPHANUMERIC 10 FILLER X(01)
-00003 ALPHANUMERIC 05 FLD3 X(3)
-00004 ALPHANUMERIC 05 FLD4 X(4)
-
- LINKAGE SECTION
-
-????? ALPHANUMERIC 01 O1 X, OCCURS 0 TO UNBOUNDED
-
-????? GROUP 01 O2
-00042 ALPHANUMERIC 05 O-START X(42)
-????? GROUP 05 FILLER OCCURS 0 TO UNBOUNDED
-00027 GROUP 07 O-ENTRY
-00024 NUMERIC 10 O-E1 9(24)
-00003 ALPHANUMERIC 10 O-E2 XXX
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:2762"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_497
-#AT_START_498
-at_fn_group_banner 498 'listings.at:2808' \
- "Conditional compilation" " " 3
-at_xfail=no
-(
- printf "%s\n" "498. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- >>IF ACTIVATE DEFINED
- DISPLAY "NOTOK" NO ADVANCING
- END-DISPLAY
- >>ELIF ACTIVATE2 DEFINED
- DISPLAY "OK" NO ADVANCING
- END-DISPLAY
- >>ELSE
- DISPLAY "NOTOK" NO ADVANCING
- END-DISPLAY
- >>END-IF
- STOP RUN.
-_ATEOF
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- $IF ACTIVATE DEFINED
- DISPLAY "NOTOK" NO ADVANCING
- END-DISPLAY
- $ELIF ACTIVATE2 DEFINED
- DISPLAY "OK" NO ADVANCING
- END-DISPLAY
- $ELSE
- DISPLAY "NOTOK" NO ADVANCING
- END-DISPLAY
- $END
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:2848: \$COMPILE_LISTING -DACTIVATE2 -t- prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING -DACTIVATE2 -t- prog.cob" "listings.at:2848"
-( $at_check_trace; $COMPILE_LISTING -DACTIVATE2 -t- prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob Page 0001
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 DATA DIVISION.
-000005 WORKING-STORAGE SECTION.
-000006 PROCEDURE DIVISION.
-000007 >>IF ACTIVATE DEFINED
-000008X DISPLAY \"NOTOK\" NO ADVANCING
-000009X END-DISPLAY
-000010 >>ELIF ACTIVATE2 DEFINED
-000011 DISPLAY \"OK\" NO ADVANCING
-000012 END-DISPLAY
-000013 >>ELSE
-000014X DISPLAY \"NOTOK\" NO ADVANCING
-000015X END-DISPLAY
-000016 >>END-IF
-000017 STOP RUN.
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:2848"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:2876: \$COMPILE_LISTING -DACTIVATE2 -t- prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING -DACTIVATE2 -t- prog2.cob" "listings.at:2876"
-( $at_check_trace; $COMPILE_LISTING -DACTIVATE2 -t- prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog2.cob Page 0001
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog2.
-000004 DATA DIVISION.
-000005 WORKING-STORAGE SECTION.
-000006 PROCEDURE DIVISION.
-000007 \$IF ACTIVATE DEFINED
-000008X DISPLAY \"NOTOK\" NO ADVANCING
-000009X END-DISPLAY
-000010 \$ELIF ACTIVATE2 DEFINED
-000011 DISPLAY \"OK\" NO ADVANCING
-000012 END-DISPLAY
-000013 \$ELSE
-000014X DISPLAY \"NOTOK\" NO ADVANCING
-000015X END-DISPLAY
-000016 \$END
-000017 STOP RUN.
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:2876"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_498
-#AT_START_499
-at_fn_group_banner 499 'listings.at:2907' \
- "File descriptions" " " 3
-at_xfail=no
-(
- printf "%s\n" "499. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT OLD-VERSION ASSIGN TO "SYSUT1"
- ORGANIZATION LINE SEQUENTIAL.
- SELECT NEW-VERSION ASSIGN TO "SYSUT2"
- ORGANIZATION LINE SEQUENTIAL.
- SELECT PRT-VERSION ASSIGN TO "SYSUT2"
- ORGANIZATION LINE SEQUENTIAL.
- SELECT MODIFICATION ASSIGN TO "SYSIN1"
- ORGANIZATION LINE SEQUENTIAL.
- SELECT COMMENTARY ASSIGN TO "SYSOU1"
- ORGANIZATION LINE SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
-
- FD OLD-VERSION
- LABEL RECORDS ARE STANDARD
- BLOCK CONTAINS 80 CHARACTERS
- DATA RECORD IS OLD-RECORD.
-
- 01 OLD-RECORD.
- 02 OLD-STATEMENT PICTURE X(75).
- 02 OLD-NUMBER PICTURE X(5).
-
- FD NEW-VERSION
- LABEL RECORDS ARE STANDARD
- BLOCK CONTAINS 80 CHARACTERS
- DATA RECORD IS NEW-RECORD.
-
- 01 NEW-RECORD.
- 02 NEW-STATEMENT PICTURE X(75).
- 02 NEW-NUMBER PICTURE X(5).
-
- FD MODIFICATION
- LABEL RECORDS ARE OMITTED
- BLOCK CONTAINS 80 CHARACTERS
- DATA RECORD IS UPDATE-ORDER.
-
- 01 UPDATE-ORDER.
- 02 INSERTION.
- 03 COMMAND PICTURE X(6).
- 88 ENDJOB VALUE "ENDJOB".
- 88 ENDSET VALUE "ENDSET".
- 88 REMOVE VALUE "REMOVE".
- 88 ADDNEW VALUE "INSERT".
- 88 CHANGE VALUE "CHANGE".
- 88 DISPLY VALUE "DISPLY".
- 03 FILLER PICTURE X.
- 03 A-FIELD PICTURE 9(5).
- 03 A-ALPHA REDEFINES A-FIELD PICTURE X(5).
- 88 A-BLANK VALUE SPACES.
- 03 FILLER PICTURE X(4).
- 03 B-FIELD PICTURE 9(5).
- 03 B-ALPHA REDEFINES B-FIELD PICTURE X(5).
- 88 B-BLANK VALUE SPACES.
- 03 FILLER PICTURE X(54).
- 02 FILLER PICTURE X(5).
-
- FD COMMENTARY
- LABEL RECORDS ARE OMITTED
- BLOCK CONTAINS 82 CHARACTERS
- DATA RECORD IS COMMENT-LINE.
-
- 01 COMMENT-LINE.
- 02 FILLER PICTURE X(82).
-
- WORKING-STORAGE SECTION.
-
- 01 HEADINGS-LINE.
- 02 FILLER PICTURE X(15) VALUE "EDITOR VERSION".
- 02 FILLER PICTURE X(20) VALUE "1.1 - 206/72".
- 02 PHASE PICTURE X(17) VALUE "UPDATING AS OF".
- 02 MONTH-RUN PICTURE XX.
- 02 FILLER PICTURE X VALUE "/".
- 02 DAY-RUN PICTURE XX.
- 02 FILLER PICTURE X VALUE "/".
- 02 YEAR-RUN PICTURE XX.
- 02 FILLER PICTURE X(8) VALUE SPACES.
- 02 FILLER PICTURE X(8) VALUE " PAGE: ".
- 02 PAGE-NUMBER PICTURE 9(4) VALUE 0.
-
- 01 COMMAND-LISTING.
- 02 FILLER PICTURE X(2) VALUE SPACES.
- 02 COMMAND-IMAGE PICTURE X(80).
-
- 01 ACTIVITIES-LISTING.
- 02 DISPOSITION PICTURE X(2).
- 02 ACTIVE-IMAGE PICTURE X(80).
-
- 01 UPSI-BYTE.
- 02 UPSI-BIT OCCURS 8 TIMES PICTURE X.
-
- 01 MESSAGE-LOG.
- 02 FILLER PICTURE X(2) VALUE SPACES.
- 02 MESSAGE-TEXT PICTURE X(80).
-
- 01 DISPLAY-MESSAGE.
- 02 FILLER PICTURE X(2) VALUE SPACES.
- 02 DISPLAY-TEMP PICTURE X(6).
- 02 FILLER PICTURE X(2) VALUE SPACES.
- 02 DISPLAY-TEXT PICTURE X(60).
-
- PROCEDURE DIVISION.
- OPEN INPUT OLD-VERSION, MODIFICATION,
- OUTPUT NEW-VERSION, COMMENTARY.
- CLOSE OLD-VERSION, NEW-VERSION, MODIFICATION, COMMENTARY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:3023: \$COMPILE_LISTING0 -t- -ftsymbols prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t- -ftsymbols prog.cob" "listings.at:3023"
-( $at_check_trace; $COMPILE_LISTING0 -t- -ftsymbols prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 ENVIRONMENT DIVISION.
-000005 INPUT-OUTPUT SECTION.
-000006 FILE-CONTROL.
-000007 SELECT OLD-VERSION ASSIGN TO \"SYSUT1\"
-000008 ORGANIZATION LINE SEQUENTIAL.
-000009 SELECT NEW-VERSION ASSIGN TO \"SYSUT2\"
-000010 ORGANIZATION LINE SEQUENTIAL.
-000011 SELECT PRT-VERSION ASSIGN TO \"SYSUT2\"
-error: missing file description for FILE PRT-VERSION
-000012 ORGANIZATION LINE SEQUENTIAL.
-000013 SELECT MODIFICATION ASSIGN TO \"SYSIN1\"
-000014 ORGANIZATION LINE SEQUENTIAL.
-000015 SELECT COMMENTARY ASSIGN TO \"SYSOU1\"
-000016 ORGANIZATION LINE SEQUENTIAL.
-000017 DATA DIVISION.
-000018 FILE SECTION.
-000019
-000020 FD OLD-VERSION
-000021 LABEL RECORDS ARE STANDARD
-warning: LABEL RECORDS is obsolete in GnuCOBOL
-000022 BLOCK CONTAINS 80 CHARACTERS
-000023 DATA RECORD IS OLD-RECORD.
-warning: DATA RECORDS is obsolete in GnuCOBOL
-000024
-000025 01 OLD-RECORD.
-000026 02 OLD-STATEMENT PICTURE X(75).
-000027 02 OLD-NUMBER PICTURE X(5).
-000028
-000029 FD NEW-VERSION
-000030 LABEL RECORDS ARE STANDARD
-warning: LABEL RECORDS is obsolete in GnuCOBOL
-000031 BLOCK CONTAINS 80 CHARACTERS
-000032 DATA RECORD IS NEW-RECORD.
-warning: DATA RECORDS is obsolete in GnuCOBOL
-000033
-000034 01 NEW-RECORD.
-000035 02 NEW-STATEMENT PICTURE X(75).
-000036 02 NEW-NUMBER PICTURE X(5).
-000037
-000038 FD MODIFICATION
-000039 LABEL RECORDS ARE OMITTED
-warning: LABEL RECORDS is obsolete in GnuCOBOL
-000040 BLOCK CONTAINS 80 CHARACTERS
-000041 DATA RECORD IS UPDATE-ORDER.
-warning: DATA RECORDS is obsolete in GnuCOBOL
-000042
-000043 01 UPDATE-ORDER.
-000044 02 INSERTION.
-000045 03 COMMAND PICTURE X(6).
-000046 88 ENDJOB VALUE \"ENDJOB\".
-000047 88 ENDSET VALUE \"ENDSET\".
-000048 88 REMOVE VALUE \"REMOVE\".
-000049 88 ADDNEW VALUE \"INSERT\".
-000050 88 CHANGE VALUE \"CHANGE\".
-000051 88 DISPLY VALUE \"DISPLY\".
-000052 03 FILLER PICTURE X.
-000053 03 A-FIELD PICTURE 9(5).
-000054 03 A-ALPHA REDEFINES A-FIELD PICTURE X(5).
-000055 88 A-BLANK VALUE SPACES.
-000056 03 FILLER PICTURE X(4).
-000057 03 B-FIELD PICTURE 9(5).
-000058 03 B-ALPHA REDEFINES B-FIELD PICTURE X(5).
-000059 88 B-BLANK VALUE SPACES.
-000060 03 FILLER PICTURE X(54).
-000061 02 FILLER PICTURE X(5).
-000062
-000063 FD COMMENTARY
-000064 LABEL RECORDS ARE OMITTED
-warning: LABEL RECORDS is obsolete in GnuCOBOL
-000065 BLOCK CONTAINS 82 CHARACTERS
-000066 DATA RECORD IS COMMENT-LINE.
-warning: DATA RECORDS is obsolete in GnuCOBOL
-000067
-000068 01 COMMENT-LINE.
-000069 02 FILLER PICTURE X(82).
-000070
-000071 WORKING-STORAGE SECTION.
-000072
-000073 01 HEADINGS-LINE.
-000074 02 FILLER PICTURE X(15) VALUE \"EDITOR VERSION\".
-000075 02 FILLER PICTURE X(20) VALUE \"1.1 - 206/72\".
-000076 02 PHASE PICTURE X(17) VALUE \"UPDATING AS OF\".
-000077 02 MONTH-RUN PICTURE XX.
-000078 02 FILLER PICTURE X VALUE \"/\".
-000079 02 DAY-RUN PICTURE XX.
-000080 02 FILLER PICTURE X VALUE \"/\".
-000081 02 YEAR-RUN PICTURE XX.
-000082 02 FILLER PICTURE X(8) VALUE SPACES.
-000083 02 FILLER PICTURE X(8) VALUE \" PAGE: \".
-000084 02 PAGE-NUMBER PICTURE 9(4) VALUE 0.
-000085
-000086 01 COMMAND-LISTING.
-000087 02 FILLER PICTURE X(2) VALUE SPACES.
-000088 02 COMMAND-IMAGE PICTURE X(80).
-000089
-000090 01 ACTIVITIES-LISTING.
-000091 02 DISPOSITION PICTURE X(2).
-000092 02 ACTIVE-IMAGE PICTURE X(80).
-000093
-000094 01 UPSI-BYTE.
-000095 02 UPSI-BIT OCCURS 8 TIMES PICTURE X.
-000096
-000097 01 MESSAGE-LOG.
-000098 02 FILLER PICTURE X(2) VALUE SPACES.
-000099 02 MESSAGE-TEXT PICTURE X(80).
-000100
-000101 01 DISPLAY-MESSAGE.
-000102 02 FILLER PICTURE X(2) VALUE SPACES.
-000103 02 DISPLAY-TEMP PICTURE X(6).
-000104 02 FILLER PICTURE X(2) VALUE SPACES.
-000105 02 DISPLAY-TEXT PICTURE X(60).
-000106
-000107 PROCEDURE DIVISION.
-000108 OPEN INPUT OLD-VERSION, MODIFICATION,
-000109 OUTPUT NEW-VERSION, COMMENTARY.
-000110 CLOSE OLD-VERSION, NEW-VERSION, MODIFICATION, COMMENTARY.
-000111 STOP RUN.
-
-SIZE TYPE LVL NAME PICTURE
-
-00080 FILE OLD-VERSION
-00080 GROUP 01 OLD-RECORD
-00075 ALPHANUMERIC 02 OLD-STATEMENT X(75)
-00005 ALPHANUMERIC 02 OLD-NUMBER X(5)
-
-00080 FILE NEW-VERSION
-00080 GROUP 01 NEW-RECORD
-00075 ALPHANUMERIC 02 NEW-STATEMENT X(75)
-00005 ALPHANUMERIC 02 NEW-NUMBER X(5)
-
-00032 FILE PRT-VERSION
-
-00080 FILE MODIFICATION
-00080 GROUP 01 UPDATE-ORDER
-00075 GROUP 02 INSERTION
-00006 ALPHANUMERIC 03 COMMAND X(6)
- CONDITIONAL 88 ENDJOB
- CONDITIONAL 88 ENDSET
- CONDITIONAL 88 REMOVE
- CONDITIONAL 88 ADDNEW
- CONDITIONAL 88 CHANGE
- CONDITIONAL 88 DISPLY
-00001 ALPHANUMERIC 03 FILLER X
-00005 NUMERIC 03 A-FIELD 9(5)
-00005 ALPHANUMERIC 03 A-ALPHA X(5), REDEFINES A-FIELD
- CONDITIONAL 88 A-BLANK
-00004 ALPHANUMERIC 03 FILLER X(4)
-00005 NUMERIC 03 B-FIELD 9(5)
-00005 ALPHANUMERIC 03 B-ALPHA X(5), REDEFINES B-FIELD
- CONDITIONAL 88 B-BLANK
-00054 ALPHANUMERIC 03 FILLER X(54)
-00005 ALPHANUMERIC 02 FILLER X(5)
-
-00082 FILE COMMENTARY
-00082 GROUP 01 COMMENT-LINE
-00082 ALPHANUMERIC 02 FILLER X(82)
-
- WORKING-STORAGE SECTION
-
-00080 GROUP 01 HEADINGS-LINE
-00015 ALPHANUMERIC 02 FILLER X(15)
-00020 ALPHANUMERIC 02 FILLER X(20)
-00017 ALPHANUMERIC 02 PHASE X(17)
-00002 ALPHANUMERIC 02 MONTH-RUN XX
-00001 ALPHANUMERIC 02 FILLER X
-00002 ALPHANUMERIC 02 DAY-RUN XX
-00001 ALPHANUMERIC 02 FILLER X
-00002 ALPHANUMERIC 02 YEAR-RUN XX
-00008 ALPHANUMERIC 02 FILLER X(8)
-00008 ALPHANUMERIC 02 FILLER X(8)
-00004 NUMERIC 02 PAGE-NUMBER 9(4)
-
-00082 GROUP 01 COMMAND-LISTING
-00002 ALPHANUMERIC 02 FILLER X(2)
-00080 ALPHANUMERIC 02 COMMAND-IMAGE X(80)
-
-00082 GROUP 01 ACTIVITIES-LISTING
-00002 ALPHANUMERIC 02 DISPOSITION X(2)
-00080 ALPHANUMERIC 02 ACTIVE-IMAGE X(80)
-
-00008 GROUP 01 UPSI-BYTE
-00001 ALPHANUMERIC 02 UPSI-BIT X, OCCURS 8
-
-00082 GROUP 01 MESSAGE-LOG
-00002 ALPHANUMERIC 02 FILLER X(2)
-00080 ALPHANUMERIC 02 MESSAGE-TEXT X(80)
-
-00070 GROUP 01 DISPLAY-MESSAGE
-00002 ALPHANUMERIC 02 FILLER X(2)
-00006 ALPHANUMERIC 02 DISPLAY-TEMP X(6)
-00002 ALPHANUMERIC 02 FILLER X(2)
-00060 ALPHANUMERIC 02 DISPLAY-TEXT X(60)
-
-
-
-Error/Warning summary:
-
-prog.cob:11: error: missing file description for FILE PRT-VERSION
-prog.cob:21: warning: LABEL RECORDS is obsolete in GnuCOBOL
-prog.cob:23: warning: DATA RECORDS is obsolete in GnuCOBOL
-prog.cob:30: warning: LABEL RECORDS is obsolete in GnuCOBOL
-prog.cob:32: warning: DATA RECORDS is obsolete in GnuCOBOL
-prog.cob:39: warning: LABEL RECORDS is obsolete in GnuCOBOL
-prog.cob:41: warning: DATA RECORDS is obsolete in GnuCOBOL
-prog.cob:64: warning: LABEL RECORDS is obsolete in GnuCOBOL
-prog.cob:66: warning: DATA RECORDS is obsolete in GnuCOBOL
-
-8 warnings in compilation group
-1 error in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/listings.at:3023"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_499
-#AT_START_500
-at_fn_group_banner 500 'listings.at:3245' \
- "Invalid PICTURE strings" " " 3
-at_xfail=no
-(
- printf "%s\n" "500. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 empty-pic PIC.
- 01 too-long-pic PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
- -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX.
- 01 too-long-pic2 PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
- -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
- -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
- -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
- -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX.
- 01 multiple-symbols.
- 03 PIC 9CRCR.
- 03 PIC 9DBDB.
- 03 PIC SS99S.
- 03 PIC 99..9.
- 03 PIC 99VV9.
- 03 PIC +$99+.
- 03 PIC $+99$-.
- 01 non-symbols.
- 03 PIC 9K.
- 03 PIC 999C.
- 03 PIC 999D.
- 01 too-many-digits PIC 9(50).
- 01 too-long-number-in-parens PIC 9(11111111111111).
- 01 nested-parens PIC 9((100)).
- 01 unbalanced-parens PIC 9(.
- 01 multiple-pairs-of-parens PIC 9(5)(3).
- 01 no-digit-in-parens PIC 9().
- 01 mutually-exclusive-symbols.
- 03 PIC P(3)9.9.
- 03 PIC 9V.9.
- 03 PIC Z*.
- 03 PIC +(5)--.
- 03 PIC $(4)Z(9).
- 03 PIC $$B*(4).
- 03 PIC NX.
- 03 PIC AN.
- 03 PIC AZ(3).
- 03 PIC 99.99XXXXX.
- 03 PIC SA.
- 03 PIC $$$B+++B---.
- 03 PIC +++9+.
- 03 PIC +9(5)CR.
- 03 PIC -9(5)DB.
- 01 non-rightmost-leftmost-symbols.
- 03 PIC BBB+BB99.
- 03 PIC 99-B.
- 03 PIC 9CRB.
- 03 PIC DB9(5).
- 03 PIC 99$$$.
- 03 PIC 99$B.
- 03 PIC 0$99.
- 03 PIC PPPVP9.
- 01 missing-symbols.
- 03 PIC B(5).
- 03 PIC +.
- 03 PIC $.
-
- 01 str-constant CONSTANT "hello".
- 01 float-constant CONSTANT 1.0.
- 01 signed-constant CONSTANT -1.
- 01 invalid-constant.
- 03 PIC X(str-constant).
- 03 PIC X(float-constant).
- 03 PIC X(signed-constant).
- 03 PIC X(unseen-constant).
-
- 01 integer-constant CONSTANT 5.
- 01 valid-pics.
- 03 PIC VP9B.
- 03 PIC B9P(3).
- 03 PIC B$$$.
- 03 PIC 0000+B0+++0B,+.
- 03 PIC +(5)P(3).
- 03 PIC ++.++.
- 03 PIC $(integer-constant).
- 03 PIC $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
- -(integer-constant). *> CHECKME: should this be really valid?
-
-
- 01 PC-COLOR-BACKGROUND-TABLE.
- 05 BIT-BACKGROUND-BLACK PIC 1(8) BIT VALUE B"00000000".
- 05 BIT-BACKGROUND-BLUE PIC 1(8) BIT VALUE B"00010000".
- 05 BIT-BACKGROUND-GREEN PIC 1(8) BIT VALUE B"00100000".
- 05 BIT-BACKGROUND-CYAN PIC 1(8) BIT VALUE B"00110000".
- 05 BIT-BACKGROUND-RED PIC 1(8) BIT VALUE B"01000000".
- 05 BIT-BACKGROUND-MAGENTA PIC 1(8) BIT VALUE B"01010000".
- 05 BIT-BACKGROUND-BROWN PIC 1(8) BIT VALUE B"01100000".
- 05 BIT-BACKGROUND-LIGHT-GRAY PIC 1(8) BIT VALUE B"01110000".
- 01 FILLER REDEFINES PC-COLOR-BACKGROUND-TABLE.
- 05 COLOR-BACKGROUND
- OCCURS 8 TIMES PIC 1(8) BIT.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:3348: \$COMPILE_LISTING0 -t prog.lst -ftsymbols -Wno-pending -Wno-unfinished -fword-continuation=ok prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t prog.lst -ftsymbols -Wno-pending -Wno-unfinished -fword-continuation=ok prog.cob" "listings.at:3348"
-( $at_check_trace; $COMPILE_LISTING0 -t prog.lst -ftsymbols -Wno-pending -Wno-unfinished -fword-continuation=ok prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/listings.at:3348"
-$at_failed && at_fn_log_failure \
-"prog.lst"
-$at_traceon; }
-
-
-cat >expected.lst <<'_ATEOF'
-GnuCOBOL V.R.P prog.cob
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004
-000005 DATA DIVISION.
-000006 WORKING-STORAGE SECTION.
-000007 01 empty-pic PIC.
-error: missing PICTURE string
-000008 01 too-long-pic PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
-000009 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX.
-000010 01 too-long-pic2 PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
-error: PICTURE string may not contain more than 255 characters; contains 301
- + characters
-000011 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
-000012 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
-000013 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
-000014 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX.
-000015 01 multiple-symbols.
-000016 03 PIC 9CRCR.
-error: CR or DB may only occur once in a PICTURE string
-000017 03 PIC 9DBDB.
-error: CR or DB may only occur once in a PICTURE string
-000018 03 PIC SS99S.
-error: S may only occur once in a PICTURE string
-error: S must be at start of PICTURE string
-000019 03 PIC 99..9.
-error: . may only occur once in a PICTURE string
-000020 03 PIC 99VV9.
-error: V may only occur once in a PICTURE string
-000021 03 PIC +$99+.
-error: a trailing +/- sign cannot follow a leading +/- sign
-000022 03 PIC $+99$-.
-error: a leading +/- sign cannot follow a leading currency symbol
-error: a trailing currency symbol cannot follow a leading currency symbol
-error: a trailing +/- sign cannot follow a leading +/- sign
-000023 01 non-symbols.
-000024 03 PIC 9K.
-error: invalid PICTURE character 'K'
-000025 03 PIC 999C.
-error: C must be followed by R
-000026 03 PIC 999D.
-error: D must be followed by B
-000027 01 too-many-digits PIC 9(50).
-error: numeric field cannot be larger than 38 digits
-000028 01 too-long-number-in-parens PIC 9(11111111111111).
-error: only up to 10 significant digits are permitted within parentheses
-000029 01 nested-parens PIC 9((100)).
-error: parentheses must be preceded by a picture symbol
-000030 01 unbalanced-parens PIC 9(.
-error: unbalanced parentheses
-000031 01 multiple-pairs-of-parens PIC 9(5)(3).
-error: parentheses must be preceded by a picture symbol
-000032 01 no-digit-in-parens PIC 9().
-error: parentheses must contain an unsigned integer
-000033 01 mutually-exclusive-symbols.
-000034 03 PIC P(3)9.9.
-error: . cannot follow a P which is after the decimal point
-000035 03 PIC 9V.9.
-error: . cannot follow V
-000036 03 PIC Z*.
-error: cannot have both Z and * in PICTURE string
-000037 03 PIC +(5)--.
-error: a trailing +/- sign cannot follow a floating +/- string which is before
- + the decimal point
-error: a trailing +/- sign may only occur once in a PICTURE string
-000038 03 PIC $(4)Z(9).
-error: a Z or * which is before the decimal point cannot follow a floating
- + currency symbol string which is before the decimal point
-000039 03 PIC $$B*(4).
-error: a Z or * which is before the decimal point cannot follow a floating
- + currency symbol string which is before the decimal point
-000040 03 PIC NX.
-error: A or X cannot follow N
-000041 03 PIC AN.
-error: N cannot follow A or X
-000042 03 PIC AZ(3).
-error: a Z or * which is before the decimal point cannot follow A or X
-000043 03 PIC 99.99XXXXX.
-error: A or X cannot follow .
-000044 03 PIC SA.
-error: A or X cannot follow S
-000045 03 PIC $$$B+++B---.
-error: a leading +/- sign cannot follow B, 0 or /
-error: a leading +/- sign cannot follow a floating currency symbol string
- + which is before the decimal point
-error: a leading +/- sign may only occur once in a PICTURE string
-error: a trailing +/- sign cannot follow a leading +/- sign
-error: a trailing +/- sign may only occur once in a PICTURE string
-000046 03 PIC +++9+.
-error: a trailing +/- sign cannot follow a floating +/- string which is before
- + the decimal point
-000047 03 PIC +9(5)CR.
-error: CR or DB cannot follow a leading +/- sign
-000048 03 PIC -9(5)DB.
-error: CR or DB cannot follow a leading +/- sign
-000049 01 non-rightmost-leftmost-symbols.
-000050 03 PIC BBB+BB99.
-error: a leading +/- sign cannot follow B, 0 or /
-000051 03 PIC 99-B.
-error: a leading +/- sign cannot follow 9
-000052 03 PIC 9CRB.
-error: B, 0 or / cannot follow CR or DB
-000053 03 PIC DB9(5).
-error: 9 cannot follow CR or DB
-000054 03 PIC 99$$$.
-error: a floating currency symbol string which is before the decimal point
- + cannot follow 9
-000055 03 PIC 99$B.
-error: a leading currency symbol cannot follow 9
-000056 03 PIC 0$99.
-error: a leading currency symbol cannot follow B, 0 or /
-000057 03 PIC PPPVP9.
-error: P must be at start or end of PICTURE string
-error: V cannot follow a P which is after the decimal point
-000058 01 missing-symbols.
-000059 03 PIC B(5).
-error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9
- + and *; or at least two of the set +, - and the currency symbol
-000060 03 PIC +.
-error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9
- + and *; or at least two of the set +, - and the currency symbol
-000061 03 PIC $.
-error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9
- + and *; or at least two of the set +, - and the currency symbol
-000062
-000063 01 str-constant CONSTANT "hello".
-000064 01 float-constant CONSTANT 1.0.
-000065 01 signed-constant CONSTANT -1.
-000066 01 invalid-constant.
-000067 03 PIC X(str-constant).
-error: 'STR-CONSTANT' is not an unsigned positive integer
-000068 03 PIC X(float-constant).
-error: 'FLOAT-CONSTANT' is not an unsigned positive integer
-000069 03 PIC X(signed-constant).
-error: 'SIGNED-CONSTANT' is not an unsigned positive integer
-000070 03 PIC X(unseen-constant).
-error: 'UNSEEN-CONSTANT' is not defined
-000071
-000072 01 integer-constant CONSTANT 5.
-000073 01 valid-pics.
-000074 03 PIC VP9B.
-000075 03 PIC B9P(3).
-000076 03 PIC B$$$.
-000077 03 PIC 0000+B0+++0B,+.
-000078 03 PIC +(5)P(3).
-000079 03 PIC ++.++.
-000080 03 PIC $(integer-constant).
-000081 03 PIC $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
-warning: uncommon parentheses
-000082 -(integer-constant). *> CHECKME: should this be really valid?
-000083
-000084
-000085 01 PC-COLOR-BACKGROUND-TABLE.
-000086 05 BIT-BACKGROUND-BLACK PIC 1(8) BIT VALUE B"00000000".
-000087 05 BIT-BACKGROUND-BLUE PIC 1(8) BIT VALUE B"00010000".
-000088 05 BIT-BACKGROUND-GREEN PIC 1(8) BIT VALUE B"00100000".
-000089 05 BIT-BACKGROUND-CYAN PIC 1(8) BIT VALUE B"00110000".
-000090 05 BIT-BACKGROUND-RED PIC 1(8) BIT VALUE B"01000000".
-000091 05 BIT-BACKGROUND-MAGENTA PIC 1(8) BIT VALUE B"01010000".
-000092 05 BIT-BACKGROUND-BROWN PIC 1(8) BIT VALUE B"01100000".
-000093 05 BIT-BACKGROUND-LIGHT-GRAY PIC 1(8) BIT VALUE B"01110000".
-000094 01 FILLER REDEFINES PC-COLOR-BACKGROUND-TABLE.
-000095 05 COLOR-BACKGROUND
-000096 OCCURS 8 TIMES PIC 1(8) BIT.
-
-SIZE TYPE LVL NAME PICTURE
-
- WORKING-STORAGE SECTION
-
-00000 ALPHANUMERIC 01 empty-pic INVALID
-
-00077 ALPHANUMERIC 01 too-long-pic XXXXXXXXXXXXXXXXXXXX...
-
-00000 ALPHANUMERIC 01 too-long-pic2 INVALID
-
-00000 GROUP 01 multiple-symbols
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-
-00000 GROUP 01 non-symbols
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-
-00050 NUMERIC 01 too-many-digits 9(50)
-
-00000 ALPHANUMERIC 01 too-long-number-in-parens INVALID
-
-00000 ALPHANUMERIC 01 nested-parens INVALID
-
-00000 ALPHANUMERIC 01 unbalanced-parens INVALID
-
-00000 ALPHANUMERIC 01 multiple-pairs-of-parens INVALID
-
-00000 ALPHANUMERIC 01 no-digit-in-parens INVALID
-
-00000 GROUP 01 mutually-exclusive-symbols
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-
-00000 GROUP 01 non-rightmost-leftmost-symbols
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-
-00000 GROUP 01 missing-symbols
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-
-00000 GROUP 01 invalid-constant
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-00000 ALPHANUMERIC 03 FILLER INVALID
-
-00086 GROUP 01 valid-pics
-00002 NUMERIC 03 FILLER VP9B
-00002 NUMERIC 03 FILLER B9P(3)
-00004 NUMERIC 03 FILLER B$$$
-00014 NUMERIC 03 FILLER 0000+B0+++0B,+
-00005 NUMERIC 03 FILLER +(5)P(3)
-00005 NUMERIC 03 FILLER ++.++
-00005 NUMERIC 03 FILLER $(INTEGER-CONSTANT)
-00049 NUMERIC 03 FILLER $$$$$$$$$$$$$$$$$$$$...
-
-00008 GROUP 01 PC-COLOR-BACKGROUND-TABLE
-00001 NUMERIC 05 BIT-BACKGROUND-BLACK 1(8)
-00001 NUMERIC 05 BIT-BACKGROUND-BLUE 1(8)
-00001 NUMERIC 05 BIT-BACKGROUND-GREEN 1(8)
-00001 NUMERIC 05 BIT-BACKGROUND-CYAN 1(8)
-00001 NUMERIC 05 BIT-BACKGROUND-RED 1(8)
-00001 NUMERIC 05 BIT-BACKGROUND-MAGENTA 1(8)
-00001 NUMERIC 05 BIT-BACKGROUND-BROWN 1(8)
-00001 NUMERIC 05 BIT-BACKGROUND-LIGHT-GRAY 1(8)
-
-00008 GROUP 01 FILLER, REDEFINES PC-COLOR-BACKGROUND-TABLE
-00001 BOOLEAN 05 COLOR-BACKGROUND 1(8), OCCURS 8
-
-
-
-Error/Warning summary:
-
-prog.cob:7: error: missing PICTURE string
-prog.cob:10: error: PICTURE string may not contain more than 255 characters; contains 301 characters
-prog.cob:16: error: CR or DB may only occur once in a PICTURE string
-prog.cob:17: error: CR or DB may only occur once in a PICTURE string
-prog.cob:18: error: S may only occur once in a PICTURE string
-prog.cob:18: error: S must be at start of PICTURE string
-prog.cob:19: error: . may only occur once in a PICTURE string
-prog.cob:20: error: V may only occur once in a PICTURE string
-prog.cob:21: error: a trailing +/- sign cannot follow a leading +/- sign
-prog.cob:22: error: a leading +/- sign cannot follow a leading currency symbol
-prog.cob:22: error: a trailing currency symbol cannot follow a leading currency symbol
-prog.cob:22: error: a trailing +/- sign cannot follow a leading +/- sign
-prog.cob:24: error: invalid PICTURE character 'K'
-prog.cob:25: error: C must be followed by R
-prog.cob:26: error: D must be followed by B
-prog.cob:27: error: numeric field cannot be larger than 38 digits
-prog.cob:28: error: only up to 10 significant digits are permitted within parentheses
-prog.cob:29: error: parentheses must be preceded by a picture symbol
-prog.cob:30: error: unbalanced parentheses
-prog.cob:31: error: parentheses must be preceded by a picture symbol
-prog.cob:32: error: parentheses must contain an unsigned integer
-prog.cob:34: error: . cannot follow a P which is after the decimal point
-prog.cob:35: error: . cannot follow V
-prog.cob:36: error: cannot have both Z and * in PICTURE string
-prog.cob:37: error: a trailing +/- sign cannot follow a floating +/- string which is before the decimal point
-prog.cob:37: error: a trailing +/- sign may only occur once in a PICTURE string
-prog.cob:38: error: a Z or * which is before the decimal point cannot follow a floating currency symbol string which is before the decimal point
-prog.cob:39: error: a Z or * which is before the decimal point cannot follow a floating currency symbol string which is before the decimal point
-prog.cob:40: error: A or X cannot follow N
-prog.cob:41: error: N cannot follow A or X
-prog.cob:42: error: a Z or * which is before the decimal point cannot follow A or X
-prog.cob:43: error: A or X cannot follow .
-prog.cob:44: error: A or X cannot follow S
-prog.cob:45: error: a leading +/- sign cannot follow B, 0 or /
-prog.cob:45: error: a leading +/- sign cannot follow a floating currency symbol string which is before the decimal point
-prog.cob:45: error: a leading +/- sign may only occur once in a PICTURE string
-prog.cob:45: error: a trailing +/- sign cannot follow a leading +/- sign
-prog.cob:45: error: a trailing +/- sign may only occur once in a PICTURE string
-prog.cob:46: error: a trailing +/- sign cannot follow a floating +/- string which is before the decimal point
-prog.cob:47: error: CR or DB cannot follow a leading +/- sign
-prog.cob:48: error: CR or DB cannot follow a leading +/- sign
-prog.cob:50: error: a leading +/- sign cannot follow B, 0 or /
-prog.cob:51: error: a leading +/- sign cannot follow 9
-prog.cob:52: error: B, 0 or / cannot follow CR or DB
-prog.cob:53: error: 9 cannot follow CR or DB
-prog.cob:54: error: a floating currency symbol string which is before the decimal point cannot follow 9
-prog.cob:55: error: a leading currency symbol cannot follow 9
-prog.cob:56: error: a leading currency symbol cannot follow B, 0 or /
-prog.cob:57: error: P must be at start or end of PICTURE string
-prog.cob:57: error: V cannot follow a P which is after the decimal point
-prog.cob:59: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol
-prog.cob:60: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol
-prog.cob:61: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol
-prog.cob:67: error: 'STR-CONSTANT' is not an unsigned positive integer
-prog.cob:68: error: 'FLOAT-CONSTANT' is not an unsigned positive integer
-prog.cob:69: error: 'SIGNED-CONSTANT' is not an unsigned positive integer
-prog.cob:70: error: 'UNSEEN-CONSTANT' is not defined
-prog.cob:81: warning: uncommon parentheses
-
-1 warning in compilation group
-57 errors in compilation group
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:3684: diff expected.lst prog.lst"
-at_fn_check_prepare_trace "listings.at:3684"
-( $at_check_trace; diff expected.lst prog.lst
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:3684"
-$at_failed && at_fn_log_failure \
-"prog.lst"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_500
-#AT_START_501
-at_fn_group_banner 501 'listings.at:3689' \
- "Variable format" " " 3
-at_xfail=no
-(
- printf "%s\n" "501. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-000001 $SET SOURCEFORMAT "VARIABLE"
-000010 IDENTIFICATION DIVISION.
-000020 PROGRAM-ID. prog.
-000030* blah blah blah
-000040 PROCEDURE DIVISION.
-000050 DISPLAY "Hello!"
-000060 .
-000070 END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:3703: \$COMPILE_LISTING0 -t- prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t- prog.cob" "listings.at:3703"
-( $at_check_trace; $COMPILE_LISTING0 -t- prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob
-
-LINE PG/LN A...B............................................................
-
-000001 000001 \$SET SOURCEFORMAT \"VARIABLE\"
-000002 000010 IDENTIFICATION DIVISION.
-000003 000020 PROGRAM-ID. prog.
-000004 000030* blah blah blah
-000005 000040 PROCEDURE DIVISION.
-000006 000050
-000006+ DISPLAY \"Hello!\"
-000007 000060 .
-000008 000070 END PROGRAM prog.
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:3703"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_501
-#AT_START_502
-at_fn_group_banner 502 'listings.at:3726' \
- "MFCOMMENT" " " 3
-at_xfail=no
-(
- printf "%s\n" "502. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- * DISPLAY 'COMMENTASTERISK'
- / DISPLAY 'COMMENTSLASH'
-* DISPLAY 'MFCOMMENTASTERISK'
-/ DISPLAY 'MFCOMMENTSLASH'
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:3740: \$COMPILE_LISTING0 -t- prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t- prog.cob" "listings.at:3740"
-( $at_check_trace; $COMPILE_LISTING0 -t- prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 PROCEDURE DIVISION.
-000005 * DISPLAY 'COMMENTASTERISK'
-
-LINE PG/LN A...B............................................................
-
-000006 / DISPLAY 'COMMENTSLASH'
-000007 * DISPLAY 'MFCOMMENTASTERISK'
-000008 / DISPLAY 'MFCOMMENTSLASH'
-000009 STOP RUN.
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:3740"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:3763: \$COMPILE_LISTING0 -t- -fmfcomment prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t- -fmfcomment prog.cob" "listings.at:3763"
-( $at_check_trace; $COMPILE_LISTING0 -t- -fmfcomment prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 PROCEDURE DIVISION.
-000005 * DISPLAY 'COMMENTASTERISK'
-
-LINE PG/LN A...B............................................................
-
-000006 / DISPLAY 'COMMENTSLASH'
-000008 / DISPLAY 'MFCOMMENTSLASH'
-000009 STOP RUN.
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:3763"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_502
-#AT_START_503
-at_fn_group_banner 503 'listings.at:3788' \
- "LISTING directive" " " 3
-at_xfail=no
-(
- printf "%s\n" "503. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >copy.inc <<'_ATEOF'
-
- >>LISTING OFF
- 01 TEST1-VAR PIC X(2) VALUE "OK".
- 01 TEST2-VAR PIC X(2) VALUE "OK".
- 01 TEST3-VAR PIC X(2) VALUE "OK".
- 01 TEST4-VAR PIC X(2) VALUE "OK".
- >>LISTING ON
- 01 TEST5-VAR PIC X(2) VALUE "OK".
- 01 TEST6-VAR PIC X(2) VALUE "OK".
- 01 TEST7-VAR PIC X(2) VALUE "OK".
- 01 TEST8-VAR PIC X(2) VALUE "OK".
-_ATEOF
-
-
-cat >copy2.inc <<'_ATEOF'
- >> LISTING OFF
- 01 TEST9-VAR PIC X(2) VALUE "OK".
- >>LISTING
- 01 TESTA-VAR PIC X(2) VALUE "OK".
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "copy.inc".
- COPY "copy2.inc".
- PROCEDURE DIVISION.
- >>LISTING OFF
- DISPLAY TEST1-VAR NO ADVANCING
- END-DISPLAY.
- >> LISTING ON
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:3825: \$COMPILE_LISTING0 -t- -ftsymbols prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t- -ftsymbols prog.cob" "listings.at:3825"
-( $at_check_trace; $COMPILE_LISTING0 -t- -ftsymbols prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 DATA DIVISION.
-000005 WORKING-STORAGE SECTION.
-000006 COPY \"copy.inc\".
-000001C
-000002C >>LISTING OFF
-000007C >>LISTING ON
-000008C 01 TEST5-VAR PIC X(2) VALUE \"OK\".
-000009C 01 TEST6-VAR PIC X(2) VALUE \"OK\".
-000010C 01 TEST7-VAR PIC X(2) VALUE \"OK\".
-000011C 01 TEST8-VAR PIC X(2) VALUE \"OK\".
-000007 COPY \"copy2.inc\".
-000001C >> LISTING OFF
-000003C >>LISTING
-000004C 01 TESTA-VAR PIC X(2) VALUE \"OK\".
-000008 PROCEDURE DIVISION.
-000009 >>LISTING OFF
-000012 >> LISTING ON
-000013 STOP RUN.
-
-SIZE TYPE LVL NAME PICTURE
-
- WORKING-STORAGE SECTION
-
-00002 ALPHANUMERIC 01 TEST1-VAR X(2)
-
-00002 ALPHANUMERIC 01 TEST2-VAR X(2)
-
-00002 ALPHANUMERIC 01 TEST3-VAR X(2)
-
-00002 ALPHANUMERIC 01 TEST4-VAR X(2)
-
-00002 ALPHANUMERIC 01 TEST5-VAR X(2)
-
-00002 ALPHANUMERIC 01 TEST6-VAR X(2)
-
-00002 ALPHANUMERIC 01 TEST7-VAR X(2)
-
-00002 ALPHANUMERIC 01 TEST8-VAR X(2)
-
-00002 ALPHANUMERIC 01 TEST9-VAR X(2)
-
-00002 ALPHANUMERIC 01 TESTA-VAR X(2)
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:3825"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_503
-#AT_START_504
-at_fn_group_banner 504 'listings.at:3884' \
- "LISTING directive free-form reference-format" " " 3
-at_xfail=no
-(
- printf "%s\n" "504. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >copy.inc <<'_ATEOF'
-
->>LISTING OFF
-01 TEST1-VAR PIC X(2) VALUE "OK".
-01 TEST2-VAR PIC X(2) VALUE "OK".
-01 TEST3-VAR PIC X(2) VALUE "OK".
-01 TEST4-VAR PIC X(2) VALUE "OK".
->>LISTING ON
-01 TEST5-VAR PIC X(2) VALUE "OK".
-01 TEST6-VAR PIC X(2) VALUE "OK".
-01 TEST7-VAR PIC X(2) VALUE "OK".
-01 TEST8-VAR PIC X(2) VALUE "OK".
-_ATEOF
-
-
-cat >copy2.inc <<'_ATEOF'
->> LISTING OFF
-01 TEST9-VAR PIC X(2) VALUE "OK".
->>LISTING
-01 TESTA-VAR PIC X(2) VALUE "OK".
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- COPY "copy.inc".
- COPY "copy2.inc".
- PROCEDURE DIVISION.
->>LISTING OFF
- DISPLAY TEST1-VAR NO ADVANCING
- END-DISPLAY.
->> LISTING ON
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:3921: \$COMPILE_LISTING0 -t- -ftsymbols -free prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t- -ftsymbols -free prog.cob" "listings.at:3921"
-( $at_check_trace; $COMPILE_LISTING0 -t- -ftsymbols -free prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob
-
-LINE .....................SOURCE.............................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 DATA DIVISION.
-000005 WORKING-STORAGE SECTION.
-000006 COPY \"copy.inc\".
-000001C
-000002C >>LISTING OFF
-000007C >>LISTING ON
-000008C 01 TEST5-VAR PIC X(2) VALUE \"OK\".
-000009C 01 TEST6-VAR PIC X(2) VALUE \"OK\".
-000010C 01 TEST7-VAR PIC X(2) VALUE \"OK\".
-000011C 01 TEST8-VAR PIC X(2) VALUE \"OK\".
-000007 COPY \"copy2.inc\".
-000001C >> LISTING OFF
-000003C >>LISTING
-000004C 01 TESTA-VAR PIC X(2) VALUE \"OK\".
-000008 PROCEDURE DIVISION.
-000009 >>LISTING OFF
-000012 >> LISTING ON
-000013 STOP RUN.
-
-SIZE TYPE LVL NAME PICTURE
-
- WORKING-STORAGE SECTION
-
-00002 ALPHANUMERIC 01 TEST1-VAR X(2)
-
-00002 ALPHANUMERIC 01 TEST2-VAR X(2)
-
-00002 ALPHANUMERIC 01 TEST3-VAR X(2)
-
-00002 ALPHANUMERIC 01 TEST4-VAR X(2)
-
-00002 ALPHANUMERIC 01 TEST5-VAR X(2)
-
-00002 ALPHANUMERIC 01 TEST6-VAR X(2)
-
-00002 ALPHANUMERIC 01 TEST7-VAR X(2)
-
-00002 ALPHANUMERIC 01 TEST8-VAR X(2)
-
-00002 ALPHANUMERIC 01 TEST9-VAR X(2)
-
-00002 ALPHANUMERIC 01 TESTA-VAR X(2)
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:3921"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_504
-#AT_START_505
-at_fn_group_banner 505 'listings.at:3980' \
- "Listing-directive statements" " " 3
-at_xfail=no
-(
- printf "%s\n" "505. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
- TITLE "GnuCOBOL lists IBM"
- IDENTIFICATION DIVISION.
- SKIP1
- PROGRAM-ID. prog.
- SKIP2
- DATA DIVISION.
- SKIP3
- WORKING-STORAGE SECTION.
- 01 TITLE-01 PIC X(2).
- 01 TITLE-02 PIC X(2).
- TITLE "here goes the code"
- PROCEDURE DIVISION.
- EJECT
- MOVE SPACE TO TITLE-01
- TITLE-02.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:4001: \$COMPILE_LISTING -t- -std=ibm prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING -t- -std=ibm prog.cob" "listings.at:4001"
-( $at_check_trace; $COMPILE_LISTING -t- -std=ibm prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL lists IBM prog.cob Page 0001
-
-LINE PG/LN A...B............................................................
-
-000002 IDENTIFICATION DIVISION.
-
-
-000004 PROGRAM-ID. prog.
-
-
-
-000006 DATA DIVISION.
-
-
-
-
-000008 WORKING-STORAGE SECTION.
-000009 01 TITLE-01 PIC X(2).
-000010 01 TITLE-02 PIC X(2).
- here goes the code prog.cob Page 0002
-
-LINE PG/LN A...B............................................................
-
-000012 PROCEDURE DIVISION.
- here goes the code prog.cob Page 0003
-
-LINE PG/LN A...B............................................................
-
-000014 MOVE SPACE TO TITLE-01
-000015 TITLE-02.
-000016 STOP RUN.
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:4001"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_505
-#AT_START_506
-at_fn_group_banner 506 'listings.at:4042' \
- "Eject page" " " 3
-at_xfail=no
-(
- printf "%s\n" "506. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- /
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:4057: \$COMPILE_LISTING -t- prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING -t- prog.cob" "listings.at:4057"
-( $at_check_trace; $COMPILE_LISTING -t- prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob Page 0001
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 DATA DIVISION.
-000005 WORKING-STORAGE SECTION.
- GnuCOBOL V.R.P prog.cob Page 0002
-
-LINE PG/LN A...B............................................................
-
-000006 /
-000007 PROCEDURE DIVISION.
-000008 STOP RUN.
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:4057"
-$at_failed && at_fn_log_failure \
-"prog.lis"
-$at_traceon; }
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
->>PAGE
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:4091: \$COMPILE_LISTING -t- -free prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING -t- -free prog2.cob" "listings.at:4091"
-( $at_check_trace; $COMPILE_LISTING -t- -free prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog2.cob Page 0001
-
-LINE .....................SOURCE.............................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog2.
-000004 DATA DIVISION.
-000005 WORKING-STORAGE SECTION.
- GnuCOBOL V.R.P prog2.cob Page 0002
-
-LINE .....................SOURCE.............................................
-
-000006 >>PAGE
-000007 PROCEDURE DIVISION.
-000008 STOP RUN.
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:4091"
-$at_failed && at_fn_log_failure \
-"prog.lis"
-$at_traceon; }
-
-
-cat >prog3.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
-
- PROGRAM-ID. prog3.
-
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 WS-VAR PIC X(2).
- /
- 77 WS-VA2 PIC X(2).
-
-
- LOCAL-STORAGE SECTION.
- 77 LS-VAR PIC 9(2).
-
-
- PROCEDURE DIVISION.
-
- DISPLAY WS-VAR
- MOVE 99 TO LS-VAR
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:4139: \$COMPILE_LISTING -t- prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING -t- prog3.cob" "listings.at:4139"
-( $at_check_trace; $COMPILE_LISTING -t- prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog3.cob Page 0001
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003
-000004 PROGRAM-ID. prog3.
-000005
-000006
-000007 DATA DIVISION.
-000008 WORKING-STORAGE SECTION.
-000009 77 WS-VAR PIC X(2).
- GnuCOBOL V.R.P prog3.cob Page 0002
-
-LINE PG/LN A...B............................................................
-
-000010 /
-000011 77 WS-VA2 PIC X(2).
-000012
-000013
-000014 LOCAL-STORAGE SECTION.
-000015 77 LS-VAR PIC 9(2).
-000016
-000017
-000018 PROCEDURE DIVISION.
-000019
-000020 DISPLAY WS-VAR
-000021 MOVE 99 TO LS-VAR
-000022
-000023 STOP RUN.
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:4139"
-$at_failed && at_fn_log_failure \
-"prog.lis"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:4177: \$COMPILE_LISTING -t- -tlines=20 prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING -t- -tlines=20 prog3.cob" "listings.at:4177"
-( $at_check_trace; $COMPILE_LISTING -t- -tlines=20 prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog3.cob Page 0001
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003
-000004 PROGRAM-ID. prog3.
-000005
-000006
-000007 DATA DIVISION.
-000008 WORKING-STORAGE SECTION.
-000009 77 WS-VAR PIC X(2).
- GnuCOBOL V.R.P prog3.cob Page 0002
-
-LINE PG/LN A...B............................................................
-
-000010 /
-000011 77 WS-VA2 PIC X(2).
-000012
-000013
-000014 LOCAL-STORAGE SECTION.
-000015 77 LS-VAR PIC 9(2).
-000016
-000017
-000018 PROCEDURE DIVISION.
-000019
-000020 DISPLAY WS-VAR
-000021 MOVE 99 TO LS-VAR
-000022
-000023 STOP RUN.
-
-
-0 warnings in compilation group
- GnuCOBOL V.R.P prog3.cob Page 0003
-
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:4177"
-$at_failed && at_fn_log_failure \
-"prog.lis"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_506
-#AT_START_507
-at_fn_group_banner 507 'listings.at:4220' \
- "Cross reference" " " 3
-at_xfail=no
-(
- printf "%s\n" "507. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >EDITOR.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION. EDIT0001
- PROGRAM-ID. EDIT0002
- EDITOR. EDIT0003
- EDIT0008
- *NOTE. EDIT0009
- * THIS VERSION OF EDITOR 1 COMPRISES AN ENTIRE RE_WRITE EDIT0010
- * OF THE BASIC EDITOR WITH ONLY ONE CHANGE IN THE COMMAND EDIT0011
- * STRUCTURE, THAT BEING THE ADDITION OF A "CHANGE" COMMAND EDIT0012
- * TO SERVE IN PLACE OF THE INSERT-DELETE COMBINATION WHICH EDIT0013
- * WAS REQUIRED IN PREVIOUS VERSIONS. RECORD NUMBER FIELDS EDIT0014
- * HAVE ALSO BEEN REDUCED FROM 5 DIGITS TO 4. EDIT0015
- * CHANGE 1. EDIT0016
- * MODIFY TO RUN ON TI-990. EDIT0017
- * CHANGE 2. EDIT0018
- * MODIFY TO RUN ON GNUCOBOL. EDIT0019
- EDIT0020
- ENVIRONMENT DIVISION. EDIT0021
- CONFIGURATION SECTION. EDIT0022
- SOURCE-COMPUTER. EDIT0023
- IBM-360. EDIT0024
- OBJECT-COMPUTER. EDIT0025
- IBM-360. EDIT0026
- INPUT-OUTPUT SECTION. EDIT0027
- FILE-CONTROL. EDIT0028
- SELECT OLD-VERSION ASSIGN TO "SYSUT1" EDIT0029
- ORGANIZATION LINE SEQUENTIAL. EDIT0030
- SELECT NEW-VERSION ASSIGN TO "SYSUT2" EDIT0031
- ORGANIZATION LINE SEQUENTIAL. EDIT0032
- SELECT PRT-VERSION ASSIGN TO "SYSUT2" EDIT0033
- ORGANIZATION LINE SEQUENTIAL. EDIT0034
- SELECT MODIFICATION ASSIGN TO "SYSIN1" EDIT0035
- ORGANIZATION LINE SEQUENTIAL. EDIT0036
- SELECT COMMENTARY ASSIGN TO "SYSOU1" EDIT0037
- ORGANIZATION LINE SEQUENTIAL. EDIT0038
- EDIT0039
- DATA DIVISION. EDIT0040
- EDIT0041
- FILE SECTION. EDIT0042
- EDIT0043
- FD OLD-VERSION EDIT0044
- LABEL RECORDS ARE STANDARD EDIT0045
- BLOCK CONTAINS 80 CHARACTERS EDIT0046
- DATA RECORD IS OLD-RECORD. EDIT0047
- EDIT0048
- 01 OLD-RECORD. EDIT0049
- 02 OLD-STATEMENT PICTURE X(75). EDIT0050
- 02 OLD-NUMBER PICTURE X(5). EDIT0051
- EDIT0052
- FD NEW-VERSION EDIT0053
- LABEL RECORDS ARE STANDARD EDIT0054
- BLOCK CONTAINS 80 CHARACTERS EDIT0055
- DATA RECORD IS NEW-RECORD. EDIT0056
- EDIT0057
- 01 NEW-RECORD. EDIT0058
- 02 NEW-STATEMENT PICTURE X(75). EDIT0059
- 02 NEW-NUMBER PICTURE X(5). EDIT0060
- EDIT0061
- FD MODIFICATION EDIT0062
- LABEL RECORDS ARE OMITTED EDIT0063
- BLOCK CONTAINS 80 CHARACTERS EDIT0064
- DATA RECORD IS UPDATE-ORDER. EDIT0065
- EDIT0066
- 01 UPDATE-ORDER. EDIT0067
- 02 INSERTION. EDIT0068
- 03 COMMAND PICTURE X(6). EDIT0069
- 88 ENDJOB VALUE "ENDJOB". EDIT0070
- 88 ENDSET VALUE "ENDSET". EDIT0071
- 88 REMOVE VALUE "REMOVE". EDIT0072
- 88 ADDNEW VALUE "INSERT". EDIT0073
- 88 CHANGE VALUE "CHANGE". EDIT0074
- 88 DISPLY VALUE "DISPLY". EDIT0075
- 03 FILLER PICTURE X. EDIT0076
- 03 A-FIELD PICTURE 9(5). EDIT0077
- 03 A-ALPHA REDEFINES A-FIELD PICTURE X(5). EDIT0078
- 88 A-BLANK VALUE SPACES. EDIT0079
- 03 FILLER PICTURE X(4). EDIT0080
- 03 B-FIELD PICTURE 9(5). EDIT0081
- 03 B-ALPHA REDEFINES B-FIELD PICTURE X(5). EDIT0082
- 88 B-BLANK VALUE SPACES. EDIT0083
- 03 FILLER PICTURE X(54). EDIT0084
- 02 FILLER PICTURE X(5). EDIT0085
- EDIT0086
- FD COMMENTARY EDIT0087
- LABEL RECORDS ARE OMITTED EDIT0088
- BLOCK CONTAINS 82 CHARACTERS EDIT0089
- DATA RECORD IS COMMENT-LINE. EDIT0090
- EDIT0091
- 01 COMMENT-LINE. EDIT0092
- 02 FILLER PICTURE X(82). EDIT0093
- EDIT0094
- WORKING-STORAGE SECTION. EDIT0095
- EDIT0096
- 77 COMMAND-ADDITIONS PICTURE 9(3) COMPUTATIONAL VALUE 0. EDIT0097
- 77 COMMAND-SUBTRACTIONS PICTURE 9(3) COMPUTATIONAL VALUE 0. EDIT0098
- 77 TOTAL-INSERTED PICTURE 9(3) COMPUTATIONAL VALUE 0. EDIT0099
- 77 TOTAL-DELETED PICTURE 9(3) COMPUTATIONAL VALUE 0. EDIT0100
- 77 OUTPUT-COUNT PICTURE 9(5) COMPUTATIONAL VALUE 0. EDIT0101
- 77 LINE-COUNT PICTURE 9(2) COMPUTATIONAL VALUE 0. EDIT0102
- 77 FIELDA PICTURE 9(5) VALUE 0. EDIT0103
- 77 FIELDB PICTURE 9(5) VALUE 0. EDIT0104
- 77 BLANK-LINE PICTURE X(82) VALUE SPACES. EDIT0105
- EDIT0106
- 01 DATE-FROM-SYS. EDIT0107
- 02 DFSYS OCCURS 3 TIMES PICTURE 99. EDIT0108
- EDIT0109
- 01 HEADINGS-LINE. EDIT0110
- 02 FILLER PICTURE X(15) VALUE "EDITOR VERSION". EDIT0111
- 02 FILLER PICTURE X(20) VALUE "1.1 - 206/72". EDIT0112
- 02 PHASE PICTURE X(17) VALUE "UPDATING AS OF". EDIT0113
- 02 MONTH-RUN PICTURE XX. EDIT0114
- 02 FILLER PICTURE X VALUE "/". EDIT0115
- 02 DAY-RUN PICTURE XX. EDIT0116
- 02 FILLER PICTURE X VALUE "/". EDIT0117
- 02 YEAR-RUN PICTURE XX. EDIT0118
- 02 FILLER PICTURE X(8) VALUE SPACES. EDIT0119
- 02 FILLER PICTURE X(8) VALUE " PAGE: ". EDIT0120
- 02 PAGE-NUMBER PICTURE 9(4) VALUE 0. EDIT0121
- EDIT0122
- 01 COMMAND-LISTING. EDIT0123
- 02 FILLER PICTURE X(2) VALUE SPACES. EDIT0124
- 02 COMMAND-IMAGE PICTURE X(80). EDIT0125
- EDIT0126
- 01 ACTIVITIES-LISTING. EDIT0127
- 02 DISPOSITION PICTURE X(2). EDIT0128
- 02 ACTIVE-IMAGE PICTURE X(80). EDIT0129
- EDIT0130
- 01 UPSI-BYTE. EDIT0131
- 02 UPSI-BIT OCCURS 8 TIMES PICTURE X. EDIT0132
- EDIT0133
- 01 MESSAGE-LOG. EDIT0134
- 02 FILLER PICTURE X(2) VALUE SPACES. EDIT0135
- 02 MESSAGE-TEXT PICTURE X(80). EDIT0136
- EDIT0137
- 01 DISPLAY-MESSAGE. EDIT0138
- 02 FILLER PICTURE X(2) VALUE SPACES. EDIT0139
- 02 DISPLAY-TEMP PICTURE X(6). EDIT0140
- 02 FILLER PICTURE X(2) VALUE SPACES. EDIT0141
- 02 DISPLAY-TEXT PICTURE X(60). EDIT0142
- EDIT0143
- 77 END-JOB-PROCESS PICTURE 9 VALUE 0. EDIT0144
- 77 DELETE-PROCESS PICTURE 9 VALUE 1. EDIT0145
- 77 INSERT-PROCESS PICTURE 9 VALUE 2. EDIT0146
- 77 WRITE-PROCESS PICTURE 9 VALUE 3. EDIT0147
- EDIT0148
- 01 SELECTORS. EDIT0149
- 02 RETURN-SELECT PICTURE 9 VALUE 0. EDIT0150
- 02 NEXT-JOB-SELECT PICTURE 9 VALUE 0. EDIT0151
- EDIT0152
- PROCEDURE DIVISION. EDIT0153
- EDIT0154
- START-SECTION. EDIT0155
- OPEN INPUT OLD-VERSION, MODIFICATION, EDIT0156
- OUTPUT NEW-VERSION, COMMENTARY. EDIT0157
- MOVE "F" TO UPSI-BIT (1), UPSI-BIT (2). EDIT0158
- ACCEPT DATE-FROM-SYS FROM DATE. EDIT0159
- MOVE DFSYS (1) TO YEAR-RUN. EDIT0160
- MOVE DFSYS (2) TO MONTH-RUN. EDIT0161
- MOVE DFSYS (3) TO DAY-RUN. EDIT0162
- READ OLD-VERSION AT END EDIT0163
- MOVE "NO OLD VERSION FOUND" TO MESSAGE-TEXT EDIT0164
- WRITE COMMENT-LINE FROM MESSAGE-LOG EDIT0165
- GO TO END-JOB. EDIT0166
- MOVE OLD-STATEMENT TO NEW-STATEMENT. EDIT0167
- PERFORM OUTPUT-A-RECORD. EDIT0168
- EDIT0169
- TOP-OF-PAGE-ROUTINE. EDIT0170
- ADD 1 TO PAGE-NUMBER. EDIT0171
- MOVE ZERO TO LINE-COUNT. EDIT0172
- WRITE COMMENT-LINE FROM HEADINGS-LINE AFTER PAGE. EDIT0173
- WRITE COMMENT-LINE FROM BLANK-LINE. EDIT0174
- EDIT0175
- READ-A-COMMAND. EDIT0176
- READ MODIFICATION AT END EDIT0177
- MOVE "MODIFICATION FILE ENDED " TO MESSAGE-TEXT EDIT0178
- WRITE COMMENT-LINE FROM MESSAGE-LOG EDIT0179
- GO TO FINISH-JOB. EDIT0180
- MOVE UPDATE-ORDER TO COMMAND-IMAGE. EDIT0181
- WRITE COMMENT-LINE FROM COMMAND-LISTING. EDIT0182
- ADD 2 TO LINE-COUNT. EDIT0183
- IF A-BLANK MOVE ZEROES TO A-FIELD. EDIT0184
- IF B-BLANK MOVE ZEROES TO B-FIELD. EDIT0185
- MOVE A-FIELD TO FIELDA. EDIT0186
- MOVE B-FIELD TO FIELDB. EDIT0187
- EDIT0188
- TEST-COMMAND-TYPE. EDIT0189
- IF CHANGE GO TO CHANGE-A-RECORD. EDIT0190
- IF REMOVE GO TO DELETE-A-RECORD. EDIT0191
- IF DISPLY MOVE "T" TO UPSI-BIT (2) EDIT0192
- GO TO FINISH-JOB. EDIT0193
- IF ENDJOB GO TO FINISH-JOB. EDIT0194
- IF ADDNEW GO TO INSERT-A-RECORD. EDIT0195
- MOVE "INVALID COMMAND IGNORED." TO MESSAGE-TEXT. EDIT0196
- WRITE COMMENT-LINE FROM MESSAGE-LOG. EDIT0197
- GO TO READ-A-COMMAND. EDIT0198
- EDIT0199
- CHANGE-A-RECORD. EDIT0200
- ALTER RETURN-TO-USER TO PROCEED TO INSERTION-PROCESS. EDIT0201
- ALTER NEXT-JOB-STEP TO PROCEED TO DELETION-PROCESS. EDIT0202
- EDIT0205
- FIND-FIELDA. EDIT0206
- IF OLD-NUMBER IS GREATER THAN FIELDA EDIT0207
- MOVE "RECORD ALREADY PASSED" TO MESSAGE-TEXT EDIT0208
- WRITE COMMENT-LINE FROM MESSAGE-LOG EDIT0209
- GO TO READ-A-COMMAND. EDIT0210
- READ OLD-VERSION AT END EDIT0211
- MOVE "NOT FOUND IN OLD VERSION" TO DISPLAY-TEXT EDIT0212
- MOVE FIELDA TO DISPLAY-TEMP EDIT0213
- WRITE COMMENT-LINE FROM DISPLAY-MESSAGE EDIT0214
- GO TO END-JOB. EDIT0215
- IF OLD-NUMBER IS LESS THAN FIELDA EDIT0216
- MOVE OLD-STATEMENT TO NEW-STATEMENT EDIT0217
- PERFORM OUTPUT-A-RECORD EDIT0218
- GO TO FIND-FIELDA. EDIT0219
- EDIT0220
- RETURN-TO-USER. EDIT0221
- GO TO END-JOB. EDIT0223
- EDIT0228
- INSERT-A-RECORD. EDIT0229
- ALTER RETURN-TO-USER TO PROCEED TO INSERTION-PROCESS. EDIT0230
- ALTER NEXT-JOB-STEP TO PROCEED TO FORCED-WRITE. EDIT0231
- GO TO FIND-FIELDA. EDIT0234
- EDIT0235
- INSERTION-PROCESS. EDIT0236
- READ MODIFICATION AT END EDIT0237
- MOVE "NO ENDSET FOUND" TO MESSAGE-TEXT EDIT0238
- WRITE COMMENT-LINE FROM MESSAGE-LOG EDIT0239
- GO TO END-JOB. EDIT0240
- IF ENDSET EDIT0241
- MOVE COMMAND-ADDITIONS TO DISPLAY-TEMP EDIT0242
- MOVE "RECORDS INSERTED." TO DISPLAY-TEXT EDIT0243
- WRITE COMMENT-LINE FROM DISPLAY-MESSAGE EDIT0244
- ADD COMMAND-ADDITIONS TO TOTAL-INSERTED EDIT0245
- MOVE ZEROES TO COMMAND-ADDITIONS EDIT0246
- GO TO NEXT-JOB-STEP. EDIT0247
- MOVE INSERTION TO NEW-STATEMENT, ACTIVE-IMAGE. EDIT0248
- MOVE "I " TO DISPOSITION. EDIT0249
- PERFORM OUTPUT-A-RECORD. EDIT0250
- WRITE COMMENT-LINE FROM ACTIVITIES-LISTING. EDIT0251
- ADD 1 TO COMMAND-ADDITIONS. EDIT0252
- ADD 1 TO LINE-COUNT. EDIT0253
- IF LINE-COUNT EQUAL 56 PERFORM TOP-OF-PAGE-ROUTINE. EDIT0254
- GO TO INSERTION-PROCESS. EDIT0255
- EDIT0256
- NEXT-JOB-STEP. EDIT0257
- GO TO END-JOB. EDIT0259
- EDIT0264
- FORCED-WRITE. EDIT0265
- MOVE OLD-STATEMENT TO NEW-STATEMENT. EDIT0266
- PERFORM OUTPUT-A-RECORD. EDIT0267
- GO TO READ-A-COMMAND. EDIT0268
- EDIT0269
- DELETE-A-RECORD. EDIT0270
- ALTER RETURN-TO-USER TO PROCEED TO DELETION-PROCESS. EDIT0271
- GO TO FIND-FIELDA. EDIT0273
- EDIT0274
- DELETION-PROCESS. EDIT0275
- MOVE OLD-RECORD TO ACTIVE-IMAGE. EDIT0276
- MOVE "D " TO DISPOSITION. EDIT0277
- WRITE COMMENT-LINE FROM ACTIVITIES-LISTING. EDIT0278
- ADD 1 TO LINE-COUNT. EDIT0279
- IF LINE-COUNT EQUAL 56 PERFORM TOP-OF-PAGE-ROUTINE. EDIT0280
- ADD 1 TO COMMAND-SUBTRACTIONS. EDIT0281
- IF OLD-NUMBER IS NOT LESS THAN FIELDB EDIT0282
- MOVE COMMAND-SUBTRACTIONS TO DISPLAY-TEMP EDIT0283
- MOVE "RECORDS DELETED." TO DISPLAY-TEXT EDIT0284
- WRITE COMMENT-LINE FROM DISPLAY-MESSAGE EDIT0285
- ADD COMMAND-SUBTRACTIONS TO TOTAL-DELETED EDIT0286
- MOVE OLD-STATEMENT TO NEW-STATEMENT EDIT0287
- MOVE ZEROES TO COMMAND-SUBTRACTIONS EDIT0288
- GO TO READ-A-COMMAND. EDIT0289
- READ OLD-VERSION AT END EDIT0290
- MOVE "NOT FOUND IN OLD VERSION DOING DELETE" EDIT0291
- TO DISPLAY-TEXT EDIT0292
- WRITE COMMENT-LINE FROM DISPLAY-MESSAGE EDIT0293
- GO TO END-JOB. EDIT0294
- GO TO DELETION-PROCESS. EDIT0295
- EDIT0296
- OUTPUT-A-RECORD. EDIT0297
- ADD 1 TO OUTPUT-COUNT. EDIT0298
- MOVE OUTPUT-COUNT TO NEW-NUMBER. EDIT0299
- WRITE NEW-RECORD. EDIT0300
- EDIT0301
- FINISH-JOB. EDIT0302
- READ OLD-VERSION AT END GO TO TEST-FOR-LISTING. EDIT0303
- MOVE OLD-STATEMENT TO NEW-STATEMENT. EDIT0304
- GO TO OUTPUT-A-RECORD. EDIT0305
- EDIT0306
- TEST-FOR-LISTING. EDIT0307
- PERFORM TOP-OF-PAGE-ROUTINE. EDIT0308
- MOVE OLD-NUMBER TO DISPLAY-TEMP. EDIT0309
- MOVE "RECORDS READ." TO DISPLAY-TEXT. EDIT0310
- WRITE COMMENT-LINE FROM DISPLAY-MESSAGE. EDIT0311
- MOVE TOTAL-INSERTED TO DISPLAY-TEMP. EDIT0312
- MOVE "RECORDS ADDED." TO DISPLAY-TEXT. EDIT0313
- WRITE COMMENT-LINE FROM DISPLAY-MESSAGE. EDIT0314
- MOVE TOTAL-DELETED TO DISPLAY-TEMP. EDIT0315
- MOVE "RECORDS DROPPED." TO DISPLAY-TEXT. EDIT0316
- WRITE COMMENT-LINE FROM DISPLAY-MESSAGE. EDIT0317
- MOVE OUTPUT-COUNT TO DISPLAY-TEMP. EDIT0318
- MOVE "RECORDS IN NEW FILE." TO DISPLAY-TEXT. EDIT0319
- WRITE COMMENT-LINE FROM DISPLAY-MESSAGE. EDIT0320
- IF UPSI-BIT (2) EQUAL "F" GO TO END-JOB. EDIT0321
- CLOSE NEW-VERSION. EDIT0322
- OPEN INPUT NEW-VERSION. EDIT0323
- MOVE "UPDATED LISTING" TO PHASE. EDIT0324
- MOVE ZEROES TO PAGE-NUMBER. EDIT0325
- PERFORM TOP-OF-PAGE-ROUTINE. EDIT0326
- MOVE SPACES TO DISPOSITION. EDIT0327
- EDIT0328
- LISTING-LOOP. EDIT0329
- READ NEW-VERSION AT END GO TO END-JOB. EDIT0330
- MOVE NEW-RECORD TO ACTIVE-IMAGE. EDIT0331
- WRITE COMMENT-LINE FROM ACTIVITIES-LISTING. EDIT0332
- ADD 1 TO LINE-COUNT. EDIT0333
- IF LINE-COUNT EQUAL 56 PERFORM TOP-OF-PAGE-ROUTINE. EDIT0334
- GO TO LISTING-LOOP. EDIT0335
- EDIT0336
- END-JOB. EDIT0337
- MOVE "PROGRAM TERMINATION" TO MESSAGE-TEXT. EDIT0338
- WRITE COMMENT-LINE FROM MESSAGE-LOG. EDIT0339
- CLOSE OLD-VERSION, NEW-VERSION, MODIFICATION, COMMENTARY. EDIT0340
- STOP RUN. EDIT0341
- EDIT0342
- END PROGRAM EDITOR. EDIT0343
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:4550: \$COMPILE_LISTING0 -Xref -t- -ftsymbols EDITOR.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -Xref -t- -ftsymbols EDITOR.cob" "listings.at:4550"
-( $at_check_trace; $COMPILE_LISTING0 -Xref -t- -ftsymbols EDITOR.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P EDITOR.cob
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID.
-000004 EDITOR.
-000005
-000006 *NOTE.
-000007 * THIS VERSION OF EDITOR 1 COMPRISES AN ENTIRE RE_WRITE
-000008 * OF THE BASIC EDITOR WITH ONLY ONE CHANGE IN THE COMMAND
-000009 * STRUCTURE, THAT BEING THE ADDITION OF A \"CHANGE\" COMMAND
-000010 * TO SERVE IN PLACE OF THE INSERT-DELETE COMBINATION WHICH
-000011 * WAS REQUIRED IN PREVIOUS VERSIONS. RECORD NUMBER FIELDS
-000012 * HAVE ALSO BEEN REDUCED FROM 5 DIGITS TO 4.
-000013 * CHANGE 1.
-000014 * MODIFY TO RUN ON TI-990.
-000015 * CHANGE 2.
-000016 * MODIFY TO RUN ON GNUCOBOL.
-000017
-000018 ENVIRONMENT DIVISION.
-000019 CONFIGURATION SECTION.
-000020 SOURCE-COMPUTER.
-000021 IBM-360.
-000022 OBJECT-COMPUTER.
-000023 IBM-360.
-000024 INPUT-OUTPUT SECTION.
-000025 FILE-CONTROL.
-000026 SELECT OLD-VERSION ASSIGN TO \"SYSUT1\"
-000027 ORGANIZATION LINE SEQUENTIAL.
-000028 SELECT NEW-VERSION ASSIGN TO \"SYSUT2\"
-000029 ORGANIZATION LINE SEQUENTIAL.
-000030 SELECT PRT-VERSION ASSIGN TO \"SYSUT2\"
-error: missing file description for FILE PRT-VERSION
-000031 ORGANIZATION LINE SEQUENTIAL.
-000032 SELECT MODIFICATION ASSIGN TO \"SYSIN1\"
-000033 ORGANIZATION LINE SEQUENTIAL.
-000034 SELECT COMMENTARY ASSIGN TO \"SYSOU1\"
-000035 ORGANIZATION LINE SEQUENTIAL.
-000036
-000037 DATA DIVISION.
-000038
-000039 FILE SECTION.
-000040
-000041 FD OLD-VERSION
-000042 LABEL RECORDS ARE STANDARD
-warning: LABEL RECORDS is obsolete in GnuCOBOL
-000043 BLOCK CONTAINS 80 CHARACTERS
-000044 DATA RECORD IS OLD-RECORD.
-warning: DATA RECORDS is obsolete in GnuCOBOL
-000045
-000046 01 OLD-RECORD.
-000047 02 OLD-STATEMENT PICTURE X(75).
-000048 02 OLD-NUMBER PICTURE X(5).
-000049
-000050 FD NEW-VERSION
-000051 LABEL RECORDS ARE STANDARD
-warning: LABEL RECORDS is obsolete in GnuCOBOL
-000052 BLOCK CONTAINS 80 CHARACTERS
-000053 DATA RECORD IS NEW-RECORD.
-warning: DATA RECORDS is obsolete in GnuCOBOL
-000054
-000055 01 NEW-RECORD.
-000056 02 NEW-STATEMENT PICTURE X(75).
-000057 02 NEW-NUMBER PICTURE X(5).
-000058
-000059 FD MODIFICATION
-000060 LABEL RECORDS ARE OMITTED
-warning: LABEL RECORDS is obsolete in GnuCOBOL
-000061 BLOCK CONTAINS 80 CHARACTERS
-000062 DATA RECORD IS UPDATE-ORDER.
-warning: DATA RECORDS is obsolete in GnuCOBOL
-000063
-000064 01 UPDATE-ORDER.
-000065 02 INSERTION.
-000066 03 COMMAND PICTURE X(6).
-000067 88 ENDJOB VALUE \"ENDJOB\".
-000068 88 ENDSET VALUE \"ENDSET\".
-000069 88 REMOVE VALUE \"REMOVE\".
-000070 88 ADDNEW VALUE \"INSERT\".
-000071 88 CHANGE VALUE \"CHANGE\".
-000072 88 DISPLY VALUE \"DISPLY\".
-000073 03 FILLER PICTURE X.
-000074 03 A-FIELD PICTURE 9(5).
-000075 03 A-ALPHA REDEFINES A-FIELD PICTURE X(5).
-000076 88 A-BLANK VALUE SPACES.
-000077 03 FILLER PICTURE X(4).
-000078 03 B-FIELD PICTURE 9(5).
-000079 03 B-ALPHA REDEFINES B-FIELD PICTURE X(5).
-000080 88 B-BLANK VALUE SPACES.
-000081 03 FILLER PICTURE X(54).
-000082 02 FILLER PICTURE X(5).
-000083
-000084 FD COMMENTARY
-000085 LABEL RECORDS ARE OMITTED
-warning: LABEL RECORDS is obsolete in GnuCOBOL
-000086 BLOCK CONTAINS 82 CHARACTERS
-000087 DATA RECORD IS COMMENT-LINE.
-warning: DATA RECORDS is obsolete in GnuCOBOL
-000088
-000089 01 COMMENT-LINE.
-000090 02 FILLER PICTURE X(82).
-000091
-000092 WORKING-STORAGE SECTION.
-000093
-000094 77 COMMAND-ADDITIONS PICTURE 9(3) COMPUTATIONAL VALUE 0.
-000095 77 COMMAND-SUBTRACTIONS PICTURE 9(3) COMPUTATIONAL VALUE 0.
-000096 77 TOTAL-INSERTED PICTURE 9(3) COMPUTATIONAL VALUE 0.
-000097 77 TOTAL-DELETED PICTURE 9(3) COMPUTATIONAL VALUE 0.
-000098 77 OUTPUT-COUNT PICTURE 9(5) COMPUTATIONAL VALUE 0.
-000099 77 LINE-COUNT PICTURE 9(2) COMPUTATIONAL VALUE 0.
-000100 77 FIELDA PICTURE 9(5) VALUE 0.
-000101 77 FIELDB PICTURE 9(5) VALUE 0.
-000102 77 BLANK-LINE PICTURE X(82) VALUE SPACES.
-000103
-000104 01 DATE-FROM-SYS.
-000105 02 DFSYS OCCURS 3 TIMES PICTURE 99.
-000106
-000107 01 HEADINGS-LINE.
-000108 02 FILLER PICTURE X(15) VALUE \"EDITOR VERSION\".
-000109 02 FILLER PICTURE X(20) VALUE \"1.1 - 206/72\".
-000110 02 PHASE PICTURE X(17) VALUE \"UPDATING AS OF\".
-000111 02 MONTH-RUN PICTURE XX.
-000112 02 FILLER PICTURE X VALUE \"/\".
-000113 02 DAY-RUN PICTURE XX.
-000114 02 FILLER PICTURE X VALUE \"/\".
-000115 02 YEAR-RUN PICTURE XX.
-000116 02 FILLER PICTURE X(8) VALUE SPACES.
-000117 02 FILLER PICTURE X(8) VALUE \" PAGE: \".
-000118 02 PAGE-NUMBER PICTURE 9(4) VALUE 0.
-000119
-000120 01 COMMAND-LISTING.
-000121 02 FILLER PICTURE X(2) VALUE SPACES.
-000122 02 COMMAND-IMAGE PICTURE X(80).
-000123
-000124 01 ACTIVITIES-LISTING.
-000125 02 DISPOSITION PICTURE X(2).
-000126 02 ACTIVE-IMAGE PICTURE X(80).
-000127
-000128 01 UPSI-BYTE.
-000129 02 UPSI-BIT OCCURS 8 TIMES PICTURE X.
-000130
-000131 01 MESSAGE-LOG.
-000132 02 FILLER PICTURE X(2) VALUE SPACES.
-000133 02 MESSAGE-TEXT PICTURE X(80).
-000134
-000135 01 DISPLAY-MESSAGE.
-000136 02 FILLER PICTURE X(2) VALUE SPACES.
-000137 02 DISPLAY-TEMP PICTURE X(6).
-000138 02 FILLER PICTURE X(2) VALUE SPACES.
-000139 02 DISPLAY-TEXT PICTURE X(60).
-000140
-000141 77 END-JOB-PROCESS PICTURE 9 VALUE 0.
-000142 77 DELETE-PROCESS PICTURE 9 VALUE 1.
-000143 77 INSERT-PROCESS PICTURE 9 VALUE 2.
-000144 77 WRITE-PROCESS PICTURE 9 VALUE 3.
-000145
-000146 01 SELECTORS.
-000147 02 RETURN-SELECT PICTURE 9 VALUE 0.
-000148 02 NEXT-JOB-SELECT PICTURE 9 VALUE 0.
-000149
-000150 PROCEDURE DIVISION.
-000151
-000152 START-SECTION.
-000153 OPEN INPUT OLD-VERSION, MODIFICATION,
-000154 OUTPUT NEW-VERSION, COMMENTARY.
-000155 MOVE \"F\" TO UPSI-BIT (1), UPSI-BIT (2).
-000156 ACCEPT DATE-FROM-SYS FROM DATE.
-000157 MOVE DFSYS (1) TO YEAR-RUN.
-000158 MOVE DFSYS (2) TO MONTH-RUN.
-000159 MOVE DFSYS (3) TO DAY-RUN.
-000160 READ OLD-VERSION AT END
-000161 MOVE \"NO OLD VERSION FOUND\" TO MESSAGE-TEXT
-000162 WRITE COMMENT-LINE FROM MESSAGE-LOG
-000163 GO TO END-JOB.
-000164 MOVE OLD-STATEMENT TO NEW-STATEMENT.
-000165 PERFORM OUTPUT-A-RECORD.
-000166
-000167 TOP-OF-PAGE-ROUTINE.
-000168 ADD 1 TO PAGE-NUMBER.
-000169 MOVE ZERO TO LINE-COUNT.
-000170 WRITE COMMENT-LINE FROM HEADINGS-LINE AFTER PAGE.
-000171 WRITE COMMENT-LINE FROM BLANK-LINE.
-000172
-000173 READ-A-COMMAND.
-000174 READ MODIFICATION AT END
-000175 MOVE \"MODIFICATION FILE ENDED \" TO MESSAGE-TEXT
-000176 WRITE COMMENT-LINE FROM MESSAGE-LOG
-000177 GO TO FINISH-JOB.
-000178 MOVE UPDATE-ORDER TO COMMAND-IMAGE.
-000179 WRITE COMMENT-LINE FROM COMMAND-LISTING.
-000180 ADD 2 TO LINE-COUNT.
-000181 IF A-BLANK MOVE ZEROES TO A-FIELD.
-000182 IF B-BLANK MOVE ZEROES TO B-FIELD.
-000183 MOVE A-FIELD TO FIELDA.
-000184 MOVE B-FIELD TO FIELDB.
-000185
-000186 TEST-COMMAND-TYPE.
-000187 IF CHANGE GO TO CHANGE-A-RECORD.
-000188 IF REMOVE GO TO DELETE-A-RECORD.
-000189 IF DISPLY MOVE \"T\" TO UPSI-BIT (2)
-000190 GO TO FINISH-JOB.
-000191 IF ENDJOB GO TO FINISH-JOB.
-000192 IF ADDNEW GO TO INSERT-A-RECORD.
-000193 MOVE \"INVALID COMMAND IGNORED.\" TO MESSAGE-TEXT.
-000194 WRITE COMMENT-LINE FROM MESSAGE-LOG.
-000195 GO TO READ-A-COMMAND.
-000196
-000197 CHANGE-A-RECORD.
-000198 ALTER RETURN-TO-USER TO PROCEED TO INSERTION-PROCESS.
-warning: ALTER is obsolete in GnuCOBOL
-000199 ALTER NEXT-JOB-STEP TO PROCEED TO DELETION-PROCESS.
-warning: ALTER is obsolete in GnuCOBOL
-000200
-000201 FIND-FIELDA.
-000202 IF OLD-NUMBER IS GREATER THAN FIELDA
-000203 MOVE \"RECORD ALREADY PASSED\" TO MESSAGE-TEXT
-000204 WRITE COMMENT-LINE FROM MESSAGE-LOG
-000205 GO TO READ-A-COMMAND.
-000206 READ OLD-VERSION AT END
-000207 MOVE \"NOT FOUND IN OLD VERSION\" TO DISPLAY-TEXT
-000208 MOVE FIELDA TO DISPLAY-TEMP
-000209 WRITE COMMENT-LINE FROM DISPLAY-MESSAGE
-000210 GO TO END-JOB.
-000211 IF OLD-NUMBER IS LESS THAN FIELDA
-000212 MOVE OLD-STATEMENT TO NEW-STATEMENT
-000213 PERFORM OUTPUT-A-RECORD
-000214 GO TO FIND-FIELDA.
-000215
-000216 RETURN-TO-USER.
-000217 GO TO END-JOB.
-000218
-000219 INSERT-A-RECORD.
-000220 ALTER RETURN-TO-USER TO PROCEED TO INSERTION-PROCESS.
-warning: ALTER is obsolete in GnuCOBOL
-000221 ALTER NEXT-JOB-STEP TO PROCEED TO FORCED-WRITE.
-warning: ALTER is obsolete in GnuCOBOL
-000222 GO TO FIND-FIELDA.
-000223
-000224 INSERTION-PROCESS.
-000225 READ MODIFICATION AT END
-000226 MOVE \"NO ENDSET FOUND\" TO MESSAGE-TEXT
-000227 WRITE COMMENT-LINE FROM MESSAGE-LOG
-000228 GO TO END-JOB.
-000229 IF ENDSET
-000230 MOVE COMMAND-ADDITIONS TO DISPLAY-TEMP
-000231 MOVE \"RECORDS INSERTED.\" TO DISPLAY-TEXT
-000232 WRITE COMMENT-LINE FROM DISPLAY-MESSAGE
-000233 ADD COMMAND-ADDITIONS TO TOTAL-INSERTED
-000234 MOVE ZEROES TO COMMAND-ADDITIONS
-000235 GO TO NEXT-JOB-STEP.
-000236 MOVE INSERTION TO NEW-STATEMENT, ACTIVE-IMAGE.
-000237 MOVE \"I \" TO DISPOSITION.
-000238 PERFORM OUTPUT-A-RECORD.
-000239 WRITE COMMENT-LINE FROM ACTIVITIES-LISTING.
-000240 ADD 1 TO COMMAND-ADDITIONS.
-000241 ADD 1 TO LINE-COUNT.
-000242 IF LINE-COUNT EQUAL 56 PERFORM TOP-OF-PAGE-ROUTINE.
-000243 GO TO INSERTION-PROCESS.
-000244
-000245 NEXT-JOB-STEP.
-000246 GO TO END-JOB.
-000247
-000248 FORCED-WRITE.
-000249 MOVE OLD-STATEMENT TO NEW-STATEMENT.
-000250 PERFORM OUTPUT-A-RECORD.
-000251 GO TO READ-A-COMMAND.
-000252
-000253 DELETE-A-RECORD.
-000254 ALTER RETURN-TO-USER TO PROCEED TO DELETION-PROCESS.
-warning: ALTER is obsolete in GnuCOBOL
-000255 GO TO FIND-FIELDA.
-000256
-000257 DELETION-PROCESS.
-000258 MOVE OLD-RECORD TO ACTIVE-IMAGE.
-000259 MOVE \"D \" TO DISPOSITION.
-000260 WRITE COMMENT-LINE FROM ACTIVITIES-LISTING.
-000261 ADD 1 TO LINE-COUNT.
-000262 IF LINE-COUNT EQUAL 56 PERFORM TOP-OF-PAGE-ROUTINE.
-000263 ADD 1 TO COMMAND-SUBTRACTIONS.
-000264 IF OLD-NUMBER IS NOT LESS THAN FIELDB
-000265 MOVE COMMAND-SUBTRACTIONS TO DISPLAY-TEMP
-000266 MOVE \"RECORDS DELETED.\" TO DISPLAY-TEXT
-000267 WRITE COMMENT-LINE FROM DISPLAY-MESSAGE
-000268 ADD COMMAND-SUBTRACTIONS TO TOTAL-DELETED
-000269 MOVE OLD-STATEMENT TO NEW-STATEMENT
-000270 MOVE ZEROES TO COMMAND-SUBTRACTIONS
-000271 GO TO READ-A-COMMAND.
-000272 READ OLD-VERSION AT END
-000273 MOVE \"NOT FOUND IN OLD VERSION DOING DELETE\"
-000274 TO DISPLAY-TEXT
-000275 WRITE COMMENT-LINE FROM DISPLAY-MESSAGE
-000276 GO TO END-JOB.
-000277 GO TO DELETION-PROCESS.
-000278
-000279 OUTPUT-A-RECORD.
-000280 ADD 1 TO OUTPUT-COUNT.
-000281 MOVE OUTPUT-COUNT TO NEW-NUMBER.
-000282 WRITE NEW-RECORD.
-000283
-000284 FINISH-JOB.
-000285 READ OLD-VERSION AT END GO TO TEST-FOR-LISTING.
-000286 MOVE OLD-STATEMENT TO NEW-STATEMENT.
-000287 GO TO OUTPUT-A-RECORD.
-000288
-000289 TEST-FOR-LISTING.
-000290 PERFORM TOP-OF-PAGE-ROUTINE.
-000291 MOVE OLD-NUMBER TO DISPLAY-TEMP.
-000292 MOVE \"RECORDS READ.\" TO DISPLAY-TEXT.
-000293 WRITE COMMENT-LINE FROM DISPLAY-MESSAGE.
-000294 MOVE TOTAL-INSERTED TO DISPLAY-TEMP.
-000295 MOVE \"RECORDS ADDED.\" TO DISPLAY-TEXT.
-000296 WRITE COMMENT-LINE FROM DISPLAY-MESSAGE.
-000297 MOVE TOTAL-DELETED TO DISPLAY-TEMP.
-000298 MOVE \"RECORDS DROPPED.\" TO DISPLAY-TEXT.
-000299 WRITE COMMENT-LINE FROM DISPLAY-MESSAGE.
-000300 MOVE OUTPUT-COUNT TO DISPLAY-TEMP.
-000301 MOVE \"RECORDS IN NEW FILE.\" TO DISPLAY-TEXT.
-000302 WRITE COMMENT-LINE FROM DISPLAY-MESSAGE.
-000303 IF UPSI-BIT (2) EQUAL \"F\" GO TO END-JOB.
-000304 CLOSE NEW-VERSION.
-000305 OPEN INPUT NEW-VERSION.
-000306 MOVE \"UPDATED LISTING\" TO PHASE.
-000307 MOVE ZEROES TO PAGE-NUMBER.
-000308 PERFORM TOP-OF-PAGE-ROUTINE.
-000309 MOVE SPACES TO DISPOSITION.
-000310
-000311 LISTING-LOOP.
-000312 READ NEW-VERSION AT END GO TO END-JOB.
-000313 MOVE NEW-RECORD TO ACTIVE-IMAGE.
-000314 WRITE COMMENT-LINE FROM ACTIVITIES-LISTING.
-000315 ADD 1 TO LINE-COUNT.
-000316 IF LINE-COUNT EQUAL 56 PERFORM TOP-OF-PAGE-ROUTINE.
-000317 GO TO LISTING-LOOP.
-000318
-000319 END-JOB.
-000320 MOVE \"PROGRAM TERMINATION\" TO MESSAGE-TEXT.
-000321 WRITE COMMENT-LINE FROM MESSAGE-LOG.
-000322 CLOSE OLD-VERSION, NEW-VERSION, MODIFICATION, COMMENTARY.
-000323 STOP RUN.
-000324
-000325 END PROGRAM EDITOR.
-
-SIZE TYPE LVL NAME PICTURE
-
-00080 FILE OLD-VERSION
-00080 GROUP 01 OLD-RECORD
-00075 ALPHANUMERIC 02 OLD-STATEMENT X(75)
-00005 ALPHANUMERIC 02 OLD-NUMBER X(5)
-
-00080 FILE NEW-VERSION
-00080 GROUP 01 NEW-RECORD
-00075 ALPHANUMERIC 02 NEW-STATEMENT X(75)
-00005 ALPHANUMERIC 02 NEW-NUMBER X(5)
-
-00032 FILE PRT-VERSION
-
-00080 FILE MODIFICATION
-00080 GROUP 01 UPDATE-ORDER
-00075 GROUP 02 INSERTION
-00006 ALPHANUMERIC 03 COMMAND X(6)
- CONDITIONAL 88 ENDJOB
- CONDITIONAL 88 ENDSET
- CONDITIONAL 88 REMOVE
- CONDITIONAL 88 ADDNEW
- CONDITIONAL 88 CHANGE
- CONDITIONAL 88 DISPLY
-00001 ALPHANUMERIC 03 FILLER X
-00005 NUMERIC 03 A-FIELD 9(5)
-00005 ALPHANUMERIC 03 A-ALPHA X(5), REDEFINES A-FIELD
- CONDITIONAL 88 A-BLANK
-00004 ALPHANUMERIC 03 FILLER X(4)
-00005 NUMERIC 03 B-FIELD 9(5)
-00005 ALPHANUMERIC 03 B-ALPHA X(5), REDEFINES B-FIELD
- CONDITIONAL 88 B-BLANK
-00054 ALPHANUMERIC 03 FILLER X(54)
-00005 ALPHANUMERIC 02 FILLER X(5)
-
-00082 FILE COMMENTARY
-00082 GROUP 01 COMMENT-LINE
-00082 ALPHANUMERIC 02 FILLER X(82)
-
- WORKING-STORAGE SECTION
-
-00002 NUMERIC 77 COMMAND-ADDITIONS 9(3) COMP
-00002 NUMERIC 77 COMMAND-SUBTRACTIONS 9(3) COMP
-00002 NUMERIC 77 TOTAL-INSERTED 9(3) COMP
-00002 NUMERIC 77 TOTAL-DELETED 9(3) COMP
-00004 NUMERIC 77 OUTPUT-COUNT 9(5) COMP
-00001 NUMERIC 77 LINE-COUNT 9(2) COMP
-00005 NUMERIC 77 FIELDA 9(5)
-00005 NUMERIC 77 FIELDB 9(5)
-00082 ALPHANUMERIC 77 BLANK-LINE X(82)
-
-00006 GROUP 01 DATE-FROM-SYS
-00002 NUMERIC 02 DFSYS 99, OCCURS 3
-
-00080 GROUP 01 HEADINGS-LINE
-00015 ALPHANUMERIC 02 FILLER X(15)
-00020 ALPHANUMERIC 02 FILLER X(20)
-00017 ALPHANUMERIC 02 PHASE X(17)
-00002 ALPHANUMERIC 02 MONTH-RUN XX
-00001 ALPHANUMERIC 02 FILLER X
-00002 ALPHANUMERIC 02 DAY-RUN XX
-00001 ALPHANUMERIC 02 FILLER X
-00002 ALPHANUMERIC 02 YEAR-RUN XX
-00008 ALPHANUMERIC 02 FILLER X(8)
-00008 ALPHANUMERIC 02 FILLER X(8)
-00004 NUMERIC 02 PAGE-NUMBER 9(4)
-
-00082 GROUP 01 COMMAND-LISTING
-00002 ALPHANUMERIC 02 FILLER X(2)
-00080 ALPHANUMERIC 02 COMMAND-IMAGE X(80)
-
-00082 GROUP 01 ACTIVITIES-LISTING
-00002 ALPHANUMERIC 02 DISPOSITION X(2)
-00080 ALPHANUMERIC 02 ACTIVE-IMAGE X(80)
-
-00008 GROUP 01 UPSI-BYTE
-00001 ALPHANUMERIC 02 UPSI-BIT X, OCCURS 8
-
-00082 GROUP 01 MESSAGE-LOG
-00002 ALPHANUMERIC 02 FILLER X(2)
-00080 ALPHANUMERIC 02 MESSAGE-TEXT X(80)
-
-00070 GROUP 01 DISPLAY-MESSAGE
-00002 ALPHANUMERIC 02 FILLER X(2)
-00006 ALPHANUMERIC 02 DISPLAY-TEMP X(6)
-00002 ALPHANUMERIC 02 FILLER X(2)
-00060 ALPHANUMERIC 02 DISPLAY-TEXT X(60)
-
-00001 NUMERIC 77 END-JOB-PROCESS 9
-00001 NUMERIC 77 DELETE-PROCESS 9
-00001 NUMERIC 77 INSERT-PROCESS 9
-00001 NUMERIC 77 WRITE-PROCESS 9
-
-00002 GROUP 01 SELECTORS
-00001 NUMERIC 02 RETURN-SELECT 9
-00001 NUMERIC 02 NEXT-JOB-SELECT 9
-
-
-NAME DEFINED REFERENCES
-
-OLD-VERSION 26 41 153 160 206 272
- 285 322 x7
-OLD-RECORD 46 44 258 x2
-OLD-STATEMENT 47 164 212 249 269 286
- x5
-OLD-NUMBER 48 202 211 264 291 x4
-
-NEW-VERSION 28 50 *154 *282 304 305
- 312 322 x7
-NEW-RECORD 55 53 282 313 x3
-NEW-STATEMENT 56 *164 *212 *236 *249 *269
- *286 x6
-NEW-NUMBER 57 *281 x1
-
-PRT-VERSION 30 not referenced
-
-MODIFICATION 32 59 153 174 225 322
- x5
-UPDATE-ORDER 64 62 178 x2
-INSERTION 65 236 x1
-COMMAND 66 referenced by parent/child
-ENDJOB 67 191 x1
-ENDSET 68 229 x1
-REMOVE 69 188 x1
-ADDNEW 70 192 x1
-CHANGE 71 187 x1
-DISPLY 72 189 x1
-A-FIELD 74 *181 183 x2
-A-ALPHA 75 referenced by parent/child
-A-BLANK 76 181 x1
-B-FIELD 78 *182 184 x2
-B-ALPHA 79 referenced by parent/child
-B-BLANK 80 182 x1
-
-COMMENTARY 34 84 *154 *162 *170 *171
- *176 *179 *194 *204 *209
- *227 *232 *239 *260 *267
- *275 *293 *296 *299 *302
- *314 *321 322 x23
-COMMENT-LINE 89 87 *162 *170 *171 *176
- *179 *194 *204 *209 *227
- *232 *239 *260 *267 *275
- *293 *296 *299 *302 *314
- *321 x21
-
-COMMAND-ADDITIONS 94 230 233 *234 *240 x4
-COMMAND-SUBTRACTIONS 95 *263 265 268 *270 x4
-TOTAL-INSERTED 96 *233 294 x2
-TOTAL-DELETED 97 *268 297 x2
-OUTPUT-COUNT 98 *280 281 300 x3
-LINE-COUNT 99 *169 *180 *241 242 *261
- 262 *315 316 x8
-FIELDA 100 *183 202 208 211 x4
-FIELDB 101 *184 264 x2
-BLANK-LINE 102 171 x1
-DATE-FROM-SYS 104 *156 x1
-DFSYS 105 157 158 159 x3
-HEADINGS-LINE 107 170 x1
-PHASE 110 *306 x1
-MONTH-RUN 111 *158 x1
-DAY-RUN 113 *159 x1
-YEAR-RUN 115 *157 x1
-PAGE-NUMBER 118 *168 *307 x2
-COMMAND-LISTING 120 179 x1
-COMMAND-IMAGE 122 *178 x1
-ACTIVITIES-LISTING 124 239 260 314 x3
-DISPOSITION 125 *237 *259 *309 x3
-ACTIVE-IMAGE 126 *236 *258 *313 x3
-UPSI-BYTE 128 referenced by child
-UPSI-BIT 129 *155 *189 303 x3
-MESSAGE-LOG 131 162 176 194 204 227
- 321 x6
-MESSAGE-TEXT 133 *161 *175 *193 *203 *226
- *320 x6
-DISPLAY-MESSAGE 135 209 232 267 275 293
- 296 299 302 x8
-DISPLAY-TEMP 137 *208 *230 *265 *291 *294
- *297 *300 x7
-DISPLAY-TEXT 139 *207 *231 *266 *274 *292
- *295 *298 *301 x8
-END-JOB-PROCESS 141 not referenced
-DELETE-PROCESS 142 not referenced
-INSERT-PROCESS 143 not referenced
-WRITE-PROCESS 144 not referenced
-SELECTORS 146 not referenced
-RETURN-SELECT 147 not referenced
-NEXT-JOB-SELECT 148 not referenced
-
-
-LABEL DEFINED REFERENCES
-
-E EDITOR 152
-P START-SECTION 152 not referenced
-P TOP-OF-PAGE-ROUTINE 167 242 262 290 308 316
- x5
-P READ-A-COMMAND 173 195 205 251 271 x4
-P TEST-COMMAND-TYPE 186 not referenced
-P CHANGE-A-RECORD 197 187 x1
-P FIND-FIELDA 201 214 222 255 x3
-P RETURN-TO-USER 216 198 220 254 x3
-P INSERT-A-RECORD 219 192 x1
-P INSERTION-PROCESS 224 198 220 243 x3
-P NEXT-JOB-STEP 245 199 221 235 x3
-P FORCED-WRITE 248 221 x1
-P DELETE-A-RECORD 253 188 x1
-P DELETION-PROCESS 257 199 254 277 x3
-P OUTPUT-A-RECORD 279 165 213 238 250 287
- x5
-P FINISH-JOB 284 177 190 191 x3
-P TEST-FOR-LISTING 289 285 x1
-P LISTING-LOOP 311 317 x1
-P END-JOB 319 163 210 217 228 246
- 276 303 312 x8
-
-
-Error/Warning summary:
-
-EDITOR.cob:30: error: missing file description for FILE PRT-VERSION
-EDITOR.cob:42: warning: LABEL RECORDS is obsolete in GnuCOBOL
-EDITOR.cob:44: warning: DATA RECORDS is obsolete in GnuCOBOL
-EDITOR.cob:51: warning: LABEL RECORDS is obsolete in GnuCOBOL
-EDITOR.cob:53: warning: DATA RECORDS is obsolete in GnuCOBOL
-EDITOR.cob:60: warning: LABEL RECORDS is obsolete in GnuCOBOL
-EDITOR.cob:62: warning: DATA RECORDS is obsolete in GnuCOBOL
-EDITOR.cob:85: warning: LABEL RECORDS is obsolete in GnuCOBOL
-EDITOR.cob:87: warning: DATA RECORDS is obsolete in GnuCOBOL
-EDITOR.cob:198: warning: ALTER is obsolete in GnuCOBOL
-EDITOR.cob:199: warning: ALTER is obsolete in GnuCOBOL
-EDITOR.cob:220: warning: ALTER is obsolete in GnuCOBOL
-EDITOR.cob:221: warning: ALTER is obsolete in GnuCOBOL
-EDITOR.cob:254: warning: ALTER is obsolete in GnuCOBOL
-
-13 warnings in compilation group
-1 error in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/listings.at:4550"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:5131: \$COMPILE_LISTING0 -Xref -T- -ftsymbols EDITOR.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -Xref -T- -ftsymbols EDITOR.cob" "listings.at:5131"
-( $at_check_trace; $COMPILE_LISTING0 -Xref -T- -ftsymbols EDITOR.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "EDITOR.cob:42: warning: LABEL RECORDS is obsolete in GnuCOBOL
-EDITOR.cob:44: warning: DATA RECORDS is obsolete in GnuCOBOL
-EDITOR.cob:51: warning: LABEL RECORDS is obsolete in GnuCOBOL
-EDITOR.cob:53: warning: DATA RECORDS is obsolete in GnuCOBOL
-EDITOR.cob:60: warning: LABEL RECORDS is obsolete in GnuCOBOL
-EDITOR.cob:62: warning: DATA RECORDS is obsolete in GnuCOBOL
-EDITOR.cob:85: warning: LABEL RECORDS is obsolete in GnuCOBOL
-EDITOR.cob:87: warning: DATA RECORDS is obsolete in GnuCOBOL
-EDITOR.cob:30: error: missing file description for FILE PRT-VERSION
-EDITOR.cob: in paragraph 'CHANGE-A-RECORD':
-EDITOR.cob:198: warning: ALTER is obsolete in GnuCOBOL
-EDITOR.cob:199: warning: ALTER is obsolete in GnuCOBOL
-EDITOR.cob: in paragraph 'INSERT-A-RECORD':
-EDITOR.cob:220: warning: ALTER is obsolete in GnuCOBOL
-EDITOR.cob:221: warning: ALTER is obsolete in GnuCOBOL
-EDITOR.cob: in paragraph 'DELETE-A-RECORD':
-EDITOR.cob:254: warning: ALTER is obsolete in GnuCOBOL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P EDITOR.cob
-
-LINE PG/LN A...B............................................................SEQUENCE
-
-000001
-000002 IDENTIFICATION DIVISION. EDIT0001
-000003 PROGRAM-ID. EDIT0002
-000004 EDITOR. EDIT0003
-000005 EDIT0008
-000006 *NOTE. EDIT0009
-000007 * THIS VERSION OF EDITOR 1 COMPRISES AN ENTIRE RE_WRITE EDIT0010
-000008 * OF THE BASIC EDITOR WITH ONLY ONE CHANGE IN THE COMMAND EDIT0011
-000009 * STRUCTURE, THAT BEING THE ADDITION OF A \"CHANGE\" COMMAND EDIT0012
-000010 * TO SERVE IN PLACE OF THE INSERT-DELETE COMBINATION WHICH EDIT0013
-000011 * WAS REQUIRED IN PREVIOUS VERSIONS. RECORD NUMBER FIELDS EDIT0014
-000012 * HAVE ALSO BEEN REDUCED FROM 5 DIGITS TO 4. EDIT0015
-000013 * CHANGE 1. EDIT0016
-000014 * MODIFY TO RUN ON TI-990. EDIT0017
-000015 * CHANGE 2. EDIT0018
-000016 * MODIFY TO RUN ON GNUCOBOL. EDIT0019
-000017 EDIT0020
-000018 ENVIRONMENT DIVISION. EDIT0021
-000019 CONFIGURATION SECTION. EDIT0022
-000020 SOURCE-COMPUTER. EDIT0023
-000021 IBM-360. EDIT0024
-000022 OBJECT-COMPUTER. EDIT0025
-000023 IBM-360. EDIT0026
-000024 INPUT-OUTPUT SECTION. EDIT0027
-000025 FILE-CONTROL. EDIT0028
-000026 SELECT OLD-VERSION ASSIGN TO \"SYSUT1\" EDIT0029
-000027 ORGANIZATION LINE SEQUENTIAL. EDIT0030
-000028 SELECT NEW-VERSION ASSIGN TO \"SYSUT2\" EDIT0031
-000029 ORGANIZATION LINE SEQUENTIAL. EDIT0032
-000030 SELECT PRT-VERSION ASSIGN TO \"SYSUT2\" EDIT0033
-error: missing file description for FILE PRT-VERSION
-000031 ORGANIZATION LINE SEQUENTIAL. EDIT0034
-000032 SELECT MODIFICATION ASSIGN TO \"SYSIN1\" EDIT0035
-000033 ORGANIZATION LINE SEQUENTIAL. EDIT0036
-000034 SELECT COMMENTARY ASSIGN TO \"SYSOU1\" EDIT0037
-000035 ORGANIZATION LINE SEQUENTIAL. EDIT0038
-000036 EDIT0039
-000037 DATA DIVISION. EDIT0040
-000038 EDIT0041
-000039 FILE SECTION. EDIT0042
-000040 EDIT0043
-000041 FD OLD-VERSION EDIT0044
-000042 LABEL RECORDS ARE STANDARD EDIT0045
-warning: LABEL RECORDS is obsolete in GnuCOBOL
-000043 BLOCK CONTAINS 80 CHARACTERS EDIT0046
-000044 DATA RECORD IS OLD-RECORD. EDIT0047
-warning: DATA RECORDS is obsolete in GnuCOBOL
-000045 EDIT0048
-000046 01 OLD-RECORD. EDIT0049
-000047 02 OLD-STATEMENT PICTURE X(75). EDIT0050
-000048 02 OLD-NUMBER PICTURE X(5). EDIT0051
-000049 EDIT0052
-000050 FD NEW-VERSION EDIT0053
-000051 LABEL RECORDS ARE STANDARD EDIT0054
-warning: LABEL RECORDS is obsolete in GnuCOBOL
-000052 BLOCK CONTAINS 80 CHARACTERS EDIT0055
-000053 DATA RECORD IS NEW-RECORD. EDIT0056
-warning: DATA RECORDS is obsolete in GnuCOBOL
-000054 EDIT0057
-000055 01 NEW-RECORD. EDIT0058
-000056 02 NEW-STATEMENT PICTURE X(75). EDIT0059
-000057 02 NEW-NUMBER PICTURE X(5). EDIT0060
-000058 EDIT0061
-000059 FD MODIFICATION EDIT0062
-000060 LABEL RECORDS ARE OMITTED EDIT0063
-warning: LABEL RECORDS is obsolete in GnuCOBOL
-000061 BLOCK CONTAINS 80 CHARACTERS EDIT0064
-000062 DATA RECORD IS UPDATE-ORDER. EDIT0065
-warning: DATA RECORDS is obsolete in GnuCOBOL
-000063 EDIT0066
-000064 01 UPDATE-ORDER. EDIT0067
-000065 02 INSERTION. EDIT0068
-000066 03 COMMAND PICTURE X(6). EDIT0069
-000067 88 ENDJOB VALUE \"ENDJOB\". EDIT0070
-000068 88 ENDSET VALUE \"ENDSET\". EDIT0071
-000069 88 REMOVE VALUE \"REMOVE\". EDIT0072
-000070 88 ADDNEW VALUE \"INSERT\". EDIT0073
-000071 88 CHANGE VALUE \"CHANGE\". EDIT0074
-000072 88 DISPLY VALUE \"DISPLY\". EDIT0075
-000073 03 FILLER PICTURE X. EDIT0076
-000074 03 A-FIELD PICTURE 9(5). EDIT0077
-000075 03 A-ALPHA REDEFINES A-FIELD PICTURE X(5). EDIT0078
-000076 88 A-BLANK VALUE SPACES. EDIT0079
-000077 03 FILLER PICTURE X(4). EDIT0080
-000078 03 B-FIELD PICTURE 9(5). EDIT0081
-000079 03 B-ALPHA REDEFINES B-FIELD PICTURE X(5). EDIT0082
-000080 88 B-BLANK VALUE SPACES. EDIT0083
-000081 03 FILLER PICTURE X(54). EDIT0084
-000082 02 FILLER PICTURE X(5). EDIT0085
-000083 EDIT0086
-000084 FD COMMENTARY EDIT0087
-000085 LABEL RECORDS ARE OMITTED EDIT0088
-warning: LABEL RECORDS is obsolete in GnuCOBOL
-000086 BLOCK CONTAINS 82 CHARACTERS EDIT0089
-000087 DATA RECORD IS COMMENT-LINE. EDIT0090
-warning: DATA RECORDS is obsolete in GnuCOBOL
-000088 EDIT0091
-000089 01 COMMENT-LINE. EDIT0092
-000090 02 FILLER PICTURE X(82). EDIT0093
-000091 EDIT0094
-000092 WORKING-STORAGE SECTION. EDIT0095
-000093 EDIT0096
-000094 77 COMMAND-ADDITIONS PICTURE 9(3) COMPUTATIONAL VALUE 0. EDIT0097
-000095 77 COMMAND-SUBTRACTIONS PICTURE 9(3) COMPUTATIONAL VALUE 0. EDIT0098
-000096 77 TOTAL-INSERTED PICTURE 9(3) COMPUTATIONAL VALUE 0. EDIT0099
-000097 77 TOTAL-DELETED PICTURE 9(3) COMPUTATIONAL VALUE 0. EDIT0100
-000098 77 OUTPUT-COUNT PICTURE 9(5) COMPUTATIONAL VALUE 0. EDIT0101
-000099 77 LINE-COUNT PICTURE 9(2) COMPUTATIONAL VALUE 0. EDIT0102
-000100 77 FIELDA PICTURE 9(5) VALUE 0. EDIT0103
-000101 77 FIELDB PICTURE 9(5) VALUE 0. EDIT0104
-000102 77 BLANK-LINE PICTURE X(82) VALUE SPACES. EDIT0105
-000103 EDIT0106
-000104 01 DATE-FROM-SYS. EDIT0107
-000105 02 DFSYS OCCURS 3 TIMES PICTURE 99. EDIT0108
-000106 EDIT0109
-000107 01 HEADINGS-LINE. EDIT0110
-000108 02 FILLER PICTURE X(15) VALUE \"EDITOR VERSION\". EDIT0111
-000109 02 FILLER PICTURE X(20) VALUE \"1.1 - 206/72\". EDIT0112
-000110 02 PHASE PICTURE X(17) VALUE \"UPDATING AS OF\". EDIT0113
-000111 02 MONTH-RUN PICTURE XX. EDIT0114
-000112 02 FILLER PICTURE X VALUE \"/\". EDIT0115
-000113 02 DAY-RUN PICTURE XX. EDIT0116
-000114 02 FILLER PICTURE X VALUE \"/\". EDIT0117
-000115 02 YEAR-RUN PICTURE XX. EDIT0118
-000116 02 FILLER PICTURE X(8) VALUE SPACES. EDIT0119
-000117 02 FILLER PICTURE X(8) VALUE \" PAGE: \". EDIT0120
-000118 02 PAGE-NUMBER PICTURE 9(4) VALUE 0. EDIT0121
-000119 EDIT0122
-000120 01 COMMAND-LISTING. EDIT0123
-000121 02 FILLER PICTURE X(2) VALUE SPACES. EDIT0124
-000122 02 COMMAND-IMAGE PICTURE X(80). EDIT0125
-000123 EDIT0126
-000124 01 ACTIVITIES-LISTING. EDIT0127
-000125 02 DISPOSITION PICTURE X(2). EDIT0128
-000126 02 ACTIVE-IMAGE PICTURE X(80). EDIT0129
-000127 EDIT0130
-000128 01 UPSI-BYTE. EDIT0131
-000129 02 UPSI-BIT OCCURS 8 TIMES PICTURE X. EDIT0132
-000130 EDIT0133
-000131 01 MESSAGE-LOG. EDIT0134
-000132 02 FILLER PICTURE X(2) VALUE SPACES. EDIT0135
-000133 02 MESSAGE-TEXT PICTURE X(80). EDIT0136
-000134 EDIT0137
-000135 01 DISPLAY-MESSAGE. EDIT0138
-000136 02 FILLER PICTURE X(2) VALUE SPACES. EDIT0139
-000137 02 DISPLAY-TEMP PICTURE X(6). EDIT0140
-000138 02 FILLER PICTURE X(2) VALUE SPACES. EDIT0141
-000139 02 DISPLAY-TEXT PICTURE X(60). EDIT0142
-000140 EDIT0143
-000141 77 END-JOB-PROCESS PICTURE 9 VALUE 0. EDIT0144
-000142 77 DELETE-PROCESS PICTURE 9 VALUE 1. EDIT0145
-000143 77 INSERT-PROCESS PICTURE 9 VALUE 2. EDIT0146
-000144 77 WRITE-PROCESS PICTURE 9 VALUE 3. EDIT0147
-000145 EDIT0148
-000146 01 SELECTORS. EDIT0149
-000147 02 RETURN-SELECT PICTURE 9 VALUE 0. EDIT0150
-000148 02 NEXT-JOB-SELECT PICTURE 9 VALUE 0. EDIT0151
-000149 EDIT0152
-000150 PROCEDURE DIVISION. EDIT0153
-000151 EDIT0154
-000152 START-SECTION. EDIT0155
-000153 OPEN INPUT OLD-VERSION, MODIFICATION, EDIT0156
-000154 OUTPUT NEW-VERSION, COMMENTARY. EDIT0157
-000155 MOVE \"F\" TO UPSI-BIT (1), UPSI-BIT (2). EDIT0158
-000156 ACCEPT DATE-FROM-SYS FROM DATE. EDIT0159
-000157 MOVE DFSYS (1) TO YEAR-RUN. EDIT0160
-000158 MOVE DFSYS (2) TO MONTH-RUN. EDIT0161
-000159 MOVE DFSYS (3) TO DAY-RUN. EDIT0162
-000160 READ OLD-VERSION AT END EDIT0163
-000161 MOVE \"NO OLD VERSION FOUND\" TO MESSAGE-TEXT EDIT0164
-000162 WRITE COMMENT-LINE FROM MESSAGE-LOG EDIT0165
-000163 GO TO END-JOB. EDIT0166
-000164 MOVE OLD-STATEMENT TO NEW-STATEMENT. EDIT0167
-000165 PERFORM OUTPUT-A-RECORD. EDIT0168
-000166 EDIT0169
-000167 TOP-OF-PAGE-ROUTINE. EDIT0170
-000168 ADD 1 TO PAGE-NUMBER. EDIT0171
-000169 MOVE ZERO TO LINE-COUNT. EDIT0172
-000170 WRITE COMMENT-LINE FROM HEADINGS-LINE AFTER PAGE. EDIT0173
-000171 WRITE COMMENT-LINE FROM BLANK-LINE. EDIT0174
-000172 EDIT0175
-000173 READ-A-COMMAND. EDIT0176
-000174 READ MODIFICATION AT END EDIT0177
-000175 MOVE \"MODIFICATION FILE ENDED \" TO MESSAGE-TEXT EDIT0178
-000176 WRITE COMMENT-LINE FROM MESSAGE-LOG EDIT0179
-000177 GO TO FINISH-JOB. EDIT0180
-000178 MOVE UPDATE-ORDER TO COMMAND-IMAGE. EDIT0181
-000179 WRITE COMMENT-LINE FROM COMMAND-LISTING. EDIT0182
-000180 ADD 2 TO LINE-COUNT. EDIT0183
-000181 IF A-BLANK MOVE ZEROES TO A-FIELD. EDIT0184
-000182 IF B-BLANK MOVE ZEROES TO B-FIELD. EDIT0185
-000183 MOVE A-FIELD TO FIELDA. EDIT0186
-000184 MOVE B-FIELD TO FIELDB. EDIT0187
-000185 EDIT0188
-000186 TEST-COMMAND-TYPE. EDIT0189
-000187 IF CHANGE GO TO CHANGE-A-RECORD. EDIT0190
-000188 IF REMOVE GO TO DELETE-A-RECORD. EDIT0191
-000189 IF DISPLY MOVE \"T\" TO UPSI-BIT (2) EDIT0192
-000190 GO TO FINISH-JOB. EDIT0193
-000191 IF ENDJOB GO TO FINISH-JOB. EDIT0194
-000192 IF ADDNEW GO TO INSERT-A-RECORD. EDIT0195
-000193 MOVE \"INVALID COMMAND IGNORED.\" TO MESSAGE-TEXT. EDIT0196
-000194 WRITE COMMENT-LINE FROM MESSAGE-LOG. EDIT0197
-000195 GO TO READ-A-COMMAND. EDIT0198
-000196 EDIT0199
-000197 CHANGE-A-RECORD. EDIT0200
-000198 ALTER RETURN-TO-USER TO PROCEED TO INSERTION-PROCESS. EDIT0201
-warning: ALTER is obsolete in GnuCOBOL
-000199 ALTER NEXT-JOB-STEP TO PROCEED TO DELETION-PROCESS. EDIT0202
-warning: ALTER is obsolete in GnuCOBOL
-000200 EDIT0205
-000201 FIND-FIELDA. EDIT0206
-000202 IF OLD-NUMBER IS GREATER THAN FIELDA EDIT0207
-000203 MOVE \"RECORD ALREADY PASSED\" TO MESSAGE-TEXT EDIT0208
-000204 WRITE COMMENT-LINE FROM MESSAGE-LOG EDIT0209
-000205 GO TO READ-A-COMMAND. EDIT0210
-000206 READ OLD-VERSION AT END EDIT0211
-000207 MOVE \"NOT FOUND IN OLD VERSION\" TO DISPLAY-TEXT EDIT0212
-000208 MOVE FIELDA TO DISPLAY-TEMP EDIT0213
-000209 WRITE COMMENT-LINE FROM DISPLAY-MESSAGE EDIT0214
-000210 GO TO END-JOB. EDIT0215
-000211 IF OLD-NUMBER IS LESS THAN FIELDA EDIT0216
-000212 MOVE OLD-STATEMENT TO NEW-STATEMENT EDIT0217
-000213 PERFORM OUTPUT-A-RECORD EDIT0218
-000214 GO TO FIND-FIELDA. EDIT0219
-000215 EDIT0220
-000216 RETURN-TO-USER. EDIT0221
-000217 GO TO END-JOB. EDIT0223
-000218 EDIT0228
-000219 INSERT-A-RECORD. EDIT0229
-000220 ALTER RETURN-TO-USER TO PROCEED TO INSERTION-PROCESS. EDIT0230
-warning: ALTER is obsolete in GnuCOBOL
-000221 ALTER NEXT-JOB-STEP TO PROCEED TO FORCED-WRITE. EDIT0231
-warning: ALTER is obsolete in GnuCOBOL
-000222 GO TO FIND-FIELDA. EDIT0234
-000223 EDIT0235
-000224 INSERTION-PROCESS. EDIT0236
-000225 READ MODIFICATION AT END EDIT0237
-000226 MOVE \"NO ENDSET FOUND\" TO MESSAGE-TEXT EDIT0238
-000227 WRITE COMMENT-LINE FROM MESSAGE-LOG EDIT0239
-000228 GO TO END-JOB. EDIT0240
-000229 IF ENDSET EDIT0241
-000230 MOVE COMMAND-ADDITIONS TO DISPLAY-TEMP EDIT0242
-000231 MOVE \"RECORDS INSERTED.\" TO DISPLAY-TEXT EDIT0243
-000232 WRITE COMMENT-LINE FROM DISPLAY-MESSAGE EDIT0244
-000233 ADD COMMAND-ADDITIONS TO TOTAL-INSERTED EDIT0245
-000234 MOVE ZEROES TO COMMAND-ADDITIONS EDIT0246
-000235 GO TO NEXT-JOB-STEP. EDIT0247
-000236 MOVE INSERTION TO NEW-STATEMENT, ACTIVE-IMAGE. EDIT0248
-000237 MOVE \"I \" TO DISPOSITION. EDIT0249
-000238 PERFORM OUTPUT-A-RECORD. EDIT0250
-000239 WRITE COMMENT-LINE FROM ACTIVITIES-LISTING. EDIT0251
-000240 ADD 1 TO COMMAND-ADDITIONS. EDIT0252
-000241 ADD 1 TO LINE-COUNT. EDIT0253
-000242 IF LINE-COUNT EQUAL 56 PERFORM TOP-OF-PAGE-ROUTINE. EDIT0254
-000243 GO TO INSERTION-PROCESS. EDIT0255
-000244 EDIT0256
-000245 NEXT-JOB-STEP. EDIT0257
-000246 GO TO END-JOB. EDIT0259
-000247 EDIT0264
-000248 FORCED-WRITE. EDIT0265
-000249 MOVE OLD-STATEMENT TO NEW-STATEMENT. EDIT0266
-000250 PERFORM OUTPUT-A-RECORD. EDIT0267
-000251 GO TO READ-A-COMMAND. EDIT0268
-000252 EDIT0269
-000253 DELETE-A-RECORD. EDIT0270
-000254 ALTER RETURN-TO-USER TO PROCEED TO DELETION-PROCESS. EDIT0271
-warning: ALTER is obsolete in GnuCOBOL
-000255 GO TO FIND-FIELDA. EDIT0273
-000256 EDIT0274
-000257 DELETION-PROCESS. EDIT0275
-000258 MOVE OLD-RECORD TO ACTIVE-IMAGE. EDIT0276
-000259 MOVE \"D \" TO DISPOSITION. EDIT0277
-000260 WRITE COMMENT-LINE FROM ACTIVITIES-LISTING. EDIT0278
-000261 ADD 1 TO LINE-COUNT. EDIT0279
-000262 IF LINE-COUNT EQUAL 56 PERFORM TOP-OF-PAGE-ROUTINE. EDIT0280
-000263 ADD 1 TO COMMAND-SUBTRACTIONS. EDIT0281
-000264 IF OLD-NUMBER IS NOT LESS THAN FIELDB EDIT0282
-000265 MOVE COMMAND-SUBTRACTIONS TO DISPLAY-TEMP EDIT0283
-000266 MOVE \"RECORDS DELETED.\" TO DISPLAY-TEXT EDIT0284
-000267 WRITE COMMENT-LINE FROM DISPLAY-MESSAGE EDIT0285
-000268 ADD COMMAND-SUBTRACTIONS TO TOTAL-DELETED EDIT0286
-000269 MOVE OLD-STATEMENT TO NEW-STATEMENT EDIT0287
-000270 MOVE ZEROES TO COMMAND-SUBTRACTIONS EDIT0288
-000271 GO TO READ-A-COMMAND. EDIT0289
-000272 READ OLD-VERSION AT END EDIT0290
-000273 MOVE \"NOT FOUND IN OLD VERSION DOING DELETE\" EDIT0291
-000274 TO DISPLAY-TEXT EDIT0292
-000275 WRITE COMMENT-LINE FROM DISPLAY-MESSAGE EDIT0293
-000276 GO TO END-JOB. EDIT0294
-000277 GO TO DELETION-PROCESS. EDIT0295
-000278 EDIT0296
-000279 OUTPUT-A-RECORD. EDIT0297
-000280 ADD 1 TO OUTPUT-COUNT. EDIT0298
-000281 MOVE OUTPUT-COUNT TO NEW-NUMBER. EDIT0299
-000282 WRITE NEW-RECORD. EDIT0300
-000283 EDIT0301
-000284 FINISH-JOB. EDIT0302
-000285 READ OLD-VERSION AT END GO TO TEST-FOR-LISTING. EDIT0303
-000286 MOVE OLD-STATEMENT TO NEW-STATEMENT. EDIT0304
-000287 GO TO OUTPUT-A-RECORD. EDIT0305
-000288 EDIT0306
-000289 TEST-FOR-LISTING. EDIT0307
-000290 PERFORM TOP-OF-PAGE-ROUTINE. EDIT0308
-000291 MOVE OLD-NUMBER TO DISPLAY-TEMP. EDIT0309
-000292 MOVE \"RECORDS READ.\" TO DISPLAY-TEXT. EDIT0310
-000293 WRITE COMMENT-LINE FROM DISPLAY-MESSAGE. EDIT0311
-000294 MOVE TOTAL-INSERTED TO DISPLAY-TEMP. EDIT0312
-000295 MOVE \"RECORDS ADDED.\" TO DISPLAY-TEXT. EDIT0313
-000296 WRITE COMMENT-LINE FROM DISPLAY-MESSAGE. EDIT0314
-000297 MOVE TOTAL-DELETED TO DISPLAY-TEMP. EDIT0315
-000298 MOVE \"RECORDS DROPPED.\" TO DISPLAY-TEXT. EDIT0316
-000299 WRITE COMMENT-LINE FROM DISPLAY-MESSAGE. EDIT0317
-000300 MOVE OUTPUT-COUNT TO DISPLAY-TEMP. EDIT0318
-000301 MOVE \"RECORDS IN NEW FILE.\" TO DISPLAY-TEXT. EDIT0319
-000302 WRITE COMMENT-LINE FROM DISPLAY-MESSAGE. EDIT0320
-000303 IF UPSI-BIT (2) EQUAL \"F\" GO TO END-JOB. EDIT0321
-000304 CLOSE NEW-VERSION. EDIT0322
-000305 OPEN INPUT NEW-VERSION. EDIT0323
-000306 MOVE \"UPDATED LISTING\" TO PHASE. EDIT0324
-000307 MOVE ZEROES TO PAGE-NUMBER. EDIT0325
-000308 PERFORM TOP-OF-PAGE-ROUTINE. EDIT0326
-000309 MOVE SPACES TO DISPOSITION. EDIT0327
-000310 EDIT0328
-000311 LISTING-LOOP. EDIT0329
-000312 READ NEW-VERSION AT END GO TO END-JOB. EDIT0330
-000313 MOVE NEW-RECORD TO ACTIVE-IMAGE. EDIT0331
-000314 WRITE COMMENT-LINE FROM ACTIVITIES-LISTING. EDIT0332
-000315 ADD 1 TO LINE-COUNT. EDIT0333
-000316 IF LINE-COUNT EQUAL 56 PERFORM TOP-OF-PAGE-ROUTINE. EDIT0334
-000317 GO TO LISTING-LOOP. EDIT0335
-000318 EDIT0336
-000319 END-JOB. EDIT0337
-000320 MOVE \"PROGRAM TERMINATION\" TO MESSAGE-TEXT. EDIT0338
-000321 WRITE COMMENT-LINE FROM MESSAGE-LOG. EDIT0339
-000322 CLOSE OLD-VERSION, NEW-VERSION, MODIFICATION, COMMENTARY. EDIT0340
-000323 STOP RUN. EDIT0341
-000324 EDIT0342
-000325 END PROGRAM EDITOR. EDIT0343
-
-SIZE TYPE LVL NAME PICTURE
-
-00080 FILE OLD-VERSION
-00080 GROUP 01 OLD-RECORD
-00075 ALPHANUMERIC 02 OLD-STATEMENT X(75)
-00005 ALPHANUMERIC 02 OLD-NUMBER X(5)
-
-00080 FILE NEW-VERSION
-00080 GROUP 01 NEW-RECORD
-00075 ALPHANUMERIC 02 NEW-STATEMENT X(75)
-00005 ALPHANUMERIC 02 NEW-NUMBER X(5)
-
-00032 FILE PRT-VERSION
-
-00080 FILE MODIFICATION
-00080 GROUP 01 UPDATE-ORDER
-00075 GROUP 02 INSERTION
-00006 ALPHANUMERIC 03 COMMAND X(6)
- CONDITIONAL 88 ENDJOB
- CONDITIONAL 88 ENDSET
- CONDITIONAL 88 REMOVE
- CONDITIONAL 88 ADDNEW
- CONDITIONAL 88 CHANGE
- CONDITIONAL 88 DISPLY
-00001 ALPHANUMERIC 03 FILLER X
-00005 NUMERIC 03 A-FIELD 9(5)
-00005 ALPHANUMERIC 03 A-ALPHA X(5), REDEFINES A-FIELD
- CONDITIONAL 88 A-BLANK
-00004 ALPHANUMERIC 03 FILLER X(4)
-00005 NUMERIC 03 B-FIELD 9(5)
-00005 ALPHANUMERIC 03 B-ALPHA X(5), REDEFINES B-FIELD
- CONDITIONAL 88 B-BLANK
-00054 ALPHANUMERIC 03 FILLER X(54)
-00005 ALPHANUMERIC 02 FILLER X(5)
-
-00082 FILE COMMENTARY
-00082 GROUP 01 COMMENT-LINE
-00082 ALPHANUMERIC 02 FILLER X(82)
-
- WORKING-STORAGE SECTION
-
-00002 NUMERIC 77 COMMAND-ADDITIONS 9(3) COMP
-00002 NUMERIC 77 COMMAND-SUBTRACTIONS 9(3) COMP
-00002 NUMERIC 77 TOTAL-INSERTED 9(3) COMP
-00002 NUMERIC 77 TOTAL-DELETED 9(3) COMP
-00004 NUMERIC 77 OUTPUT-COUNT 9(5) COMP
-00001 NUMERIC 77 LINE-COUNT 9(2) COMP
-00005 NUMERIC 77 FIELDA 9(5)
-00005 NUMERIC 77 FIELDB 9(5)
-00082 ALPHANUMERIC 77 BLANK-LINE X(82)
-
-00006 GROUP 01 DATE-FROM-SYS
-00002 NUMERIC 02 DFSYS 99, OCCURS 3
-
-00080 GROUP 01 HEADINGS-LINE
-00015 ALPHANUMERIC 02 FILLER X(15)
-00020 ALPHANUMERIC 02 FILLER X(20)
-00017 ALPHANUMERIC 02 PHASE X(17)
-00002 ALPHANUMERIC 02 MONTH-RUN XX
-00001 ALPHANUMERIC 02 FILLER X
-00002 ALPHANUMERIC 02 DAY-RUN XX
-00001 ALPHANUMERIC 02 FILLER X
-00002 ALPHANUMERIC 02 YEAR-RUN XX
-00008 ALPHANUMERIC 02 FILLER X(8)
-00008 ALPHANUMERIC 02 FILLER X(8)
-00004 NUMERIC 02 PAGE-NUMBER 9(4)
-
-00082 GROUP 01 COMMAND-LISTING
-00002 ALPHANUMERIC 02 FILLER X(2)
-00080 ALPHANUMERIC 02 COMMAND-IMAGE X(80)
-
-00082 GROUP 01 ACTIVITIES-LISTING
-00002 ALPHANUMERIC 02 DISPOSITION X(2)
-00080 ALPHANUMERIC 02 ACTIVE-IMAGE X(80)
-
-00008 GROUP 01 UPSI-BYTE
-00001 ALPHANUMERIC 02 UPSI-BIT X, OCCURS 8
-
-00082 GROUP 01 MESSAGE-LOG
-00002 ALPHANUMERIC 02 FILLER X(2)
-00080 ALPHANUMERIC 02 MESSAGE-TEXT X(80)
-
-00070 GROUP 01 DISPLAY-MESSAGE
-00002 ALPHANUMERIC 02 FILLER X(2)
-00006 ALPHANUMERIC 02 DISPLAY-TEMP X(6)
-00002 ALPHANUMERIC 02 FILLER X(2)
-00060 ALPHANUMERIC 02 DISPLAY-TEXT X(60)
-
-00001 NUMERIC 77 END-JOB-PROCESS 9
-00001 NUMERIC 77 DELETE-PROCESS 9
-00001 NUMERIC 77 INSERT-PROCESS 9
-00001 NUMERIC 77 WRITE-PROCESS 9
-
-00002 GROUP 01 SELECTORS
-00001 NUMERIC 02 RETURN-SELECT 9
-00001 NUMERIC 02 NEXT-JOB-SELECT 9
-
-
-NAME DEFINED REFERENCES
-
-OLD-VERSION 26 41 153 160 206 272 285 322 x7
-OLD-RECORD 46 44 258 x2
-OLD-STATEMENT 47 164 212 249 269 286 x5
-OLD-NUMBER 48 202 211 264 291 x4
-
-NEW-VERSION 28 50 *154 *282 304 305 312 322 x7
-NEW-RECORD 55 53 282 313 x3
-NEW-STATEMENT 56 *164 *212 *236 *249 *269 *286 x6
-NEW-NUMBER 57 *281 x1
-
-PRT-VERSION 30 not referenced
-
-MODIFICATION 32 59 153 174 225 322 x5
-UPDATE-ORDER 64 62 178 x2
-INSERTION 65 236 x1
-COMMAND 66 referenced by parent/child
-ENDJOB 67 191 x1
-ENDSET 68 229 x1
-REMOVE 69 188 x1
-ADDNEW 70 192 x1
-CHANGE 71 187 x1
-DISPLY 72 189 x1
-A-FIELD 74 *181 183 x2
-A-ALPHA 75 referenced by parent/child
-A-BLANK 76 181 x1
-B-FIELD 78 *182 184 x2
-B-ALPHA 79 referenced by parent/child
-B-BLANK 80 182 x1
-
-COMMENTARY 34 84 *154 *162 *170 *171 *176 *179 *194 *204 *209
- *227 *232 *239 *260 *267 *275 *293 *296 *299 *302
- *314 *321 322 x23
-COMMENT-LINE 89 87 *162 *170 *171 *176 *179 *194 *204 *209 *227
- *232 *239 *260 *267 *275 *293 *296 *299 *302 *314
- *321 x21
-
-COMMAND-ADDITIONS 94 230 233 *234 *240 x4
-COMMAND-SUBTRACTIONS 95 *263 265 268 *270 x4
-TOTAL-INSERTED 96 *233 294 x2
-TOTAL-DELETED 97 *268 297 x2
-OUTPUT-COUNT 98 *280 281 300 x3
-LINE-COUNT 99 *169 *180 *241 242 *261 262 *315 316 x8
-FIELDA 100 *183 202 208 211 x4
-FIELDB 101 *184 264 x2
-BLANK-LINE 102 171 x1
-DATE-FROM-SYS 104 *156 x1
-DFSYS 105 157 158 159 x3
-HEADINGS-LINE 107 170 x1
-PHASE 110 *306 x1
-MONTH-RUN 111 *158 x1
-DAY-RUN 113 *159 x1
-YEAR-RUN 115 *157 x1
-PAGE-NUMBER 118 *168 *307 x2
-COMMAND-LISTING 120 179 x1
-COMMAND-IMAGE 122 *178 x1
-ACTIVITIES-LISTING 124 239 260 314 x3
-DISPOSITION 125 *237 *259 *309 x3
-ACTIVE-IMAGE 126 *236 *258 *313 x3
-UPSI-BYTE 128 referenced by child
-UPSI-BIT 129 *155 *189 303 x3
-MESSAGE-LOG 131 162 176 194 204 227 321 x6
-MESSAGE-TEXT 133 *161 *175 *193 *203 *226 *320 x6
-DISPLAY-MESSAGE 135 209 232 267 275 293 296 299 302 x8
-DISPLAY-TEMP 137 *208 *230 *265 *291 *294 *297 *300 x7
-DISPLAY-TEXT 139 *207 *231 *266 *274 *292 *295 *298 *301 x8
-END-JOB-PROCESS 141 not referenced
-DELETE-PROCESS 142 not referenced
-INSERT-PROCESS 143 not referenced
-WRITE-PROCESS 144 not referenced
-SELECTORS 146 not referenced
-RETURN-SELECT 147 not referenced
-NEXT-JOB-SELECT 148 not referenced
-
-
-LABEL DEFINED REFERENCES
-
-E EDITOR 152
-P START-SECTION 152 not referenced
-P TOP-OF-PAGE-ROUTINE 167 242 262 290 308 316 x5
-P READ-A-COMMAND 173 195 205 251 271 x4
-P TEST-COMMAND-TYPE 186 not referenced
-P CHANGE-A-RECORD 197 187 x1
-P FIND-FIELDA 201 214 222 255 x3
-P RETURN-TO-USER 216 198 220 254 x3
-P INSERT-A-RECORD 219 192 x1
-P INSERTION-PROCESS 224 198 220 243 x3
-P NEXT-JOB-STEP 245 199 221 235 x3
-P FORCED-WRITE 248 221 x1
-P DELETE-A-RECORD 253 188 x1
-P DELETION-PROCESS 257 199 254 277 x3
-P OUTPUT-A-RECORD 279 165 213 238 250 287 x5
-P FINISH-JOB 284 177 190 191 x3
-P TEST-FOR-LISTING 289 285 x1
-P LISTING-LOOP 311 317 x1
-P END-JOB 319 163 210 217 228 246 276 303 312 x8
-
-
-Error/Warning summary:
-
-EDITOR.cob:30: error: missing file description for FILE PRT-VERSION
-EDITOR.cob:42: warning: LABEL RECORDS is obsolete in GnuCOBOL
-EDITOR.cob:44: warning: DATA RECORDS is obsolete in GnuCOBOL
-EDITOR.cob:51: warning: LABEL RECORDS is obsolete in GnuCOBOL
-EDITOR.cob:53: warning: DATA RECORDS is obsolete in GnuCOBOL
-EDITOR.cob:60: warning: LABEL RECORDS is obsolete in GnuCOBOL
-EDITOR.cob:62: warning: DATA RECORDS is obsolete in GnuCOBOL
-EDITOR.cob:85: warning: LABEL RECORDS is obsolete in GnuCOBOL
-EDITOR.cob:87: warning: DATA RECORDS is obsolete in GnuCOBOL
-EDITOR.cob:198: warning: ALTER is obsolete in GnuCOBOL
-EDITOR.cob:199: warning: ALTER is obsolete in GnuCOBOL
-EDITOR.cob:220: warning: ALTER is obsolete in GnuCOBOL
-EDITOR.cob:221: warning: ALTER is obsolete in GnuCOBOL
-EDITOR.cob:254: warning: ALTER is obsolete in GnuCOBOL
-
-13 warnings in compilation group
-1 error in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/listings.at:5131"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_507
-#AT_START_508
-at_fn_group_banner 508 'listings.at:5716' \
- "Report Writer" " " 3
-at_xfail=no
-(
- printf "%s\n" "508. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- * ************************************************************* *
- * REPORT WRITER EXAMPLE #1. *
- * ************************************************************* *
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
-
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
-
- SELECT TRANSACTION-DATA
- ASSIGN TO EXTERNAL DATAIN
- ORGANIZATION IS LINE SEQUENTIAL.
-
- SELECT REPORT-FILE
- ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT.
-
- DATA DIVISION.
- FILE SECTION.
-
- FD TRANSACTION-DATA.
-
- 01 TRANSACTION-RECORD.
- 03 TR-CUSTOMER-NUMBER PIC 9(04).
- 03 FILLER PIC X(01).
- 03 TR-CUSTOMER-NAME PIC X(16).
- 03 FILLER PIC X(01).
- 03 TR-ITEM-NUMBER PIC 9(05).
- 03 FILLER REDEFINES TR-ITEM-NUMBER.
- 05 TR-ITEM-DEPARTMENT PIC 9(01).
- 05 FILLER PIC 9(04).
- 03 FILLER PIC X(01).
- 03 TR-ITEM-COST PIC 9(03)V99.
- 03 FILLER PIC X(47).
-
- FD REPORT-FILE
- REPORT IS CUSTOMER-REPORT.
-
- WORKING-STORAGE SECTION.
- 77 END-OF-FILE-SWITCH PIC X(1) VALUE 'N'.
- 88 END-OF-FILE VALUE 'Y'.
-
- REPORT SECTION.
- RD CUSTOMER-REPORT
- PAGE LIMIT IS 66 LINES
- HEADING 1
- FIRST DETAIL 5
- LAST DETAIL 58.
-
- 01 PAGE-HEAD-GROUP TYPE PAGE HEADING.
- 02 LINE 1.
- 03 COLUMN 27 PIC X(41) VALUE
- 'C U S T O M E R C H A R G E R E P O R T'.
- 02 LINE PLUS 2.
- 03 COLUMN 01 PIC X(09) VALUE 'CUST. NO.'.
- 03 COLUMN 15 PIC X(10) VALUE 'CUST. NAME'.
- 03 COLUMN 30 PIC X(05) VALUE 'DEPT.'.
- 03 COLUMN 39 PIC X(08) VALUE 'ITEM NO.'.
- 03 COLUMN 51 PIC X(09) VALUE 'ITEM COST'.
-
- 01 CHARGE-DETAIL TYPE DETAIL.
- 02 LINE PLUS 1.
- 03 COLUMN 03 PIC Z(04) SOURCE TR-CUSTOMER-NUMBER.
- 03 COLUMN 10 PIC X(16) SOURCE TR-CUSTOMER-NAME.
- 03 COLUMN 32 PIC 9(01) SOURCE TR-ITEM-DEPARTMENT.
- 03 COLUMN 40 PIC 9(05) SOURCE TR-ITEM-NUMBER.
- 03 COLUMN 51 PIC $$$$.99 SOURCE TR-ITEM-COST.
-
- PROCEDURE DIVISION.
-
- 000-INITIATE.
-
- OPEN INPUT TRANSACTION-DATA,
- OUTPUT REPORT-FILE.
-
- INITIATE CUSTOMER-REPORT.
-
- READ TRANSACTION-DATA
- AT END
- MOVE 'Y' TO END-OF-FILE-SWITCH.
- * END-READ.
-
- PERFORM 100-PROCESS-TRANSACTION-DATA THRU 199-EXIT
- UNTIL END-OF-FILE.
-
- 000-TERMINATE.
- TERMINATE CUSTOMER-REPORT.
-
- CLOSE TRANSACTION-DATA,
- REPORT-FILE.
-
- STOP RUN.
-
- 100-PROCESS-TRANSACTION-DATA.
- GENERATE CHARGE-DETAIL.
- READ TRANSACTION-DATA
- AT END
- MOVE 'Y' TO END-OF-FILE-SWITCH.
- * END-READ.
-
- 199-EXIT.
- EXIT.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:5827: \$COMPILE_LISTING0 -t- -ftsymbols -Xref prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t- -ftsymbols -Xref prog.cob" "listings.at:5827"
-( $at_check_trace; $COMPILE_LISTING0 -t- -ftsymbols -Xref prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004
-000005 * ************************************************************* *
-000006 * REPORT WRITER EXAMPLE #1. *
-000007 * ************************************************************* *
-000008
-000009 ENVIRONMENT DIVISION.
-000010 CONFIGURATION SECTION.
-000011
-000012 INPUT-OUTPUT SECTION.
-000013 FILE-CONTROL.
-000014
-000015 SELECT TRANSACTION-DATA
-000016 ASSIGN TO EXTERNAL DATAIN
-000017 ORGANIZATION IS LINE SEQUENTIAL.
-000018
-000019 SELECT REPORT-FILE
-000020 ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT.
-000021
-000022 DATA DIVISION.
-000023 FILE SECTION.
-000024
-000025 FD TRANSACTION-DATA.
-000026
-000027 01 TRANSACTION-RECORD.
-000028 03 TR-CUSTOMER-NUMBER PIC 9(04).
-000029 03 FILLER PIC X(01).
-000030 03 TR-CUSTOMER-NAME PIC X(16).
-000031 03 FILLER PIC X(01).
-000032 03 TR-ITEM-NUMBER PIC 9(05).
-000033 03 FILLER REDEFINES TR-ITEM-NUMBER.
-000034 05 TR-ITEM-DEPARTMENT PIC 9(01).
-000035 05 FILLER PIC 9(04).
-000036 03 FILLER PIC X(01).
-000037 03 TR-ITEM-COST PIC 9(03)V99.
-000038 03 FILLER PIC X(47).
-000039
-000040 FD REPORT-FILE
-000041 REPORT IS CUSTOMER-REPORT.
-000042
-000043 WORKING-STORAGE SECTION.
-000044 77 END-OF-FILE-SWITCH PIC X(1) VALUE 'N'.
-000045 88 END-OF-FILE VALUE 'Y'.
-000046
-000047 REPORT SECTION.
-000048 RD CUSTOMER-REPORT
-000049 PAGE LIMIT IS 66 LINES
-000050 HEADING 1
-000051 FIRST DETAIL 5
-000052 LAST DETAIL 58.
-000053
-000054 01 PAGE-HEAD-GROUP TYPE PAGE HEADING.
-000055 02 LINE 1.
-000056 03 COLUMN 27 PIC X(41) VALUE
-000057 'C U S T O M E R C H A R G E R E P O R T'.
-000058 02 LINE PLUS 2.
-000059 03 COLUMN 01 PIC X(09) VALUE 'CUST. NO.'.
-000060 03 COLUMN 15 PIC X(10) VALUE 'CUST. NAME'.
-000061 03 COLUMN 30 PIC X(05) VALUE 'DEPT.'.
-000062 03 COLUMN 39 PIC X(08) VALUE 'ITEM NO.'.
-000063 03 COLUMN 51 PIC X(09) VALUE 'ITEM COST'.
-000064
-000065 01 CHARGE-DETAIL TYPE DETAIL.
-000066 02 LINE PLUS 1.
-000067 03 COLUMN 03 PIC Z(04) SOURCE TR-CUSTOMER-NUMBER.
-000068 03 COLUMN 10 PIC X(16) SOURCE TR-CUSTOMER-NAME.
-000069 03 COLUMN 32 PIC 9(01) SOURCE TR-ITEM-DEPARTMENT.
-000070 03 COLUMN 40 PIC 9(05) SOURCE TR-ITEM-NUMBER.
-000071 03 COLUMN 51 PIC \$\$\$\$.99 SOURCE TR-ITEM-COST.
-000072
-000073 PROCEDURE DIVISION.
-000074
-000075 000-INITIATE.
-000076
-000077 OPEN INPUT TRANSACTION-DATA,
-000078 OUTPUT REPORT-FILE.
-000079
-000080 INITIATE CUSTOMER-REPORT.
-000081
-000082 READ TRANSACTION-DATA
-000083 AT END
-000084 MOVE 'Y' TO END-OF-FILE-SWITCH.
-000085 * END-READ.
-000086
-000087 PERFORM 100-PROCESS-TRANSACTION-DATA THRU 199-EXIT
-000088 UNTIL END-OF-FILE.
-000089
-000090 000-TERMINATE.
-000091 TERMINATE CUSTOMER-REPORT.
-000092
-000093 CLOSE TRANSACTION-DATA,
-000094 REPORT-FILE.
-000095
-000096 STOP RUN.
-000097
-000098 100-PROCESS-TRANSACTION-DATA.
-000099 GENERATE CHARGE-DETAIL.
-000100 READ TRANSACTION-DATA
-000101 AT END
-000102 MOVE 'Y' TO END-OF-FILE-SWITCH.
-000103 * END-READ.
-000104
-000105 199-EXIT.
-000106 EXIT.
-
-SIZE TYPE LVL NAME PICTURE
-
-00080 FILE TRANSACTION-DATA
-00080 GROUP 01 TRANSACTION-RECORD
-00004 NUMERIC 03 TR-CUSTOMER-NUMBER 9(04)
-00001 ALPHANUMERIC 03 FILLER X(01)
-00016 ALPHANUMERIC 03 TR-CUSTOMER-NAME X(16)
-00001 ALPHANUMERIC 03 FILLER X(01)
-00005 NUMERIC 03 TR-ITEM-NUMBER 9(05)
-00005 GROUP 03 FILLER, REDEFINES TR-ITEM-NUMBER
-00001 NUMERIC 05 TR-ITEM-DEPARTMENT 9(01)
-00004 NUMERIC 05 FILLER 9(04)
-00001 ALPHANUMERIC 03 FILLER X(01)
-00005 NUMERIC 03 TR-ITEM-COST 9(03)V99
-00047 ALPHANUMERIC 03 FILLER X(47)
-
-00126 FILE REPORT-FILE
-
- WORKING-STORAGE SECTION
-
-00001 ALPHANUMERIC 77 END-OF-FILE-SWITCH X(1)
- CONDITIONAL 88 END-OF-FILE
-
- REPORT SECTION
-
-00126 GROUP 01 PAGE-HEAD-GROUP
-00067 GROUP 02 FILLER
-00041 ALPHANUMERIC 03 FILLER X(41)
-00059 GROUP 02 FILLER
-00009 ALPHANUMERIC 03 FILLER X(09)
-00010 ALPHANUMERIC 03 FILLER X(10)
-00005 ALPHANUMERIC 03 FILLER X(05)
-00008 ALPHANUMERIC 03 FILLER X(08)
-00009 ALPHANUMERIC 03 FILLER X(09)
-
-00126 GROUP 01 CHARGE-DETAIL
-00057 GROUP 02 FILLER
-00004 NUMERIC 03 FILLER Z(04)
-00016 ALPHANUMERIC 03 FILLER X(16)
-00001 NUMERIC 03 FILLER 9(01)
-00005 NUMERIC 03 FILLER 9(05)
-00007 NUMERIC 03 FILLER \$\$\$\$.99
-
-
-NAME DEFINED REFERENCES
-
-TRANSACTION-DATA 15 25 77 82 93 100
- x5
-TRANSACTION-RECORD 27 referenced by child
-TR-CUSTOMER-NUMBER 28 67 x1
-TR-CUSTOMER-NAME 30 68 x1
-TR-ITEM-NUMBER 32 70 x1
-TR-ITEM-DEPARTMENT 34 69 x1
-TR-ITEM-COST 37 71 x1
-
-REPORT-FILE 19 40 *78 94 x3
-
-END-OF-FILE-SWITCH 44 *84 *102 x2
-END-OF-FILE 45 88 x1
-
-PAGE-HEAD-GROUP 54 not referenced
-CHARGE-DETAIL 65 99 x1
-
-
-LABEL DEFINED REFERENCES
-
-E prog 75
-P 000-INITIATE 75 not referenced
-P 000-TERMINATE 90 not referenced
-P 100-PROCESS-TRANSACTION-DATA 98 87 x1
-P 199-EXIT 105 87 x1
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:5827"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_508
-#AT_START_509
-at_fn_group_banner 509 'listings.at:6018' \
- "huge REPLACE" " " 3
-at_xfail=no
-(
- printf "%s\n" "509. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
-
- REPLACE ==111111111111111111111111111111111111111==
- BY =='
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - ' '==.
-
-
- DISPLAY 111111111111111111111111111111111111111
- DISPLAY 111111111111111111111111111111111111111
- DISPLAY 111111111111111111111111111111111111111
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:6143: \$COMPILE_LISTING0 -t- prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t- prog.cob" "listings.at:6143"
-( $at_check_trace; $COMPILE_LISTING0 -t- prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 ENVIRONMENT DIVISION.
-000005 CONFIGURATION SECTION.
-000006 DATA DIVISION.
-000007 WORKING-STORAGE SECTION.
-000008 PROCEDURE DIVISION.
-000009
-000010 REPLACE ==111111111111111111111111111111111111111==
-000011 BY =='
-000012 - '
-000013 - '
-000014 - '
-000015 - '
-000016 - '
-000017 - '
-000018 - '
-000019 - '
-000020 - '
-000021 - '
-000022 - '
-000023 - '
-000024 - '
-000025 - '
-000026 - '
-000027 - '
-000028 - '
-000029 - '
-000030 - '
-000031 - '
-000032 - '
-000033 - '
-000034 - '
-000035 - '
-000036 - '
-000037 - '
-000038 - '
-000039 - '
-000040 - '
-000041 - '
-000042 - '
-000043 - '
-000044 - '
-000045 - '
-000046 - '
-000047 - '
-000048 - '
-000049 - '
-000050 - '
-000051 - '
-000052 - '
-000053 - '
-000054 - '
-000055 - '
-000056 - '
-000057 - '
-000058 - '
-000059 - '
-000060 - '
-000061 - '
-000062 - '
-000063 - '
-000064 - '
-000065 - '
-000066 - '
-000067 - '
-000068 - '
-000069 - '
-000070 - '
-000071 - '
-000072 - '
-000073 - '
-000074 - '
-000075 - '
-000076 - '
-000077 - '
-000078 - '
-000079 - '
-000080 - '
-000081 - '
-000082 - '
-000083 - '
-000084 - '
-000085 - '
-000086 - '
-000087 - '
-000088 - '
-000089 - '
-000090 - '
-000091 - '
-000092 - '
-000093 - '
-000094 - '
-000095 - '
-000096 - '
-000097 - '
-000098 - '
-000099 - '
-000100 - '
-000101 - '
-000102 - '
-000103 - '
-000104 - '
-000105 - '
-000106 - '
-000107 - '
-000108 - '
-000109 - '
-000110 - '
-000111 - '
-000112 - '
-000113 - ' '==.
-000114
-000115
-000116 DISPLAY '
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ -
-000116+ - '
-000117 DISPLAY '
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ -
-000117+ - '
-000118 DISPLAY '
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ -
-000118+ - '
-000119
-000120 STOP RUN.
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:6143"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >display.inc <<'_ATEOF'
-
- DISPLAY 111111111111111111111111111111111111111
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
-
- COPY "display.inc"
- REPLACING ==111111111111111111111111111111111111111==
- BY =='
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - '
- - ' '==.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:6696: \$COMPILE_LISTING0 -t- prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t- prog.cob" "listings.at:6696"
-( $at_check_trace; $COMPILE_LISTING0 -t- prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 ENVIRONMENT DIVISION.
-000005 CONFIGURATION SECTION.
-000006 DATA DIVISION.
-000007 WORKING-STORAGE SECTION.
-000008 PROCEDURE DIVISION.
-000009
-000010 COPY \"display.inc\"
-000011 REPLACING ==111111111111111111111111111111111111111==
-000012 BY =='
-000013 - '
-000014 - '
-000015 - '
-000016 - '
-000017 - '
-000018 - '
-000019 - '
-000020 - '
-000021 - '
-000022 - '
-000023 - '
-000024 - '
-000025 - '
-000026 - '
-000027 - '
-000028 - '
-000029 - '
-000030 - '
-000031 - '
-000032 - '
-000033 - '
-000034 - '
-000035 - '
-000036 - '
-000037 - '
-000038 - '
-000039 - '
-000040 - '
-000041 - '
-000042 - '
-000043 - '
-000044 - '
-000045 - '
-000046 - '
-000047 - '
-000048 - '
-000049 - '
-000050 - '
-000051 - '
-000052 - '
-000053 - '
-000054 - '
-000055 - '
-000056 - '
-000057 - '
-000058 - '
-000059 - '
-000060 - '
-000061 - '
-000062 - '
-000063 - '
-000064 - '
-000065 - '
-000066 - '
-000067 - '
-000068 - '
-000069 - '
-000070 - '
-000071 - '
-000072 - '
-000073 - '
-000074 - '
-000075 - '
-000076 - '
-000077 - '
-000078 - '
-000079 - '
-000080 - '
-000081 - '
-000082 - '
-000083 - '
-000084 - '
-000085 - '
-000086 - '
-000087 - '
-000088 - '
-000089 - '
-000090 - '
-000091 - '
-000092 - '
-000093 - '
-000094 - '
-000095 - '
-000096 - '
-000097 - '
-000098 - '
-000099 - '
-000100 - '
-000101 - '
-000102 - '
-000103 - '
-000104 - '
-000105 - '
-000106 - '
-000107 - '
-000108 - '
-000109 - '
-000110 - '
-000111 - '
-000112 - '
-000113 - '
-000114 - ' '==.
-000001C
-000002C DISPLAY '
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ -
-000002+ - '
-000115
-000116 STOP RUN.
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:6696"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_509
-#AT_START_510
-at_fn_group_banner 510 'listings.at:6928' \
- "Long concatenated literal" " " 3
-at_xfail=no
-(
- printf "%s\n" "510. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- >>SOURCE FORMAT IS FREE
-ID DIVISION.
-PROGRAM-ID. ED000MAIN IS INITIAL.
-DATA DIVISION.
-WORKING-STORAGE SECTION.
-01 WCOVER PIC X(1280) VALUE
- " _________ ____________________________________ " &
- " __ ____/__________ ___ ____/_ __ \__ __ )_ __ \__ / " &
- " _ / __ __ __ \ / / / / _ / / /_ __ | / / /_ / " &
- " / /_/ / _ / / / /_/ // /___ / /_/ /_ /_/ // /_/ /_ /___ " &
- " \____/ /_/ /_/\__,_/ \____/ \____/ /_____/ \____/ /_____/ " &
- " _________________________ " &
- " ___ ____/__ __ \__ __ \ " &
- " __ __/ __ /_/ /_ /_/ / " &
- " _ /___ _ _, _/_ ____/ " &
- " /_____/ /_/ |_| /_/ " &
- " /_/ |_| .___/_ .___//_/ /_/ \___/ \__,_/ \__/ /_/ \____//_/ /_/ " &
- " /_/ /_/ " &
- "1234567890123456789012".
-PROCEDURE DIVISION.
- EXIT.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/listings.at:6955: \$COMPILE_LISTING0 -t- prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_LISTING0 -t- prog.cob" "listings.at:6955"
-( $at_check_trace; $COMPILE_LISTING0 -t- prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GnuCOBOL V.R.P prog.cob
-
-LINE PG/LN A...B............................................................
-
-000001
-000002 >>SOURCE FORMAT IS FREE
-000003 ID DIVISION.
-000004 PROGRAM-ID. ED000MAIN IS INITIAL.
-000005 DATA DIVISION.
-000006 WORKING-STORAGE SECTION.
-000007 01 WCOVER PIC X(1280) VALUE
-000008 \" _________ _________________________________
-000008+ ___ \" &
-000009 \" __ ____/__________ ___ ____/_ __ \\__ __ )_ __ \\__
-000009+ / \" &
-000010 \" _ / __ __ __ \\ / / / / _ / / /_ __ | / / /_
-000010+ / \" &
-000011 \" / /_/ / _ / / / /_/ // /___ / /_/ /_ /_/ // /_/ /_
-000011+ /___ \" &
-000012 \" \\____/ /_/ /_/\\__,_/ \\____/ \\____/ /_____/ \\____/ /__
-000012+ ___/ \" &
-000013 \" _________________________
-000013+ \" &
-000014 \" ___ ____/__ __ \\__ __ \\
-000014+ \" &
-000015 \" __ __/ __ /_/ /_ /_/ /
-000015+ \" &
-000016 \" _ /___ _ _, _/_ ____/
-000016+ \" &
-000017 \" /_____/ /_/ |_| /_/
-000017+ \" &
-000018 \" /_/ |_| .___/_ .___//_/ /_/ \\___/ \\__,_/ \\__/ /_/ \\___
-000018+ _//_/ /_/ \" &
-000019 \" /_/ /_/
-000019+ \" &
-000020 \"1234567890123456789012\".
-000021 PROCEDURE DIVISION.
-000022 EXIT.
-
-
-0 warnings in compilation group
-0 errors in compilation group
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/listings.at:6955"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_510
-#AT_START_511
-at_fn_group_banner 511 'run_fundamental.at:25' \
- "DISPLAY literals" " " 4
-at_xfail=no
-(
- printf "%s\n" "511. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- DISPLAY "abc".
- DISPLAY 123.
- DISPLAY +123.
- DISPLAY -123.
- DISPLAY 12.3.
- DISPLAY +12.3.
- DISPLAY -12.3.
- DISPLAY 1.23E0.
- DISPLAY +1.23E0.
- DISPLAY -1.23E0.
- DISPLAY 12.3E-2.
- DISPLAY +12.3E-2.
- DISPLAY -12.3E-2.
- DISPLAY B'0101'.
- DISPLAY BX'EC'.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:50: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:50"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:50"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:51: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:51"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "abc
-123
-+123
--123
-12.3
-+12.3
--12.3
-1.23
-+1.23
--1.23
-.123
-+.123
--.123
-5
-236
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:51"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_511
-#AT_START_512
-at_fn_group_banner 512 'run_fundamental.at:72' \
- "DISPLAY literals, DECIMAL-POINT is COMMA" " " 4
-at_xfail=no
-(
- printf "%s\n" "512. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- DECIMAL-POINT IS COMMA.
- PROCEDURE DIVISION.
- DISPLAY 12,3.
- DISPLAY +12,3.
- DISPLAY -12,3.
- DISPLAY 1,23E0.
- DISPLAY +1,23E0.
- DISPLAY -1,23E0.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:92: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:92"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:92"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:93: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:93"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "12,3
-+12,3
--12,3
-1,23
-+1,23
--1,23
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:93"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_512
-#AT_START_513
-at_fn_group_banner 513 'run_fundamental.at:105' \
- "Hexadecimal literal" " " 4
-at_xfail=no
-(
- printf "%s\n" "513. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >dump.c <<'_ATEOF'
-
-#include <stdio.h>
-#include <libcob.h>
-
-COB_EXT_EXPORT int
-dump (unsigned char *data)
-{
- int i;
- for (i = 0; i < 4; i++)
- printf ("%02x", data[i]);
- return 0;
-}
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- >>IF CHARSET = 'EBCDIC'
- DISPLAY X"F1F2F3"
- >>ELSE
- DISPLAY X"313233"
- >>END-IF
- END-DISPLAY.
- CALL "dump" USING X"000102"
- END-CALL.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:137: \$COMPILE_MODULE dump.c"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE dump.c" "run_fundamental.at:137"
-( $at_check_trace; $COMPILE_MODULE dump.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:137"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:138: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:138"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:138"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:139: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:139"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "123
-00010200" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:139"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_513
-#AT_START_514
-at_fn_group_banner 514 'run_fundamental.at:146' \
- "DISPLAY data items with VALUE clause" " " 4
-at_xfail=no
-(
- printf "%s\n" "514. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X-ABC PIC XXX VALUE "abc".
- 01 X-123 PIC 999 VALUE 123.
- 01 X-P123 PIC S999 VALUE +123.
- 01 X-N123 PIC S999 VALUE -123.
- 01 X-12-3 PIC 99V9 VALUE 12.3.
- 01 X-P12-3 PIC S99V9 VALUE +12.3.
- 01 X-N12-3 PIC S99V9 VALUE -12.3.
- PROCEDURE DIVISION.
- DISPLAY X-ABC
- END-DISPLAY.
- DISPLAY X-123
- END-DISPLAY.
- DISPLAY X-P123
- END-DISPLAY.
- DISPLAY X-N123
- END-DISPLAY.
- DISPLAY X-12-3
- END-DISPLAY.
- DISPLAY X-P12-3
- END-DISPLAY.
- DISPLAY X-N12-3
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:179: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:179"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:179"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:180: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:180"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "abc
-123
-+123
--123
-12.3
-+12.3
--12.3
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:180"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_514
-#AT_START_515
-at_fn_group_banner 515 'run_fundamental.at:193' \
- "DISPLAY data items with MOVE statement" " " 4
-at_xfail=no
-(
- printf "%s\n" "515. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X-ABC PIC XXX VALUE "abc".
- 01 X-123 PIC 999 VALUE 123.
- 01 X-P123 PIC S999 VALUE +123.
- 01 X-N123 PIC S999 VALUE -123.
- 01 X-12-3 PIC 99V9 VALUE 12.3.
- 01 X-P12-3 PIC S99V9 VALUE +12.3.
- 01 X-N12-3 PIC S99V9 VALUE -12.3.
- PROCEDURE DIVISION.
- MOVE "abc" TO X-ABC.
- DISPLAY X-ABC
- END-DISPLAY.
- MOVE 123 TO X-123.
- DISPLAY X-123
- END-DISPLAY.
- MOVE +123 TO X-P123.
- DISPLAY X-P123
- END-DISPLAY.
- MOVE -123 TO X-N123.
- DISPLAY X-N123
- END-DISPLAY.
- MOVE 12.3 TO X-12-3.
- DISPLAY X-12-3
- END-DISPLAY.
- MOVE +12.3 TO X-P12-3.
- DISPLAY X-P12-3
- END-DISPLAY.
- MOVE -12.3 TO X-N12-3.
- DISPLAY X-N12-3
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:233: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:233"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:233"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:234: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:234"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "abc
-123
-+123
--123
-12.3
-+12.3
--12.3
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:234"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_515
-#AT_START_516
-at_fn_group_banner 516 'run_fundamental.at:247' \
- "MOVE to edited item (1)" " " 4
-at_xfail=no
-(
- printf "%s\n" "516. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 SRC-1 PIC S99V99 VALUE 1.10.
- 01 SRC-2 PIC S99V99 VALUE 0.02.
- 01 SRC-3 PIC S99V99 VALUE -0.03.
- 01 SRC-4 PIC S99V99 VALUE -0.04.
- 01 SRC-5 PIC S99V99 VALUE -0.05.
- 01 EDT-1 PIC -(04)9.
- 01 EDT-2 PIC -(04)9.
- 01 EDT-3 PIC -(04)9.
- 01 EDT-4 PIC +(04)9.
- 01 EDT-5 PIC -(05).
- PROCEDURE DIVISION.
- MOVE SRC-1 TO EDT-1.
- MOVE SRC-2 TO EDT-2.
- MOVE SRC-3 TO EDT-3.
- MOVE SRC-4 TO EDT-4.
- MOVE SRC-5 TO EDT-5.
- DISPLAY '>' EDT-1 '<'
- END-DISPLAY.
- DISPLAY '>' EDT-2 '<'
- END-DISPLAY.
- DISPLAY '>' EDT-3 '<'
- END-DISPLAY.
- DISPLAY '>' EDT-4 '<'
- END-DISPLAY.
- DISPLAY '>' EDT-5 '<'
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:284: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:284"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:284"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:285: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:285"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "> 1<
-> 0<
-> 0<
-> +0<
-> <
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:285"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_516
-#AT_START_517
-at_fn_group_banner 517 'run_fundamental.at:296' \
- "MOVE to edited item (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "517. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 SRC-1 PIC S99V99 VALUE -0.06.
- 01 SRC-2 PIC S99V99 VALUE -0.07.
- 01 SRC-3 PIC S99V99 VALUE -0.08.
- 01 SRC-4 PIC S99V99 VALUE -0.09.
- 01 SRC-5 PIC S99V99 VALUE -1.10.
- 01 EDT-1 PIC 9(04)-.
- 01 EDT-2 PIC 9(04)+.
- 01 EDT-3 PIC Z(04)+.
- 01 EDT-4 PIC 9(04)DB.
- 01 EDT-5 PIC 9(04)DB.
- PROCEDURE DIVISION.
- MOVE SRC-1 TO EDT-1.
- MOVE SRC-2 TO EDT-2.
- MOVE SRC-3 TO EDT-3.
- MOVE SRC-4 TO EDT-4.
- MOVE SRC-5 TO EDT-5.
- DISPLAY '>' EDT-1 '<'
- END-DISPLAY.
- DISPLAY '>' EDT-2 '<'
- END-DISPLAY.
- DISPLAY '>' EDT-3 '<'
- END-DISPLAY.
- DISPLAY '>' EDT-4 '<'
- END-DISPLAY.
- DISPLAY '>' EDT-5 '<'
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:333: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:333"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:333"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:334: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:334"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" ">0000 <
->0000+<
-> <
->0000 <
->0001DB<
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:334"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_517
-#AT_START_518
-at_fn_group_banner 518 'run_fundamental.at:345' \
- "MOVE to edited item (3)" " " 4
-at_xfail=no
-(
- printf "%s\n" "518. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID . DisplayToAlphaEdited.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 SRC-FIELD PIC 9(06).
- *>
- 01 DST-FIELD-1 PIC 0XXXXXX.
- 01 DST-FIELD-2 PIC BXXXXXX.
- 01 DST-FIELD-3 PIC /XXXXXX.
- 01 DST-FIELD-4 PIC XXXXXX0.
- 01 DST-FIELD-5 PIC XXXXXXB.
- 01 DST-FIELD-6 PIC XXXXXX/.
- 01 DST-FIELD-7 PIC XXX0XXX.
- 01 DST-FIELD-8 PIC XXXBXXX.
- 01 DST-FIELD-9 PIC XXX/XXX.
- 01 DST-FIELD-10 PIC XB0XB0/.
- 01 DST-FIELD-11 PIC 0AA.
- 01 DST-FIELD-12 PIC BXA.
- 01 DST-FIELD-13 PIC /99.
- 01 DST-FIELD-14 PIC 990.
- 01 DST-FIELD-15 PIC XAB.
- 01 DST-FIELD-16 PIC XA/.
- *>
- 01 EXPT-FIELD-1 CONSTANT AS '0123456' .
- 01 EXPT-FIELD-2 CONSTANT AS ' 123456' .
- 01 EXPT-FIELD-3 CONSTANT AS '/123456' .
- 01 EXPT-FIELD-4 CONSTANT AS '1234560' .
- 01 EXPT-FIELD-5 CONSTANT AS '123456 ' .
- 01 EXPT-FIELD-6 CONSTANT AS '123456/' .
- 01 EXPT-FIELD-7 CONSTANT AS '1230456' .
- 01 EXPT-FIELD-8 CONSTANT AS '123 456' .
- 01 EXPT-FIELD-9 CONSTANT AS '123/456' .
- 01 EXPT-FIELD-10 CONSTANT AS '1 02 0/' .
- 01 EXPT-FIELD-11 CONSTANT AS '012' .
- 01 EXPT-FIELD-12 CONSTANT AS ' 12' .
- 01 EXPT-FIELD-13 CONSTANT AS '/00' .
- 01 EXPT-FIELD-14 CONSTANT AS '560' .
- 01 EXPT-FIELD-15 CONSTANT AS '12 ' .
- 01 EXPT-FIELD-16 CONSTANT AS '12/' .
- PROCEDURE DIVISION.
- TEST-RUNNER.
- *> done twice to already check for later compile-time optimization
- MOVE '123456'
- TO DST-FIELD-1 DST-FIELD-2 DST-FIELD-3
- DST-FIELD-4 DST-FIELD-5 DST-FIELD-6
- DST-FIELD-7 DST-FIELD-8 DST-FIELD-9
- DST-FIELD-10 DST-FIELD-11 DST-FIELD-12
- DST-FIELD-12 DST-FIELD-14 DST-FIELD-15
- DST-FIELD-16 SRC-FIELD
- PERFORM DO-TEST.
- *> done twice to already check for later compile-time optimization
- MOVE SRC-FIELD
- TO DST-FIELD-1 DST-FIELD-2 DST-FIELD-3
- DST-FIELD-4 DST-FIELD-5 DST-FIELD-6
- DST-FIELD-7 DST-FIELD-8 DST-FIELD-9
- DST-FIELD-10 DST-FIELD-11 DST-FIELD-12
- DST-FIELD-12 DST-FIELD-14 DST-FIELD-15
- DST-FIELD-16
- PERFORM DO-TEST.
- GOBACK.
- DO-TEST.
- IF DST-FIELD-1 NOT = EXPT-FIELD-1
- DISPLAY '1: <' DST-FIELD-1 '> != <' EXPT-FIELD-1 '>'.
- IF DST-FIELD-2 NOT = EXPT-FIELD-2
- DISPLAY '2: <' DST-FIELD-2 '> != <' EXPT-FIELD-2 '>'.
- IF DST-FIELD-3 NOT = EXPT-FIELD-3
- DISPLAY '3: <' DST-FIELD-3 '> != <' EXPT-FIELD-3 '>'.
- IF DST-FIELD-4 NOT = EXPT-FIELD-4
- DISPLAY '4: <' DST-FIELD-4 '> != <' EXPT-FIELD-4 '>'.
- IF DST-FIELD-5 NOT = EXPT-FIELD-5
- DISPLAY '5: <' DST-FIELD-5 '> != <' EXPT-FIELD-5 '>'.
- IF DST-FIELD-6 NOT = EXPT-FIELD-6
- DISPLAY '6: <' DST-FIELD-6 '> != <' EXPT-FIELD-6 '>'.
- IF DST-FIELD-7 NOT = EXPT-FIELD-7
- DISPLAY '7: <' DST-FIELD-7 '> != <' EXPT-FIELD-7 '>'.
- IF DST-FIELD-8 NOT = EXPT-FIELD-8
- DISPLAY '8: <' DST-FIELD-8 '> != <' EXPT-FIELD-8 '>'.
- IF DST-FIELD-9 NOT = EXPT-FIELD-9
- DISPLAY '9: <' DST-FIELD-9 '> != <' EXPT-FIELD-9 '>'.
- IF DST-FIELD-10 NOT = EXPT-FIELD-10
- DISPLAY '10: <' DST-FIELD-10 '> != <' EXPT-FIELD-10 '>'.
- IF DST-FIELD-11 NOT = EXPT-FIELD-11
- DISPLAY '11: <' DST-FIELD-11 '> != <' EXPT-FIELD-11 '>'.
- IF DST-FIELD-12 NOT = EXPT-FIELD-12
- DISPLAY '12: <' DST-FIELD-12 '> != <' EXPT-FIELD-12 '>'.
- IF DST-FIELD-13 NOT = EXPT-FIELD-13
- DISPLAY '13: <' DST-FIELD-13 '> != <' EXPT-FIELD-13 '>'.
- IF DST-FIELD-14 NOT = EXPT-FIELD-14
- DISPLAY '14: <' DST-FIELD-14 '> != <' EXPT-FIELD-14 '>'.
- IF DST-FIELD-15 NOT = EXPT-FIELD-15
- DISPLAY '15: <' DST-FIELD-15 '> != <' EXPT-FIELD-15 '>'.
- IF DST-FIELD-16 NOT = EXPT-FIELD-16
- DISPLAY '16: <' DST-FIELD-16 '> != <' EXPT-FIELD-16 '>'.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:444: \$COMPILE -Wno-truncate prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -Wno-truncate prog.cob" "run_fundamental.at:444"
-( $at_check_trace; $COMPILE -Wno-truncate prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:444"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:445: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:445"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:445"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_518
-#AT_START_519
-at_fn_group_banner 519 'run_fundamental.at:450' \
- "MOVE to item with simple and floating insertion" "" 4
-at_xfail=no
-(
- printf "%s\n" "519. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 num-1 PIC -*B*99.
- 01 num-2 PIC $BB**,***.**.
- 01 num-3 PIC $BB--,---.--.
-
- PROCEDURE DIVISION.
- MOVE -123 TO num-1
- DISPLAY ">" num-1 "<"
-
- MOVE 1234.56 TO num-2
- DISPLAY ">" num-2 "<"
-
- MOVE 1234.56 TO num-3
- DISPLAY ">" num-3 "<"
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:475: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:475"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:475"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:476: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:476"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" ">-**123<
->\$ *1,234.56<
->\$ 1,234.56<
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:476"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_519
-#AT_START_520
-at_fn_group_banner 520 'run_fundamental.at:485' \
- "MOVE to JUSTIFIED item" " " 4
-at_xfail=no
-(
- printf "%s\n" "520. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 SRC-1 PIC S9(04) VALUE 11.
- 01 SRC-2 PIC S9(04) COMP VALUE 22.
- 01 SRC-3 PIC S9(04) COMP-5 VALUE 33.
- 01 SRC-4 PIC S9(04)PP VALUE 4400.
- 01 SRC-5 PIC S9(04)PPPPP VALUE 55500000.
- 01 EDT-FLD PIC X(07) JUSTIFIED RIGHT.
- PROCEDURE DIVISION.
- MOVE SRC-1 TO EDT-FLD.
- DISPLAY '>' EDT-FLD '<'
- END-DISPLAY.
- MOVE SRC-2 TO EDT-FLD.
- DISPLAY '>' EDT-FLD '<'
- END-DISPLAY.
- MOVE SRC-3 TO EDT-FLD.
- DISPLAY '>' EDT-FLD '<'
- END-DISPLAY.
- MOVE SRC-4 TO EDT-FLD.
- DISPLAY '>' EDT-FLD '<'
- END-DISPLAY.
- MOVE SRC-5 TO EDT-FLD.
- DISPLAY '>' EDT-FLD '<'
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:518: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:518"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:518"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:519: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:519"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "> 0011<
-> 0022<
-> 0033<
-> 004400<
->5500000<
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:519"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_520
-#AT_START_521
-at_fn_group_banner 521 'run_fundamental.at:530' \
- "MOVE integer literal to alphanumeric" " " 4
-at_xfail=no
-(
- printf "%s\n" "521. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(04) VALUE SPACES.
- PROCEDURE DIVISION.
- MOVE 0 TO X.
- DISPLAY X NO ADVANCING END-DISPLAY.
- MOVE 1000 TO X.
- DISPLAY X NO ADVANCING END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:547: \$COMPILE_ONLY -fdiagnostics-show-option prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fdiagnostics-show-option prog.cob" "run_fundamental.at:547"
-( $at_check_trace; $COMPILE_ONLY -fdiagnostics-show-option prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: warning: alphanumeric value is expected [-Wtyping]
-prog.cob:6: note: 'X' defined here as PIC X(04) [-Wtyping]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:547"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:551: \$COMPILE_ONLY -Wstrict-typing -fdiagnostics-show-option prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wstrict-typing -fdiagnostics-show-option prog.cob" "run_fundamental.at:551"
-( $at_check_trace; $COMPILE_ONLY -Wstrict-typing -fdiagnostics-show-option prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: warning: alphanumeric value is expected [-Wtyping]
-prog.cob:6: note: 'X' defined here as PIC X(04) [-Wtyping]
-prog.cob:10: warning: alphanumeric value is expected [-Wstrict-typing]
-prog.cob:6: note: 'X' defined here as PIC X(04) [-Wstrict-typing]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:551"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:557: \$COMPILE_ONLY -Wextra -Wno-strict-typing -fdiagnostics-show-option prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -Wextra -Wno-strict-typing -fdiagnostics-show-option prog.cob" "run_fundamental.at:557"
-( $at_check_trace; $COMPILE_ONLY -Wextra -Wno-strict-typing -fdiagnostics-show-option prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: warning: alphanumeric value is expected [-Wtyping]
-prog.cob:6: note: 'X' defined here as PIC X(04) [-Wtyping]
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:557"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:561: \$COMPILE -Wextra -Wno-typing -fdiagnostics-show-option prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -Wextra -Wno-typing -fdiagnostics-show-option prog.cob" "run_fundamental.at:561"
-( $at_check_trace; $COMPILE -Wextra -Wno-typing -fdiagnostics-show-option prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:561"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:562: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:562"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "0 1000" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:562"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_521
-#AT_START_522
-at_fn_group_banner 522 'run_fundamental.at:567' \
- "Compare FLOAT-LONG with floating-point literal" " " 4
-at_xfail=no
-(
- printf "%s\n" "522. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 VAR FLOAT-LONG VALUE 0.0.
-
- PROCEDURE DIVISION.
- MOVE 9.899999999999E+304 TO VAR
- IF VAR < 0
- DISPLAY 'error: compare ' VAR ' < ' 0
- ' failed!'
- END-DISPLAY
- END-IF.
- IF VAR < 9.799999999999E+304
- DISPLAY 'error: compare ' VAR ' < ' 9.799999999999E+304
- ' failed!'
- END-DISPLAY
- END-IF.
- IF VAR > 9.999999999999E+304
- DISPLAY 'error: compare ' VAR ' > ' 9.999999999999E+304
- ' failed!'
- END-DISPLAY
- END-IF.
- MOVE -9.899999999999E+304 TO VAR
- IF VAR > 0
- DISPLAY 'error: compare ' VAR ' > ' 0
- ' failed!'
- END-DISPLAY
- END-IF.
- IF VAR < -9.999999999999E+304
- DISPLAY 'error: compare ' VAR ' < ' -9.999999999999E+304
- ' failed!'
- END-DISPLAY
- END-IF.
- IF VAR > -9.799999999999E+304
- DISPLAY 'error: compare ' VAR ' > ' -9.799999999999E+304
- ' failed!'
- END-DISPLAY
- END-IF.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:614: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:614"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:614"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:615: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:615"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:615"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_522
-#AT_START_523
-at_fn_group_banner 523 'run_fundamental.at:620' \
- "equality of FLOAT-SHORT / FLOAT-LONG" " " 4
-at_xfail=no
-(
- printf "%s\n" "523. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 SRC1 FLOAT-LONG VALUE 11.55.
- 01 DST1 FLOAT-SHORT.
- 01 SRC2 FLOAT-SHORT VALUE 11.55.
- 01 DST2 FLOAT-LONG.
-
- PROCEDURE DIVISION.
- MOVE SRC1 TO DST1.
- IF DST1 not = 11.55
- DISPLAY 'error 1: move/compare FLOAT-LONG to FLOAT-SHORT
- - 'failed ' DST1
- END-DISPLAY
- END-IF.
-
- MOVE SRC1 TO DST2.
- IF DST1 not = 11.55
- DISPLAY 'error 2: move/compare FLOAT-LONG to FLOAT-LONG f
- - 'ailed ' DST2
- END-DISPLAY
- END-IF.
-
- MOVE ZERO TO DST1.
- MOVE ZERO TO DST2.
-
- MOVE SRC2 TO DST1.
- IF DST1 not = 11.55
- DISPLAY 'error 3: move/compare FLOAT-SHORT to FLOAT-SHORT
- - ' failed: ' DST1
- END-DISPLAY
- END-IF.
-
- MOVE SRC2 TO DST2.
- IF DST2 not = 11.55
- DISPLAY 'error 4: move/compare FLOAT-SHORT to FLOAT-LONG
- - 'failed: ' DST2
- END-DISPLAY
- END-IF.
-
- MOVE ZERO TO DST1.
- IF not (DST1 = 0 AND 0.0)
- DISPLAY "Zero compare failed: " DST1 END-DISPLAY
- END-IF.
-
- MOVE -0.0 TO DST1.
- IF not (DST1 = 0 AND 0.0)
- DISPLAY "Negative Zero compare failed: " DST1
- END-DISPLAY
- END-IF.
-
- MOVE 1.1234567 TO DST1.
- MOVE DST1 TO DST2.
- IF DST2 not = 1.1234567
- DISPLAY "move/compare number to FLOAT to DOUBLE failed: "
- DST1 " - " DST2
- END-DISPLAY
- END-IF.
-
- * Check for Tolerance
- MOVE 1.1234567 TO DST1.
- MOVE 1.1234568 TO DST2.
- IF DST1 not = DST2 THEN
- DISPLAY 'move/compare of very near numbers failed (not id
- - 'entical): ' DST1 " - " DST2
- END-DISPLAY
- END-IF.
-
- * Within tolerance by definition, therefore not checked
- * MULTIPLY 10000000000 BY DST1 DST2 END-MULTIPLY.
- * IF DST1 = DST2 THEN
- * DISPLAY "compare of very near numbers computed failed (id
- *- "entical): " DST1 " - " DST2
- * END-DISPLAY
- * END-IF.
-
- MOVE 1.1234567 TO DST1.
- MOVE 1.1234569 TO DST2.
- IF DST1 = DST2 THEN
- DISPLAY 'move/compare of near equal numbers failed (ident
- - 'ical): ' DST1 " - " DST2
- END-DISPLAY
- END-IF.
-
- MOVE 0.0001 TO DST1.
- MOVE 0.0000 TO DST2.
- IF DST1 = DST2 THEN
- DISPLAY 'move/compare of nearly equal very small numbers
- - 'failed (identical): ' DST1 " - " DST2
- END-DISPLAY
- END-IF.
-
- MOVE 1000001.0 TO DST1.
- MOVE 1000000.0 TO DST2.
- IF DST1 = DST2 THEN
- DISPLAY 'move/compare of nearly equal big numbers failed
- - '(identical): ' DST1 " - " DST2
- END-DISPLAY
- END-IF.
-
- * Within tolerance by definition, therefore not checked
- * MOVE 1000000000.0 TO DST1.
- * MOVE 1000000001.0 TO DST2.
- * IF DST1 = DST2 THEN
- * DISPLAY 'move/compare of nearly equal very big numbers fa
- *- 'iled (identical): ' DST1 " - " DST2
- * END-DISPLAY
- * END-IF.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:737: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:737"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:737"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:738: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:738"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:738"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_523
-#AT_START_524
-at_fn_group_banner 524 'run_fundamental.at:743' \
- "equality of FLOAT-SHORT / FLOAT-EXTENDED" " " 4
-at_xfail=no
-(
- printf "%s\n" "524. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 SRC1 FLOAT-EXTENDED VALUE 11.55.
- 01 DST1 FLOAT-SHORT.
- 01 SRC2 FLOAT-SHORT VALUE 11.55.
- 01 DST2 FLOAT-EXTENDED.
-
- PROCEDURE DIVISION.
- MOVE SRC1 TO DST1.
- IF DST1 not = 11.55
- DISPLAY 'error 1: move/compare FLOAT-EXTENDED to FLOAT-SH
- - 'ORT failed ' DST1
- END-DISPLAY
- END-IF.
-
- MOVE SRC1 TO DST2.
- IF DST1 not = 11.55
- DISPLAY 'error 2: move/compare FLOAT-EXTENDED to FLOAT-SH
- - 'ORT failed ' DST2
- END-DISPLAY
- END-IF.
-
- MOVE ZERO TO DST1.
- MOVE ZERO TO DST2.
-
- MOVE SRC2 TO DST1.
- IF DST1 not = 11.55
- DISPLAY 'error 3: move/compare FLOAT-EXTENDED to FLOAT-SH
- - 'ORT failed ' DST1
- END-DISPLAY
- END-IF.
-
- MOVE SRC2 TO DST2.
- IF DST2 not = 11.55
- DISPLAY 'error 4: move/compare FLOAT-EXTENDED to FLOAT-SHOR
- - 'T failed ' DST2
- END-DISPLAY
- END-IF.
-
- MOVE ZERO TO DST1.
- IF not (DST1 = 0 AND 0.0)
- DISPLAY "Zero compare failed: " DST1 END-DISPLAY
- END-IF.
-
- MOVE -0.0 TO DST1.
- IF not (DST1 = 0 AND 0.0)
- DISPLAY "Negative Zero compare failed: " DST1
- END-DISPLAY
- END-IF.
-
- MOVE 1.1234567 TO DST1.
- MOVE DST1 TO DST2.
- IF DST2 not = 1.1234567
- DISPLAY "move/compare number to FLOAT to DOUBLE failed: "
- DST1 " - " DST2
- END-DISPLAY
- END-IF.
-
- * Check for Tolerance
- MOVE 1.1234567 TO DST1.
- MOVE 1.1234568 TO DST2.
- IF DST1 not = DST2 THEN
- DISPLAY 'move/compare of very near numbers failed (not id
- - 'entical): ' DST1 " - " DST2
- END-DISPLAY
- END-IF.
- MOVE 1.1234567 TO DST1.
- MOVE 0.1234568 TO DST2.
- ADD 1.0 TO DST2.
- IF DST1 not = DST2 THEN
- DISPLAY 'move/compare of very near numbers failed (not id
- - 'entical after ADD): ' DST1 " - " DST2
- END-DISPLAY
- END-IF.
-
- * Within tolerance by definition, therefore not checked
- * MULTIPLY 10000000000 BY DST1 DST2 END-MULTIPLY.
- * IF DST1 = DST2 THEN
- * DISPLAY "compare of very near numbers computed failed (id
- *- "entical): " DST1 " - " DST2
- * END-DISPLAY
- * END-IF.
-
- MOVE 1.1234567 TO DST1.
- MOVE 1.1234569 TO DST2.
- IF DST1 = DST2 THEN
- DISPLAY 'move/compare of near equal numbers failed (ident
- - 'ical): ' DST1 " - " DST2
- END-DISPLAY
- END-IF.
-
- MOVE 0.0001 TO DST1.
- MOVE 0.0000 TO DST2.
- IF DST1 = DST2 THEN
- DISPLAY 'move/compare of nearly equal very small numbers
- - 'failed (identical): ' DST1 " - " DST2
- END-DISPLAY
- END-IF.
-
- MOVE 1000001.0 TO DST1.
- MOVE 1000000.0 TO DST2.
- IF DST1 = DST2 THEN
- DISPLAY 'move/compare of nearly equal big numbers failed
- - '(identical): ' DST1 " - " DST2
- END-DISPLAY
- END-IF.
-
- * Within tolerance by definition, therefore not checked
- * MOVE 1000000000.0 TO DST1.
- * MOVE 1000000001.0 TO DST2.
- * IF DST1 = DST2 THEN
- * DISPLAY 'move/compare of nearly equal very big numbers fa
- *- 'iled (identical): ' DST1 " - " DST2
- * END-DISPLAY
- * END-IF.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:868: \$COMPILE -Wno-unfinished prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -Wno-unfinished prog.cob" "run_fundamental.at:868"
-( $at_check_trace; $COMPILE -Wno-unfinished prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:868"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:869: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:869"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:869"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_524
-#AT_START_525
-at_fn_group_banner 525 'run_fundamental.at:874' \
- "Overlapping MOVE (GnuCOBOL)" " " 4
-at_xfail=no
-(
- printf "%s\n" "525. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 FILLER.
- 05 TSTMOV1 PIC X(479).
- 05 TSTMOV2 PIC X(10).
- PROCEDURE DIVISION.
- MOVE "0123456789" TO TSTMOV2.
- MOVE TSTMOV2 (2:9) TO TSTMOV2 (1:9)
- IF TSTMOV2 NOT = "1234567899"
- DISPLAY " PROBLEM MOVE: " TSTMOV2
- ELSE
- DISPLAY " OK with MOVE: " TSTMOV2.
- MOVE "0123456789" TO TSTMOV2.
- MOVE TSTMOV2 (1:8) TO TSTMOV2 (2:8)
- IF TSTMOV2 = "0000000009"
- DISPLAY "IBM style MOVE: " TSTMOV2
- ELSE IF TSTMOV2 NOT = "0012345679"
- DISPLAY " PROBLEM MOVE: " TSTMOV2
- ELSE
- DISPLAY " OK with MOVE: " TSTMOV2.
- STOP RUN.
-_ATEOF
-
-
-# directly seen by the compiler
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:904: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:904"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:11: warning: overlapping MOVE may produce unpredictable results
-prog.cob:17: warning: overlapping MOVE may produce unpredictable results
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:904"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:909: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:909"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " OK with MOVE: 1234567899
- OK with MOVE: 0012345679
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:909"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# not seen by the compiler because in LINKAGE
-cat >subprog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. subprog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- LINKAGE SECTION.
- 01 F1 PIC X(10).
- 01 F2 PIC X(15).
-
- PROCEDURE DIVISION USING F1 F2.
- MOVE F1(1:8) TO F2 (7:8).
- IF F2 NOT = "Hallo1123456780"
- DISPLAY "error:3: " F2.
-
- GOBACK.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 STRUCTURE.
- 05 FIELD1 PIC X(5).
- 05 FIELD2 PIC X(10).
-
- PROCEDURE DIVISION.
- MOVE "Hallo" TO FIELD1.
- MOVE "1234567890" TO FIELD2.
-
- CALL "subprog" USING BY REFERENCE FIELD2 STRUCTURE.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:951: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_fundamental.at:951"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:951"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:952: \$COMPILE_MODULE subprog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE subprog.cob" "run_fundamental.at:952"
-( $at_check_trace; $COMPILE_MODULE subprog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:952"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:953: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "run_fundamental.at:953"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:953"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_525
-#AT_START_526
-at_fn_group_banner 526 'run_fundamental.at:958' \
- "Overlapping MOVE (IBM)" " " 4
-at_xfail=no
-(
- printf "%s\n" "526. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 FILLER.
- 05 TSTMOV1 PIC X(479).
- 05 TSTMOV2 PIC X(10).
- PROCEDURE DIVISION.
- MOVE "0123456789" TO TSTMOV2.
- MOVE TSTMOV2 (2:9) TO TSTMOV2 (1:9)
- IF TSTMOV2 NOT = "1234567899"
- DISPLAY " PROBLEM MOVE: " TSTMOV2
- ELSE
- DISPLAY " OK with MOVE: " TSTMOV2.
- MOVE "0123456789" TO TSTMOV2.
- MOVE TSTMOV2 (1:8) TO TSTMOV2 (2:8)
- IF TSTMOV2 = "0000000009"
- DISPLAY "IBM style MOVE: " TSTMOV2
- ELSE IF TSTMOV2 NOT = "0012345679"
- DISPLAY " PROBLEM MOVE: " TSTMOV2
- ELSE
- DISPLAY " OK with MOVE: " TSTMOV2.
- STOP RUN.
-_ATEOF
-
-
-# Overlap directly seen by the compiler, ignored because of move-ibm
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:988: \$COMPILE -fmove-ibm prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fmove-ibm prog.cob" "run_fundamental.at:988"
-( $at_check_trace; $COMPILE -fmove-ibm prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:988"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:990: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:990"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " OK with MOVE: 1234567899
-IBM style MOVE: 0000000009
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:990"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# not seen by the compiler because in LINKAGE
-cat >subprog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. subprog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- LINKAGE SECTION.
- 01 F1 PIC X(10).
- 01 F2 PIC X(15).
-
- PROCEDURE DIVISION USING F1 F2.
- MOVE F1(1:8) TO F2 (7:8).
- IF F2 NOT = "Hallo1111111110"
- DISPLAY "error:3: " F2.
-
- GOBACK.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 STRUCTURE.
- 05 FIELD1 PIC X(5).
- 05 FIELD2 PIC X(10).
-
- PROCEDURE DIVISION.
- MOVE "Hallo" TO FIELD1.
- MOVE "1234567890" TO FIELD2.
-
- CALL "subprog" USING BY REFERENCE FIELD2 STRUCTURE.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1032: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_fundamental.at:1032"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1032"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1033: \$COMPILE_MODULE -fmove-ibm subprog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE -fmove-ibm subprog.cob" "run_fundamental.at:1033"
-( $at_check_trace; $COMPILE_MODULE -fmove-ibm subprog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1033"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1034: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "run_fundamental.at:1034"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1034"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_526
-#AT_START_527
-at_fn_group_banner 527 'run_fundamental.at:1039' \
- "ALPHABETIC test" " " 4
-at_xfail=no
-(
- printf "%s\n" "527. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(04) VALUE "AAAA".
- 01 FILLER REDEFINES X.
- 03 XBYTE PIC X.
- 03 FILLER PIC XXX.
- PROCEDURE DIVISION.
- MOVE X"0D" TO XBYTE.
- IF X ALPHABETIC
- DISPLAY "Fail - Alphabetic"
- END-DISPLAY
- END-IF.
- MOVE "A" TO XBYTE.
- IF X NOT ALPHABETIC
- DISPLAY "Fail - Not Alphabetic"
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1065: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:1065"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1065"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1066: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:1066"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1066"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_527
-#AT_START_528
-at_fn_group_banner 528 'run_fundamental.at:1071' \
- "ALPHABETIC-UPPER test" " " 4
-at_xfail=no
-(
- printf "%s\n" "528. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(04) VALUE "AAAA".
- 01 FILLER REDEFINES X.
- 03 XBYTE PIC X.
- 03 FILLER PIC XXX.
- PROCEDURE DIVISION.
- MOVE X"0D" TO XBYTE.
- IF X ALPHABETIC-UPPER
- DISPLAY "Fail - Not alphabetic upper"
- END-DISPLAY
- END-IF.
- MOVE "A" TO XBYTE.
- IF X NOT ALPHABETIC-UPPER
- DISPLAY "Fail - Alphabetic upper"
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1097: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:1097"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1097"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1098: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:1098"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1098"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_528
-#AT_START_529
-at_fn_group_banner 529 'run_fundamental.at:1103' \
- "ALPHABETIC-LOWER test" " " 4
-at_xfail=no
-(
- printf "%s\n" "529. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(04) VALUE "aaaa".
- 01 FILLER REDEFINES X.
- 03 XBYTE PIC X.
- 03 FILLER PIC XXX.
- PROCEDURE DIVISION.
- MOVE X"0D" TO XBYTE.
- IF X ALPHABETIC-LOWER
- DISPLAY "Fail - Not alphabetic lower"
- END-DISPLAY
- END-IF.
- MOVE "a" TO XBYTE.
- IF X NOT ALPHABETIC-LOWER
- DISPLAY "Fail - Alphabetic lower"
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1129: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:1129"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1129"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1130: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:1130"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1130"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_529
-#AT_START_530
-at_fn_group_banner 530 'run_fundamental.at:1135' \
- "GLOBAL at same level" " " 4
-at_xfail=no
-(
- printf "%s\n" "530. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(5) GLOBAL VALUE "prog1".
- PROCEDURE DIVISION.
- DISPLAY X
- END-DISPLAY.
- CALL "prog2"
- END-CALL
- CALL "prog3"
- END-CALL
- STOP RUN.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(5) GLOBAL VALUE "prog2".
- PROCEDURE DIVISION.
- DISPLAY X
- END-DISPLAY.
- EXIT PROGRAM.
- END PROGRAM prog2.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY X
- END-DISPLAY.
- EXIT PROGRAM.
- END PROGRAM prog3.
- END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1174: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:1174"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1174"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1175: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:1175"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "prog1
-prog2
-prog1
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1175"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_530
-#AT_START_531
-at_fn_group_banner 531 'run_fundamental.at:1184' \
- "GLOBAL at lower level" " " 4
-at_xfail=no
-(
- printf "%s\n" "531. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(5) GLOBAL VALUE "prog1".
- PROCEDURE DIVISION.
- DISPLAY X
- END-DISPLAY.
- CALL "prog2"
- END-CALL
- STOP RUN.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(5) GLOBAL VALUE "prog2".
- PROCEDURE DIVISION.
- DISPLAY X
- END-DISPLAY.
- CALL "prog3"
- END-CALL
- EXIT PROGRAM.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY X
- END-DISPLAY.
- EXIT PROGRAM.
- END PROGRAM prog3.
- END PROGRAM prog2.
- END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1223: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:1223"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1223"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1224: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:1224"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "prog1
-prog2
-prog2
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1224"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_531
-#AT_START_532
-at_fn_group_banner 532 'run_fundamental.at:1233' \
- "GLOBAL CONSTANT" " " 4
-at_xfail=no
-(
- printf "%s\n" "532. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE
- ASSIGN GLOB-PATH
- .
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE GLOBAL.
- 01 TEST-REC PIC X(4).
- WORKING-STORAGE SECTION.
- 78 GLOB-PATH GLOBAL VALUE "GLOBP1".
- 01 GLOB-PATH2 CONSTANT GLOBAL "GLOBP2".
- * Test global vars because of implicitly defined ASSIGN var, too.
- 78 GLOB-VAR GLOBAL VALUE "GLOBV1".
- 01 GLOB-VAR2 CONSTANT GLOBAL "GLOBV2".
- PROCEDURE DIVISION.
- DISPLAY GLOB-PATH GLOB-VAR
- END-DISPLAY.
- CALL "prog2"
- END-CALL.
- CALL "prog3"
- END-CALL.
- STOP RUN.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST2-FILE
- ASSIGN GLOB-PATH2
- .
- DATA DIVISION.
- FILE SECTION.
- FD TEST2-FILE GLOBAL.
- 01 TEST2-REC PIC X(4).
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY GLOB-PATH2 GLOB-VAR2
- END-DISPLAY.
- EXIT PROGRAM.
- END PROGRAM prog2.
- END PROGRAM prog.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST3-FILE
- ASSIGN GLOB-PATH
- .
- DATA DIVISION.
- FILE SECTION.
- FD TEST3-FILE GLOBAL.
- 01 TEST3-REC PIC X(4).
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY 'in prog3'
- END-DISPLAY
- IF GLOB-PATH NOT = SPACES
- DISPLAY FUNCTION TRIM (GLOB-PATH TRAILING)
- END-DISPLAY
- END-IF
- EXIT PROGRAM.
- END PROGRAM prog3.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1306: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:1306"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1306"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1307: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:1307"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GLOBP1GLOBV1
-GLOBP2GLOBV2
-in prog3
-GLOB-PATH
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1307"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_532
-#AT_START_533
-at_fn_group_banner 533 'run_fundamental.at:1317' \
- "GLOBAL identifiers from ENVIRONMENT DIVISION" " " 4
-at_xfail=no
-(
- printf "%s\n" "533. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- FUNCTION-ID. f1.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 r BINARY-LONG.
- PROCEDURE DIVISION RETURNING r.
- move 1 to r
- GOBACK
- .
- END FUNCTION f1.
- FUNCTION-ID. f2.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 i BINARY-LONG.
- 01 r BINARY-LONG.
- PROCEDURE DIVISION USING i RETURNING r.
- add i to i giving r
- GOBACK
- .
- END FUNCTION f2.
-
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- REPOSITORY.
- FUNCTION f1
- FUNCTION f2.
- SPECIAL-NAMES.
- CURRENCY SIGN IS "Y"
- DECIMAL-POINT IS COMMA.
-
- PROCEDURE DIVISION.
- CALL "prog-nested"
- .
-
- PROGRAM-ID. prog-nested.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 n1 BINARY-LONG VALUE 0.
- 77 curr PIC 9.9999,99Y.
-
- PROCEDURE DIVISION.
- MOVE f1() TO n1
- IF n1 NOT = 1
- DISPLAY "ERROR 1" GOBACK
- END-IF
- MOVE f2(n1) TO n1
- IF n1 NOT = 2
- DISPLAY "ERROR 2" GOBACK
- END-IF
- MOVE f1() TO n1
- IF n1 NOT = 1
- DISPLAY "ERROR 1 2nd" GOBACK
- END-IF
- MOVE f2(f2(n1)) TO n1
- IF n1 NOT = 4
- DISPLAY "ERROR 4" GOBACK
- END-IF
- MOVE n1 TO curr
- DISPLAY curr
-
- GOBACK
- .
- END PROGRAM prog-nested.
- END PROGRAM prog.
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1390: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:1390"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1390"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1391: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:1391"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "0.0004,00Y
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1391"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_533
-#AT_START_534
-at_fn_group_banner 534 'run_fundamental.at:1398' \
- "GLOBAL REDEFINES" " " 4
-at_xfail=no
-(
- printf "%s\n" "534. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 T0 PIC X VALUE "X".
- 01 T1 REDEFINES T0 PIC X GLOBAL.
- PROCEDURE DIVISION.
- DISPLAY T1.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1412: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:1412"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1412"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_534
-#AT_START_535
-at_fn_group_banner 535 'run_fundamental.at:1417' \
- "function with variable-length RETURNING item" " " 4
-at_xfail=no
-(
- printf "%s\n" "535. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# see Bug #641
-
-
-# Skipped in 3.1.1 as the codegen is not safe (returning local variable address)
-# codegen adjusted in 4.x
-
-printf "%s\n" "run_fundamental.at:1426" >"$at_check_line_file"
-at_fn_check_skip 77 "$at_srcdir/run_fundamental.at:1426"
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- FUNCTION-ID. reply.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 arg-len USAGE BINARY-LONG.
- LINKAGE SECTION.
- 01 argument PIC X ANY LENGTH.
- 01 result.
- 05 filler PIC X OCCURS 0 to 999 DEPENDING ON arg-len.
- PROCEDURE DIVISION USING BY REFERENCE argument RETURNING result.
- MOVE FUNCTION LENGTH (argument) TO arg-len
- MOVE argument TO result.
- END FUNCTION reply.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- REPOSITORY.
- FUNCTION reply.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 arg pic x(100).
-
- PROCEDURE DIVISION.
- *>
- IF not (FUNCTION REPLY ("test") = "test"
- and FUNCTION LENGTH (REPLY ("test")) = 4 )
- DISPLAY "'test' failed: "
- FUNCTION LENGTH (REPLY ("test")) " #"
- FUNCTION REPLY ("test") "#".
- *>
- IF not (FUNCTION REPLY ("test ") = "test"
- and FUNCTION LENGTH (REPLY ("test ")) = 7 )
- DISPLAY "'test ' failed: "
- FUNCTION LENGTH (REPLY ("test ")) " #"
- FUNCTION REPLY ("test ") "#".
- *>
- IF not (FUNCTION REPLY (arg) = spaces
- and FUNCTION LENGTH (REPLY (arg)) = 100 )
- DISPLAY "empty arg failed: "
- FUNCTION LENGTH (REPLY (arg)) " #"
- FUNCTION REPLY (arg) "#".
- *>
- MOVE "echo this" to arg
- IF not (FUNCTION REPLY (arg) = arg
- and FUNCTION LENGTH (REPLY (arg)) = 100 )
- DISPLAY "echo arg failed: "
- FUNCTION LENGTH (REPLY (arg)) " #"
- FUNCTION REPLY (arg) "#".
- *>
- MOVE z"echo this" to arg
- IF not (FUNCTION REPLY (arg) = arg
- and FUNCTION LENGTH (REPLY (arg)) = 100 )
- DISPLAY "z'echo arg failed: "
- FUNCTION LENGTH (REPLY (arg)) " #"
- FUNCTION REPLY (arg) "#".
- *>
- GOBACK
- .
- END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1494: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:1494"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1494"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1495: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:1495"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1495"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_535
-#AT_START_536
-at_fn_group_banner 536 'run_fundamental.at:1500' \
- "Entry point visibility (1)" " " 4
-at_xfail=no
-(
- printf "%s\n" "536. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- PROCEDURE DIVISION.
- CALL 'module'
- CALL 'modulepart'
- STOP RUN.
-_ATEOF
-
-
-cat >module.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. module.
- DATA DIVISION.
- PROCEDURE DIVISION.
- DISPLAY 'A' WITH NO ADVANCING
- GOBACK.
- ENTRY 'modulepart'.
- DISPLAY 'B' WITH NO ADVANCING
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1525: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:1525"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1525"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1526: \$COMPILE_MODULE module.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE module.cob" "run_fundamental.at:1526"
-( $at_check_trace; $COMPILE_MODULE module.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1526"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1527: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:1527"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "AB" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1527"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_536
-#AT_START_537
-at_fn_group_banner 537 'run_fundamental.at:1532' \
- "Entry point visibility (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "537. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# TODO: skip on __OS400__
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- PROCEDURE DIVISION.
- CALL 'module'
- STOP RUN.
-_ATEOF
-
-
-cat >module.c <<'_ATEOF'
-
-#include <stdio.h>
-#include <libcob.h>
-
-COB_EXT_EXPORT int
-some (void)
-{
- return 0;
-}
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1557: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:1557"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1557"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1558: \$COMPILE_MODULE module.c"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE module.c" "run_fundamental.at:1558"
-( $at_check_trace; $COMPILE_MODULE module.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1558"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# the warning itself is very system specific, so disable it,
-# then run again checking only for the warning
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1561: COB_DISABLE_WARNINGS=1 \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_DISABLE_WARNINGS=1 $COBCRUN_DIRECT ./prog" "run_fundamental.at:1561"
-( $at_check_trace; COB_DISABLE_WARNINGS=1 $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:6: error: entry point 'module' not found
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_fundamental.at:1561"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1564: \$COBCRUN_DIRECT ./prog 2> err.log"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog 2> err.log" "run_fundamental.at:1564"
-( $at_check_trace; $COBCRUN_DIRECT ./prog 2> err.log
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_fundamental.at:1564"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1565: \$GREP \"libcob: prog.cob:6: warning: \" err.log"
-at_fn_check_prepare_dynamic "$GREP \"libcob: prog.cob:6: warning: \" err.log" "run_fundamental.at:1565"
-( $at_check_trace; $GREP "libcob: prog.cob:6: warning: " err.log
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1565"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_537
-#AT_START_538
-at_fn_group_banner 538 'run_fundamental.at:1570' \
- "Contained program visibility (1)" " " 4
-at_xfail=no
-(
- printf "%s\n" "538. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(5) GLOBAL VALUE "prog1".
- PROCEDURE DIVISION.
- IF X NOT = "prog1"
- DISPLAY X
- END-DISPLAY
- END-IF.
- CALL "prog2"
- END-CALL.
- CALL "prog3"
- END-CALL.
- STOP RUN.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(5) GLOBAL VALUE "prog2".
- PROCEDURE DIVISION.
- IF X NOT = "prog2"
- DISPLAY X
- END-DISPLAY
- END-IF.
- CALL "prog3"
- END-CALL.
- EXIT PROGRAM.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- IF X NOT = "prog2"
- DISPLAY X
- END-DISPLAY
- END-IF
- EXIT PROGRAM.
- END PROGRAM prog3.
- END PROGRAM prog2.
- END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1617: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:1617"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1617"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1618: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:1618"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:14: error: module 'prog3' not found
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_fundamental.at:1618"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_538
-#AT_START_539
-at_fn_group_banner 539 'run_fundamental.at:1625' \
- "Contained program visibility (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "539. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(5) GLOBAL VALUE "prog1".
- PROCEDURE DIVISION.
- IF X NOT = "prog1"
- DISPLAY X
- END-DISPLAY
- END-IF.
- CALL "prog2"
- END-CALL.
- STOP RUN.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(5) GLOBAL VALUE "prog2".
- PROCEDURE DIVISION.
- IF X NOT = "prog2"
- DISPLAY X
- END-DISPLAY
- END-IF.
- CALL "prog3"
- END-CALL.
- EXIT PROGRAM.
- END PROGRAM prog2.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- IF X NOT = "prog2"
- DISPLAY X
- END-DISPLAY
- END-IF.
- EXIT PROGRAM.
- END PROGRAM prog3.
- END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1670: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:1670"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1670"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1671: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:1671"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:25: error: module 'prog3' not found
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_fundamental.at:1671"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_539
-#AT_START_540
-at_fn_group_banner 540 'run_fundamental.at:1678' \
- "Contained program visibility (3)" " " 4
-at_xfail=no
-(
- printf "%s\n" "540. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(5) GLOBAL VALUE "prog1".
- PROCEDURE DIVISION.
- IF X NOT = "prog1"
- DISPLAY X
- END-DISPLAY
- END-IF.
- CALL "prog2"
- END-CALL.
- STOP RUN.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(5) GLOBAL VALUE "prog2".
- PROCEDURE DIVISION.
- IF X NOT = "prog2"
- DISPLAY X
- END-DISPLAY
- END-IF.
- CALL "prog3"
- END-CALL.
- EXIT PROGRAM.
- END PROGRAM prog2.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3 COMMON.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- IF X NOT = "prog1"
- DISPLAY X
- END-DISPLAY
- END-IF.
- EXIT PROGRAM.
- END PROGRAM prog3.
- END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1723: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:1723"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1723"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1724: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:1724"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1724"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_540
-#AT_START_541
-at_fn_group_banner 541 'run_fundamental.at:1729' \
- "Contained program visibility (4)" " " 4
-at_xfail=no
-(
- printf "%s\n" "541. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY "P1" NO ADVANCING
- END-DISPLAY.
- CALL "prog2"
- END-CALL
- CALL "prog3"
- END-CALL
- STOP RUN.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY "P2" NO ADVANCING
- END-DISPLAY.
- EXIT PROGRAM.
- END PROGRAM prog2.
- END PROGRAM prog.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY "P3" NO ADVANCING
- END-DISPLAY.
- CALL "prog2"
- END-CALL.
- EXIT PROGRAM.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY "P4" NO ADVANCING
- END-DISPLAY.
- EXIT PROGRAM.
- END PROGRAM prog2.
- END PROGRAM prog3.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1777: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:1777"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1777"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1778: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:1778"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "P1P2P3P4" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1778"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_541
-#AT_START_542
-at_fn_group_banner 542 'run_fundamental.at:1784' \
- "CALL alphanumeric data-name" " " 4
-at_xfail=no
-(
- printf "%s\n" "542. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 prgm PIC X(32) VALUE "recursion-test".
-
- PROCEDURE DIVISION.
- CALL prgm
- DISPLAY "<"
-
- MOVE "cancel-test" TO prgm
- CALL prgm
- CALL prgm
- CANCEL prgm
- CALL prgm
- DISPLAY "<"
-
- MOVE "dummy-call" TO prgm
- CALL prgm
- >> IF CHECK-PERF IS DEFINED
- PERFORM 500000 TIMES
- CALL prgm
- END-PERFORM
- >> END-IF
- .
- END PROGRAM prog.
-
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. recursion-test RECURSIVE.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x PIC 9 VALUE 0.
-
- PROCEDURE DIVISION.
- ADD 1 TO x
- DISPLAY x NO ADVANCING
- IF x = 1
- CALL "recursion-test"
- END-IF
- .
- END PROGRAM recursion-test.
-
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. cancel-test.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x PIC 9 VALUE 1.
-
- PROCEDURE DIVISION.
- DISPLAY x NO ADVANCING
- ADD 1 TO x
- .
- END PROGRAM cancel-test.
-
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. dummy-call.
-
- PROCEDURE DIVISION.
- CONTINUE
- .
- END PROGRAM dummy-call.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1856: \$COMPILE -fno-program-name-redefinition prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fno-program-name-redefinition prog.cob" "run_fundamental.at:1856"
-( $at_check_trace; $COMPILE -fno-program-name-redefinition prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1856"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1857: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:1857"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "12<
-121<
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1857"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1861: COB_PHYSICAL_CANCEL=Y \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_PHYSICAL_CANCEL=Y $COBCRUN_DIRECT ./prog" "run_fundamental.at:1861"
-( $at_check_trace; COB_PHYSICAL_CANCEL=Y $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "12<
-121<
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1861"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1865: COB_PHYSICAL_CANCEL=NEVER \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_PHYSICAL_CANCEL=NEVER $COBCRUN_DIRECT ./prog" "run_fundamental.at:1865"
-( $at_check_trace; COB_PHYSICAL_CANCEL=NEVER $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "12<
-121<
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1865"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_542
-#AT_START_543
-at_fn_group_banner 543 'run_fundamental.at:1872' \
- "CALL program-pointer" " " 4
-at_xfail=no
-(
- printf "%s\n" "543. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 prog-ptr USAGE PROGRAM-POINTER.
- 77 num PIC 9 VALUE 0.
-
- PROCEDURE DIVISION.
- SET prog-ptr TO ADDRESS OF PROGRAM "recursion-test"
- CALL prog-ptr USING num
- DISPLAY "<"
-
- SET prog-ptr TO ADDRESS OF PROGRAM "cancel-test"
- CALL prog-ptr
- CALL prog-ptr
- CANCEL "cancel-test"
- *> NOTE: the following results in the previous address
- *> if physical cancel is not active, otherwise _likely_
- *> in a different one
- SET prog-ptr TO ADDRESS OF PROGRAM "cancel-test"
- CALL prog-ptr
- DISPLAY "<"
-
- SET prog-ptr TO ADDRESS OF PROGRAM "dummy-call"
- CALL prog-ptr
- >> IF CHECK-PERF IS DEFINED
- PERFORM 500000 TIMES
- CALL prog-ptr
- END-PERFORM
- >> END-IF
- .
- END PROGRAM prog.
-
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. recursion-test RECURSIVE.
-
- DATA DIVISION.
- LINKAGE SECTION.
- 01 x PIC 9.
-
- PROCEDURE DIVISION USING x.
- ADD 1 TO x
- DISPLAY x NO ADVANCING
- IF x = 1
- CALL "recursion-test" USING x
- END-IF
- .
- END PROGRAM recursion-test.
-
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. cancel-test.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 self-ptr USAGE PROGRAM-POINTER VALUE NULL.
- 01 x PIC 9 VALUE 1.
-
- PROCEDURE DIVISION.
- SET self-ptr TO ENTRY "cancel-test"
- IF self-ptr = NULL
- DISPLAY 'self-address not set' UPON SYSERR.
- DISPLAY x NO ADVANCING
- ADD 1 TO x
- .
- END PROGRAM cancel-test.
-
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. dummy-call.
-
- PROCEDURE DIVISION.
- CONTINUE
- .
- END PROGRAM dummy-call.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1956: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:1956"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1956"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1957: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:1957"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "12<
-121<
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1957"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:1961: COB_PHYSICAL_CANCEL=Y \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_PHYSICAL_CANCEL=Y $COBCRUN_DIRECT ./prog" "run_fundamental.at:1961"
-( $at_check_trace; COB_PHYSICAL_CANCEL=Y $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "12<
-121<
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:1961"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_543
-#AT_START_544
-at_fn_group_banner 544 'run_fundamental.at:1968' \
- "CALL/CANCEL/SET ADDRESS program-prototype-name" " " 4
-at_xfail=no
-(
- printf "%s\n" "544. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- *> simple prototypes
- IDENTIFICATION DIVISION.
- PROGRAM-ID. recursion-test PROTOTYPE.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 n PIC 9.
- PROCEDURE DIVISION USING n.
- END PROGRAM recursion-test.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. cancel-test IS PROTOTYPE.
- PROCEDURE DIVISION.
- END PROGRAM cancel-test.
-
- *> program referencing those prototpyes
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- REPOSITORY.
- PROGRAM recursion-test
- PROGRAM cancel-test
- .
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 prog-ptr USAGE PROGRAM-POINTER VALUE NULL.
- 01 num PIC 9 VALUE 0.
-
- PROCEDURE DIVISION.
- CALL recursion-test USING num
- DISPLAY "<"
-
- CALL cancel-test
- CALL cancel-test
- CANCEL cancel-test
- CALL cancel-test
- DISPLAY "<"
- SET prog-ptr TO ADDRESS OF PROGRAM recursion-test
- IF prog-ptr = NULL
- DISPLAY 'address of recursion-prog not set' UPON SYSERR
- ELSE
- SET prog-ptr TO NULL
- END-IF
- SET prog-ptr TO ADDRESS OF PROGRAM cancel-test
- IF prog-ptr = NULL
- DISPLAY 'address of cancel-prog not set' UPON SYSERR
- ELSE
- SET prog-ptr TO NULL
- END-IF
- .
- END PROGRAM prog.
-
- *> actual implementation of the prototyped programs
- IDENTIFICATION DIVISION.
- PROGRAM-ID. recursion-test RECURSIVE.
-
- DATA DIVISION.
- LINKAGE SECTION.
- 01 x PIC 9.
-
- PROCEDURE DIVISION USING x.
- ADD 1 TO x
- DISPLAY x NO ADVANCING
- IF x = 1
- *> CHECKME: Should this work (disabled for now...) ?
- *> CALL recursion-test USING x
- CALL "recursion-test" USING x
- END-IF
- .
- END PROGRAM recursion-test.
-
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. cancel-test.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x PIC 9 VALUE 1.
-
- PROCEDURE DIVISION.
- DISPLAY x NO ADVANCING
- ADD 1 TO x
- .
- END PROGRAM cancel-test.
-_ATEOF
-
-
-# TODO:
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2060: \$COMPILE -Wno-unfinished prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -Wno-unfinished prog.cob" "run_fundamental.at:2060"
-( $at_check_trace; $COMPILE -Wno-unfinished prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2060"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2061: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:2061"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "12<
-121<
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2061"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2065: COB_PHYSICAL_CANCEL=Y \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_PHYSICAL_CANCEL=Y $COBCRUN_DIRECT ./prog" "run_fundamental.at:2065"
-( $at_check_trace; COB_PHYSICAL_CANCEL=Y $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "12<
-121<
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2065"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_544
-#AT_START_545
-at_fn_group_banner 545 'run_fundamental.at:2072' \
- "GLOBAL FD (1)" " " 4
-at_xfail=no
-(
- printf "%s\n" "545. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE
- ASSIGN "TESTFILE"
- ACCESS DYNAMIC
- ORGANIZATION RELATIVE
- STATUS TESTSTAT
- RELATIVE KEY TESTKEY
- .
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE GLOBAL.
- 01 TEST-REC PIC X(4).
- WORKING-STORAGE SECTION.
- 01 GLOBVALS.
- 03 TESTKEY PIC 9(4).
- 03 TESTSTAT PIC XX.
- PROCEDURE DIVISION.
- OPEN INPUT TEST-FILE.
- CALL "prog2"
- END-CALL.
- CLOSE TEST-FILE.
- STOP RUN.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- READ TEST-FILE
- INVALID KEY
- DISPLAY "NOK"
- END-DISPLAY
- END-READ.
- EXIT PROGRAM.
- END PROGRAM prog2.
- END PROGRAM prog.
-_ATEOF
-
-
-# FIXME: move to different place or adjust test - note: so far
-# we only want to verify codegen
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2119: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:2119"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2119"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_545
-#AT_START_546
-at_fn_group_banner 546 'run_fundamental.at:2123' \
- "GLOBAL FD (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "546. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE
- ASSIGN "TESTFILE"
- ACCESS DYNAMIC
- ORGANIZATION INDEXED
- STATUS TESTSTAT
- RECORD KEY TESTKEY
- .
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE GLOBAL.
- 01 TEST-REC.
- 03 TESTKEY PIC X(4).
- WORKING-STORAGE SECTION.
- 01 GLOBVALS.
- 03 TESTSTAT PIC XX.
- PROCEDURE DIVISION.
- OPEN INPUT TEST-FILE.
- CALL "prog2"
- END-CALL.
- CLOSE TEST-FILE.
- STOP RUN.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- READ TEST-FILE
- INVALID KEY
- DISPLAY "NOK"
- END-DISPLAY
- END-READ.
- EXIT PROGRAM.
- END PROGRAM prog2.
- END PROGRAM prog.
-_ATEOF
-
-# FIXME: move to different place or adjust test - note: so far
-# we only want to verify codegen, otherwise add
-# AT_SKIP_IF([test "$COB_HAS_ISAM" = "no"])
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2170: \$COMPILE -Wno-unsupported prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -Wno-unsupported prog.cob" "run_fundamental.at:2170"
-( $at_check_trace; $COMPILE -Wno-unsupported prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2170"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_546
-#AT_START_547
-at_fn_group_banner 547 'run_fundamental.at:2175' \
- "GLOBAL FD (3)" " " 4
-at_xfail=no
-(
- printf "%s\n" "547. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE
- ASSIGN "TESTFILE"
- ACCESS DYNAMIC
- ORGANIZATION RELATIVE
- STATUS TESTSTAT
- RELATIVE KEY TESTKEY
- .
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE GLOBAL.
- 01 TEST-REC PIC X(4).
- WORKING-STORAGE SECTION.
- 01 GLOBVALS.
- 03 TESTKEY PIC 9(4).
- 03 TESTSTAT PIC XX.
- PROCEDURE DIVISION.
- MOVE "00" TO TESTSTAT.
- CALL "prog2"
- END-CALL.
- IF TESTSTAT = "00"
- DISPLAY "Not OK"
- END-DISPLAY
- END-IF.
- STOP RUN.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- OPEN INPUT TEST-FILE.
- EXIT PROGRAM.
- END PROGRAM prog2.
- END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2219: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:2219"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2219"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2220: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:2220"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2220"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_547
-#AT_START_548
-at_fn_group_banner 548 'run_fundamental.at:2225' \
- "GLOBAL FD (4)" " " 4
-at_xfail=no
-(
- printf "%s\n" "548. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE
- ASSIGN "TESTFILE"
- ACCESS DYNAMIC
- ORGANIZATION INDEXED
- STATUS TESTSTAT
- RECORD KEY TESTKEY
- .
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE GLOBAL.
- 01 TEST-REC.
- 03 TESTKEY PIC X(4).
- WORKING-STORAGE SECTION.
- 01 GLOBVALS.
- 03 TESTSTAT PIC XX.
- PROCEDURE DIVISION.
- MOVE "00" TO TESTSTAT.
- CALL "prog2"
- END-CALL.
- IF TESTSTAT = "00"
- DISPLAY "Not OK"
- END-DISPLAY
- END-IF.
- STOP RUN.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- OPEN INPUT TEST-FILE.
- EXIT PROGRAM.
- END PROGRAM prog2.
- END PROGRAM prog.
-_ATEOF
-
-
-# Note: special check: we test the invalid open here, it doesn't
-# matter _why_ it is invalid (missing file / missing support)
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2271: \$COMPILE -Wno-unsupported prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -Wno-unsupported prog.cob" "run_fundamental.at:2271"
-( $at_check_trace; $COMPILE -Wno-unsupported prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2271"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2272: COB_DISABLE_WARNINGS=1 \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_DISABLE_WARNINGS=1 $COBCRUN_DIRECT ./prog" "run_fundamental.at:2272"
-( $at_check_trace; COB_DISABLE_WARNINGS=1 $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2272"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_548
-#AT_START_549
-at_fn_group_banner 549 'run_fundamental.at:2277' \
- "CANCEL test (1)" " " 4
-at_xfail=no
-(
- printf "%s\n" "549. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- CANCEL "notthere".
- CANCEL "prog".
- DISPLAY "NG" NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2293: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:2293"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2293"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2294: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:2294"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:8: error: attempt to CANCEL active program
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_fundamental.at:2294"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2297: COB_PHYSICAL_CANCEL=1 ./prog"
-at_fn_check_prepare_trace "run_fundamental.at:2297"
-( $at_check_trace; COB_PHYSICAL_CANCEL=1 ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:8: error: attempt to CANCEL active program
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_fundamental.at:2297"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_549
-#AT_START_550
-at_fn_group_banner 550 'run_fundamental.at:2304' \
- "CANCEL test (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "550. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- CALL "prog2".
- DISPLAY "NG" NO ADVANCING.
- STOP RUN.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- CANCEL "prog".
- DISPLAY "NG" NO ADVANCING.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2329: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:2329"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2329"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2330: \$COMPILE_MODULE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE prog2.cob" "run_fundamental.at:2330"
-( $at_check_trace; $COMPILE_MODULE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2330"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2331: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:2331"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog2.cob:7: error: attempt to CANCEL active program
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_fundamental.at:2331"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2334: COB_PHYSICAL_CANCEL=1 ./prog"
-at_fn_check_prepare_trace "run_fundamental.at:2334"
-( $at_check_trace; COB_PHYSICAL_CANCEL=1 ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog2.cob:7: error: attempt to CANCEL active program
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_fundamental.at:2334"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_550
-#AT_START_551
-at_fn_group_banner 551 'run_fundamental.at:2341' \
- "CANCEL test (3)" " " 4
-at_xfail=no
-(
- printf "%s\n" "551. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- CALL "prog2".
- CALL "prog2".
- CANCEL "prog2".
- CALL "prog2".
- CANCEL "prog2".
- DISPLAY "NG" NO ADVANCING.
- STOP RUN.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 VAR PIC 9(01) value 1.
- PROCEDURE DIVISION.
- DISPLAY VAR NO ADVANCING.
- ADD 1 TO VAR.
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2371: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:2371"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2371"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2372: \$COMPILE_MODULE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE prog2.cob" "run_fundamental.at:2372"
-( $at_check_trace; $COMPILE_MODULE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2372"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2373: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:2373"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "121NG" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2373"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2374: COB_PHYSICAL_CANCEL=1 ./prog"
-at_fn_check_prepare_trace "run_fundamental.at:2374"
-( $at_check_trace; COB_PHYSICAL_CANCEL=1 ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "121NG" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2374"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_551
-#AT_START_552
-at_fn_group_banner 552 'run_fundamental.at:2379' \
- "Separate sign positions (1)" " " 4
-at_xfail=no
-(
- printf "%s\n" "552. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC S9 VALUE -1 SIGN LEADING SEPARATE.
- 01 Y PIC S9 VALUE -1 SIGN TRAILING SEPARATE.
- PROCEDURE DIVISION.
- DISPLAY X(1:1) X(2:1) NO ADVANCING
- END-DISPLAY.
- DISPLAY Y(1:1) Y(2:1) NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2397: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:2397"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2397"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2398: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:2398"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "-11-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2398"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_552
-#AT_START_553
-at_fn_group_banner 553 'run_fundamental.at:2403' \
- "Separate sign positions (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "553. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC S9 SIGN LEADING SEPARATE.
- 01 Y PIC S9 SIGN TRAILING SEPARATE.
- PROCEDURE DIVISION.
- MOVE 0 TO X.
- DISPLAY X NO ADVANCING
- END-DISPLAY.
- MOVE ZERO TO X.
- DISPLAY X NO ADVANCING
- END-DISPLAY.
- MOVE 0 TO Y.
- DISPLAY Y NO ADVANCING
- END-DISPLAY.
- MOVE ZERO TO Y.
- DISPLAY Y NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2428: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:2428"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2428"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2429: \$COMPILE_MODULE -fpretty-display prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE -fpretty-display prog.cob" "run_fundamental.at:2429"
-( $at_check_trace; $COMPILE_MODULE -fpretty-display prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2429"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2430: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:2430"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "+0+00+0+" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2430"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2431: \$COBCRUN prog"
-at_fn_check_prepare_dynamic "$COBCRUN prog" "run_fundamental.at:2431"
-( $at_check_trace; $COBCRUN prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "+0+00+0+" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2431"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_553
-#AT_START_554
-at_fn_group_banner 554 'run_fundamental.at:2436' \
- "Context sensitive words (1)" " " 4
-at_xfail=no
-(
- printf "%s\n" "554. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 BYTE-LENGTH PIC 9.
- 01 X CONSTANT AS BYTE-LENGTH OF BYTE-LENGTH.
- PROCEDURE DIVISION.
- MOVE X TO BYTE-LENGTH.
- DISPLAY BYTE-LENGTH NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2453: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:2453"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2453"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2454: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:2454"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "1" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2454"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_554
-#AT_START_555
-at_fn_group_banner 555 'run_fundamental.at:2459' \
- "Context sensitive words (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "555. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 YYYYMMDD PIC 9 VALUE 0.
- 01 X PIC X(16).
- PROCEDURE DIVISION.
- ACCEPT X FROM DATE YYYYMMDD
- END-ACCEPT.
- DISPLAY YYYYMMDD NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2477: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:2477"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2477"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2478: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:2478"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "0" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2478"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_555
-#AT_START_556
-at_fn_group_banner 556 'run_fundamental.at:2483' \
- "Context sensitive words (3)" " " 4
-at_xfail=no
-(
- printf "%s\n" "556. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 YYYYDDD PIC 9 VALUE 0.
- 01 X PIC X(16).
- PROCEDURE DIVISION.
- ACCEPT X FROM DAY YYYYDDD
- END-ACCEPT.
- DISPLAY YYYYDDD NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2501: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:2501"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2501"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2502: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:2502"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "0" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2502"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_556
-#AT_START_557
-at_fn_group_banner 557 'run_fundamental.at:2507' \
- "Context sensitive words (4)" " " 4
-at_xfail=no
-(
- printf "%s\n" "557. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- REPOSITORY.
- FUNCTION ALL INTRINSIC.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 INTRINSIC PIC 9 VALUE 0.
- PROCEDURE DIVISION.
- DISPLAY INTRINSIC NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2526: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:2526"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2526"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2527: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:2527"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "0" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2527"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_557
-#AT_START_558
-at_fn_group_banner 558 'run_fundamental.at:2532' \
- "Context sensitive words (5)" " " 4
-at_xfail=no
-(
- printf "%s\n" "558. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog RECURSIVE.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 RECURSIVE PIC 9 VALUE 0.
- PROCEDURE DIVISION.
- DISPLAY RECURSIVE NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2549: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:2549"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2549"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2550: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:2550"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "0" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2550"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_558
-#AT_START_559
-at_fn_group_banner 559 'run_fundamental.at:2555' \
- "Context sensitive words (6)" " " 4
-at_xfail=no
-(
- printf "%s\n" "559. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 NORMAL PIC 9 VALUE 0.
- PROCEDURE DIVISION.
- DISPLAY NORMAL NO ADVANCING *> Intentionally no period or END-DISPLAY
- STOP RUN NORMAL.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2571: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:2571"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2571"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2572: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:2572"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "0" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2572"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_559
-#AT_START_560
-at_fn_group_banner 560 'run_fundamental.at:2577' \
- "Context sensitive words (7)" " " 4
-at_xfail=no
-(
- printf "%s\n" "560. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC 9 VALUE 0.
- 01 AWAY-FROM-ZERO PIC 9 VALUE 0.
- PROCEDURE DIVISION.
- COMPUTE X ROUNDED MODE AWAY-FROM-ZERO
- AWAY-FROM-ZERO = 1.1
- END-COMPUTE
- DISPLAY X AWAY-FROM-ZERO NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2598: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:2598"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2598"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2599: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:2599"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "21" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2599"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_560
-#AT_START_561
-at_fn_group_banner 561 'run_fundamental.at:2604' \
- "Context sensitive words (8)" " " 4
-at_xfail=no
-(
- printf "%s\n" "561. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 UNBOUNDED.
- 03 ATTRIBUTES PIC 9 VALUE 0.
- 01 LOC.
- 03 NAMESPACE PIC 9 VALUE 1.
- PROCEDURE DIVISION.
- DISPLAY UNBOUNDED ATTRIBUTES
- NAMESPACE IN LOC
- NO ADVANCING.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2625: \$COMPILE -std=ibm-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=ibm-strict prog.cob" "run_fundamental.at:2625"
-( $at_check_trace; $COMPILE -std=ibm-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2625"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2626: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:2626"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "001" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2626"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_561
-#AT_START_562
-at_fn_group_banner 562 'run_fundamental.at:2631' \
- "ROUNDED AWAY-FROM-ZERO" " " 4
-at_xfail=no
-(
- printf "%s\n" "562. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 M PIC S9.
- 01 N PIC S9.
- 01 O PIC S9.
- 01 P PIC S9.
- 01 Q PIC S9.
- 01 R PIC S9.
- 01 S PIC S9.
- 01 T PIC S9.
- 01 U PIC S9.
- 01 V PIC S9.
- PROCEDURE DIVISION.
- COMPUTE M ROUNDED MODE AWAY-FROM-ZERO
- = 2.49
- END-COMPUTE
- COMPUTE N ROUNDED MODE AWAY-FROM-ZERO
- = -2.49
- END-COMPUTE
- COMPUTE O ROUNDED MODE AWAY-FROM-ZERO
- = 2.50
- END-COMPUTE
- COMPUTE P ROUNDED MODE AWAY-FROM-ZERO
- = -2.50
- END-COMPUTE
- COMPUTE Q ROUNDED MODE AWAY-FROM-ZERO
- = 3.49
- END-COMPUTE
- COMPUTE R ROUNDED MODE AWAY-FROM-ZERO
- = -3.49
- END-COMPUTE
- COMPUTE S ROUNDED MODE AWAY-FROM-ZERO
- = 3.50
- END-COMPUTE
- COMPUTE T ROUNDED MODE AWAY-FROM-ZERO
- = -3.50
- END-COMPUTE
- COMPUTE U ROUNDED MODE AWAY-FROM-ZERO
- = 3.510
- END-COMPUTE
- COMPUTE V ROUNDED MODE AWAY-FROM-ZERO
- = -3.510
- END-COMPUTE
- DISPLAY M " " N " " O " " P " " Q " " R " " S " " T
- " " U " " V
- NO ADVANCING
- END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2688: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:2688"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2688"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2689: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:2689"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "+3 -3 +3 -3 +4 -4 +4 -4 +4 -4" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2689"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_562
-#AT_START_563
-at_fn_group_banner 563 'run_fundamental.at:2694' \
- "ROUNDED NEAREST-AWAY-FROM-ZERO" " " 4
-at_xfail=no
-(
- printf "%s\n" "563. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 M PIC S9.
- 01 N PIC S9.
- 01 O PIC S9.
- 01 P PIC S9.
- 01 Q PIC S9.
- 01 R PIC S9.
- 01 S PIC S9.
- 01 T PIC S9.
- 01 U PIC S9.
- 01 V PIC S9.
- PROCEDURE DIVISION.
- COMPUTE M ROUNDED MODE NEAREST-AWAY-FROM-ZERO
- = 2.49
- END-COMPUTE
- COMPUTE N ROUNDED MODE NEAREST-AWAY-FROM-ZERO
- = -2.49
- END-COMPUTE
- COMPUTE O ROUNDED MODE NEAREST-AWAY-FROM-ZERO
- = 2.50
- END-COMPUTE
- COMPUTE P ROUNDED MODE NEAREST-AWAY-FROM-ZERO
- = -2.50
- END-COMPUTE
- COMPUTE Q ROUNDED MODE NEAREST-AWAY-FROM-ZERO
- = 3.49
- END-COMPUTE
- COMPUTE R ROUNDED MODE NEAREST-AWAY-FROM-ZERO
- = -3.49
- END-COMPUTE
- COMPUTE S ROUNDED MODE NEAREST-AWAY-FROM-ZERO
- = 3.50
- END-COMPUTE
- COMPUTE T ROUNDED MODE NEAREST-AWAY-FROM-ZERO
- = -3.50
- END-COMPUTE
- COMPUTE U ROUNDED MODE NEAREST-AWAY-FROM-ZERO
- = 3.510
- END-COMPUTE
- COMPUTE V ROUNDED MODE NEAREST-AWAY-FROM-ZERO
- = -3.510
- END-COMPUTE
- DISPLAY M " " N " " O " " P " " Q " " R " " S " " T
- " " U " " V
- NO ADVANCING
- END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2751: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:2751"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2751"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2752: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:2752"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "+2 -2 +3 -3 +3 -3 +4 -4 +4 -4" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2752"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_563
-#AT_START_564
-at_fn_group_banner 564 'run_fundamental.at:2757' \
- "ROUNDED NEAREST-EVEN" " " 4
-at_xfail=no
-(
- printf "%s\n" "564. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 M PIC S9.
- 01 N PIC S9.
- 01 O PIC S9.
- 01 P PIC S9.
- 01 Q PIC S9.
- 01 R PIC S9.
- 01 S PIC S9.
- 01 T PIC S9.
- 01 U PIC S9.
- 01 V PIC S9.
- PROCEDURE DIVISION.
- COMPUTE M ROUNDED MODE NEAREST-EVEN
- = 2.49
- END-COMPUTE
- COMPUTE N ROUNDED MODE NEAREST-EVEN
- = -2.49
- END-COMPUTE
- COMPUTE O ROUNDED MODE NEAREST-EVEN
- = 2.50
- END-COMPUTE
- COMPUTE P ROUNDED MODE NEAREST-EVEN
- = -2.50
- END-COMPUTE
- COMPUTE Q ROUNDED MODE NEAREST-EVEN
- = 3.49
- END-COMPUTE
- COMPUTE R ROUNDED MODE NEAREST-EVEN
- = -3.49
- END-COMPUTE
- COMPUTE S ROUNDED MODE NEAREST-EVEN
- = 3.50
- END-COMPUTE
- COMPUTE T ROUNDED MODE NEAREST-EVEN
- = -3.50
- END-COMPUTE
- COMPUTE U ROUNDED MODE NEAREST-EVEN
- = 3.510
- END-COMPUTE
- COMPUTE V ROUNDED MODE NEAREST-EVEN
- = -3.510
- END-COMPUTE
- DISPLAY M " " N " " O " " P " " Q " " R " " S " " T
- " " U " " V
- NO ADVANCING
- END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2814: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:2814"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2814"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2815: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:2815"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "+2 -2 +2 -2 +3 -3 +4 -4 +4 -4" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2815"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_564
-#AT_START_565
-at_fn_group_banner 565 'run_fundamental.at:2820' \
- "ROUNDED NEAREST-TOWARD-ZERO" " " 4
-at_xfail=no
-(
- printf "%s\n" "565. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 M PIC S9.
- 01 N PIC S9.
- 01 O PIC S9.
- 01 P PIC S9.
- 01 Q PIC S9.
- 01 R PIC S9.
- 01 S PIC S9.
- 01 T PIC S9.
- 01 U PIC S9.
- 01 V PIC S9.
- PROCEDURE DIVISION.
- COMPUTE M ROUNDED MODE NEAREST-TOWARD-ZERO
- = 2.49
- END-COMPUTE
- COMPUTE N ROUNDED MODE NEAREST-TOWARD-ZERO
- = -2.49
- END-COMPUTE
- COMPUTE O ROUNDED MODE NEAREST-TOWARD-ZERO
- = 2.50
- END-COMPUTE
- COMPUTE P ROUNDED MODE NEAREST-TOWARD-ZERO
- = -2.50
- END-COMPUTE
- COMPUTE Q ROUNDED MODE NEAREST-TOWARD-ZERO
- = 3.49
- END-COMPUTE
- COMPUTE R ROUNDED MODE NEAREST-TOWARD-ZERO
- = -3.49
- END-COMPUTE
- COMPUTE S ROUNDED MODE NEAREST-TOWARD-ZERO
- = 3.50
- END-COMPUTE
- COMPUTE T ROUNDED MODE NEAREST-TOWARD-ZERO
- = -3.50
- END-COMPUTE
- COMPUTE U ROUNDED MODE NEAREST-TOWARD-ZERO
- = 3.510
- END-COMPUTE
- COMPUTE V ROUNDED MODE NEAREST-TOWARD-ZERO
- = -3.510
- END-COMPUTE
- DISPLAY M " " N " " O " " P " " Q " " R " " S " " T
- " " U " " V
- NO ADVANCING
- END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2877: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:2877"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2877"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2878: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:2878"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "+2 -2 +2 -2 +3 -3 +3 -3 +4 -4" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2878"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_565
-#AT_START_566
-at_fn_group_banner 566 'run_fundamental.at:2883' \
- "ROUNDED TOWARD-GREATER" " " 4
-at_xfail=no
-(
- printf "%s\n" "566. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 M PIC S9.
- 01 N PIC S9.
- 01 O PIC S9.
- 01 P PIC S9.
- 01 Q PIC S9.
- 01 R PIC S9.
- 01 S PIC S9.
- 01 T PIC S9.
- 01 U PIC S9.
- 01 V PIC S9.
- PROCEDURE DIVISION.
- COMPUTE M ROUNDED MODE TOWARD-GREATER
- = 2.49
- END-COMPUTE
- COMPUTE N ROUNDED MODE TOWARD-GREATER
- = -2.49
- END-COMPUTE
- COMPUTE O ROUNDED MODE TOWARD-GREATER
- = 2.50
- END-COMPUTE
- COMPUTE P ROUNDED MODE TOWARD-GREATER
- = -2.50
- END-COMPUTE
- COMPUTE Q ROUNDED MODE TOWARD-GREATER
- = 3.49
- END-COMPUTE
- COMPUTE R ROUNDED MODE TOWARD-GREATER
- = -3.49
- END-COMPUTE
- COMPUTE S ROUNDED MODE TOWARD-GREATER
- = 3.50
- END-COMPUTE
- COMPUTE T ROUNDED MODE TOWARD-GREATER
- = -3.50
- END-COMPUTE
- COMPUTE U ROUNDED MODE TOWARD-GREATER
- = 3.510
- END-COMPUTE
- COMPUTE V ROUNDED MODE TOWARD-GREATER
- = -3.510
- END-COMPUTE
- DISPLAY M " " N " " O " " P " " Q " " R " " S " " T
- " " U " " V
- NO ADVANCING
- END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2940: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:2940"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2940"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:2941: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:2941"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "+3 -2 +3 -2 +4 -3 +4 -3 +4 -3" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:2941"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_566
-#AT_START_567
-at_fn_group_banner 567 'run_fundamental.at:2946' \
- "ROUNDED TOWARD-LESSER" " " 4
-at_xfail=no
-(
- printf "%s\n" "567. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 M PIC S9.
- 01 N PIC S9.
- 01 O PIC S9.
- 01 P PIC S9.
- 01 Q PIC S9.
- 01 R PIC S9.
- 01 S PIC S9.
- 01 T PIC S9.
- 01 U PIC S9.
- 01 V PIC S9.
- PROCEDURE DIVISION.
- COMPUTE M ROUNDED MODE TOWARD-LESSER
- = 2.49
- END-COMPUTE
- COMPUTE N ROUNDED MODE TOWARD-LESSER
- = -2.49
- END-COMPUTE
- COMPUTE O ROUNDED MODE TOWARD-LESSER
- = 2.50
- END-COMPUTE
- COMPUTE P ROUNDED MODE TOWARD-LESSER
- = -2.50
- END-COMPUTE
- COMPUTE Q ROUNDED MODE TOWARD-LESSER
- = 3.49
- END-COMPUTE
- COMPUTE R ROUNDED MODE TOWARD-LESSER
- = -3.49
- END-COMPUTE
- COMPUTE S ROUNDED MODE TOWARD-LESSER
- = 3.50
- END-COMPUTE
- COMPUTE T ROUNDED MODE TOWARD-LESSER
- = -3.50
- END-COMPUTE
- COMPUTE U ROUNDED MODE TOWARD-LESSER
- = 3.510
- END-COMPUTE
- COMPUTE V ROUNDED MODE TOWARD-LESSER
- = -3.510
- END-COMPUTE
- DISPLAY M " " N " " O " " P " " Q " " R " " S " " T
- " " U " " V
- NO ADVANCING
- END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:3003: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:3003"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:3003"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:3004: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:3004"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "+2 -3 +2 -3 +3 -4 +3 -4 +3 -4" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:3004"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_567
-#AT_START_568
-at_fn_group_banner 568 'run_fundamental.at:3009' \
- "ROUNDED TRUNCATION" " " 4
-at_xfail=no
-(
- printf "%s\n" "568. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 M PIC S9.
- 01 N PIC S9.
- 01 O PIC S9.
- 01 P PIC S9.
- 01 Q PIC S9.
- 01 R PIC S9.
- 01 S PIC S9.
- 01 T PIC S9.
- 01 U PIC S9.
- 01 V PIC S9.
- PROCEDURE DIVISION.
- COMPUTE M ROUNDED MODE TRUNCATION
- = 2.49
- END-COMPUTE
- COMPUTE N ROUNDED MODE TRUNCATION
- = -2.49
- END-COMPUTE
- COMPUTE O ROUNDED MODE TRUNCATION
- = 2.50
- END-COMPUTE
- COMPUTE P ROUNDED MODE TRUNCATION
- = -2.50
- END-COMPUTE
- COMPUTE Q ROUNDED MODE TRUNCATION
- = 3.49
- END-COMPUTE
- COMPUTE R ROUNDED MODE TRUNCATION
- = -3.49
- END-COMPUTE
- COMPUTE S ROUNDED MODE TRUNCATION
- = 3.50
- END-COMPUTE
- COMPUTE T ROUNDED MODE TRUNCATION
- = -3.50
- END-COMPUTE
- COMPUTE U ROUNDED MODE TRUNCATION
- = 3.510
- END-COMPUTE
- COMPUTE V ROUNDED MODE TRUNCATION
- = -3.510
- END-COMPUTE
- DISPLAY M " " N " " O " " P " " Q " " R " " S " " T
- " " U " " V
- NO ADVANCING
- END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:3066: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:3066"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:3066"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:3067: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:3067"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "+2 -2 +2 -2 +3 -3 +3 -3 +3 -3" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:3067"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_568
-#AT_START_569
-at_fn_group_banner 569 'run_fundamental.at:3072' \
- "Numeric operations (1)" " " 4
-at_xfail=no
-(
- printf "%s\n" "569. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC S9V9.
- 01 Y PIC S9V9 COMP-3.
- PROCEDURE DIVISION.
- MOVE -0.1 TO X.
- ADD 1 TO X.
- IF X NOT = 0.9
- DISPLAY X.
- MOVE 0.1 TO X.
- SUBTRACT 1 FROM X.
- IF X NOT = -0.9
- DISPLAY X.
- MOVE -0.1 TO Y.
- ADD 1 TO Y.
- IF Y NOT = 0.9
- DISPLAY Y.
- MOVE 0.1 TO Y.
- SUBTRACT 1 FROM Y.
- IF Y NOT = -0.9
- DISPLAY Y.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:3102: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:3102"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:3102"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:3103: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:3103"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:3103"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_569
-#AT_START_570
-at_fn_group_banner 570 'run_fundamental.at:3108' \
- "Numeric operations (2) DISPLAY" " " 4
-at_xfail=no
-(
- printf "%s\n" "570. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 FIELD PIC S9(1)V9(1).
- 01 FELD2 PIC S9(5)V9(5).
- 01 FELD3 PIC 9(1)V9(1).
- 01 FELD4 PIC S9(1).
- 01 FILLER USAGE BINARY-INT VALUE 0.
- 88 DO-DISP VALUE 0.
- 88 NO-DISP VALUE 1.
- REPLACE ==DISPLAY== BY ==IF DO-DISP DISPLAY==.
-
- PROCEDURE DIVISION.
- MAIN.
- * Test with DISPLAY on error
- PERFORM DO-CHECK.
- >> IF CHECK-PERF IS DEFINED
- SET NO-DISP TO TRUE
- * some performance checks on the way...
- PERFORM DO-CHECK 20000 TIMES.
- >> END-IF
- GOBACK.
-
- DO-CHECK.
- MOVE 0.2 TO FIELD
- ADD 1 TO FIELD
- IF FIELD NOT = 1.2
- DISPLAY "Test 1 " FIELD.
-
- MOVE 0.2 TO FIELD
- ADD -1 TO FIELD
- IF FIELD NOT = -0.8
- DISPLAY "Test 2 " FIELD.
-
- MOVE -0.2 TO FIELD
- ADD 1 TO FIELD
- IF FIELD NOT = 0.8
- DISPLAY "Test 3 " FIELD.
-
- MOVE -0.2 TO FIELD
- ADD -1 TO FIELD
- IF FIELD NOT = -1.2
- DISPLAY "Test 4 " FIELD.
-
- MOVE 0.2 TO FIELD
- SUBTRACT 1 FROM FIELD
- IF FIELD NOT = -0.8
- DISPLAY "Test 5 " FIELD.
-
- MOVE 0.2 TO FIELD
- SUBTRACT -1 FROM FIELD
- IF FIELD NOT = 1.2
- DISPLAY "Test 6 " FIELD.
-
- MOVE -0.2 TO FIELD
- SUBTRACT 1 FROM FIELD
- IF FIELD NOT = -1.2
- DISPLAY "Test 7 " FIELD.
-
- MOVE -0.2 TO FIELD
- SUBTRACT -1 FROM FIELD
- IF FIELD NOT = 0.8
- DISPLAY "Test 8 " FIELD.
-
- MOVE 0.2 TO FELD2
- ADD 1 TO FELD2
- IF FELD2 NOT = 1.2
- DISPLAY "Test 9 " FELD2.
-
- MOVE 0.2 TO FELD2
- ADD -1 TO FELD2
- IF FELD2 NOT = -0.8
- DISPLAY "Test 10 " FELD2.
-
- MOVE -0.2 TO FELD2
- ADD 1 TO FELD2
- IF FELD2 NOT = 0.8
- DISPLAY "Test 11 " FELD2.
-
- MOVE -0.2 TO FELD2
- ADD -1 TO FELD2
- IF FELD2 NOT = -1.2
- DISPLAY "Test 12 " FELD2.
-
- MOVE 0.2 TO FELD2
- SUBTRACT 1 FROM FELD2
- IF FELD2 NOT = -0.8
- DISPLAY "Test 13 " FELD2.
-
- MOVE 0.2 TO FELD2
- SUBTRACT -1 FROM FELD2
- IF FELD2 NOT = 1.2
- DISPLAY "Test 14 " FELD2.
-
- MOVE -0.2 TO FELD2
- SUBTRACT 1 FROM FELD2
- IF FELD2 NOT = -1.2
- DISPLAY "Test 15 " FELD2.
-
- MOVE -0.2 TO FELD2
- SUBTRACT -1 FROM FELD2
- IF FELD2 NOT = 0.8
- DISPLAY "Test 16 " FELD2.
-
- MOVE 0.2 TO FELD3
- ADD 1 TO FELD3
- IF FELD3 NOT = 1.2
- DISPLAY "Test 17 " FELD3.
-
- MOVE 0.2 TO FELD3
- ADD -1 TO FELD3
- IF FELD3 NOT = 0.8
- DISPLAY "Test 18 " FELD3.
-
- MOVE -0.2 TO FELD3
- ADD 1 TO FELD3
- IF FELD3 NOT = 1.2
- DISPLAY "Test 19 " FELD3.
-
- MOVE -0.2 TO FELD3
- ADD -1 TO FELD3
- IF FELD3 NOT = 0.8
- DISPLAY "Test 20 " FELD3.
-
- MOVE 0.2 TO FELD3
- SUBTRACT 1 FROM FELD3
- IF FELD3 NOT = 0.8
- DISPLAY "Test 21 " FELD3.
-
- MOVE 0.2 TO FELD3
- SUBTRACT -1 FROM FELD3
- IF FELD3 NOT = 1.2
- DISPLAY "Test 22 " FELD3.
-
- MOVE -0.2 TO FELD3
- SUBTRACT 1 FROM FELD3
- IF FELD3 NOT = 0.8
- DISPLAY "Test 23 " FELD3.
-
- MOVE -0.2 TO FELD3
- SUBTRACT -1 FROM FELD3
- IF FELD3 NOT = 1.2
- DISPLAY "Test 24 " FELD3.
-
- MOVE 2 TO FELD4
- ADD 1 TO FELD4
- IF FELD4 NOT = 3
- DISPLAY "Test 25 " FELD4.
-
- MOVE 2 TO FELD4
- ADD -1 TO FELD4
- IF FELD4 NOT = 1
- DISPLAY "Test 26 " FELD4.
-
- MOVE -2 TO FELD4
- ADD 1 TO FELD4
- IF FELD4 NOT = -1
- DISPLAY "Test 27 " FELD4.
-
- MOVE -2 TO FELD4
- ADD -1 TO FELD4
- IF FELD4 NOT = -3
- DISPLAY "Test 28 " FELD4.
-
- MOVE 2 TO FELD4
- SUBTRACT 1 FROM FELD4
- IF FELD4 NOT = 1
- DISPLAY "Test 29 " FELD4.
-
- MOVE 2 TO FELD4
- SUBTRACT -1 FROM FELD4
- IF FELD4 NOT = 3
- DISPLAY "Test 30 " FELD4.
-
- MOVE -2 TO FELD4
- SUBTRACT 1 FROM FELD4
- IF FELD4 NOT = -3
- DISPLAY "Test 31 " FELD4.
-
- MOVE -2 TO FELD4
- SUBTRACT -1 FROM FELD4
- IF FELD4 NOT = -1
- DISPLAY "Test 32 " FELD4.
-
- MOVE 1 TO FELD4
- ADD 2 TO FELD4
- IF FELD4 NOT = 3
- DISPLAY "Test 33 " FELD4.
-
- MOVE 1 TO FELD4
- ADD -2 TO FELD4
- IF FELD4 NOT = -1
- DISPLAY "Test 34 " FELD4.
-
- MOVE -1 TO FELD4
- ADD 2 TO FELD4
- IF FELD4 NOT = 1
- DISPLAY "Test 35 " FELD4.
-
- MOVE -1 TO FELD4
- ADD -2 TO FELD4
- IF FELD4 NOT = -3
- DISPLAY "Test 36 " FELD4.
-
- MOVE 1 TO FELD4
- SUBTRACT 2 FROM FELD4
- IF FELD4 NOT = -1
- DISPLAY "Test 37 " FELD4.
-
- MOVE 1 TO FELD4
- SUBTRACT -2 FROM FELD4
- IF FELD4 NOT = 3
- DISPLAY "Test 38 " FELD4.
-
- MOVE -1 TO FELD4
- SUBTRACT 2 FROM FELD4
- IF FELD4 NOT = -3
- DISPLAY "Test 39 " FELD4.
-
- MOVE -1 TO FELD4
- SUBTRACT -2 FROM FELD4
- IF FELD4 NOT = 1
- DISPLAY "Test 40 " FELD4.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:3338: \$COMPILE -Wno-truncate prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -Wno-truncate prog.cob" "run_fundamental.at:3338"
-( $at_check_trace; $COMPILE -Wno-truncate prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:3338"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:3339: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:3339"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:3339"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_570
-#AT_START_571
-at_fn_group_banner 571 'run_fundamental.at:3344' \
- "Numeric operations (3) PACKED-DECIMAL" " " 4
-at_xfail=no
-(
- printf "%s\n" "571. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 FIELD PIC S9(1)V9(1) COMP-3.
- 01 FELD2 PIC S9(5)V9(5) COMP-3.
- 01 FELD3 PIC 9(1)V9(1) COMP-3.
- 01 FELD4 PIC S9(1) COMP-3.
- 01 FELD4b PIC S9(4) COMP-3.
- 01 FELD5 PIC 9(9)v9(9) COMP-3.
- 01 FELD5b PIC 9(18) COMP-3.
- 01 FELD6 PIC 9(8)v9(20) COMP-3.
- 01 FELD6b PIC s9(8)9(20) COMP-3.
- 01 FILLER USAGE BINARY-INT VALUE 0.
- 88 DO-DISP VALUE 0.
- 88 NO-DISP VALUE 1.
- REPLACE ==DISPLAY== BY ==IF DO-DISP DISPLAY==.
-
- PROCEDURE DIVISION.
- * Test with DISPLAY on error
- PERFORM DO-CHECK.
- >> IF CHECK-PERF IS DEFINED
- SET NO-DISP TO TRUE
- * some performance checks on the way...
- PERFORM DO-CHECK 20000 TIMES.
- >> END-IF
- GOBACK.
-
- DO-CHECK.
- MOVE 0.2 TO FIELD
- ADD 1 TO FIELD
- IF FIELD NOT = 1.2
- DISPLAY "Test 1 " FIELD.
-
- MOVE 0.2 TO FIELD
- ADD -1 TO FIELD
- IF FIELD NOT = -0.8
- DISPLAY "Test 2 " FIELD.
-
- MOVE -0.2 TO FIELD
- ADD 1 TO FIELD
- IF FIELD NOT = 0.8
- DISPLAY "Test 3 " FIELD.
-
- MOVE -0.2 TO FIELD
- ADD -1 TO FIELD
- IF FIELD NOT = -1.2
- DISPLAY "Test 4 " FIELD.
-
- MOVE 0.2 TO FIELD
- SUBTRACT 1 FROM FIELD
- IF FIELD NOT = -0.8
- DISPLAY "Test 5 " FIELD.
-
- MOVE 0.2 TO FIELD
- SUBTRACT -1 FROM FIELD
- IF FIELD NOT = 1.2
- DISPLAY "Test 6 " FIELD.
-
- MOVE -0.2 TO FIELD
- SUBTRACT 1 FROM FIELD
- IF FIELD NOT = -1.2
- DISPLAY "Test 7 " FIELD.
-
- MOVE -0.2 TO FIELD
- SUBTRACT -1 FROM FIELD
- IF FIELD NOT = 0.8
- DISPLAY "Test 8 " FIELD.
-
- MOVE 0.2 TO FELD2
- ADD 1 TO FELD2
- IF FELD2 NOT = 1.2
- DISPLAY "Test 9 " FELD2.
-
- MOVE 0.2 TO FELD2
- ADD -1 TO FELD2
- IF FELD2 NOT = -0.8
- DISPLAY "Test 10 " FELD2.
-
- MOVE -0.2 TO FELD2
- ADD 1 TO FELD2
- IF FELD2 NOT = 0.8
- DISPLAY "Test 11 " FELD2.
-
- MOVE -0.2 TO FELD2
- ADD -1 TO FELD2
- IF FELD2 NOT = -1.2
- DISPLAY "Test 12 " FELD2.
-
- MOVE 0.2 TO FELD2
- SUBTRACT 1 FROM FELD2
- IF FELD2 NOT = -0.8
- DISPLAY "Test 13 " FELD2.
-
- MOVE 0.2 TO FELD2
- SUBTRACT -1 FROM FELD2
- IF FELD2 NOT = 1.2
- DISPLAY "Test 14 " FELD2.
-
- MOVE -0.2 TO FELD2
- SUBTRACT 1 FROM FELD2
- IF FELD2 NOT = -1.2
- DISPLAY "Test 15 " FELD2.
-
- MOVE -0.2 TO FELD2
- SUBTRACT -1 FROM FELD2
- IF FELD2 NOT = 0.8
- DISPLAY "Test 16 " FELD2.
-
- MOVE 0.2 TO FELD3
- ADD 1 TO FELD3
- IF FELD3 NOT = 1.2
- DISPLAY "Test 17 " FELD3.
-
- MOVE 0.2 TO FELD3
- ADD -1 TO FELD3
- IF FELD3 NOT = 0.8
- DISPLAY "Test 18 " FELD3.
-
- * unsigned, so ends as 0.2
- MOVE -0.2 TO FELD3
- ADD 1 TO FELD3
- IF FELD3 NOT = 1.2
- DISPLAY "Test 19 " FELD3.
-
- * unsigned, so ends as 0.2 - 1 -> -0.8 -> 0.8
- MOVE -0.2 TO FELD3
- ADD -1 TO FELD3
- IF FELD3 NOT = 0.8
- DISPLAY "Test 20 " FELD3.
-
- MOVE 0.2 TO FELD3
- SUBTRACT 1 FROM FELD3
- IF FELD3 NOT = 0.8
- DISPLAY "Test 21 " FELD3.
-
- MOVE 0.2 TO FELD3
- SUBTRACT -1 FROM FELD3
- IF FELD3 NOT = 1.2
- DISPLAY "Test 22 " FELD3.
-
- MOVE -0.2 TO FELD3
- SUBTRACT 1 FROM FELD3
- IF FELD3 NOT = 0.8
- DISPLAY "Test 23 " FELD3.
-
- MOVE -0.2 TO FELD3
- SUBTRACT -1 FROM FELD3
- IF FELD3 NOT = 1.2
- DISPLAY "Test 24 " FELD3.
-
- MOVE 2 TO FELD4
- ADD 1 TO FELD4
- IF FELD4 NOT = 3
- DISPLAY "Test 25 " FELD4.
-
- MOVE 2 TO FELD4
- ADD -1 TO FELD4
- IF FELD4 NOT = 1
- DISPLAY "Test 26 " FELD4.
-
- MOVE -2 TO FELD4
- ADD 1 TO FELD4
- IF FELD4 NOT = -1
- DISPLAY "Test 27 " FELD4.
-
- MOVE -2 TO FELD4
- ADD -1 TO FELD4
- IF FELD4 NOT = -3
- DISPLAY "Test 28 " FELD4.
-
- MOVE -2 TO FELD4b
- ADD -1 TO FELD4b
- IF FELD4b NOT = -3
- DISPLAY "Test 28b " FELD4b.
-
- MOVE 2 TO FELD4
- SUBTRACT 1 FROM FELD4
- IF FELD4 NOT = 1
- DISPLAY "Test 29 " FELD4.
-
- MOVE 2 TO FELD4b
- SUBTRACT 1 FROM FELD4b
- IF FELD4b NOT = 1
- DISPLAY "Test 29b " FELD4b.
-
- MOVE 2 TO FELD4
- SUBTRACT -1 FROM FELD4
- IF FELD4 NOT = 3
- DISPLAY "Test 30 " FELD4.
-
- MOVE -2 TO FELD4
- SUBTRACT 1 FROM FELD4
- IF FELD4 NOT = -3
- DISPLAY "Test 31 " FELD4.
-
- MOVE -2 TO FELD4
- SUBTRACT -1 FROM FELD4
- IF FELD4 NOT = -1
- DISPLAY "Test 32 " FELD4.
-
- MOVE 1 TO FELD4
- ADD 2 TO FELD4
- IF FELD4 NOT = 3
- DISPLAY "Test 33 " FELD4.
-
- MOVE 1 TO FELD4
- ADD -2 TO FELD4
- IF FELD4 NOT = -1
- DISPLAY "Test 34 " FELD4.
-
- MOVE -1 TO FELD4
- ADD 2 TO FELD4
- IF FELD4 NOT = 1
- DISPLAY "Test 35 " FELD4.
-
- MOVE -1 TO FELD4
- ADD -2 TO FELD4
- IF FELD4 NOT = -3
- DISPLAY "Test 36 " FELD4.
-
- MOVE 1 TO FELD4
- SUBTRACT 2 FROM FELD4
- IF FELD4 NOT = -1
- DISPLAY "Test 37 " FELD4.
-
- MOVE 1 TO FELD4
- SUBTRACT -2 FROM FELD4
- IF FELD4 NOT = 3
- DISPLAY "Test 38 " FELD4.
-
- MOVE -1 TO FELD4
- SUBTRACT 2 FROM FELD4
- IF FELD4 NOT = -3
- DISPLAY "Test 39 " FELD4.
-
- MOVE -1 TO FELD4
- SUBTRACT -2 FROM FELD4
- IF FELD4 NOT = 1
- DISPLAY "Test 40 " FELD4.
-
- *> test with 18 digits (last implied zero by field)
- *> -> maximum cob_u64_t for separate code branch
- MOVE 123456789.01234567 TO FELD5
- ADD 2 TO FELD5
- IF FELD5 NOT = 123456791.01234567
- DISPLAY "Test 41 ADD " FELD5.
- MOVE 123456789.01234567 TO FELD5
- SUBTRACT -2 FROM FELD5
- IF FELD5 NOT = 123456791.01234567
- DISPLAY "Test 41 SUBTRACT " FELD5.
-
- *> now testing optimized functions (only used for non-scaled)
- MOVE 12345678901234567 TO FELD5b
- ADD 18518518351851850 TO FELD5b
- IF FELD5b NOT = 30864197253086417
- DISPLAY "Test 41b ADD " FELD5b.
- MOVE 30864197253086417 TO FELD5b
- SUBTRACT 18518518351851850 FROM FELD5b
- IF FELD5b NOT = 12345678901234567
- DISPLAY "Test 41b SUBTRACT " FELD5b.
-
- *> tests with more than 19 digits for separate code branch
- *> -> last 8 digits with implied zero by field
- MOVE 12345678.123456901234 TO FELD6
- ADD -2.1 TO FELD6
- IF FELD6 NOT = 12345676.023456901234
- DISPLAY "Test 42 ADD " FELD6.
- MOVE 12345678.123456901234 TO FELD6
- SUBTRACT 2.1 FROM FELD6
- IF FELD6 NOT = 12345676.023456901234
- DISPLAY "Test 42 SUBTRACT " FELD6.
-
- *> -> first 8 digits with implied zero by field,
- *> last 4 digits truncated
- MOVE .123456789012345678901234 TO FELD6
- ADD 1.8 TO FELD6
- IF FELD6 NOT = 1.9234567890123456789
- DISPLAY "Test 43 " FELD6.
-
- *> now testing optimized functions (only used for non-scaled)
- MOVE 7123456789012345670 TO FELD6b
- ADD 1800000000000000000 TO FELD6b
- IF FELD6b NOT = 8923456789012345670
- DISPLAY "Test 43b ADD " FELD6b.
- IF FELD6b = -8923456789012345670
- DISPLAY "Test 43b2 ADD " FELD6b.
- MULTIPLY FELD6b BY -1 GIVING FELD6b
- IF FELD6b NOT = -8923456789012345670
- DISPLAY "Test 43c NEGATIVE " FELD6b.
- IF FELD6b = 8923456789012345670
- DISPLAY "Test 43c2 NEGATIVE " FELD6b.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:3642: \$COMPILE -Wno-truncate prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -Wno-truncate prog.cob" "run_fundamental.at:3642"
-( $at_check_trace; $COMPILE -Wno-truncate prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:3642"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:3643: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:3643"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:3643"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_571
-#AT_START_572
-at_fn_group_banner 572 'run_fundamental.at:3648' \
- "Numeric operations (4) BINARY" " " 4
-at_xfail=no
-(
- printf "%s\n" "572. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 FIELD PIC S9(1)V9(1) COMP.
- 01 FELD2 PIC S9(5)V9(5) COMP.
- 01 FELD3 PIC 9(1)V9(1) COMP.
- 01 FELD4 PIC S9(1) COMP.
- 01 FILLER USAGE BINARY-INT VALUE 0.
- 88 DO-DISP VALUE 0.
- 88 NO-DISP VALUE 1.
- REPLACE ==DISPLAY== BY ==IF DO-DISP DISPLAY==.
-
- PROCEDURE DIVISION.
- * Test with DISPLAY on error
- PERFORM DO-CHECK.
- >> IF CHECK-PERF IS DEFINED
- SET NO-DISP TO TRUE
- * some performance checks on the way...
- PERFORM DO-CHECK 20000 TIMES.
- >> END-IF
- GOBACK.
-
- DO-CHECK.
- MOVE 0.2 TO FIELD
- ADD 1 TO FIELD
- IF FIELD NOT = 1.2
- DISPLAY "Test 1 " FIELD.
-
- MOVE 0.2 TO FIELD
- ADD -1 TO FIELD
- IF FIELD NOT = -0.8
- DISPLAY "Test 2 " FIELD.
-
- MOVE -0.2 TO FIELD
- ADD 1 TO FIELD
- IF FIELD NOT = 0.8
- DISPLAY "Test 3 " FIELD.
-
- MOVE -0.2 TO FIELD
- ADD -1 TO FIELD
- IF FIELD NOT = -1.2
- DISPLAY "Test 4 " FIELD.
-
- MOVE 0.2 TO FIELD
- SUBTRACT 1 FROM FIELD
- IF FIELD NOT = -0.8
- DISPLAY "Test 5 " FIELD.
-
- MOVE 0.2 TO FIELD
- SUBTRACT -1 FROM FIELD
- IF FIELD NOT = 1.2
- DISPLAY "Test 6 " FIELD.
-
- MOVE -0.2 TO FIELD
- SUBTRACT 1 FROM FIELD
- IF FIELD NOT = -1.2
- DISPLAY "Test 7 " FIELD.
-
- MOVE -0.2 TO FIELD
- SUBTRACT -1 FROM FIELD
- IF FIELD NOT = 0.8
- DISPLAY "Test 8 " FIELD.
-
- MOVE 0.2 TO FELD2
- ADD 1 TO FELD2
- IF FELD2 NOT = 1.2
- DISPLAY "Test 9 " FELD2.
-
- MOVE 0.2 TO FELD2
- ADD -1 TO FELD2
- IF FELD2 NOT = -0.8
- DISPLAY "Test 10 " FELD2.
-
- MOVE -0.2 TO FELD2
- ADD 1 TO FELD2
- IF FELD2 NOT = 0.8
- DISPLAY "Test 11 " FELD2.
-
- MOVE -0.2 TO FELD2
- ADD -1 TO FELD2
- IF FELD2 NOT = -1.2
- DISPLAY "Test 12 " FELD2.
-
- MOVE 0.2 TO FELD2
- SUBTRACT 1 FROM FELD2
- IF FELD2 NOT = -0.8
- DISPLAY "Test 13 " FELD2.
-
- MOVE 0.2 TO FELD2
- SUBTRACT -1 FROM FELD2
- IF FELD2 NOT = 1.2
- DISPLAY "Test 14 " FELD2.
-
- MOVE -0.2 TO FELD2
- SUBTRACT 1 FROM FELD2
- IF FELD2 NOT = -1.2
- DISPLAY "Test 15 " FELD2.
-
- MOVE -0.2 TO FELD2
- SUBTRACT -1 FROM FELD2
- IF FELD2 NOT = 0.8
- DISPLAY "Test 16 " FELD2.
-
- MOVE 0.2 TO FELD3
- ADD 1 TO FELD3
- IF FELD3 NOT = 1.2
- DISPLAY "Test 17 " FELD3.
-
- MOVE 0.2 TO FELD3
- ADD -1 TO FELD3
- IF FELD3 NOT = 0.8
- DISPLAY "Test 18 " FELD3.
-
- MOVE -0.2 TO FELD3
- ADD 1 TO FELD3
- IF FELD3 NOT = 1.2
- DISPLAY "Test 19 " FELD3.
-
- MOVE -0.2 TO FELD3
- ADD -1 TO FELD3
- IF FELD3 NOT = 0.8
- DISPLAY "Test 20 " FELD3.
-
- MOVE 0.2 TO FELD3
- SUBTRACT 1 FROM FELD3
- IF FELD3 NOT = 0.8
- DISPLAY "Test 21 " FELD3.
-
- MOVE 0.2 TO FELD3
- SUBTRACT -1 FROM FELD3
- IF FELD3 NOT = 1.2
- DISPLAY "Test 22 " FELD3.
-
- MOVE -0.2 TO FELD3
- SUBTRACT 1 FROM FELD3
- IF FELD3 NOT = 0.8
- DISPLAY "Test 23 " FELD3.
-
- MOVE -0.2 TO FELD3
- SUBTRACT -1 FROM FELD3
- IF FELD3 NOT = 1.2
- DISPLAY "Test 24 " FELD3.
-
- MOVE 2 TO FELD4
- ADD 1 TO FELD4
- IF FELD4 NOT = 3
- DISPLAY "Test 25 " FELD4.
-
- MOVE 2 TO FELD4
- ADD -1 TO FELD4
- IF FELD4 NOT = 1
- DISPLAY "Test 26 " FELD4.
-
- MOVE -2 TO FELD4
- ADD 1 TO FELD4
- IF FELD4 NOT = -1
- DISPLAY "Test 27 " FELD4.
-
- MOVE -2 TO FELD4
- ADD -1 TO FELD4
- IF FELD4 NOT = -3
- DISPLAY "Test 28 " FELD4.
-
- MOVE 2 TO FELD4
- SUBTRACT 1 FROM FELD4
- IF FELD4 NOT = 1
- DISPLAY "Test 29 " FELD4.
-
- MOVE 2 TO FELD4
- SUBTRACT -1 FROM FELD4
- IF FELD4 NOT = 3
- DISPLAY "Test 30 " FELD4.
-
- MOVE -2 TO FELD4
- SUBTRACT 1 FROM FELD4
- IF FELD4 NOT = -3
- DISPLAY "Test 31 " FELD4.
-
- MOVE -2 TO FELD4
- SUBTRACT -1 FROM FELD4
- IF FELD4 NOT = -1
- DISPLAY "Test 32 " FELD4.
-
- MOVE 1 TO FELD4
- ADD 2 TO FELD4
- IF FELD4 NOT = 3
- DISPLAY "Test 33 " FELD4.
-
- MOVE 1 TO FELD4
- ADD -2 TO FELD4
- IF FELD4 NOT = -1
- DISPLAY "Test 34 " FELD4.
-
- MOVE -1 TO FELD4
- ADD 2 TO FELD4
- IF FELD4 NOT = 1
- DISPLAY "Test 35 " FELD4.
-
- MOVE -1 TO FELD4
- ADD -2 TO FELD4
- IF FELD4 NOT = -3
- DISPLAY "Test 36 " FELD4.
-
- MOVE 1 TO FELD4
- SUBTRACT 2 FROM FELD4
- IF FELD4 NOT = -1
- DISPLAY "Test 37 " FELD4.
-
- MOVE 1 TO FELD4
- SUBTRACT -2 FROM FELD4
- IF FELD4 NOT = 3
- DISPLAY "Test 38 " FELD4.
-
- MOVE -1 TO FELD4
- SUBTRACT 2 FROM FELD4
- IF FELD4 NOT = -3
- DISPLAY "Test 39 " FELD4.
-
- MOVE -1 TO FELD4
- SUBTRACT -2 FROM FELD4
- IF FELD4 NOT = 1
- DISPLAY "Test 40 " FELD4.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:3877: \$COMPILE -Wno-truncate prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -Wno-truncate prog.cob" "run_fundamental.at:3877"
-( $at_check_trace; $COMPILE -Wno-truncate prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:3877"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:3878: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:3878"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:3878"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_572
-#AT_START_573
-at_fn_group_banner 573 'run_fundamental.at:3883' \
- "Numeric operations (5) COMP-5" " " 4
-at_xfail=no
-(
- printf "%s\n" "573. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 FIELD PIC S9(1)V9(1) COMP-5.
- 01 FELD2 PIC S9(5)V9(5) COMP-5.
- 01 FELD3 PIC 9(1)V9(1) COMP-5.
- 01 FELD4 PIC S9(1) COMP-5.
- 01 FILLER USAGE BINARY-INT VALUE 0.
- 88 DO-DISP VALUE 0.
- 88 NO-DISP VALUE 1.
- REPLACE ==DISPLAY== BY ==IF DO-DISP DISPLAY==.
-
- PROCEDURE DIVISION.
- * Test with DISPLAY on error
- PERFORM DO-CHECK.
- >> IF CHECK-PERF IS DEFINED
- SET NO-DISP TO TRUE
- * some performance checks on the way...
- PERFORM DO-CHECK 20000 TIMES.
- >> END-IF
- GOBACK.
-
- DO-CHECK.
- MOVE 0.2 TO FIELD
- ADD 1 TO FIELD
- IF FIELD NOT = 1.2
- DISPLAY "Test 1 " FIELD.
-
- MOVE 0.2 TO FIELD
- ADD -1 TO FIELD
- IF FIELD NOT = -0.8
- DISPLAY "Test 2 " FIELD.
-
- MOVE -0.2 TO FIELD
- ADD 1 TO FIELD
- IF FIELD NOT = 0.8
- DISPLAY "Test 3 " FIELD.
-
- MOVE -0.2 TO FIELD
- ADD -1 TO FIELD
- IF FIELD NOT = -1.2
- DISPLAY "Test 4 " FIELD.
-
- MOVE 0.2 TO FIELD
- SUBTRACT 1 FROM FIELD
- IF FIELD NOT = -0.8
- DISPLAY "Test 5 " FIELD.
-
- MOVE 0.2 TO FIELD
- SUBTRACT -1 FROM FIELD
- IF FIELD NOT = 1.2
- DISPLAY "Test 6 " FIELD.
-
- MOVE -0.2 TO FIELD
- SUBTRACT 1 FROM FIELD
- IF FIELD NOT = -1.2
- DISPLAY "Test 7 " FIELD.
-
- MOVE -0.2 TO FIELD
- SUBTRACT -1 FROM FIELD
- IF FIELD NOT = 0.8
- DISPLAY "Test 8 " FIELD.
-
- MOVE 0.2 TO FELD2
- ADD 1 TO FELD2
- IF FELD2 NOT = 1.2
- DISPLAY "Test 9 " FELD2.
-
- MOVE 0.2 TO FELD2
- ADD -1 TO FELD2
- IF FELD2 NOT = -0.8
- DISPLAY "Test 10 " FELD2.
-
- MOVE -0.2 TO FELD2
- ADD 1 TO FELD2
- IF FELD2 NOT = 0.8
- DISPLAY "Test 11 " FELD2.
-
- MOVE -0.2 TO FELD2
- ADD -1 TO FELD2
- IF FELD2 NOT = -1.2
- DISPLAY "Test 12 " FELD2.
-
- MOVE 0.2 TO FELD2
- SUBTRACT 1 FROM FELD2
- IF FELD2 NOT = -0.8
- DISPLAY "Test 13 " FELD2.
-
- MOVE 0.2 TO FELD2
- SUBTRACT -1 FROM FELD2
- IF FELD2 NOT = 1.2
- DISPLAY "Test 14 " FELD2.
-
- MOVE -0.2 TO FELD2
- SUBTRACT 1 FROM FELD2
- IF FELD2 NOT = -1.2
- DISPLAY "Test 15 " FELD2.
-
- MOVE -0.2 TO FELD2
- SUBTRACT -1 FROM FELD2
- IF FELD2 NOT = 0.8
- DISPLAY "Test 16 " FELD2.
-
- MOVE 0.2 TO FELD3
- ADD 1 TO FELD3
- IF FELD3 NOT = 1.2
- DISPLAY "Test 17 " FELD3.
-
- MOVE 0.2 TO FELD3
- ADD -1 TO FELD3
- IF FELD3 NOT = 0.8
- DISPLAY "Test 18 " FELD3.
-
- MOVE -0.2 TO FELD3
- ADD 1 TO FELD3
- IF FELD3 NOT = 1.2
- DISPLAY "Test 19 " FELD3.
-
- MOVE -0.2 TO FELD3
- ADD -1 TO FELD3
- IF FELD3 NOT = 0.8
- DISPLAY "Test 20 " FELD3.
-
- MOVE 0.2 TO FELD3
- SUBTRACT 1 FROM FELD3
- IF FELD3 NOT = 0.8
- DISPLAY "Test 21 " FELD3.
-
- MOVE 0.2 TO FELD3
- SUBTRACT -1 FROM FELD3
- IF FELD3 NOT = 1.2
- DISPLAY "Test 22 " FELD3.
-
- MOVE -0.2 TO FELD3
- SUBTRACT 1 FROM FELD3
- IF FELD3 NOT = 0.8
- DISPLAY "Test 23 " FELD3.
-
- MOVE -0.2 TO FELD3
- SUBTRACT -1 FROM FELD3
- IF FELD3 NOT = 1.2
- DISPLAY "Test 24 " FELD3.
-
- MOVE 2 TO FELD4
- ADD 1 TO FELD4
- IF FELD4 NOT = 3
- DISPLAY "Test 25 " FELD4.
-
- MOVE 2 TO FELD4
- ADD -1 TO FELD4
- IF FELD4 NOT = 1
- DISPLAY "Test 26 " FELD4.
-
- MOVE -2 TO FELD4
- ADD 1 TO FELD4
- IF FELD4 NOT = -1
- DISPLAY "Test 27 " FELD4.
-
- MOVE -2 TO FELD4
- ADD -1 TO FELD4
- IF FELD4 NOT = -3
- DISPLAY "Test 28 " FELD4.
-
- MOVE 2 TO FELD4
- SUBTRACT 1 FROM FELD4
- IF FELD4 NOT = 1
- DISPLAY "Test 29 " FELD4.
-
- MOVE 2 TO FELD4
- SUBTRACT -1 FROM FELD4
- IF FELD4 NOT = 3
- DISPLAY "Test 30 " FELD4.
-
- MOVE -2 TO FELD4
- SUBTRACT 1 FROM FELD4
- IF FELD4 NOT = -3
- DISPLAY "Test 31 " FELD4.
-
- MOVE -2 TO FELD4
- SUBTRACT -1 FROM FELD4
- IF FELD4 NOT = -1
- DISPLAY "Test 32 " FELD4.
-
- MOVE 1 TO FELD4
- ADD 2 TO FELD4
- IF FELD4 NOT = 3
- DISPLAY "Test 33 " FELD4.
-
- MOVE 1 TO FELD4
- ADD -2 TO FELD4
- IF FELD4 NOT = -1
- DISPLAY "Test 34 " FELD4.
-
- MOVE -1 TO FELD4
- ADD 2 TO FELD4
- IF FELD4 NOT = 1
- DISPLAY "Test 35 " FELD4.
-
- MOVE -1 TO FELD4
- ADD -2 TO FELD4
- IF FELD4 NOT = -3
- DISPLAY "Test 36 " FELD4.
-
- MOVE 1 TO FELD4
- SUBTRACT 2 FROM FELD4
- IF FELD4 NOT = -1
- DISPLAY "Test 37 " FELD4.
-
- MOVE 1 TO FELD4
- SUBTRACT -2 FROM FELD4
- IF FELD4 NOT = 3
- DISPLAY "Test 38 " FELD4.
-
- MOVE -1 TO FELD4
- SUBTRACT 2 FROM FELD4
- IF FELD4 NOT = -3
- DISPLAY "Test 39 " FELD4.
-
- MOVE -1 TO FELD4
- SUBTRACT -2 FROM FELD4
- IF FELD4 NOT = 1
- DISPLAY "Test 40 " FELD4.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:4112: \$COMPILE -Wno-truncate prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -Wno-truncate prog.cob" "run_fundamental.at:4112"
-( $at_check_trace; $COMPILE -Wno-truncate prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:4112"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:4113: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:4113"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:4113"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_573
-#AT_START_574
-at_fn_group_banner 574 'run_fundamental.at:4118' \
- "Numeric operations (6)" " " 4
-at_xfail=no
-(
- printf "%s\n" "574. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >dump.c <<'_ATEOF'
-
-#include <stdio.h>
-#include <libcob.h>
-
-COB_EXT_EXPORT int
-dump (char *p)
-{
- printf ("%c%c", p[0], p[1]);
- return 0;
-}
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
-
- 01 P-FIELD1 PIC 99PPP.
- 01 P-FIELD2 PIC PPP99.
-
- PROCEDURE DIVISION.
-
- MOVE 5000 TO P-FIELD1.
- ADD 5 TO P-FIELD1
- IF P-FIELD1 NOT = 5000
- DISPLAY "Error: Add 5 to PIC 99PPP.".
- CALL "dump" USING P-FIELD1.
-
- ADD 5000 TO P-FIELD1
- IF P-FIELD1 NOT = 10000
- DISPLAY "Error: Add 5000 to PIC 99PPP.".
- CALL "dump" USING P-FIELD1.
-
- MOVE 0.00055 TO P-FIELD2
- ADD 0.00033 TO P-FIELD2
- IF P-FIELD2 NOT = 0.00088
- DISPLAY "Error: Add 0.00033 to PIC PPP99.".
- CALL "dump" USING P-FIELD2.
-
- MOVE 0.00055 TO P-FIELD2
- ADD 0.00300 TO P-FIELD2
- IF P-FIELD2 NOT = 0.00055
- DISPLAY "Error: Add 0.00300 to PIC PPP99.".
- CALL "dump" USING P-FIELD2.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:4171: \$COMPILE_MODULE dump.c"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE dump.c" "run_fundamental.at:4171"
-( $at_check_trace; $COMPILE_MODULE dump.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:4171"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:4172: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:4172"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:4172"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:4173: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:4173"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "05108855" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:4173"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_574
-#AT_START_575
-at_fn_group_banner 575 'run_fundamental.at:4178' \
- "Numeric operations (7)" " " 4
-at_xfail=no
-(
- printf "%s\n" "575. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 FIELD PIC S9(4)V9(2) COMP-5.
- 01 FIELD-DISP PIC S9(4)V9(2) DISPLAY.
- PROCEDURE DIVISION.
- MOVE 0.2 TO FIELD.
- ADD 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
- 78
- 79
- 80
- 81
- 82
- 83
- 84
- 85
- 86
- 87
- 88
- 89
- 90
- 91
- 92
- 93
- 94
- 95
- 96
- 97
- 98
- 99
- 100
- 101
- 102
- 103
- 104
- 105
- 106
- 107
- 108
- 109
- 110
- 111
- 112
- 113
- 114
- 115
- 116
- 117
- 118
- 119
- 120
- 121
- 122
- 123
- 124
- 125
- 126
- 127
- 128
- 129
- TO FIELD
- END-ADD.
- IF FIELD NOT = 8385.2
- MOVE FIELD TO FIELD-DISP
- DISPLAY 'ADD with wrong result: ' FIELD-DISP.
-
- COMPUTE FIELD = (0.2
- + 2
- + 3
- + 4
- + 5
- + 6
- + 7
- + 8
- + 9
- + 10
- + 11
- + 12
- + 13
- + 14
- + 15
- + 16
- + 17
- + 18
- + 19
- + 20
- + 21
- + 22
- + 23
- + 24
- + 25
- + 26
- + 27
- + 28
- + 29
- + 30
- + 31
- + 32
- + 33
- + 34
- + 35
- + 36
- + 37
- + 38
- + 39
- + 40
- + 41
- + 42
- + 43
- + 44
- + 45
- + 46
- + 47
- + 48
- + 49
- + 50
- + 51
- + 52
- + 53
- + 54
- + 55
- + 56
- + 57
- + 58
- - 59
- - 60
- - 61
- - 62
- - 63
- - 64
- - 65
- - 66
- - 67
- - 68
- - 69
- - 70
- - 71
- - 72
- - 73
- - 74
- - 75
- - 76
- - 77
- - 78
- - 79
- - 80
- - 81
- - 82
- - 83
- - 84
- - 85
- - 86
- - 87
- - 88
- - 89
- - 90
- - 91
- - 92
- - 93
- - 94
- - 95
- - 96
- - 97
- - 98
- - 99
- - 100
- - 101
- - 102
- - 103
- - 104
- - 105
- - 106
- - 107
- - 108
- - 109
- - 110
- - 111
- - 112
- - 113
- - 114
- - 115
- - 116
- - 117
- - 118
- - 119
- - 120
- - 121
- - 122
- - 123
- - 124
- - 125
- - 126
- - 127)
- * 12800000000
- / 12900000000
- END-COMPUTE.
- IF FIELD NOT = -4670.31
- MOVE FIELD TO FIELD-DISP
- DISPLAY 'COMPUTE with wrong result: ' FIELD-DISP.
-
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:4462: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:4462"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:4462"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:4463: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:4463"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:4463"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_575
-#AT_START_576
-at_fn_group_banner 576 'run_fundamental.at:4468' \
- "Numeric operations (8)" " " 4
-at_xfail=no
-(
- printf "%s\n" "576. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 1 COMPUTE-DATA.
- 2 COMPUTE-8 PICTURE 999 VALUE ZERO.
- PROCEDURE DIVISION.
- COMPUTE COMPUTE-8 = (((24.0 + 1) * (60 - 10)) / 125) ** 2
- IF COMPUTE-8 NOT = 100
- DISPLAY 'COMPUTE with wrong result: ' COMPUTE-8
- END-DISPLAY
- END-IF
- COMPUTE COMPUTE-8 = 55 / (1 - 2 + 1)
- NOT ON SIZE ERROR
- DISPLAY 'SIZE ERROR not set from divide by zero!'
- END-DISPLAY
- END-COMPUTE
- COMPUTE COMPUTE-8 = 0 ** 1
- IF COMPUTE-8 NOT = 0
- DISPLAY '0 ** 1 <> 0: ' COMPUTE-8
- END-DISPLAY
- END-IF
- COMPUTE COMPUTE-8 = 55 ** 0
- IF COMPUTE-8 NOT = 1
- DISPLAY '55 ** 0 <> 1: ' COMPUTE-8
- END-DISPLAY
- END-IF
- COMPUTE COMPUTE-8 = 1 ** 55
- IF COMPUTE-8 NOT = 1
- DISPLAY '11 ** 55 <> 1: ' COMPUTE-8
- END-DISPLAY
- END-IF
-
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:4508: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:4508"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:14: warning: divide by constant ZERO
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:4508"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:4511: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:4511"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:4511"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_576
-#AT_START_577
-at_fn_group_banner 577 'run_fundamental.at:4518' \
- "ADD CORRESPONDING" " " 4
-at_xfail=no
-(
- printf "%s\n" "577. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 GROUP-1.
- 05 FIELD-A PIC 9 VALUE 1.
- 05 FIELD-B USAGE BINARY-CHAR VALUE 2.
- 05 INNER-GROUP.
- 10 FIELD-C USAGE FLOAT-SHORT VALUE 3.
- 05 FIELD-D PIC X VALUE "A".
- 01 GROUP-2.
- 05 FIELD-A PIC 9.
- 05 FIELD-B USAGE BINARY-LONG.
- 05 INNER-GROUP.
- 10 FIELD-C PIC 9.
- 05 FIELD-D PIC 9.
-
- PROCEDURE DIVISION.
- ADD CORRESPONDING GROUP-1 TO GROUP-2.
- IF FIELD-A IN GROUP-2 NOT EQUAL 1 THEN
- DISPLAY "BAD FIELD-A " FIELD-A IN GROUP-2
- END-DISPLAY
- END-IF.
- IF FIELD-B IN GROUP-2 NOT EQUAL 2 THEN
- DISPLAY "BAD FIELD-B " FIELD-B IN GROUP-2
- END-DISPLAY
- END-IF.
- IF FIELD-C IN GROUP-2 NOT EQUAL 3 THEN
- DISPLAY "BAD FIELD-C " FIELD-C IN GROUP-2
- END-DISPLAY
- END-IF.
- IF FIELD-D IN GROUP-2 NOT EQUAL 0 THEN
- DISPLAY "BAD FIELD-D " FIELD-D IN GROUP-2
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:4560: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:4560"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:4560"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:4561: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:4561"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:4561"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_577
-#AT_START_578
-at_fn_group_banner 578 'run_fundamental.at:4566' \
- "ADD CORRESPONDING no match" " " 4
-at_xfail=no
-(
- printf "%s\n" "578. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 GROUP-1.
- 05 FIELD-A PIC X.
- 05 FIELD-B PIC Z9.
- 05 INNER-GROUP.
- 10 FIELD-C PIC X.
- 05 FIELD-D PIC 9.
- 01 GROUP-2.
- 05 FIELD-A PIC 9 VALUE 1.
- 05 FIELD-B USAGE BINARY-CHAR VALUE 2.
- 05 INNER-GROUP.
- 10 FIELD-C USAGE FLOAT-SHORT VALUE 3.
- 05 FIELD-D PIC X VALUE "A".
-
- PROCEDURE DIVISION.
- SUBTRACT CORRESPONDING GROUP-2 FROM GROUP-1.
- IF FIELD-A IN GROUP-2 NOT EQUAL 1 THEN
- DISPLAY "BAD FIELD-A " FIELD-A IN GROUP-2
- END-DISPLAY
- END-IF.
- IF FIELD-B IN GROUP-2 NOT EQUAL 2 THEN
- DISPLAY "BAD FIELD-B " FIELD-B IN GROUP-2
- END-DISPLAY
- END-IF.
- IF FIELD-C IN GROUP-2 NOT EQUAL 3 THEN
- DISPLAY "BAD FIELD-C " FIELD-C IN GROUP-2
- END-DISPLAY
- END-IF.
- IF FIELD-D IN GROUP-2 NOT EQUAL "A" THEN
- DISPLAY "BAD FIELD-D " FIELD-D IN GROUP-2
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:4608: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:4608"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:20: warning: no CORRESPONDING items found
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:4608"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:4611: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:4611"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:4611"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_578
-#AT_START_579
-at_fn_group_banner 579 'run_fundamental.at:4616' \
- "SYNC in OCCURS" " " 4
-at_xfail=no
-(
- printf "%s\n" "579. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x.
- 03 ptrs OCCURS 5 TIMES.
- 05 misalign-1 PIC X.
- 05 ptr POINTER, SYNC.
- 05 ptr-num REDEFINES ptr,
- >>IF P64 SET
- USAGE BINARY-DOUBLE UNSIGNED.
- >>ELSE
- USAGE BINARY-LONG UNSIGNED.
- >>END-IF
- 05 misalign-2 PIC X.
-
- 01 num BINARY-LONG.
-
- PROCEDURE DIVISION.
- SET ptr (2) TO ADDRESS OF ptr (2)
- SET ptr (3) TO ADDRESS OF ptr (3)
-
- SUBTRACT ptr-num (2) FROM ptr-num (3) GIVING num
- DISPLAY FUNCTION MOD (num, FUNCTION LENGTH (ptr (1)))
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:4648: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:4648"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:4648"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:4649: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:4649"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "000000000
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:4649"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_579
-#AT_START_580
-at_fn_group_banner 580 'run_fundamental.at:4656' \
- "88 level with THRU" " " 4
-at_xfail=no
-(
- printf "%s\n" "580. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 VAR-X PIC X VALUE SPACE.
- 88 X VALUE "X".
- 88 T-Y VALUE "T" THRU "Y".
- 01 VAR-9 PIC 9 VALUE ZERO.
- 88 V9 VALUE 9.
- 88 V2-4 VALUE 2 THRU 4.
- PROCEDURE DIVISION.
- IF X
- DISPLAY "NOT OK '" VAR-X "' IS X"
- END-DISPLAY
- END-IF
- SET X TO TRUE
- IF NOT X
- DISPLAY "NOT OK '" VAR-X "' IS NOT X"
- END-DISPLAY
- END-IF
- IF NOT T-Y
- DISPLAY "NOT OK '" VAR-X "' IS NOT T-Y"
- END-DISPLAY
- END-IF
- SET T-Y TO TRUE
- IF NOT T-Y
- DISPLAY "NOT OK '" VAR-X "' IS NOT T-Y"
- END-DISPLAY
- END-IF
- MOVE 'Y' TO VAR-X
- IF NOT T-Y
- DISPLAY "NOT OK '" VAR-X "' IS NOT T-Y"
- END-DISPLAY
- END-IF
- MOVE 'Z' TO VAR-X
- IF T-Y
- DISPLAY "NOT OK '" VAR-X "' IS T-Y"
- END-DISPLAY
- END-IF
- MOVE 'A' TO VAR-X
- IF T-Y
- DISPLAY "NOT OK '" VAR-X "' IS T-Y"
- END-DISPLAY
- END-IF
- IF V9
- DISPLAY "NOT OK '" VAR-9 "' IS V9"
- END-DISPLAY
- END-IF
- SET V9 TO TRUE
- IF NOT V9
- DISPLAY "NOT OK '" VAR-9 "' IS NOT V9"
- END-DISPLAY
- END-IF
- SET V2-4 TO TRUE
- IF V9
- DISPLAY "NOT OK '" VAR-9 "' IS V9"
- END-DISPLAY
- END-IF
- IF NOT V2-4
- DISPLAY "NOT OK '" VAR-9 "' IS NOT V2-4"
- END-DISPLAY
- END-IF
- MOVE 3 TO VAR-9
- IF NOT V2-4
- DISPLAY "NOT OK '" VAR-9 "' IS NOT V2-4"
- END-DISPLAY
- END-IF
- MOVE 4 TO VAR-9
- IF NOT V2-4
- DISPLAY "NOT OK '" VAR-9 "' IS NOT V2-4"
- END-DISPLAY
- END-IF
- MOVE 5 TO VAR-9
- IF V2-4
- DISPLAY "NOT OK '" VAR-9 "' IS V2-4"
- END-DISPLAY
- END-IF
- MOVE 1 TO VAR-9
- IF V2-4
- DISPLAY "NOT OK '" VAR-9 "' IS V2-4"
- END-DISPLAY
- END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:4745: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:4745"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:4745"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:4746: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:4746"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:4746"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_580
-#AT_START_581
-at_fn_group_banner 581 'run_fundamental.at:4751' \
- "88 level with FILLER" " " 4
-at_xfail=no
-(
- printf "%s\n" "581. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 FILLER PIC X VALUE SPACE.
- 88 X VALUE "X".
- PROCEDURE DIVISION.
- IF X
- DISPLAY "NOT OK"
- END-DISPLAY
- END-IF
- SET X TO TRUE.
- IF NOT X
- DISPLAY "NOT OK"
- END-DISPLAY
- END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:4774: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:4774"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:4774"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:4775: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:4775"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:4775"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_581
-#AT_START_582
-at_fn_group_banner 582 'run_fundamental.at:4780' \
- "88 level with FALSE IS clause" " " 4
-at_xfail=no
-(
- printf "%s\n" "582. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 MYFLD PIC X(6) VALUE "ABCDEF".
- 88 MYFLD88 VALUE "ABCDEF"
- FALSE IS "OKOKOK".
- PROCEDURE DIVISION.
- ASTART SECTION.
- A01.
- SET MYFLD88 TO FALSE
- IF MYFLD NOT = "OKOKOK"
- DISPLAY MYFLD
- END-DISPLAY
- END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:4802: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:4802"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:4802"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:4803: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:4803"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:4803"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_582
-#AT_START_583
-at_fn_group_banner 583 'run_fundamental.at:4808' \
- "BLANK WHEN ZERO" " " 4
-at_xfail=no
-(
- printf "%s\n" "583. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x PIC 9, BLANK WHEN ZERO, VALUE 1.
-
- PROCEDURE DIVISION.
- DISPLAY x
- MOVE 0 TO x
- DISPLAY FUNCTION TRIM(x)
- MOVE ZERO TO x
- DISPLAY FUNCTION TRIM(x)
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:4828: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:4828"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:4828"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:4829: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:4829"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "1
-
-
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:4829"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_583
-#AT_START_584
-at_fn_group_banner 584 'run_fundamental.at:4838' \
- "MULTIPLY BY literal in INITIAL program" " " 4
-at_xfail=no
-(
- printf "%s\n" "584. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog INITIAL.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 num PIC 9(4) VALUE 5.
- 01 result PIC 9(4).
- 01 ws-temp PIC 9(8)V99.
- 01 ws-temp2 PIC 9(3)V99 VALUE 10.50.
- PROCEDURE DIVISION.
- MULTIPLY num BY 4 GIVING result
- MOVE 1.10 TO WS-TEMP.
- MULTIPLY WS-TEMP2 BY WS-TEMP GIVING WS-TEMP.
- *>
- IF result NOT = 20 DISPLAY 'Bad integer: ' result.
- IF WS-TEMP NOT = 11.55 DISPLAY 'Bad decimal: ' ws-temp.
- *>
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:4861: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:4861"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:4861"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:4862: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:4862"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:4862"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_584
-#AT_START_585
-at_fn_group_banner 585 'run_fundamental.at:4867' \
- "DIVIDE complex" " " 4
-at_xfail=no
-(
- printf "%s\n" "585. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. DivideExtent.
- DATA DIVISION.
- *>----------------------------------------------------------------
- *> Cover the cob_div_quotient c FUNCTION
- *> and complete all divide_statement parser rules
- *>----------------------------------------------------------------
- WORKING-STORAGE SECTION.
- 01 W01-DIVIDES.
- 05 RES-TAB PIC S9(09) BINARY OCCURS 3.
- *>
- PROCEDURE DIVISION.
- *>------------------
- TEST-FORMAT-1.
- *>-------------
- *> DIVIDE Format 1 DIVIDE INTO
- *> case 1 : should not size error
- MOVE 100 TO RES-TAB(1).
- MOVE 200 TO RES-TAB(2).
- MOVE 300 TO RES-TAB(3).
- DIVIDE 100 INTO
- RES-TAB(1)
- RES-TAB(2)
- RES-TAB(3)
- ON SIZE ERROR
- DISPLAY '1: Should not raised size error'
- END-DIVIDE.
- IF RES-TAB(1) NOT = 1
- OR RES-TAB(2) NOT = 2
- OR RES-TAB(3) NOT = 3
- DISPLAY 'F1.1: result <' RES-TAB(1) '> <' RES-TAB(2) '> <'
- RES-TAB(3) '> should be 1 2 3'.
- *> case 2 : should size error
- MOVE 0 TO RES-TAB(1).
- MOVE 100 TO RES-TAB(2).
- MOVE 200 TO RES-TAB(3).
- DIVIDE RES-TAB(1) INTO
- RES-TAB(2)
- RES-TAB(3)
- NOT ON SIZE ERROR
- DISPLAY 'F1.2: Should raise size error'
- END-DIVIDE.
- IF RES-TAB(1) NOT = 0
- OR RES-TAB(2) NOT = 100
- OR RES-TAB(3) NOT = 200
- DISPLAY 'F1.2: result <' RES-TAB(1) '> <' RES-TAB(2) '> <'
- RES-TAB(3) '> should be 0 100 200'.
- *> case 3 : not rounded
- MOVE 100 TO RES-TAB(1).
- DIVIDE 2.19 INTO RES-TAB(1)
- ON SIZE ERROR
- DISPLAY 'F1.3: Should not raise size error'
- END-DIVIDE.
- IF RES-TAB(1) NOT = 45
- DISPLAY 'F1.3: result <' RES-TAB(1) '> should be 45'.
- *> case 4 : rounded
- MOVE 100 TO RES-TAB(1).
- DIVIDE 2.19 INTO RES-TAB(1) ROUNDED
- ON SIZE ERROR
- DISPLAY 'F1.4: Should not raise size error'
- END-DIVIDE.
- *
- IF RES-TAB(1) NOT = 46
- DISPLAY 'F1.4: result <' RES-TAB(1) '> should be 46'.
- *>
- TEST-FORMAT-2.
- *>-------------
- *> DIVIDE Format 2:
- *> DIVIDE STATEMENT WITH INTO AND GIVING PHRASE
- DIVIDE 10.2 INTO 100 GIVING RES-TAB(1)
- ON SIZE ERROR
- DISPLAY 'F2.1: Should not raised size error'
- END-DIVIDE.
- IF RES-TAB(1) NOT = 9
- DISPLAY 'F2.1: result <' RES-TAB(1) '> should be 9'.
- DIVIDE 10.5 INTO 100 GIVING RES-TAB(1) ROUNDED
- ON SIZE ERROR
- DISPLAY 'F2.2: Should not raise size error'
- END-DIVIDE.
- IF RES-TAB(1) NOT = 10
- DISPLAY 'F2.2: result <' RES-TAB(1) '> should be 10'.
- DIVIDE 10.6 INTO 100 GIVING RES-TAB(1) ROUNDED
- ON SIZE ERROR
- DISPLAY 'F2.3: Should not raise size error'
- END-DIVIDE.
- IF RES-TAB(1) NOT = 9
- DISPLAY 'F2.3: result <' RES-TAB(1) '> should be 9'.
- *>
- TEST-FORMAT-4.
- *>-------------
- *> DIVIDE Format 4:
- *> DIVIDE STATEMENT WITH INTO AND REMAINDER PHRASE
- DIVIDE 2 INTO 100 GIVING RES-TAB(1) REMAINDER RES-TAB(2).
- IF RES-TAB(1) NOT = 50 OR RES-TAB(2) NOT = 0
- DISPLAY 'F4.1: result <' RES-TAB(1) '> <' RES-TAB(2)
- '> should be <50> <0>'.
- DIVIDE 3 INTO 100 GIVING RES-TAB(1) REMAINDER RES-TAB(2).
- IF RES-TAB(1) NOT = 33 OR RES-TAB(2) NOT = 1
- DISPLAY 'F4.1: result <' RES-TAB(1) '> <' RES-TAB(2)
- '> should be <33> <1>'.
- MOVE 0 TO RES-TAB(1) RES-TAB(2) RES-TAB(3).
- DIVIDE RES-TAB(1) INTO 100
- GIVING RES-TAB(2)
- REMAINDER RES-TAB(3)
- NOT ON SIZE ERROR
- DISPLAY 'F4.3: Should raised size error'
- END-DIVIDE.
- *>
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:4982: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:4982"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:4982"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:4983: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:4983"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:4983"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_585
-#AT_START_586
-at_fn_group_banner 586 'run_fundamental.at:4988' \
- "COMPUTE with decimal constants" " " 4
-at_xfail=no
-(
- printf "%s\n" "586. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# see bug #798, GC 2.2 may change the precision of decimal contants
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 CNT PIC 99 VALUE ZERO.
- 77 CALCER PIC s99v99.
- 01 DUMMY-RES PIC 99.
- *>
- PROCEDURE DIVISION.
- *> variable setting postponed here to work around "easy"
- *> optimization to constant
- MOVE 3.5 TO CALCER
- PERFORM 42 TIMES
- ADD 1 TO CNT
- >>D DISPLAY CNT
- *> directly returns:
- *> COMPUTE DUMMY-RES = 2 * (CALCER + 2) + 2
- *> performs "felt as forever":
- COMPUTE DUMMY-RES = (CALCER + 2) * 2 + 2
- END-PERFORM
-
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5018: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:5018"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5018"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5019: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:5019"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5019"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_586
-#AT_START_587
-at_fn_group_banner 587 'run_fundamental.at:5024' \
- "debugging lines (not active)" " " 4
-at_xfail=no
-(
- printf "%s\n" "587. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY "OK" NO ADVANCING
- END-DISPLAY.
- D DISPLAY "KO" NO ADVANCING
- D END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5040: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:5040"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5040"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5041: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:5041"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5041"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_587
-#AT_START_588
-at_fn_group_banner 588 'run_fundamental.at:5047' \
- "debugging lines (-fdebugging-line)" " " 4
-at_xfail=no
-(
- printf "%s\n" "588. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY "OK" NO ADVANCING
- END-DISPLAY.
- D DISPLAY "KO" NO ADVANCING
- D END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5063: \$COMPILE -fdebugging-line prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fdebugging-line prog.cob" "run_fundamental.at:5063"
-( $at_check_trace; $COMPILE -fdebugging-line prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5063"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5064: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:5064"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OKKO" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5064"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_588
-#AT_START_589
-at_fn_group_banner 589 'run_fundamental.at:5070' \
- "debugging lines (WITH DEBUGGING MODE)" " " 4
-at_xfail=no
-(
- printf "%s\n" "589. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER. mine WITH DEBUGGING MODE.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- D DISPLAY "KO" NO ADVANCING UPON STDOUT
- D END-DISPLAY.
- DISPLAY "OK" NO ADVANCING UPON STDOUT
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5089: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:5089"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5089"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5090: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:5090"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "KOOK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5090"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_589
-#AT_START_590
-at_fn_group_banner 590 'run_fundamental.at:5096' \
- "debugging lines, free format (not active)" " " 4
-at_xfail=no
-(
- printf "%s\n" "590. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY "OK" NO ADVANCING
- END-DISPLAY.
- >>D DISPLAY "KO" NO ADVANCING
- >>D END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5112: \$COMPILE -free prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -free prog.cob" "run_fundamental.at:5112"
-( $at_check_trace; $COMPILE -free prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5112"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5113: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:5113"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5113"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_590
-#AT_START_591
-at_fn_group_banner 591 'run_fundamental.at:5119' \
- "debugging lines, free format (-fdebugging-line)" "" 4
-at_xfail=no
-(
- printf "%s\n" "591. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY "OK" NO ADVANCING
- END-DISPLAY.
- >>D DISPLAY "KO" NO ADVANCING
- >>D END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5135: \$COMPILE -free -fdebugging-line prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -free -fdebugging-line prog.cob" "run_fundamental.at:5135"
-( $at_check_trace; $COMPILE -free -fdebugging-line prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5135"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5136: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:5136"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OKKO" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5136"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_591
-#AT_START_592
-at_fn_group_banner 592 'run_fundamental.at:5142' \
- "USE FOR DEBUGGING (no DEBUGGING MODE)" " " 4
-at_xfail=no
-(
- printf "%s\n" "592. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DECLARATIVES.
- TEST-DEBUG SECTION. USE FOR DEBUGGING ON ALL PROCEDURES.
- DISPLAY DEBUG-ITEM END-DISPLAY.
- END DECLARATIVES.
- FIRST-PAR.
- DISPLAY "OK1" END-DISPLAY.
- GO TO SECOND-PAR.
- SECOND-PAR.
- DISPLAY "OK2" END-DISPLAY.
- THIRD-PAR.
- DISPLAY "OK3" END-DISPLAY.
- PERFORM FIRST-PAR THRU SECOND-PAR.
- DISPLAY "OK4" END-DISPLAY.
- PERFORM SECOND-PAR.
- DISPLAY "OK5" END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5172: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:5172"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5172"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5173: COB_SET_DEBUG=1 \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_SET_DEBUG=1 $COBCRUN_DIRECT ./prog" "run_fundamental.at:5173"
-( $at_check_trace; COB_SET_DEBUG=1 $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK1
-OK2
-OK3
-OK1
-OK2
-OK4
-OK2
-OK5
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5173"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_592
-#AT_START_593
-at_fn_group_banner 593 'run_fundamental.at:5187' \
- "USE FOR DEBUGGING (COB_SET_DEBUG deactivated)" " " 4
-at_xfail=no
-(
- printf "%s\n" "593. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER. mine WITH DEBUGGING MODE.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DECLARATIVES.
- TEST-DEBUG SECTION. USE FOR DEBUGGING ON ALL PROCEDURES.
- DISPLAY DEBUG-ITEM END-DISPLAY.
- END DECLARATIVES.
- FIRST-PAR.
- DISPLAY "OK1" END-DISPLAY.
- GO TO SECOND-PAR.
- SECOND-PAR.
- DISPLAY "OK2" END-DISPLAY.
- THIRD-PAR.
- DISPLAY "OK3" END-DISPLAY.
- PERFORM FIRST-PAR THRU SECOND-PAR.
- DISPLAY "OK4" END-DISPLAY.
- PERFORM SECOND-PAR.
- DISPLAY "OK5" END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5217: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:5217"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5217"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5218: COB_SET_DEBUG=0 \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_SET_DEBUG=0 $COBCRUN_DIRECT ./prog" "run_fundamental.at:5218"
-( $at_check_trace; COB_SET_DEBUG=0 $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK1
-OK2
-OK3
-OK1
-OK2
-OK4
-OK2
-OK5
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5218"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_593
-#AT_START_594
-at_fn_group_banner 594 'run_fundamental.at:5232' \
- "USE FOR DEBUGGING ON ALL PROCEDURES" " " 4
-at_xfail=no
-(
- printf "%s\n" "594. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER. mine WITH DEBUGGING MODE.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DECLARATIVES.
- TEST-DEBUG SECTION. USE FOR DEBUGGING ON ALL PROCEDURES.
- DISPLAY DEBUG-ITEM "|" END-DISPLAY.
- END DECLARATIVES.
- FIRST-PAR.
- DISPLAY "OK1" END-DISPLAY.
- GO TO SECOND-PAR.
- SECOND-PAR.
- DISPLAY "OK2" END-DISPLAY.
- THIRD-PAR.
- DISPLAY "OK3" END-DISPLAY.
- PERFORM FIRST-PAR THRU SECOND-PAR.
- DISPLAY "OK4" END-DISPLAY.
- PERFORM SECOND-PAR.
- DISPLAY "OK5" END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5262: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:5262"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5262"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5263: COB_SET_DEBUG=1 \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_SET_DEBUG=1 $COBCRUN_DIRECT ./prog" "run_fundamental.at:5263"
-( $at_check_trace; COB_SET_DEBUG=1 $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " FIRST-PAR START PROGRAM |
-OK1
- 16 SECOND-PAR |
-OK2
- 18 THIRD-PAR FALL THROUGH |
-OK3
- 21 FIRST-PAR PERFORM LOOP |
-OK1
- 16 SECOND-PAR |
-OK2
-OK4
- 23 SECOND-PAR PERFORM LOOP |
-OK2
-OK5
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5263"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_594
-#AT_START_595
-at_fn_group_banner 595 'run_fundamental.at:5283' \
- "USE FOR DEBUGGING ON procedure" " " 4
-at_xfail=no
-(
- printf "%s\n" "595. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER. mine WITH DEBUGGING MODE.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DECLARATIVES.
- TEST-DEBUG SECTION. USE FOR DEBUGGING ON SECOND-PAR.
- DISPLAY DEBUG-ITEM "|" END-DISPLAY.
- END DECLARATIVES.
- FIRST-PAR.
- DISPLAY "OK1" END-DISPLAY.
- GO TO SECOND-PAR.
- SECOND-PAR.
- DISPLAY "OK2" END-DISPLAY.
- THIRD-PAR.
- DISPLAY "OK3" END-DISPLAY.
- PERFORM FIRST-PAR THRU SECOND-PAR.
- DISPLAY "OK4" END-DISPLAY.
- PERFORM SECOND-PAR.
- DISPLAY "OK5" END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5313: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:5313"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5313"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5314: COB_SET_DEBUG=1 \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_SET_DEBUG=1 $COBCRUN_DIRECT ./prog" "run_fundamental.at:5314"
-( $at_check_trace; COB_SET_DEBUG=1 $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK1
- 16 SECOND-PAR |
-OK2
-OK3
-OK1
- 16 SECOND-PAR |
-OK2
-OK4
- 23 SECOND-PAR PERFORM LOOP |
-OK2
-OK5
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5314"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_595
-#AT_START_596
-at_fn_group_banner 596 'run_fundamental.at:5331' \
- "USE FOR DEBUGGING (COB_SET_DEBUG switched)" " " 4
-at_xfail=no
-(
- printf "%s\n" "596. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER. mine WITH DEBUGGING MODE.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DECLARATIVES.
- TEST-DEBUG SECTION. USE FOR DEBUGGING ON ALL PROCEDURES.
- DISPLAY DEBUG-ITEM "|" END-DISPLAY.
- END DECLARATIVES.
- FIRST-PAR.
- SET ENVIRONMENT "COB_SET_DEBUG" TO "false"
- DISPLAY "OK1" END-DISPLAY.
- GO TO SECOND-PAR.
- SECOND-PAR.
- DISPLAY "OK2" END-DISPLAY.
- THIRD-PAR.
- DISPLAY "OK3" END-DISPLAY.
- PERFORM FIRST-PAR THRU SECOND-PAR.
- DISPLAY "OK4" END-DISPLAY.
- SET ENVIRONMENT "COB_SET_DEBUG" TO "Y"
- PERFORM SECOND-PAR.
- DISPLAY "OK5" END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5363: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:5363"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5363"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5364: COB_SET_DEBUG=1 \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_SET_DEBUG=1 $COBCRUN_DIRECT ./prog" "run_fundamental.at:5364"
-( $at_check_trace; COB_SET_DEBUG=1 $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " FIRST-PAR START PROGRAM |
-OK1
-OK2
-OK3
-OK1
-OK2
-OK4
- 25 SECOND-PAR PERFORM LOOP |
-OK2
-OK5
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5364"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_596
-#AT_START_597
-at_fn_group_banner 597 'run_fundamental.at:5380' \
- "USE FOR DEBUGGING ON [ALL] REFERENCES OF field" " " 4
-at_xfail=no
-(
- printf "%s\n" "597. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER. mine WITH DEBUGGING MODE.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 MY-DATA-FIELDS.
- 02 MY-DATA-FIELD-1 PIC 9 VALUE 1.
- 02 MDF.
- 03 MDF-TOO-LONG-NAMES.
- 05 MY-DATA-FIELD-2 PIC 9 VALUE 4.
- 05 MY-DATA-FIELD-3 REDEFINES MY-DATA-FIELD-2 PIC X.
- 01 MY-DATA-FIELD-B PIC X(40) VALUE "ABCD".
- PROCEDURE DIVISION.
- DECLARATIVES.
- TEST-DEBUG SECTION.
- USE FOR DEBUGGING ON ALL REFERENCES OF MY-DATA-FIELD-1
- ALL MY-DATA-FIELD-2
- MY-DATA-FIELD-3 MY-DATA-FIELD-B.
- DISPLAY DEBUG-ITEM "|" END-DISPLAY.
- END DECLARATIVES.
- INIT-PAR.
- MOVE 6 TO MY-DATA-FIELD-2.
- FIRST-PAR.
- PERFORM VARYING MY-DATA-FIELD-1 FROM 1 BY 1
- UNTIL MY-DATA-FIELD-1 > MY-DATA-FIELD-2
- *> empty by design
- END-PERFORM.
- END-PAR.
- MOVE "99" TO MY-DATA-FIELD-B.
- MOVE MY-DATA-FIELD-B TO MY-DATA-FIELDS.
- MOVE "X" TO MY-DATA-FIELD-3
- OF MDF
- OF MY-DATA-FIELDS.
- MOVE "-" TO MY-DATA-FIELD-3
- OF MDF-TOO-LONG-NAMES
- OF MDF
- OF MY-DATA-FIELDS.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5426: \$COMPILE -fmissing-statement=ok prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fmissing-statement=ok prog.cob" "run_fundamental.at:5426"
-( $at_check_trace; $COMPILE -fmissing-statement=ok prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5426"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# TODO: validate against other compilers, especially the line 30;
-# likely the second line should be 25 instead of 24:
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5429: COB_SET_DEBUG=1 \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_SET_DEBUG=1 $COBCRUN_DIRECT ./prog" "run_fundamental.at:5429"
-( $at_check_trace; COB_SET_DEBUG=1 $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " 25 MY-DATA-FIELD-2 6 |
- 27 MY-DATA-FIELD-1 1 |
- 27 MY-DATA-FIELD-1 1 |
- 27 MY-DATA-FIELD-2 6 |
- 27 MY-DATA-FIELD-1 2 |
- 27 MY-DATA-FIELD-1 2 |
- 27 MY-DATA-FIELD-2 6 |
- 27 MY-DATA-FIELD-1 3 |
- 27 MY-DATA-FIELD-1 3 |
- 27 MY-DATA-FIELD-2 6 |
- 27 MY-DATA-FIELD-1 4 |
- 27 MY-DATA-FIELD-1 4 |
- 27 MY-DATA-FIELD-2 6 |
- 27 MY-DATA-FIELD-1 5 |
- 27 MY-DATA-FIELD-1 5 |
- 27 MY-DATA-FIELD-2 6 |
- 27 MY-DATA-FIELD-1 6 |
- 27 MY-DATA-FIELD-1 6 |
- 27 MY-DATA-FIELD-2 6 |
- 27 MY-DATA-FIELD-1 7 |
- 27 MY-DATA-FIELD-1 7 |
- 27 MY-DATA-FIELD-2 6 |
- 32 MY-DATA-FIELD-B 99 |
- 34 MY-DATA-FIELD-3 OF MDF OF MY-D X |
- 37 MY-DATA-FIELD-3 OF MDF-TOO-LON - |
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5429"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_597
-#AT_START_598
-at_fn_group_banner 598 'run_fundamental.at:5460' \
- "USE FOR DEBUGGING, reference within DEBUGGING" " " 4
-at_xfail=no
-(
- printf "%s\n" "598. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER. mine WITH DEBUGGING MODE.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 DATA-FIELD PIC X(40) VALUE "ABCD".
- PROCEDURE DIVISION.
- DECLARATIVES.
- TEST-DEBUG SECTION.
- USE FOR DEBUGGING ON ALL REFERENCES OF DATA-FIELD.
- DISPLAY DEBUG-ITEM "|".
- MOVE "ABCD" TO DATA-FIELD.
- DISPLAY DEBUG-ITEM "|".
- END DECLARATIVES.
- SOME-PAR.
- MOVE QUOTE TO DATA-FIELD.
- IF DATA-FIELD = QUOTE DISPLAY "NO DEBUG" STOP RUN.
- DISPLAY "DEBUG".
- STOP RUN.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5486: \$COMPILE -Wno-terminator prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -Wno-terminator prog.cob" "run_fundamental.at:5486"
-( $at_check_trace; $COMPILE -Wno-terminator prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5486"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5487: COB_SET_DEBUG=1 \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_SET_DEBUG=1 $COBCRUN_DIRECT ./prog" "run_fundamental.at:5487"
-( $at_check_trace; COB_SET_DEBUG=1 $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " 19 DATA-FIELD \"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"|
- 19 DATA-FIELD \"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"|
- 20 DATA-FIELD ABCD |
- 20 DATA-FIELD ABCD |
-DEBUG
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5487"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5494: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:5494"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "NO DEBUG
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5494"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_598
-#AT_START_599
-at_fn_group_banner 599 'run_fundamental.at:5501' \
- "USE FOR DEBUGGING, time of execution" " " 4
-at_xfail=yes
-(
- printf "%s\n" "599. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# FIXME: the debugging procedure is executed after the statement,
-# which is generally fine, but not for "nested" statements
-# where DEBUG-ITEM contains wrong data and the
-# debugging procedure is called too late
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER. mine WITH DEBUGGING MODE.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 DATA-FIELD PIC X(40) VALUE "ABCD".
- PROCEDURE DIVISION.
- DECLARATIVES.
- TEST-DEBUG SECTION.
- USE FOR DEBUGGING ON ALL REFERENCES OF DATA-FIELD.
- DISPLAY DEBUG-ITEM "|".
- MOVE "ABCD" TO DATA-FIELD.
- END DECLARATIVES.
- SOME-PAR.
- MOVE QUOTE TO DATA-FIELD.
- IF DATA-FIELD = QUOTE
- DISPLAY "NO DEBUG"
- ELSE
- DISPLAY "DEBUG"
- MOVE SPACES TO DATA-FIELD
- CALL "NOTHERE" USING DATA-FIELD
- ON OVERFLOW
- DISPLAY "THIS IS FINE".
- STOP RUN.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5538: \$COMPILE -w prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -w prog.cob" "run_fundamental.at:5538"
-( $at_check_trace; $COMPILE -w prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5538"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5539: COB_SET_DEBUG=1 \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_SET_DEBUG=1 $COBCRUN_DIRECT ./prog" "run_fundamental.at:5539"
-( $at_check_trace; COB_SET_DEBUG=1 $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " 18 DATA-FIELD \"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"|
- 19 DATA-FIELD ABCD |
-DEBUG
- 23 DATA-FIELD |
- 24 DATA-FIELD ABCD |
-THIS IS FINE
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5539"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_599
-#AT_START_600
-at_fn_group_banner 600 'run_fundamental.at:5551' \
- "USE FOR DEBUGGING, reference with OCCURS" " " 4
-at_xfail=no
-(
- printf "%s\n" "600. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER. mine WITH DEBUGGING MODE.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 FILLER.
- 02 FILLER OCCURS 10.
- 03 FILLER OCCURS 5.
- 04 DATA-FIELD PIC X(40) VALUE "ABCD" OCCURS 2.
- PROCEDURE DIVISION.
- DECLARATIVES.
- TEST-DEBUG SECTION.
- USE FOR DEBUGGING ON ALL REFERENCES OF DATA-FIELD.
- DISPLAY DEBUG-ITEM "|" END-DISPLAY.
- END DECLARATIVES.
- SOME-PAR.
- MOVE QUOTE TO DATA-FIELD (4, 2, 1).
- STOP RUN.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5576: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:5576"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5576"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5577: COB_SET_DEBUG=1 \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_SET_DEBUG=1 $COBCRUN_DIRECT ./prog" "run_fundamental.at:5577"
-( $at_check_trace; COB_SET_DEBUG=1 $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " 20 DATA-FIELD +0004 +0002 +0001 \"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"|
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5577"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_600
-#AT_START_601
-at_fn_group_banner 601 'run_fundamental.at:5584' \
- "USE FOR DEBUGGING, referencing BASED item" " " 4
-at_xfail=no
-(
- printf "%s\n" "601. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER. mine WITH DEBUGGING MODE.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 DATA-FIELD PIC X(40) VALUE "ABCD" BASED.
- 77 PTR USAGE POINTER VALUE NULL.
- 01 DATA-FIELD3 PIC X(13) VALUE "42" BASED.
- LINKAGE SECTION.
- 01 DATA-FIELD2 PIC X(10) VALUE "DEF".
- PROCEDURE DIVISION.
- DECLARATIVES.
- TEST-DEBUG SECTION.
- USE FOR DEBUGGING ON ALL REFERENCES OF DATA-FIELD
- ALL REFERENCES OF DATA-FIELD2
- DATA-FIELD3.
- DISPLAY DEBUG-ITEM "|" END-DISPLAY.
- END DECLARATIVES.
- SOME-PAR.
- ALLOCATE -20 CHARACTERS RETURNING PTR
- SET ADDRESS OF DATA-FIELD TO PTR *> first expected output -> is NULL
- ALLOCATE DATA-FIELD INITIALIZED *> output with data as specified
- FREE DATA-FIELD *> No data any more
- ALLOCATE DATA-FIELD2 INITIALIZED *> DO-CHECK MF extension - otherwise identical
- SET PTR TO ADDRESS OF DATA-FIELD2
- FREE PTR
- SET ADDRESS OF DATA-FIELD2 TO NULL
- ALLOCATE DATA-FIELD3 INITIALIZED
- SET PTR TO ADDRESS OF DATA-FIELD3 *> only read, no output expected
- FREE DATA-FIELD3
- STOP RUN.
-_ATEOF
-
-# relaxed syntax is needed as the standard allows only to ALLOCATE BASED items
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5623: \$COMPILE -frelax-syntax-checks prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -frelax-syntax-checks prog.cob" "run_fundamental.at:5623"
-( $at_check_trace; $COMPILE -frelax-syntax-checks prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5623"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5624: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:5624"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5624"
-$at_failed && at_fn_log_failure
-$at_traceon; }
- # not active -> no displays
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5625: COB_SET_DEBUG=1 \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_SET_DEBUG=1 $COBCRUN_DIRECT ./prog" "run_fundamental.at:5625"
-( $at_check_trace; COB_SET_DEBUG=1 $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " 24 DATA-FIELD <NULL> |
- 25 DATA-FIELD ABCD |
- 26 DATA-FIELD <NULL> |
- 27 DATA-FIELD2 DEF |
- 28 DATA-FIELD2 DEF |
- 30 DATA-FIELD2 <NULL> |
- 31 DATA-FIELD3 42 |
- 33 DATA-FIELD3 <NULL> |
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5625"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_601
-#AT_START_602
-at_fn_group_banner 602 'run_fundamental.at:5639' \
- "USE FOR DEBUGGING file" " " 4
-at_xfail=no
-(
- printf "%s\n" "602. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SOURCE-COMPUTER. mine WITH DEBUGGING MODE.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN "./TEST-FILE".
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(40).
- PROCEDURE DIVISION.
- DECLARATIVES.
- TEST-DEBUG SECTION.
- USE FOR DEBUGGING ON TEST-FILE.
- DISPLAY DEBUG-ITEM "|" END-DISPLAY.
- END DECLARATIVES.
- SOME-PAR.
- OPEN OUTPUT TEST-FILE.
- WRITE TEST-REC FROM "DEF".
- CLOSE TEST-FILE.
- OPEN INPUT TEST-FILE.
- READ TEST-FILE.
- CLOSE TEST-FILE.
- STOP RUN.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5670: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:5670"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5670"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:5671: COB_SET_DEBUG=1 \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_SET_DEBUG=1 $COBCRUN_DIRECT ./prog" "run_fundamental.at:5671"
-( $at_check_trace; COB_SET_DEBUG=1 $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " 21 TEST-FILE |
- 23 TEST-FILE |
- 24 TEST-FILE |
- 25 TEST-FILE DEF |
- 26 TEST-FILE |
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:5671"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_602
-#AT_START_603
-at_fn_group_banner 603 'run_fundamental.at:5682' \
- "Simple Expressions with figurative constants" " " 4
-at_xfail=no
-(
- printf "%s\n" "603. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- ******************************************************************
- WORKING-STORAGE SECTION.
- 01 FLDX PIC X VALUE 'X'.
- 01 FLDXX PIC XX VALUE SPACES.
- 01 FLDX50 PIC X(50) VALUE 'X50'.
- 01 FLDX500 PIC X(500) VALUE 'X500'.
- 01 FLDX32K PIC X(32000) VALUE 'X'.
- 01 FLD1 PIC X VALUE '1'.
- 01 FLD1X PIC X(32000) VALUE '1'.
- 01 FILLER USAGE BINARY-INT VALUE 0.
- 88 DO-DISP VALUE 0.
- 88 NO-DISP VALUE 1.
- REPLACE ==DISPLAY== BY ==IF DO-DISP DISPLAY==.
-
- PROCEDURE DIVISION.
- MAIN-LINE.
-
- *> Test with DISPLAY on error
- PERFORM DO-CHECK
- >> IF CHECK-PERF IS DEFINED
- SET NO-DISP TO TRUE
- *> minimal side-test for performance comparisons
- PERFORM DO-CHECK 20000 TIMES
- >> END-IF
- GOBACK.
-
- DO-CHECK.
- *> check with 1 byte, comparison algorithm is a direct comparison
- IF FLDX > SPACE CONTINUE
- ELSE DISPLAY '! "X" > SPACE'.
- IF FLDX < SPACE DISPLAY ' "X" < SPACE!'.
- IF FLDX >= SPACE CONTINUE
- ELSE DISPLAY '! "X" >= SPACE'.
- IF FLDX <= SPACE DISPLAY ' "X" <= SPACE!'.
-
- IF SPACE < FLDX CONTINUE
- ELSE DISPLAY '! SPACE < "X"'.
- IF SPACE > FLDX DISPLAY ' SPACE > "X"!'.
- IF SPACE <= FLDX CONTINUE
- ELSE DISPLAY '! SPACE <= "X"'.
- IF SPACE >= FLDX DISPLAY ' SPACE >= "X"!'.
-
- IF FLDX > " " CONTINUE
- ELSE DISPLAY '! "X" > " "'.
- IF FLDX < " " DISPLAY ' "X" < " "!'.
- IF FLDX >= " " CONTINUE
- ELSE DISPLAY '! "X" >= " "'.
- IF FLDX <= " " DISPLAY ' "X" <= " "!'.
-
- IF " " < FLDX CONTINUE
- ELSE DISPLAY '! " " < "X"'.
- IF " " > FLDX DISPLAY ' " " > "X"!'.
- IF " " <= FLDX CONTINUE
- ELSE DISPLAY '! " " <= "X"'.
- IF " " >= FLDX DISPLAY ' " " >= "X"!'.
-
-
- IF FLDX > LOW-VALUE CONTINUE
- ELSE DISPLAY '! "X" > LOW-VALUE'.
- IF FLDX < LOW-VALUE DISPLAY ' "X" < LOW-VALUE!'.
- IF FLDX >= LOW-VALUE CONTINUE
- ELSE DISPLAY '! "X" >= LOW-VALUE'.
- IF FLDX <= LOW-VALUE DISPLAY ' "X" <= LOW-VALUE!'.
-
- IF LOW-VALUE < FLDX CONTINUE
- ELSE DISPLAY '! LOW-VALUE < "X"'.
- IF LOW-VALUE > FLDX DISPLAY ' LOW-VALUE > "X"!'.
- IF LOW-VALUE <= FLDX CONTINUE
- ELSE DISPLAY '! LOW-VALUE <= "X"'.
- IF LOW-VALUE >= FLDX DISPLAY ' LOW-VALUE >= "X"!'.
-
- IF FLDX > x"00" CONTINUE
- ELSE DISPLAY '! "X" > x"00"'.
- IF FLDX < x"00" DISPLAY ' "X" < x"00"!'.
- IF FLDX >= x"00" CONTINUE
- ELSE DISPLAY '! "X" >= x"00"'.
- IF FLDX <= x"00" DISPLAY ' "X" <= x"00"!'.
-
- IF x"00" < FLDX CONTINUE
- ELSE DISPLAY '! x"00" < "X"'.
- IF x"00" > FLDX DISPLAY ' x"00" > "X"!'.
- IF x"00" <= FLDX CONTINUE
- ELSE DISPLAY '! x"00" <= "X"'.
- IF x"00" >= FLDX DISPLAY ' x"00" >= "X"!'.
-
-
- IF FLDX < HIGH-VALUE CONTINUE
- ELSE DISPLAY '! "X" < HIGH-VALUE'.
- IF FLDX > HIGH-VALUE DISPLAY ' "X" > HIGH-VALUE!'.
- IF FLDX <= HIGH-VALUE CONTINUE
- ELSE DISPLAY '! "X" <= HIGH-VALUE'.
- IF FLDX >= HIGH-VALUE DISPLAY ' "X" >= HIGH-VALUE!'.
-
- IF HIGH-VALUE > FLDX CONTINUE
- ELSE DISPLAY '! HIGH-VALUE > "X"'.
- IF HIGH-VALUE < FLDX DISPLAY ' HIGH-VALUE < "X"!'.
- IF HIGH-VALUE >= FLDX CONTINUE
- ELSE DISPLAY '! HIGH-VALUE >= "X"'.
- IF HIGH-VALUE <= FLDX DISPLAY ' HIGH-VALUE <= "X"!'.
-
- IF FLDX < x"FF" CONTINUE
- ELSE DISPLAY '! "X" < x"FF"'.
- IF FLDX > x"FF" DISPLAY ' "X" > x"FF"!'.
- IF FLDX <= x"FF" CONTINUE
- ELSE DISPLAY '! "X" <= x"FF"'.
- IF FLDX >= x"FF" DISPLAY ' "X" >= x"FF"!'.
-
- IF x"FF" > FLDX CONTINUE
- ELSE DISPLAY '! x"FF" > "X"'.
- IF x"FF" < FLDX DISPLAY ' x"FF" < "X"!'.
- IF x"FF" >= FLDX CONTINUE
- ELSE DISPLAY '! x"FF" >= "X"'.
- IF x"FF" <= FLDX DISPLAY ' x"FF" <= "X"!'.
-
-
- IF FLD1 > ZERO CONTINUE
- ELSE DISPLAY '! "1" > ZERO'.
- IF FLD1 < ZERO DISPLAY ' "1" < ZERO!'.
- IF FLD1 >= ZERO CONTINUE
- ELSE DISPLAY '! "1" >= ZERO'.
- IF FLD1 <= ZERO DISPLAY ' "1" <= ZERO!'.
-
- IF ZERO < FLD1 CONTINUE
- ELSE DISPLAY '! ZERO < "1"'.
- IF ZERO > FLD1 DISPLAY ' ZERO > "1"!'.
- IF ZERO <= FLD1 CONTINUE
- ELSE DISPLAY '! ZERO <= "1"'.
- IF ZERO >= FLD1 DISPLAY ' ZERO >= "1"!'.
-
- IF FLD1 > "0" CONTINUE
- ELSE DISPLAY '! "1" > "0"'.
- IF FLD1 < "0" DISPLAY ' "1" < "0"!'.
- IF FLD1 >= "0" CONTINUE
- ELSE DISPLAY '! "1" >= "0"'.
- IF FLD1 <= "0" DISPLAY ' "1" <= "0"!'.
-
- IF "0" < FLD1 CONTINUE
- ELSE DISPLAY '! "0" < "1"'.
- IF "0" > FLD1 DISPLAY ' "0" > "1"!'.
- IF "0" <= FLD1 CONTINUE
- ELSE DISPLAY '! "0" <= "1"'.
- IF "0" >= FLD1 DISPLAY ' "0" >= "1"!'.
-
- *> check with many bytes, needs another comparison algorithm (function)
- IF FLDX32K > SPACE CONTINUE
- ELSE DISPLAY '! "X " > SPACE'.
- IF FLDX32K < SPACE DISPLAY ' "X " < SPACE!'.
- IF FLDX32K >= SPACE CONTINUE
- ELSE DISPLAY '! "X " >= SPACE'.
- IF FLDX32K <= SPACE DISPLAY ' "X " <= SPACE!'.
-
- IF SPACE < FLDX32K CONTINUE
- ELSE DISPLAY '! SPACE < "X "'.
- IF SPACE > FLDX32K DISPLAY ' SPACE > "X "!'.
- IF SPACE <= FLDX32K CONTINUE
- ELSE DISPLAY '! SPACE <= "X "'.
- IF SPACE >= FLDX32K DISPLAY ' SPACE >= "X "!'.
-
- IF FLDX32K > " " CONTINUE
- ELSE DISPLAY '! "X " > " "'.
- IF FLDX32K < " " DISPLAY ' "X " < " "!'.
- IF FLDX32K >= " " CONTINUE
- ELSE DISPLAY '! "X " >= " "'.
- IF FLDX32K <= " " DISPLAY ' "X " <= " "!'.
-
- IF " " < FLDX32K CONTINUE
- ELSE DISPLAY '! " " < "X "'.
- IF " " > FLDX32K DISPLAY ' " " > "X "!'.
- IF " " <= FLDX32K CONTINUE
- ELSE DISPLAY '! " " <= "X "'.
- IF " " >= FLDX32K DISPLAY ' " " >= "X "!'.
-
-
- IF FLDX32K > LOW-VALUE CONTINUE
- ELSE DISPLAY '! "X" > LOW-VALUE'.
- IF FLDX32K < LOW-VALUE DISPLAY ' "X" < LOW-VALUE!'.
- IF FLDX32K >= LOW-VALUE CONTINUE
- ELSE DISPLAY '! "X" >= LOW-VALUE'.
- IF FLDX32K <= LOW-VALUE DISPLAY ' "X" <= LOW-VALUE!'.
-
- IF LOW-VALUE < FLDX32K CONTINUE
- ELSE DISPLAY '! LOW-VALUE < "X"'.
- IF LOW-VALUE > FLDX32K DISPLAY ' LOW-VALUE > "X"!'.
- IF LOW-VALUE <= FLDX32K CONTINUE
- ELSE DISPLAY '! LOW-VALUE <= "X"'.
- IF LOW-VALUE >= FLDX32K DISPLAY ' LOW-VALUE >= "X"!'.
-
- IF FLDX32K > x"00" CONTINUE
- ELSE DISPLAY '! "X " > x"00"'.
- IF FLDX32K < x"00" DISPLAY ' "X " < x"00"!'.
- IF FLDX32K >= x"00" CONTINUE
- ELSE DISPLAY '! "X " >= x"00"'.
- IF FLDX32K <= x"00" DISPLAY ' "X " <= x"00"!'.
-
- IF x"00" < FLDX32K CONTINUE
- ELSE DISPLAY '! x"00" < "X "'.
- IF x"00" > FLDX32K DISPLAY ' x"00" > "X "!'.
- IF x"00" <= FLDX32K CONTINUE
- ELSE DISPLAY '! x"00" <= "X "'.
- IF x"00" >= FLDX32K DISPLAY ' x"00" >= "X "!'.
-
-
- IF FLDX32K < HIGH-VALUE CONTINUE
- ELSE DISPLAY '! "X " < HIGH-VALUE'.
- IF FLDX32K > HIGH-VALUE DISPLAY ' "X " > HIGH-VALUE!'.
- IF FLDX32K <= HIGH-VALUE CONTINUE
- ELSE DISPLAY '! "X " <= HIGH-VALUE'.
- IF FLDX32K >= HIGH-VALUE DISPLAY ' "X " >= HIGH-VALUE!'.
-
- IF HIGH-VALUE > FLDX32K CONTINUE
- ELSE DISPLAY '! HIGH-VALUE > "X "'.
- IF HIGH-VALUE < FLDX32K DISPLAY ' HIGH-VALUE < "X "!'.
- IF HIGH-VALUE >= FLDX32K CONTINUE
- ELSE DISPLAY '! HIGH-VALUE >= "X "'.
- IF HIGH-VALUE <= FLDX32K DISPLAY ' HIGH-VALUE <= "X "!'.
-
- IF FLDX32K < x"FF" CONTINUE
- ELSE DISPLAY '! "X " < x"FF"'.
- IF FLDX32K > x"FF" DISPLAY ' "X " > x"FF"!'.
- IF FLDX32K <= x"FF" CONTINUE
- ELSE DISPLAY '! "X " <= x"FF"'.
- IF FLDX32K >= x"FF" DISPLAY ' "X " >= x"FF"!'.
-
- IF x"FF" > FLDX32K CONTINUE
- ELSE DISPLAY '! x"FF" > "X "'.
- IF x"FF" < FLDX32K DISPLAY ' x"FF" < "X "!'.
- IF x"FF" >= FLDX32K CONTINUE
- ELSE DISPLAY '! x"FF" >= "X "'.
- IF x"FF" <= FLDX32K DISPLAY ' x"FF" <= "X "!'.
-
-
- IF FLD1X > ZERO CONTINUE
- ELSE DISPLAY '! "1 " > ZERO'.
- IF FLD1X < ZERO DISPLAY ' "1 " < ZERO!'.
- IF FLD1X >= ZERO CONTINUE
- ELSE DISPLAY '! "1 " >= ZERO'.
- IF FLD1X <= ZERO DISPLAY ' "1 " <= ZERO!'.
-
- IF ZERO < FLD1X CONTINUE
- ELSE DISPLAY '! ZERO < "1 "'.
- IF ZERO > FLD1X DISPLAY ' ZERO > "1 "!'.
- IF ZERO <= FLD1X CONTINUE
- ELSE DISPLAY '! ZERO <= "1 "'.
- IF ZERO >= FLD1X DISPLAY ' ZERO >= "1 "!'.
-
- IF FLD1X > "0" CONTINUE
- ELSE DISPLAY '! "1 " > "0"'.
- IF FLD1X < "0" DISPLAY ' "1 " < "0"!'.
- IF FLD1X >= "0" CONTINUE
- ELSE DISPLAY '! "1 " >= "0"'.
- IF FLD1X <= "0" DISPLAY ' "1 " <= "0"!'.
-
- IF "0" < FLD1X CONTINUE
- ELSE DISPLAY '! "0" < "1 "'.
- IF "0" > FLD1X DISPLAY ' "0" > "1 "!'.
- IF "0" <= FLD1X CONTINUE
- ELSE DISPLAY '! "0" <= "1 "'.
- IF "0" >= FLD1X DISPLAY ' "0" >= "1 "!'.
-
- *> special check for SPACE-optimization and extra spaces
- IF FLDX500 > SPACE CONTINUE
- ELSE DISPLAY '! "X5" > SPACE'.
- IF FLDX500 < SPACE DISPLAY ' "X5" < SPACE!'.
- IF FLDX500 >= SPACE CONTINUE
- ELSE DISPLAY '! "X5" >= SPACE'.
- IF FLDX500 <= SPACE DISPLAY ' "X5" <= SPACE!'.
-
- IF SPACE < FLDX500 CONTINUE
- ELSE DISPLAY '! SPACE < "X5"'.
- IF SPACE > FLDX500 DISPLAY ' SPACE > "X5"!'.
- IF SPACE <= FLDX500 CONTINUE
- ELSE DISPLAY '! SPACE <= "X5"'.
- IF SPACE >= FLDX500 DISPLAY ' SPACE >= "X5"!'.
-
- MOVE SPACES TO FLDXX
- IF FLDXX = " " CONTINUE
- ELSE DISPLAY '! "XX" <> " "'.
- MOVE ALL "A" TO FLDXX
- IF FLDXX = "AA " CONTINUE
- ELSE DISPLAY '! "AA" <> "AA "'.
- IF FLDXX = "AAA" DISPLAY '! "AA" = "AAA "'.
- IF FLDXX = ALL "A" CONTINUE
- ELSE DISPLAY '! "AA" <> ALL "A"'.
- MOVE "B" TO FLDXX (2:1)
- IF FLDXX = ALL "AB" CONTINUE
- ELSE DISPLAY '! "AB" <> ALL "AB"'.
-
- IF FLDX <= ALL "XX" CONTINUE
- ELSE DISPLAY '! "X" > ALL "XX"'.
- IF ALL "XX" NOT > FLDX CONTINUE
- ELSE DISPLAY '! ALL "XX" <= "X"'.
-
- *> special check for ZERO-optimization and extra spaces
- MOVE ALL ZERO TO FLDX500 FLDX50
- MOVE "1" TO FLDX500 (500:1) FLDX50(50:1)
- IF FLDX50 > ZERO CONTINUE
- ELSE DISPLAY '! "000...01" > ZERO'.
- IF FLDX50 < ZERO DISPLAY ' "000...01" < ZERO!'.
- IF FLDX50 >= ZERO CONTINUE
- ELSE DISPLAY '! "000...01" >= ZERO'.
- IF FLDX50 <= ZERO DISPLAY ' "000...01" <= ZERO!'.
-
- IF ZERO < FLDX50 CONTINUE
- ELSE DISPLAY '! ZERO < "000...01"'.
- IF ZERO > FLDX50 DISPLAY ' ZERO > "000...01"!'.
- IF ZERO <= FLDX50 CONTINUE
- ELSE DISPLAY '! ZERO <= "000...01"'.
- IF ZERO >= FLDX50 DISPLAY ' ZERO >= "000...01"!'.
-
- IF FLDX500 > ZERO CONTINUE
- ELSE DISPLAY '! "000...01" > ZERO'.
- IF FLDX500 < ZERO DISPLAY ' "000...01" < ZERO!'.
- IF FLDX500 >= ZERO CONTINUE
- ELSE DISPLAY '! "000...01" >= ZERO'.
- IF FLDX500 <= ZERO DISPLAY ' "000...01" <= ZERO!'.
-
- IF ZERO < FLDX500 CONTINUE
- ELSE DISPLAY '! ZERO < "000...01"'.
- IF ZERO > FLDX500 DISPLAY ' ZERO > "000...01"!'.
- IF ZERO <= FLDX500 CONTINUE
- ELSE DISPLAY '! ZERO <= "000...01"'.
- IF ZERO >= FLDX500 DISPLAY ' ZERO >= "000...01"!'.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6013: \$COMPILE prog.cob -Wno-constant-expression"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob -Wno-constant-expression" "run_fundamental.at:6013"
-( $at_check_trace; $COMPILE prog.cob -Wno-constant-expression
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6013"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6014: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:6014"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6014"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6016: \$COMPILE prog.cob -Wno-constant-expression -fno-constant-folding -fno-fast-compare"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob -Wno-constant-expression -fno-constant-folding -fno-fast-compare" "run_fundamental.at:6016"
-( $at_check_trace; $COMPILE prog.cob -Wno-constant-expression -fno-constant-folding -fno-fast-compare
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6016"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6017: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:6017"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6017"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6019: \$COMPILE prog.cob -Wno-constant-expression -fno-constant-folding"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob -Wno-constant-expression -fno-constant-folding" "run_fundamental.at:6019"
-( $at_check_trace; $COMPILE prog.cob -Wno-constant-expression -fno-constant-folding
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6019"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6020: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:6020"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6020"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_603
-#AT_START_604
-at_fn_group_banner 604 'run_fundamental.at:6025' \
- "Expression numeric vs. DISPLAY" " " 4
-at_xfail=no
-(
- printf "%s\n" "604. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- ******************************************************************
- WORKING-STORAGE SECTION.
- 01 FLDX50 PIC X(50) VALUE 'X50'.
- 01 FLDX10J PIC X(10) VALUE '0123'.
- 01 FLDNUMD PIC S9(3) VALUE -123.
- 01 FLDNUMD4 PIC S9(4) VALUE -123.
- 01 FLDNUMB PIC S9v99 VALUE -1.23 USAGE BINARY.
- 01 FILLER USAGE BINARY-INT VALUE 0.
- 88 DO-DISP VALUE 0.
- 88 NO-DISP VALUE 1.
- REPLACE ==DISPLAY== BY ==IF DO-DISP DISPLAY==.
-
- PROCEDURE DIVISION.
- MAIN-LINE.
-
- *> Test with DISPLAY on error
- PERFORM DO-CHECK
- >> IF CHECK-PERF IS DEFINED
- SET NO-DISP TO TRUE
- *> minimal side-test for performance comparisons
- PERFORM DO-CHECK 20000 TIMES
- >> END-IF
- GOBACK.
-
- DO-CHECK.
- MOVE "123" TO FLDX50
- IF 123 = FLDX50 CONTINUE
- ELSE DISPLAY '! 123 <> "123"'.
- IF FLDNUMD = FLDNUMD4 CONTINUE
- ELSE DISPLAY '! 123 <> 0123'.
- IF FLDX50 = FLDNUMD4 DISPLAY '! "123" = 0123'
- ELSE CONTINUE.
- IF FLDNUMD = FLDX50 CONTINUE
- ELSE DISPLAY '!-123 DISP <> "123"'.
- IF FLDX50 = FLDNUMB CONTINUE
- ELSE DISPLAY '!-1.23 BIN <> "123"'.
- IF FLDX10J = FLDNUMD4 CONTINUE
- ELSE DISPLAY '! "0123" J <> "0123"'.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6072: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:6072"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6072"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6073: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:6073"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6073"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6075: \$COMPILE prog.cob -Wno-constant-expression -fno-constant-folding -fno-fast-compare"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob -Wno-constant-expression -fno-constant-folding -fno-fast-compare" "run_fundamental.at:6075"
-( $at_check_trace; $COMPILE prog.cob -Wno-constant-expression -fno-constant-folding -fno-fast-compare
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6075"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_604
-#AT_START_605
-at_fn_group_banner 605 'run_fundamental.at:6080' \
- "Abbreviated Expressions" " " 4
-at_xfail=no
-(
- printf "%s\n" "605. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- SWITCH-1
- IS WRK-SWITCH-1
- ON STATUS IS ON-WRK-SWITCH-1
- OFF STATUS IS OFF-WRK-SWITCH-1
- SWITCH-2
- IS WRK-SWITCH-2
- OFF STATUS IS OFF-WRK-SWITCH-2.
- DATA DIVISION.
- ******************************************************************
- WORKING-STORAGE SECTION.
- *
- 01 FLD9-0 PIC 9 VALUE 0.
- 01 FLD9-1 PIC 9 VALUE 1.
- 01 FLD9-2 PIC 9 VALUE 2.
- 01 FLD9-5 PIC 9 VALUE 5.
- 01 FLD9-7 PIC 9 VALUE 7.
- 01 FLD9-9 PIC 9 VALUE 9.
- 01 FLDX PIC X VALUE 'X'.
- 01 FLDY PIC X VALUE 'Y'.
- 01 FLDYY PIC X VALUE 'Y'.
- 01 FLDZ PIC X VALUE 'Z'.
- 01 TESTNUM PIC 99 VALUE 1.
-
- PROCEDURE DIVISION.
- MAIN-LINE.
-
- IF FLD9-7 > FLD9-5 AND NOT < FLD9-0 OR FLD9-1
- PERFORM PASS ELSE PERFORM FAIL.
- IF FLD9-7 NOT = FLD9-5 OR FLD9-1
- PERFORM PASS ELSE PERFORM FAIL.
- IF FLD9-7 NOT = FLD9-5 AND FLD9-1
- PERFORM PASS ELSE PERFORM FAIL.
- IF NOT FLD9-7 = FLD9-5 OR FLD9-1
- PERFORM PASS ELSE PERFORM FAIL.
- IF NOT (FLD9-5 > FLD9-7 OR < FLD9-1)
- PERFORM PASS ELSE PERFORM FAIL.
- IF NOT (FLD9-7 NOT > FLD9-5 AND FLD9-2 AND NOT FLD9-1)
- PERFORM PASS ELSE PERFORM FAIL.
- IF FLD9-9 > FLD9-2 AND FLD9-7 AND FLD9-5
- PERFORM PASS ELSE PERFORM FAIL.
- IF FLD9-9 > FLD9-2 AND FLD9-7 OR FLD9-5
- PERFORM PASS ELSE PERFORM FAIL.
- IF FLD9-1 < FLD9-2 AND FLD9-5 AND FLD9-7
- PERFORM PASS ELSE PERFORM FAIL.
-
- * // DISPLAY "***Constant expressions***".
- IF 9 > 2 AND 7 AND 5 AND 1
- PERFORM PASS ELSE PERFORM FAIL.
- IF 1 < 2 AND 5 AND 7 AND 9
- PERFORM PASS ELSE PERFORM FAIL.
- IF 5 < 2 OR 1 OR 9 OR 7
- PERFORM PASS ELSE PERFORM FAIL.
- IF 5 > 1 AND < 3 OR 6
- PERFORM PASS ELSE PERFORM FAIL.
-
- * // DISPLAY "***Switch expressions***".
- IF ON-WRK-SWITCH-1
- OR NOT OFF-WRK-SWITCH-2
- AND OFF-WRK-SWITCH-1
- PERFORM FAIL ELSE PERFORM PASS.
- DISPLAY "***FINE***" WITH NO ADVANCING.
- STOP RUN.
-
- PASS.
- * // DISPLAY 'Test ' TESTNUM ' passed'
- ADD 1 TO TESTNUM.
-
- FAIL.
- DISPLAY 'Test ' TESTNUM ' failed!'
- ADD 1 TO TESTNUM.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6161: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:6161"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in paragraph 'MAIN-LINE':
-prog.cob:47: warning: suggest parentheses around AND within OR
-prog.cob:53: warning: expression '9' GREATER THAN '2' is always TRUE
-prog.cob:53: warning: expression '9' GREATER THAN '7' is always TRUE
-prog.cob:53: warning: expression '9' GREATER THAN '5' is always TRUE
-prog.cob:53: warning: expression '9' GREATER THAN '1' is always TRUE
-prog.cob:55: warning: expression '1' LESS THAN '2' is always TRUE
-prog.cob:55: warning: expression '1' LESS THAN '5' is always TRUE
-prog.cob:55: warning: expression '1' LESS THAN '7' is always TRUE
-prog.cob:55: warning: expression '1' LESS THAN '9' is always TRUE
-prog.cob:57: warning: expression '5' LESS THAN '2' is always FALSE
-prog.cob:57: warning: expression '5' LESS THAN '1' is always FALSE
-prog.cob:57: warning: expression '5' LESS THAN '9' is always TRUE
-prog.cob:57: warning: expression '5' LESS THAN '7' is always TRUE
-prog.cob:59: warning: expression '5' GREATER THAN '1' is always TRUE
-prog.cob:59: warning: expression '5' LESS THAN '3' is always FALSE
-prog.cob:59: warning: expression '5' LESS THAN '6' is always TRUE
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6161"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6181: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:6181"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "***FINE***" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6181"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6183: \$COMPILE -fno-constant-folding prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fno-constant-folding prog.cob" "run_fundamental.at:6183"
-( $at_check_trace; $COMPILE -fno-constant-folding prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in paragraph 'MAIN-LINE':
-prog.cob:47: warning: suggest parentheses around AND within OR
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6183"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6187: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:6187"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "***FINE***" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6187"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_605
-#AT_START_606
-at_fn_group_banner 606 'run_fundamental.at:6192' \
- "integer arithmetic on floating-point var" " " 4
-at_xfail=no
-(
- printf "%s\n" "606. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x USAGE FLOAT-SHORT VALUE 123.456.
-
- PROCEDURE DIVISION.
- ADD 360 TO x
- IF x <> 483.456
- DISPLAY "ADD wrong: " x
- MOVE 483.456 TO x
- END-IF
-
- SUBTRACT 360 FROM x
- IF x <> 123.456
- DISPLAY "SUBTRACT wrong: " x
- MOVE 123.456 TO x
- END-IF
-
- DIVIDE 2 INTO x
- IF x <> 61.728
- DISPLAY "DIVIDE wrong: " x
- MOVE 61.728 TO x
- END-IF
-
- MULTIPLY 2 BY x
- IF x <> 123.456
- DISPLAY "MULTIPLY wrong: " x
- END-IF
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6229: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:6229"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6229"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6230: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:6230"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6230"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_606
-#AT_START_607
-at_fn_group_banner 607 'run_fundamental.at:6234' \
- "TYPEDEF application" " " 4
-at_xfail=no
-(
- printf "%s\n" "607. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 INT IS TYPEDEF BINARY-LONG.
- 77 EXT-INT IS TYPEDEF BINARY-LONG EXTERNAL.
- *> should this be possible?
- *>77 INT-VAL IS TYPEDEF USAGE INT VALUE 12.
- 77 INT-VAL IS TYPEDEF BINARY-LONG VALUE 12.
- 77 SOMEVAR USAGE INT VALUE 10.
- 77 SOMEVAL USAGE INT-VAL.
- 77 SOMEEXT USAGE EXT-INT.
-
- PROCEDURE DIVISION.
- IF SOMEVAR <> 10
- DISPLAY "SOMEVAR (INT) wrong: " SOMEVAR
- END-IF
- IF SOMEVAL <> 12
- DISPLAY "SOMEVAR (INT-VAL) wrong: " SOMEVAL
- END-IF
- MOVE 42 TO SOMEEXT
- CALL "callee"
- .
-_ATEOF
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 EXT-INT IS TYPEDEF BINARY-LONG EXTERNAL.
- 77 SOMEEXT USAGE EXT-INT.
-
- PROCEDURE DIVISION.
- IF SOMEEXT <> 42
- DISPLAY "SOMEEXT (EXT-INT) wrong: " SOMEEXT
- END-IF
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6280: \$COMPILE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE caller.cob" "run_fundamental.at:6280"
-( $at_check_trace; $COMPILE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6280"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6281: \$COMPILE_MODULE callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee.cob" "run_fundamental.at:6281"
-( $at_check_trace; $COMPILE_MODULE callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6281"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6282: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_fundamental.at:6282"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6282"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_607
-#AT_START_608
-at_fn_group_banner 608 'run_fundamental.at:6286' \
- "Alphanumeric VALUE longer than PIC" " " 4
-at_xfail=no
-(
- printf "%s\n" "608. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X-SPACES PIC XXX VALUE " ".
- 01 X-Xs PIC XX VALUE "XXX".
- *> not longer but goes into similar codegen:
- 01 X-XXX PIC XXX VALUE "XX".
- PROCEDURE DIVISION.
- IF X-SPACES NOT = ALL SPACE
- DISPLAY 'BAD SPACE: ' X-SPACES.
- IF X-Xs NOT = ALL "X"
- DISPLAY 'BAD X: ' X-Xs.
- IF X-XXX NOT = "XX "
- DISPLAY 'BAD XXX: ' X-XXX.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6308: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:6308"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: warning: value does not fit the picture string
-prog.cob:7: warning: value size exceeds data size
-prog.cob:7: note: value size is 3
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6308"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6313: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:6313"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6313"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_608
-#AT_START_609
-at_fn_group_banner 609 'run_fundamental.at:6318' \
- "DISPLAY with P fields" " " 4
-at_xfail=no
-(
- printf "%s\n" "609. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# this test verifies that the size is correctly printed, which was buggy
-# with "P on the left side of the decimal point", see bug #874
-# me make a general DISPLAY with implied digits out of this test
-# and also verify no-pretty-printing result to be reasonable
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 P1 PIC 999 value 1.
- 01 P2 PIC 9P value 0.
- 01 P3 PIC V999 value .123.
- 01 P4 PIC VP9 value 0.
- 01 P5 PIC VPP9 value 0.
- 01 P6 PIC 9P value 10.
- PROCEDURE DIVISION.
- display '00=' P2 '; 001=' P1 '; 00=' P2 ';'
- display '.00=' P4 '; .000=' P5 '; .123=' P3 '; '
- '.00=' P4 '; .000=' P5 ';'
- move P1 to P2
- move P3 to P4, P5
- display '00=' P2 '; .02=' P4 '; .003=' P5 ';'
- display '10=' P6 ';'
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6348: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:6348"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6348"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6349: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:6349"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "00=00; 001=001; 00=00;
-.00=.00; .000=.000; .123=.123; .00=.00; .000=.000;
-00=00; .02=.02; .003=.003;
-10=10;
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6349"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6355: \$COMPILE -fno-pretty-display prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fno-pretty-display prog.cob" "run_fundamental.at:6355"
-( $at_check_trace; $COMPILE -fno-pretty-display prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6355"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6356: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:6356"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "00=0; 001=001; 00=0;
-.00=0; .000=0; .123=123; .00=0; .000=0;
-00=0; .02=2; .003=3;
-10=1;
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6356"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >packed.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. packed.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 P1 PIC 999 COMP-3 value 1.
- 01 P2 PIC 9P COMP-3 value 0.
- 01 P3 PIC V999 COMP-3 value .123.
- 01 P4 PIC VP9 COMP-3 value 0.
- 01 P5 PIC VPP9 COMP-3 value 0.
- 01 P6 PIC 9P COMP-3 value 10.
- PROCEDURE DIVISION.
- display '00=' P2 '; 001=' P1 '; 00=' P2 ';'
- display '.00=' P4 '; .000=' P5 '; .123=' P3 '; '
- '.00=' P4 '; .000=' P5 ';'
- move P1 to P2
- move P3 to P4, P5
- display '00=' P2 '; .02=' P4 '; .003=' P5 ';'
- display '10=' P6 ';'
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6385: \$COMPILE packed.cob"
-at_fn_check_prepare_dynamic "$COMPILE packed.cob" "run_fundamental.at:6385"
-( $at_check_trace; $COMPILE packed.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6385"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6386: \$COBCRUN_DIRECT ./packed"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./packed" "run_fundamental.at:6386"
-( $at_check_trace; $COBCRUN_DIRECT ./packed
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "00=00; 001=001; 00=00;
-.00=.00; .000=.000; .123=.123; .00=.00; .000=.000;
-00=00; .02=.02; .003=.003;
-10=10;
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6386"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6393: \$COMPILE -fno-pretty-display packed.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fno-pretty-display packed.cob" "run_fundamental.at:6393"
-( $at_check_trace; $COMPILE -fno-pretty-display packed.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6393"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6394: \$COBCRUN_DIRECT ./packed"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./packed" "run_fundamental.at:6394"
-( $at_check_trace; $COBCRUN_DIRECT ./packed
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "00=0; 001=001; 00=0;
-.00=0; .000=0; .123=123; .00=0; .000=0;
-00=0; .02=2; .003=3;
-10=1;
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6394"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_609
-#AT_START_610
-at_fn_group_banner 610 'run_fundamental.at:6404' \
- "condition IS ZERO AND" " " 4
-at_xfail=no
-(
- printf "%s\n" "610. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# for more details see bug #875
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 V PIC 9 VALUE 0.
- 01 W PIC 9 VALUE 1.
- PROCEDURE DIVISION.
- IF V IS ZERO
- DISPLAY "V IS ZERO"
- END-IF.
- IF V IS ZERO AND W EQUAL 1
- DISPLAY "V IS ZERO AND W EQUAL 1"
- END-IF.
- IF W EQUAL 1 AND V IS ZERO
- DISPLAY "W EQUAL 1 AND V IS ZERO"
- END-IF.
- IF W IS POSITIVE
- DISPLAY "W IS POSITIVE"
- END-IF.
- IF W IS NEGATIVE
- DISPLAY "W IS NEGATIVE"
- END-IF.
- IF W IS POSITIVE AND V EQUAL 0
- DISPLAY "W IS POSITIVE AND V EQUAL 0"
- END-IF.
- IF V EQUAL 0 AND W IS POSITIVE
- DISPLAY "V EQUAL 0 AND W IS POSITIVE"
- END-IF.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6440: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:6440"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:21: warning: unsigned 'W' may not be LESS THAN ZERO
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6440"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6444: ./prog"
-at_fn_check_prepare_trace "run_fundamental.at:6444"
-( $at_check_trace; ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "V IS ZERO
-V IS ZERO AND W EQUAL 1
-W EQUAL 1 AND V IS ZERO
-W IS POSITIVE
-W IS POSITIVE AND V EQUAL 0
-V EQUAL 0 AND W IS POSITIVE
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6444"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_610
-#AT_START_611
-at_fn_group_banner 611 'run_fundamental.at:6455' \
- "abbreviated conditions with multiple words operators" "" 4
-at_xfail=no
-(
- printf "%s\n" "611. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# for more details see bug #880
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. CHECKBOOL.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 VAR1 PIC X(16) VALUE "#0001".
- 01 VAR2 PIC X(16) VALUE "#0002".
- 01 VAR3 PIC X(16) VALUE "#0003".
- 01 VAR4 PIC X(16) VALUE "#0004".
- PROCEDURE DIVISION.
- MAIN-PROGRAM SECTION.
- INIZIO.
- IF VAR1 = (VAR2 AND VAR3 AND VAR4)
- DISPLAY "TRUE 1"
- END-IF
- IF VAR1 NOT = (VAR2 AND VAR3 AND VAR4)
- DISPLAY "TRUE 2"
- END-IF
- IF VAR1 NOT > (VAR2 AND VAR3 AND VAR4)
- DISPLAY "TRUE 3"
- END-IF
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6484: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:6484"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6484"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6486: ./prog"
-at_fn_check_prepare_trace "run_fundamental.at:6486"
-( $at_check_trace; ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "TRUE 2
-TRUE 3
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6486"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_611
-#AT_START_612
-at_fn_group_banner 612 'run_fundamental.at:6493' \
- "abbreviated conditions with multiple words operators" "" 4
-at_xfail=no
-(
- printf "%s\n" "612. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. CHECKCOND.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 VAR1 PIC X.
- 88 VAR1-K VALUE 'K'
- 01 VAR2 PIC X.
- 88 VAR2-K VALUE 'K'
-
- PROCEDURE DIVISION.
- MAIN-PROGRAM SECTION.
- BUG.
- IF VAR1-K AND NOT = VAR2-K
- DISPLAY "INVALID" UPON STDERR.
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6514: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "run_fundamental.at:6514"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: error: syntax error, unexpected Identifier
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_fundamental.at:6514"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_612
-#AT_START_613
-at_fn_group_banner 613 'run_fundamental.at:6521' \
- "MOVE with JUSTIFIED clause" " " 4
-at_xfail=no
-(
- printf "%s\n" "613. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. JUST00.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
-
- 77 ELE PIC X(10) JUSTIFIED RIGHT.
- 77 SHORT PIC X(4) VALUE 'ABC '.
- 77 LONG PIC X(16)
- VALUE 'ABCDEFGHIGKLMNOP'.
-
- PROCEDURE DIVISION.
- MOVE 'ABC ' TO ELE
- IF ELE NOT EQUAL ' ABC '
- DISPLAY 'MOVE WITH SHORT FIELD JUSTIFIED HAS FAILED: '
- '"' ELE '"'.
-
- MOVE 'ABCDEFGHIGKLMNOP' TO ELE
- IF ELE NOT EQUAL 'GHIGKLMNOP'
- DISPLAY 'MOVE WITH LONG FIELD JUSTIFIED HAS FAILED: '
- '"' ELE '"'.
-
- MOVE SHORT TO ELE
- IF ELE NOT EQUAL ' ABC '
- DISPLAY 'MOVE WITH SHORT FIELD JUSTIFIED HAS FAILED: '
- '"' ELE '"'.
-
- MOVE LONG TO ELE
- IF ELE NOT EQUAL 'GHIGKLMNOP'
- DISPLAY 'MOVE WITH LONG FIELD JUSTIFIED HAS FAILED: '
- '"' ELE '"'.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6560: \$COMPILE -Wno-truncate prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -Wno-truncate prog.cob" "run_fundamental.at:6560"
-( $at_check_trace; $COMPILE -Wno-truncate prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6560"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6561: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:6561"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6561"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_613
-#AT_START_614
-at_fn_group_banner 614 'run_fundamental.at:6566' \
- "MOVE with PICTURE P" " " 4
-at_xfail=no
-(
- printf "%s\n" "614. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. Move_Basic_P_Pic .
- *>----------------------------------------------------------------
- *> Additional test cases for MOVE statement
- *> Basic checking of P Picture
- *> -check lengt content and move
- *>----------------------------------------------------------------
- *>
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- *>
- 01 P-PIC-1 PIC 99P(4) .
- 01 P-PIC-1-9 REDEFINES P-PIC-1 PIC 9(02) .
- 01 FLD-1 PIC 9(06) .
- 01 FLD-1-RES PIC 9(06) .
- *>
- 01 P-PIC-2 PIC S99P(4) .
- 01 P-PIC-2-9 REDEFINES P-PIC-2 PIC S9(02) .
- 01 FLD-2 PIC S9(06) .
- 01 FLD-2-RES PIC S9(06) .
- *>
- 01 P-PIC-3 PIC P(4)9 .
- 01 P-PIC-3-9 REDEFINES P-PIC-3 PIC 9(01) .
- 01 FLD-3 PIC V9(05) .
- 01 FLD-3-RES PIC V9(05) .
- *>
- 01 P-PIC-4 PIC SP(4)9 .
- 01 P-PIC-4-9 REDEFINES P-PIC-4 PIC S9(01) .
- 01 FLD-4 PIC SV9(05) .
- 01 FLD-4-RES PIC SV9(05) .
- *>
- 01 W01-I PIC 9(02) .
- *>
- PROCEDURE DIVISION .
- *>
- *> Check Length
- *>
- PERFORM CHECK-LENGTH .
- *>
- PERFORM CHECK-CONTENT.
- *>
- PERFORM CHECK-MOVE .
- *>
- GOBACK .
- *>
- CHECK-CONTENT.
- *>------------
- *>
- MOVE 123456 TO P-PIC-1 .
- IF P-PIC-1-9 NOT = 12
- THEN
- DISPLAY 'Error C1 VALUE <' P-PIC-1-9 '> != 12' .
- *>
- MOVE 345678 TO P-PIC-2 .
- IF P-PIC-2-9 NOT = 34
- THEN
- DISPLAY 'Error C2 VALUE <' P-PIC-2-9 '> != 34' .
- *>
- MOVE -456789 TO P-PIC-2 .
- IF P-PIC-2-9 NOT = -45
- THEN
- DISPLAY 'Error C3 VALUE <' P-PIC-2-9 '> != -45' .
- *>
- MOVE 0.12345 TO P-PIC-3 .
- IF P-PIC-3-9 NOT = 5
- THEN
- DISPLAY 'Error C4 VALUE <' P-PIC-3-9 '> != 5' .
- *>
- MOVE 0.56789 TO P-PIC-4 .
- IF P-PIC-4-9 NOT = 9
- THEN
- DISPLAY 'Error C5 VALUE <' P-PIC-4-9 '> != 9' .
- *>
- MOVE -0.34567 TO P-PIC-4 .
- IF P-PIC-4-9 NOT = -7
- THEN
- DISPLAY 'Error C6 VALUE <' P-PIC-4-9 '> != -7' .
- *>
- CHECK-MOVE .
- *>----------
- *>
- MOVE 123456 TO P-PIC-1 .
- MOVE P-PIC-1 TO FLD-1 .
- MOVE 120000 TO FLD-1-RES .
- IF FLD-1 NOT = FLD-1-RES
- THEN
- DISPLAY 'M1 <' FLD-1-RES '> != ' FLD-1 .
- *>
- MOVE 001234 TO P-PIC-1 .
- MOVE P-PIC-1 TO FLD-1 .
- MOVE 000000 TO FLD-1-RES .
- IF FLD-1 NOT = FLD-1-RES
- THEN
- DISPLAY 'M2 <' FLD-1-RES '> != ' FLD-1 .
- *>-----------------------------------
- MOVE 001234 TO P-PIC-2 .
- MOVE P-PIC-2 TO FLD-2 .
- MOVE 000000 TO FLD-2-RES .
- IF FLD-2 NOT = FLD-2-RES
- THEN
- DISPLAY 'M3 <' FLD-2-RES '> != ' FLD-2 .
- *>
- MOVE -005678 TO P-PIC-2 .
- MOVE P-PIC-2 TO FLD-2 .
- MOVE 000000 TO FLD-2-RES .
- IF FLD-2 NOT = FLD-2-RES
- THEN
- DISPLAY 'M4 <' FLD-2-RES '> != ' FLD-2 .
- *>
- MOVE 456789 TO P-PIC-2 .
- MOVE P-PIC-2 TO FLD-2 .
- MOVE 450000 TO FLD-2-RES .
- IF FLD-2 NOT = FLD-2-RES
- THEN
- DISPLAY 'M5 <' FLD-2-RES '> != ' FLD-2 .
- *>
- MOVE -456789 TO P-PIC-2 .
- MOVE P-PIC-2 TO FLD-2 .
- MOVE -450000 TO FLD-2-RES .
- IF FLD-2 NOT = FLD-2-RES
- THEN
- DISPLAY 'M6 <' FLD-2-RES '> != ' FLD-2 .
- *>-----------------------------------
- MOVE 0.12345 TO P-PIC-3 .
- MOVE P-PIC-3 TO FLD-3 .
- MOVE 0.00005 TO FLD-3-RES .
- IF FLD-3 NOT = FLD-3-RES
- THEN
- DISPLAY 'M7 <' FLD-3-RES '> != ' FLD-3 .
- *>
- MOVE 0.00010 TO P-PIC-3 .
- MOVE P-PIC-3 TO FLD-3 .
- MOVE 0.00000 TO FLD-3-RES .
- IF FLD-3 NOT = FLD-3-RES
- THEN
- DISPLAY 'M8 <' FLD-3-RES '> != ' FLD-3 .
- *>
- *>-----------------------------------
- *>
- MOVE 0.23456 TO P-PIC-4 .
- MOVE P-PIC-4 TO FLD-4 .
- MOVE 0.00006 TO FLD-4-RES .
- IF FLD-4 NOT = FLD-4-RES
- THEN
- DISPLAY 'M9 <' FLD-4-RES '> != ' FLD-4 .
- *>
- MOVE 0.02340 TO P-PIC-4 .
- MOVE P-PIC-4 TO FLD-4 .
- MOVE 0.00000 TO FLD-4-RES .
- IF FLD-4 NOT = FLD-4-RES
- THEN
- DISPLAY 'M10 <' FLD-4-RES '> != ' FLD-4 .
- *>
- MOVE -0.12345 TO P-PIC-4 .
- MOVE P-PIC-4 TO FLD-4 .
- MOVE -0.00005 TO FLD-4-RES .
- IF FLD-4 NOT = FLD-4-RES
- THEN
- DISPLAY 'M11 <' FLD-4-RES '> != ' FLD-4 .
- *>
- MOVE -0.34560 TO P-PIC-4 .
- MOVE P-PIC-4 TO FLD-4 .
- MOVE 0.00000 TO FLD-4-RES .
- IF FLD-4 NOT = FLD-4-RES
- THEN
- DISPLAY 'M11 <' FLD-4-RES '> != ' FLD-4 .
- *>
- *>-----------------------------------
- *>
- CHECK-LENGTH.
- *>-----------
- *>
- MOVE LENGTH OF P-PIC-1 TO W01-I .
- IF W01-I NOT = 2
- THEN
- DISPLAY 'Error 1 size <' W01-I '> !=2' .
- *>
- MOVE LENGTH OF P-PIC-2 TO W01-I .
- IF W01-I NOT = 2
- THEN
- DISPLAY 'Error 2 size <' W01-I '> !=2' .
- *>
- MOVE LENGTH OF P-PIC-3 TO W01-I .
- IF W01-I NOT = 1
- THEN
- DISPLAY 'Error 3 size <' W01-I '> !=1' .
- *>
-
- MOVE LENGTH OF P-PIC-4 TO W01-I .
- IF W01-I NOT = 1
- THEN
- DISPLAY 'Error 4 size <' W01-I '> !=1' .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6764: \$COMPILE -Wno-truncate prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -Wno-truncate prog.cob" "run_fundamental.at:6764"
-( $at_check_trace; $COMPILE -Wno-truncate prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6764"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6765: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:6765"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6765"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_614
-#AT_START_615
-at_fn_group_banner 615 'run_fundamental.at:6770' \
- "MOVE with de-editting to USAGE DISPLAY" " " 4
-at_xfail=no
-(
- printf "%s\n" "615. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. MoveDeEditing.
- *>----------------------------------------------------------------
- *> Additional test cases for MOVE statement
- *> CHECK DE-EDITING
- *> Receiving field is NUMERIC DISPLAY Type
- *>----------------------------------------------------------------
- *>
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 EDIT-1 PIC $(4)9.99CR.
- 01 DISP-1 PIC S9(4)V99.
- 01 EDIT-2 PIC --9B.99B99/99.
- 01 DISP-2 PIC S99V9(6).
-
-
- PROCEDURE DIVISION .
-
- MOVE -123.45 TO EDIT-1 .
- MOVE EDIT-1 TO DISP-1 .
- IF DISP-1 NOT = -123.45
- THEN
- DISPLAY 'Error 1: DISP-1 <' DISP-1 '> != -0123.45' .
-
- IF EDIT-1 NOT = " $123.45CR"
- THEN
- DISPLAY 'Error 2: EDIT-1 <' EDIT-1 '> != < $123.45CR>'.
-
- MOVE -42.9876 TO EDIT-2.
- MOVE EDIT-2 TO DISP-2.
- IF DISP-2 NOT = -42.987600
- THEN
- DISPLAY 'Error 3: DISP-2 <' DISP-2 '> != <-42.987600>'.
-
- IF EDIT-2 NOT = "-42 .98 76/00"
- THEN
- DISPLAY 'Error 4: EDIT-2 <' EDIT-2 '> != <-42 .98 76/00>'.
-
-
- GOBACK .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6816: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:6816"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6816"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6817: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:6817"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6817"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_615
-#AT_START_616
-at_fn_group_banner 616 'run_fundamental.at:6822' \
- "MOVE with de-editting to DECIMAL IS COMMA" " " 4
-at_xfail=no
-(
- printf "%s\n" "616. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. MoveDeEditing_2 .
- *>----------------------------------------------------------------
- *> Additional test cases for MOVE statement
- *> CHECK DE-EDITING WITH DECIMAL-POINT IS COMMA
- *> Receiving fied is display type
- *>----------------------------------------------------------------
- *>
-
- ENVIRONMENT DIVISION .
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- DECIMAL-POINT IS COMMA.
- DATA DIVISION.
-
- WORKING-STORAGE SECTION.
- 01 EDIT-1 PIC $(4)9,99CR.
- 01 DISP-1 PIC S9(4)V99.
- 01 EDIT-2 PIC --9B,99B99/99.
- 01 DISP-2 PIC S99V9(6).
-
-
- PROCEDURE DIVISION .
-
- MOVE -123,45 TO EDIT-1 .
- MOVE EDIT-1 TO DISP-1 .
- IF DISP-1 NOT = -123,45
- THEN
- DISPLAY 'Error 1: DISP-1 <' DISP-1 '> != -0123,45' .
-
- IF EDIT-1 NOT = " $123,45CR"
- THEN
- DISPLAY 'Error 2: EDIT-1 <' EDIT-1 '> != < $123,45CR>'.
-
- MOVE -42,9876 TO EDIT-2.
- MOVE EDIT-2 TO DISP-2.
- IF DISP-2 NOT = -42,987600
- THEN
- DISPLAY 'Error 3: DISP-2 <' DISP-2 '> != <-42,987600>'.
-
- IF EDIT-2 NOT = "-42 ,98 76/00"
- THEN
- DISPLAY 'Error 4: EDIT-2 <' EDIT-2 '> != <-42 ,98 76/00>'.
-
-
- GOBACK .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6874: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:6874"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6874"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6875: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:6875"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6875"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_616
-#AT_START_617
-at_fn_group_banner 617 'run_fundamental.at:6880' \
- "MOVE with de-editting to BINARY" " " 4
-at_xfail=no
-(
- printf "%s\n" "617. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. MoveDeEditing_3.
- DATA DIVISION.
- *>----------------------------------------------------------------
- *> Additional test cases for MOVE statement
- *> CHECK DE-EDITING
- *> Receiving fied is binary type
- *>----------------------------------------------------------------
- WORKING-STORAGE SECTION.
- 01 EDIT-1 PIC $(4)9.99CR.
- 01 DISP-1 PIC S9(4)V99 BINARY .
- 01 EDIT-2 PIC --9B.99B99/99.
- 01 DISP-2 PIC S99V9(6) BINARY .
-
-
- PROCEDURE DIVISION .
-
- MOVE -123.45 TO EDIT-1 .
- MOVE EDIT-1 TO DISP-1 .
- IF DISP-1 NOT = -123.45
- THEN
- DISPLAY 'Error 1: DISP-1 <' DISP-1 '> != -0123.45' .
-
- IF EDIT-1 NOT = " $123.45CR"
- THEN
- DISPLAY 'Error 2: EDIT-1 <' EDIT-1 '> != < $123.45CR>'.
-
- MOVE -42.9876 TO EDIT-2.
- MOVE EDIT-2 TO DISP-2.
- IF DISP-2 NOT = -42.987600
- THEN
- DISPLAY 'Error 3: DISP-2 <' DISP-2 '> != <-42.987600>'.
-
- IF EDIT-2 NOT = "-42 .98 76/00"
- THEN
- DISPLAY 'Error 4: EDIT-2 <' EDIT-2 '> != <-42 .98 76/00>'.
-
-
- GOBACK .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6925: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:6925"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6925"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6926: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:6926"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6926"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_617
-#AT_START_618
-at_fn_group_banner 618 'run_fundamental.at:6931' \
- "MOVE with de-editting to COMP-3" " " 4
-at_xfail=no
-(
- printf "%s\n" "618. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. MoveDeEditing_4.
- *>----------------------------------------------------------------
- *> Additional test cases for MOVE statement
- *> CHECK DE-EDITING
- *> Receiving field is PACKED Type
- *>----------------------------------------------------------------
- *>
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 EDIT-1 PIC $(4)9.99CR.
- 01 DISP-1 PIC S9(4)V99 COMP-3 .
- 01 EDIT-2 PIC --9B.99B99/99.
- 01 DISP-2 PIC S99V9(6) COMP-3 .
-
-
- PROCEDURE DIVISION .
-
- MOVE -123.45 TO EDIT-1 .
- MOVE EDIT-1 TO DISP-1 .
- IF DISP-1 NOT = -123.45
- THEN
- DISPLAY 'Error 1: DISP-1 <' DISP-1 '> != -0123.45' .
-
- IF EDIT-1 NOT = " $123.45CR"
- THEN
- DISPLAY 'Error 2: EDIT-1 <' EDIT-1 '> != < $123.45CR>'.
-
- MOVE -42.9876 TO EDIT-2.
- MOVE EDIT-2 TO DISP-2.
- IF DISP-2 NOT = -42.987600
- THEN
- DISPLAY 'Error 3: DISP-2 <' DISP-2 '> != <-42.987600>'.
-
- IF EDIT-2 NOT = "-42 .98 76/00"
- THEN
- DISPLAY 'Error 4: EDIT-2 <' EDIT-2 '> != <-42 .98 76/00>'.
-
-
- GOBACK .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6977: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:6977"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6977"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:6978: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:6978"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:6978"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_618
-#AT_START_619
-at_fn_group_banner 619 'run_fundamental.at:6983' \
- "MOVE with de-editting to COMP-5" " " 4
-at_xfail=no
-(
- printf "%s\n" "619. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. MoveDeEditing_5.
- *>----------------------------------------------------------------
- *> Additional test cases for MOVE statement
- *> CHECK DE-EDITING
- *> Receiving field is COMP-5 Type
- *>----------------------------------------------------------------
- *>
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 EDIT-1 PIC $(4)9.99CR.
- 01 DISP-1 PIC S9(4)V99 COMP-5 .
- 01 EDIT-2 PIC --9B.99B99/99.
- 01 DISP-2 PIC S99V9(6) COMP-5 .
-
-
- PROCEDURE DIVISION .
-
- MOVE -123.45 TO EDIT-1 .
- MOVE EDIT-1 TO DISP-1 .
- IF DISP-1 NOT = -123.45
- THEN
- DISPLAY 'Error 1: DISP-1 <' DISP-1 '> != -0123.45' .
-
- IF EDIT-1 NOT = " $123.45CR"
- THEN
- DISPLAY 'Error 2: EDIT-1 <' EDIT-1 '> != < $123.45CR>'.
-
- MOVE -42.9876 TO EDIT-2.
- MOVE EDIT-2 TO DISP-2.
- IF DISP-2 NOT = -42.987600
- THEN
- DISPLAY 'Error 3: DISP-2 <' DISP-2 '> != <-42.987600>'.
-
- IF EDIT-2 NOT = "-42 .98 76/00"
- THEN
- DISPLAY 'Error 4: EDIT-2 <' EDIT-2 '> != <-42 .98 76/00>'.
-
-
- GOBACK .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:7029: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:7029"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:7029"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:7030: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:7030"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:7030"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_619
-#AT_START_620
-at_fn_group_banner 620 'run_fundamental.at:7035' \
- "MOVE with de-editting to NUMERIC DISPLAY (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "620. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. MoveEditedToDisplay.
- *>----------------------------------------------------------------
- *> Additional test cases for MOVE statement
- *> Add more test case for edited field
- *>----------------------------------------------------------------
- *>
-
- ENVIRONMENT DIVISION.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
-
- 01 EDITED-FIELD .
-
-
- 05 SRC-FIELD-100 PIC +$ZZ9999900BB9 .
- 05 SRC-FIELD-101 PIC -$ZZ9999900BB9 .
- 05 SRC-FIELD-102 PIC $ZZ9999900BB9CR .
- 05 SRC-FIELD-103 PIC $ZZ9999900BB9DB .
- 05 SRC-FIELD-400 PIC +$**9999900BB9 .
- 05 SRC-FIELD-401 PIC -$**9999900BB9 .
- 05 SRC-FIELD-402 PIC $**9999900BB9CR .
- 05 SRC-FIELD-403 PIC $**9999900BB9DB .
- *
- 01 DST-FIELD.
- 05 DST-FIELD-1 PIC 9(10)V9(04) .
- 05 DST-FIELD-2 PIC S9(10)V9(04) .
- *
- PROCEDURE DIVISION.
- *>-------------------
- *>
- MOVE 12345 TO SRC-FIELD-100 .
- MOVE SRC-FIELD-100 TO DST-FIELD-1 .
- IF DST-FIELD-1 NOT = 1234005
- DISPLAY '1: DST-FIELD-1 <' DST-FIELD-1 '> != 1234005' .
- *>
- MOVE 23456 TO SRC-FIELD-101 .
- MOVE SRC-FIELD-101 TO DST-FIELD-1 .
- IF DST-FIELD-1 NOT = 2345006
- DISPLAY '2: DST-FIELD-1 <' DST-FIELD-1 '> != 2345006' .
- *>
- MOVE 34567 TO SRC-FIELD-102 .
- MOVE SRC-FIELD-102 TO DST-FIELD-1 .
- IF DST-FIELD-1 NOT = 3456007
- DISPLAY '3: DST-FIELD-1 <' DST-FIELD-1 '> != 3456007' .
- *>
- MOVE 45678 TO SRC-FIELD-103 .
- MOVE SRC-FIELD-103 TO DST-FIELD-1 .
- IF DST-FIELD-1 NOT = 4567008
- DISPLAY '4: DST-FIELD-1 <' DST-FIELD-1 '> != 4567008' .
- *>
- *>--------------------------------------------------------------
- *>
- MOVE -12345 TO SRC-FIELD-100 .
- MOVE SRC-FIELD-100 TO DST-FIELD-2 .
- IF DST-FIELD-2 NOT = 1234005
- DISPLAY '5: DST-FIELD-2 <' DST-FIELD-2 '> != 1234005' .
- *>
- MOVE -23456 TO SRC-FIELD-101 .
- MOVE SRC-FIELD-101 TO DST-FIELD-2 .
- IF DST-FIELD-2 NOT = -2345006
- DISPLAY '6: DST-FIELD-2 <' DST-FIELD-2 '> != -2345006' .
- *>
- MOVE -34567 TO SRC-FIELD-102 .
- MOVE SRC-FIELD-102 TO DST-FIELD-2 .
- IF DST-FIELD-2 NOT = -3456007
- DISPLAY '7: DST-FIELD-2 <' DST-FIELD-2 '> != -3456007' .
- *>
- MOVE -45678 TO SRC-FIELD-103 .
- MOVE SRC-FIELD-103 TO DST-FIELD-2 .
- IF DST-FIELD-2 NOT = 4567008
- DISPLAY '8: DST-FIELD-2 <' DST-FIELD-2 '> != 45676008' .
- *>
- *>--------------------------------------------------------------
- *>
- MOVE 12345 TO SRC-FIELD-400 .
- MOVE SRC-FIELD-400 TO DST-FIELD-1 .
- IF DST-FIELD-1 NOT = 1234005
- DISPLAY '9: DST-FIELD-1 <' DST-FIELD-1 '> != 1234005' .
- *>
- MOVE 23456 TO SRC-FIELD-401 .
- MOVE SRC-FIELD-401 TO DST-FIELD-1 .
- IF DST-FIELD-1 NOT = 2345006
- DISPLAY '10: DST-FIELD-1 <' DST-FIELD-1 '> != 2345006' .
- *>
- MOVE 34567 TO SRC-FIELD-402 .
- MOVE SRC-FIELD-402 TO DST-FIELD-1 .
- IF DST-FIELD-1 NOT = 3456007
- DISPLAY '11: DST-FIELD-1 <' DST-FIELD-1 '> != 3456007' .
- *>
- MOVE 45678 TO SRC-FIELD-403 .
- MOVE SRC-FIELD-403 TO DST-FIELD-1 .
- IF DST-FIELD-1 NOT = 4567008
- DISPLAY '12: DST-FIELD-1 <' DST-FIELD-1 '1 != 45676008' .
- *>
- MOVE -12345 TO SRC-FIELD-400 .
- MOVE SRC-FIELD-400 TO DST-FIELD-2 .
- IF DST-FIELD-2 NOT = 1234005
- DISPLAY '13: DST-FIELD-2 <' DST-FIELD-2 '> != 1234005' .
- *>
- MOVE -23456 TO SRC-FIELD-401 .
- MOVE SRC-FIELD-401 TO DST-FIELD-2 .
- IF DST-FIELD-2 NOT = -2345006
- DISPLAY '14: DST-FIELD-2 <' DST-FIELD-2 '> != -2345006' .
- *>
- MOVE -34567 TO SRC-FIELD-402 .
- MOVE SRC-FIELD-402 TO DST-FIELD-2 .
- IF DST-FIELD-2 NOT = -3456007
- DISPLAY '15: DST-FIELD-2 <' DST-FIELD-2 '> != -3456007' .
- *>
- MOVE -45678 TO SRC-FIELD-403 .
- MOVE SRC-FIELD-403 TO DST-FIELD-2 .
- IF DST-FIELD-2 NOT = 4567008
- DISPLAY '16: DST-FIELD-2 <' DST-FIELD-2 '> != 4567008' .
- *>
- GOBACK .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:7158: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:7158"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:7158"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:7159: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:7159"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:7159"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_620
-#AT_START_621
-at_fn_group_banner 621 'run_fundamental.at:7164' \
- "MOVE misc. edited" " " 4
-at_xfail=no
-(
- printf "%s\n" "621. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID . MoveOtherCases .
- *>----------------------------------------------------------------
- *> Additional test cases for MOVE statement
- *> Last several specifics test cases
- *>----------------------------------------------------------------
- *>
- ENVIRONMENT DIVISION.
- *>-------------
-
- DATA DIVISION .
- *>--------------
-
- WORKING-STORAGE SECTION.
- *>-----------------------
-
- 01 SRC-BIN PIC S9(09) BINARY .
- 01 DST-BIN PIC 9(09) BINARY .
- *>
- 01 SRC-EDIT PIC $$$$,$$9V99- .
- 01 DST-DISP PIC 9(06) .
- *>
- 01 DST-FIELD-1 PIC XB0XB099/ .
-
- *>
- PROCEDURE DIVISION .
- *>-------------------
- *>
- *> Case 1 move unsigned to signed
- *>
- MOVE -12345678 TO SRC-BIN .
- MOVE SRC-BIN TO DST-BIN .
- IF DST-BIN NOT = 12345678
- THEN
- DISPLAY '1: DST-BIN <' DST-BIN '>!= <12345678>' .
-
- *>
- *> Case 2 move negative edited to display
- *>
- MOVE -3 TO SRC-EDIT .
- MOVE SRC-EDIT TO DST-DISP .
- IF SRC-EDIT NOT = ' $300-'
- THEN
- DISPLAY '2: SRC-EDIT <' SRC-EDIT '> != < $300->' .
- *>
- IF DST-DISP NOT = 3
- THEN
- DISPLAY '2.1: DST-DISP <' DST-DISP '> != <3>' .
-
-
- *>
- *> Case 3 cob_move alphanum to edited case
- *>
- MOVE 3 TO SRC-EDIT .
- MOVE SRC-EDIT TO DST-FIELD-1 .
-
- IF DST-FIELD-1 NOT = ' 0 0 /'
- THEN
- DISPLAY '3: DST-FIELD-1 <' DST-FIELD-1 '> != < 0 0 />'.
-
- *>
- GOBACK .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:7232: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:7232"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:7232"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:7233: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:7233"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:7233"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_621
-#AT_START_622
-at_fn_group_banner 622 'run_fundamental.at:7238' \
- "MOVE between USAGEs" " " 4
-at_xfail=no
-(
- printf "%s\n" "622. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID . MoveTestCobMove .
- *>----------------------------------------------------------------
- *> This programm cover the cob_move function for numeric
- *> data types except numeric edited
- *>----------------------------------------------------------------
- *>
- ENVIRONMENT DIVISION.
- DATA DIVISION .
- WORKING-STORAGE SECTION.
-
- 01 ALL-SRC .
- 05 FIELD-02 BINARY-C-LONG SIGNED .
- 05 FIELD-03 BINARY-C-LONG UNSIGNED .
- 05 FIELD-04 BINARY-CHAR SIGNED .
- 05 FIELD-05 BINARY-CHAR UNSIGNED .
- 05 FIELD-06 BINARY-DOUBLE SIGNED .
- 05 FIELD-07 BINARY-DOUBLE UNSIGNED .
- 05 FIELD-08 BINARY-INT .
- 05 FIELD-09 BINARY-LONG SIGNED .
- 05 FIELD-10 BINARY-LONG UNSIGNED .
- 05 FIELD-11 BINARY-LONG-LONG .
- 05 FIELD-12 BINARY-SHORT SIGNED .
- 05 FIELD-13 BINARY-SHORT UNSIGNED .
- 05 FIELD-14 FLOAT-DECIMAL-16 .
- 05 FIELD-15 FLOAT-DECIMAL-34 .
- 05 FIELD-16 FLOAT-LONG .
- 05 FIELD-17 FLOAT-SHORT .
- 05 FIELD-18 SIGNED-INT .
- 05 FIELD-19 SIGNED-LONG .
- 05 FIELD-20 SIGNED-SHORT .
- 05 FIELD-21 UNSIGNED-INT .
- 05 FIELD-22 UNSIGNED-LONG .
- 05 FIELD-23 UNSIGNED-SHORT .
- 05 FIELD-24 COMP-1 .
- 05 FIELD-25 COMP-2 .
- 05 FIELD-26 PIC 9(10) COMP-6 .
- 05 FIELD-50 PIC S9(09) BINARY .
- 05 FIELD-51 PIC S9(09) COMP .
- 05 FIELD-52 PIC S9(09)V99 COMP-3 .
- 05 FIELD-53 PIC S9(09) COMP-4 .
- 05 FIELD-54 PIC S9(09) COMP-5 .
- 05 FIELD-55 PIC S9(09) COMP-X .
- 05 FIELD-56 PIC S9(09)V99 DISPLAY .
- *>
- 01 EXPTD-RESULT PIC 9(09) .
- *>
- 01 ALL-DST .
- 05 FIELD-02 BINARY-C-LONG SIGNED .
- 05 FIELD-03 BINARY-C-LONG UNSIGNED .
- 05 FIELD-04 BINARY-CHAR SIGNED .
- 05 FIELD-05 BINARY-CHAR UNSIGNED .
- 05 FIELD-06 BINARY-DOUBLE SIGNED .
- 05 FIELD-07 BINARY-DOUBLE UNSIGNED .
- 05 FIELD-08 BINARY-INT .
- 05 FIELD-09 BINARY-LONG SIGNED .
- 05 FIELD-10 BINARY-LONG UNSIGNED .
- 05 FIELD-11 BINARY-LONG-LONG .
- 05 FIELD-12 BINARY-SHORT SIGNED .
- 05 FIELD-13 BINARY-SHORT UNSIGNED .
- 05 FIELD-14 FLOAT-DECIMAL-16 .
- 05 FIELD-15 FLOAT-DECIMAL-34 .
- 05 FIELD-16 FLOAT-LONG .
- 05 FIELD-17 FLOAT-SHORT .
- 05 FIELD-18 SIGNED-INT .
- 05 FIELD-19 SIGNED-LONG .
- 05 FIELD-20 SIGNED-SHORT .
- 05 FIELD-21 UNSIGNED-INT .
- 05 FIELD-22 UNSIGNED-LONG .
- 05 FIELD-23 UNSIGNED-SHORT .
- 05 FIELD-24 COMP-1 .
- 05 FIELD-25 COMP-2 .
- 05 FIELD-26 PIC 9(10) COMP-6 .
- 05 FIELD-50 PIC S9(09) BINARY .
- 05 FIELD-51 PIC S9(09) COMP .
- 05 FIELD-52 PIC S9(09)V99 COMP-3 .
- 05 FIELD-53 PIC S9(09) COMP-4 .
- 05 FIELD-54 PIC S9(09) COMP-5 .
- 05 FIELD-55 PIC S9(09) COMP-X .
- 05 FIELD-56 PIC S9(09)V99 DISPLAY .
-
- *>
- PROCEDURE DIVISION .
- *>
- INITIALIZE ALL-SRC REPLACING NUMERIC BY 1 .
- PERFORM TEST-PASS-1 .
- *>
- INITIALIZE ALL-DST REPLACING NUMERIC BY 2 .
- PERFORM TEST-PASS-2 .
- *>
- MOVE 3 TO FIELD-02 OF ALL-SRC .
- MOVE 3 TO EXPTD-RESULT .
- MOVE FIELD-02 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- MOVE 4 TO FIELD-03 OF ALL-SRC .
- MOVE 4 TO EXPTD-RESULT .
- MOVE FIELD-03 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- MOVE 5 TO FIELD-04 OF ALL-SRC .
- MOVE 5 TO EXPTD-RESULT .
- MOVE FIELD-04 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- MOVE 6 TO FIELD-05 OF ALL-SRC .
- MOVE 6 TO EXPTD-RESULT .
- MOVE FIELD-05 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- MOVE 7 TO FIELD-06 OF ALL-SRC .
- MOVE 7 TO EXPTD-RESULT .
- MOVE FIELD-06 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- MOVE 8 TO FIELD-07 OF ALL-SRC .
- MOVE 8 TO EXPTD-RESULT .
- MOVE FIELD-07 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- MOVE 9 TO FIELD-08 OF ALL-SRC .
- MOVE 9 TO EXPTD-RESULT .
- MOVE FIELD-08 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- MOVE 10 TO FIELD-09 OF ALL-SRC .
- MOVE 10 TO EXPTD-RESULT .
- MOVE FIELD-09 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- MOVE 11 TO FIELD-10 OF ALL-SRC .
- MOVE 11 TO EXPTD-RESULT .
- MOVE FIELD-10 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- MOVE 12 TO FIELD-11 OF ALL-SRC .
- MOVE 12 TO EXPTD-RESULT .
- MOVE FIELD-11 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- MOVE 13 TO FIELD-12 OF ALL-SRC .
- MOVE 13 TO EXPTD-RESULT .
- MOVE FIELD-12 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- MOVE 14 TO FIELD-13 OF ALL-SRC .
- MOVE 14 TO EXPTD-RESULT .
- MOVE FIELD-13 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- MOVE 15 TO FIELD-14 OF ALL-SRC .
- MOVE 15 TO EXPTD-RESULT .
- MOVE FIELD-14 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- MOVE 16 TO FIELD-15 OF ALL-SRC .
- MOVE 16 TO EXPTD-RESULT .
- MOVE FIELD-15 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- MOVE 17 TO FIELD-16 OF ALL-SRC .
- MOVE 17 TO EXPTD-RESULT .
- MOVE FIELD-16 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- MOVE 18 TO FIELD-17 OF ALL-SRC .
- MOVE 18 TO EXPTD-RESULT .
- MOVE FIELD-17 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- MOVE 19 TO FIELD-18 OF ALL-SRC .
- MOVE 19 TO EXPTD-RESULT .
- MOVE FIELD-18 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- MOVE 20 TO FIELD-19 OF ALL-SRC .
- MOVE 20 TO EXPTD-RESULT .
- MOVE FIELD-19 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- MOVE 21 TO FIELD-20 OF ALL-SRC .
- MOVE 21 TO EXPTD-RESULT .
- MOVE FIELD-20 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- MOVE 22 TO FIELD-21 OF ALL-SRC .
- MOVE 22 TO EXPTD-RESULT .
- MOVE FIELD-21 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- MOVE 23 TO FIELD-22 OF ALL-SRC .
- MOVE 23 TO EXPTD-RESULT .
- MOVE FIELD-22 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- MOVE 24 TO FIELD-23 OF ALL-SRC .
- MOVE 24 TO EXPTD-RESULT .
- MOVE FIELD-23 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- MOVE 25 TO FIELD-24 OF ALL-SRC .
- MOVE 25 TO EXPTD-RESULT .
- MOVE FIELD-24 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- MOVE 26 TO FIELD-25 OF ALL-SRC .
- MOVE 26 TO EXPTD-RESULT .
- MOVE FIELD-25 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- MOVE 27 TO FIELD-26 OF ALL-SRC .
- MOVE 27 TO EXPTD-RESULT .
- MOVE FIELD-26 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- MOVE 50 TO FIELD-50 OF ALL-SRC .
- MOVE 50 TO EXPTD-RESULT .
- MOVE FIELD-50 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- MOVE 51 TO FIELD-51 OF ALL-SRC .
- MOVE 51 TO EXPTD-RESULT .
- MOVE FIELD-51 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- MOVE 52 TO FIELD-52 OF ALL-SRC .
- MOVE 52 TO EXPTD-RESULT .
- MOVE FIELD-52 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- MOVE 53 TO FIELD-53 OF ALL-SRC .
- MOVE 53 TO EXPTD-RESULT .
- MOVE FIELD-53 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- MOVE 54 TO FIELD-54 OF ALL-SRC .
- MOVE 54 TO EXPTD-RESULT .
- MOVE FIELD-54 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- MOVE 55 TO FIELD-55 OF ALL-SRC .
- MOVE 55 TO EXPTD-RESULT .
- MOVE FIELD-55 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- MOVE 56 TO FIELD-56 OF ALL-SRC .
- MOVE 56 TO EXPTD-RESULT .
- MOVE FIELD-56 OF ALL-SRC
- TO FIELD-02 OF ALL-DST
- FIELD-03 OF ALL-DST
- FIELD-04 OF ALL-DST
- FIELD-05 OF ALL-DST
- FIELD-06 OF ALL-DST
- FIELD-07 OF ALL-DST
- FIELD-08 OF ALL-DST
- FIELD-09 OF ALL-DST
- FIELD-10 OF ALL-DST
- FIELD-11 OF ALL-DST
- FIELD-12 OF ALL-DST
- FIELD-13 OF ALL-DST
- FIELD-14 OF ALL-DST
- FIELD-15 OF ALL-DST
- FIELD-16 OF ALL-DST
- FIELD-17 OF ALL-DST
- FIELD-18 OF ALL-DST
- FIELD-19 OF ALL-DST
- FIELD-20 OF ALL-DST
- FIELD-21 OF ALL-DST
- FIELD-22 OF ALL-DST
- FIELD-23 OF ALL-DST
- FIELD-24 OF ALL-DST
- FIELD-25 OF ALL-DST
- FIELD-26 OF ALL-DST
- FIELD-50 OF ALL-DST
- FIELD-51 OF ALL-DST
- FIELD-52 OF ALL-DST
- FIELD-53 OF ALL-DST
- FIELD-54 OF ALL-DST
- FIELD-55 OF ALL-DST
- FIELD-56 OF ALL-DST .
- PERFORM TEST-PASS-3 .
- *>
- GOBACK .
- *>
- TEST-PASS-1.
- *>----------
- *>
- IF FIELD-02 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-02 <' FIELD-02 OF
- ALL-SRC '> != 1' .
- *>
- IF FIELD-03 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-03 <' FIELD-03 OF
- ALL-SRC '> != 1' .
- *>
- IF FIELD-04 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-04 <' FIELD-04 OF
- ALL-SRC '> != 1' .
- *>
- IF FIELD-05 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-05 <' FIELD-05 OF
- ALL-SRC '> != 1' .
- *>
- IF FIELD-06 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-06 <' FIELD-06 OF
- ALL-SRC '> != 1' .
- *>
- IF FIELD-07 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-07 <' FIELD-07 OF
- ALL-SRC '> != 1' .
- *>
- IF FIELD-08 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-08 <' FIELD-08 OF
- ALL-SRC '> != 1' .
- *>
- IF FIELD-09 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-09 <' FIELD-09 OF
- ALL-SRC '> != 1' .
- *>
- IF FIELD-10 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-10 <' FIELD-10 OF
- ALL-SRC '> != 1' .
- *>
- IF FIELD-11 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-11 <' FIELD-11 OF
- ALL-SRC '> != 1' .
- *>
- IF FIELD-12 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-12 <' FIELD-12 OF
- ALL-SRC '> != 1' .
- *>
- IF FIELD-13 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-13 <' FIELD-13 OF
- ALL-SRC '> != 1' .
- *>
- IF FIELD-14 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-14 <' FIELD-14 OF
- ALL-SRC '> != 1' .
- *>
- IF FIELD-15 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-15 <' FIELD-15 OF
- ALL-SRC '> != 1' .
- *>
- IF FIELD-16 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-16 <' FIELD-16 OF
- ALL-SRC '> != 1' .
- *>
- IF FIELD-17 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-17 <' FIELD-17 OF
- ALL-SRC '> != 1' .
- *>
- IF FIELD-18 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-18 <' FIELD-18 OF
- ALL-SRC '> != 1' .
- *>
- IF FIELD-19 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-19 <' FIELD-19 OF
- ALL-SRC '> != 1' .
- *>
- IF FIELD-20 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-20 <' FIELD-20 OF
- ALL-SRC '> != 1' .
- *>
- IF FIELD-21 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-21 <' FIELD-21 OF
- ALL-SRC '> != 1' .
- *>
- IF FIELD-22 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-22 <' FIELD-22 OF
- ALL-SRC '> != 1' .
- *>
- IF FIELD-23 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-23 <' FIELD-23 OF
- ALL-SRC '> != 1' .
- *>
- IF FIELD-24 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-24 <' FIELD-24 OF
- ALL-SRC '> != 1' .
- *>
- IF FIELD-25 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-25 <' FIELD-25 OF
- ALL-SRC '> != 1' .
- *>
- IF FIELD-26 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-26 <' FIELD-26 OF
- ALL-SRC '> != 1' .
- *>
- IF FIELD-50 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-50 <' FIELD-50 OF
- ALL-SRC '> != 1' .
- *>
- IF FIELD-51 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-51 <' FIELD-51 OF
- ALL-SRC '> != 1' .
- *>
- IF FIELD-52 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-52 <' FIELD-52 OF
- ALL-SRC '> != 1' .
- *>
- IF FIELD-53 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-53 <' FIELD-52 OF
- ALL-SRC '> != 1' .
- *>
- IF FIELD-54 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-54 <' FIELD-54 OF
- ALL-SRC '> != 1' .
- *>
- IF FIELD-55 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-55 <' FIELD-55 OF
- ALL-SRC '> != 1' .
- *>
- IF FIELD-56 OF ALL-SRC IS NOT = 1
- THEN
- DISPLAY 'PASS ONE: FIELD-56 <' FIELD-56 OF
- ALL-SRC '> != 1' .
- *>
- TEST-PASS-2.
- *>----------
- *>
- IF FIELD-02 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-02 <' FIELD-02 OF
- ALL-DST '> != 2' .
- *>
- IF FIELD-03 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-03 <' FIELD-03 OF
- ALL-DST '> != 2' .
- *>
- IF FIELD-04 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-04 <' FIELD-04 OF
- ALL-DST '> != 2' .
- *>
- IF FIELD-05 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-05 <' FIELD-05 OF
- ALL-DST '> != 2' .
- *>
- IF FIELD-06 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-06 <' FIELD-06 OF
- ALL-DST '> != 2' .
- *>
- IF FIELD-07 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-07 <' FIELD-07 OF
- ALL-DST '> != 2' .
- *>
- IF FIELD-08 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-08 <' FIELD-08 OF
- ALL-DST '> != 2' .
- *>
- IF FIELD-09 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-09 <' FIELD-09 OF
- ALL-DST '> != 2' .
- *>
- IF FIELD-10 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-10 <' FIELD-10 OF
- ALL-DST '> != 2' .
- *>
- IF FIELD-11 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-11 <' FIELD-11 OF
- ALL-DST '> != 2' .
- *>
- IF FIELD-12 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-12 <' FIELD-12 OF
- ALL-DST '> != 2' .
- *>
- IF FIELD-13 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-13 <' FIELD-13 OF
- ALL-DST '> != 2' .
- *>
- IF FIELD-14 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-14 <' FIELD-14 OF
- ALL-DST '> != 2' .
- *>
- IF FIELD-15 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-15 <' FIELD-15 OF
- ALL-DST '> != 2' .
- *>
- IF FIELD-16 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-16 <' FIELD-16 OF
- ALL-DST '> != 2' .
- *>
- IF FIELD-17 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-17 <' FIELD-17 OF
- ALL-DST '> != 2' .
- *>
- IF FIELD-18 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-18 <' FIELD-18 OF
- ALL-DST '> != 2' .
- *>
- IF FIELD-19 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-19 <' FIELD-19 OF
- ALL-DST '> != 2' .
- *>
- IF FIELD-20 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-20 <' FIELD-20 OF
- ALL-DST '> != 2' .
- *>
- IF FIELD-21 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-21 <' FIELD-21 OF
- ALL-DST '> != 2' .
- *>
- IF FIELD-22 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-22 <' FIELD-22 OF
- ALL-DST '> != 2' .
- *>
- IF FIELD-23 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-23 <' FIELD-23 OF
- ALL-DST '> != 2' .
- *>
- IF FIELD-24 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-24 <' FIELD-24 OF
- ALL-DST '> != 2' .
- *>
- IF FIELD-25 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-25 <' FIELD-25 OF
- ALL-DST '> != 2' .
- *>
- IF FIELD-26 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-26 <' FIELD-26 OF
- ALL-DST '> != 2' .
- *>
- IF FIELD-50 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-50 <' FIELD-50 OF
- ALL-DST '> != 2' .
- *>
- IF FIELD-51 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-51 <' FIELD-51 OF
- ALL-DST '> != 2' .
- *>
- IF FIELD-52 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-52 <' FIELD-52 OF
- ALL-DST '> != 2' .
- *>
- IF FIELD-53 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-53 <' FIELD-52 OF
- ALL-DST '> != 2' .
- *>
- IF FIELD-54 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-54 <' FIELD-54 OF
- ALL-DST '> != 2' .
- *>
- IF FIELD-55 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-55 <' FIELD-55 OF
- ALL-DST '> != 2' .
- *>
- IF FIELD-56 OF ALL-DST IS NOT = 2
- THEN
- DISPLAY 'PASS TWO: FIELD-56 <' FIELD-56 OF
- ALL-DST '> != 2' .
- *>
- TEST-PASS-3.
- *>----------
- *>
- IF FIELD-02 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-02 <' FIELD-02 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
- *>
- IF FIELD-03 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-03 <' FIELD-03 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
- *>
- IF FIELD-04 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-04 <' FIELD-04 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
-
- *>
- IF FIELD-05 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-05 <' FIELD-05 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
- *>
- IF FIELD-06 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-06 <' FIELD-06 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
- *>
- IF FIELD-07 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-07 <' FIELD-07 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
- *>
- IF FIELD-08 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-08 <' FIELD-08 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
- *>
- IF FIELD-09 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-09 <' FIELD-09 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
- *>
- IF FIELD-10 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-10 <' FIELD-10 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
- *>
- IF FIELD-11 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-11 <' FIELD-11 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
- *>
- IF FIELD-12 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-12 <' FIELD-12 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
- *>
- IF FIELD-13 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-13 <' FIELD-13 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
- *>
- IF FIELD-14 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-14 <' FIELD-14 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
- *>
- IF FIELD-15 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-15 <' FIELD-15 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
- *>
- IF FIELD-16 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-16 <' FIELD-16 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
- *>
- IF FIELD-17 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-17 <' FIELD-17 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
- *>
- IF FIELD-18 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-18 <' FIELD-18 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
- *>
- IF FIELD-19 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-19 <' FIELD-19 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
- *>
- IF FIELD-20 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-20 <' FIELD-20 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
- *>
- IF FIELD-21 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-21 <' FIELD-21 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
- *>
- IF FIELD-22 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-22 <' FIELD-22 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
- *>
- IF FIELD-23 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-23 <' FIELD-23 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
- *>
- IF FIELD-24 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-24 <' FIELD-24 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
- *>
- IF FIELD-25 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-25 <' FIELD-25 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
- *>
- IF FIELD-26 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-26 <' FIELD-26 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
- *>
- IF FIELD-50 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-50 <' FIELD-50 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
- *>
- IF FIELD-51 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-51 <' FIELD-51 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
- *>
- IF FIELD-52 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-52 <' FIELD-52 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
- *>
- IF FIELD-53 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-53 <' FIELD-52 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
- *>
- IF FIELD-54 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-54 <' FIELD-54 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
- *>
- IF FIELD-55 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-55 <' FIELD-55 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
- *>
- IF FIELD-56 OF ALL-DST IS NOT = EXPTD-RESULT
- THEN
- DISPLAY 'PASS THREE: FIELD-56 <' FIELD-56 OF
- ALL-DST '> != <' EXPTD-RESULT '>' .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:9015: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:9015"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:9015"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:9016: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:9016"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:9016"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_622
-#AT_START_623
-at_fn_group_banner 623 'run_fundamental.at:9021' \
- "MOVE to editted ZERO" " " 4
-at_xfail=no
-(
- printf "%s\n" "623. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. MoveToEditedZero .
- *>----------------------------------------------------------------
- *> Additional test cases for MOVE statement
- *> Move To Edited
- *> Edited field contains only '*' and sending field is ZERO
- *>----------------------------------------------------------------
- *>
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 DISP-1 PIC 999999 .
- 01 EDIT-1 PIC ****** .
- 01 EDIT-1-X REDEFINES EDIT-1 PIC X(06) .
-
- *>
- PROCEDURE DIVISION .
- *>
- MOVE 111111 TO EDIT-1 *> avoid init by default
- *>
- MOVE ZEROES TO DISP-1 .
- MOVE DISP-1 TO EDIT-1 .
- IF EDIT-1-X NOT = '******'
- THEN
- DISPLAY 'Error EDIT-1-X <' EDIT-1-X '> != <******>' .
- *>
- *>
- MOVE 123 TO DISP-1 .
- MOVE DISP-1 TO EDIT-1 .
- IF EDIT-1-X NOT = '***123'
- THEN
- DISPLAY 'Error EDIT-1-X <' EDIT-1-X '> != <***123>' .
- *>
- GOBACK .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:9060: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:9060"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:9060"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:9061: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:9061"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:9061"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_623
-#AT_START_624
-at_fn_group_banner 624 'run_fundamental.at:9066' \
- "SPECIAL-NAMES CLASS" " " 4
-at_xfail=no
-(
- printf "%s\n" "624. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. TSTCLASS.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION .
- SPECIAL-NAMES .
- CLASS HEXA IS '0' THRU '9'
- 'A' THRU 'F' .
- CLASS ODD IS '1' '3' '5' '7' '9' .
-
- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
- * *
- * NOTICE THAT THE VALUES SUPPLIED ARE NUMERIC LITERALS *
- * WHICH REPRESENT A VALUE WHICH IS 1 NUMBER HIGHER THAN *
- * THE HEX VALUES WHICH THEY REPRESENT. THIS IS BECAUSE *
- * THE ALLOWABLE VALUES ARE FROM 1 THROUGH 256. *
- * *
- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
-
- CLASS EVEN IS 49 51 53 55 57.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 ALPHA PIC X(01) .
- 01 NUM-1 PIC 9(01) .
- *>
- PROCEDURE DIVISION.
- *>
- MOVE '3' TO ALPHA .
- IF ALPHA IS HEXA
- THEN
- CONTINUE
- ELSE
- DISPLAY 'ERROR 1'
- END-IF.
- *>
- IF ALPHA IS ODD
- THEN
- CONTINUE
- ELSE
- DISPLAY 'ERROR 2'
- END-IF.
- *>
- MOVE 2 TO NUM-1
- IF NUM-1 IS EVEN
- THEN
- CONTINUE
- ELSE
- DISPLAY 'ERROR 3'
- END-IF.
- *>
- GOBACK .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:9123: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_fundamental.at:9123"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:9123"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_fundamental.at:9124: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_fundamental.at:9124"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_fundamental.at:9124"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_624
-#AT_START_625
-at_fn_group_banner 625 'run_subscripts.at:26' \
- "Subscript out of bounds" " " 4
-at_xfail=no
-(
- printf "%s\n" "625. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G.
- 02 X PIC X OCCURS 10.
- 01 I PIC 9 VALUE 0.
- PROCEDURE DIVISION.
- DISPLAY X(I)
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:43: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_subscripts.at:43"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:43"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:44: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_subscripts.at:44"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:10: error: subscript of 'X' out of bounds: 0
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_subscripts.at:44"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G.
- 02 X PIC X OCCURS 10.
- 01 I PIC 99 VALUE 11.
- PROCEDURE DIVISION.
- DISPLAY X(I)
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:62: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_subscripts.at:62"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:62"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:63: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "run_subscripts.at:63"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog2.cob:10: error: subscript of 'X' out of bounds: 11
-note: maximum subscript for 'X': 10
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_subscripts.at:63"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_625
-#AT_START_626
-at_fn_group_banner 626 'run_subscripts.at:71' \
- "Value of DEPENDING ON N out of bounds" " " 4
-at_xfail=no
-(
- printf "%s\n" "626. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G.
- 02 X PIC X OCCURS 4 TO 6 DEPENDING ON N.
- 01 N PIC 9.
- PROCEDURE DIVISION.
- MOVE 5 TO N.
- MOVE '12345' TO G
- DISPLAY X(3) WITH NO ADVANCING
- END-DISPLAY.
- MOVE 3 TO N.
- DISPLAY X(5)
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:93: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_subscripts.at:93"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:93"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:94: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_subscripts.at:94"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:15: error: OCCURS DEPENDING ON 'N' out of bounds: 3
-note: minimum subscript for 'X': 4
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "3" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_subscripts.at:94"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G.
- 02 X PIC X OCCURS 4 TO 6 DEPENDING ON N.
- 01 N PIC 9 VALUE 7.
- PROCEDURE DIVISION.
- DISPLAY X(5)
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:113: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_subscripts.at:113"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:113"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:114: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "run_subscripts.at:114"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog2.cob:10: error: OCCURS DEPENDING ON 'N' out of bounds: 7
-note: maximum subscript for 'X': 6
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_subscripts.at:114"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_626
-#AT_START_627
-at_fn_group_banner 627 'run_subscripts.at:122' \
- "Subscript bounds with OCCURS DEPENDING ON (1)" " " 4
-at_xfail=no
-(
- printf "%s\n" "627. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G.
- 02 X PIC X OCCURS 4 TO 6 DEPENDING ON N.
- 01 N PIC 9 VALUE 4.
- PROCEDURE DIVISION.
- DISPLAY X(5)
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:139: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_subscripts.at:139"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:139"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:140: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_subscripts.at:140"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:10: error: subscript of 'X' out of bounds: 5
-note: current maximum subscript for 'X': 4
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_subscripts.at:140"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_627
-#AT_START_628
-at_fn_group_banner 628 'run_subscripts.at:148' \
- "Subscript bounds with OCCURS DEPENDING ON (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "628. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# verifies that the check is generated within conditions - simple IF
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G.
- 02 X PIC X OCCURS 4 TO 6 DEPENDING ON N.
- 01 N PIC 9 VALUE 4.
- PROCEDURE DIVISION.
- IF X(5) <> SPACE
- DISPLAY X(5).
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:167: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_subscripts.at:167"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:167"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:168: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_subscripts.at:168"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:10: error: subscript of 'X' out of bounds: 5
-note: current maximum subscript for 'X': 4
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_subscripts.at:168"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_628
-#AT_START_629
-at_fn_group_banner 629 'run_subscripts.at:176' \
- "Subscript bounds with OCCURS DEPENDING ON (3)" " " 4
-at_xfail=no
-(
- printf "%s\n" "629. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# verifies that the check is generated within conditions - WHEN
-# complex test for correct place and not raised if guarded by check
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G.
- 02 X PIC X OCCURS 4 TO 6 DEPENDING ON N.
- 01 N PIC 9 VALUE 4.
- PROCEDURE DIVISION.
- EVALUATE TRUE
- WHEN N >= 5
- AND X(5) <> SPACE
- DISPLAY "1-" X(5)
- WHEN N >= 5
- WHEN X(5) <> SPACE
- DISPLAY "2-" X(5)
- END-EVALUATE
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:202: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_subscripts.at:202"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:202"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:203: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_subscripts.at:203"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:15: error: subscript of 'X' out of bounds: 5
-note: current maximum subscript for 'X': 4
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_subscripts.at:203"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_629
-#AT_START_630
-at_fn_group_banner 630 'run_subscripts.at:211' \
- "Subscript by arithmetic expression" " " 4
-at_xfail=no
-(
- printf "%s\n" "630. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G VALUE "1234".
- 02 X PIC X OCCURS 4.
- 01 Z PIC X.
- PROCEDURE DIVISION.
- MOVE X((3 + 1) / 2) TO Z.
- IF Z NOT = "2"
- DISPLAY Z
- END-DISPLAY
- END-IF.
- MOVE X(2 ** 2) TO Z.
- IF Z NOT = "4"
- DISPLAY Z
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:236: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_subscripts.at:236"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:236"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:237: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_subscripts.at:237"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:237"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_630
-#AT_START_631
-at_fn_group_banner 631 'run_subscripts.at:242' \
- "length of ODO w/- reference-modification" " " 4
-at_xfail=no
-(
- printf "%s\n" "631. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 PLINE.
- 03 PLINE-LEN PIC S9(4) COMP-5.
- 03 PLINE-TEXT.
- 04 FILLER PIC X(1) OCCURS 1 TO 80
- DEPENDING ON PLINE-LEN.
- procedure division.
- a-main section.
- MOVE 5 TO PLINE-LEN
- MOVE 'the first part in' TO PLINE-TEXT
- MOVE 30 TO PLINE-LEN
- IF PLINE-TEXT NOT = 'the f'
- DISPLAY 'text1 wrong: ' PLINE-TEXT
- END-DISPLAY
- END-IF
- MOVE 'the first part in' TO PLINE-TEXT
- MOVE 4 TO PLINE-LEN
- MOVE 'second' TO PLINE-TEXT
- MOVE 14 TO PLINE-LEN
- IF PLINE-TEXT NOT = 'secofirst part'
- DISPLAY 'text2 wrong: ' PLINE-TEXT
- END-DISPLAY
- END-IF
- MOVE 80 TO PLINE-LEN
- MOVE SPACES TO PLINE-TEXT
- MOVE 5 TO PLINE-LEN
- MOVE 'the first part in' TO PLINE-TEXT (2:)
- MOVE 30 TO PLINE-LEN
- IF PLINE-TEXT NOT = ' the '
- DISPLAY 'text3 wrong: ' PLINE-TEXT
- END-DISPLAY
- END-IF
- MOVE 'the first part in' TO PLINE-TEXT (2:)
- MOVE 4 TO PLINE-LEN
- MOVE 'second' TO PLINE-TEXT (2:)
- MOVE 14 TO PLINE-LEN
- IF PLINE-TEXT NOT = ' sec first par'
- DISPLAY 'text4 wrong: ' PLINE-TEXT
- END-DISPLAY
- END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:292: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_subscripts.at:292"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:292"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:293: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_subscripts.at:293"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:293"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_631
-#AT_START_632
-at_fn_group_banner 632 'run_subscripts.at:298' \
- "SEARCH ALL with OCCURS DEPENDING ON" " " 4
-at_xfail=no
-(
- printf "%s\n" "632. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- *
- 77 SCREEN-AKT PIC 9(02) VALUE 0.
- 01 SCREEN-TAB.
- 03 SCREEN-ENTRY OCCURS 0 TO 20
- DEPENDING ON SCREEN-AKT
- ASCENDING KEY SCREEN-NAME
- INDEXED BY SCREEN-IDX.
- 05 SCREEN-NAME PIC X(02).
-
- PROCEDURE DIVISION.
-
- SEARCH ALL SCREEN-ENTRY
- AT END
- DISPLAY 'END'
- WHEN SCREEN-NAME (SCREEN-IDX) = 'AB'
- DISPLAY 'FOUND'
- END-SEARCH
- MOVE 1 TO SCREEN-AKT
- MOVE 'AB' TO SCREEN-NAME (1)
- SEARCH ALL SCREEN-ENTRY
- AT END
- DISPLAY 'END'
- WHEN SCREEN-NAME (SCREEN-IDX) = 'AB'
- DISPLAY 'FOUND'
- END-SEARCH
- MOVE 2 TO SCREEN-AKT
- MOVE 'CD' TO SCREEN-NAME (2)
- SEARCH ALL SCREEN-ENTRY
- AT END
- DISPLAY 'END'
- WHEN SCREEN-NAME (SCREEN-IDX) = 'CD'
- DISPLAY 'FOUND'
- END-SEARCH
- EXIT PROGRAM.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:342: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_subscripts.at:342"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:342"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:343: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_subscripts.at:343"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "END
-FOUND
-FOUND
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:343"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_632
-#AT_START_633
-at_fn_group_banner 633 'run_subscripts.at:351' \
- "enable / disable subscript check" " " 4
-at_xfail=no
-(
- printf "%s\n" "633. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x VALUE "12345!".
- 03 y PIC X OCCURS 5 TIMES.
- 03 z PIC X VALUE "!".
- 01 idx PIC 99 VALUE 6.
-
- PROCEDURE DIVISION.
- DISPLAY y (idx)
- WITH NO ADVANCING
- DISPLAY FUNCTION TRIM(FUNCTION EXCEPTION-STATUS)
- WITH NO ADVANCING
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:374: \$COMPILE prog.cob -o badprog1"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob -o badprog1" "run_subscripts.at:374"
-( $at_check_trace; $COMPILE prog.cob -o badprog1
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:374"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:375: \$COBCRUN_DIRECT ./badprog1"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./badprog1" "run_subscripts.at:375"
-( $at_check_trace; $COBCRUN_DIRECT ./badprog1
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:13: error: subscript of 'y' out of bounds: 6
-note: maximum subscript for 'y': 5
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_subscripts.at:375"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:379: \$COBC -x prog.cob -o exprog1"
-at_fn_check_prepare_dynamic "$COBC -x prog.cob -o exprog1" "run_subscripts.at:379"
-( $at_check_trace; $COBC -x prog.cob -o exprog1
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:379"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:380: \$COBCRUN_DIRECT ./exprog1"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./exprog1" "run_subscripts.at:380"
-( $at_check_trace; $COBCRUN_DIRECT ./exprog1
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "!" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:380"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:382: \$COMPILE -fno-ec=EC-BOUND-SUBSCRIPT -o exprog2 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fno-ec=EC-BOUND-SUBSCRIPT -o exprog2 prog.cob" "run_subscripts.at:382"
-( $at_check_trace; $COMPILE -fno-ec=EC-BOUND-SUBSCRIPT -o exprog2 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:382"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:383: \$COBCRUN_DIRECT ./exprog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./exprog2" "run_subscripts.at:383"
-( $at_check_trace; $COBCRUN_DIRECT ./exprog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "!" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:383"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:384: \$COMPILE -fno-ec=BOUND -o exprog3 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fno-ec=BOUND -o exprog3 prog.cob" "run_subscripts.at:384"
-( $at_check_trace; $COMPILE -fno-ec=BOUND -o exprog3 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:384"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:385: \$COBCRUN_DIRECT ./exprog3"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./exprog3" "run_subscripts.at:385"
-( $at_check_trace; $COBCRUN_DIRECT ./exprog3
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "!" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:385"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:387: \$COBC -x -fec=BoUnd-subscript prog.cob -o badprog2"
-at_fn_check_prepare_dynamic "$COBC -x -fec=BoUnd-subscript prog.cob -o badprog2" "run_subscripts.at:387"
-( $at_check_trace; $COBC -x -fec=BoUnd-subscript prog.cob -o badprog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:387"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:388: \$COBCRUN_DIRECT ./badprog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./badprog2" "run_subscripts.at:388"
-( $at_check_trace; $COBCRUN_DIRECT ./badprog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:13: error: subscript of 'y' out of bounds: 6
-note: maximum subscript for 'y': 5
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_subscripts.at:388"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_633
-#AT_START_634
-at_fn_group_banner 634 'run_subscripts.at:396' \
- "enable / disable subscript check with ODO" " " 4
-at_xfail=no
-(
- printf "%s\n" "634. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TAB.
- 02 X PIC X OCCURS 4 TO 6 DEPENDING ON N
- VALUE "A".
- 01 N PIC 9 VALUE 5.
- PROCEDURE DIVISION.
- MOVE "B" TO X (6)
- IF X (6) NOT EQUAL TO "B" THEN
- DISPLAY "Got X (6) = " X (6) ", expected B"
- END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:416: \$COMPILE prog.cob -o badprog1"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob -o badprog1" "run_subscripts.at:416"
-( $at_check_trace; $COMPILE prog.cob -o badprog1
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:416"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:417: \$COBCRUN_DIRECT ./badprog1"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./badprog1" "run_subscripts.at:417"
-( $at_check_trace; $COBCRUN_DIRECT ./badprog1
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:11: error: subscript of 'X' out of bounds: 6
-note: current maximum subscript for 'X': 5
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_subscripts.at:417"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:422: \$COMPILE prog.cob -fsubscript-check=full -o failprog1-check-full"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob -fsubscript-check=full -o failprog1-check-full" "run_subscripts.at:422"
-( $at_check_trace; $COMPILE prog.cob -fsubscript-check=full -o failprog1-check-full
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:422"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:423: \$COBCRUN_DIRECT ./failprog1-check-full"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./failprog1-check-full" "run_subscripts.at:423"
-( $at_check_trace; $COBCRUN_DIRECT ./failprog1-check-full
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:11: error: subscript of 'X' out of bounds: 6
-note: current maximum subscript for 'X': 5
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_subscripts.at:423"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:428: \$COMPILE prog.cob -fsubscript-check=max -o okprog1-check-max"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob -fsubscript-check=max -o okprog1-check-max" "run_subscripts.at:428"
-( $at_check_trace; $COMPILE prog.cob -fsubscript-check=max -o okprog1-check-max
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:428"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:429: \$COBCRUN_DIRECT ./okprog1-check-max"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./okprog1-check-max" "run_subscripts.at:429"
-( $at_check_trace; $COBCRUN_DIRECT ./okprog1-check-max
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:429"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:431: \$COMPILE prog.cob -fno-ec=bound -fsubscript-check=full -o okprog1-no-ec"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob -fno-ec=bound -fsubscript-check=full -o okprog1-no-ec" "run_subscripts.at:431"
-( $at_check_trace; $COMPILE prog.cob -fno-ec=bound -fsubscript-check=full -o okprog1-no-ec
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:431"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:432: \$COBCRUN_DIRECT ./okprog1-no-ec"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./okprog1-no-ec" "run_subscripts.at:432"
-( $at_check_trace; $COBCRUN_DIRECT ./okprog1-no-ec
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:432"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_634
-#AT_START_635
-at_fn_group_banner 635 'run_subscripts.at:437' \
- "BOUND and NOBOUND directives" " " 4
-at_xfail=no
-(
- printf "%s\n" "635. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# note: the >> TURN directive is checked in run_misc.at
-
-cat >prog.cob <<'_ATEOF'
-
- $SET BOUND
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x VALUE "12345!".
- 03 y PIC X OCCURS 5 TIMES.
- 03 z PIC X.
- 01 idx PIC 99 VALUE 6.
-
- PROCEDURE DIVISION.
- DISPLAY y (idx) WITH NO ADVANCING
- .
-_ATEOF
-
-
-cat >progn.cob <<'_ATEOF'
-
- $SET NOBOUND
- IDENTIFICATION DIVISION.
- PROGRAM-ID. progn.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x VALUE "12345!".
- 03 y PIC X OCCURS 5 TIMES.
- 03 z PIC X.
- 01 idx PIC 99 VALUE 6.
-
- PROCEDURE DIVISION.
- DISPLAY y (idx) WITH NO ADVANCING
- .
-_ATEOF
-
-
-cat >progn2.cob <<'_ATEOF'
-
- $SET NO-BOUND
- IDENTIFICATION DIVISION.
- PROGRAM-ID. progn2.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x VALUE "12345!".
- 03 y PIC X OCCURS 5 TIMES.
- 03 z PIC X.
- 01 idx PIC 99 VALUE 6.
-
- PROCEDURE DIVISION.
- DISPLAY y (idx) WITH NO ADVANCING
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:493: \$COBC -x prog.cob"
-at_fn_check_prepare_dynamic "$COBC -x prog.cob" "run_subscripts.at:493"
-( $at_check_trace; $COBC -x prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:493"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:494: \$COMPILE progn.cob"
-at_fn_check_prepare_dynamic "$COMPILE progn.cob" "run_subscripts.at:494"
-( $at_check_trace; $COMPILE progn.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:494"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:495: \$COMPILE progn2.cob"
-at_fn_check_prepare_dynamic "$COMPILE progn2.cob" "run_subscripts.at:495"
-( $at_check_trace; $COMPILE progn2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:495"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:496: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_subscripts.at:496"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:14: error: subscript of 'y' out of bounds: 6
-note: maximum subscript for 'y': 5
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_subscripts.at:496"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:500: \$COBCRUN_DIRECT ./progn"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./progn" "run_subscripts.at:500"
-( $at_check_trace; $COBCRUN_DIRECT ./progn
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "!" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:500"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:501: \$COBCRUN_DIRECT ./progn2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./progn2" "run_subscripts.at:501"
-( $at_check_trace; $COBCRUN_DIRECT ./progn2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "!" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:501"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_635
-#AT_START_636
-at_fn_group_banner 636 'run_subscripts.at:506' \
- "SSRANGE and NOSSRANGE directives" " " 4
-at_xfail=no
-(
- printf "%s\n" "636. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# WARNING: this testcase is "broken" as those SSRANGE may only be
-# defined before IDENTIFICATION DIVISION (initial $SET)
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x.
- 03 y PIC X OCCURS 5 TIMES VALUE SPACE.
- 03 z PIC X VALUE "!".
- 01 idx PIC 99 VALUE 6.
-
- PROCEDURE DIVISION.
- $SET NOSSRANGE
- DISPLAY y (idx)
- *> Note: MF says "sets BOUND"
- $SET SSRANGE
- DISPLAY y (idx)
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:532: \$COMPILE -DTEST-SUBSCRIPT prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -DTEST-SUBSCRIPT prog.cob" "run_subscripts.at:532"
-( $at_check_trace; $COMPILE -DTEST-SUBSCRIPT prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:532"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:533: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_subscripts.at:533"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:17: error: subscript of 'y' out of bounds: 6
-note: maximum subscript for 'y': 5
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "!
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_subscripts.at:533"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_636
-#AT_START_637
-at_fn_group_banner 637 'run_subscripts.at:542' \
- "CALL with OCCURS DEPENDING ON" " " 4
-at_xfail=no
-(
- printf "%s\n" "637. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog-main.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 parm.
- 03 parm-size PIC S999 COMP.
- 03 parm-str.
- 05 parm-char PIC X OCCURS 0 TO 100 TIMES
- DEPENDING ON parm-size.
-
- PROCEDURE DIVISION.
- MOVE 10 TO parm-size
- MOVE "Hi, there!" TO parm-str
- CALL "prog" USING parm
- .
- END PROGRAM prog-main.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- LINKAGE SECTION.
- 01 parm.
- 03 parm-size PIC S999 COMP.
- 03 parm-str.
- 05 parm-char PIC X OCCURS 0 TO 100 TIMES
- DEPENDING ON parm-size.
-
- PROCEDURE DIVISION USING parm.
- DISPLAY FUNCTION TRIM(parm-str) WITH NO ADVANCING
- .
- END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:581: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_subscripts.at:581"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:581"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_subscripts.at:582: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_subscripts.at:582"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Hi, there!" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_subscripts.at:582"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_637
-#AT_START_638
-at_fn_group_banner 638 'run_refmod.at:25' \
- "Static reference-modification" " " 4
-at_xfail=no
-(
- printf "%s\n" "638. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4) VALUE "abcd".
- PROCEDURE DIVISION.
- DISPLAY X(1:1) ":" X(1:2) ":" X(1:3) ":" X(1:4) ":" X(1:)
- END-DISPLAY.
- DISPLAY X(2:1) ":" X(2:2) ":" X(2:3) ":" X(2:)
- END-DISPLAY.
- DISPLAY X(3:1) ":" X(3:2) ":" X(3:)
- END-DISPLAY.
- DISPLAY X(4:1) ":" X(4:)
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:46: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_refmod.at:46"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_refmod.at:46"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:47: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_refmod.at:47"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "a:ab:abc:abcd:abcd
-b:bc:bcd:bcd
-c:cd:cd
-d:d
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_refmod.at:47"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_638
-#AT_START_639
-at_fn_group_banner 639 'run_refmod.at:57' \
- "Dynamic reference-modification" " " 4
-at_xfail=no
-(
- printf "%s\n" "639. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4) VALUE "abcd".
- 01 I PIC 9.
- PROCEDURE DIVISION.
- MOVE 1 TO I.
- DISPLAY X(I:1)
- END-DISPLAY.
- MOVE 4 TO I.
- DISPLAY X(I:1)
- END-DISPLAY.
- MOVE 1 TO I.
- DISPLAY X(1:I)
- END-DISPLAY.
- MOVE 4 TO I.
- DISPLAY X(1:I)
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:83: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_refmod.at:83"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_refmod.at:83"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:84: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_refmod.at:84"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "a
-d
-a
-abcd
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_refmod.at:84"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_639
-#AT_START_640
-at_fn_group_banner 640 'run_refmod.at:94' \
- "Offset underflow" " " 4
-at_xfail=no
-(
- printf "%s\n" "640. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4) VALUE "abcd".
- 01 I PIC 9 VALUE 0.
- PROCEDURE DIVISION.
- DISPLAY X(I:1) NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:110: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_refmod.at:110"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_refmod.at:110"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:111: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_refmod.at:111"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:9: error: offset of 'X' out of bounds: 0
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_refmod.at:111"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_640
-#AT_START_641
-at_fn_group_banner 641 'run_refmod.at:118' \
- "Offset overflow" " " 4
-at_xfail=no
-(
- printf "%s\n" "641. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01.
- 03 X PIC X(4) VALUE "abcd".
- 03 I PIC 9 VALUE 5.
- PROCEDURE DIVISION.
- DISPLAY X(I:1) NO ADVANCING.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:134: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_refmod.at:134"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_refmod.at:134"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:135: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_refmod.at:135"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:10: error: offset of 'X' out of bounds: 5, maximum: 4
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_refmod.at:135"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:139: \$COBC -x prog.cob -o progb"
-at_fn_check_prepare_dynamic "$COBC -x prog.cob -o progb" "run_refmod.at:139"
-( $at_check_trace; $COBC -x prog.cob -o progb
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_refmod.at:139"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:140: \$COBCRUN_DIRECT ./progb"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./progb" "run_refmod.at:140"
-( $at_check_trace; $COBCRUN_DIRECT ./progb
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "5" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_refmod.at:140"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_641
-#AT_START_642
-at_fn_group_banner 642 'run_refmod.at:145' \
- "Length underflow" " " 4
-at_xfail=no
-(
- printf "%s\n" "642. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4) VALUE "abcd".
- 01 I PIC 9 VALUE 0.
- PROCEDURE DIVISION.
- DISPLAY X(1:I) NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:161: \$COMPILE -std=cobol2002 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=cobol2002 prog.cob" "run_refmod.at:161"
-( $at_check_trace; $COMPILE -std=cobol2002 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_refmod.at:161"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:162: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_refmod.at:162"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:9: error: length of 'X' out of bounds: 0
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_refmod.at:162"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4) VALUE "abcd".
- 01 I PIC 9 VALUE 0.
- PROCEDURE DIVISION.
- >> REF-MOD-ZERO-LENGTH
- DISPLAY X(1:I) NO ADVANCING.
- >> REF-MOD-ZERO-LENGTH OFF
- DISPLAY X(1:I) NO ADVANCING.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:181: \$COMPILE -fno-ref-mod-zero-length prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fno-ref-mod-zero-length prog2.cob" "run_refmod.at:181"
-( $at_check_trace; $COMPILE -fno-ref-mod-zero-length prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_refmod.at:181"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:182: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "run_refmod.at:182"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog2.cob:11: error: length of 'X' out of bounds: 0
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_refmod.at:182"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_642
-#AT_START_643
-at_fn_group_banner 643 'run_refmod.at:189' \
- "Length overflow" " " 4
-at_xfail=no
-(
- printf "%s\n" "643. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4) VALUE "abcd".
- 01 I PIC 9 VALUE 5.
- PROCEDURE DIVISION.
- DISPLAY X(1:I) NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:205: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_refmod.at:205"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_refmod.at:205"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:206: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_refmod.at:206"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:9: error: length of 'X' out of bounds: 5, maximum: 4
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_refmod.at:206"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4) VALUE "abcd".
- 01 I PIC 9 VALUE 5.
- PROCEDURE DIVISION.
- DISPLAY X(3:I) NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:223: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_refmod.at:223"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_refmod.at:223"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:224: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "run_refmod.at:224"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog2.cob:9: error: length of 'X' out of bounds: 5, maximum: 4
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_refmod.at:224"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_643
-#AT_START_644
-at_fn_group_banner 644 'run_refmod.at:231' \
- "Length overflow with offset (1)" " " 4
-at_xfail=no
-(
- printf "%s\n" "644. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4) VALUE "abcd".
- 01 I PIC 9 VALUE 3.
- PROCEDURE DIVISION.
- DISPLAY X(3:I) NO ADVANCING.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:246: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_refmod.at:246"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_refmod.at:246"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:247: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_refmod.at:247"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:9: error: length of 'X' out of bounds: 3, starting at: 3, maximum: 4
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_refmod.at:247"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_644
-#AT_START_645
-at_fn_group_banner 645 'run_refmod.at:254' \
- "Length overflow with offset (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "645. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# verifies that the check is generated within conditions - simple IF
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4) VALUE "abcd".
- 01 I PIC 9 VALUE 3.
- PROCEDURE DIVISION.
- IF X(3:I) <> SPACES
- DISPLAY X(3:I) NO ADVANCING.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:272: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_refmod.at:272"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_refmod.at:272"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:273: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_refmod.at:273"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:9: error: length of 'X' out of bounds: 3, starting at: 3, maximum: 4
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_refmod.at:273"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_645
-#AT_START_646
-at_fn_group_banner 646 'run_refmod.at:280' \
- "Length overflow with offset (3)" " " 4
-at_xfail=no
-(
- printf "%s\n" "646. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# verifies that the check is generated within conditions - WHEN
-# complex test for correct place and not raised if guarded by check
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4) VALUE "abcd".
- 01 I PIC 9 VALUE 3.
- PROCEDURE DIVISION.
- EVALUATE TRUE
- WHEN I < 2
- AND X(3:I) <> SPACES
- DISPLAY "1-" X(3:I) NO ADVANCING
- WHEN I < 2
- WHEN X(3:I) <> SPACES
- DISPLAY "2-" X(3:I) NO ADVANCING
- END-EVALUATE
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:305: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_refmod.at:305"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_refmod.at:305"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:306: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_refmod.at:306"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:14: error: length of 'X' out of bounds: 3, starting at: 3, maximum: 4
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_refmod.at:306"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_646
-#AT_START_647
-at_fn_group_banner 647 'run_refmod.at:313' \
- "enable / disable ref-mod check" " " 4
-at_xfail=no
-(
- printf "%s\n" "647. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x.
- 03 y PIC XXX VALUE "abc".
- 03 z PIC X VALUE "d".
- 01 len PIC 99 VALUE 2.
-
- PROCEDURE DIVISION.
- DISPLAY y (3:len)
- WITH NO ADVANCING
- DISPLAY FUNCTION TRIM(FUNCTION EXCEPTION-STATUS)
- WITH NO ADVANCING
- DISPLAY "."
- WITH NO ADVANCING
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:337: \$COMPILE -w -fno-ec=BOUND-REF-MOD prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -w -fno-ec=BOUND-REF-MOD prog.cob" "run_refmod.at:337"
-( $at_check_trace; $COMPILE -w -fno-ec=BOUND-REF-MOD prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_refmod.at:337"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:338: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_refmod.at:338"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "cd." | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_refmod.at:338"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:339: \$COMPILE -w -fno-ec=BOUND prog.cob -o progb"
-at_fn_check_prepare_dynamic "$COMPILE -w -fno-ec=BOUND prog.cob -o progb" "run_refmod.at:339"
-( $at_check_trace; $COMPILE -w -fno-ec=BOUND prog.cob -o progb
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_refmod.at:339"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:340: \$COBCRUN_DIRECT ./progb"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./progb" "run_refmod.at:340"
-( $at_check_trace; $COBCRUN_DIRECT ./progb
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "cd." | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_refmod.at:340"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:341: \$COMPILE -w prog.cob -o progc"
-at_fn_check_prepare_dynamic "$COMPILE -w prog.cob -o progc" "run_refmod.at:341"
-( $at_check_trace; $COMPILE -w prog.cob -o progc
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_refmod.at:341"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:342: \$COBCRUN_DIRECT ./progc"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./progc" "run_refmod.at:342"
-( $at_check_trace; $COBCRUN_DIRECT ./progc
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:13: error: length of 'y' out of bounds: 2, starting at: 3, maximum: 3
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_refmod.at:342"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x.
- 03 y PIC X VALUE "a".
- 03 z PIC X VALUE "b".
- 01 len PIC 99 VALUE 0.
-
- PROCEDURE DIVISION.
- DISPLAY y (1:len)
- WITH NO ADVANCING
- DISPLAY FUNCTION TRIM(FUNCTION EXCEPTION-STATUS)
- WITH NO ADVANCING
- DISPLAY "."
- WITH NO ADVANCING
- MOVE 2 TO len
- DISPLAY y (1:len)
- WITH NO ADVANCING
- DISPLAY FUNCTION TRIM(FUNCTION EXCEPTION-STATUS)
- WITH NO ADVANCING
- DISPLAY "."
- WITH NO ADVANCING
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:374: \$COMPILE -w -fno-ec=BOUND-REF-MOD prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE -w -fno-ec=BOUND-REF-MOD prog2.cob" "run_refmod.at:374"
-( $at_check_trace; $COMPILE -w -fno-ec=BOUND-REF-MOD prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_refmod.at:374"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:375: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "run_refmod.at:375"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" ".ab." | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_refmod.at:375"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:376: \$COMPILE -w -o prog2b prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE -w -o prog2b prog2.cob" "run_refmod.at:376"
-( $at_check_trace; $COMPILE -w -o prog2b prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_refmod.at:376"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:377: \$COBCRUN_DIRECT ./prog2b"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2b" "run_refmod.at:377"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2b
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog2.cob:20: error: length of 'y' out of bounds: 2, maximum: 1
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "." | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_refmod.at:377"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:380: \$COMPILE -w -fno-ref-mod-zero-length -o prog2c prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE -w -fno-ref-mod-zero-length -o prog2c prog2.cob" "run_refmod.at:380"
-( $at_check_trace; $COMPILE -w -fno-ref-mod-zero-length -o prog2c prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_refmod.at:380"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:381: \$COBCRUN_DIRECT ./prog2c"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2c" "run_refmod.at:381"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog2.cob:13: error: length of 'y' out of bounds: 0
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_refmod.at:381"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_647
-#AT_START_648
-at_fn_group_banner 648 'run_refmod.at:388' \
- "MF SSRANGE and NOSSRANGE directives" " " 4
-at_xfail=no
-(
- printf "%s\n" "648. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# Note: SSRANGE directive is "initial" and must be specified
-# before IDENTIFICATION DIVISION
-
-cat >prog.cob <<'_ATEOF'
-
- $SET NOSSRANGE
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x.
- 03 y PIC X VALUE SPACE.
- 03 z PIC X VALUE "!".
- 01 n PIC 9 VALUE 0.
- 01 m PIC 9 VALUE 2.
-
- PROCEDURE DIVISION.
- DISPLAY y (1:m) NO ADVANCING
- DISPLAY y (1:n) no ADVANCING
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:413: \$COBC -w -x -debug -std=mf prog.cob"
-at_fn_check_prepare_dynamic "$COBC -w -x -debug -std=mf prog.cob" "run_refmod.at:413"
-( $at_check_trace; $COBC -w -x -debug -std=mf prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_refmod.at:413"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:414: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_refmod.at:414"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " !" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_refmod.at:414"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog1.cob <<'_ATEOF'
-
- $SET SSRANGE"1"
- IDENTIFICATION DIVISION.
- PROGRAM-ID. progb.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x.
- 03 y PIC X VALUE SPACE.
- 03 z PIC X VALUE "!".
- 01 n PIC 9 VALUE 0.
- 01 m PIC 9 VALUE 2.
-
- PROCEDURE DIVISION.
- DISPLAY y (1:m) NO ADVANCING
- DISPLAY y (1:n)
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:435: \$COBC -w -x -std=mf prog1.cob"
-at_fn_check_prepare_dynamic "$COBC -w -x -std=mf prog1.cob" "run_refmod.at:435"
-( $at_check_trace; $COBC -w -x -std=mf prog1.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_refmod.at:435"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:436: \$COBCRUN_DIRECT ./prog1"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog1" "run_refmod.at:436"
-( $at_check_trace; $COBCRUN_DIRECT ./prog1
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog1.cob:16: error: length of 'y' out of bounds: 0
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " !" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_refmod.at:436"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog2.cob <<'_ATEOF'
-
- $SET SSRANGE"2"
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x.
- 03 y PIC X VALUE SPACE.
- 03 z PIC X VALUE "!".
- 01 n PIC 9 VALUE 0.
- 01 m PIC 9 VALUE 2.
-
- PROCEDURE DIVISION.
- $IF TEST-ZERO-LEN-REF-MOD DEFINED
- DISPLAY y (1:n)
- $END
- DISPLAY y (1:m)
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:461: \$COBC -w -x -std=mf -DTEST-ZERO-LEN-REF-MOD prog2.cob"
-at_fn_check_prepare_dynamic "$COBC -w -x -std=mf -DTEST-ZERO-LEN-REF-MOD prog2.cob" "run_refmod.at:461"
-( $at_check_trace; $COBC -w -x -std=mf -DTEST-ZERO-LEN-REF-MOD prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_refmod.at:461"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:462: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "run_refmod.at:462"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog2.cob:16: error: length of 'y' out of bounds: 0
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_refmod.at:462"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:466: \$COBC -w -x -std=mf -o prog2b prog2.cob"
-at_fn_check_prepare_dynamic "$COBC -w -x -std=mf -o prog2b prog2.cob" "run_refmod.at:466"
-( $at_check_trace; $COBC -w -x -std=mf -o prog2b prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_refmod.at:466"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:467: \$COBCRUN_DIRECT ./prog2b"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2b" "run_refmod.at:467"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2b
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog2.cob:18: error: length of 'y' out of bounds: 2, maximum: 1
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_refmod.at:467"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog3.cob <<'_ATEOF'
-
- $SET SSRANGE"3"
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x.
- 03 y PIC X VALUE SPACE.
- 03 z PIC X VALUE "!".
- 01 n PIC 9 VALUE 0.
- 01 m PIC 9 VALUE 2.
-
- PROCEDURE DIVISION.
- DISPLAY y (1:n) NO ADVANCING
- DISPLAY y (1:m)
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:490: \$COBC -w -x -std=mf prog3.cob"
-at_fn_check_prepare_dynamic "$COBC -w -x -std=mf prog3.cob" "run_refmod.at:490"
-( $at_check_trace; $COBC -w -x -std=mf prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_refmod.at:490"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_refmod.at:491: \$COBCRUN_DIRECT ./prog3"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog3" "run_refmod.at:491"
-( $at_check_trace; $COBCRUN_DIRECT ./prog3
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog3.cob:16: error: length of 'y' out of bounds: 2, maximum: 1
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_refmod.at:491"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_648
-#AT_START_649
-at_fn_group_banner 649 'run_accept.at:29' \
- "ACCEPT OMITTED (simple)" " " 4
-at_xfail=no
-(
- printf "%s\n" "649. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- ACCEPT OMITTED.
-_ATEOF
-
-
-cat >input.txt <<'_ATEOF'
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_accept.at:42: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_accept.at:42"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_accept.at:42"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_accept.at:43: \$COBCRUN_DIRECT ./prog < input.txt"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog < input.txt" "run_accept.at:43"
-( $at_check_trace; $COBCRUN_DIRECT ./prog < input.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_accept.at:43"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_649
-#AT_START_650
-at_fn_group_banner 650 'run_accept.at:51' \
- "ACCEPT FROM TIME / DATE / DAY / DAY-OF-WEEK (1)" "" 4
-at_xfail=no
-(
- printf "%s\n" "650. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- *> one byte longer to make sure there is no garbage in
- 01 X PIC X(9).
- PROCEDURE DIVISION.
- ACCEPT X FROM TIME
- END-ACCEPT
- IF X (1:2) >= "00" AND <= "23" AND
- X (3:2) >= "00" AND <= "59" AND
- X (5:2) >= "00" AND <= "60" AND
- X (7:2) >= "00" AND <= "99" AND
- X (9: ) = SPACE
- CONTINUE
- ELSE
- DISPLAY "TIME " X "!"
- END-DISPLAY
- END-IF
- ACCEPT X FROM DATE
- END-ACCEPT
- INSPECT X CONVERTING "012345678" TO "999999999"
- IF X NOT = "999999"
- DISPLAY "DATE " X "!"
- END-DISPLAY
- END-IF
- ACCEPT X FROM DATE YYYYMMDD
- END-ACCEPT
- INSPECT X CONVERTING "012345678" TO "999999999"
- IF X NOT = "99999999"
- DISPLAY "YYYYMMDD " X "!"
- END-DISPLAY
- END-IF
- ACCEPT X FROM DAY
- END-ACCEPT
- INSPECT X CONVERTING "012345678" TO "999999999"
- IF X NOT = "99999"
- DISPLAY "DAY " X "!"
- END-DISPLAY
- END-IF
- ACCEPT X FROM DAY YYYYDDD
- END-ACCEPT
- INSPECT X CONVERTING "012345678" TO "999999999"
- IF X NOT = "9999999"
- DISPLAY "YYYYDDD " X "!"
- END-DISPLAY
- END-IF
- ACCEPT X FROM DAY-OF-WEEK
- END-ACCEPT
- INSPECT X CONVERTING "1234567" TO "9999999"
- IF X NOT = "9"
- DISPLAY "DAY-OF-WEEK " X "!"
- END-DISPLAY
- END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_accept.at:112: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_accept.at:112"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_accept.at:112"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_accept.at:113: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_accept.at:113"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_accept.at:113"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# testing all variants for the offset (to not break anything hard,
-# actual testing of the values need a bigger test in COBOL)
-{ set +x
-printf "%s\n" "$at_srcdir/run_accept.at:117: COB_CURRENT_DATE=\"YYYYMMDDHHMMSS+01:00\" \\
-\$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_notrace 'an embedded newline' "run_accept.at:117"
-( $at_check_trace; COB_CURRENT_DATE="YYYYMMDDHHMMSS+01:00" \
-$COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_accept.at:117"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_accept.at:119: COB_CURRENT_DATE=\"YYYYMMDDHHMMSS-0115\" \\
-\$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_notrace 'an embedded newline' "run_accept.at:119"
-( $at_check_trace; COB_CURRENT_DATE="YYYYMMDDHHMMSS-0115" \
-$COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_accept.at:119"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_accept.at:121: COB_CURRENT_DATE=\"YYYYMMDDHHMMSS+02\" \\
-\$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_notrace 'an embedded newline' "run_accept.at:121"
-( $at_check_trace; COB_CURRENT_DATE="YYYYMMDDHHMMSS+02" \
-$COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_accept.at:121"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_accept.at:123: COB_CURRENT_DATE=\"YYYYMMDDHHMMSSZ\" \\
-\$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_notrace 'an embedded newline' "run_accept.at:123"
-( $at_check_trace; COB_CURRENT_DATE="YYYYMMDDHHMMSSZ" \
-$COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_accept.at:123"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_accept.at:125: COB_CURRENT_DATE=\"YYYYMMDDHHMMSS-011569\" \\
-\$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_notrace 'an embedded newline' "run_accept.at:125"
-( $at_check_trace; COB_CURRENT_DATE="YYYYMMDDHHMMSS-011569" \
-$COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: warning: COB_CURRENT_DATE 'YYYYMMDDHHMMSS-011569' is invalid
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_accept.at:125"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_accept.at:129: COB_CURRENT_DATE=\"YYYYMMDDHHMMSS+01:0000\" \\
-\$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_notrace 'an embedded newline' "run_accept.at:129"
-( $at_check_trace; COB_CURRENT_DATE="YYYYMMDDHHMMSS+01:0000" \
-$COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: warning: COB_CURRENT_DATE 'YYYYMMDDHHMMSS+01:0000' is invalid
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_accept.at:129"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_accept.at:133: COB_CURRENT_DATE=\"YYYYMMDDHHMMSS-010A\" \\
-\$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_notrace 'an embedded newline' "run_accept.at:133"
-( $at_check_trace; COB_CURRENT_DATE="YYYYMMDDHHMMSS-010A" \
-$COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: warning: COB_CURRENT_DATE 'YYYYMMDDHHMMSS-010A' is invalid
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_accept.at:133"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_650
-#AT_START_651
-at_fn_group_banner 651 'run_accept.at:141' \
- "ACCEPT FROM TIME / DATE / DAY / DAY-OF-WEEK (2)" "" 4
-at_xfail=no
-(
- printf "%s\n" "651. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- *> one byte longer to make sure there is no garbage in
- 01 WS-YYYYMMDD PIC X(9).
- 01 WS-YYYYDDD PIC X(8).
- 01 WS-DAYOFWEEK PIC X(2).
- 01 WS-DATE-TODAY.
- 05 WS-TODAYS-YY PIC 9(02) VALUE 0.
- 05 WS-TODAYS-MM PIC 9(02) VALUE 0.
- 05 WS-TODAYS-DD PIC 9(02) VALUE 0.
- 01 WS-DATE-TODAY-9 REDEFINES WS-DATE-TODAY PIC 9(06).
-
- 01 WS-DATE.
- 05 WS-DATE-MM PIC 9(02) VALUE 0.
- 05 FILLER PIC X(01) VALUE '/'.
- 05 WS-DATE-DD PIC 9(02) VALUE 0.
- 05 FILLER PIC X(01) VALUE '/'.
- 05 WS-DATE-YY PIC 9(02) VALUE 0.
-
- 01 WS-TIME-NOW.
- 05 WS-NOW-HH PIC 9(02) VALUE 0.
- 05 WS-NOW-MM PIC 9(02) VALUE 0.
- 05 WS-NOW-SS PIC 9(02) VALUE 0.
- 05 WS-NOW-HS PIC 9(02) VALUE 0.
- 01 WS-TIME-NOW-9 REDEFINES WS-TIME-NOW PIC 9(08).
-
- 01 WS-TIME.
- 05 WS-TIME-HH PIC 9(02) VALUE 0.
- 05 FILLER PIC X(01) VALUE ':'.
- 05 WS-TIME-MM PIC 9(02) VALUE 0.
- 05 FILLER PIC X(01) VALUE ':'.
- 05 WS-TIME-SS PIC 9(02) VALUE 0.
-
- 01 WS-MICROSECOND-TIME.
- 05 WS-TIME-MICRO PIC 9(14).
-
- PROCEDURE DIVISION.
- PERFORM RUN-TEST.
- PERFORM RUN-VALIDATION.
- >> IF CHECK-PERF IS DEFINED
- *> included performance check
- PERFORM RUN-TEST 50000 TIMES
- >> END-IF
- GOBACK.
-
- RUN-TEST.
- ACCEPT WS-DATE-TODAY-9 FROM DATE.
- ACCEPT WS-TIME-NOW-9 FROM TIME.
- ACCEPT WS-TIME-MICRO FROM MICROSECOND-TIME.
-
- RUN-VALIDATION.
- *> actual verification
- MOVE WS-TODAYS-YY TO WS-DATE-YY
- MOVE WS-TODAYS-MM TO WS-DATE-MM
- MOVE WS-TODAYS-DD TO WS-DATE-DD
- MOVE WS-NOW-HH TO WS-TIME-HH
- MOVE WS-NOW-MM TO WS-TIME-MM
- MOVE WS-NOW-SS TO WS-TIME-SS
- DISPLAY 'PROCESS DATE/TIME : ' WS-DATE ' ' WS-TIME
- WITH NO ADVANCING UPON SYSOUT
- END-DISPLAY
- DISPLAY ' MICROSECOND-TIME '
- WITH NO ADVANCING UPON SYSOUT
- END-DISPLAY
- DISPLAY WS-MICROSECOND-TIME
- WITH NO ADVANCING UPON SYSOUT
- END-DISPLAY
- DISPLAY '.' UPON SYSOUT.
- *> Bigger fields return 8/12 depending on std
- *> CHECKME: we may should limit to 6 depending on std, too
- ACCEPT WS-TIME-MICRO FROM TIME
- DISPLAY 'PROCESS BIG TIME : '
- WITH NO ADVANCING UPON SYSOUT
- DISPLAY WS-MICROSECOND-TIME UPON SYSOUT.
- ACCEPT WS-YYYYMMDD FROM DATE YYYYMMDD
- IF WS-YYYYMMDD not = "20150405"
- DISPLAY 'Wrong date DATE YYYYMMDD: ' WS-YYYYMMDD
- ' expected: 20150405'
- UPON SYSERR.
- ACCEPT WS-YYYYDDD FROM DAY YYYYDDD
- IF WS-YYYYDDD not = "2015095"
- DISPLAY 'Wrong date YYYYDDD: ' WS-YYYYDDD
- ' expected: 2015095'
- UPON SYSERR.
- ACCEPT WS-DAYOFWEEK FROM DAY-OF-WEEK
- IF WS-DAYOFWEEK not = "7"
- DISPLAY 'Wrong date DAYOFWEEK: ' WS-DAYOFWEEK
- ' expected: 7'
- UPON SYSERR.
- *>
- PERFORM 500 TIMES
- ACCEPT WS-DATE-TODAY FROM DATE
- ACCEPT WS-TIME-NOW FROM TIME
- ACCEPT WS-MICROSECOND-TIME FROM MICROSECOND-TIME
- END-PERFORM
- MOVE WS-TODAYS-YY TO WS-DATE-YY
- MOVE WS-TODAYS-MM TO WS-DATE-MM
- MOVE WS-TODAYS-DD TO WS-DATE-DD
- MOVE WS-NOW-HH TO WS-TIME-HH
- MOVE WS-NOW-MM TO WS-TIME-MM
- MOVE WS-NOW-SS TO WS-TIME-SS
- DISPLAY 'PROCESS DATE/TIME : ' WS-DATE ' ' WS-TIME
- WITH NO ADVANCING UPON SYSOUT
- END-DISPLAY
- DISPLAY ' MICROSECOND-TIME '
- WITH NO ADVANCING UPON SYSOUT
- END-DISPLAY
- DISPLAY WS-MICROSECOND-TIME
- WITH NO ADVANCING UPON SYSOUT
- END-DISPLAY
- DISPLAY '.' UPON SYSOUT.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_accept.at:260: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_accept.at:260"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_accept.at:260"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_accept.at:262: COB_CURRENT_DATE='2015/04/05 18:45:22.123400056' \\
-\$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_notrace 'an embedded newline' "run_accept.at:262"
-( $at_check_trace; COB_CURRENT_DATE='2015/04/05 18:45:22.123400056' \
-$COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "PROCESS DATE/TIME : 04/05/15 18:45:22 MICROSECOND-TIME 00184522123400.
-PROCESS BIG TIME : 00000018452212
-PROCESS DATE/TIME : 04/05/15 18:45:22 MICROSECOND-TIME 184522123400 .
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_accept.at:262"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_accept.at:269: \$COMPILE -std=acu -o proga prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=acu -o proga prog.cob" "run_accept.at:269"
-( $at_check_trace; $COMPILE -std=acu -o proga prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_accept.at:269"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_accept.at:271: COB_CURRENT_DATE='2015/04/05 18:45:22.123400056' \\
-\$COBCRUN_DIRECT ./proga"
-at_fn_check_prepare_notrace 'an embedded newline' "run_accept.at:271"
-( $at_check_trace; COB_CURRENT_DATE='2015/04/05 18:45:22.123400056' \
-$COBCRUN_DIRECT ./proga
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "PROCESS DATE/TIME : 04/05/15 18:45:22 MICROSECOND-TIME 00184522123400.
-PROCESS BIG TIME : 00184522123400
-PROCESS DATE/TIME : 04/05/15 18:45:22 MICROSECOND-TIME 184522123400 .
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_accept.at:271"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_651
-#AT_START_652
-at_fn_group_banner 652 'run_accept.at:283' \
- "ACCEPT DATE / DAY and intrinsic functions (1)" " " 4
-at_xfail=no
-(
- printf "%s\n" "652. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- *> one byte longer to make sure there is no garbage in
- 01 WS-YYYYMMDD PIC 9(9).
- 01 WS-YYYYDDD PIC 9(8).
- PROCEDURE DIVISION.
- ACCEPT WS-YYYYMMDD FROM DATE YYYYMMDD
- END-ACCEPT
- ACCEPT WS-YYYYDDD FROM DAY YYYYDDD
- END-ACCEPT
- IF FUNCTION INTEGER-OF-DATE (WS-YYYYMMDD)
- NOT = FUNCTION INTEGER-OF-DAY (WS-YYYYDDD)
- DISPLAY "DIFFERENCES FOUND!"
- END-DISPLAY
- DISPLAY "YYYYMMDD = " WS-YYYYMMDD ", "
- "YYYYDDD = " WS-YYYYDDD
- END-DISPLAY
- DISPLAY "INTEGER-OF-DATE = "
- FUNCTION INTEGER-OF-DATE (WS-YYYYMMDD) ", "
- "INTEGER-OF-DAY = "
- FUNCTION INTEGER-OF-DAY (WS-YYYYDDD)
- END-DISPLAY
- MOVE 1 TO RETURN-CODE
- END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_accept.at:316: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_accept.at:316"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_accept.at:316"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_accept.at:317: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_accept.at:317"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_accept.at:317"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_652
-#AT_START_653
-at_fn_group_banner 653 'run_accept.at:320' \
- "ACCEPT DATE / DAY and intrinsic functions (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "653. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# FIXME: verify via COB_CURRENT_DATE that the values are resolved correctly
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- *> one byte longer to make sure there is no garbage in
- 01 WS-YYYYMMDD PIC 9(9).
- 01 WS-YYYYDDD PIC 9(8).
- PROCEDURE DIVISION.
- ACCEPT WS-YYYYMMDD FROM DATE YYYYMMDD
- END-ACCEPT
- ACCEPT WS-YYYYDDD FROM DAY YYYYDDD
- END-ACCEPT
- IF FUNCTION INTEGER-OF-DATE (WS-YYYYMMDD)
- NOT = FUNCTION INTEGER-OF-DAY (WS-YYYYDDD)
- DISPLAY "DIFFERENCES FOUND!"
- END-DISPLAY
- DISPLAY "YYYYMMDD = " WS-YYYYMMDD ", "
- "YYYYDDD = " WS-YYYYDDD
- END-DISPLAY
- DISPLAY "INTEGER-OF-DATE = "
- FUNCTION INTEGER-OF-DATE (WS-YYYYMMDD) ", "
- "INTEGER-OF-DAY = "
- FUNCTION INTEGER-OF-DAY (WS-YYYYDDD)
- END-DISPLAY
- MOVE 1 TO RETURN-CODE
- END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_accept.at:355: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_accept.at:355"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_accept.at:355"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_accept.at:356: COB_CURRENT_DATE='2020/06/12 18:45:22' \\
-\$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_notrace 'an embedded newline' "run_accept.at:356"
-( $at_check_trace; COB_CURRENT_DATE='2020/06/12 18:45:22' \
-$COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_accept.at:356"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_653
-#AT_START_654
-at_fn_group_banner 654 'run_accept.at:367' \
- "ACCEPT OMITTED (SCREEN)" " " 4
-at_xfail=no
-(
- printf "%s\n" "654. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_accept.at:370: test \"\$COB_HAS_CURSES\" = \"yes\" || exit 77"
-at_fn_check_prepare_dynamic "test \"$COB_HAS_CURSES\" = \"yes\" || exit 77" "run_accept.at:370"
-( $at_check_trace; test "$COB_HAS_CURSES" = "yes" || exit 77
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_accept.at:370"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- SCREEN SECTION.
- 01 scr.
- 03 VALUE "Hello!" LINE 3 COL 3.
-
- PROCEDURE DIVISION.
- ACCEPT OMITTED
- END-ACCEPT.
-_ATEOF
-
-
-cat >input.txt <<'_ATEOF'
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_accept.at:389: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_accept.at:389"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_accept.at:389"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_accept.at:390: \$COBCRUN_DIRECT ./prog < input.txt"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog < input.txt" "run_accept.at:390"
-( $at_check_trace; $COBCRUN_DIRECT ./prog < input.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/run_accept.at:390"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_654
-#AT_START_655
-at_fn_group_banner 655 'run_initialize.at:29' \
- "INITIALIZE group entry with OCCURS" " " 4
-at_xfail=no
-(
- printf "%s\n" "655. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G1.
- 02 G2 OCCURS 2.
- 03 X1 PIC X.
- 03 X2 PIC 9.
- PROCEDURE DIVISION.
- MOVE SPACE TO G1.
- INITIALIZE G2 (2).
- IF G1 NOT = " 0"
- DISPLAY G1 NO ADVANCING
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:51: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_initialize.at:51"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:51"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:52: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_initialize.at:52"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:52"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_655
-#AT_START_656
-at_fn_group_banner 656 'run_initialize.at:57' \
- "INITIALIZE OCCURS with numeric edited" " " 4
-at_xfail=no
-(
- printf "%s\n" "656. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G1.
- 02 G2 OCCURS 5.
- 03 X PIC Z9.
- PROCEDURE DIVISION.
- INITIALIZE G1
- MOVE 5 TO X(1)
- MOVE 99 TO X(3)
- IF G1 NOT = " 5 099 0 0"
- DISPLAY 'MOVE "' G1 '"'
- END-DISPLAY
- END-IF
- INITIALIZE G1
- IF G1 NOT = " 0 0 0 0 0"
- DISPLAY 'INIT "' G1 '"'
- END-DISPLAY
- END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:84: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_initialize.at:84"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:84"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:85: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_initialize.at:85"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:85"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_656
-#AT_START_657
-at_fn_group_banner 657 'run_initialize.at:90' \
- "INITIALIZE OCCURS with SIGN LEADING / TRAILING" " " 4
-at_xfail=no
-(
- printf "%s\n" "657. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G1.
- 02 FILLER OCCURS 2.
- 03 X PIC S9 SIGN LEADING SEPARATE.
- 02 FILLER OCCURS 2.
- 03 Y PIC S9 SIGN TRAILING SEPARATE.
- *> definition taken from NC1184.2
- 01 MINUS-NAMES SIGN IS TRAILING SEPARATE CHARACTER.
- 02 MINUS-NAMES-1.
- 03 MINUS-NAME1 PIC S9(18) VALUE -999999999999999999.
- 03 EVEN-NAME1 PIC S9(18) VALUE +1.
- 03 PLUS-NAME1 PIC S9(18) VALUE +999999999999999999.
- 02 MINUS-NAMES-2.
- 03 MINUS-NAME3 PIC SV9(18) VALUE -.999999999999999999.
- 03 EVEN-NAME2 PIC SV9(18) VALUE +.1.
- 03 PLUS-NAME3 PIC SV9(18) VALUE +.999999999999999999.
- PROCEDURE DIVISION.
- INITIALIZE G1
- MOVE 5 TO X(1), PLUS-NAME1
- MOVE -9 TO Y(2), MINUS-NAME1
- IF G1 NOT = "+5+00+9-"
- DISPLAY 'MOVE G "' G1 '"'
- END-DISPLAY
- END-IF
- MOVE .123 TO PLUS-NAME3
- IF MINUS-NAMES-1 NOT =
- "000000000000000009-000000000000000001+000000000000000005+"
- OR MINUS-NAMES-2 NOT =
- "999999999999999999-100000000000000000+123000000000000000+"
- DISPLAY 'MOVE MN1 "' MINUS-NAMES-1 '"'
- END-DISPLAY
- DISPLAY 'MOVE MN2 "' MINUS-NAMES-2 '"'
- END-DISPLAY
- END-IF
- INITIALIZE G1, MINUS-NAMES
- IF G1 NOT = "+0+00+0+"
- DISPLAY 'INIT G1 "' G1 '"'
- END-DISPLAY
- END-IF
- IF MINUS-NAMES-1 NOT =
- "000000000000000000+000000000000000000+000000000000000000+"
- OR MINUS-NAMES-2 NOT =
- "000000000000000000+000000000000000000+000000000000000000+"
- DISPLAY 'MOVE MN1 "' MINUS-NAMES-1 '"'
- END-DISPLAY
- DISPLAY 'MOVE MN2 "' MINUS-NAMES-2 '"'
- END-DISPLAY
- END-IF
- MOVE .123 TO PLUS-NAME3
- MOVE -.456 TO MINUS-NAME3
- DISPLAY PLUS-NAME3 END-DISPLAY
- DISPLAY MINUS-NAME3 END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:152: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_initialize.at:152"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:152"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:153: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_initialize.at:153"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" ".123000000000000000+
-.456000000000000000-
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:153"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_657
-#AT_START_658
-at_fn_group_banner 658 'run_initialize.at:161' \
- "INITIALIZE complex group (1)" " " 4
-at_xfail=no
-(
- printf "%s\n" "658. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G1.
- 02 X PIC X.
- 02 G2 OCCURS 2.
- 03 Y PIC 9.
- 02 Z PIC 9.
- PROCEDURE DIVISION.
- INITIALIZE G1.
- IF G1 NOT = " 000"
- DISPLAY "Test failed: " G1 "."
- DISPLAY " should be: "
- " 000.".
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:183: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_initialize.at:183"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:183"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:184: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_initialize.at:184"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:184"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_658
-#AT_START_659
-at_fn_group_banner 659 'run_initialize.at:189' \
- "INITIALIZE complex group (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "659. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G1.
- 02 G2 OCCURS 2.
- 03 X PIC 9.
- 03 Y PIC X OCCURS 2.
- 03 Z PIC X.
- PROCEDURE DIVISION.
- INITIALIZE G1.
- IF G1 NOT = "0 0 "
- DISPLAY "Test failed: " G1 "."
- DISPLAY " should be: "
- "0 0 .".
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:211: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_initialize.at:211"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:211"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:212: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_initialize.at:212"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:212"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_659
-#AT_START_660
-at_fn_group_banner 660 'run_initialize.at:217' \
- "initial value for group item with VALUE" " " 4
-at_xfail=no
-(
- printf "%s\n" "660. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# see bug #694
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G.
- 02 G2 OCCURS 3.
- 03 X PIC 9 VALUE ZERO.
- 03 Y.
- 04 Y-REC OCCURS 5.
- 05 Y1 PIC 9 VALUE 9.
- 05 Y2 PIC X VALUE 'Y'.
- 03 Z PIC X VALUE 'Z'.
- PROCEDURE DIVISION.
- IF G NOT = "09Y9Y9Y9Y9YZ09Y9Y9Y9Y9YZ09Y9Y9Y9Y9YZ"
- DISPLAY "Test failed: " G "."
- DISPLAY " should be: "
- "09Y9Y9Y9Y9YZ09Y9Y9Y9Y9YZ09Y9Y9Y9Y9YZ.".
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:243: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_initialize.at:243"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:243"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:244: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_initialize.at:244"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:244"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_660
-#AT_START_661
-at_fn_group_banner 661 'run_initialize.at:249' \
- "Value for group item with VALUE" " " 4
-at_xfail=no
-(
- printf "%s\n" "661. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- *01 FAILED PIC 9(4) COMP-5 VALUE ZERO.
- 01 G.
- 02 G2 OCCURS 3.
- 03 X PIC 9 VALUE ZERO.
- 03 Y.
- 04 Y-REC OCCURS 5.
- 05 Y1 PIC 9 VALUE 9.
- 05 Y2 PIC X VALUE 'Y'.
- 03 Z PIC X VALUE 'Z'.
- PROCEDURE DIVISION.
- IF G NOT = "09Y9Y9Y9Y9YZ09Y9Y9Y9Y9YZ09Y9Y9Y9Y9YZ"
- DISPLAY "Compile failed: " G "."
- DISPLAY " should be: "
- "09Y9Y9Y9Y9YZ09Y9Y9Y9Y9YZ09Y9Y9Y9Y9YZ."
- * ADD 1 TO FAILED
- END-IF.
- INITIALIZE G.
- IF G NOT = "00 0 0 0 0 00 0 0 0 0 00 0 0 0 0 "
- DISPLAY "INITIALIZE failed: " G "."
- DISPLAY " should be: "
- "00 0 0 0 0 00 0 0 0 0 00 0 0 0 0 ."
- * ADD 1 TO FAILED
- END-IF.
- INITIALIZE G ALL TO VALUE.
- IF G NOT = "09Y9Y9Y9Y9YZ09Y9Y9Y9Y9YZ09Y9Y9Y9Y9YZ"
- DISPLAY "INIT VALUE failed: " G "."
- DISPLAY " should be: "
- "09Y9Y9Y9Y9YZ09Y9Y9Y9Y9YZ09Y9Y9Y9Y9YZ."
- * ADD 1 TO FAILED
- END-IF.
- * IF FAILED = ZERO
- * DISPLAY "All INITIALIZE tests passed."
- * END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:292: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_initialize.at:292"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:292"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:293: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_initialize.at:293"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:293"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_661
-#AT_START_662
-at_fn_group_banner 662 'run_initialize.at:298' \
- "INITIALIZE group item" " " 4
-at_xfail=no
-(
- printf "%s\n" "662. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# see bug #694
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G.
- 02 G2 OCCURS 3.
- 03 X PIC 9.
- 03 Y.
- 04 Y-REC OCCURS 5.
- 05 Y1 PIC 9 VALUE 9.
- 05 Y2 PIC X VALUE 'Y'.
- 03 Z PIC X VALUE 'Z'.
- PROCEDURE DIVISION.
- MOVE ALL "A" TO G2(1)
- MOVE ALL "B" TO G2(2)
- MOVE ALL "C" TO G2(3)
- INITIALIZE Y (2).
- IF G NOT = "AAAAAAAAAAAAB0 0 0 0 0 BCCCCCCCCCCCC"
- DISPLAY "Test 1 failed: " G "."
- DISPLAY " should be: "
- "AAAAAAAAAAAAB0 0 0 0 0 BCCCCCCCCCCCC.".
- MOVE ALL "A" TO G2(1)
- MOVE ALL "B" TO G2(2)
- MOVE ALL "C" TO G2(3)
- MOVE 2 TO X(1)
- INITIALIZE Y (X(1)).
- IF G NOT = "2AAAAAAAAAAAB0 0 0 0 0 BCCCCCCCCCCCC"
- DISPLAY "Test 2 failed: " G "."
- DISPLAY " should be: "
- "2AAAAAAAAAAAB0 0 0 0 0 BCCCCCCCCCCCC.".
- STOP RUN.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 NUM PIC 9 COMP-5 VALUE 3.
- 01 G.
- 02 G2 OCCURS 0 TO 3 DEPENDING ON NUM.
- 03 X PIC 9.
- 03 Y.
- 04 Y-REC OCCURS 5.
- 05 Y1 PIC 9 VALUE 9.
- 05 Y2 PIC X VALUE 'Y'.
- 03 Z PIC X VALUE 'Z'.
- PROCEDURE DIVISION.
- MOVE ALL "A" TO G2(1)
- MOVE ALL "B" TO G2(2)
- MOVE ALL "C" TO G2(3)
- INITIALIZE Y (2).
- IF G NOT = "AAAAAAAAAAAAB0 0 0 0 0 BCCCCCCCCCCCC"
- DISPLAY "Test 1 failed: " G "."
- DISPLAY " should be: "
- "AAAAAAAAAAAAB0 0 0 0 0 BCCCCCCCCCCCC.".
- MOVE ALL "A" TO G2(1)
- MOVE ALL "B" TO G2(2)
- MOVE ALL "C" TO G2(3)
- MOVE 2 TO X(1)
- INITIALIZE Y (X(1)).
- IF G NOT = "2AAAAAAAAAAAB0 0 0 0 0 BCCCCCCCCCCCC"
- DISPLAY "Test 2 failed: " G "."
- DISPLAY " should be: "
- "2AAAAAAAAAAAB0 0 0 0 0 BCCCCCCCCCCCC.".
- STOP RUN.
-_ATEOF
-
-
-# FIXME: finish test later, using both ODOSLIDE (ibm)
-# and complex-odo alone (GC)...
-#AT_DATA([prog3.cob], [
-# IDENTIFICATION DIVISION.
-# PROGRAM-ID. prog3.
-# DATA DIVISION.
-# WORKING-STORAGE SECTION.
-# 77 NUM PIC 9 COMP-5 VALUE 3.
-# 77 NUM2 PIC 9 COMP-5 VALUE 5.
-# 01 G.
-# 02 G2 OCCURS 0 TO 3 DEPENDING ON NUM.
-# 03 X PIC 9.
-# 03 Y PIC X VALUE 'Z'.
-# 03 Z OCCURS 1 TO 6 DEPENDING ON NUM2.
-# 05 Z1 PIC 9 VALUE 9.
-# 05 Z2 PIC X.
-# PROCEDURE DIVISION.
-# MOVE ALL "A" TO G2(1)
-# MOVE ALL "B" TO G2(2)
-# MOVE ALL "C" TO G2(3)
-# INITIALIZE Y (2).
-# IF G NOT = "AAAAAAAAAAAAB0 0 0 0 0 BCCCCCCCCCCCC"
-# DISPLAY "Test 1 failed: " G ".".
-# MOVE ALL "A" TO G2(1)
-# MOVE ALL "B" TO G2(2)
-# MOVE ALL "C" TO G2(3)
-# MOVE 2 TO X(1)
-# INITIALIZE Y (X(1)).
-# IF G NOT = "2AAAAAAAAAAAB0 0 0 0 0 BCCCCCCCCCCCC"
-# DISPLAY "Test 2 failed: " G ".".
-# STOP RUN.
-#])
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:405: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_initialize.at:405"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:405"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:406: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_initialize.at:406"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:406"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:407: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_initialize.at:407"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:407"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:408: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "run_initialize.at:408"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:408"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-#AT_CHECK([$COMPILE -std=ibm prog3.cob], [0], [], [])
-#AT_CHECK([$COBCRUN_DIRECT ./prog3], [0], [], [])
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_662
-#AT_START_663
-at_fn_group_banner 663 'run_initialize.at:415' \
- "INITIALIZE with REDEFINES" " " 4
-at_xfail=no
-(
- printf "%s\n" "663. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G1.
- 02 X PIC X.
- 02 Y REDEFINES X PIC 9.
- 02 Z PIC 9.
- PROCEDURE DIVISION.
- INITIALIZE G1.
- IF G1 NOT = " 0"
- DISPLAY G1 NO ADVANCING
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:436: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_initialize.at:436"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:436"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:437: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_initialize.at:437"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:437"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_663
-#AT_START_664
-at_fn_group_banner 664 'run_initialize.at:442' \
- "INITIALIZE with FILLER" " " 4
-at_xfail=no
-(
- printf "%s\n" "664. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G1.
- 02 X PIC 99.
- 02 FILLER PIC X.
- 02 Z PIC 99.
- 01 MY-FILLER.
- 02 FILLER PIC 9(6) VALUE 12345.
- PROCEDURE DIVISION.
- MOVE ALL 'A' TO G1.
- INITIALIZE G1.
- IF G1 NOT = "00A00"
- DISPLAY "G1 (INIT): " G1
- END-DISPLAY
- END-IF.
- MOVE ALL 'A' TO G1.
- INITIALIZE G1 WITH FILLER.
- IF G1 NOT = "00 00"
- DISPLAY "G1 (INIT FILLER):" G1
- END-DISPLAY
- END-IF.
-
- INITIALIZE MY-FILLER
- IF MY-FILLER NOT = "012345"
- DISPLAY "MY-FILLER (INIT): " MY-FILLER
- END-DISPLAY
- END-IF
-
- INITIALIZE MY-FILLER WITH FILLER
- IF MY-FILLER NOT = "000000"
- DISPLAY "MY-FILLER (INIT FILLER): " MY-FILLER
- END-DISPLAY
- END-IF
-
- INITIALIZE MY-FILLER ALL TO VALUE
- IF MY-FILLER NOT = "000000"
- DISPLAY "MY-FILLER (INIT TO VAL): " MY-FILLER
- END-DISPLAY
- END-IF
-
- INITIALIZE MY-FILLER WITH FILLER ALL TO VALUE
- IF MY-FILLER NOT = "012345"
- DISPLAY "MY-FILLER (INIT FILLER TO VAL): " MY-FILLER
- END-DISPLAY
- END-IF
-
- INITIALIZE MY-FILLER (2:3)
- IF MY-FILLER NOT = "0 45"
- DISPLAY "MY-FILLER (REF-MOD): " MY-FILLER
- END-DISPLAY
- END-IF
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:503: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_initialize.at:503"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:503"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:504: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_initialize.at:504"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:504"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_664
-#AT_START_665
-at_fn_group_banner 665 'run_initialize.at:509' \
- "INITIALIZE of EXTERNAL data items" " " 4
-at_xfail=no
-(
- printf "%s\n" "665. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 EXT-VAR-01 PIC X(5) EXTERNAL.
- 01 EXT-VAR-GRP EXTERNAL.
- 02 EXT-FIELD1 PIC 999.
- 02 EXT-FIELD2 PIC x(4).
- 02 EXT-FIELD3 PIC 9(6).
- 02 EXT-FIELD4 PIC s9(5)v99.
- PROCEDURE DIVISION.
- MOVE "MOVE" TO EXT-VAR-01.
- MOVE 1 TO EXT-FIELD1.
- MOVE "X" TO EXT-FIELD2.
- MOVE 123 TO EXT-FIELD3.
- MOVE -2.1 TO EXT-FIELD4.
- INITIALIZE EXT-VAR-01.
- INITIALIZE EXT-VAR-GRP.
- IF EXT-VAR-01 NOT = SPACES
- DISPLAY "EXT-VAR-01 " EXT-VAR-01
- END-DISPLAY
- END-IF.
- IF EXT-FIELD1 NOT = ZERO
- DISPLAY "EXT-FIELD1 " EXT-FIELD1
- END-DISPLAY
- END-IF.
- IF EXT-FIELD2 NOT = SPACES
- DISPLAY "EXT-FIELD2 " EXT-FIELD2
- END-DISPLAY
- END-IF.
- IF EXT-FIELD3 NOT = ZERO
- DISPLAY "EXT-FIELD3 " EXT-FIELD3
- END-DISPLAY
- END-IF.
- IF EXT-FIELD4 NOT = ZERO
- DISPLAY "EXT-FIELD4 " EXT-FIELD4
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:554: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_initialize.at:554"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:554"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:555: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_initialize.at:555"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:555"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_665
-#AT_START_666
-at_fn_group_banner 666 'run_initialize.at:560' \
- "INITIALIZE with reference-modification" " " 4
-at_xfail=no
-(
- printf "%s\n" "666. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 MY-FLD PIC X(6) VALUE "ABCDEF".
- 01 MY-OTHER-FLD PIC 9(4) VALUE ZERO.
- PROCEDURE DIVISION.
- ASTART SECTION.
- A01.
- INITIALIZE MY-FLD (1:2).
- IF MY-FLD NOT = " CDEF"
- DISPLAY "MY-FLD: " MY-FLD
- END-DISPLAY
- END-IF
-
- *> note: INITIALIZE with refmod => handle field as alphanumeric
- INITIALIZE MY-OTHER-FLD (2:2)
- MOVE "0 0" TO MY-FLD
- IF MY-OTHER-FLD NOT = MY-FLD (1:4)
- DISPLAY "MY-OTHER-FLD: " MY-OTHER-FLD
- END-DISPLAY
- END-IF
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:590: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_initialize.at:590"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:590"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:591: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_initialize.at:591"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:591"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_666
-#AT_START_667
-at_fn_group_banner 667 'run_initialize.at:596' \
- "INITIALIZE big table with VALUE" " " 4
-at_xfail=no
-(
- printf "%s\n" "667. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# some versions stumbled over tables like these and initialized
-# every field on its own - which generates ultiple MB C source
-# also most versions took the VALUE definitions "extra", even
-# when they match -fno-defaultbyte
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 T01-ALL.
- 05 T01-REC OCCURS 10.
- 10 T01-SOMEBER PIC X(500) VALUE SPACES.
- 10 T01-ENTRY.
- 15 T01-TAB OCCURS 2200.
- 20 T01-NAME PIC X(020).
- 20 T01-DETREC.
- 25 T01-DETTAB OCCURS 47.
- 30 T01-SHL PIC X(001) value 'A'.
- 30 T01-LEN USAGE BINARY-INT VALUE 0.
- 30 T01-CODE1 PIC S999 COMP-5.
- 30 T01-CODE2 PIC S999 COMP-5 VALUE 0.
- 30 T01-CODE3 PIC S999 COMP-5 VALUE 42.
- 30 T01-PREF PIC X(001).
- 30 T01-TXT1 PIC X(020) VALUE ALL ' '.
- 30 T01-TXT2 PIC X(020).
- 30 T01-TXT3 PIC X(020) VALUE ALL '3'.
- 25 T02-DETTAB OCCURS 33.
- 30 T02-LEN USAGE BINARY-INT SIGNED.
- 30 T02-CODE1 PIC S999 COMP-5.
- 30 T02-CODE2 PIC S999 COMP-5 VALUE 0.
- 30 T02-SHL PIC X(001) value 'B'.
- 30 T02-PREF PIC X(001).
- 30 T02-TXT1 PIC X(030) VALUE SPACES.
- 30 T02-TXT2 PIC X(030) VALUE ALL SPACE.
- 30 T02-TXT3 PIC X(030) VALUE ALL ZERO.
- PROCEDURE DIVISION.
- INIT-RTN.
- MOVE ALL HIGH-VALUE TO T01-TAB (5,55)
- MOVE ALL LOW-VALUE TO T01-TAB (10,400)
- MOVE SPACES TO T01-REC (2) T01-REC (4)
- INITIALIZE T01-REC (2) TO DEFAULT
- INITIALIZE T01-REC (4) WITH FILLER ALL TO VALUE
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:647: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_initialize.at:647"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:647"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:648: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_initialize.at:648"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:648"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:649: \$COMPILE -O2 prog.cob -o progo"
-at_fn_check_prepare_dynamic "$COMPILE -O2 prog.cob -o progo" "run_initialize.at:649"
-( $at_check_trace; $COMPILE -O2 prog.cob -o progo
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:649"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:650: \$COBCRUN_DIRECT ./progo"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./progo" "run_initialize.at:650"
-( $at_check_trace; $COBCRUN_DIRECT ./progo
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:650"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_667
-#AT_START_668
-at_fn_group_banner 668 'run_initialize.at:655' \
- "INITIALIZE to table-format VALUES ARE" " " 4
-at_xfail=no
-(
- printf "%s\n" "668. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
-
- 01 GRP-3.
- 05 FILLER PIC X(3).
- 05 FLD-3 OCCURS 3 TIMES.
- 15 FLD-3-2 PIC XXX VALUES "ABC".
- 15 FLD-3-3 PIC 99 VALUES ZERO.
- 15 OCCURS 4 VALUE ALL "D99".
- 25 FLD-3O-1 PIC X.
- 25 FLD-3O-2 PIC 99.
- 15 FLD-3-4 PIC XX VALUE ALL "X".
- 05 FILLER PIC X(3).
- 05 FILLER PIC X(3) VALUES "End". *> needs relaxed
-
- 77 C5 PIC 9(03) VALUE 6.
- 01 GRP-5.
- 05 FILLER PIC X(3).
- 05 FLD-5.
- 10 FLD-5-1 OCCURS 0 TO 9 TIMES
- DEPENDING ON C5.
- 15 FLD-5-2 PIC XXX VALUES "Mon".
- 15 FLD-5-3 PIC 99 VALUES 49.
- 15 FLD-5-4 PIC XX VALUES "ey".
- 05 FILLER PIC X(3).
-
- 01 WS.
- 05 IX1 PIC 99.
- 05 IX2 PIC 99.
- 05 IX3 PIC 99.
- 05 GRP1 OCCURS 3 TIMES.
- 10 GRPX PIC X(99).
- 05 MONTH-IN-YEAR OCCURS 13 TIMES PICTURE X(3)
- VALUES "jan" "feb" "mar" "apr"
- "may" "jun" "jul" "aug"
- "sep" "oct" "nov" "dec".
- 05 DAYS-IN-MONTH OCCURS 13 TIMES PICTURE 9(2) BINARY
- VALUES 31 28 31 30 31 30 31 31 30 31 30 31.
- 05 DAYS-MONTHS OCCURS 2 TIMES.
- 06 DAYX-MONTHX OCCURS 4 TIMES.
- 07 DAY-MONTH OCCURS 3 TIMES.
- 10 XXX1 PICTURE X VALUE " ".
- 10 MONTHS PICTURE X(3)
- VALUES "Jan" "Feb" "Mar" "Apr"
- "May" "Jun" "Jul" "Aug"
- "Sep" "Oct" "Nov" "Dec"
- "JAN" "FEB" "MAR" "APR"
- "MAY" "JUN" "JUL" "AUG"
- "SEP" "OCT" "NOV" "DEC".
- 10 SEPX PICTURE XX VALUE ", ".
- 10 DAYS PICTURE 99
- VALUES 31 28 31 30 31 30 31 31 30 31 30 31
- 91 28 91 90 91 90 91 91 90 91 90 91.
- 10 PER PICTURE X VALUE ".".
- 07 FLR PICTURE X(4) VALUES " <A>" " <B>" " <C>" " <D>"
- " <E>" " <F>" " <G>" " <*>".
-
- PROCEDURE DIVISION.
-
- INIT-RTN.
- DISPLAY "Simple OCCURS with multi VALUES".
- PERFORM VARYING IX1 FROM 1 BY 1 UNTIL IX1 > 13
- DISPLAY IX1 ": "
- MONTH-IN-YEAR (IX1) " has "
- DAYS-IN-MONTH (IX1) " days"
- END-DISPLAY
- END-PERFORM.
- DISPLAY "Complex OCCURS with multi VALUES".
- PERFORM VARYING IX3 FROM 1 BY 1 UNTIL IX3 > 2
- PERFORM VARYING IX2 FROM 1 BY 1 UNTIL IX2 > 4
- DISPLAY IX3 "-" IX2 ": "
- DAYX-MONTHX (IX3, IX2)
- END-DISPLAY
- END-PERFORM
- END-PERFORM.
- DISPLAY "Group VALUE test".
- DISPLAY GRP-3 ".".
- INITIALIZE GRP-3 NUMERIC TO VALUE
- DISPLAY GRP-3 ".".
- INITIALIZE FLD-3 (1) ALL TO VALUE
- INITIALIZE FLD-3 (2) ALL TO VALUE
- INITIALIZE FLD-3 (3) ALL TO VALUE
- INITIALIZE FLD-3O-1 (3,2), FLD-3O-2 (3,2)
- DISPLAY GRP-3 ".".
- DISPLAY "Initialize VALUE OCCURS DEPENDING test".
- MOVE 6 TO C5.
- MOVE ALL "*" TO grp-5.
- INITIALIZE FLD-5 ALL TO VALUE.
- DISPLAY "GRP-5 with 6:" grp-5 ".".
- MOVE 4 TO C5.
- MOVE ALL "*" TO grp-5.
- INITIALIZE FLD-5 ALL TO VALUE.
- DISPLAY "GRP-5 with 4:" grp-5 ".".
-
- *
- * The following gets very complicated because of multiple
- * VALUES in the sub-fields, still works :-)
- *
- MOVE 1 TO IX3 MOVE 2 TO IX2.
- DISPLAY IX3 "-" IX2 ": " DAYX-MONTHX (IX3, IX2) ".".
- MOVE ALL "*" TO DAYX-MONTHX (IX3, IX2).
- DISPLAY IX3 "-" IX2 ": " DAYX-MONTHX (IX3, IX2) ".".
- INITIALIZE DAYX-MONTHX (IX3, IX2).
- DISPLAY IX3 "-" IX2 ": " DAYX-MONTHX (IX3, IX2) ".".
- DISPLAY "Initialize VALUE inside OCCURS test".
- INITIALIZE DAYX-MONTHX (IX3, IX2) ALL TO VALUE.
- DISPLAY IX3 "-" IX2 ": " DAYX-MONTHX (IX3, IX2) ".".
- STOP RUN.
-_ATEOF
-
-
-# Note to compile options:
-# -fbinary-truncate --> error
-# -fcomplex-odo because of fields after ODO
-# -frelax-syntax-checks -w to compile "VAR VALUES lit" (must be VALUE according to all COBOL standards)
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:777: \$COMPILE -fno-binary-truncate -fcomplex-odo -frelax-syntax-checks -w prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fno-binary-truncate -fcomplex-odo -frelax-syntax-checks -w prog.cob" "run_initialize.at:777"
-( $at_check_trace; $COMPILE -fno-binary-truncate -fcomplex-odo -frelax-syntax-checks -w prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:777"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_initialize.at:779: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_initialize.at:779"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Simple OCCURS with multi VALUES
-01: jan has 31 days
-02: feb has 28 days
-03: mar has 31 days
-04: apr has 30 days
-05: may has 31 days
-06: jun has 30 days
-07: jul has 31 days
-08: aug has 31 days
-09: sep has 30 days
-10: oct has 31 days
-11: nov has 30 days
-12: dec has 31 days
-13: has 00 days
-Complex OCCURS with multi VALUES
-01-01: Jan, 31. Feb, 28. Mar, 31. <A>
-01-02: Apr, 30. May, 31. Jun, 30. <B>
-01-03: Jul, 31. Aug, 31. Sep, 30. <C>
-01-04: Oct, 31. Nov, 30. Dec, 31. <D>
-02-01: JAN, 91. FEB, 28. MAR, 91. <E>
-02-02: APR, 90. MAY, 91. JUN, 90. <F>
-02-03: JUL, 91. AUG, 91. SEP, 90. <G>
-02-04: OCT, 91. NOV, 90. DEC, 91. <*>
-Group VALUE test
- ABC00D99D99D99D99XXABC00D99D99D99D99XXABC00D99D99D99D99XX End.
- ABC00D99D99D99D99XXABC00D99D99D99D99XXABC00D99D99D99D99XX End.
- ABC00D99D99D99D99XXABC00D99D99D99D99XXABC00D99 00D99D99XX End.
-Initialize VALUE OCCURS DEPENDING test
-GRP-5 with 6:***Mon49eyMon49eyMon49eyMon49eyMon49eyMon49ey***.
-GRP-5 with 4:***Mon49eyMon49eyMon49eyMon49ey***.
-01-02: Apr, 30. May, 31. Jun, 30. <B>.
-01-02: *******************************.
-01-02: 00 00 00 .
-Initialize VALUE inside OCCURS test
-01-02: Apr, 30. May, 31. Jun, 30. <B>.
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:779"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_668
-#AT_START_669
-at_fn_group_banner 669 'run_misc.at:23' \
- "Comma separator without space" " " 4
-at_xfail=no
-(
- printf "%s\n" "669. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- DISPLAY 1,1,1 NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:35: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:35"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:35"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:36: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:36"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "111" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:36"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_669
-#AT_START_670
-at_fn_group_banner 670 'run_misc.at:44' \
- "DECIMAL-POINT is COMMA (1)" " " 4
-at_xfail=no
-(
- printf "%s\n" "670. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- DECIMAL-POINT IS COMMA.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC 99V99.
- PROCEDURE DIVISION.
- MOVE FUNCTION MIN (3,,,,,,5) TO X.
- DISPLAY X
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:64: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:64"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:64"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:65: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:65"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "00,50
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:65"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_670
-#AT_START_671
-at_fn_group_banner 671 'run_misc.at:72' \
- "DECIMAL-POINT is COMMA (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "671. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- DECIMAL-POINT IS COMMA.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC 99V99.
- PROCEDURE DIVISION.
- MOVE FUNCTION MIN (3,,,,,, 5) TO X.
- DISPLAY X
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:92: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:92"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:92"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:93: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:93"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "03,00
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:93"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_671
-#AT_START_672
-at_fn_group_banner 672 'run_misc.at:100' \
- "DECIMAL-POINT is COMMA (3)" " " 4
-at_xfail=no
-(
- printf "%s\n" "672. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- DECIMAL-POINT IS COMMA.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC 99V99.
- PROCEDURE DIVISION.
- MOVE FUNCTION MIN (3,,,,,, 1,5) TO X.
- DISPLAY X
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:120: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:120"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:120"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:121: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:121"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "01,50
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:121"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_672
-#AT_START_673
-at_fn_group_banner 673 'run_misc.at:128' \
- "DECIMAL-POINT is COMMA (4)" " " 4
-at_xfail=no
-(
- printf "%s\n" "673. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- DECIMAL-POINT IS COMMA.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC 99V99.
- PROCEDURE DIVISION.
- MOVE FUNCTION MIN (3,,,,,,1,5) TO X.
- DISPLAY X
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:148: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:148"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:148"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:149: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:149"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "00,10
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:149"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_673
-#AT_START_674
-at_fn_group_banner 674 'run_misc.at:156' \
- "DECIMAL-POINT is COMMA (5)" " " 4
-at_xfail=no
-(
- printf "%s\n" "674. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- DECIMAL-POINT IS COMMA.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC 99V99.
- PROCEDURE DIVISION.
- COMPUTE X=1 + ,1
- END-COMPUTE
- DISPLAY X
- END-DISPLAY.
- COMPUTE X=1*,1
- END-COMPUTE
- DISPLAY X
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:181: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:181"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:181"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:182: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:182"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "01,10
-00,10
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:182"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_674
-#AT_START_675
-at_fn_group_banner 675 'run_misc.at:190' \
- "CURRENCY SIGN" " " 4
-at_xfail=no
-(
- printf "%s\n" "675. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- CURRENCY SIGN IS "Y".
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 amount pic Y(6)9.99.
-
- PROCEDURE DIVISION.
- Move 1512.34 to Amount
- Display "Amount is #" Amount '#' with no advancing.
-
- GOBACK
- .
- END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:214: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:214"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:214"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:215: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:215"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Amount is # Y1512.34#" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:215"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_675
-#AT_START_676
-at_fn_group_banner 676 'run_misc.at:221' \
- "CURRENCY SIGN WITH PICTURE SYMBOL" " " 4
-at_xfail=yes
-(
- printf "%s\n" "676. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# FIXME - see FR #246
-
-
-cat >prog.cob <<'_ATEOF'
-
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- *> note the space after EUR / before ct.
- CURRENCY SIGN IS "EUR " WITH PICTURE SYMBOL "U",
- CURRENCY SIGN IS " ct (EUR)" WITH PICTURE SYMBOL "c",
- Currency Sign is "$US" with Picture Symbol "$".
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 EUROS PIC U99v99.
- 77 cents PIC c9,999.
- 77 DOLLARS Pic $$,$$9.99.
-
- PROCEDURE DIVISION.
- MOVE 12.34 TO EUROS
- MULTIPLY euros BY 1000 GIVING cents.
- DISPLAY "#" EUROS "# equal #" cents '#'.
- Move 1500 to Invoice-Amount
- Display "Invoice amount #1 is " Invoice-Amount '.'.
- Move 12.34 to Invoice-Amount
- Display "Invoice amount #2 is " Invoice-Amount '.'.
-
- GOBACK
- .
- END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:258: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:258"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:258"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:259: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:259"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "#EUR 12.34# equal #1,234 ct (EUR)#
-Invoice amount #1 is \$US1,500.00.
-Invoice amount #2 is \$US12.34.
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:259"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_676
-#AT_START_677
-at_fn_group_banner 677 'run_misc.at:268' \
- "LOCAL-STORAGE (1)" " " 4
-at_xfail=no
-(
- printf "%s\n" "677. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 WRK-X PIC XXX VALUE "abc".
- LOCAL-STORAGE SECTION.
- 01 LCL-X PIC XXX VALUE "abc".
- PROCEDURE DIVISION.
- DISPLAY WRK-X LCL-X NO ADVANCING
- END-DISPLAY.
- MOVE ZERO TO WRK-X LCL-X.
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- PROCEDURE DIVISION.
- CALL "callee"
- END-CALL.
- CALL "callee"
- END-CALL.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:297: \$COMPILE_MODULE callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee.cob" "run_misc.at:297"
-( $at_check_trace; $COMPILE_MODULE callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:297"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:298: \$COMPILE -o prog caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE -o prog caller.cob" "run_misc.at:298"
-( $at_check_trace; $COMPILE -o prog caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:298"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:299: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:299"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "abcabc000abc" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:299"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_677
-#AT_START_678
-at_fn_group_banner 678 'run_misc.at:304' \
- "LOCAL-STORAGE (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "678. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >callee2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee2.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 LNK-X PIC XXX.
- PROCEDURE DIVISION USING LNK-X.
- DISPLAY LNK-X NO ADVANCING.
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- DATA DIVISION.
- LOCAL-STORAGE SECTION.
- 01 LCL-X.
- 05 FILLER PIC XXX VALUE "abc".
- PROCEDURE DIVISION.
- CALL "callee2" USING LCL-X.
- MOVE ZERO TO LCL-X.
- CALL "callee2" USING LCL-X.
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- PROCEDURE DIVISION.
- CALL "callee".
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:340: \$COMPILE_MODULE callee2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee2.cob" "run_misc.at:340"
-( $at_check_trace; $COMPILE_MODULE callee2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:340"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:341: \$COMPILE_MODULE callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee.cob" "run_misc.at:341"
-( $at_check_trace; $COMPILE_MODULE callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:341"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:342: \$COMPILE -o prog caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE -o prog caller.cob" "run_misc.at:342"
-( $at_check_trace; $COMPILE -o prog caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:342"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:343: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:343"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "abc000" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:343"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_678
-#AT_START_679
-at_fn_group_banner 679 'run_misc.at:348' \
- "LOCAL-STORAGE (3)" " " 4
-at_xfail=no
-(
- printf "%s\n" "679. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# Note: this tests undefined behaviour, because the initial value
-# of index-names are undefined per standard; where they are
-# explicit defined to be "... treated as a static item [for WS]
-# and as an automatic item [for LS]"; see bug #794
-# for GnuCOBOL that is defined depending on dialect options
-# init-indexed-by and defaultbyte
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 DISP-VALS.
- 05 DISP-VAL PIC 9 VALUE 0.
- 05 DISP-IDX PIC 9 VALUE 0.
- 01 WRK-X.
- 05 WRK-VAR PIC 9 VALUE 0 OCCURS 1 INDEXED BY WRK-IDX.
- LOCAL-STORAGE SECTION.
- 01 LCL-X.
- 05 LCL-VAR PIC 9 VALUE 0 OCCURS 1 INDEXED BY LCL-IDX.
- PROCEDURE DIVISION.
- DISPLAY SPACE WITH NO ADVANCING UPON SYSOUT.
- ADD 1 TO WRK-VAR(1) LCL-VAR(1)
- SET WRK-IDX, LCL-IDX UP BY 1
- SET DISP-IDX TO WRK-IDX.
- MOVE WRK-VAR(1) TO DISP-VAL.
- DISPLAY DISP-VALS WITH NO ADVANCING UPON SYSOUT.
- SET DISP-IDX TO LCL-IDX.
- MOVE LCL-VAR(1) TO DISP-VAL.
- DISPLAY DISP-VALS WITH NO ADVANCING UPON SYSOUT.
- GOBACK.
-_ATEOF
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- PROCEDURE DIVISION.
- CALL "callee".
- CALL "callee".
- CALL "callee".
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:394: \$COMPILE_MODULE callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee.cob" "run_misc.at:394"
-( $at_check_trace; $COMPILE_MODULE callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:394"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:395: \$COMPILE -o prog caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE -o prog caller.cob" "run_misc.at:395"
-( $at_check_trace; $COMPILE -o prog caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:395"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:396: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:396"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " 1212 2312 3412" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:396"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:397: \$COMPILE_MODULE -fdefaultbyte=0 callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE -fdefaultbyte=0 callee.cob" "run_misc.at:397"
-( $at_check_trace; $COMPILE_MODULE -fdefaultbyte=0 callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:397"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:398: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:398"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " 1111 2211 3311" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:398"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# note: this is the tested MF result (INDEXED BY are USAGE COMP 9(08), 0-based !):
-#AT_CHECK([$COMPILE_MODULE -std=mf-strict callee.cob], [0], [], [])
-#AT_CHECK([$COBCRUN_DIRECT ./prog], [0], [ 1018 2117 3216], [])
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 DISP-VALS.
- 05 DISP-VAL PIC 9 VALUE 0.
- 05 DISP-IDX PIC 9 VALUE 0.
- 01 WRK-X.
- 05 WRK-VAR PIC 9 VALUE 0 OCCURS 1 INDEXED BY WRK-IDX.
- PROCEDURE DIVISION.
- DISPLAY SPACE WITH NO ADVANCING UPON SYSOUT.
- ADD 1 TO WRK-VAR(1)
- SET WRK-IDX UP BY 1
- SET DISP-IDX TO WRK-IDX.
- MOVE WRK-VAR(1) TO DISP-VAL.
- DISPLAY DISP-VALS WITH NO ADVANCING UPON SYSOUT.
- GOBACK.
-_ATEOF
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:425: \$COMPILE_MODULE -std=acu-strict callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE -std=acu-strict callee.cob" "run_misc.at:425"
-( $at_check_trace; $COMPILE_MODULE -std=acu-strict callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:425"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:426: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:426"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " 19 20 31" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:426"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# note: tested result with 2 byte: AT_CHECK([$COBCRUN_DIRECT ./prog], [0], [ 15 26 37], [])
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_679
-#AT_START_680
-at_fn_group_banner 680 'run_misc.at:432' \
- "EXTERNAL data item" " " 4
-at_xfail=no
-(
- printf "%s\n" "680. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 EXT-VAR PIC X(5) EXTERNAL.
- PROCEDURE DIVISION.
- IF EXT-VAR NOT = "Hello"
- DISPLAY EXT-VAR.
- MOVE "World" TO EXT-VAR.
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 EXT-VAR PIC X(5) EXTERNAL.
- PROCEDURE DIVISION.
- MOVE "Hello" TO EXT-VAR.
- CALL "callee"
- END-CALL.
- IF EXT-VAR NOT = "World"
- DISPLAY EXT-VAR.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:463: \$COMPILE_MODULE callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee.cob" "run_misc.at:463"
-( $at_check_trace; $COMPILE_MODULE callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:463"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:464: \$COMPILE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE caller.cob" "run_misc.at:464"
-( $at_check_trace; $COMPILE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:464"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:465: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_misc.at:465"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:465"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_680
-#AT_START_681
-at_fn_group_banner 681 'run_misc.at:470' \
- "EXTERNAL AS data item" " " 4
-at_xfail=no
-(
- printf "%s\n" "681. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 PRG-VAR PIC X(5) EXTERNAL AS "WRK-VAR".
- 01 EXT-VAR PIC X(5) EXTERNAL.
- PROCEDURE DIVISION.
- IF PRG-VAR NOT = "Extrn"
- DISPLAY PRG-VAR.
- IF EXT-VAR NOT = "Hello"
- DISPLAY EXT-VAR.
- MOVE "World" TO EXT-VAR.
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 MYVAR PIC X(5) EXTERNAL AS "EXT-VAR".
- 01 WRK-VAR PIC X(5) EXTERNAL.
- PROCEDURE DIVISION.
- MOVE "Extrn" TO WRK-VAR.
- MOVE "Hello" TO MYVAR.
- CALL "callee"
- END-CALL.
- IF MYVAR NOT = "World"
- DISPLAY MYVAR.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:506: \$COMPILE_MODULE callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee.cob" "run_misc.at:506"
-( $at_check_trace; $COMPILE_MODULE callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:506"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:507: \$COMPILE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE caller.cob" "run_misc.at:507"
-( $at_check_trace; $COMPILE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:507"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:508: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_misc.at:508"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:508"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_681
-#AT_START_682
-at_fn_group_banner 682 'run_misc.at:513' \
- "EXTERNAL data item size mismatch" " " 4
-at_xfail=yes
-(
- printf "%s\n" "682. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 PRG-VAR PIC X(8) EXTERNAL AS "WRK-VAR".
- 01 COB-VAR PIC X(8) EXTERNAL.
- 01 EXT-VAR PIC X(8) EXTERNAL.
- PROCEDURE DIVISION.
- IF PRG-VAR NOT = "Extrn"
- DISPLAY 'local named external is not correct: ' PRG-VAR.
- IF COB-VAR NOT = "Hello"
- DISPLAY 'remote named external is not correct: ' COB-VAR.
- MOVE "World" TO EXT-VAR.
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >bigger.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. error.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 WRK-VAR PIC X(10) EXTERNAL.
- 01 MYVAR PIC X(10) EXTERNAL AS "COB-VAR".
- 01 EXT-VAR PIC X(10) EXTERNAL.
- PROCEDURE DIVISION.
- MOVE "Extrn" TO WRK-VAR
- MOVE "Hello" TO MYVAR
- MOVE SPACES TO EXT-VAR
- CALL "callee"
- IF EXT-VAR NOT = "World"
- DISPLAY 'simple external back not correct: ' EXT-VAR.
- STOP RUN.
-_ATEOF
-
-
-cat >smaller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. error.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 WRK-VAR PIC X(5) EXTERNAL.
- 01 MYVAR PIC X(5) EXTERNAL AS "COB-VAR".
- 01 EXT-VAR PIC X(5) EXTERNAL.
- PROCEDURE DIVISION.
- MOVE "Extrn" TO WRK-VAR
- MOVE "Hello" TO MYVAR
- MOVE SPACES TO EXT-VAR
- CALL "callee"
- IF EXT-VAR NOT = "World"
- DISPLAY 'simple external back not correct: ' EXT-VAR.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:569: \$COMPILE_MODULE callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee.cob" "run_misc.at:569"
-( $at_check_trace; $COMPILE_MODULE callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:569"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:570: \$COMPILE bigger.cob"
-at_fn_check_prepare_dynamic "$COMPILE bigger.cob" "run_misc.at:570"
-( $at_check_trace; $COMPILE bigger.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:570"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:571: \$COBCRUN_DIRECT ./bigger"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./bigger" "run_misc.at:571"
-( $at_check_trace; $COBCRUN_DIRECT ./bigger
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:571"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:573: \$COMPILE smaller.cob"
-at_fn_check_prepare_dynamic "$COMPILE smaller.cob" "run_misc.at:573"
-( $at_check_trace; $COMPILE smaller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:573"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:574: \$COBCRUN_DIRECT ./smaller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./smaller" "run_misc.at:574"
-( $at_check_trace; $COBCRUN_DIRECT ./smaller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:574"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# FIXME - messages should be adjusted, see Bug #445
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:579: \$COBCRUN_DIRECT ./bigger"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./bigger" "run_misc.at:579"
-( $at_check_trace; $COBCRUN_DIRECT ./bigger
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: callee.cob:6: warning: EXTERNAL item 'WRK-VAR' previously allocated with size 10, requested size is 8
-libcob: callee.cob:7: warning: EXTERNAL item 'EXT-VAR' previously allocated with size 10, requested size is 8
-libcob: callee.cob:8: warning: EXTERNAL item 'EXT-VAR' previously allocated with size 10, requested size is 8
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:579"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:585: \$COBCRUN_DIRECT ./smaller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./smaller" "run_misc.at:585"
-( $at_check_trace; $COBCRUN_DIRECT ./smaller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: callee.cob:6: error: EXTERNAL item 'WRK-VAR' previously allocated with size 5, requested size is 8
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:585"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_682
-#AT_START_683
-at_fn_group_banner 683 'run_misc.at:594' \
- "MOVE to itself" " " 4
-at_xfail=no
-(
- printf "%s\n" "683. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC 99 VALUE 12.
- PROCEDURE DIVISION.
- MOVE X TO X.
- IF X NOT = 12
- DISPLAY X.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:610: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:610"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: warning: overlapping MOVE may produce unpredictable results
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:610"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:613: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:613"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:613"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_683
-#AT_START_684
-at_fn_group_banner 684 'run_misc.at:618' \
- "MOVE with refmod" " " 4
-at_xfail=no
-(
- printf "%s\n" "684. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC 9(4) VALUE 0.
- PROCEDURE DIVISION.
- MOVE "1" TO X(1:1).
- IF X NOT = 1000
- DISPLAY X.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:634: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:634"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:634"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:635: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:635"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:635"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_684
-#AT_START_685
-at_fn_group_banner 685 'run_misc.at:640' \
- "MOVE with refmod (variable)" " " 4
-at_xfail=no
-(
- printf "%s\n" "685. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4) VALUE "1234".
- 01 Y PIC X(4) VALUE "abcd".
- 01 I PIC 9 VALUE 1.
- PROCEDURE DIVISION.
- MOVE X(1:I) TO Y.
- IF Y NOT = "1 "
- DISPLAY Y.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:658: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:658"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:658"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:659: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:659"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:659"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_685
-#AT_START_686
-at_fn_group_banner 686 'run_misc.at:664' \
- "MOVE with group refmod" " " 4
-at_xfail=no
-(
- printf "%s\n" "686. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G.
- 02 X PIC 9999 VALUE 1234.
- PROCEDURE DIVISION.
- MOVE "99" TO G(3:2).
- IF G NOT = "1299"
- DISPLAY G.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:681: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:681"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:681"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:682: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:682"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:682"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_686
-#AT_START_687
-at_fn_group_banner 687 'run_misc.at:687' \
- "MOVE indexes" " " 4
-at_xfail=no
-(
- printf "%s\n" "687. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G.
- 02 X PIC X OCCURS 10 INDEXED I.
- PROCEDURE DIVISION.
- SET I TO ZERO.
- MOVE I TO X(1).
- IF X(1) NOT = "0"
- DISPLAY X(1).
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:705: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:705"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:705"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:706: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:706"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:706"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_687
-#AT_START_688
-at_fn_group_banner 688 'run_misc.at:711' \
- "MOVE X'00'" " " 4
-at_xfail=no
-(
- printf "%s\n" "688. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >dump.c <<'_ATEOF'
-
-#include <stdio.h>
-#include <libcob.h>
-
-COB_EXT_EXPORT int
-dump (unsigned char *data)
-{
- printf ("%02x%02x%02x", data[0], data[1], data[2]);
- return 0;
-}
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC XXX.
- PROCEDURE DIVISION.
- MOVE X"000102" TO X.
- CALL "dump" USING X
- END-CALL.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:739: \$COMPILE_MODULE dump.c"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE dump.c" "run_misc.at:739"
-( $at_check_trace; $COMPILE_MODULE dump.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:739"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:740: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:740"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:740"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:741: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:741"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "000102" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:741"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_688
-#AT_START_689
-at_fn_group_banner 689 'run_misc.at:746' \
- "MOVE Z'literal'" " " 4
-at_xfail=no
-(
- printf "%s\n" "689. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC XXXX.
- 01 XRED REDEFINES X.
- 03 XBYTE1 PIC X.
- 03 XBYTE2 PIC X.
- 03 XBYTE3 PIC X.
- 03 XBYTE4 PIC X.
- PROCEDURE DIVISION.
- MOVE Z"012" TO X.
- IF XBYTE1 = "0" AND
- XBYTE2 = "1" AND
- XBYTE3 = "2" AND
- XBYTE4 = LOW-VALUE
- DISPLAY "OK" NO ADVANCING
- END-DISPLAY
- ELSE
- DISPLAY "X = " X (1:3) NO ADVANCING
- END-DISPLAY
- IF XBYTE4 = LOW-VALUE
- DISPLAY " WITH LOW-VALUE"
- END-DISPLAY
- ELSE
- DISPLAY " WITHOUT LOW-VALUE BUT '" XBYTE4 "'"
- END-DISPLAY
- END-IF
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:782: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:782"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:782"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:783: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:783"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:783"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_689
-#AT_START_690
-at_fn_group_banner 690 'run_misc.at:788' \
- "Floating continuation indicator" " " 4
-at_xfail=no
-(
- printf "%s\n" "690. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY "OK"-
- "OK"
- NO ADVANCING
- END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:804: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:804"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:804"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:805: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:805"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OKOK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:805"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_690
-#AT_START_691
-at_fn_group_banner 691 'run_misc.at:810' \
- "Fixed continuation indicator" " " 4
-at_xfail=no
-(
- printf "%s\n" "691. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(333) VALUE
- '0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWX
- - 'YZ0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUV
- - 'WXYZ0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRST
- - 'UVWXYZ0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQR
- - 'STUVWXYZ0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOP
- - 'QRSTUVWXYZ'.
- PROCEDURE DIVISION.
- DISPLAY X NO ADVANCING
- END-DISPLAY.
- DISPLAY '_'
- END-DISPLAY.
- MOVE
- "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ01234567
- - "89abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ012345
- - "6789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123
- - "456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ01
- - "23456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXY
- - "Z
- - "0123456789" TO X.
- DISPLAY X NO ADVANCING
- END-DISPLAY.
- DISPLAY '_'
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:844: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:844"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:844"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:845: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:845"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ _
-abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 _
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:845"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_691
-#AT_START_692
-at_fn_group_banner 692 'run_misc.at:852' \
- "Concatenation operator" " " 4
-at_xfail=no
-(
- printf "%s\n" "692. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 STR PIC X(05).
- PROCEDURE DIVISION.
- MOVE "OK" & " "
- & "OK"
- TO STR
- DISPLAY STR NO ADVANCING
- END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:870: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:870"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:870"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:871: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:871"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:871"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_692
-#AT_START_693
-at_fn_group_banner 693 'run_misc.at:876' \
- "SOURCE FIXED/FREE directives" " " 4
-at_xfail=no
-(
- printf "%s\n" "693. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- >>SOURCE FREE
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- >>SOURCE FIXED
- PROCEDURE DIVISION. FIXED
- DISPLAY "OK" NO ADVANCING
- END-DISPLAY.
- >>SOURCE FREE
- DISPLAY
- "OK"
- NO ADVANCING
- END-DISPLAY.
- >>SET SOURCEFORMAT "FIXED"
- DISPLAY "OK" NO ADVANCING FIXED
- END-DISPLAY.
- >>SET SOURCEFORMAT "FREE"
- DISPLAY
- "OK"
- NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:905: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:905"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:905"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:906: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:906"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OKOKOKOK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:906"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_693
-#AT_START_694
-at_fn_group_banner 694 'run_misc.at:912' \
- "TURN directive" " " 4
-at_xfail=no
-(
- printf "%s\n" "694. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# note: we only check here that the TURN directive applies
-# for more general tests, including command line options
-# and extension directives, see run_subscript.at, run_refmod.at
-
-cat >prog.cob <<'_ATEOF'
-
- >>TURN EC-BOUND-SUBSCRIPT CHECKING ON
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x VALUE "12345!".
- 03 y PIC X OCCURS 5 TIMES.
- 03 z PIC X.
- 01 idx PIC 99 VALUE 6.
-
- PROCEDURE DIVISION.
- >>TURN EC-BOUND-SUBSCRIPT CHECKING OFF
- DISPLAY y (idx) WITH NO ADVANCING
- >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION
- >>TURN EC-BOUND, EC-PROGRAM CHECKING OFF
- DISPLAY y (idx) WITH NO ADVANCING
- >>TURN EC-BOUND-SUBSCRIPT CHECKING ON
- DISPLAY y (idx) WITH NO ADVANCING
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:942: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:942"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:942"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:943: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:943"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:20: error: subscript of 'y' out of bounds: 6
-note: maximum subscript for 'y': 5
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "!!" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:943"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_694
-#AT_START_695
-at_fn_group_banner 695 'run_misc.at:953' \
- "OCCURS on level 01" " " 4
-at_xfail=no
-(
- printf "%s\n" "695. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X OCCURS 10 VALUE "A".
- LINKAGE SECTION.
- 01 X-ALL PIC X(10).
- PROCEDURE DIVISION.
- INITIALIZE X(1) X(3) X(5) X(7)
- MOVE ZERO TO X(2) X(4) X(6) X(8)
- SET ADDRESS OF X-ALL TO ADDRESS OF X(1)
- IF X-ALL NOT = " 0 0 0 0AA"
- DISPLAY X-ALL UPON SYSERR.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:974: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:974"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:974"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:975: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:975"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:975"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 XX PIC 99 VALUE 5.
- 01 X PIC X OCCURS 0 TO 10
- DEPENDING ON XX VALUE "A".
- LINKAGE SECTION.
- 01 X-ALL PIC X(10).
- PROCEDURE DIVISION.
- MOVE ZERO TO X(2) X(4) X(6) X(8)
- INITIALIZE X(1) X(3) X(5) X(7)
- SET ADDRESS OF X-ALL TO ADDRESS OF X(1)
- IF X-ALL NOT = " 0 0 0 0AA"
- DISPLAY X-ALL UPON SYSERR.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:996: \$COMPILE -fno-ec=bound -o baddy2 prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fno-ec=bound -o baddy2 prog2.cob" "run_misc.at:996"
-( $at_check_trace; $COMPILE -fno-ec=bound -o baddy2 prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:996"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:997: \$COBCRUN_DIRECT ./baddy2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./baddy2" "run_misc.at:997"
-( $at_check_trace; $COBCRUN_DIRECT ./baddy2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:997"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:999: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_misc.at:999"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:999"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1000: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "run_misc.at:1000"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog2.cob:12: error: subscript of 'X' out of bounds: 6
-note: current maximum subscript for 'X': 5
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:1000"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog3.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 XX PIC 99 VALUE 5.
- 01 X PIC X OCCURS 0 TO 10
- DEPENDING ON XX VALUE "A".
- LINKAGE SECTION.
- 01 X-ALL PIC X(10).
- PROCEDURE DIVISION.
- INITIALIZE X(1) X(3) X(5) X(7)
- MOVE ZERO TO X(2) X(4) X(6) X(8)
- SET ADDRESS OF X-ALL TO ADDRESS OF X(1)
- IF X-ALL NOT = " 0 0 0 0AA"
- DISPLAY X-ALL UPON SYSERR.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1024: \$COMPILE -fno-ec=bound -o baddy3 prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fno-ec=bound -o baddy3 prog3.cob" "run_misc.at:1024"
-( $at_check_trace; $COMPILE -fno-ec=bound -o baddy3 prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1024"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1025: \$COBCRUN_DIRECT ./baddy3"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./baddy3" "run_misc.at:1025"
-( $at_check_trace; $COBCRUN_DIRECT ./baddy3
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1025"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1027: \$COMPILE prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog3.cob" "run_misc.at:1027"
-( $at_check_trace; $COMPILE prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1027"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1028: \$COBCRUN_DIRECT ./prog3"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog3" "run_misc.at:1028"
-( $at_check_trace; $COBCRUN_DIRECT ./prog3
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog3.cob:12: error: subscript of 'X' out of bounds: 7
-note: current maximum subscript for 'X': 5
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:1028"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_695
-#AT_START_696
-at_fn_group_banner 696 'run_misc.at:1038' \
- "Class check with reference-modification" " " 4
-at_xfail=no
-(
- printf "%s\n" "696. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(6) VALUE "123 ".
- PROCEDURE DIVISION.
- IF X(1:3) NUMERIC
- STOP RUN.
- DISPLAY "NG" NO ADVANCING.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1054: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:1054"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1054"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1055: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:1055"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1055"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_696
-#AT_START_697
-at_fn_group_banner 697 'run_misc.at:1060' \
- "Index and parenthesized expression" " " 4
-at_xfail=no
-(
- printf "%s\n" "697. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G.
- 02 X PIC X OCCURS 1 INDEXED BY I.
- PROCEDURE DIVISION.
- IF I < (I + 2)
- DISPLAY "OK" NO ADVANCING.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1076: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:1076"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1076"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1077: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:1077"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1077"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_697
-#AT_START_698
-at_fn_group_banner 698 'run_misc.at:1082' \
- "Alphanumeric and binary numeric" " " 4
-at_xfail=no
-(
- printf "%s\n" "698. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X-X PIC XXXX VALUE "0001".
- 01 X-9 PIC 9999 COMP VALUE 1.
- PROCEDURE DIVISION.
- IF X-X NOT = X-9
- DISPLAY "NG X-X <> X-9".
- IF X-9 NOT = X-X
- DISPLAY "NG X-9 <> X-X".
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1100: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:1100"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1100"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1101: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:1101"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1101"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_698
-#AT_START_699
-at_fn_group_banner 699 'run_misc.at:1106' \
- "Non-numeric data in numeric items" " " 4
-at_xfail=no
-(
- printf "%s\n" "699. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X.
- 03 X-NUM PIC 9(06) VALUE 123.
- 77 NUM PIC 9(06).
- PROCEDURE DIVISION.
- MOVE x"0000" TO X (2:2)
- IF X-NUM NUMERIC
- DISPLAY "low-value is numeric" UPON SYSERR.
- MOVE x"01" TO X (3:1)
- IF X-NUM NUMERIC
- DISPLAY "SOH is numeric" UPON SYSERR.
- MOVE X-NUM TO NUM
- DISPLAY "test over"
- *
- GOBACK.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X.
- 03 X-NUM PIC 9(06) PACKED-DECIMAL VALUE 123.
- 77 NUM PIC 9(06).
- PROCEDURE DIVISION.
- MOVE x"0A" TO X (2:1)
- IF X-NUM NUMERIC
- DISPLAY "bad prog".
- MOVE X-NUM TO NUM
- DISPLAY "test over"
- *
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1149: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:1149"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1149"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1150: \$COBC -x -o unchecked_prog prog.cob"
-at_fn_check_prepare_dynamic "$COBC -x -o unchecked_prog prog.cob" "run_misc.at:1150"
-( $at_check_trace; $COBC -x -o unchecked_prog prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1150"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1151: \$COBCRUN_DIRECT ./unchecked_prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./unchecked_prog" "run_misc.at:1151"
-( $at_check_trace; $COBCRUN_DIRECT ./unchecked_prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "test over
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1151"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1154: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:1154"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:16: error: 'X-NUM' (Type: NUMERIC DISPLAY) not numeric: '0\\000\\001123'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:1154"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1158: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_misc.at:1158"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1158"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1159: \$COBC -x -o unchecked_prog2 prog2.cob"
-at_fn_check_prepare_dynamic "$COBC -x -o unchecked_prog2 prog2.cob" "run_misc.at:1159"
-( $at_check_trace; $COBC -x -o unchecked_prog2 prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1159"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1160: \$COBCRUN_DIRECT ./unchecked_prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./unchecked_prog2" "run_misc.at:1160"
-( $at_check_trace; $COBCRUN_DIRECT ./unchecked_prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "test over
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1160"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1163: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "run_misc.at:1163"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog2.cob:13: error: 'X-NUM' (Type: PACKED-DECIMAL (unsigned)) not numeric: '0x000a123f'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:1163"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_699
-#AT_START_700
-at_fn_group_banner 700 'run_misc.at:1172' \
- "Dynamic call with static linking" " " 4
-at_xfail=no
-(
- printf "%s\n" "700. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- PROCEDURE DIVISION.
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- PROCEDURE DIVISION.
- CALL "callee"
- END-CALL.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1191: \$COMPILE_MODULE -c callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE -c callee.cob" "run_misc.at:1191"
-( $at_check_trace; $COMPILE_MODULE -c callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1191"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1192: \$COMPILE -c caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE -c caller.cob" "run_misc.at:1192"
-( $at_check_trace; $COMPILE -c caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1192"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1193: \$COMPILE -o prog caller.\$COB_OBJECT_EXT callee.\$COB_OBJECT_EXT"
-at_fn_check_prepare_dynamic "$COMPILE -o prog caller.$COB_OBJECT_EXT callee.$COB_OBJECT_EXT" "run_misc.at:1193"
-( $at_check_trace; $COMPILE -o prog caller.$COB_OBJECT_EXT callee.$COB_OBJECT_EXT
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1193"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1194: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:1194"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1194"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1195: \$COMPILE -o prog2 caller.cob callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE -o prog2 caller.cob callee.cob" "run_misc.at:1195"
-( $at_check_trace; $COMPILE -o prog2 caller.cob callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1195"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1196: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "run_misc.at:1196"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1196"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_700
-#AT_START_701
-at_fn_group_banner 701 'run_misc.at:1201' \
- "Static call with static linking" " " 4
-at_xfail=no
-(
- printf "%s\n" "701. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- PROCEDURE DIVISION.
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- PROCEDURE DIVISION.
- CALL STATIC "callee"
- END-CALL.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1220: \$COMPILE_MODULE -c callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE -c callee.cob" "run_misc.at:1220"
-( $at_check_trace; $COMPILE_MODULE -c callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1220"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1221: \$COMPILE -c caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE -c caller.cob" "run_misc.at:1221"
-( $at_check_trace; $COMPILE -c caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1221"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1222: \$COMPILE -o prog caller.\$COB_OBJECT_EXT callee.\$COB_OBJECT_EXT"
-at_fn_check_prepare_dynamic "$COMPILE -o prog caller.$COB_OBJECT_EXT callee.$COB_OBJECT_EXT" "run_misc.at:1222"
-( $at_check_trace; $COMPILE -o prog caller.$COB_OBJECT_EXT callee.$COB_OBJECT_EXT
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1222"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1223: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:1223"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1223"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1224: \$COMPILE -o prog2 -static caller.cob callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE -o prog2 -static caller.cob callee.cob" "run_misc.at:1224"
-( $at_check_trace; $COMPILE -o prog2 -static caller.cob callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1224"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1225: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "run_misc.at:1225"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1225"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1226: \$COMPILE -o prog3 caller.cob callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE -o prog3 caller.cob callee.cob" "run_misc.at:1226"
-( $at_check_trace; $COMPILE -o prog3 caller.cob callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1226"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1227: \$COBCRUN_DIRECT ./prog3"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog3" "run_misc.at:1227"
-( $at_check_trace; $COBCRUN_DIRECT ./prog3
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1227"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_701
-#AT_START_702
-at_fn_group_banner 702 'run_misc.at:1232' \
- "Dynamic CALL with ON EXCEPTION" " " 4
-at_xfail=no
-(
- printf "%s\n" "702. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- PROCEDURE DIVISION.
- CALL "callee1" ON EXCEPTION
- CALL "callee2" ON EXCEPTION
- DISPLAY "neither calee1 nor callee2 found"
- END-CALL
- END-CALL
- GOBACK.
-_ATEOF
-
-
-cat >callee2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee2.
- PROCEDURE DIVISION.
- DISPLAY "this is callee2" NO ADVANCING
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1256: \$COMPILE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE caller.cob" "run_misc.at:1256"
-( $at_check_trace; $COMPILE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1256"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1257: \$COMPILE_MODULE callee2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee2.cob" "run_misc.at:1257"
-( $at_check_trace; $COMPILE_MODULE callee2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1257"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1258: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_misc.at:1258"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "this is callee2" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1258"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_702
-#AT_START_703
-at_fn_group_banner 703 'run_misc.at:1264' \
- "Static CALL with ON EXCEPTION" " " 4
-at_xfail=no
-(
- printf "%s\n" "703. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- PROCEDURE DIVISION.
- CALL "callee1" ON EXCEPTION
- CALL "callee2" ON EXCEPTION
- DISPLAY "neither calee1 nor callee2 found"
- END-CALL
- END-CALL
- GOBACK.
-_ATEOF
-
-
-cat >callee2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee2.
- PROCEDURE DIVISION.
- DISPLAY "this is callee2" NO ADVANCING
- GOBACK.
-_ATEOF
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1289: \$COMPILE_MODULE -c callee2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE -c callee2.cob" "run_misc.at:1289"
-( $at_check_trace; $COMPILE_MODULE -c callee2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1289"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1290: \$COMPILE -c caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE -c caller.cob" "run_misc.at:1290"
-( $at_check_trace; $COMPILE -c caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1290"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1291: \$COMPILE -o prog caller.\$COB_OBJECT_EXT callee2.\$COB_OBJECT_EXT"
-at_fn_check_prepare_dynamic "$COMPILE -o prog caller.$COB_OBJECT_EXT callee2.$COB_OBJECT_EXT" "run_misc.at:1291"
-( $at_check_trace; $COMPILE -o prog caller.$COB_OBJECT_EXT callee2.$COB_OBJECT_EXT
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1291"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1292: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:1292"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "this is callee2" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1292"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1294: \$COMPILE -o prog2 -static caller.cob callee2.cob"
-at_fn_check_prepare_dynamic "$COMPILE -o prog2 -static caller.cob callee2.cob" "run_misc.at:1294"
-( $at_check_trace; $COMPILE -o prog2 -static caller.cob callee2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1294"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1295: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "run_misc.at:1295"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "this is callee2" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1295"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1297: \$COMPILE -o prog3 caller.cob callee2.cob"
-at_fn_check_prepare_dynamic "$COMPILE -o prog3 caller.cob callee2.cob" "run_misc.at:1297"
-( $at_check_trace; $COMPILE -o prog3 caller.cob callee2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1297"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1298: \$COBCRUN_DIRECT ./prog3"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog3" "run_misc.at:1298"
-( $at_check_trace; $COBCRUN_DIRECT ./prog3
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "this is callee2" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1298"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_703
-#AT_START_704
-at_fn_group_banner 704 'run_misc.at:1304' \
- "CALL m1. CALL m2. CALL m1." " " 4
-at_xfail=no
-(
- printf "%s\n" "704. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >m1.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. m1.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC 9(4).
- PROCEDURE DIVISION.
- COMPUTE X = 1 + 2
- END-COMPUTE.
- IF X NOT = 3
- DISPLAY X.
-_ATEOF
-
-
-cat >m2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. m2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC 9(4).
- PROCEDURE DIVISION.
- COMPUTE X = 3 + 4
- END-COMPUTE.
- IF X NOT = 7
- DISPLAY X.
-_ATEOF
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- PROCEDURE DIVISION.
- CALL "m1"
- END-CALL.
- CALL "m2"
- END-CALL.
- CALL "m1"
- END-CALL.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1346: \$COMPILE_MODULE m1.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE m1.cob" "run_misc.at:1346"
-( $at_check_trace; $COMPILE_MODULE m1.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1346"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1347: \$COMPILE_MODULE m2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE m2.cob" "run_misc.at:1347"
-( $at_check_trace; $COMPILE_MODULE m2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1347"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1348: \$COMPILE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE caller.cob" "run_misc.at:1348"
-( $at_check_trace; $COMPILE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1348"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1350: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_misc.at:1350"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1350"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_704
-#AT_START_705
-at_fn_group_banner 705 'run_misc.at:1355' \
- "Recursive CALL of RECURSIVE program" " " 4
-at_xfail=no
-(
- printf "%s\n" "705. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller IS RECURSIVE.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 STOPPER PIC S9 EXTERNAL.
- PROCEDURE DIVISION.
- MOVE 0 TO STOPPER
- CALL "callee"
- DISPLAY 'OK' NO ADVANCING END-DISPLAY
- *> FIXME: CANCEL broken on special environments
- *> CANCEL "callee" , "callee2"
- DISPLAY ' + FINE' NO ADVANCING END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee IS RECURSIVE.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 STOPPER PIC S9 EXTERNAL.
- PROCEDURE DIVISION.
- IF STOPPER = 9
- MOVE -1 TO STOPPER
- ELSE
- ADD 1 TO STOPPER
- CALL "callee2"
- END-IF
- GOBACK.
-_ATEOF
-
-
-cat >callee2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee2 IS RECURSIVE.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 STOPPER PIC S9 EXTERNAL.
- PROCEDURE DIVISION.
- IF STOPPER NOT EQUAL -1
- CALL "callee"
- END-IF
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1405: \$COMPILE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE caller.cob" "run_misc.at:1405"
-( $at_check_trace; $COMPILE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1405"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1406: \$COMPILE_MODULE callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee.cob" "run_misc.at:1406"
-( $at_check_trace; $COMPILE_MODULE callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1406"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1407: \$COMPILE_MODULE callee2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee2.cob" "run_misc.at:1407"
-( $at_check_trace; $COMPILE_MODULE callee2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1407"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1408: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_misc.at:1408"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK + FINE" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1408"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_705
-#AT_START_706
-at_fn_group_banner 706 'run_misc.at:1413' \
- "Recursive CALL of INITIAL program" " " 4
-at_xfail=no
-(
- printf "%s\n" "706. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 STOPPER PIC 9 EXTERNAL.
- PROCEDURE DIVISION.
- MOVE 0 TO STOPPER
- CALL "callee" END-CALL.
- GOBACK.
-_ATEOF
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee IS INITIAL.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 STOPPER PIC 9 EXTERNAL.
- PROCEDURE DIVISION.
- IF STOPPER = 1
- DISPLAY 'INITIAL prog was called RECURSIVE'
- END-DISPLAY
- STOP RUN RETURNING 1
- ELSE
- MOVE 1 TO STOPPER
- CALL "callee2" END-CALL
- END-IF.
- GOBACK.
-_ATEOF
-
-
-cat >callee2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee2.
- PROCEDURE DIVISION.
- CALL "callee" END-CALL.
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1454: \$COMPILE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE caller.cob" "run_misc.at:1454"
-( $at_check_trace; $COMPILE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1454"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1455: \$COMPILE_MODULE callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee.cob" "run_misc.at:1455"
-( $at_check_trace; $COMPILE_MODULE callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1455"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1456: \$COMPILE_MODULE callee2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee2.cob" "run_misc.at:1456"
-( $at_check_trace; $COMPILE_MODULE callee2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1456"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1457: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_misc.at:1457"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: callee2.cob:5: error: recursive CALL from 'callee2' to 'callee' which is NOT RECURSIVE
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:1457"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_706
-#AT_START_707
-at_fn_group_banner 707 'run_misc.at:1464' \
- "Recursive CALL with RECURSIVE assumed" " " 4
-at_xfail=no
-(
- printf "%s\n" "707. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 STOPPER PIC 9 EXTERNAL.
- PROCEDURE DIVISION.
- MOVE 0 TO STOPPER
- CALL "callee" END-CALL.
- GOBACK.
-_ATEOF
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee IS INITIAL.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 STOPPER PIC 9 EXTERNAL.
- PROCEDURE DIVISION.
- IF STOPPER = 8
- DISPLAY 'OK' NO ADVANCING END-DISPLAY.
- IF STOPPER NOT = 9
- ADD 1 TO STOPPER END-ADD
- CALL "callee2" END-CALL.
- GOBACK.
-_ATEOF
-
-
-cat >callee2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee2.
- PROCEDURE DIVISION.
- CALL "callee" END-CALL.
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1502: \$COMPILE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE caller.cob" "run_misc.at:1502"
-( $at_check_trace; $COMPILE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1502"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1503: \$COMPILE_MODULE -fno-recursive-check callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE -fno-recursive-check callee.cob" "run_misc.at:1503"
-( $at_check_trace; $COMPILE_MODULE -fno-recursive-check callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1503"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1504: \$COMPILE_MODULE -fno-recursive-check callee2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE -fno-recursive-check callee2.cob" "run_misc.at:1504"
-( $at_check_trace; $COMPILE_MODULE -fno-recursive-check callee2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1504"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1505: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_misc.at:1505"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1505"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_707
-#AT_START_708
-at_fn_group_banner 708 'run_misc.at:1510' \
- "Recursive CALL with ON EXCEPTION" " " 4
-at_xfail=no
-(
- printf "%s\n" "708. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 STOPPER PIC 9 EXTERNAL.
- PROCEDURE DIVISION.
- MOVE 0 TO STOPPER
- CALL "callee" END-CALL.
- GOBACK.
-_ATEOF
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee IS INITIAL.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 STOPPER PIC 9 EXTERNAL.
- PROCEDURE DIVISION.
- IF STOPPER = 1
- DISPLAY 'INITIAL prog was called RECURSIVE'
- END-DISPLAY
- STOP RUN RETURNING 1
- ELSE
- MOVE 1 TO STOPPER
- CALL "callee2" END-CALL
- END-IF.
- GOBACK.
-_ATEOF
-
-
-cat >callee2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee2.
- PROCEDURE DIVISION.
- CALL "callee"
- ON EXCEPTION
- DISPLAY "Exception " FUNCTION EXCEPTION-STATUS ";"
- UPON SYSERR
- STOP RUN RETURNING 1
- END-CALL.
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1557: \$COMPILE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE caller.cob" "run_misc.at:1557"
-( $at_check_trace; $COMPILE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1557"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1558: \$COMPILE_MODULE callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee.cob" "run_misc.at:1558"
-( $at_check_trace; $COMPILE_MODULE callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1558"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1559: \$COMPILE_MODULE callee2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee2.cob" "run_misc.at:1559"
-( $at_check_trace; $COMPILE_MODULE callee2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1559"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1560: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_misc.at:1560"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "Exception EC-PROGRAM-RECURSIVE-CALL ;
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:1560"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_708
-#AT_START_709
-at_fn_group_banner 709 'run_misc.at:1567' \
- "Multiple calls of INITIAL program" " " 4
-at_xfail=no
-(
- printf "%s\n" "709. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 PARAM1 PIC X(08).
- 01 PARAM2 PIC 9999 COMP VALUE 08.
- PROCEDURE DIVISION.
- MOVE ' PARAM 1' TO PARAM1
- PERFORM 10 TIMES
- CALL "callee" USING PARAM1 PARAM2 END-CALL
- END-PERFORM
- DISPLAY 'PARAM1 = ' PARAM1
- END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee IS INITIAL.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 COUNTER PIC 999 VALUE ZERO.
- 01 LPARAM PIC 9(8) COMP.
- LINKAGE SECTION.
- 01 PARAM1 PIC X(08).
- 01 PARAM2 PIC 9999 COMP.
- PROCEDURE DIVISION USING PARAM1 PARAM2.
- ADD 1 TO COUNTER END-ADD
- CALL 'C$PARAMSIZE' USING 1 GIVING LPARAM END-CALL
- DISPLAY 'COUNTER = ' COUNTER ' LPARAM1 = ' LPARAM
- ' PARAM1 = ' PARAM1
- END-DISPLAY
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1606: \$COMPILE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE caller.cob" "run_misc.at:1606"
-( $at_check_trace; $COMPILE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1606"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1607: \$COMPILE_MODULE callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee.cob" "run_misc.at:1607"
-( $at_check_trace; $COMPILE_MODULE callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1607"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1608: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_misc.at:1608"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "COUNTER = 001 LPARAM1 = 00000008 PARAM1 = PARAM 1
-COUNTER = 001 LPARAM1 = 00000008 PARAM1 = PARAM 1
-COUNTER = 001 LPARAM1 = 00000008 PARAM1 = PARAM 1
-COUNTER = 001 LPARAM1 = 00000008 PARAM1 = PARAM 1
-COUNTER = 001 LPARAM1 = 00000008 PARAM1 = PARAM 1
-COUNTER = 001 LPARAM1 = 00000008 PARAM1 = PARAM 1
-COUNTER = 001 LPARAM1 = 00000008 PARAM1 = PARAM 1
-COUNTER = 001 LPARAM1 = 00000008 PARAM1 = PARAM 1
-COUNTER = 001 LPARAM1 = 00000008 PARAM1 = PARAM 1
-COUNTER = 001 LPARAM1 = 00000008 PARAM1 = PARAM 1
-PARAM1 = PARAM 1
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1608"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_709
-#AT_START_710
-at_fn_group_banner 710 'run_misc.at:1624' \
- "CALL binary literal parameter/LENGTH OF" " " 4
-at_xfail=no
-(
- printf "%s\n" "710. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >dump.c <<'_ATEOF'
-
-#include <stdio.h>
-#include <libcob.h>
-
-COB_EXT_EXPORT int
-dump (int *p)
-{
- printf ("%8.8d\n", *p);
- return 0;
-}
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 MYOCC PIC 9(8) COMP.
- 01 MYTAB.
- 03 MYBYTE PIC X OCCURS 1 TO 20
- DEPENDING ON MYOCC.
- PROCEDURE DIVISION.
- MOVE 9 TO MYOCC.
- CALL "dump" USING BY CONTENT 1
- END-CALL.
- CALL "dump" USING BY CONTENT LENGTH OF MYTAB
- END-CALL.
- CALL "dump" USING BY CONTENT LENGTH OF MYOCC
- END-CALL.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1659: \$COMPILE_MODULE dump.c"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE dump.c" "run_misc.at:1659"
-( $at_check_trace; $COMPILE_MODULE dump.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1659"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1660: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:1660"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1660"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1661: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:1661"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "00000001
-00000009
-00000004
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1661"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1666: \$COMPILE -fbinary-byteorder=native prog.cob -o prog2"
-at_fn_check_prepare_dynamic "$COMPILE -fbinary-byteorder=native prog.cob -o prog2" "run_misc.at:1666"
-( $at_check_trace; $COMPILE -fbinary-byteorder=native prog.cob -o prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1666"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1667: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "run_misc.at:1667"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "00000001
-00000009
-00000004
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1667"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_710
-#AT_START_711
-at_fn_group_banner 711 'run_misc.at:1678' \
- "INSPECT REPLACING LEADING ZEROS BY SPACES" " " 4
-at_xfail=no
-(
- printf "%s\n" "711. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4) VALUE "0001".
- PROCEDURE DIVISION.
- INSPECT X REPLACING LEADING ZEROS BY SPACES.
- IF X NOT = " 1"
- DISPLAY "Should be ' 1' but is '" X "'".
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1694: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:1694"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1694"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1695: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:1695"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1695"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_711
-#AT_START_712
-at_fn_group_banner 712 'run_misc.at:1700' \
- "INSPECT: no repeat conversion" " " 4
-at_xfail=no
-(
- printf "%s\n" "712. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(3) VALUE "BCA".
- 01 Y PIC X(6) VALUE " BCA".
- PROCEDURE DIVISION.
- INSPECT X CONVERTING "ABC" TO "BCD".
- IF X NOT = "CDB"
- DISPLAY "X: " X.
- INSPECT Y CONVERTING "ABC" TO "BCD".
- IF Y NOT = " CDB"
- DISPLAY "Y: " Y.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1720: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:1720"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1720"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1721: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:1721"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1721"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_712
-#AT_START_713
-at_fn_group_banner 713 'run_misc.at:1726' \
- "TRANSFORM statement" " " 4
-at_xfail=no
-(
- printf "%s\n" "713. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- ALPHABET MY-ASCII IS STANDARD-1.
- ALPHABET MY-EBCDIC IS EBCDIC.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(3) VALUE "BCA".
- PROCEDURE DIVISION.
- *> internally: "alias" to INSPECT CONVERTING
- TRANSFORM X FROM "ABC" TO "BCD".
- IF X NOT = "CDB"
- DISPLAY "X: " X.
- *> optional CHARACTERS and ALPHABETs (value test is separate)
- TRANSFORM X CHARACTERS FROM MY-ASCII TO MY-EBCDIC.
- *>
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1753: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:1753"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1753"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1754: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:1754"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1754"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_713
-#AT_START_714
-at_fn_group_banner 714 'run_misc.at:1759' \
- "INSPECT CONVERTING alphabet" " " 4
-at_xfail=no
-(
- printf "%s\n" "714. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. charset.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- ALPHABET ALPHA IS ASCII.
- ALPHABET BETA IS EBCDIC.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
-
- 01 TESTHEX PIC X(10) VALUE X'C17BD6F2F0F1F8406A5A'.
-
- procedure division.
- sample-main.
-
- INSPECT testhex CONVERTING BETA TO ALPHA
- DISPLAY 'Converted: "' TESTHEX '"' WITH NO ADVANCING
-
- GOBACK.
- END PROGRAM charset.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1787: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:1787"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1787"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1788: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:1788"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Converted: \"A#O2018 |!\"" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1788"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# For characters above IBM (with irregularities) and GCOS should match:
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1792: \$COMPILE prog.cob -febcdic-table=ebcdic500_ascii7bit -o prog-ibm"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob -febcdic-table=ebcdic500_ascii7bit -o prog-ibm" "run_misc.at:1792"
-( $at_check_trace; $COMPILE prog.cob -febcdic-table=ebcdic500_ascii7bit -o prog-ibm
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1792"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1793: \$COBCRUN_DIRECT ./prog-ibm"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog-ibm" "run_misc.at:1793"
-( $at_check_trace; $COBCRUN_DIRECT ./prog-ibm
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Converted: \"A#O2018 |]\"" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1793"
-$at_failed && at_fn_log_failure
-$at_traceon; }
- # prefix is actually "|]" (escaped for m4 preproc)
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1796: \$COMPILE prog.cob -febcdic-table=ebcdic500_ascii8bit -o prog-gcos"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob -febcdic-table=ebcdic500_ascii8bit -o prog-gcos" "run_misc.at:1796"
-( $at_check_trace; $COMPILE prog.cob -febcdic-table=ebcdic500_ascii8bit -o prog-gcos
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1796"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1797: \$COBCRUN_DIRECT ./prog-gcos"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog-gcos" "run_misc.at:1797"
-( $at_check_trace; $COBCRUN_DIRECT ./prog-gcos
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Converted: \"A#O2018 |]\"" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1797"
-$at_failed && at_fn_log_failure
-$at_traceon; }
- # prefix is actually "|]" (escaped for m4 preproc)
-
-# FIXME: This really does not convert to anything close to ASCII;
-# what's this table supposed to encode?
-# AT_CHECK([$COMPILE prog.cob -febcdic-table=RESTRICTED-GC -o prog-rgc], [0], [], [])
-# AT_CHECK([$COBCRUN_DIRECT ./prog-rgc], [0], [])
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_714
-#AT_START_715
-at_fn_group_banner 715 'run_misc.at:1808' \
- "INSPECT CONVERTING TO figurative constant" " " 4
-at_xfail=no
-(
- printf "%s\n" "715. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(3) VALUE "BCA".
- PROCEDURE DIVISION.
- INSPECT X CONVERTING "ABC" TO SPACES.
- IF X NOT = SPACES
- DISPLAY X.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1824: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:1824"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1824"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1825: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:1825"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1825"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_715
-#AT_START_716
-at_fn_group_banner 716 'run_misc.at:1830' \
- "INSPECT CONVERTING NULL" " " 4
-at_xfail=no
-(
- printf "%s\n" "716. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(3) VALUE LOW-VALUES.
- PROCEDURE DIVISION.
- INSPECT X CONVERTING NULL TO "A".
- IF X NOT = "AAA"
- DISPLAY X.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1846: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:1846"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1846"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1847: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:1847"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1847"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_716
-#AT_START_717
-at_fn_group_banner 717 'run_misc.at:1852' \
- "INSPECT CONVERTING TO NULL" " " 4
-at_xfail=no
-(
- printf "%s\n" "717. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(3) VALUE "AAA".
- PROCEDURE DIVISION.
- INSPECT X CONVERTING "A" TO NULL
- IF X NOT = LOW-VALUES
- DISPLAY "NG".
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1868: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:1868"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1868"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1869: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:1869"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1869"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_717
-#AT_START_718
-at_fn_group_banner 718 'run_misc.at:1874' \
- "INSPECT CONVERTING complex" " " 4
-at_xfail=no
-(
- printf "%s\n" "718. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(12) VALUE "AZABBCDCCECC".
- PROCEDURE DIVISION.
- INSPECT X CONVERTING "ABZC" TO "ZY0X"
- IF X NOT = "Z0ZYYXDXXEXX"
- DISPLAY "1 - " X
- MOVE "Z0ZYYXDXXEXX" TO X.
-
- INSPECT X CONVERTING "XD" TO SPACES
- BEFORE "E" AFTER "D"
- IF X NOT = "Z0ZYYXD EXX"
- DISPLAY "2 - " X
- MOVE "Z0ZYYXD EXX" TO X.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1898: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:1898"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1898"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:1899: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:1899"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:1899"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_718
-#AT_START_719
-at_fn_group_banner 719 'run_misc.at:1903' \
- "INSPECT numeric signed" " " 4
-at_xfail=no
-(
- printf "%s\n" "719. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 SEPARATE1 PIC S99 VALUE -11 SIGN LEADING SEPARATE.
- 01 SEPARATE2 PIC S99 VALUE +11 SIGN LEADING SEPARATE.
- 01 TSEPARATE1 PIC S99 VALUE -11 SIGN TRAILING SEPARATE.
- 01 TSEPARATE2 PIC S99 VALUE +11 SIGN TRAILING SEPARATE.
- 01 NSEPARATE1 PIC S99 VALUE -11.
- 01 NSEPARATE2 PIC S99 VALUE +11.
- 01 TRAILING1 PIC S99 VALUE -11 SIGN TRAILING.
- 01 TRAILING2 PIC S99 VALUE +11 SIGN TRAILING.
- 77 CNT USAGE BINARY-INT.
- PROCEDURE DIVISION.
- MOVE 0 TO CNT
- INSPECT SEPARATE1 TALLYING CNT FOR ALL "1"
- IF CNT NOT = 2
- DISPLAY "T1 - " CNT.
- MOVE 0 TO CNT
- INSPECT SEPARATE2 TALLYING CNT FOR ALL "1"
- IF CNT NOT = 2
- DISPLAY "T2 - " CNT.
- MOVE 0 TO CNT
- INSPECT TSEPARATE1 TALLYING CNT FOR ALL "1"
- IF CNT NOT = 2
- DISPLAY "T3 - " CNT.
- MOVE 0 TO CNT
- INSPECT TSEPARATE2 TALLYING CNT FOR ALL "1"
- IF CNT NOT = 2
- DISPLAY "T4 - " CNT.
- MOVE 0 TO CNT
- INSPECT NSEPARATE1 TALLYING CNT FOR ALL "1"
- IF CNT NOT = 2
- DISPLAY "T5 - " CNT.
- MOVE 0 TO CNT
- INSPECT NSEPARATE2 TALLYING CNT FOR ALL "1"
- IF CNT NOT = 2
- DISPLAY "T6 - " CNT.
- MOVE 0 TO CNT
- INSPECT TRAILING1 TALLYING CNT FOR ALL "1"
- IF CNT NOT = 2
- DISPLAY "T7 - " CNT.
- MOVE 0 TO CNT
- INSPECT TRAILING2 TALLYING CNT FOR ALL "1"
- IF CNT NOT = 2
- DISPLAY "T8 - " CNT.
-
- INSPECT SEPARATE1 CONVERTING "123" TO "234"
- IF SEPARATE1 NOT = -22
- DISPLAY "C1 - " SEPARATE1
- MOVE -22 TO SEPARATE1.
- INSPECT SEPARATE2 CONVERTING "123" TO "234"
- IF SEPARATE2 NOT = +22
- DISPLAY "C2 - " SEPARATE2
- MOVE +22 TO SEPARATE2.
- INSPECT TSEPARATE1 CONVERTING "123" TO "234"
- IF TSEPARATE1 NOT = -22
- DISPLAY "C3 - " TSEPARATE1
- MOVE -22 TO TSEPARATE1.
- INSPECT TSEPARATE2 CONVERTING "123" TO "234"
- IF TSEPARATE2 NOT = +22
- DISPLAY "C4 - " TSEPARATE2
- MOVE +22 TO TSEPARATE2.
- INSPECT NSEPARATE1 CONVERTING "123" TO "234"
- IF NSEPARATE1 NOT = -22
- DISPLAY "C5 - " NSEPARATE1
- MOVE -22 TO NSEPARATE1.
- INSPECT NSEPARATE2 CONVERTING "123" TO "234"
- IF NSEPARATE2 NOT = +22
- DISPLAY "C6 - " NSEPARATE2
- MOVE +22 TO NSEPARATE2.
- INSPECT TRAILING1 CONVERTING "123" TO "234"
- IF TRAILING1 NOT = -22
- DISPLAY "C7 - " TRAILING1
- MOVE -22 TO TRAILING1.
- INSPECT TRAILING2 CONVERTING "123" TO "234"
- IF TRAILING2 NOT = +22
- DISPLAY "C8 - " TRAILING2
- MOVE +22 TO TRAILING2.
-
- INSPECT SEPARATE1 REPLACING ALL "1" BY "2"
- "2" BY "3"
- "3" BY "4"
- IF SEPARATE1 NOT = -33
- DISPLAY "R1 - " SEPARATE1
- MOVE -33 TO SEPARATE1.
- INSPECT SEPARATE2 REPLACING ALL "1" BY "2"
- "2" BY "3"
- "3" BY "4"
- IF SEPARATE2 NOT = +33
- DISPLAY "R2 - " SEPARATE2
- MOVE +33 TO SEPARATE2.
- INSPECT TSEPARATE1 REPLACING ALL "1" BY "2"
- "2" BY "3"
- "3" BY "4"
- IF TSEPARATE1 NOT = -33
- DISPLAY "R3 - " TSEPARATE1
- MOVE -33 TO TSEPARATE1.
- INSPECT TSEPARATE2 REPLACING ALL "1" BY "2"
- "2" BY "3"
- "3" BY "4"
- IF TSEPARATE2 NOT = +33
- DISPLAY "R4 - " TSEPARATE2
- MOVE +33 TO TSEPARATE2.
- INSPECT NSEPARATE1 REPLACING ALL "1" BY "2"
- "2" BY "3"
- "3" BY "4"
- IF NSEPARATE1 NOT = -33
- DISPLAY "R5 - " NSEPARATE1
- MOVE -33 TO NSEPARATE1.
- INSPECT NSEPARATE2 REPLACING ALL "1" BY "2"
- "2" BY "3"
- "3" BY "4"
- IF NSEPARATE2 NOT = +33
- DISPLAY "R6 - " NSEPARATE2
- MOVE +33 TO NSEPARATE2.
- INSPECT TRAILING1 REPLACING ALL "1" BY "2"
- "2" BY "3"
- "3" BY "4"
- IF TRAILING1 NOT = -33
- DISPLAY "R7 - " TRAILING1
- MOVE -33 TO TRAILING1.
- INSPECT TRAILING2 REPLACING ALL "1" BY "2"
- "2" BY "3"
- "3" BY "4"
- IF TRAILING2 NOT = +33
- DISPLAY "R8 - " TRAILING2
- MOVE +33 TO TRAILING2.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2039: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:2039"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2039"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2040: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:2040"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2040"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_719
-#AT_START_720
-at_fn_group_banner 720 'run_misc.at:2044' \
- "INSPECT TALLYING BEFORE" " " 4
-at_xfail=no
-(
- printf "%s\n" "720. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4) VALUE "ABC ".
- 01 TAL PIC 999 VALUE 0.
- PROCEDURE DIVISION.
- MOVE 0 TO TAL.
- INSPECT X TALLYING TAL FOR CHARACTERS
- BEFORE INITIAL " ".
- IF TAL NOT = 3
- DISPLAY "1: should be 3 but is " TAL.
-
- MOVE 0 TO TAL.
- MOVE " ABC" TO X.
- INSPECT X TALLYING TAL FOR CHARACTERS
- BEFORE INITIAL " ".
- IF TAL NOT = 0
- DISPLAY "2: should be 0 but is " TAL.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2071: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:2071"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2071"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2072: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:2072"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2072"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_720
-#AT_START_721
-at_fn_group_banner 721 'run_misc.at:2077' \
- "INSPECT TALLYING AFTER" " " 4
-at_xfail=no
-(
- printf "%s\n" "721. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4) VALUE "ABC ".
- 01 TAL PIC 999 VALUE 0.
- PROCEDURE DIVISION.
- MOVE 0 TO TAL.
- INSPECT X TALLYING TAL FOR CHARACTERS
- AFTER INITIAL " ".
- IF TAL NOT = 0
- DISPLAY TAL.
-
- MOVE 0 TO TAL.
- MOVE " ABC" TO X.
- INSPECT X TALLYING TAL FOR CHARACTERS
- AFTER INITIAL " ".
- IF TAL NOT = 3
- DISPLAY TAL.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2104: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:2104"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2104"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2105: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:2105"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2105"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_721
-#AT_START_722
-at_fn_group_banner 722 'run_misc.at:2110' \
- "INSPECT TALLYING BEFORE and AFTER" " " 4
-at_xfail=no
-(
- printf "%s\n" "722. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4) VALUE "ABC ".
- 01 TAL PIC 999 VALUE 0.
- 01 MSG PIC X(256) VALUE SPACES.
- PROCEDURE DIVISION.
- MOVE 0 TO TAL.
- INSPECT X TALLYING TAL FOR CHARACTERS
- BEFORE INITIAL " "
- AFTER " ".
- IF TAL NOT = 0
- DISPLAY "1: should be 0 but is " TAL.
-
- *> checking for no match, includes bug #865
- MOVE 0 TO TAL.
- INSPECT MSG TALLYING TAL FOR CHARACTERS
- AFTER INITIAL "<"
- BEFORE INITIAL "</".
- IF TAL NOT = 0
- DISPLAY "2: should be 0 but is " TAL.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2140: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:2140"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2140"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2141: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:2141"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2141"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_722
-#AT_START_723
-at_fn_group_banner 723 'run_misc.at:2146' \
- "INSPECT TALLYING REPLACING BEFORE and AFTER" " " 4
-at_xfail=no
-(
- printf "%s\n" "723. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 INSP-STRING PIC X(26) VALUE 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.
- 01 EXPTD-RESULT CONSTANT AS 'A22222111111111122222222YZ'.
- 01 RES-IDX PIC 9(04) BINARY VALUE 100.
- 01 RES-IDX-1 PIC 9(04) BINARY VALUE 0.
- PROCEDURE DIVISION.
- *>
- INSPECT INSP-STRING
- TALLYING RES-IDX FOR CHARACTERS BEFORE 'H'
- RES-IDX-1 FOR CHARACTERS AFTER 'B'
- REPLACING
- CHARACTERS BY '1' AFTER 'F' BEFORE 'Q'
- CHARACTERS BY '2' AFTER 'A' BEFORE 'Y'.
- *>
- IF INSP-STRING NOT = EXPTD-RESULT
- DISPLAY 'Failed <' INSP-STRING '> != <' EXPTD-RESULT '>'.
- IF RES-IDX NOT = 107
- DISPLAY 'Failed <' RES-IDX '> != <107>'.
- IF RES-IDX-1 NOT = 19
- DISPLAY 'Failed <' RES-IDX-1 '> != <19>'.
- *>
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2177: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:2177"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2177"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2178: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:2178"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2178"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_723
-#AT_START_724
-at_fn_group_banner 724 'run_misc.at:2183' \
- "INSPECT REPLACING figurative constant" " " 4
-at_xfail=no
-(
- printf "%s\n" "724. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(3) VALUE "BCA".
- PROCEDURE DIVISION.
- INSPECT X REPLACING ALL "BC" BY SPACE.
- IF X NOT = " A"
- DISPLAY X.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2199: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:2199"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2199"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2200: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:2200"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2200"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_724
-#AT_START_725
-at_fn_group_banner 725 'run_misc.at:2207' \
- "SWITCHES (environment COB_SWITCH_n and SET)" " " 4
-at_xfail=no
-(
- printf "%s\n" "725. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- SWITCH-1 IS SWIT1
- ON IS SWIT1-ON
- OFF IS SWIT1-OFF
- SWITCH-2 IS SWIT2
- ON IS SWIT2-ON
- OFF IS SWIT2-OFF
- SWITCH-3
- ON IS SWIT3-ON
- OFF IS SWIT3-OFF
- SWITCH-4 IS SWIT4
- OFF IS SWIT4-OFF
- SWITCH-31
- ON IS SWIT31-ON
- SWITCH-36 IS SWIT36
- OFF IS SWIT36-OFF.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- IF SWIT1-ON
- DISPLAY "ON" NO ADVANCING
- ELSE
- DISPLAY "OFF" NO ADVANCING.
-
- IF SWIT2-ON
- DISPLAY " ON" NO ADVANCING
- ELSE
- DISPLAY " OFF" NO ADVANCING.
-
- IF SWIT3-ON
- DISPLAY " ON" NO ADVANCING
- ELSE
- DISPLAY " OFF" NO ADVANCING.
-
- IF NOT SWIT4-OFF
- DISPLAY " ON" NO ADVANCING
- ELSE
- DISPLAY " OFF" NO ADVANCING.
-
- SET SWIT1 TO OFF.
- SET SWIT2 TO ON.
- IF SWIT1-ON
- DISPLAY " ON" NO ADVANCING
- ELSE
- DISPLAY " OFF" NO ADVANCING.
-
- IF SWIT2-ON
- DISPLAY " ON" NO ADVANCING
- ELSE
- DISPLAY " OFF" NO ADVANCING.
-
- IF SWIT31-ON
- DISPLAY " ON" NO ADVANCING
- ELSE
- DISPLAY " OFF" NO ADVANCING.
-
- IF NOT SWIT36-OFF
- DISPLAY " ON" NO ADVANCING
- ELSE
- DISPLAY " OFF" NO ADVANCING.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2279: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:2279"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2279"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2280: COB_SWITCH_1=1 COB_SWITCH_2=0 COB_SWITCH_3=OFF COB_SWITCH_4=ON COB_SWITCH_36=ON ./prog"
-at_fn_check_prepare_trace "run_misc.at:2280"
-( $at_check_trace; COB_SWITCH_1=1 COB_SWITCH_2=0 COB_SWITCH_3=OFF COB_SWITCH_4=ON COB_SWITCH_36=ON ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "ON OFF OFF ON OFF ON OFF ON" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2280"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_725
-#AT_START_726
-at_fn_group_banner 726 'run_misc.at:2288' \
- "Nested PERFORM" " " 4
-at_xfail=no
-(
- printf "%s\n" "726. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- PERFORM 2 TIMES
- DISPLAY "X" NO ADVANCING
- END-DISPLAY
- PERFORM 2 TIMES
- DISPLAY "Y" NO ADVANCING
- END-PERFORM
- END-PERFORM.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2305: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:2305"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2305"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2306: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:2306"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "XYYXYY" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2306"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_726
-#AT_START_727
-at_fn_group_banner 727 'run_misc.at:2311' \
- "PERFORM VARYING BY -0.2 decimal" " " 4
-at_xfail=no
-(
- printf "%s\n" "727. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 X PIC 9v9.
- PROCEDURE DIVISION.
- PERFORM VARYING X FROM 0.8 BY -0.2
- UNTIL X < 0.4
- DISPLAY "X" NO ADVANCING
- END-PERFORM.
- IF X NOT = 0.2
- DISPLAY "WRONG X: " X END-DISPLAY
- END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2331: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:2331"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2331"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2332: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:2332"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "XXX" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2332"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_727
-#AT_START_728
-at_fn_group_banner 728 'run_misc.at:2337' \
- "PERFORM VARYING Float" " " 4
-at_xfail=no
-(
- printf "%s\n" "728. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 i USAGE FLOAT-LONG.
-
- PROCEDURE DIVISION.
- PERFORM VARYING i FROM 1.0 BY 1.0 UNTIL i > 5.0
- DISPLAY i " " NO ADVANCING
- END-PERFORM .
- DISPLAY "Test Part 1 Completed".
- PERFORM VARYING i FROM 1 BY 1 UNTIL i > 5
- DISPLAY i " " NO ADVANCING
- END-PERFORM .
- DISPLAY "Test Part 2 Completed".
- PERFORM VARYING i FROM 5 BY -1 UNTIL i < 1
- DISPLAY i " " NO ADVANCING
- END-PERFORM .
- DISPLAY "Test Part 3 Completed".
- STOP RUN.
- END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2365: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:2365"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2365"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2367: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:2367"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "1 2 3 4 5 Test Part 1 Completed
-1 2 3 4 5 Test Part 2 Completed
-5 4 3 2 1 Test Part 3 Completed
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2367"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_728
-#AT_START_729
-at_fn_group_banner 729 'run_misc.at:2376' \
- "PERFORM VARYING BY phrase omitted" " " 4
-at_xfail=no
-(
- printf "%s\n" "729. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 X PIC 9.
- PROCEDURE DIVISION.
- PERFORM VARYING X FROM 4
- UNTIL X > 6
- DISPLAY "X" NO ADVANCING
- END-PERFORM.
- IF X NOT = 7
- DISPLAY "WRONG X: " X
- END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2396: \$COMPILE_ONLY -std=cobol85 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -std=cobol85 prog.cob" "run_misc.at:2396"
-( $at_check_trace; $COMPILE_ONLY -std=cobol85 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: error: PERFORM VARYING without BY phrase does not conform to COBOL 85
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:2396"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2399: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:2399"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2399"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2400: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:2400"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "XXX" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2400"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_729
-#AT_START_730
-at_fn_group_banner 730 'run_misc.at:2407' \
- "EXIT PERFORM" " " 4
-at_xfail=no
-(
- printf "%s\n" "730. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- PERFORM 2 TIMES
- DISPLAY "OK" NO ADVANCING
- EXIT PERFORM
- DISPLAY "NOT OK"
- END-PERFORM
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2422: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:2422"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2422"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2423: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:2423"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2423"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_730
-#AT_START_731
-at_fn_group_banner 731 'run_misc.at:2430' \
- "EXIT PERFORM CYCLE" " " 4
-at_xfail=no
-(
- printf "%s\n" "731. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- PERFORM 2 TIMES
- DISPLAY "OK" NO ADVANCING
- EXIT PERFORM CYCLE
- DISPLAY "NOT OK"
- END-PERFORM
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2445: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:2445"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2445"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2446: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:2446"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OKOK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2446"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_731
-#AT_START_732
-at_fn_group_banner 732 'run_misc.at:2453' \
- "EXIT PARAGRAPH" " " 4
-at_xfail=no
-(
- printf "%s\n" "732. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# Note: testing EXIT PARAGRPAPH without being PERFORMed
-# implicit GO TO only
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 INDVAL PIC 9(4).
- PROCEDURE DIVISION.
- A01.
- PERFORM VARYING INDVAL FROM 1 BY 1 UNTIL INDVAL > 10
- IF INDVAL > 2
- EXIT PARAGRAPH
- END-IF
- END-PERFORM.
- A02.
- IF INDVAL NOT = 3
- DISPLAY INDVAL
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2479: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:2479"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2479"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2480: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:2480"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2480"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_732
-#AT_START_733
-at_fn_group_banner 733 'run_misc.at:2487' \
- "EXIT SECTION" " " 4
-at_xfail=no
-(
- printf "%s\n" "733. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# Note: testing EXIT SECTION without being PERFORMed
-# implicit GO TO only
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 INDVAL PIC 9(4).
- PROCEDURE DIVISION.
- A01 SECTION.
- A011.
- PERFORM VARYING INDVAL FROM 1 BY 1 UNTIL INDVAL > 10
- IF INDVAL > 2
- EXIT SECTION
- END-IF
- END-PERFORM.
- A012.
- DISPLAY INDVAL.
- A02 SECTION.
- IF INDVAL NOT = 3
- DISPLAY INDVAL.
- STOP RUN.
-_ATEOF
-
-
-# disabling the check for "something leaves the section" - as this is
-# guaranteed to happen with this EXIT SECTION as GO TO
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2517: \$COMPILE -fno-section-exit-check prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fno-section-exit-check prog.cob" "run_misc.at:2517"
-( $at_check_trace; $COMPILE -fno-section-exit-check prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2517"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2518: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:2518"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2518"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2520: \$COMPILE -fsection-exit-check prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fsection-exit-check prog.cob" "run_misc.at:2520"
-( $at_check_trace; $COMPILE -fsection-exit-check prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2520"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2521: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:2521"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:12: error: code execution leaving A01
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:2521"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_733
-#AT_START_734
-at_fn_group_banner 734 'run_misc.at:2528' \
- "implicit GOBACK at end of PROCEDURE DIVISION" " " 4
-at_xfail=no
-(
- printf "%s\n" "734. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- A01 SECTION.
- A011.
- CONTINUE.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2540: \$COMPILE -fno-implicit-goback-check prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fno-implicit-goback-check prog.cob" "run_misc.at:2540"
-( $at_check_trace; $COMPILE -fno-implicit-goback-check prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2540"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2541: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:2541"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2541"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2543: \$COMPILE -fimplicit-goback-check prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fimplicit-goback-check prog.cob" "run_misc.at:2543"
-( $at_check_trace; $COMPILE -fimplicit-goback-check prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2543"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2544: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:2544"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:8: error: code execution leaving PROCEDURE DIVISION
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:2544"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_734
-#AT_START_735
-at_fn_group_banner 735 'run_misc.at:2551' \
- "PERFORM FOREVER / PERFORM UNTIL EXIT" " " 4
-at_xfail=no
-(
- printf "%s\n" "735. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 INDVAL PIC 9(4).
- PROCEDURE DIVISION.
- A01.
- MOVE 0 TO INDVAL
- PERFORM UNTIL EXIT
- ADD 1 TO INDVAL
- IF INDVAL > 2
- EXIT PERFORM
- END-IF
- END-PERFORM
- IF INDVAL NOT = 3
- DISPLAY "1: " INDVAL
- END-DISPLAY
- END-IF
- PERFORM FOREVER
- ADD 1 TO INDVAL
- IF INDVAL > 4
- EXIT PERFORM
- END-IF
- END-PERFORM
- IF INDVAL NOT = 5
- DISPLAY "2: " INDVAL
- END-DISPLAY
- END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2586: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:2586"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2586"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2587: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:2587"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2587"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_735
-#AT_START_736
-at_fn_group_banner 736 'run_misc.at:2592' \
- "PERFORM inline (1)" " " 4
-at_xfail=no
-(
- printf "%s\n" "736. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 INDVAL PIC 9(4).
- PROCEDURE DIVISION.
- PERFORM VARYING INDVAL FROM 1
- BY 1 UNTIL INDVAL > 2
- END-PERFORM
- IF INDVAL NOT = 3
- DISPLAY INDVAL
- END-IF
- STOP RUN
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2612: \$COMPILE -fmissing-statement=ok prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fmissing-statement=ok prog.cob" "run_misc.at:2612"
-( $at_check_trace; $COMPILE -fmissing-statement=ok prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2612"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2613: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:2613"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2613"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_736
-#AT_START_737
-at_fn_group_banner 737 'run_misc.at:2618' \
- "PERFORM inline (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "737. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 INDVAL PIC 9(4).
- PROCEDURE DIVISION.
- PERFORM VARYING INDVAL FROM 1
- BY 1 UNTIL INDVAL > 2.
- IF INDVAL NOT = 3
- DISPLAY INDVAL
- END-IF
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2636: \$COMPILE -frelax-syntax-checks -w prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -frelax-syntax-checks -w prog.cob" "run_misc.at:2636"
-( $at_check_trace; $COMPILE -frelax-syntax-checks -w prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2636"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2637: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:2637"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2637"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_737
-#AT_START_738
-at_fn_group_banner 738 'run_misc.at:2642' \
- "Non-overflow after overflow" " " 4
-at_xfail=no
-(
- printf "%s\n" "738. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC 9(2) VALUE 0.
- 01 Y PIC 9(2) VALUE 0.
- PROCEDURE DIVISION.
- COMPUTE X = 100. *> this overflows which does not store a result
- COMPUTE Y = 99. *> and once in a time this result was not stored
- IF X NOT = 0 AND
- Y NOT = 99
- DISPLAY Y.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2661: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:2661"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2661"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2662: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:2662"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2662"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_738
-#AT_START_739
-at_fn_group_banner 739 'run_misc.at:2669' \
- "PERFORM ... CONTINUE" " " 4
-at_xfail=no
-(
- printf "%s\n" "739. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- PERFORM 2 TIMES
- CONTINUE
- END-PERFORM.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2681: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "run_misc.at:2681"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2681"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_739
-#AT_START_740
-at_fn_group_banner 740 'run_misc.at:2686' \
- "STRING with subscript reference" " " 4
-at_xfail=no
-(
- printf "%s\n" "740. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G.
- 02 X PIC X(3) OCCURS 3.
- PROCEDURE DIVISION.
- MOVE SPACES TO G.
- STRING "abc" INTO X(2)
- END-STRING.
- IF G NOT = " abc "
- DISPLAY X(1)
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2706: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:2706"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2706"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2707: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:2707"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2707"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_740
-#AT_START_741
-at_fn_group_banner 741 'run_misc.at:2712' \
- "STRING WITH POINTER ON OVERFLOW with DELIMITER" " " 4
-at_xfail=no
-(
- printf "%s\n" "741. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. StringTest.
- *>----------------------------------------------------------------
- *> Additional test cases for STRING statement
- *> Testing string with POINTER clause and with OVERFLOW
- *> managment associated to POINTER clause
- *> Testing also String with delimiter
- *>----------------------------------------------------------------
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- *>-----------------------
- 01 TRGT-STRING PIC X(03) VALUE SPACES.
- 01 STR-POINTER PIC 9(02).
- 01 SRC-DELIM PIC X(01).
-
- PROCEDURE DIVISION.
- *>-------------------
- *>
- *> case A: Pointer is between 1 and less than TRGT-STRING LENGTH
- *> Should not overflow
- MOVE 1 to STR-POINTER.
- STRING 'A' 'B' 'C' DELIMITED BY SIZE
- INTO TRGT-STRING
- WITH POINTER STR-POINTER
- ON OVERFLOW
- DISPLAY 'Case A: Should not overflow' END-DISPLAY
- END-STRING.
- IF TRGT-STRING NOT = 'ABC'
- DISPLAY 'A: TRTG-STRING <' TRGT-STRING '> != <ABC>'.
- IF STR-POINTER NOT = 4
- DISPLAY 'A: STR-POINTER <' STR-POINTER '> != <04>'.
- *>
- *> case B: Pointer is 0 --> Should overflow
- MOVE 0 TO STR-POINTER.
- MOVE SPACES TO TRGT-STRING.
- STRING 'A' 'B' 'C' DELIMITED BY SIZE
- INTO TRGT-STRING
- WITH POINTER STR-POINTER
- NOT ON OVERFLOW
- DISPLAY 'Case B: Should overflow' END-DISPLAY
- END-STRING.
- IF TRGT-STRING NOT = SPACES
- DISPLAY 'B: TRTG-STRING <' TRGT-STRING '> != SPACES'.
- IF STR-POINTER NOT = 0
- DISPLAY 'B: STR-POINTER <' STR-POINTER '> != <00>'.
- *>
- *> case C: Pointer is 4 --> Should overflow
- MOVE 4 TO STR-POINTER.
- MOVE SPACES TO TRGT-STRING.
- STRING 'A' 'B' 'C' DELIMITED BY SIZE
- INTO TRGT-STRING
- WITH POINTER STR-POINTER
- NOT ON OVERFLOW
- DISPLAY 'Case C: Should overflow' END-DISPLAY
- END-STRING.
- IF TRGT-STRING NOT = SPACES
- DISPLAY 'C: TRTG-STRING <' TRGT-STRING '> != SPACES'.
- IF STR-POINTER NOT = 4
- DISPLAY 'C: STR-POINTER <' STR-POINTER '> != <04>'.
- *>
- *> case D: Test with delimiter
- MOVE 1 TO STR-POINTER.
- MOVE '|' TO SRC-DELIM.
- MOVE SPACES TO TRGT-STRING.
- STRING '1|2' 'A|B' 'C|D' DELIMITED BY SRC-DELIM
- INTO TRGT-STRING
- WITH POINTER STR-POINTER
- END-STRING.
- IF TRGT-STRING NOT = '1AC'
- DISPLAY 'D: TRGT-STRING <' TRGT-STRING '> != <1AC>'.
- *>
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2790: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:2790"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2790"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2791: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:2791"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2791"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_741
-#AT_START_742
-at_fn_group_banner 742 'run_misc.at:2796' \
- "STRING / UNSTRING [NOT] ON OVERFLOW" " " 4
-at_xfail=no
-(
- printf "%s\n" "742. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- identification division.
- program-id. prog.
- data division.
- working-storage section.
- 77 simple-str pic x(20).
- 77 err-str pic x(50).
- *-----------------------------------------------------------------
- procedure division.
- * STRING test
- move spaces to simple-str
- string 'data'
- delimited by size
- into simple-str
- on overflow
- move spaces to err-str
- string 'STRING OVERFLOW'
- delimited by size
- into err-str
- end-string
- display err-str upon syserr
- end-display
- display '1 failed'
- end-display
- not on overflow
- display '1 passed'
- end-display
- end-string
- if simple-str not = 'data'
- display 'STRING ERROR (1): "' simple-str '"'
- end-display
- end-if
- *
- move spaces to simple-str
- string 'data is too big here...'
- delimited by size
- into simple-str
- on overflow
- display '2 passed'
- end-display
- not on overflow
- display '2 failed'
- end-display
- move spaces to err-str
- string 'missing OVERFLOW'
- delimited by size
- into err-str
- end-string
- display err-str upon syserr
- end-display
- end-string
- if simple-str not = 'data is too big here'
- display 'STRING ERROR (2): "' simple-str '"'
- end-display
- end-if
- *
- * UNSTRING test
- move spaces to simple-str
- unstring 'data'
- into simple-str
- on overflow
- move spaces to err-str
- unstring 'UNSTRING OVERFLOW'
- into err-str
- end-unstring
- display err-str upon syserr
- end-display
- display '3 failed'
- end-display
- not on overflow
- display '3 passed'
- end-display
- end-unstring
- if simple-str not = 'data'
- display 'UNSTRING ERROR (1): "' simple-str '"'
- end-display
- end-if
- *
- move spaces to simple-str
- unstring 'data is too big here...'
- into simple-str
- on overflow
- display '4 passed'
- end-display
- not on overflow
- display '4 failed'
- end-display
- move spaces to err-str
- string 'missing OVERFLOW'
- delimited by size
- into err-str
- end-string
- display err-str upon syserr
- end-display
- end-unstring
- if simple-str not = 'data is too big here'
- display 'UNSTRING ERROR (2): "' simple-str '"'
- end-display
- end-if
- *
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2902: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:2902"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2902"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2903: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:2903"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "1 passed
-2 passed
-3 passed
-4 passed
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2903"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_742
-#AT_START_743
-at_fn_group_banner 743 'run_misc.at:2913' \
- "UNSTRING DELIMITED ALL LOW-VALUE" " " 4
-at_xfail=no
-(
- printf "%s\n" "743. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G.
- 03 FILLER PIC XXX VALUE "ABC".
- 03 FILLER PIC XX VALUE LOW-VALUES.
- 03 FILLER PIC XXX VALUE "DEF".
- 01 A PIC XXX.
- 01 B PIC XXX.
- PROCEDURE DIVISION.
- UNSTRING G DELIMITED BY ALL LOW-VALUES
- INTO A B
- END-UNSTRING.
- IF A NOT = "ABC"
- DISPLAY A.
- IF B NOT = "DEF"
- DISPLAY B.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2938: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:2938"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2938"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2939: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:2939"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2939"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_743
-#AT_START_744
-at_fn_group_banner 744 'run_misc.at:2944' \
- "UNSTRING DELIMITED ALL SPACE-2" " " 4
-at_xfail=no
-(
- printf "%s\n" "744. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 WS-RECORD.
- 02 VALUE SPACE PIC X(04).
- 02 VALUE "ABC AND DE" PIC X(10).
- 02 VALUE SPACE PIC X(07).
- 02 VALUE "FG AND HIJ" PIC X(10).
- 02 VALUE SPACE PIC X(08).
- 01 SPACE-2 PIC X(02) VALUE SPACE.
- 01 WS-DUMMY PIC X(15).
- 01 WS-POINTER PIC 99.
- PROCEDURE DIVISION.
- MOVE 1 TO WS-POINTER.
- *
- PERFORM 0001-SUB.
- IF WS-DUMMY NOT = SPACE
- DISPLAY "Expected space - Got " WS-DUMMY.
- IF WS-POINTER NOT = 5
- DISPLAY "Expected 5 - Got " WS-POINTER.
- *
- PERFORM 0001-SUB.
- IF WS-DUMMY NOT = "ABC AND DE"
- DISPLAY "Expected ABC AND DE - Got " WS-DUMMY.
- IF WS-POINTER NOT = 21
- DISPLAY "Expected 21 - Got " WS-POINTER.
- *
- PERFORM 0001-SUB.
- IF WS-DUMMY NOT = " FG AND HIJ"
- DISPLAY "Expected FG AND HIJ - Got " WS-DUMMY.
- IF WS-POINTER NOT = 40
- DISPLAY "Expected 40 - Got " WS-POINTER.
- STOP RUN.
- 0001-SUB.
- UNSTRING WS-RECORD
- DELIMITED BY ALL SPACE-2
- INTO WS-DUMMY
- POINTER WS-POINTER
- END-UNSTRING.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2991: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:2991"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2991"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:2992: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:2992"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:2992"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_744
-#AT_START_745
-at_fn_group_banner 745 'run_misc.at:2997' \
- "UNSTRING DELIMITED POINTER" " " 4
-at_xfail=no
-(
- printf "%s\n" "745. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 WS-LAY-RECORD PIC X(66).
- 01 WS-DUMMY PIC X(50).
- 01 WS-KEYWORD PIC X(32).
- 01 WS-POINTER PIC 99.
- PROCEDURE DIVISION.
- MOVE
- ' 10 AF-RECORD-TYPE-SEQUENCE-04 PIC 9(05) COMP-3.'
- TO WS-LAY-RECORD.
- MOVE 1 TO WS-POINTER.
- PERFORM 0001-SUB.
- IF WS-POINTER NOT = 48
- DISPLAY "Expected 48 - Got " WS-POINTER.
- ADD 7 TO WS-POINTER
- .
- PERFORM 0001-SUB.
- IF WS-POINTER NOT = 62
- DISPLAY "Expected 62 - Got " WS-POINTER.
- PERFORM 0001-SUB.
- IF WS-POINTER NOT = 63
- DISPLAY "Expected 63 - Got " WS-POINTER.
- STOP RUN.
- 0001-SUB.
- UNSTRING WS-LAY-RECORD
- DELIMITED
- BY ' PIC '
- OR ' COMP-3'
- OR '.'
- INTO WS-DUMMY
- DELIMITER WS-KEYWORD
- POINTER WS-POINTER
- END-UNSTRING.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3039: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:3039"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3039"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3040: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:3040"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3040"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_745
-#AT_START_746
-at_fn_group_banner 746 'run_misc.at:3045' \
- "UNSTRING DELIMITER IN" " " 4
-at_xfail=no
-(
- printf "%s\n" "746. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 WK-CMD PIC X(8) VALUE "WWADDBCC".
- 01 WK-SIGNS PIC XX VALUE "AB".
- 01 WKS REDEFINES WK-SIGNS.
- 03 WK-SIGN PIC X OCCURS 2.
- 01 WK-DELIM PIC X OCCURS 2.
- 01 WK-DATA PIC X(2) OCCURS 3.
- PROCEDURE DIVISION.
- UNSTRING WK-CMD DELIMITED BY WK-SIGN(1) OR WK-SIGN(2)
- INTO WK-DATA(1) DELIMITER IN WK-DELIM(1)
- WK-DATA(2) DELIMITER IN WK-DELIM(2)
- WK-DATA(3)
- END-UNSTRING
- IF WK-DATA(1) NOT = "WW"
- OR WK-DATA(2) NOT = "DD"
- OR WK-DATA(3) NOT = "CC"
- OR WK-DELIM(1) NOT = "A"
- OR WK-DELIM(2) NOT = "B"
- DISPLAY WK-DATA(1)
- WK-DATA(2)
- WK-DATA(3)
- WK-DELIM(1)
- WK-DELIM(2)
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3081: \$COMPILE -ftop-level-occurs-clause=ok prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -ftop-level-occurs-clause=ok prog.cob" "run_misc.at:3081"
-( $at_check_trace; $COMPILE -ftop-level-occurs-clause=ok prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3081"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3082: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:3082"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3082"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_746
-#AT_START_747
-at_fn_group_banner 747 'run_misc.at:3087' \
- "UNSTRING combined" " " 4
-at_xfail=no
-(
- printf "%s\n" "747. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. UnstringTest.
- *>----------------------------------------------------------------
- *> Additional test case for UNSTRING
- *> testing unstring tallying with and without OVERFLOW and with
- *> ALL clause for delimiters
- *>----------------------------------------------------------------
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- *>-----------------------
- 01 INP-STRING PIC X(13) VALUE 'ABC1|DEF--GHI'.
- 01 STR-POINTER PIC 9(02).
- 01 RES-DATA.
- 05 RES-TRGT-1 PIC X(20).
- 05 RES-DELIM-1 PIC X(01).
- 05 RES-COUNT-1 PIC 9(02).
- 05 RES-TRGT-2 PIC X(20).
- 05 RES-DELIM-2 PIC X(01).
- 05 RES-COUNT-2 PIC 9(02).
- 05 RES-TALLY PIC 9(02).
- *>
- PROCEDURE DIVISION.
- *>------------------
- *>
- *> case A : should not OVERFLOW; use of one delimiter
- INITIALIZE RES-DATA
- MOVE 1 TO STR-POINTER
- *>
- UNSTRING INP-STRING
- DELIMITED BY '|'
- INTO RES-TRGT-1
- DELIMITER IN RES-DELIM-1 COUNT IN RES-COUNT-1
- RES-TRGT-2
- DELIMITER IN RES-DELIM-2 COUNT IN RES-COUNT-2
- WITH POINTER STR-POINTER
- TALLYING RES-TALLY
- ON OVERFLOW
- DISPLAY
- 'Unstring tallying case 1 should not OVERFLOW'
- END-DISPLAY
- END-UNSTRING.
- PERFORM TEST-CASE-1-RESULT
- *>
- *> case B : should OVERFLOW; use of two delimiters
- INITIALIZE RES-DATA
- MOVE 1 TO STR-POINTER
-
- UNSTRING INP-STRING
- DELIMITED BY '|' OR ALL '-'
- INTO RES-TRGT-1
- DELIMITER IN RES-DELIM-1 COUNT IN RES-COUNT-1
- RES-TRGT-2
- DELIMITER IN RES-DELIM-2 COUNT IN RES-COUNT-2
- WITH POINTER STR-POINTER
- TALLYING RES-TALLY
- NOT ON OVERFLOW
- DISPLAY
- 'Unstring tallying case 2 should OVERFLOW'
- END-DISPLAY
- END-UNSTRING.
- PERFORM TEST-CASE-2-RESULT
- *>
- GOBACK.
-
- *>
- TEST-CASE-1-RESULT.
- *>------------------
- IF RES-TRGT-1 NOT = 'ABC1'
- DISPLAY 'A: RES-TRGT-1 <' RES-TRGT-1 '> != <ABC1>'.
- IF RES-DELIM-1 NOT = '|'
- DISPLAY 'A: RES-DELIM-1 <' RES-DELIM-1 '> != <|>'.
- IF RES-COUNT-1 NOT = 4
- DISPLAY 'A: RES-COUNT-1 <' RES-COUNT-1 '> != <4>'.
- IF RES-TRGT-2 NOT = 'DEF--GHI'
- DISPLAY 'A: RES-TRGT-2 <' RES-TRGT-2 '> != <DEF--GHI>'.
- IF RES-DELIM-2 NOT = SPACES
- DISPLAY 'A: RES-DELIM2 <' RES-DELIM-2 '> != SPACE'.
- IF RES-COUNT-2 NOT = 8
- DISPLAY 'A: RES-COUNT-1 <' RES-COUNT-2 '> != <8>'.
- IF STR-POINTER NOT = 14
- DISPLAY 'A: STR-POINTER <' STR-POINTER '> != <14>'.
- IF RES-TALLY NOT = 2
- DISPLAY 'A: RES-TALLY <' RES-TALLY '> != <2>'.
- *>
- TEST-CASE-2-RESULT.
- *>------------------
- IF RES-TRGT-1 NOT = 'ABC1'
- DISPLAY 'B: RES-TRGT-1 <' RES-TRGT-1 '> != <ABC1>'.
- IF RES-DELIM-1 NOT = '|'
- DISPLAY 'B: RES-DELIM-1 <' RES-DELIM-1 '> != <|>'.
- IF RES-COUNT-1 NOT = 4
- DISPLAY 'B: RES-COUNT-1 <' RES-COUNT-1 '> != <4>'.
- IF RES-TRGT-2 NOT = 'DEF'
- DISPLAY 'B: RES-TRGT-2 <' RES-TRGT-2 '> != <DEF>'.
- IF RES-DELIM-2 NOT = '-'
- DISPLAY 'B: RES-DELIM2 <' RES-DELIM-2 '> != <->'.
- IF RES-COUNT-2 NOT = 3
- DISPLAY 'B: RES-COUNT-1 <' RES-COUNT-2 '> != <3>'.
- IF STR-POINTER NOT = 11
- DISPLAY 'B: STR-POINTER <' STR-POINTER '> != <11>'.
- IF RES-TALLY NOT = 2
- DISPLAY 'B: RES-TALLY <' RES-TALLY '> != <2>'.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3195: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:3195"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3195"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3196: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:3196"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3196"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_747
-#AT_START_748
-at_fn_group_banner 748 'run_misc.at:3201' \
- "UNSTRING with FUNCTION / literal" " " 4
-at_xfail=no
-(
- printf "%s\n" "748. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 FILLER.
- 05 TSTUNS PIC X(479).
- 05 PRM PIC X(16) OCCURS 4 TIMES.
- PROCEDURE DIVISION.
- MOVE "The,Quick,Brown,Fox" TO TSTUNS.
- UNSTRING TSTUNS DELIMITED BY ','
- INTO PRM(1), PRM(2), PRM(3), PRM(4).
- DISPLAY "PRM(1) is " PRM(1) ":".
- DISPLAY "PRM(2) is " PRM(2) ":".
- DISPLAY "PRM(3) is " PRM(3) ":".
- DISPLAY "PRM(4) is " PRM(4) ":".
- UNSTRING FUNCTION UPPER-CASE(TSTUNS) DELIMITED BY ','
- INTO PRM(1), PRM(2), PRM(3), PRM(4).
- DISPLAY "Now using UPPER-CASE"
- DISPLAY "PRM(1) is " PRM(1) ":".
- DISPLAY "PRM(2) is " PRM(2) ":".
- DISPLAY "PRM(3) is " PRM(3) ":".
- DISPLAY "PRM(4) is " PRM(4) ":".
- UNSTRING "Daddy,was,a,Rolling stone" DELIMITED BY ','
- INTO PRM(1), PRM(2), PRM(3), PRM(4).
- DISPLAY "Now using Literal"
- DISPLAY "PRM(1) is " PRM(1) ":".
- DISPLAY "PRM(2) is " PRM(2) ":".
- DISPLAY "PRM(3) is " PRM(3) ":".
- DISPLAY "PRM(4) is " PRM(4) ":".
- UNSTRING FUNCTION LOWER-CASE("Daddy,was,a,Rolling stone")
- DELIMITED BY ','
- INTO PRM(1), PRM(2), PRM(3), PRM(4).
- DISPLAY "Now using Literal + LOWER-CASE"
- DISPLAY "PRM(1) is " PRM(1) ":".
- DISPLAY "PRM(2) is " PRM(2) ":".
- DISPLAY "PRM(3) is " PRM(3) ":".
- DISPLAY "PRM(4) is " PRM(4) ":".
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3245: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:3245"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3245"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3246: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:3246"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "PRM(1) is The :
-PRM(2) is Quick :
-PRM(3) is Brown :
-PRM(4) is Fox :
-Now using UPPER-CASE
-PRM(1) is THE :
-PRM(2) is QUICK :
-PRM(3) is BROWN :
-PRM(4) is FOX :
-Now using Literal
-PRM(1) is Daddy :
-PRM(2) is was :
-PRM(3) is a :
-PRM(4) is Rolling stone :
-Now using Literal + LOWER-CASE
-PRM(1) is daddy :
-PRM(2) is was :
-PRM(3) is a :
-PRM(4) is rolling stone :
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3246"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_748
-#AT_START_749
-at_fn_group_banner 749 'run_misc.at:3271' \
- "SORT: table" " " 4
-at_xfail=no
-(
- printf "%s\n" "749. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 G VALUE "d4b2e1a3c5".
- 02 TBL OCCURS 5.
- 03 X PIC X.
- 03 Y PIC 9.
- PROCEDURE DIVISION.
- SORT TBL ASCENDING KEY X.
- IF G NOT = "a3b2c5d4e1"
- DISPLAY G.
- SORT TBL DESCENDING KEY Y.
- IF G NOT = "c5d4a3b2e1"
- DISPLAY G.
- SORT TBL ASCENDING KEY TBL.
- IF G NOT = "a3b2c5d4e1"
- DISPLAY G.
- SORT TBL DESCENDING KEY.
- IF G NOT = "e1d4c5b2a3"
- DISPLAY G.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3299: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:3299"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3299"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3300: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:3300"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3300"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_749
-#AT_START_750
-at_fn_group_banner 750 'run_misc.at:3305' \
- "SORT: table (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "750. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 K PIC 9(2).
-
- 01 CNT1 PIC 9(9) COMP-5 VALUE 4.
- 01 TAB1.
- 05 ROW1 OCCURS 1 TO 4 DEPENDING CNT1
- DESCENDING TAB1-NR.
- 10 TAB1-NR PIC 99.
-
- 01 TAB2.
- 05 CNT2 PIC 9(9) COMP-5 VALUE 4.
- 05 ROW2 OCCURS 1 TO 4 DEPENDING CNT2
- DESCENDING TAB2-NR.
- 10 TAB2-NR PIC 99.
-
- 01 TAB3.
- 05 CNT3 PIC 9(9) COMP-5 VALUE 10.
- 05 ROW3 OCCURS 1 TO 10 DEPENDING CNT3
- DESCENDING TAB3-NR
- ASCENDING TAB3-DATA.
- 10 TAB3-NR PIC 99.
- 10 FILLER PIC X(2).
- 10 TAB3-DATA PIC X(5).
- 10 FILLER PIC X(2).
- 10 TAB3-DATA2 PIC X(5).
-
-
- PROCEDURE DIVISION.
- A.
- PERFORM VARYING K FROM 1 BY 1 UNTIL K > 4
- MOVE K TO TAB1-NR(K), TAB2-NR(K)
- END-PERFORM
-
- MOVE 1 TO TAB3-NR(1).
- MOVE 1 TO TAB3-NR(8).
- MOVE 1 TO TAB3-NR(4).
- MOVE 6 TO TAB3-NR(2).
- MOVE 5 TO TAB3-NR(3).
- MOVE 5 TO TAB3-NR(9).
- MOVE 2 TO TAB3-NR(5).
- MOVE 2 TO TAB3-NR(10).
- MOVE 4 TO TAB3-NR(6).
- MOVE 3 TO TAB3-NR(7).
-
- MOVE "abcde" TO TAB3-DATA(1).
- MOVE "AbCde" TO TAB3-DATA(2).
- MOVE "abcde" TO TAB3-DATA(3).
- MOVE "zyx" TO TAB3-DATA(4).
- MOVE "12345" TO TAB3-DATA(5).
- MOVE "zyx" TO TAB3-DATA(6).
- MOVE "abcde" TO TAB3-DATA(7).
- MOVE "AbCde" TO TAB3-DATA(8).
- MOVE "abc" TO TAB3-DATA(9).
- MOVE "12346" TO TAB3-DATA(10).
-
- MOVE "day" TO TAB3-DATA2(1).
- MOVE "The" TO TAB3-DATA2(2).
- MOVE "eats" TO TAB3-DATA2(3).
- MOVE "." TO TAB3-DATA2(4).
- MOVE "mooos" TO TAB3-DATA2(5).
- MOVE "grass" TO TAB3-DATA2(6).
- MOVE "and" TO TAB3-DATA2(7).
- MOVE "whole" TO TAB3-DATA2(8).
- MOVE "cow" TO TAB3-DATA2(9).
- MOVE "the" TO TAB3-DATA2(10).
-
- SORT ROW1 DESCENDING TAB1-NR
- SORT ROW2 DESCENDING TAB2-NR
-
- DISPLAY "SINGLE TABLE" END-DISPLAY
- PERFORM VARYING K FROM 1 BY 1 UNTIL K > 4
- DISPLAY FUNCTION TRIM(TAB1-NR(K)) END-DISPLAY
- END-PERFORM
-
- DISPLAY "LOWER LEVEL TABLE" END-DISPLAY
- PERFORM VARYING K FROM 1 BY 1 UNTIL K > 4
- DISPLAY FUNCTION TRIM(TAB2-NR(K)) END-DISPLAY
- END-PERFORM
-
- SORT ROW3 DESCENDING TAB3-NR ASCENDING TAB3-DATA
-
- DISPLAY "MULTY KEY SORT" END-DISPLAY
- PERFORM VARYING K FROM 1 BY 1 UNTIL K > 10
- DISPLAY FUNCTION TRIM(ROW3(K))
- END-DISPLAY
- END-PERFORM
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3403: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:3403"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3403"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3404: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:3404"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "SINGLE TABLE
-04
-03
-02
-01
-LOWER LEVEL TABLE
-04
-03
-02
-01
-MULTY KEY SORT
-06 AbCde The
-05 abc cow
-05 abcde eats
-04 zyx grass
-03 abcde and
-02 12345 mooos
-02 12346 the
-01 AbCde whole
-01 abcde day
-01 zyx .
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3404"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_750
-#AT_START_751
-at_fn_group_banner 751 'run_misc.at:3430' \
- "SORT: table (3)" " " 4
-at_xfail=no
-(
- printf "%s\n" "751. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 K PIC 9(2).
-
- 01 CNT1 PIC 9(9) COMP-5 VALUE 4.
- 01 TAB1.
- 05 ROW1 OCCURS 1 TO 4 DEPENDING CNT1
- DESCENDING TAB1-NR.
- 10 TAB1-NR PIC 99.
- 10 TAB-DATA PIC X(5).
- 01 TAB2.
- 05 ROW2 OCCURS 1 TO 4 DEPENDING CNT1
- ASCENDING ROW2.
- 10 TAB2-NR PIC 99.
- 10 TAB2-DATA PIC X(5).
-
- PROCEDURE DIVISION.
- A.
- PERFORM VARYING K FROM 1 BY 1 UNTIL K > 4
- MOVE K TO TAB1-NR (K)
- MOVE 'BLA' TO TAB-DATA(K)
- END-PERFORM
-
- SORT ROW1
-
- PERFORM VARYING K FROM 1 BY 1 UNTIL K > 4
- DISPLAY TAB1-NR(K) NO ADVANCING END-DISPLAY
- END-PERFORM
-
- MOVE TAB1 TO TAB2
- SORT ROW2
-
- PERFORM VARYING K FROM 1 BY 1 UNTIL K > 4
- DISPLAY TAB2-NR(K) NO ADVANCING END-DISPLAY
- END-PERFORM
-
- STOP RUN.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 K PIC 9(2).
-
- 01 CNT1 PIC 9(9) COMP-5 VALUE 4.
- 01 TAB1.
- 05 ROW1 OCCURS 5 DESCENDING TAB1-NR.
- 10 TAB1-NR PIC 99 VALUE ZERO.
- 10 TAB-DATA PIC X(5).
- 01 TAB2.
- 05 ROW1 OCCURS 1 TO 4 DEPENDING CNT1
- DESCENDING TAB1-NR.
- 10 TAB1-NR PIC 99.
- 10 TAB-DATA PIC X(5).
-
- PROCEDURE DIVISION.
- A.
- DISPLAY TAB1-NR OF TAB1 (2) NO ADVANCING END-DISPLAY
-
- PERFORM VARYING K FROM 1 BY 1 UNTIL K > 4
- MOVE K TO TAB1-NR OF TAB2(K)
- MOVE 'BLA' TO TAB-DATA OF TAB2(K)
- END-PERFORM
-
- SORT ROW1 OF TAB2.
-
- PERFORM VARYING K FROM 1 BY 1 UNTIL K > 4
- DISPLAY TAB1-NR OF TAB2(K) NO ADVANCING END-DISPLAY
- END-PERFORM
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3513: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:3513"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3513"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3514: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:3514"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "0403020101020304" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3514"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3516: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_misc.at:3516"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3516"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3517: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "run_misc.at:3517"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "0004030201" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3517"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_751
-#AT_START_752
-at_fn_group_banner 752 'run_misc.at:3522' \
- "SORT: table (toplevel)" " " 4
-at_xfail=no
-(
- printf "%s\n" "752. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 VAL PIC X(5) VALUE "43512".
- 01 TBL REDEFINES VAL PIC X OCCURS 5.
- PROCEDURE DIVISION.
- SORT TBL ASCENDING
- IF VAL NOT = "12345" DISPLAY VAL.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3538: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:3538"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3538"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3539: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:3539"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3539"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_752
-#AT_START_753
-at_fn_group_banner 753 'run_misc.at:3544' \
- "SORT: EBCDIC table" " " 4
-at_xfail=no
-(
- printf "%s\n" "753. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- ALPHABET ALPHA IS EBCDIC.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Z PIC X(10) VALUE "d4b2e1a3c5".
- 01 G.
- 02 TBL OCCURS 10.
- 03 X PIC X.
- PROCEDURE DIVISION.
- MOVE Z TO G.
- * alphabet-name as collation:
- SORT TBL ASCENDING KEY X SEQUENCE ALPHA.
- IF G NOT = "abcde12345"
- DISPLAY G.
- MOVE Z TO G.
- * code-name as collation:
- SORT TBL DESCENDING KEY X SEQUENCE EBCDIC.
- IF G NOT = "54321edcba"
- DISPLAY G.
- STOP RUN.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- OBJECT-COMPUTER.
- x86 PROGRAM COLLATING SEQUENCE IS EBCDIC-CODE.
- SPECIAL-NAMES.
- ALPHABET EBCDIC-CODE IS EBCDIC.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Z PIC X(10) VALUE "d4b2e1a3c5".
- 01 G.
- 02 TBL OCCURS 10.
- 03 X PIC X.
- PROCEDURE DIVISION.
- MOVE Z TO G.
- SORT TBL ASCENDING KEY X.
- IF G NOT = "abcde12345"
- DISPLAY G.
- MOVE Z TO G.
- SORT TBL DESCENDING KEY X.
- IF G NOT = "54321edcba"
- DISPLAY G.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3601: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:3601"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3601"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3602: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:3602"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3602"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3603: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_misc.at:3603"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3603"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3604: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "run_misc.at:3604"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3604"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_753
-#AT_START_754
-at_fn_group_banner 754 'run_misc.at:3608' \
- "SORT: use EXTSM" " " 4
-at_xfail=no
-(
- printf "%s\n" "754. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 OPCODE PIC X(2).
- 78 SD-init value X"FA01".
- 78 SD-release value X"FAF3".
- 78 SD-inp-end value X"FA10".
- 78 SD-return value X"FAF5".
- 78 SD-term value X"FA88".
- 01 FCD.
- COPY "xfhfcd3.cpy".
- 01 EX-FILENAME PIC X(260) VALUE "STEST".
- 01 EX-INDEX-NAME PIC X(100).
- 01 EX-RECORD-BUFFER PIC X(6).
- 78 max-sort-key-num value 20.
- *> Sort-key information area
- 01 sort-key-info.
- 05 Global-Information-Area. *> - 14
- 10 SKey-Def-Area-leng pic 9(04) comp-x.
- 10 Filler pic x(04).
- 10 sort-key-count pic 9(04) comp-x.
- 10 Filler pic x(06).
- 05 sort-key-Def-Area. *> - 16
- 10 sort-key-num pic 9(04) comp-x.
- 10 offset-to-component pic 9(04) comp-x.
- 10 skey-Flags pic 9(02) comp-x.
- 10 skey-Compression pic 9(02) comp-x.
- 10 sparse-Character pic x(01).
- 10 filler pic x(09).
- 05 Component-Def-Area.
- 10 sort-key occurs max-sort-key-num.
- 15 skey-ascending pic x(01).
- 15 skey-type pic x(01).
- 15 skey-offset pic 9(09) comp-x.
- 15 skey-size pic 9(09) comp-x.
- PROCEDURE DIVISION.
- MAIN-RTN.
- * INIT
- MOVE LOW-VALUES TO FCD.
- MOVE LOW-VALUES TO sort-key-info.
- MOVE FCD--VERSION-NUMBER TO FCD-VERSION
- SET FCD-FILENAME-ADDRESS TO ADDRESS OF EX-FILENAME.
- MOVE 80 TO FCD-NAME-LENGTH.
- SET FCD-KEY-DEF-ADDRESS TO
- ADDRESS OF sort-key-info.
- MOVE SD-init TO OPCODE.
- SET FCD-RECORD-ADDRESS TO ADDRESS OF EX-RECORD-BUFFER.
- MOVE 10 TO FCD-CURRENT-REC-LEN.
- MOVE 10 TO FCD-MIN-REC-LENGTH.
- MOVE 10 TO FCD-MAX-REC-LENGTH.
- MOVE 1 TO sort-key-num.
- move 1 TO sort-key-count.
- MOVE 0 TO skey-offset(1).
- MOVE 3 TO skey-size(1).
- move 30 TO offset-to-component.
- move X"80" TO skey-ascending(1).
- move X"00" TO skey-type(1).
- *> "INIT".
- CALL "EXTSM" USING OPCODE, FCD.
- *> "RELEASE".
- MOVE SD-release TO OPCODE.
- MOVE "BBB111" TO EX-RECORD-BUFFER.
- CALL "EXTSM" USING OPCODE, FCD.
-
- MOVE "CCC333" TO EX-RECORD-BUFFER.
- CALL "EXTSM" USING OPCODE, FCD.
-
- MOVE "AAA222" TO EX-RECORD-BUFFER.
- CALL "EXTSM" USING OPCODE, FCD.
- *> "INPUT END".
- MOVE SD-inp-end TO OPCODE.
- CALL "EXTSM" USING OPCODE, FCD.
-
- *> "RETURN".
- MOVE SD-return TO OPCODE.
- CALL "EXTSM" USING OPCODE, FCD.
- DISPLAY EX-RECORD-BUFFER.
-
- CALL "EXTSM" USING OPCODE, FCD.
- DISPLAY EX-RECORD-BUFFER.
-
- CALL "EXTSM" USING OPCODE, FCD.
- DISPLAY EX-RECORD-BUFFER.
-
- *> "AT END".
- CALL "EXTSM" USING OPCODE, FCD.
- DISPLAY FCD-FILE-STATUS.
-
- *> "TERM".
- MOVE SD-term TO OPCODE.
- CALL "EXTSM" USING OPCODE, FCD.
- MAIN-EXT.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3708: \$COMPILE -std=mf prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=mf prog.cob" "run_misc.at:3708"
-( $at_check_trace; $COMPILE -std=mf prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3708"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3709: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:3709"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "AAA222
-BBB111
-CCC333
-10
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3709"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_754
-#AT_START_755
-at_fn_group_banner 755 'run_misc.at:3719' \
- "Alphanum comparison with default COLLATING SEQUENCE" "" 4
-at_xfail=no
-(
- printf "%s\n" "755. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- >>IF EXPECT-ORDER = 'ASCII'
- IF "1" NOT < "a"
- >>ELIF EXPECT-ORDER = 'EBCDIC'
- IF "a" NOT < "1"
- >>END-IF
- DISPLAY "ERROR" END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3736: \$COMPILE -fdefault-colseq=ascii -DEXPECT-ORDER=ASCII -o ascii prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fdefault-colseq=ascii -DEXPECT-ORDER=ASCII -o ascii prog.cob" "run_misc.at:3736"
-( $at_check_trace; $COMPILE -fdefault-colseq=ascii -DEXPECT-ORDER=ASCII -o ascii prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: warning: expression '1' GREATER OR EQUAL 'a' is always FALSE
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3736"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3739: \$COBCRUN_DIRECT ./ascii"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./ascii" "run_misc.at:3739"
-( $at_check_trace; $COBCRUN_DIRECT ./ascii
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3739"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3741: \$COMPILE -fdefault-colseq=ebcdic -DEXPECT-ORDER=EBCDIC -o ebcdic prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fdefault-colseq=ebcdic -DEXPECT-ORDER=EBCDIC -o ebcdic prog.cob" "run_misc.at:3741"
-( $at_check_trace; $COMPILE -fdefault-colseq=ebcdic -DEXPECT-ORDER=EBCDIC -o ebcdic prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3741"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3742: \$COBCRUN_DIRECT ./ebcdic"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./ebcdic" "run_misc.at:3742"
-( $at_check_trace; $COBCRUN_DIRECT ./ebcdic
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3742"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_755
-#AT_START_756
-at_fn_group_banner 756 'run_misc.at:3747' \
- "SORT: table with default COLLATING SEQUENCE" " " 4
-at_xfail=no
-(
- printf "%s\n" "756. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Z PIC X(10) VALUE "d4b2e1a3c5".
- 01 G REDEFINES Z.
- 02 TBL OCCURS 10.
- 03 X PIC X.
- PROCEDURE DIVISION.
- SORT TBL ASCENDING KEY X.
- >>IF EXPECT-ORDER = 'ASCII'
- IF G NOT = "12345abcde"
- >>ELIF EXPECT-ORDER = 'EBCDIC'
- IF G NOT = "abcde12345"
- >>ELSE *> = 'NATIVE'
- IF NOT G = "12345abcde" OR "abcde12345"
- >>END-IF
- DISPLAY G END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3773: \$COMPILE -fdefault-colseq=ascii -DEXPECT-ORDER=ASCII -o ascii prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fdefault-colseq=ascii -DEXPECT-ORDER=ASCII -o ascii prog.cob" "run_misc.at:3773"
-( $at_check_trace; $COMPILE -fdefault-colseq=ascii -DEXPECT-ORDER=ASCII -o ascii prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3773"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3774: \$COBCRUN_DIRECT ./ascii"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./ascii" "run_misc.at:3774"
-( $at_check_trace; $COBCRUN_DIRECT ./ascii
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3774"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3775: \$COMPILE -fdefault-colseq=ebcdic -DEXPECT-ORDER=EBCDIC -o ebcdic prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fdefault-colseq=ebcdic -DEXPECT-ORDER=EBCDIC -o ebcdic prog.cob" "run_misc.at:3775"
-( $at_check_trace; $COMPILE -fdefault-colseq=ebcdic -DEXPECT-ORDER=EBCDIC -o ebcdic prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3775"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3776: \$COBCRUN_DIRECT ./ebcdic"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./ebcdic" "run_misc.at:3776"
-( $at_check_trace; $COBCRUN_DIRECT ./ebcdic
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3776"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3777: \$COMPILE -fdefault-colseq=native -DEXPECT-ORDER=NATIVE -o native prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fdefault-colseq=native -DEXPECT-ORDER=NATIVE -o native prog.cob" "run_misc.at:3777"
-( $at_check_trace; $COMPILE -fdefault-colseq=native -DEXPECT-ORDER=NATIVE -o native prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3777"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:3778: \$COBCRUN_DIRECT ./native"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./native" "run_misc.at:3778"
-( $at_check_trace; $COBCRUN_DIRECT ./native
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:3778"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_756
-#AT_START_757
-at_fn_group_banner 757 'run_misc.at:3783' \
- "JUSTIFIED and VALUE clauses" " " 4
-at_xfail=no
-(
- printf "%s\n" "757. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. PROG.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 ARR-ARRAY.
- 03 ARR-ENTRY OCCURS 6 TIMES.
- 05 ARR-FLD1 PIC X(10)
- VALUE 'RIGHT' JUSTIFIED RIGHT.
- 05 ARR-FLD2 PIC X(10)
- VALUE 'LEFT'.
- 05 ARR-FLD3 OCCURS 6 TIMES.
- 10 ARR-FLD4 PIC X(10)
- VALUE 'RIGHT' JUSTIFIED RIGHT.
- 10 ARR-FLD5 PIC X(10)
- VALUE 'LEFT'.
-
- 01 CNTR PIC S9(4) COMP.
- 01 CNTR2 PIC S9(4) COMP.
-
- 77 ELE PIC X(10)
- VALUE 'RIGHT' JUSTIFIED RIGHT.
- 77 ELE2 PIC X(10)
- VALUE 'R' JUSTIFIED RIGHT.
- 77 ELE3 PIC X(10)
- VALUE 'RRRRRRRRR' JUSTIFIED RIGHT.
- 77 ELE4 PIC X(10)
- VALUE 'RRRRRRRRRR' JUSTIFIED RIGHT.
- 77 ELE5 PIC X(1003)
- VALUE 'RRR' JUSTIFIED RIGHT.
-
- PROCEDURE DIVISION.
-
- >>IF JUSTIFY EQUAL 'JUSTIFY'
- PERFORM 1000-JUSTIFY-IS-RIGHT THRU 1000-EXIT.
- >>ELSE
- PERFORM 2000-JUSTIFY-IS-OFF THRU 2000-EXIT.
- >>END-IF
-
- IF ELE4 NOT EQUAL 'RRRRRRRRRR'
- DISPLAY 'ELE4 NOT INITIALIZED CORRECTLY' ELE4
- END-IF.
-
- STOP RUN.
-
-
- 1000-JUSTIFY-IS-RIGHT.
-
- IF ELE NOT EQUAL ' RIGHT'
- DISPLAY 'ELE NOT INITIALIZED CORRECTLY ' ELE
- END-IF.
-
- IF ELE2 NOT EQUAL ' R'
- DISPLAY 'ELE2 NOT INITIALIZED CORRECTLY ' ELE2
- END-IF.
-
- IF ELE3 NOT EQUAL ' RRRRRRRRR'
- DISPLAY 'ELE3 NOT INITIALIZED CORRECTLY ' ELE3
- END-IF.
-
- IF ELE5 (1:1000) NOT EQUAL SPACES
- OR ELE5 (1001:) NOT EQUAL "RRR"
- DISPLAY 'ELE5 NOT INITIALIZED CORRECTLY ' ELE5
- END-IF.
-
- IF ARR-FLD1 (2) NOT EQUAL ' RIGHT'
- DISPLAY 'ARR-FLD1 (2) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- IF ARR-FLD2 (2) NOT EQUAL 'LEFT '
- DISPLAY 'ARR-FLD2 (2) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- IF ARR-FLD1 (6) NOT EQUAL ' RIGHT'
- DISPLAY 'ARR-FLD1 (6) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- IF ARR-FLD2 (6) NOT EQUAL 'LEFT '
- DISPLAY 'ARR-FLD2 (6) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- IF ARR-FLD4 (2,3) NOT EQUAL ' RIGHT'
- DISPLAY 'ARR-FLD4 (2,3) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- IF ARR-FLD5 (2,3) NOT EQUAL 'LEFT '
- DISPLAY 'ARR-FLD5 (2,3) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- IF ARR-FLD4 (6,6) NOT EQUAL ' RIGHT'
- DISPLAY 'ARR-FLD4 (6,6) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- IF ARR-FLD5 (6,6) NOT EQUAL 'LEFT '
- DISPLAY 'ARR-FLD5 (6,6) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- MOVE ALL 'X' TO ARR-ARRAY.
- MOVE ALL 'X' TO ELE.
-
- INITIALIZE ELE WITH FILLER ALL TO VALUE.
- INITIALIZE ARR-ARRAY WITH FILLER ALL TO VALUE.
-
- IF ELE NOT EQUAL ' RIGHT'
- DISPLAY 'ELE NOT INITIALIZED CORRECTLY'
- END-IF.
-
- IF ARR-FLD1 (2) NOT EQUAL ' RIGHT'
- DISPLAY 'ARR-FLD1 (2) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- IF ARR-FLD2 (2) NOT EQUAL 'LEFT '
- DISPLAY 'ARR-FLD2 (2) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- IF ARR-FLD1 (6) NOT EQUAL ' RIGHT'
- DISPLAY 'ARR-FLD1 (6) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- IF ARR-FLD2 (6) NOT EQUAL 'LEFT '
- DISPLAY 'ARR-FLD2 (6) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- IF ARR-FLD4 (2,3) NOT EQUAL ' RIGHT'
- DISPLAY 'ARR-FLD4 (2,3) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- IF ARR-FLD5 (2,3) NOT EQUAL 'LEFT '
- DISPLAY 'ARR-FLD5 (2,3) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- IF ARR-FLD4 (6,6) NOT EQUAL ' RIGHT'
- DISPLAY 'ARR-FLD4 (6,6) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- IF ARR-FLD5 (6,6) NOT EQUAL 'LEFT '
- DISPLAY 'ARR-FLD5 (6,6) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- 1000-EXIT. EXIT.
-
-
- 2000-JUSTIFY-IS-OFF.
-
- IF ELE NOT EQUAL 'RIGHT '
- DISPLAY 'ELE NOT INITIALIZED CORRECTLY ' ELE
- END-IF.
-
- IF ELE2 NOT EQUAL 'R '
- DISPLAY 'ELE2 NOT INITIALIZED CORRECTLY ' ELE2
- END-IF.
-
- IF ELE3 NOT EQUAL 'RRRRRRRRR '
- DISPLAY 'ELE3 NOT INITIALIZED CORRECTLY ' ELE3
- END-IF.
-
- IF ELE5 (1:3) NOT EQUAL "RRR"
- OR ELE5 (4:) NOT EQUAL SPACES
- DISPLAY 'ELE5 NOT INITIALIZED CORRECTLY ' ELE5
- END-IF.
-
- IF ARR-FLD1 (2) NOT EQUAL 'RIGHT '
- DISPLAY 'ARR-FLD1 (2) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- IF ARR-FLD2 (2) NOT EQUAL 'LEFT '
- DISPLAY 'ARR-FLD2 (2) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- IF ARR-FLD1 (6) NOT EQUAL 'RIGHT '
- DISPLAY 'ARR-FLD1 (6) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- IF ARR-FLD2 (6) NOT EQUAL 'LEFT '
- DISPLAY 'ARR-FLD2 (6) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- IF ARR-FLD4 (2,3) NOT EQUAL 'RIGHT '
- DISPLAY 'ARR-FLD4 (2,3) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- IF ARR-FLD5 (2,3) NOT EQUAL 'LEFT '
- DISPLAY 'ARR-FLD5 (2,3) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- IF ARR-FLD4 (6,6) NOT EQUAL 'RIGHT '
- DISPLAY 'ARR-FLD4 (6,6) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- IF ARR-FLD5 (6,6) NOT EQUAL 'LEFT '
- DISPLAY 'ARR-FLD5 (6,6) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- MOVE ALL 'X' TO ARR-ARRAY.
- MOVE ALL 'X' TO ELE.
-
- INITIALIZE ELE WITH FILLER ALL TO VALUE.
- INITIALIZE ARR-ARRAY WITH FILLER ALL TO VALUE.
-
- IF ELE NOT EQUAL 'RIGHT '
- DISPLAY 'ELE NOT INITIALIZED CORRECTLY'
- END-IF.
-
- IF ARR-FLD1 (2) NOT EQUAL 'RIGHT '
- DISPLAY 'ARR-FLD1 (2) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- IF ARR-FLD2 (2) NOT EQUAL 'LEFT '
- DISPLAY 'ARR-FLD2 (2) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- IF ARR-FLD1 (6) NOT EQUAL 'RIGHT '
- DISPLAY 'ARR-FLD1 (6) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- IF ARR-FLD2 (6) NOT EQUAL 'LEFT '
- DISPLAY 'ARR-FLD2 (6) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- IF ARR-FLD4 (2,3) NOT EQUAL 'RIGHT '
- DISPLAY 'ARR-FLD4 (2,3) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- IF ARR-FLD5 (2,3) NOT EQUAL 'LEFT '
- DISPLAY 'ARR-FLD5 (2,3) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- IF ARR-FLD4 (6,6) NOT EQUAL 'RIGHT '
- DISPLAY 'ARR-FLD4 (6,6) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- IF ARR-FLD5 (6,6) NOT EQUAL 'LEFT '
- DISPLAY 'ARR-FLD5 (6,6) NOT INITIALIZED CORRECTLY'
- END-IF.
-
- 2000-EXIT. EXIT.
-
-
- END PROGRAM PROG.
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4029: \$COMPILE -std=ibm -DJUSTIFY=JUSTIFY -o prog prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=ibm -DJUSTIFY=JUSTIFY -o prog prog.cob" "run_misc.at:4029"
-( $at_check_trace; $COMPILE -std=ibm -DJUSTIFY=JUSTIFY -o prog prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4029"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4030: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:4030"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4030"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4031: \$COMPILE -std=cobol2014 -DJUSTIFY=OFF -o prog prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=cobol2014 -DJUSTIFY=OFF -o prog prog.cob" "run_misc.at:4031"
-( $at_check_trace; $COMPILE -std=cobol2014 -DJUSTIFY=OFF -o prog prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4031"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4032: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:4032"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4032"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_757
-#AT_START_758
-at_fn_group_banner 758 'run_misc.at:4037' \
- "SEARCH ALL: table with default COLLATING SEQUENCE" "" 4
-at_xfail=no
-(
- printf "%s\n" "758. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Z PIC X(10) VALUE "d4b2e1a3c5".
- 01 G REDEFINES Z.
- 02 TBL OCCURS 10 ASCENDING KEY K INDEXED BY I.
- 03 K PIC X.
- 01 KK PIC X.
- PROCEDURE DIVISION.
- SORT TBL ASCENDING KEY K.
- SET KK TO "3"
- SEARCH ALL TBL
- AT END
- DISPLAY KK " NOT FOUND"
- WHEN K (I) = KK
- CONTINUE
- END-SEARCH
- >>IF EXPECT-ORDER = 'ASCII'
- IF I NOT = 3
- >>ELIF EXPECT-ORDER = 'EBCDIC'
- IF I NOT = 8
- >>END-IF
- DISPLAY "ERROR" END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4068: \$COMPILE -fdefault-colseq=ascii -DEXPECT-ORDER=ASCII -o ascii prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fdefault-colseq=ascii -DEXPECT-ORDER=ASCII -o ascii prog.cob" "run_misc.at:4068"
-( $at_check_trace; $COMPILE -fdefault-colseq=ascii -DEXPECT-ORDER=ASCII -o ascii prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4068"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4069: \$COBCRUN_DIRECT ./ascii"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./ascii" "run_misc.at:4069"
-( $at_check_trace; $COBCRUN_DIRECT ./ascii
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4069"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4071: \$COMPILE -fdefault-colseq=ebcdic -DEXPECT-ORDER=EBCDIC -o ebcdic prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fdefault-colseq=ebcdic -DEXPECT-ORDER=EBCDIC -o ebcdic prog.cob" "run_misc.at:4071"
-( $at_check_trace; $COMPILE -fdefault-colseq=ebcdic -DEXPECT-ORDER=EBCDIC -o ebcdic prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4071"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4072: \$COBCRUN_DIRECT ./ebcdic"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./ebcdic" "run_misc.at:4072"
-( $at_check_trace; $COBCRUN_DIRECT ./ebcdic
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4072"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_758
-#AT_START_759
-at_fn_group_banner 759 'run_misc.at:4077' \
- "PIC ZZZ-, ZZZ+" " " 4
-at_xfail=no
-(
- printf "%s\n" "759. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X-ZZZN PIC ZZZ-.
- 01 XZN-RED REDEFINES X-ZZZN PIC X(4).
- 01 X-ZZZP PIC ZZZ+.
- 01 XZP-RED REDEFINES X-ZZZP PIC X(4).
- PROCEDURE DIVISION.
- MOVE -1 TO X-ZZZN.
- IF XZN-RED NOT = " 1-"
- DISPLAY "(" X-ZZZN ")".
- MOVE 0 TO X-ZZZN.
- IF XZN-RED NOT = " "
- DISPLAY "(" X-ZZZN ")".
- MOVE +1 TO X-ZZZN.
- IF XZN-RED NOT = " 1 "
- DISPLAY "(" X-ZZZN ")".
-
- MOVE -1 TO X-ZZZP.
- IF XZP-RED NOT = " 1-"
- DISPLAY "(" X-ZZZP ")".
- MOVE 0 TO X-ZZZP.
- IF XZP-RED NOT = " "
- DISPLAY "(" X-ZZZP ")".
- MOVE +1 TO X-ZZZP.
- IF XZP-RED NOT = " 1+"
- DISPLAY "(" X-ZZZP ")".
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4112: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:4112"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4112"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4113: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:4113"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4113"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_759
-#AT_START_760
-at_fn_group_banner 760 'run_misc.at:4118' \
- "PERFORM type OSVS" " " 4
-at_xfail=no
-(
- printf "%s\n" "760. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 MYOCC PIC 9(8) COMP VALUE 0.
- PROCEDURE DIVISION.
- ASTART SECTION.
- A01.
- PERFORM BTEST.
- IF MYOCC NOT = 2
- DISPLAY MYOCC.
- STOP RUN.
- BTEST SECTION.
- B01.
- PERFORM B02 VARYING MYOCC FROM 1 BY 1
- UNTIL MYOCC > 5.
- GO TO B99.
- B02.
- IF MYOCC > 1
- GO TO B99
- END-IF.
- B99.
- EXIT.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4147: \$COMPILE -fperform-osvs prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fperform-osvs prog.cob" "run_misc.at:4147"
-( $at_check_trace; $COMPILE -fperform-osvs prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4147"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4148: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:4148"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4148"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_760
-#AT_START_761
-at_fn_group_banner 761 'run_misc.at:4153' \
- "Sticky LINKAGE" " " 4
-at_xfail=no
-(
- printf "%s\n" "761. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 P1 PIC X.
- 01 P2 PIC X(6).
- 01 P3 PIC X(6).
- PROCEDURE DIVISION USING P1 P2.
- IF P1 = "A"
- SET ADDRESS OF P3 TO ADDRESS OF P2
- ELSE
- IF P3 NOT = "OKOKOK"
- DISPLAY P3.
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 P1 PIC X VALUE "A".
- 01 P2 PIC X(6) VALUE "NOT OK".
- PROCEDURE DIVISION.
- CALL "callee" USING P1 P2.
- MOVE "B" TO P1.
- MOVE "OKOKOK" TO P2.
- CALL "callee" USING P1.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4188: \$COMPILE_MODULE -fsticky-linkage callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE -fsticky-linkage callee.cob" "run_misc.at:4188"
-( $at_check_trace; $COMPILE_MODULE -fsticky-linkage callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4188"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4189: \$COMPILE -fsticky-linkage caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fsticky-linkage caller.cob" "run_misc.at:4189"
-( $at_check_trace; $COMPILE -fsticky-linkage caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4189"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4190: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_misc.at:4190"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4190"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_761
-#AT_START_762
-at_fn_group_banner 762 'run_misc.at:4195' \
- "COB_PRE_LOAD" " " 4
-at_xfail=no
-(
- printf "%s\n" "762. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee2.
- PROCEDURE DIVISION.
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- PROCEDURE DIVISION.
- CALL "callee2"
- END-CALL.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4214: \$COMPILE_MODULE callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee.cob" "run_misc.at:4214"
-( $at_check_trace; $COMPILE_MODULE callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4214"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4215: \$COMPILE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE caller.cob" "run_misc.at:4215"
-( $at_check_trace; $COMPILE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4215"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4216: COB_PRE_LOAD=callee \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "COB_PRE_LOAD=callee $COBCRUN_DIRECT ./caller" "run_misc.at:4216"
-( $at_check_trace; COB_PRE_LOAD=callee $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4216"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_762
-#AT_START_763
-at_fn_group_banner 763 'run_misc.at:4221' \
- "COB_PRE_LOAD with entry points" " " 4
-at_xfail=no
-(
- printf "%s\n" "763. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
-
- 01 VAR1 PIC X(5) VALUE '12abc'.
- 01 VAR2 PIC X(2) VALUE '11'.
-
- PROCEDURE DIVISION.
-
- ENTRY 'ent1'.
- DISPLAY VAR1 END-DISPLAY
- GOBACK.
-
- ENTRY 'ent2'.
- DISPLAY VAR2 END-DISPLAY
- GOBACK.
-_ATEOF
-
-
-cat >prog1.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog1.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
-
- 01 VAR2 PIC X(2) VALUE '55'.
- 01 VAR3 PIC X(5) VALUE 'xxxxx'.
-
- PROCEDURE DIVISION.
-
- ENTRY 'ent2'.
- DISPLAY VAR2 END-DISPLAY
- GOBACK.
-
- ENTRY 'ent3'.
- DISPLAY VAR3 END-DISPLAY
- GOBACK.
-_ATEOF
-
-
-cat >main-prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. main-prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
-
- CALL 'ent1' END-CALL
- CALL 'ent2' END-CALL
- CALL 'ent3' END-CALL
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4280: \$COMPILE_MODULE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE prog.cob" "run_misc.at:4280"
-( $at_check_trace; $COMPILE_MODULE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4280"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4281: \$COMPILE_MODULE prog1.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE prog1.cob" "run_misc.at:4281"
-( $at_check_trace; $COMPILE_MODULE prog1.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4281"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4282: \$COMPILE main-prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE main-prog.cob" "run_misc.at:4282"
-( $at_check_trace; $COMPILE main-prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4282"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4283: COB_PRE_LOAD=\"prog\"\$PATHSEP\"prog1\" \$COBCRUN_DIRECT ./main-prog"
-at_fn_check_prepare_dynamic "COB_PRE_LOAD=\"prog\"$PATHSEP\"prog1\" $COBCRUN_DIRECT ./main-prog" "run_misc.at:4283"
-( $at_check_trace; COB_PRE_LOAD="prog"$PATHSEP"prog1" $COBCRUN_DIRECT ./main-prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "12abc
-11
-xxxxx
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4283"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_763
-#AT_START_764
-at_fn_group_banner 764 'run_misc.at:4292' \
- "Lookup ENTRY from main executable" " " 4
-at_xfail=no
-(
- printf "%s\n" "764. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 PROGRAM-LINK USAGE PROGRAM-POINTER.
-
- PROCEDURE DIVISION.
- SET PROGRAM-LINK TO ENTRY "subprogram"
- IF PROGRAM-LINK EQUAL NULL THEN
- DISPLAY "error: no subprogram linkage" UPON SYSERR
- END-DISPLAY
- ELSE
- CALL PROGRAM-LINK
- ON EXCEPTION
- DISPLAY "hard error: unable to invoke subprogram"
- UPON SYSERR
- END-DISPLAY
- END-CALL
- DISPLAY RETURN-CODE WITH NO ADVANCING
- END-DISPLAY
- END-IF
- GOBACK.
-
- ENTRY "subprogram".
- DISPLAY "subprogram" WITH NO ADVANCING
- END-DISPLAY
- SET RETURN-CODE TO 42
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4327: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:4327"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4327"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4328: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:4328"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "subprogram+000000042" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 42 $at_status "$at_srcdir/run_misc.at:4328"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_764
-#AT_START_765
-at_fn_group_banner 765 'run_misc.at:4333' \
- "COB_LOAD_CASE=UPPER" " " 4
-at_xfail=no
-(
- printf "%s\n" "765. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >CALLEE.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- PROCEDURE DIVISION.
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- PROCEDURE DIVISION.
- CALL "callee"
- END-CALL.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4352: \$COMPILE_MODULE CALLEE.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE CALLEE.cob" "run_misc.at:4352"
-( $at_check_trace; $COMPILE_MODULE CALLEE.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4352"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4353: \$COMPILE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE caller.cob" "run_misc.at:4353"
-( $at_check_trace; $COMPILE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4353"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4354: COB_LOAD_CASE=UPPER ./caller"
-at_fn_check_prepare_trace "run_misc.at:4354"
-( $at_check_trace; COB_LOAD_CASE=UPPER ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4354"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_765
-#AT_START_766
-at_fn_group_banner 766 'run_misc.at:4359' \
- "ALLOCATE / FREE with BASED item (1)" " " 4
-at_xfail=no
-(
- printf "%s\n" "766. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 MYFLD PIC X(6) BASED VALUE "ABCDEF".
- PROCEDURE DIVISION.
- ASTART SECTION.
- A01.
- ALLOCATE MYFLD INITIALIZED
- IF MYFLD NOT = "ABCDEF"
- DISPLAY MYFLD
- END-IF
- FREE ADDRESS OF MYFLD
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4379: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:4379"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4379"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4380: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:4380"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4380"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_766
-#AT_START_767
-at_fn_group_banner 767 'run_misc.at:4385' \
- "ALLOCATE / FREE with BASED item (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "767. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 MYFLD BASED.
- 03 MYFLDX PIC X.
- 03 MYFLD9 PIC 9.
- PROCEDURE DIVISION.
- IF ADDRESS OF MYFLD NOT = NULL
- DISPLAY "BASED ITEM WITH ADDRESS ON START"
- END-IF
- FREE MYFLD
- ALLOCATE MYFLD
- IF ADDRESS OF MYFLD = NULL
- DISPLAY "BASED ITEM WITHOUT ADDRESS AFTER ALLOCATE"
- END-IF
- INITIALIZE MYFLD
- IF MYFLD NOT = " 0"
- DISPLAY "BASED ITEM INITIALIZED WRONG: "
- WITH NO ADVANCING
- END-DISPLAY
- DISPLAY MYFLD
- END-IF
-
- FREE ADDRESS OF MYFLD
- IF ADDRESS OF MYFLD NOT = NULL
- DISPLAY "BASED ITEM WITH ADDRESS AFTER FREE"
- END-IF
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4420: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:4420"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4420"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4421: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:4421"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4421"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# Run both executable and module as we have a different code generation here
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4423: \$COMPILE_MODULE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE prog.cob" "run_misc.at:4423"
-( $at_check_trace; $COMPILE_MODULE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4423"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4424: \$COBCRUN prog"
-at_fn_check_prepare_dynamic "$COBCRUN prog" "run_misc.at:4424"
-( $at_check_trace; $COBCRUN prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4424"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_767
-#AT_START_768
-at_fn_group_banner 768 'run_misc.at:4429' \
- "ALLOCATE CHARACTERS INITIALIZED (TO)" " " 4
-at_xfail=no
-(
- printf "%s\n" "768. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 MYPTR USAGE POINTER.
- LINKAGE SECTION.
- 01 MYFLD PIC X(4).
- PROCEDURE DIVISION.
- ASTART SECTION.
- A01.
- ALLOCATE 4 CHARACTERS
- INITIALIZED TO "ABCD"
- RETURNING MYPTR
- SET ADDRESS OF MYFLD TO MYPTR
- IF MYFLD NOT = "ABCD"
- DISPLAY MYFLD
- END-IF
- FREE MYPTR
- ALLOCATE 4 CHARACTERS
- INITIALIZED TO ALL "Z"
- RETURNING MYPTR
- SET ADDRESS OF MYFLD TO MYPTR
- IF MYFLD NOT = "ZZZZ"
- DISPLAY MYFLD
- END-IF
- FREE MYPTR
- ALLOCATE 4 CHARACTERS
- INITIALIZED
- RETURNING MYPTR
- SET ADDRESS OF MYFLD TO MYPTR
- IF MYFLD NOT = LOW-VALUES
- DISPLAY MYFLD
- END-IF
- FREE MYPTR
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4470: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:4470"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4470"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4471: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:4471"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4471"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_768
-#AT_START_769
-at_fn_group_banner 769 'run_misc.at:4476' \
- "Initialized value with defaultbyte" " " 4
-at_xfail=no
-(
- printf "%s\n" "769. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 MYFLD PIC X(6).
- PROCEDURE DIVISION.
- ASTART SECTION.
- A01.
- IF MYFLD NOT = "AAAAAA"
- DISPLAY MYFLD
- END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4494: \$COMPILE -fdefaultbyte=A prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fdefaultbyte=A prog.cob" "run_misc.at:4494"
-( $at_check_trace; $COMPILE -fdefaultbyte=A prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4494"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4495: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:4495"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4495"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_769
-#AT_START_770
-at_fn_group_banner 770 'run_misc.at:4500' \
- "CALL with OMITTED parameter" " " 4
-at_xfail=no
-(
- printf "%s\n" "770. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 P1 PIC X.
- 01 P2 PIC X(6).
- PROCEDURE DIVISION USING P1 OPTIONAL P2.
- IF P2 NOT OMITTED
- DISPLAY P2
- END-IF
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 P1 PIC X VALUE "A".
- PROCEDURE DIVISION.
- CALL "callee" USING P1
- CALL "callee" USING P1 OMITTED
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4529: \$COMPILE_MODULE callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee.cob" "run_misc.at:4529"
-( $at_check_trace; $COMPILE_MODULE callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4529"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4530: \$COMPILE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE caller.cob" "run_misc.at:4530"
-( $at_check_trace; $COMPILE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4530"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4531: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_misc.at:4531"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4531"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_770
-#AT_START_771
-at_fn_group_banner 771 'run_misc.at:4536' \
- "direct CALL in from C w/wo error" " " 4
-at_xfail=no
-(
- printf "%s\n" "771. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# tests and showcases direct C calls, including:
-# as long as the module comes back the caller has control
-# and its return code; but not in the case for errors or STOP RUN
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 P1 PIC X.
- 01 P2 PIC X(6).
- PROCEDURE DIVISION USING P1 OPTIONAL P2.
- IF P2 NOT OMITTED
- DISPLAY 'UNEXPECTED P2: ' P2
- END-DISPLAY
- END-IF
- DISPLAY 'P1: ' P1 WITH NO ADVANCING.
- GOBACK.
-_ATEOF
-
-
-cat >callee2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee2.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 P PIC 99.
- PROCEDURE DIVISION USING P.
- DISPLAY 'P: ' P WITH NO ADVANCING.
- STOP RUN RETURNING P.
-_ATEOF
-
-
-cat >caller.c <<'_ATEOF'
-
-#include <stdio.h>
-#include <libcob.h>
-
-#ifndef NULL
-#define NULL (void*)0
-#endif
-
-int
-main (int argc, char **argv)
-{
- /* for storing COBOL return code */
- int cob_ret;
-
- /* initialize parameters */
- void *cob_argv[2];
-
- cob_argv[0] = argv[2];
- cob_argv[1] = NULL;
-
- /* initialize the COBOL run-time library */
- cob_init(argc, argv);
-
- /* call COBOL program */
- cob_ret = cob_call (argv[1], 2, cob_argv);
-
- cob_runtime_hint("program exited normally, "
- "without STOP RUN with status %d", cob_ret);
-
- /* Clean up and terminate - This does not return */
- cob_stop_run (cob_ret);
-}
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4604: \$COMPILE caller.c"
-at_fn_check_prepare_dynamic "$COMPILE caller.c" "run_misc.at:4604"
-( $at_check_trace; $COMPILE caller.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4604"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4605: \$COMPILE_MODULE callee.cob callee2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee.cob callee2.cob" "run_misc.at:4605"
-( $at_check_trace; $COMPILE_MODULE callee.cob callee2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4605"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4606: \$COBCRUN_DIRECT ./caller callee A"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller callee A" "run_misc.at:4606"
-( $at_check_trace; $COBCRUN_DIRECT ./caller callee A
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "note: program exited normally, without STOP RUN with status 0
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "P1: A" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4606"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4609: \$COBCRUN_DIRECT ./caller callee2 42"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller callee2 42" "run_misc.at:4609"
-( $at_check_trace; $COBCRUN_DIRECT ./caller callee2 42
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "P: 42" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 42 $at_status "$at_srcdir/run_misc.at:4609"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4610: \$COBCRUN_DIRECT ./caller notthere"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller notthere" "run_misc.at:4610"
-( $at_check_trace; $COBCRUN_DIRECT ./caller notthere
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: error: module 'notthere' not found
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:4610"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_771
-#AT_START_772
-at_fn_group_banner 772 'run_misc.at:4617' \
- "direct CALL in from C w/wo error; no exit" " " 4
-at_xfail=no
-(
- printf "%s\n" "772. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# tests and showcases the "functional call" of GnuCOBOL modules;
-# in every case (plain goback, STOP RUN, error) the caller gets control,
-# but the actual return / error code has to be queried with an extra call
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 P1 PIC X.
- 01 RC PIC 99.
- 01 P2 PIC X(6).
- PROCEDURE DIVISION USING P1 RC OPTIONAL P2.
- IF P2 NOT OMITTED
- DISPLAY 'UNEXPECTED P2: ' P2.
- DISPLAY 'P1: ' P1 WITH NO ADVANCING
- GOBACK RETURNING RC.
-_ATEOF
-
-
-cat >callee2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee2.
- PROCEDURE DIVISION.
- DISPLAY 'STOP WITH 2' WITH NO ADVANCING
- STOP RUN RETURNING 2.
-_ATEOF
-
-
-cat >buggy.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. buggy.
- DATA DIVISION.
- LOCAL-STORAGE SECTION.
- 77 VAR PIC X.
- 77 VPOS PIC 9 VALUE 2.
- PROCEDURE DIVISION.
- DISPLAY 'out of bounds - refmod following' WITH NO ADVANCING
- DISPLAY VAR (VPOS:)
- DISPLAY 'AFTER ERROR'
- GOBACK.
-_ATEOF
-
-
-cat >caller.c <<'_ATEOF'
-
-#include <stdio.h>
-#include <libcob.h>
-
-#ifndef NULL
-#define NULL (void*)0
-#endif
-
-int
-main (int argc, char **argv)
-{
- /* for storing libcob return state */
- int cob_ret;
-
- /* initialize parameters */
- void *cob_argv[3];
-
- char *p1 = "A";
- cob_argv[0] = p1;
- cob_argv[1] = argv[2];
- cob_argv[2] = NULL;
-
- /* initialize the COBOL run-time library */
- cob_init (argc, argv);
-
- /* call COBOL program */
- cob_ret = cob_call_with_exception_check (argv[1], 2, cob_argv);
-
- switch (cob_ret) {
- case 0: /* program coming back */
-
- /* Clean up and terminate runtime */
- cob_runtime_hint ("program exited with return code %d",
- cob_last_exit_code ());
- cob_tidy ();
- break;
-
- case 1: /* normal exit */
- cob_runtime_hint ("STOP RUN with return code %d",
- cob_last_exit_code ());
- break;
-
- case -1: /* error exit */
- cob_runtime_hint ("error exit with return code %d and error \"%s\"",
- cob_last_exit_code (), cob_last_runtime_error ());
- break;
-
- case -2: /* hard error exit */
- cob_runtime_hint ("hard error exit with return code %d and error \"%s\"",
- cob_last_exit_code (), cob_last_runtime_error ());
- break;
-
- case -3: /* signal handler exit */
- cob_runtime_hint ("signal handler exit with signal %d and error \"%s\"",
- cob_last_exit_code (), cob_last_runtime_error ());
- break;
-
- default:
- cob_runtime_hint ("unexpected return from cob_call_with_exception_check, "
- "last exit code %d, last error \"%s\"",
- cob_last_exit_code (), cob_last_runtime_error ());
- break;
- }
- return 0;
-}
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4728: \$COMPILE caller.c"
-at_fn_check_prepare_dynamic "$COMPILE caller.c" "run_misc.at:4728"
-( $at_check_trace; $COMPILE caller.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4728"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4729: \$COMPILE_MODULE callee.cob callee2.cob buggy.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee.cob callee2.cob buggy.cob" "run_misc.at:4729"
-( $at_check_trace; $COMPILE_MODULE callee.cob callee2.cob buggy.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4729"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4730: \$COBCRUN_DIRECT ./caller callee 00"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller callee 00" "run_misc.at:4730"
-( $at_check_trace; $COBCRUN_DIRECT ./caller callee 00
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "note: program exited with return code 0
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "P1: A" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4730"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4733: \$COBCRUN_DIRECT ./caller callee 42"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller callee 42" "run_misc.at:4733"
-( $at_check_trace; $COBCRUN_DIRECT ./caller callee 42
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "note: program exited with return code 42
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "P1: A" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4733"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4736: \$COBCRUN_DIRECT ./caller callee2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller callee2" "run_misc.at:4736"
-( $at_check_trace; $COBCRUN_DIRECT ./caller callee2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "note: STOP RUN with return code 2
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "STOP WITH 2" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4736"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4739: \$COBCRUN_DIRECT ./caller notthere"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller notthere" "run_misc.at:4739"
-( $at_check_trace; $COBCRUN_DIRECT ./caller notthere
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: error: module 'notthere' not found
-note: error exit with return code -1 and error \"module 'notthere' not found\"
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4739"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4743: \$COBCRUN_DIRECT ./caller buggy"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller buggy" "run_misc.at:4743"
-( $at_check_trace; $COBCRUN_DIRECT ./caller buggy
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: buggy.cob:10: error: offset of 'VAR' out of bounds: 2, maximum: 1
-note: error exit with return code -1 and error \"buggy.cob:10: offset of 'VAR' out of bounds: 2, maximum: 1\"
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "out of bounds - refmod following" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4743"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_772
-#AT_START_773
-at_fn_group_banner 773 'run_misc.at:4751' \
- "CALL in from C, cob_call_params explicitly set" " " 4
-at_xfail=no
-(
- printf "%s\n" "773. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 P1 PIC X.
- 01 P2 PIC X(6).
- PROCEDURE DIVISION USING P1 OPTIONAL P2.
- IF P2 NOT OMITTED
- DISPLAY 'UNEXPECTED P2: ' P2
- END-IF
- DISPLAY 'P1: ' P1 WITH NO ADVANCING
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >caller.c <<'_ATEOF'
-
-#include <stdio.h>
-#include <libcob.h>
-
-int callee (char *, char *);
-
-#ifndef NULL
-#define NULL (void*)0
-#endif
-
-int
-main (int argc, char **argv)
-{
- cob_global *cobol_global;
- /* for storing COBOL return code */
- int cob_ret;
-
- /* initialize parameters */
- char *p1 = "A";
-
- /* initialize the COBOL run-time library */
- cob_init(argc, argv);
-
- /* setup for COBOL parameter handling */
- cobol_global = cob_get_global_ptr ();
- cobol_global->cob_call_params = 1;
-
- /* call COBOL program */
- cob_ret = callee (p1, NULL);
-
- /* Clean up and terminate - This does not return */
- cob_stop_run (cob_ret);
-}
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4804: \$COMPILE -o caller caller.c callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE -o caller caller.c callee.cob" "run_misc.at:4804"
-( $at_check_trace; $COMPILE -o caller caller.c callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4804"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4805: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_misc.at:4805"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "P1: A" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4805"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_773
-#AT_START_774
-at_fn_group_banner 774 'run_misc.at:4810' \
- "CALL in from C, cob_call_params unknown" " " 4
-at_xfail=no
-(
- printf "%s\n" "774. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 P1 PIC X.
- 01 P2 PIC X(6).
- PROCEDURE DIVISION USING P1 P2.
- IF P1 NOT EQUAL "A"
- DISPLAY P1.
- IF P2 NOT EQUAL "FROM C"
- DISPLAY P2
- ELSE
- DISPLAY "OK" WITH NO ADVANCING.
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >caller.c <<'_ATEOF'
-
-#include <stdio.h>
-#include <libcob.h>
-
-int callee (char *, char *);
-
-int
-main (int argc, char **argv)
-{
- /* for storing COBOL return code */
- int cob_ret;
-
- /* initialize parameters */
- char *p1 = "A";
- char *p2 = "FROM C";
-
- /* initialize the COBOL run-time library */
- cob_init (argc, argv);
-
- /* call COBOL program */
- cob_ret = callee (p1, p2);
-
- /* Clean up and terminate - This does not return */
- cob_stop_run (cob_ret);
-}
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4857: \$COMPILE -o caller caller.c callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE -o caller caller.c callee.cob" "run_misc.at:4857"
-( $at_check_trace; $COMPILE -o caller caller.c callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4857"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4858: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_misc.at:4858"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4858"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_774
-#AT_START_775
-at_fn_group_banner 775 'run_misc.at:4863' \
- "CALL C with callback, PROCEDURE DIVISION EXTERN" "" 4
-at_xfail=no
-(
- printf "%s\n" "775. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 CB USAGE PROGRAM-POINTER.
- PROCEDURE DIVISION.
- SET CB TO ENTRY "callback"
- CALL STATIC "cprog" USING BY VALUE CB
- END-CALL
- EXIT PROGRAM.
- END PROGRAM prog.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callback.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- CALL-CONVENTION 0 IS EXTERN.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 P1 USAGE POINTER.
- 01 P2 USAGE BINARY-LONG.
- 01 P3 PIC X(8).
- PROCEDURE DIVISION EXTERN USING
- BY VALUE P1 P2 BY REFERENCE P3.
- IF P1 NOT EQUAL ADDRESS OF P3
- DISPLAY "P1 != ADDRESS OF P3: " P1.
- IF P2 NOT EQUAL 42
- DISPLAY "P2 != 42: " P2.
- IF P3 NOT EQUAL "CALLBACK"
- DISPLAY "P3 != CALLBACK: " P3.
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >cprog.c <<'_ATEOF'
-
-#include <stdio.h>
-#include <libcob.h>
-
-COB_EXT_EXPORT int
-cprog (void *cb)
-{
- char *p1;
- int p2 = 42;
- char *p3 = "CALLBACK";
-
- p1 = p3;
- ((int (*)(char *, int, char *))cb)(p1, p2, p3);
- return 0;
-}
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4918: \$COMPILE -Wno-unfinished -o prog prog.cob cprog.c"
-at_fn_check_prepare_dynamic "$COMPILE -Wno-unfinished -o prog prog.cob cprog.c" "run_misc.at:4918"
-( $at_check_trace; $COMPILE -Wno-unfinished -o prog prog.cob cprog.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4918"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4919: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:4919"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4919"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4921: \$COMPILE -Wno-unfinished -fsticky-linkage -o prog prog.cob cprog.c"
-at_fn_check_prepare_dynamic "$COMPILE -Wno-unfinished -fsticky-linkage -o prog prog.cob cprog.c" "run_misc.at:4921"
-( $at_check_trace; $COMPILE -Wno-unfinished -fsticky-linkage -o prog prog.cob cprog.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4921"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4922: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:4922"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4922"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4924: \$COMPILE -Wno-unfinished -fusing-optional=skip -o prog prog.cob cprog.c"
-at_fn_check_prepare_dynamic "$COMPILE -Wno-unfinished -fusing-optional=skip -o prog prog.cob cprog.c" "run_misc.at:4924"
-( $at_check_trace; $COMPILE -Wno-unfinished -fusing-optional=skip -o prog prog.cob cprog.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4924"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4925: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:4925"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4925"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4927: \$COMPILE -Wno-unfinished -fusing-optional=skip -fsticky-linkage -o prog prog.cob cprog.c"
-at_fn_check_prepare_dynamic "$COMPILE -Wno-unfinished -fusing-optional=skip -fsticky-linkage -o prog prog.cob cprog.c" "run_misc.at:4927"
-( $at_check_trace; $COMPILE -Wno-unfinished -fusing-optional=skip -fsticky-linkage -o prog prog.cob cprog.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4927"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4928: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:4928"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4928"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_775
-#AT_START_776
-at_fn_group_banner 776 'run_misc.at:4933' \
- "CALL C with callback, ENTRY-CONVENTION EXTERN" " " 4
-at_xfail=no
-(
- printf "%s\n" "776. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- OPTIONS.
- ENTRY-CONVENTION COBOL.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 CB USAGE PROGRAM-POINTER.
- PROCEDURE DIVISION.
- SET CB TO ENTRY "callback"
- CALL STATIC "cprog" USING BY VALUE CB
- END-CALL
- EXIT PROGRAM.
- END PROGRAM prog.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callback.
- OPTIONS.
- ENTRY-CONVENTION EXTERN.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 P1 USAGE POINTER.
- 01 P2 USAGE BINARY-LONG.
- 01 P3 PIC X(8).
- PROCEDURE DIVISION USING
- BY VALUE P1 P2 BY REFERENCE P3.
- IF P1 NOT EQUAL ADDRESS OF P3
- DISPLAY P1
- END-DISPLAY
- END-IF
- IF P2 NOT EQUAL 42
- DISPLAY P2
- END-DISPLAY
- END-IF
- IF P3 NOT EQUAL "CALLBACK"
- DISPLAY P3
- END-DISPLAY
- END-IF
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >cprog.c <<'_ATEOF'
-
-#include <stdio.h>
-#include <libcob.h>
-
-COB_EXT_EXPORT int
-cprog (void *cb)
-{
- char *p1;
- int p2 = 42;
- char *p3 = "CALLBACK";
-
- p1 = p3;
- ((int (*)(char *, int, char *))cb)(p1, p2, p3);
- return 0;
-}
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4994: \$COMPILE -Wno-unfinished -o prog prog.cob cprog.c"
-at_fn_check_prepare_dynamic "$COMPILE -Wno-unfinished -o prog prog.cob cprog.c" "run_misc.at:4994"
-( $at_check_trace; $COMPILE -Wno-unfinished -o prog prog.cob cprog.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4994"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:4995: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:4995"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:4995"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 CB USAGE PROGRAM-POINTER.
- PROCEDURE DIVISION.
- SET CB TO ENTRY "callback"
- CALL STATIC "cprog" USING BY VALUE CB
- END-CALL
- EXIT PROGRAM.
- END PROGRAM prog.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callback.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 P1 USAGE POINTER.
- 01 P2 USAGE BINARY-LONG.
- 01 P3 PIC X(8).
- PROCEDURE DIVISION WITH C LINKAGE
- USING BY VALUE P1 P2 BY REFERENCE P3.
- IF P1 NOT EQUAL ADDRESS OF P3
- DISPLAY P1
- END-DISPLAY
- END-IF
- IF P2 NOT EQUAL 42
- DISPLAY P2
- END-DISPLAY
- END-IF
- IF P3 NOT EQUAL "CALLBACK"
- DISPLAY P3
- END-DISPLAY
- END-IF
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >prog3.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 CB USAGE PROGRAM-POINTER.
- PROCEDURE DIVISION.
- SET CB TO ENTRY "callback"
- CALL STATIC "cprog" USING BY VALUE CB
- END-CALL
- EXIT PROGRAM.
- END PROGRAM prog.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callback.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- CALL-CONVENTION 0 IS EXTERN.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 P1 USAGE POINTER.
- 01 P2 USAGE BINARY-LONG.
- 01 P3 PIC X(8).
- PROCEDURE DIVISION EXTERN
- USING BY VALUE P1 P2 BY REFERENCE P3.
- IF P1 NOT EQUAL ADDRESS OF P3
- DISPLAY P1
- END-DISPLAY
- END-IF
- IF P2 NOT EQUAL 42
- DISPLAY P2
- END-DISPLAY
- END-IF
- IF P3 NOT EQUAL "CALLBACK"
- DISPLAY P3
- END-DISPLAY
- END-IF
- EXIT PROGRAM.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5075: \$COMPILE -Wno-unfinished -o prog prog2.cob cprog.c"
-at_fn_check_prepare_dynamic "$COMPILE -Wno-unfinished -o prog prog2.cob cprog.c" "run_misc.at:5075"
-( $at_check_trace; $COMPILE -Wno-unfinished -o prog prog2.cob cprog.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5075"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5076: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:5076"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5076"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5078: \$COMPILE -Wno-unfinished -o prog prog3.cob cprog.c"
-at_fn_check_prepare_dynamic "$COMPILE -Wno-unfinished -o prog prog3.cob cprog.c" "run_misc.at:5078"
-( $at_check_trace; $COMPILE -Wno-unfinished -o prog prog3.cob cprog.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5078"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5079: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:5079"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5079"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_776
-#AT_START_777
-at_fn_group_banner 777 'run_misc.at:5084' \
- "CALL in from C with init missing / implicit" " " 4
-at_xfail=no
-(
- printf "%s\n" "777. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 P1 PIC X.
- 01 P2 PIC X(6).
- PROCEDURE DIVISION USING P1 P2.
- IF P1 NOT EQUAL "A"
- DISPLAY P1.
- IF P2 NOT EQUAL "FROM C"
- DISPLAY P2
- END-DISPLAY
- ELSE
- DISPLAY "OK" WITH NO ADVANCING.
- STOP RUN.
-_ATEOF
-
-
-cat >caller.c <<'_ATEOF'
-
-int callee (char *, char *);
-
-int
-main (int argc, char **argv)
-{
- /* initialize parameters */
- char *p1 = "A";
- char *p2 = "FROM C";
-
- /* call COBOL program (initialization missing)
- note: COBOL program terminates the program by STOP RUN */
- (void)callee (p1, p2);
-}
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5121: \$COMPILE -o caller caller.c callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE -o caller caller.c callee.cob" "run_misc.at:5121"
-( $at_check_trace; $COMPILE -o caller caller.c callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5121"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5122: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_misc.at:5122"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: error: cob_init() has not been called
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:5122"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5126: \$COMPILE -fimplicit-init -o caller caller.c callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fimplicit-init -o caller caller.c callee.cob" "run_misc.at:5126"
-( $at_check_trace; $COMPILE -fimplicit-init -o caller caller.c callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5126"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5127: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_misc.at:5127"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5127"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_777
-#AT_START_778
-at_fn_group_banner 778 'run_misc.at:5132' \
- "CALL STATIC C from COBOL" " " 4
-at_xfail=no
-(
- printf "%s\n" "778. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 P1 PIC X VALUE "A".
- 01 P2 PIC X(7).
- 77 P2-COB PIC X(7).
- PROCEDURE DIVISION.
- CALL STATIC 'callee' USING P1 P2
- IF P1 NOT EQUAL "B"
- DISPLAY 'NOT A: ' P1
- END-DISPLAY
- END-IF
- UNSTRING P2 DELIMITED BY LOW-VALUE
- INTO P2-COB
- END-UNSTRING
- EVALUATE TRUE
- WHEN P2-COB NOT EQUAL "FROM C"
- DISPLAY P2-COB '-' P2
- END-DISPLAY
- WHEN RETURN-CODE NOT = 3
- DISPLAY RETURN-CODE
- END-DISPLAY
- WHEN OTHER
- DISPLAY 'OK' WITH NO ADVANCING
- END-DISPLAY
- MOVE 0 TO RETURN-CODE
- END-EVALUATE
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >callee.c <<'_ATEOF'
-
-#include <string.h>
-
-int
-callee (char *p1, char *p2)
-{
- if (p1[0] == 'A') {
- p1[0] = 'B';
- }
- memcpy (p2, "FROM C", 6);
-
- return 3;
-}
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5182: \$COMPILE -o caller caller.cob callee.c"
-at_fn_check_prepare_dynamic "$COMPILE -o caller caller.cob callee.c" "run_misc.at:5182"
-( $at_check_trace; $COMPILE -o caller caller.cob callee.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5182"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5183: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_misc.at:5183"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5183"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_778
-#AT_START_779
-at_fn_group_banner 779 'run_misc.at:5188' \
- "ANY LENGTH (1)" " " 4
-at_xfail=no
-(
- printf "%s\n" "779. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 P2 PIC 99.
- LINKAGE SECTION.
- 01 P1 PIC X ANY LENGTH.
- PROCEDURE DIVISION USING P1.
- MOVE LENGTH OF P1 TO P2.
- IF P2 NOT = 6
- DISPLAY P2.
- IF P1 NOT = "OKOKOK"
- DISPLAY P1.
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 P1 PIC X(6) VALUE "OKOKOK".
- PROCEDURE DIVISION.
- CALL "callee" USING P1
- END-CALL.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5220: \$COMPILE_MODULE callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee.cob" "run_misc.at:5220"
-( $at_check_trace; $COMPILE_MODULE callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5220"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5221: \$COMPILE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE caller.cob" "run_misc.at:5221"
-( $at_check_trace; $COMPILE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5221"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5222: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_misc.at:5222"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5222"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_779
-#AT_START_780
-at_fn_group_banner 780 'run_misc.at:5227' \
- "ANY LENGTH (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "780. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 P2 PIC XXX.
- LINKAGE SECTION.
- 01 P1 PIC X ANY LENGTH.
- PROCEDURE DIVISION USING P1.
- MOVE P1 TO P2.
- IF P2 NOT = "OK "
- DISPLAY P2.
- MOVE SPACE TO P1.
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 P1 PIC X(2) VALUE "OK".
- PROCEDURE DIVISION.
- CALL "callee" USING P1
- END-CALL.
- IF P1 NOT = SPACE
- DISPLAY P1.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5260: \$COMPILE_MODULE callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee.cob" "run_misc.at:5260"
-( $at_check_trace; $COMPILE_MODULE callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5260"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5261: \$COMPILE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE caller.cob" "run_misc.at:5261"
-( $at_check_trace; $COMPILE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5261"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5262: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_misc.at:5262"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5262"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_780
-#AT_START_781
-at_fn_group_banner 781 'run_misc.at:5267' \
- "ANY LENGTH (3)" " " 4
-at_xfail=no
-(
- printf "%s\n" "781. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 str PIC X(20) VALUE ALL "X".
-
- PROCEDURE DIVISION.
- CALL "subprog" USING str
- .
- END PROGRAM prog.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. subprog.
-
- DATA DIVISION.
- LINKAGE SECTION.
- 01 str PIC X ANY LENGTH.
-
- PROCEDURE DIVISION USING str.
- MOVE "abcd" TO str
- DISPLAY FUNCTION TRIM (str)
- MOVE "abcd" TO str (5:)
- DISPLAY FUNCTION TRIM (str)
- MOVE ALL "a" TO str
- DISPLAY FUNCTION TRIM (str)
- .
- END PROGRAM subprog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5301: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:5301"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5301"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5302: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:5302"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "abcd
-abcdabcd
-aaaaaaaaaaaaaaaaaaaa
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5302"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_781
-#AT_START_782
-at_fn_group_banner 782 'run_misc.at:5310' \
- "ANY LENGTH (4)" " " 4
-at_xfail=no
-(
- printf "%s\n" "782. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# comparison of any length was done only for first character - see bug 511
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 str PIC X(20) VALUE ALL "X".
-
- PROCEDURE DIVISION.
- CALL "subprog" USING str
- move ' 45' to str
- CALL "subprog" USING str
- .
- END PROGRAM prog.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. subprog.
-
- DATA DIVISION.
- LINKAGE SECTION.
- 01 str PIC X ANY LENGTH.
-
- PROCEDURE DIVISION USING str.
- IF str = 'X'
- DISPLAY 'X is X'
- END-IF
- IF str = space
- DISPLAY 'X is space'
- END-IF
- .
- END PROGRAM subprog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5348: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:5348"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5348"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5349: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:5349"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5349"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_782
-#AT_START_783
-at_fn_group_banner 783 'run_misc.at:5353' \
- "ANY LENGTH (5)" " " 4
-at_xfail=no
-(
- printf "%s\n" "783. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# any length variables resulted in SIGSEGV when module was first program called
-
-cat >subprog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. subprog.
-
- DATA DIVISION.
- LINKAGE SECTION.
- 01 str1 PIC X ANY LENGTH.
- 01 str2 PIC X ANY LENGTH.
-
- PROCEDURE DIVISION USING OPTIONAL str1 OPTIONAL str2.
- DISPLAY 'IN' WITH NO ADVANCING
- .
- END PROGRAM subprog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5373: \$COMPILE_MODULE subprog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE subprog.cob" "run_misc.at:5373"
-( $at_check_trace; $COMPILE_MODULE subprog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5373"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5374: \$COBCRUN subprog some test stuff"
-at_fn_check_prepare_dynamic "$COBCRUN subprog some test stuff" "run_misc.at:5374"
-( $at_check_trace; $COBCRUN subprog some test stuff
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "IN" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5374"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_783
-#AT_START_784
-at_fn_group_banner 784 'run_misc.at:5378' \
- "access to BASED item without allocation" " " 4
-at_xfail=no
-(
- printf "%s\n" "784. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4) BASED.
- PROCEDURE DIVISION.
- DISPLAY X NO ADVANCING
- STOP RUN.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X BASED.
- 05 Y PIC X(4).
- PROCEDURE DIVISION.
- DISPLAY Y NO ADVANCING
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5404: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:5404"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5404"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5405: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_misc.at:5405"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5405"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5407: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:5407"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:8: error: BASED/LINKAGE item 'X' has NULL address
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:5407"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5410: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "run_misc.at:5410"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog2.cob:9: error: BASED/LINKAGE item 'X' (accessed by 'Y') has NULL address
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:5410"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_784
-#AT_START_785
-at_fn_group_banner 785 'run_misc.at:5417' \
- "access to OPTIONAL LINKAGE item not passed" " " 4
-at_xfail=no
-(
- printf "%s\n" "785. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4) VALUE '9876'.
- PROCEDURE DIVISION.
- CALL 'callee' USING X.
- CALL 'callee' USING OMITTED.
- STOP RUN.
-_ATEOF
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 X.
- 05 Y PIC X(4).
- PROCEDURE DIVISION USING OPTIONAL X.
- IF Y NOT = '9876'
- DISPLAY Y.
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5445: \$COMPILE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE caller.cob" "run_misc.at:5445"
-( $at_check_trace; $COMPILE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5445"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5446: \$COMPILE_MODULE callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee.cob" "run_misc.at:5446"
-( $at_check_trace; $COMPILE_MODULE callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5446"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5448: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_misc.at:5448"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: callee.cob:9: error: LINKAGE item 'X' (accessed by 'Y') not passed by caller
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:5448"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_785
-#AT_START_786
-at_fn_group_banner 786 'run_misc.at:5455' \
- "STOP RUN WITH NORMAL STATUS" " " 4
-at_xfail=no
-(
- printf "%s\n" "786. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- STOP RUN WITH NORMAL STATUS.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5467: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:5467"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5467"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5468: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:5468"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5468"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_786
-#AT_START_787
-at_fn_group_banner 787 'run_misc.at:5473' \
- "STOP RUN WITH ERROR STATUS" " " 4
-at_xfail=no
-(
- printf "%s\n" "787. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- STOP RUN WITH ERROR STATUS.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5485: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:5485"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5485"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5486: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:5486"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:5486"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_787
-#AT_START_788
-at_fn_group_banner 788 'run_misc.at:5491' \
- "STOP ERROR" " " 4
-at_xfail=no
-(
- printf "%s\n" "788. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- CALL "prog2".
- DISPLAY "Whatever".
- STOP RUN.
- END PROGRAM prog.
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- PROCEDURE DIVISION.
- STOP ERROR.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5508: \$COMPILE prog.cob -fstop-error-statement=ok"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob -fstop-error-statement=ok" "run_misc.at:5508"
-( $at_check_trace; $COMPILE prog.cob -fstop-error-statement=ok
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5508"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5509: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:5509"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:12: error: STOP ERROR
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:5509"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_788
-#AT_START_789
-at_fn_group_banner 789 'run_misc.at:5516' \
- "SYMBOLIC clause" " " 4
-at_xfail=no
-(
- printf "%s\n" "789. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- ALPHABET A-EBC IS EBCDIC
- ALPHABET A-ASC IS ASCII
- SYMBOLIC Z-EBC IS 241 IN A-EBC
- SYMBOLIC Z-ASC IS 49 IN A-ASC
- .
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Z PIC X.
- PROCEDURE DIVISION.
- MOVE Z-ASC TO Z.
- IF Z NOT = "0"
- DISPLAY Z.
- MOVE Z-EBC TO Z.
- IF Z NOT = "0"
- DISPLAY Z.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5543: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:5543"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5543"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5544: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:5544"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5544"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_789
-#AT_START_790
-at_fn_group_banner 790 'run_misc.at:5549' \
- "OCCURS clause with 1 entry" " " 4
-at_xfail=no
-(
- printf "%s\n" "790. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 D1.
- 03 FILLER OCCURS 1.
- 05 D1-ENTRY PIC X(03) value '123'.
- 01 D2.
- 03 D2-ENTRY PIC X(03) value 'ABC' OCCURS 1.
- 01 D1TOR.
- 03 FILLER PIC X(03) value '456'.
- 01 D1-R REDEFINES D1TOR.
- 03 FILLER OCCURS 1.
- 05 D1-R-ENTRY PIC X(03).
- 01 D2TOR.
- 03 FILLER PIC X(03) value 'DEF'.
- 01 D2-R REDEFINES D2TOR.
- 03 D2-R-ENTRY PIC X(03) OCCURS 1.
-
- PROCEDURE DIVISION.
- IF D1-ENTRY (1) NOT = "123"
- DISPLAY D1-ENTRY (1).
- IF D2-ENTRY (1) NOT = "ABC"
- DISPLAY D2-ENTRY (1).
- IF D1-R-ENTRY (1) NOT = "456"
- DISPLAY D1-R-ENTRY (1).
- IF D2-R-ENTRY (1) NOT = "DEF"
- DISPLAY D2-R-ENTRY (1).
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5584: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:5584"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5584"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:5585: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:5585"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:5585"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_790
-#AT_START_791
-at_fn_group_banner 791 'run_misc.at:5590' \
- "Computing of different USAGEs w/o decimal point" "" 4
-at_xfail=no
-(
- printf "%s\n" "791. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. 'prog'.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- *
- 77 BCL-A BINARY-C-LONG VALUE 1.
- 77 BCL-B BINARY-C-LONG VALUE 10.
- 77 BCL-RES BINARY-C-LONG.
- *
- 77 BC-A BINARY-CHAR VALUE 1.
- 77 BC-B BINARY-CHAR VALUE 10.
- 77 BC-RES BINARY-CHAR.
- *
- 77 BD-A BINARY-DOUBLE VALUE 1.
- 77 BD-B BINARY-DOUBLE VALUE 10.
- 77 BD-RES BINARY-DOUBLE.
- *
- 77 BL-A BINARY-LONG VALUE 1.
- 77 BL-B BINARY-LONG VALUE 10.
- 77 BL-RES BINARY-LONG.
- *
- 77 C-A PIC S99 COMP VALUE 1.
- 77 C-B PIC S99 COMP VALUE 10.
- 77 C-RES PIC S99 COMP.
- *
- 77 C1-A COMP-1 VALUE 1.
- 77 C1-B COMP-1 VALUE 10.
- 77 C1-RES COMP-1.
- *
- 77 C2-A COMP-2 VALUE 1.
- 77 C2-B COMP-2 VALUE 10.
- 77 C2-RES COMP-2.
- *
- 77 C3-A PIC S99 COMP-3 VALUE 1.
- 77 C3-B PIC S99 COMP-3 VALUE 10.
- 77 C3-RES PIC S99 COMP-3.
- *
- 77 C5-A PIC S99 COMP-5 VALUE 1.
- 77 C5-B PIC S99 COMP-5 VALUE 10.
- 77 C5-RES PIC S99 COMP-5.
- *
- 77 C6-A PIC 99 COMP-6 VALUE 1.
- 77 C6-B PIC 99 COMP-6 VALUE 10.
- 77 C6-RES PIC 99 COMP-6.
- *
- 77 CN9-A PIC 99 COMP-N VALUE 1.
- 77 CN9-B PIC 99 COMP-N VALUE 10.
- 77 CN9-RES PIC 99 COMP-N.
- *
- 77 CNX-A PIC X COMP-N VALUE 1.
- 77 CNX-B PIC X COMP-N VALUE 10.
- 77 CNX-RES PIC X COMP-N.
- *
- 77 CX9-A PIC 99 COMP-X VALUE 1.
- 77 CX9-B PIC 99 COMP-X VALUE 10.
- 77 CX9-RES PIC 99 COMP-X.
- *
- 77 CXX-A PIC X COMP-X VALUE 1.
- 77 CXX-B PIC X COMP-X VALUE 10.
- 77 CXX-RES PIC X COMP-X.
- *
- 77 D-A PIC S99 VALUE 1.
- 77 D-B PIC S99 VALUE 10.
- 77 D-RES PIC S99.
- *
- 77 FD16-A FLOAT-DECIMAL-16 VALUE 1.
- 77 FD16-B FLOAT-DECIMAL-16 VALUE 10.
- 77 FD16-RES FLOAT-DECIMAL-16.
- *
- 77 FD34-A FLOAT-DECIMAL-34 VALUE 1.
- 77 FD34-B FLOAT-DECIMAL-34 VALUE 10.
- 77 FD34-RES FLOAT-DECIMAL-34.
- *
- 77 FL-A FLOAT-LONG VALUE 1.
- 77 FL-B FLOAT-LONG VALUE 10.
- 77 FL-RES FLOAT-LONG.
- *
- 77 FS-A FLOAT-SHORT VALUE 1.
- 77 FS-B FLOAT-SHORT VALUE 10.
- 77 FS-RES FLOAT-SHORT.
- *
- 01 FILLER USAGE BINARY-INT VALUE 0.
- 88 DO-DISP VALUE 0.
- 88 NO-DISP VALUE 1.
- REPLACE ==DISPLAY== BY ==IF DO-DISP DISPLAY==.
- *
- PROCEDURE DIVISION.
- MAIN.
- * Test with DISPLAY on error
- PERFORM DO-CHECK.
- >> IF CHECK-PERF IS DEFINED
- SET NO-DISP TO TRUE
- * some performance checks on the way...
- PERFORM DO-CHECK 20000 TIMES.
- >> END-IF
- GOBACK.
-
- DO-CHECK.
- *
- INITIALIZE
- BCL-A BCL-B
- BC-A BC-B
- BD-A BD-B
- BL-A BL-B
- C-A C-B
- C1-A C1-B
- C2-A C2-B
- C3-A C3-B
- C5-A C5-B
- C6-A C6-B
- CN9-A CN9-B
- CNX-A CNX-B
- CX9-A CX9-B
- CXX-A CXX-B
- D-A D-B
- FD16-A FD16-B
- FD34-A FD34-B
- FL-A FL-B
- FS-A FS-B
- ALL TO VALUE.
- *
- ADD BCL-B TO BCL-A.
- MOVE BCL-A TO BCL-RES.
- IF BCL-RES NOT = 11
- DISPLAY 'ERROR BINARY-C-LONG + BINARY-C-LONG'.
- MOVE 1 TO BCL-A.
- ADD 10 TO BCL-A.
- MOVE BCL-A TO BCL-RES.
- IF BCL-RES NOT = 11
- DISPLAY 'ERROR BINARY-C-LONG + NUM'.
- MOVE 11 TO BCL-A.
- SUBTRACT BCL-B FROM BCL-A.
- MOVE BCL-A TO BCL-RES.
- IF BCL-RES NOT = 1
- DISPLAY 'ERROR BINARY-C-LONG - BINARY-C-LONG'.
- MOVE 11 TO BCL-A.
- SUBTRACT 10 FROM BCL-A.
- MOVE BCL-A TO BCL-RES.
- IF BCL-RES NOT = 1
- DISPLAY 'ERROR BINARY-C-LONG - NUM'.
- *
- ADD BC-B TO BC-A.
- MOVE BC-A TO BC-RES.
- IF BC-RES NOT = 11
- DISPLAY 'ERROR BINARY-CHAR + BINARY-CHAR'.
- MOVE 1 TO BC-A.
- ADD 10 TO BC-A.
- MOVE BC-A TO BC-RES.
- IF BC-RES NOT = 11
- DISPLAY 'ERROR BINARY-CHAR + NUM'.
- MOVE 11 TO BC-A.
- SUBTRACT BC-B FROM BC-A.
- MOVE BC-A TO BC-RES.
- IF BC-RES NOT = 1
- DISPLAY 'ERROR BINARY-CHAR - BINARY-CHAR'.
- MOVE 11 TO BC-A.
- SUBTRACT 10 FROM BC-A.
- MOVE BC-A TO BC-RES.
- IF BC-RES NOT = 1
- DISPLAY 'ERROR BINARY-CHAR - NUM'.
- *
- ADD BD-B TO BD-A.
- MOVE BD-A TO BD-RES.
- IF BD-RES NOT = 11
- DISPLAY 'ERROR BINARY-DOUBLE + BINARY-DOUBLE'.
- MOVE 1 TO BD-A.
- ADD 10 TO BD-A.
- MOVE BD-A TO BD-RES.
- IF BD-RES NOT = 11
- DISPLAY 'ERROR BINARY-DOUBLE + NUM'.
- MOVE 11 TO BD-A.
- SUBTRACT BD-B FROM BD-A.
- MOVE BD-A TO BD-RES.
- IF BD-RES NOT = 1
- DISPLAY 'ERROR BINARY-DOUBLE - BINARY-DOUBLE'.
- MOVE 11 TO BD-A.
- SUBTRACT 10 FROM BD-A.
- MOVE BD-A TO BD-RES.
- IF BD-RES NOT = 1
- DISPLAY 'ERROR BINARY-DOUBLE - NUM'.
- *
- ADD BL-B TO BL-A.
- MOVE BL-A TO BL-RES.
- IF BL-RES NOT = 11
- DISPLAY 'ERROR BINARY-LONG + BINARY-LONG'.
- MOVE 1 TO BL-A.
- ADD 10 TO BL-A.
- MOVE BL-A TO BL-RES.
- IF BL-RES NOT = 11
- DISPLAY 'ERROR BINARY-LONG + NUM'.
- MOVE 11 TO BL-A.
- SUBTRACT BL-B FROM BL-A.
- MOVE BL-A TO BL-RES.
- IF BL-RES NOT = 1
- DISPLAY 'ERROR BINARY-LONG - BINARY-LONG'.
- MOVE 11 TO BL-A.
- SUBTRACT 10 FROM BL-A.
- MOVE BL-A TO BL-RES.
- IF BL-RES NOT = 1
- DISPLAY 'ERROR BINARY-LONG - NUM'.
- *
- ADD C-B TO C-A.
- MOVE C-A TO C-RES.
- IF C-RES NOT = 11
- DISPLAY 'ERROR COMP + COMP'.
- MOVE 1 TO C-A.
- ADD 10 TO C-A.
- MOVE C-A TO C-RES.
- IF C-RES NOT = 11
- DISPLAY 'ERROR COMP + NUM'.
- MOVE 11 TO C-A.
- SUBTRACT C-B FROM C-A.
- MOVE C-A TO C-RES.
- IF C-RES NOT = 1
- DISPLAY 'ERROR COMP - COMP'.
- MOVE 11 TO C-A.
- SUBTRACT 10 FROM C-A.
- MOVE C-A TO C-RES.
- IF C-RES NOT = 1
- DISPLAY 'ERROR COMP - NUM'.
- *
- ADD C1-B TO C1-A.
- MOVE C1-A TO C1-RES.
- IF C1-RES NOT = 11
- DISPLAY 'ERROR COMP-1 + COMP-1'.
- MOVE 1 TO C1-A.
- ADD 10 TO C1-A.
- MOVE C1-A TO C1-RES.
- IF C1-RES NOT = 11
- DISPLAY 'ERROR COMP-1 + NUM'.
- MOVE 11 TO C1-A.
- SUBTRACT C1-B FROM C1-A.
- MOVE C1-A TO C1-RES.
- IF C1-RES NOT = 1
- DISPLAY 'ERROR COMP-1 - COMP-1'.
- MOVE 11 TO C1-A.
- SUBTRACT 10 FROM C1-A.
- MOVE C1-A TO C1-RES.
- IF C1-RES NOT = 1
- DISPLAY 'ERROR COMP-1 - NUM'.
- *
- ADD C2-B TO C2-A.
- MOVE C2-A TO C2-RES.
- IF C2-RES NOT = 11
- DISPLAY 'ERROR COMP-2 + COMP-2'.
- MOVE 1 TO C2-A.
- ADD 10 TO C2-A.
- MOVE C2-A TO C2-RES.
- IF C2-RES NOT = 11
- DISPLAY 'ERROR COMP-2 + NUM'.
- MOVE 11 TO C2-A.
- SUBTRACT C2-B FROM C2-A.
- MOVE C2-A TO C2-RES.
- IF C2-RES NOT = 1
- DISPLAY 'ERROR COMP-2 - COMP-2'.
- MOVE 11 TO C2-A.
- SUBTRACT 10 FROM C2-A.
- MOVE C2-A TO C2-RES.
- IF C2-RES NOT = 1
- DISPLAY 'ERROR COMP-2 - NUM'.
- *
- ADD C3-B TO C3-A.
- MOVE C3-A TO C3-RES.
- IF C3-RES NOT = 11
- DISPLAY 'ERROR COMP-3 + COMP-3'.
- MOVE 1 TO C3-A.
- ADD 10 TO C3-A.
- MOVE C3-A TO C3-RES.
- IF C3-RES NOT = 11
- DISPLAY 'ERROR COMP-3 + NUM'.
- MOVE 11 TO C3-A.
- SUBTRACT C3-B FROM C3-A.
- MOVE C3-A TO C3-RES.
- IF C3-RES NOT = 1
- DISPLAY 'ERROR COMP-3 - COMP-3'.
- MOVE 11 TO C3-A.
- SUBTRACT 10 FROM C3-A.
- MOVE C3-A TO C3-RES.
- IF C3-RES NOT = 1
- DISPLAY 'ERROR COMP-3 - NUM'.
- *
- ADD C5-B TO C5-A.
- MOVE C5-A TO C5-RES.
- IF C5-RES NOT = 11
- DISPLAY 'ERROR COMP-5 + COMP-5'.
- MOVE 1 TO C5-A.
- ADD 10 TO C5-A.
- MOVE C5-A TO C5-RES.
- IF C5-RES NOT = 11
- DISPLAY 'ERROR COMP-5 + NUM'.
- MOVE 11 TO C5-A.
- SUBTRACT C5-B FROM C5-A.
- MOVE C5-A TO C5-RES.
- IF C5-RES NOT = 1
- DISPLAY 'ERROR COMP-5 - COMP-5'.
- MOVE 11 TO C5-A.
- SUBTRACT 10 FROM C5-A.
- MOVE C5-A TO C5-RES.
- IF C5-RES NOT = 1
- DISPLAY 'ERROR COMP-5 - NUM'.
- *
- ADD C6-B TO C6-A.
- MOVE C6-A TO C6-RES.
- IF C6-RES NOT = 11
- DISPLAY 'ERROR COMP-6 + COMP-6'.
- MOVE 1 TO C6-A.
- ADD 10 TO C6-A.
- MOVE C6-A TO C6-RES.
- IF C6-RES NOT = 11
- DISPLAY 'ERROR COMP-6 + NUM'.
- MOVE 11 TO C6-A.
- SUBTRACT C6-B FROM C6-A.
- MOVE C6-A TO C6-RES.
- IF C6-RES NOT = 1
- DISPLAY 'ERROR COMP-6 - COMP-6'.
- MOVE 11 TO C6-A.
- SUBTRACT 10 FROM C6-A.
- MOVE C6-A TO C6-RES.
- IF C6-RES NOT = 1
- DISPLAY 'ERROR COMP-6 - NUM'.
- *
- ADD CN9-B TO CN9-A.
- MOVE CN9-A TO CN9-RES.
- IF CN9-RES NOT = 11
- DISPLAY 'ERROR COMP-N + COMP-N'.
- MOVE 1 TO CN9-A.
- ADD 10 TO CN9-A.
- MOVE CN9-A TO CN9-RES.
- IF CN9-RES NOT = 11
- DISPLAY 'ERROR COMP-N + NUM'.
- MOVE 11 TO CN9-A.
- SUBTRACT CN9-B FROM CN9-A.
- MOVE CN9-A TO CN9-RES.
- IF CN9-RES NOT = 1
- DISPLAY 'ERROR COMP-N - COMP-N'.
- MOVE 11 TO CN9-A.
- SUBTRACT 10 FROM CN9-A.
- MOVE CN9-A TO CN9-RES.
- IF CN9-RES NOT = 1
- DISPLAY 'ERROR COMP-N - NUM'.
- *
- ADD CNX-B TO CNX-A.
- MOVE CNX-A TO CNX-RES.
- IF CNX-RES NOT = 11
- DISPLAY 'ERROR COMP-N + COMP-N'.
- MOVE 1 TO CNX-A.
- ADD 10 TO CNX-A.
- MOVE CNX-A TO CNX-RES.
- IF CNX-RES NOT = 11
- DISPLAY 'ERROR COMP-N + NUM'.
- MOVE 11 TO CNX-A.
- SUBTRACT CNX-B FROM CNX-A.
- MOVE CNX-A TO CNX-RES.
- IF CNX-RES NOT = 1
- DISPLAY 'ERROR COMP-N - COMP-N'.
- MOVE 11 TO CNX-A.
- SUBTRACT 10 FROM CNX-A.
- MOVE CNX-A TO CNX-RES.
- IF CNX-RES NOT = 1
- DISPLAY 'ERROR COMP-N - NUM'.
- *
- ADD CX9-B TO CX9-A.
- MOVE CX9-A TO CX9-RES.
- IF CX9-RES NOT = 11
- DISPLAY 'ERROR COMP-X + COMP-X'.
- MOVE 1 TO CX9-A.
- ADD 10 TO CX9-A.
- MOVE CX9-A TO CX9-RES.
- IF CX9-RES NOT = 11
- DISPLAY 'ERROR COMP-X + NUM'.
- MOVE 11 TO CX9-A.
- SUBTRACT CX9-B FROM CX9-A.
- MOVE CX9-A TO CX9-RES.
- IF CX9-RES NOT = 1
- DISPLAY 'ERROR COMP-X - COMP-X'.
- MOVE 11 TO CX9-A.
- SUBTRACT 10 FROM CX9-A.
- MOVE CX9-A TO CX9-RES.
- IF CX9-RES NOT = 1
- DISPLAY 'ERROR COMP-X - NUM'.
- *
- ADD CXX-B TO CXX-A.
- MOVE CXX-A TO CXX-RES.
- IF CXX-RES NOT = 11
- DISPLAY 'ERROR COMP-X + COMP-X'.
- MOVE 1 TO CXX-A.
- ADD 10 TO CXX-A.
- MOVE CXX-A TO CXX-RES.
- IF CXX-RES NOT = 11
- DISPLAY 'ERROR COMP-X + NUM'.
- MOVE 11 TO CXX-A.
- SUBTRACT CXX-B FROM CXX-A.
- MOVE CXX-A TO CXX-RES.
- IF CXX-RES NOT = 1
- DISPLAY 'ERROR COMP-X - COMP-X'.
- MOVE 11 TO CXX-A.
- SUBTRACT 10 FROM CXX-A.
- MOVE CXX-A TO CXX-RES.
- IF CXX-RES NOT = 1
- DISPLAY 'ERROR COMP-X - NUM'.
- *
- ADD D-B TO D-A.
- MOVE D-A TO D-RES.
- IF D-RES NOT = 11
- DISPLAY 'ERROR DISPLAY + DISPLAY'.
- MOVE 1 TO D-A.
- ADD 10 TO D-A.
- MOVE D-A TO D-RES.
- IF D-RES NOT = 11
- DISPLAY 'ERROR DISPLAY + NUM'.
- MOVE 11 TO D-A.
- SUBTRACT D-B FROM D-A.
- MOVE D-A TO D-RES.
- IF D-RES NOT = 1
- DISPLAY 'ERROR DISPLAY - DISPLAY'.
- MOVE 11 TO D-A.
- SUBTRACT 10 FROM D-A.
- MOVE D-A TO D-RES.
- IF D-RES NOT = 1
- DISPLAY 'ERROR DISPLAY - NUM'.
- *
- ADD FD16-B TO FD16-A.
- MOVE FD16-A TO FD16-RES.
- IF FD16-RES NOT = 11
- DISPLAY 'ERROR FLOAT-DECIMAL-16 + FLOAT-DECIMAL-16'.
- MOVE 1 TO FD16-A.
- ADD 10 TO FD16-A.
- MOVE FD16-A TO FD16-RES.
- IF FD16-RES NOT = 11
- DISPLAY 'ERROR FLOAT-DECIMAL-16 + NUM'.
- MOVE 11 TO FD16-A.
- SUBTRACT FD16-B FROM FD16-A.
- MOVE FD16-A TO FD16-RES.
- IF FD16-RES NOT = 1
- DISPLAY 'ERROR FLOAT-DECIMAL-16 - FLOAT-DECIMAL-16'.
- MOVE 11 TO FD16-A.
- SUBTRACT 10 FROM FD16-A.
- MOVE FD16-A TO FD16-RES.
- IF FD16-RES NOT = 1
- DISPLAY 'ERROR FLOAT-DECIMAL-16 - NUM'.
- *
- ADD FD34-B TO FD34-A.
- MOVE FD34-A TO FD34-RES.
- IF FD34-RES NOT = 11
- DISPLAY 'ERROR FLOAT-DECIMAL-34 + FLOAT-DECIMAL-34'.
- MOVE 1 TO FD34-A.
- ADD 10 TO FD34-A.
- MOVE FD34-A TO FD34-RES.
- IF FD34-RES NOT = 11
- DISPLAY 'ERROR FLOAT-DECIMAL-34 + NUM'.
- MOVE 11 TO FD34-A.
- SUBTRACT FD34-B FROM FD34-A.
- MOVE FD34-A TO FD34-RES.
- IF FD34-RES NOT = 1
- DISPLAY 'ERROR FLOAT-DECIMAL-34 - FLOAT-DECIMAL-34'.
- MOVE 11 TO FD34-A.
- SUBTRACT 10 FROM FD34-A.
- MOVE FD34-A TO FD34-RES.
- IF FD34-RES NOT = 1
- DISPLAY 'ERROR FLOAT-DECIMAL-34 - NUM'.
- *
- ADD FL-B TO FL-A.
- MOVE FL-A TO FL-RES.
- IF FL-RES NOT = 11
- DISPLAY 'ERROR FLOAT-LONG + FLOAT-LONG'.
- MOVE 1 TO FL-A.
- ADD 10 TO FL-A.
- MOVE FL-A TO FL-RES.
- IF FL-RES NOT = 11
- DISPLAY 'ERROR FLOAT-LONG + NUM'.
- MOVE 11 TO FL-A.
- SUBTRACT FL-B FROM FL-A.
- MOVE FL-A TO FL-RES.
- IF FL-RES NOT = 1
- DISPLAY 'ERROR FLOAT-LONG - FLOAT-LONG'.
- MOVE 11 TO FL-A.
- SUBTRACT 10 FROM FL-A.
- MOVE FL-A TO FL-RES.
- IF FL-RES NOT = 1
- DISPLAY 'ERROR FLOAT-LONG - NUM'.
- *
- ADD FS-B TO FS-A.
- MOVE FS-A TO FS-RES.
- IF FS-RES NOT = 11
- DISPLAY 'ERROR FLOAT-SHORT + FLOAT-SHORT'.
- MOVE 1 TO FS-A.
- ADD 10 TO FS-A.
- MOVE FS-A TO FS-RES.
- IF FS-RES NOT = 11
- DISPLAY 'ERROR FLOAT-SHORT + NUM'.
- MOVE 11 TO FS-A.
- SUBTRACT FS-B FROM FS-A.
- MOVE FS-A TO FS-RES.
- IF FS-RES NOT = 1
- DISPLAY 'ERROR FLOAT-SHORT - FLOAT-SHORT'.
- MOVE 11 TO FS-A.
- SUBTRACT 10 FROM FS-A.
- MOVE FS-A TO FS-RES.
- IF FS-RES NOT = 1
- DISPLAY 'ERROR FLOAT-SHORT - NUM'.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:6100: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:6100"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:6100"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:6101: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:6101"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:6101"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:6103: \$COMPILE -fno-fast-compare prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fno-fast-compare prog.cob" "run_misc.at:6103"
-( $at_check_trace; $COMPILE -fno-fast-compare prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:6103"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:6104: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:6104"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:6104"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-#AT_CHECK([$COMPILE -fno-fast-math prog.cob], [0], [], [])
-#AT_CHECK([$COBCRUN_DIRECT ./prog], [0], [], [])
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:6109: \$COMPILE -fnotrunc prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fnotrunc prog.cob" "run_misc.at:6109"
-( $at_check_trace; $COMPILE -fnotrunc prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:6109"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:6110: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:6110"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:6110"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_791
-#AT_START_792
-at_fn_group_banner 792 'run_misc.at:6115' \
- "Computing of different USAGEs w/- decimal point" "" 4
-at_xfail=no
-(
- printf "%s\n" "792. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. 'prog'.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- *
- 77 BCL-A BINARY-C-LONG VALUE 1.0.
- 77 BCL-B BINARY-C-LONG VALUE 10.0.
- 77 BCL-RES BINARY-C-LONG.
- *
- 77 BC-A BINARY-CHAR VALUE 1.0.
- 77 BC-B BINARY-CHAR VALUE 10.0.
- 77 BC-RES BINARY-CHAR.
- *
- 77 BD-A BINARY-DOUBLE VALUE 1.0.
- 77 BD-B BINARY-DOUBLE VALUE 10.0.
- 77 BD-RES BINARY-DOUBLE.
- *
- 77 BL-A BINARY-LONG VALUE 1.0.
- 77 BL-B BINARY-LONG VALUE 10.0.
- 77 BL-RES BINARY-LONG.
- *
- 77 C-A PIC S99 COMP VALUE 1.0.
- 77 C-B PIC S99 COMP VALUE 10.0.
- 77 C-RES PIC S99 COMP.
- *
- 77 C1-A COMP-1 VALUE 1.0.
- 77 C1-B COMP-1 VALUE 10.0.
- 77 C1-RES COMP-1.
- *
- 77 C2-A COMP-2 VALUE 1.0.
- 77 C2-B COMP-2 VALUE 10.0.
- 77 C2-RES COMP-2.
- *
- 77 C3-A PIC S99 COMP-3 VALUE 1.0.
- 77 C3-B PIC S99 COMP-3 VALUE 10.0.
- 77 C3-RES PIC S99 COMP-3.
- *
- 77 C5-A PIC S99 COMP-5 VALUE 1.0.
- 77 C5-B PIC S99 COMP-5 VALUE 10.0.
- 77 C5-RES PIC S99 COMP-5.
- *
- 77 C6-A PIC 99 COMP-6 VALUE 1.0.
- 77 C6-B PIC 99 COMP-6 VALUE 10.0.
- 77 C6-RES PIC 99 COMP-6.
- *
- 77 CN9-A PIC 99 COMP-N VALUE 1.
- 77 CN9-B PIC 99 COMP-N VALUE 10.
- 77 CN9-RES PIC 99 COMP-N.
- *
- 77 CNX-A PIC X COMP-N VALUE 1.
- 77 CNX-B PIC X COMP-N VALUE 10.
- 77 CNX-RES PIC X COMP-N.
- *
- 77 CX9-A PIC 99 COMP-X VALUE 1.
- 77 CX9-B PIC 99 COMP-X VALUE 10.
- 77 CX9-RES PIC 99 COMP-X.
- *
- 77 CXX-A PIC X COMP-X VALUE 1.
- 77 CXX-B PIC X COMP-X VALUE 10.
- 77 CXX-RES PIC X COMP-X.
- *
- 77 D-A PIC S99 VALUE 1.0.
- 77 D-B PIC S99 VALUE 10.0.
- 77 D-RES PIC S99.
- *
- 77 FD16-A FLOAT-DECIMAL-16 VALUE 1.0.
- 77 FD16-B FLOAT-DECIMAL-16 VALUE 10.0.
- 77 FD16-RES FLOAT-DECIMAL-16.
- *
- 77 FD34-A FLOAT-DECIMAL-34 VALUE 1.0.
- 77 FD34-B FLOAT-DECIMAL-34 VALUE 10.0.
- 77 FD34-RES FLOAT-DECIMAL-34.
- *
- 77 FL-A FLOAT-LONG VALUE 1.0.
- 77 FL-B FLOAT-LONG VALUE 10.0.
- 77 FL-RES FLOAT-LONG.
- *
- 77 FS-A FLOAT-SHORT VALUE 1.0.
- 77 FS-B FLOAT-SHORT VALUE 10.0.
- 77 FS-RES FLOAT-SHORT.
- *
- PROCEDURE DIVISION.
- *
- ADD BCL-B TO BCL-A.
- MOVE BCL-A TO BCL-RES.
- IF BCL-RES NOT = 11.0
- DISPLAY 'ERROR BINARY-C-LONG + BINARY-C-LONG'.
- MOVE 1.0 TO BCL-A.
- ADD 10.0 TO BCL-A.
- MOVE BCL-A TO BCL-RES.
- IF BCL-RES NOT = 11.0
- DISPLAY 'ERROR BINARY-C-LONG + NUM'.
- MOVE 11.0 TO BCL-A.
- SUBTRACT BCL-B FROM BCL-A.
- MOVE BCL-A TO BCL-RES.
- IF BCL-RES NOT = 1.0
- DISPLAY 'ERROR BINARY-C-LONG - BINARY-C-LONG'.
- MOVE 11.0 TO BCL-A.
- SUBTRACT 10.0 FROM BCL-A.
- MOVE BCL-A TO BCL-RES.
- IF BCL-RES NOT = 1.0
- DISPLAY 'ERROR BINARY-C-LONG - NUM'.
- *
- ADD BC-B TO BC-A.
- MOVE BC-A TO BC-RES.
- IF BC-RES NOT = 11.0
- DISPLAY 'ERROR BINARY-CHAR + BINARY-CHAR'.
- MOVE 1.0 TO BC-A.
- ADD 10.0 TO BC-A.
- MOVE BC-A TO BC-RES.
- IF BC-RES NOT = 11.0
- DISPLAY 'ERROR BINARY-CHAR + NUM'.
- MOVE 11.0 TO BC-A.
- SUBTRACT BC-B FROM BC-A.
- MOVE BC-A TO BC-RES.
- IF BC-RES NOT = 1.0
- DISPLAY 'ERROR BINARY-CHAR - BINARY-CHAR'.
- MOVE 11.0 TO BC-A.
- SUBTRACT 10.0 FROM BC-A.
- MOVE BC-A TO BC-RES.
- IF BC-RES NOT = 1.0
- DISPLAY 'ERROR BINARY-CHAR - NUM'.
- *
- ADD BD-B TO BD-A.
- MOVE BD-A TO BD-RES.
- IF BD-RES NOT = 11.0
- DISPLAY 'ERROR BINARY-DOUBLE + BINARY-DOUBLE'.
- MOVE 1.0 TO BD-A.
- ADD 10.0 TO BD-A.
- MOVE BD-A TO BD-RES.
- IF BD-RES NOT = 11.0
- DISPLAY 'ERROR BINARY-DOUBLE + NUM'.
- MOVE 11.0 TO BD-A.
- SUBTRACT BD-B FROM BD-A.
- MOVE BD-A TO BD-RES.
- IF BD-RES NOT = 1.0
- DISPLAY 'ERROR BINARY-DOUBLE - BINARY-DOUBLE'.
- MOVE 11.0 TO BD-A.
- SUBTRACT 10.0 FROM BD-A.
- MOVE BD-A TO BD-RES.
- IF BD-RES NOT = 1.0
- DISPLAY 'ERROR BINARY-DOUBLE - NUM'.
- *
- ADD BL-B TO BL-A.
- MOVE BL-A TO BL-RES.
- IF BL-RES NOT = 11.0
- DISPLAY 'ERROR BINARY-LONG + BINARY-LONG'.
- MOVE 1.0 TO BL-A.
- ADD 10.0 TO BL-A.
- MOVE BL-A TO BL-RES.
- IF BL-RES NOT = 11.0
- DISPLAY 'ERROR BINARY-LONG + NUM'.
- MOVE 11.0 TO BL-A.
- SUBTRACT BL-B FROM BL-A.
- MOVE BL-A TO BL-RES.
- IF BL-RES NOT = 1.0
- DISPLAY 'ERROR BINARY-LONG - BINARY-LONG'.
- MOVE 11.0 TO BL-A.
- SUBTRACT 10.0 FROM BL-A.
- MOVE BL-A TO BL-RES.
- IF BL-RES NOT = 1.0
- DISPLAY 'ERROR BINARY-LONG - NUM'.
- *
- ADD C-B TO C-A.
- MOVE C-A TO C-RES.
- IF C-RES NOT = 11.0
- DISPLAY 'ERROR COMP + COMP'.
- MOVE 1.0 TO C-A.
- ADD 10.0 TO C-A.
- MOVE C-A TO C-RES.
- IF C-RES NOT = 11.0
- DISPLAY 'ERROR COMP + NUM'.
- MOVE 11.0 TO C-A.
- SUBTRACT C-B FROM C-A.
- MOVE C-A TO C-RES.
- IF C-RES NOT = 1.0
- DISPLAY 'ERROR COMP - COMP'.
- MOVE 11.0 TO C-A.
- SUBTRACT 10.0 FROM C-A.
- MOVE C-A TO C-RES.
- IF C-RES NOT = 1.0
- DISPLAY 'ERROR COMP - NUM'.
- *
- ADD C1-B TO C1-A.
- MOVE C1-A TO C1-RES.
- IF C1-RES NOT = 11.0
- DISPLAY 'ERROR COMP-1 + COMP-1'.
- MOVE 1.0 TO C1-A.
- ADD 10.0 TO C1-A.
- MOVE C1-A TO C1-RES.
- IF C1-RES NOT = 11.0
- DISPLAY 'ERROR COMP-1 + NUM'.
- MOVE 11.0 TO C1-A.
- SUBTRACT C1-B FROM C1-A.
- MOVE C1-A TO C1-RES.
- IF C1-RES NOT = 1.0
- DISPLAY 'ERROR COMP-1 - COMP-1'.
- MOVE 11.0 TO C1-A.
- SUBTRACT 10.0 FROM C1-A.
- MOVE C1-A TO C1-RES.
- IF C1-RES NOT = 1.0
- DISPLAY 'ERROR COMP-1 - NUM'.
- *
- ADD C2-B TO C2-A.
- MOVE C2-A TO C2-RES.
- IF C2-RES NOT = 11.0
- DISPLAY 'ERROR COMP-2 + COMP-2'.
- MOVE 1.0 TO C2-A.
- ADD 10.0 TO C2-A.
- MOVE C2-A TO C2-RES.
- IF C2-RES NOT = 11.0
- DISPLAY 'ERROR COMP-2 + NUM'.
- MOVE 11.0 TO C2-A.
- SUBTRACT C2-B FROM C2-A.
- MOVE C2-A TO C2-RES.
- IF C2-RES NOT = 1.0
- DISPLAY 'ERROR COMP-2 - COMP-2'.
- MOVE 11.0 TO C2-A.
- SUBTRACT 10.0 FROM C2-A.
- MOVE C2-A TO C2-RES.
- IF C2-RES NOT = 1.0
- DISPLAY 'ERROR COMP-2 - NUM'.
- *
- ADD C3-B TO C3-A.
- MOVE C3-A TO C3-RES.
- IF C3-RES NOT = 11.0
- DISPLAY 'ERROR COMP-3 + COMP-3'.
- MOVE 1.0 TO C3-A.
- ADD 10.0 TO C3-A.
- MOVE C3-A TO C3-RES.
- IF C3-RES NOT = 11.0
- DISPLAY 'ERROR COMP-3 + NUM'.
- MOVE 11.0 TO C3-A.
- SUBTRACT C3-B FROM C3-A.
- MOVE C3-A TO C3-RES.
- IF C3-RES NOT = 1.0
- DISPLAY 'ERROR COMP-3 - COMP-3'.
- MOVE 11.0 TO C3-A.
- SUBTRACT 10.0 FROM C3-A.
- MOVE C3-A TO C3-RES.
- IF C3-RES NOT = 1.0
- DISPLAY 'ERROR COMP-3 - NUM'.
- *
- ADD C5-B TO C5-A.
- MOVE C5-A TO C5-RES.
- IF C5-RES NOT = 11.0
- DISPLAY 'ERROR COMP-5 + COMP-5'.
- MOVE 1.0 TO C5-A.
- ADD 10.0 TO C5-A.
- MOVE C5-A TO C5-RES.
- IF C5-RES NOT = 11.0
- DISPLAY 'ERROR COMP-5 + NUM'.
- MOVE 11.0 TO C5-A.
- SUBTRACT C5-B FROM C5-A.
- MOVE C5-A TO C5-RES.
- IF C5-RES NOT = 1.0
- DISPLAY 'ERROR COMP-5 - COMP-5'.
- MOVE 11.0 TO C5-A.
- SUBTRACT 10.0 FROM C5-A.
- MOVE C5-A TO C5-RES.
- IF C5-RES NOT = 1.0
- DISPLAY 'ERROR COMP-5 - NUM'.
- *
- ADD C6-B TO C6-A.
- MOVE C6-A TO C6-RES.
- IF C6-RES NOT = 11.0
- DISPLAY 'ERROR COMP-6 + COMP-6'.
- MOVE 1.0 TO C6-A.
- ADD 10.0 TO C6-A.
- MOVE C6-A TO C6-RES.
- IF C6-RES NOT = 11.0
- DISPLAY 'ERROR COMP-6 + NUM'.
- MOVE 11.0 TO C6-A.
- SUBTRACT C6-B FROM C6-A.
- MOVE C6-A TO C6-RES.
- IF C6-RES NOT = 1.0
- DISPLAY 'ERROR COMP-6 - COMP-6'.
- MOVE 11.0 TO C6-A.
- SUBTRACT 10.0 FROM C6-A.
- MOVE C6-A TO C6-RES.
- IF C6-RES NOT = 1.0
- DISPLAY 'ERROR COMP-6 - NUM'.
- *
- ADD CN9-B TO CN9-A.
- MOVE CN9-A TO CN9-RES.
- IF CN9-RES NOT = 11.0
- DISPLAY 'ERROR COMP-N + COMP-N'.
- MOVE 1.0 TO CN9-A.
- ADD 10.0 TO CN9-A.
- MOVE CN9-A TO CN9-RES.
- IF CN9-RES NOT = 11.0
- DISPLAY 'ERROR COMP-N + NUM'.
- MOVE 11.0 TO CN9-A.
- SUBTRACT CN9-B FROM CN9-A.
- MOVE CN9-A TO CN9-RES.
- IF CN9-RES NOT = 1.0
- DISPLAY 'ERROR COMP-N - COMP-N'.
- MOVE 11.0 TO CN9-A.
- SUBTRACT 10.0 FROM CN9-A.
- MOVE CN9-A TO CN9-RES.
- IF CN9-RES NOT = 1.0
- DISPLAY 'ERROR COMP-N - NUM'.
- *
- ADD CNX-B TO CNX-A.
- MOVE CNX-A TO CNX-RES.
- IF CNX-RES NOT = 11.0
- DISPLAY 'ERROR COMP-N + COMP-N'.
- MOVE 1.0 TO CNX-A.
- ADD 10.0 TO CNX-A.
- MOVE CNX-A TO CNX-RES.
- IF CNX-RES NOT = 11.0
- DISPLAY 'ERROR COMP-N + NUM'.
- MOVE 11.0 TO CNX-A.
- SUBTRACT CNX-B FROM CNX-A.
- MOVE CNX-A TO CNX-RES.
- IF CNX-RES NOT = 1.0
- DISPLAY 'ERROR COMP-N - COMP-N'.
- MOVE 11.0 TO CNX-A.
- SUBTRACT 10.0 FROM CNX-A.
- MOVE CNX-A TO CNX-RES.
- IF CNX-RES NOT = 1.0
- DISPLAY 'ERROR COMP-N - NUM'.
- *
- ADD CX9-B TO CX9-A.
- MOVE CX9-A TO CX9-RES.
- IF CX9-RES NOT = 11.0
- DISPLAY 'ERROR COMP-X + COMP-X'.
- MOVE 1.0 TO CX9-A.
- ADD 10.0 TO CX9-A.
- MOVE CX9-A TO CX9-RES.
- IF CX9-RES NOT = 11.0
- DISPLAY 'ERROR COMP-X + NUM'.
- MOVE 11.0 TO CX9-A.
- SUBTRACT CX9-B FROM CX9-A.
- MOVE CX9-A TO CX9-RES.
- IF CX9-RES NOT = 1.0
- DISPLAY 'ERROR COMP-X - COMP-X'.
- MOVE 11.0 TO CX9-A.
- SUBTRACT 10.0 FROM CX9-A.
- MOVE CX9-A TO CX9-RES.
- IF CX9-RES NOT = 1.0
- DISPLAY 'ERROR COMP-X - NUM'.
- *
- ADD CXX-B TO CXX-A.
- MOVE CXX-A TO CXX-RES.
- IF CXX-RES NOT = 11.0
- DISPLAY 'ERROR COMP-X + COMP-X'.
- MOVE 1.0 TO CXX-A.
- ADD 10.0 TO CXX-A.
- MOVE CXX-A TO CXX-RES.
- IF CXX-RES NOT = 11.0
- DISPLAY 'ERROR COMP-X + NUM'.
- MOVE 11.0 TO CXX-A.
- SUBTRACT CXX-B FROM CXX-A.
- MOVE CXX-A TO CXX-RES.
- IF CXX-RES NOT = 1.0
- DISPLAY 'ERROR COMP-X - COMP-X'.
- MOVE 11.0 TO CXX-A.
- SUBTRACT 10.0 FROM CXX-A.
- MOVE CXX-A TO CXX-RES.
- IF CXX-RES NOT = 1.0
- DISPLAY 'ERROR COMP-X - NUM'.
- *
- ADD D-B TO D-A.
- MOVE D-A TO D-RES.
- IF D-RES NOT = 11.0
- DISPLAY 'ERROR DISPLAY + DISPLAY'.
- MOVE 1.0 TO D-A.
- ADD 10.0 TO D-A.
- MOVE D-A TO D-RES.
- IF D-RES NOT = 11.0
- DISPLAY 'ERROR DISPLAY + NUM'.
- MOVE 11.0 TO D-A.
- SUBTRACT D-B FROM D-A.
- MOVE D-A TO D-RES.
- IF D-RES NOT = 1.0
- DISPLAY 'ERROR DISPLAY - DISPLAY'.
- MOVE 11.0 TO D-A.
- SUBTRACT 10.0 FROM D-A.
- MOVE D-A TO D-RES.
- IF D-RES NOT = 1.0
- DISPLAY 'ERROR DISPLAY - NUM'.
- *
- ADD FD16-B TO FD16-A.
- MOVE FD16-A TO FD16-RES.
- IF FD16-RES NOT = 11.0
- DISPLAY 'ERROR FLOAT-DECIMAL-16 + FLOAT-DECIMAL-16'.
- MOVE 1.0 TO FD16-A.
- ADD 10.0 TO FD16-A.
- MOVE FD16-A TO FD16-RES.
- IF FD16-RES NOT = 11.0
- DISPLAY 'ERROR FLOAT-DECIMAL-16 + NUM'.
- MOVE 11.0 TO FD16-A.
- SUBTRACT FD16-B FROM FD16-A.
- MOVE FD16-A TO FD16-RES.
- IF FD16-RES NOT = 1.0
- DISPLAY 'ERROR FLOAT-DECIMAL-16 - FLOAT-DECIMAL-16'.
- MOVE 11.0 TO FD16-A.
- SUBTRACT 10.0 FROM FD16-A.
- MOVE FD16-A TO FD16-RES.
- IF FD16-RES NOT = 1.0
- DISPLAY 'ERROR FLOAT-DECIMAL-16 - NUM'.
- *
- ADD FD34-B TO FD34-A.
- MOVE FD34-A TO FD34-RES.
- IF FD34-RES NOT = 11.0
- DISPLAY 'ERROR FLOAT-DECIMAL-34 + FLOAT-DECIMAL-34'.
- MOVE 1.0 TO FD34-A.
- ADD 10.0 TO FD34-A.
- MOVE FD34-A TO FD34-RES.
- IF FD34-RES NOT = 11.0
- DISPLAY 'ERROR FLOAT-DECIMAL-34 + NUM'.
- MOVE 11.0 TO FD34-A.
- SUBTRACT FD34-B FROM FD34-A.
- MOVE FD34-A TO FD34-RES.
- IF FD34-RES NOT = 1.0
- DISPLAY 'ERROR FLOAT-DECIMAL-34 - FLOAT-DECIMAL-34'.
- MOVE 11.0 TO FD34-A.
- SUBTRACT 10.0 FROM FD34-A.
- MOVE FD34-A TO FD34-RES.
- IF FD34-RES NOT = 1.0
- DISPLAY 'ERROR FLOAT-DECIMAL-34 - NUM'.
- *
- ADD FL-B TO FL-A.
- MOVE FL-A TO FL-RES.
- IF FL-RES NOT = 11.0
- DISPLAY 'ERROR FLOAT-LONG + FLOAT-LONG'.
- MOVE 1.0 TO FL-A.
- ADD 10.0 TO FL-A.
- MOVE FL-A TO FL-RES.
- IF FL-RES NOT = 11.0
- DISPLAY 'ERROR FLOAT-LONG + NUM'.
- MOVE 11.0 TO FL-A.
- SUBTRACT FL-B FROM FL-A.
- MOVE FL-A TO FL-RES.
- IF FL-RES NOT = 1.0
- DISPLAY 'ERROR FLOAT-LONG - FLOAT-LONG'.
- MOVE 11.0 TO FL-A.
- SUBTRACT 10.0 FROM FL-A.
- MOVE FL-A TO FL-RES.
- IF FL-RES NOT = 1.0
- DISPLAY 'ERROR FLOAT-LONG - NUM'.
- *
- ADD FS-B TO FS-A.
- MOVE FS-A TO FS-RES.
- IF FS-RES NOT = 11.0
- DISPLAY 'ERROR FLOAT-SHORT + FLOAT-SHORT'.
- MOVE 1.0 TO FS-A.
- ADD 10.0 TO FS-A.
- MOVE FS-A TO FS-RES.
- IF FS-RES NOT = 11.0
- DISPLAY 'ERROR FLOAT-SHORT + NUM'.
- MOVE 11.0 TO FS-A.
- SUBTRACT FS-B FROM FS-A.
- MOVE FS-A TO FS-RES.
- IF FS-RES NOT = 1.0
- DISPLAY 'ERROR FLOAT-SHORT - FLOAT-SHORT'.
- MOVE 11.0 TO FS-A.
- SUBTRACT 10.0 FROM FS-A.
- MOVE FS-A TO FS-RES.
- IF FS-RES NOT = 1.0
- DISPLAY 'ERROR FLOAT-SHORT - NUM'.
- *
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:6589: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:6589"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:6589"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:6590: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:6590"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:6590"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:6592: \$COMPILE -fno-fast-compare prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fno-fast-compare prog.cob" "run_misc.at:6592"
-( $at_check_trace; $COMPILE -fno-fast-compare prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:6592"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:6593: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:6593"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:6593"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-#AT_CHECK([$COMPILE -fno-fast-math prog.cob], [0], [], [])
-#AT_CHECK([$COBCRUN_DIRECT ./prog], [0], [], [])
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:6598: \$COMPILE -fnotrunc prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fnotrunc prog.cob" "run_misc.at:6598"
-( $at_check_trace; $COMPILE -fnotrunc prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:6598"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:6599: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:6599"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:6599"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_792
-#AT_START_793
-at_fn_group_banner 793 'run_misc.at:6604' \
- "compilation-group with decimal" " " 4
-at_xfail=no
-(
- printf "%s\n" "793. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# bug 708 - decimal codegen in generated header when only
-# a later program (nested/contained) has decimals
-
-cat >prog.cob <<'_ATEOF'
-
- identification division.
- program-id. cbug.
- procedure division.
- mainline.
- call 'bug'
- goback
- .
- end program cbug.
- *
- identification division.
- program-id. bug.
- data division.
- working-storage section.
- 01 pw pic 9(02).
- 01 px pic x value '3'.
- procedure division.
- mainline.
- compute pw = function numval(px).
- if pw <> 3
- display 'bad calc: ' pw.
- goback
- .
- end program bug.
-_ATEOF
-
-
-# we're mostly interested in the codegen, but as we have compiled
-# that we can execute it, too
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:6638: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:6638"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:6638"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:6639: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:6639"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:6639"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_793
-#AT_START_794
-at_fn_group_banner 794 'run_misc.at:6644' \
- "C/C++ reserved words/predefined identifiers" " " 4
-at_xfail=no
-(
- printf "%s\n" "794. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- *
- * Reserved Words in C (that aren't reserved in COBOL)
- * var names MUST BE IN LOWER CASE (!)
- *
- 77 const PIC X VALUE "A".
- 77 double PIC X VALUE "B".
- 77 float PIC X VALUE "C".
- 77 int PIC X VALUE "D".
- 77 short PIC X VALUE "E".
- 77 struct PIC X VALUE "F".
- 77 break PIC X VALUE "G".
- 77 long PIC X VALUE "H".
- 77 switch PIC X VALUE "I".
- 77 void PIC X VALUE "J".
- 77 case PIC X VALUE "K".
- 77 enum PIC X VALUE "L".
- 77 goto PIC X VALUE "M".
- 77 register PIC X VALUE "N".
- 77 sizeof PIC X VALUE "O".
- 77 volatile PIC X VALUE "P".
- 77 char PIC X VALUE "Q".
- 77 do PIC X VALUE "R".
- 77 extern PIC X VALUE "S".
- 77 static PIC X VALUE "T".
- 77 union PIC X VALUE "U".
- 77 while PIC X VALUE "V".
- *
- * More Reserved Words in C++
- * var names MUST BE IN LOWER CASE (!)
- *
- 77 asm PIC X VALUE "W".
- 77 dynamic_cast PIC X VALUE "X".
- 77 namespace PIC X VALUE "Y".
- 77 reinterpret_cast PIC X VALUE "Z".
- 77 try PIC X VALUE "a".
- 77 bool PIC X VALUE "b".
- 77 explicit PIC X VALUE "c".
- 77 new PIC X VALUE "d".
- 77 static_cast PIC X VALUE "e".
- 77 typeid PIC X VALUE "f".
- 77 catch PIC X VALUE "g".
- 77 operator PIC X VALUE "h".
- 77 template PIC X VALUE "i".
- 77 typename PIC X VALUE "j".
- 77 friend PIC X VALUE "k".
- 77 private PIC X VALUE "l".
- 77 this PIC X VALUE "m".
- 77 const_cast PIC X VALUE "n".
- 77 inline PIC X VALUE "o".
- 77 public PIC X VALUE "p".
- 77 throw PIC X VALUE "q".
- 77 virtual PIC X VALUE "r".
- 77 mutable PIC X VALUE "s".
- 77 protected PIC X VALUE "t".
- 77 wchar_t PIC X VALUE "u".
- *
- * More Reserved Words in C++ (not essential)
- * var names MUST BE IN LOWER CASE (!)
- *
- 77 bitand PIC X VALUE "v".
- 77 compl PIC X VALUE "w".
- 77 not_eq PIC X VALUE "x".
- 77 or_eq PIC X VALUE "y".
- 77 xor_eq PIC X VALUE "z".
- 77 and_eq PIC X VALUE "0".
- 77 bitor PIC X VALUE "1".
- 77 xor PIC X VALUE "2".
- *
- PROCEDURE DIVISION.
- CALL "callee" USING const
- double
- float
- int
- short
- struct
- break
- long
- switch
- void
- case
- enum
- goto
- register
- sizeof
- volatile
- char
- do
- *>extern
- *>static
- union
- while
- END-CALL.
- CALL "callee2" USING asm
- dynamic_cast
- namespace
- reinterpret_cast
- try
- bool
- explicit
- new
- static_cast
- typeid
- catch
- operator
- template
- typename
- friend
- private
- this
- const_cast
- inline
- public
- throw
- virtual
- mutable
- protected
- wchar_t
- bitand
- compl
- not_eq
- or_eq
- xor_eq
- and_eq
- bitor
- xor
- END-CALL.
- MOVE x'00' TO const
- double
- float
- int
- short
- struct
- break
- long
- switch
- void
- case
- enum
- goto
- register
- sizeof
- volatile
- char
- do
- extern
- static
- union
- while
- asm
- dynamic_cast
- namespace
- reinterpret_cast
- try
- bool
- explicit
- new
- static_cast
- typeid
- catch
- operator
- template
- typename
- friend
- private
- this
- const_cast
- inline
- public
- throw
- virtual
- mutable
- protected
- wchar_t
- bitand
- compl
- not_eq
- or_eq
- xor_eq
- and_eq
- bitor
- xor
- .
- STOP RUN.
-_ATEOF
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- DATA DIVISION.
- LINKAGE SECTION.
- *
- * Reserved Words in C (that aren't reserved in COBOL)
- * var names MUST BE IN LOWER CASE (!)
- *
- 77 const PIC X.
- 77 double PIC X.
- 77 float PIC X.
- 77 int PIC X.
- 77 short PIC X.
- 77 struct PIC X.
- 77 break PIC X.
- 77 long PIC X.
- 77 switch PIC X.
- 77 void PIC X.
- 77 case PIC X.
- 77 enum PIC X.
- 77 goto PIC X.
- 77 register PIC X.
- 77 sizeof PIC X.
- 77 volatile PIC X.
- 77 char PIC X.
- 77 do PIC X.
- *77 extern PIC X.
- *77 static PIC X.
- 77 union PIC X.
- 77 while PIC X.
- PROCEDURE DIVISION USING
- const
- double
- float
- int
- short
- struct
- break
- long
- switch
- void
- case
- enum
- goto
- register
- sizeof
- volatile
- char
- do
- *>extern
- *>static
- union
- while
- .
- IF (const NOT = "A") OR
- (double NOT = "B") OR
- (float NOT = "C") OR
- (int NOT = "D") OR
- (short NOT = "E") OR
- (struct NOT = "F") OR
- (break NOT = "G") OR
- (long NOT = "H") OR
- (switch NOT = "I") OR
- (void NOT = "J") OR
- (case NOT = "K") OR
- (enum NOT = "L") OR
- (goto NOT = "M") OR
- (register NOT = "N") OR
- (sizeof NOT = "O") OR
- (volatile NOT = "P") OR
- (char NOT = "Q") OR
- (do NOT = "R") OR
- *>(extern NOT = "S") OR
- *>(static NOT = "T") OR
- (union NOT = "U") OR
- (while NOT = "V")
- DISPLAY "At least one var has wrong content!".
- MOVE x'FF' TO const
- double
- float
- int
- short
- struct
- break
- long
- switch
- void
- case
- enum
- goto
- register
- sizeof
- volatile
- char
- do
- *>extern
- *>static
- union
- while
- .
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >callee2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee2.
- DATA DIVISION.
- LINKAGE SECTION.
- *
- * More Reserved Words in C++
- * var names MUST BE IN LOWER CASE (!)
- *
- 77 asm PIC X.
- 77 dynamic_cast PIC X.
- 77 namespace PIC X.
- 77 reinterpret_cast PIC X.
- 77 try PIC X.
- 77 bool PIC X.
- 77 explicit PIC X.
- 77 new PIC X.
- 77 static_cast PIC X.
- 77 typeid PIC X.
- 77 catch PIC X.
- 77 operator PIC X.
- 77 template PIC X.
- 77 typename PIC X.
- 77 friend PIC X.
- 77 private PIC X.
- 77 this PIC X.
- 77 const_cast PIC X.
- 77 inline PIC X.
- 77 public PIC X.
- 77 throw PIC X.
- 77 virtual PIC X.
- 77 mutable PIC X.
- 77 protected PIC X.
- 77 wchar_t PIC X.
- *
- * More Reserved Words in C++ (not essential)
- *
- 77 bitand PIC X.
- 77 compl PIC X.
- 77 not_eq PIC X.
- 77 or_eq PIC X.
- 77 xor_eq PIC X.
- 77 and_eq PIC X.
- 77 bitor PIC X.
- 77 xor PIC X.
- PROCEDURE DIVISION USING
- asm
- dynamic_cast
- namespace
- reinterpret_cast
- try
- bool
- explicit
- new
- static_cast
- typeid
- catch
- operator
- template
- typename
- friend
- private
- this
- const_cast
- inline
- public
- throw
- virtual
- mutable
- protected
- wchar_t
- bitand
- compl
- not_eq
- or_eq
- xor_eq
- and_eq
- bitor
- xor
- .
- IF (asm NOT = "W") OR
- (dynamic_cast NOT = "X") OR
- (namespace NOT = "Y") OR
- (reinterpret_cast NOT = "Z") OR
- (try NOT = "a") OR
- (bool NOT = "b") OR
- (explicit NOT = "c") OR
- (new NOT = "d") OR
- (static_cast NOT = "e") OR
- (typeid NOT = "f") OR
- (catch NOT = "g") OR
- (operator NOT = "h") OR
- (template NOT = "i") OR
- (typename NOT = "j") OR
- (friend NOT = "k") OR
- (private NOT = "l") OR
- (this NOT = "m") OR
- (const_cast NOT = "n") OR
- (inline NOT = "o") OR
- (public NOT = "p") OR
- (throw NOT = "q") OR
- (virtual NOT = "r") OR
- (mutable NOT = "s") OR
- (protected NOT = "t") OR
- (wchar_t NOT = "u") OR
- (bitand NOT = "v") OR
- (compl NOT = "w") OR
- (not_eq NOT = "x") OR
- (or_eq NOT = "y") OR
- (xor_eq NOT = "z") OR
- (and_eq NOT = "0") OR
- (bitor NOT = "1") OR
- (xor NOT = "2")
- DISPLAY "At least one var has wrong content!".
- MOVE x'FF' TO asm
- dynamic_cast
- namespace
- reinterpret_cast
- try
- bool
- explicit
- new
- static_cast
- typeid
- catch
- operator
- template
- typename
- friend
- private
- this
- const_cast
- inline
- public
- throw
- virtual
- mutable
- protected
- wchar_t
- bitand
- compl
- not_eq
- or_eq
- xor_eq
- and_eq
- bitor
- xor
- .
- EXIT PROGRAM.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7092: \$COMPILE_MODULE -fnot-reserved=double,float,new,volatile,xor callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE -fnot-reserved=double,float,new,volatile,xor callee.cob" "run_misc.at:7092"
-( $at_check_trace; $COMPILE_MODULE -fnot-reserved=double,float,new,volatile,xor callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7092"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7093: \$COMPILE_MODULE -fnot-reserved=double,float,new,volatile,xor callee2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE -fnot-reserved=double,float,new,volatile,xor callee2.cob" "run_misc.at:7093"
-( $at_check_trace; $COMPILE_MODULE -fnot-reserved=double,float,new,volatile,xor callee2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7093"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7094: \$COMPILE -fnot-reserved=double,float,new,volatile,xor -o prog caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fnot-reserved=double,float,new,volatile,xor -o prog caller.cob" "run_misc.at:7094"
-( $at_check_trace; $COMPILE -fnot-reserved=double,float,new,volatile,xor -o prog caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7094"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7095: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:7095"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7095"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_794
-#AT_START_795
-at_fn_group_banner 795 'run_misc.at:7100' \
- "PICTURE with Edit mask" " " 4
-at_xfail=no
-(
- printf "%s\n" "795. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TST.
- 05 DEPT-SUB PIC 9(7)V999 VALUE 18536.232.
- 05 DEPT-COST-YTD PIC 9(5)V999 VALUE 18536.232.
- 05 DL-PROD-COST PIC $$$,$$9.99.
- 77 WFLT PIC $$$,$$9.99.
-
- PROCEDURE DIVISION.
- MOVE 18536.23 TO WFLT.
- DISPLAY "WFLT IS " WFLT.
- MULTIPLY DEPT-COST-YTD BY 1 GIVING DL-PROD-COST ROUNDED.
- DISPLAY "COST IS " DL-PROD-COST.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7122: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:7122"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7122"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7124: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:7124"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "WFLT IS \$18,536.23
-COST IS \$18,536.23
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7124"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_795
-#AT_START_796
-at_fn_group_banner 796 'run_misc.at:7173' \
- "POINTER" " " 4
-at_xfail=no
-(
- printf "%s\n" "796. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 XX.
- 02 XX-1 PIC X(4) VALUE "1234".
- 02 XX-2 PIC X(4) VALUE "5678".
- 01 P-XX-1 POINTER.
- 01 P-XX-2 POINTER.
- LINKAGE SECTION.
- 01 Y2 PIC X(4).
- PROCEDURE DIVISION.
- SET P-XX-1 TO ADDRESS OF XX-1
- SET P-XX-2 TO ADDRESS OF XX-2
- SET ADDRESS OF Y2 TO ADDRESS OF XX-1
- SET ADDRESS OF Y2 UP BY 4
- IF Y2 NOT = XX-2
- DISPLAY "Test 2 '" Y2 "'"
- END-DISPLAY
- END-IF
- IF ADDRESS OF Y2 NOT = P-XX-2
- DISPLAY "NOK"
- END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7203: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:7203"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7203"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7204: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:7204"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7204"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_796
-#AT_START_797
-at_fn_group_banner 797 'run_misc.at:7209' \
- "CALL RETURNING POINTER" " " 4
-at_xfail=no
-(
- printf "%s\n" "797. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- identification division.
- program-id. prog.
-
- data division.
- working-storage section.
-
- 01 c-text-pointer usage pointer.
-
- procedure division.
-
- call static "cob_getenv"
- using "COB_UNIX_LF"
- returning c-text-pointer
- end-call
-
- IF function content-of(c-text-pointer) <> "1"
- DISPLAY "unexpected value: "
- function content-of(c-text-pointer).
-
- GOBACK.
-_ATEOF
-
-
-cat >calldyn.c <<'_ATEOF'
-
-#include <libcob.h>
-
-/* wrapper function as C functions are not
- accessible without explicit loading on all systems */
-COB_EXT_EXPORT char *
-calldyn (unsigned char *env_name)
-{
- return cob_getenv (env_name);
-}
-_ATEOF
-
-
-cat >progdyn.cob <<'_ATEOF'
-
- identification division.
- program-id. progdyn.
-
- data division.
- working-storage section.
-
- 01 c-text-pointer usage pointer.
-
- procedure division.
-
- call "calldyn"
- using "COB_UNIX_LF"
- returning c-text-pointer
- end-call
-
- IF function content-of(c-text-pointer) <> "1"
- DISPLAY "unexpected value: "
- function content-of(c-text-pointer).
-
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7270: \$COMPILE -fno-gen-c-decl-static-call prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fno-gen-c-decl-static-call prog.cob" "run_misc.at:7270"
-( $at_check_trace; $COMPILE -fno-gen-c-decl-static-call prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7270"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7271: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:7271"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7271"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7272: \$COMPILE_MODULE calldyn.c"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE calldyn.c" "run_misc.at:7272"
-( $at_check_trace; $COMPILE_MODULE calldyn.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7272"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7273: \$COMPILE progdyn.cob"
-at_fn_check_prepare_dynamic "$COMPILE progdyn.cob" "run_misc.at:7273"
-( $at_check_trace; $COMPILE progdyn.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7273"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7274: \$COBCRUN_DIRECT ./progdyn"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./progdyn" "run_misc.at:7274"
-( $at_check_trace; $COBCRUN_DIRECT ./progdyn
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7274"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_797
-#AT_START_798
-at_fn_group_banner 798 'run_misc.at:7279' \
- "ON EXCEPTION clause of DISPLAY" " " 4
-at_xfail=no
-(
- printf "%s\n" "798. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7281: \$SKIP_TEST_TEMPORARILY"
-at_fn_check_prepare_dynamic "$SKIP_TEST_TEMPORARILY" "run_misc.at:7281"
-( $at_check_trace; $SKIP_TEST_TEMPORARILY
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7281"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7283: test \"\$COB_HAS_CURSES\" = \"yes\" || exit 77"
-at_fn_check_prepare_dynamic "test \"$COB_HAS_CURSES\" = \"yes\" || exit 77" "run_misc.at:7283"
-( $at_check_trace; test "$COB_HAS_CURSES" = "yes" || exit 77
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7283"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- PROCEDURE DIVISION.
- DISPLAY "hello" AT COLUMN 500
- ON EXCEPTION
- GOBACK RETURNING 0
- NOT ON EXCEPTION
- GOBACK RETURNING 1
- END-DISPLAY
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7299: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:7299"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7299"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7300: COB_EXIT_WAIT=0 \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_EXIT_WAIT=0 $COBCRUN_DIRECT ./prog" "run_misc.at:7300"
-( $at_check_trace; COB_EXIT_WAIT=0 $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7300"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_798
-#AT_START_799
-at_fn_group_banner 799 'run_misc.at:7305' \
- "EC-SCREEN-LINE-NUMBER and -STARTING-COLUMN" " " 4
-at_xfail=no
-(
- printf "%s\n" "799. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7308: \$SKIP_TEST_TEMPORARILY"
-at_fn_check_prepare_dynamic "$SKIP_TEST_TEMPORARILY" "run_misc.at:7308"
-( $at_check_trace; $SKIP_TEST_TEMPORARILY
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7308"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7309: test \"\$COB_HAS_CURSES\" = \"yes\" || exit 77"
-at_fn_check_prepare_dynamic "test \"$COB_HAS_CURSES\" = \"yes\" || exit 77" "run_misc.at:7309"
-( $at_check_trace; test "$COB_HAS_CURSES" = "yes" || exit 77
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7309"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- SCREEN SECTION.
- 01 invalid-line.
- 03 a VALUE "a" LINE 99999999.
- 01 invalid-col.
- 03 c VALUE "c" COLUMN 99999999.
-
- PROCEDURE DIVISION.
- DISPLAY invalid-line END-DISPLAY
- IF FUNCTION EXCEPTION-STATUS = "EC-SCREEN-LINE-NUMBER"
- CONTINUE
- ELSE
- GOBACK RETURNING 1
- END-IF
-
- DISPLAY invalid-col END-DISPLAY
- IF FUNCTION EXCEPTION-STATUS = "EC-SCREEN-STARTING-COLUMN"
- CONTINUE
- ELSE
- GOBACK RETURNING 2
- END-IF
-
- GOBACK RETURNING 0
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7341: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:7341"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7341"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7342: COB_EXIT_WAIT=0 \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_EXIT_WAIT=0 $COBCRUN_DIRECT ./prog" "run_misc.at:7342"
-( $at_check_trace; COB_EXIT_WAIT=0 $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7342"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_799
-#AT_START_800
-at_fn_group_banner 800 'run_misc.at:7347' \
- "LINE/COLUMN 0 exceptions" " " 4
-at_xfail=no
-(
- printf "%s\n" "800. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7350: \$SKIP_TEST_TEMPORARILY"
-at_fn_check_prepare_dynamic "$SKIP_TEST_TEMPORARILY" "run_misc.at:7350"
-( $at_check_trace; $SKIP_TEST_TEMPORARILY
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7350"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7351: test \"\$COB_HAS_CURSES\" = \"yes\" || exit 77"
-at_fn_check_prepare_dynamic "test \"$COB_HAS_CURSES\" = \"yes\" || exit 77" "run_misc.at:7351"
-( $at_check_trace; test "$COB_HAS_CURSES" = "yes" || exit 77
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7351"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 zero-var PIC 9 VALUE 0.
-
- SCREEN SECTION.
- 01 scr.
- 03 VALUE "a".
-
- PROCEDURE DIVISION.
- DISPLAY scr AT LINE zero-var
- IF FUNCTION EXCEPTION-STATUS <> "EC-SCREEN-LINE-NUMBER"
- GOBACK RETURNING 1
- END-IF
-
- DISPLAY scr AT COLUMN zero-var
- IF FUNCTION EXCEPTION-STATUS <> "EC-SCREEN-STARTING-COLUMN"
- GOBACK RETURNING 2
- END-IF
-
- GOBACK RETURNING 0
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7380: \$COMPILE -faccept-display-extensions=error prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -faccept-display-extensions=error prog.cob" "run_misc.at:7380"
-( $at_check_trace; $COMPILE -faccept-display-extensions=error prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7380"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7381: COB_EXIT_WAIT=0 \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_EXIT_WAIT=0 $COBCRUN_DIRECT ./prog" "run_misc.at:7381"
-( $at_check_trace; COB_EXIT_WAIT=0 $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7381"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_800
-#AT_START_801
-at_fn_group_banner 801 'run_misc.at:7386' \
- "SET LAST EXCEPTION TO OFF" " " 4
-at_xfail=no
-(
- printf "%s\n" "801. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x PIC 9.
-
- PROCEDURE DIVISION.
- COMPUTE x = 10
- DISPLAY FUNCTION TRIM(FUNCTION EXCEPTION-STATUS)
- DISPLAY FUNCTION TRIM(FUNCTION EXCEPTION-LOCATION)
- DISPLAY FUNCTION TRIM(FUNCTION EXCEPTION-STATUS)
- DISPLAY FUNCTION TRIM(FUNCTION EXCEPTION-LOCATION)
- SET LAST EXCEPTION TO OFF
- DISPLAY FUNCTION TRIM(FUNCTION EXCEPTION-STATUS)
- DISPLAY FUNCTION TRIM(FUNCTION EXCEPTION-LOCATION)
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7409: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:7409"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7409"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7410: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:7410"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "EC-SIZE-OVERFLOW
-prog; ; 10
-EC-SIZE-OVERFLOW
-prog; ; 10
-
-
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7410"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_801
-#AT_START_802
-at_fn_group_banner 802 'run_misc.at:7422' \
- "void PROCEDURE" " " 4
-at_xfail=no
-(
- printf "%s\n" "802. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- DATA DIVISION.
- PROCEDURE DIVISION RETURNING OMITTED.
- MOVE 42 TO RETURN-CODE
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- PROCEDURE DIVISION.
- CALL "callee" RETURNING OMITTED
- END-CALL.
- DISPLAY RETURN-CODE WITH NO ADVANCING
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7444: \$COMPILE_MODULE callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee.cob" "run_misc.at:7444"
-( $at_check_trace; $COMPILE_MODULE callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7444"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7445: \$COMPILE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE caller.cob" "run_misc.at:7445"
-( $at_check_trace; $COMPILE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7445"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7446: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_misc.at:7446"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "+000000000" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7446"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_802
-#AT_START_803
-at_fn_group_banner 803 'run_misc.at:7451' \
- "Figurative constants to numeric field" " " 4
-at_xfail=no
-(
- printf "%s\n" "803. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 NUM9 PIC 9(6).
- PROCEDURE DIVISION.
- MOVE SPACES TO NUM9
- DISPLAY "NUM9 value SPACES is " NUM9 "." UPON SYSOUT
- MOVE LOW-VALUES TO NUM9
- IF NUM9 = LOW-VALUES
- DISPLAY "9(6) tests OK for LOW-VALUES" UPON SYSOUT
- ELSE
- DISPLAY "9(6) Does NOT test OK for LOW-VALUES"
- UPON SYSOUT
- IF NUM9 = ZERO
- DISPLAY "9(6) tests as ZERO instead of LOW-VALUES"
- UPON SYSOUT
- END-IF
- END-IF.
- MOVE HIGH-VALUES TO NUM9
- IF NUM9 = HIGH-VALUES
- DISPLAY "9(6) tests OK for HIGH-VALUES" UPON SYSOUT
- ELSE
- DISPLAY "9(6) Does NOT test OK for HIGH-VALUES"
- UPON SYSOUT
- IF NUM9 = ZERO
- DISPLAY "9(6) tests as ZERO instead of HIGH-VALUES"
- UPON SYSOUT
- END-IF
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7488: \$COMPILE -std=mf prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=mf prog.cob" "run_misc.at:7488"
-( $at_check_trace; $COMPILE -std=mf prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: warning: source is non-numeric - substituting zero
-prog.cob:10: warning: source is non-numeric - substituting zero
-prog.cob:21: warning: source is non-numeric - substituting zero
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7488"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7494: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:7494"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "NUM9 value SPACES is 000000.
-9(6) Does NOT test OK for LOW-VALUES
-9(6) tests as ZERO instead of LOW-VALUES
-9(6) Does NOT test OK for HIGH-VALUES
-9(6) tests as ZERO instead of HIGH-VALUES
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7494"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7502: \$COMPILE -std=acu prog.cob -o aprog"
-at_fn_check_prepare_dynamic "$COMPILE -std=acu prog.cob -o aprog" "run_misc.at:7502"
-( $at_check_trace; $COMPILE -std=acu prog.cob -o aprog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7502"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7504: \$COBCRUN_DIRECT ./aprog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./aprog" "run_misc.at:7504"
-( $at_check_trace; $COBCRUN_DIRECT ./aprog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "NUM9 value SPACES is .
-9(6) tests OK for LOW-VALUES
-9(6) tests OK for HIGH-VALUES
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7504"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_803
-#AT_START_804
-at_fn_group_banner 804 'run_misc.at:7513' \
- "MF FIGURATIVE to NUMERIC" " " 4
-at_xfail=no
-(
- printf "%s\n" "804. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# FIXME: This test will NOT work on EBCDIC machines,
-# either add it explicit here and split into two or add
-# a pre-test and check the expected "native" result
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 MYFLD PIC 9(4) VALUE 96.
- 01 BIGFLT COMP-1 VALUE 543.12345E10.
- PROCEDURE DIVISION.
- MAIN-1.
- DISPLAY "Initial value"
- PERFORM SHOW-IT.
- DISPLAY "MOVE BIGFLT"
- MOVE BIGFLT TO MYFLD.
- PERFORM SHOW-IT.
- DISPLAY "MOVE SPACES"
- MOVE SPACES TO MYFLD.
- PERFORM SHOW-IT.
- DISPLAY "MOVE LOW-VALUES"
- MOVE LOW-VALUES TO MYFLD.
- PERFORM SHOW-IT.
- DISPLAY "MOVE HIGH-VALUES"
- MOVE HIGH-VALUES TO MYFLD.
- PERFORM SHOW-IT.
- DISPLAY "MOVE QUOTE"
- MOVE QUOTE TO MYFLD.
- PERFORM SHOW-IT.
- DISPLAY "MOVE ALL *"
- MOVE ALL '*' TO MYFLD.
- PERFORM SHOW-IT.
- DISPLAY "MOVE ALL 0"
- MOVE ALL '0' TO MYFLD.
- PERFORM SHOW-IT.
- DISPLAY "MOVE ALL 'A1'"
- MOVE ALL 'A1' TO MYFLD.
- PERFORM SHOW-IT.
- DISPLAY "MOVE ALL '21'"
- MOVE ALL '21' TO MYFLD.
- PERFORM SHOW-IT.
- DISPLAY "MOVE HIGH-VALUES TO (1:)"
- MOVE HIGH-VALUES TO MYFLD (1:).
- PERFORM SHOW-IT.
-
- DISPLAY "MOVE HIGH-VALUES TO BIGFLT"
- MOVE HIGH-VALUES TO BIGFLT.
- PERFORM SHOW-BIG.
- CALL "dump" USING BIGFLT.
- DISPLAY "MOVE QUOTE TO BIGFLT"
- MOVE QUOTE TO BIGFLT.
- PERFORM SHOW-BIG.
- CALL "dump" USING BIGFLT.
- DISPLAY "MOVE ALL * TO BIGFLT"
- MOVE ALL '*' TO BIGFLT.
- PERFORM SHOW-BIG.
- *> Note: the next results are dependant on endianess
- *> therefore no dump here
- DISPLAY "MOVE ALL '21' TO BIGFLT"
- MOVE ALL '21' TO BIGFLT.
- PERFORM SHOW-BIG.
- STOP RUN.
- SHOW-IT.
- CALL "dump" USING MYFLD.
- SHOW-BIG.
- DISPLAY "BIGFLT is " BIGFLT.
-_ATEOF
-
-
-cat >cmod.c <<'_ATEOF'
-
-#include <stdio.h>
-#include <libcob.h>
-
-COB_EXT_EXPORT int
-dump (unsigned char *data)
-{
- int i;
- for (i = 0; i < 4; i++)
- printf ("%02X", data[i]);
- puts (" .");
- return 0;
-}
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7600: \$COMPILE -std=mf -fno-move-non-numeric-lit-to-numeric-is-zero prog.cob cmod.c"
-at_fn_check_prepare_dynamic "$COMPILE -std=mf -fno-move-non-numeric-lit-to-numeric-is-zero prog.cob cmod.c" "run_misc.at:7600"
-( $at_check_trace; $COMPILE -std=mf -fno-move-non-numeric-lit-to-numeric-is-zero prog.cob cmod.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in paragraph 'MAIN-1':
-prog.cob:28: warning: numeric value is expected
-prog.cob:6: note: 'MYFLD' defined here as PIC 9(4)
-prog.cob:34: warning: numeric value is expected
-prog.cob:6: note: 'MYFLD' defined here as PIC 9(4)
-prog.cob:52: warning: numeric value is expected
-prog.cob:7: note: 'BIGFLT' defined here as USAGE FLOAT
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7600"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7610: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:7610"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Initial value
-30303936 .
-MOVE BIGFLT
-38333034 .
-MOVE SPACES
-20202020 .
-MOVE LOW-VALUES
-00000000 .
-MOVE HIGH-VALUES
-FFFFFFFF .
-MOVE QUOTE
-22222222 .
-MOVE ALL *
-2A2A2A2A .
-MOVE ALL 0
-30303030 .
-MOVE ALL 'A1'
-41314131 .
-MOVE ALL '21'
-32313231 .
-MOVE HIGH-VALUES TO (1:)
-FFFFFFFF .
-MOVE HIGH-VALUES TO BIGFLT
-BIGFLT is NaN
-FFFFFFFF .
-MOVE QUOTE TO BIGFLT
-BIGFLT is 2.1973164E-18
-22222222 .
-MOVE ALL * TO BIGFLT
-BIGFLT is 5.4312347E+12
-MOVE ALL '21' TO BIGFLT
-BIGFLT is 2.1212121E+37
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7610"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_804
-#AT_START_805
-at_fn_group_banner 805 'run_misc.at:7648' \
- "CALL RETURNING" " " 4
-at_xfail=no
-(
- printf "%s\n" "805. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- PROCEDURE DIVISION.
- MOVE 43 TO RETURN-CODE
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 my-display-return PIC 99.
- 77 my-binary-return USAGE BINARY-LONG.
- PROCEDURE DIVISION.
- CALL "callee" RETURNING my-display-return
- END-CALL
- IF RETURN-CODE NOT = 0
- DISPLAY '1 - unexpected RETURN-CODE: ' RETURN-CODE.
- IF my-display-return NOT = 43
- DISPLAY '1- unexpected RETURNING: ' my-display-return.
- *>
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7677: \$COMPILE -static caller.cob callee.cob -o prog"
-at_fn_check_prepare_dynamic "$COMPILE -static caller.cob callee.cob -o prog" "run_misc.at:7677"
-( $at_check_trace; $COMPILE -static caller.cob callee.cob -o prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7677"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-#AT_CHECK([$COBCRUN_DIRECT ./prog], [0], [], [])
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7679: \$COMPILE_MODULE callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee.cob" "run_misc.at:7679"
-( $at_check_trace; $COMPILE_MODULE callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7679"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7680: \$COMPILE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE caller.cob" "run_misc.at:7680"
-( $at_check_trace; $COMPILE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7680"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7681: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_misc.at:7681"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7681"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_805
-#AT_START_806
-at_fn_group_banner 806 'run_misc.at:7687' \
- "void PROCEDURE, NOTHING return" " " 4
-at_xfail=no
-(
- printf "%s\n" "806. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- DATA DIVISION.
- PROCEDURE DIVISION RETURNING OMITTED.
- MOVE 43 TO RETURN-CODE
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- PROCEDURE DIVISION.
- MOVE 42 TO RETURN-CODE
- CALL "callee" RETURNING NOTHING
- END-CALL.
- IF RETURN-CODE NOT = 42
- DISPLAY 'unexpected RETURN-CODE: ' RETURN-CODE.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7711: \$COMPILE -static caller.cob callee.cob -o prog"
-at_fn_check_prepare_dynamic "$COMPILE -static caller.cob callee.cob -o prog" "run_misc.at:7711"
-( $at_check_trace; $COMPILE -static caller.cob callee.cob -o prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7711"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7712: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:7712"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 42 $at_status "$at_srcdir/run_misc.at:7712"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7713: \$COMPILE_MODULE callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee.cob" "run_misc.at:7713"
-( $at_check_trace; $COMPILE_MODULE callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7713"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7714: \$COMPILE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE caller.cob" "run_misc.at:7714"
-( $at_check_trace; $COMPILE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7714"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7715: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_misc.at:7715"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 42 $at_status "$at_srcdir/run_misc.at:7715"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_806
-#AT_START_807
-at_fn_group_banner 807 'run_misc.at:7722' \
- "READY TRACE / RESET TRACE" " " 4
-at_xfail=no
-(
- printf "%s\n" "807. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 ttab.
- 03 tentries PIC 9 VALUE 0.
- 03 tentry OCCURS 0 TO 5 DEPENDING ON tentries
- ASCENDING KEY tkey INDEXED BY tidx.
- 05 tkey pic x(3).
- 78 ZER VALUE ZERO.
- *>
- PROCEDURE DIVISION.
- READY TRACE
- MOVE 1 TO RETURN-CODE
- RESET TRACE
- CALL "callee1"
- END-CALL
- READY TRACE
- MOVE 2 TO RETURN-CODE
- CALL "callee1"
- END-CALL
- CALL "callee1"
- CANCEL "callee1"
- CALL "callrec"
- MOVE 0 TO RETURN-CODE
- *>
- SEARCH ALL tentry
- AT END
- ADD 1 TO tentries
- SET tidx TO tentries
- MOVE 'A' TO tkey(tidx)
- WHEN tkey(tidx) = 'A'
- DISPLAY '*Magic*'
- END-SEARCH
- *> tidx is still one, expect a direct find
- SEARCH tentry
- AT END
- DISPLAY '*Dark Magic*'
- WHEN tkey(tidx) = 'A'
- ADD 1 TO tentries
- SET tidx TO tentries
- MOVE 'B' TO tkey(tidx)
- END-SEARCH
- *> tidx is still two, expect end
- SEARCH tentry
- VARYING tidx
- AT END
- ADD 1 TO tentries
- SET tidx TO tentries
- MOVE 'C' TO tkey(tidx)
- WHEN tkey(tidx) = ZER
- DISPLAY '* Darker Magic *'
- END-SEARCH
- SEARCH ALL tentry
- AT END
- DISPLAY 'NO COMMENT'
- WHEN tkey(tidx) = 'C'
- CONTINUE
- END-SEARCH
- SEARCH ALL tentry
- WHEN tkey(tidx) = 'X'
- CONTINUE
- END-SEARCH
- *>
- STOP RUN.
-_ATEOF
-
-
-cat >callee1.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee1.
- PROCEDURE DIVISION.
- ADD 1 TO RETURN-CODE
- NOT ON SIZE ERROR
- IF RETURN-CODE = 1
- CONTINUE
- ELSE IF RETURN-CODE = 2
- CONTINUE
- ELSE
- CONTINUE
- .
- EVALUATE RETURN-CODE
- WHEN 1
- CONTINUE
- WHEN 2
- WHEN 3
- CONTINUE
- WHEN OTHER
- CONTINUE
- END-EVALUATE
- EVALUATE TRUE
- WHEN RETURN-CODE = 1
- CONTINUE
- WHEN RETURN-CODE = 2
- WHEN RETURN-CODE = 3
- CONTINUE
- WHEN OTHER
- CONTINUE
- END-EVALUATE
- CALL "callee2" END-CALL
- CANCEL "callee2" CALL "callee2b" END-CALL CANCEL "callee2b"
- SUBTRACT 1 FROM RETURN-CODE
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >callee2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee2.
- PROCEDURE DIVISION.
- COMPUTE RETURN-CODE
- = 1 + 1
- ON SIZE ERROR
- MOVE -1 TO RETURN-CODE
- NOT ON SIZE ERROR
- COMPUTE RETURN-CODE
- = 1 + 1
- END-COMPUTE
- END-COMPUTE.
- CALL "callee2c" END-CALL
- CANCEL "callee2c"
- MOVE 0 TO RETURN-CODE.
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >preload.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee2b.
- PROCEDURE DIVISION.
- DECLARATIVES.
- DEC SECTION. USE EXCEPTION CONDITION EC-BOUNDS.
- DISPLAY "BADDY".
- END DECLARATIVES.
- SOME-SEC SECTION.
- SOME-PAR.
- PERFORM OTHER-SEC
- MOVE 0 TO RETURN-CODE.
- ENTRY "LEAVE-ME".
- END-PAR.
- EXIT PROGRAM.
- OTHER-SEC SECTION.
- COMPUTE RETURN-CODE = 1 + 2 END-COMPUTE.
- EX. EXIT.
-_ATEOF
-
-
-cat >preload2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callrec IS RECURSIVE.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 filler PIC 9 VALUE 0.
- 88 first-call VALUE 0.
- 88 called VALUE 1.
- PROCEDURE DIVISION.
- SOME-SEC SECTION.
- IF first-call
- SET called TO TRUE
- CALL 'callrec'
- END-IF
- GOBACK.
-_ATEOF
-
-
-cat >callee2c.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee2c.
- PROCEDURE DIVISION.
- SOME-SEC SECTION.
- SOME-PAR.
- PERFORM OTHER-SEC
- MOVE 0 TO RETURN-CODE.
- END-PAR.
- EXIT PROGRAM.
- OTHER-SEC SECTION.
- COMPUTE RETURN-CODE = 1 + 2.
- EX. EXIT.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7903: COB_OLD_TRACE=y \\
-\$COBC -ftraceall callee1.cob"
-at_fn_check_prepare_notrace 'an embedded newline' "run_misc.at:7903"
-( $at_check_trace; COB_OLD_TRACE=y \
-$COBC -ftraceall callee1.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7903"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7905: COB_OLD_TRACE=y \\
-\$COBC callee2.cob"
-at_fn_check_prepare_notrace 'an embedded newline' "run_misc.at:7905"
-( $at_check_trace; COB_OLD_TRACE=y \
-$COBC callee2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7905"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7907: COB_OLD_TRACE=y \\
-\$COBC -ftrace -w preload.cob"
-at_fn_check_prepare_notrace 'an embedded newline' "run_misc.at:7907"
-( $at_check_trace; COB_OLD_TRACE=y \
-$COBC -ftrace -w preload.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7907"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7909: COB_OLD_TRACE=y \\
-\$COBC -ftraceall preload2.cob"
-at_fn_check_prepare_notrace 'an embedded newline' "run_misc.at:7909"
-( $at_check_trace; COB_OLD_TRACE=y \
-$COBC -ftraceall preload2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7909"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7911: COB_OLD_TRACE=y \\
-\$COBC -fsource-location callee2c.cob"
-at_fn_check_prepare_notrace 'an embedded newline' "run_misc.at:7911"
-( $at_check_trace; COB_OLD_TRACE=y \
-$COBC -fsource-location callee2c.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7911"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7913: COB_OLD_TRACE=y \\
-\$COBC -x -o prog -ftraceall caller.cob"
-at_fn_check_prepare_notrace 'an embedded newline' "run_misc.at:7913"
-( $at_check_trace; COB_OLD_TRACE=y \
-$COBC -x -o prog -ftraceall caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7913"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:7915: COB_PHYSICAL_CANCEL=1 COB_PRE_LOAD=\"preload\"\$PATHSEP\"preload2\" \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_PHYSICAL_CANCEL=1 COB_PRE_LOAD=\"preload\"$PATHSEP\"preload2\" $COBCRUN_DIRECT ./prog" "run_misc.at:7915"
-( $at_check_trace; COB_PHYSICAL_CANCEL=1 COB_PRE_LOAD="preload"$PATHSEP"preload2" $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "Source : 'caller.cob'
-Program-Id: caller Statement: MOVE Line: 15
-Program-Id: caller Statement: RESET TRACE Line: 16
-Program-Id: caller Statement: MOVE Line: 20
-Program-Id: caller Statement: CALL Line: 21
-Source: 'callee1.cob'
-Program-Id: callee1 Entry: callee1 Line: 5
-Program-Id: callee1 Section: (None) Line: 5
-Program-Id: callee1 Paragraph: (None) Line: 5
-Program-Id: callee1 Statement: ADD Line: 5
-Program-Id: callee1 Statement: IF Line: 7
-Program-Id: callee1 Statement: IF Line: 9
-Program-Id: callee1 Statement: CONTINUE Line: 12
-Program-Id: callee1 Statement: EVALUATE Line: 14
-Program-Id: callee1 Statement: WHEN Line: 15
-Program-Id: callee1 Statement: WHEN Line: 18
-Program-Id: callee1 Statement: CONTINUE Line: 21
-Program-Id: callee1 Statement: EVALUATE Line: 23
-Program-Id: callee1 Statement: WHEN Line: 24
-Program-Id: callee1 Statement: WHEN Line: 27
-Program-Id: callee1 Statement: CONTINUE Line: 30
-Program-Id: callee1 Statement: CALL Line: 32
-Source : 'callee2c.cob'
-Program-Id: callee2c Statement: PERFORM Line: 7
-Program-Id: callee2c Statement: COMPUTE Line: 12
-Program-Id: callee2c Statement: EXIT Line: 13
-Program-Id: callee2c Statement: MOVE Line: 8
-Program-Id: callee2c Statement: EXIT PROGRAM Line: 10
-Source : 'callee1.cob'
-Program-Id: callee1 Statement: CANCEL Line: 33
-Program-Id: callee1 Statement: CALL Line: 33
-Source: 'preload.cob'
-Program-Id: callee2b Entry: callee2b Line: 8
-Program-Id: callee2b Section: SOME-SEC Line: 9
-Program-Id: callee2b Paragraph: SOME-PAR Line: 10
-Program-Id: callee2b Section: OTHER-SEC Line: 16
-Program-Id: callee2b Paragraph: (None) Line: 16
-Program-Id: callee2b Paragraph: EX Line: 18
-Program-Id: callee2b Entry: LEAVE-ME Line: 13
-Program-Id: callee2b Paragraph: END-PAR Line: 14
-Program-Id: callee2b Exit: callee2b
-Source : 'callee1.cob'
-Program-Id: callee1 Statement: CANCEL Line: 33
-Program-Id: callee1 Statement: SUBTRACT Line: 34
-Program-Id: callee1 Statement: EXIT PROGRAM Line: 35
-Program-Id: callee1 Exit: callee1 Line: 35
-Source : 'caller.cob'
-Program-Id: caller Statement: CALL Line: 23
-Source: 'callee1.cob'
-Program-Id: callee1 Entry: callee1 Line: 5
-Program-Id: callee1 Section: (None) Line: 5
-Program-Id: callee1 Paragraph: (None) Line: 5
-Program-Id: callee1 Statement: ADD Line: 5
-Program-Id: callee1 Statement: IF Line: 7
-Program-Id: callee1 Statement: IF Line: 9
-Program-Id: callee1 Statement: CONTINUE Line: 12
-Program-Id: callee1 Statement: EVALUATE Line: 14
-Program-Id: callee1 Statement: WHEN Line: 15
-Program-Id: callee1 Statement: WHEN Line: 18
-Program-Id: callee1 Statement: CONTINUE Line: 21
-Program-Id: callee1 Statement: EVALUATE Line: 23
-Program-Id: callee1 Statement: WHEN Line: 24
-Program-Id: callee1 Statement: WHEN Line: 27
-Program-Id: callee1 Statement: CONTINUE Line: 30
-Program-Id: callee1 Statement: CALL Line: 32
-Source : 'callee2c.cob'
-Program-Id: callee2c Statement: PERFORM Line: 7
-Program-Id: callee2c Statement: COMPUTE Line: 12
-Program-Id: callee2c Statement: EXIT Line: 13
-Program-Id: callee2c Statement: MOVE Line: 8
-Program-Id: callee2c Statement: EXIT PROGRAM Line: 10
-Source : 'callee1.cob'
-Program-Id: callee1 Statement: CANCEL Line: 33
-Program-Id: callee1 Statement: CALL Line: 33
-Source: 'preload.cob'
-Program-Id: callee2b Entry: callee2b Line: 8
-Program-Id: callee2b Section: SOME-SEC Line: 9
-Program-Id: callee2b Paragraph: SOME-PAR Line: 10
-Program-Id: callee2b Section: OTHER-SEC Line: 16
-Program-Id: callee2b Paragraph: (None) Line: 16
-Program-Id: callee2b Paragraph: EX Line: 18
-Program-Id: callee2b Entry: LEAVE-ME Line: 13
-Program-Id: callee2b Paragraph: END-PAR Line: 14
-Program-Id: callee2b Exit: callee2b
-Source : 'callee1.cob'
-Program-Id: callee1 Statement: CANCEL Line: 33
-Program-Id: callee1 Statement: SUBTRACT Line: 34
-Program-Id: callee1 Statement: EXIT PROGRAM Line: 35
-Program-Id: callee1 Exit: callee1 Line: 35
-Source : 'caller.cob'
-Program-Id: caller Statement: CANCEL Line: 24
-Program-Id: caller Statement: CALL Line: 25
-Source: 'preload2.cob'
-Program-Id: callrec Entry: callrec Line: 10
-Program-Id: callrec Section: SOME-SEC Line: 10
-Program-Id: callrec Paragraph: (None) Line: 10
-Program-Id: callrec Statement: IF Line: 11
-Program-Id: callrec Statement: SET Line: 12
-Program-Id: callrec Statement: CALL Line: 13
-Program-Id: callrec Entry: callrec Line: 10
-Program-Id: callrec Section: SOME-SEC Line: 10
-Program-Id: callrec Paragraph: (None) Line: 10
-Program-Id: callrec Statement: IF Line: 11
-Program-Id: callrec Statement: GOBACK Line: 15
-Program-Id: callrec Exit: callrec Line: 15
-Program-Id: callrec Statement: GOBACK Line: 15
-Program-Id: callrec Exit: callrec Line: 15
-Source : 'caller.cob'
-Program-Id: caller Statement: MOVE Line: 26
-Program-Id: caller Statement: SEARCH ALL Line: 28
-Program-Id: caller Statement: AT END Line: 29
-Program-Id: caller Statement: ADD Line: 30
-Program-Id: caller Statement: SET Line: 31
-Program-Id: caller Statement: MOVE Line: 32
-Program-Id: caller Statement: SEARCH Line: 37
-Program-Id: caller Statement: WHEN Line: 40
-Program-Id: caller Statement: ADD Line: 41
-Program-Id: caller Statement: SET Line: 42
-Program-Id: caller Statement: MOVE Line: 43
-Program-Id: caller Statement: SEARCH Line: 46
-Program-Id: caller Statement: WHEN Line: 52
-Program-Id: caller Statement: SEARCH VARYING Line: 47
-Program-Id: caller Statement: AT END Line: 48
-Program-Id: caller Statement: ADD Line: 49
-Program-Id: caller Statement: SET Line: 50
-Program-Id: caller Statement: MOVE Line: 51
-Program-Id: caller Statement: SEARCH ALL Line: 55
-Program-Id: caller Statement: WHEN Line: 58
-Program-Id: caller Statement: CONTINUE Line: 59
-Program-Id: caller Statement: SEARCH ALL Line: 61
-Program-Id: caller Statement: AT END Line: 64
-Program-Id: caller Statement: STOP RUN Line: 66
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:7915"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:8050: \$COBC -ftraceall callee1.cob"
-at_fn_check_prepare_dynamic "$COBC -ftraceall callee1.cob" "run_misc.at:8050"
-( $at_check_trace; $COBC -ftraceall callee1.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:8050"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:8051: \$COBC callee2.cob"
-at_fn_check_prepare_dynamic "$COBC callee2.cob" "run_misc.at:8051"
-( $at_check_trace; $COBC callee2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:8051"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:8052: \$COBC -ftrace -w preload.cob"
-at_fn_check_prepare_dynamic "$COBC -ftrace -w preload.cob" "run_misc.at:8052"
-( $at_check_trace; $COBC -ftrace -w preload.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:8052"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:8053: \$COBC -ftraceall preload2.cob"
-at_fn_check_prepare_dynamic "$COBC -ftraceall preload2.cob" "run_misc.at:8053"
-( $at_check_trace; $COBC -ftraceall preload2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:8053"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:8054: \$COBC -fsource-location -w callee2c.cob"
-at_fn_check_prepare_dynamic "$COBC -fsource-location -w callee2c.cob" "run_misc.at:8054"
-( $at_check_trace; $COBC -fsource-location -w callee2c.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:8054"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:8055: \$COBC -x -o prog -ftraceall caller.cob"
-at_fn_check_prepare_dynamic "$COBC -x -o prog -ftraceall caller.cob" "run_misc.at:8055"
-( $at_check_trace; $COBC -x -o prog -ftraceall caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:8055"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:8056: COB_PHYSICAL_CANCEL=1 COB_PRE_LOAD=\"preload\"\$PATHSEP\"preload2\" \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_PHYSICAL_CANCEL=1 COB_PRE_LOAD=\"preload\"$PATHSEP\"preload2\" $COBCRUN_DIRECT ./prog" "run_misc.at:8056"
-( $at_check_trace; COB_PHYSICAL_CANCEL=1 COB_PRE_LOAD="preload"$PATHSEP"preload2" $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "Source: 'caller.cob'
-Program-Id: caller
-Program-Id: caller MOVE Line: 15
-Program-Id: caller RESET TRACE Line: 16
-Program-Id: caller MOVE Line: 20
-Program-Id: caller CALL Line: 21
-Source: 'callee1.cob'
-Program-Id: callee1
-Program-Id: callee1 Entry: callee1 Line: 5
-Program-Id: callee1 ADD Line: 5
-Program-Id: callee1 IF Line: 7
-Program-Id: callee1 IF Line: 9
-Program-Id: callee1 CONTINUE Line: 12
-Program-Id: callee1 EVALUATE Line: 14
-Program-Id: callee1 WHEN Line: 15
-Program-Id: callee1 WHEN Line: 18
-Program-Id: callee1 CONTINUE Line: 21
-Program-Id: callee1 EVALUATE Line: 23
-Program-Id: callee1 WHEN Line: 24
-Program-Id: callee1 WHEN Line: 27
-Program-Id: callee1 CONTINUE Line: 30
-Program-Id: callee1 CALL Line: 32
-Program-Id: callee1 CANCEL Line: 33
-Program-Id: callee1 CALL Line: 33
-Source: 'preload.cob'
-Program-Id: callee2b
-Program-Id: callee2b Entry: callee2b Line: 8
-Program-Id: callee2b Section: SOME-SEC Line: 9
-Program-Id: callee2b Paragraph: SOME-PAR Line: 10
-Program-Id: callee2b Section: OTHER-SEC Line: 16
-Program-Id: callee2b Paragraph: EX Line: 18
-Program-Id: callee2b Entry: LEAVE-ME Line: 18
-Program-Id: callee2b Paragraph: END-PAR Line: 14
-Program-Id: callee2b Exit: callee2b Line: 14
-Source: 'callee1.cob'
-Program-Id: callee1
-Program-Id: callee1 CANCEL Line: 33
-Program-Id: callee1 SUBTRACT Line: 34
-Program-Id: callee1 EXIT PROGRAM Line: 35
-Program-Id: callee1 Exit: callee1 Line: 35
-Source: 'caller.cob'
-Program-Id: caller
-Program-Id: caller CALL Line: 23
-Source: 'callee1.cob'
-Program-Id: callee1
-Program-Id: callee1 Entry: callee1 Line: 5
-Program-Id: callee1 ADD Line: 5
-Program-Id: callee1 IF Line: 7
-Program-Id: callee1 IF Line: 9
-Program-Id: callee1 CONTINUE Line: 12
-Program-Id: callee1 EVALUATE Line: 14
-Program-Id: callee1 WHEN Line: 15
-Program-Id: callee1 WHEN Line: 18
-Program-Id: callee1 CONTINUE Line: 21
-Program-Id: callee1 EVALUATE Line: 23
-Program-Id: callee1 WHEN Line: 24
-Program-Id: callee1 WHEN Line: 27
-Program-Id: callee1 CONTINUE Line: 30
-Program-Id: callee1 CALL Line: 32
-Program-Id: callee1 CANCEL Line: 33
-Program-Id: callee1 CALL Line: 33
-Source: 'preload.cob'
-Program-Id: callee2b
-Program-Id: callee2b Entry: callee2b Line: 8
-Program-Id: callee2b Section: SOME-SEC Line: 9
-Program-Id: callee2b Paragraph: SOME-PAR Line: 10
-Program-Id: callee2b Section: OTHER-SEC Line: 16
-Program-Id: callee2b Paragraph: EX Line: 18
-Program-Id: callee2b Entry: LEAVE-ME Line: 18
-Program-Id: callee2b Paragraph: END-PAR Line: 14
-Program-Id: callee2b Exit: callee2b Line: 14
-Source: 'callee1.cob'
-Program-Id: callee1
-Program-Id: callee1 CANCEL Line: 33
-Program-Id: callee1 SUBTRACT Line: 34
-Program-Id: callee1 EXIT PROGRAM Line: 35
-Program-Id: callee1 Exit: callee1 Line: 35
-Source: 'caller.cob'
-Program-Id: caller
-Program-Id: caller CANCEL Line: 24
-Program-Id: caller CALL Line: 25
-Source: 'preload2.cob'
-Program-Id: callrec
-Program-Id: callrec Entry: callrec Line: 10
-Program-Id: callrec Section: SOME-SEC Line: 10
-Program-Id: callrec IF Line: 11
-Program-Id: callrec SET Line: 12
-Program-Id: callrec CALL Line: 13
-Program-Id: callrec Entry: callrec Line: 10
-Program-Id: callrec Section: SOME-SEC Line: 10
-Program-Id: callrec IF Line: 11
-Program-Id: callrec GOBACK Line: 15
-Program-Id: callrec Exit: callrec Line: 15
-Program-Id: callrec GOBACK Line: 15
-Program-Id: callrec Exit: callrec Line: 15
-Source: 'caller.cob'
-Program-Id: caller
-Program-Id: caller MOVE Line: 26
-Program-Id: caller SEARCH ALL Line: 28
-Program-Id: caller AT END Line: 29
-Program-Id: caller ADD Line: 30
-Program-Id: caller SET Line: 31
-Program-Id: caller MOVE Line: 32
-Program-Id: caller SEARCH Line: 37
-Program-Id: caller WHEN Line: 40
-Program-Id: caller ADD Line: 41
-Program-Id: caller SET Line: 42
-Program-Id: caller MOVE Line: 43
-Program-Id: caller SEARCH Line: 46
-Program-Id: caller WHEN Line: 52
-Program-Id: caller SEARCH VARYING Line: 47
-Program-Id: caller AT END Line: 48
-Program-Id: caller ADD Line: 49
-Program-Id: caller SET Line: 50
-Program-Id: caller MOVE Line: 51
-Program-Id: caller SEARCH ALL Line: 55
-Program-Id: caller SEARCH VARYING Line: 55
-Program-Id: caller SEARCH VARYING Line: 55
-Program-Id: caller WHEN Line: 58
-Program-Id: caller CONTINUE Line: 59
-Program-Id: caller SEARCH ALL Line: 61
-Program-Id: caller SEARCH VARYING Line: 61
-Program-Id: caller SEARCH VARYING Line: 61
-Program-Id: caller AT END Line: 64
-Program-Id: caller STOP RUN Line: 66
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:8056"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_807
-#AT_START_808
-at_fn_group_banner 808 'run_misc.at:8187' \
- "Trace feature with subroutine" " " 4
-at_xfail=no
-(
- printf "%s\n" "808. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-#AT_KEYWORDS([Trace])
-
-# FIXME: check if the one above is enough and either
-# remove this test or exchange by a non-IDX version
-printf "%s\n" "run_misc.at:8192" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_misc.at:8192"
-
-cat >callsub.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callsub.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 NUM-A PIC 9(3) VALUE 399.
- 01 NUM-B PIC 9(3) VALUE 211.
- 01 RSLT PIC 9(5)V99.
-
- LINKAGE SECTION.
- 01 n PIC 99.
-
- PROCEDURE DIVISION USING n.
- MAIN-10.
- ADD 1 TO n.
- COMPUTE RSLT = ((NUM-A / (100.55 + -0.550))
- - (NUM-B / (10.11 * 10 - 1.1)))
- * (220 / 2.2) * n.
- END PROGRAM callsub.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:8216: \$COMPILE_MODULE callsub.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callsub.cob" "run_misc.at:8216"
-( $at_check_trace; $COMPILE_MODULE callsub.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:8216"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
-
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT OPTIONAL TSPFILE
- ASSIGN TO "testisam"
- ORGANIZATION INDEXED ACCESS DYNAMIC
- RECORD KEY IS CM-CUST-NUM
- ALTERNATE RECORD KEY IS CM-TELEPHONE WITH DUPLICATES
- ALTERNATE RECORD KEY IS CM-DISK WITH DUPLICATES
- FILE STATUS IS CUST-STAT.
-
- SELECT TSTFILE
- ASSIGN TO "testisam"
- ORGANIZATION INDEXED ACCESS DYNAMIC
- RECORD KEY IS TS-CUST-NUM
- ALTERNATE RECORD KEY IS TS-TELEPHONE WITH DUPLICATES
- ALTERNATE RECORD KEY IS TS-DISK WITH DUPLICATES
- FILE STATUS IS CUST-STAT.
-
- SELECT FLATFILE
- ASSIGN EXTERNAL RELFIX
- ORGANIZATION RELATIVE
- ACCESS IS RANDOM RELATIVE KEY IS REC-NUM
- FILE STATUS IS CUST-STAT.
-
- DATA DIVISION.
- FILE SECTION.
- FD TSPFILE
- BLOCK CONTAINS 5 RECORDS.
-
- 01 TSPFL-RECORD.
- 05 TSPFL-REC.
- 10 CM-CUST-NUM.
- 15 CM-CUST-PRE PICTURE X(3).
- 15 CM-CUST-NNN PICTURE X(5).
- 10 CM-STATUS PICTURE X.
- 10 CM-COMPANY PICTURE X(25).
- 10 CM-ADDRESS-1 PICTURE X(25).
- 10 CM-ADDRESS-2 PICTURE X(25).
- 10 CM-ADDRESS-3 PICTURE X(25).
- 10 CM-TELEPHONE PICTURE 9(10).
- 10 CM-DP-MGR PICTURE X(25).
- 10 CM-MACHINE PICTURE X(8).
- 10 CM-MEMORY PICTURE X(4).
- 10 CM-DISK PICTURE X(8).
- 10 CM-TAPE PICTURE X(8).
- 10 CM-NO-TERMINALS PICTURE 9(5).
-
- FD TSTFILE
- BLOCK CONTAINS 5 RECORDS.
-
- 01 TSTFL-RECORD.
- 05 TSTFL-REC.
- 10 TS-CUST-NUM PICTURE X(8).
- 10 TS-STATUS PICTURE X.
- 10 TS-COMPANY PICTURE X(25).
- 10 TS-ADDRESS-1 PICTURE X(25).
- 10 TS-ADDRESS-2 PICTURE X(25).
- 10 TS-ADDRESS-3 PICTURE X(25).
- 10 TS-TELEPHONE PICTURE 9(10).
- 10 TS-DP-MGR PICTURE X(25).
- 10 TS-MACHINE PICTURE X(8).
- 10 TS-MEMORY PICTURE X(4).
- 10 TS-DISK PICTURE X(8).
- 10 TS-TAPE PICTURE X(8).
-
- FD FLATFILE
- BLOCK CONTAINS 5 RECORDS.
-
- 01 TSP2-RECORD.
- 10 C2-CUST-NUM PICTURE X(8).
- 10 C2-COMPANY PICTURE X(25).
- 10 C2-DISK PICTURE X(8).
- 10 C2-NO-TERMINALS PICTURE 9(4) COMP-4.
- 10 C2-PK-DATE PICTURE S9(14) COMP-3.
-
- WORKING-STORAGE SECTION.
-
- 01 CUST-STAT.
- 05 FILLER PICTURE XX.
- 77 MAX-SUB VALUE 16 PICTURE 9(5) COMP SYNC.
- 77 CALL-NUM VALUE 00 PICTURE 99.
-
- 01 TEST-DATA.
-
- 02 DATA-CUST-NUM-TBL.
-
- 05 FILLER PIC X(8) VALUE "ALP00000".
- 05 FILLER PIC X(8) VALUE "BET00000".
- 05 FILLER PIC X(8) VALUE "GAM00000".
- 05 FILLER PIC X(8) VALUE "DEL00000".
- 05 FILLER PIC X(8) VALUE "EPS00000".
- 05 FILLER PIC X(8) VALUE "FOR00000".
- 05 FILLER PIC X(8) VALUE "GIB00000".
- 05 FILLER PIC X(8) VALUE "H&J00000".
- 05 FILLER PIC X(8) VALUE "INC00000".
- 05 FILLER PIC X(8) VALUE "JOH00000".
- 05 FILLER PIC X(8) VALUE "KON00000".
- 05 FILLER PIC X(8) VALUE "LEW00000".
- 05 FILLER PIC X(8) VALUE "MOR00000".
- 05 FILLER PIC X(8) VALUE "NEW00000".
- 05 FILLER PIC X(8) VALUE "OLD00000".
- 05 FILLER PIC X(8) VALUE "PRE00000".
-
- 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL
- PIC X(8) OCCURS 16.
- 02 DATA-COMPANY-TBL.
-
- 05 FILLER PIC X(25) VALUE "ALPHA ELECTRICAL CO. LTD.".
- 05 FILLER PIC X(25) VALUE "BETA SHOE MFG. INC. ".
- 05 FILLER PIC X(25) VALUE "GAMMA X-RAY TECHNOLOGY ".
- 05 FILLER PIC X(25) VALUE "DELTA LUGGAGE REPAIRS ".
- 05 FILLER PIC X(25) VALUE "EPSILON EQUIPMENT SUPPLY ".
- 05 FILLER PIC X(25) VALUE "FORTUNE COOKIE COMPANY ".
- 05 FILLER PIC X(25) VALUE "GIBRALTER LIFE INSURANCE ".
- 05 FILLER PIC X(25) VALUE "H & J PLUMBING SUPPLIES ".
- 05 FILLER PIC X(25) VALUE "INCREMENTAL BACKUP CORP. ".
- 05 FILLER PIC X(25) VALUE "JOHNSON BOATING SUPPLIES ".
- 05 FILLER PIC X(25) VALUE "KONFLAB PLASTIC PRODUCTS.".
- 05 FILLER PIC X(25) VALUE "LEWISTON GRAPHICS LTD. ".
- 05 FILLER PIC X(25) VALUE "MORNINGSIDE CARPENTRY. ".
- 05 FILLER PIC X(25) VALUE "NEW WAVE SURF SHOPS INC. ".
- 05 FILLER PIC X(25) VALUE "OLD TYME PIZZA MFG. CO. ".
- 05 FILLER PIC X(25) VALUE "PRESTIGE OFFICE FURNITURE".
-
- 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL
- PIC X(25) OCCURS 16.
- 02 DATA-ADDRESS-1-TBL.
-
- 05 FILLER PIC X(25) VALUE "123 MAIN STREET ".
- 05 FILLER PIC X(25) VALUE "1090 2ND AVE. WEST ".
- 05 FILLER PIC X(25) VALUE "1401 JEFFERSON BLVD. ".
- 05 FILLER PIC X(25) VALUE "1620 ARIZONA WAY ".
- 05 FILLER PIC X(25) VALUE "1184 EAST FIRST STREET ".
- 05 FILLER PIC X(25) VALUE "114 JOHN F. KENNEDY AVE. ".
- 05 FILLER PIC X(25) VALUE "650 LIBERTY CRESCENT ".
- 05 FILLER PIC X(25) VALUE "77 SUNSET BLVD. ".
- 05 FILLER PIC X(25) VALUE "10908 SANTA MONICA BLVD. ".
- 05 FILLER PIC X(25) VALUE "1134 PARIS ROAD ".
- 05 FILLER PIC X(25) VALUE "808 NORTHWEST MAIN ST. ".
- 05 FILLER PIC X(25) VALUE "9904 QUEEN STREET ".
- 05 FILLER PIC X(25) VALUE "1709 DUNDAS CRESCENT W. ".
- 05 FILLER PIC X(25) VALUE "3240 MARIS AVENUE ".
- 05 FILLER PIC X(25) VALUE "1705 WISCONSIN ROAD ".
- 05 FILLER PIC X(25) VALUE "114A MAPLE GROVE ".
-
- 02 DATA-ADDRESS-1 REDEFINES DATA-ADDRESS-1-TBL
- PIC X(25) OCCURS 16.
- 02 DATA-ADDRESS-2-TBL.
-
- 05 FILLER PIC X(10) VALUE "NEW YORK ".
- 05 FILLER PIC X(10) VALUE "ATLANTA ".
- 05 FILLER PIC X(10) VALUE "WASHINGTON".
- 05 FILLER PIC X(10) VALUE "TORONTO ".
- 05 FILLER PIC X(10) VALUE "CALGARY ".
- 05 FILLER PIC X(10) VALUE "SAN DIEGO ".
- 05 FILLER PIC X(10) VALUE "LOS RIOS ".
- 05 FILLER PIC X(10) VALUE "MADISON ".
- 05 FILLER PIC X(10) VALUE "WILBUR ".
- 05 FILLER PIC X(10) VALUE "TOPEKA ".
- 05 FILLER PIC X(10) VALUE "SEATTLE ".
- 05 FILLER PIC X(10) VALUE "NEW JERSEY".
- 05 FILLER PIC X(10) VALUE "FORT WAYNE".
- 05 FILLER PIC X(10) VALUE "COLUMBUS ".
- 05 FILLER PIC X(10) VALUE "RICHMOND ".
- 05 FILLER PIC X(10) VALUE "WHITEPLAIN".
-
- 02 DATA-ADDRESS-2 REDEFINES DATA-ADDRESS-2-TBL
- PIC X(10) OCCURS 16.
- 02 DATA-ADDRESS-3-TBL.
-
- 05 FILLER PIC X(10) VALUE "N.Y. ".
- 05 FILLER PIC X(10) VALUE "GEORGIA ".
- 05 FILLER PIC X(10) VALUE "D.C. ".
- 05 FILLER PIC X(10) VALUE "CANADA ".
- 05 FILLER PIC X(10) VALUE "CANADA ".
- 05 FILLER PIC X(10) VALUE "CALIFORNIA".
- 05 FILLER PIC X(10) VALUE "NEW MEXICO".
- 05 FILLER PIC X(10) VALUE "WISCONSIN ".
- 05 FILLER PIC X(10) VALUE "DELAWARE ".
- 05 FILLER PIC X(10) VALUE "KANSAS ".
- 05 FILLER PIC X(10) VALUE "WASHINGTON".
- 05 FILLER PIC X(10) VALUE "N.J. ".
- 05 FILLER PIC X(10) VALUE "COLORADO ".
- 05 FILLER PIC X(10) VALUE "OHIO ".
- 05 FILLER PIC X(10) VALUE "VIRGINIA ".
- 05 FILLER PIC X(10) VALUE "N.Y. ".
-
- 02 DATA-ADDRESS-3 REDEFINES DATA-ADDRESS-3-TBL
- PIC X(10) OCCURS 16.
- 02 DATA-TELEPHONE-TBL.
-
- 05 FILLER PIC 9(10) VALUE 3131234432.
- 05 FILLER PIC 9(10) VALUE 4082938498.
- 05 FILLER PIC 9(10) VALUE 8372487274.
- 05 FILLER PIC 9(10) VALUE 4169898509.
- 05 FILLER PIC 9(10) VALUE 5292398745.
- 05 FILLER PIC 9(10) VALUE 8009329492.
- 05 FILLER PIC 9(10) VALUE 6456445643.
- 05 FILLER PIC 9(10) VALUE 6546456333.
- 05 FILLER PIC 9(10) VALUE 3455445444.
- 05 FILLER PIC 9(10) VALUE 6456445643.
- 05 FILLER PIC 9(10) VALUE 7456434355.
- 05 FILLER PIC 9(10) VALUE 6554456433.
- 05 FILLER PIC 9(10) VALUE 4169898509.
- 05 FILLER PIC 9(10) VALUE 7534587453.
- 05 FILLER PIC 9(10) VALUE 8787458374.
- 05 FILLER PIC 9(10) VALUE 4169898509.
-
- 02 DATA-TELEPHONE REDEFINES DATA-TELEPHONE-TBL
- PIC 9(10) OCCURS 16.
- 02 DATA-DP-MGR-TBL.
-
- 05 FILLER PIC X(20) VALUE "MR. DAVE HARRIS ".
- 05 FILLER PIC X(20) VALUE "MS. JANICE SILCOX ".
- 05 FILLER PIC X(20) VALUE "MR. ALLAN JONES ".
- 05 FILLER PIC X(20) VALUE "MR. PETER MACKAY ".
- 05 FILLER PIC X(20) VALUE "MRS. DONNA BREWER ".
- 05 FILLER PIC X(20) VALUE "MR. MICHAEL SMYTHE ".
- 05 FILLER PIC X(20) VALUE "MR. D.A. MORRISON ".
- 05 FILLER PIC X(20) VALUE "MR. BRIAN PATTERSON ".
- 05 FILLER PIC X(20) VALUE "MR. DARRYL TOWNSEND ".
- 05 FILLER PIC X(20) VALUE "MS. VALERIE HARPER ".
- 05 FILLER PIC X(20) VALUE "MR. FRED MILLER ".
- 05 FILLER PIC X(20) VALUE "MR. DONALD FISCHER ".
- 05 FILLER PIC X(20) VALUE "MR. STEVEN YOURDIN ".
- 05 FILLER PIC X(20) VALUE "MS. Goldie Hawn ".
- 05 FILLER PIC X(20) VALUE "MS. ALICE WINSTON ".
- 05 FILLER PIC X(20) VALUE "MR. THOMAS JEFFERSON".
-
- 02 DATA-DP-MGR REDEFINES DATA-DP-MGR-TBL
- PIC X(20) OCCURS 16.
- 02 DATA-MACHINE-TBL.
-
- 05 FILLER PIC X(8) VALUE "UNI-9030".
- 05 FILLER PIC X(8) VALUE "UNI-9040".
- 05 FILLER PIC X(8) VALUE "UNI-80/3".
- 05 FILLER PIC X(8) VALUE "UNI-80/5".
- 05 FILLER PIC X(8) VALUE "UNI-80/6".
- 05 FILLER PIC X(8) VALUE "UNI-80/6".
- 05 FILLER PIC X(8) VALUE "UNI-80/6".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-9040".
- 05 FILLER PIC X(8) VALUE "UNI-9040".
-
- 02 DATA-MACHINE REDEFINES DATA-MACHINE-TBL
- PIC X(8) OCCURS 16.
- 02 DATA-NO-TERMINALS-TBL.
-
- 05 FILLER PIC 9(3) COMP-3 VALUE 85.
- 05 FILLER PIC 9(3) COMP-3 VALUE 34.
- 05 FILLER PIC 9(3) COMP-3 VALUE 75.
- 05 FILLER PIC 9(3) COMP-3 VALUE 45.
- 05 FILLER PIC 9(3) COMP-3 VALUE 90.
- 05 FILLER PIC 9(3) COMP-3 VALUE 107.
- 05 FILLER PIC 9(3) COMP-3 VALUE 67.
- 05 FILLER PIC 9(3) COMP-3 VALUE 32.
- 05 FILLER PIC 9(3) COMP-3 VALUE 16.
- 05 FILLER PIC 9(3) COMP-3 VALUE 34.
- 05 FILLER PIC 9(3) COMP-3 VALUE 128.
- 05 FILLER PIC 9(3) COMP-3 VALUE 64.
- 05 FILLER PIC 9(3) COMP-3 VALUE 110.
- 05 FILLER PIC 9(3) COMP-3 VALUE 324.
- 05 FILLER PIC 9(3) COMP-3 VALUE 124.
- 05 FILLER PIC 9(3) COMP-3 VALUE 86.
-
- 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL
- PIC 9(3) COMP-3 OCCURS 16.
-
- 01 WORK-AREA.
- 05 REC-NUM PICTURE 9(6) VALUE 0.
- 05 REC-MAX PICTURE 9(6) VALUE 10.
- 05 SUB PICTURE 9(4) COMP SYNC.
- 88 ODD-RECORD VALUE 1 3 5 7 9 10 11.
-
- 05 TSPFL-KEY PICTURE X(8).
-
- PROCEDURE DIVISION.
-
- MAINFILE.
- OPEN OUTPUT TSPFILE
- CLOSE TSPFILE.
-
- OPEN I-O TSPFILE
- MOVE '99' TO CUST-STAT
- READ TSPFILE NEXT RECORD WITH NO LOCK
- IF CUST-STAT NOT = "10"
- DISPLAY "Error " CUST-STAT " on read of empty file"
- UPON CONSOLE
- STOP RUN
- END-IF.
- MOVE LOW-VALUES TO TSPFL-RECORD.
- START TSPFILE KEY GREATER THAN CM-CUST-NUM
- IF CUST-STAT NOT = "23"
- DISPLAY "Error " CUST-STAT " starting empty file"
- UPON CONSOLE
- STOP RUN
- END-IF.
- READ TSPFILE NEXT RECORD WITH NO LOCK
- IF CUST-STAT NOT = "46"
- DISPLAY "Error " CUST-STAT " start/read of empty file"
- UPON CONSOLE
- STOP RUN
- END-IF.
- DISPLAY "OK: Operations on empty file"
- CLOSE TSPFILE.
-
- PERFORM LOADFILE.
- PERFORM LISTFILE.
-
-
-
- *> check that multiple empty lines are handled correctly
-
-
-
-
-
-
-
- STOP RUN.
-
- LOADFILE.
- DISPLAY "Loading sample data file."
- UPON CONSOLE.
-
- OPEN OUTPUT TSPFILE
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT
- " opening 'testisam' file" UPON CONSOLE
- STOP RUN
- END-IF.
-
- PERFORM 1000-LOAD-RECORD
- VARYING SUB FROM 1 BY 1
- UNTIL SUB > MAX-SUB.
-
- DISPLAY "Sample data file load complete."
- UPON CONSOLE.
- CLOSE TSPFILE.
-
- *---------------------------------------------------------------*
- * LOAD A RECORD FROM DATA TABLES *
- *---------------------------------------------------------------*
-
- 1000-LOAD-RECORD.
-
- MOVE SPACES TO TSPFL-RECORD.
- MOVE DATA-CUST-NUM (SUB) TO CM-CUST-NUM.
- MOVE CM-CUST-NUM TO TSPFL-KEY.
- MOVE DATA-COMPANY (SUB) TO CM-COMPANY.
- MOVE DATA-ADDRESS-1 (SUB) TO CM-ADDRESS-1.
- MOVE DATA-ADDRESS-2 (SUB) TO CM-ADDRESS-2.
- MOVE DATA-ADDRESS-3 (SUB) TO CM-ADDRESS-3.
- MOVE DATA-TELEPHONE (SUB) TO CM-TELEPHONE.
- MOVE DATA-DP-MGR (SUB) TO CM-DP-MGR.
- MOVE DATA-MACHINE (SUB) TO CM-MACHINE.
- MOVE DATA-NO-TERMINALS (SUB) TO CM-NO-TERMINALS.
-
- IF ODD-RECORD
- MOVE "8417" TO CM-DISK
- MOVE "1600 BPI" TO CM-TAPE
- MOVE "1MEG" TO CM-MEMORY
- ELSE
- MOVE "8470" TO CM-DISK
- MOVE "6250 BPI" TO CM-TAPE
- MOVE "3MEG" TO CM-MEMORY.
-
- WRITE TSPFL-RECORD.
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "Load - Key: " TSPFL-KEY ", Status: " CUST-STAT
- UPON CONSOLE.
-
- LISTFILE.
- DISPLAY "LIST SAMPLE FILE" UPON CONSOLE.
- OPEN INPUT TSTFILE
- MOVE SPACES TO TSTFL-RECORD.
- MOVE "PRE00000" TO CM-CUST-NUM.
- START TSTFILE KEY GREATER THAN OR EQUAL TO TS-CUST-NUM
- READ TSTFILE NEXT RECORD
- READ TSTFILE NEXT RECORD
- CLOSE TSTFILE.
-
- MOVE ZERO TO REC-NUM
- OPEN INPUT TSPFILE
- IF CUST-STAT NOT = "00"
- DISPLAY "ERROR " CUST-STAT " OPENING INPUT FILE"
- UPON CONSOLE
- STOP RUN
- END-IF.
- MOVE SPACES TO TSPFL-RECORD.
- MOVE "PRE00000" TO CM-CUST-NUM.
- START TSPFILE KEY GREATER THAN OR EQUAL TO CM-CUST-NUM
- READ TSPFILE NEXT RECORD
- READ TSPFILE NEXT RECORD
-
- MOVE SPACES TO TSPFL-RECORD.
- MOVE "DEL00000" TO CM-CUST-NUM.
- START TSPFILE KEY GREATER THAN CM-CUST-NUM
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " starting file"
- UPON CONSOLE
- STOP RUN
- END-IF.
- READ TSPFILE NEXT RECORD WITH NO LOCK
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " on 1st read of file"
- UPON CONSOLE
- STOP RUN
- END-IF.
- PERFORM UNTIL CUST-STAT NOT = "00" *> no WITH AFTER for trace check
- OR REC-NUM > REC-MAX
- DISPLAY "Key: " CM-CUST-NUM " is " CM-COMPANY
- " Disk=" CM-DISK "."
- UPON CONSOLE
- CALL "callsub" USING CALL-NUM
- READ TSPFILE NEXT RECORD
- AT END
- MOVE "99" TO CUST-STAT
- END-READ
- ADD 1 TO REC-NUM
- END-PERFORM
- IF CUST-STAT = "99"
- DISPLAY "Hit End of File: " CALL-NUM UPON CONSOLE
- ELSE
- DISPLAY "Stop read after: " CALL-NUM UPON CONSOLE
- END-IF.
-
- DISPLAY "LIST SAMPLE FILE DESCENDING" UPON CONSOLE.
- MOVE ZERO TO REC-NUM
- START TSPFILE KEY LESS THAN CM-CUST-NUM
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " starting file"
- UPON CONSOLE
- STOP RUN
- END-IF.
- READ TSPFILE PREVIOUS RECORD WITH NO LOCK
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " on 1st read of file"
- UPON CONSOLE
- STOP RUN
- END-IF.
- PERFORM WITH TEST AFTER UNTIL CUST-STAT NOT = "00"
- OR REC-NUM > REC-MAX
- DISPLAY "Key: " CM-CUST-NUM " is " CM-COMPANY
- " Disk=" CM-DISK "."
- UPON CONSOLE
- READ TSPFILE PREVIOUS RECORD
- AT END
- MOVE "99" TO CUST-STAT
- END-READ
- ADD 1 TO REC-NUM
- END-PERFORM.
-
- CLOSE TSPFILE.
-
- OPEN I-O TSPFILE.
- MOVE SPACES TO TSPFL-RECORD.
- MOVE DATA-CUST-NUM (2) TO CM-CUST-NUM.
- MOVE 'X' TO CM-CUST-NUM (5:1).
- READ TSPFILE KEY IS CM-CUST-NUM
- IF CUST-STAT NOT = "23"
- DISPLAY "Error " CUST-STAT " instead of 23."
- UPON CONSOLE
- END-IF.
- MOVE DATA-CUST-NUM (2) TO CM-CUST-NUM.
- MOVE DATA-COMPANY (2) TO CM-COMPANY.
- READ TSPFILE KEY IS CM-CUST-NUM
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " on primary read ."
- UPON CONSOLE
- ELSE
- DISPLAY "Got: " CM-CUST-NUM " is " CM-COMPANY
- " Disk=" CM-DISK "."
- UPON CONSOLE
- END-IF.
- READ TSPFILE NEXT RECORD
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " on next read"
- UPON CONSOLE
- ELSE
- DISPLAY "Nxt: " CM-CUST-NUM " is " CM-COMPANY
- " Disk=" CM-DISK "."
- UPON CONSOLE
- END-IF.
- MOVE DATA-TELEPHONE (7) TO CM-TELEPHONE.
- MOVE DATA-MACHINE (7) TO CM-MACHINE.
- READ TSPFILE KEY IS CM-TELEPHONE
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " instead of 23"
- UPON CONSOLE
- ELSE
- DISPLAY "Ky2: " CM-CUST-NUM " is " CM-COMPANY
- " Mach=" CM-MACHINE "."
- UPON CONSOLE
- END-IF.
- WRITE TSPFL-RECORD
- IF CUST-STAT NOT = "22"
- DISPLAY "Error " CUST-STAT " instead of 22"
- UPON CONSOLE
- ELSE
- DISPLAY " Write: " CM-CUST-NUM " got 22 as expected"
- UPON CONSOLE
- END-IF.
- MOVE DATA-CUST-NUM (3) TO CM-CUST-NUM.
- MOVE DATA-COMPANY (3) TO CM-COMPANY.
- READ TSPFILE KEY IS CM-CUST-NUM
- DISPLAY " Read: " CM-CUST-NUM " got "
- CUST-STAT " as expected "
- CM-NO-TERMINALS " terminals"
- UPON CONSOLE.
- ADD 5 TO CM-NO-TERMINALS
- REWRITE TSPFL-RECORD
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " instead of 00"
- UPON CONSOLE
- ELSE
-
- DISPLAY "ReWrite: " CM-CUST-NUM " got "
- CUST-STAT " as expected "
- CM-NO-TERMINALS " terminals"
- UPON CONSOLE
- END-IF.
- MOVE DATA-CUST-NUM (2) TO CM-CUST-NUM.
- MOVE DATA-COMPANY (2) TO CM-COMPANY.
- READ TSPFILE KEY IS CM-CUST-NUM
- DISPLAY " Read: " CM-CUST-NUM " got "
- CUST-STAT " as expected "
- CM-NO-TERMINALS " terminals"
- UPON CONSOLE.
- MOVE DATA-CUST-NUM (3) TO CM-CUST-NUM.
- MOVE DATA-COMPANY (3) TO CM-COMPANY.
- REWRITE TSPFL-RECORD
- IF CUST-STAT NOT = "02"
- AND CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " instead of 00/02"
- UPON CONSOLE
- ELSE
- DISPLAY "ReWrite: " CM-CUST-NUM " got "
- "00/02 as expected"
- UPON CONSOLE
- END-IF
- MOVE DATA-CUST-NUM (6) TO CM-CUST-NUM.
- MOVE DATA-COMPANY (6) TO CM-COMPANY.
- READ TSPFILE KEY IS CM-CUST-NUM
- MOVE DATA-TELEPHONE (7) TO CM-TELEPHONE.
- MOVE DATA-MACHINE (7) TO CM-MACHINE.
- REWRITE TSPFL-RECORD
- IF CUST-STAT NOT = "02"
- AND CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " instead of 00/02"
- UPON CONSOLE
- ELSE
- DISPLAY "ReWrite: " CM-CUST-NUM " got "
- "00/02 as expected"
- UPON CONSOLE
- END-IF
- DELETE TSPFILE
- CLOSE TSPFILE.
-
- LOADFLAT.
- OPEN OUTPUT FLATFILE.
- PERFORM FLAT-RECORD
- VARYING SUB FROM 1 BY 1
- UNTIL SUB > MAX-SUB
- OR SUB > 5.
- CLOSE FLATFILE.
- OPEN INPUT FLATFILE.
- MOVE 3 TO REC-NUM
- READ FLATFILE
- MOVE 999 TO REC-NUM
- READ FLATFILE
- CLOSE FLATFILE.
-
- FLAT-RECORD.
-
- MOVE SPACES TO TSP2-RECORD.
- MOVE SUB TO REC-NUM.
- MOVE DATA-CUST-NUM (SUB) TO C2-CUST-NUM.
- MOVE DATA-COMPANY (SUB) TO C2-COMPANY.
- MOVE DATA-NO-TERMINALS (SUB) TO C2-NO-TERMINALS.
- MOVE 20070319 TO C2-PK-DATE.
- IF ODD-RECORD
- MOVE "8417" TO C2-DISK
- ELSE
- MOVE "8470" TO C2-DISK.
- WRITE TSP2-RECORD.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:8821: \$COMPILE -ftraceall prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -ftraceall prog.cob" "run_misc.at:8821"
-( $at_check_trace; $COMPILE -ftraceall prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:8821"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# first run without runtime tracing
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:8824: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:8824"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK: Operations on empty file
-Loading sample data file.
-Sample data file load complete.
-LIST SAMPLE FILE
-Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=8417 .
-Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=8470 .
-Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 .
-Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 .
-Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=8470 .
-Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 .
-Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 .
-Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 .
-Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=8470 .
-Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 .
-Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=8470 .
-Stop read after: 11
-LIST SAMPLE FILE DESCENDING
-Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=8470 .
-Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 .
-Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=8470 .
-Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 .
-Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 .
-Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 .
-Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=8470 .
-Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 .
-Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 .
-Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=8470 .
-Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=8417 .
-Got: BET00000 is BETA SHOE MFG. INC. Disk=8470 .
-Nxt: DEL00000 is DELTA LUGGAGE REPAIRS Disk=8470 .
-Ky2: GIB00000 is GIBRALTER LIFE INSURANCE Mach=UNI-80/6.
- Write: GIB00000 got 22 as expected
- Read: GAM00000 got 00 as expected 00075 terminals
-ReWrite: GAM00000 got 00 as expected 00080 terminals
- Read: BET00000 got 00 as expected 00034 terminals
-ReWrite: GAM00000 got 00/02 as expected
-ReWrite: FOR00000 got 00/02 as expected
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:8824"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# not merged yet:
-#export COB_TRACE_IO=Y
-#export IO_TSPFILE=trace
-#export IO_TSTFILE=no-trace
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:8869: COB_TRACE_FILE=trace.txt \\
-COB_SET_TRACE=Y \\
-COB_TRACE_FORMAT=\"Line: %L %S\" \\
-\$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_notrace 'an embedded newline' "run_misc.at:8869"
-( $at_check_trace; COB_TRACE_FILE=trace.txt \
-COB_SET_TRACE=Y \
-COB_TRACE_FORMAT="Line: %L %S" \
-$COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK: Operations on empty file
-Loading sample data file.
-Sample data file load complete.
-LIST SAMPLE FILE
-Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=8417 .
-Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=8470 .
-Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 .
-Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 .
-Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=8470 .
-Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 .
-Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 .
-Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 .
-Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=8470 .
-Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 .
-Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=8470 .
-Stop read after: 11
-LIST SAMPLE FILE DESCENDING
-Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=8470 .
-Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 .
-Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=8470 .
-Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 .
-Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 .
-Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 .
-Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=8470 .
-Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 .
-Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 .
-Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=8470 .
-Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=8417 .
-Got: BET00000 is BETA SHOE MFG. INC. Disk=8470 .
-Nxt: DEL00000 is DELTA LUGGAGE REPAIRS Disk=8470 .
-Ky2: GIB00000 is GIBRALTER LIFE INSURANCE Mach=UNI-80/6.
- Write: GIB00000 got 22 as expected
- Read: GAM00000 got 00 as expected 00075 terminals
-ReWrite: GAM00000 got 00 as expected 00080 terminals
- Read: BET00000 got 00 as expected 00034 terminals
-ReWrite: GAM00000 got 00/02 as expected
-ReWrite: FOR00000 got 00/02 as expected
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:8869"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-# variant with file trace:
-#AT_DATA([reference],
-#[Source: 'prog.cob'
-#Program-Id: prog
-#Line: 292 Entry: prog
-#Line: 292 Paragraph: MAINFILE
-#Line: 293 OPEN
-# OPEN OUTPUT TSPFILE -> 'testisam' Status: 00
-#Line: 294 CLOSE
-# CLOSE TSPFILE Status: 00
-#Line: 296 OPEN
-# OPEN I_O TSPFILE -> 'testisam' Status: 00
-#Line: 297 MOVE
-#Line: 298 READ
-# READ Sequential TSPFILE Status: 10
-#Line: 299 IF
-#Line: 304 MOVE
-#Line: 305 START
-# START TSPFILE Status: 23
-# Key : ALL LOW-VALUES
-#Line: 306 IF
-#Line: 311 READ
-# READ Sequential TSPFILE Status: 46
-#Line: 312 IF
-#Line: 317 DISPLAY
-#Line: 318 CLOSE
-# CLOSE TSPFILE Status: 00
-#Line: 320 PERFORM
-#Line: 335 Paragraph: LOADFILE
-#Line: 336 DISPLAY
-#Line: 339 OPEN
-# OPEN OUTPUT TSPFILE -> 'testisam' Status: 00
-#Line: 340 IF
-#Line: 346 PERFORM
-#Line: 358 Paragraph: 1000-LOAD-RECORD
-#Line: 360 MOVE
-#Line: 361 MOVE
-#Line: 362 MOVE
-#Line: 363 MOVE
-#Line: 364 MOVE
-#Line: 365 MOVE
-#Line: 366 MOVE
-#Line: 367 MOVE
-#Line: 368 MOVE
-#Line: 369 MOVE
-#Line: 370 MOVE
-#Line: 372 IF
-#Line: 373 MOVE
-#Line: 374 MOVE
-#Line: 375 MOVE
-#Line: 381 WRITE
-# WRITE TSPFILE Status: 00
-# Record : 'ALP00000 ALPHA ELECTRICAL CO. LTD.123 MAIN STREET NEW YORK '
-# ' N.Y. 3131234432MR. DAVE HARRIS UNI-90301MEG8417'
-# ' 1600 BPI00085'
-#Line: 382 IF
-#Line: 358 Paragraph: 1000-LOAD-RECORD
-#Line: 360 MOVE
-#Line: 361 MOVE
-#Line: 362 MOVE
-#Line: 363 MOVE
-#Line: 364 MOVE
-#Line: 365 MOVE
-#Line: 366 MOVE
-#Line: 367 MOVE
-#Line: 368 MOVE
-#Line: 369 MOVE
-#Line: 370 MOVE
-#Line: 372 IF
-#Line: 377 MOVE
-#Line: 378 MOVE
-#Line: 379 MOVE
-#Line: 381 WRITE
-# WRITE TSPFILE Status: 00
-# Record : 'BET00000 BETA SHOE MFG. INC. 1090 2ND AVE. WEST ATLANTA '
-# ' GEORGIA 4082938498MS. JANICE SILCOX UNI-90403MEG8470'
-# ' 6250 BPI00034'
-#Line: 382 IF
-#Line: 358 Paragraph: 1000-LOAD-RECORD
-#Line: 360 MOVE
-#Line: 361 MOVE
-#Line: 362 MOVE
-#Line: 363 MOVE
-#Line: 364 MOVE
-#Line: 365 MOVE
-#Line: 366 MOVE
-#Line: 367 MOVE
-#Line: 368 MOVE
-#Line: 369 MOVE
-#Line: 370 MOVE
-#Line: 372 IF
-#Line: 373 MOVE
-#Line: 374 MOVE
-#Line: 375 MOVE
-#Line: 381 WRITE
-# WRITE TSPFILE Status: 02
-# Record : 'GAM00000 GAMMA X-RAY TECHNOLOGY 1401 JEFFERSON BLVD. WASHINGTON '
-# ' D.C. 8372487274MR. ALLAN JONES UNI-80/31MEG8417'
-# ' 1600 BPI00075'
-#Line: 382 IF
-#Line: 358 Paragraph: 1000-LOAD-RECORD
-#Line: 360 MOVE
-#Line: 361 MOVE
-#Line: 362 MOVE
-#Line: 363 MOVE
-#Line: 364 MOVE
-#Line: 365 MOVE
-#Line: 366 MOVE
-#Line: 367 MOVE
-#Line: 368 MOVE
-#Line: 369 MOVE
-#Line: 370 MOVE
-#Line: 372 IF
-#Line: 377 MOVE
-#Line: 378 MOVE
-#Line: 379 MOVE
-#Line: 381 WRITE
-# WRITE TSPFILE Status: 02
-# Record : 'DEL00000 DELTA LUGGAGE REPAIRS 1620 ARIZONA WAY TORONTO '
-# ' CANADA 4169898509MR. PETER MACKAY UNI-80/53MEG8470'
-# ' 6250 BPI00045'
-#Line: 382 IF
-#Line: 358 Paragraph: 1000-LOAD-RECORD
-#Line: 360 MOVE
-#Line: 361 MOVE
-#Line: 362 MOVE
-#Line: 363 MOVE
-#Line: 364 MOVE
-#Line: 365 MOVE
-#Line: 366 MOVE
-#Line: 367 MOVE
-#Line: 368 MOVE
-#Line: 369 MOVE
-#Line: 370 MOVE
-#Line: 372 IF
-#Line: 373 MOVE
-#Line: 374 MOVE
-#Line: 375 MOVE
-#Line: 381 WRITE
-# WRITE TSPFILE Status: 02
-# Record : 'EPS00000 EPSILON EQUIPMENT SUPPLY 1184 EAST FIRST STREET CALGARY '
-# ' CANADA 5292398745MRS. DONNA BREWER UNI-80/61MEG8417'
-# ' 1600 BPI00090'
-#Line: 382 IF
-#Line: 358 Paragraph: 1000-LOAD-RECORD
-#Line: 360 MOVE
-#Line: 361 MOVE
-#Line: 362 MOVE
-#Line: 363 MOVE
-#Line: 364 MOVE
-#Line: 365 MOVE
-#Line: 366 MOVE
-#Line: 367 MOVE
-#Line: 368 MOVE
-#Line: 369 MOVE
-#Line: 370 MOVE
-#Line: 372 IF
-#Line: 377 MOVE
-#Line: 378 MOVE
-#Line: 379 MOVE
-#Line: 381 WRITE
-# WRITE TSPFILE Status: 02
-# Record : 'FOR00000 FORTUNE COOKIE COMPANY 114 JOHN F. KENNEDY AVE. SAN DIEGO '
-# ' CALIFORNIA 8009329492MR. MICHAEL SMYTHE UNI-80/63MEG8470'
-# ' 6250 BPI00107'
-#Line: 382 IF
-#Line: 358 Paragraph: 1000-LOAD-RECORD
-#Line: 360 MOVE
-#Line: 361 MOVE
-#Line: 362 MOVE
-#Line: 363 MOVE
-#Line: 364 MOVE
-#Line: 365 MOVE
-#Line: 366 MOVE
-#Line: 367 MOVE
-#Line: 368 MOVE
-#Line: 369 MOVE
-#Line: 370 MOVE
-#Line: 372 IF
-#Line: 373 MOVE
-#Line: 374 MOVE
-#Line: 375 MOVE
-#Line: 381 WRITE
-# WRITE TSPFILE Status: 02
-# Record : 'GIB00000 GIBRALTER LIFE INSURANCE 650 LIBERTY CRESCENT LOS RIOS '
-# ' NEW MEXICO 6456445643MR. D.A. MORRISON UNI-80/61MEG8417'
-# ' 1600 BPI00067'
-#Line: 382 IF
-#Line: 358 Paragraph: 1000-LOAD-RECORD
-#Line: 360 MOVE
-#Line: 361 MOVE
-#Line: 362 MOVE
-#Line: 363 MOVE
-#Line: 364 MOVE
-#Line: 365 MOVE
-#Line: 366 MOVE
-#Line: 367 MOVE
-#Line: 368 MOVE
-#Line: 369 MOVE
-#Line: 370 MOVE
-#Line: 372 IF
-#Line: 377 MOVE
-#Line: 378 MOVE
-#Line: 379 MOVE
-#Line: 381 WRITE
-# WRITE TSPFILE Status: 02
-# Record : 'H&J00000 H & J PLUMBING SUPPLIES 77 SUNSET BLVD. MADISON '
-# ' WISCONSIN 6546456333MR. BRIAN PATTERSON UNI-80/83MEG8470'
-# ' 6250 BPI00032'
-#Line: 382 IF
-#Line: 358 Paragraph: 1000-LOAD-RECORD
-#Line: 360 MOVE
-#Line: 361 MOVE
-#Line: 362 MOVE
-#Line: 363 MOVE
-#Line: 364 MOVE
-#Line: 365 MOVE
-#Line: 366 MOVE
-#Line: 367 MOVE
-#Line: 368 MOVE
-#Line: 369 MOVE
-#Line: 370 MOVE
-#Line: 372 IF
-#Line: 373 MOVE
-#Line: 374 MOVE
-#Line: 375 MOVE
-#Line: 381 WRITE
-# WRITE TSPFILE Status: 02
-# Record : 'INC00000 INCREMENTAL BACKUP CORP. 10908 SANTA MONICA BLVD. WILBUR '
-# ' DELAWARE 3455445444MR. DARRYL TOWNSEND UNI-80/81MEG8417'
-# ' 1600 BPI00016'
-#Line: 382 IF
-#Line: 358 Paragraph: 1000-LOAD-RECORD
-#Line: 360 MOVE
-#Line: 361 MOVE
-#Line: 362 MOVE
-#Line: 363 MOVE
-#Line: 364 MOVE
-#Line: 365 MOVE
-#Line: 366 MOVE
-#Line: 367 MOVE
-#Line: 368 MOVE
-#Line: 369 MOVE
-#Line: 370 MOVE
-#Line: 372 IF
-#Line: 373 MOVE
-#Line: 374 MOVE
-#Line: 375 MOVE
-#Line: 381 WRITE
-# WRITE TSPFILE Status: 02
-# Record : 'JOH00000 JOHNSON BOATING SUPPLIES 1134 PARIS ROAD TOPEKA '
-# ' KANSAS 6456445643MS. VALERIE HARPER UNI-80/81MEG8417'
-# ' 1600 BPI00034'
-#Line: 382 IF
-#Line: 358 Paragraph: 1000-LOAD-RECORD
-#Line: 360 MOVE
-#Line: 361 MOVE
-#Line: 362 MOVE
-#Line: 363 MOVE
-#Line: 364 MOVE
-#Line: 365 MOVE
-#Line: 366 MOVE
-#Line: 367 MOVE
-#Line: 368 MOVE
-#Line: 369 MOVE
-#Line: 370 MOVE
-#Line: 372 IF
-#Line: 373 MOVE
-#Line: 374 MOVE
-#Line: 375 MOVE
-#Line: 381 WRITE
-# WRITE TSPFILE Status: 02
-# Record : 'KON00000 KONFLAB PLASTIC PRODUCTS.808 NORTHWEST MAIN ST. SEATTLE '
-# ' WASHINGTON 7456434355MR. FRED MILLER UNI-80/81MEG8417'
-# ' 1600 BPI00128'
-#Line: 382 IF
-#Line: 358 Paragraph: 1000-LOAD-RECORD
-#Line: 360 MOVE
-#Line: 361 MOVE
-#Line: 362 MOVE
-#Line: 363 MOVE
-#Line: 364 MOVE
-#Line: 365 MOVE
-#Line: 366 MOVE
-#Line: 367 MOVE
-#Line: 368 MOVE
-#Line: 369 MOVE
-#Line: 370 MOVE
-#Line: 372 IF
-#Line: 377 MOVE
-#Line: 378 MOVE
-#Line: 379 MOVE
-#Line: 381 WRITE
-# WRITE TSPFILE Status: 02
-# Record : 'LEW00000 LEWISTON GRAPHICS LTD. 9904 QUEEN STREET NEW JERSEY '
-# ' N.J. 6554456433MR. DONALD FISCHER UNI-80/83MEG8470'
-# ' 6250 BPI00064'
-#Line: 382 IF
-#Line: 358 Paragraph: 1000-LOAD-RECORD
-#Line: 360 MOVE
-#Line: 361 MOVE
-#Line: 362 MOVE
-#Line: 363 MOVE
-#Line: 364 MOVE
-#Line: 365 MOVE
-#Line: 366 MOVE
-#Line: 367 MOVE
-#Line: 368 MOVE
-#Line: 369 MOVE
-#Line: 370 MOVE
-#Line: 372 IF
-#Line: 377 MOVE
-#Line: 378 MOVE
-#Line: 379 MOVE
-#Line: 381 WRITE
-# WRITE TSPFILE Status: 02
-# Record : 'MOR00000 MORNINGSIDE CARPENTRY. 1709 DUNDAS CRESCENT W. FORT WAYNE '
-# ' COLORADO 4169898509MR. STEVEN YOURDIN UNI-80/83MEG8470'
-# ' 6250 BPI00110'
-#Line: 382 IF
-#Line: 358 Paragraph: 1000-LOAD-RECORD
-#Line: 360 MOVE
-#Line: 361 MOVE
-#Line: 362 MOVE
-#Line: 363 MOVE
-#Line: 364 MOVE
-#Line: 365 MOVE
-#Line: 366 MOVE
-#Line: 367 MOVE
-#Line: 368 MOVE
-#Line: 369 MOVE
-#Line: 370 MOVE
-#Line: 372 IF
-#Line: 377 MOVE
-#Line: 378 MOVE
-#Line: 379 MOVE
-#Line: 381 WRITE
-# WRITE TSPFILE Status: 02
-# Record : 'NEW00000 NEW WAVE SURF SHOPS INC. 3240 MARIS AVENUE COLUMBUS '
-# ' OHIO 7534587453MS. Goldie Hawn UNI-80/83MEG8470'
-# ' 6250 BPI00324'
-#Line: 382 IF
-#Line: 358 Paragraph: 1000-LOAD-RECORD
-#Line: 360 MOVE
-#Line: 361 MOVE
-#Line: 362 MOVE
-#Line: 363 MOVE
-#Line: 364 MOVE
-#Line: 365 MOVE
-#Line: 366 MOVE
-#Line: 367 MOVE
-#Line: 368 MOVE
-#Line: 369 MOVE
-#Line: 370 MOVE
-#Line: 372 IF
-#Line: 377 MOVE
-#Line: 378 MOVE
-#Line: 379 MOVE
-#Line: 381 WRITE
-# WRITE TSPFILE Status: 02
-# Record : 'OLD00000 OLD TYME PIZZA MFG. CO. 1705 WISCONSIN ROAD RICHMOND '
-# ' VIRGINIA 8787458374MS. ALICE WINSTON UNI-90403MEG8470'
-# ' 6250 BPI00124'
-#Line: 382 IF
-#Line: 358 Paragraph: 1000-LOAD-RECORD
-#Line: 360 MOVE
-#Line: 361 MOVE
-#Line: 362 MOVE
-#Line: 363 MOVE
-#Line: 364 MOVE
-#Line: 365 MOVE
-#Line: 366 MOVE
-#Line: 367 MOVE
-#Line: 368 MOVE
-#Line: 369 MOVE
-#Line: 370 MOVE
-#Line: 372 IF
-#Line: 377 MOVE
-#Line: 378 MOVE
-#Line: 379 MOVE
-#Line: 381 WRITE
-# WRITE TSPFILE Status: 02
-# Record : 'PRE00000 PRESTIGE OFFICE FURNITURE114A MAPLE GROVE WHITEPLAIN '
-# ' N.Y. 4169898509MR. THOMAS JEFFERSON UNI-90403MEG8470'
-# ' 6250 BPI00086'
-#Line: 382 IF
-#Line: 350 DISPLAY
-#Line: 352 CLOSE
-# CLOSE TSPFILE Status: 00
-#Line: 321 PERFORM
-#Line: 387 Paragraph: LISTFILE
-#Line: 388 DISPLAY
-#Line: 389 OPEN
-#Line: 390 MOVE
-#Line: 391 MOVE
-#Line: 392 START
-#Line: 393 READ
-#Line: 394 READ
-#Line: 395 CLOSE
-#Line: 397 MOVE
-#Line: 398 OPEN
-# OPEN INPUT TSPFILE -> 'testisam' Status: 00
-#Line: 399 IF
-#Line: 404 MOVE
-#Line: 405 MOVE
-#Line: 406 START
-# START TSPFILE Status: 00
-# Key : 'PRE00000'
-#Line: 407 READ
-# READ Sequential TSPFILE Status: 00
-# Record : 'PRE00000 PRESTIGE OFFICE FURNITURE114A MAPLE GROVE WHITEPLAIN '
-# ' N.Y. 4169898509MR. THOMAS JEFFERSON UNI-90403MEG8470'
-# ' 6250 BPI00086'
-#Line: 408 READ
-# READ Sequential TSPFILE Status: 10
-#Line: 410 MOVE
-#Line: 411 MOVE
-#Line: 412 START
-# START TSPFILE Status: 00
-# Key : 'DEL00000'
-#Line: 413 IF
-#Line: 418 READ
-# READ Sequential TSPFILE Status: 00
-# Record : 'EPS00000 EPSILON EQUIPMENT SUPPLY 1184 EAST FIRST STREET CALGARY '
-# ' CANADA 5292398745MRS. DONNA BREWER UNI-80/61MEG8417'
-# ' 1600 BPI00090'
-#Line: 419 IF
-#Line: 424 PERFORM
-#Line: 426 DISPLAY
-#Line: 429 CALL
-#Line: 430 READ
-# READ Sequential TSPFILE Status: 00
-# Record : 'FOR00000 FORTUNE COOKIE COMPANY 114 JOHN F. KENNEDY AVE. SAN DIEGO '
-# ' CALIFORNIA 8009329492MR. MICHAEL SMYTHE UNI-80/63MEG8470'
-# ' 6250 BPI00107'
-#Line: 434 ADD
-#Line: 426 DISPLAY
-#Line: 429 CALL
-#Line: 430 READ
-# READ Sequential TSPFILE Status: 00
-# Record : 'GAM00000 GAMMA X-RAY TECHNOLOGY 1401 JEFFERSON BLVD. WASHINGTON '
-# ' D.C. 8372487274MR. ALLAN JONES UNI-80/31MEG8417'
-# ' 1600 BPI00075'
-#Line: 434 ADD
-#Line: 426 DISPLAY
-#Line: 429 CALL
-#Line: 430 READ
-# READ Sequential TSPFILE Status: 00
-# Record : 'GIB00000 GIBRALTER LIFE INSURANCE 650 LIBERTY CRESCENT LOS RIOS '
-# ' NEW MEXICO 6456445643MR. D.A. MORRISON UNI-80/61MEG8417'
-# ' 1600 BPI00067'
-#Line: 434 ADD
-#Line: 426 DISPLAY
-#Line: 429 CALL
-#Line: 430 READ
-# READ Sequential TSPFILE Status: 00
-# Record : 'H&J00000 H & J PLUMBING SUPPLIES 77 SUNSET BLVD. MADISON '
-# ' WISCONSIN 6546456333MR. BRIAN PATTERSON UNI-80/83MEG8470'
-# ' 6250 BPI00032'
-#Line: 434 ADD
-#Line: 426 DISPLAY
-#Line: 429 CALL
-#Line: 430 READ
-# READ Sequential TSPFILE Status: 00
-# Record : 'INC00000 INCREMENTAL BACKUP CORP. 10908 SANTA MONICA BLVD. WILBUR '
-# ' DELAWARE 3455445444MR. DARRYL TOWNSEND UNI-80/81MEG8417'
-# ' 1600 BPI00016'
-#Line: 434 ADD
-#Line: 426 DISPLAY
-#Line: 429 CALL
-#Line: 430 READ
-# READ Sequential TSPFILE Status: 00
-# Record : 'JOH00000 JOHNSON BOATING SUPPLIES 1134 PARIS ROAD TOPEKA '
-# ' KANSAS 6456445643MS. VALERIE HARPER UNI-80/81MEG8417'
-# ' 1600 BPI00034'
-#Line: 434 ADD
-#Line: 426 DISPLAY
-#Line: 429 CALL
-#Line: 430 READ
-# READ Sequential TSPFILE Status: 00
-# Record : 'KON00000 KONFLAB PLASTIC PRODUCTS.808 NORTHWEST MAIN ST. SEATTLE '
-# ' WASHINGTON 7456434355MR. FRED MILLER UNI-80/81MEG8417'
-# ' 1600 BPI00128'
-#Line: 434 ADD
-#Line: 426 DISPLAY
-#Line: 429 CALL
-#Line: 430 READ
-# READ Sequential TSPFILE Status: 00
-# Record : 'LEW00000 LEWISTON GRAPHICS LTD. 9904 QUEEN STREET NEW JERSEY '
-# ' N.J. 6554456433MR. DONALD FISCHER UNI-80/83MEG8470'
-# ' 6250 BPI00064'
-#Line: 434 ADD
-#Line: 426 DISPLAY
-#Line: 429 CALL
-#Line: 430 READ
-# READ Sequential TSPFILE Status: 00
-# Record : 'MOR00000 MORNINGSIDE CARPENTRY. 1709 DUNDAS CRESCENT W. FORT WAYNE '
-# ' COLORADO 4169898509MR. STEVEN YOURDIN UNI-80/83MEG8470'
-# ' 6250 BPI00110'
-#Line: 434 ADD
-#Line: 426 DISPLAY
-#Line: 429 CALL
-#Line: 430 READ
-# READ Sequential TSPFILE Status: 00
-# Record : 'NEW00000 NEW WAVE SURF SHOPS INC. 3240 MARIS AVENUE COLUMBUS '
-# ' OHIO 7534587453MS. Goldie Hawn UNI-80/83MEG8470'
-# ' 6250 BPI00324'
-#Line: 434 ADD
-#Line: 426 DISPLAY
-#Line: 429 CALL
-#Line: 430 READ
-# READ Sequential TSPFILE Status: 00
-# Record : 'OLD00000 OLD TYME PIZZA MFG. CO. 1705 WISCONSIN ROAD RICHMOND '
-# ' VIRGINIA 8787458374MS. ALICE WINSTON UNI-90403MEG8470'
-# ' 6250 BPI00124'
-#Line: 434 ADD
-#Line: 436 IF
-#Line: 439 DISPLAY
-#Line: 442 DISPLAY
-#Line: 443 MOVE
-#Line: 444 START
-# START TSPFILE Status: 00
-# Key : 'OLD00000'
-#Line: 445 IF
-#Line: 450 READ
-# READ Sequential TSPFILE Status: 00
-# Record : 'NEW00000 NEW WAVE SURF SHOPS INC. 3240 MARIS AVENUE COLUMBUS '
-# ' OHIO 7534587453MS. Goldie Hawn UNI-80/83MEG8470'
-# ' 6250 BPI00324'
-#Line: 451 IF
-#Line: 456 PERFORM
-#Line: 458 DISPLAY
-#Line: 461 READ
-# READ Sequential TSPFILE Status: 00
-# Record : 'MOR00000 MORNINGSIDE CARPENTRY. 1709 DUNDAS CRESCENT W. FORT WAYNE '
-# ' COLORADO 4169898509MR. STEVEN YOURDIN UNI-80/83MEG8470'
-# ' 6250 BPI00110'
-#Line: 465 ADD
-#Line: 458 DISPLAY
-#Line: 461 READ
-# READ Sequential TSPFILE Status: 00
-# Record : 'LEW00000 LEWISTON GRAPHICS LTD. 9904 QUEEN STREET NEW JERSEY '
-# ' N.J. 6554456433MR. DONALD FISCHER UNI-80/83MEG8470'
-# ' 6250 BPI00064'
-#Line: 465 ADD
-#Line: 458 DISPLAY
-#Line: 461 READ
-# READ Sequential TSPFILE Status: 00
-# Record : 'KON00000 KONFLAB PLASTIC PRODUCTS.808 NORTHWEST MAIN ST. SEATTLE '
-# ' WASHINGTON 7456434355MR. FRED MILLER UNI-80/81MEG8417'
-# ' 1600 BPI00128'
-#Line: 465 ADD
-#Line: 458 DISPLAY
-#Line: 461 READ
-# READ Sequential TSPFILE Status: 00
-# Record : 'JOH00000 JOHNSON BOATING SUPPLIES 1134 PARIS ROAD TOPEKA '
-# ' KANSAS 6456445643MS. VALERIE HARPER UNI-80/81MEG8417'
-# ' 1600 BPI00034'
-#Line: 465 ADD
-#Line: 458 DISPLAY
-#Line: 461 READ
-# READ Sequential TSPFILE Status: 00
-# Record : 'INC00000 INCREMENTAL BACKUP CORP. 10908 SANTA MONICA BLVD. WILBUR '
-# ' DELAWARE 3455445444MR. DARRYL TOWNSEND UNI-80/81MEG8417'
-# ' 1600 BPI00016'
-#Line: 465 ADD
-#Line: 458 DISPLAY
-#Line: 461 READ
-# READ Sequential TSPFILE Status: 00
-# Record : 'H&J00000 H & J PLUMBING SUPPLIES 77 SUNSET BLVD. MADISON '
-# ' WISCONSIN 6546456333MR. BRIAN PATTERSON UNI-80/83MEG8470'
-# ' 6250 BPI00032'
-#Line: 465 ADD
-#Line: 458 DISPLAY
-#Line: 461 READ
-# READ Sequential TSPFILE Status: 00
-# Record : 'GIB00000 GIBRALTER LIFE INSURANCE 650 LIBERTY CRESCENT LOS RIOS '
-# ' NEW MEXICO 6456445643MR. D.A. MORRISON UNI-80/61MEG8417'
-# ' 1600 BPI00067'
-#Line: 465 ADD
-#Line: 458 DISPLAY
-#Line: 461 READ
-# READ Sequential TSPFILE Status: 00
-# Record : 'GAM00000 GAMMA X-RAY TECHNOLOGY 1401 JEFFERSON BLVD. WASHINGTON '
-# ' D.C. 8372487274MR. ALLAN JONES UNI-80/31MEG8417'
-# ' 1600 BPI00075'
-#Line: 465 ADD
-#Line: 458 DISPLAY
-#Line: 461 READ
-# READ Sequential TSPFILE Status: 00
-# Record : 'FOR00000 FORTUNE COOKIE COMPANY 114 JOHN F. KENNEDY AVE. SAN DIEGO '
-# ' CALIFORNIA 8009329492MR. MICHAEL SMYTHE UNI-80/63MEG8470'
-# ' 6250 BPI00107'
-#Line: 465 ADD
-#Line: 458 DISPLAY
-#Line: 461 READ
-# READ Sequential TSPFILE Status: 00
-# Record : 'EPS00000 EPSILON EQUIPMENT SUPPLY 1184 EAST FIRST STREET CALGARY '
-# ' CANADA 5292398745MRS. DONNA BREWER UNI-80/61MEG8417'
-# ' 1600 BPI00090'
-#Line: 465 ADD
-#Line: 458 DISPLAY
-#Line: 461 READ
-# READ Sequential TSPFILE Status: 00
-# Record : 'DEL00000 DELTA LUGGAGE REPAIRS 1620 ARIZONA WAY TORONTO '
-# ' CANADA 4169898509MR. PETER MACKAY UNI-80/53MEG8470'
-# ' 6250 BPI00045'
-#Line: 465 ADD
-#Line: 468 CLOSE
-# CLOSE TSPFILE Status: 00
-#Line: 470 OPEN
-# OPEN I_O TSPFILE -> 'testisam' Status: 00
-#Line: 471 MOVE
-#Line: 472 MOVE
-#Line: 473 MOVE
-#Line: 474 READ
-# READ TSPFILE Status: 23
-# Key : 'BET0X000'
-#Line: 475 IF
-#Line: 479 MOVE
-#Line: 480 MOVE
-#Line: 481 READ
-# READ TSPFILE Status: 00
-# Record : 'BET00000 BETA SHOE MFG. INC. 1090 2ND AVE. WEST ATLANTA '
-# ' GEORGIA 4082938498MS. JANICE SILCOX UNI-90403MEG8470'
-# ' 6250 BPI00034'
-# Key : 'BET00000'
-#Line: 482 IF
-#Line: 486 DISPLAY
-#Line: 490 READ
-# READ Sequential TSPFILE Status: 00
-# Record : 'DEL00000 DELTA LUGGAGE REPAIRS 1620 ARIZONA WAY TORONTO '
-# ' CANADA 4169898509MR. PETER MACKAY UNI-80/53MEG8470'
-# ' 6250 BPI00045'
-#Line: 491 IF
-#Line: 495 DISPLAY
-#Line: 499 MOVE
-#Line: 500 MOVE
-#Line: 501 READ
-# READ TSPFILE Status: 00
-# Record : 'GIB00000 GIBRALTER LIFE INSURANCE 650 LIBERTY CRESCENT LOS RIOS '
-# ' NEW MEXICO 6456445643MR. D.A. MORRISON UNI-80/61MEG8417'
-# ' 1600 BPI00067'
-# Key : 6456445643
-#Line: 502 IF
-#Line: 506 DISPLAY
-#Line: 510 WRITE
-# WRITE TSPFILE Status: 22
-# Record : 'GIB00000 GIBRALTER LIFE INSURANCE 650 LIBERTY CRESCENT LOS RIOS '
-# ' NEW MEXICO 6456445643MR. D.A. MORRISON UNI-80/61MEG8417'
-# ' 1600 BPI00067'
-#Line: 511 IF
-#Line: 515 DISPLAY
-#Line: 518 MOVE
-#Line: 519 MOVE
-#Line: 520 READ
-# READ TSPFILE Status: 00
-# Record : 'GAM00000 GAMMA X-RAY TECHNOLOGY 1401 JEFFERSON BLVD. WASHINGTON '
-# ' D.C. 8372487274MR. ALLAN JONES UNI-80/31MEG8417'
-# ' 1600 BPI00075'
-# Key : 'GAM00000'
-#Line: 521 DISPLAY
-#Line: 525 ADD
-#Line: 526 REWRITE
-# REWRITE TSPFILE Status: 00
-# Record : 'GAM00000 GAMMA X-RAY TECHNOLOGY 1401 JEFFERSON BLVD. WASHINGTON '
-# ' D.C. 8372487274MR. ALLAN JONES UNI-80/31MEG8417'
-# ' 1600 BPI00080'
-#Line: 527 IF
-#Line: 532 DISPLAY
-#Line: 537 MOVE
-#Line: 538 MOVE
-#Line: 539 READ
-# READ TSPFILE Status: 00
-# Record : 'BET00000 BETA SHOE MFG. INC. 1090 2ND AVE. WEST ATLANTA '
-# ' GEORGIA 4082938498MS. JANICE SILCOX UNI-90403MEG8470'
-# ' 6250 BPI00034'
-# Key : 'BET00000'
-#Line: 540 DISPLAY
-#Line: 544 MOVE
-#Line: 545 MOVE
-#Line: 546 REWRITE
-# REWRITE TSPFILE Status: 02
-# Record : 'GAM00000 GAMMA X-RAY TECHNOLOGY 1090 2ND AVE. WEST ATLANTA '
-# ' GEORGIA 4082938498MS. JANICE SILCOX UNI-90403MEG8470'
-# ' 6250 BPI00034'
-#Line: 547 IF
-#Line: 552 DISPLAY
-#Line: 556 MOVE
-#Line: 557 MOVE
-#Line: 558 READ
-# READ TSPFILE Status: 00
-# Record : 'FOR00000 FORTUNE COOKIE COMPANY 114 JOHN F. KENNEDY AVE. SAN DIEGO '
-# ' CALIFORNIA 8009329492MR. MICHAEL SMYTHE UNI-80/63MEG8470'
-# ' 6250 BPI00107'
-# Key : 'FOR00000'
-#Line: 559 MOVE
-#Line: 560 MOVE
-#Line: 561 REWRITE
-# REWRITE TSPFILE Status: 02
-# Record : 'FOR00000 FORTUNE COOKIE COMPANY 114 JOHN F. KENNEDY AVE. SAN DIEGO '
-# ' CALIFORNIA 6456445643MR. MICHAEL SMYTHE UNI-80/63MEG8470'
-# ' 6250 BPI00107'
-#Line: 562 IF
-#Line: 567 DISPLAY
-#Line: 571 DELETE
-# DELETE TSPFILE Status: 00
-# Record : 'FOR00000 FORTUNE COOKIE COMPANY 114 JOHN F. KENNEDY AVE. SAN DIEGO '
-# ' CALIFORNIA 6456445643MR. MICHAEL SMYTHE UNI-80/63MEG8470'
-# ' 6250 BPI00107'
-#Line: 572 CLOSE
-# CLOSE TSPFILE Status: 00
-#Line: 333 STOP RUN
-#])
-
-# variant without file trace
-
-
-cat >reference <<'_ATEOF'
-Source: 'prog.cob'
-Program-Id: prog
-Line: 292 Entry: prog
-Line: 292 Paragraph: MAINFILE
-Line: 293 OPEN
-Line: 294 CLOSE
-Line: 296 OPEN
-Line: 297 MOVE
-Line: 298 READ
-Line: 299 IF
-Line: 304 MOVE
-Line: 305 START
-Line: 306 IF
-Line: 311 READ
-Line: 312 IF
-Line: 317 DISPLAY
-Line: 318 CLOSE
-Line: 320 PERFORM
-Line: 335 Paragraph: LOADFILE
-Line: 336 DISPLAY
-Line: 339 OPEN
-Line: 340 IF
-Line: 346 PERFORM
-Line: 348 UNTIL
-Line: 358 Paragraph: 1000-LOAD-RECORD
-Line: 360 MOVE
-Line: 361 MOVE
-Line: 362 MOVE
-Line: 363 MOVE
-Line: 364 MOVE
-Line: 365 MOVE
-Line: 366 MOVE
-Line: 367 MOVE
-Line: 368 MOVE
-Line: 369 MOVE
-Line: 370 MOVE
-Line: 372 IF
-Line: 373 MOVE
-Line: 374 MOVE
-Line: 375 MOVE
-Line: 381 WRITE
-Line: 382 IF
-Line: 347 VARYING
-Line: 348 UNTIL
-Line: 358 Paragraph: 1000-LOAD-RECORD
-Line: 360 MOVE
-Line: 361 MOVE
-Line: 362 MOVE
-Line: 363 MOVE
-Line: 364 MOVE
-Line: 365 MOVE
-Line: 366 MOVE
-Line: 367 MOVE
-Line: 368 MOVE
-Line: 369 MOVE
-Line: 370 MOVE
-Line: 372 IF
-Line: 377 MOVE
-Line: 378 MOVE
-Line: 379 MOVE
-Line: 381 WRITE
-Line: 382 IF
-Line: 347 VARYING
-Line: 348 UNTIL
-Line: 358 Paragraph: 1000-LOAD-RECORD
-Line: 360 MOVE
-Line: 361 MOVE
-Line: 362 MOVE
-Line: 363 MOVE
-Line: 364 MOVE
-Line: 365 MOVE
-Line: 366 MOVE
-Line: 367 MOVE
-Line: 368 MOVE
-Line: 369 MOVE
-Line: 370 MOVE
-Line: 372 IF
-Line: 373 MOVE
-Line: 374 MOVE
-Line: 375 MOVE
-Line: 381 WRITE
-Line: 382 IF
-Line: 347 VARYING
-Line: 348 UNTIL
-Line: 358 Paragraph: 1000-LOAD-RECORD
-Line: 360 MOVE
-Line: 361 MOVE
-Line: 362 MOVE
-Line: 363 MOVE
-Line: 364 MOVE
-Line: 365 MOVE
-Line: 366 MOVE
-Line: 367 MOVE
-Line: 368 MOVE
-Line: 369 MOVE
-Line: 370 MOVE
-Line: 372 IF
-Line: 377 MOVE
-Line: 378 MOVE
-Line: 379 MOVE
-Line: 381 WRITE
-Line: 382 IF
-Line: 347 VARYING
-Line: 348 UNTIL
-Line: 358 Paragraph: 1000-LOAD-RECORD
-Line: 360 MOVE
-Line: 361 MOVE
-Line: 362 MOVE
-Line: 363 MOVE
-Line: 364 MOVE
-Line: 365 MOVE
-Line: 366 MOVE
-Line: 367 MOVE
-Line: 368 MOVE
-Line: 369 MOVE
-Line: 370 MOVE
-Line: 372 IF
-Line: 373 MOVE
-Line: 374 MOVE
-Line: 375 MOVE
-Line: 381 WRITE
-Line: 382 IF
-Line: 347 VARYING
-Line: 348 UNTIL
-Line: 358 Paragraph: 1000-LOAD-RECORD
-Line: 360 MOVE
-Line: 361 MOVE
-Line: 362 MOVE
-Line: 363 MOVE
-Line: 364 MOVE
-Line: 365 MOVE
-Line: 366 MOVE
-Line: 367 MOVE
-Line: 368 MOVE
-Line: 369 MOVE
-Line: 370 MOVE
-Line: 372 IF
-Line: 377 MOVE
-Line: 378 MOVE
-Line: 379 MOVE
-Line: 381 WRITE
-Line: 382 IF
-Line: 347 VARYING
-Line: 348 UNTIL
-Line: 358 Paragraph: 1000-LOAD-RECORD
-Line: 360 MOVE
-Line: 361 MOVE
-Line: 362 MOVE
-Line: 363 MOVE
-Line: 364 MOVE
-Line: 365 MOVE
-Line: 366 MOVE
-Line: 367 MOVE
-Line: 368 MOVE
-Line: 369 MOVE
-Line: 370 MOVE
-Line: 372 IF
-Line: 373 MOVE
-Line: 374 MOVE
-Line: 375 MOVE
-Line: 381 WRITE
-Line: 382 IF
-Line: 347 VARYING
-Line: 348 UNTIL
-Line: 358 Paragraph: 1000-LOAD-RECORD
-Line: 360 MOVE
-Line: 361 MOVE
-Line: 362 MOVE
-Line: 363 MOVE
-Line: 364 MOVE
-Line: 365 MOVE
-Line: 366 MOVE
-Line: 367 MOVE
-Line: 368 MOVE
-Line: 369 MOVE
-Line: 370 MOVE
-Line: 372 IF
-Line: 377 MOVE
-Line: 378 MOVE
-Line: 379 MOVE
-Line: 381 WRITE
-Line: 382 IF
-Line: 347 VARYING
-Line: 348 UNTIL
-Line: 358 Paragraph: 1000-LOAD-RECORD
-Line: 360 MOVE
-Line: 361 MOVE
-Line: 362 MOVE
-Line: 363 MOVE
-Line: 364 MOVE
-Line: 365 MOVE
-Line: 366 MOVE
-Line: 367 MOVE
-Line: 368 MOVE
-Line: 369 MOVE
-Line: 370 MOVE
-Line: 372 IF
-Line: 373 MOVE
-Line: 374 MOVE
-Line: 375 MOVE
-Line: 381 WRITE
-Line: 382 IF
-Line: 347 VARYING
-Line: 348 UNTIL
-Line: 358 Paragraph: 1000-LOAD-RECORD
-Line: 360 MOVE
-Line: 361 MOVE
-Line: 362 MOVE
-Line: 363 MOVE
-Line: 364 MOVE
-Line: 365 MOVE
-Line: 366 MOVE
-Line: 367 MOVE
-Line: 368 MOVE
-Line: 369 MOVE
-Line: 370 MOVE
-Line: 372 IF
-Line: 373 MOVE
-Line: 374 MOVE
-Line: 375 MOVE
-Line: 381 WRITE
-Line: 382 IF
-Line: 347 VARYING
-Line: 348 UNTIL
-Line: 358 Paragraph: 1000-LOAD-RECORD
-Line: 360 MOVE
-Line: 361 MOVE
-Line: 362 MOVE
-Line: 363 MOVE
-Line: 364 MOVE
-Line: 365 MOVE
-Line: 366 MOVE
-Line: 367 MOVE
-Line: 368 MOVE
-Line: 369 MOVE
-Line: 370 MOVE
-Line: 372 IF
-Line: 373 MOVE
-Line: 374 MOVE
-Line: 375 MOVE
-Line: 381 WRITE
-Line: 382 IF
-Line: 347 VARYING
-Line: 348 UNTIL
-Line: 358 Paragraph: 1000-LOAD-RECORD
-Line: 360 MOVE
-Line: 361 MOVE
-Line: 362 MOVE
-Line: 363 MOVE
-Line: 364 MOVE
-Line: 365 MOVE
-Line: 366 MOVE
-Line: 367 MOVE
-Line: 368 MOVE
-Line: 369 MOVE
-Line: 370 MOVE
-Line: 372 IF
-Line: 377 MOVE
-Line: 378 MOVE
-Line: 379 MOVE
-Line: 381 WRITE
-Line: 382 IF
-Line: 347 VARYING
-Line: 348 UNTIL
-Line: 358 Paragraph: 1000-LOAD-RECORD
-Line: 360 MOVE
-Line: 361 MOVE
-Line: 362 MOVE
-Line: 363 MOVE
-Line: 364 MOVE
-Line: 365 MOVE
-Line: 366 MOVE
-Line: 367 MOVE
-Line: 368 MOVE
-Line: 369 MOVE
-Line: 370 MOVE
-Line: 372 IF
-Line: 377 MOVE
-Line: 378 MOVE
-Line: 379 MOVE
-Line: 381 WRITE
-Line: 382 IF
-Line: 347 VARYING
-Line: 348 UNTIL
-Line: 358 Paragraph: 1000-LOAD-RECORD
-Line: 360 MOVE
-Line: 361 MOVE
-Line: 362 MOVE
-Line: 363 MOVE
-Line: 364 MOVE
-Line: 365 MOVE
-Line: 366 MOVE
-Line: 367 MOVE
-Line: 368 MOVE
-Line: 369 MOVE
-Line: 370 MOVE
-Line: 372 IF
-Line: 377 MOVE
-Line: 378 MOVE
-Line: 379 MOVE
-Line: 381 WRITE
-Line: 382 IF
-Line: 347 VARYING
-Line: 348 UNTIL
-Line: 358 Paragraph: 1000-LOAD-RECORD
-Line: 360 MOVE
-Line: 361 MOVE
-Line: 362 MOVE
-Line: 363 MOVE
-Line: 364 MOVE
-Line: 365 MOVE
-Line: 366 MOVE
-Line: 367 MOVE
-Line: 368 MOVE
-Line: 369 MOVE
-Line: 370 MOVE
-Line: 372 IF
-Line: 377 MOVE
-Line: 378 MOVE
-Line: 379 MOVE
-Line: 381 WRITE
-Line: 382 IF
-Line: 347 VARYING
-Line: 348 UNTIL
-Line: 358 Paragraph: 1000-LOAD-RECORD
-Line: 360 MOVE
-Line: 361 MOVE
-Line: 362 MOVE
-Line: 363 MOVE
-Line: 364 MOVE
-Line: 365 MOVE
-Line: 366 MOVE
-Line: 367 MOVE
-Line: 368 MOVE
-Line: 369 MOVE
-Line: 370 MOVE
-Line: 372 IF
-Line: 377 MOVE
-Line: 378 MOVE
-Line: 379 MOVE
-Line: 381 WRITE
-Line: 382 IF
-Line: 347 VARYING
-Line: 348 UNTIL
-Line: 350 DISPLAY
-Line: 352 CLOSE
-Line: 321 PERFORM
-Line: 387 Paragraph: LISTFILE
-Line: 388 DISPLAY
-Line: 389 OPEN
-Line: 390 MOVE
-Line: 391 MOVE
-Line: 392 START
-Line: 393 READ
-Line: 394 READ
-Line: 395 CLOSE
-Line: 397 MOVE
-Line: 398 OPEN
-Line: 399 IF
-Line: 404 MOVE
-Line: 405 MOVE
-Line: 406 START
-Line: 407 READ
-Line: 408 READ
-Line: 410 MOVE
-Line: 411 MOVE
-Line: 412 START
-Line: 413 IF
-Line: 418 READ
-Line: 419 IF
-Line: 424 PERFORM
-Line: 424 UNTIL
-Line: 426 DISPLAY
-Line: 429 CALL
-Line: 430 READ
-Line: 434 ADD
-Line: 424 UNTIL
-Line: 426 DISPLAY
-Line: 429 CALL
-Line: 430 READ
-Line: 434 ADD
-Line: 424 UNTIL
-Line: 426 DISPLAY
-Line: 429 CALL
-Line: 430 READ
-Line: 434 ADD
-Line: 424 UNTIL
-Line: 426 DISPLAY
-Line: 429 CALL
-Line: 430 READ
-Line: 434 ADD
-Line: 424 UNTIL
-Line: 426 DISPLAY
-Line: 429 CALL
-Line: 430 READ
-Line: 434 ADD
-Line: 424 UNTIL
-Line: 426 DISPLAY
-Line: 429 CALL
-Line: 430 READ
-Line: 434 ADD
-Line: 424 UNTIL
-Line: 426 DISPLAY
-Line: 429 CALL
-Line: 430 READ
-Line: 434 ADD
-Line: 424 UNTIL
-Line: 426 DISPLAY
-Line: 429 CALL
-Line: 430 READ
-Line: 434 ADD
-Line: 424 UNTIL
-Line: 426 DISPLAY
-Line: 429 CALL
-Line: 430 READ
-Line: 434 ADD
-Line: 424 UNTIL
-Line: 426 DISPLAY
-Line: 429 CALL
-Line: 430 READ
-Line: 434 ADD
-Line: 424 UNTIL
-Line: 426 DISPLAY
-Line: 429 CALL
-Line: 430 READ
-Line: 434 ADD
-Line: 424 UNTIL
-Line: 436 IF
-Line: 439 DISPLAY
-Line: 442 DISPLAY
-Line: 443 MOVE
-Line: 444 START
-Line: 445 IF
-Line: 450 READ
-Line: 451 IF
-Line: 456 PERFORM
-Line: 458 DISPLAY
-Line: 461 READ
-Line: 465 ADD
-Line: 456 UNTIL
-Line: 458 DISPLAY
-Line: 461 READ
-Line: 465 ADD
-Line: 456 UNTIL
-Line: 458 DISPLAY
-Line: 461 READ
-Line: 465 ADD
-Line: 456 UNTIL
-Line: 458 DISPLAY
-Line: 461 READ
-Line: 465 ADD
-Line: 456 UNTIL
-Line: 458 DISPLAY
-Line: 461 READ
-Line: 465 ADD
-Line: 456 UNTIL
-Line: 458 DISPLAY
-Line: 461 READ
-Line: 465 ADD
-Line: 456 UNTIL
-Line: 458 DISPLAY
-Line: 461 READ
-Line: 465 ADD
-Line: 456 UNTIL
-Line: 458 DISPLAY
-Line: 461 READ
-Line: 465 ADD
-Line: 456 UNTIL
-Line: 458 DISPLAY
-Line: 461 READ
-Line: 465 ADD
-Line: 456 UNTIL
-Line: 458 DISPLAY
-Line: 461 READ
-Line: 465 ADD
-Line: 456 UNTIL
-Line: 458 DISPLAY
-Line: 461 READ
-Line: 465 ADD
-Line: 456 UNTIL
-Line: 468 CLOSE
-Line: 470 OPEN
-Line: 471 MOVE
-Line: 472 MOVE
-Line: 473 MOVE
-Line: 474 READ
-Line: 475 IF
-Line: 479 MOVE
-Line: 480 MOVE
-Line: 481 READ
-Line: 482 IF
-Line: 486 DISPLAY
-Line: 490 READ
-Line: 491 IF
-Line: 495 DISPLAY
-Line: 499 MOVE
-Line: 500 MOVE
-Line: 501 READ
-Line: 502 IF
-Line: 506 DISPLAY
-Line: 510 WRITE
-Line: 511 IF
-Line: 515 DISPLAY
-Line: 518 MOVE
-Line: 519 MOVE
-Line: 520 READ
-Line: 521 DISPLAY
-Line: 525 ADD
-Line: 526 REWRITE
-Line: 527 IF
-Line: 532 DISPLAY
-Line: 537 MOVE
-Line: 538 MOVE
-Line: 539 READ
-Line: 540 DISPLAY
-Line: 544 MOVE
-Line: 545 MOVE
-Line: 546 REWRITE
-Line: 547 IF
-Line: 552 DISPLAY
-Line: 556 MOVE
-Line: 557 MOVE
-Line: 558 READ
-Line: 559 MOVE
-Line: 560 MOVE
-Line: 561 REWRITE
-Line: 562 IF
-Line: 567 DISPLAY
-Line: 571 DELETE
-Line: 572 CLOSE
-Line: 333 STOP RUN
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:10167: diff reference trace.txt"
-at_fn_check_prepare_trace "run_misc.at:10167"
-( $at_check_trace; diff reference trace.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:10167"
-$at_failed && at_fn_log_failure \
-"trace.txt"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:10169: \$COMPILE -ftrace prog.cob -o prog_s"
-at_fn_check_prepare_dynamic "$COMPILE -ftrace prog.cob -o prog_s" "run_misc.at:10169"
-( $at_check_trace; $COMPILE -ftrace prog.cob -o prog_s
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:10169"
-$at_failed && at_fn_log_failure \
-"trace.txt"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:10171: COB_TRACE_FILE=+trace_append.txt \\
-COB_SET_TRACE=Y \\
-COB_TRACE_FORMAT=\"%S and now ... %L\" \\
-\$COBCRUN_DIRECT ./prog_s"
-at_fn_check_prepare_notrace 'an embedded newline' "run_misc.at:10171"
-( $at_check_trace; COB_TRACE_FILE=+trace_append.txt \
-COB_SET_TRACE=Y \
-COB_TRACE_FORMAT="%S and now ... %L" \
-$COBCRUN_DIRECT ./prog_s
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK: Operations on empty file
-Loading sample data file.
-Sample data file load complete.
-LIST SAMPLE FILE
-Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=8417 .
-Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=8470 .
-Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 .
-Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 .
-Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=8470 .
-Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 .
-Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 .
-Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 .
-Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=8470 .
-Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 .
-Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=8470 .
-Stop read after: 11
-LIST SAMPLE FILE DESCENDING
-Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=8470 .
-Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 .
-Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=8470 .
-Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 .
-Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 .
-Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 .
-Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=8470 .
-Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 .
-Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 .
-Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=8470 .
-Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=8417 .
-Got: BET00000 is BETA SHOE MFG. INC. Disk=8470 .
-Nxt: DEL00000 is DELTA LUGGAGE REPAIRS Disk=8470 .
-Ky2: GIB00000 is GIBRALTER LIFE INSURANCE Mach=UNI-80/6.
- Write: GIB00000 got 22 as expected
- Read: GAM00000 got 00 as expected 00075 terminals
-ReWrite: GAM00000 got 00 as expected 00080 terminals
- Read: BET00000 got 00 as expected 00034 terminals
-ReWrite: GAM00000 got 00/02 as expected
-ReWrite: FOR00000 got 00/02 as expected
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:10171"
-$at_failed && at_fn_log_failure \
-"trace.txt"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:10214: COB_TRACE_FILE=+trace_append.txt \\
-COB_SET_TRACE=Y \\
-COB_TRACE_FORMAT=\"%S - %L\" \\
-\$COBCRUN_DIRECT ./prog_s"
-at_fn_check_prepare_notrace 'an embedded newline' "run_misc.at:10214"
-( $at_check_trace; COB_TRACE_FILE=+trace_append.txt \
-COB_SET_TRACE=Y \
-COB_TRACE_FORMAT="%S - %L" \
-$COBCRUN_DIRECT ./prog_s
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK: Operations on empty file
-Loading sample data file.
-Sample data file load complete.
-LIST SAMPLE FILE
-Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=8417 .
-Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=8470 .
-Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 .
-Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 .
-Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=8470 .
-Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 .
-Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 .
-Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 .
-Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=8470 .
-Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 .
-Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=8470 .
-Stop read after: 11
-LIST SAMPLE FILE DESCENDING
-Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=8470 .
-Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 .
-Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=8470 .
-Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 .
-Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 .
-Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 .
-Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=8470 .
-Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 .
-Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 .
-Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=8470 .
-Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=8417 .
-Got: BET00000 is BETA SHOE MFG. INC. Disk=8470 .
-Nxt: DEL00000 is DELTA LUGGAGE REPAIRS Disk=8470 .
-Ky2: GIB00000 is GIBRALTER LIFE INSURANCE Mach=UNI-80/6.
- Write: GIB00000 got 22 as expected
- Read: GAM00000 got 00 as expected 00075 terminals
-ReWrite: GAM00000 got 00 as expected 00080 terminals
- Read: BET00000 got 00 as expected 00034 terminals
-ReWrite: GAM00000 got 00/02 as expected
-ReWrite: FOR00000 got 00/02 as expected
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:10214"
-$at_failed && at_fn_log_failure \
-"trace.txt"
-$at_traceon; }
-
-
-
-cat >reference_append <<'_ATEOF'
-Source: 'prog.cob'
-Program-Id: prog
- Entry: prog and now ... 292
-Paragraph: MAINFILE and now ... 292
-Paragraph: LOADFILE and now ... 335
-Paragraph: 1000-LOAD-RECORD and now ... 358
-Paragraph: 1000-LOAD-RECORD and now ... 358
-Paragraph: 1000-LOAD-RECORD and now ... 358
-Paragraph: 1000-LOAD-RECORD and now ... 358
-Paragraph: 1000-LOAD-RECORD and now ... 358
-Paragraph: 1000-LOAD-RECORD and now ... 358
-Paragraph: 1000-LOAD-RECORD and now ... 358
-Paragraph: 1000-LOAD-RECORD and now ... 358
-Paragraph: 1000-LOAD-RECORD and now ... 358
-Paragraph: 1000-LOAD-RECORD and now ... 358
-Paragraph: 1000-LOAD-RECORD and now ... 358
-Paragraph: 1000-LOAD-RECORD and now ... 358
-Paragraph: 1000-LOAD-RECORD and now ... 358
-Paragraph: 1000-LOAD-RECORD and now ... 358
-Paragraph: 1000-LOAD-RECORD and now ... 358
-Paragraph: 1000-LOAD-RECORD and now ... 358
-Paragraph: LISTFILE and now ... 387
-Source: 'prog.cob'
-Program-Id: prog
- Entry: prog - 292
-Paragraph: MAINFILE - 292
-Paragraph: LOADFILE - 335
-Paragraph: 1000-LOAD-RECORD - 358
-Paragraph: 1000-LOAD-RECORD - 358
-Paragraph: 1000-LOAD-RECORD - 358
-Paragraph: 1000-LOAD-RECORD - 358
-Paragraph: 1000-LOAD-RECORD - 358
-Paragraph: 1000-LOAD-RECORD - 358
-Paragraph: 1000-LOAD-RECORD - 358
-Paragraph: 1000-LOAD-RECORD - 358
-Paragraph: 1000-LOAD-RECORD - 358
-Paragraph: 1000-LOAD-RECORD - 358
-Paragraph: 1000-LOAD-RECORD - 358
-Paragraph: 1000-LOAD-RECORD - 358
-Paragraph: 1000-LOAD-RECORD - 358
-Paragraph: 1000-LOAD-RECORD - 358
-Paragraph: 1000-LOAD-RECORD - 358
-Paragraph: 1000-LOAD-RECORD - 358
-Paragraph: LISTFILE - 387
-_ATEOF
-
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:10307: diff reference_append trace_append.txt"
-at_fn_check_prepare_trace "run_misc.at:10307"
-( $at_check_trace; diff reference_append trace_append.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:10307"
-$at_failed && at_fn_log_failure \
-"trace.txt" \
-"trace_append.txt"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_808
-#AT_START_809
-at_fn_group_banner 809 'run_misc.at:10312' \
- "stack and dump feature" " " 4
-at_xfail=no
-(
- printf "%s\n" "809. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >cpyabrt <<'_ATEOF'
-
- MOVE "Quick brown fox jumped over the dog"
- TO TSTTAILX (1:40).
- MOVE CM-COMPANY TO TSTTAILX (42:20).
- * DISPLAY ':' X ':'.
- * DISPLAY CM-COMPANY.
- * DISPLAY '>' CM-COMPANY '<'.
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
-
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT FLATFILE ASSIGN EXTERNAL RELFIX
- ORGANIZATION RELATIVE
- ACCESS IS SEQUENTIAL RELATIVE KEY IS REC-NUM
- FILE STATUS IS CUST-STAT.
-
- DATA DIVISION.
- FILE SECTION.
- FD FLATFILE
- BLOCK CONTAINS 5 RECORDS.
-
- 01 TSPFL-RECORD.
- 10 CM-CUST-NUM PICTURE X(8).
- 10 CM-COMPANY PICTURE X(25).
- 10 CM-DISK PICTURE X(8).
- 10 CM-NO-TERMINALS PICTURE 9(4).
-
- WORKING-STORAGE SECTION.
- 77 MAX-SUB VALUE 6 PICTURE 9(4) COMP SYNC.
- 77 CUST-STAT PICTURE X(2).
- 77 REC-NUM VALUE 1 PICTURE 9(4).
- 01 BIN PIC 9(9) BINARY VALUE 0.
-
- 01 TEST-DATA.
- 02 DATA-CUST-NUM-TBL.
- 05 FILLER PIC X(8) VALUE "ALP00000".
- 05 FILLER PIC X(8) VALUE "BET00000".
- 05 FILLER PIC X(8) VALUE "DEL00000".
- 05 FILLER PIC X(8) VALUE "EPS00000".
- 05 FILLER PIC X(8) VALUE "FOR00000".
- 05 FILLER PIC X(8) VALUE "GAM00000".
-
- 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL
- PIC X(8) OCCURS 6.
- 02 DATA-COMPANY-TBL.
- 05 FILLER PIC X(25) VALUE "ALPHA ELECTRICAL CO. LTD.".
- 05 FILLER PIC X(25) VALUE "BETA SHOE MFG. INC. ".
- 05 FILLER PIC X(25) VALUE "DELTA LUGGAGE REPAIRS ".
- 05 FILLER PIC X(25) VALUE "EPSILON EQUIPMENT SUPPLY ".
- 05 FILLER PIC X(25) VALUE "FORTUNE COOKIE COMPANY ".
- 05 FILLER PIC X(25) VALUE "GAMMA X-RAY TECHNOLOGY ".
- 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL
- PIC X(25) OCCURS 6.
- 02 DATA-ADDRESS-2-TBL.
- 05 FILLER PIC X(10) VALUE "ATLANTA ".
- 05 FILLER PIC X(10) VALUE "CALGARY ".
- 05 FILLER PIC X(10) VALUE "NEW YORK ".
- 05 FILLER PIC X(10) VALUE "TORONTO ".
- 05 FILLER PIC X(10) VALUE "WASHINGTON".
- 05 FILLER PIC X(10) VALUE "WHITEPLAIN".
- 02 DATA-ADDRESS REDEFINES DATA-ADDRESS-2-TBL
- PIC X(10) OCCURS 6.
-
- 02 DATA-NO-TERMINALS-TBL.
- 05 FILLER PIC 9(3) COMP-3 VALUE 10.
- 05 FILLER PIC 9(3) COMP-3 VALUE 13.
- 05 FILLER PIC 9(3) COMP-3 VALUE 75.
- 05 FILLER PIC 9(3) COMP-3 VALUE 10.
- 05 FILLER PIC 9(3) COMP-3 VALUE 90.
- 05 FILLER PIC 9(3) COMP-3 VALUE 254.
- 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL
- PIC 9(3) COMP-3 OCCURS 6.
- 01 WORK-AREA IS EXTERNAL.
- 05 SUB PICTURE 9(4) COMP SYNC.
- 88 ODD-RECORD VALUE 1 3 5.
- 01 SUMS-NON-STD-OCCURS PIC S9(15)V9(03) OCCURS 8 VALUE -42.345.
-
- PROCEDURE DIVISION.
-
- PERFORM LOADFILE.
-
- OPEN INPUT FLATFILE.
- READ FLATFILE.
-
- MAIN-100.
- PERFORM CALL-SUB-1.
- PERFORM CALL-SUB-2.
- PERFORM CALL-IT-OMIT.
- STOP RUN.
-
- LOADFILE.
- OPEN OUTPUT FLATFILE.
-
- PERFORM LOAD-RECORD
- VARYING SUB FROM 1 BY 1
- UNTIL SUB > MAX-SUB.
-
- CLOSE FLATFILE.
-
- LOAD-RECORD.
-
- MOVE SPACES TO TSPFL-RECORD.
- MOVE DATA-CUST-NUM (SUB) TO CM-CUST-NUM.
- MOVE DATA-COMPANY (SUB) TO CM-COMPANY.
- MOVE DATA-NO-TERMINALS (SUB) TO CM-NO-TERMINALS.
- IF ODD-RECORD
- MOVE "8417" TO CM-DISK
- ELSE
- MOVE "8470" TO CM-DISK.
- WRITE TSPFL-RECORD.
-
- CALL-SUB-1 SECTION.
- CALL "sub1" USING bin, TSPFL-RECORD.
-
- CALL-SUB-2 SECTION.
- MOVE 4096 TO bin, SUMS-NON-STD-OCCURS (2)
- CALL "sub2" USING bin, TSPFL-RECORD.
-
- CALL-IT-OMIT SECTION.
- MOVE 5440 TO bin, SUMS-NON-STD-OCCURS (3)
- CALL "sub2" USING bin, TSPFL-RECORD.
-
- END PROGRAM prog.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. sub1.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 ZRO PIC 9(9) BINARY VALUE 0.
- 01 HEXV PIC X COMP-X.
- 01 HEXC REDEFINES HEXV PIC X.
-
- 01 TEST-BASED BASED.
- 05 TEST-BASED-SUB PIC X(00000100000).
-
- 01 TEST-ALLOCED BASED.
- 05 TEST-ALLOCED-SUB1 PIC X(010).
- 05 TEST-ALLOCED-SUB2 PIC 9(006).
-
- 01 IDX PIC 9(9) BINARY VALUE 0.
- 01 TSTREC.
- 05 TSTDEP PIC XXX.
- 05 TSTX OCCURS 4 TIMES.
- 15 TSTG-1 PIC 99.
- 15 TSTX-2 PIC XX OCCURS 4 TIMES.
- 05 TSTTAIL1 PIC 99.
- 05 TSTCOMP3 PIC 9(5) COMP-3.
- 05 TSTLONG PIC X(100).
- 05 TSTHEX PIC X(100).
- 05 TSTHEX2 PIC X(60).
- 05 TSTTAILX PIC X(80).
-
- LINKAGE SECTION.
- 01 X PIC 9(9) BINARY.
- 01 TSPFL-RECORD.
- 10 CM-CUST-NUM PICTURE X(8).
- 10 CM-COMPANY PICTURE X(25).
- 10 CM-DISK PICTURE X(8).
- 10 CM-NO-TERMINALS PICTURE 9(4).
-
- PROCEDURE DIVISION USING X, OPTIONAL TSPFL-RECORD.
- MAIN-1 SECTION.
- MOVE ALL "X" TO TSTREC.
- MOVE 1 TO TSTG-1 (1).
- MOVE 2 TO TSTG-1 (2).
- MOVE 3 TO TSTG-1 (3).
- MOVE 'A' TO TSTX-2 (1,1).
- MOVE 'B' TO TSTX-2 (2,1).
- MOVE 'C' TO TSTX-2 (3,1).
- MOVE 'xx' TO TSTX-2 (1,4).
- MOVE 'yy' TO TSTX-2 (2,4).
- MOVE 'zz' TO TSTX-2 (3,4).
- MOVE SPACES TO TSTX-2 (1,3).
- MOVE HIGH-VALUES TO TSTX (4).
- MOVE LOW-VALUES TO TSTX-2 (2,3).
- MOVE HIGH-VALUES TO TSTX-2 (3,3).
- MOVE "Quick brown fox jumped over the dog"
- TO TSTLONG, TSTLONG (50:36).
- MOVE "Quicker grey fox jumped the cougar"
- TO TSTHEX (1:35). PERFORM MAIN-2.
- MAIN-2.
- MOVE 17 TO HEXV.
- MOVE HEXC TO TSTHEX (39:1).
- MOVE HEXC TO TSTTAIL1 (2:1).
- MOVE 7 TO HEXV.
- MOVE HEXC TO TSTHEX (47:1).
- MOVE 13 TO HEXV.
- MOVE HEXC TO TSTHEX (59:1).
- MOVE 0 TO HEXV.
- MOVE HEXC TO TSTHEX2 (39:1), TSTHEX2 (10:1).
- MOVE 9 TO HEXV.
- MOVE HEXC TO TSTHEX2 (47:1).
- MOVE '\' TO TSTHEX2 (32:1).
- MOVE 13 TO HEXV.
- MOVE HEXC TO TSTHEX2 (59:1).
- MOVE 'A' TO TSTHEX2 (54:1).
- MOVE LOW-VALUES TO TSTTAILX
- ADD 1 TO X.
- DISPLAY "X is " X.
- ALLOCATE TEST-ALLOCED INITIALIZED.
- COPY cpyabrt.
- IF ADDRESS OF TEST-BASED NOT = NULL
- DISPLAY TEST-BASED-SUB
- END-IF.
- GOBACK.
- END PROGRAM sub1.
-_ATEOF
-
-
-cat >sub2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. sub2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 ZRO PIC 9(9) BINARY VALUE 0.
- 01 HEXV PIC X COMP-X.
- 01 HEXC REDEFINES HEXV PIC X.
-
- 01 IDX PIC 9(9) BINARY VALUE 0.
- 01 TSTREC.
- 05 TSTDEP PIC XXX.
- 05 TSTX OCCURS 4 TIMES.
- 15 TSTG-1 PIC 99.
- 15 TSTX-2 PIC XX OCCURS 4 TIMES.
- 05 TSTTAIL1 PIC 99.
- 05 TSTCOMP3 PIC 9(5) COMP-3.
- 05 TSTLONG PIC X(100).
- 05 TSTHEX PIC X(100).
- 05 TSTHEX2 PIC X(60).
- 05 TSTTAILX PIC X(80).
-
- 01 BASED-RECORD BASED.
- 10 B-NUM PICTURE 9(4) VALUE 123.
- 10 B-DISK PICTURE X(8) VALUE "marvdisc".
- 10 B-NO-TERMINALS PICTURE 9(4).
- 77 BASED-NEVER-SET PIC X BASED.
-
- LINKAGE SECTION.
- 01 X PIC 9(9) BINARY.
- 01 TSPFL-RECORD.
- 10 CM-CUST-NUM PICTURE X(8).
- 10 CM-COMPANY PICTURE X(25).
- 10 CM-DISK PICTURE X(8).
- 10 CM-NO-TERMINALS PICTURE 9(4).
- 77 DYNAMIC-NUM PICTURE 9(4).
-
- PROCEDURE DIVISION USING X, TSPFL-RECORD.
- SubwaY SECTION.
- IF ADDRESS OF BASED-RECORD = NULL
- ALLOCATE BASED-RECORD INITIALIZED
- ELSE
- SET ADDRESS OF DYNAMIC-NUM TO ADDRESS OF BASED-RECORD
- ADD 1 TO B-NUM
- END-IF.
- DO-CALL.
- IF X = 5440
- CALL "sub1" USING X, OMITTED.
- MOVE ALL "X" TO TSTREC.
- MOVE 1 TO TSTG-1 (1).
- MOVE 2 TO TSTG-1 (2).
- MOVE 3 TO TSTG-1 (3).
- MOVE 'A' TO TSTX-2 (1,1).
- MOVE 'B' TO TSTX-2 (2,1).
- MOVE 'C' TO TSTX-2 (3,1).
- MOVE 'xx' TO TSTX-2 (1,4).
- MOVE 'yy' TO TSTX-2 (2,4).
- MOVE 'zz' TO TSTX-2 (3,4).
- MOVE SPACES TO TSTX-2 (1,3).
- MOVE HIGH-VALUES TO TSTX (4).
- MOVE LOW-VALUES TO TSTX-2 (2,3).
- MOVE HIGH-VALUES TO TSTX-2 (3,3).
- MOVE "Quick brown fox jumped over the dog"
- TO TSTLONG, TSTLONG (50:36).
- MOVE "Quicker grey fox jumped the cougar"
- TO TSTHEX (1:35).
- MOVE 17 TO HEXV.
- MOVE HEXC TO TSTHEX (39:1).
- MOVE HEXC TO TSTTAIL1 (2:1).
- MOVE 7 TO HEXV.
- MOVE HEXC TO TSTHEX (47:1).
- MOVE 13 TO HEXV.
- MOVE HEXC TO TSTHEX (59:1).
- MOVE 0 TO HEXV.
- MOVE HEXC TO TSTHEX2 (39:1), TSTHEX2 (10:1).
- MOVE 9 TO HEXV.
- MOVE HEXC TO TSTHEX2 (47:1).
- MOVE '\' TO TSTHEX2 (32:1).
- MOVE 13 TO HEXV.
- MOVE HEXC TO TSTHEX2 (59:1).
- MOVE 'A' TO TSTHEX2 (54:1).
- MOVE LOW-VALUES TO TSTTAILX.
- *
- COPY cpyabrt.
- END PROGRAM sub2.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:10616: \$COMPILE_MODULE -fdump=ALL prog.cob sub2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE -fdump=ALL prog.cob sub2.cob" "run_misc.at:10616"
-( $at_check_trace; $COMPILE_MODULE -fdump=ALL prog.cob sub2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:10616"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:10618: COB_DUMP_FILE=NONE \\
-\$COBCRUN prog"
-at_fn_check_prepare_notrace 'an embedded newline' "run_misc.at:10618"
-( $at_check_trace; COB_DUMP_FILE=NONE \
-$COBCRUN prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: cpyabrt:4: error: LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller
-libcob: cpyabrt:4: warning: implicit CLOSE of FLATFILE ('RELFIX')
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "X is 000000001
-X is 000005441
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:10618"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:10629: COB_DUMP_FILE=tstdump.dump \\
-\$COBCRUN prog"
-at_fn_check_prepare_notrace 'an embedded newline' "run_misc.at:10629"
-( $at_check_trace; COB_DUMP_FILE=tstdump.dump \
-$COBCRUN prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: cpyabrt:4: error: LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller
-libcob: cpyabrt:4: warning: implicit CLOSE of FLATFILE ('RELFIX')
-
-dump written to tstdump.dump
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "X is 000000001
-X is 000005441
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:10629"
-$at_failed && at_fn_log_failure \
-"tstdump.dump"
-$at_traceon; }
-
-
-cat >reference_tmpl <<'_ATEOF'
-
-Module dump due to LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller
-
- Last statement of "sub1" was MOVE
- MAIN-2 OF MAIN-1 at cpyabrt:4
- MAIN-1 at prog.cob:177
- ENTRY sub1 at prog.cob:159
- Last statement of "sub2" was CALL
- DO-CALL OF SubwaY at sub2.cob:48
- ENTRY sub2 at sub2.cob:39
- Last statement of "prog" was CALL
- CALL-IT-OMIT at prog.cob:118
- MAIN-100 at prog.cob:85
- ENTRY prog at prog.cob:77
- Started by prog
-
-Dump Program-Id sub1 from prog.cob compiled MMM DD YYYY HH:MM:SS
-
-WORKING-STORAGE
-**********************
-77 RETURN-CODE +000000000
-01 ZRO 000000000
-01 HEXV 13
-01 TEST-BASED. <NULL> address
-01 TEST-ALLOCED.
- 05 TEST-ALLOCED-SUB1 ALL SPACES
- 05 TEST-ALLOCED-SUB2 000000
-01 IDX 000000000
-01 TSTREC.
- 05 TSTDEP 'XXX'
- 05 TSTX (1).
- 15 TSTG-1 (1) 01
- 15 TSTX-2 (1,1) 'A'
- 15 TSTX-2 (1,2) 'XX'
- 15 TSTX-2 (1,3) ALL SPACES
- 15 TSTX-2 (1,4) 'xx'
- 05 TSTX (2).
- 15 TSTG-1 (2) 02
- 15 TSTX-2 (2,1) 'B'
- 15 TSTX-2 (2,2) 'XX'
- 15 TSTX-2 (2,3) ALL LOW-VALUES
- 15 TSTX-2 (2,4) 'yy'
- 05 TSTX (3).
- 15 TSTG-1 (3) 03
- 15 TSTX-2 (3,1) 'C'
- 15 TSTX-2 (3,2) 'XX'
- 15 TSTX-2 (3,3) ALL HIGH-VALUES
- 15 TSTX-2 (3,4) 'zz'
- 05 TSTX (4).
- 15 TSTG-1 (4) ALL HIGH-VALUES
- 15 TSTX-2 (4,1) ALL HIGH-VALUES
- 15 TSTX-2 (4,2..4) same as (1)
- 05 TSTTAIL1 X _
- 1 x 5811
- 05 TSTCOMP3 58585
- 05 TSTLONG 'Quick brown fox jumped over the dog Quick br'
- 57:'own fox jumped over the dog'
- 05 TSTHEX Q u i c k e r g r e y f o x j u m p e d _
- 1 x 51756963 6B657220 67726579 20666F78 206A756D 70656420
- t h e c o u g a r X X X X X X X X X X X
- 25 x 74686520 636F7567 61722058 58581158 58585858 58580758
- X X X X X X X X X X X X X X X X X X X X X X X
- 49 x 58585858 58585858 58580D58 58585858 58585858 58585858
- X X X X X X X X X X X X X X X X X X X X X X X X
- 73 x 58585858 58585858 58585858 58585858 58585858 58585858
- X X X X
- 97 x 58585858
- 05 TSTHEX2 XXXXXXXXX\0XXXXXXXXXXXXXXXXXXXXX\\XXXXXX\0XXXXXXX\tXXXXXX
- 54 : AXXXX\rX
- 05 TSTTAILX 'Quick brown fox jumped over the dog '
- trailing LOW-VALUES
-
-LINKAGE
-**********************
-01 X 000005441
-01 TSPFL-RECORD. <NULL> address
-
-END OF DUMP - sub1
-**********************
-
-Dump Program-Id sub2 from sub2.cob compiled MMM DD YYYY HH:MM:SS
-
-WORKING-STORAGE
-**********************
-77 RETURN-CODE +000000000
-01 ZRO 000000000
-01 HEXV 13
-01 IDX 000000000
-01 TSTREC.
- 05 TSTDEP 'XXX'
- 05 TSTX (1).
- 15 TSTG-1 (1) 01
- 15 TSTX-2 (1,1) 'A'
- 15 TSTX-2 (1,2) 'XX'
- 15 TSTX-2 (1,3) ALL SPACES
- 15 TSTX-2 (1,4) 'xx'
- 05 TSTX (2).
- 15 TSTG-1 (2) 02
- 15 TSTX-2 (2,1) 'B'
- 15 TSTX-2 (2,2) 'XX'
- 15 TSTX-2 (2,3) ALL LOW-VALUES
- 15 TSTX-2 (2,4) 'yy'
- 05 TSTX (3).
- 15 TSTG-1 (3) 03
- 15 TSTX-2 (3,1) 'C'
- 15 TSTX-2 (3,2) 'XX'
- 15 TSTX-2 (3,3) ALL HIGH-VALUES
- 15 TSTX-2 (3,4) 'zz'
- 05 TSTX (4).
- 15 TSTG-1 (4) ALL HIGH-VALUES
- 15 TSTX-2 (4,1) ALL HIGH-VALUES
- 15 TSTX-2 (4,2..4) same as (1)
- 05 TSTTAIL1 X _
- 1 x 5811
- 05 TSTCOMP3 58585
- 05 TSTLONG 'Quick brown fox jumped over the dog Quick br'
- 57:'own fox jumped over the dog'
- 05 TSTHEX Q u i c k e r g r e y f o x j u m p e d _
- 1 x 51756963 6B657220 67726579 20666F78 206A756D 70656420
- t h e c o u g a r X X X X X X X X X X X
- 25 x 74686520 636F7567 61722058 58581158 58585858 58580758
- X X X X X X X X X X X X X X X X X X X X X X X
- 49 x 58585858 58585858 58580D58 58585858 58585858 58585858
- X X X X X X X X X X X X X X X X X X X X X X X X
- 73 x 58585858 58585858 58585858 58585858 58585858 58585858
- X X X X
- 97 x 58585858
- 05 TSTHEX2 XXXXXXXXX\0XXXXXXXXXXXXXXXXXXXXX\\XXXXXX\0XXXXXXX\tXXXXXX
- 54 : AXXXX\rX
- 05 TSTTAILX Quick brown fox jumped over the dog \0ALPHA ELECTRICA
- 57 : L CO.\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0
-01 BASED-RECORD.
- 10 B-NUM 0124
- 10 B-DISK 'marvdisc'
- 10 B-NO-TERMINALS 0000
-77 BASED-NEVER-SET <NULL> address
-
-LINKAGE
-**********************
-01 X 000005441
-01 TSPFL-RECORD.
- 10 CM-CUST-NUM 'ALP00000'
- 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.'
- 10 CM-DISK '8417'
- 10 CM-NO-TERMINALS 0010
-77 DYNAMIC-NUM 0124
-
-END OF DUMP - sub2
-**********************
-
-Dump Program-Id prog from prog.cob compiled MMM DD YYYY HH:MM:SS
-
-FD FLATFILE
-**********************
- File is OPEN
- FILE STATUS '00'
-01 TSPFL-RECORD.
- 10 CM-CUST-NUM 'ALP00000'
- 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.'
- 10 CM-DISK '8417'
- 10 CM-NO-TERMINALS 0010
-
-WORKING-STORAGE
-**********************
-77 RETURN-CODE +000000000
-77 MAX-SUB 0006
-77 CUST-STAT ALL ZEROES
-77 REC-NUM 0001
-01 BIN 000005441
-01 TEST-DATA.
- 02 DATA-CUST-NUM-TBL.
- 05 FILLER 'ALP00000'
- 05 FILLER 'BET00000'
- 05 FILLER 'DEL00000'
- 05 FILLER 'EPS00000'
- 05 FILLER 'FOR00000'
- 05 FILLER 'GAM00000'
- 02 DATA-COMPANY-TBL.
- 05 FILLER 'ALPHA ELECTRICAL CO. LTD.'
- 05 FILLER 'BETA SHOE MFG. INC.'
- 05 FILLER 'DELTA LUGGAGE REPAIRS'
- 05 FILLER 'EPSILON EQUIPMENT SUPPLY'
- 05 FILLER 'FORTUNE COOKIE COMPANY'
- 05 FILLER 'GAMMA X-RAY TECHNOLOGY'
- 02 DATA-ADDRESS-2-TBL.
- 05 FILLER 'ATLANTA'
- 05 FILLER 'CALGARY'
- 05 FILLER 'NEW YORK'
- 05 FILLER 'TORONTO'
- 05 FILLER 'WASHINGTON'
- 05 FILLER 'WHITEPLAIN'
- 02 DATA-NO-TERMINALS-TBL.
- 05 FILLER 010
- 05 FILLER 013
- 05 FILLER 075
- 05 FILLER 010
- 05 FILLER 090
- 05 FILLER 254
-01 WORK-AREA.
- 05 SUB 0007
-01 SUMS-NON-STD-OCCURS (1) -000000000000042.345
-01 SUMS-NON-STD-OCCURS (2) +000000000004096.000
-01 SUMS-NON-STD-OCCURS (3) +000000000005440.000
-01 SUMS-NON-STD-OCCURS (4) -000000000000042.345
-01 SUMS-NON-STD-OCCURS (5..8) same as (4)
-
-END OF DUMP - prog
-**********************
-
-_ATEOF
-
-
-# AT_DATA workaround via sed:
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:10852: \$SED -e 's/_\$//' reference_tmpl > reference"
-at_fn_check_prepare_dynamic "$SED -e 's/_$//' reference_tmpl > reference" "run_misc.at:10852"
-( $at_check_trace; $SED -e 's/_$//' reference_tmpl > reference
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:10852"
-$at_failed && at_fn_log_failure \
-"tstdump.dump"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:10853: \$SED -e 's/compiled ... .. .... ..:..:../compiled MMM DD YYYY HH:MM:SS/g' \\
-tstdump.dump > tstdump.sed"
-at_fn_check_prepare_notrace 'an embedded newline' "run_misc.at:10853"
-( $at_check_trace; $SED -e 's/compiled ... .. .... ..:..:../compiled MMM DD YYYY HH:MM:SS/g' \
-tstdump.dump > tstdump.sed
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:10853"
-$at_failed && at_fn_log_failure \
-"tstdump.dump"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:10856: diff reference tstdump.sed"
-at_fn_check_prepare_trace "run_misc.at:10856"
-( $at_check_trace; diff reference tstdump.sed
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:10856"
-$at_failed && at_fn_log_failure \
-"tstdump.dump"
-$at_traceon; }
-
-
-# recheck with COBC_GEN_DUMP_COMMENTS, which may not change the output
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:10859: COBC_GEN_DUMP_COMMENTS=1 \\
-\$COMPILE_MODULE -fdump=ALL prog.cob sub2.cob"
-at_fn_check_prepare_notrace 'an embedded newline' "run_misc.at:10859"
-( $at_check_trace; COBC_GEN_DUMP_COMMENTS=1 \
-$COMPILE_MODULE -fdump=ALL prog.cob sub2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:10859"
-$at_failed && at_fn_log_failure \
-"tstdump.dump"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:10862: COB_DUMP_FILE=tstdump.dump \\
-\$COBCRUN prog"
-at_fn_check_prepare_notrace 'an embedded newline' "run_misc.at:10862"
-( $at_check_trace; COB_DUMP_FILE=tstdump.dump \
-$COBCRUN prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: cpyabrt:4: error: LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller
-libcob: cpyabrt:4: warning: implicit CLOSE of FLATFILE ('RELFIX')
-
-dump written to tstdump.dump
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "X is 000000001
-X is 000005441
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:10862"
-$at_failed && at_fn_log_failure \
-"tstdump.dump"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:10873: \$SED -e 's/compiled ... .. .... ..:..:../compiled MMM DD YYYY HH:MM:SS/g' \\
-tstdump.dump > tstdump.sed"
-at_fn_check_prepare_notrace 'an embedded newline' "run_misc.at:10873"
-( $at_check_trace; $SED -e 's/compiled ... .. .... ..:..:../compiled MMM DD YYYY HH:MM:SS/g' \
-tstdump.dump > tstdump.sed
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:10873"
-$at_failed && at_fn_log_failure \
-"tstdump.dump"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:10876: diff reference tstdump.sed"
-at_fn_check_prepare_trace "run_misc.at:10876"
-( $at_check_trace; diff reference tstdump.sed
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:10876"
-$at_failed && at_fn_log_failure \
-"tstdump.dump"
-$at_traceon; }
-
-
-
-# using both
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:10880: COB_STACKTRACE=1 COB_DUMP_FILE=tstdump.dump \\
-\$COBCRUN prog"
-at_fn_check_prepare_notrace 'an embedded newline' "run_misc.at:10880"
-( $at_check_trace; COB_STACKTRACE=1 COB_DUMP_FILE=tstdump.dump \
-$COBCRUN prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: cpyabrt:4: error: LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller
-libcob: cpyabrt:4: warning: implicit CLOSE of FLATFILE ('RELFIX')
-
- Last statement of \"sub1\" was MOVE
- MAIN-2 OF MAIN-1 at cpyabrt:4
- MAIN-1 at prog.cob:177
- ENTRY sub1 at prog.cob:159
- Last statement of \"sub2\" was CALL
- DO-CALL OF SubwaY at sub2.cob:48
- ENTRY sub2 at sub2.cob:39
- Last statement of \"prog\" was CALL
- CALL-IT-OMIT at prog.cob:118
- MAIN-100 at prog.cob:85
- ENTRY prog at prog.cob:77
- Started by prog
-
-dump written to tstdump.dump
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "X is 000000001
-X is 000005441
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:10880"
-$at_failed && at_fn_log_failure \
-"tstdump.dump"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:10904: \$SED -e 's/compiled ... .. .... ..:..:../compiled MMM DD YYYY HH:MM:SS/g' \\
-tstdump.dump > tstdump.sed"
-at_fn_check_prepare_notrace 'an embedded newline' "run_misc.at:10904"
-( $at_check_trace; $SED -e 's/compiled ... .. .... ..:..:../compiled MMM DD YYYY HH:MM:SS/g' \
-tstdump.dump > tstdump.sed
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:10904"
-$at_failed && at_fn_log_failure \
-"tstdump.dump"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:10907: diff reference tstdump.sed"
-at_fn_check_prepare_trace "run_misc.at:10907"
-( $at_check_trace; diff reference tstdump.sed
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:10907"
-$at_failed && at_fn_log_failure \
-"tstdump.dump"
-$at_traceon; }
-
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:10911: \$COMPILE prog.cob sub2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob sub2.cob" "run_misc.at:10911"
-( $at_check_trace; $COMPILE prog.cob sub2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:10911"
-$at_failed && at_fn_log_failure \
-"tstdump.dump"
-$at_traceon; }
-
-
-# also checking that a dump file without anything to dump does not do anything
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:10914: COB_STACKTRACE=1 COB_DUMP_FILE=tstdump.dump \\
-\$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_notrace 'an embedded newline' "run_misc.at:10914"
-( $at_check_trace; COB_STACKTRACE=1 COB_DUMP_FILE=tstdump.dump \
-$COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: cpyabrt:4: error: LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller
-libcob: cpyabrt:4: warning: implicit CLOSE of FLATFILE ('RELFIX')
-
- Last statement of \"sub1\" was MOVE
- MAIN-2 OF MAIN-1 at cpyabrt:4
- MAIN-1 at prog.cob:177
- ENTRY sub1 at prog.cob:159
- Last statement of \"sub2\" was CALL
- DO-CALL OF SubwaY at sub2.cob:48
- ENTRY sub2 at sub2.cob:39
- Last statement of \"prog\" was CALL
- CALL-IT-OMIT at prog.cob:118
- MAIN-100 at prog.cob:85
- ENTRY prog at prog.cob:77
- Started by ./prog
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "X is 000000001
-X is 000005441
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:10914"
-$at_failed && at_fn_log_failure \
-"tstdump.dump"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:10936: \$COMPILE -fdump=ALL -fno-dump prog.cob sub2.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fdump=ALL -fno-dump prog.cob sub2.cob" "run_misc.at:10936"
-( $at_check_trace; $COMPILE -fdump=ALL -fno-dump prog.cob sub2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:10936"
-$at_failed && at_fn_log_failure \
-"tstdump.dump"
-$at_traceon; }
-
-
-# also checking that a dump file without anything to dump does not do anything
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:10939: COB_STACKTRACE=1 COB_DUMP_FILE=tstdump.dump \\
-\$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_notrace 'an embedded newline' "run_misc.at:10939"
-( $at_check_trace; COB_STACKTRACE=1 COB_DUMP_FILE=tstdump.dump \
-$COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: cpyabrt:4: error: LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller
-libcob: cpyabrt:4: warning: implicit CLOSE of FLATFILE ('RELFIX')
-
- Last statement of \"sub1\" was MOVE
- MAIN-2 OF MAIN-1 at cpyabrt:4
- MAIN-1 at prog.cob:177
- ENTRY sub1 at prog.cob:159
- Last statement of \"sub2\" was CALL
- DO-CALL OF SubwaY at sub2.cob:48
- ENTRY sub2 at sub2.cob:39
- Last statement of \"prog\" was CALL
- CALL-IT-OMIT at prog.cob:118
- MAIN-100 at prog.cob:85
- ENTRY prog at prog.cob:77
- Started by ./prog
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "X is 000000001
-X is 000005441
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:10939"
-$at_failed && at_fn_log_failure \
-"tstdump.dump"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:10961: \$COMPILE -fdump=FD,LS prog.cob sub2.cob -o prog_fdls"
-at_fn_check_prepare_dynamic "$COMPILE -fdump=FD,LS prog.cob sub2.cob -o prog_fdls" "run_misc.at:10961"
-( $at_check_trace; $COMPILE -fdump=FD,LS prog.cob sub2.cob -o prog_fdls
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:10961"
-$at_failed && at_fn_log_failure \
-"tstdump.dump"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:10963: COB_DUMP_FILE=tstdump_fdls.dump \\
-\$COBCRUN_DIRECT ./prog_fdls"
-at_fn_check_prepare_notrace 'an embedded newline' "run_misc.at:10963"
-( $at_check_trace; COB_DUMP_FILE=tstdump_fdls.dump \
-$COBCRUN_DIRECT ./prog_fdls
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: cpyabrt:4: error: LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller
-libcob: cpyabrt:4: warning: implicit CLOSE of FLATFILE ('RELFIX')
-
-dump written to tstdump_fdls.dump
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "X is 000000001
-X is 000005441
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:10963"
-$at_failed && at_fn_log_failure \
-"tstdump.dump"
-$at_traceon; }
-
-
-
-
-
-cat >reference_fdls_tmpl <<'_ATEOF'
-
-Module dump due to LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller
-
- Last statement of "sub1" was MOVE
- MAIN-2 OF MAIN-1 at cpyabrt:4
- MAIN-1 at prog.cob:177
- ENTRY sub1 at prog.cob:159
- Last statement of "sub2" was CALL
- DO-CALL OF SubwaY at sub2.cob:48
- ENTRY sub2 at sub2.cob:39
- Last statement of "prog" was CALL
- CALL-IT-OMIT at prog.cob:118
- MAIN-100 at prog.cob:85
- ENTRY prog at prog.cob:77
- Started by ./prog_fdls
-
-Dump Program-Id sub1 from prog.cob compiled MMM DD YYYY HH:MM:SS
-
-LINKAGE
-**********************
-01 X 000005441
-01 TSPFL-RECORD. <NULL> address
-
-END OF DUMP - sub1
-**********************
-
-Dump Program-Id sub2 from sub2.cob compiled MMM DD YYYY HH:MM:SS
-
-LINKAGE
-**********************
-01 X 000005441
-01 TSPFL-RECORD.
- 10 CM-CUST-NUM 'ALP00000'
- 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.'
- 10 CM-DISK '8417'
- 10 CM-NO-TERMINALS 0010
-77 DYNAMIC-NUM 0124
-
-END OF DUMP - sub2
-**********************
-
-Dump Program-Id prog from prog.cob compiled MMM DD YYYY HH:MM:SS
-
-FD FLATFILE
-**********************
- File is OPEN
- FILE STATUS '00'
-01 TSPFL-RECORD.
- 10 CM-CUST-NUM 'ALP00000'
- 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.'
- 10 CM-DISK '8417'
- 10 CM-NO-TERMINALS 0010
-
-END OF DUMP - prog
-**********************
-
-_ATEOF
-
-
-# AT_DATA workaround via sed:
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11036: \$SED -e 's/_\$//' reference_fdls_tmpl > reference"
-at_fn_check_prepare_dynamic "$SED -e 's/_$//' reference_fdls_tmpl > reference" "run_misc.at:11036"
-( $at_check_trace; $SED -e 's/_$//' reference_fdls_tmpl > reference
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11036"
-$at_failed && at_fn_log_failure \
-"tstdump.dump" \
-"tstdump_fdls.dump"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11037: \$SED -e 's/compiled ... .. .... ..:..:../compiled MMM DD YYYY HH:MM:SS/g' \\
-tstdump_fdls.dump > tstdump.sed"
-at_fn_check_prepare_notrace 'an embedded newline' "run_misc.at:11037"
-( $at_check_trace; $SED -e 's/compiled ... .. .... ..:..:../compiled MMM DD YYYY HH:MM:SS/g' \
-tstdump_fdls.dump > tstdump.sed
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11037"
-$at_failed && at_fn_log_failure \
-"tstdump.dump" \
-"tstdump_fdls.dump"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11040: diff reference tstdump.sed"
-at_fn_check_prepare_trace "run_misc.at:11040"
-( $at_check_trace; diff reference tstdump.sed
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11040"
-$at_failed && at_fn_log_failure \
-"tstdump.dump" \
-"tstdump_fdls.dump"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11042: \$COMPILE -fdump=ALL -fno-dump=LO,WS,SC prog.cob sub2.cob -o prog_allfdls"
-at_fn_check_prepare_dynamic "$COMPILE -fdump=ALL -fno-dump=LO,WS,SC prog.cob sub2.cob -o prog_allfdls" "run_misc.at:11042"
-( $at_check_trace; $COMPILE -fdump=ALL -fno-dump=LO,WS,SC prog.cob sub2.cob -o prog_allfdls
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11042"
-$at_failed && at_fn_log_failure \
-"tstdump.dump" \
-"tstdump_fdls.dump"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11044: COB_DUMP_FILE=tstdump_allfdls.dump \\
-\$COBCRUN_DIRECT ./prog_allfdls"
-at_fn_check_prepare_notrace 'an embedded newline' "run_misc.at:11044"
-( $at_check_trace; COB_DUMP_FILE=tstdump_allfdls.dump \
-$COBCRUN_DIRECT ./prog_allfdls
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: cpyabrt:4: error: LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller
-libcob: cpyabrt:4: warning: implicit CLOSE of FLATFILE ('RELFIX')
-
-dump written to tstdump_allfdls.dump
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "X is 000000001
-X is 000005441
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:11044"
-$at_failed && at_fn_log_failure \
-"tstdump.dump" \
-"tstdump_fdls.dump"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11055: \$SED -e 's/compiled ... .. .... ..:..:../compiled MMM DD YYYY HH:MM:SS/g' \\
-tstdump_allfdls.dump > tstdump.sed"
-at_fn_check_prepare_notrace 'an embedded newline' "run_misc.at:11055"
-( $at_check_trace; $SED -e 's/compiled ... .. .... ..:..:../compiled MMM DD YYYY HH:MM:SS/g' \
-tstdump_allfdls.dump > tstdump.sed
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11055"
-$at_failed && at_fn_log_failure \
-"tstdump.dump" \
-"tstdump_fdls.dump"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11058: \$SED -e 's/prog_fdls/prog_allfdls/' \\
-reference > reference_all"
-at_fn_check_prepare_notrace 'an embedded newline' "run_misc.at:11058"
-( $at_check_trace; $SED -e 's/prog_fdls/prog_allfdls/' \
-reference > reference_all
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11058"
-$at_failed && at_fn_log_failure \
-"tstdump.dump" \
-"tstdump_fdls.dump"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11061: diff reference_all tstdump.sed"
-at_fn_check_prepare_trace "run_misc.at:11061"
-( $at_check_trace; diff reference_all tstdump.sed
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11061"
-$at_failed && at_fn_log_failure \
-"tstdump.dump" \
-"tstdump_fdls.dump"
-$at_traceon; }
-
-
-# CHECKME @ Ron: The result is likely wrong, please verify later
-#AT_CHECK([$COMPILE -fdump=LS prog.cob sub2.cob -fsticky-linkage -o prog_ls_sticky], [0], [], [])
-#
-#AT_CHECK([COB_DUMP_FILE=tstdump_ls_sticky.dump \
-#$COBCRUN_DIRECT ./prog_ls_sticky], [1],
-#[X is 000000001
-#X is 000005441
-#],
-#[libcob: cpyabrt:4: error: LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller
-#libcob: cpyabrt:4: warning: implicit CLOSE of FLATFILE ('RELFIX')
-#
-#dump written to tstdump_ls_sticky.dump
-#])
-#
-#
-#AT_CAPTURE_FILE([tstdump_ls_sticky.dump])
-#
-#AT_DATA([reference_ls_sticky_tmpl], [
-#Module dump due to LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller
-#
-# Last statement of "sub1" was MOVE
-# MAIN-2 OF MAIN-1 at cpyabrt:4
-# MAIN-1 at prog.cob:177
-# ENTRY sub1 at prog.cob:159
-# Last statement of "sub2" was CALL
-# DO-CALL OF SubwaY at sub2.cob:48
-# ENTRY sub2 at sub2.cob:39
-# Last statement of "prog" was CALL
-# CALL-IT-OMIT at prog.cob:118
-# MAIN-100 at prog.cob:85
-# ENTRY prog at prog.cob:77
-# Started by ./prog_ls_sticky
-#
-#Dump Program-Id sub1 from prog.cob compiled MMM DD YYYY HH:MM:SS
-#
-#LINKAGE
-#**********************
-#01 X 000005441
-#01 TSPFL-RECORD. <NULL> address
-#
-#Dump Program-Id sub2 from sub2.cob compiled MMM DD YYYY HH:MM:SS
-#
-#LINKAGE
-#**********************
-#01 X 000005441
-#01 TSPFL-RECORD.
-# 10 CM-CUST-NUM 'ALP00000'
-# 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.'
-# 10 CM-DISK '8417'
-# 10 CM-NO-TERMINALS 0010
-#77 DYNAMIC-NUM 0124
-#
-#Dump Program-Id prog from prog.cob compiled MMM DD YYYY HH:MM:SS
-#
-#])
-#
-## AT_DATA workaround via sed:
-#AT_CHECK([$SED -e 's/_$//' reference_ls_sticky_tmpl > reference], [0], [], [])
-#AT_CHECK([$SED -e 's/compiled ... .. .... ..:..:../compiled MMM DD YYYY HH:MM:SS/g' \
-#tstdump_ls_sticky.dump > tstdump.sed], [0], [], [])
-#
-#AT_CHECK([diff reference tstdump.sed], [0], [], [])
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_809
-#AT_START_810
-at_fn_group_banner 810 'run_misc.at:11129' \
- "dump feature with NULL address" " " 4
-at_xfail=no
-(
- printf "%s\n" "810. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 P2 USAGE POINTER.
-
- 01 TAB-ADR-COUNT PIC S9(4) VALUE 8.
-
- 01 TAB-ADR OCCURS 0 TO 1000 TIMES
- DEPENDING ON TAB-ADR-COUNT
- INDEXED BY TAB-ADR-IND.
- 05 TAB-ADR-ELEMENT.
- 10 TAB-ADR-PRGM PIC X(8).
- 10 TAB-ADR-ID PIC X(2).
- 10 TAB-ADR-ADR-64 PIC S9(16) COMP-5.
- 10 TAB-ADR-LAST-ADR-64 PIC S9(16) COMP-5.
-
- 01 GRP-X BASED.
- 05 FILLER PIC X(3).
- 05 FLD-X OCCURS 10 TIMES.
- 10 FLD-X-Y PIC 9999 VALUE 2020.
- 10 FLD-X-M PIC 99 VALUE 11.
- 10 FLD-X-X PIC X(128) VALUE "This is something ".
- 05 FILLER PIC X(3).
-
- 01 GRP-1.
- 05 FILLER PIC X(3).
- 05 FLD-1 OCCURS 10 TIMES.
- 10 FLD-1-Y PIC 9999 VALUE 2020.
- 10 FLD-1-M PIC 99 VALUE 11.
- 10 FLD-1-X PIC X(128) VALUE "This is something ".
- 05 FILLER PIC X(3).
-
- 01 GRP-2.
- 05 FILLER PIC X(3).
- 05 FLD-2 PIC X(42) VALUE ALL "ABCD ".
- 05 FILLER PIC X(3).
- 01 GRP-2A.
- 05 FILLER PIC X(2).
- 05 FLD-2A PIC X(8) VALUE ALL "ABC".
- 05 FILLER PIC X(1200) VALUE "X".
- 01 GRP-3.
- 05 FILLER PIC X(3).
- 05 FLD-3 OCCURS 3 TIMES.
- 15 FLD-3-2 PIC XXX VALUE "ABC".
- 15 FLD-3-3 PIC 99 VALUE ZERO.
- 15 OCCURS 4 VALUE ALL "D99".
- 25 FLD-3O-1 PIC X.
- 25 FLD-3O-2 PIC 99.
- 15 FLD-3-4 PIC XX VALUE ALL "X".
- 05 FILLER PIC X(3).
-
- 77 C5 PIC 9(03) VALUE 6.
- 01 GRP-5.
- 05 FILLER PIC X(3).
- 05 FLD-5.
- 10 FLD-5-1 OCCURS 0 TO 9 TIMES
- DEPENDING ON C5.
- 15 FLD-5-2 PIC XXX VALUE "Mon".
- 15 FLD-5-3 PIC 99 VALUE 49.
- 15 FLD-5-4 PIC XX VALUE "ey".
-
- LINKAGE SECTION.
- 01 A-TABLE.
- 03 prefix.
- 05 n PIC 9(03) VALUE 123.
- 03 table-data value all "ABCDE".
- 04 rows OCCURS 0 TO UNBOUNDED TIMES
- DEPENDING ON n.
- 05 col1 PIC X.
- 05 col2 PIC X(02).
-
- PROCEDURE DIVISION.
- MOVE ALL "*" TO GRP-2
- INITIALIZE FLD-2 ALL TO VALUE
- DISPLAY "GRP-2:" GRP-2.
- *
- MOVE ALL "*" TO GRP-3
- INITIALIZE GRP-3 NUMERIC TO VALUE
- INITIALIZE FLD-3 (1) ALL TO VALUE
- INITIALIZE FLD-3 (2) ALL TO VALUE
- INITIALIZE FLD-3 (3) ALL TO VALUE
- INITIALIZE FLD-3O-1 (3,2), FLD-3O-2 (3,2)
- DISPLAY "GRP-3:" GRP-3.
- *
- MOVE 7 TO c5
- MOVE ALL "*" TO GRP-5
- INITIALIZE FLD-5 ALL TO VALUE
- DISPLAY "GRP-5:" GRP-5.
- *
- MOVE SPACES TO GRP-2A
- MOVE "Peek" TO GRP-2A (510:4)
- MOVE "Boo" TO GRP-2A (910:3)
- MOVE X"FE99" TO GRP-2A (910:2)
- MOVE "You" TO GRP-2A (1010:3)
- MOVE "$$" TO FLD-5-4 (5)
- MOVE "Something else!" TO FLD-1-X (5).
- *
- * "the initial value of an index-name at runtime is undefined"
- * Old OpenCOBOL/GnuCOBOL did that as "1"
- SET TAB-ADR-IND TO 1.
- *
- SET P2 TO NULL
- SET ADDRESS OF A-TABLE TO NULL
- MOVE ALL ZEROES TO A-TABLE (1: (LENGTH OF A-TABLE)).
- *
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11242: \$COMPILE -fdump=ALL prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fdump=ALL prog.cob" "run_misc.at:11242"
-( $at_check_trace; $COMPILE -fdump=ALL prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11242"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11244: COB_DUMP_FILE=dumpall.txt \\
-\$COBCRUN_DIRECT ./prog \"param 1\" param 'param 3'"
-at_fn_check_prepare_notrace 'an embedded newline' "run_misc.at:11244"
-( $at_check_trace; COB_DUMP_FILE=dumpall.txt \
-$COBCRUN_DIRECT ./prog "param 1" param 'param 3'
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:106: error: BASED/LINKAGE item 'A-TABLE' has NULL address
-
-dump written to dumpall.txt
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GRP-2:***ABCD ABCD ABCD ABCD ABCD ABCD ABCD ABCD AB***
-GRP-3:***ABC00D99D99D99D99XXABC00D99D99D99D99XXABC00D99 00D99D99XX***
-GRP-5:***Mon49eyMon49eyMon49eyMon49eyMon49eyMon49eyMon49ey
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:11244"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-cat >reference_tmpl <<'_ATEOF'
-
-Module dump due to BASED/LINKAGE item 'A-TABLE' has NULL address
-
- Last statement of "prog" was MOVE at line 106 of prog.cob
- ENTRY prog at prog.cob:75
- Started by ./prog
- param 1
- param
- param 3
-
-Dump Program-Id prog from prog.cob compiled MMM DD YYYY HH:MM:SS
-
-WORKING-STORAGE
-**********************
-77 RETURN-CODE +000000000
-01 P2 0x0000000000000000
-01 TAB-ADR-COUNT +0008
- INDEX TAB-ADR-IND +000000001
-01 TAB-ADR (1).
- 05 TAB-ADR-ELEMENT (1).
- 10 TAB-ADR-PRGM (1) ALL SPACES
- 10 TAB-ADR-ID (1) ALL SPACES
- 10 TAB-ADR-ADR-64 (1) +00000000000000000000
- 10 TAB-ADR-LAST-ADR-64 (1) +00000000000000000000
-01 TAB-ADR (2..8) same as (1)
-01 GRP-X. <NULL> address
-01 GRP-1.
- 05 FILLER ALL SPACES
- 05 FLD-1 (1).
- 10 FLD-1-Y (1) 2020
- 10 FLD-1-M (1) 11
- 10 FLD-1-X (1) 'This is something'
- 05 FLD-1 (2..4) same as (1)
- 05 FLD-1 (5).
- 10 FLD-1-Y (5) 2020
- 10 FLD-1-M (5) 11
- 10 FLD-1-X (5) 'Something else!'
- 05 FLD-1 (6).
- 10 FLD-1-Y (6) 2020
- 10 FLD-1-M (6) 11
- 10 FLD-1-X (6) 'This is something'
- 05 FLD-1 (7..10) same as (6)
- 05 FILLER ALL SPACES
-01 GRP-2.
- 05 FILLER '***'
- 05 FLD-2 'ABCD ABCD ABCD ABCD ABCD ABCD ABCD ABCD AB'
- 05 FILLER '***'
-01 GRP-2A.
- 05 FILLER ALL SPACES
- 05 FLD-2A ALL SPACES
- 05 FILLER _
- 1 x 20202020 20202020 20202020 20202020 20202020 20202020
- --- 25 thru 492 same as above ---
- P e e k _
- 493 x 20202020 20202050 65656B20 20202020 20202020 20202020
- _
- 517 x 20202020 20202020 20202020 20202020 20202020 20202020
- --- 541 thru 878 same as above ---
- _
- 879 x 2020 20202020 20202020 20202020 20202020 202020FE 99
- o _
- 902 x 6F2020 20202020 20202020 20202020 20202020 20202020 _
- _
- 925 x 20202020 20202020 20202020 20202020 20202020 20202020_
- --- 949 thru 974 same as above ---
- _
- 975 x 2020 20202020 20202020 20202020 20202020 20202020 20
- Y o u _
- 998 x 202059 6F752020 20202020 20202020 20202020 20202020 _
- _
- 1021 x 20202020 20202020 20202020 20202020 20202020 20202020
- --- 1045 thru 1174 same as above ---
- _
- 1175 x 2020 20202020 20202020 20202020 20202020 20202020 20
- _
- 1198 x 202020
-01 GRP-3.
- 05 FILLER '***'
- 05 FLD-3 (1).
- 15 FLD-3-2 (1) 'ABC'
- 15 FLD-3-3 (1) 00
- 15 FILLER (1,1).
- 25 FLD-3O-1 (1,1) 'D'
- 25 FLD-3O-2 (1,1) 99
- 15 FILLER (1,2..4) same as (1)
- 15 FLD-3-4 (1) 'XX'
- 05 FLD-3 (2) same as (1)
- 05 FLD-3 (3).
- 15 FLD-3-2 (3) 'ABC'
- 15 FLD-3-3 (3) 00
- 15 FILLER (3,1).
- 25 FLD-3O-1 (3,1) 'D'
- 25 FLD-3O-2 (3,1) 99
- 15 FILLER (3,2).
- 25 FLD-3O-1 (3,2) ALL SPACES
- 25 FLD-3O-2 (3,2) 00
- 15 FILLER (3,3).
- 25 FLD-3O-1 (3,3) 'D'
- 25 FLD-3O-2 (3,3) 99
- 15 FILLER (3,4) same as (3)
- 15 FLD-3-4 (3) 'XX'
- 05 FILLER '***'
-77 C5 007
-01 GRP-5.
- 05 FILLER '***'
- 05 FLD-5.
- 10 FLD-5-1 (1).
- 15 FLD-5-2 (1) 'Mon'
- 15 FLD-5-3 (1) 49
- 15 FLD-5-4 (1) 'ey'
- 10 FLD-5-1 (2..4) same as (1)
- 10 FLD-5-1 (5).
- 15 FLD-5-2 (5) 'Mon'
- 15 FLD-5-3 (5) 49
- 15 FLD-5-4 (5) '$$'
- 10 FLD-5-1 (6).
- 15 FLD-5-2 (6) 'Mon'
- 15 FLD-5-3 (6) 49
- 15 FLD-5-4 (6) 'ey'
- 10 FLD-5-1 (7) same as (6)
-
-LINKAGE
-**********************
-01 A-TABLE. <NULL> address
-
-END OF DUMP - prog
-**********************
-
-_ATEOF
-
-
-# AT_DATA workaround via sed:
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11388: \$SED -e 's/compiled ... .. .... ..:..:../compiled MMM DD YYYY HH:MM:SS/g' \\
-dumpall.txt > dumpall.sed"
-at_fn_check_prepare_notrace 'an embedded newline' "run_misc.at:11388"
-( $at_check_trace; $SED -e 's/compiled ... .. .... ..:..:../compiled MMM DD YYYY HH:MM:SS/g' \
-dumpall.txt > dumpall.sed
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11388"
-$at_failed && at_fn_log_failure \
-"dumpall.txt"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11391: test \"\$COB_HAS_64_BIT_POINTER\" = \"yes\""
-at_fn_check_prepare_dynamic "test \"$COB_HAS_64_BIT_POINTER\" = \"yes\"" "run_misc.at:11391"
-( $at_check_trace; test "$COB_HAS_64_BIT_POINTER" = "yes"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11391"
-if $at_failed
-then :
- # Previous test "failed" --> 32 bit
- { set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11393: \$SED -e 's/_\$//; s/0x0000000000000000/0x00000000/' reference_tmpl > reference"
-at_fn_check_prepare_dynamic "$SED -e 's/_$//; s/0x0000000000000000/0x00000000/' reference_tmpl > reference" "run_misc.at:11393"
-( $at_check_trace; $SED -e 's/_$//; s/0x0000000000000000/0x00000000/' reference_tmpl > reference
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11393"
-$at_failed && at_fn_log_failure \
-"dumpall.txt"
-$at_traceon; }
-
-
-else $as_nop
- # Previous test "passed" --> 64 bit
- { set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11396: \$SED -e 's/_\$//' reference_tmpl > reference"
-at_fn_check_prepare_dynamic "$SED -e 's/_$//' reference_tmpl > reference" "run_misc.at:11396"
-( $at_check_trace; $SED -e 's/_$//' reference_tmpl > reference
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11396"
-$at_failed && at_fn_log_failure \
-"dumpall.txt"
-$at_traceon; }
-
-
-fi
-$at_failed && at_fn_log_failure \
-"dumpall.txt"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11399: diff reference dumpall.sed"
-at_fn_check_prepare_trace "run_misc.at:11399"
-( $at_check_trace; diff reference dumpall.sed
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11399"
-$at_failed && at_fn_log_failure \
-"dumpall.txt"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_810
-#AT_START_811
-at_fn_group_banner 811 'run_misc.at:11404' \
- "CALL with program prototypes" " " 4
-at_xfail=no
-(
- printf "%s\n" "811. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- PROCEDURE DIVISION.
- CALL "c"
- .
- END PROGRAM prog.
-
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. a AS "blah?Sdk".
-
- PROCEDURE DIVISION.
- DISPLAY "Hello!"
- .
- END PROGRAM a.
-
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. b.
-
- PROCEDURE DIVISION.
- DISPLAY "Hello again!"
- .
- END PROGRAM b.
-
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. c.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- REPOSITORY.
- PROGRAM d AS "blah?Sdk"
- PROGRAM b
- .
-
- PROCEDURE DIVISION.
- CALL d
- CALL b
- .
- END PROGRAM c.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11452: \$COMPILE_MODULE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE prog.cob" "run_misc.at:11452"
-( $at_check_trace; $COMPILE_MODULE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11452"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11453: \$COBCRUN prog"
-at_fn_check_prepare_dynamic "$COBCRUN prog" "run_misc.at:11453"
-( $at_check_trace; $COBCRUN prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Hello!
-Hello again!
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11453"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
-
- PROCEDURE DIVISION.
- MAIN-LINE.
-
- PERFORM DO-CHECK
- >> IF CHECK-PERF IS DEFINED
- *> minimal side-test for performance comparisons
- PERFORM DO-CHECK 10000 TIMES
- >> END-IF
- DISPLAY 'DONE' UPON SYSERR WITH NO ADVANCING
- GOBACK.
-
- DO-CHECK.
- CALL "prog"
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11478: \$COMPILE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE caller.cob" "run_misc.at:11478"
-( $at_check_trace; $COMPILE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11478"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11479: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_misc.at:11479"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "DONE" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11479"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_811
-#AT_START_812
-at_fn_group_banner 812 'run_misc.at:11483' \
- "REDEFINES values on FILLER and INITIALIZE" " " 4
-at_xfail=no
-(
- printf "%s\n" "812. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TSRDF.
- 05 WS-ASK-ID-DATE PIC X(10) VALUE ALL '*'.
- 05 WS-ASK-ID-DATE-R REDEFINES WS-ASK-ID-DATE.
- 10 WS-ASK-ID-DATE-YYYY PIC 9(4) VALUE 2017.
- 10 FILLER PIC X VALUE '-'.
- 10 WS-ASK-ID-DATE-MM PIC 9(2).
- 10 FILLER PIC X VALUE '-'.
- 10 WS-ASK-ID-DATE-DD PIC 9(2).
- PROCEDURE DIVISION.
- MOVE 2015 TO WS-ASK-ID-DATE-YYYY
- MOVE 08 TO WS-ASK-ID-DATE-MM
- MOVE 21 TO WS-ASK-ID-DATE-DD
- DISPLAY "The date is " WS-ASK-ID-DATE " Compiled".
-
- INITIALIZE WS-ASK-ID-DATE-R.
- MOVE 08 TO WS-ASK-ID-DATE-MM
- MOVE 21 TO WS-ASK-ID-DATE-DD
- DISPLAY "The date is " WS-ASK-ID-DATE " INITIALIZE".
-
- INITIALIZE WS-ASK-ID-DATE-R WITH FILLER.
- MOVE 08 TO WS-ASK-ID-DATE-MM
- MOVE 21 TO WS-ASK-ID-DATE-DD
- DISPLAY "The date is " WS-ASK-ID-DATE " WITH FILLER".
-
- INITIALIZE WS-ASK-ID-DATE-R WITH FILLER ALL TO VALUE.
- MOVE 08 TO WS-ASK-ID-DATE-MM
- MOVE 21 TO WS-ASK-ID-DATE-DD
- DISPLAY "The date is " WS-ASK-ID-DATE " ALL TO VALUE".
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11522: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:11522"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: warning: initial VALUE clause ignored for REDEFINES item 'WS-ASK-ID-DATE-YYYY'
-prog.cob:10: warning: initial VALUE clause ignored for REDEFINES item 'FILLER'
-prog.cob:12: warning: initial VALUE clause ignored for REDEFINES item 'FILLER'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11522"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11528: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:11528"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "The date is 2015*08*21 Compiled
-The date is 0000*08*21 INITIALIZE
-The date is 0000 08 21 WITH FILLER
-The date is 2017-08-21 ALL TO VALUE
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11528"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_812
-#AT_START_813
-at_fn_group_banner 813 'run_misc.at:11538' \
- "PICTURE with constant-name" " " 4
-at_xfail=no
-(
- printf "%s\n" "813. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 foo-bar CONSTANT 8.
- 01 x PIC 9(foo-bar)9(foo-bar).
-
- PROCEDURE DIVISION.
- IF FUNCTION LENGTH (x) <> 16
- DISPLAY FUNCTION LENGTH (x)
- END-IF
- .
- END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11558: \$COMPILE_ONLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY prog.cob" "run_misc.at:11558"
-( $at_check_trace; $COMPILE_ONLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:11: warning: expression '16' NOT EQUAL '16' is always FALSE
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11558"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11561: \$COMPILE -fno-constant-folding prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fno-constant-folding prog.cob" "run_misc.at:11561"
-( $at_check_trace; $COMPILE -fno-constant-folding prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11561"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11562: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:11562"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11562"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_813
-#AT_START_814
-at_fn_group_banner 814 'run_misc.at:11566' \
- "Quote marks in comment paragraphs" " " 4
-at_xfail=no
-(
- printf "%s\n" "814. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATE-written. hello'".
- *> Written is intentionally lowercase.
- *> extra " to fix syntax highlighting
- PROCEDURE DIVISION.
- DISPLAY "Hello, world!"
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11580: \$COMPILE -o prog prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -o prog prog.cob" "run_misc.at:11580"
-( $at_check_trace; $COMPILE -o prog prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:4: warning: DATE-WRITTEN is obsolete in GnuCOBOL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11580"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11583: \$COMPILE -free -o prog prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -free -o prog prog.cob" "run_misc.at:11583"
-( $at_check_trace; $COMPILE -free -o prog prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:3: warning: DATE-WRITTEN is obsolete in GnuCOBOL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11583"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11586: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:11586"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Hello, world!
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11586"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_814
-#AT_START_815
-at_fn_group_banner 815 'run_misc.at:11592' \
- "Numeric MOVE with/without -fbinary-truncate" " " 4
-at_xfail=no
-(
- printf "%s\n" "815. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x PIC 9(4) COMP.
-
- PROCEDURE DIVISION.
- MOVE 30000 TO x
- PERFORM check-x-val
-
- COMPUTE x = 30000
- PERFORM check-x-val
-
- MOVE ZERO TO x
- ADD 30000 TO x
- PERFORM check-x-val
-
- GOBACK
- .
- check-x-val SECTION.
- EVALUATE x
- WHEN 30000
- DISPLAY "x IS 30000"
-
- WHEN >= 10000
- DISPLAY "x >= 10000"
-
- WHEN ZERO
- DISPLAY "x IS ZERO"
-
- WHEN OTHER
- CONTINUE
- END-EVALUATE
- .
- END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11634: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:11634"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: warning: value size exceeds data size
-prog.cob:10: note: value is 30000
-prog.cob:7: note: 'x' defined here as PIC 9(4)
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11634"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11639: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:11639"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "x IS ZERO
-x IS ZERO
-x IS ZERO
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11639"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11645: \$COMPILE -fno-binary-truncate prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fno-binary-truncate prog.cob" "run_misc.at:11645"
-( $at_check_trace; $COMPILE -fno-binary-truncate prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11645"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11646: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:11646"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "x IS 30000
-x IS 30000
-x IS 30000
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11646"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11652: \$COMPILE -fno-binary-truncate -fno-fast-compare prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fno-binary-truncate -fno-fast-compare prog.cob" "run_misc.at:11652"
-( $at_check_trace; $COMPILE -fno-binary-truncate -fno-fast-compare prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11652"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11653: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:11653"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "x IS 30000
-x IS 30000
-x IS 30000
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11653"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_815
-#AT_START_816
-at_fn_group_banner 816 'run_misc.at:11662' \
- "Alphanumeric MOVE with truncation" " " 4
-at_xfail=no
-(
- printf "%s\n" "816. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x-left PIC X(03).
- 01 x-right PIC X(03) JUSTIFIED RIGHT.
-
- PROCEDURE DIVISION.
- MOVE '1234' TO x-left, x-right
- IF x-left not = '123'
- OR x-right not = '234'
- DISPLAY 'error with "1234":'
- END-DISPLAY
- DISPLAY x-left
- END-DISPLAY
- DISPLAY x-right
- END-DISPLAY
- END-IF
- MOVE ' 3' TO x-left, x-right
- IF x-left not = spaces
- OR x-right not = ' 3'
- DISPLAY 'error with " 3":'
- END-DISPLAY
- DISPLAY x-left
- END-DISPLAY
- DISPLAY x-right
- END-DISPLAY
- END-IF
- MOVE '3 ' TO x-left, x-right
- IF x-left not = '3'
- OR x-right not = spaces
- DISPLAY 'error with "3 ":'
- END-DISPLAY
- DISPLAY x-left
- END-DISPLAY
- DISPLAY x-right
- END-DISPLAY
- END-IF
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11708: \$COMPILE -Wno-truncate prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -Wno-truncate prog.cob" "run_misc.at:11708"
-( $at_check_trace; $COMPILE -Wno-truncate prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11708"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11709: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:11709"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11709"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_816
-#AT_START_817
-at_fn_group_banner 817 'run_misc.at:11713' \
- "PROGRAM-ID / CALL literal/variable with spaces" " " 4
-at_xfail=no
-(
- printf "%s\n" "817. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 MYRTN PIC X(9) VALUE " SUB ".
-
- PROCEDURE DIVISION.
- CALL " SUB " USING 'X'.
- MOVE x'00' TO MYRTN (6:1).
- CALL MYRTN USING 'Y'.
- CALL "SUB" USING 'Z'.
- CALL "S U B" USING 'A'.
- MOVE " S U B" TO MYRTN.
- CALL MYRTN USING 'B'.
- STOP RUN.
- END PROGRAM prog.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. "SUB ".
-
- DATA DIVISION.
- LINKAGE SECTION.
- 01 x PIC X.
-
- PROCEDURE DIVISION USING x.
- DISPLAY "SUB GOT " X
- END-DISPLAY.
- END PROGRAM " SUB".
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. "S U B".
-
- DATA DIVISION.
- LINKAGE SECTION.
- 01 x PIC X.
-
- PROCEDURE DIVISION USING x.
- DISPLAY "S U B GOT " X
- END-DISPLAY.
- END PROGRAM "S U B".
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11760: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:11760"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: warning: ' SUB ' literal includes leading spaces which are omitted
-prog.cob:10: warning: ' SUB ' literal includes trailing spaces which are omitted
-prog.cob:21: warning: 'SUB ' literal includes trailing spaces which are omitted
-prog.cob:30: warning: ' SUB' literal includes leading spaces which are omitted
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11760"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11767: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:11767"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:12: warning: ' SUB' literal includes leading spaces which are omitted
-libcob: prog.cob:16: warning: ' S U B' literal includes leading spaces which are omitted
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "SUB GOT X
-SUB GOT Y
-SUB GOT Z
-S U B GOT A
-S U B GOT B
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11767"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_817
-#AT_START_818
-at_fn_group_banner 818 'run_misc.at:11781' \
- "PROGRAM-ID / CALL with hyphen and underscore" " " 4
-at_xfail=no
-(
- printf "%s\n" "818. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- PROCEDURE DIVISION.
- MAIN.
- CALL "_SUB-PROG_NOW" USING 'X'.
- STOP RUN.
-_ATEOF
-
-
-cat >sub.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. "_SUB-PROG_NOW".
-
- DATA DIVISION.
- LINKAGE SECTION.
- 01 x PIC X.
-
- PROCEDURE DIVISION USING x.
- MAIN.
- DISPLAY "SUB GOT " X.
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11808: \$COMPILE_MODULE sub.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE sub.cob" "run_misc.at:11808"
-( $at_check_trace; $COMPILE_MODULE sub.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11808"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11809: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:11809"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11809"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11811: COB_PRE_LOAD=sub \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_PRE_LOAD=sub $COBCRUN_DIRECT ./prog" "run_misc.at:11811"
-( $at_check_trace; COB_PRE_LOAD=sub $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "SUB GOT X
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11811"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_818
-#AT_START_819
-at_fn_group_banner 819 'run_misc.at:11818' \
- "CALL with directory" " " 4
-at_xfail=no
-(
- printf "%s\n" "819. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 MYRTN PIC X(9) VALUE "DIR/SUB".
-
- PROCEDURE DIVISION.
- *> doesn't exist there...
- CALL "SUB" USING '0'
- ON EXCEPTION CONTINUE.
- *> go by variable
- CALL MYRTN USING 'X'.
- CALL "DIR/SUB" USING 'Y'.
- *> as it is already loaded - should work as-is
- CALL "SUB" USING 'Z'.
- CANCEL "SUB"
- *> the following will only show if physical cancel is not off...
- CALL "SUB" USING '0'
- ON EXCEPTION CONTINUE.
- STOP RUN.
-_ATEOF
-
-
-cat >sub.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. "SUB".
-
- DATA DIVISION.
- LINKAGE SECTION.
- 01 x PIC X.
-
- PROCEDURE DIVISION USING x.
- DISPLAY "SUB GOT " X.
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11858: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:11858"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11858"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11859: mkdir DIR"
-at_fn_check_prepare_trace "run_misc.at:11859"
-( $at_check_trace; mkdir DIR
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11859"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11860: \$COMPILE_MODULE sub.cob -o DIR/SUB.\$COB_MODULE_EXT"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE sub.cob -o DIR/SUB.$COB_MODULE_EXT" "run_misc.at:11860"
-( $at_check_trace; $COMPILE_MODULE sub.cob -o DIR/SUB.$COB_MODULE_EXT
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11860"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11861: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:11861"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "SUB GOT X
-SUB GOT Y
-SUB GOT Z
-SUB GOT 0
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11861"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:11867: COB_PHYSICAL_CANCEL=Y \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_PHYSICAL_CANCEL=Y $COBCRUN_DIRECT ./prog" "run_misc.at:11867"
-( $at_check_trace; COB_PHYSICAL_CANCEL=Y $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "SUB GOT X
-SUB GOT Y
-SUB GOT Z
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:11867"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_819
-#AT_START_820
-at_fn_group_banner 820 'run_misc.at:11876' \
- "C-API (param based)" " " 4
-at_xfail=no
-(
- printf "%s\n" "820. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 BINFLD5 PIC 9(5) COMP-5 VALUE 1280.
- 01 BINFLD5S PIC S9(5) BINARY VALUE 1024.
- 01 BINFLD9 PIC 9(9) BINARY VALUE 2560.
- 01 COMP3 PIC 9(8) COMP-3 VALUE 4096.
- 01 COMP3V99 PIC S9(7)V99 COMP-3 VALUE 12.50.
- 01 PIC9 PIC S9(8) DISPLAY VALUE 8192.
- 01 NE PIC Z(4)9.99-.
- 01 CHRX PIC X(9) VALUE 'Hello'.
- *01 CHRN PIC N(9) VALUE N'Hello'.
- 01 GRPX.
- 05 FILLER PIC X(9) VALUE 'Hello'.
- 05 FILLER PIC X(9) VALUE 'World'.
- PROCEDURE DIVISION.
- MOVE -512.77 TO NE.
- CALL "CAPI" USING 2560 BY VALUE 16.
- CALL "CAPI" USING BINFLD5, NE.
- CALL "CAPI" USING BINFLD5S.
- CALL "CAPI" USING BINFLD9.
- MOVE 512.77 TO NE.
- CALL "CAPI" USING COMP3, NE.
- CALL "CAPI" USING PIC9 BINFLD5S CHRX GRPX.
- CALL "CAPI" USING COMP3, NE, CHRX.
- CALL "CAPI" USING BINFLD5, NE.
- MOVE "Hello!" TO CHRX.
- CALL "CAPI" USING BY VALUE BINFLD5, CHRX.
- CALL "CAPI" USING BY VALUE BINFLD5, CHRX.
- CALL "CAPI" USING LENGTH OF GRPX.
- CALL "CAPI" USING BY VALUE GRPX LENGTH OF GRPX.
- CALL "CAPI" USING "Fred Fish", COMP3.
- CALL "CAPI" USING COMP3V99.
- * CALL "CAPI" USING CHRN.
- CALL "CAPI" .
- DISPLAY "COMP3 is now " COMP3 ";".
- DISPLAY "COMP4 is now " BINFLD5 ";".
- DISPLAY "BINFLD5S is now " BINFLD5S ";".
- DISPLAY "CHRX is now " CHRX ";".
- DISPLAY "NE is now " NE ";".
- STOP RUN.
-_ATEOF
-
-
-cat >cmod.c <<'_ATEOF'
-
-#include <stdio.h>
-#include <string.h>
-#include <libcob.h>
-
-static char *
-getType (int type, int byvalue)
-{
- static char wrk[24];
- switch (type) {
-#if 1
- case COB_TYPE_GROUP: return "Group";
- case COB_TYPE_NUMERIC_COMP5:
- /* fall through as the test will have different results
- on big endian systems otherwise
- return "COMP-5"; */
- COB_UNUSED (byvalue);
- case COB_TYPE_NUMERIC_BINARY: return "BINARY";
- case COB_TYPE_NUMERIC_PACKED: return "COMP-3";
- case COB_TYPE_NUMERIC_FLOAT: return "COMP-1";
- case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2";
- case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY";
- case COB_TYPE_ALPHANUMERIC: return "X";
- case COB_TYPE_NUMERIC_EDITED: return "EDITED";
- case COB_TYPE_NATIONAL: return "N";
-#else
- case COB_TYPE_GROUP: return "Group";
- case COB_TYPE_NUMERIC_COMP5:
- return byvalue == 2 ? "COMP-4" : "COMP-5";
- case COB_TYPE_NUMERIC_BINARY: return "COMP-4";
- case COB_TYPE_NUMERIC_PACKED: return "COMP-3";
- case COB_TYPE_NUMERIC_FLOAT: return "COMP-1";
- case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2";
- case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY";
- case COB_TYPE_ALPHANUMERIC: return "X";
- case COB_TYPE_NUMERIC_EDITED: return "EDITED";
- case COB_TYPE_NATIONAL: return "N";
-#endif
- }
- sprintf (wrk,"Type %04X",type);
- return wrk;
-}
-
-COB_EXT_EXPORT int
-CAPI (void *p1, ...)
-{
- int k,nargs,type,digits,scale,size,sign,byvalue;
- cob_s64_t val = 0;
- char *str;
- char wrk[80],pic[30]; /* note: maximum _theoretical_ size */
-
- nargs = cob_get_num_params();
- printf ("CAPI called with %d parameters\n",nargs);
- for (k=1; k <= nargs; k++) {
- type = cob_get_param_type (k);
- digits = cob_get_param_digits (k);
- scale = cob_get_param_scale (k);
- size = cob_get_param_size (k);
- sign = cob_get_param_sign (k);
- byvalue = cob_get_param_constant(k);
- printf (" %d: %-8s ", k, getType (type, byvalue));
- if (byvalue) {
- printf ("BY VALUE ");
- } else {
- printf ("BY REFERENCE ");
- }
- if (type == COB_TYPE_ALPHANUMERIC) {
- sprintf (pic, "X(%d)", size);
- str = cob_get_picx_param (k, NULL, 0);
- printf ("%-11s '%s'", pic, str);
- cob_free ((void*)str);
- cob_put_picx_param (k, "Bye!");
- } else if (type == COB_TYPE_NATIONAL) {
- sprintf (pic, "N(%d)", size); /* FIXME */
- printf ("exchange of national data is not supported yet");
- } else if (type == COB_TYPE_GROUP) {
- sprintf (pic, "(%d)", size);
- str = cob_get_grp_param (k, NULL, 0);
- printf ("%-11s '%.*s'", pic, size, str);
- cob_free ((void*)str);
- memset (wrk,' ',sizeof(wrk));
- memcpy (wrk,"Bye-Bye Birdie!",15);
- cob_put_grp_param (k, wrk, sizeof(wrk));
- } else if (type == COB_TYPE_NUMERIC_EDITED) {
- if (scale > 0) {
- sprintf (pic,"%s9(%d)V9(%d)",sign?"S":"",digits-scale,scale);
- } else {
- sprintf (pic,"%s9(%d)",sign?"S":"",digits-scale);
- }
- val = cob_get_s64_param (k);
- printf ("%-11s %lld ",pic,val);
- val = val + 130;
- val = -val;
- cob_put_s64_param (k, val);
- cob_get_grp_param (k, wrk, sizeof(wrk));
- printf (" to %.*s",size,wrk);
- } else {
- if(scale > 0) {
- sprintf (pic,"%s9(%d)V9(%d)",sign?"S":"",digits-scale,scale);
- } else {
- sprintf (pic,"%s9(%d)",sign?"S":"",digits-scale);
- }
- val = cob_get_s64_param (k);
- printf ("%-11s %lld", pic, val);
- cob_put_s64_param (k, val + 3);
- }
- printf (";\n");
- fflush (stdout);
- }
- if (nargs > 2) {
- cob_put_s64_param (7, val + 3);
- }
- return 0;
-}
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:12041: \$COMPILE -Wno-unfinished prog.cob cmod.c"
-at_fn_check_prepare_dynamic "$COMPILE -Wno-unfinished prog.cob cmod.c" "run_misc.at:12041"
-( $at_check_trace; $COMPILE -Wno-unfinished prog.cob cmod.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:31: warning: BY CONTENT assumed for alphanumeric item 'CHRX'
-prog.cob:32: warning: BY CONTENT assumed for alphanumeric item 'CHRX'
-prog.cob:34: warning: BY CONTENT assumed for alphanumeric item 'GRPX'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:12041"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:12047: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:12047"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:21: warning: cob_put_s64_param: attempt to over-write constant parameter 1 with '2563'
-libcob: prog.cob:21: warning: cob_put_s64_param: attempt to over-write constant parameter 2 with '19'
-libcob: prog.cob:27: warning: cob_put_s64_param: parameter 7 is not within range of 4
-libcob: prog.cob:28: warning: cob_put_s64_param: parameter 7 is not within range of 3
-libcob: prog.cob:31: warning: cob_put_picx_param: attempt to over-write constant parameter 2 with 'Bye!'
-libcob: prog.cob:32: warning: cob_put_picx_param: attempt to over-write constant parameter 2 with 'Bye!'
-libcob: prog.cob:33: warning: cob_put_s64_param: attempt to over-write constant parameter 1 with '21'
-libcob: prog.cob:34: warning: cob_put_grp_param: attempt to over-write constant parameter 1
-libcob: prog.cob:34: warning: cob_put_s64_param: attempt to over-write constant parameter 2 with '21'
-libcob: prog.cob:35: warning: cob_put_picx_param: attempt to over-write constant parameter 1 with 'Bye!'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "CAPI called with 2 parameters
- 1: BINARY BY VALUE S9(9) 2560;
- 2: DISPLAY BY VALUE 9(2) 16;
-CAPI called with 2 parameters
- 1: BINARY BY REFERENCE 9(5) 1280;
- 2: EDITED BY REFERENCE S9(5)V9(2) -51277 to 511.47 ;
-CAPI called with 1 parameters
- 1: BINARY BY REFERENCE S9(5) 1024;
-CAPI called with 1 parameters
- 1: BINARY BY REFERENCE 9(9) 2560;
-CAPI called with 2 parameters
- 1: COMP-3 BY REFERENCE 9(8) 4096;
- 2: EDITED BY REFERENCE S9(5)V9(2) 51277 to 514.07-;
-CAPI called with 4 parameters
- 1: DISPLAY BY REFERENCE S9(8) 8192;
- 2: BINARY BY REFERENCE S9(5) 1027;
- 3: X BY REFERENCE X(9) 'Hello';
- 4: Group BY REFERENCE (18) 'Hello World ';
-CAPI called with 3 parameters
- 1: COMP-3 BY REFERENCE 9(8) 4099;
- 2: EDITED BY REFERENCE S9(5)V9(2) -51407 to 512.77 ;
- 3: X BY REFERENCE X(9) 'Bye!';
-CAPI called with 2 parameters
- 1: BINARY BY REFERENCE 9(5) 1283;
- 2: EDITED BY REFERENCE S9(5)V9(2) 51277 to 514.07-;
-CAPI called with 2 parameters
- 1: BINARY BY REFERENCE 9(5) 1286;
- 2: X BY VALUE X(9) 'Hello!';
-CAPI called with 2 parameters
- 1: BINARY BY REFERENCE 9(5) 1289;
- 2: X BY VALUE X(9) 'Hello!';
-CAPI called with 1 parameters
- 1: BINARY BY VALUE S9(9) 18;
-CAPI called with 2 parameters
- 1: Group BY VALUE (18) 'Bye-Bye Birdie! ';
- 2: DISPLAY BY VALUE 9(2) 18;
-CAPI called with 2 parameters
- 1: X BY VALUE X(9) 'Fred Fish';
- 2: COMP-3 BY REFERENCE 9(8) 4102;
-CAPI called with 1 parameters
- 1: COMP-3 BY REFERENCE S9(7)V9(2) 1250;
-CAPI called with 0 parameters
-COMP3 is now 00004105;
-COMP4 is now 0000001292;
-BINFLD5S is now +01030;
-CHRX is now Hello! ;
-NE is now 514.07-;
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:12047"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_820
-#AT_START_821
-at_fn_group_banner 821 'run_misc.at:12111' \
- "C-API (field based)" " " 4
-at_xfail=no
-(
- printf "%s\n" "821. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 BINFLD5 PIC 9(5) COMP-5 VALUE 1280.
- 01 BINFLD5S PIC S9(5) BINARY VALUE 1024.
- 01 BINFLD9 PIC 9(9) BINARY VALUE 2560.
- 01 COMP3 PIC 9(8) COMP-3 VALUE 4096.
- 01 COMP3V99 PIC S9(7)V99 COMP-3 VALUE 12.50.
- 01 PIC9 PIC S9(8) DISPLAY VALUE 8192.
- 01 NE PIC Z(4)9.99-.
- 01 CHRX PIC X(9) VALUE 'Hello'.
- *01 CHRN PIC N(9) VALUE N'Hello'.
- 01 GRPX.
- 05 FILLER PIC X(9) VALUE 'Hello'.
- 05 FILLER PIC X(9) VALUE 'World'.
- PROCEDURE DIVISION.
- MOVE -512.77 TO NE.
- CALL "CAPI" USING 2560 BY VALUE 16.
- CALL "CAPI" USING BINFLD5, NE.
- CALL "CAPI" USING BINFLD5S.
- CALL "CAPI" USING BINFLD9.
- MOVE 512.77 TO NE.
- CALL "CAPI" USING COMP3, NE.
- CALL "CAPI" USING PIC9 BINFLD5S CHRX GRPX.
- CALL "CAPI" USING COMP3, NE, CHRX.
- CALL "CAPI" USING BINFLD5, NE.
- MOVE "Hello!" TO CHRX.
- CALL "CAPI" USING BY VALUE BINFLD5, CHRX.
- CALL "CAPI" USING BY VALUE BINFLD5, CHRX.
- CALL "CAPI" USING LENGTH OF GRPX.
- CALL "CAPI" USING BY VALUE GRPX LENGTH OF GRPX.
- CALL "CAPI" USING "Fred Fish", COMP3.
- CALL "CAPI" USING COMP3V99.
- * CALL "CAPI" USING CHRN.
- CALL "CAPI" .
- DISPLAY "COMP3 is now " COMP3 ";".
- DISPLAY "COMP4 is now " BINFLD5 ";".
- DISPLAY "BINFLD5S is now " BINFLD5S ";".
- DISPLAY "CHRX is now " CHRX ";".
- DISPLAY "NE is now " NE ";".
- STOP RUN.
-_ATEOF
-
-
-cat >cmod.c <<'_ATEOF'
-
-#include <stdio.h>
-#include <string.h>
-#include <libcob.h>
-
-static char *
-getType (int type, int byvalue)
-{
- static char wrk[24];
- switch (type) {
-#if 1
- case COB_TYPE_GROUP: return "Group";
- case COB_TYPE_NUMERIC_COMP5:
- /* fall through as the test will have different results
- on big endian systems otherwise
- return "COMP-5"; */
- COB_UNUSED (byvalue);
- case COB_TYPE_NUMERIC_BINARY: return "BINARY";
- case COB_TYPE_NUMERIC_PACKED: return "COMP-3";
- case COB_TYPE_NUMERIC_FLOAT: return "COMP-1";
- case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2";
- case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY";
- case COB_TYPE_ALPHANUMERIC: return "X";
- case COB_TYPE_NUMERIC_EDITED: return "EDITED";
- case COB_TYPE_NATIONAL: return "N";
-#else
- case COB_TYPE_GROUP: return "Group";
- case COB_TYPE_NUMERIC_COMP5:
- return byvalue == 2 ? "COMP-4" : "COMP-5";
- case COB_TYPE_NUMERIC_BINARY: return "COMP-4";
- case COB_TYPE_NUMERIC_PACKED: return "COMP-3";
- case COB_TYPE_NUMERIC_FLOAT: return "COMP-1";
- case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2";
- case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY";
- case COB_TYPE_ALPHANUMERIC: return "X";
- case COB_TYPE_NUMERIC_EDITED: return "EDITED";
- case COB_TYPE_NATIONAL: return "N";
-#endif
- }
- sprintf (wrk,"Type %04X",type);
- return wrk;
-}
-
-COB_EXT_EXPORT int
-CAPI (void *p1, ...)
-{
- int k,nargs,type,digits,scale,size,sign,byvalue;
- cob_s64_t val;
- char *str;
- char wrk[80],pic[30]; /* note: maximum _theoretical_ size */
-
- nargs = cob_get_num_params();
- printf ("CAPI called with %d parameters\n",nargs);
- for (k=1; k <= nargs; k++) {
- cob_field *fld = cob_get_param_field (k, "CAPI");
- type = cob_get_field_type (fld);
- digits = cob_get_field_digits (fld);
- scale = cob_get_field_scale (fld);
- size = cob_get_field_size (fld);
- sign = cob_get_field_sign (fld);
- byvalue = cob_get_field_constant (fld);
- printf (" %d: %-8s ", k, getType (type, byvalue));
- if (byvalue) {
- printf ("BY VALUE ");
- } else {
- printf ("BY REFERENCE ");
- }
- str = (char *) cob_get_field_str_buffered (fld);
- if (type == COB_TYPE_ALPHANUMERIC) {
- sprintf (pic, "X(%d)", size);
- printf ("%-11s '%s'", pic, str);
- cob_put_field_str (fld, "Bye!");
- } else if (type == COB_TYPE_NATIONAL) {
- sprintf (pic,"N(%d)",size); /* FIXME */
- printf ("exchange of national data is not supported yet");
- } else if (type == COB_TYPE_GROUP) {
- sprintf (pic,"(%d)",size);
- printf ("%-11s '%.*s'",pic,size,str);
- cob_put_field_str (fld, "Bye-Bye Birdie!");
- } else if (type == COB_TYPE_NUMERIC_EDITED) {
- if (scale > 0) {
- sprintf (pic,"%s9(%d)V9(%d)",sign?"S":"",digits-scale,scale);
- } else {
- sprintf (pic,"%s9(%d)",sign?"S":"",digits-scale);
- }
- printf ("%-11s %s ",pic,str);
- val = cob_get_s64_param (k);
- val = val + 130;
- val = -val;
- cob_put_s64_param (k, val);
- str = (char *) cob_get_field_str (fld, wrk, 78);
- printf (" to %.*s",size,wrk);
- } else {
- if(scale > 0) {
- sprintf (pic,"%s9(%d)V9(%d)",sign?"S":"",digits-scale,scale);
- } else {
- sprintf (pic,"%s9(%d)",sign?"S":"",digits-scale);
- }
- printf ("%-11s %s", pic, str);
- val = cob_get_s64_param (k);
- sprintf (wrk, "%lld", val + 3);
- cob_put_field_str (fld, wrk);
- }
- printf (";\n");
- fflush(stdout);
- }
- return 0;
-}
-_ATEOF
-
-
-# unfinished because of national
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:12271: \$COMPILE -Wno-unfinished prog.cob cmod.c"
-at_fn_check_prepare_dynamic "$COMPILE -Wno-unfinished prog.cob cmod.c" "run_misc.at:12271"
-( $at_check_trace; $COMPILE -Wno-unfinished prog.cob cmod.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:31: warning: BY CONTENT assumed for alphanumeric item 'CHRX'
-prog.cob:32: warning: BY CONTENT assumed for alphanumeric item 'CHRX'
-prog.cob:34: warning: BY CONTENT assumed for alphanumeric item 'GRPX'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:12271"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:12277: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:12277"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: warning: cob_put_field_str: attempt to over-write constant field with '2563'
-libcob: warning: cob_put_field_str: attempt to over-write constant field with '19'
-libcob: warning: cob_put_field_str: attempt to over-write constant field with 'Bye!'
-libcob: warning: cob_put_field_str: attempt to over-write constant field with 'Bye!'
-libcob: warning: cob_put_field_str: attempt to over-write constant field with '21'
-libcob: warning: cob_put_field_str: attempt to over-write constant field with 'Bye-Bye Birdie!'
-libcob: warning: cob_put_field_str: attempt to over-write constant field with '21'
-libcob: warning: cob_put_field_str: attempt to over-write constant field with 'Bye!'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "CAPI called with 2 parameters
- 1: BINARY BY VALUE S9(9) +000002560;
- 2: DISPLAY BY VALUE 9(2) 16;
-CAPI called with 2 parameters
- 1: BINARY BY REFERENCE 9(5) 0000001280;
- 2: EDITED BY REFERENCE S9(5)V9(2) 512.77- to 511.47 ;
-CAPI called with 1 parameters
- 1: BINARY BY REFERENCE S9(5) +01024;
-CAPI called with 1 parameters
- 1: BINARY BY REFERENCE 9(9) 000002560;
-CAPI called with 2 parameters
- 1: COMP-3 BY REFERENCE 9(8) 00004096;
- 2: EDITED BY REFERENCE S9(5)V9(2) 512.77 to 514.07-;
-CAPI called with 4 parameters
- 1: DISPLAY BY REFERENCE S9(8) +00008192;
- 2: BINARY BY REFERENCE S9(5) +01027;
- 3: X BY REFERENCE X(9) 'Hello ';
- 4: Group BY REFERENCE (18) 'Hello World ';
-CAPI called with 3 parameters
- 1: COMP-3 BY REFERENCE 9(8) 00004099;
- 2: EDITED BY REFERENCE S9(5)V9(2) 514.07- to 512.77 ;
- 3: X BY REFERENCE X(9) 'Bye! ';
-CAPI called with 2 parameters
- 1: BINARY BY REFERENCE 9(5) 0000001283;
- 2: EDITED BY REFERENCE S9(5)V9(2) 512.77 to 514.07-;
-CAPI called with 2 parameters
- 1: BINARY BY REFERENCE 9(5) 0000001286;
- 2: X BY VALUE X(9) 'Hello! ';
-CAPI called with 2 parameters
- 1: BINARY BY REFERENCE 9(5) 0000001289;
- 2: X BY VALUE X(9) 'Hello! ';
-CAPI called with 1 parameters
- 1: BINARY BY VALUE S9(9) +000000018;
-CAPI called with 2 parameters
- 1: Group BY VALUE (18) 'Bye-Bye Birdie! ';
- 2: DISPLAY BY VALUE 9(2) 18;
-CAPI called with 2 parameters
- 1: X BY VALUE X(9) 'Fred Fish';
- 2: COMP-3 BY REFERENCE 9(8) 00004102;
-CAPI called with 1 parameters
- 1: COMP-3 BY REFERENCE S9(7)V9(2) +0000012.50;
-CAPI called with 0 parameters
-COMP3 is now 00004105;
-COMP4 is now 0000001292;
-BINFLD5S is now +01030;
-CHRX is now Hello! ;
-NE is now 514.07-;
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:12277"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_821
-#AT_START_822
-at_fn_group_banner 822 'run_misc.at:12339' \
- "OPTIONS paragraph, DEFAULT ROUNDED MODE" " " 4
-at_xfail=no
-(
- printf "%s\n" "822. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- OPTIONS.
- DEFAULT ROUNDED NEAREST-EVEN.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x PIC 9.
-
- PROCEDURE DIVISION.
- COMPUTE x ROUNDED = 1.5
- DISPLAY x
- COMPUTE x ROUNDED = 2.5
- DISPLAY x
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:12360: \$COMPILE -o prog prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -o prog prog.cob" "run_misc.at:12360"
-( $at_check_trace; $COMPILE -o prog prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:12360"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:12361: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:12361"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "2
-2
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:12361"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_822
-#AT_START_823
-at_fn_group_banner 823 'run_misc.at:12369' \
- "OCCURS INDEXED ASCENDING" " " 4
-at_xfail=no
-(
- printf "%s\n" "823. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 DBI-RECORD-NAMEST.
- 05 FILLER.
- 10 FILLER PIC X(35)
- VALUE 'A-F-GEN-LEDGER-ACM 0315 '.
- 10 FILLER PIC X(35)
- VALUE 'A-F-GEN-LEDGER-MGL 0303 '.
- 10 FILLER PIC X(35)
- VALUE 'A-F-GEN-LEDGER-ZBL 0304 '.
- 10 FILLER PIC X(35)
- VALUE 'A-F-GEN-LEDGER-ZCC 0308 '.
- 10 FILLER PIC X(35)
- VALUE 'A-F-GEN-LEDGER-ZGL 0305 '.
- 10 FILLER PIC X(35)
- VALUE 'A-F-GEN-LEDGER-ZOO 0306 '.
- 10 FILLER PIC X(35)
- VALUE 'A-F-GEN-LEDGER-ZTR 0307 '.
- 01 DBI-RECORD-NAMESR REDEFINES DBI-RECORD-NAMEST.
- 05 DBI-RECORD-NAMES
- OCCURS 7 TIMES
- INDEXED BY REC-NAME-IDX
- ASCENDING KEY IS DBI-RECORD-NAME
- .
- 10 DBI-RECORD-NAME PIC X(30).
- 10 DBI-RECORD-CODE PIC 9(4).
- 10 DBI-RECORD-DIR PIC X.
- 01 REC-NAME PIC X(30).
- 01 DBX-RECORD-NAMEST.
- 05 FILLER.
- 10 FILLER PIC X(35)
- VALUE 'A-F-GEN-LEDGER-ACM 0315 '.
- 10 FILLER PIC X(35)
- VALUE 'A-F-GEN-LEDGER-MGL 0303 '.
- 10 FILLER PIC X(35)
- VALUE 'A-F-GEN-LEDGER-ZBL 0304 '.
- 10 FILLER PIC X(35)
- VALUE 'A-F-GEN-LEDGER-ZCC 0308 '.
- 10 FILLER PIC X(35)
- VALUE 'A-F-GEN-LEDGER-ZGL 0305 '.
- 10 FILLER PIC X(35)
- VALUE 'A-F-GEN-LEDGER-ZOO 0306 '.
- 10 FILLER PIC X(35)
- VALUE 'A-F-GEN-LEDGER-ZTR 0307 '.
- 01 DBX-RECORD-NAMESR REDEFINES DBX-RECORD-NAMEST.
- 05 DBX-RECORD-NAMES
- OCCURS 7 TIMES
- ASCENDING KEY IS DBX-RECORD-NAME
- INDEXED BY REC-NAME-DBX
- .
- 10 DBX-RECORD-NAME PIC X(30).
- 10 DBX-RECORD-CODE PIC 9(4).
- 10 DBX-RECORD-DIR PIC X.
-
- PROCEDURE DIVISION.
- MAIN.
- *> "the initial value of an index-name at runtime is undefined"
- *> Old OpenCOBOL/GnuCOBOL did that as "1"
- SET REC-NAME-IDX TO 1.
- MOVE 'A-F-GEN-LEDGER-ZGL' TO REC-NAME.
- PERFORM FINDIT.
- MOVE 'JUNK' TO REC-NAME.
- PERFORM FINDIT.
- STOP RUN.
-
- FINDIT.
- SEARCH DBI-RECORD-NAMES
- AT END
- DISPLAY 'A ' REC-NAME ' is invalid.'
- WHEN REC-NAME = DBI-RECORD-NAME (REC-NAME-IDX)
- DISPLAY 'A ' REC-NAME ' is code '
- DBI-RECORD-CODE (REC-NAME-IDX) '.'.
-
- SEARCH DBX-RECORD-NAMES
- AT END
- DISPLAY 'B ' REC-NAME ' is invalid.'
- WHEN REC-NAME = DBX-RECORD-NAME (REC-NAME-DBX)
- DISPLAY 'B ' REC-NAME ' is code '
- DBX-RECORD-CODE (REC-NAME-DBX) '.'.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:12456: \$COMPILE -frelax-syntax-checks prog.cob "
-at_fn_check_prepare_dynamic "$COMPILE -frelax-syntax-checks prog.cob " "run_misc.at:12456"
-( $at_check_trace; $COMPILE -frelax-syntax-checks prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:26: warning: INDEXED should follow ASCENDING/DESCENDING
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:12456"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:12460: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:12460"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "A A-F-GEN-LEDGER-ZGL is code 0305.
-B A-F-GEN-LEDGER-ZGL is code 0305.
-A JUNK is invalid.
-B JUNK is invalid.
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:12460"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_823
-#AT_START_824
-at_fn_group_banner 824 'run_misc.at:12470' \
- "ZERO unsigned and negative binary subscript" " " 4
-at_xfail=no
-(
- printf "%s\n" "824. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 UBIN PIC 9(8) BINARY.
- 77 SBIN PIC S9(8) BINARY.
- 77 UNUP PIC 9(8).
- 77 SNUP PIC S9(8).
- 77 UCHR BINARY-CHAR UNSIGNED.
- 77 SCHR BINARY-CHAR SIGNED.
-
- 01 TSTREC.
- 05 PIC X(4) OCCURS 300 TIMES VALUE ZERO.
- 05 TSTX PIC X(4) OCCURS 3 TIMES.
- 05 TSTY PIC X(4) OCCURS 300 TIMES.
-
- PROCEDURE DIVISION.
- MOVE ALL 'A' TO TSTX(1).
- MOVE ALL 'B' TO TSTX(2).
- MOVE ALL 'C' TO TSTX(3).
- MOVE ALL '1' TO TSTY(1).
- MOVE ALL '2' TO TSTY(2).
- MOVE ALL '3' TO TSTY(3).
- MOVE 0 TO UNUP.
- DISPLAY "UNUP: " UNUP " is :" TSTY(UNUP) ":" UPON CONSOLE.
- MOVE 0 TO SNUP.
- DISPLAY "SNUP: " SNUP " is :" TSTY(SNUP) ":" UPON CONSOLE.
- MOVE 0 TO SBIN.
- DISPLAY "SBIN: " SBIN " is :" TSTY(SBIN) ":" UPON CONSOLE.
- MOVE -1 TO SBIN.
- DISPLAY "SBIN: " SBIN " is :" TSTY(SBIN) ":" UPON CONSOLE.
- MOVE 'xxx' TO TSTY(SBIN).
- DISPLAY "SBIN: " SBIN " is :" TSTY(SBIN) ":" UPON CONSOLE.
- * The following would often core dump
- MOVE 0 TO UBIN.
- DISPLAY "UBIN: " UBIN " is :" TSTY(UBIN) ":" UPON CONSOLE.
- MOVE 'yyy' TO TSTY(UBIN).
- MOVE 1 TO UBIN.
- DISPLAY "UBIN: " UBIN " is :" TSTY(UBIN) ":" UPON CONSOLE.
- MOVE 0 TO UCHR.
- DISPLAY "UCHR: " UCHR " is :" TSTY(UCHR) ":" UPON CONSOLE.
- MOVE -1 TO SCHR.
- DISPLAY "SCHR: " SCHR " is :" TSTY(SCHR) ":" UPON CONSOLE.
- MOVE 'zzz' TO TSTY (129).
- MOVE 129 TO UCHR.
- DISPLAY "UCHR: " UCHR " is :" TSTY(UCHR) ":" UPON CONSOLE.
- STOP RUN.
-_ATEOF
-
-
-# Safe run with runtime checks
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:12524: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:12524"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:12524"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:12525: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:12525"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:26: error: subscript of 'TSTY' out of bounds: 0
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:12525"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# Runtime checks disable, subscript may be zero or even negative
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:12530: \$COBC -x -g -fsource-location prog.cob -o prog_unsafe"
-at_fn_check_prepare_dynamic "$COBC -x -g -fsource-location prog.cob -o prog_unsafe" "run_misc.at:12530"
-( $at_check_trace; $COBC -x -g -fsource-location prog.cob -o prog_unsafe
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:12530"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:12531: \$COBCRUN_DIRECT ./prog_unsafe"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog_unsafe" "run_misc.at:12531"
-( $at_check_trace; $COBCRUN_DIRECT ./prog_unsafe
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "UNUP: 00000000 is :CCCC:
-SNUP: +00000000 is :CCCC:
-SBIN: +00000000 is :CCCC:
-SBIN: -00000001 is :BBBB:
-SBIN: -00000001 is :xxx :
-UBIN: 00000000 is :CCCC:
-UBIN: 00000001 is :1111:
-UCHR: 000 is :yyy :
-SCHR: -001 is :xxx :
-UCHR: 129 is :zzz :
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:12531"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_824
-#AT_START_825
-at_fn_group_banner 825 'run_misc.at:12547' \
- "Default Arithmetic (1)" " " 4
-at_xfail=no
-(
- printf "%s\n" "825. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 NUM-A PIC 9(3) VALUE 399.
- 01 NUM-B PIC 9(3) VALUE 211.
- 01 NUM-C PIC 9(3)V99 VALUE 212.34.
- 01 NUMV1 PIC 9(3)V9.
- 01 PICX PIC X VALUE 'A'.
- 01 RSLT PIC 9(3).
- 01 RSLTV1 PIC 9(3).9.
- 01 RSLTV2 PIC 9(3).99.
- *
- PROCEDURE DIVISION.
- MAIN.
- COMPUTE RSLT = NUM-A + 1.1.
- DISPLAY 'Simple Compute RSLT IS ' RSLT
- COMPUTE RSLT = ((NUM-A / 100) - (NUM-B / 100)) * 100
- DISPLAY 'Single Variable RSLT IS ' RSLT
- COMPUTE RSLTV2, RSLT = ((NUM-A / 100) - (NUM-B / 100)) * 100
- DISPLAY 'Compute RSLT IS ' RSLT
- DISPLAY 'Compute RSLTv99 IS ' RSLTV2
- COMPUTE RSLTV1, RSLT = ((NUM-A / 100) - (NUM-B / 100)) * 100
- DISPLAY 'Compute RSLT IS ' RSLT
- DISPLAY 'Compute RSLTv9 IS ' RSLTV1
- MOVE 0 TO RSLT
- ADD NUM-C TO RSLT.
- DISPLAY 'Add RSLT IS ' RSLT.
- MOVE 0 TO RSLT
- ADD NUM-A NUM-C 10 TO RSLT.
- DISPLAY 'Add RSLT IS ' RSLT.
- SUBTRACT NUM-C FROM RSLT.
- DISPLAY 'Subtract RSLT IS ' RSLT.
- SUBTRACT NUM-A -10 FROM RSLT.
- DISPLAY 'Subtract RSLT IS ' RSLT.
- MOVE 0 TO RSLT
- ADD NUM-A NUM-C TO RSLT GIVING RSLTV1.
- DISPLAY 'Add RSLTv9 IS ' RSLTV1
- MULTIPLY NUM-A BY NUM-C GIVING RSLT.
- DISPLAY 'Multiply RSLT IS ' RSLT.
- MULTIPLY RSLT BY NUM-C.
- DISPLAY 'Multiply RSLT IS ' RSLT.
- DIVIDE NUM-A BY 10 GIVING RSLT.
- DISPLAY 'Divide RSLT IS ' RSLT.
- DIVIDE RSLT BY 4 GIVING RSLTV1.
- DISPLAY 'Divide RSLTv9 IS ' RSLTV1.
- DIVIDE RSLT BY 4 GIVING RSLT.
- DISPLAY 'Divide RSLT IS ' RSLT.
-
- COMPUTE RSLTV1, RSLT = ((NUM-A / 100) - (NUM-B / 100)) * 100
- DISPLAY 'Simple RSLT IS ' RSLT
- ' RSLTv9 IS ' RSLTV1.
-
- COMPUTE RSLTV1, RSLT = ((NUM-A / (100.55 + -0.550))
- - (NUM-B / (10.11 * 10 - 1.1)))
- * (220 / 2.2)
- DISPLAY 'Complex RSLT IS ' RSLT
- ' RSLTv9 IS ' RSLTV1.
-
- COMPUTE RSLTV1, RSLT = ((NUM-A / (101 - 1))
- - (NUM-B / (10 * 10))) * (200 / 2)
- DISPLAY 'Reduced RSLT IS ' RSLT
- ' RSLTv9 IS ' RSLTV1.
- MOVE NUM-A TO NUMV1.
- IF ((NUMV1 / (101 - 1))
- - (NUM-B / (10 * 10))) * (200 / 2) EQUAL 188
- DISPLAY "Not Using ARITHMETIC-OSVS"
- ELSE
- DISPLAY "Using ARITHMETIC-OSVS"
- END-IF.
- STOP RUN.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:12623: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:12623"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:12623"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:12625: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:12625"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Simple Compute RSLT IS 400
-Single Variable RSLT IS 188
-Compute RSLT IS 188
-Compute RSLTv99 IS 188.00
-Compute RSLT IS 188
-Compute RSLTv9 IS 188.0
-Add RSLT IS 212
-Add RSLT IS 621
-Subtract RSLT IS 408
-Subtract RSLT IS 019
-Add RSLTv9 IS 611.3
-Multiply RSLT IS 723
-Multiply RSLT IS 723
-Divide RSLT IS 039
-Divide RSLTv9 IS 009.7
-Divide RSLT IS 009
-Simple RSLT IS 188 RSLTv9 IS 188.0
-Complex RSLT IS 188 RSLTv9 IS 188.0
-Reduced RSLT IS 188 RSLTv9 IS 188.0
-Not Using ARITHMETIC-OSVS
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:12625"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_825
-#AT_START_826
-at_fn_group_banner 826 'run_misc.at:12651' \
- "Default Arithmetic Test (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "826. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 VAL PIC S9(7)V99 COMP-3 VALUE 20500.
- 01 DIV1 PIC S9(7)V99 COMP-3 VALUE 0.9.
- 01 DIV2 PIC S9(7)V99 COMP-3 VALUE 33.45.
- 01 DIV3 PIC S9(7)V99 COMP-3 VALUE 9.
- 01 MUL1 PIC S9(7)V99 COMP-3 VALUE 10.
- 01 MUL2 PIC S9(7)V99 COMP-3 VALUE 5.
- 01 MUL3 PIC S9(7)V99 COMP-3 VALUE 2.
- 01 RES PIC S9(7)V99 COMP-3.
- PROCEDURE DIVISION.
- COMPUTE RES = VAL / DIV1 / DIV2.
- DISPLAY 'RES = ' RES.
- COMPUTE RES ROUNDED = VAL / DIV1 / DIV2.
- DISPLAY 'RES ROUNDED = ' RES.
- COMPUTE RES = VAL * MUL1 / DIV3 / DIV2.
- DISPLAY 'RES MULT1 = ' RES.
- COMPUTE RES = VAL * MUL2 * MUL3 / DIV3 / DIV2.
- DISPLAY 'RES MULT2 = ' RES.
- COMPUTE RES = VAL / DIV1.
- DISPLAY 'RES 1 = ' RES.
- COMPUTE RES = RES / DIV2.
- DISPLAY 'RES F = ' RES.
- COMPUTE RES ROUNDED MODE AWAY-FROM-ZERO =
- VAL / DIV1 / DIV2.
- DISPLAY 'RES ROUNDED AWAY = ' RES.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:12687: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:12687"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:12687"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:12689: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:12689"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "RES = +0000680.95
-RES ROUNDED = +0000680.95
-RES MULT1 = +0000680.95
-RES MULT2 = +0000680.95
-RES 1 = +0022777.77
-RES F = +0000680.94
-RES ROUNDED AWAY = +0000680.96
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:12689"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_826
-#AT_START_827
-at_fn_group_banner 827 'run_misc.at:12702' \
- "OSVS Arithmetic (1)" " " 4
-at_xfail=no
-(
- printf "%s\n" "827. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 NUM-A PIC 9(3) VALUE 399.
- 01 NUM-B PIC 9(3) VALUE 211.
- 01 NUM-C PIC 9(3)V99 VALUE 212.34.
- 01 NUMV1 PIC 9(3)V9.
- 01 PICX PIC X VALUE 'A'.
- 01 RSLT PIC 9(3).
- 01 RSLTV1 PIC 9(3).9.
- 01 RSLTV2 PIC 9(3).99.
- *
- PROCEDURE DIVISION.
- MAIN.
- COMPUTE RSLT = NUM-A + 1.1.
- DISPLAY 'Simple Compute RSLT IS ' RSLT
- COMPUTE RSLT = ((NUM-A / 100) - (NUM-B / 100)) * 100
- DISPLAY 'Single Variable RSLT IS ' RSLT
- COMPUTE RSLTV2, RSLT = ((NUM-A / 100) - (NUM-B / 100)) * 100
- DISPLAY 'Compute RSLT IS ' RSLT
- DISPLAY 'Compute RSLTv99 IS ' RSLTV2
- COMPUTE RSLTV1, RSLT = ((NUM-A / 100) - (NUM-B / 100)) * 100
- DISPLAY 'Compute RSLT IS ' RSLT
- DISPLAY 'Compute RSLTv9 IS ' RSLTV1
- MOVE 0 TO RSLT
- ADD NUM-C TO RSLT.
- DISPLAY 'Add RSLT IS ' RSLT.
- MOVE 0 TO RSLT
- ADD NUM-A NUM-C 10 TO RSLT.
- DISPLAY 'Add RSLT IS ' RSLT.
- SUBTRACT NUM-C FROM RSLT.
- DISPLAY 'Subtract RSLT IS ' RSLT.
- SUBTRACT NUM-A -10 FROM RSLT.
- DISPLAY 'Subtract RSLT IS ' RSLT.
- MOVE 0 TO RSLT
- ADD NUM-A NUM-C TO RSLT GIVING RSLTV1.
- DISPLAY 'Add RSLTv9 IS ' RSLTV1
- MULTIPLY NUM-A BY NUM-C GIVING RSLT.
- DISPLAY 'Multiply RSLT IS ' RSLT.
- MULTIPLY RSLT BY NUM-C.
- DISPLAY 'Multiply RSLT IS ' RSLT.
- DIVIDE NUM-A BY 10 GIVING RSLT.
- DISPLAY 'Divide RSLT IS ' RSLT.
- DIVIDE RSLT BY 4 GIVING RSLTV1.
- DISPLAY 'Divide RSLTv9 IS ' RSLTV1.
- DIVIDE RSLT BY 4 GIVING RSLT.
- DISPLAY 'Divide RSLT IS ' RSLT.
-
- COMPUTE RSLTV1, RSLT = ((NUM-A / 100) - (NUM-B / 100)) * 100
- DISPLAY 'Simple RSLT IS ' RSLT
- ' RSLTv9 IS ' RSLTV1.
-
- COMPUTE RSLTV1, RSLT = ((NUM-A / (100.55 + -0.550))
- - (NUM-B / (10.11 * 10 - 1.1)))
- * (220 / 2.2)
- DISPLAY 'Complex RSLT IS ' RSLT
- ' RSLTv9 IS ' RSLTV1.
-
- COMPUTE RSLTV1, RSLT = ((NUM-A / (101 - 1))
- - (NUM-B / (10 * 10))) * (200 / 2)
- DISPLAY 'Reduced RSLT IS ' RSLT
- ' RSLTv9 IS ' RSLTV1.
- MOVE NUM-A TO NUMV1.
- IF ((NUMV1 / (101 - 1))
- - (NUM-B / (10 * 10))) * (200 / 2) EQUAL 188
- DISPLAY "Not Using ARITHMETIC-OSVS"
- ELSE
- DISPLAY "Using ARITHMETIC-OSVS"
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:12779: \$COMPILE -farithmetic-osvs prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -farithmetic-osvs prog.cob" "run_misc.at:12779"
-( $at_check_trace; $COMPILE -farithmetic-osvs prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in paragraph 'MAIN':
-prog.cob:19: warning: precision of result may change with arithmetic-osvs
-prog.cob:21: warning: precision of result may change with arithmetic-osvs
-prog.cob:24: warning: precision of result may change with arithmetic-osvs
-prog.cob:31: warning: precision of result may change with arithmetic-osvs
-prog.cob:35: warning: precision of result may change with arithmetic-osvs
-prog.cob:38: warning: precision of result may change with arithmetic-osvs
-prog.cob:51: warning: precision of result may change with arithmetic-osvs
-prog.cob:55: warning: precision of result may change with arithmetic-osvs
-prog.cob:61: warning: precision of result may change with arithmetic-osvs
-prog.cob:66: warning: precision of result may change with arithmetic-osvs
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:12779"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:12793: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:12793"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Simple Compute RSLT IS 400
-Single Variable RSLT IS 100
-Compute RSLT IS 188
-Compute RSLTv99 IS 188.00
-Compute RSLT IS 180
-Compute RSLTv9 IS 180.0
-Add RSLT IS 212
-Add RSLT IS 621
-Subtract RSLT IS 408
-Subtract RSLT IS 019
-Add RSLTv9 IS 611.3
-Multiply RSLT IS 723
-Multiply RSLT IS 723
-Divide RSLT IS 039
-Divide RSLTv9 IS 009.7
-Divide RSLT IS 009
-Simple RSLT IS 180 RSLTv9 IS 180.0
-Complex RSLT IS 188 RSLTv9 IS 188.0
-Reduced RSLT IS 180 RSLTv9 IS 180.0
-Using ARITHMETIC-OSVS
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:12793"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_827
-#AT_START_828
-at_fn_group_banner 828 'run_misc.at:12819' \
- "OSVS Arithmetic Test (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "828. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 VAL PIC S9(7)V99 COMP-3 VALUE 20500.
- 01 DIV1 PIC S9(7)V99 COMP-3 VALUE 0.9.
- 01 DIV2 PIC S9(7)V99 COMP-3 VALUE 33.45.
- 01 DIV3 PIC S9(7)V99 COMP-3 VALUE 9.
- 01 MUL1 PIC S9(7)V99 COMP-3 VALUE 10.
- 01 MUL2 PIC S9(7)V99 COMP-3 VALUE 5.
- 01 MUL3 PIC S9(7)V99 COMP-3 VALUE 2.
- 01 RES PIC S9(7)V99 COMP-3.
- PROCEDURE DIVISION.
- COMPUTE RES = VAL / DIV1 / DIV2.
- DISPLAY 'RES = ' RES.
- COMPUTE RES ROUNDED = VAL / DIV1 / DIV2.
- DISPLAY 'RES ROUNDED = ' RES.
- COMPUTE RES = VAL * MUL1 / DIV3 / DIV2.
- DISPLAY 'RES MULT1 = ' RES.
- COMPUTE RES = VAL * MUL2 * MUL3 / DIV3 / DIV2.
- DISPLAY 'RES MULT2 = ' RES.
- COMPUTE RES = VAL / DIV1.
- DISPLAY 'RES 1 = ' RES.
- COMPUTE RES = RES / DIV2.
- DISPLAY 'RES F = ' RES.
- COMPUTE RES ROUNDED MODE AWAY-FROM-ZERO =
- VAL / DIV1 / DIV2.
- DISPLAY 'RES ROUNDED AWAY = ' RES.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:12855: \$COMPILE -std=ibm prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=ibm prog.cob" "run_misc.at:12855"
-( $at_check_trace; $COMPILE -std=ibm prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:16: warning: precision of result may change with arithmetic-osvs
-prog.cob:18: warning: precision of result may change with arithmetic-osvs
-prog.cob:20: warning: precision of result may change with arithmetic-osvs
-prog.cob:22: warning: precision of result may change with arithmetic-osvs
-prog.cob:28: warning: precision of result may change with arithmetic-osvs
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:12855"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:12863: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:12863"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "RES = +000068094
-RES ROUNDED = +000068095
-RES MULT1 = +000068094
-RES MULT2 = +000068095
-RES 1 = +002277777
-RES F = +000068094
-RES ROUNDED AWAY = +000068095
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:12863"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_828
-#AT_START_829
-at_fn_group_banner 829 'run_misc.at:12876' \
- "SET CONSTANT directive" " " 4
-at_xfail=no
-(
- printf "%s\n" "829. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# The SET CONSTANT directive defines a level78 variable
-# for the current compilation unit
-
-# original MF extension: $SET CONSTANT
-cat >prog.cob <<'_ATEOF'
-
- $SET CONSTANT DOGGY "Barky"
- $SET CONSTANT PONY "Blacky"
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 THEDOG PIC X(6) VALUE DOGGY.
- 77 MYHORSE PIC X(7) VALUE PONY.
- $SET CONSTANT PONY "White"
- *
- PROCEDURE DIVISION.
- MAIN.
- DISPLAY "Your Dog's name is " DOGGY ";".
- DISPLAY "The Dog's name is " THEDOG ";".
- DISPLAY "My Horse is " MYHORSE ";".
- DISPLAY "My little pony is " PONY ".".
- STOP RUN.
-_ATEOF
-
-
-# OpenCOBOL/GnuCOBOL extension: >>SET CONSTANT
-cat >prog2.cob <<'_ATEOF'
-
- >>SET CONSTANT DOGGY "Barky"
- >>SET CONSTANT PONY "Blacky"
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 THEDOG PIC X(6) VALUE DOGGY.
- 77 MYHORSE PIC X(7) VALUE PONY.
- >>SET CONSTANT PONY "White"
- *
- PROCEDURE DIVISION.
- MAIN.
- DISPLAY "Your Dog's name is " DOGGY ";".
- DISPLAY "The Dog's name is " THEDOG ";".
- DISPLAY "My Horse is " MYHORSE ";".
- DISPLAY "My little pony is " PONY ".".
- STOP RUN.
-_ATEOF
-
-
-# OpenCOBOL/GnuCOBOL extension: >>DEFINE CONSTANT
-cat >prog3.cob <<'_ATEOF'
-
- >>DEFINE CONSTANT DOGGY "Barky"
- >>DEFINE CONSTANT PONY "Blacky"
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 THEDOG PIC X(6) VALUE DOGGY.
- 77 MYHORSE PIC X(7) VALUE PONY.
- >>DEFINE CONSTANT PONY "White" OVERRIDE
- *
- PROCEDURE DIVISION.
- MAIN.
- DISPLAY "Your Dog's name is " DOGGY ";".
- DISPLAY "The Dog's name is " THEDOG ";".
- DISPLAY "My Horse is " MYHORSE ";".
- DISPLAY "My little pony is " PONY ".".
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:12945: \$COMPILE -std=mf prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=mf prog.cob" "run_misc.at:12945"
-( $at_check_trace; $COMPILE -std=mf prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:12945"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# Note: MF does not redefine a value via SET CONSTANT
-# the first definitions wins (warning check: syn_misc.at)
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:12949: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:12949"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Your Dog's name is Barky;
-The Dog's name is Barky ;
-My Horse is Blacky ;
-My little pony is Blacky.
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:12949"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:12956: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_misc.at:12956"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:12956"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# Note: MF does not redefine a value via SET CONSTANT
-# the first definitions wins (warning check: syn_misc.at)
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:12960: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "run_misc.at:12960"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Your Dog's name is Barky;
-The Dog's name is Barky ;
-My Horse is Blacky ;
-My little pony is Blacky.
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:12960"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:12967: \$COMPILE -fdefine-constant-directive=ok prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fdefine-constant-directive=ok prog3.cob" "run_misc.at:12967"
-( $at_check_trace; $COMPILE -fdefine-constant-directive=ok prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:12967"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:12969: \$COBCRUN_DIRECT ./prog3"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog3" "run_misc.at:12969"
-( $at_check_trace; $COBCRUN_DIRECT ./prog3
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Your Dog's name is Barky;
-The Dog's name is Barky ;
-My Horse is Blacky ;
-My little pony is White.
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:12969"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_829
-#AT_START_830
-at_fn_group_banner 830 'run_misc.at:12979' \
- "DEFINE OVERRIDE" " " 4
-at_xfail=no
-(
- printf "%s\n" "830. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- >>SET CONSTANT DOGGY "Pluto"
- >>SET CONSTANT PONY "Piper"
- WORKING-STORAGE SECTION.
- 01 THEDOG PIC X(6) VALUE DOGGY.
-
- >>DEFINE DPONY AS PARAMETER OVERRIDE
- >>IF DPONY IS NOT DEFINED
- >>DEFINE DPONY AS "No Dpony"
- >>END-IF
- 01 CNSPONY CONSTANT FROM DPONY.
-
- >>DEFINE ENVPONY AS PARAMETER OVERRIDE
- >>IF ENVPONY IS NOT DEFINED
- >>DEFINE ENVPONY AS "No EnvPony"
- >>END-IF
- 01 HORSE CONSTANT FROM ENVPONY.
- 77 MYHORSE PIC X(12) VALUE HORSE .
- 77 MYPONYENV PIC X(12).
- *
- PROCEDURE DIVISION.
- MAIN.
- DISPLAY "ENVPONY" UPON ENVIRONMENT-NAME
- ACCEPT MYPONYENV FROM ENVIRONMENT-VALUE.
- DISPLAY "ENVPONY env var set to " MYPONYENV ";".
- DISPLAY "1st Dog's name is " DOGGY ";".
- DISPLAY "2nd Dog's name is " PONY ";".
- >>IF ENVPONY IS DEFINED
- DISPLAY "ENVPONY is DEFINED as " HORSE ";".
- >>ELSE
- DISPLAY "ENVPONY was NOT DEFINED;".
- >>END-IF
- DISPLAY "DPONY set to " CNSPONY ";".
- >>IF ENVPONY = "WHITE"
- >>DEFINE CONSTANT PONY AS "White Horse" OVERRIDE
- >>ELSE
- >>DEFINE CONSTANT PONY AS "default Dirty" OVERRIDE
- >>END-IF
- DISPLAY "My pony is " PONY ";".
- >>IF DPONY IS DEFINED
- DISPLAY "DPONY is DEFINED as " CNSPONY ";".
- >>END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:13030: ENVPONY=WHITE \$COMPILE prog.cob -fdefine-constant-directive=ok -DDPONY=Stallone"
-at_fn_check_prepare_dynamic "ENVPONY=WHITE $COMPILE prog.cob -fdefine-constant-directive=ok -DDPONY=Stallone" "run_misc.at:13030"
-( $at_check_trace; ENVPONY=WHITE $COMPILE prog.cob -fdefine-constant-directive=ok -DDPONY=Stallone
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:13030"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:13032: ENVPONY=WHITE ./prog"
-at_fn_check_prepare_trace "run_misc.at:13032"
-( $at_check_trace; ENVPONY=WHITE ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "ENVPONY env var set to WHITE ;
-1st Dog's name is Pluto;
-2nd Dog's name is Piper;
-ENVPONY is DEFINED as WHITE;
-DPONY set to Stallone;
-My pony is White Horse;
-DPONY is DEFINED as Stallone;
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:13032"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_830
-#AT_START_831
-at_fn_group_banner 831 'run_misc.at:13045' \
- "DEFINE Defaults" " " 4
-at_xfail=no
-(
- printf "%s\n" "831. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- >>SET CONSTANT DOGGY "Pluto"
- >>SET CONSTANT PONY "Piper"
- WORKING-STORAGE SECTION.
- 01 THEDOG PIC X(6) VALUE DOGGY.
-
- >>DEFINE DPONY AS PARAMETER OVERRIDE
- >>IF DPONY IS NOT DEFINED
- >>DEFINE DPONY AS "No Dpony"
- >>END-IF
- 01 CNSPONY CONSTANT FROM DPONY.
-
- >>DEFINE ENVPONY AS PARAMETER OVERRIDE
- >>IF ENVPONY IS NOT DEFINED
- >>DEFINE ENVPONY AS "No EnvPony"
- >>END-IF
- 01 HORSE CONSTANT FROM ENVPONY.
- 77 MYHORSE PIC X(12) VALUE HORSE .
- 77 MYPONYENV PIC X(12).
- *
- PROCEDURE DIVISION.
- MAIN.
- DISPLAY "ENVPONY" UPON ENVIRONMENT-NAME
- ACCEPT MYPONYENV FROM ENVIRONMENT-VALUE.
- DISPLAY "ENVPONY env var set to " MYPONYENV ";".
- DISPLAY "1st Dog's name is " DOGGY ";".
- DISPLAY "2nd Dog's name is " PONY ";".
- >>IF ENVPONY IS DEFINED
- DISPLAY "ENVPONY is DEFINED as " HORSE ";".
- >>ELSE
- DISPLAY "ENVPONY was NOT DEFINED;".
- >>END-IF
- DISPLAY "DPONY set to " CNSPONY ";".
- >>IF ENVPONY = "WHITE"
- >>DEFINE CONSTANT PONY AS "White Horse" OVERRIDE
- >>ELSE
- >>DEFINE CONSTANT PONY AS "default Dirty" OVERRIDE
- >>END-IF
- DISPLAY "My pony is " PONY ";".
- >>IF DPONY IS DEFINED
- DISPLAY "DPONY is DEFINED as " CNSPONY ";".
- >>END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:13096: \$COMPILE prog.cob -fdefine-constant-directive=ok"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob -fdefine-constant-directive=ok" "run_misc.at:13096"
-( $at_check_trace; $COMPILE prog.cob -fdefine-constant-directive=ok
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:13096"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:13098: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:13098"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "ENVPONY env var set to ;
-1st Dog's name is Pluto;
-2nd Dog's name is Piper;
-ENVPONY is DEFINED as No EnvPony;
-DPONY set to No Dpony;
-My pony is default Dirty;
-DPONY is DEFINED as No Dpony;
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:13098"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_831
-#AT_START_832
-at_fn_group_banner 832 'run_misc.at:13111' \
- "78 VALUE" " " 4
-at_xfail=no
-(
- printf "%s\n" "832. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 78 DOGGY VALUE "Barky".
- 01 MYREC.
- 05 FLD1 PIC 9(2).
- 05 FLD2 PIC X(7).
- 05 FLD3 PIC X(2) OCCURS 5 TIMES.
- 05 FLD4 PIC X(4).
- 05 FLD5 PIC X(4).
- 01 PICX PIC XXX VALUE 'Abc'.
- 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3.
- 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4.
- 01 THEDOG PIC X(6) VALUE DOGGY.
- 78 DIV1 VALUE 100 / 3.
- 78 NUM2 VALUE 1 + 2 * 3.
- LINKAGE SECTION.
- 01 XMYREC.
- 05 XFLD1 PIC 9(2).
- 05 XFLD2 PIC X(7).
- 78 XPOS3 VALUE NEXT.
- 05 XFLD3 PIC X(2) OCCURS 5 TIMES.
- 78 XPOS4 VALUE NEXT.
- 05 XFLD4 PIC X(4).
- 05 XFLD5 PIC X(4).
- 78 XSTRT4 VALUE START OF XFLD4.
- *
- PROCEDURE DIVISION.
- MAIN.
- DISPLAY "DIV1 is " DIV1.
- DISPLAY "HUN is " HUN.
- DISPLAY "HUN2 is " HUN2.
- MOVE NUM2 TO FLD1
- IF FLD1 = 9
- DISPLAY "NUM2 is " NUM2 " left to right precedence."
- ELSE
- DISPLAY "NUM2 is " NUM2 " normal precedence."
- END-IF.
- DISPLAY "XFLD3 starts at " XPOS3.
- DISPLAY "XFLD4 starts at " XSTRT4.
- DISPLAY "XFLD4 starts at " XPOS4.
- DISPLAY "Your Dog's name is " DOGGY ";".
- DISPLAY "The Dog's name is " THEDOG ";".
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:13162: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:13162"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:13162"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:13164: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:13164"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "DIV1 is 33
-HUN is 143
-HUN2 is 1855
-NUM2 is 9 left to right precedence.
-XFLD3 starts at 9
-XFLD4 starts at 19
-XFLD4 starts at 11
-Your Dog's name is Barky;
-The Dog's name is Barky ;
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:13164"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_832
-#AT_START_833
-at_fn_group_banner 833 'run_misc.at:13179' \
- "01 CONSTANT" " " 4
-at_xfail=no
-(
- printf "%s\n" "833. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- >>DEFINE MYDOG AS "Piper"
- >>DEFINE MYNUM1 AS 11
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 MYREC.
- 05 FLD1 PIC 9(2).
- 05 FLD2 PIC X(7).
- 05 FLD3 PIC X(2) OCCURS 5 TIMES.
- 05 FLD4 PIC X(4).
- 05 FLD5 PIC X(4).
- 01 PICX PIC XXX VALUE 'Abc'.
- 01 CAT CONSTANT 'Cat '.
- 01 DOG CONSTANT 'Dog '.
- 01 YARD CONSTANT CAT & "& " & DOG.
- 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3.
- 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4.
- 78 DIV1 VALUE 100 / 3.
- 78 NUM2 VALUE 1 + 2 * 3.
- 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4).
- 01 CON4 CONSTANT AS 3.1416 + CON3.
- 01 CON5 CONSTANT 1 + 2 * 3.
- 01 DOGNAME CONSTANT FROM MYDOG.
- 01 NUM1 CONSTANT FROM MYNUM1.
- 01 CON6 CONSTANT AS CON5 + NUM1.
- >> IF NUM2 DEFINED *> optional passed from command line
- 01 NUM2 CONSTANT FROM MYNUM2.
- >> END-IF
- *
- PROCEDURE DIVISION.
- MAIN.
- DISPLAY "CAT is '" CAT "'".
- DISPLAY "Yard is '" YARD "'".
- DISPLAY "DIV1 is " DIV1.
- DISPLAY "HUN is " HUN.
- DISPLAY "HUN2 is " HUN2.
- MOVE NUM2 TO FLD1
- IF FLD1 = 9
- DISPLAY "78 VALUE has simple left to right precedence."
- ELSE
- DISPLAY "78 VALUE is " NUM2 " normal precedence."
- END-IF.
- MOVE CON5 TO FLD1
- IF FLD1 = 7
- DISPLAY "01 CONSTANT has normal operator precedence."
- ELSE
- DISPLAY "01 CONSTANT is " CON5 " left to right precedence."
- END-IF.
- DISPLAY "CON3 is " CON3.
- DISPLAY "CON4 is " CON4 " vs " 3.141596
- " & " -2.189 " & " +12.
- DISPLAY "CON6 is " CON6 "."
- DISPLAY "My Dog's name is " DOGNAME ";".
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:13240: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:13240"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:13240"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:13242: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:13242"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "CAT is 'Cat '
-Yard is 'Cat & Dog '
-DIV1 is 33
-HUN is 143
-HUN2 is 1855
-78 VALUE has simple left to right precedence.
-01 CONSTANT has normal operator precedence.
-CON3 is 23
-CON4 is 26 vs 3.141596 & -2.189 & +12
-CON6 is 18.
-My Dog's name is Piper;
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:13242"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_833
-#AT_START_834
-at_fn_group_banner 834 'run_misc.at:13259' \
- "DISPLAY UPON" " " 4
-at_xfail=no
-(
- printf "%s\n" "834. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- PRINTER IS PRINTER.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 note PIC X(05).
- PROCEDURE DIVISION CHAINING note.
- DISPLAY "This is sent to CONSOLE " note UPON CONSOLE.
- DISPLAY "This is sent to SYSERR " note UPON SYSERR.
- DISPLAY "This is sent to PRINTER " note UPON PRINTER.
- DISPLAY "This is also sent to CONSOLE " note UPON CONSOLE.
- DISPLAY "This is also sent to SYSERR " note UPON SYSERR.
- DISPLAY "This is also sent to PRINTER " note UPON PRINTER.
- DISPLAY "This is sent to SYSPUNCH " note UPON SYSPUNCH
- ON EXCEPTION DISPLAY 'NO ...' UPON SYSERR.
- DISPLAY "This is also sent to SYSPUNCH " note UPON SYSPCH
- ON EXCEPTION DISPLAY ' ... SYSPUNCH' UPON SYSERR.
- STOP RUN RETURNING 0.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:13287: \$COMPILE -std=ibm prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=ibm prog.cob" "run_misc.at:13287"
-( $at_check_trace; $COMPILE -std=ibm prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:12: warning: start of statement in Area A
-prog.cob:13: warning: start of statement in Area A
-prog.cob:14: warning: start of statement in Area A
-prog.cob:15: warning: start of statement in Area A
-prog.cob:16: warning: start of statement in Area A
-prog.cob:17: warning: start of statement in Area A
-prog.cob:18: warning: start of statement in Area A
-prog.cob:20: warning: start of statement in Area A
-prog.cob:22: warning: start of statement in Area A
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:13287"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:13299: \$COBCRUN_DIRECT ./prog PLAIN"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog PLAIN" "run_misc.at:13299"
-( $at_check_trace; $COBCRUN_DIRECT ./prog PLAIN
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "This is sent to SYSERR PLAIN
-This is also sent to SYSERR PLAIN
-libcob: prog.cob:18: warning: COB_DISPLAY_PUNCH_FILE is invalid, output to SYSPUNCH skipped
-NO ...
- ... SYSPUNCH
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "This is sent to CONSOLE PLAIN
-This is sent to PRINTER PLAIN
-This is also sent to CONSOLE PLAIN
-This is also sent to PRINTER PLAIN
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:13299"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:13312: COB_DISPLAY_PRINT_PIPE='cat >>prt.log' \\
-COB_DISPLAY_PUNCH_FILE='punch.out' \\
-\$COBCRUN_DIRECT ./prog PIPE."
-at_fn_check_prepare_notrace 'an embedded newline' "run_misc.at:13312"
-( $at_check_trace; COB_DISPLAY_PRINT_PIPE='cat >>prt.log' \
-COB_DISPLAY_PUNCH_FILE='punch.out' \
-$COBCRUN_DIRECT ./prog PIPE.
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "This is sent to SYSERR PIPE.
-This is also sent to SYSERR PIPE.
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "This is sent to CONSOLE PIPE.
-This is also sent to CONSOLE PIPE.
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:13312"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:13322: COB_DISPLAY_PRINT_FILE='prt.log' \\
-COB_DISPLAY_PUNCH_FILE='punch.out' \\
-\$COBCRUN_DIRECT ./prog PRINT"
-at_fn_check_prepare_notrace 'an embedded newline' "run_misc.at:13322"
-( $at_check_trace; COB_DISPLAY_PRINT_FILE='prt.log' \
-COB_DISPLAY_PUNCH_FILE='punch.out' \
-$COBCRUN_DIRECT ./prog PRINT
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "This is sent to SYSERR PRINT
-This is also sent to SYSERR PRINT
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "This is sent to CONSOLE PRINT
-This is also sent to CONSOLE PRINT
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:13322"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-cat >reference <<'_ATEOF'
-This is sent to PRINTER PIPE.
-This is also sent to PRINTER PIPE.
-This is sent to PRINTER PRINT
-This is also sent to PRINTER PRINT
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:13341: diff reference prt.log"
-at_fn_check_prepare_trace "run_misc.at:13341"
-( $at_check_trace; diff reference prt.log
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:13341"
-if $at_failed
-then :
- # Previous test "failed" --> check if EOL of PIPE is the issue
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:13345: \$SED -e 's/PIPE.\\r/PIPE./g' prt.log > prt2.log"
-at_fn_check_prepare_dynamic "$SED -e 's/PIPE.\\r/PIPE./g' prt.log > prt2.log" "run_misc.at:13345"
-( $at_check_trace; $SED -e 's/PIPE.\r/PIPE./g' prt.log > prt2.log
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:13345"
-$at_failed && at_fn_log_failure \
-"prt.log"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:13346: diff reference prt2.log"
-at_fn_check_prepare_trace "run_misc.at:13346"
-( $at_check_trace; diff reference prt2.log
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:13346"
-$at_failed && at_fn_log_failure \
-"prt.log"
-$at_traceon; }
-
-
-fi
-$at_failed && at_fn_log_failure \
-"prt.log"
-$at_traceon; }
-
-
-
-
-cat >reference <<'_ATEOF'
-This is sent to SYSPUNCH PRINT
-This is also sent to SYSPUNCH PRINT
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:13356: diff reference punch.out"
-at_fn_check_prepare_trace "run_misc.at:13356"
-( $at_check_trace; diff reference punch.out
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:13356"
-$at_failed && at_fn_log_failure \
-"prt.log" \
-"punch.out"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_834
-#AT_START_835
-at_fn_group_banner 835 'run_misc.at:13361' \
- "FLOAT-DECIMAL w/o SIZE ERROR" " " 4
-at_xfail=no
-(
- printf "%s\n" "835. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 FD16 USAGE FLOAT-DECIMAL-16.
- 01 SV16 USAGE FLOAT-DECIMAL-16.
- 01 FD34 USAGE FLOAT-DECIMAL-34.
- 01 SV34 USAGE FLOAT-DECIMAL-34.
-
- PROCEDURE DIVISION.
- CND-000.
- DISPLAY "--- FLOAT-DECIMAL-34 ---"
- COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0
- DISPLAY "A: " FD34
-
- COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0
- DISPLAY "B: " FD34
- MOVE ZERO TO FD34.
- COMPUTE FD34 = 1.0E3 / 2.1E0
- ON SIZE ERROR DISPLAY "Z: " FD34 " SIZE ERROR"
- NOT ON SIZE ERROR DISPLAY "Z: " FD34 " IS OK"
- END-COMPUTE.
-
- DISPLAY " ..."
- DISPLAY "--- FLOAT-DECIMAL-16 ---"
- COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0
- DISPLAY "A: " FD16
-
- COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0
- DISPLAY "B: " FD16
- MOVE ZERO TO FD16.
- COMPUTE FD16 = 1.0E3 / 2.1E0
- ON SIZE ERROR DISPLAY "Z: " FD16 " SIZE ERROR"
- NOT ON SIZE ERROR DISPLAY "Z: " FD16 " IS OK"
- END-COMPUTE.
-
- DISPLAY " ..."
- DISPLAY "--- 99 + 1 / 3 ---"
- MOVE -1 TO FD16, FD34.
- COMPUTE FD34 = 99 + 1 / 3
- ON SIZE ERROR DISPLAY "FD34: " FD34 " SIZE ERROR"
- NOT ON SIZE ERROR DISPLAY "FD34: " FD34 " IS OK"
- END-COMPUTE.
- COMPUTE FD16 = 99 + 1 / 3
- ON SIZE ERROR DISPLAY "FD16: " FD16 " SIZE ERROR"
- NOT ON SIZE ERROR DISPLAY "FD16: " FD16 " IS OK"
- END-COMPUTE.
-
- DISPLAY " ..."
- DISPLAY "--- 99 ---"
- MOVE -1 TO FD16, FD34.
- COMPUTE FD34 = 99
- ON SIZE ERROR DISPLAY "FD34: " FD34 " SIZE ERROR"
- NOT ON SIZE ERROR DISPLAY "FD34: " FD34 " IS OK"
- END-COMPUTE.
- COMPUTE FD16 = 99
- ON SIZE ERROR DISPLAY "FD16: " FD16 " SIZE ERROR"
- NOT ON SIZE ERROR DISPLAY "FD16: " FD16 " IS OK"
- END-COMPUTE.
-
- CND-100-OK.
- DISPLAY " ..."
- DISPLAY "--- Test overflow ---"
- MOVE 9900000000000 TO FD16, FD34.
- PERFORM 390 TIMES
- MOVE FD16 TO SV16
- COMPUTE FD16 = FD16 * 10
- ON SIZE ERROR GO TO CND-100-ERR
- END-COMPUTE
- IF FD16 < 9.0
- DISPLAY "FD16: " FD16 " IS Wrong"
- GO TO CND-100-ERR
- END-IF
- END-PERFORM.
- DISPLAY "FD16: " FD16 " IS OK".
- GO TO CND-200-OK.
- CND-100-ERR.
- DISPLAY "FD16: after " SV16 " SIZE ERROR".
-
- CND-200-OK.
- MOVE 9900000000000 TO FD16, FD34.
- PERFORM 6500 TIMES
- MOVE FD34 TO SV34
- COMPUTE FD34 = FD34 * 10
- ON SIZE ERROR GO TO CND-200-ERR
- END-COMPUTE
- IF FD34 < 9.0
- GO TO CND-200-ERR
- END-IF
- END-PERFORM.
- DISPLAY "FD34: " FD34 " IS OK".
- GO TO CND-380-OK.
- CND-200-ERR.
- DISPLAY "FD34: after " SV34 " SIZE ERROR".
-
- CND-380-OK.
- DISPLAY " ..."
- DISPLAY "--- Test underflow ---"
- MOVE 0.000000099 TO FD16, FD34.
- PERFORM 400 TIMES
- MOVE FD16 TO SV16
- COMPUTE FD16 = FD16 / 10
- ON SIZE ERROR GO TO CND-300-ERR
- END-COMPUTE
- IF FD16 = 0.0
- GO TO CND-300-ERR
- END-IF
- END-PERFORM.
- DISPLAY "FD16: " FD16 " IS OK".
- GO TO CND-400-OK.
- CND-300-ERR.
- DISPLAY "FD16: after " SV16 " SIZE ERROR".
-
- CND-400-OK.
- MOVE 0.000000099 TO FD16, FD34.
- PERFORM 6600 TIMES
- MOVE FD34 TO SV34
- COMPUTE FD34 = FD34 / 10.0
- ON SIZE ERROR GO TO CND-400-ERR
- END-COMPUTE
- IF FD34 = 0.0
- GO TO CND-400-ERR
- END-IF
- END-PERFORM.
- DISPLAY "FD34: " FD34 " IS OK".
- GO TO CND-999.
- CND-400-ERR.
- DISPLAY "FD34: after " SV34 " SIZE ERROR".
-
- CND-999.
- STOP RUN.
- END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:13502: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:13502"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:13502"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:13504: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:13504"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "--- FLOAT-DECIMAL-34 ---
-A: 9216586.861751152073732718894009216
-B: 5305036.78779840848806366047745358
-Z: 476.1904761904761904761904761904761 IS OK
- ...
---- FLOAT-DECIMAL-16 ---
-A: 9216586.861751152
-B: 5305036.787798408
-Z: 476.1904761904761 IS OK
- ...
---- 99 + 1 / 3 ---
-FD34: 99.33333333333333333333333333333333 IS OK
-FD16: 99.33333333333333 IS OK
- ...
---- 99 ---
-FD34: 99 IS OK
-FD16: 99 IS OK
- ...
---- Test overflow ---
-FD16: after 99E369 SIZE ERROR
-FD34: after 99E6111 SIZE ERROR
- ...
---- Test underflow ---
-FD16: after 99E-398 SIZE ERROR
-FD34: after 99E-6176 SIZE ERROR
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:13504"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_835
-#AT_START_836
-at_fn_group_banner 836 'run_misc.at:13535' \
- "FLOAT-SHORT / FLOAT-LONG w/o SIZE ERROR" " " 4
-at_xfail=no
-(
- printf "%s\n" "836. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 CMP1 COMP-1.
- 01 SV1 COMP-1.
- 01 CMP2 COMP-2.
- 01 SV2 COMP-2.
-
- PROCEDURE DIVISION.
- CND-000.
-
- DISPLAY "--- COMP-1 ---"
- COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0
- DISPLAY "A: " CMP1
- COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0
- DISPLAY "B: " CMP1
- MOVE ZERO TO CMP1.
- COMPUTE CMP1 = 1.0E3 / 2.1E0
- ON SIZE ERROR DISPLAY "Z: " CMP1 " SIZE ERROR"
- NOT ON SIZE ERROR DISPLAY "Z: " CMP1 " IS OK"
- END-COMPUTE.
-
- DISPLAY " ..."
- DISPLAY "--- COMP-2 ---"
- COMPUTE CMP2 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0
- *> because of possible rounding of intermediates and different
- *> precision depending on math library / version: plain DISPLAY
- IF CMP2 >= 9216586.86175114 AND <= 9216586.86175116
- DISPLAY "A ~ 9216586.86175115"
- ELSE
- DISPLAY "A: " CMP2
- END-IF
- COMPUTE CMP2 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0
- IF CMP2 >= 5305036.7877983 AND <= 5305036.7877985
- DISPLAY "B ~ 5305036.787798408"
- ELSE
- DISPLAY "B: " CMP2
- END-IF
- MOVE ZERO TO CMP2.
- COMPUTE CMP2 = 1.0E3 / 2.1E0
- ON SIZE ERROR DISPLAY "Z: " CMP2 " SIZE ERROR"
- NOT ON SIZE ERROR
- *> see note above
- IF CMP2 >= 476.1904761904760 AND <= 476.1904761904763
- DISPLAY "Z ~ 476.1904761904761 IS OK"
- ELSE
- DISPLAY "Z: " CMP2 " IS OK"
- END-IF
- END-COMPUTE.
-
- DISPLAY " ..."
- DISPLAY "--- 99 + 1 / 3 ---"
- MOVE -1 TO CMP1, CMP2.
- COMPUTE CMP1 = 99 + 1 / 3
- ON SIZE ERROR DISPLAY "CMP1: " CMP1 " SIZE ERROR"
- NOT ON SIZE ERROR DISPLAY "CMP1: " CMP1 " IS OK"
- END-COMPUTE.
- COMPUTE CMP2 = 99 + 1 / 3
- ON SIZE ERROR DISPLAY "CMP2: " CMP2 " SIZE ERROR"
- NOT ON SIZE ERROR DISPLAY "CMP2: " CMP2 " IS OK"
- END-COMPUTE.
-
- DISPLAY " ..."
- DISPLAY "--- 99 ---"
- MOVE -1 TO CMP1, CMP2.
- COMPUTE CMP1 = 99
- ON SIZE ERROR DISPLAY "CMP1: " CMP1 " SIZE ERROR"
- NOT ON SIZE ERROR DISPLAY "CMP1: " CMP1 " IS OK"
- END-COMPUTE.
- COMPUTE CMP2 = 99
- ON SIZE ERROR DISPLAY "CMP2: " CMP2 " SIZE ERROR"
- NOT ON SIZE ERROR DISPLAY "CMP2: " CMP2 " IS OK"
- END-COMPUTE.
-
- CND-100-OK.
- DISPLAY " ..."
- DISPLAY "--- Test overflow ---"
-
- MOVE 990000 TO CMP1.
- PERFORM 6500 TIMES
- MOVE CMP1 TO SV1
- COMPUTE CMP1 = CMP1 * 10
- ON SIZE ERROR GO TO CND-350-ERR
- END-COMPUTE
- IF CMP1 < 9.0
- GO TO CND-350-ERR
- END-IF
- END-PERFORM.
- DISPLAY "CMP1: " CMP1 " IS OK".
- GO TO CND-350-OK.
- CND-350-ERR.
- DISPLAY "CMP1: after " SV1 " SIZE ERROR".
-
- CND-350-OK.
- MOVE 9900000000 TO CMP2.
- PERFORM 6500 TIMES
- MOVE CMP2 TO SV2
- COMPUTE CMP2 = CMP2 * 10
- ON SIZE ERROR GO TO CND-380-ERR
- END-COMPUTE
- IF CMP2 < 9.0
- GO TO CND-380-ERR
- END-IF
- END-PERFORM.
- DISPLAY "CMP2: " CMP2 " IS OK".
- GO TO CND-500-OK.
- CND-380-ERR.
- *> because of possible rounding of intermediates and different
- *> precision depending on math library / version: plain DISPLAY
- IF SV2 >= 9.899999999999E+307 AND
- <= 9.900000000001E+307
- DISPLAY "CMP2: after ~ 9.899999999999781E+307 SIZE ERROR"
- ELSE
- DISPLAY "CMP2: after " SV2 " SIZE ERROR"
- END-IF
- .
-
- CND-500-OK.
- MOVE 0.000000099 TO CMP1.
- PERFORM 350 TIMES
- MOVE CMP1 TO SV1
- COMPUTE CMP1 = CMP1 / 10.0
- ON SIZE ERROR GO TO CND-500-ERR
- END-COMPUTE
- IF CMP1 = 0.0
- GO TO CND-500-ERR
- END-IF
- END-PERFORM.
- DISPLAY "CMP1: " CMP1 " IS OK".
- GO TO CND-600-OK.
- CND-500-ERR.
- DISPLAY "CMP1: after " SV1 " SIZE ERROR".
-
- CND-600-OK.
- MOVE 0.000000099 TO CMP2.
- PERFORM 350 TIMES
- MOVE CMP2 TO SV2
- COMPUTE CMP2 = CMP2 / 10.0
- ON SIZE ERROR GO TO CND-600-ERR
- END-COMPUTE
- IF CMP2 = 0.0
- GO TO CND-600-ERR
- END-IF
- END-PERFORM.
- DISPLAY "CMP2: " CMP2 " IS OK".
- GO TO CND-600-XIT.
- CND-600-ERR.
- IF SV2 >= 9.8813129168249E-324 AND <= 9.881312916825E-324
- DISPLAY "CMP2: after ~ 9.881312916824931E-324 SIZE ERROR"
- ELSE
- DISPLAY "CMP2: after " SV2 " SIZE ERROR"
- END-IF
- .
- CND-600-XIT.
-
- CND-999.
- STOP RUN.
- END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:13703: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:13703"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:13703"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:13705: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:13705"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "--- COMP-1 ---
-A: 9216587
-B: 5305037
-Z: 476.19049 IS OK
- ...
---- COMP-2 ---
-A ~ 9216586.86175115
-B ~ 5305036.787798408
-Z ~ 476.1904761904761 IS OK
- ...
---- 99 + 1 / 3 ---
-CMP1: 99.333336 IS OK
-CMP2: 99.33333333333333 IS OK
- ...
---- 99 ---
-CMP1: 99 IS OK
-CMP2: 99 IS OK
- ...
---- Test overflow ---
-CMP1: after 9.8999983E+37 SIZE ERROR
-CMP2: after ~ 9.899999999999781E+307 SIZE ERROR
-CMP1: after 1.4012985E-45 SIZE ERROR
-CMP2: after ~ 9.881312916824931E-324 SIZE ERROR
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:13705"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_836
-#AT_START_837
-at_fn_group_banner 837 'run_misc.at:13734' \
- "FLOAT-SHORT with SIZE ERROR" " " 4
-at_xfail=no
-(
- printf "%s\n" "837. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- identification division.
- program-id. prog.
-
- data division.
- working-storage section.
- *------------------------
- 77 counter pic s9(4) binary value zero.
- * FLOAT-SHORT (if binary-comp-1 is not active)
- 77 floatValue COMP-1 value 2.
- 77 lastFloatValue COMP-1.
-
- ******************************************************************
- procedure division.
- main section.
- perform varying counter from 1 by 1 until
- counter > 130
- *> display 'counter: ' counter ', value: ' floatValue
- compute floatValue = floatValue * 2
- ON SIZE ERROR
- display 'SIZE ERROR, last value = ' floatValue
- exit perform
- not ON SIZE ERROR
- if floatValue > lastFloatValue
- move floatValue to lastFloatValue
- else
- display 'math ERROR, last value > current: '
- lastFloatValue ' > ' floatValue
- exit perform
- end-if
- end-compute
- end-perform
- if counter not = 127
- display 'counter is ' counter
- end-if
-
- goback.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:13776: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:13776"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:13776"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:13778: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:13778"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "SIZE ERROR, last value = 1.7014118E+38
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:13778"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_837
-#AT_START_838
-at_fn_group_banner 838 'run_misc.at:13785' \
- "FLOAT-LONG with SIZE ERROR" " " 4
-at_xfail=no
-(
- printf "%s\n" "838. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- identification division.
- program-id. prog.
-
- data division.
- working-storage section.
- *------------------------
- 77 counter pic s9(4) binary value zero.
- * FLOAT-LONG
- 77 doubleValue COMP-2 value 2.
- 77 lastDoubleValue COMP-2.
-
- ******************************************************************
- procedure division.
- main section.
- perform varying counter from 1 by 1 until
- counter > 1060
- *> display 'counter: ' counter ', value: ' doubleValue
- compute doubleValue = doubleValue * 2
- ON SIZE ERROR
- display 'SIZE ERROR raised'
- with no advancing upon syserr
- end-display
- display 'SIZE ERROR, last value = ' doubleValue
- upon sysout
- end-display
- exit perform
- not ON SIZE ERROR
- if doubleValue > lastdoubleValue
- move doubleValue to lastdoubleValue
- else
- display 'math ERROR, last value > current: '
- lastdoubleValue ' > ' doubleValue
- upon syserr
- end-display
- exit perform
- end-if
- end-compute
- end-perform
- if not (counter >= 1023 and <=1025)
- display ' ' upon syserr
- display 'counter is ' counter upon syserr
- end-if
-
- goback.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:13835: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:13835"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:13835"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# note: the actual value is not checked as it depends on non-portable
-# intermediate rounding
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:13838: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:13838"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "SIZE ERROR raised" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo stdout:; cat "$at_stdout"
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:13838"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_838
-#AT_START_839
-at_fn_group_banner 839 'run_misc.at:13843' \
- "EC-SIZE-ZERO-DIVIDE" " " 4
-at_xfail=no
-(
- printf "%s\n" "839. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x PIC 9 VALUE 0.
- 01 y PIC 9 VALUE 0.
-
- PROCEDURE DIVISION.
- DIVIDE x BY y GIVING y
- IF FUNCTION TRIM(FUNCTION EXCEPTION-STATUS)
- NOT = 'EC-SIZE-ZERO-DIVIDE'
- DISPLAY 'Wrong/missing exception: '
- FUNCTION EXCEPTION-STATUS
- END-DISPLAY
- END-IF
- SET LAST EXCEPTION TO OFF
- IF FUNCTION EXCEPTION-STATUS NOT = SPACES
- DISPLAY 'Exception is not empty after reset: '
- FUNCTION EXCEPTION-STATUS
- END-DISPLAY
- END-IF
- MOVE 0 TO y
- COMPUTE y = x - 1 / y + 6.5
- IF FUNCTION TRIM(FUNCTION EXCEPTION-STATUS)
- NOT = 'EC-SIZE-ZERO-DIVIDE'
- DISPLAY 'Wrong/missing exception: '
- FUNCTION EXCEPTION-STATUS
- END-DISPLAY
- END-IF
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:13881: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:13881"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:13881"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:13882: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:13882"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:13882"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_839
-#AT_START_840
-at_fn_group_banner 840 'run_misc.at:13886' \
- "EC-SIZE-OVERFLOW" " " 4
-at_xfail=no
-(
- printf "%s\n" "840. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x PIC 9 VALUE 1.
- 01 y PIC 9.
-
- PROCEDURE DIVISION.
- * raise exception checked in previous test
- * as it may interfere with the expected exception
- DIVIDE x BY y GIVING y
- DIVIDE x BY 0.1 GIVING y
- IF FUNCTION TRIM(FUNCTION EXCEPTION-STATUS)
- NOT = 'EC-SIZE-OVERFLOW'
- DISPLAY 'Wrong/missing exception: '
- FUNCTION EXCEPTION-STATUS
- END-DISPLAY
- END-IF
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:13912: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:13912"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:13912"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:13913: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:13913"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:13913"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_840
-#AT_START_841
-at_fn_group_banner 841 'run_misc.at:13917' \
- "Constant Expressions" " " 4
-at_xfail=no
-(
- printf "%s\n" "841. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 VAR PIC X(200).
- 01 OTHERVAR PIC X(115).
- 78 VAR-LEN VALUE 115.
-
- PROCEDURE DIVISION.
- MAIN-10.
- MOVE "Peek a boo" TO VAR.
- EVALUATE TRUE
- ALSO FALSE
- ALSO TRUE
- WHEN TRUE
- ALSO VAR-LEN > 16 AND VAR-LEN < 200
- ALSO TRUE
- MOVE OTHERVAR (1 : VAR-LEN - 9)
- TO VAR (16 - VAR-LEN : VAR-LEN - 9)
- DISPLAY "A: Should NOT be executed"
- WHEN TRUE
- ALSO VAR-LEN < 16
- ALSO TRUE
- MOVE OTHERVAR TO VAR
- DISPLAY "A: OK VAR-LEN > 16 AND VAR-LEN < 200"
- WHEN TRUE
- ALSO VAR = SPACES
- ALSO TRUE
- MOVE OTHERVAR TO VAR
- DISPLAY "A: OK VAR IS SPACES"
- END-EVALUATE.
-
- MOVE "Peek a boo" TO VAR.
- EVALUATE 3 EQUALS 7
- WHEN VAR = SPACES
- DISPLAY "B: OK VAR IS NOT SPACES"
- WHEN VAR NOT = SPACES
- DISPLAY "B: FALSE VAR IS SPACES"
- END-EVALUATE.
-
- MOVE SPACES TO VAR.
- EVALUATE FALSE
- WHEN VAR = SPACES
- DISPLAY "C: FALSE VAR IS SPACES"
- WHEN VAR NOT = SPACES
- DISPLAY "C: OK VAR IS SPACES"
- END-EVALUATE.
-
- MOVE "Peek a boo" TO VAR.
- EVALUATE TRUE
- WHEN VAR = SPACES
- DISPLAY "D: BAD VAR IS SPACES"
- WHEN VAR NOT = SPACES
- DISPLAY "D: OK VAR IS NOT SPACES"
- END-EVALUATE.
-
- MOVE SPACES TO VAR.
- EVALUATE VAR-LEN ALSO VAR
- WHEN < 32 ALSO SPACES
- DISPLAY "E: OK VAR IS SPACES"
- WHEN > 16 ALSO NOT SPACES
- DISPLAY "E: BAD VAR IS NOT SPACES"
- WHEN OTHER
- DISPLAY "E: OK OTHER option taken"
- END-EVALUATE.
-
- STOP RUN.
-_ATEOF
-
-
-# Note: this program errors without constant folding, but that is
-# checked in syn_misc.at already; we explicit specify the remove
-# of folded constants option allowing to run with COBOL_FLAGS=-g
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:13993: \$COMPILE prog.cob -fconstant-folding -fremove-unreachable -w"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob -fconstant-folding -fremove-unreachable -w" "run_misc.at:13993"
-( $at_check_trace; $COMPILE prog.cob -fconstant-folding -fremove-unreachable -w
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:13993"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:13995: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:13995"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "A: OK VAR-LEN > 16 AND VAR-LEN < 200
-B: OK VAR IS NOT SPACES
-C: OK VAR IS SPACES
-D: OK VAR IS NOT SPACES
-E: OK OTHER option taken
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:13995"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_841
-#AT_START_842
-at_fn_group_banner 842 'run_misc.at:14006' \
- "ENTRY FOR GO TO / GO TO ENTRY" " " 4
-at_xfail=no
-(
- printf "%s\n" "842. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 JUMP-ENTRY PIC 9 VALUE 6.
- 88 EXT-MODUS VALUES 3, 4.
- LINKAGE SECTION.
- PROCEDURE DIVISION.
- GO TO ENTRY 'STMT05'.
- MAIN.
- GO TO ENTRY 'STMT01'
- 'STMT02'
- 'STMT03'
- 'STMT04'
- 'STMT05'
- DEPENDING ON JUMP-ENTRY
- DISPLAY 'NOT JUMPED'
- GOBACK.
- ENTRY FOR GO TO 'STMT01'
- DISPLAY 'STMT01'
- ENTRY FOR GO TO 'STMT02'
- PERFORM 3 TIMES
- ENTRY FOR GO TO 'STMT03'
- DISPLAY 'STMT03'
- ENTRY FOR GO TO 'STMT04' DISPLAY 'STMT04'
- IF EXT-MODUS EXIT PERFORM END-IF
- END-PERFORM
- ENTRY FOR GO TO 'STMT05'
- DISPLAY 'STMT05'
- SUBTRACT 1 FROM JUMP-ENTRY
- GO TO MAIN.
-
-_ATEOF
-
-
-# TODO: move to syntax checks, together with all expected error messages
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14045: \$COMPILE -std=mf-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=mf-strict prog.cob" "run_misc.at:14045"
-( $at_check_trace; $COMPILE -std=mf-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: error: ENTRY FOR GO TO does not conform to Micro Focus COBOL
-prog.cob: in paragraph 'MAIN':
-prog.cob:18: error: ENTRY FOR GO TO does not conform to Micro Focus COBOL
-prog.cob:20: error: ENTRY FOR GO TO does not conform to Micro Focus COBOL
-prog.cob:22: error: ENTRY FOR GO TO does not conform to Micro Focus COBOL
-prog.cob:24: error: ENTRY FOR GO TO does not conform to Micro Focus COBOL
-prog.cob:26: error: ENTRY FOR GO TO does not conform to Micro Focus COBOL
-prog.cob:29: error: ENTRY FOR GO TO does not conform to Micro Focus COBOL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:14045"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14056: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:14056"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:10: warning: ENTRY FOR GO TO used
-prog.cob: in paragraph 'MAIN':
-prog.cob:18: warning: ENTRY FOR GO TO used
-prog.cob:20: warning: ENTRY FOR GO TO used
-prog.cob:22: warning: ENTRY FOR GO TO used
-prog.cob:24: warning: ENTRY FOR GO TO used
-prog.cob:26: warning: ENTRY FOR GO TO used
-prog.cob:29: warning: ENTRY FOR GO TO used
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14056"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14067: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:14067"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "STMT05
-STMT05
-STMT04
-STMT05
-STMT03
-STMT04
-STMT05
-STMT03
-STMT04
-STMT03
-STMT04
-STMT03
-STMT04
-STMT05
-STMT01
-STMT03
-STMT04
-STMT03
-STMT04
-STMT03
-STMT04
-STMT05
-NOT JUMPED
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14067"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_842
-#AT_START_843
-at_fn_group_banner 843 'run_misc.at:14096' \
- "runtime checks within conditions" " " 4
-at_xfail=no
-(
- printf "%s\n" "843. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# this serves as a sample what was broken in the initial
-# 3.1 release
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
-
- 01 mytab.
- 03 VAR PIC 9(02) value 1.
- 03 VAR2 PIC 9(02) value 2.
- 03 OCCURS 2.
- 05 T15-PRGM PIC X(08).
- 05 T16-PRGM PIC X(08).
- 03 OCCURS 2.
- 05 T15-NRGM PIC 9(04).
- 05 T16-NRGM USAGE BINARY-INT.
-
- PROCEDURE DIVISION.
- *
- MOVE 'TESTME' TO T16-PRGM (VAR) (VAR2:)
- MOVE T16-PRGM (VAR) (1:VAR2) TO T15-PRGM (VAR)
- IF T16-PRGM(VAR)
- = T15-PRGM(VAR2)
- DISPLAY 'WRONG RESULT OCCURS'.
-
- IF MYTAB(VAR:VAR2)
- = MYTAB(VAR2:VAR)
- DISPLAY 'WRONG RESULT REFMOD'.
-
- INITIALIZE mytab
-
- GOBACK.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14135: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:14135"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14135"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14136: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:14136"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14136"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# note: we mostly are interested in a good codegen here...
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
-
- 01 mytab.
- 03 VAR PIC 9(02) value 1.
- 03 VAR2 PIC 9(02) value 3.
- 03 OCCURS 2.
- 05 T15-PRGM PIC X(08).
- 05 T16-PRGM PIC X(08).
- 03 OCCURS 2.
- 05 T15-NRGM PIC 9(04).
- 05 T16-NRGM USAGE BINARY-INT.
- 05 buffer PIC X(500).
-
- PROCEDURE DIVISION.
- *
- IF T16-PRGM(VAR)
- = T15-PRGM(VAR2)
- DISPLAY 'WRONG RESULT OCCURS'.
-
- GOBACK.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14166: \$COBC -x prog2.cob"
-at_fn_check_prepare_dynamic "$COBC -x prog2.cob" "run_misc.at:14166"
-( $at_check_trace; $COBC -x prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14166"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14167: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "run_misc.at:14167"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14167"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14168: \$COBC -x --debug -o prog2b prog2.cob"
-at_fn_check_prepare_dynamic "$COBC -x --debug -o prog2b prog2.cob" "run_misc.at:14168"
-( $at_check_trace; $COBC -x --debug -o prog2b prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14168"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14169: \$COBCRUN_DIRECT ./prog2b"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2b" "run_misc.at:14169"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2b
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog2.cob:21: error: subscript of 'T15-PRGM' out of bounds: 3
-note: maximum subscript for 'T15-PRGM': 2
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:14169"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-cat >prog3.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
-
- 01 mytab.
- 03 VAR PIC 9(02) value 1.
- 03 VAR2 PIC 9(02) value 99.
- 03 OCCURS 2.
- 05 T15-PRGM PIC X(08).
- 05 T16-PRGM PIC X(08).
- 03 OCCURS 2.
- 05 T15-NRGM PIC 9(04).
- 05 T16-NRGM USAGE BINARY-INT.
-
- PROCEDURE DIVISION.
-
- IF MYTAB(VAR:VAR2)
- *> = MYTAB(VAR2:VAR) that _should_ work but on x86_64
- *> the second line is evaluated first
- = MYTAB(VAR:VAR )
- DISPLAY 'WRONG RESULT REFMOD'.
-
- GOBACK.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14200: \$COBC -x prog3.cob"
-at_fn_check_prepare_dynamic "$COBC -x prog3.cob" "run_misc.at:14200"
-( $at_check_trace; $COBC -x prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14200"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14201: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:14201"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14201"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14202: \$COBC -x --debug -o prog3b prog3.cob"
-at_fn_check_prepare_dynamic "$COBC -x --debug -o prog3b prog3.cob" "run_misc.at:14202"
-( $at_check_trace; $COBC -x --debug -o prog3b prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14202"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14203: \$COBCRUN_DIRECT ./prog3b"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog3b" "run_misc.at:14203"
-( $at_check_trace; $COBCRUN_DIRECT ./prog3b
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog3.cob:20: error: length of 'mytab' out of bounds: 99, maximum: 52
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:14203"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_843
-#AT_START_844
-at_fn_group_banner 844 'run_misc.at:14210' \
- "runtime check: write to internal storage (1)" " " 4
-at_xfail=no
-(
- printf "%s\n" "844. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# note: this check is likely unportable and therefore will likely be adjusted/skipped,
-# mainly because the memory layout of consecutive variables is not guaranteed;
-# it is expected to raise a crash if C bound checking is enabled
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
-
- 01 var PIC X.
- 01 vars.
- 03 filler PIC X.
- 03 vars-field PIC X.
-
- 01 varg GLOBAL.
- 03 filler PIC X.
- 03 varg-field PIC X.
- 01 vare EXTERNAL.
- 03 filler PIC X.
- 03 vare-field PIC X.
- 01 varb BASED.
- 03 filler PIC X.
- 03 varb-field PIC X.
- LINKAGE SECTION.
- 01 varl PIC X.
- 01 varls.
- 03 filler PIC X.
- 03 varls-field PIC X.
-
- PROCEDURE DIVISION.
- *
- CALL "callee" USING var
- * without the check this second call would SIGSEGV
- CALL "callee" USING var
-
- * the following are mostly in to co-test the codegen
- CALL "callee" USING vars
- CALL "callee" USING varg
- CALL "callee" USING vare
- CALL "callee" USING varb
- CALL "callee" USING varl
- CALL "callee" USING varls
- CALL "callee" USING vars-field
- CALL "callee" USING varg-field
- CALL "callee" USING vare-field
- CALL "callee" USING varb-field
- CALL "callee" USING varls-field
-
- GOBACK.
-_ATEOF
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
-
- DATA DIVISION.
- LINKAGE SECTION.
-
- 77 var PIC X.
- 01 lrec.
- 03 lvar PIC X(32).
- 03 lvar2 PIC X(32).
-
- PROCEDURE DIVISION USING var.
- *
- SET ADDRESS OF lrec TO ADDRESS OF var
- SET ADDRESS OF lrec DOWN BY 32
- MOVE SPACES TO lrec
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14286: \$COMPILE -fno-ec=program-arg-mismatch -fmemory-check=pointer caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fno-ec=program-arg-mismatch -fmemory-check=pointer caller.cob" "run_misc.at:14286"
-( $at_check_trace; $COMPILE -fno-ec=program-arg-mismatch -fmemory-check=pointer caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14286"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14287: \$COMPILE_MODULE -fno-ec=program-arg-mismatch callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE -fno-ec=program-arg-mismatch callee.cob" "run_misc.at:14287"
-( $at_check_trace; $COMPILE_MODULE -fno-ec=program-arg-mismatch callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14287"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14288: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_misc.at:14288"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: caller.cob:30: error: memory violation detected after CALL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:14288"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14292: \$COMPILE -fno-ec=program-arg-mismatch -fmemory-check=using caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fno-ec=program-arg-mismatch -fmemory-check=using caller.cob" "run_misc.at:14292"
-( $at_check_trace; $COMPILE -fno-ec=program-arg-mismatch -fmemory-check=using caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14292"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14293: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_misc.at:14293"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: caller.cob:30: error: memory violation detected for 'var' after CALL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:14293"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14297: \$COMPILE -fno-ec=program-arg-mismatch -fmemory-check caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fno-ec=program-arg-mismatch -fmemory-check caller.cob" "run_misc.at:14297"
-( $at_check_trace; $COMPILE -fno-ec=program-arg-mismatch -fmemory-check caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14297"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14298: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_misc.at:14298"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: caller.cob:30: error: memory violation detected for 'var' after CALL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:14298"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14302: \$COMPILE -fno-ec=program-arg-mismatch -fmemory-check=all caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fno-ec=program-arg-mismatch -fmemory-check=all caller.cob" "run_misc.at:14302"
-( $at_check_trace; $COMPILE -fno-ec=program-arg-mismatch -fmemory-check=all caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14302"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14303: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_misc.at:14303"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: caller.cob:30: error: memory violation detected for 'var' after CALL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:14303"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_844
-#AT_START_845
-at_fn_group_banner 845 'run_misc.at:14310' \
- "runtime check: write to internal storage (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "845. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# PROG A (WS 16 bytes) has its WS overwritten and calls PROG B
-# because of the write outside of WS the internal storage is broken
-# and the call pointer contains an invalid address
-# note: this check is possibly unportable and therefore will likely be adjusted/skipped
-# it is expected to raise a crash if C bound checking is enabled
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
-
- 01 DUMMY-STORAGE PIC X(128).
-
- PROCEDURE DIVISION.
- * using the var so cobc cannot easily optimize that out
- IF DUMMY-STORAGE (1:1) <> SPACE INITIALIZE DUMMY-STORAGE.
-
- * We use a simple wrapper to make it _less_ likely that the
- * following "real test" SIGSEGVs during MOVE
- CALL STATIC "progt".
-
- * we don't expect to ever get here - but this creates more
- * memory space to decrease the likelyness of a SIGSEGV more
- CALL STATIC "dummy".
-
- GOBACK.
- END PROGRAM prog.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. progt.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
-
- 77 PNT USAGE POINTER EXTERNAL.
-
- 01 REC.
- 03 VAR PIC X.
- 03 VAR2 PIC X.
-
- LINKAGE SECTION.
- 01 LREC.
- 03 LVAR PIC X(64).
- 03 LVAR2 PIC X(64).
-
- PROCEDURE DIVISION.
- * using a (not working) call prevents the C compiler
- * to know that we (do not) change the pointer variable
- * and therefore disallows it to check
- * "that points to VAR2, you only have 2 bytes" (done with gcc -O)
- SET PNT TO ADDRESS OF VAR2.
- CALL "notthere" USING PNT ON EXCEPTION CONTINUE.
- SET ADDRESS OF LREC TO PNT.
- MOVE SPACES TO LREC.
-
- CALL "broken".
-
- GOBACK.
- END PROGRAM progt.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. dummy.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
-
- 01 DUMMY-STORAGE PIC X(128).
-
- PROCEDURE DIVISION.
- * using the var so cobc cannot easily optimize that out
- IF DUMMY-STORAGE (1:1) <> SPACE INITIALIZE DUMMY-STORAGE.
-
- GOBACK.
- END PROGRAM dummy.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14391: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:14391"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14391"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# skipping the (nonportable) test - hardened GCC SIGSEGVs on the bad MOVE,
-# clang use a different memory layout so we never actually break
-# the call-pointers
-printf "%s\n" "run_misc.at:14396" >"$at_check_line_file"
-at_fn_check_skip 77 "$at_srcdir/run_misc.at:14396"
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14398: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:14398"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:52: error: memory violation detected after INIT CALL
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:14398"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_845
-#AT_START_846
-at_fn_group_banner 846 'run_misc.at:14405' \
- "libcob version check" " " 4
-at_xfail=no
-(
- printf "%s\n" "846. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# using a C program here, normally this would be called from old or newer modules
-cat >prog.c <<'_ATEOF'
-
-#include <stdio.h>
-#include <libcob.h>
-
-#define COUNT_OF(x) (sizeof(x)/sizeof(x[0]))
-
-struct verify_t {
- char *prog, *packver_prog;
- int patchlev_prog;
-} verify[] = {
-#include "testdata.h"
-};
-
-int
-main(int argc, char *argv[])
-{
- struct verify_t *p;
- for( p=verify; p < verify + COUNT_OF(verify); p++ ) {
- cob_check_version(p->prog, p->packver_prog, p->patchlev_prog);
- }
- return 0;
-}
-_ATEOF
-
-
-# good cases
-cat >testdata.h <<'_ATEOF'
-
-#define TST_STRINGIFY(s) #s
-#define TST_XSTRINGIFY(s) TST_STRINGIFY (s)
- { "test22", "2.2", 0 },
-/* { "TestMatch1",
- TST_XSTRINGIFY (__LIBCOB_VERSION) "."
- TST_XSTRINGIFY (__LIBCOB_VERSION_MINOR) "."
- TST_XSTRINGIFY (__LIBCOB_VERSION_PATCHLEVEL),
- 0}, */
- { "TestMatch2",
- TST_XSTRINGIFY (__LIBCOB_VERSION) "."
- TST_XSTRINGIFY (__LIBCOB_VERSION_MINOR) "."
- "0",
- 0},
- { "TestMatch3",
- TST_XSTRINGIFY (__LIBCOB_VERSION) "."
- TST_XSTRINGIFY (__LIBCOB_VERSION_MINOR),
- 0 }
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14454: \$COMPILE prog.c"
-at_fn_check_prepare_dynamic "$COMPILE prog.c" "run_misc.at:14454"
-( $at_check_trace; $COMPILE prog.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14454"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14455: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:14455"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14455"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >testdata.h <<'_ATEOF'
-
- { "TooSmall1", "1.1", 0 }
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14460: \$COMPILE -o small1 prog.c"
-at_fn_check_prepare_dynamic "$COMPILE -o small1 prog.c" "run_misc.at:14460"
-( $at_check_trace; $COMPILE -o small1 prog.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14460"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14461: \$COBCRUN_DIRECT ./small1 2>small1.log"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./small1 2>small1.log" "run_misc.at:14461"
-( $at_check_trace; $COBCRUN_DIRECT ./small1 2>small1.log
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:14461"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14462: \$GREP -v \"libcob has\" small1.log"
-at_fn_check_prepare_dynamic "$GREP -v \"libcob has\" small1.log" "run_misc.at:14462"
-( $at_check_trace; $GREP -v "libcob has" small1.log
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "libcob: error: version mismatch
-note: TooSmall1 has version 1.1.0
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14462"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >testdata.h <<'_ATEOF'
-
- { "TooSmall2", "2.0", 0 }
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14470: \$COMPILE -o small2 prog.c"
-at_fn_check_prepare_dynamic "$COMPILE -o small2 prog.c" "run_misc.at:14470"
-( $at_check_trace; $COMPILE -o small2 prog.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14470"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14471: \$COBCRUN_DIRECT ./small2 2>small2.log"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./small2 2>small2.log" "run_misc.at:14471"
-( $at_check_trace; $COBCRUN_DIRECT ./small2 2>small2.log
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:14471"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14472: \$GREP -v \"libcob has\" small2.log"
-at_fn_check_prepare_dynamic "$GREP -v \"libcob has\" small2.log" "run_misc.at:14472"
-( $at_check_trace; $GREP -v "libcob has" small2.log
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "libcob: error: version mismatch
-note: TooSmall2 has version 2.0.0
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14472"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >testdata.h <<'_ATEOF'
-
- { "TooHigh1", "3.3", 0 },
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14480: \$COMPILE -o high1 prog.c"
-at_fn_check_prepare_dynamic "$COMPILE -o high1 prog.c" "run_misc.at:14480"
-( $at_check_trace; $COMPILE -o high1 prog.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14480"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14481: \$COBCRUN_DIRECT ./high1 2>high1.log"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./high1 2>high1.log" "run_misc.at:14481"
-( $at_check_trace; $COBCRUN_DIRECT ./high1 2>high1.log
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:14481"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14482: \$GREP -v \"libcob has\" high1.log"
-at_fn_check_prepare_dynamic "$GREP -v \"libcob has\" high1.log" "run_misc.at:14482"
-( $at_check_trace; $GREP -v "libcob has" high1.log
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "libcob: error: version mismatch
-note: TooHigh1 has version 3.3.0
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14482"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >testdata.h <<'_ATEOF'
-
- { "TooHigh2", "4.0", 0 }
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14490: \$COMPILE -o high2 prog.c"
-at_fn_check_prepare_dynamic "$COMPILE -o high2 prog.c" "run_misc.at:14490"
-( $at_check_trace; $COMPILE -o high2 prog.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14490"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14491: \$COBCRUN_DIRECT ./high2 2>high2.log"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./high2 2>high2.log" "run_misc.at:14491"
-( $at_check_trace; $COBCRUN_DIRECT ./high2 2>high2.log
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:14491"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14492: \$GREP -v \"libcob has\" high2.log"
-at_fn_check_prepare_dynamic "$GREP -v \"libcob has\" high2.log" "run_misc.at:14492"
-( $at_check_trace; $GREP -v "libcob has" high2.log
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "libcob: error: version mismatch
-note: TooHigh2 has version 4.0.0
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14492"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >testdata.h <<'_ATEOF'
-
- { "TooHigh3", "4.0.1", 2 }
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14500: \$COMPILE -o high3 prog.c"
-at_fn_check_prepare_dynamic "$COMPILE -o high3 prog.c" "run_misc.at:14500"
-( $at_check_trace; $COMPILE -o high3 prog.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14500"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14501: \$COBCRUN_DIRECT ./high3 2>high3.log"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./high3 2>high3.log" "run_misc.at:14501"
-( $at_check_trace; $COBCRUN_DIRECT ./high3 2>high3.log
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_misc.at:14501"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14502: \$GREP -v \"libcob has\" high3.log"
-at_fn_check_prepare_dynamic "$GREP -v \"libcob has\" high3.log" "run_misc.at:14502"
-( $at_check_trace; $GREP -v "libcob has" high3.log
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "libcob: error: version mismatch
-note: TooHigh3 has version 4.0.1.2
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14502"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_846
-#AT_START_847
-at_fn_group_banner 847 'run_misc.at:14510' \
- "assorted math" " " 4
-at_xfail=no
-(
- printf "%s\n" "847. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# this is a test containing different small reproducers from
-# bug reports
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 n pic 99 value 89.
- 01 m pic 99 value 0.
- 01 variable usage signed-int value 0.
- 88 a-one value 1.
- 88 a-two value 2.
- PROCEDURE DIVISION.
- *> bug #702, "pow"-call in generated program
- display n(n**0+ 1:) with no advancing.
- display "-" with no advancing.
- display n(n**m+ 1:) with no advancing.
- *> bug #631 arithmetic handling (optimize code)
- if not a-one and not a-two
- display 'succeeded'
- else
- display 'failed'.
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14539: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_misc.at:14539"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14539"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14540: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:14540"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "9-9succeeded
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14540"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_847
-#AT_START_848
-at_fn_group_banner 848 'run_misc.at:14547' \
- "compare numeric DISPLAY SPACE with ZERO" " " 4
-at_xfail=no
-(
- printf "%s\n" "848. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TST-VARS.
- 03 TST-NUMBER PIC 9(6).
- 03 TST-NUMBER-SIGNED PIC S9(6).
- 03 TST-DECIMAL PIC 9(2)V9(4).
- 03 TST-DECIMAL-SIGNED PIC S9(2)V9(4).
- 77 ZERO-DECIMAL PIC 9(2)V9(4) VALUE ZERO.
- 77 ZERO-NUMBER PIC 9(6) VALUE ZERO.
-
- PROCEDURE DIVISION.
- MOVE SPACES TO TST-VARS
-
- IF TST-NUMBER > 0
- DISPLAY "TST-NUMBER IS > 0".
- IF TST-NUMBER NOT = 0
- DISPLAY "TST-NUMBER IS NOT 0".
- IF TST-NUMBER < 0
- DISPLAY "TST-NUMBER IS < 0".
-
- IF TST-NUMBER-SIGNED > 0
- DISPLAY "TST-NUMBER-SIGNED IS > 0".
- IF TST-NUMBER-SIGNED NOT = 0
- DISPLAY "TST-NUMBER-SIGNED IS NOT 0".
- IF TST-NUMBER-SIGNED < 0
- DISPLAY "TST-NUMBER-SIGNED IS < 0".
-
- IF TST-DECIMAL > 0
- DISPLAY "TST-DECIMAL IS > 0".
- IF TST-DECIMAL NOT = 0
- DISPLAY "TST-DECIMAL IS NOT 0".
- IF TST-DECIMAL < 0
- DISPLAY "TST-DECIMAL IS < 0".
-
- IF TST-DECIMAL-SIGNED > 0
- DISPLAY "TST-DECIMAL-SIGNED IS > 0".
- IF TST-DECIMAL-SIGNED NOT = 0
- DISPLAY "TST-DECIMAL-SIGNED IS NOT 0".
- IF TST-DECIMAL-SIGNED < 0
- DISPLAY "TST-DECIMAL-SIGNED IS < 0".
-
- IF TST-NUMBER > ZERO-NUMBER
- DISPLAY "TST-NUMBER IS > ZERO-NUMBER".
- IF TST-NUMBER NOT = ZERO-NUMBER
- DISPLAY "TST-NUMBER IS NOT ZERO-NUMBER".
- IF TST-NUMBER < ZERO-NUMBER
- DISPLAY "TST-NUMBER IS < ZERO-NUMBER".
-
- IF TST-NUMBER-SIGNED > ZERO-NUMBER
- DISPLAY "TST-NUMBER-SIGNED IS > ZERO-NUMBER".
- IF TST-NUMBER-SIGNED NOT = ZERO-NUMBER
- DISPLAY "TST-NUMBER-SIGNED IS NOT ZERO-NUMBER".
- IF TST-NUMBER-SIGNED < ZERO-NUMBER
- DISPLAY "TST-NUMBER-SIGNED IS < ZERO-NUMBER".
-
- IF TST-DECIMAL > ZERO-NUMBER
- DISPLAY "TST-DECIMAL IS > ZERO-NUMBER".
- IF TST-DECIMAL NOT = ZERO-NUMBER
- DISPLAY "TST-DECIMAL IS NOT ZERO-NUMBER".
- IF TST-DECIMAL < ZERO-NUMBER
- DISPLAY "TST-DECIMAL IS < ZERO-NUMBER".
-
- IF TST-DECIMAL-SIGNED > ZERO-NUMBER
- DISPLAY "TST-DECIMAL-SIGNED IS > ZERO-NUMBER".
- IF TST-DECIMAL-SIGNED NOT = ZERO-NUMBER
- DISPLAY "TST-DECIMAL-SIGNED IS NOT ZERO-NUMBER".
- IF TST-DECIMAL-SIGNED < ZERO-NUMBER
- DISPLAY "TST-DECIMAL-SIGNED IS < ZERO-NUMBER".
-
- IF TST-NUMBER > ZERO-DECIMAL
- DISPLAY "TST-NUMBER IS > ZERO-DECIMAL".
- IF TST-NUMBER NOT = ZERO-DECIMAL
- DISPLAY "TST-NUMBER IS NOT ZERO-DECIMAL".
- IF TST-NUMBER < ZERO-DECIMAL
- DISPLAY "TST-NUMBER IS < ZERO-DECIMAL".
-
- IF TST-NUMBER-SIGNED > ZERO-DECIMAL
- DISPLAY "TST-NUMBER-SIGNED IS > ZERO-DECIMAL".
- IF TST-NUMBER-SIGNED NOT = ZERO-DECIMAL
- DISPLAY "TST-NUMBER-SIGNED IS NOT ZERO-DECIMAL".
- IF TST-NUMBER-SIGNED < ZERO-DECIMAL
- DISPLAY "TST-NUMBER-SIGNED IS < ZERO-DECIMAL".
-
- IF TST-DECIMAL > ZERO-DECIMAL
- DISPLAY "TST-DECIMAL IS > ZERO-DECIMAL".
- IF TST-DECIMAL NOT = ZERO-DECIMAL
- DISPLAY "TST-DECIMAL IS NOT ZERO-DECIMAL".
- IF TST-DECIMAL < ZERO-DECIMAL
- DISPLAY "TST-DECIMAL IS < ZERO-DECIMAL".
-
- IF TST-DECIMAL-SIGNED > ZERO-DECIMAL
- DISPLAY "TST-DECIMAL-SIGNED IS > ZERO-DECIMAL".
- IF TST-DECIMAL-SIGNED NOT = ZERO-DECIMAL
- DISPLAY "TST-DECIMAL-SIGNED IS NOT ZERO-DECIMAL".
- IF TST-DECIMAL-SIGNED < ZERO-DECIMAL
- DISPLAY "TST-DECIMAL-SIGNED IS < ZERO-DECIMAL".
-
- GOBACK.
-_ATEOF
-
-
-# dropping "fast compare" does an internal numeric compare, where invalid data
-# in USAGE DISPLAY is converted (onlysecond half-byte used) and leading SPACE
-# is skipped in general
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14656: \$COMPILE -Wno-constant-expression -fno-fast-compare prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -Wno-constant-expression -fno-fast-compare prog.cob" "run_misc.at:14656"
-( $at_check_trace; $COMPILE -Wno-constant-expression -fno-fast-compare prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14656"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14657: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:14657"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14657"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# with "fast compare" enabled, the same PIC+USAGE leads to memcmp, therefore the
-# result differs with invalid data; note: the exact "difference" is unportable
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14661: \$COMPILE -Wno-constant-expression prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -Wno-constant-expression prog.cob" "run_misc.at:14661"
-( $at_check_trace; $COMPILE -Wno-constant-expression prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14661"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_misc.at:14662: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_misc.at:14662"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "TST-NUMBER IS NOT ZERO-NUMBER
-TST-NUMBER IS < ZERO-NUMBER
-TST-DECIMAL IS NOT ZERO-DECIMAL
-TST-DECIMAL IS < ZERO-DECIMAL
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_misc.at:14662"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# result with MF would be:
-# TST-NUMBER IS NOT 0
-# TST-NUMBER IS < 0
-# TST-NUMBER-SIGNED IS NOT 0
-# TST-NUMBER-SIGNED IS < 0
-# TST-NUMBER IS NOT ZERO-NUMBER
-# TST-NUMBER IS < ZERO-NUMBER
-# TST-NUMBER-SIGNED IS NOT ZERO-NUMBER
-# TST-NUMBER-SIGNED IS < ZERO-NUMBER
-# TST-DECIMAL IS NOT ZERO-DECIMAL
-# TST-DECIMAL IS < ZERO-DECIMAL
-# TST-DECIMAL-SIGNED IS NOT ZERO-DECIMAL
-# TST-DECIMAL-SIGNED IS < ZERO-DECIMAL
-# CHECKME: Do we want to mimic that with -std=mf?
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_848
-#AT_START_849
-at_fn_group_banner 849 'run_file.at:23' \
- "OPEN EXTEND and CLOSE, SEQUENTIAL" " " 4
-at_xfail=no
-(
- printf "%s\n" "849. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT OPTIONAL FILE-OPT
- ASSIGN TO "testfile"
- ORGANIZATION IS SEQUENTIAL
- FILE STATUS IS WSFS.
- SELECT FILE0 ASSIGN TO "testfile"
- ORGANIZATION IS SEQUENTIAL
- FILE STATUS IS WSFS.
- DATA DIVISION.
- FILE SECTION.
- FD FILE0.
- 01 F0REC PIC X(80).
- FD FILE-OPT.
- 01 FOREC PIC X(80).
- WORKING-STORAGE SECTION.
- 01 WSFS PIC X(2).
- PROCEDURE DIVISION.
- *
- OPEN EXTEND FILE-OPT
- IF WSFS NOT = "05"
- DISPLAY "STATUS EXTEND, missing optional file:" WSFS.
- MOVE ALL "A" TO FOREC
- WRITE FOREC
- IF WSFS NOT = "00"
- DISPLAY "STATUS WRITE A:" WSFS.
- CLOSE FILE-OPT
- IF WSFS NOT = "00"
- DISPLAY "STATUS CLOSE:" WSFS.
- OPEN EXTEND FILE0
- IF WSFS NOT = "00"
- DISPLAY "STATUS EXTEND, empty file:" WSFS.
- MOVE ALL "B" TO F0REC
- WRITE F0REC
- IF WSFS NOT = "00"
- DISPLAY "STATUS WRITE B:" WSFS.
- CLOSE FILE0
- *
- OPEN INPUT FILE-OPT
- IF WSFS NOT = "00"
- DISPLAY "STATUS INPUT:" WSFS.
- READ FILE-OPT NEXT
- IF WSFS NOT = "00"
- DISPLAY "STATUS READ A:" WSFS.
- READ FILE-OPT NEXT
- IF WSFS NOT = "00"
- DISPLAY "STATUS READ B:" WSFS.
- CLOSE FILE-OPT
- *
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:83: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:83"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:83"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:84: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:84"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:84"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_849
-#AT_START_850
-at_fn_group_banner 850 'run_file.at:89' \
- "variable-length SEQUENTIAL data integrity" " " 4
-at_xfail=no
-(
- printf "%s\n" "850. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# LINE SEQUENTIAL testfile, read as variable RECORD
-cat >TEST1 <<'_ATEOF'
-<?xml version="1.0" encoding="ISO-8859-1"?>
-<SampleTag Test="v0.1" Date="2022-02-16" Heure="10:56:11">
- <ListeAccuse>
- <Accuse Type="type1" tag1="123" tag2="456" tag3="789"/>
- <Accuse Type="type1" tag1="123" tag2="456" tag3="789"/>
- <Accuse Type="type1" tag1="123" tag2="456" tag3="789"/>
- <Accuse Type="type2" tag1="123" tag2="456" tag3="789"/>
- <Accuse Type="type2" tag1="123" tag2="456" tag3="789"/>
- <Accuse Type="type2" tag1="123" tag2="456" tag3="789"/>
- <Accuse Type="type2" tag1="123" tag2="456" tag3="789"/>
- <Accuse Type="type2" tag1="123" tag2="456" tag3="789"/>
- </ListeAccuse>
-</SampleTag>
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-XML00 ASSIGN TO 'DATA' FILE STATUS ST-TEST.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-XML00 RECORD VARYING FROM 5 TO 500 CHARACTERS.
- 01 E-ENR PIC X(500).
- WORKING-STORAGE SECTION.
- 01 ST-TEST PIC X(2).
- 01 W-TYPE PIC 9(03) VALUE ZERO.
- 01 EOF-TEST-XML PIC 9(03) VALUE ZERO.
- 01 COUNT-PASS PIC 9(02) VALUE ZERO.
- PROCEDURE DIVISION.
- DEBUT.
- OPEN INPUT TEST-XML00
- IF ST-TEST (1:) NOT = "00"
- DISPLAY "OPEN ERROR: " ST-TEST WITH NO ADVANCING
- GOBACK.
- INITIALIZE W-TYPE E-ENR
- PERFORM UNTIL (EOF-TEST-XML = 1 OR (W-TYPE = 1 OR 2))
- READ TEST-XML00 NEXT
- AT END
- MOVE 1 TO EOF-TEST-XML
- NOT AT END
- ADD 1 TO COUNT-PASS
- END-READ
- END-PERFORM
- CLOSE TEST-XML00
- DISPLAY COUNT-PASS
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:144: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:144"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:144"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:145: DD_DATA=TEST1 \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "DD_DATA=TEST1 $COBCRUN_DIRECT ./prog" "run_file.at:145"
-( $at_check_trace; DD_DATA=TEST1 $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OPEN ERROR: 39" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:145"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# TODO: add testcase that has a valid length first to check for later
-# status 04 on read - both with "record too long" and "record too small"
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_850
-#AT_START_851
-at_fn_group_banner 851 'run_file.at:154' \
- "DELETE FILE, SEQUENTIAL" " " 4
-at_xfail=no
-(
- printf "%s\n" "851. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT OPTIONAL FILE-OPT
- ASSIGN TO "testfile"
- ORGANIZATION IS SEQUENTIAL
- FILE STATUS IS WSFS.
- DATA DIVISION.
- FILE SECTION.
- FD FILE-OPT.
- 01 FOREC PIC X(80).
- WORKING-STORAGE SECTION.
- 01 WSFS PIC X(2).
- PROCEDURE DIVISION.
- *
- *> DELETE FILE FILE-OPT
- *> ON EXCEPTION
- *> DISPLAY "STATUS DELETE FILE (missing) - EXCEPTION:" WSFS
- *> END-DISPLAY
- *> NOT ON EXCEPTION
- *> IF WSFS NOT = "05"
- *> DISPLAY "STATUS DELETE FILE (missing):" WSFS
- *> END-IF
- *> END-DELETE
- OPEN I-O FILE-OPT
- IF WSFS NOT = "05"
- DISPLAY "STATUS I-O, missing optional file:" WSFS.
- CLOSE FILE-OPT
- IF WSFS NOT = "00"
- DISPLAY "STATUS CLOSE:" WSFS.
- OPEN I-O FILE-OPT
- IF WSFS NOT = "00"
- DISPLAY "STATUS I-O, empty file:" WSFS.
- DELETE FILE FILE-OPT
- *> ON EXCEPTION
- IF WSFS NOT = "41"
- DISPLAY "STATUS DELETE FILE (OPENED):" WSFS
- END-IF
- *> NOT ON EXCEPTION
- *> DISPLAY "STATUS DELETE FILE (OPENED) - NO EXCEPTION:" WSFS
- *> END-DELETE
- CLOSE FILE-OPT
- IF WSFS NOT = "00"
- DISPLAY "STATUS CLOSE #2:" WSFS.
- DELETE FILE FILE-OPT
- *> ON EXCEPTION
- *> DISPLAY "STATUS DELETE FILE (closed) - EXCEPTION:" WSFS
- *> END-DISPLAY
- *> NOT ON EXCEPTION
- IF WSFS NOT = "00"
- DISPLAY "STATUS DELETE FILE (closed):" WSFS
- END-IF
- *> END-DELETE
- *
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:218: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:218"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:218"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:219: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:219"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:219"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_851
-#AT_START_852
-at_fn_group_banner 852 'run_file.at:224' \
- "OUTPUT on SEQUENTIAL file to missing directory" " " 4
-at_xfail=no
-(
- printf "%s\n" "852. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT FILE0 ASSIGN TO "./nosubhere/MYFILE0"
- ORGANIZATION IS SEQUENTIAL
- FILE STATUS IS WSFS.
- DATA DIVISION.
- FILE SECTION.
- FD FILE0.
- 01 F0REC PIC X(80).
- WORKING-STORAGE SECTION.
- 01 WSFS PIC X(2).
- PROCEDURE DIVISION.
- *
- OPEN OUTPUT FILE0
- IF WSFS NOT = "30"
- DISPLAY "STATUS OPENO " WSFS.
- *
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:252: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:252"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:252"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:253: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:253"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:253"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-cat >nosubhere <<'_ATEOF'
-Test
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:256: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:256"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:256"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_852
-#AT_START_853
-at_fn_group_banner 853 'run_file.at:261' \
- "OPEN EXTEND and CLOSE, INDEXED" " " 4
-at_xfail=no
-(
- printf "%s\n" "853. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-printf "%s\n" "run_file.at:264" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:264"
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT OPTIONAL FILE-OPT
- ASSIGN TO "testfile"
- ORGANIZATION IS INDEXED
- RECORD KEY IS FOREC
- FILE STATUS IS WSFS.
- SELECT FILE0 ASSIGN TO "testfile"
- ORGANIZATION IS INDEXED
- RECORD KEY IS F0REC
- FILE STATUS IS WSFS.
- DATA DIVISION.
- FILE SECTION.
- FD FILE0.
- 01 F0REC PIC X(80).
- FD FILE-OPT.
- 01 FOREC PIC X(80).
- WORKING-STORAGE SECTION.
- 01 WSFS PIC X(2).
- PROCEDURE DIVISION.
- *
- OPEN EXTEND FILE-OPT
- IF WSFS NOT = "05"
- DISPLAY "STATUS EXTEND, missing optional file:" WSFS.
- MOVE ALL "A" TO FOREC
- WRITE FOREC
- IF WSFS NOT = "00"
- DISPLAY "STATUS WRITE A:" WSFS.
- CLOSE FILE-OPT
- IF WSFS NOT = "00"
- DISPLAY "STATUS CLOSE:" WSFS.
- OPEN EXTEND FILE0
- IF WSFS NOT = "00"
- DISPLAY "STATUS EXTEND, empty file:" WSFS.
- MOVE ALL "B" TO F0REC
- WRITE F0REC
- IF WSFS NOT = "00"
- DISPLAY "STATUS WRITE B:" WSFS.
- CLOSE FILE0
- *
- OPEN INPUT FILE-OPT
- IF WSFS NOT = "00"
- DISPLAY "STATUS INPUT:" WSFS.
- MOVE ALL "A" TO FOREC
- READ FILE-OPT
- IF WSFS NOT = "00"
- DISPLAY "STATUS READ A:" WSFS.
- MOVE ALL "B" TO FOREC
- READ FILE-OPT
- IF WSFS NOT = "00"
- DISPLAY "STATUS READ B:" WSFS.
- CLOSE FILE-OPT
- *
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:327: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:327"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:327"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:328: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:328"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:328"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_853
-#AT_START_854
-at_fn_group_banner 854 'run_file.at:333' \
- "DELETE FILE, INDEXED" " " 4
-at_xfail=no
-(
- printf "%s\n" "854. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-printf "%s\n" "run_file.at:336" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:336"
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT OPTIONAL FILE-OPT
- ASSIGN TO "testfile"
- ORGANIZATION IS INDEXED
- RECORD KEY IS FOREC
- FILE STATUS IS WSFS.
- DATA DIVISION.
- FILE SECTION.
- FD FILE-OPT.
- 01 FOREC PIC X(80).
- WORKING-STORAGE SECTION.
- 01 WSFS PIC X(2).
- PROCEDURE DIVISION.
- *
- *> DELETE FILE FILE-OPT
- *> ON EXCEPTION
- *> DISPLAY "STATUS DELETE FILE (missing) - EXCEPTION: " WSFS
- *> END-DISPLAY
- *> NOT ON EXCEPTION
- *> IF WSFS NOT = "05"
- *> DISPLAY "STATUS DELETE FILE (missing): " WSFS
- *> END-IF
- *> END-DELETE
- OPEN I-O FILE-OPT
- IF WSFS NOT = "05"
- DISPLAY "STATUS I-O, missing optional file: " WSFS.
- CLOSE FILE-OPT
- IF WSFS NOT = "00"
- DISPLAY "STATUS CLOSE: " WSFS.
- OPEN I-O FILE-OPT
- IF WSFS NOT = "00"
- DISPLAY "STATUS I-O, empty file: " WSFS.
- DELETE FILE FILE-OPT
- *> ON EXCEPTION
- IF WSFS NOT = "41"
- DISPLAY "STATUS DELETE FILE (opened): " WSFS
- END-IF
- *> NOT ON EXCEPTION
- *> DISPLAY "STATUS DELETE FILE (opened) - NO EXCEPTION: " WSFS
- *> END-DELETE
- CLOSE FILE-OPT
- IF WSFS NOT = "00"
- DISPLAY "STATUS CLOSE #2: " WSFS.
- DELETE FILE FILE-OPT
- *> ON EXCEPTION
- *> DISPLAY "STATUS DELETE FILE (closed) - EXCEPTION: " WSFS
- *> END-DISPLAY
- *> NOT ON EXCEPTION
- IF WSFS NOT = "00"
- DISPLAY "STATUS DELETE FILE (closed): " WSFS
- END-IF
- *> END-DELETE
- *
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:400: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:400"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:400"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:401: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:401"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:401"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_854
-#AT_START_855
-at_fn_group_banner 855 'run_file.at:406' \
- "OUTPUT on INDEXED file to missing directory" " " 4
-at_xfail=no
-(
- printf "%s\n" "855. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:409: \$SKIP_TEST_TEMPORARILY"
-at_fn_check_prepare_dynamic "$SKIP_TEST_TEMPORARILY" "run_file.at:409"
-( $at_check_trace; $SKIP_TEST_TEMPORARILY
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:409"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-printf "%s\n" "run_file.at:410" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:410"
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT FILE0 ASSIGN TO "./nosubhere/MYFILE0"
- ORGANIZATION IS INDEXED
- RECORD KEY IS F0REC
- FILE STATUS IS WSFS.
- DATA DIVISION.
- FILE SECTION.
- FD FILE0.
- 01 F0REC PIC X(80).
- WORKING-STORAGE SECTION.
- 01 WSFS PIC X(2).
- PROCEDURE DIVISION.
- *
- OPEN OUTPUT FILE0
- IF WSFS NOT = "30"
- DISPLAY "STATUS OPENO " WSFS.
- *
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:438: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:438"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:438"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:439: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:439"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:439"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-cat >nosubhere <<'_ATEOF'
-Test
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:442: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:442"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:442"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_855
-#AT_START_856
-at_fn_group_banner 856 'run_file.at:447' \
- "READ INTO data item AT-END sequence" " " 4
-at_xfail=no
-(
- printf "%s\n" "856. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN "./TEST-FILE".
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(10).
- WORKING-STORAGE SECTION.
- 01 X PIC X(10).
- PROCEDURE DIVISION.
- OPEN OUTPUT TEST-FILE.
- CLOSE TEST-FILE.
- OPEN INPUT TEST-FILE.
- READ TEST-FILE INTO X
- AT END MOVE ALL ZERO TO X
- END-READ.
- CLOSE TEST-FILE.
- IF X NOT = "0000000000"
- DISPLAY "Expected zeros - Got " X
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:478: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:478"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:478"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:479: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:479"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:479"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_856
-#AT_START_857
-at_fn_group_banner 857 'run_file.at:484' \
- "First READ on empty SEQUENTIAL INDEXED file" " " 4
-at_xfail=no
-(
- printf "%s\n" "857. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-printf "%s\n" "run_file.at:487" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:487"
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN "./TEST-FILE"
- ORGANIZATION IS INDEXED
- ACCESS MODE IS SEQUENTIAL
- RECORD KEY IS TEST-KEY.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-KEY PIC X(10).
- PROCEDURE DIVISION.
- OPEN OUTPUT TEST-FILE.
- CLOSE TEST-FILE.
- OPEN INPUT TEST-FILE.
- READ TEST-FILE
- AT END
- CONTINUE
- NOT AT END
- DISPLAY "NOT OK"
- END-DISPLAY
- END-READ.
- CLOSE TEST-FILE.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:518: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:518"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:518"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:519: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:519"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:519"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_857
-#AT_START_858
-at_fn_group_banner 858 'run_file.at:524' \
- "READ NEXT without previous START" " " 4
-at_xfail=no
-(
- printf "%s\n" "858. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-printf "%s\n" "run_file.at:527" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:527"
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN "./TEST-FILE"
- ORGANIZATION IS INDEXED
- ACCESS MODE IS SEQUENTIAL
- RECORD KEY IS TEST-KEY.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC.
- 05 TEST-KEY PIC X(10).
- 05 TEST-DATA PIC X.
- PROCEDURE DIVISION.
- OPEN OUTPUT TEST-FILE
- MOVE '1' TO TEST-KEY
- MOVE 'A' TO TEST-DATA
- WRITE TEST-REC
- MOVE '3' TO TEST-KEY
- MOVE 'B' TO TEST-DATA
- WRITE TEST-REC
- CLOSE TEST-FILE
- OPEN INPUT TEST-FILE
- READ TEST-FILE NEXT
- AT END
- DISPLAY "AT END FOR REC1"
- END-DISPLAY
- CLOSE TEST-FILE
- STOP RUN
- NOT AT END
- CONTINUE
- END-READ
- IF TEST-DATA NOT = 'A'
- DISPLAY "WRONG REC1: '" TEST-REC "'"
- END-DISPLAY
- END-IF
- READ TEST-FILE NEXT
- AT END
- DISPLAY "AT END FOR REC2"
- END-DISPLAY
- CLOSE TEST-FILE
- STOP RUN
- NOT AT END
- CONTINUE
- END-READ.
- IF TEST-DATA NOT = 'B'
- DISPLAY "WRONG REC2: '" TEST-REC "'"
- END-DISPLAY
- END-IF
- READ TEST-FILE NEXT
- AT END
- CONTINUE
- NOT AT END
- DISPLAY "NOT AT END AFTER REC2"
- END-DISPLAY
- END-READ
- IF TEST-DATA NOT = 'B'
- DISPLAY "DATE CHANGED ON EOF: '" TEST-REC "'"
- END-DISPLAY
- END-IF
- CLOSE TEST-FILE
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:596: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:596"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:596"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:597: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:597"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:597"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_858
-#AT_START_859
-at_fn_group_banner 859 'run_file.at:602' \
- "REWRITE a RELATIVE file with RANDOM access" " " 4
-at_xfail=no
-(
- printf "%s\n" "859. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN "./TEST-FILE"
- ORGANIZATION IS RELATIVE
- ACCESS MODE IS RANDOM
- RELATIVE KEY IS TEST-KEY.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X.
- WORKING-STORAGE SECTION.
- 01 TEST-KEY PIC 9.
- PROCEDURE DIVISION.
- *
- OPEN OUTPUT TEST-FILE.
- MOVE 1 TO TEST-KEY.
- MOVE "A" TO TEST-REC.
- WRITE TEST-REC
- END-WRITE.
- MOVE 2 TO TEST-KEY.
- MOVE "B" TO TEST-REC.
- WRITE TEST-REC
- END-WRITE.
- CLOSE TEST-FILE.
- *
- OPEN I-O TEST-FILE.
- MOVE 1 TO TEST-KEY.
- READ TEST-FILE
- END-READ.
- MOVE 2 TO TEST-KEY.
- MOVE "C" TO TEST-REC.
- REWRITE TEST-REC
- END-REWRITE.
- CLOSE TEST-FILE.
- *
- OPEN INPUT TEST-FILE.
- MOVE 1 TO TEST-KEY.
- READ TEST-FILE
- END-READ.
- IF TEST-REC NOT = "A"
- DISPLAY "Expected 'A' - Got " TEST-REC
- END-DISPLAY
- END-IF.
- MOVE 2 TO TEST-KEY.
- READ TEST-FILE
- END-READ.
- IF TEST-REC NOT = "C"
- DISPLAY "Expected 'C' - Got " TEST-REC
- END-DISPLAY
- END-IF.
- CLOSE TEST-FILE.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:663: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:663"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:663"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:664: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:664"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:664"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_859
-#AT_START_860
-at_fn_group_banner 860 'run_file.at:672' \
- "ASSIGN DYNAMIC and EXTERNAL" " " 4
-at_xfail=no
-(
- printf "%s\n" "860. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT f ASSIGN whatever
- ORGANIZATION LINE SEQUENTIAL.
-
- DATA DIVISION.
- FILE SECTION.
- FD f.
- 01 f-rec PIC XXX.
-
- WORKING-STORAGE SECTION.
- 01 whatever PIC X(10) VALUE "out.txt".
-
- PROCEDURE DIVISION.
- OPEN OUTPUT f
- WRITE f-rec FROM "hi"
- CLOSE f
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:700: \$COMPILE -fassign-clause=external prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fassign-clause=external prog.cob" "run_file.at:700"
-( $at_check_trace; $COMPILE -fassign-clause=external prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:700"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:702: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:702"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:702"
-$at_failed && at_fn_log_failure \
-"whatever"
-$at_traceon; }
-
-cat >reference <<'_ATEOF'
-hi
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:706: diff reference whatever"
-at_fn_check_prepare_trace "run_file.at:706"
-( $at_check_trace; diff reference whatever
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:706"
-$at_failed && at_fn_log_failure \
-"whatever"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:708: \$COMPILE -fassign-clause=dynamic -fno-implicit-assign-dynamic-var prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fassign-clause=dynamic -fno-implicit-assign-dynamic-var prog.cob" "run_file.at:708"
-( $at_check_trace; $COMPILE -fassign-clause=dynamic -fno-implicit-assign-dynamic-var prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:708"
-$at_failed && at_fn_log_failure \
-"whatever"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:709: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:709"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:709"
-$at_failed && at_fn_log_failure \
-"whatever"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:710: diff reference whatever"
-at_fn_check_prepare_trace "run_file.at:710"
-( $at_check_trace; diff reference whatever
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:710"
-$at_failed && at_fn_log_failure \
-"whatever"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:712: \$COMPILE -fassign-clause=dynamic prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fassign-clause=dynamic prog.cob" "run_file.at:712"
-( $at_check_trace; $COMPILE -fassign-clause=dynamic prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:712"
-$at_failed && at_fn_log_failure \
-"whatever"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:714: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:714"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:714"
-$at_failed && at_fn_log_failure \
-"whatever" \
-"out.txt"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:715: diff reference out.txt"
-at_fn_check_prepare_trace "run_file.at:715"
-( $at_check_trace; diff reference out.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:715"
-$at_failed && at_fn_log_failure \
-"whatever" \
-"out.txt"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_860
-#AT_START_861
-at_fn_group_banner 861 'run_file.at:720' \
- "ASSIGN EXTERNAL parsing" " " 4
-at_xfail=no
-(
- printf "%s\n" "861. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- *> Labels should be removed from EXTERNAL name.
- SELECT TEST-FILE ASSIGN DA-S-FILENAME.
- *> EXTERNAL name allowed to duplicate FD name.
- SELECT TESTFILE2 ASSIGN TESTFILE2.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(4).
- FD TESTFILE2.
- 01 TESTREC2 PIC X(4).
- PROCEDURE DIVISION.
- OPEN OUTPUT TEST-FILE.
- CLOSE TEST-FILE.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:745: \$COMPILE -fassign-clause=external prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fassign-clause=external prog.cob" "run_file.at:745"
-( $at_check_trace; $COMPILE -fassign-clause=external prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: warning: ASSIGN DA-S-FILENAME interpreted as 'FILENAME'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:745"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:748: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:748"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:748"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:749: test -f FILENAME"
-at_fn_check_prepare_trace "run_file.at:749"
-( $at_check_trace; test -f FILENAME
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:749"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_861
-#AT_START_862
-at_fn_group_banner 862 'run_file.at:754' \
- "ASSIGN directive" " " 4
-at_xfail=no
-(
- printf "%s\n" "862. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT f ASSIGN whatever
- ORGANIZATION LINE SEQUENTIAL.
- $SET ASSIGN "EXTERNAL"
- SELECT g ASSIGN whatever
- ORGANIZATION LINE SEQUENTIAL.
-
- DATA DIVISION.
- FILE SECTION.
- FD f.
- 01 f-rec PIC XXX.
- FD g.
- 01 g-rec PIC XXX.
-
- PROCEDURE DIVISION.
- MOVE "out.txt" TO whatever
-
- OPEN OUTPUT f
- WRITE f-rec FROM "hi"
- CLOSE f
-
- OPEN OUTPUT g
- WRITE g-rec FROM "hi"
- CLOSE g
- .
- END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:791: \$COMPILE -fassign-clause=dynamic prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fassign-clause=dynamic prog.cob" "run_file.at:791"
-( $at_check_trace; $COMPILE -fassign-clause=dynamic prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:791"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:792: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:792"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:792"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_862
-#AT_START_863
-at_fn_group_banner 863 'run_file.at:797' \
- "ASSIGN filename expansion" " " 4
-at_xfail=no
-(
- printf "%s\n" "863. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN "$DIR/FILENAME".
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(4).
- PROCEDURE DIVISION.
- OPEN OUTPUT TEST-FILE.
- CLOSE TEST-FILE.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:817: \$COMPILE -ffilename-mapping prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -ffilename-mapping prog.cob" "run_file.at:817"
-( $at_check_trace; $COMPILE -ffilename-mapping prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:817"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:818: DIR=\".\" \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "DIR=\".\" $COBCRUN_DIRECT ./prog" "run_file.at:818"
-( $at_check_trace; DIR="." $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:818"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:819: test -f \"./FILENAME\" && rm -f \"./FILENAME\""
-at_fn_check_prepare_trace "run_file.at:819"
-( $at_check_trace; test -f "./FILENAME" && rm -f "./FILENAME"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:819"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_863
-#AT_START_864
-at_fn_group_banner 864 'run_file.at:824' \
- "ASSIGN filename mapping" " " 4
-at_xfail=no
-(
- printf "%s\n" "864. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN "FILENAME".
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(4).
- PROCEDURE DIVISION.
- OPEN OUTPUT TEST-FILE.
- CLOSE TEST-FILE.
- STOP RUN.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN "FILENAME2".
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(4).
- PROCEDURE DIVISION.
- OPEN OUTPUT TEST-FILE.
- CLOSE TEST-FILE.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:861: \$COMPILE -fno-filename-mapping prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fno-filename-mapping prog.cob" "run_file.at:861"
-( $at_check_trace; $COMPILE -fno-filename-mapping prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:861"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:862: DD_FILENAME=\"x\" \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "DD_FILENAME=\"x\" $COBCRUN_DIRECT ./prog" "run_file.at:862"
-( $at_check_trace; DD_FILENAME="x" $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:862"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:863: test -f \"x\""
-at_fn_check_prepare_trace "run_file.at:863"
-( $at_check_trace; test -f "x"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_file.at:863"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:864: test -f \"FILENAME\""
-at_fn_check_prepare_trace "run_file.at:864"
-( $at_check_trace; test -f "FILENAME"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:864"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:866: \$COMPILE -ffilename-mapping prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE -ffilename-mapping prog2.cob" "run_file.at:866"
-( $at_check_trace; $COMPILE -ffilename-mapping prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:866"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:867: DD_FILENAME2=\"x\" \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "DD_FILENAME2=\"x\" $COBCRUN_DIRECT ./prog2" "run_file.at:867"
-( $at_check_trace; DD_FILENAME2="x" $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:867"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:868: test -f \"FILENAME2\""
-at_fn_check_prepare_trace "run_file.at:868"
-( $at_check_trace; test -f "FILENAME2"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_file.at:868"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:869: test -f \"x\""
-at_fn_check_prepare_trace "run_file.at:869"
-( $at_check_trace; test -f "x"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:869"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:870: dd_FILENAME2=\"y\" \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "dd_FILENAME2=\"y\" $COBCRUN_DIRECT ./prog2" "run_file.at:870"
-( $at_check_trace; dd_FILENAME2="y" $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:870"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:871: test -f \"y\""
-at_fn_check_prepare_trace "run_file.at:871"
-( $at_check_trace; test -f "y"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:871"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:872: FILENAME2=\"z\" \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "FILENAME2=\"z\" $COBCRUN_DIRECT ./prog2" "run_file.at:872"
-( $at_check_trace; FILENAME2="z" $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:872"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:873: test -f \"z\""
-at_fn_check_prepare_trace "run_file.at:873"
-( $at_check_trace; test -f "z"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:873"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:874: FILENAME2=\"\\\"QUOTE\\\"\" \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "FILENAME2=\"\\\"QUOTE\\\"\" $COBCRUN_DIRECT ./prog2" "run_file.at:874"
-( $at_check_trace; FILENAME2="\"QUOTE\"" $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:874"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:875: test -f \"QUOTE\""
-at_fn_check_prepare_trace "run_file.at:875"
-( $at_check_trace; test -f "QUOTE"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:875"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:876: FILENAME2=\\'APOST\\' \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "FILENAME2=\\'APOST\\' $COBCRUN_DIRECT ./prog2" "run_file.at:876"
-( $at_check_trace; FILENAME2=\'APOST\' $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:876"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:877: test -f \"APOST\""
-at_fn_check_prepare_trace "run_file.at:877"
-( $at_check_trace; test -f "APOST"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:877"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:878: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "run_file.at:878"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:878"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:879: test -f \"FILENAME2\""
-at_fn_check_prepare_trace "run_file.at:879"
-( $at_check_trace; test -f "FILENAME2"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:879"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog3.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT OPTIONAL INFILE ASSIGN TO "MYFILE"
- ORGANIZATION IS RELATIVE
- ACCESS IS SEQUENTIAL
- FILE STATUS IS WSFS.
- DATA DIVISION.
- FILE SECTION.
- FD INFILE.
- 01 INREC PIC X(80).
- WORKING-STORAGE SECTION.
- 01 WSFS PIC X(2).
- PROCEDURE DIVISION.
- *
- * open missing file
- OPEN INPUT INFILE
- DISPLAY "STATUS OPENI " WSFS
- CLOSE INFILE
- *
- * create missing file
- OPEN OUTPUT INFILE
- DISPLAY "STATUS OPENO " WSFS
- CLOSE INFILE
- *
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:913: \$COMPILE prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog3.cob" "run_file.at:913"
-( $at_check_trace; $COMPILE prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:913"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:915: \$COBCRUN_DIRECT ./prog3"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog3" "run_file.at:915"
-( $at_check_trace; $COBCRUN_DIRECT ./prog3
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "STATUS OPENI 05
-STATUS OPENO 00
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:915"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:919: test -f \"MYFILE\""
-at_fn_check_prepare_trace "run_file.at:919"
-( $at_check_trace; test -f "MYFILE"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:919"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:921: \$COBCRUN_DIRECT ./prog3"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog3" "run_file.at:921"
-( $at_check_trace; $COBCRUN_DIRECT ./prog3
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "STATUS OPENI 00
-STATUS OPENO 00
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:921"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:926: MYFILE=\"TSTFILE\" \$COBCRUN_DIRECT ./prog3"
-at_fn_check_prepare_dynamic "MYFILE=\"TSTFILE\" $COBCRUN_DIRECT ./prog3" "run_file.at:926"
-( $at_check_trace; MYFILE="TSTFILE" $COBCRUN_DIRECT ./prog3
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "STATUS OPENI 05
-STATUS OPENO 00
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:926"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:930: test -f \"TSTFILE\""
-at_fn_check_prepare_trace "run_file.at:930"
-( $at_check_trace; test -f "TSTFILE"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:930"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:932: dd_MYFILE=\"TSTFILE2\" \$COBCRUN_DIRECT ./prog3"
-at_fn_check_prepare_dynamic "dd_MYFILE=\"TSTFILE2\" $COBCRUN_DIRECT ./prog3" "run_file.at:932"
-( $at_check_trace; dd_MYFILE="TSTFILE2" $COBCRUN_DIRECT ./prog3
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "STATUS OPENI 05
-STATUS OPENO 00
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:932"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:936: test -f \"TSTFILE2\""
-at_fn_check_prepare_trace "run_file.at:936"
-( $at_check_trace; test -f "TSTFILE2"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:936"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:938: DD_MYFILE=\"TSTFILE3\" \$COBCRUN_DIRECT ./prog3"
-at_fn_check_prepare_dynamic "DD_MYFILE=\"TSTFILE3\" $COBCRUN_DIRECT ./prog3" "run_file.at:938"
-( $at_check_trace; DD_MYFILE="TSTFILE3" $COBCRUN_DIRECT ./prog3
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "STATUS OPENI 05
-STATUS OPENO 00
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:938"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:942: test -f \"TSTFILE3\""
-at_fn_check_prepare_trace "run_file.at:942"
-( $at_check_trace; test -f "TSTFILE3"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:942"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:944: DD_MYFILE=\"./nosubhere/TSTFILE\" \$COBCRUN_DIRECT ./prog3"
-at_fn_check_prepare_dynamic "DD_MYFILE=\"./nosubhere/TSTFILE\" $COBCRUN_DIRECT ./prog3" "run_file.at:944"
-( $at_check_trace; DD_MYFILE="./nosubhere/TSTFILE" $COBCRUN_DIRECT ./prog3
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "STATUS OPENI 05
-STATUS OPENO 30
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:944"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog4.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog4.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT FILE0 ASSIGN TO "./nosubhere/MYFILE0"
- ORGANIZATION IS LINE SEQUENTIAL
- FILE STATUS IS WSFS.
- SELECT FILE1 ASSIGN TO "MYFILE1"
- ORGANIZATION IS LINE SEQUENTIAL
- FILE STATUS IS WSFS.
- SELECT FILE2 ASSIGN TO FILENAME
- ORGANIZATION IS LINE SEQUENTIAL
- FILE STATUS IS WSFS.
- DATA DIVISION.
- FILE SECTION.
- FD FILE0.
- 01 F0REC PIC X(80).
- FD FILE1.
- 01 F1REC PIC X(80).
- FD FILE2.
- 01 F2REC PIC X(80).
- WORKING-STORAGE SECTION.
- 77 FILENAME PIC X(80) VALUE "MYFILE2".
- 01 WSFS PIC X(2).
- PROCEDURE DIVISION.
- *
- OPEN OUTPUT FILE0
- DISPLAY "STATUS OPENO 0 " WSFS
- OPEN OUTPUT FILE1
- DISPLAY "STATUS OPENO 1 " WSFS
- OPEN OUTPUT FILE2
- DISPLAY "STATUS OPENO 2 " WSFS
- *
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:988: \$COMPILE prog4.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog4.cob" "run_file.at:988"
-( $at_check_trace; $COMPILE prog4.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:988"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:990: DD_MYFILE1=\"./nosubhere/NOFILE1\" DD_MYFILE2=\"./nosubhere/NOFILE2\" \\
-\$COBCRUN_DIRECT ./prog4"
-at_fn_check_prepare_notrace 'an embedded newline' "run_file.at:990"
-( $at_check_trace; DD_MYFILE1="./nosubhere/NOFILE1" DD_MYFILE2="./nosubhere/NOFILE2" \
-$COBCRUN_DIRECT ./prog4
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "STATUS OPENO 0 30
-STATUS OPENO 1 30
-STATUS OPENO 2 30
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:990"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_864
-#AT_START_865
-at_fn_group_banner 865 'run_file.at:1000' \
- "ASSIGN with COB_FILE_PATH" " " 4
-at_xfail=no
-(
- printf "%s\n" "865. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN "FILENAMEX".
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(4).
- PROCEDURE DIVISION.
- OPEN OUTPUT TEST-FILE.
- CLOSE TEST-FILE.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1020: \$COMPILE -ffilename-mapping prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -ffilename-mapping prog.cob" "run_file.at:1020"
-( $at_check_trace; $COMPILE -ffilename-mapping prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:1020"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1021: rm -rf \"tstdir\" && mkdir \"tstdir\""
-at_fn_check_prepare_trace "run_file.at:1021"
-( $at_check_trace; rm -rf "tstdir" && mkdir "tstdir"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:1021"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1022: COB_FILE_PATH=\"tstdir\" \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_FILE_PATH=\"tstdir\" $COBCRUN_DIRECT ./prog" "run_file.at:1022"
-( $at_check_trace; COB_FILE_PATH="tstdir" $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:1022"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1023: test -f \"tstdir/FILENAMEX\" && rm -f \"tstdir/FILENAMEX\""
-at_fn_check_prepare_trace "run_file.at:1023"
-( $at_check_trace; test -f "tstdir/FILENAMEX" && rm -f "tstdir/FILENAMEX"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:1023"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1024: COB_FILE_PATH=\"tstdir/\" \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_FILE_PATH=\"tstdir/\" $COBCRUN_DIRECT ./prog" "run_file.at:1024"
-( $at_check_trace; COB_FILE_PATH="tstdir/" $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:1024"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1025: test -f \"tstdir/FILENAMEX\""
-at_fn_check_prepare_trace "run_file.at:1025"
-( $at_check_trace; test -f "tstdir/FILENAMEX"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:1025"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# FIXME: on OPEN we should also output the full filename (if any) leading to the error
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1028: COB_FILE_PATH=\"./nosubhere\" \$COBCRUN_DIRECT ./prog 2>prog.err"
-at_fn_check_prepare_dynamic "COB_FILE_PATH=\"./nosubhere\" $COBCRUN_DIRECT ./prog 2>prog.err" "run_file.at:1028"
-( $at_check_trace; COB_FILE_PATH="./nosubhere" $COBCRUN_DIRECT ./prog 2>prog.err
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_file.at:1028"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# workaround for testing windows-builds...
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1030: cat prog.err | tr '\\\\' '/'"
-at_fn_check_prepare_notrace 'a shell pipeline' "run_file.at:1030"
-( $at_check_trace; cat prog.err | tr '\\' '/'
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "libcob: prog.cob:13: error: permanent file error (status = 30) for file TEST-FILE ('FILENAMEX' => ./nosubhere/FILENAMEX) on OPEN
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:1030"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_865
-#AT_START_866
-at_fn_group_banner 866 'run_file.at:1037' \
- "ASSIGN DYNAMIC with LOCAL-STORAGE item" " " 4
-at_xfail=no
-(
- printf "%s\n" "866. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >test.txt <<'_ATEOF'
-hello
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT test-file ASSIGN path
- ORGANIZATION LINE SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD test-file.
- 01 test-rec PIC X(5).
- LOCAL-STORAGE SECTION.
- 01 path PIC X(10) VALUE "test.txt".
- PROCEDURE DIVISION.
- OPEN INPUT test-file
- READ test-file END-READ
- IF test-rec NOT = "hello"
- DISPLAY test-rec END-DISPLAY
- END-IF
- CLOSE test-file
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1068: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:1068"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:1068"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1069: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:1069"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:1069"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_866
-#AT_START_867
-at_fn_group_banner 867 'run_file.at:1074' \
- "ASSIGN DYNAMIC with LOCAL-STORAGE item, INITIAL" "" 4
-at_xfail=no
-(
- printf "%s\n" "867. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# Files are initialised in a different location in INITIAL program, hence the
-# need for a separate test.
-
-cat >test.txt <<'_ATEOF'
-hello
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog INITIAL.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT test-file ASSIGN path
- ORGANIZATION LINE SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD test-file.
- 01 test-rec PIC X(5).
- LOCAL-STORAGE SECTION.
- 01 path PIC X(10) VALUE "test.txt".
- PROCEDURE DIVISION.
- OPEN INPUT test-file
- READ test-file END-READ
- IF test-rec NOT = "hello"
- DISPLAY test-rec END-DISPLAY
- END-IF
- CLOSE test-file
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1108: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:1108"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:1108"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1109: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:1109"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:1109"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_867
-#AT_START_868
-at_fn_group_banner 868 'run_file.at:1114' \
- "ASSIGN DYNAMIC with BASED data item" " " 4
-at_xfail=no
-(
- printf "%s\n" "868. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >TEST-FILE <<'_ATEOF'
-hello
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT test-file ASSIGN path
- ORGANIZATION LINE SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD test-file.
- 01 test-rec PIC X(5).
- WORKING-STORAGE SECTION.
- 01 path BASED PIC X(10).
- 01 x PIC X.
- PROCEDURE DIVISION CHAINING x.
- IF x NOT = SPACES
- ALLOCATE path
- MOVE "TEST-FILE" TO path
- OPEN INPUT test-file
- FREE path
- ELSE
- OPEN INPUT test-file
- END-IF
- READ test-file END-READ
- IF test-rec NOT = "hello"
- DISPLAY test-rec END-DISPLAY
- END-IF
- CLOSE test-file
- STOP RUN.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT test-file ASSIGN path
- ORGANIZATION LINE SEQUENTIAL
- FILE STATUS TEST-STAT.
- DATA DIVISION.
- FILE SECTION.
- FD test-file.
- 01 test-rec PIC X(5).
- WORKING-STORAGE SECTION.
- 01 path BASED PIC X(10).
- 01 test-stat PIC X(2) VALUE "XX".
- PROCEDURE DIVISION.
- OPEN INPUT test-file
- IF TEST-STAT NOT = '31'
- DISPLAY 'BAD OPEN, STATUS "' test-stat '"' END-DISPLAY
- END-IF
- READ test-file END-READ
- IF TEST-STAT NOT = '47'
- DISPLAY 'BAD READ, STATUS "' test-stat '"' END-DISPLAY
- END-IF
- CLOSE test-file
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1182: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:1182"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:1182"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1183: \$COBCRUN_DIRECT ./prog X"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog X" "run_file.at:1183"
-( $at_check_trace; $COBCRUN_DIRECT ./prog X
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:1183"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1184: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:1184"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:23: error: inconsistent file name (status = 31) for file test-file ('field with NULL address') on OPEN
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_file.at:1184"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# Tested again without source location and checks
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1188: \$COBC -x prog.cob"
-at_fn_check_prepare_dynamic "$COBC -x prog.cob" "run_file.at:1188"
-( $at_check_trace; $COBC -x prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:1188"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1189: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:1189"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: error: inconsistent file name (status = 31) for file test-file ('field with NULL address')
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_file.at:1189"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1194: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_file.at:1194"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:1194"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1195: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "run_file.at:1195"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:1195"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_868
-#AT_START_869
-at_fn_group_banner 869 'run_file.at:1200' \
- "ASSIGN DYNAMIC with data item in LINKAGE" " " 4
-at_xfail=no
-(
- printf "%s\n" "869. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 f-path PIC X(80) VALUE "fooasg.txt".
- 01 x-path PIC X(80) VALUE "foxasg.txt".
- 01 y-path PIC X(80) VALUE "foyasg.txt".
- 01 REC1 PIC 9(4) VALUE 1.
- 01 REC2 PIC 9(4) VALUE 2.
- 01 CUST-STAT PIC X(2) VALUE "XX".
-
- PROCEDURE DIVISION.
- CALL "TSTOPN" USING OMITTED.
- CALL "TSTOPN" USING y-path.
- CALL "TSTOPEN" USING f-path REC1 CUST-STAT.
- CALL "TSTOPEN" USING x-path REC1 CUST-STAT.
- CALL "TSTOPEN" USING OMITTED REC1 CUST-STAT.
- CALL "TSTOPEN" USING f-path REC2 CUST-STAT.
- CALL "TSTOPEN" USING x-path REC2 CUST-STAT.
- STOP RUN.
- END PROGRAM prog.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. TSTOPEN.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT f ASSIGN s-path
- ORGANIZATION RELATIVE
- ACCESS IS RANDOM
- RELATIVE KEY IS REC-NUM
- FILE STATUS IS CUST-STAT.
-
- DATA DIVISION.
- FILE SECTION.
- FD f.
- 01 f-line PIC X(79).
-
- WORKING-STORAGE SECTION.
- 01 z-path PIC X(80) VALUE "foozzz.txt".
-
- LINKAGE SECTION.
- 01 s-path PIC X(80).
- 01 REC-NUM PIC 9(4).
- 01 CUST-STAT PIC X(2).
-
- PROCEDURE DIVISION USING OPTIONAL s-path, REC-NUM, CUST-STAT.
- IF ADDRESS OF s-path = NULL
- SET ADDRESS OF s-path TO ADDRESS OF z-path
- END-IF.
- IF REC-NUM > 1
- OPEN I-O f
- DISPLAY "Extend file: " s-path(1:10)
- " - " CUST-STAT " #" REC-NUM "."
- ELSE
- OPEN OUTPUT f
- DISPLAY "Output file: " s-path(1:10)
- " - " CUST-STAT " #" REC-NUM "."
- END-IF.
- IF CUST-STAT NOT = "00"
- DISPLAY "Opened error: " CUST-STAT "."
- GOBACK
- END-IF.
- MOVE "Hello World" TO f-line.
- MOVE REC-NUM TO f-line (20:4).
- WRITE f-line.
- IF CUST-STAT NOT = "00"
- DISPLAY "WRITE error: " CUST-STAT "."
- END-IF.
- CLOSE f.
- GOBACK.
- END PROGRAM TSTOPEN.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. TSTOPN.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT f ASSIGN s-path
- ORGANIZATION LINE SEQUENTIAL
- FILE STATUS IS IO-STS.
-
- DATA DIVISION.
- FILE SECTION.
- FD f.
- 01 f-line PIC X(80).
-
- WORKING-STORAGE SECTION.
- 01 IO-STS PIC X(2) VALUE "00".
-
- LINKAGE SECTION.
- 01 s-path PIC X(80).
-
- PROCEDURE DIVISION USING OPTIONAL s-path.
- OPEN OUTPUT f
- IF IO-STS NOT = "00"
- DISPLAY "Opened error: " IO-STS "."
- GOBACK
- END-IF.
- DISPLAY "Opened file: " s-path(1:10) ".".
- MOVE "Hello World" TO f-line.
- WRITE f-line.
- CLOSE f.
- GOBACK.
- END PROGRAM TSTOPN.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
-
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
-
- PROCEDURE DIVISION.
- CALL "TSTOPEN" USING OMITTED.
- STOP RUN.
- END PROGRAM prog2.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. TSTOPEN.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT f ASSIGN s-path
- ORGANIZATION SEQUENTIAL.
-
- DATA DIVISION.
- FILE SECTION.
- FD f.
- 01 f-line PIC X(79).
-
- LINKAGE SECTION.
- 01 s-path PIC X(80).
-
- PROCEDURE DIVISION USING OPTIONAL s-path.
- OPEN OUTPUT f
- GOBACK.
- END PROGRAM TSTOPEN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1351: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:1351"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:1351"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1353: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:1353"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Opened error: 31.
-Opened file: foyasg.txt.
-Output file: fooasg.txt - 00 #0001.
-Output file: foxasg.txt - 00 #0001.
-Output file: foozzz.txt - 00 #0001.
-Extend file: fooasg.txt - 00 #0002.
-Extend file: foxasg.txt - 00 #0002.
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:1353"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1363: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_file.at:1363"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:1363"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1365: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "run_file.at:1365"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog2.cob:32: error: inconsistent file name (status = 31) for file f ('field with NULL address') on OPEN
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_file.at:1365"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_869
-#AT_START_870
-at_fn_group_banner 870 'run_file.at:1372' \
- "ASSIGN DYNAMIC with empty data item" " " 4
-at_xfail=no
-(
- printf "%s\n" "870. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT test-file ASSIGN path
- ORGANIZATION LINE SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD test-file.
- 01 test-rec PIC X(5).
- WORKING-STORAGE SECTION.
- 01 path PIC X(10).
- 01 x PIC X.
- PROCEDURE DIVISION CHAINING x.
- IF X = SPACE
- MOVE SPACES TO path
- ELSE
- MOVE LOW-VALUES TO path
- END-IF
- OPEN INPUT test-file
- DISPLAY "Hello"
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1401: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:1401"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:1401"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1402: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:1402"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:22: error: inconsistent file name (status = 31) for file test-file ('') on OPEN
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_file.at:1402"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1405: \$COBCRUN_DIRECT ./prog X"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog X" "run_file.at:1405"
-( $at_check_trace; $COBCRUN_DIRECT ./prog X
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:22: error: inconsistent file name (status = 31) for file test-file ('') on OPEN
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_file.at:1405"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_870
-#AT_START_871
-at_fn_group_banner 871 'run_file.at:1412' \
- "ASSIGN DYNAMIC with unset implicit data item" " " 4
-at_xfail=no
-(
- printf "%s\n" "871. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT test-file ASSIGN fpath
- ORGANIZATION LINE SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD test-file.
- 01 test-rec PIC X(5).
- PROCEDURE DIVISION.
- OPEN INPUT test-file
- DISPLAY "Hello"
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1433: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:1433"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:1433"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1434: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:1434"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:14: error: file does not exist (status = 35) for file test-file ('fpath') on OPEN
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_file.at:1434"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1437: fpath=\"not.there\" \$COBCRUN_DIRECT ./prog X"
-at_fn_check_prepare_dynamic "fpath=\"not.there\" $COBCRUN_DIRECT ./prog X" "run_file.at:1437"
-( $at_check_trace; fpath="not.there" $COBCRUN_DIRECT ./prog X
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:14: error: file does not exist (status = 35) for file test-file ('fpath' => not.there) on OPEN
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_file.at:1437"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_871
-#AT_START_872
-at_fn_group_banner 872 'run_file.at:1444' \
- "INDEXED file key-name" " " 4
-at_xfail=no
-(
- printf "%s\n" "872. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# FIXME: separate both test parts
-
-printf "%s\n" "run_file.at:1449" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:1449"
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. "test".
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN "FILE"
- ORGANIZATION IS INDEXED
- ACCESS IS DYNAMIC
- RECORD KEY IS KEY01 = QQINDEX.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC.
- 03 QQDATA PIC X(80).
- 03 QQINDEX PIC XXX9999.
- 03 QQSEQUENCE PIC 9999.
- PROCEDURE DIVISION.
- OPEN OUTPUT TEST-FILE
- MOVE 'TEST DATA 1' TO QQDATA
- MOVE 'ABC0001' TO QQINDEX
- WRITE TEST-REC
- MOVE 'TEST DATA 2' TO QQDATA
- MOVE 'ABC0002' TO QQINDEX
- WRITE TEST-REC
- CLOSE TEST-FILE
- DISPLAY 'FINE' WITH NO ADVANCING
- GOBACK.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1480: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:1480"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:1480"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1482: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:1482"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "FINE" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:1482"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_872
-#AT_START_873
-at_fn_group_banner 873 'run_file.at:1486' \
- "INDEXED file sparse/split keys" " " 4
-at_xfail=no
-(
- printf "%s\n" "873. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# FIXME: separate both test parts
-
-printf "%s\n" "run_file.at:1491" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:1491"
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
-
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
-
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TSPFILE
- ASSIGN TO "testisam"
- ORGANIZATION INDEXED ACCESS DYNAMIC
- RECORD KEY IS PRIME-KEY
- SOURCE IS CM-CUST-NUM, CM-COMPANY
-
- ALTERNATE RECORD KEY IS SPLIT-KEY2
- SOURCE IS CM-TELEPHONE,CM-MACHINE WITH DUPLICATES
-
- ALTERNATE RECORD KEY IS SPLIT-KEY3
- SOURCE IS CM-DISK,CM-TAPE WITH DUPLICATES
- SUPPRESS WHEN ALL "*"
- FILE STATUS IS CUST-STAT
- .
-
- DATA DIVISION.
- FILE SECTION.
- FD TSPFILE
- BLOCK CONTAINS 5 RECORDS.
-
- 01 TSPFL-RECORD.
- 05 TSPFL-REC.
- 10 CM-CUST-NUM PICTURE X(8).
- 10 CM-STATUS PICTURE X.
- 10 CM-COMPANY PICTURE X(25).
- 10 CM-ADDRESS-1 PICTURE X(25).
- 10 CM-ADDRESS-2 PICTURE X(25).
- 10 CM-ADDRESS-3 PICTURE X(25).
- 10 CM-TELEPHONE PICTURE 9(10).
- 10 CM-DP-MGR PICTURE X(25).
- 10 CM-MACHINE PICTURE X(8).
- 10 CM-MEMORY PICTURE X(4).
- 10 CM-DISK PICTURE X(8).
- 10 CM-TAPE PICTURE X(8).
- 10 CM-NO-TERMINALS PICTURE 9(5).
-
- WORKING-STORAGE SECTION.
-
- 01 CUST-STAT.
- 05 STAT-1 PICTURE 9(4) COMP SYNC.
- 05 FILLER REDEFINES STAT-1.
- 10 STAT-X1 PIC X COMP-X.
- 10 STAT-X2 PIC X COMP-X.
- 77 BYTE-1 PICTURE 9(3).
- 77 BYTE-2 PICTURE 9(3).
- 78 MAX-SUB VALUE 16.
-
- 01 TEST-DATA.
-
- 02 DATA-CUST-NUM-TBL.
-
- 05 FILLER PIC X(8) VALUE "ALP00000".
- 05 FILLER PIC X(8) VALUE "BET00000".
- 05 FILLER PIC X(8) VALUE "GAM00000".
- 05 FILLER PIC X(8) VALUE "DEL00000".
- 05 FILLER PIC X(8) VALUE "EPS00000".
- 05 FILLER PIC X(8) VALUE "FOR00000".
- 05 FILLER PIC X(8) VALUE "GIB00000".
- 05 FILLER PIC X(8) VALUE "H&J00000".
- 05 FILLER PIC X(8) VALUE "INC00000".
- 05 FILLER PIC X(8) VALUE "JOH00000".
- 05 FILLER PIC X(8) VALUE "KON00000".
- 05 FILLER PIC X(8) VALUE "LEW00000".
- 05 FILLER PIC X(8) VALUE "MOR00000".
- 05 FILLER PIC X(8) VALUE "NEW00000".
- 05 FILLER PIC X(8) VALUE "OLD00000".
- 05 FILLER PIC X(8) VALUE "PRE00000".
-
- 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL
- PIC X(8) OCCURS MAX-SUB.
- 02 DATA-COMPANY-TBL.
-
- 05 FILLER PIC X(25) VALUE "ALPHA ELECTRICAL CO. LTD.".
- 05 FILLER PIC X(25) VALUE "BETA SHOE MFG. INC. ".
- 05 FILLER PIC X(25) VALUE "GAMMA X-RAY TECHNOLOGY ".
- 05 FILLER PIC X(25) VALUE "DELTA LUGGAGE REPAIRS ".
- 05 FILLER PIC X(25) VALUE "EPSILON EQUIPMENT SUPPLY ".
- 05 FILLER PIC X(25) VALUE "FORTUNE COOKIE COMPANY ".
- 05 FILLER PIC X(25) VALUE "GIBRALTER LIFE INSURANCE ".
- 05 FILLER PIC X(25) VALUE "H & J PLUMBING SUPPLIES ".
- 05 FILLER PIC X(25) VALUE "INCREMENTAL BACKUP CORP. ".
- 05 FILLER PIC X(25) VALUE "JOHNSON BOATING SUPPLIES ".
- 05 FILLER PIC X(25) VALUE "KONFLAB PLASTIC PRODUCTS.".
- 05 FILLER PIC X(25) VALUE "LEWISTON GRAPHICS LTD. ".
- 05 FILLER PIC X(25) VALUE "MORNINGSIDE CARPENTRY. ".
- 05 FILLER PIC X(25) VALUE "NEW WAVE SURF SHOPS INC. ".
- 05 FILLER PIC X(25) VALUE "OLD TYME PIZZA MFG. CO. ".
- 05 FILLER PIC X(25) VALUE "PRESTIGE OFFICE FURNITURE".
-
- 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL
- PIC X(25) OCCURS MAX-SUB.
- 02 DATA-ADDRESS-1-TBL.
-
- 05 FILLER PIC X(25) VALUE "123 MAIN STREET ".
- 05 FILLER PIC X(25) VALUE "1090 2ND AVE. WEST ".
- 05 FILLER PIC X(25) VALUE "1401 JEFFERSON BLVD. ".
- 05 FILLER PIC X(25) VALUE "1620 ARIZONA WAY ".
- 05 FILLER PIC X(25) VALUE "1184 EAST FIRST STREET ".
- 05 FILLER PIC X(25) VALUE "114 JOHN F. KENNEDY AVE. ".
- 05 FILLER PIC X(25) VALUE "650 LIBERTY CRESCENT ".
- 05 FILLER PIC X(25) VALUE "77 SUNSET BLVD. ".
- 05 FILLER PIC X(25) VALUE "10908 SANTA MONICA BLVD. ".
- 05 FILLER PIC X(25) VALUE "1134 PARIS ROAD ".
- 05 FILLER PIC X(25) VALUE "808 NORTHWEST MAIN ST. ".
- 05 FILLER PIC X(25) VALUE "9904 QUEEN STREET ".
- 05 FILLER PIC X(25) VALUE "1709 DUNDAS CRESCENT W. ".
- 05 FILLER PIC X(25) VALUE "3240 MARIS AVENUE ".
- 05 FILLER PIC X(25) VALUE "1705 WISCONSIN ROAD ".
- 05 FILLER PIC X(25) VALUE "114A MAPLE GROVE ".
-
- 02 DATA-ADDRESS-1 REDEFINES DATA-ADDRESS-1-TBL
- PIC X(25) OCCURS MAX-SUB.
- 02 DATA-ADDRESS-2-TBL.
-
- 05 FILLER PIC X(10) VALUE "NEW YORK ".
- 05 FILLER PIC X(10) VALUE "ATLANTA ".
- 05 FILLER PIC X(10) VALUE "WASHINGTON".
- 05 FILLER PIC X(10) VALUE "TORONTO ".
- 05 FILLER PIC X(10) VALUE "CALGARY ".
- 05 FILLER PIC X(10) VALUE "SAN DIEGO ".
- 05 FILLER PIC X(10) VALUE "LOS RIOS ".
- 05 FILLER PIC X(10) VALUE "MADISON ".
- 05 FILLER PIC X(10) VALUE "WILBUR ".
- 05 FILLER PIC X(10) VALUE "TOPEKA ".
- 05 FILLER PIC X(10) VALUE "SEATTLE ".
- 05 FILLER PIC X(10) VALUE "NEW JERSEY".
- 05 FILLER PIC X(10) VALUE "FORT WAYNE".
- 05 FILLER PIC X(10) VALUE "COLUMBUS ".
- 05 FILLER PIC X(10) VALUE "RICHMOND ".
- 05 FILLER PIC X(10) VALUE "WHITEPLAIN".
-
- 02 DATA-ADDRESS-2 REDEFINES DATA-ADDRESS-2-TBL
- PIC X(10) OCCURS MAX-SUB.
- 02 DATA-ADDRESS-3-TBL.
-
- 05 FILLER PIC X(10) VALUE "N.Y. ".
- 05 FILLER PIC X(10) VALUE "GEORGIA ".
- 05 FILLER PIC X(10) VALUE "D.C. ".
- 05 FILLER PIC X(10) VALUE "CANADA ".
- 05 FILLER PIC X(10) VALUE "CANADA ".
- 05 FILLER PIC X(10) VALUE "CALIFORNIA".
- 05 FILLER PIC X(10) VALUE "NEW MEXICO".
- 05 FILLER PIC X(10) VALUE "WISCONSIN ".
- 05 FILLER PIC X(10) VALUE "DELAWARE ".
- 05 FILLER PIC X(10) VALUE "KANSAS ".
- 05 FILLER PIC X(10) VALUE "WASHINGTON".
- 05 FILLER PIC X(10) VALUE "N.J. ".
- 05 FILLER PIC X(10) VALUE "COLORADO ".
- 05 FILLER PIC X(10) VALUE "OHIO ".
- 05 FILLER PIC X(10) VALUE "VIRGINIA ".
- 05 FILLER PIC X(10) VALUE "N.Y. ".
-
- 02 DATA-ADDRESS-3 REDEFINES DATA-ADDRESS-3-TBL
- PIC X(10) OCCURS MAX-SUB.
- 02 DATA-TELEPHONE-TBL.
-
- 05 FILLER PIC 9(10) VALUE 3131234432.
- 05 FILLER PIC 9(10) VALUE 4082938498.
- 05 FILLER PIC 9(10) VALUE 8372487274.
- 05 FILLER PIC 9(10) VALUE 4169898509.
- 05 FILLER PIC 9(10) VALUE 5292398745.
- 05 FILLER PIC 9(10) VALUE 8009329492.
- 05 FILLER PIC 9(10) VALUE 6456445643.
- 05 FILLER PIC 9(10) VALUE 6546456333.
- 05 FILLER PIC 9(10) VALUE 3455445444.
- 05 FILLER PIC 9(10) VALUE 6456445643.
- 05 FILLER PIC 9(10) VALUE 7456434355.
- 05 FILLER PIC 9(10) VALUE 6554456433.
- 05 FILLER PIC 9(10) VALUE 4169898509.
- 05 FILLER PIC 9(10) VALUE 7534587453.
- 05 FILLER PIC 9(10) VALUE 8787458374.
- 05 FILLER PIC 9(10) VALUE 4169898509.
-
- 02 DATA-TELEPHONE REDEFINES DATA-TELEPHONE-TBL
- PIC 9(10) OCCURS MAX-SUB.
- 02 DATA-DP-MGR-TBL.
-
- 05 FILLER PIC X(20) VALUE "MR. DAVE HARRIS ".
- 05 FILLER PIC X(20) VALUE "MS. JANICE SILCOX ".
- 05 FILLER PIC X(20) VALUE "MR. ALLAN JONES ".
- 05 FILLER PIC X(20) VALUE "MR. PETER MACKAY ".
- 05 FILLER PIC X(20) VALUE "MRS. DONNA BREWER ".
- 05 FILLER PIC X(20) VALUE "MR. MICHAEL SMYTHE ".
- 05 FILLER PIC X(20) VALUE "MR. D.A. MORRISON ".
- 05 FILLER PIC X(20) VALUE "MR. BRIAN PATTERSON ".
- 05 FILLER PIC X(20) VALUE "MR. DARRYL TOWNSEND ".
- 05 FILLER PIC X(20) VALUE "MS. VALERIE HARPER ".
- 05 FILLER PIC X(20) VALUE "MR. FRED MILLER ".
- 05 FILLER PIC X(20) VALUE "MR. DONALD FISCHER ".
- 05 FILLER PIC X(20) VALUE "MR. STEVEN YOURDIN ".
- 05 FILLER PIC X(20) VALUE "MS. Goldie Hawn ".
- 05 FILLER PIC X(20) VALUE "MS. ALICE WINSTON ".
- 05 FILLER PIC X(20) VALUE "MR. THOMAS JEFFERSON".
-
- 02 DATA-DP-MGR REDEFINES DATA-DP-MGR-TBL
- PIC X(20) OCCURS MAX-SUB.
- 02 DATA-MACHINE-TBL.
-
- 05 FILLER PIC X(8) VALUE "UNI-9030".
- 05 FILLER PIC X(8) VALUE "UNI-9040".
- 05 FILLER PIC X(8) VALUE "UNI-80/3".
- 05 FILLER PIC X(8) VALUE "UNI-80/5".
- 05 FILLER PIC X(8) VALUE "UNI-80/6".
- 05 FILLER PIC X(8) VALUE "UNI-80/6".
- 05 FILLER PIC X(8) VALUE "UNI-80/6".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-9040".
- 05 FILLER PIC X(8) VALUE "UNI-9040".
-
- 02 DATA-MACHINE REDEFINES DATA-MACHINE-TBL
- PIC X(8) OCCURS MAX-SUB.
- 02 DATA-NO-TERMINALS-TBL.
-
- 05 FILLER PIC 9(3) COMP-3 VALUE 85.
- 05 FILLER PIC 9(3) COMP-3 VALUE 34.
- 05 FILLER PIC 9(3) COMP-3 VALUE 75.
- 05 FILLER PIC 9(3) COMP-3 VALUE 45.
- 05 FILLER PIC 9(3) COMP-3 VALUE 90.
- 05 FILLER PIC 9(3) COMP-3 VALUE 107.
- 05 FILLER PIC 9(3) COMP-3 VALUE 67.
- 05 FILLER PIC 9(3) COMP-3 VALUE 32.
- 05 FILLER PIC 9(3) COMP-3 VALUE 16.
- 05 FILLER PIC 9(3) COMP-3 VALUE 34.
- 05 FILLER PIC 9(3) COMP-3 VALUE 128.
- 05 FILLER PIC 9(3) COMP-3 VALUE 64.
- 05 FILLER PIC 9(3) COMP-3 VALUE 110.
- 05 FILLER PIC 9(3) COMP-3 VALUE 324.
- 05 FILLER PIC 9(3) COMP-3 VALUE 124.
- 05 FILLER PIC 9(3) COMP-3 VALUE 86.
-
- 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL
- PIC 9(3) COMP-3 OCCURS MAX-SUB.
-
- 78 REC-MAX VALUE 10.
- 01 WORK-AREA.
- 05 REC-NUM BINARY-SHORT UNSIGNED VALUE 0.
- 05 SUB BINARY-SHORT UNSIGNED.
- 88 ODD-RECORD VALUE 1 3 5 7 9 10 11.
- 88 NULL-KEY VALUE 4 5 8 12 14.
-
- 05 TSPFL-KEY PICTURE X(8).
-
- PROCEDURE DIVISION.
-
- MAINFILE.
- PERFORM LOADFILE.
- PERFORM LISTFILE.
- STOP RUN.
-
- LOADFILE.
- DISPLAY "Loading sample data file."
- UPON CONSOLE.
-
- OPEN OUTPUT TSPFILE
- IF CUST-STAT NOT = "00"
- DIVIDE STAT-1 BY 256 GIVING BYTE-1 REMAINDER BYTE-2
- DISPLAY "Error " CUST-STAT " " BYTE-1 " " BYTE-2
- " opening 'testisam' file"
- UPON CONSOLE
- STOP RUN
- END-IF.
-
- PERFORM 1000-LOAD-RECORD
- VARYING SUB FROM 1 BY 1
- UNTIL SUB > MAX-SUB.
-
- DISPLAY "Sample data file load complete."
- UPON CONSOLE.
- CLOSE TSPFILE.
-
- *---------------------------------------------------------------*
- * LOAD A RECORD FROM DATA TABLES *
- *---------------------------------------------------------------*
-
- 1000-LOAD-RECORD.
-
- MOVE SPACES TO TSPFL-RECORD.
- MOVE DATA-CUST-NUM (SUB) TO CM-CUST-NUM.
- MOVE CM-CUST-NUM TO TSPFL-KEY.
- MOVE DATA-COMPANY (SUB) TO CM-COMPANY.
- MOVE DATA-ADDRESS-1 (SUB) TO CM-ADDRESS-1.
- MOVE DATA-ADDRESS-2 (SUB) TO CM-ADDRESS-2.
- MOVE DATA-ADDRESS-3 (SUB) TO CM-ADDRESS-3.
- MOVE DATA-TELEPHONE (SUB) TO CM-TELEPHONE.
- MOVE DATA-DP-MGR (SUB) TO CM-DP-MGR.
- MOVE DATA-MACHINE (SUB) TO CM-MACHINE.
- MOVE DATA-NO-TERMINALS (SUB) TO CM-NO-TERMINALS.
-
- IF ODD-RECORD
- MOVE "8417" TO CM-DISK
- MOVE "1600 BPI" TO CM-TAPE
- MOVE "1MEG" TO CM-MEMORY
- ELSE
- MOVE "8470" TO CM-DISK
- MOVE "6250 BPI" TO CM-TAPE
- MOVE "3MEG" TO CM-MEMORY.
- IF NULL-KEY
- MOVE ALL "*" TO CM-DISK
- MOVE ALL "*" TO CM-TAPE.
-
- WRITE TSPFL-RECORD.
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "Key: " TSPFL-KEY ", Status: " CUST-STAT
- UPON CONSOLE.
-
- LISTFILE.
- DISPLAY "LIST SAMPLE FILE" UPON CONSOLE.
- MOVE ZERO TO REC-NUM
- OPEN INPUT TSPFILE
- IF CUST-STAT NOT = "00"
- DISPLAY "ERROR " CUST-STAT " OPENING INPUT FILE "
- UPON CONSOLE
- IF CUST-STAT (1:1) = "9"
- DISPLAY "Sub Error " STAT-X2 UPON CONSOLE
- END-IF
- STOP RUN
- END-IF.
- MOVE SPACES TO TSPFL-RECORD.
- START TSPFILE KEY GREATER THAN PRIME-KEY
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " starting file"
- UPON CONSOLE
- IF CUST-STAT (1:1) = "9"
- DISPLAY "Sub Error " STAT-X2 UPON CONSOLE
- END-IF
- STOP RUN
- END-IF.
- READ TSPFILE NEXT RECORD WITH NO LOCK
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " on 1st read of file"
- UPON CONSOLE
- IF CUST-STAT (1:1) = "9"
- DISPLAY "Sub Error " STAT-X2 UPON CONSOLE
- END-IF
- STOP RUN
- END-IF.
- PERFORM UNTIL CUST-STAT NOT = "00"
- OR REC-NUM > REC-MAX
- DISPLAY "Key: " CM-CUST-NUM " is " CM-COMPANY
- " Disk=" CM-DISK ":"
- UPON CONSOLE
- READ TSPFILE NEXT RECORD
- AT END
- MOVE "99" TO CUST-STAT
- END-READ
- ADD 1 TO REC-NUM
- END-PERFORM
- IF CUST-STAT = "99"
- DISPLAY "Hit End of File" UPON CONSOLE
- END-IF.
-
- DISPLAY "LIST SAMPLE FILE DESCENDING" UPON CONSOLE.
- MOVE ZERO TO REC-NUM
- START TSPFILE KEY LESS THAN PRIME-KEY
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " starting file"
- UPON CONSOLE
- STOP RUN
- END-IF.
- READ TSPFILE PREVIOUS RECORD WITH NO LOCK
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " on 1st read of file"
- UPON CONSOLE
- STOP RUN
- END-IF.
- PERFORM UNTIL CUST-STAT NOT = "00"
- OR REC-NUM > REC-MAX
- DISPLAY "Key: " CM-CUST-NUM " is " CM-COMPANY
- " Disk=" CM-DISK ":"
- UPON CONSOLE
- READ TSPFILE PREVIOUS RECORD
- AT END
- MOVE "99" TO CUST-STAT
- END-READ
- ADD 1 TO REC-NUM
- END-PERFORM.
-
- DISPLAY "LIST SAMPLE FILE BY KEY3" UPON CONSOLE.
- MOVE ZERO TO REC-NUM
- MOVE SPACES TO TSPFL-RECORD.
- START TSPFILE KEY GREATER THAN OR EQUAL TO SPLIT-KEY3
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "Error " CUST-STAT " starting file"
- UPON CONSOLE
- STOP RUN
- END-IF.
- READ TSPFILE NEXT RECORD WITH NO LOCK
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "Error " CUST-STAT " on 1st read of file"
- UPON CONSOLE
- STOP RUN
- END-IF.
- PERFORM UNTIL (CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02")
- OR REC-NUM > REC-MAX
- DISPLAY "Key: " CM-CUST-NUM " is " CM-COMPANY
- " Disk=" CM-DISK ":"
- UPON CONSOLE
- READ TSPFILE NEXT RECORD
- AT END
- MOVE "99" TO CUST-STAT
- END-READ
- ADD 1 TO REC-NUM
- END-PERFORM.
- *---- Some results may be different with VB-ISAM ------*
- MOVE SPACES TO TSPFL-RECORD.
- MOVE DATA-CUST-NUM (2) TO CM-CUST-NUM.
- READ TSPFILE KEY IS PRIME-KEY
- IF CUST-STAT NOT = "23"
- DISPLAY "Error " CUST-STAT " instead of 23"
- UPON CONSOLE
- END-IF.
- MOVE DATA-COMPANY (2) TO CM-COMPANY.
- READ TSPFILE KEY IS PRIME-KEY
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " on primary read "
- UPON CONSOLE
- ELSE
- DISPLAY "Got: " CM-CUST-NUM " is " CM-COMPANY
- " Disk=" CM-DISK ":"
- UPON CONSOLE
- END-IF.
- READ TSPFILE NEXT RECORD
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " on next read "
- UPON CONSOLE
- ELSE
- DISPLAY "Nxt: " CM-CUST-NUM " is " CM-COMPANY
- " Disk=" CM-DISK ":"
- UPON CONSOLE
- END-IF.
- MOVE DATA-TELEPHONE (7) TO CM-TELEPHONE.
- MOVE DATA-MACHINE (7) TO CM-MACHINE.
- READ TSPFILE KEY IS SPLIT-KEY2
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " instead of 23"
- UPON CONSOLE
- ELSE
- DISPLAY "Ky2: " CM-CUST-NUM " is " CM-COMPANY
- " Mach=" CM-MACHINE ":"
- UPON CONSOLE
- END-IF.
- CLOSE TSPFILE.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1957: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:1957"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:1957"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:1959: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:1959"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Loading sample data file.
-Sample data file load complete.
-LIST SAMPLE FILE
-Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=8417 :
-Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 :
-Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********:
-Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********:
-Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=8470 :
-Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 :
-Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 :
-Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********:
-Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 :
-Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 :
-Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 :
-LIST SAMPLE FILE DESCENDING
-Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 :
-Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 :
-Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 :
-Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********:
-Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 :
-Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 :
-Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=8470 :
-Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********:
-Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********:
-Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 :
-Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=8417 :
-LIST SAMPLE FILE BY KEY3
-Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=8417 :
-Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 :
-Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 :
-Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 :
-Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 :
-Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 :
-Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 :
-Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=8470 :
-Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 :
-Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 :
-Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 :
-Got: BET00000 is BETA SHOE MFG. INC. Disk=8470 :
-Nxt: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********:
-Ky2: GIB00000 is GIBRALTER LIFE INSURANCE Mach=UNI-80/6:
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:1959"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_873
-#AT_START_874
-at_fn_group_banner 874 'run_file.at:2006' \
- "INDEXED file split keys WITH DUPLICATES" " " 4
-at_xfail=no
-(
- printf "%s\n" "874. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-printf "%s\n" "run_file.at:2009" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:2009"
-
-## Note: The order in which secondary records with duplicate keys
-## are returnded is not guaranteed.
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT test-file
- ASSIGN "TESTFILE"
- ACCESS DYNAMIC
- ORGANIZATION INDEXED
- RECORD KEY test-key-1 SOURCE IS test-key-p1
- ALTERNATE RECORD KEY test-key-2 SOURCE IS test-key-p2,
- test-key-p3
- WITH DUPLICATES
- .
-
- DATA DIVISION.
- FILE SECTION.
- FD test-file.
- 01 test-rec.
- 03 test-key-p1 PIC X(4).
- 03 test-key-p2 PIC 9(4).
- 03 test-data PIC X(4).
- 03 test-key-p3 PIC X(4).
-
- WORKING-STORAGE SECTION.
- 01 found PIC X(03).
-
- PROCEDURE DIVISION.
- OPEN OUTPUT test-file
- WRITE test-rec FROM "BBBB0001dat1aaaa"
- WRITE test-rec FROM "AAAA0001dat2aaaa"
- WRITE test-rec FROM "CCCC0002dat3aaaa"
- WRITE test-rec FROM "DDDD0002dat4bbbb"
- WRITE test-rec FROM "EEEE0002dat5bbbb"
- CLOSE test-file
-
- OPEN INPUT test-file
-
- MOVE "CCCC" TO test-key-p1
- READ test-file KEY IS test-key-1
- INVALID KEY
- DISPLAY "READ with CCCC found no record"
- NOT INVALID KEY
- IF test-data NOT = "dat3"
- DISPLAY "READ with wrong result: "
- test-rec
- END-READ
-
- MOVE SPACES TO found
-
- MOVE 0001 TO test-key-p2
- MOVE "aaaa" TO test-key-p3
- START test-file KEY >= test-key-2
- INVALID KEY
- DISPLAY "START >= 0001/aaaa found no record"
- NOT INVALID KEY
- READ test-file NEXT
- AT END
- DISPLAY "READ NEXT (1) found no record"
- NOT AT END
- EVALUATE test-data
- WHEN "dat1"
- MOVE 'X' TO found (1:1)
- WHEN "dat2"
- MOVE 'X' TO found (2:1)
- WHEN OTHER
- DISPLAY "READ NEXT (1) "
- "with wrong result: "
- test-data
- END-READ
- READ test-file NEXT
- AT END
- DISPLAY "READ NEXT (2) found no record"
- NOT AT END
- EVALUATE test-data
- WHEN "dat1"
- MOVE 'X' TO found (1:1)
- WHEN "dat2"
- MOVE 'X' TO found (2:1)
- WHEN OTHER
- DISPLAY "READ NEXT (2) "
- "with wrong result: "
- test-data
- END-READ
- IF found NOT = 'XX '
- DISPLAY "START >= + READ NEXT * 2 "
- "with wrong result: " found
- END-START
- MOVE 0001 TO test-key-p2
- MOVE "aaaa" TO test-key-p3
- START test-file KEY > test-key-2
- INVALID KEY
- DISPLAY "START > 0001/aaaa found no record"
- NOT INVALID KEY
- READ test-file NEXT
- AT END
- DISPLAY "READ NEXT (3) found no record"
- NOT AT END
- IF test-data NOT = "dat3"
- DISPLAY "READ NEXT (3) "
- "with wrong result: "
- test-data
- END-READ
- END-START
-
- MOVE 0002 TO test-key-p2
- MOVE ALL "z" TO test-key-p3
- START test-file KEY IS < test-key-2
- INVALID KEY
- DISPLAY "START < 0002/zzzz found no record"
- NOT INVALID KEY
- READ test-file PREVIOUS
- AT END
- DISPLAY "READ PREVIOUS (1) found no record"
- NOT AT END
- IF test-data NOT = "dat5"
- DISPLAY "READ PREVIOUS (1) "
- "with wrong result: "
- test-data
- END-READ
- READ test-file PREVIOUS
- AT END
- DISPLAY "READ PREVIOUS (2) found no record"
- NOT AT END
- IF test-data NOT = "dat4"
- DISPLAY "READ PREVIOUS (2) "
- "with wrong result: "
- test-data
- END-READ
- READ test-file PREVIOUS
- AT END
- DISPLAY "READ PREVIOUS (3) found no record"
- NOT AT END
- IF test-data NOT = "dat3"
- DISPLAY "READ PREVIOUS (3) "
- "with wrong result: "
- test-data
- END-READ
- END-START
-
- CLOSE test-file
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:2160: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:2160"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:2160"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:2161: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:2161"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:2161"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# verify that all of this works with wrapping to EXTFH calls and
-# back to our own EXTFH entry point
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:2166: \$COMPILE -fcallfh=EXTFH -o extfh prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fcallfh=EXTFH -o extfh prog.cob" "run_file.at:2166"
-( $at_check_trace; $COMPILE -fcallfh=EXTFH -o extfh prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:2166"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:2167: \$COBCRUN_DIRECT ./extfh"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./extfh" "run_file.at:2167"
-( $at_check_trace; $COBCRUN_DIRECT ./extfh
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:2167"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_874
-#AT_START_875
-at_fn_group_banner 875 'run_file.at:2172' \
- "INDEXED file variable length record" " " 4
-at_xfail=no
-(
- printf "%s\n" "875. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-printf "%s\n" "run_file.at:2175" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:2175"
-
-cat >prog.cob <<'_ATEOF'
-
- Identification division.
- Program-id. prog.
- *
- Environment division.
-
- Input-output section.
- File-control.
- *
- Select optional tbw
- assign to path-tbw
- organization is indexed
- access mode is dynamic
- record key is tbw-key
- alternate record key is tbw-alt
- suppress when space
- sharing with no other
- file status is fs-file-status.
- *
- I-o-control.
- *
- Data division.
- File section.
- *
- FD tbw
- record is varying in size
- from 107 to 362 characters
- depending on end-tbw-record
- .
- 01 tbw-record.
- 02 tbw-key pic x(100).
- 02 tbw-alt.
- 03 tbw-alt-1 pic 9(02).
- 03 tbw-alt-2 pic 9(04).
- 02 tbw-f1 pic x(01).
- 02 tbw-f2 pic x(255).
- *
- Working-storage section.
-
- 01 fs-file-status pic x(02).
-
- 01 end-tbw-record pic 9(09) binary.
-
- 01 flag-tbw pic x(01) value low-value.
- 88 flag-tbw-open value high-value.
- 88 flag-tbw-closed value low-value.
-
- 01 path-tbw pic x(255) value space.
-
- Procedure division.
-
- * Prepare.
- Move "tbw" to path-tbw.
-
- * First test.
- Perform tbw-delete-file thru tbw-exit.
-
- Perform tbw-open-i-o thru tbw-exit.
-
- Move low-values to tbw-key.
- Perform tbw-start-primary-greater thru tbw-exit.
-
- Perform tbw-read-next thru tbw-exit.
-
- Move 122 to end-tbw-record.
- Move "aaaaa" to tbw-key.
- Move spaces to tbw-alt
- tbw-f1
- tbw-f2.
- Perform tbw-write thru tbw-exit.
-
- Move low-values to tbw-alt.
- Perform tbw-start-alternate thru tbw-exit.
-
- Move low-values to tbw-key.
- Perform tbw-start-primary-greater thru tbw-exit.
-
- Perform tbw-read-next thru tbw-exit.
-
- Perform tbw-read-next thru tbw-exit.
-
- Perform tbw-close thru tbw-exit.
-
- * Second test.
-
- Perform tbw-delete-file thru tbw-exit.
-
- Perform tbw-open-i-o thru tbw-exit.
-
- Move low-values to tbw-key.
- Perform tbw-start-primary-greater thru tbw-exit.
-
- Perform tbw-read-next thru tbw-exit.
-
- Move 163 to end-tbw-record.
- Move "aaaaa" to tbw-key.
- Move 1 to tbw-alt-1
- tbw-alt-2.
- Move spaces to tbw-f1
- tbw-f2.
- Perform tbw-write thru tbw-exit.
-
- Move 122 to end-tbw-record.
- Move "aaaab" to tbw-key.
- Move spaces to tbw-alt
- tbw-f1
- tbw-f2.
- Perform tbw-write thru tbw-exit.
-
- Move low-values to tbw-alt.
- Perform tbw-start-alternate thru tbw-exit.
-
- Perform tbw-read-next thru tbw-exit.
-
- Move spaces to tbw-alt.
- Perform tbw-rewrite thru tbw-exit.
-
- *> note: should not have status 02 as it a suppressed alternate key
- *> therefore duplicate checks must be skipped
-
- * Finish.
- Perform tbw-close thru tbw-exit.
- Display "Test completed".
- Stop run.
-
- * I/O.
- tbw-Open-I-O.
- If flag-tbw-open
- Perform tbw-Close thru tbw-Close-exit.
- Display "open".
- Open i-o tbw.
- Display "open done".
- If fs-file-status is less than "10"
- Set flag-tbw-open to true.
- Go to tbw-exit.
- *
- tbw-Start-Primary-Greater.
- Display "start > tbw-key".
- Start tbw
- key is greater than tbw-key
- invalid key
- Display "start > tbw-key inv"
- Go to tbw-exit
- not invalid
- Display "start > tbw-key done"
- Go to tbw-exit.
- Display "start > tbw-key " fs-file-status
- Go to tbw-exit.
- *
- tbw-Start-Alternate.
- Display "start >= tbw-alt".
- Start tbw
- key is not less than tbw-alt
- invalid key
- *>Inspect! Display "start >= tbw-alt inv"
- Display "start >= tbw-alt done"
- Go to tbw-exit
- not invalid
- Display "start >= tbw-alt done"
- Go to tbw-exit.
- Display "start >= tbw-alt " fs-file-status
- Go to tbw-exit.
- *
- tbw-Read-Next.
- Display "read next".
- Read tbw
- next record
- at end
- Display "read next end"
- Go to tbw-exit
- not at end
- Display "read next done"
- Go to tbw-exit.
- Display "read next " fs-file-status
- Go to tbw-exit.
- *
- tbw-Write.
- Display "write".
- Write tbw-record
- invalid key
- Display "write inv"
- Go to tbw-exit
- not invalid
- Display "write done"
- Go to tbw-exit.
- Display "write " fs-file-status
- Go to tbw-exit.
- *
- tbw-Rewrite.
- Display "rewrite".
- Rewrite tbw-record
- invalid key
- Display "rewrite inv " fs-file-status
- Go to tbw-exit
- not invalid
- Display "rewrite done " fs-file-status
- Go to tbw-exit.
- Display "rewrite " fs-file-status
- Go to tbw-exit.
- *
- tbw-Delete-File.
- If flag-tbw-open
- Perform tbw-Close thru tbw-Close-exit.
- Move "xx" to fs-file-status.
- Display "delete file".
- Delete file tbw.
- Display "delete file done".
- Go to tbw-exit.
- *
- tbw-Close.
- If flag-tbw-open
- Display "close"
- Close tbw
- Display "close done"
- Set flag-tbw-closed to true
- end-if.
- tbw-Close-exit.
- Exit.
- tbw-exit.
- Exit.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:2399: \$COMPILE prog.cob "
-at_fn_check_prepare_dynamic "$COMPILE prog.cob " "run_file.at:2399"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:2399"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:2401: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:2401"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "delete file
-delete file done
-open
-open done
-start > tbw-key
-start > tbw-key inv
-read next
-read next 46
-write
-write done
-start >= tbw-alt
-start >= tbw-alt done
-start > tbw-key
-start > tbw-key done
-read next
-read next done
-read next
-read next end
-close
-close done
-delete file
-delete file done
-open
-open done
-start > tbw-key
-start > tbw-key inv
-read next
-read next 46
-write
-write done
-write
-write done
-start >= tbw-alt
-start >= tbw-alt done
-read next
-read next done
-rewrite
-rewrite done 00
-close
-close done
-Test completed
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:2401"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_875
-#AT_START_876
-at_fn_group_banner 876 'run_file.at:2448' \
- "INDEXED sample" " " 4
-at_xfail=no
-(
- printf "%s\n" "876. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# modified version of GC-FAQ: indexing example
-# Author: Brian Tiffin, Date: 17-Feb-2009, 28-Jan-2014
-
-printf "%s\n" "run_file.at:2454" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:2454"
-
-cat >prog.cob <<'_ATEOF'
-
-
- identification division.
- program-id. linage.
-
- environment division.
- configuration section.
-
- input-output section.
- file-control.
- select optional indexed-file
- assign to "indexed-file.dat"
- status is indexing-status-code
- organization is indexed
- access mode is dynamic
- record key is keyfield of indexing-record
- alternate record key is altkey of indexing-record
- with duplicates
- .
-
- data division.
- file section.
- fd indexed-file.
- 01 indexing-record.
- 03 keyfield pic x(8).
- 03 filler pic x.
- 03 altkey.
- 05 first-part pic 99.
- 05 middle-part pic x.
- 05 last-part pic 99.
- 03 filler pic x.
- 03 data-part pic x(18).
-
- working-storage section.
- 01 indexing-status-code pic xx.
- 01 indexing-status redefines indexing-status-code pic 99.
- 88 indexing-ok values 0 thru 10.
-
- 78 line-separator value
- '-----------------------------------------'.
- 01 display-record.
- 03 filler pic x(4) value spaces.
- 03 keyfield pic x(8).
- 03 filler pic xx value spaces.
- 03 altkey.
- 05 first-part pic 99.
- 05 filler pic x value space.
- 05 middle-part pic x.
- 05 filler pic x value space.
- 05 last-part pic 99.
- 03 filler pic xx value ", ".
- 03 data-part pic x(18).
- 77 safety-net pic 99.
-
- *> control break
- 01 oldkey pic 99x99.
-
- *> read control fields
- 01 duplicate-flag pic x.
- 88 no-more-duplicates value high-value
- when set to false low-value.
- 01 record-flag pic x.
- 88 no-more-records value high-value
- when set to false low-value.
-
- *> ***************************************************************
- procedure division.
- main.
- *> Populate a sample database, create or overwrite keys
- perform populate-sample
-
- *> clear the record space for this example
- move spaces to indexing-record
-
- *> open the data file again
- open i-o indexed-file
- perform indexing-check
- if not indexing-ok
- stop run returning 1
- end-if
-
- *> read all the duplicate 00b02 keys
- move 00 to first-part of indexing-record
- move "b" to middle-part of indexing-record
- move 02 to last-part of indexing-record
-
- *> using read key and then next key / last key compare
- set no-more-duplicates to false
-
- display "Read all 00b02 keys sequentially" end-display
- perform read-indexing-record
- perform read-next-record
- *> this is only here for safety...
- varying safety-net from 1 by 1
- until no-more-duplicates
- *> s a f e against broken indexed i/o
- or safety-net > 40
- if safety-net > 40
- display "Safety kicked in!" end-display
- end-if
- display line-separator end-display
-
- *> read by key of reference ... the cool stuff
- move 00 to first-part of indexing-record
- move "a" to middle-part of indexing-record
- move 02 to last-part of indexing-record
- set no-more-records to false
-
- *> using start and read next
- display "Read all alternate keys greater than 00a02"
- end-display
- perform start-at-key
- perform read-next-by-key
- *> this is only here for safety...
- varying safety-net from 1 by 1
- until no-more-records
- *> s a f e against broken indexed i/o
- or safety-net > 40
- if safety-net > 40
- display "Safety kicked in!" end-display
- end-if
- display line-separator end-display
-
- *> read by primary key of reference
- move "87654321" to keyfield of indexing-record
- set no-more-records to false
-
- *> using start and previous by key
- display
- "Read all primary keys less than "
- function trim (keyfield of indexing-record)
- end-display
- perform start-prime-key
- perform read-previous-by-key
- *> this is only here for safety...
- varying safety-net from 1 by 1
- until no-more-records
- *> s a f e against broken indexed i/o
- or safety-net > 40
- if safety-net > 40
- display "Safety kicked in!" end-display
- end-if
- display line-separator end-display
-
- *> explicit early file unlock, see bug #533
- unlock indexed-file
-
- *> and with that we are done with indexing sample
- close indexed-file
-
- goback
- .
- *> ***************************************************************
-
- *> ***************************************************************
- *><* read by alternate key paragraph
- read-indexing-record.
- display "Reading: " altkey of indexing-record end-display
- read indexed-file key is altkey of indexing-record
- invalid key
- display
- "bad read key: "
- function trim (altkey of indexing-record)
- upon syserr
- end-display
- set no-more-duplicates to true
- end-read
- perform indexing-check
- .
-
- *><* read next sequential paragraph
- read-next-record.
- move corresponding indexing-record to display-record
- display display-record end-display
- move altkey of indexing-record to oldkey
-
- read indexed-file next record
- at end set no-more-duplicates to true
- not at end
- if oldkey not equal altkey of indexing-record
- set no-more-duplicates to true
- end-if
- end-read
- perform indexing-check
- .
-
- *><* start primary key of reference paragraph
- start-prime-key.
- display "Prime < " keyfield of indexing-record end-display
- start indexed-file
- key is less than
- keyfield of indexing-record
- invalid key
- display
- "bad start: "
- function trim (keyfield of indexing-record)
- upon syserr
- end-display
- set no-more-records to true
- not invalid key
- read indexed-file previous record
- at end set no-more-records to true
- end-read
- end-start
- perform indexing-check
- .
-
- *><* read previous by key of reference paragraph
- read-previous-by-key.
- move corresponding indexing-record to display-record
- display display-record end-display
-
- read indexed-file previous record
- at end set no-more-records to true
- end-read
- perform indexing-check
- .
- *><* start alternate key of reference paragraph
- start-at-key.
- display "Seeking >= " altkey of indexing-record end-display
- start indexed-file
- key is greater than or equal to
- altkey of indexing-record
- invalid key
- display
- "bad start: "
- function trim (altkey of indexing-record)
- upon syserr
- end-display
- set no-more-records to true
- not invalid key
- read indexed-file next record
- at end set no-more-records to true
- end-read
- end-start
- perform indexing-check
- .
-
- *><* read next by key of reference paragraph
- read-next-by-key.
- move corresponding indexing-record to display-record
- display display-record end-display
-
- read indexed-file next record
- at end set no-more-records to true
- end-read
- perform indexing-check
- .
-
- *><* populate a sample database
- populate-sample.
-
- *> Open optional index file for read write
- open i-o indexed-file
- perform indexing-check
-
- move "12345678 00a01 some 12345678 data" to indexing-record
- perform write-indexing-record
- move "87654321 00a01 some 87654321 data" to indexing-record
- perform write-indexing-record
- move "12348765 00a01 some 12348765 data" to indexing-record
- perform write-indexing-record
- move "87651234 00a01 some 87651234 data" to indexing-record
- perform write-indexing-record
-
- move "12345679 00b02 some 12345679 data" to indexing-record
- perform write-indexing-record
- move "97654321 00b02 some 97654321 data" to indexing-record
- perform write-indexing-record
- move "12349765 00b02 some 12349765 data" to indexing-record
- perform write-indexing-record
- move "97651234 00b02 some 97651234 data" to indexing-record
- perform write-indexing-record
-
- move "12345689 00c13 some 12345689 data" to indexing-record
- perform write-indexing-record
- move "98654321 00c13 some 98654321 data" to indexing-record
- perform write-indexing-record
- move "12349865 00c13 some 12349865 data" to indexing-record
- perform write-indexing-record
- move "98651234 00c13 some 98651234 data" to indexing-record
- perform write-indexing-record
-
- *> close it ... not necessary, but for the example we will
- close indexed-file
- perform indexing-check
- .
-
- *><* Write paragraph
- write-indexing-record.
- write indexing-record
- invalid key
- display
- "rewriting key: "
- function trim (keyfield of indexing-record)
- upon syserr
- end-display
- rewrite indexing-record
- invalid key
- display
- "really bad key: "
- function trim (keyfield of indexing-record)
- upon syserr
- end-display
- end-rewrite
- end-write
- .
-
- *><* file status quick check. For this sample, keep running
- indexing-check.
- if not indexing-ok then
- display
- "isam file io problem: " indexing-status
- upon syserr
- end-display
- end-if
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:2775: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:2775"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:2775"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:2776: rm -f \"indexed-file.*\""
-at_fn_check_prepare_trace "run_file.at:2776"
-( $at_check_trace; rm -f "indexed-file.*"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:2776"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:2777: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:2777"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Read all 00b02 keys sequentially
-Reading: 00b02
- 12345679 00 b 02, some 12345679 data
- 97654321 00 b 02, some 97654321 data
- 12349765 00 b 02, some 12349765 data
- 97651234 00 b 02, some 97651234 data
------------------------------------------
-Read all alternate keys greater than 00a02
-Seeking >= 00a02
- 12345679 00 b 02, some 12345679 data
- 97654321 00 b 02, some 97654321 data
- 12349765 00 b 02, some 12349765 data
- 97651234 00 b 02, some 97651234 data
- 12345689 00 c 13, some 12345689 data
- 98654321 00 c 13, some 98654321 data
- 12349865 00 c 13, some 12349865 data
- 98651234 00 c 13, some 98651234 data
------------------------------------------
-Read all primary keys less than 87654321
-Prime < 87654321
- 87651234 00 a 01, some 87651234 data
- 12349865 00 c 13, some 12349865 data
- 12349765 00 b 02, some 12349765 data
- 12348765 00 a 01, some 12348765 data
- 12345689 00 c 13, some 12345689 data
- 12345679 00 b 02, some 12345679 data
- 12345678 00 a 01, some 12345678 data
------------------------------------------
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:2777"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:2807: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:2807"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "rewriting key: 12345678
-rewriting key: 87654321
-rewriting key: 12348765
-rewriting key: 87651234
-rewriting key: 12345679
-rewriting key: 97654321
-rewriting key: 12349765
-rewriting key: 97651234
-rewriting key: 12345689
-rewriting key: 98654321
-rewriting key: 12349865
-rewriting key: 98651234
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Read all 00b02 keys sequentially
-Reading: 00b02
- 12345679 00 b 02, some 12345679 data
- 97654321 00 b 02, some 97654321 data
- 12349765 00 b 02, some 12349765 data
- 97651234 00 b 02, some 97651234 data
------------------------------------------
-Read all alternate keys greater than 00a02
-Seeking >= 00a02
- 12345679 00 b 02, some 12345679 data
- 97654321 00 b 02, some 97654321 data
- 12349765 00 b 02, some 12349765 data
- 97651234 00 b 02, some 97651234 data
- 12345689 00 c 13, some 12345689 data
- 98654321 00 c 13, some 98654321 data
- 12349865 00 c 13, some 12349865 data
- 98651234 00 c 13, some 98651234 data
------------------------------------------
-Read all primary keys less than 87654321
-Prime < 87654321
- 87651234 00 a 01, some 87651234 data
- 12349865 00 c 13, some 12349865 data
- 12349765 00 b 02, some 12349765 data
- 12348765 00 a 01, some 12348765 data
- 12345689 00 c 13, some 12345689 data
- 12345679 00 b 02, some 12345679 data
- 12345678 00 a 01, some 12345678 data
------------------------------------------
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:2807"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# recheck with COB_SYNC to cover additional code paths - see bug # 753
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:2852: COB_SYNC=Y \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_SYNC=Y $COBCRUN_DIRECT ./prog" "run_file.at:2852"
-( $at_check_trace; COB_SYNC=Y $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "rewriting key: 12345678
-rewriting key: 87654321
-rewriting key: 12348765
-rewriting key: 87651234
-rewriting key: 12345679
-rewriting key: 97654321
-rewriting key: 12349765
-rewriting key: 97651234
-rewriting key: 12345689
-rewriting key: 98654321
-rewriting key: 12349865
-rewriting key: 98651234
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Read all 00b02 keys sequentially
-Reading: 00b02
- 12345679 00 b 02, some 12345679 data
- 97654321 00 b 02, some 97654321 data
- 12349765 00 b 02, some 12349765 data
- 97651234 00 b 02, some 97651234 data
------------------------------------------
-Read all alternate keys greater than 00a02
-Seeking >= 00a02
- 12345679 00 b 02, some 12345679 data
- 97654321 00 b 02, some 97654321 data
- 12349765 00 b 02, some 12349765 data
- 97651234 00 b 02, some 97651234 data
- 12345689 00 c 13, some 12345689 data
- 98654321 00 c 13, some 98654321 data
- 12349865 00 c 13, some 12349865 data
- 98651234 00 c 13, some 98651234 data
------------------------------------------
-Read all primary keys less than 87654321
-Prime < 87654321
- 87651234 00 a 01, some 87651234 data
- 12349865 00 c 13, some 12349865 data
- 12349765 00 b 02, some 12349765 data
- 12348765 00 a 01, some 12348765 data
- 12345689 00 c 13, some 12345689 data
- 12345679 00 b 02, some 12345679 data
- 12345678 00 a 01, some 12345678 data
------------------------------------------
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:2852"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:2896: test \"\$COB_HAS_ISAM\" = \"db\""
-at_fn_check_prepare_dynamic "test \"$COB_HAS_ISAM\" = \"db\"" "run_file.at:2896"
-( $at_check_trace; test "$COB_HAS_ISAM" = "db"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:2896"
-if $at_failed
-then :
- # Previous test "failed" --> other ISAM, no need for more checks
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:2896: true"
-at_fn_check_prepare_trace "run_file.at:2896"
-( $at_check_trace; true
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:2896"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-else $as_nop
- # Previous test "passed" --> using BDB, recheck with DB_HOME set
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:2896: DB_HOME=. \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "DB_HOME=. $COBCRUN_DIRECT ./prog" "run_file.at:2896"
-( $at_check_trace; DB_HOME=. $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "rewriting key: 12345678
-rewriting key: 87654321
-rewriting key: 12348765
-rewriting key: 87651234
-rewriting key: 12345679
-rewriting key: 97654321
-rewriting key: 12349765
-rewriting key: 97651234
-rewriting key: 12345689
-rewriting key: 98654321
-rewriting key: 12349865
-rewriting key: 98651234
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Read all 00b02 keys sequentially
-Reading: 00b02
- 12345679 00 b 02, some 12345679 data
- 97654321 00 b 02, some 97654321 data
- 12349765 00 b 02, some 12349765 data
- 97651234 00 b 02, some 97651234 data
------------------------------------------
-Read all alternate keys greater than 00a02
-Seeking >= 00a02
- 12345679 00 b 02, some 12345679 data
- 97654321 00 b 02, some 97654321 data
- 12349765 00 b 02, some 12349765 data
- 97651234 00 b 02, some 97651234 data
- 12345689 00 c 13, some 12345689 data
- 98654321 00 c 13, some 98654321 data
- 12349865 00 c 13, some 12349865 data
- 98651234 00 c 13, some 98651234 data
------------------------------------------
-Read all primary keys less than 87654321
-Prime < 87654321
- 87651234 00 a 01, some 87651234 data
- 12349865 00 c 13, some 12349865 data
- 12349765 00 b 02, some 12349765 data
- 12348765 00 a 01, some 12348765 data
- 12345689 00 c 13, some 12345689 data
- 12345679 00 b 02, some 12345679 data
- 12345678 00 a 01, some 12345678 data
------------------------------------------
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:2896"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-fi
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_876
-#AT_START_877
-at_fn_group_banner 877 'run_file.at:2949' \
- "WRITE + REWRITE FILE name" " " 4
-at_xfail=no
-(
- printf "%s\n" "877. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
-
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT FLATFILE ASSIGN EXTERNAL RELFIX
- ORGANIZATION RELATIVE
- ACCESS IS SEQUENTIAL RELATIVE KEY IS REC-NUM
- FILE STATUS IS CUST-STAT.
-
- SELECT FLATFILE2 ASSIGN EXTERNAL RELFIX
- ORGANIZATION RELATIVE
- ACCESS IS RANDOM RELATIVE KEY IS REC-NUM
- FILE STATUS IS CUST-STAT.
-
- DATA DIVISION.
- FILE SECTION.
- FD FLATFILE
- BLOCK CONTAINS 5 RECORDS.
-
- 01 TSPFL-RECORD.
- 10 CM-CUST-NUM PICTURE X(8).
- 10 CM-COMPANY PICTURE X(25).
- 10 CM-DISK PICTURE X(8).
- 10 CM-NO-TERMINALS PICTURE 9(4).
-
- FD FLATFILE2
- BLOCK CONTAINS 5 RECORDS.
-
- 01 TSP2-RECORD.
- 10 C2-CUST-NUM PICTURE X(8).
- 10 C2-COMPANY PICTURE X(25).
- 10 C2-DISK PICTURE X(8).
- 10 C2-NO-TERMINALS PICTURE 9(4).
-
- WORKING-STORAGE SECTION.
-
- 78 MAX-SUB VALUE 6.
- 77 CUST-STAT PICTURE X(2).
- 77 REC-NUM VALUE 1 BINARY-SHORT UNSIGNED.
-
- 01 TEST-DATA.
-
- 02 DATA-CUST-NUM-TBL.
-
- 05 FILLER PIC X(8) VALUE "ALP00000".
- 05 FILLER PIC X(8) VALUE "BET00000".
- 05 FILLER PIC X(8) VALUE "DEL00000".
- 05 FILLER PIC X(8) VALUE "EPS00000".
- 05 FILLER PIC X(8) VALUE "FOR00000".
- 05 FILLER PIC X(8) VALUE "GAM00000".
-
- 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL
- PIC X(8) OCCURS MAX-SUB.
- 02 DATA-COMPANY-TBL.
-
- 05 FILLER PIC X(25) VALUE "ALPHA ELECTRICAL CO. LTD.".
- 05 FILLER PIC X(25) VALUE "BETA SHOE MFG. INC. ".
- 05 FILLER PIC X(25) VALUE "DELTA LUGGAGE REPAIRS ".
- 05 FILLER PIC X(25) VALUE "EPSILON EQUIPMENT SUPPLY ".
- 05 FILLER PIC X(25) VALUE "FORTUNE COOKIE COMPANY ".
- 05 FILLER PIC X(25) VALUE "GAMMA X-RAY TECHNOLOGY ".
- 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL
- PIC X(25) OCCURS MAX-SUB.
- 02 DATA-ADDRESS-2-TBL.
-
- 05 FILLER PIC X(10) VALUE "ATLANTA ".
- 05 FILLER PIC X(10) VALUE "CALGARY ".
- 05 FILLER PIC X(10) VALUE "NEW YORK ".
- 05 FILLER PIC X(10) VALUE "TORONTO ".
- 05 FILLER PIC X(10) VALUE "WASHINGTON".
- 05 FILLER PIC X(10) VALUE "WHITEPLAIN".
- 02 DATA-ADDRESS REDEFINES DATA-ADDRESS-2-TBL
- PIC X(10) OCCURS MAX-SUB.
-
- 02 DATA-NO-TERMINALS-TBL.
-
- 05 FILLER PIC 9(3) COMP-3 VALUE 10.
- 05 FILLER PIC 9(3) COMP-3 VALUE 13.
- 05 FILLER PIC 9(3) COMP-3 VALUE 75.
- 05 FILLER PIC 9(3) COMP-3 VALUE 10.
- 05 FILLER PIC 9(3) COMP-3 VALUE 90.
- 05 FILLER PIC 9(3) COMP-3 VALUE 254.
-
- 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL
- PIC 9(3) COMP-3 OCCURS MAX-SUB.
- 01 WORK-AREA.
- 05 SUB BINARY-SHORT UNSIGNED.
- 88 ODD-RECORD VALUE 1 3 5.
-
-
- PROCEDURE DIVISION.
-
- PERFORM LOADFILE.
-
- OPEN I-O FLATFILE2.
- MOVE 2 TO REC-NUM
- READ FLATFILE2
- DISPLAY "Read " C2-CUST-NUM " Sts:" CUST-STAT
- " Trms:" C2-NO-TERMINALS.
- ADD 1 TO C2-NO-TERMINALS
- REWRITE FILE FLATFILE2 FROM TSP2-RECORD
- READ FLATFILE2
- DISPLAY "REWROTE " C2-CUST-NUM " Sts:" CUST-STAT
- " Trms:" C2-NO-TERMINALS.
- CLOSE FLATFILE2.
- STOP RUN.
-
- LOADFILE.
- DISPLAY "Loading sample program data file."
- UPON CONSOLE.
-
- OPEN OUTPUT FLATFILE.
-
- PERFORM LOAD-RECORD
- VARYING SUB FROM 1 BY 1
- UNTIL SUB > MAX-SUB.
-
- DISPLAY "Sample program data file load complete."
- UPON CONSOLE.
- CLOSE FLATFILE.
-
- LOAD-RECORD.
-
- MOVE SPACES TO TSPFL-RECORD.
- MOVE DATA-CUST-NUM (SUB) TO CM-CUST-NUM.
- MOVE DATA-COMPANY (SUB) TO CM-COMPANY.
- MOVE DATA-NO-TERMINALS (SUB) TO CM-NO-TERMINALS.
- IF ODD-RECORD
- MOVE "8417" TO CM-DISK
- ELSE
- MOVE "8470" TO CM-DISK.
- WRITE FILE FLATFILE FROM TSPFL-RECORD.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:3090: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:3090"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:3090"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:3092: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:3092"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Loading sample program data file.
-Sample program data file load complete.
-Read BET00000 Sts:00 Trms:0013
-REWROTE BET00000 Sts:00 Trms:0014
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:3092"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# recheck with COB_SYNC to cover additional code paths
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:3100: COB_SYNC=Y \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_SYNC=Y $COBCRUN_DIRECT ./prog" "run_file.at:3100"
-( $at_check_trace; COB_SYNC=Y $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Loading sample program data file.
-Sample program data file load complete.
-Read BET00000 Sts:00 Trms:0013
-REWROTE BET00000 Sts:00 Trms:0014
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:3100"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_877
-#AT_START_878
-at_fn_group_banner 878 'run_file.at:3110' \
- "START RELATIVE (1)" " " 4
-at_xfail=no
-(
- printf "%s\n" "878. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT OPTIONAL TEST-FILE
- ASSIGN "TESTFILE"
- ACCESS DYNAMIC
- ORGANIZATION RELATIVE
- STATUS TESTSTAT
- RELATIVE KEY TESTKEY
- .
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(4).
- WORKING-STORAGE SECTION.
- 01 TESTKEY USAGE BINARY-LONG UNSIGNED.
- 01 TESTSTAT PIC XX.
- 88 V-OK VALUE "00" "05".
- PROCEDURE DIVISION.
- DELETE FILE TEST-FILE.
- OPEN I-O TEST-FILE.
- IF NOT V-OK
- DISPLAY "OPEN " TESTSTAT
- END-DISPLAY
- GOBACK
- END-IF.
- MOVE 99 TO TESTKEY.
- START TEST-FILE KEY < TESTKEY
- END-START.
- IF TESTSTAT NOT = "23"
- DISPLAY "START " TESTSTAT
- END-DISPLAY
- END-IF.
- CLOSE TEST-FILE.
- END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:3153: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:3153"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:3153"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:3154: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:3154"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:3154"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_878
-#AT_START_879
-at_fn_group_banner 879 'run_file.at:3159' \
- "START RELATIVE (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "879. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT OPTIONAL TEST-FILE
- ASSIGN "TESTFILE"
- ACCESS DYNAMIC
- ORGANIZATION RELATIVE
- STATUS TESTSTAT
- RELATIVE KEY TESTKEY
- .
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(4).
- WORKING-STORAGE SECTION.
- 01 TESTKEY USAGE BINARY-LONG UNSIGNED.
- 01 TESTSTAT PIC XX.
- 88 V-OK VALUE "00" "05".
- 88 V-ZERO VALUE "00".
- PROCEDURE DIVISION.
- OPEN I-O TEST-FILE.
- IF NOT V-OK
- DISPLAY "OPEN " TESTSTAT
- END-DISPLAY
- GOBACK
- END-IF.
- MOVE 3 TO TESTKEY.
- MOVE "0003" TO TEST-REC.
- WRITE TEST-REC INVALID KEY
- DISPLAY "WRITE " TESTSTAT
- END-DISPLAY
- END-WRITE.
- MOVE 2 TO TESTKEY.
- MOVE "0002" TO TEST-REC.
- WRITE TEST-REC INVALID KEY
- DISPLAY "WRITE " TESTSTAT
- END-DISPLAY
- END-WRITE.
- MOVE 99 TO TESTKEY.
- START TEST-FILE KEY < TESTKEY
- END-START.
- IF NOT V-ZERO
- DISPLAY "START " TESTSTAT
- END-DISPLAY
- END-IF.
- IF TESTKEY NOT = 99
- DISPLAY "TESTKEY " TESTKEY
- END-DISPLAY
- END-IF.
- MOVE SPACE TO TEST-REC.
- READ TEST-FILE NEXT
- END-READ.
- IF NOT V-ZERO
- DISPLAY "READ " TESTSTAT
- END-DISPLAY
- END-IF.
- IF TEST-REC NOT = "0003"
- DISPLAY "READ RECORD " TEST-REC
- END-DISPLAY
- END-IF.
- CLOSE TEST-FILE.
- END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:3229: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:3229"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:3229"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:3230: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:3230"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:3230"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_879
-#AT_START_880
-at_fn_group_banner 880 'run_file.at:3235' \
- "START RELATIVE (3)" " " 4
-at_xfail=no
-(
- printf "%s\n" "880. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT file1 ASSIGN TO DISK
- ORGANIZATION RELATIVE
- ACCESS DYNAMIC RELATIVE KEY file1-key.
- DATA DIVISION.
- FILE SECTION.
- FD file1.
- 1 file1-rec pic 999.
- WORKING-STORAGE SECTION.
- 77 file1-key pic 9(6).
- PROCEDURE DIVISION.
- OPEN OUTPUT file1.
- CLOSE file1.
- OPEN I-O file1.
- MOVE 10 TO file1-key file1-rec.
- WRITE file1-rec.
- MOVE 11 TO file1-key file1-rec.
- WRITE file1-rec.
- MOVE 12 TO file1-key file1-rec.
- WRITE file1-rec.
- MOVE 13 TO file1-key file1-rec.
- WRITE file1-rec.
- *
- MOVE 0 TO file1-key.
- START file1 KEY > file1-key.
- READ file1 NEXT.
- IF (file1-rec <> 10)
- DISPLAY "FAILED: START key > 0".
- *
- MOVE 99 TO file1-key.
- START file1 KEY < file1-key.
- READ file1 NEXT.
- IF (file1-rec <> 13)
- DISPLAY "FAILED: START key < 99".
- *
- MOVE 0 TO file1-key.
- START file1 FIRST.
- READ file1 NEXT.
- IF (file1-rec <> 10)
- DISPLAY "FAILED: START key FIRST".
- *
- MOVE 0 TO file1-key.
- START file1 LAST.
- READ file1 NEXT.
- IF (file1-rec <> 13)
- DISPLAY "FAILED: START key LAST".
- *
- MOVE 0 TO file1-key.
- START file1 KEY >= file1-key.
- READ file1 NEXT.
- IF (file1-rec <> 10)
- DISPLAY "FAILED: START key >= 0".
- *
- MOVE 99 TO file1-key.
- START file1 KEY <= file1-key.
- READ file1 NEXT.
- IF (file1-rec <> 13)
- DISPLAY "FAILED: START key <= 99".
- *
- CLOSE file1.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:3306: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:3306"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:3306"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:3307: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:3307"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:3307"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_880
-#AT_START_881
-at_fn_group_banner 881 'run_file.at:3311' \
- "READ on OPTIONAL missing RELATIVE / SEQUENTIAL" " " 4
-at_xfail=no
-(
- printf "%s\n" "881. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT OPTIONAL INFILE ASSIGN TO
- "missing.txt"
- ORGANIZATION IS RELATIVE
- ACCESS IS SEQUENTIAL
- FILE STATUS IS WSFS.
- SELECT OPTIONAL INFILES ASSIGN TO
- "missings.txt"
- ORGANIZATION IS SEQUENTIAL
- ACCESS IS SEQUENTIAL
- FILE STATUS IS WSFS.
- DATA DIVISION.
- FILE SECTION.
- FD INFILE.
- 01 INREC PIC X(80).
- FD INFILES.
- 01 INRECS PIC X(80).
- WORKING-STORAGE SECTION.
- 01 WSFS PIC X(2).
- 88 RECORDFOUND VALUE "00".
- 01 WSINREC PIC X(80).
- PROCEDURE DIVISION.
- MAIN-PROCEDURE.
- * Open missing file
- OPEN INPUT INFILE
- DISPLAY "R: OPEN INPUT on missing optional file = " WSFS " "
- NO ADVANCING
- IF WSFS = '05'
- DISPLAY "OK"
- ELSE
- DISPLAY "Bad"
- END-IF.
- OPEN INPUT INFILES
- DISPLAY "S: OPEN INPUT on missing optional file = " WSFS " "
- NO ADVANCING
- IF WSFS = '05'
- DISPLAY "OK"
- ELSE
- DISPLAY "Bad"
- END-IF.
- * First read, raise a FS 10 (AT END) which is expected
- READ INFILE INTO WSINREC
- DISPLAY "R: 1st READ on missing optional file = " WSFS " "
- NO ADVANCING
- IF WSFS = '10'
- DISPLAY "OK"
- ELSE
- DISPLAY "Bad"
- END-IF.
- READ INFILES INTO WSINREC
- DISPLAY "S: 1st READ on missing optional file = " WSFS " "
- NO ADVANCING
- IF WSFS = '10'
- DISPLAY "OK"
- ELSE
- DISPLAY "Bad"
- END-IF.
-
- * Second read, should raise a FS 46 (READ AFTER AT END).
- READ INFILE INTO WSINREC
- DISPLAY "R: 2nd READ on missing optional file = " WSFS " "
- NO ADVANCING
- IF WSFS = '46'
- DISPLAY "OK"
- ELSE
- DISPLAY "Bad"
- END-IF.
- READ INFILES INTO WSINREC
- DISPLAY "S: 2nd READ on missing optional file = " WSFS " "
- NO ADVANCING
- IF WSFS = '46'
- DISPLAY "OK"
- ELSE
- DISPLAY "Bad"
- END-IF.
- READ INFILE
- DISPLAY "R: 3rd READ on missing optional file = " WSFS " "
- NO ADVANCING
- IF WSFS = '46'
- DISPLAY "OK"
- ELSE
- DISPLAY "Bad"
- END-IF.
- READ INFILES
- DISPLAY "S: 3rd READ on missing optional file = " WSFS " "
- NO ADVANCING
- IF WSFS = '46'
- DISPLAY "OK"
- ELSE
- DISPLAY "Bad"
- END-IF.
-
- CLOSE INFILE
- CLOSE INFILES
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:3417: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:3417"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:3417"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:3419: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:3419"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "R: OPEN INPUT on missing optional file = 05 OK
-S: OPEN INPUT on missing optional file = 05 OK
-R: 1st READ on missing optional file = 10 OK
-S: 1st READ on missing optional file = 10 OK
-R: 2nd READ on missing optional file = 46 OK
-S: 2nd READ on missing optional file = 46 OK
-R: 3rd READ on missing optional file = 46 OK
-S: 3rd READ on missing optional file = 46 OK
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:3419"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_881
-#AT_START_882
-at_fn_group_banner 882 'run_file.at:3433' \
- "READ on OPTIONAL missing INDEXED file" " " 4
-at_xfail=no
-(
- printf "%s\n" "882. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-printf "%s\n" "run_file.at:3436" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:3436"
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT OPTIONAL file1 ASSIGN "fileX"
- ORGANIZATION IS INDEXED
- RECORD KEY IS file1-key
- STATUS f-status.
-
- DATA DIVISION.
- FILE SECTION.
- FD file1.
- 01 file1-key PIC X.
-
- WORKING-STORAGE SECTION.
- 01 f-status PIC XX.
-
- PROCEDURE DIVISION.
- DELETE FILE file1.
- OPEN INPUT file1.
- IF (f-status <> "05")
- DISPLAY "FAILED OPEN: fs=" f-status
- END-IF
- READ file1
- AT END
- IF (f-status <> "10")
- DISPLAY "FAILED READ AT END: fs=" f-status
- END-IF
-
- NOT AT END
- DISPLAY "FAILED READ NO AT END: status " f-status
- END-READ
- CLOSE file1
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:3477: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:3477"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:3477"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:3478: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:3478"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:3478"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_882
-#AT_START_883
-at_fn_group_banner 883 'run_file.at:3483' \
- "EXTERNAL RELATIVE file" " " 4
-at_xfail=no
-(
- printf "%s\n" "883. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT my-file
- ASSIGN TO "somefile"
- ORGANIZATION IS RELATIVE
- RELATIVE KEY IS my-key.
-
- DATA DIVISION.
- FILE SECTION.
- FD my-file EXTERNAL.
- 01 my-record.
- 03 my-record-data PIC X(80).
-
- WORKING-STORAGE SECTION.
- 01 my-key PIC 9.
-
- PROCEDURE DIVISION.
- OPEN OUTPUT my-file
- MOVE 'testme' TO my-record
- CALL 'prog2'
- CLOSE my-file
- GOBACK.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT my-file
- ASSIGN TO "somefile"
- ORGANIZATION IS RELATIVE
- RELATIVE KEY IS my-key.
-
- DATA DIVISION.
- FILE SECTION.
- FD my-file EXTERNAL.
- 01 two-record PIC X(80).
-
- WORKING-STORAGE SECTION.
- 01 my-key PIC 9.
-
- PROCEDURE DIVISION.
- WRITE two-record
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:3540: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:3540"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:3540"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:3541: \$COMPILE_MODULE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE prog2.cob" "run_file.at:3541"
-( $at_check_trace; $COMPILE_MODULE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:3541"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:3542: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:3542"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:3542"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_883
-#AT_START_884
-at_fn_group_banner 884 'run_file.at:3547' \
- "DECLARATIVES procedure referencing" " " 4
-at_xfail=no
-(
- printf "%s\n" "884. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN "./TEST-FILE".
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(10).
- WORKING-STORAGE SECTION.
- 01 Z USAGE BINARY-LONG VALUE 0.
- PROCEDURE DIVISION.
- DECLARATIVES.
- P01 SECTION.
- USE AFTER ERROR PROCEDURE ON TEST-FILE.
- P0101.
- ADD 1 TO Z.
- END DECLARATIVES.
- * some comments here
- * to mimic real world programs
- MP01 SECTION.
- MP0101.
- OPEN INPUT TEST-FILE.
- PERFORM P0101.
- IF Z NOT = 2
- DISPLAY Z.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:3581: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:3581"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:3581"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:3582: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:3582"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:3582"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_884
-#AT_START_885
-at_fn_group_banner 885 'run_file.at:3587' \
- "DECLARATIVES procedure referencing (multiple)" " " 4
-at_xfail=no
-(
- printf "%s\n" "885. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN "./TEST-FILE".
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(10).
- WORKING-STORAGE SECTION.
- 01 Z USAGE BINARY-LONG VALUE 0.
- PROCEDURE DIVISION.
- DECLARATIVES.
- P01 SECTION.
- USE AFTER ERROR PROCEDURE ON TEST-FILE.
- P0101.
- ADD 1 TO Z.
- P02 SECTION.
- USE AFTER ERROR PROCEDURE ON OUTPUT.
- P0201.
- ADD 1 TO Z.
- END DECLARATIVES.
- MP01 SECTION.
- MP0101.
- OPEN INPUT TEST-FILE.
- PERFORM P01 THRU P02.
- IF Z NOT = 3
- DISPLAY Z.
- GOBACK.
-_ATEOF
-
-
-# disabling the check for "something leaves the section" - as this is
-# guaranteed to happen with this PERFORM THROUGH
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:3625: \$COMPILE -fno-section-exit-check prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fno-section-exit-check prog.cob" "run_file.at:3625"
-( $at_check_trace; $COMPILE -fno-section-exit-check prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:3625"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:3626: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:3626"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:3626"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_885
-#AT_START_886
-at_fn_group_banner 886 'run_file.at:3631' \
- "System routines for directories (1)" " " 4
-at_xfail=no
-(
- printf "%s\n" "886. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 DIR PIC X(4) VALUE 'ABCD'.
-
- PROCEDURE DIVISION.
- CALL 'CBL_CREATE_DIR' USING DIR END-CALL
- IF RETURN-CODE NOT = 0
- DISPLAY 'error creating dir ...' END-DISPLAY
- END-IF
-
- CALL 'CBL_CHANGE_DIR' USING DIR END-CALL
- IF RETURN-CODE NOT = 0
- DISPLAY 'error changing dir ...' END-DISPLAY
- END-IF
-
- CALL 'CBL_CHANGE_DIR' USING '..' END-CALL
- IF RETURN-CODE NOT = 0
- DISPLAY 'error changing dir up ...' END-DISPLAY
- END-IF
-
- CALL 'CBL_DELETE_DIR' USING DIR END-CALL
- IF RETURN-CODE NOT = 0
- DISPLAY 'error deleting dir' END-DISPLAY
- END-IF
-
- STOP RUN.
-_ATEOF
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:3666: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:3666"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:3666"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:3667: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:3667"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:3667"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:3668: test -e abcd"
-at_fn_check_prepare_trace "run_file.at:3668"
-( $at_check_trace; test -e abcd
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_file.at:3668"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_886
-#AT_START_887
-at_fn_group_banner 887 'run_file.at:3673' \
- "System routines for directories (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "887. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 fh PIC X(4) COMP-5.
- 01 rb PIC X(8) COMP-X.
- 01 cb-bfr PIC X(4) COMP-X VALUE 16.
- 01 w-dirname-1 PIC X(4) VALUE "tmp1".
- 01 w-dirname-2 PIC X(9) VALUE "tmp1/tmp2".
- 01 w-dirname-3 PIC X(14) VALUE "tmp1/tmp2/tmp3".
- 01 w-filename PIC X(20) VALUE "tmp1/tmp2/tmp3/file1".
- 01 w-finfo PIC X(16).
-
- PROCEDURE DIVISION.
- CALL "CBL_CREATE_DIR" USING w-dirname-1.
- IF RETURN-CODE <> 0
- DISPLAY "FAILED 1: CBL_CREATE_DIR (res=" RETURN-CODE ")"
- END-IF
-
- CALL "CBL_CREATE_DIR" USING w-dirname-2.
- IF RETURN-CODE <> 0
- DISPLAY "FAILED 2: CBL_CREATE_DIR (res=" RETURN-CODE ")"
- END-IF
-
- * Should fail because directory does NOT exists yet.
- CALL "CBL_CREATE_FILE"
- USING w-filename, 1, 0, 0, fh.
- IF RETURN-CODE <> 35
- DISPLAY "FAILED 3: CBL_CREATE_FILE expected fail (res="
- RETURN-CODE ")"
- IF RETURN-CODE = ZERO
- CALL "CBL_CLOSE_FILE" USING fh
- END-IF
- END-IF
-
- CALL "CBL_CREATE_DIR" USING w-dirname-3.
- IF RETURN-CODE <> 0
- DISPLAY "FAILED 4: CBL_CREATE_DIR (res=" RETURN-CODE ")"
- END-IF
-
- CALL "CBL_CREATE_FILE"
- USING w-filename, 1, 0, 0, fh.
- IF RETURN-CODE <> 0
- DISPLAY "FAILED 5: CBL_CREATE_FILE (res="
- RETURN-CODE ")"
- END-IF
-
- CALL "CBL_CLOSE_FILE" USING fh.
- IF RETURN-CODE <> 0
- DISPLAY "FAILED 6: CBL_CLOSE_FILE (res="
- RETURN-CODE ")"
- END-IF
-
- CALL "CBL_CHECK_FILE_EXIST" USING w-filename, w-finfo.
- IF RETURN-CODE <> 0
- DISPLAY "FAILED 7: CBL_CHECK_FILE_EXIST (res="
- RETURN-CODE ")"
- END-IF
-
-
- * Should fail because directory is NOT empty.
- CALL "CBL_DELETE_DIR" USING w-dirname-1.
- IF RETURN-CODE = 0
- DISPLAY "FAILED 8: CBL_DELETE_DIR EXPECTED TO FAIL"
- END-IF
- ***********************
- * TO-DO: IMPLEMENT CBL_PURGE_DIR? NOT IN MF OR ACU.
- ***********************
- * Remove all files (including sub-directories) in tmp1
- * CALL "CBL_PURGE_DIR" USING w-dirname-1.
- * IF RETURN-CODE <> 0
- * DISPLAY "FAILED 9: CBL_PURGE_DIR (res=" RETURN-CODE ")"
- * END-IF
- *
- * Should succeed because directory is NOW empty.
- * CALL "CBL_DELETE_DIR" USING w-dirname-1.
- * IF RETURN-CODE <> 0
- * DISPLAY "FAILED 10: CBL_DELETE_DIR (res=" RETURN-CODE ")"
- * END-IF
-
- STOP RUN NORMAL
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:3764: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:3764"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:3764"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:3765: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:3765"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:3765"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_887
-#AT_START_888
-at_fn_group_banner 888 'run_file.at:3770' \
- "System routines for files" " " 4
-at_xfail=no
-(
- printf "%s\n" "888. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >file1 <<'_ATEOF'
-
-dummy
-_ATEOF
-
-cat >file2 <<'_ATEOF'
-
-test
-_ATEOF
-
-cat >file3 <<'_ATEOF'
-
-data
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 FNAME PIC X(256) VALUE 'testtext.txt'.
- 01 ACCESS-MODE PIC X USAGE COMP-X VALUE 2.
- 01 FHANDLE PIC X(4) USAGE COMP-X.
-
- 01 OFFSET PIC X(8) USAGE COMP-X.
- 01 NBYTES PIC X(4) USAGE COMP-X.
- 01 WRITE-BUFFER PIC X(20).
-
- PROCEDURE DIVISION.
- CALL 'CBL_CREATE_FILE' USING FNAME 55 11 22 FHANDLE
- END-CALL
- IF RETURN-CODE NOT = -1
- DISPLAY 'Wrong return codes ...' END-DISPLAY
- END-IF
- MOVE 0 TO RETURN-CODE
-
- CALL 'CBL_CREATE_FILE' USING
- FNAME ACCESS-MODE 0 0 FHANDLE
- END-CALL
- IF RETURN-CODE NOT = 0
- DISPLAY 'error creating file ...' END-DISPLAY
- MOVE 0 TO RETURN-CODE
- END-IF
-
- MOVE 'TestText.ABCD' TO WRITE-BUFFER.
- MOVE 0 TO OFFSET.
- MOVE 9 TO NBYTES.
-
- CALL 'CBL_WRITE_FILE' USING
- FHANDLE OFFSET NBYTES '0' WRITE-BUFFER
- END-CALL
- IF RETURN-CODE NOT = 0
- DISPLAY 'error writing file ...' END-DISPLAY
- MOVE 0 TO RETURN-CODE
- END-IF
-
- CALL 'CBL_FLUSH_FILE' USING FHANDLE END-CALL
- IF RETURN-CODE NOT = 0
- DISPLAY 'error flushing file ...' END-DISPLAY
- MOVE 0 TO RETURN-CODE
- END-IF
-
- CALL 'CBL_CLOSE_FILE' USING FHANDLE END-CALL
- IF RETURN-CODE NOT = 0
- DISPLAY 'error closing file ...' END-DISPLAY
- MOVE 0 TO RETURN-CODE
- END-IF
-
- STOP RUN.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 FNAME PIC X(256) VALUE 'testtext.txt'.
- 01 RET PIC -9.
- 01 FHANDLE PIC X(4) USAGE COMP-X.
-
- 01 OFFSET PIC X(8) USAGE COMP-X.
- 01 NBYTES PIC X(4) USAGE COMP-X.
- 01 READ-BUFFER PIC X(10).
-
- PROCEDURE DIVISION.
- CALL 'CBL_OPEN_FILE' USING FNAME 1 0 0 FHANDLE
- END-CALL
- IF RETURN-CODE NOT = 0
- DISPLAY 'error opening file ...' END-DISPLAY
- GOBACK
- END-IF
-
- CALL 'CBL_READ_FILE' USING
- FHANDLE OFFSET NBYTES 128 READ-BUFFER
- END-CALL
- IF RETURN-CODE NOT = 0
- DISPLAY 'error getting file size...'
- return-code
- END-DISPLAY
- MOVE 0 TO RETURN-CODE
- END-IF
- IF OFFSET NOT = 9 *> size written in the first test
- DISPLAY 'Wrong size: ' offset END-DISPLAY
- *> still go on with the explicit size
- ELSE
- *> recheck with unexpected parms:
- MOVE 'baddy' to offset(1:)
- CALL 'CBL_READ_FILE' USING
- FHANDLE OFFSET 0 128 NULL
- END-CALL
- IF RETURN-CODE NOT = 0 or OFFSET NOT = 9
- DISPLAY 'bad handling bad parms '
- 'size: ' offset ' return: ' return-code
- END-DISPLAY
- MOVE 0 TO RETURN-CODE
- END-IF
- END-IF
-
- MOVE SPACES TO READ-BUFFER.
- MOVE 2 TO OFFSET.
- MOVE 9 TO NBYTES.
-
- CALL 'CBL_READ_FILE' USING
- FHANDLE OFFSET NBYTES 0 READ-BUFFER
- END-CALL
- IF RETURN-CODE NOT = 0
- DISPLAY 'error reading file ...'
- return-code
- END-DISPLAY
- MOVE 0 TO RETURN-CODE
- END-IF
- IF READ-BUFFER NOT = 'stText.' *> text from first test
- DISPLAY 'Wrong readbuffer ...' END-DISPLAY
- END-IF
-
- CALL 'CBL_CLOSE_FILE' USING FHANDLE END-CALL
- IF RETURN-CODE NOT = 0
- DISPLAY 'error closing file ...'
- return-code
- END-DISPLAY
- MOVE 0 TO RETURN-CODE
- END-IF
-
- CALL 'CBL_RENAME_FILE' USING FNAME 'foo.txt' END-CALL
- IF RETURN-CODE NOT = 0
- DISPLAY 'error renaming file ...'
- return-code
- END-DISPLAY
- MOVE 0 TO RETURN-CODE
- END-IF
-
- CALL 'CBL_DELETE_FILE' USING 'file1' END-CALL
- IF RETURN-CODE NOT = 0
- DISPLAY 'error deleting file1 ...'
- return-code
- END-DISPLAY
- MOVE 0 TO RETURN-CODE
- END-IF
- CALL 'CBL_DELETE_FILE' USING 'file1' END-CALL
- IF RETURN-CODE = 0
- DISPLAY 'no error on deleting file1 for the second time...'
- return-code
- END-DISPLAY
- END-IF
- MOVE 0 TO RETURN-CODE
-
- CALL 'C$DELETE' USING 'file2' 'S' END-CALL
- IF RETURN-CODE NOT = 0
- DISPLAY 'error deleting file2 ...'
- return-code
- END-DISPLAY
- MOVE 0 TO RETURN-CODE
- END-IF
- CALL 'CBL_DELETE_FILE' USING 'file2' END-CALL
- IF RETURN-CODE = 0 *> note: should only return 0 or 1 when in ACUCOBOL mode
- DISPLAY 'no error on deleting file2 for the second time...'
- return-code
- END-DISPLAY
- END-IF
- MOVE 0 TO RETURN-CODE
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:3954: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:3954"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:3954"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:3955: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:3955"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:15: warning: call to CBL_CREATE_FILE with wrong file_lock: 11
-libcob: prog.cob:15: warning: call to CBL_CREATE_FILE with wrong file_dev: 22
-libcob: prog.cob:15: warning: call to CBL_OPEN_FILE with wrong access mode: 55
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:3955"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:3961: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_file.at:3961"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:3961"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:3962: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "run_file.at:3962"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:3962"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_888
-#AT_START_889
-at_fn_group_banner 889 'run_file.at:3967' \
- "System routines for files - filename mapping" " " 4
-at_xfail=no
-(
- printf "%s\n" "889. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 FNAME PIC X(256).
- 01 RET PIC -9.
- 01 FHANDLE PIC X(4) USAGE COMP-X.
-
- 01 OFFSET PIC X(8) USAGE COMP-X.
- 01 NBYTES PIC X(4) USAGE COMP-X.
- 01 READ-BUFFER PIC X(10).
-
- PROCEDURE DIVISION CHAINING FNAME.
- DISPLAY 'RUN WITH ' FUNCTION TRIM (FNAME TRAILING).
- CALL 'CBL_OPEN_FILE' USING FNAME 1 0 0 FHANDLE.
- IF RETURN-CODE NOT = 0
- DISPLAY 'error opening file ...'
- MOVE 0 TO RETURN-CODE
- STOP RUN.
-
- CALL 'CBL_CLOSE_FILE' USING FHANDLE.
- IF RETURN-CODE NOT = 0
- DISPLAY 'error closing file ...'
- return-code
- MOVE 0 TO RETURN-CODE.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4000: mkdir -p sub"
-at_fn_check_prepare_trace "run_file.at:4000"
-( $at_check_trace; mkdir -p sub
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4000"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4001: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:4001"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4001"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4002: \$COBCRUN_DIRECT ./prog notthere"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog notthere" "run_file.at:4002"
-( $at_check_trace; $COBCRUN_DIRECT ./prog notthere
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "RUN WITH notthere
-error opening file ...
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4002"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4006: \$COBCRUN_DIRECT ./prog prog.cob"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog prog.cob" "run_file.at:4006"
-( $at_check_trace; $COBCRUN_DIRECT ./prog prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "RUN WITH prog.cob
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4006"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4009: \$COBCRUN_DIRECT ./prog ./prog.cob"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog ./prog.cob" "run_file.at:4009"
-( $at_check_trace; $COBCRUN_DIRECT ./prog ./prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "RUN WITH ./prog.cob
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4009"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# the first part is resolved by DD_var and dd_var
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4013: DD_dot=\".\" dd_dot=\"A\" dot=\"B\" \$COBCRUN_DIRECT ./prog 'dot/prog.cob'"
-at_fn_check_prepare_dynamic "DD_dot=\".\" dd_dot=\"A\" dot=\"B\" $COBCRUN_DIRECT ./prog 'dot/prog.cob'" "run_file.at:4013"
-( $at_check_trace; DD_dot="." dd_dot="A" dot="B" $COBCRUN_DIRECT ./prog 'dot/prog.cob'
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "RUN WITH dot/prog.cob
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4013"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# MinGW and other Win32 builds would fail this - because "getenv is not case sensitive"
-# note: does not apply to cygwin; "AAA" wins over "aaa"
-if test "$PATHSEP" != ";"; then
- { set +x
-printf "%s\n" "$at_srcdir/run_file.at:4019: DD_dot=\"\" dd_dot=\".\" dot=\"A\" \$COBCRUN_DIRECT ./prog 'dot/prog.cob'"
-at_fn_check_prepare_dynamic "DD_dot=\"\" dd_dot=\".\" dot=\"A\" $COBCRUN_DIRECT ./prog 'dot/prog.cob'" "run_file.at:4019"
-( $at_check_trace; DD_dot="" dd_dot="." dot="A" $COBCRUN_DIRECT ./prog 'dot/prog.cob'
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "RUN WITH dot/prog.cob
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4019"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-fi
-# MF would say (ignore for now as this conflicts with ACUCOBOL) don't resolve by $
-# as it does not start with $:
-#AT_CHECK([DD_dot="" dd_dot="" dot="." $COBCRUN_DIRECT ./prog 'dot/prog.cob'], [0],
-#[RUN WITH dot/prog.cob
-#error opening file ...
-#], [])
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4029: DD_dot=\"\" dd_dot=\"\" dot=\".\" \$COBCRUN_DIRECT ./prog 'dot/prog.cob'"
-at_fn_check_prepare_dynamic "DD_dot=\"\" dd_dot=\"\" dot=\".\" $COBCRUN_DIRECT ./prog 'dot/prog.cob'" "run_file.at:4029"
-( $at_check_trace; DD_dot="" dd_dot="" dot="." $COBCRUN_DIRECT ./prog 'dot/prog.cob'
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "RUN WITH dot/prog.cob
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4029"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4032: DD_dot=\"\" dd_dot=\"\" dot=\"\" \$COBCRUN_DIRECT ./prog 'dot/prog.cob'"
-at_fn_check_prepare_dynamic "DD_dot=\"\" dd_dot=\"\" dot=\"\" $COBCRUN_DIRECT ./prog 'dot/prog.cob'" "run_file.at:4032"
-( $at_check_trace; DD_dot="" dd_dot="" dot="" $COBCRUN_DIRECT ./prog 'dot/prog.cob'
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "RUN WITH dot/prog.cob
-error opening file ...
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4032"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# the first part with $ is resolved by DD_var and dd_var and var
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4037: DD_dot=\".\" dd_dot=\"\" dot=\"\" \$COBCRUN_DIRECT ./prog '\$dot/prog.cob'"
-at_fn_check_prepare_dynamic "DD_dot=\".\" dd_dot=\"\" dot=\"\" $COBCRUN_DIRECT ./prog '$dot/prog.cob'" "run_file.at:4037"
-( $at_check_trace; DD_dot="." dd_dot="" dot="" $COBCRUN_DIRECT ./prog '$dot/prog.cob'
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "RUN WITH \$dot/prog.cob
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4037"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# MinGW and other Win32 builds would fail this - because "getenv is not case sensitive"
-# note: does not apply to cygwin; "AAA" wins over "aaa"
-if test "$PATHSEP" != ";"; then
- { set +x
-printf "%s\n" "$at_srcdir/run_file.at:4043: DD_dot=\"\" dd_dot=\".\" dot=\"\" \$COBCRUN_DIRECT ./prog '\$dot/prog.cob'"
-at_fn_check_prepare_dynamic "DD_dot=\"\" dd_dot=\".\" dot=\"\" $COBCRUN_DIRECT ./prog '$dot/prog.cob'" "run_file.at:4043"
-( $at_check_trace; DD_dot="" dd_dot="." dot="" $COBCRUN_DIRECT ./prog '$dot/prog.cob'
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "RUN WITH \$dot/prog.cob
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4043"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-fi
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4047: DD_dot=\"\" dd_dot=\"\" dot=\".\" \$COBCRUN_DIRECT ./prog '\$dot/prog.cob'"
-at_fn_check_prepare_dynamic "DD_dot=\"\" dd_dot=\"\" dot=\".\" $COBCRUN_DIRECT ./prog '$dot/prog.cob'" "run_file.at:4047"
-( $at_check_trace; DD_dot="" dd_dot="" dot="." $COBCRUN_DIRECT ./prog '$dot/prog.cob'
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "RUN WITH \$dot/prog.cob
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4047"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# if a _leading_ $ does not exist it is removed, together with the following slash
-# --> should ignore the variable and the first slash
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4052: DD_dot=\"\" dd_dot=\"\" dot=\"\" \$COBCRUN_DIRECT ./prog '\$dot/prog.cob'"
-at_fn_check_prepare_dynamic "DD_dot=\"\" dd_dot=\"\" dot=\"\" $COBCRUN_DIRECT ./prog '$dot/prog.cob'" "run_file.at:4052"
-( $at_check_trace; DD_dot="" dd_dot="" dot="" $COBCRUN_DIRECT ./prog '$dot/prog.cob'
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "RUN WITH \$dot/prog.cob
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4052"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# would _possibly_ fail with MF (their docs do not match their behaviour in any case...)
-# but this is by GnuCOBOL design here:
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4057: DD_dot=\"\" dd_dot=\"\" dot=\"\" \$COBCRUN_DIRECT ./prog '\$dot/\$dotter/prog.cob'"
-at_fn_check_prepare_dynamic "DD_dot=\"\" dd_dot=\"\" dot=\"\" $COBCRUN_DIRECT ./prog '$dot/$dotter/prog.cob'" "run_file.at:4057"
-( $at_check_trace; DD_dot="" dd_dot="" dot="" $COBCRUN_DIRECT ./prog '$dot/$dotter/prog.cob'
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "RUN WITH \$dot/\$dotter/prog.cob
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4057"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4060: DD_dot=\"\" dd_dot=\"\" dot=\"dot\" \$COBCRUN_DIRECT ./prog '\$dot/prog.cob'"
-at_fn_check_prepare_dynamic "DD_dot=\"\" dd_dot=\"\" dot=\"dot\" $COBCRUN_DIRECT ./prog '$dot/prog.cob'" "run_file.at:4060"
-( $at_check_trace; DD_dot="" dd_dot="" dot="dot" $COBCRUN_DIRECT ./prog '$dot/prog.cob'
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "RUN WITH \$dot/prog.cob
-error opening file ...
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4060"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# should try './prog'
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4065: DD_prog=\"A\" dd_prog=\"B\" prog=\"C\" \$COBCRUN_DIRECT ./prog './prog.cob'"
-at_fn_check_prepare_dynamic "DD_prog=\"A\" dd_prog=\"B\" prog=\"C\" $COBCRUN_DIRECT ./prog './prog.cob'" "run_file.at:4065"
-( $at_check_trace; DD_prog="A" dd_prog="B" prog="C" $COBCRUN_DIRECT ./prog './prog.cob'
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "RUN WITH ./prog.cob
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4065"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# should try './$prog'
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4069: DD_prog=\"\" dd_prog=\"\" prog=\"\" \$COBCRUN_DIRECT ./prog './\$prog.cob'"
-at_fn_check_prepare_dynamic "DD_prog=\"\" dd_prog=\"\" prog=\"\" $COBCRUN_DIRECT ./prog './$prog.cob'" "run_file.at:4069"
-( $at_check_trace; DD_prog="" dd_prog="" prog="" $COBCRUN_DIRECT ./prog './$prog.cob'
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "RUN WITH ./\$prog.cob
-error opening file ...
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4069"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4073: \$COBCRUN_DIRECT ./prog ../prog.cob"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog ../prog.cob" "run_file.at:4073"
-( $at_check_trace; $COBCRUN_DIRECT ./prog ../prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "RUN WITH ../prog.cob
-error opening file ...
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4073"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4077: \$COBCRUN_DIRECT ./prog sub/../prog.cob"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog sub/../prog.cob" "run_file.at:4077"
-( $at_check_trace; $COBCRUN_DIRECT ./prog sub/../prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "RUN WITH sub/../prog.cob
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4077"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_889
-#AT_START_890
-at_fn_group_banner 890 'run_file.at:4084' \
- "System routine CBL_COPY_FILE" " " 4
-at_xfail=no
-(
- printf "%s\n" "890. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY "test" END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 FILE1 PIC X(8) VALUE 'prog.cob'.
- 01 FILE2 PIC X(9) VALUE 'prog3.cob'.
-
- PROCEDURE DIVISION.
- CALL 'CBL_COPY_FILE' USING
- FILE1 FILE2
- END-CALL
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4112: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_file.at:4112"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4112"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4113: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "run_file.at:4113"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4113"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4114: diff prog.cob prog3.cob"
-at_fn_check_prepare_trace "run_file.at:4114"
-( $at_check_trace; diff prog.cob prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4114"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_890
-#AT_START_891
-at_fn_group_banner 891 'run_file.at:4119' \
- "Default file external name" " " 4
-at_xfail=no
-(
- printf "%s\n" "891. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >fexists_signed.c <<'_ATEOF'
-
-
-#include <string.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <libcob.h>
-
-/*
- * Check file is present and correct by comparing
- * its content to a given signature.
- */
-COB_EXT_EXPORT int
-fexists_signed (char *fid, char *signature, int signature_size)
-{
- char *bfr;
- FILE *f;
- int res = -1;
-
- f = fopen (fid, "r");
- if (f != NULL) {
- bfr = (char *) cob_malloc (signature_size);
- if (1 == fread (bfr, signature_size, 1, f)) {
- if (!memcmp (signature, bfr, signature_size)) {
- res = 0;
- }
- }
- free (bfr);
- }
- return res;
-}
-_ATEOF
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT file1 ASSIGN DISK.
- DATA DIVISION.
- FILE SECTION.
- FD file1.
- 1 file1-rec.
- 2 file1-date pic x(8).
- 2 file1-time pic x(8).
- WORKING-STORAGE SECTION.
- 77 erc BINARY-LONG.
- 77 rec-size BINARY-LONG VALUE 16.
- PROCEDURE DIVISION.
- ACCEPT file1-date FROM DATE YYYYMMDD.
- ACCEPT file1-time FROM TIME.
- OPEN OUTPUT file1.
- WRITE file1-rec.
- CLOSE file1.
- CALL "fexists_signed" USING
- BY REFERENCE "./file1" file1-rec
- BY VALUE rec-size
- RETURNING erc.
- IF (erc <> 0)
- DISPLAY "FAILED file1".
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4184: \$COMPILE_MODULE fexists_signed.c"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE fexists_signed.c" "run_file.at:4184"
-( $at_check_trace; $COMPILE_MODULE fexists_signed.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4184"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4185: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:4185"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4185"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4186: unset COB_FILE_PATH ; ./prog"
-at_fn_check_prepare_trace "run_file.at:4186"
-( $at_check_trace; unset COB_FILE_PATH ; ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4186"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_891
-#AT_START_892
-at_fn_group_banner 892 'run_file.at:4193' \
- "SEQUENTIAL basic I/O" " " 4
-at_xfail=no
-(
- printf "%s\n" "892. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT file1 ASSIGN DISK ORGANIZATION SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD file1.
- 1 file1-rec pic x.
- PROCEDURE DIVISION.
- DELETE FILE file1.
- OPEN OUTPUT file1.
- MOVE "A" TO file1-rec.
- WRITE file1-rec.
- CLOSE file1.
- OPEN I-O file1.
- READ file1.
- IF file1-rec <> "A"
- display "FIRST READ FAILED"
- ELSE
- MOVE "X" TO file1-rec
- REWRITE file1-rec.
- CLOSE file1.
- IF file1-rec NOT = "X"
- STOP RUN.
- OPEN INPUT file1.
- READ file1.
- IF file1-rec <> "X"
- display "SECOND READ FAILED".
- CLOSE file1.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4231: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:4231"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4231"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4232: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:4232"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4232"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# recheck with COB_SYNC to cover additional code paths
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4234: COB_SYNC=Y \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_SYNC=Y $COBCRUN_DIRECT ./prog" "run_file.at:4234"
-( $at_check_trace; COB_SYNC=Y $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4234"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_892
-#AT_START_893
-at_fn_group_banner 893 'run_file.at:4242' \
- "LINE SEQUENTIAL basic I/O" " " 4
-at_xfail=no
-(
- printf "%s\n" "893. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT file1 ASSIGN DISK ORGANIZATION LINE SEQUENTIAL.
- SELECT file2 ASSIGN DISK ORGANIZATION LINE SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD file1.
- 1 file1-rec pic x.
- FD file2.
- 1 file2-rec pic xx.
- PROCEDURE DIVISION.
- DELETE FILE file1, file2
- OPEN OUTPUT file1, file2
- MOVE "A" TO file1-rec, file2-rec
- WRITE file1-rec
- WRITE file2-rec
- MOVE " " TO file1-rec, file2-rec
- WRITE file1-rec
- WRITE file2-rec
- WRITE file1-rec FROM "A"
- WRITE file2-rec FROM "AA"
- WRITE file1-rec FROM " "
- WRITE file2-rec FROM " A"
- CLOSE file1, file2
- OPEN INPUT file1, file2
- READ file1
- IF file1-rec NOT = "A"
- display "FAILED 1 file1 - '" file1-rec "'".
- READ file2
- IF file2-rec NOT = "A"
- display "FAILED 1 file2 - '" file2-rec "'".
- READ file1
- IF file1-rec NOT = SPACE
- display "FAILED 2 file1 - '" file1-rec "'".
- READ file2
- IF file2-rec NOT = SPACES
- display "FAILED 2 file2 - '" file2-rec "'".
- READ file1
- IF file1-rec NOT = "A"
- display "FAILED 3 file1 - '" file1-rec "'".
- READ file2
- IF file2-rec NOT = "AA"
- display "FAILED 3 file2 - '" file2-rec "'".
- READ file1
- IF file1-rec NOT = SPACE
- display "FAILED 4 file1 - '" file1-rec "'".
- READ file2
- IF file2-rec NOT = " A"
- display "FAILED 4 file2 - '" file2-rec "'".
- CLOSE file1, file2.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4302: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:4302"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4302"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4303: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:4303"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4303"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_893
-#AT_START_894
-at_fn_group_banner 894 'run_file.at:4308' \
- "LINE SEQUENTIAL WRITE AFTER" " " 4
-at_xfail=no
-(
- printf "%s\n" "894. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN "./TEST-FILE"
- ORGANIZATION IS LINE SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(4).
- PROCEDURE DIVISION.
- OPEN OUTPUT TEST-FILE.
- MOVE "a" TO TEST-REC.
- WRITE TEST-REC
- END-WRITE.
- MOVE "ab" TO TEST-REC.
- WRITE TEST-REC AFTER 1 LINES
- END-WRITE.
- MOVE "abc" TO TEST-REC.
- WRITE TEST-REC BEFORE 2 LINES
- END-WRITE.
- MOVE "abcd" TO TEST-REC.
- WRITE TEST-REC
- END-WRITE.
- CLOSE TEST-FILE.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4341: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:4341"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4341"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4342: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:4342"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4342"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4343: cat TEST-FILE"
-at_fn_check_prepare_trace "run_file.at:4343"
-( $at_check_trace; cat TEST-FILE
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "a
-
-ababc
-
-abcd
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4343"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_894
-#AT_START_895
-at_fn_group_banner 895 'run_file.at:4354' \
- "LINE SEQUENTIAL record truncation (1)" " " 4
-at_xfail=no
-(
- printf "%s\n" "895. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >TEST-FILE <<'_ATEOF'
-a
-ab
-abc
-abcd
-abcde
-abcdef
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN "./TEST-FILE"
- ORGANIZATION IS LINE SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(4).
- PROCEDURE DIVISION.
- OPEN INPUT TEST-FILE
- PERFORM UNTIL EXIT
- READ TEST-FILE
- AT END EXIT PERFORM
- END-READ
- DISPLAY "(" TEST-REC ")"
- END-DISPLAY
- END-PERFORM.
- CLOSE TEST-FILE.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4391: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:4391"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4391"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4392: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:4392"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "(a )
-(ab )
-(abc )
-(abcd)
-(abcd)
-(e )
-(abcd)
-(ef )
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4392"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN "./TEST-FILE"
- ORGANIZATION IS LINE SEQUENTIAL
- STATUS IS TEST-STATUS.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(4).
- WORKING-STORAGE SECTION.
- 77 TEST-STATUS PIC XX.
- PROCEDURE DIVISION.
- OPEN INPUT TEST-FILE
- PERFORM UNTIL TEST-STATUS (1:1) NOT = '0'
- READ TEST-FILE
- END-READ
- DISPLAY "(" TEST-REC ") " TEST-STATUS
- END-DISPLAY
- END-PERFORM.
- CLOSE TEST-FILE.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4430: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_file.at:4430"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4430"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4431: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "run_file.at:4431"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "(a ) 00
-(ab ) 00
-(abc ) 00
-(abcd) 00
-(abcd) 06
-(e ) 00
-(abcd) 06
-(ef ) 00
-(ef ) 10
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4431"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# this one is the actual extension (old OpenCOBOL/GnuCOBOL behaviour)
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4444: COB_LS_SPLIT=FALSE \\
-\$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_notrace 'an embedded newline' "run_file.at:4444"
-( $at_check_trace; COB_LS_SPLIT=FALSE \
-$COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "(a ) 00
-(ab ) 00
-(abc ) 00
-(abcd) 00
-(abcd) 04
-(abcd) 04
-(abcd) 10
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4444"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_895
-#AT_START_896
-at_fn_group_banner 896 'run_file.at:4458' \
- "LINE SEQUENTIAL record truncation (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "896. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >inp_data <<'_ATEOF'
-Record 1................................X.......
-Record 2.....................X
-Record 3................................X...
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT INFILE ASSIGN TO EXTERNAL INFILE
- ORGANIZATION IS LINE SEQUENTIAL
- FILE STATUS IS INPUT-STATUS .
-
- SELECT OUTFILE ASSIGN TO EXTERNAL OUTFILE
- ORGANIZATION IS LINE SEQUENTIAL
- FILE STATUS IS INPUT-STATUS .
-
- DATA DIVISION.
- FILE SECTION.
- FD INFILE
- RECORD IS VARYING IN SIZE FROM 18 TO 40 CHARACTERS
- DEPENDING ON INPUT-LEN
- .
- 01 INPUT-REC PIC X(40).
-
- FD OUTFILE
- RECORD IS VARYING IN SIZE FROM 18 TO 40 CHARACTERS
- DEPENDING ON INPUT-LEN
- .
- 01 OUTPUT-REC PIC X(40).
-
- WORKING-STORAGE SECTION.
-
- 01 OUTPUT-FILE PIC X(19) VALUE 'TEST-FILE'.
- 01 INPUT-FILE PIC X(19) VALUE 'TEST-INP'.
- 01 INPUT-STATUS PIC XX.
- 01 INPUT-LEN PIC 999 VALUE 18 .
-
- PROCEDURE DIVISION.
- A000-BEGIN.
- OPEN INPUT INFILE.
- READ INFILE
- DISPLAY " Read 1: STATUS IS " INPUT-STATUS
- " LENGTH IS " INPUT-LEN
- DISPLAY " :" INPUT-REC ":"
- READ INFILE
- DISPLAY " Read 2: STATUS IS " INPUT-STATUS
- " LENGTH IS " INPUT-LEN
- DISPLAY " :" INPUT-REC ":"
- MOVE 0 TO INPUT-LEN
- READ INFILE
- DISPLAY " Read 3: STATUS IS " INPUT-STATUS
- " LENGTH IS " INPUT-LEN
- DISPLAY " :" INPUT-REC ":"
- MOVE SPACES TO INPUT-REC
- MOVE 0 TO INPUT-LEN
- READ INFILE
- DISPLAY " Read 4: STATUS IS " INPUT-STATUS
- " LENGTH IS " INPUT-LEN
- IF INPUT-STATUS (1:1) = "0"
- DISPLAY " :" INPUT-REC ":"
- END-IF
- CLOSE INFILE
-
- OPEN OUTPUT OUTFILE
- MOVE 9 TO INPUT-LEN
- MOVE "Record 1............." TO OUTPUT-REC
- WRITE OUTPUT-REC
- DISPLAY "Write 1: STATUS IS " INPUT-STATUS
- " LENGTH IS " INPUT-LEN
- UPON CONSOLE
- MOVE 64 TO INPUT-LEN
- MOVE ALL '.' TO OUTPUT-REC
- MOVE "Record 2" TO OUTPUT-REC (1:8)
- WRITE OUTPUT-REC
- DISPLAY "Write 2: STATUS IS " INPUT-STATUS
- " LENGTH IS " INPUT-LEN
- UPON CONSOLE
- CLOSE OUTFILE
- STOP RUN.
-_ATEOF
-
-
-
-
-
-cat >reference <<'_ATEOF'
-Record 1.
-Record 2................................
-_ATEOF
-
-
-# normal compile, switched via runtime option
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4555: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:4555"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4555"
-$at_failed && at_fn_log_failure \
-"TEST-FILE"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4557: COB_LS_SPLIT=FALSE DD_INFILE=./inp_data OUTFILE=TEST-FILE \\
-\$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_notrace 'an embedded newline' "run_file.at:4557"
-( $at_check_trace; COB_LS_SPLIT=FALSE DD_INFILE=./inp_data OUTFILE=TEST-FILE \
-$COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " Read 1: STATUS IS 04 LENGTH IS 040
- :Record 1................................:
- Read 2: STATUS IS 00 LENGTH IS 030
- :Record 2.....................X :
- Read 3: STATUS IS 04 LENGTH IS 040
- :Record 3................................:
- Read 4: STATUS IS 10 LENGTH IS 000
-Write 1: STATUS IS 00 LENGTH IS 009
-Write 2: STATUS IS 00 LENGTH IS 064
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4557"
-$at_failed && at_fn_log_failure \
-"TEST-FILE"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4570: diff reference TEST-FILE"
-at_fn_check_prepare_trace "run_file.at:4570"
-( $at_check_trace; diff reference TEST-FILE
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4570"
-$at_failed && at_fn_log_failure \
-"TEST-FILE"
-$at_traceon; }
-
-
-# same check with dialect option (4.x feature)
-# AT_CHECK([$COMPILE -std=gc31 prog.cob], [0], [], [])
-#
-# same result, but status 00
-# AT_CHECK([DD_INFILE=./inp_data OUTFILE=TEST-FILE \
-# $COBCRUN_DIRECT ./prog], [0],
-# [ Read 1: STATUS IS 00 LENGTH IS 040
-# :Record 1................................:
-# Read 2: STATUS IS 00 LENGTH IS 030
-# :Record 2.....................X :
-# Read 3: STATUS IS 00 LENGTH IS 040
-# :Record 3................................:
-# Read 4: STATUS IS 10 LENGTH IS 000
-# Write 1: STATUS IS 00 LENGTH IS 009
-# Write 2: STATUS IS 00 LENGTH IS 064
-# ], [])
-#
-# AT_CHECK([diff reference TEST-FILE], [0], [], [])
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_896
-#AT_START_897
-at_fn_group_banner 897 'run_file.at:4594' \
- "LINE SEQUENTIAL standard record overflow" " " 4
-at_xfail=no
-(
- printf "%s\n" "897. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >inp_data <<'_ATEOF'
-Record 1................................X.......
-Record 2.....................X
-Record 3................................X...
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT INFILE ASSIGN TO EXTERNAL INFILE
- ORGANIZATION IS LINE SEQUENTIAL
- FILE STATUS IS INPUT-STATUS .
-
- SELECT OUTFILE ASSIGN TO EXTERNAL OUTFILE
- ORGANIZATION IS LINE SEQUENTIAL
- FILE STATUS IS INPUT-STATUS .
-
- DATA DIVISION.
- FILE SECTION.
- FD INFILE
- RECORD IS VARYING IN SIZE FROM 18 TO 40 CHARACTERS
- DEPENDING ON INPUT-LEN
- .
- 01 INPUT-REC PIC X(40).
-
- FD OUTFILE
- RECORD IS VARYING IN SIZE FROM 18 TO 40 CHARACTERS
- DEPENDING ON INPUT-LEN
- .
- 01 OUTPUT-REC PIC X(40).
-
- WORKING-STORAGE SECTION.
-
- 01 OUTPUT-FILE PIC X(19) VALUE 'TEST-FILE'.
- 01 INPUT-FILE PIC X(19) VALUE 'TEST-INP'.
- 01 INPUT-STATUS PIC XX.
- 01 INPUT-LEN PIC 999 VALUE 18 .
-
- PROCEDURE DIVISION.
- A000-BEGIN.
- OPEN INPUT INFILE.
- READ INFILE
- DISPLAY " Read 1: STATUS IS " INPUT-STATUS
- " LENGTH IS " INPUT-LEN
- DISPLAY " :" INPUT-REC ":"
- READ INFILE
- DISPLAY " Read 2: STATUS IS " INPUT-STATUS
- " LENGTH IS " INPUT-LEN
- DISPLAY " :" INPUT-REC ":"
- MOVE 0 TO INPUT-LEN
- READ INFILE
- DISPLAY " Read 3: STATUS IS " INPUT-STATUS
- " LENGTH IS " INPUT-LEN
- DISPLAY " :" INPUT-REC ":"
- MOVE SPACES TO INPUT-REC
- MOVE 0 TO INPUT-LEN
- READ INFILE
- DISPLAY " Read 4: STATUS IS " INPUT-STATUS
- " LENGTH IS " INPUT-LEN
- IF INPUT-STATUS (1:1) = "0"
- DISPLAY " :" INPUT-REC ":"
- END-IF
- CLOSE INFILE
-
- OPEN OUTPUT OUTFILE
- MOVE 9 TO INPUT-LEN
- MOVE "Record 1............." TO OUTPUT-REC
- WRITE OUTPUT-REC
- DISPLAY "Write 1: STATUS IS " INPUT-STATUS
- " LENGTH IS " INPUT-LEN
- UPON CONSOLE
- MOVE 64 TO INPUT-LEN
- MOVE ALL '.' TO OUTPUT-REC
- MOVE "Record 2" TO OUTPUT-REC (1:8)
- WRITE OUTPUT-REC
- DISPLAY "Write 2: STATUS IS " INPUT-STATUS
- " LENGTH IS " INPUT-LEN
- UPON CONSOLE
- CLOSE OUTFILE
- STOP RUN.
-_ATEOF
-
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4684: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:4684"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4684"
-$at_failed && at_fn_log_failure \
-"TEST-FILE"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4686: DD_INFILE=./inp_data OUTFILE=TEST-FILE \\
-\$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_notrace 'an embedded newline' "run_file.at:4686"
-( $at_check_trace; DD_INFILE=./inp_data OUTFILE=TEST-FILE \
-$COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " Read 1: STATUS IS 06 LENGTH IS 040
- :Record 1................................:
- Read 2: STATUS IS 00 LENGTH IS 008
- :X....... :
- Read 3: STATUS IS 00 LENGTH IS 030
- :Record 2.....................X :
- Read 4: STATUS IS 06 LENGTH IS 040
- :Record 3................................:
-Write 1: STATUS IS 00 LENGTH IS 009
-Write 2: STATUS IS 00 LENGTH IS 064
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4686"
-$at_failed && at_fn_log_failure \
-"TEST-FILE"
-$at_traceon; }
-
-
-cat >reference <<'_ATEOF'
-Record 1.
-Record 2................................
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:4705: diff reference TEST-FILE"
-at_fn_check_prepare_trace "run_file.at:4705"
-( $at_check_trace; diff reference TEST-FILE
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:4705"
-$at_failed && at_fn_log_failure \
-"TEST-FILE"
-$at_traceon; }
-
-
-# same check with dialect option (4.x feature)
-# AT_CHECK([$COMPILE -std=gc31 prog.cob], [0], [], [])
-#
-# same result because of configuration, but status 00
-# AT_CHECK([COB_LS_SPLIT=TRUE DD_INFILE=./inp_data OUTFILE=TEST-FILE \
-# $COBCRUN_DIRECT ./prog], [0],
-# [ Read 1: STATUS IS 00 LENGTH IS 040
-# :Record 1................................:
-# Read 2: STATUS IS 00 LENGTH IS 008
-# :X....... :
-# Read 3: STATUS IS 00 LENGTH IS 030
-# :Record 2.....................X :
-# Read 4: STATUS IS 00 LENGTH IS 040
-# :Record 3................................:
-# Write 1: STATUS IS 00 LENGTH IS 009
-# Write 2: STATUS IS 00 LENGTH IS 064
-# ], [])
-#
-# AT_CHECK([diff reference TEST-FILE], [0], [], [])
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_897
-#AT_START_898
-at_fn_group_banner 898 'run_file.at:4730' \
- "LINAGE and LINAGE-COUNTER sample" " " 4
-at_xfail=no
-(
- printf "%s\n" "898. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# modified version of GC-FAQ: Example of LINAGE File Descriptor
-# Author: Brian Tiffin, Date: 10-July-2008
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- select optional data-file assign to 'prog.cob'
- organization is line sequential
- file status is data-file-status.
- select mini-report assign to "mini-report".
-
- DATA DIVISION.
- FILE SECTION.
- FD data-file.
- 01 data-record.
- 88 endofdata value high-values.
- 02 data-line pic x(80).
- FD mini-report
- linage is 16 lines
- with footing at 15
- lines at top 2
- lines at bottom 2.
- 01 report-line pic x(80).
-
- WORKING-STORAGE SECTION.
- 01 command-arguments pic x(1024).
- 01 file-name pic x(160).
- 01 data-file-status pic xx.
- 01 lc pic 99.
- 01 report-line-blank.
- 02 filler pic x(18) value all "*".
- 02 filler pic x(05) value spaces.
- 02 filler pic x(34)
- VALUE "THIS PAGE INTENTIONALLY LEFT BLANK".
- 02 filler pic x(05) value spaces.
- 02 filler pic x(18) value all "*".
- 01 report-line-data.
- 02 body-tag pic 9(6).
- 02 line-3 pic x(74).
- 01 report-line-header.
- 02 filler pic x(6) VALUE "PAGE: ".
- 02 page-no pic 9999.
- 02 filler pic x(24).
- 02 filler pic x(5) VALUE " LC: ".
- 02 header-tag pic 9(6).
- 02 filler pic x(23).
- 02 filler pic x(6) VALUE "DATE: ".
- 02 page-date pic x(6).
-
- 01 page-count pic 9999.
-
- PROCEDURE DIVISION.
- main.
- open input data-file.
- read data-file
- at end
- display "File open error: " data-file-status
- stop run
- end-read.
-
- open output mini-report.
-
- write report-line
- from report-line-blank
- end-write.
-
- move 1 to page-count.
- accept page-date from date end-accept.
- move page-count to page-no.
- write report-line
- from report-line-header
- after advancing page
- end-write.
-
- perform readwrite-loop until endofdata.
-
- display
- "Normal termination, ending status: "
- data-file-status
- close mini-report.
-
- close data-file.
- stop run.
-
- ****************************************************************
- readwrite-loop.
- move data-record to report-line-data
- move linage-counter to body-tag
- write report-line from report-line-data
- end-of-page
- add 1 to page-count end-add
- move page-count to page-no
- move linage-counter to header-tag
- write report-line from report-line-header
- after advancing page
- end-write
- end-write
- read data-file
- at end set endofdata to true
- end-read
- .
-_ATEOF
-
-
-
-cat >reference-report <<'_ATEOF'
-
-
-****************** THIS PAGE INTENTIONALLY LEFT BLANK ******************
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-PAGE: 0001 LC: 000000 DATE: 150206
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 ENVIRONMENT DIVISION.
-000005 INPUT-OUTPUT SECTION.
-000006 FILE-CONTROL.
-000007 select optional data-file assign to 'prog.cob'
-000008 organization is line sequential
-000009 file status is data-file-status.
-000010 select mini-report assign to "mini-report".
-000011
-000012 DATA DIVISION.
-000013 FILE SECTION.
-000014 FD data-file.
-
-
-
-
-
-PAGE: 0002 LC: 000015 DATE: 150206
-000001 01 data-record.
-000002 88 endofdata value high-values.
-000003 02 data-line pic x(80).
-000004 FD mini-report
-000005 linage is 16 lines
-000006 with footing at 15
-000007 lines at top 2
-000008 lines at bottom 2.
-000009 01 report-line pic x(80).
-000010
-000011 WORKING-STORAGE SECTION.
-000012 01 command-arguments pic x(1024).
-000013 01 file-name pic x(160).
-000014 01 data-file-status pic xx.
-
-
-
-
-
-PAGE: 0003 LC: 000015 DATE: 150206
-000001 01 lc pic 99.
-000002 01 report-line-blank.
-000003 02 filler pic x(18) value all "*".
-000004 02 filler pic x(05) value spaces.
-000005 02 filler pic x(34)
-000006 VALUE "THIS PAGE INTENTIONALLY LEFT BLANK".
-000007 02 filler pic x(05) value spaces.
-000008 02 filler pic x(18) value all "*".
-000009 01 report-line-data.
-000010 02 body-tag pic 9(6).
-000011 02 line-3 pic x(74).
-000012 01 report-line-header.
-000013 02 filler pic x(6) VALUE "PAGE: ".
-000014 02 page-no pic 9999.
-
-
-
-
-
-PAGE: 0004 LC: 000015 DATE: 150206
-000001 02 filler pic x(24).
-000002 02 filler pic x(5) VALUE " LC: ".
-000003 02 header-tag pic 9(6).
-000004 02 filler pic x(23).
-000005 02 filler pic x(6) VALUE "DATE: ".
-000006 02 page-date pic x(6).
-000007
-000008 01 page-count pic 9999.
-000009
-000010 PROCEDURE DIVISION.
-000011 main.
-000012 open input data-file.
-000013 read data-file
-000014 at end
-
-
-
-
-
-PAGE: 0005 LC: 000015 DATE: 150206
-000001 display "File open error: " data-file-status
-000002 stop run
-000003 end-read.
-000004
-000005 open output mini-report.
-000006
-000007 write report-line
-000008 from report-line-blank
-000009 end-write.
-000010
-000011 move 1 to page-count.
-000012 accept page-date from date end-accept.
-000013 move page-count to page-no.
-000014 write report-line
-
-
-
-
-
-PAGE: 0006 LC: 000015 DATE: 150206
-000001 from report-line-header
-000002 after advancing page
-000003 end-write.
-000004
-000005 perform readwrite-loop until endofdata.
-000006
-000007 display
-000008 "Normal termination, ending status: "
-000009 data-file-status
-000010 close mini-report.
-000011
-000012 close data-file.
-000013 stop run.
-000014
-
-
-
-
-
-PAGE: 0007 LC: 000015 DATE: 150206
-000001****************************************************************
-000002 readwrite-loop.
-000003 move data-record to report-line-data
-000004 move linage-counter to body-tag
-000005 write report-line from report-line-data
-000006 end-of-page
-000007 add 1 to page-count end-add
-000008 move page-count to page-no
-000009 move linage-counter to header-tag
-000010 write report-line from report-line-header
-000011 after advancing page
-000012 end-write
-000013 end-write
-000014 read data-file
-
-
-
-
-
-PAGE: 0008 LC: 000015 DATE: 150206
-000001 at end set endofdata to true
-000002 end-read
-000003 .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:5008: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:5008"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:5008"
-$at_failed && at_fn_log_failure \
-"mini-report"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:5009: COB_CURRENT_DATE=\"2015/02/06 16:40:52\" \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_CURRENT_DATE=\"2015/02/06 16:40:52\" $COBCRUN_DIRECT ./prog" "run_file.at:5009"
-( $at_check_trace; COB_CURRENT_DATE="2015/02/06 16:40:52" $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Normal termination, ending status: 10
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:5009"
-$at_failed && at_fn_log_failure \
-"mini-report"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:5012: diff mini-report reference-report"
-at_fn_check_prepare_trace "run_file.at:5012"
-( $at_check_trace; diff mini-report reference-report
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:5012"
-$at_failed && at_fn_log_failure \
-"mini-report"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_898
-#AT_START_899
-at_fn_group_banner 899 'run_file.at:5017' \
- "EXTFH: LINAGE and LINAGE-COUNTER sample" " " 4
-at_xfail=yes
-(
- printf "%s\n" "899. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# modified version of the test above
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- select optional data-file assign to 'prog.cob'
- organization is line sequential
- file status is data-file-status.
- select mini-report assign to "mini-report".
-
- DATA DIVISION.
- FILE SECTION.
- FD data-file.
- 01 data-record.
- 88 endofdata value high-values.
- 02 data-line pic x(80).
- FD mini-report
- linage is 16 lines
- with footing at 15
- lines at top 2
- lines at bottom 2.
- 01 report-line pic x(80).
-
- WORKING-STORAGE SECTION.
- 01 command-arguments pic x(1024).
- 01 file-name pic x(160).
- 01 data-file-status pic xx.
- 01 lc pic 99.
- 01 report-line-blank.
- 02 filler pic x(18) value all "*".
- 02 filler pic x(05) value spaces.
- 02 filler pic x(34)
- VALUE "THIS PAGE INTENTIONALLY LEFT BLANK".
- 02 filler pic x(05) value spaces.
- 02 filler pic x(18) value all "*".
- 01 report-line-data.
- 02 body-tag pic 9(6).
- 02 line-3 pic x(74).
- 01 report-line-header.
- 02 filler pic x(6) VALUE "PAGE: ".
- 02 page-no pic 9999.
- 02 filler pic x(24).
- 02 filler pic x(5) VALUE " LC: ".
- 02 header-tag pic 9(6).
-
-
-
-
- 01 page-count pic 9999.
-
- PROCEDURE DIVISION.
- main.
- open input data-file.
- read data-file
- at end
- display "File open error: " data-file-status
- stop run
- end-read.
-
- open output mini-report.
-
- write report-line
- from report-line-blank
- end-write.
-
- move 1 to page-count.
- move page-count to page-no.
- write report-line
- from report-line-header
- after advancing page
- end-write.
-
- perform readwrite-loop until endofdata.
-
- display
- "Normal termination, ending status: "
- data-file-status
- close mini-report.
-
- close data-file.
- stop run.
-
- ****************************************************************
- readwrite-loop.
- move data-record to report-line-data
- move linage-counter to body-tag
- write report-line from report-line-data
- end-of-page
- add 1 to page-count end-add
- move page-count to page-no
- move linage-counter to header-tag
- write report-line from report-line-header
- after advancing page
- end-write
- end-write
- read data-file
- at end set endofdata to true
- end-read
- .
-_ATEOF
-
-
-
-cat >reference-report <<'_ATEOF'
-
-
-****************** THIS PAGE INTENTIONALLY LEFT BLANK ******************
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-PAGE: 0001 LC: 000000
-000001
-000002 IDENTIFICATION DIVISION.
-000003 PROGRAM-ID. prog.
-000004 ENVIRONMENT DIVISION.
-000005 INPUT-OUTPUT SECTION.
-000006 FILE-CONTROL.
-000007 select optional data-file assign to 'prog.cob'
-000008 organization is line sequential
-000009 file status is data-file-status.
-000010 select mini-report assign to "mini-report".
-000011
-000012 DATA DIVISION.
-000013 FILE SECTION.
-000014 FD data-file.
-
-
-
-
-
-PAGE: 0002 LC: 000015
-000001 01 data-record.
-000002 88 endofdata value high-values.
-000003 02 data-line pic x(80).
-000004 FD mini-report
-000005 linage is 16 lines
-000006 with footing at 15
-000007 lines at top 2
-000008 lines at bottom 2.
-000009 01 report-line pic x(80).
-000010
-000011 WORKING-STORAGE SECTION.
-000012 01 command-arguments pic x(1024).
-000013 01 file-name pic x(160).
-000014 01 data-file-status pic xx.
-
-
-
-
-
-PAGE: 0003 LC: 000015
-000001 01 lc pic 99.
-000002 01 report-line-blank.
-000003 02 filler pic x(18) value all "*".
-000004 02 filler pic x(05) value spaces.
-000005 02 filler pic x(34)
-000006 VALUE "THIS PAGE INTENTIONALLY LEFT BLANK".
-000007 02 filler pic x(05) value spaces.
-000008 02 filler pic x(18) value all "*".
-000009 01 report-line-data.
-000010 02 body-tag pic 9(6).
-000011 02 line-3 pic x(74).
-000012 01 report-line-header.
-000013 02 filler pic x(6) VALUE "PAGE: ".
-000014 02 page-no pic 9999.
-
-
-
-
-
-PAGE: 0004 LC: 000015
-000001 02 filler pic x(24).
-000002 02 filler pic x(5) VALUE " LC: ".
-000003 02 header-tag pic 9(6).
-000004
-000005
-000006
-000007
-000008 01 page-count pic 9999.
-000009
-000010 PROCEDURE DIVISION.
-000011 main.
-000012 open input data-file.
-000013 read data-file
-000014 at end
-
-
-
-
-
-PAGE: 0005 LC: 000015
-000001 display "File open error: " data-file-status
-000002 stop run
-000003 end-read.
-000004
-000005 open output mini-report.
-000006
-000007 write report-line
-000008 from report-line-blank
-000009 end-write.
-000010
-000011 move 1 to page-count.
-000012 accept page-date from date end-accept.
-000013 move page-count to page-no.
-000014 write report-line
-
-
-
-
-
-PAGE: 0006 LC: 000015
-000001 from report-line-header
-000002 after advancing page
-000003 end-write.
-000004
-000005 perform readwrite-loop until endofdata.
-000006
-000007 display
-000008 "Normal termination, ending status: "
-000009 data-file-status
-000010 close mini-report.
-000011
-000012 close data-file.
-000013 stop run.
-000014
-
-
-
-
-
-PAGE: 0007 LC: 000015
-000001****************************************************************
-000002 readwrite-loop.
-000003 move data-record to report-line-data
-000004 move linage-counter to body-tag
-000005 write report-line from report-line-data
-000006 end-of-page
-000007 add 1 to page-count end-add
-000008 move page-count to page-no
-000009 move linage-counter to header-tag
-000010 write report-line from report-line-header
-000011 after advancing page
-000012 end-write
-000013 end-write
-000014 read data-file
-
-
-
-
-
-PAGE: 0008 LC: 000015
-000001 at end set endofdata to true
-000002 end-read
-000003 .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:5292: \$COMPILE -fcallfh=EXTFH prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fcallfh=EXTFH prog.cob" "run_file.at:5292"
-( $at_check_trace; $COMPILE -fcallfh=EXTFH prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:5292"
-$at_failed && at_fn_log_failure \
-"mini-report"
-$at_traceon; }
-
-
-# currently does not generate the expected report, as LINAGE options
-# are not passed via FCD and the internal part works only "partial"
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:5299: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:5299"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Normal termination, ending status: 10
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:5299"
-$at_failed && at_fn_log_failure \
-"mini-report"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:5302: diff mini-report reference-report"
-at_fn_check_prepare_trace "run_file.at:5302"
-( $at_check_trace; diff mini-report reference-report
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:5302"
-$at_failed && at_fn_log_failure \
-"mini-report"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_899
-#AT_START_900
-at_fn_group_banner 900 'run_file.at:5307' \
- "SEQUENTIAL file I/O with variable records" " " 4
-at_xfail=no
-(
- printf "%s\n" "900. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT f ASSIGN DISK.
-
- DATA DIVISION.
- FILE SECTION.
- FD f RECORD VARYING FROM 10 TO 20 DEPENDING rec-size.
- 01 f-rec.
- 02 f-x OCCURS 20 PIC X.
-
- WORKING-STORAGE SECTION.
- 01 rec-size PIC 99.
- 01 i PIC 99.
- 01 1-template VALUE "+12345678++12345678+".
- 02 1-x OCCURS 20 PIC X.
-
- PROCEDURE DIVISION.
- OPEN OUTPUT f
- PERFORM VARYING rec-size FROM 20 BY -1 UNTIL rec-size < 10
- WRITE f-rec FROM 1-template
- END-PERFORM
- CLOSE f
-
- OPEN INPUT f
- * rec-size should not influence READ
- MOVE 15 TO rec-size
- PERFORM VARYING i FROM 20 BY -1 UNTIL i < 10
- READ f
- AT END
- DISPLAY "Failed: EOF"
- STOP RUN ERROR
- END-READ
-
- * Note the characters f-rec (rec-size + 1:) are all undefined,
- * hence the refmod (1:rec-size).
- DISPLAY rec-size ": >" f-rec (1:rec-size) "<"
- IF rec-size NOT = i
- DISPLAY "Failed: bad record size"
- STOP RUN ERROR
- END-IF
- IF f-x (rec-size) NOT = 1-x (rec-size)
- DISPLAY "Failed: bad data"
- STOP RUN ERROR
- END-IF
- END-PERFORM
- CLOSE f
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:5364: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:5364"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:5364"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:5365: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:5365"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "20: >+12345678++12345678+<
-19: >+12345678++12345678<
-18: >+12345678++1234567<
-17: >+12345678++123456<
-16: >+12345678++12345<
-15: >+12345678++1234<
-14: >+12345678++123<
-13: >+12345678++12<
-12: >+12345678++1<
-11: >+12345678++<
-10: >+12345678+<
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:5365"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_900
-#AT_START_901
-at_fn_group_banner 901 'run_file.at:5382' \
- "LINE SEQUENTIAL file I/O with variable records" " " 4
-at_xfail=no
-(
- printf "%s\n" "901. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT f ASSIGN DISK
- LINE SEQUENTIAL.
-
- DATA DIVISION.
- FILE SECTION.
- FD f RECORD VARYING FROM 10 TO 20 DEPENDING rec-size.
- 01 f-rec.
- 02 f-x OCCURS 20 PIC X.
-
- WORKING-STORAGE SECTION.
- 01 rec-size PIC 99.
- 01 i PIC 99.
- 01 1-template VALUE "+12345678++12345678+".
- 02 1-x OCCURS 20 PIC X.
-
- PROCEDURE DIVISION.
- OPEN OUTPUT f
- PERFORM VARYING rec-size FROM 20 BY -1 UNTIL rec-size < 10
- WRITE f-rec FROM 1-template
- END-PERFORM
- CLOSE f
-
- OPEN INPUT f
- * rec-size should not influence READ
- MOVE 15 TO rec-size
- PERFORM VARYING i FROM 20 BY -1 UNTIL i < 10
- READ f
- AT END
- DISPLAY "Failed: EOF"
- STOP RUN ERROR
- END-READ
-
- DISPLAY rec-size ": >" f-rec (1:rec-size) "<"
- IF rec-size NOT = i
- DISPLAY "Failed: bad record size"
- STOP RUN ERROR
- END-IF
- IF f-x (rec-size) NOT = 1-x (rec-size)
- DISPLAY "Failed: bad data"
- STOP RUN ERROR
- END-IF
- END-PERFORM
- CLOSE f
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:5438: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:5438"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:5438"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:5439: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:5439"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "20: >+12345678++12345678+<
-19: >+12345678++12345678<
-18: >+12345678++1234567<
-17: >+12345678++123456<
-16: >+12345678++12345<
-15: >+12345678++1234<
-14: >+12345678++123<
-13: >+12345678++12<
-12: >+12345678++1<
-11: >+12345678++<
-10: >+12345678+<
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:5439"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_901
-#AT_START_902
-at_fn_group_banner 902 'run_file.at:5456' \
- "SEQUENTIAL file REWRITE" " " 4
-at_xfail=no
-(
- printf "%s\n" "902. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT file1 ASSIGN DISK.
-
- DATA DIVISION.
- FILE SECTION.
- FD file1.
- 01 file1-rec.
- 02 file1-serial-1 PIC 9(6).
- 02 file1-xseen PIC 9(4).
- 02 file1-serial-2 PIC 9(6).
-
- WORKING-STORAGE SECTION.
- 01 w-count PIC 9(6) VALUE 0.
- 01 w-eof PIC 9 VALUE 0.
- 88 eof VALUE 1 FALSE 0.
- 01 w-abort PIC 9 VALUE 0.
- 88 abort VALUE 1 FALSE 0.
-
- PROCEDURE DIVISION.
- OPEN OUTPUT file1
- PERFORM VARYING w-count FROM 1 BY 1
- UNTIL w-count > 20
- MOVE w-count TO file1-serial-1
- MOVE 0 TO file1-xseen
- ADD 100 w-count GIVING file1-serial-2
- WRITE file1-rec
- END-PERFORM
- CLOSE file1
-
- OPEN I-O file1
- SET eof TO FALSE
- PERFORM VARYING w-count FROM 1 BY 1
- UNTIL eof OR abort
- READ file1
- AT END
- SET eof TO TRUE
-
- NOT AT END
- IF (file1-serial-1 <> w-count)
- DISPLAY "FAIL 1: " w-count " :: "
- file1-serial-1
- SET abort TO TRUE
- ELSE IF (file1-serial-2 <> (100 + w-count))
- DISPLAY "FAIL 2: " w-count " :: "
- file1-serial-2
- SET abort TO TRUE
- ELSE IF (file1-xseen <> 0)
- DISPLAY "FAIL 3: " w-count " :: " file1-xseen
- SET abort TO TRUE
- ELSE IF (w-count = 5 OR 10 OR 15 OR 20)
- ADD 1000 w-count GIVING file1-serial-2
- ADD 1 TO file1-xseen
- REWRITE file1-rec
- END-IF
- END-READ
- END-PERFORM
- IF NOT ((w-count = 22) AND eof)
- DISPLAY "FAIL 4"
- END-IF
- CLOSE file1
-
- OPEN INPUT file1
- SET eof TO FALSE
- SET abort TO FALSE
- PERFORM VARYING w-count FROM 1 BY 1
- UNTIL eof OR abort
- READ file1
- AT END
- SET eof TO TRUE
-
- NOT AT END
- IF (file1-serial-1 <> w-count)
- DISPLAY "FAIL 5"
- SET abort TO TRUE
- ELSE IF (w-count = 5 OR 10 OR 15 OR 20)
- IF NOT ((file1-serial-2 = (1000 + w-count))
- AND (file1-xseen = 1))
- DISPLAY "FAIL 6"
- SET abort TO TRUE
- END-IF
- ELSE
- IF NOT ((file1-serial-2 = (100 + w-count))
- AND (file1-xseen = 0))
- DISPLAY "FAIL 7"
- SET abort TO TRUE
- END-IF
- END-IF
- END-READ
- END-PERFORM
- CLOSE file1
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:5559: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:5559"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:5559"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:5560: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:5560"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:5560"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_902
-#AT_START_903
-at_fn_group_banner 903 'run_file.at:5568' \
- "SEQUENTIAL file with LOCK MODE EXCLUSIVE" " " 4
-at_xfail=yes
-(
- printf "%s\n" "903. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-
-
-cat >prog1.cob <<'_ATEOF'
-
- identification division.
- program-id. prog1.
- environment division.
- input-output section.
- file-control.
- select file1 assign disk
- lock mode is exclusive
- status is fs.
- data division.
- file section.
- fd file1.
- 1 file1-rec pic x.
- working-storage section.
- 1 fs pic xx.
- 1 os-check pic x(7).
- 88 os-is-windows-or-dos values 'WINDOWS' 'FREEDOS'.
- 78 callee value "./prog2".
- 78 callee-wdos value ".\prog2".
- procedure division.
- open output file1.
- close file1.
- open input file1.
- accept os-check from environment "COB_ON_CYGWIN".
- if os-check = spaces
- accept os-check from environment "OS".
- if os-check = spaces
- accept os-check from environment "OS_NAME".
- inspect os-check converting "werfdosin" to "WERFDOSIN".
- if os-is-windows-or-dos
- call "SYSTEM" using callee-wdos
- else
- call "SYSTEM" using callee.
- close file1.
- stop run.
-_ATEOF
-
-cat >prog2.cob <<'_ATEOF'
-
- identification division.
- program-id. prog2.
- environment division.
- input-output section.
- file-control.
- select file1 assign disk status is fs.
- data division.
- file section.
- fd file1.
- 1 file1-rec pic x.
- working-storage section.
- 1 fs pic xx.
- procedure division.
- open input file1.
- if fs not = "61"
- display "FAILED: " fs
- close file1
- end-if.
- stop run.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:5631: \$COMPILE prog1.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog1.cob" "run_file.at:5631"
-( $at_check_trace; $COMPILE prog1.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:5631"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:5632: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_file.at:5632"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:5632"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:5633: \$COBCRUN_DIRECT ./prog1"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog1" "run_file.at:5633"
-( $at_check_trace; $COBCRUN_DIRECT ./prog1
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:5633"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_903
-#AT_START_904
-at_fn_group_banner 904 'run_file.at:5638' \
- "SEQUENTIAL file with OPEN WITH LOCK" " " 4
-at_xfail=yes
-(
- printf "%s\n" "904. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-
-
-cat >prog1.cob <<'_ATEOF'
-
- identification division.
- program-id. prog1.
- environment division.
- input-output section.
- file-control.
- select file1 assign disk status is fs.
- data division.
- file section.
- fd file1.
- 1 file1-rec pic x.
- working-storage section.
- 1 fs pic xx.
- 1 os-check pic x(7).
- 88 os-is-windows-or-dos values 'WINDOWS' 'FREEDOS'.
- 78 callee value "./prog2".
- 78 callee-wdos value ".\prog2".
- procedure division.
- open output file1.
- close file1.
- open input file1 with lock.
- accept os-check from environment "COB_ON_CYGWIN".
- if os-check = spaces
- accept os-check from environment "OS".
- if os-check = spaces
- accept os-check from environment "OS_NAME".
- inspect os-check converting "werfdosin" to "WERFDOSIN".
- if os-is-windows-or-dos
- call "SYSTEM" using callee-wdos
- else
- call "SYSTEM" using callee.
- close file1.
- stop run.
-_ATEOF
-
-cat >prog2.cob <<'_ATEOF'
-
- identification division.
- program-id. prog2.
- environment division.
- input-output section.
- file-control.
- select file1 assign disk status is fs.
- data division.
- file section.
- fd file1.
- 1 file1-rec pic x.
- working-storage section.
- 1 fs pic xx.
- procedure division.
- open input file1.
- if fs not = "61"
- display "FAILED: " fs
- close file1
- end-if.
- stop run.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:5699: \$COMPILE prog1.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog1.cob" "run_file.at:5699"
-( $at_check_trace; $COMPILE prog1.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:5699"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:5700: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_file.at:5700"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:5700"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:5701: \$COBCRUN_DIRECT ./prog1"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog1" "run_file.at:5701"
-( $at_check_trace; $COBCRUN_DIRECT ./prog1
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:5701"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_904
-#AT_START_905
-at_fn_group_banner 905 'run_file.at:5706' \
- "SEQUENTIAL file with SHARING NO" " " 4
-at_xfail=yes
-(
- printf "%s\n" "905. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-
-
-cat >prog1.cob <<'_ATEOF'
-
- identification division.
- program-id. prog1.
- environment division.
- input-output section.
- file-control.
- select file1 assign disk
- sharing no
- status is fs.
- data division.
- file section.
- fd file1.
- 1 file1-rec pic x.
- working-storage section.
- 1 fs pic xx.
- 1 os-check pic x(7).
- 88 os-is-windows-or-dos values 'WINDOWS' 'FREEDOS'.
- 78 callee value "./prog2".
- 78 callee-wdos value ".\prog2".
- procedure division.
- open output file1.
- close file1.
- open input file1.
- accept os-check from environment "COB_ON_CYGWIN".
- if os-check = spaces
- accept os-check from environment "OS".
- if os-check = spaces
- accept os-check from environment "OS_NAME".
- inspect os-check converting "werfdosin" to "WERFDOSIN".
- if os-is-windows-or-dos
- call "SYSTEM" using callee-wdos
- else
- call "SYSTEM" using callee.
- close file1.
- stop run.
-_ATEOF
-
-cat >prog2.cob <<'_ATEOF'
-
- identification division.
- program-id. prog2.
- environment division.
- input-output section.
- file-control.
- select file1 assign disk status is fs.
- data division.
- file section.
- fd file1.
- 1 file1-rec pic x.
- working-storage section.
- 1 fs pic xx.
- procedure division.
- open input file1.
- if fs not = "61"
- display "FAILED: " fs
- close file1
- end-if.
- stop run.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:5769: \$COMPILE prog1.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog1.cob" "run_file.at:5769"
-( $at_check_trace; $COMPILE prog1.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:5769"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:5770: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_file.at:5770"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:5770"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:5771: \$COBCRUN_DIRECT ./prog1"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog1" "run_file.at:5771"
-( $at_check_trace; $COBCRUN_DIRECT ./prog1
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:5771"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_905
-#AT_START_906
-at_fn_group_banner 906 'run_file.at:5776' \
- "SEQUENTIAL file with SHARING READ ONLY" " " 4
-at_xfail=no
-(
- printf "%s\n" "906. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog1.cob <<'_ATEOF'
-
- identification division.
- program-id. prog1.
- environment division.
- input-output section.
- file-control.
- select file1 assign disk
- sharing read only
- status is fs.
- data division.
- file section.
- fd file1.
- 1 file1-rec pic x.
- working-storage section.
- 1 fs pic xx.
- 1 os-check pic x(7).
- 88 os-is-windows-or-dos values 'WINDOWS' 'FREEDOS'.
- 78 callee value "./prog2".
- 78 callee-wdos value ".\prog2".
- procedure division.
- open output file1.
- close file1.
- open input file1.
- accept os-check from environment "COB_ON_CYGWIN".
- if os-check = spaces
- accept os-check from environment "OS".
- if os-check = spaces
- accept os-check from environment "OS_NAME".
- inspect os-check converting "werfdosin" to "WERFDOSIN".
- if os-is-windows-or-dos
- call "SYSTEM" using callee-wdos
- else
- call "SYSTEM" using callee.
- close file1.
- stop run.
-_ATEOF
-
-cat >prog2.cob <<'_ATEOF'
-
- identification division.
- program-id. prog2.
- environment division.
- input-output section.
- file-control.
- select file1 assign disk status is fs.
- data division.
- file section.
- fd file1.
- 1 file1-rec pic x.
- working-storage section.
- 1 fs pic xx.
- procedure division.
- open i-o file1.
- if fs not = "61"
- display "FAILED 1: " fs
- close file1
- end-if.
- open input file1.
- if fs not = "00"
- display "FAILED 2: " fs
- else
- close file1
- end-if.
- stop run.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:5843: \$COMPILE prog1.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog1.cob" "run_file.at:5843"
-( $at_check_trace; $COMPILE prog1.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:5843"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:5844: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_file.at:5844"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:5844"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:5845: \$COBCRUN_DIRECT ./prog1"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog1" "run_file.at:5845"
-( $at_check_trace; $COBCRUN_DIRECT ./prog1
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:5845"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_906
-#AT_START_907
-at_fn_group_banner 907 'run_file.at:5851' \
- "SEQUENTIAL file with blocked lock" " " 4
-at_xfail=yes
-(
- printf "%s\n" "907. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-
-
-cat >prog1.cob <<'_ATEOF'
-
- identification division.
- program-id. prog1.
- environment division.
- input-output section.
- file-control.
- select file1 assign disk.
- data division.
- file section.
- fd file1.
- 1 file1-rec pic x.
- working-storage section.
- 1 os-check pic x(7).
- 88 os-is-windows-or-dos values 'WINDOWS' 'FREEDOS'.
- 78 callee value "./prog2".
- 78 callee-wdos value ".\prog2".
- procedure division.
- open output file1.
- close file1.
- open input file1.
- accept os-check from environment "COB_ON_CYGWIN".
- if os-check = spaces
- accept os-check from environment "OS".
- if os-check = spaces
- accept os-check from environment "OS_NAME".
- inspect os-check converting "werfdosin" to "WERFDOSIN".
- if os-is-windows-or-dos
- call "SYSTEM" using callee-wdos
- else
- call "SYSTEM" using callee.
- close file1.
- stop run.
-_ATEOF
-
-cat >prog2.cob <<'_ATEOF'
-
- identification division.
- program-id. prog2.
- environment division.
- input-output section.
- file-control.
- select file1 assign disk status is fs.
- data division.
- file section.
- fd file1.
- 1 file1-rec pic x.
- working-storage section.
- 1 fs pic xx.
- procedure division.
- open input file1.
- if fs not = "00"
- display "FAILED: " fs
- stop run
- end-if.
- close file1
- open input file1 with lock.
- if fs not = "61"
- display "FAILED: " fs
- close file1
- end-if.
- stop run.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:5917: \$COMPILE prog1.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog1.cob" "run_file.at:5917"
-( $at_check_trace; $COMPILE prog1.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:5917"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:5918: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_file.at:5918"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:5918"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:5919: \$COBCRUN_DIRECT ./prog1"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog1" "run_file.at:5919"
-( $at_check_trace; $COBCRUN_DIRECT ./prog1
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:5919"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_907
-#AT_START_908
-at_fn_group_banner 908 'run_file.at:5924' \
- "RELATIVE SEQUENTIAL basic I/O" " " 4
-at_xfail=no
-(
- printf "%s\n" "908. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT file1 ASSIGN DISK ORGANIZATION RELATIVE.
- DATA DIVISION.
- FILE SECTION.
- FD file1.
- 1 file1-rec pic x.
- PROCEDURE DIVISION.
- DELETE FILE file1.
- OPEN OUTPUT file1.
- MOVE "A" TO file1-rec.
- WRITE file1-rec.
- CLOSE file1.
- OPEN INPUT file1.
- READ file1.
- IF (file1-rec <> "A")
- display "FAILED".
- CLOSE file1.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:5952: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:5952"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:5952"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:5953: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:5953"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:5953"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_908
-#AT_START_909
-at_fn_group_banner 909 'run_file.at:5958' \
- "RELATIVE RANDOM basic I/O" " " 4
-at_xfail=no
-(
- printf "%s\n" "909. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT file1 ASSIGN DISK
- ORGANIZATION RELATIVE
- ACCESS RANDOM RELATIVE KEY file1-key.
- DATA DIVISION.
- FILE SECTION.
- FD file1.
- 1 file1-rec pic x.
- WORKING-STORAGE SECTION.
- 77 file1-key pic 99.
- PROCEDURE DIVISION.
- DELETE FILE file1.
- OPEN OUTPUT file1.
- MOVE 1 to file1-key.
- MOVE "A" TO file1-rec.
- WRITE file1-rec.
- MOVE 2 to file1-key.
- MOVE "B" TO file1-rec.
- WRITE file1-rec.
- MOVE 3 to file1-key.
- MOVE "C" TO file1-rec.
- WRITE file1-rec.
- CLOSE file1.
- OPEN INPUT file1.
- MOVE 2 to file1-key.
- READ file1.
- IF (file1-rec <> "B")
- display "FAILED".
- MOVE 1 to file1-key.
- READ file1.
- IF (file1-rec <> "A")
- display "FAILED".
- CLOSE file1.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6002: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:6002"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6002"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6003: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:6003"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6003"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_909
-#AT_START_910
-at_fn_group_banner 910 'run_file.at:6008' \
- "RELATIVE SEQUENTIAL with variable records" " " 4
-at_xfail=no
-(
- printf "%s\n" "910. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT f ASSIGN DISK
- ORGANIZATION RELATIVE.
-
- DATA DIVISION.
- FILE SECTION.
- FD f RECORD VARYING FROM 10 TO 20 DEPENDING rec-size.
- 01 f-rec.
- 02 f-x OCCURS 20 PIC X.
-
- WORKING-STORAGE SECTION.
- 01 rec-size PIC 99.
- 01 i PIC 99.
- 01 1-template VALUE "+12345678++12345678+".
- 02 1-x OCCURS 20 PIC X.
-
- PROCEDURE DIVISION.
- OPEN OUTPUT f
- PERFORM VARYING rec-size FROM 20 BY -1 UNTIL rec-size < 10
- WRITE f-rec FROM 1-template
- END-PERFORM
- CLOSE f
-
- OPEN INPUT f
- * rec-size should not influence READ
- MOVE 15 TO rec-size
- PERFORM VARYING i FROM 20 BY -1 UNTIL i < 10
- READ f
- AT END
- DISPLAY "Failed: EOF"
- STOP RUN ERROR
- END-READ
-
- DISPLAY rec-size ": >" f-rec (1:rec-size) "<"
- IF rec-size NOT = i
- DISPLAY "Failed: bad record size"
- STOP RUN ERROR
- END-IF
- IF f-x (rec-size) NOT = 1-x (rec-size)
- DISPLAY "Failed: bad data"
- STOP RUN ERROR
- END-IF
- END-PERFORM
- CLOSE f
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6064: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:6064"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6064"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6065: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:6065"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "20: >+12345678++12345678+<
-19: >+12345678++12345678<
-18: >+12345678++1234567<
-17: >+12345678++123456<
-16: >+12345678++12345<
-15: >+12345678++1234<
-14: >+12345678++123<
-13: >+12345678++12<
-12: >+12345678++1<
-11: >+12345678++<
-10: >+12345678+<
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6065"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_910
-#AT_START_911
-at_fn_group_banner 911 'run_file.at:6082' \
- "INDEXED SEQUENTIAL basic I/O" " " 4
-at_xfail=no
-(
- printf "%s\n" "911. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-printf "%s\n" "run_file.at:6085" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:6085"
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT fileX ASSIGN DISK ORGANIZATION INDEXED
- RECORD KEY fileX-key.
- DATA DIVISION.
- FILE SECTION.
- FD fileX.
- 1 fileX-rec.
- 2 fileX-key pic x(6).
- 2 fileX-data pic x(10).
- PROCEDURE DIVISION.
- OPEN OUTPUT fileX.
- MOVE ALL "A" TO fileX-rec.
- WRITE fileX-rec.
- CLOSE fileX.
- OPEN INPUT fileX.
- READ fileX.
- IF (fileX-rec <> ALL "A")
- display "FAILED".
- CLOSE fileX.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6114: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:6114"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6114"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6115: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:6115"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6115"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_911
-#AT_START_912
-at_fn_group_banner 912 'run_file.at:6120' \
- "INDEXED SEQUENTIAL with variable records" " " 4
-at_xfail=no
-(
- printf "%s\n" "912. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-printf "%s\n" "run_file.at:6123" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:6123"
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT f ASSIGN DISK
- INDEXED
- RECORD KEY f-key
- ACCESS RANDOM.
-
- DATA DIVISION.
- FILE SECTION.
- FD f RECORD VARYING FROM 12 TO 22 DEPENDING rec-size.
- 01 f-rec.
- 02 f-key PIC 99.
- 02 f-data.
- 03 f-x OCCURS 20 PIC X.
-
- WORKING-STORAGE SECTION.
- 01 rec-size PIC 99.
- 01 1-template VALUE "+12345678++12345678+".
- 02 1-x OCCURS 20 PIC X.
-
- PROCEDURE DIVISION.
- OPEN OUTPUT f
- MOVE 1 TO f-key
- PERFORM VARYING rec-size FROM 22 BY -1 UNTIL rec-size < 12
- MOVE 1-template TO f-data
- WRITE f-rec
- ADD 1 TO f-key
- END-PERFORM
- CLOSE f
-
- OPEN INPUT f
- * rec-size should not influence READ
- MOVE 15 TO rec-size
- PERFORM VARYING f-key FROM 1 BY 1 UNTIL f-key > 11
- READ f
- AT END
- DISPLAY "Failed: EOF"
- STOP RUN ERROR
- END-READ
-
- DISPLAY rec-size ": >" f-rec (3:rec-size - 2) "<"
- IF rec-size NOT = (22 - f-key) + 1
- DISPLAY "Failed: bad record size - " rec-size
- STOP RUN ERROR
- END-IF
- IF f-x (rec-size - 2) NOT = 1-x (rec-size - 2)
- DISPLAY "Failed: bad data - " f-data
- STOP RUN ERROR
- END-IF
- END-PERFORM
- CLOSE f
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6184: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:6184"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6184"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6185: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:6185"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "22: >+12345678++12345678+<
-21: >+12345678++12345678<
-20: >+12345678++1234567<
-19: >+12345678++123456<
-18: >+12345678++12345<
-17: >+12345678++1234<
-16: >+12345678++123<
-15: >+12345678++12<
-14: >+12345678++1<
-13: >+12345678++<
-12: >+12345678+<
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6185"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_912
-#AT_START_913
-at_fn_group_banner 913 'run_file.at:6202' \
- "INDEXED file with LOCK MODE EXCLUSIVE" " " 4
-at_xfail=yes
-(
- printf "%s\n" "913. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6205: SKIP_TEST_TEMPORARILY"
-at_fn_check_prepare_trace "run_file.at:6205"
-( $at_check_trace; SKIP_TEST_TEMPORARILY
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6205"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-## TO-DO: Support INDEXED file sharing/locking.
-printf "%s\n" "run_file.at:6208" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:6208"
-
-
-cat >prog1.cob <<'_ATEOF'
-
- identification division.
- program-id. prog1.
- environment division.
- input-output section.
- file-control.
- select file1 assign disk
- organization indexed
- record key file1-key
- lock mode is exclusive
- status is fs.
- data division.
- file section.
- fd file1.
- 1 file1-rec.
- 2 file1-key pic x.
- working-storage section.
- 1 fs pic xx.
- 1 os-check pic x(7).
- 88 os-is-windows-or-dos values 'WINDOWS' 'FREEDOS'.
- 78 callee value "./prog2".
- 78 callee-wdos value ".\prog2".
- procedure division.
- open output file1.
- close file1.
- open input file1.
- accept os-check from environment "COB_ON_CYGWIN".
- if os-check = spaces
- accept os-check from environment "OS".
- if os-check = spaces
- accept os-check from environment "OS_NAME".
- inspect os-check converting "werfdosin" to "WERFDOSIN".
- if os-is-windows-or-dos
- call "SYSTEM" using callee-wdos
- else
- call "SYSTEM" using callee.
- close file1.
- stop run.
-_ATEOF
-
-cat >prog2.cob <<'_ATEOF'
-
- identification division.
- program-id. prog2.
- environment division.
- input-output section.
- file-control.
- select file1 assign disk
- organization indexed
- record key file1-key
- status is fs.
- data division.
- file section.
- fd file1.
- 1 file1-rec.
- 2 file1-key pic x.
- working-storage section.
- 1 fs pic xx.
- procedure division.
- open input file1.
- if fs not = "61"
- display "FAILED: " fs
- close file1
- end-if.
- stop run.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6276: \$COMPILE prog1.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog1.cob" "run_file.at:6276"
-( $at_check_trace; $COMPILE prog1.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6276"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6277: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_file.at:6277"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6277"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6278: \$COBCRUN_DIRECT ./prog1"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog1" "run_file.at:6278"
-( $at_check_trace; $COBCRUN_DIRECT ./prog1
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6278"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_913
-#AT_START_914
-at_fn_group_banner 914 'run_file.at:6283' \
- "INDEXED file with OPEN WITH LOCK" " " 4
-at_xfail=yes
-(
- printf "%s\n" "914. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6286: SKIP_TEST_TEMPORARILY"
-at_fn_check_prepare_trace "run_file.at:6286"
-( $at_check_trace; SKIP_TEST_TEMPORARILY
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6286"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-## TO-DO: Support INDEXED file sharing/locking.
-printf "%s\n" "run_file.at:6289" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:6289"
-
-
-cat >prog1.cob <<'_ATEOF'
-
- identification division.
- program-id. prog1.
- environment division.
- input-output section.
- file-control.
- select file1 assign disk
- organization indexed
- record key file1-key
- status is fs.
- data division.
- file section.
- fd file1.
- 1 file1-rec.
- 2 file1-key pic x.
- working-storage section.
- 1 fs pic xx.
- 1 os-check pic x(7).
- 88 os-is-windows-or-dos values 'WINDOWS' 'FREEDOS'.
- 78 callee value "./prog2".
- 78 callee-wdos value ".\prog2".
- procedure division.
- open output file1.
- close file1.
- open input file1 with lock.
- accept os-check from environment "COB_ON_CYGWIN".
- if os-check = spaces
- accept os-check from environment "OS".
- if os-check = spaces
- accept os-check from environment "OS_NAME".
- inspect os-check converting "werfdosin" to "WERFDOSIN".
- if os-is-windows-or-dos
- call "SYSTEM" using callee-wdos
- else
- call "SYSTEM" using callee.
- close file1.
- stop run.
-_ATEOF
-
-cat >prog2.cob <<'_ATEOF'
-
- identification division.
- program-id. prog2.
- environment division.
- input-output section.
- file-control.
- select file1 assign disk
- organization indexed
- record key file1-key
- status is fs.
- data division.
- file section.
- fd file1.
- 1 file1-rec.
- 2 file1-key pic x.
- working-storage section.
- 1 fs pic xx.
- procedure division.
- open input file1.
- if fs not = "61"
- display "FAILED: " fs
- close file1
- end-if.
- stop run.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6356: \$COMPILE prog1.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog1.cob" "run_file.at:6356"
-( $at_check_trace; $COMPILE prog1.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6356"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6357: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_file.at:6357"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6357"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6358: \$COBCRUN_DIRECT ./prog1"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog1" "run_file.at:6358"
-( $at_check_trace; $COBCRUN_DIRECT ./prog1
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6358"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_914
-#AT_START_915
-at_fn_group_banner 915 'run_file.at:6363' \
- "INDEXED file with SHARING NO" " " 4
-at_xfail=yes
-(
- printf "%s\n" "915. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6366: SKIP_TEST_TEMPORARILY"
-at_fn_check_prepare_trace "run_file.at:6366"
-( $at_check_trace; SKIP_TEST_TEMPORARILY
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6366"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-## TO-DO: Support INDEXED file sharing/locking.
-printf "%s\n" "run_file.at:6369" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:6369"
-
-
-cat >prog1.cob <<'_ATEOF'
-
- identification division.
- program-id. prog1.
- environment division.
- input-output section.
- file-control.
- select file1 assign disk
- organization indexed
- record key file1-key
- sharing no
- status is fs.
- data division.
- file section.
- fd file1.
- 1 file1-rec.
- 2 file1-key pic x.
- working-storage section.
- 1 fs pic xx.
- 1 os-check pic x(7).
- 88 os-is-windows-or-dos values 'WINDOWS' 'FREEDOS'.
- 78 callee value "./prog2".
- 78 callee-wdos value ".\prog2".
- procedure division.
- open output file1.
- close file1.
- open input file1.
- accept os-check from environment "COB_ON_CYGWIN".
- if os-check = spaces
- accept os-check from environment "OS".
- if os-check = spaces
- accept os-check from environment "OS_NAME".
- inspect os-check converting "werfdosin" to "WERFDOSIN".
- if os-is-windows-or-dos
- call "SYSTEM" using callee-wdos
- else
- call "SYSTEM" using callee.
- close file1.
- stop run.
-_ATEOF
-
-cat >prog2.cob <<'_ATEOF'
-
- identification division.
- program-id. prog2.
- environment division.
- input-output section.
- file-control.
- select file1 assign disk
- organization indexed
- record key file1-key
- status is fs.
- data division.
- file section.
- fd file1.
- 1 file1-rec.
- 2 file1-key pic x.
- working-storage section.
- 1 fs pic xx.
- procedure division.
- open input file1.
- if fs not = "61"
- display "FAILED: " fs
- close file1
- end-if.
- stop run.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6437: \$COMPILE prog1.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog1.cob" "run_file.at:6437"
-( $at_check_trace; $COMPILE prog1.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6437"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6438: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_file.at:6438"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6438"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6439: \$COBCRUN_DIRECT ./prog1"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog1" "run_file.at:6439"
-( $at_check_trace; $COBCRUN_DIRECT ./prog1
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6439"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_915
-#AT_START_916
-at_fn_group_banner 916 'run_file.at:6444' \
- "INDEXED file with SHARING READ ONLY" " " 4
-at_xfail=yes
-(
- printf "%s\n" "916. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6447: SKIP_TEST_TEMPORARILY"
-at_fn_check_prepare_trace "run_file.at:6447"
-( $at_check_trace; SKIP_TEST_TEMPORARILY
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6447"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-## TO-DO: Support INDEXED file sharing/locking.
-printf "%s\n" "run_file.at:6450" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:6450"
-
-
-cat >prog1.cob <<'_ATEOF'
-
- identification division.
- program-id. prog1.
- environment division.
- input-output section.
- file-control.
- select file1 assign disk
- organization indexed
- record key file1-key
- sharing read only
- status is fs.
- data division.
- file section.
- fd file1.
- 1 file1-rec.
- 2 file1-key pic x.
- working-storage section.
- 1 fs pic xx.
- 1 os-check pic x(7).
- 88 os-is-windows-or-dos values 'WINDOWS' 'FREEDOS'.
- 78 callee value "./prog2".
- 78 callee-wdos value ".\prog2".
- procedure division.
- open output file1.
- close file1.
- open input file1.
- accept os-check from environment "COB_ON_CYGWIN".
- if os-check = spaces
- accept os-check from environment "OS".
- if os-check = spaces
- accept os-check from environment "OS_NAME".
- inspect os-check converting "werfdosin" to "WERFDOSIN".
- if os-is-windows-or-dos
- call "SYSTEM" using callee-wdos
- else
- call "SYSTEM" using callee.
- close file1.
- stop run.
-_ATEOF
-
-cat >prog2.cob <<'_ATEOF'
-
- identification division.
- program-id. prog2.
- environment division.
- input-output section.
- file-control.
- select file1 assign disk
- organization indexed
- record key file1-key
- status is fs.
- data division.
- file section.
- fd file1.
- 1 file1-rec.
- 2 file1-key pic x.
- working-storage section.
- 1 fs pic xx.
- procedure division.
- open i-o file1.
- if fs not = "61"
- display "FAILED: " fs
- close file1
- end-if.
- open input file1.
- if fs not = "00"
- display "FAILED: " fs
- else
- close file1
- end-if.
- stop run.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6524: \$COMPILE prog1.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog1.cob" "run_file.at:6524"
-( $at_check_trace; $COMPILE prog1.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6524"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6525: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_file.at:6525"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6525"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6526: \$COBCRUN_DIRECT ./prog1"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog1" "run_file.at:6526"
-( $at_check_trace; $COBCRUN_DIRECT ./prog1
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6526"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_916
-#AT_START_917
-at_fn_group_banner 917 'run_file.at:6532' \
- "INDEXED file with blocked lock" " " 4
-at_xfail=yes
-(
- printf "%s\n" "917. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6535: SKIP_TEST_TEMPORARILY"
-at_fn_check_prepare_trace "run_file.at:6535"
-( $at_check_trace; SKIP_TEST_TEMPORARILY
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6535"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-## TO-DO: Support INDEXED file sharing/locking.
-printf "%s\n" "run_file.at:6538" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:6538"
-
-
-cat >prog1.cob <<'_ATEOF'
-
- identification division.
- program-id. prog1.
- environment division.
- input-output section.
- file-control.
- select file1 assign disk
- organization indexed
- record key file1-key.
- data division.
- file section.
- fd file1.
- 1 file1-rec.
- 2 file1-key pic x.
- working-storage section.
- 1 os-check pic x(7).
- 88 os-is-windows-or-dos values 'WINDOWS' 'FREEDOS'.
- 78 callee value "./prog2".
- 78 callee-wdos value ".\prog2".
- procedure division.
- open output file1.
- close file1.
- open input file1.
- accept os-check from environment "COB_ON_CYGWIN".
- if os-check = spaces
- accept os-check from environment "OS".
- if os-check = spaces
- accept os-check from environment "OS_NAME".
- inspect os-check converting "werfdosin" to "WERFDOSIN".
- if os-is-windows-or-dos
- call "SYSTEM" using callee-wdos
- else
- call "SYSTEM" using callee.
- close file1.
- stop run.
-_ATEOF
-
-cat >prog2.cob <<'_ATEOF'
-
- identification division.
- program-id. prog2.
- environment division.
- input-output section.
- file-control.
- select file1 assign disk
- organization indexed
- record key file1-key
- status is fs.
- data division.
- file section.
- fd file1.
- 1 file1-rec.
- 2 file1-key pic x.
- working-storage section.
- 1 fs pic xx.
- procedure division.
- open input file1.
- if fs not = "00"
- display "FAILED: " fs
- stop run
- end-if.
- close file1
- open input file1 with lock.
- if fs not = "61"
- display "FAILED: " fs
- close file1
- end-if.
- stop run.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6609: \$COMPILE prog1.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog1.cob" "run_file.at:6609"
-( $at_check_trace; $COMPILE prog1.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6609"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6610: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_file.at:6610"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6610"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6611: \$COBCRUN_DIRECT ./prog1"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog1" "run_file.at:6611"
-( $at_check_trace; $COBCRUN_DIRECT ./prog1
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6611"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_917
-#AT_START_918
-at_fn_group_banner 918 'run_file.at:6616' \
- "INDEXED file with LOCK AUTOMATIC (1)" " " 4
-at_xfail=yes
-(
- printf "%s\n" "918. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-printf "%s\n" "run_file.at:6619" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:6619"
-
-
-cat >prog1.cob <<'_ATEOF'
-
- identification division.
- program-id. prog1.
- environment division.
- input-output section.
- file-control.
- select file1 assign disk
- access mode is random
- organization indexed
- record key file1-key
- lock mode is automatic
- status is fs.
- data division.
- file section.
- fd file1.
- 1 file1-rec.
- 2 file1-key pic x.
- working-storage section.
- 1 fs pic xx.
- 1 os-check pic x(7).
- 88 os-is-windows-or-dos values 'WINDOWS' 'FREEDOS'.
- 78 callee value "./prog2".
- 78 callee-wdos value ".\prog2".
- procedure division.
- open output file1.
- move "X" to file1-key.
- write file1-rec.
- if fs not = "00"
- display "FAILED 1::w fs=" fs.
- close file1.
- open i-o file1.
- move "X" to file1-key.
- read file1.
- if fs not = "00"
- display "FAILED 1::r fs=" fs.
- accept os-check from environment "COB_ON_CYGWIN".
- if os-check = spaces
- accept os-check from environment "OS".
- if os-check = spaces
- accept os-check from environment "OS_NAME".
- inspect os-check converting "werfdosin" to "WERFDOSIN".
- if os-is-windows-or-dos
- call "SYSTEM" using callee-wdos
- else
- call "SYSTEM" using callee.
- close file1.
- stop run.
-_ATEOF
-
-cat >prog2.cob <<'_ATEOF'
-
- identification division.
- program-id. prog2.
- environment division.
- input-output section.
- file-control.
- select file1 assign disk
- access mode is random
- organization indexed
- record key file1-key
- lock mode is automatic
- status is fs.
- data division.
- file section.
- fd file1.
- 1 file1-rec.
- 2 file1-key pic x.
- working-storage section.
- 1 fs pic xx.
- procedure division.
- open i-o file1.
- move "X" to file1-key.
- read file1.
- if fs not = "61"
- display "FAILED 2::r " fs.
- close file1
- stop run.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6699: \$COMPILE prog1.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog1.cob" "run_file.at:6699"
-( $at_check_trace; $COMPILE prog1.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6699"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6700: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_file.at:6700"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6700"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6701: \$COBCRUN_DIRECT ./prog1"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog1" "run_file.at:6701"
-( $at_check_trace; $COBCRUN_DIRECT ./prog1
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6701"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_918
-#AT_START_919
-at_fn_group_banner 919 'run_file.at:6707' \
- "INDEXED file with LOCK AUTOMATIC (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "919. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-printf "%s\n" "run_file.at:6710" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:6710"
-
-cat >prog1.cob <<'_ATEOF'
-
- identification division.
- program-id. prog1.
- environment division.
- input-output section.
- file-control.
- select file1 assign disk
- access mode is random
- organization indexed
- record key file1-key
- lock mode is automatic
- status is fs.
- data division.
- file section.
- fd file1.
- 1 file1-rec.
- 2 file1-key pic x.
- working-storage section.
- 1 fs pic xx.
- 1 os-check pic x(7).
- 88 os-is-windows-or-dos values 'WINDOWS' 'FREEDOS'.
- 78 callee value "./prog2".
- 78 callee-wdos value ".\prog2".
- procedure division.
- open output file1.
- move "X" to file1-key.
- write file1-rec.
- if fs not = "00"
- display "FAILED 1::w fs=" fs.
- close file1.
- open i-o file1.
- move "X" to file1-key.
- read file1.
- if fs not = "00"
- display "FAILED 1::r fs=" fs.
- rewrite file1-rec.
- if fs not = "00"
- display "FAILED 1::rw fs=" fs.
- accept os-check from environment "COB_ON_CYGWIN".
- if os-check = spaces
- accept os-check from environment "OS".
- if os-check = spaces
- accept os-check from environment "OS_NAME".
- inspect os-check converting "werfdosin" to "WERFDOSIN".
- if os-is-windows-or-dos
- call "SYSTEM" using callee-wdos
- else
- call "SYSTEM" using callee.
- close file1.
- stop run.
-_ATEOF
-
-cat >prog2.cob <<'_ATEOF'
-
- identification division.
- program-id. prog2.
- environment division.
- input-output section.
- file-control.
- select file1 assign disk
- access mode is random
- organization indexed
- record key file1-key
- status is fs.
- data division.
- file section.
- fd file1.
- 1 file1-rec.
- 2 file1-key pic x.
- working-storage section.
- 1 fs pic xx.
- procedure division.
- open input file1.
- move "X" to file1-key.
- read file1.
- if fs not = "00"
- display "FAILED 2::r " fs
- end-if.
- close file1
- stop run.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6792: \$COMPILE prog1.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog1.cob" "run_file.at:6792"
-( $at_check_trace; $COMPILE prog1.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6792"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6793: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_file.at:6793"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6793"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6794: \$COBCRUN_DIRECT ./prog1"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog1" "run_file.at:6794"
-( $at_check_trace; $COBCRUN_DIRECT ./prog1
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6794"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_919
-#AT_START_920
-at_fn_group_banner 920 'run_file.at:6799' \
- "INDEXED file with LOCK MANUAL" " " 4
-at_xfail=yes
-(
- printf "%s\n" "920. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-printf "%s\n" "run_file.at:6802" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:6802"
-
-
-cat >prog1.cob <<'_ATEOF'
-
- identification division.
- program-id. prog1.
- environment division.
- input-output section.
- file-control.
- select file1 assign disk
- access mode is random
- organization indexed
- record key file1-key
- lock mode is manual
- status is fs.
- data division.
- file section.
- fd file1.
- 1 file1-rec.
- 2 file1-key pic x.
- working-storage section.
- 1 fs pic xx.
- 1 os-check pic x(7).
- 88 os-is-windows-or-dos values 'WINDOWS' 'FREEDOS'.
- 78 callee value "./prog2".
- 78 callee-wdos value ".\prog2".
- procedure division.
- open output file1.
- move "X" to file1-key.
- write file1-rec.
- if fs not = "00"
- display "FAILED 1::w fs=" fs.
- close file1.
- open i-o file1.
- move "X" to file1-key.
- read file1 with lock.
- if fs not = "00"
- display "FAILED 1::r fs=" fs.
- accept os-check from environment "COB_ON_CYGWIN".
- if os-check = spaces
- accept os-check from environment "OS".
- if os-check = spaces
- accept os-check from environment "OS_NAME".
- inspect os-check converting "werfdosin" to "WERFDOSIN".
- if os-is-windows-or-dos
- call "SYSTEM" using callee-wdos
- else
- call "SYSTEM" using callee.
- close file1.
- stop run.
-_ATEOF
-
-cat >prog2.cob <<'_ATEOF'
-
- identification division.
- program-id. prog2.
- environment division.
- input-output section.
- file-control.
- select file1 assign disk
- access mode is random
- organization indexed
- record key file1-key
- status is fs.
- data division.
- file section.
- fd file1.
- 1 file1-rec.
- 2 file1-key pic x.
- working-storage section.
- 1 fs pic xx.
- procedure division.
- open i-o file1.
- move "X" to file1-key.
- read file1.
- if fs not = "61"
- display "FAILED 2::r " fs
- end-if.
- close file1
- stop run.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6882: \$COMPILE prog1.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog1.cob" "run_file.at:6882"
-( $at_check_trace; $COMPILE prog1.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6882"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6883: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_file.at:6883"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6883"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6884: \$COBCRUN_DIRECT ./prog1"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog1" "run_file.at:6884"
-( $at_check_trace; $COBCRUN_DIRECT ./prog1
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6884"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_920
-#AT_START_921
-at_fn_group_banner 921 'run_file.at:6889' \
- "START INDEXED" " " 4
-at_xfail=no
-(
- printf "%s\n" "921. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-printf "%s\n" "run_file.at:6892" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:6892"
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT file1 ASSIGN TO "./file1X"
- ORGANIZATION INDEXED
- ACCESS DYNAMIC RECORD KEY file1-key.
- DATA DIVISION.
- FILE SECTION.
- FD file1.
- 1 file1-rec.
- 2 file1-key pic 999.
- 2 file1-data pic 999.
- PROCEDURE DIVISION.
- OPEN OUTPUT file1.
- CLOSE file1.
- OPEN I-O file1.
- MOVE 10 TO file1-key file1-data.
- WRITE file1-rec.
- MOVE 11 TO file1-key file1-data.
- WRITE file1-rec.
- MOVE 12 TO file1-key file1-data.
- WRITE file1-rec.
- MOVE 13 TO file1-key file1-data.
- WRITE file1-rec.
- *
- MOVE 0 TO file1-key.
- START file1 KEY > file1-key.
- READ file1 NEXT.
- IF (file1-data <> 10)
- DISPLAY "FAILED: START key > 0".
- *
- MOVE 99 TO file1-key.
- START file1 KEY < file1-key.
- READ file1 NEXT.
- IF (file1-data <> 13)
- DISPLAY "FAILED: START key < 99".
- *
- MOVE 999 TO file1-key.
- START file1 FIRST.
- READ file1 NEXT.
- IF (file1-data <> 10)
- DISPLAY "FAILED: START key FIRST".
- *
- MOVE 0 TO file1-key.
- START file1 LAST.
- READ file1 NEXT.
- IF (file1-data <> 13)
- DISPLAY "FAILED: START key LAST".
- *
- MOVE 0 TO file1-key.
- START file1 KEY >= file1-key.
- READ file1 NEXT.
- IF (file1-data <> 10)
- DISPLAY "FAILED: START key >= 0".
- *
- MOVE 99 TO file1-key.
- START file1 KEY <= file1-key.
- READ file1 NEXT.
- IF (file1-data <> 13)
- DISPLAY "FAILED: START key <= 99".
-
- CLOSE file1.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6962: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:6962"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6962"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6963: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:6963"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6963"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_921
-#AT_START_922
-at_fn_group_banner 922 'run_file.at:6968' \
- "INDEXED partial keys" " " 4
-at_xfail=no
-(
- printf "%s\n" "922. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:6971: \$SKIP_TEST_TEMPORARILY"
-at_fn_check_prepare_dynamic "$SKIP_TEST_TEMPORARILY" "run_file.at:6971"
-( $at_check_trace; $SKIP_TEST_TEMPORARILY
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:6971"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-printf "%s\n" "run_file.at:6972" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:6972"
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT OPTIONAL f ASSIGN "fileX"
- ORGANIZATION INDEXED
- ACCESS DYNAMIC
- RECORD KEY f-key1
- ALTERNATE RECORD f-key2
- ALTERNATE RECORD f-key3 DUPLICATES
- STATUS f-status.
-
- DATA DIVISION.
- FILE SECTION.
- FD f.
- 01 f-rec.
- 02 f-key1.
- 03 f-key1-1 PIC X(3).
- 03 f-key1-2 PIC X(3).
- 02 f-key2.
- 03 f-key2-1 PIC X(3).
- 03 f-key2-2 PIC X(3).
- 02 f-key3.
- 03 f-key3-1 PIC X(3).
- 03 f-key3-2 PIC X(3).
- 02 file1-serial PIC 99.
-
- WORKING-STORAGE SECTION.
- 01 f-status PIC XX.
- 01 w-serial PIC 99 VALUE 0.
-
- PROCEDURE DIVISION.
- DELETE FILE f
- OPEN I-O f
- MOVE "AAAAAAaaaaaaXX----" TO f-rec
- PERFORM write-f
- MOVE "AAAAABaaaaabXX----" TO f-rec
- PERFORM write-f
- MOVE "AAAABBaaaabbXX----" TO f-rec
- PERFORM write-f
- MOVE "AAABBBaaabbbXXX---" TO f-rec
- PERFORM write-f
- MOVE "AABBBBaabbbbXXX---" TO f-rec
- PERFORM write-f
- MOVE "ABBBBBabbbbbXXX---" TO f-rec
- PERFORM write-f
- MOVE "BBBBBBbbbbbbXXX---" TO f-rec
- PERFORM write-f
-
- MOVE "AAB" TO f-key1-1
- MOVE "~~~" TO f-key1-2
- START f KEY = f-key1-1
- READ f NEXT
- IF (f-status <> "00") OR
- (file1-serial <> 4)
- DISPLAY "FAILED 1: status " f-status "-"
- "serial: " file1-serial
- END-IF
-
- MOVE "AAB" TO f-key1-1
- MOVE "~~~" TO f-key1-2
- START f KEY < f-key1-1
- READ f PREVIOUS
- IF (f-status <> "00") OR
- (file1-serial <> 3)
- DISPLAY "FAILED 2: status " f-status "-"
- "serial: " file1-serial
- END-IF
-
- MOVE "AAA" TO f-key1-1
- MOVE "~~~" TO f-key1-2
- START f KEY > f-key1-1
- READ f NEXT
- IF (f-status <> "00") OR
- (file1-serial <> 4)
- DISPLAY "FAILED 3: status " f-status "-"
- "serial: " file1-serial
- END-IF
-
- MOVE "aab" TO f-key2-1
- MOVE "~~~" TO f-key2-2
- START f KEY = f-key2-1
- READ f NEXT
- IF (f-status <> "00") OR
- (file1-serial <> 4)
- DISPLAY "FAILED 4: status " f-status "-"
- "serial: " file1-serial
- END-IF
-
- MOVE "aab" TO f-key2-1
- MOVE "~~~" TO f-key2-2
- START f KEY < f-key2-1
- READ f PREVIOUS
- IF (f-status <> "00") OR
- (file1-serial <> 3)
- DISPLAY "FAILED 5: status " f-status "-"
- "serial: " file1-serial
- END-IF
-
- MOVE "aaa" TO f-key2-1
- MOVE "~~~" TO f-key2-2
- START f KEY > f-key2-1
- READ f NEXT
- IF (f-status <> "00") OR
- (file1-serial <> 4)
- DISPLAY "FAILED 6: status " f-status "-"
- "serial: " file1-serial
- END-IF
-
- MOVE "XX-" TO f-key3-1
- START f KEY > f-key3-1
- READ f NEXT
- * CHECK: Return file-status "02" if duplicates exist
- IF (f-status <> "02"
- * Depends on xISAM implementation and the way BDB is used (not yet
- * implemented in 3.x)
- AND f-status <> "00"
- ) OR file1-serial <> 3
- DISPLAY "FAILED 7: status " f-status "-"
- END-IF
- CLOSE f
- STOP RUN
- .
- write-f.
- MOVE w-serial TO file1-serial
- WRITE f-rec
- ADD 1 TO w-serial
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:7107: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:7107"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:7107"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:7108: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:7108"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:7108"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_922
-#AT_START_923
-at_fn_group_banner 923 'run_file.at:7116' \
- "INDEXED undeclared keys" " " 4
-at_xfail=no
-(
- printf "%s\n" "923. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-printf "%s\n" "run_file.at:7119" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:7119"
-
-# real ISAM has the key information and will "fail" one part,
-# BDB hasn't and will "pass" this one but fail the other
-# -> skip as 4.x feature
-printf "%s\n" "run_file.at:7124" >"$at_check_line_file"
-at_fn_check_skip 77 "$at_srcdir/run_file.at:7124"
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT file1 ASSIGN TO "./fileX"
- ORGANIZATION INDEXED
- ACCESS RANDOM
- RECORD KEY file1-key1
- ALTERNATE RECORD KEY file1-key2
- ALTERNATE RECORD KEY file1-key3.
- SELECT file2 ASSIGN TO "./fileX"
- ORGANIZATION INDEXED
- ACCESS RANDOM
- RECORD KEY file2-key1
- ALTERNATE RECORD KEY file2-key2.
- SELECT file3 ASSIGN TO "./fileX"
- ORGANIZATION INDEXED
- ACCESS RANDOM
- RECORD KEY file3-key1.
- DATA DIVISION.
- FILE SECTION.
- FD file1.
- 1 file1-rec.
- 2 file1-key1 pic 999.
- 2 file1-key2 pic 999.
- 2 file1-key3 pic 999.
- 2 file1-data pic 999.
- FD file2.
- 1 file2-rec.
- 2 file2-key1 pic 999.
- 2 file2-key2 pic 999.
- 2 file2-key3 pic 999.
- 2 file2-data pic 999.
- FD file3.
- 1 file3-rec.
- 2 file3-key1 pic 999.
- 2 file3-key2 pic 999.
- 2 file3-key3 pic 999.
- 2 file3-data pic 999.
- WORKING-STORAGE SECTION.
- 77 ix pic 9(6).
- PROCEDURE DIVISION.
- OPEN OUTPUT file1.
- PERFORM VARYING ix FROM 1 BY 1
- UNTIL ix > 10
- MOVE ix TO file1-key1 file1-data
- ADD 100 TO ix GIVING file1-key2
- ADD 200 TO ix GIVING file1-key3
- WRITE file1-rec
- END-PERFORM.
- CLOSE file1.
- *
- OPEN INPUT file1.
- PERFORM VARYING ix FROM 1 BY 1
- UNTIL ix > 10
- MOVE ix TO file1-key1
- READ file1 KEY file1-key1
- IF (file1-data <> ix)
- DISPLAY "FAILED 1-1"
- END-IF
- END-PERFORM.
- PERFORM VARYING ix FROM 1 BY 1
- UNTIL ix > 10
- ADD 100 TO ix GIVING file1-key2
- READ file1 KEY file1-key2
- IF (file1-data <> ix)
- DISPLAY "FAILED 1-2"
- END-IF
- END-PERFORM.
- PERFORM VARYING ix FROM 1 BY 1
- UNTIL ix > 10
- ADD 200 TO ix GIVING file1-key3
- READ file1 KEY file1-key3
- IF (file1-data <> ix)
- DISPLAY "FAILED 1-3"
- END-IF
- END-PERFORM.
- CLOSE file1.
- *
- OPEN INPUT file2.
- PERFORM VARYING ix FROM 1 BY 1
- UNTIL ix > 10
- MOVE ix TO file2-key1
- READ file2 KEY file2-key1
- IF (file2-data <> ix)
- DISPLAY "FAILED 2-1"
- END-IF
- END-PERFORM.
- PERFORM VARYING ix FROM 1 BY 1
- UNTIL ix > 10
- ADD 100 TO ix GIVING file2-key2
- READ file2 KEY file2-key2
- IF (file2-data <> ix)
- DISPLAY "FAILED 2-2"
- END-IF
- END-PERFORM.
- CLOSE file2.
- *
- OPEN INPUT file3.
- PERFORM VARYING ix FROM 1 BY 1
- UNTIL ix > 10
- MOVE ix TO file3-key1
- READ file3 KEY file3-key1
- IF (file3-data <> ix)
- DISPLAY "FAILED 3-1"
- END-IF
- END-PERFORM.
- CLOSE file3.
- *
- * Insert rec via file with only 1 index declared
- OPEN I-O file3.
- MOVE 20 TO ix.
- MOVE ix TO file3-key1 file3-data
- ADD 100 TO ix GIVING file3-key2
- ADD 200 TO ix GIVING file3-key3
- WRITE file3-rec
- CLOSE file3
- *
- * Check new rec is visible in other files
- OPEN INPUT file1.
- MOVE 10 TO file1-key1.
- READ file1 KEY file1-key1.
- IF (file1-data <> 10)
- DISPLAY "FAILED 1-4".
- MOVE SPACES TO file1-rec.
- MOVE 110 TO file1-key2.
- READ file1 KEY file1-key2.
- IF (file1-data <> 10)
- DISPLAY "FAILED 1-5".
- MOVE SPACES TO file1-rec.
- MOVE 210 TO file1-key3.
- READ file1 KEY file1-key3.
- IF (file1-data <> 10)
- DISPLAY "FAILED 1-6".
- CLOSE file1.
- *
- OPEN INPUT file2.
- MOVE 10 TO file2-key1.
- READ file2 KEY file2-key1.
- IF (file2-data <> 10)
- DISPLAY "FAILED 2-3".
- MOVE SPACES TO file2-rec.
- MOVE 110 TO file2-key2.
- READ file2 KEY file2-key2.
- IF (file2-data <> 10)
- DISPLAY "FAILED 2-4".
- CLOSE file2.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:7278: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:7278"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:7278"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:7279: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:7279"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:82: error: unknown file error (status = 39) for file file2 ('.' => ./fileX) on OPEN
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_file.at:7279"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:7282: COB_KEYCHECK=OFF \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_KEYCHECK=OFF $COBCRUN_DIRECT ./prog" "run_file.at:7282"
-( $at_check_trace; COB_KEYCHECK=OFF $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:7282"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_923
-#AT_START_924
-at_fn_group_banner 924 'run_file.at:7287' \
- "READ INPUT pipe & WRITE OUTPUT pipe" " " 4
-at_xfail=yes
-(
- printf "%s\n" "924. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# only implemented with 4+
-
-
-cat >test-data-in <<'_ATEOF'
-NAME
-STREET
-TOWN
-COUNTRY
-_ATEOF
-
-
-cat >provider <<'_ATEOF'
-
-cat $1
-_ATEOF
-
-
-cat >consumer <<'_ATEOF'
-
-cat
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- identification division.
- program-id. prog.
- environment division.
- configuration section.
- input-output section.
- file-control.
- select pipe-in
- organization line sequential
- access sequential
- assign to w-command
- status is f-status.
- select pipe-out
- organization line sequential
- access sequential
- assign to w-command
- status is f-status.
- data division.
- file section.
- fd pipe-in.
- 1 pipe-msg-in pic x(132).
- fd pipe-out.
- 1 pipe-msg-out pic x(132).
- working-storage section.
- 77 f-status pic xx.
- 88 f-status-ok value "00".
- 77 w-command pic x(100).
- procedure division.
- move "< sh ./provider ./test-data-in"
- to w-command.
- open input pipe-in.
- if not f-status-ok
- display "FAILED: OPEN INPUT"
- stop run
- end-if.
- move "> sh ./consumer > ./test-data-out"
- to w-command.
- open output pipe-out.
- if not f-status-ok
- display "FAILED: OPEN OUTPUT"
- stop run
- end-if.
- perform until not f-status-ok
- read pipe-in
- if f-status-ok
- perform x01-100-map
- write pipe-msg-out
- end-if
- end-perform.
- close pipe-in.
- close pipe-out.
- stop run.
- *
- x01-100-map.
- move "*** Jacques Tati ***" to pipe-msg-out.
- if (pipe-msg-in = "COUNTRY")
- move "Country: FRANCE" to pipe-msg-out.
- if (pipe-msg-in = "TOWN")
- move "Town: DEAUVILLE" to pipe-msg-out.
- if (pipe-msg-in = "NAME")
- move "Name: M. Hulot" to pipe-msg-out.
- if (pipe-msg-in = "STREET")
- move "Street: Rue des Anglais" to pipe-msg-out.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:7373: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:7373"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:7373"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:7374: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:7374"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:7374"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:7375: cat test-data-out"
-at_fn_check_prepare_trace "run_file.at:7375"
-( $at_check_trace; cat test-data-out
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Name: M. Hulot
-Street: Rue des Anglais
-Town: DEAUVILLE
-Country: FRANCE
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:7375"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_924
-#AT_START_925
-at_fn_group_banner 925 'run_file.at:7385' \
- "EXTFH: using ISAM callback" " " 4
-at_xfail=no
-(
- printf "%s\n" "925. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-printf "%s\n" "run_file.at:7388" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:7388"
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
-
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT OPTIONAL TSPFILE
- ASSIGN TO "testisam"
- ORGANIZATION INDEXED ACCESS DYNAMIC
- RECORD KEY IS CM-CUST-NUM
- ALTERNATE RECORD KEY IS CM-TELEPHONE WITH DUPLICATES
- ALTERNATE RECORD KEY IS CM-DISK WITH DUPLICATES
- FILE STATUS IS CUST-STAT .
-
- SELECT TSTFILE
- ASSIGN TO "testisam"
- ORGANIZATION INDEXED ACCESS DYNAMIC
- RECORD KEY IS TS-CUST-NUM
- ALTERNATE RECORD KEY IS TS-TELEPHONE WITH DUPLICATES
- ALTERNATE RECORD KEY IS TS-DISK WITH DUPLICATES
- FILE STATUS IS CUST-STAT .
-
- SELECT FLATFILE ASSIGN EXTERNAL RELFIX
- ORGANIZATION RELATIVE
- ACCESS IS RANDOM RELATIVE KEY IS REC-NUM
- FILE STATUS IS CUST-STAT.
-
- DATA DIVISION.
- FILE SECTION.
- FD TSPFILE
- BLOCK CONTAINS 5 RECORDS.
-
- 01 TSPFL-RECORD.
- 05 TSPFL-REC.
- 10 CM-CUST-NUM.
- 15 CM-CUST-PRE PICTURE X(3).
- 15 CM-CUST-NNN PICTURE X(5).
- 10 CM-STATUS PICTURE X.
- 10 CM-COMPANY PICTURE X(25).
- 10 CM-ADDRESS-1 PICTURE X(25).
- 10 CM-ADDRESS-2 PICTURE X(25).
- 10 CM-ADDRESS-3 PICTURE X(25).
- 10 CM-TELEPHONE PICTURE 9(10).
- 10 CM-DP-MGR PICTURE X(25).
- 10 CM-MACHINE PICTURE X(8).
- 10 CM-MEMORY PICTURE X(4).
- 10 CM-DISK PICTURE X(8).
- 10 CM-TAPE PICTURE X(8).
- 10 CM-NO-TERMINALS PICTURE 9(5).
-
- FD TSTFILE
- BLOCK CONTAINS 5 RECORDS.
-
- 01 TSTFL-RECORD.
- 05 TSTFL-REC.
- 10 TS-CUST-NUM PICTURE X(8).
- 10 TS-STATUS PICTURE X.
- 10 TS-COMPANY PICTURE X(25).
- 10 TS-ADDRESS-1 PICTURE X(25).
- 10 TS-ADDRESS-2 PICTURE X(25).
- 10 TS-ADDRESS-3 PICTURE X(25).
- 10 TS-TELEPHONE PICTURE 9(10).
- 10 TS-DP-MGR PICTURE X(25).
- 10 TS-MACHINE PICTURE X(8).
- 10 TS-MEMORY PICTURE X(4).
- 10 TS-DISK PICTURE X(8).
- 10 TS-TAPE PICTURE X(8).
-
- FD FLATFILE
- BLOCK CONTAINS 5 RECORDS.
-
- 01 TSP2-RECORD.
- 10 C2-CUST-NUM PICTURE X(8).
- 10 C2-COMPANY PICTURE X(25).
- 10 C2-DISK PICTURE X(8).
- 10 C2-NO-TERMINALS PICTURE 9(4) COMP-4.
- 10 C2-PK-DATE PICTURE S9(14) COMP-3.
-
- WORKING-STORAGE SECTION.
-
- 01 CUST-STAT.
- 05 FILLER PICTURE XX.
- 78 MAX-SUB VALUE 16.
-
- 01 TEST-DATA.
-
- 02 DATA-CUST-NUM-TBL.
-
- 05 FILLER PIC X(8) VALUE "ALP00000".
- 05 FILLER PIC X(8) VALUE "BET00000".
- 05 FILLER PIC X(8) VALUE "GAM00000".
- 05 FILLER PIC X(8) VALUE "DEL00000".
- 05 FILLER PIC X(8) VALUE "EPS00000".
- 05 FILLER PIC X(8) VALUE "FOR00000".
- 05 FILLER PIC X(8) VALUE "GIB00000".
- 05 FILLER PIC X(8) VALUE "H&J00000".
- 05 FILLER PIC X(8) VALUE "INC00000".
- 05 FILLER PIC X(8) VALUE "JOH00000".
- 05 FILLER PIC X(8) VALUE "KON00000".
- 05 FILLER PIC X(8) VALUE "LEW00000".
- 05 FILLER PIC X(8) VALUE "MOR00000".
- 05 FILLER PIC X(8) VALUE "NEW00000".
- 05 FILLER PIC X(8) VALUE "OLD00000".
- 05 FILLER PIC X(8) VALUE "PRE00000".
-
- 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL
- PIC X(8) OCCURS MAX-SUB.
- 02 DATA-COMPANY-TBL.
-
- 05 FILLER PIC X(25) VALUE "ALPHA ELECTRICAL CO. LTD.".
- 05 FILLER PIC X(25) VALUE "BETA SHOE MFG. INC. ".
- 05 FILLER PIC X(25) VALUE "GAMMA X-RAY TECHNOLOGY ".
- 05 FILLER PIC X(25) VALUE "DELTA LUGGAGE REPAIRS ".
- 05 FILLER PIC X(25) VALUE "EPSILON EQUIPMENT SUPPLY ".
- 05 FILLER PIC X(25) VALUE "FORTUNE COOKIE COMPANY ".
- 05 FILLER PIC X(25) VALUE "GIBRALTER LIFE INSURANCE ".
- 05 FILLER PIC X(25) VALUE "H & J PLUMBING SUPPLIES ".
- 05 FILLER PIC X(25) VALUE "INCREMENTAL BACKUP CORP. ".
- 05 FILLER PIC X(25) VALUE "JOHNSON BOATING SUPPLIES ".
- 05 FILLER PIC X(25) VALUE "KONFLAB PLASTIC PRODUCTS.".
- 05 FILLER PIC X(25) VALUE "LEWISTON GRAPHICS LTD. ".
- 05 FILLER PIC X(25) VALUE "MORNINGSIDE CARPENTRY. ".
- 05 FILLER PIC X(25) VALUE "NEW WAVE SURF SHOPS INC. ".
- 05 FILLER PIC X(25) VALUE "OLD TYME PIZZA MFG. CO. ".
- 05 FILLER PIC X(25) VALUE "PRESTIGE OFFICE FURNITURE".
-
- 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL
- PIC X(25) OCCURS MAX-SUB.
- 02 DATA-ADDRESS-1-TBL.
-
- 05 FILLER PIC X(25) VALUE "123 MAIN STREET ".
- 05 FILLER PIC X(25) VALUE "1090 2ND AVE. WEST ".
- 05 FILLER PIC X(25) VALUE "1401 JEFFERSON BLVD. ".
- 05 FILLER PIC X(25) VALUE "1620 ARIZONA WAY ".
- 05 FILLER PIC X(25) VALUE "1184 EAST FIRST STREET ".
- 05 FILLER PIC X(25) VALUE "114 JOHN F. KENNEDY AVE. ".
- 05 FILLER PIC X(25) VALUE "650 LIBERTY CRESCENT ".
- 05 FILLER PIC X(25) VALUE "77 SUNSET BLVD. ".
- 05 FILLER PIC X(25) VALUE "10908 SANTA MONICA BLVD. ".
- 05 FILLER PIC X(25) VALUE "1134 PARIS ROAD ".
- 05 FILLER PIC X(25) VALUE "808 NORTHWEST MAIN ST. ".
- 05 FILLER PIC X(25) VALUE "9904 QUEEN STREET ".
- 05 FILLER PIC X(25) VALUE "1709 DUNDAS CRESCENT W. ".
- 05 FILLER PIC X(25) VALUE "3240 MARIS AVENUE ".
- 05 FILLER PIC X(25) VALUE "1705 WISCONSIN ROAD ".
- 05 FILLER PIC X(25) VALUE "114A MAPLE GROVE ".
-
- 02 DATA-ADDRESS-1 REDEFINES DATA-ADDRESS-1-TBL
- PIC X(25) OCCURS MAX-SUB.
- 02 DATA-ADDRESS-2-TBL.
-
- 05 FILLER PIC X(10) VALUE "NEW YORK ".
- 05 FILLER PIC X(10) VALUE "ATLANTA ".
- 05 FILLER PIC X(10) VALUE "WASHINGTON".
- 05 FILLER PIC X(10) VALUE "TORONTO ".
- 05 FILLER PIC X(10) VALUE "CALGARY ".
- 05 FILLER PIC X(10) VALUE "SAN DIEGO ".
- 05 FILLER PIC X(10) VALUE "LOS RIOS ".
- 05 FILLER PIC X(10) VALUE "MADISON ".
- 05 FILLER PIC X(10) VALUE "WILBUR ".
- 05 FILLER PIC X(10) VALUE "TOPEKA ".
- 05 FILLER PIC X(10) VALUE "SEATTLE ".
- 05 FILLER PIC X(10) VALUE "NEW JERSEY".
- 05 FILLER PIC X(10) VALUE "FORT WAYNE".
- 05 FILLER PIC X(10) VALUE "COLUMBUS ".
- 05 FILLER PIC X(10) VALUE "RICHMOND ".
- 05 FILLER PIC X(10) VALUE "WHITEPLAIN".
-
- 02 DATA-ADDRESS-2 REDEFINES DATA-ADDRESS-2-TBL
- PIC X(10) OCCURS MAX-SUB.
- 02 DATA-ADDRESS-3-TBL.
-
- 05 FILLER PIC X(10) VALUE "N.Y. ".
- 05 FILLER PIC X(10) VALUE "GEORGIA ".
- 05 FILLER PIC X(10) VALUE "D.C. ".
- 05 FILLER PIC X(10) VALUE "CANADA ".
- 05 FILLER PIC X(10) VALUE "CANADA ".
- 05 FILLER PIC X(10) VALUE "CALIFORNIA".
- 05 FILLER PIC X(10) VALUE "NEW MEXICO".
- 05 FILLER PIC X(10) VALUE "WISCONSIN ".
- 05 FILLER PIC X(10) VALUE "DELAWARE ".
- 05 FILLER PIC X(10) VALUE "KANSAS ".
- 05 FILLER PIC X(10) VALUE "WASHINGTON".
- 05 FILLER PIC X(10) VALUE "N.J. ".
- 05 FILLER PIC X(10) VALUE "COLORADO ".
- 05 FILLER PIC X(10) VALUE "OHIO ".
- 05 FILLER PIC X(10) VALUE "VIRGINIA ".
- 05 FILLER PIC X(10) VALUE "N.Y. ".
-
- 02 DATA-ADDRESS-3 REDEFINES DATA-ADDRESS-3-TBL
- PIC X(10) OCCURS MAX-SUB.
- 02 DATA-TELEPHONE-TBL.
-
- 05 FILLER PIC 9(10) VALUE 3131234432.
- 05 FILLER PIC 9(10) VALUE 4082938498.
- 05 FILLER PIC 9(10) VALUE 8372487274.
- 05 FILLER PIC 9(10) VALUE 4169898509.
- 05 FILLER PIC 9(10) VALUE 5292398745.
- 05 FILLER PIC 9(10) VALUE 8009329492.
- 05 FILLER PIC 9(10) VALUE 6456445643.
- 05 FILLER PIC 9(10) VALUE 6546456333.
- 05 FILLER PIC 9(10) VALUE 3455445444.
- 05 FILLER PIC 9(10) VALUE 6456445643.
- 05 FILLER PIC 9(10) VALUE 7456434355.
- 05 FILLER PIC 9(10) VALUE 6554456433.
- 05 FILLER PIC 9(10) VALUE 4169898509.
- 05 FILLER PIC 9(10) VALUE 7534587453.
- 05 FILLER PIC 9(10) VALUE 8787458374.
- 05 FILLER PIC 9(10) VALUE 4169898509.
-
- 02 DATA-TELEPHONE REDEFINES DATA-TELEPHONE-TBL
- PIC 9(10) OCCURS MAX-SUB.
- 02 DATA-DP-MGR-TBL.
-
- 05 FILLER PIC X(20) VALUE "MR. DAVE HARRIS ".
- 05 FILLER PIC X(20) VALUE "MS. JANICE SILCOX ".
- 05 FILLER PIC X(20) VALUE "MR. ALLAN JONES ".
- 05 FILLER PIC X(20) VALUE "MR. PETER MACKAY ".
- 05 FILLER PIC X(20) VALUE "MRS. DONNA BREWER ".
- 05 FILLER PIC X(20) VALUE "MR. MICHAEL SMYTHE ".
- 05 FILLER PIC X(20) VALUE "MR. D.A. MORRISON ".
- 05 FILLER PIC X(20) VALUE "MR. BRIAN PATTERSON ".
- 05 FILLER PIC X(20) VALUE "MR. DARRYL TOWNSEND ".
- 05 FILLER PIC X(20) VALUE "MS. VALERIE HARPER ".
- 05 FILLER PIC X(20) VALUE "MR. FRED MILLER ".
- 05 FILLER PIC X(20) VALUE "MR. DONALD FISCHER ".
- 05 FILLER PIC X(20) VALUE "MR. STEVEN YOURDIN ".
- 05 FILLER PIC X(20) VALUE "MS. Goldie Hawn ".
- 05 FILLER PIC X(20) VALUE "MS. ALICE WINSTON ".
- 05 FILLER PIC X(20) VALUE "MR. THOMAS JEFFERSON".
-
- 02 DATA-DP-MGR REDEFINES DATA-DP-MGR-TBL
- PIC X(20) OCCURS MAX-SUB.
- 02 DATA-MACHINE-TBL.
-
- 05 FILLER PIC X(8) VALUE "UNI-9030".
- 05 FILLER PIC X(8) VALUE "UNI-9040".
- 05 FILLER PIC X(8) VALUE "UNI-80/3".
- 05 FILLER PIC X(8) VALUE "UNI-80/5".
- 05 FILLER PIC X(8) VALUE "UNI-80/6".
- 05 FILLER PIC X(8) VALUE "UNI-80/6".
- 05 FILLER PIC X(8) VALUE "UNI-80/6".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-9040".
- 05 FILLER PIC X(8) VALUE "UNI-9040".
-
- 02 DATA-MACHINE REDEFINES DATA-MACHINE-TBL
- PIC X(8) OCCURS MAX-SUB.
- 02 DATA-NO-TERMINALS-TBL.
-
- 05 FILLER PIC 9(3) COMP-3 VALUE 85.
- 05 FILLER PIC 9(3) COMP-3 VALUE 34.
- 05 FILLER PIC 9(3) COMP-3 VALUE 75.
- 05 FILLER PIC 9(3) COMP-3 VALUE 45.
- 05 FILLER PIC 9(3) COMP-3 VALUE 90.
- 05 FILLER PIC 9(3) COMP-3 VALUE 107.
- 05 FILLER PIC 9(3) COMP-3 VALUE 67.
- 05 FILLER PIC 9(3) COMP-3 VALUE 32.
- 05 FILLER PIC 9(3) COMP-3 VALUE 16.
- 05 FILLER PIC 9(3) COMP-3 VALUE 34.
- 05 FILLER PIC 9(3) COMP-3 VALUE 128.
- 05 FILLER PIC 9(3) COMP-3 VALUE 64.
- 05 FILLER PIC 9(3) COMP-3 VALUE 110.
- 05 FILLER PIC 9(3) COMP-3 VALUE 324.
- 05 FILLER PIC 9(3) COMP-3 VALUE 124.
- 05 FILLER PIC 9(3) COMP-3 VALUE 86.
-
- 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL
- PIC 9(3) COMP-3 OCCURS MAX-SUB.
-
- 78 REC-MAX VALUE 10.
- 01 WORK-AREA.
- 05 REC-NUM BINARY-SHORT UNSIGNED VALUE 0.
- 05 SUB BINARY-SHORT UNSIGNED.
- 88 ODD-RECORD VALUE 1 3 5 7 9 10 11.
-
- 05 TSPFL-KEY PICTURE X(8).
-
- PROCEDURE DIVISION.
-
- MAINFILE.
- OPEN OUTPUT TSPFILE
- CLOSE TSPFILE.
-
- OPEN I-O TSPFILE
- MOVE '99' TO CUST-STAT
- READ TSPFILE NEXT RECORD WITH NO LOCK
- IF CUST-STAT NOT = "10"
- DISPLAY "Error " CUST-STAT " on read of empty file"
- UPON CONSOLE
- STOP RUN
- END-IF.
- MOVE LOW-VALUES TO TSPFL-RECORD.
- START TSPFILE KEY GREATER THAN CM-CUST-NUM
- IF CUST-STAT NOT = "23"
- DISPLAY "Error " CUST-STAT " starting empty file"
- UPON CONSOLE
- STOP RUN
- END-IF.
- READ TSPFILE NEXT RECORD WITH NO LOCK
- IF CUST-STAT NOT = "46"
- DISPLAY "Error " CUST-STAT " start/read of empty file"
- UPON CONSOLE
- STOP RUN
- END-IF.
- DISPLAY "OK: Operations on empty file"
- CLOSE TSPFILE.
-
- PERFORM LOADFILE.
- PERFORM LISTFILE.
- OPEN INPUT TSTFILE
- IF CUST-STAT NOT = "00"
- DISPLAY "Expected ERROR " CUST-STAT
- " opening TSTFILE, Record size different"
- UPON CONSOLE
- ELSE
- DISPLAY "Un-Expected open TSTFILE, Record size different"
- UPON CONSOLE
- CLOSE TSTFILE
- END-IF.
- PERFORM LOADFLAT.
- STOP RUN.
-
- LOADFILE.
- DISPLAY "Loading sample data file."
- UPON CONSOLE.
-
- OPEN OUTPUT TSPFILE
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT
- " opening 'testisam' file" UPON CONSOLE
- STOP RUN
- END-IF.
-
- PERFORM 1000-LOAD-RECORD
- VARYING SUB FROM 1 BY 1
- UNTIL SUB > MAX-SUB.
-
- DISPLAY "Sample data file load complete."
- UPON CONSOLE.
- CLOSE TSPFILE.
-
- *---------------------------------------------------------------*
- * LOAD A RECORD FROM DATA TABLES *
- *---------------------------------------------------------------*
-
- 1000-LOAD-RECORD.
-
- MOVE SPACES TO TSPFL-RECORD.
- MOVE DATA-CUST-NUM (SUB) TO CM-CUST-NUM.
- MOVE CM-CUST-NUM TO TSPFL-KEY.
- MOVE DATA-COMPANY (SUB) TO CM-COMPANY.
- MOVE DATA-ADDRESS-1 (SUB) TO CM-ADDRESS-1.
- MOVE DATA-ADDRESS-2 (SUB) TO CM-ADDRESS-2.
- MOVE DATA-ADDRESS-3 (SUB) TO CM-ADDRESS-3.
- MOVE DATA-TELEPHONE (SUB) TO CM-TELEPHONE.
- MOVE DATA-DP-MGR (SUB) TO CM-DP-MGR.
- MOVE DATA-MACHINE (SUB) TO CM-MACHINE.
- MOVE DATA-NO-TERMINALS (SUB) TO CM-NO-TERMINALS.
-
- IF ODD-RECORD
- MOVE "8417" TO CM-DISK
- MOVE "1600 BPI" TO CM-TAPE
- MOVE "1MEG" TO CM-MEMORY
- ELSE
- MOVE "8470" TO CM-DISK
- MOVE "6250 BPI" TO CM-TAPE
- MOVE "3MEG" TO CM-MEMORY.
-
- WRITE TSPFL-RECORD.
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "Load - Key: " TSPFL-KEY ", Status: " CUST-STAT
- UPON CONSOLE.
-
- LISTFILE.
- DISPLAY "LIST SAMPLE FILE" UPON CONSOLE.
- OPEN INPUT TSTFILE
- MOVE SPACES TO TSTFL-RECORD.
- MOVE "PRE00000" TO CM-CUST-NUM.
- START TSTFILE KEY GREATER THAN OR EQUAL TO TS-CUST-NUM
- READ TSTFILE NEXT RECORD
- READ TSTFILE NEXT RECORD
- CLOSE TSTFILE.
-
- MOVE ZERO TO REC-NUM
- OPEN INPUT TSPFILE
- IF CUST-STAT NOT = "00"
- DISPLAY "ERROR " CUST-STAT " OPENING INPUT FILE"
- UPON CONSOLE
- STOP RUN
- END-IF.
- MOVE SPACES TO TSPFL-RECORD.
- MOVE "PRE00000" TO CM-CUST-NUM.
- START TSPFILE KEY GREATER THAN OR EQUAL TO CM-CUST-NUM
- READ TSPFILE NEXT RECORD
- READ TSPFILE NEXT RECORD
-
- MOVE SPACES TO TSPFL-RECORD.
- MOVE "DEL00000" TO CM-CUST-NUM.
- START TSPFILE KEY GREATER THAN CM-CUST-NUM
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " starting file"
- UPON CONSOLE
- STOP RUN
- END-IF.
- READ TSPFILE NEXT RECORD WITH NO LOCK
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " on 1st read of file"
- UPON CONSOLE
- STOP RUN
- END-IF.
- PERFORM UNTIL CUST-STAT NOT = "00"
- OR REC-NUM > REC-MAX
- DISPLAY "Key: " CM-CUST-NUM " is " CM-COMPANY
- " Disk=" CM-DISK "."
- UPON CONSOLE
- READ TSPFILE NEXT RECORD
- AT END
- MOVE "99" TO CUST-STAT
- END-READ
- ADD 1 TO REC-NUM
- END-PERFORM
- IF CUST-STAT = "99"
- DISPLAY "Hit End of File" UPON CONSOLE
- END-IF.
-
- DISPLAY "LIST SAMPLE FILE DESCENDING" UPON CONSOLE.
- MOVE ZERO TO REC-NUM
- START TSPFILE KEY LESS THAN CM-CUST-NUM
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " starting file"
- UPON CONSOLE
- STOP RUN
- END-IF.
- READ TSPFILE PREVIOUS RECORD WITH NO LOCK
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " on 1st read of file"
- UPON CONSOLE
- STOP RUN
- END-IF.
- PERFORM UNTIL CUST-STAT NOT = "00"
- OR REC-NUM > REC-MAX
- DISPLAY "Key: " CM-CUST-NUM " is " CM-COMPANY
- " Disk=" CM-DISK "."
- UPON CONSOLE
- READ TSPFILE PREVIOUS RECORD
- AT END
- MOVE "99" TO CUST-STAT
- END-READ
- ADD 1 TO REC-NUM
- END-PERFORM.
-
- CLOSE TSPFILE.
-
- OPEN I-O TSPFILE.
- MOVE SPACES TO TSPFL-RECORD.
- MOVE DATA-CUST-NUM (2) TO CM-CUST-NUM.
- MOVE 'X' TO CM-CUST-NUM (5:1).
- READ TSPFILE KEY IS CM-CUST-NUM
- IF CUST-STAT NOT = "23"
- DISPLAY "Error " CUST-STAT " instead of 23."
- UPON CONSOLE
- END-IF.
- MOVE DATA-CUST-NUM (2) TO CM-CUST-NUM.
- MOVE DATA-COMPANY (2) TO CM-COMPANY.
- READ TSPFILE KEY IS CM-CUST-NUM
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " on primary read ."
- UPON CONSOLE
- ELSE
- DISPLAY "Got: " CM-CUST-NUM " is " CM-COMPANY
- " Disk=" CM-DISK "."
- UPON CONSOLE
- END-IF.
- READ TSPFILE NEXT RECORD
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " on next read"
- UPON CONSOLE
- ELSE
- DISPLAY "Nxt: " CM-CUST-NUM " is " CM-COMPANY
- " Disk=" CM-DISK "."
- UPON CONSOLE
- END-IF.
- MOVE DATA-TELEPHONE (7) TO CM-TELEPHONE.
- MOVE DATA-MACHINE (7) TO CM-MACHINE.
- READ TSPFILE KEY IS CM-TELEPHONE
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " instead of 23"
- UPON CONSOLE
- ELSE
- DISPLAY "Ky2: " CM-CUST-NUM " is " CM-COMPANY
- " Mach=" CM-MACHINE "."
- UPON CONSOLE
- END-IF.
- WRITE TSPFL-RECORD
- IF CUST-STAT NOT = "22"
- DISPLAY "Error " CUST-STAT " instead of 22"
- UPON CONSOLE
- ELSE
- DISPLAY " Write: " CM-CUST-NUM " got 22 as expected"
- UPON CONSOLE
- END-IF.
- MOVE DATA-CUST-NUM (3) TO CM-CUST-NUM.
- MOVE DATA-COMPANY (3) TO CM-COMPANY.
- READ TSPFILE KEY IS CM-CUST-NUM
- DISPLAY " Read: " CM-CUST-NUM " got "
- CUST-STAT " as expected "
- CM-NO-TERMINALS " terminals"
- UPON CONSOLE.
- ADD 5 TO CM-NO-TERMINALS
- REWRITE TSPFL-RECORD
- IF CUST-STAT NOT = "02"
- AND CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " instead of 02"
- UPON CONSOLE
- ELSE
- DISPLAY "ReWrite: " CM-CUST-NUM " got "
- "00/02 as expected "
- CM-NO-TERMINALS " terminals"
- UPON CONSOLE
- END-IF.
- MOVE DATA-CUST-NUM (2) TO CM-CUST-NUM.
- MOVE DATA-COMPANY (2) TO CM-COMPANY.
- READ TSPFILE KEY IS CM-CUST-NUM
- DISPLAY " Read: " CM-CUST-NUM " got "
- CUST-STAT " as expected "
- CM-NO-TERMINALS " terminals"
- UPON CONSOLE.
- MOVE DATA-CUST-NUM (3) TO CM-CUST-NUM.
- MOVE DATA-COMPANY (3) TO CM-COMPANY.
- REWRITE TSPFL-RECORD
- IF CUST-STAT NOT = "02"
- AND CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " instead of 02"
- UPON CONSOLE
- ELSE
- DISPLAY "ReWrite: " CM-CUST-NUM " got "
- "00/02 as expected"
- UPON CONSOLE
- END-IF.
- MOVE DATA-CUST-NUM (6) TO CM-CUST-NUM.
- MOVE DATA-COMPANY (6) TO CM-COMPANY.
- READ TSPFILE KEY IS CM-CUST-NUM
- MOVE DATA-TELEPHONE (7) TO CM-TELEPHONE.
- MOVE DATA-MACHINE (7) TO CM-MACHINE.
- REWRITE TSPFL-RECORD
- IF CUST-STAT NOT = "02"
- AND CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " instead of 02"
- UPON CONSOLE
- ELSE
- DISPLAY "ReWrite: " CM-CUST-NUM " got "
- "00/02 as expected"
- UPON CONSOLE
- END-IF.
- DELETE TSPFILE.
- CLOSE TSPFILE.
-
- LOADFLAT.
- OPEN OUTPUT FLATFILE.
- PERFORM FLAT-RECORD
- VARYING SUB FROM 1 BY 1
- UNTIL SUB > MAX-SUB
- OR SUB > 5.
- CLOSE FLATFILE.
- OPEN INPUT FLATFILE.
- MOVE 3 TO REC-NUM
- READ FLATFILE
- MOVE 999 TO REC-NUM
- READ FLATFILE
- CLOSE FLATFILE.
-
- FLAT-RECORD.
-
- MOVE SPACES TO TSP2-RECORD.
- MOVE SUB TO REC-NUM.
- MOVE DATA-CUST-NUM (SUB) TO C2-CUST-NUM.
- MOVE DATA-COMPANY (SUB) TO C2-COMPANY.
- MOVE DATA-NO-TERMINALS (SUB) TO C2-NO-TERMINALS.
- MOVE 20070319 TO C2-PK-DATE.
- IF ODD-RECORD
- MOVE "8417" TO C2-DISK
- ELSE
- MOVE "8470" TO C2-DISK.
- WRITE TSP2-RECORD.
-_ATEOF
-
-
-cat >cmod.c <<'_ATEOF'
-
-#include <stdio.h>
-#include <libcob.h>
-
-static char *txtOpCode(int opCode);
-
-/*********************************************************
- * TSTFH - External File Handler entry point.
-*********************************************************/
-
-COB_EXT_EXPORT int
-TSTFH (unsigned char *opCodep, FCD3 *fcd)
-{
- unsigned int opCode;
-
- if (*opCodep == 0xfa)
- opCode = 0xfa00 + opCodep[1];
- else
- opCode = opCodep[1];
-
- if (fcd->fileOrg == ORG_LINE_SEQ
- || fcd->fileOrg == ORG_SEQ
- || fcd->fileOrg == ORG_INDEXED
- || fcd->fileOrg == ORG_RELATIVE) {
- switch (opCode) {
- case OP_OPEN_OUTPUT:
- case OP_OPEN_IO:
- case OP_OPEN_EXTEND:
- case OP_OPEN_OUTPUT_NOREWIND:
- return EXTFH(opCodep, fcd);
- break;
-
- case OP_OPEN_INPUT:
- case OP_OPEN_INPUT_NOREWIND:
- case OP_OPEN_INPUT_REVERSED:
- return EXTFH(opCodep, fcd);
- break;
-
- default:
- break;
- }
-
- }
-
- if (opCode == OP_CLOSE
- && (fcd->openMode & OPEN_NOT_OPEN) ) {
- return 0;
- }
-
- return EXTFH(opCodep, fcd);
-}
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:8040: \$COMPILE -fcallfh=TSTFH prog.cob cmod.c"
-at_fn_check_prepare_dynamic "$COMPILE -fcallfh=TSTFH prog.cob cmod.c" "run_file.at:8040"
-( $at_check_trace; $COMPILE -fcallfh=TSTFH prog.cob cmod.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:8040"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:8042: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:8042"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK: Operations on empty file
-Loading sample data file.
-Sample data file load complete.
-LIST SAMPLE FILE
-Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=8417 .
-Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=8470 .
-Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 .
-Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 .
-Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=8470 .
-Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 .
-Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 .
-Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 .
-Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=8470 .
-Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 .
-Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=8470 .
-LIST SAMPLE FILE DESCENDING
-Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=8470 .
-Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 .
-Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=8470 .
-Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 .
-Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 .
-Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 .
-Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=8470 .
-Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 .
-Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 .
-Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=8470 .
-Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=8417 .
-Got: BET00000 is BETA SHOE MFG. INC. Disk=8470 .
-Nxt: DEL00000 is DELTA LUGGAGE REPAIRS Disk=8470 .
-Ky2: GIB00000 is GIBRALTER LIFE INSURANCE Mach=UNI-80/6.
- Write: GIB00000 got 22 as expected
- Read: GAM00000 got 00 as expected 00075 terminals
-ReWrite: GAM00000 got 00/02 as expected 00080 terminals
- Read: BET00000 got 00 as expected 00034 terminals
-ReWrite: GAM00000 got 00/02 as expected
-ReWrite: FOR00000 got 00/02 as expected
-Expected ERROR 39 opening TSTFILE, Record size different
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:8042"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_925
-#AT_START_926
-at_fn_group_banner 926 'run_file.at:8085' \
- "EXTFH: Indexed with FH--FCD" " " 4
-at_xfail=no
-(
- printf "%s\n" "926. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-printf "%s\n" "run_file.at:8088" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:8088"
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
-
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
-
- $set fcdreg
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TSPFILE
- ASSIGN TO "mytstisam"
- ORGANIZATION INDEXED ACCESS DYNAMIC
- RECORD KEY IS PRIME-KEY
- SOURCE IS CM-CUST-NUM
-
- ALTERNATE RECORD KEY IS SPLIT-KEY2
- SOURCE IS CM-TELEPHONE,CM-MACHINE
- * WITH DUPLICATES
-
- ALTERNATE RECORD KEY IS SPLIT-KEY3
- SOURCE IS CM-DISK,CM-TAPE
- * WITH DUPLICATES
- * SUPPRESS WHEN ALL "*"
- FILE STATUS IS CUST-STAT
- .
-
- DATA DIVISION.
- FILE SECTION.
- FD TSPFILE
- BLOCK CONTAINS 5 RECORDS.
-
- 01 TSPFL-RECORD.
- 05 TSPFL-REC.
- 10 CM-CUST-NUM.
- 15 CM-CUST-PRE PICTURE X(3).
- 15 CM-CUST-NNN PICTURE X(5).
- 10 CM-STATUS PICTURE X.
- 10 CM-COMPANY PICTURE X(25).
- 10 CM-ADDRESS-1 PICTURE X(25).
- 10 CM-ADDRESS-2 PICTURE X(25).
- 10 CM-ADDRESS-3 PICTURE X(25).
- 10 CM-TELEPHONE PICTURE 9(10).
- 10 CM-DP-MGR PICTURE X(25).
- 10 CM-MACHINE PICTURE X(8).
- 10 CM-MEMORY PICTURE X(4).
- 10 CM-DISK PICTURE X(8).
- 10 CM-TAPE PICTURE X(8).
- 10 CM-NO-TERMINALS PICTURE 9(5).
-
- WORKING-STORAGE SECTION.
- 01 CUST-STAT.
- 05 STAT-1 PICTURE 9(4) COMP SYNC.
- 05 FILLER REDEFINES STAT-1.
- 10 STAT-X1 PIC X COMP-X.
- 10 STAT-X2 PIC X COMP-X.
- 77 BYTE-1 PICTURE 9(3).
- 77 BYTE-2 PICTURE 9(3).
- 78 MAX-SUB VALUE 16.
- 77 IDX PICTURE 9.
- 77 IDX2 PICTURE 9.
- 77 OUT-FILE-NAME PICTURE X(9)
- VALUE "myextisam".
-
- 01 TEST-DATA.
-
- 02 DATA-CUST-NUM-TBL.
-
- 05 FILLER PIC X(8) VALUE "ALP00000".
- 05 FILLER PIC X(8) VALUE "BET00000".
- 05 FILLER PIC X(8) VALUE "GAM00000".
- 05 FILLER PIC X(8) VALUE "DEL00000".
- 05 FILLER PIC X(8) VALUE "EPS00000".
- 05 FILLER PIC X(8) VALUE "FOR00000".
- 05 FILLER PIC X(8) VALUE "GIB00000".
- 05 FILLER PIC X(8) VALUE "H&J00000".
- 05 FILLER PIC X(8) VALUE "INC00000".
- 05 FILLER PIC X(8) VALUE "JOH00000".
- 05 FILLER PIC X(8) VALUE "KON00000".
- 05 FILLER PIC X(8) VALUE "LEW00000".
- 05 FILLER PIC X(8) VALUE "MOR00000".
- 05 FILLER PIC X(8) VALUE "NEW00000".
- 05 FILLER PIC X(8) VALUE "OLD00000".
- 05 FILLER PIC X(8) VALUE "PRE00000".
-
- 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL
- PIC X(8) OCCURS MAX-SUB.
- 02 DATA-COMPANY-TBL.
-
- 05 FILLER PIC X(25) VALUE "ALPHA ELECTRICAL CO. LTD.".
- 05 FILLER PIC X(25) VALUE "BETA SHOE MFG. INC. ".
- 05 FILLER PIC X(25) VALUE "GAMMA X-RAY TECHNOLOGY ".
- 05 FILLER PIC X(25) VALUE "DELTA LUGGAGE REPAIRS ".
- 05 FILLER PIC X(25) VALUE "EPSILON EQUIPMENT SUPPLY ".
- 05 FILLER PIC X(25) VALUE "FORTUNE COOKIE COMPANY ".
- 05 FILLER PIC X(25) VALUE "GIBRALTER LIFE INSURANCE ".
- 05 FILLER PIC X(25) VALUE "H & J PLUMBING SUPPLIES ".
- 05 FILLER PIC X(25) VALUE "INCREMENTAL BACKUP CORP. ".
- 05 FILLER PIC X(25) VALUE "JOHNSON BOATING SUPPLIES ".
- 05 FILLER PIC X(25) VALUE "KONFLAB PLASTIC PRODUCTS.".
- 05 FILLER PIC X(25) VALUE "LEWISTON GRAPHICS LTD. ".
- 05 FILLER PIC X(25) VALUE "MORNINGSIDE CARPENTRY. ".
- 05 FILLER PIC X(25) VALUE "NEW WAVE SURF SHOPS INC. ".
- 05 FILLER PIC X(25) VALUE "OLD TYME PIZZA MFG. CO. ".
- 05 FILLER PIC X(25) VALUE "PRESTIGE OFFICE FURNITURE".
-
- 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL
- PIC X(25) OCCURS MAX-SUB.
- 02 DATA-ADDRESS-1-TBL.
-
- 05 FILLER PIC X(25) VALUE "123 MAIN STREET ".
- 05 FILLER PIC X(25) VALUE "1090 2ND AVE. WEST ".
- 05 FILLER PIC X(25) VALUE "1401 JEFFERSON BLVD. ".
- 05 FILLER PIC X(25) VALUE "1620 ARIZONA WAY ".
- 05 FILLER PIC X(25) VALUE "1184 EAST FIRST STREET ".
- 05 FILLER PIC X(25) VALUE "114 JOHN F. KENNEDY AVE. ".
- 05 FILLER PIC X(25) VALUE "650 LIBERTY CRESCENT ".
- 05 FILLER PIC X(25) VALUE "77 SUNSET BLVD. ".
- 05 FILLER PIC X(25) VALUE "10908 SANTA MONICA BLVD. ".
- 05 FILLER PIC X(25) VALUE "1134 PARIS ROAD ".
- 05 FILLER PIC X(25) VALUE "808 NORTHWEST MAIN ST. ".
- 05 FILLER PIC X(25) VALUE "9904 QUEEN STREET ".
- 05 FILLER PIC X(25) VALUE "1709 DUNDAS CRESCENT W. ".
- 05 FILLER PIC X(25) VALUE "3240 MARIS AVENUE ".
- 05 FILLER PIC X(25) VALUE "1705 WISCONSIN ROAD ".
- 05 FILLER PIC X(25) VALUE "114A MAPLE GROVE ".
-
- 02 DATA-ADDRESS-1 REDEFINES DATA-ADDRESS-1-TBL
- PIC X(25) OCCURS MAX-SUB.
- 02 DATA-ADDRESS-2-TBL.
-
- 05 FILLER PIC X(10) VALUE "NEW YORK ".
- 05 FILLER PIC X(10) VALUE "ATLANTA ".
- 05 FILLER PIC X(10) VALUE "WASHINGTON".
- 05 FILLER PIC X(10) VALUE "TORONTO ".
- 05 FILLER PIC X(10) VALUE "CALGARY ".
- 05 FILLER PIC X(10) VALUE "SAN DIEGO ".
- 05 FILLER PIC X(10) VALUE "LOS RIOS ".
- 05 FILLER PIC X(10) VALUE "MADISON ".
- 05 FILLER PIC X(10) VALUE "WILBUR ".
- 05 FILLER PIC X(10) VALUE "TOPEKA ".
- 05 FILLER PIC X(10) VALUE "SEATTLE ".
- 05 FILLER PIC X(10) VALUE "NEW JERSEY".
- 05 FILLER PIC X(10) VALUE "FORT WAYNE".
- 05 FILLER PIC X(10) VALUE "COLUMBUS ".
- 05 FILLER PIC X(10) VALUE "RICHMOND ".
- 05 FILLER PIC X(10) VALUE "WHITEPLAIN".
-
- 02 DATA-ADDRESS-2 REDEFINES DATA-ADDRESS-2-TBL
- PIC X(10) OCCURS MAX-SUB.
- 02 DATA-ADDRESS-3-TBL.
-
- 05 FILLER PIC X(10) VALUE "N.Y. ".
- 05 FILLER PIC X(10) VALUE "GEORGIA ".
- 05 FILLER PIC X(10) VALUE "D.C. ".
- 05 FILLER PIC X(10) VALUE "CANADA ".
- 05 FILLER PIC X(10) VALUE "CANADA ".
- 05 FILLER PIC X(10) VALUE "CALIFORNIA".
- 05 FILLER PIC X(10) VALUE "NEW MEXICO".
- 05 FILLER PIC X(10) VALUE "WISCONSIN ".
- 05 FILLER PIC X(10) VALUE "DELAWARE ".
- 05 FILLER PIC X(10) VALUE "KANSAS ".
- 05 FILLER PIC X(10) VALUE "WASHINGTON".
- 05 FILLER PIC X(10) VALUE "N.J. ".
- 05 FILLER PIC X(10) VALUE "COLORADO ".
- 05 FILLER PIC X(10) VALUE "OHIO ".
- 05 FILLER PIC X(10) VALUE "VIRGINIA ".
- 05 FILLER PIC X(10) VALUE "N.Y. ".
-
- 02 DATA-ADDRESS-3 REDEFINES DATA-ADDRESS-3-TBL
- PIC X(10) OCCURS MAX-SUB.
- 02 DATA-TELEPHONE-TBL.
-
- 05 FILLER PIC 9(10) VALUE 3131234432.
- 05 FILLER PIC 9(10) VALUE 4082938498.
- 05 FILLER PIC 9(10) VALUE 8372487274.
- 05 FILLER PIC 9(10) VALUE 4169898509.
- 05 FILLER PIC 9(10) VALUE 5292398745.
- 05 FILLER PIC 9(10) VALUE 8009329492.
- 05 FILLER PIC 9(10) VALUE 6456445643.
- 05 FILLER PIC 9(10) VALUE 6546456333.
- 05 FILLER PIC 9(10) VALUE 3455445444.
- 05 FILLER PIC 9(10) VALUE 6456445643.
- 05 FILLER PIC 9(10) VALUE 7456434355.
- 05 FILLER PIC 9(10) VALUE 6554456433.
- 05 FILLER PIC 9(10) VALUE 4169898509.
- 05 FILLER PIC 9(10) VALUE 7534587453.
- 05 FILLER PIC 9(10) VALUE 8787458374.
- 05 FILLER PIC 9(10) VALUE 4169898509.
-
- 02 DATA-TELEPHONE REDEFINES DATA-TELEPHONE-TBL
- PIC 9(10) OCCURS MAX-SUB.
- 02 DATA-DP-MGR-TBL.
-
- 05 FILLER PIC X(20) VALUE "MR. DAVE HARRIS ".
- 05 FILLER PIC X(20) VALUE "MS. JANICE SILCOX ".
- 05 FILLER PIC X(20) VALUE "MR. ALLAN JONES ".
- 05 FILLER PIC X(20) VALUE "MR. PETER MACKAY ".
- 05 FILLER PIC X(20) VALUE "MRS. DONNA BREWER ".
- 05 FILLER PIC X(20) VALUE "MR. MICHAEL SMYTHE ".
- 05 FILLER PIC X(20) VALUE "MR. D.A. MORRISON ".
- 05 FILLER PIC X(20) VALUE "MR. BRIAN PATTERSON ".
- 05 FILLER PIC X(20) VALUE "MR. DARRYL TOWNSEND ".
- 05 FILLER PIC X(20) VALUE "MS. VALERIE HARPER ".
- 05 FILLER PIC X(20) VALUE "MR. FRED MILLER ".
- 05 FILLER PIC X(20) VALUE "MR. DONALD FISCHER ".
- 05 FILLER PIC X(20) VALUE "MR. STEVEN YOURDIN ".
- 05 FILLER PIC X(20) VALUE "MS. Goldie Hawn ".
- 05 FILLER PIC X(20) VALUE "MS. ALICE WINSTON ".
- 05 FILLER PIC X(20) VALUE "MR. THOMAS JEFFERSON".
-
- 02 DATA-DP-MGR REDEFINES DATA-DP-MGR-TBL
- PIC X(20) OCCURS MAX-SUB.
- 02 DATA-MACHINE-TBL.
-
- 05 FILLER PIC X(8) VALUE "UNI-9030".
- 05 FILLER PIC X(8) VALUE "UNI-9040".
- 05 FILLER PIC X(8) VALUE "UNI-80/3".
- 05 FILLER PIC X(8) VALUE "UNI-80/5".
- 05 FILLER PIC X(8) VALUE "UNI-80/6".
- 05 FILLER PIC X(8) VALUE "UNI-80/6".
- 05 FILLER PIC X(8) VALUE "UNI-80/6".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-9040".
- 05 FILLER PIC X(8) VALUE "UNI-9040".
-
- 02 DATA-MACHINE REDEFINES DATA-MACHINE-TBL
- PIC X(8) OCCURS MAX-SUB.
- 02 DATA-NO-TERMINALS-TBL.
-
- 05 FILLER PIC 9(3) COMP-3 VALUE 85.
- 05 FILLER PIC 9(3) COMP-3 VALUE 34.
- 05 FILLER PIC 9(3) COMP-3 VALUE 75.
- 05 FILLER PIC 9(3) COMP-3 VALUE 45.
- 05 FILLER PIC 9(3) COMP-3 VALUE 90.
- 05 FILLER PIC 9(3) COMP-3 VALUE 107.
- 05 FILLER PIC 9(3) COMP-3 VALUE 67.
- 05 FILLER PIC 9(3) COMP-3 VALUE 32.
- 05 FILLER PIC 9(3) COMP-3 VALUE 16.
- 05 FILLER PIC 9(3) COMP-3 VALUE 34.
- 05 FILLER PIC 9(3) COMP-3 VALUE 128.
- 05 FILLER PIC 9(3) COMP-3 VALUE 64.
- 05 FILLER PIC 9(3) COMP-3 VALUE 110.
- 05 FILLER PIC 9(3) COMP-3 VALUE 324.
- 05 FILLER PIC 9(3) COMP-3 VALUE 124.
- 05 FILLER PIC 9(3) COMP-3 VALUE 86.
-
- 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL
- PIC 9(3) COMP-3 OCCURS MAX-SUB.
-
- 01 WORK-AREA.
- 05 REC-NUM PICTURE 9(2) VALUE 0.
- 05 SUB BINARY-SHORT UNSIGNED.
- 88 ODD-RECORD VALUE 1 3 5 7 9 10 11.
- 88 NULL-KEY VALUE 4 5 8 12 14.
-
- 05 TSPFL-KEY PICTURE X(8).
- 05 KC-PTR USAGE POINTER.
-
- LINKAGE SECTION.
-
- 01 TSP-FCD.
- COPY "xfhfcd.cpy".
-
- 01 key-def.
- 03 kdb-len pic 9(4) comp-x.
- 03 filler pic x(4).
- 03 key-nkeys pic 9(4) comp-x.
- 03 filler pic x(6).
- 03 key-defs occurs 1 to 8 times depending on key-nkeys.
- 05 key-count pic 9(3) comp-x.
- 05 key-offset pic 9(3) comp-x.
- 05 key-flags pic X comp-x.
- 05 key-compression pic X comp-x.
- 05 key-sparse pic x.
- 05 filler pic x(9).
-
- 01 key-comp.
- 03 kc-desc pic X comp-x.
- 03 kc-type pic X comp-x.
- 03 kc-pos pic 9(9) comp-x.
- 03 kc-len pic 9(9) comp-x.
-
- 01 TSP-FILENAME PIC X(256).
- PROCEDURE DIVISION.
-
- MAINFILE.
- SET ADDRESS OF TSP-FCD TO ADDRESS OF FH--FCD OF TSPFILE.
- SET ADDRESS OF KEY-DEF TO ADDRESS OF FH--KEYDEF OF TSPFILE.
- DISPLAY "Other Flags " FCD-OTHER-FLAGS "."
- DISPLAY "File has " key-nkeys " keys."
- DISPLAY "Key def " kdb-len " bytes."
- SET ADDRESS OF TSP-FILENAME TO FCD-FILENAME-ADDRESS.
- DISPLAY "File assigned is '"
- TSP-FILENAME (1:FCD-NAME-LENGTH) "'".
- SET FCD-FILENAME-ADDRESS TO ADDRESS OF OUT-FILE-NAME.
- MOVE LENGTH OF OUT-FILE-NAME TO FCD-NAME-LENGTH.
- DISPLAY "*** Dump FCD before changes"
- PERFORM DUMP-FCD.
- MOVE 64 TO KEY-FLAGS (2)
- MOVE 66 TO KEY-FLAGS (3)
- MOVE '*' TO KEY-SPARSE (3)
- DISPLAY "*** Dump FCD after changes"
- PERFORM DUMP-FCD.
- PERFORM LOADFILE.
- PERFORM LISTFILE.
- STOP RUN.
-
- DUMP-FCD.
- PERFORM VARYING IDX FROM 1 BY 1
- UNTIL IDX > key-nkeys
- IF key-sparse (idx) < ' '
- MOVE ' ' TO key-sparse (idx)
- END-IF
- DISPLAY "Key" IDX " has " key-count (idx) " parts,"
- " Offset " key-offset (idx)
- " Flags " key-flags (idx)
- " Comp " key-compression (idx)
- " Sparse " key-sparse (idx) "."
- SET KC-PTR TO ADDRESS OF KEY-DEF
- SET KC-PTR UP BY key-offset (idx)
- PERFORM VARYING IDX2 FROM 1 BY 1
- UNTIL IDX2 > key-count (idx)
- SET ADDRESS OF KEY-COMP TO KC-PTR
- DISPLAY " Pos " kc-pos " Len " kc-len
- SET KC-PTR UP BY LENGTH OF KEY-COMP
- END-PERFORM
- END-PERFORM.
-
- LOADFILE.
- OPEN OUTPUT TSPFILE
- SET ADDRESS OF TSP-FILENAME TO FCD-FILENAME-ADDRESS.
- DISPLAY "Loading sample file '"
- TSP-FILENAME (1:FCD-NAME-LENGTH) "'"
- UPON CONSOLE.
-
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "05"
- DISPLAY "Error " CUST-STAT " opening '"
- TSP-FILENAME (1:FCD-NAME-LENGTH) "' file"
- UPON CONSOLE
- STOP RUN
- END-IF.
-
- PERFORM 1000-LOAD-RECORD
- VARYING SUB FROM 1 BY 1
- UNTIL SUB > MAX-SUB.
-
- DISPLAY "Sample data file load complete."
- UPON CONSOLE.
- CLOSE TSPFILE.
-
- *---------------------------------------------------------------*
- * LOAD A RECORD FROM DATA TABLES *
- *---------------------------------------------------------------*
-
- 1000-LOAD-RECORD.
-
- MOVE SPACES TO TSPFL-RECORD.
- MOVE DATA-CUST-NUM (SUB) TO CM-CUST-NUM.
- MOVE CM-CUST-NUM TO TSPFL-KEY.
- MOVE DATA-COMPANY (SUB) TO CM-COMPANY.
- MOVE DATA-ADDRESS-1 (SUB) TO CM-ADDRESS-1.
- MOVE DATA-ADDRESS-2 (SUB) TO CM-ADDRESS-2.
- MOVE DATA-ADDRESS-3 (SUB) TO CM-ADDRESS-3.
- MOVE DATA-TELEPHONE (SUB) TO CM-TELEPHONE.
- MOVE DATA-DP-MGR (SUB) TO CM-DP-MGR.
- MOVE DATA-MACHINE (SUB) TO CM-MACHINE.
- MOVE DATA-NO-TERMINALS (SUB) TO CM-NO-TERMINALS.
-
- IF ODD-RECORD
- MOVE "8417" TO CM-DISK
- MOVE "1600 BPI" TO CM-TAPE
- MOVE "1MEG" TO CM-MEMORY
- ELSE
- MOVE "8470" TO CM-DISK
- MOVE "6250 BPI" TO CM-TAPE
- MOVE "3MEG" TO CM-MEMORY.
- IF NULL-KEY
- MOVE ALL "*" TO CM-DISK
- MOVE ALL "*" TO CM-TAPE.
- IF SUB = 1 OR 6
- MOVE "2417" TO CM-DISK
- MOVE "549 mmm" TO CM-TAPE.
-
- WRITE TSPFL-RECORD
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "WRITE: " TSPFL-KEY ", Status: "
- CUST-STAT UPON CONSOLE
- END-IF.
-
- LISTFILE.
- MOVE ZERO TO REC-NUM
- OPEN INPUT TSPFILE
- SET ADDRESS OF TSP-FILENAME TO FCD-FILENAME-ADDRESS.
- DISPLAY "List sample file '"
- TSP-FILENAME (1:FCD-NAME-LENGTH) "'"
- UPON CONSOLE.
- IF CUST-STAT NOT = "00"
- DISPLAY "ERROR " CUST-STAT " OPENING INPUT FILE"
- UPON CONSOLE
- IF CUST-STAT (1:1) = "9"
- DISPLAY "Sub Error " STAT-X2 UPON CONSOLE
- END-IF
- STOP RUN
- END-IF.
- MOVE SPACES TO TSPFL-RECORD.
- START TSPFILE KEY GREATER THAN PRIME-KEY
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " starting file"
- UPON CONSOLE
- IF CUST-STAT (1:1) = "9"
- DISPLAY "Sub Error " STAT-X2 UPON CONSOLE
- END-IF
- STOP RUN
- END-IF.
- READ TSPFILE NEXT RECORD WITH NO LOCK
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " on 1st read of file"
- UPON CONSOLE
- IF CUST-STAT (1:1) = "9"
- DISPLAY "Sub Error " STAT-X2 UPON CONSOLE
- END-IF
- STOP RUN
- END-IF.
- PERFORM UNTIL CUST-STAT NOT = "00"
- OR REC-NUM > MAX-SUB
- DISPLAY "Key: " CM-CUST-NUM " is " CM-COMPANY
- " Disk=" CM-DISK "."
- UPON CONSOLE
- READ TSPFILE NEXT RECORD
- AT END
- MOVE "99" TO CUST-STAT
- END-READ
- ADD 1 TO REC-NUM
- END-PERFORM
- IF CUST-STAT = "99"
- DISPLAY "Hit End of File after " REC-NUM UPON CONSOLE
- END-IF.
-
- DISPLAY "LIST SAMPLE FILE DESCENDING" UPON CONSOLE.
- MOVE ZERO TO REC-NUM
- MOVE ALL 'Z' TO TSPFL-RECORD.
- START TSPFILE KEY LESS THAN PRIME-KEY
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " starting file"
- UPON CONSOLE
- STOP RUN
- END-IF.
- READ TSPFILE PREVIOUS RECORD WITH NO LOCK
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " on 1st read of file"
- UPON CONSOLE
- STOP RUN
- END-IF.
- PERFORM UNTIL CUST-STAT NOT = "00"
- OR REC-NUM > MAX-SUB
- DISPLAY "Key: " CM-CUST-NUM " is " CM-COMPANY
- " Disk=" CM-DISK "."
- UPON CONSOLE
- READ TSPFILE PREVIOUS RECORD
- AT END
- MOVE "99" TO CUST-STAT
- END-READ
- ADD 1 TO REC-NUM
- END-PERFORM.
- IF CUST-STAT = "99"
- DISPLAY "Hit End of File after " REC-NUM UPON CONSOLE
- END-IF.
-
- DISPLAY "LIST SAMPLE FILE BY KEY3" UPON CONSOLE.
- MOVE ZERO TO REC-NUM
- MOVE SPACES TO TSPFL-RECORD.
- START TSPFILE KEY GREATER THAN OR EQUAL TO SPLIT-KEY3
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "Error " CUST-STAT " starting file"
- UPON CONSOLE
- STOP RUN
- END-IF.
- READ TSPFILE NEXT RECORD WITH NO LOCK
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "Error " CUST-STAT " on 1st read of file"
- UPON CONSOLE
- STOP RUN
- END-IF.
- PERFORM UNTIL (CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02")
- OR REC-NUM > MAX-SUB
- DISPLAY "Key: " CM-CUST-NUM " is " CM-COMPANY
- " Disk=" CM-DISK "."
- UPON CONSOLE
- READ TSPFILE NEXT RECORD
- AT END
- MOVE "99" TO CUST-STAT
- END-READ
- ADD 1 TO REC-NUM
- END-PERFORM.
- IF CUST-STAT = "99"
- DISPLAY "Hit End of File after " REC-NUM UPON CONSOLE
- END-IF.
- CLOSE TSPFILE.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:8603: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:8603"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:8603"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:8607: \$COBCRUN_DIRECT ./prog 1>prog.out"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog 1>prog.out" "run_file.at:8607"
-( $at_check_trace; $COBCRUN_DIRECT ./prog 1>prog.out
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:8607"
-$at_failed && at_fn_log_failure \
-"prog.out"
-$at_traceon; }
-
-
-cat >reference <<'_ATEOF'
-Other Flags 32.
-File has 0003 keys.
-Key def 0112 bytes.
-File assigned is 'mytstisam'
-*** Dump FCD before changes
-Key1 has 001 parts, Offset 062 Flags 00 Comp 00 Sparse .
- Pos 000000000 Len 000000008
-Key2 has 002 parts, Offset 072 Flags 00 Comp 00 Sparse .
- Pos 000000109 Len 000000010
- Pos 000000144 Len 000000008
-Key3 has 002 parts, Offset 092 Flags 00 Comp 00 Sparse .
- Pos 000000156 Len 000000008
- Pos 000000164 Len 000000008
-*** Dump FCD after changes
-Key1 has 001 parts, Offset 062 Flags 00 Comp 00 Sparse .
- Pos 000000000 Len 000000008
-Key2 has 002 parts, Offset 072 Flags 64 Comp 00 Sparse .
- Pos 000000109 Len 000000010
- Pos 000000144 Len 000000008
-Key3 has 002 parts, Offset 092 Flags 66 Comp 00 Sparse *.
- Pos 000000156 Len 000000008
- Pos 000000164 Len 000000008
-Loading sample file 'myextisam'
-Sample data file load complete.
-List sample file 'myextisam'
-Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 .
-Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 .
-Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********.
-Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********.
-Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 .
-Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 .
-Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 .
-Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********.
-Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 .
-Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 .
-Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 .
-Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********.
-Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 .
-Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********.
-Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 .
-Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 .
-Hit End of File after 16
-LIST SAMPLE FILE DESCENDING
-Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 .
-Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 .
-Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********.
-Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 .
-Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********.
-Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 .
-Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 .
-Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 .
-Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********.
-Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 .
-Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 .
-Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 .
-Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********.
-Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********.
-Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 .
-Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 .
-Hit End of File after 16
-LIST SAMPLE FILE BY KEY3
-Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 .
-Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 .
-Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 .
-Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 .
-Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 .
-Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 .
-Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 .
-Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 .
-Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 .
-Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 .
-Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 .
-Hit End of File after 11
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:8684: diff reference prog.out"
-at_fn_check_prepare_trace "run_file.at:8684"
-( $at_check_trace; diff reference prog.out
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:8684"
-$at_failed && at_fn_log_failure \
-"prog.out"
-$at_traceon; }
-
-
-# verify that all of this works with wrapping to EXTFH calls
-# and that those don't trash the FH--FCD allocated memory
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:8689: \$COMPILE -fcallfh=EXTFH -o extfh prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fcallfh=EXTFH -o extfh prog.cob" "run_file.at:8689"
-( $at_check_trace; $COMPILE -fcallfh=EXTFH -o extfh prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:8689"
-$at_failed && at_fn_log_failure \
-"prog.out"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:8690: \$COBCRUN_DIRECT ./extfh 1>prog.out"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./extfh 1>prog.out" "run_file.at:8690"
-( $at_check_trace; $COBCRUN_DIRECT ./extfh 1>prog.out
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:8690"
-$at_failed && at_fn_log_failure \
-"prog.out"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:8692: diff reference prog.out"
-at_fn_check_prepare_trace "run_file.at:8692"
-( $at_check_trace; diff reference prog.out
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:8692"
-$at_failed && at_fn_log_failure \
-"prog.out"
-$at_traceon; }
-
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_926
-#AT_START_927
-at_fn_group_banner 927 'run_file.at:8698' \
- "EXTFH: SEQUENTIAL files" " " 4
-at_xfail=no
-(
- printf "%s\n" "927. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
-
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT FLATFILE ASSIGN EXTERNAL SEQFIX
- ORGANIZATION SEQUENTIAL
- FILE STATUS IS CUST-STAT .
-
- DATA DIVISION.
- FILE SECTION.
- FD FLATFILE
- BLOCK CONTAINS 5 RECORDS.
-
- 01 TSPFL-RECORD.
- 10 CM-CUST-NUM PICTURE X(8).
- 10 CM-COMPANY PICTURE X(25).
- 10 CM-DISK PICTURE X(8).
- 10 CM-NO-TERMINALS PICTURE 9(4) COMP-4.
- 10 CM-PK-DATE PICTURE S9(14) COMP-3.
- 10 CM-TRAILER PICTURE X(8).
-
- WORKING-STORAGE SECTION.
-
- 78 MAX-SUB VALUE 6.
- 77 CUST-STAT PICTURE X(2).
-
- 01 TEST-DATA.
-
- 02 DATA-CUST-NUM-TBL.
-
- 05 FILLER PIC X(8) VALUE "ALP00000".
- 05 FILLER PIC X(8) VALUE "BET00000".
- 05 FILLER PIC X(8) VALUE "GAM00000".
- 05 FILLER PIC X(8) VALUE "DEL00000".
- 05 FILLER PIC X(8) VALUE "EPS00000".
- 05 FILLER PIC X(8) VALUE "FOR00000".
-
- 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL
- PIC X(8) OCCURS MAX-SUB.
- 02 DATA-COMPANY-TBL.
-
- 05 FILLER PIC X(25) VALUE "ALPHA ELECTRICAL CO. LTD.".
- 05 FILLER PIC X(25) VALUE "BETA SHOE MFG. INC. ".
- 05 FILLER PIC X(25) VALUE "GAMMA X-RAY TECHNOLOGY ".
- 05 FILLER PIC X(25) VALUE "DELTA LUGGAGE REPAIRS ".
- 05 FILLER PIC X(25) VALUE "EPSILON EQUIPMENT SUPPLY ".
- 05 FILLER PIC X(25) VALUE "FORTUNE COOKIE COMPANY ".
- 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL
- PIC X(25) OCCURS MAX-SUB.
- 02 DATA-ADDRESS-2-TBL.
-
- 05 FILLER PIC X(10) VALUE "NEW YORK ".
- 05 FILLER PIC X(10) VALUE "ATLANTA ".
- 05 FILLER PIC X(10) VALUE "WASHINGTON".
- 05 FILLER PIC X(10) VALUE "TORONTO ".
- 05 FILLER PIC X(10) VALUE "CALGARY ".
- 05 FILLER PIC X(10) VALUE "WHITEPLAIN".
-
- 02 DATA-ADDRESS REDEFINES DATA-ADDRESS-2-TBL
- PIC X(10) OCCURS MAX-SUB.
-
- 02 DATA-NO-TERMINALS-TBL.
-
- 05 FILLER PIC 9(3) COMP-3 VALUE 10.
- 05 FILLER PIC 9(3) COMP-3 VALUE 13.
- 05 FILLER PIC 9(3) COMP-3 VALUE 75.
- 05 FILLER PIC 9(3) COMP-3 VALUE 10.
- 05 FILLER PIC 9(3) COMP-3 VALUE 90.
- 05 FILLER PIC 9(3) COMP-3 VALUE 254.
-
- 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL
- PIC 9(3) COMP-3 OCCURS MAX-SUB.
- 01 WORK-AREA.
- 05 SUB BINARY-SHORT UNSIGNED.
- 88 ODD-RECORD VALUE 1 3 5.
-
-
- PROCEDURE DIVISION.
-
- OPEN INPUT FLATFILE.
- DISPLAY "Open Input when no file Sts:" CUST-STAT
- OPEN EXTEND FLATFILE.
- DISPLAY "Open Extend when no file Sts:" CUST-STAT
- CLOSE FLATFILE.
- DISPLAY "Close when no open file Sts:" CUST-STAT
- OPEN OUTPUT FLATFILE.
- CLOSE FLATFILE.
- OPEN EXTEND FLATFILE.
- DISPLAY "Open Extend when empty file Sts:" CUST-STAT
- CLOSE FLATFILE.
-
- PERFORM LOADFILE.
- OPEN INPUT FLATFILE.
- DISPLAY "Open Sts:" CUST-STAT
- READ FLATFILE
- DISPLAY "Read " CM-CUST-NUM " Sts:" CUST-STAT.
- READ FLATFILE
- DISPLAY "Read " CM-CUST-NUM " Sts:" CUST-STAT.
- CLOSE FLATFILE.
-
- OPEN I-O FLATFILE.
- READ FLATFILE
- DISPLAY "Read " CM-CUST-NUM " Sts:" CUST-STAT.
- ADD 1 TO CM-NO-TERMINALS
- REWRITE TSPFL-RECORD
- DISPLAY "REWRITE " CM-CUST-NUM " Sts " CUST-STAT
- " Trms:" CM-NO-TERMINALS.
- CLOSE FLATFILE.
-
- OPEN I-O FLATFILE.
- READ FLATFILE
- DISPLAY "Read " CM-CUST-NUM " Sts:" CUST-STAT.
- ADD 1 TO CM-NO-TERMINALS
- REWRITE TSPFL-RECORD
- DISPLAY "REWRITE " CM-CUST-NUM " Sts " CUST-STAT
- " Trms:" CM-NO-TERMINALS.
- READ FLATFILE WITH LOCK
- DISPLAY "Read " CM-CUST-NUM
- * DELETE FLATFILE
- * DISPLAY "DELETE " CM-CUST-NUM " Sts " CUST-STAT.
- CLOSE FLATFILE.
- OPEN INPUT FLATFILE.
- DISPLAY "Re-list File Open Sts:" CUST-STAT
- PERFORM UNTIL CUST-STAT NOT = "00"
- PERFORM READ-RECORD
- END-PERFORM.
- CLOSE FLATFILE.
- OPEN EXTEND FLATFILE.
- MOVE 2 TO SUB
- PERFORM LOAD-RECORD
- CLOSE FLATFILE.
- OPEN INPUT FLATFILE.
- DISPLAY "List File afer EXTEND Open Sts:" CUST-STAT
- PERFORM UNTIL CUST-STAT NOT = "00"
- PERFORM READ-RECORD
- END-PERFORM.
- CLOSE FLATFILE.
- STOP RUN RETURNING 0.
-
- READ-RECORD.
- MOVE SPACES TO TSPFL-RECORD.
- READ FLATFILE
- IF CUST-STAT NOT = "00"
- DISPLAY "Read Status: " CUST-STAT
- ELSE
- DISPLAY "Read " CM-CUST-NUM
- " Trms:" CM-NO-TERMINALS
- END-IF.
-
- LOADFILE.
- DISPLAY "Loading sample data file.".
-
- OPEN OUTPUT FLATFILE.
-
- PERFORM LOAD-RECORD
- VARYING SUB FROM 1 BY 1
- UNTIL SUB > MAX-SUB.
-
- DISPLAY "Sample data file load complete.".
- CLOSE FLATFILE.
-
- LOAD-RECORD.
-
- MOVE SPACES TO TSPFL-RECORD.
- MOVE DATA-CUST-NUM (SUB) TO CM-CUST-NUM.
- MOVE DATA-COMPANY (SUB) TO CM-COMPANY.
- MOVE DATA-NO-TERMINALS (SUB) TO CM-NO-TERMINALS.
- MOVE 20070319 TO CM-PK-DATE.
- IF SUB = 1 OR 4 OR 6
- MOVE -20070319 TO CM-PK-DATE.
-
- IF ODD-RECORD
- MOVE "8417" TO CM-DISK
- ELSE
- MOVE "8470" TO CM-DISK.
- WRITE TSPFL-RECORD.
-_ATEOF
-
-
-cat >cmod.c <<'_ATEOF'
-
-#include <stdio.h>
-#include <libcob.h>
-
-static char *txtOpCode(int opCode);
-
-static int
-doOpenFile(
- unsigned char *opCodep,
- FCD3 *fcd,
- char *opmsg)
-{
- int sts;
-
- sts = EXTFH( opCodep, fcd );
- printf("EXFTH did %s; Status=%c%c; File now %s\n",
- opmsg, fcd->fileStatus[0], fcd->fileStatus[1],
- (fcd->openMode & OPEN_NOT_OPEN) ? "Closed" : "Open");
- return sts;
-}
-
-/*********************************************************
- * TSTFH - External File Handler entry point.
-*********************************************************/
-
-COB_EXT_EXPORT int
-TSTFH (unsigned char *opCodep, FCD3 *fcd)
-{
- unsigned int opCode;
- int sts;
-
- if (*opCodep == 0xfa)
- opCode = 0xfa00 + opCodep[1];
- else
- opCode = opCodep[1];
-
- if (fcd->fileOrg == ORG_LINE_SEQ
- || fcd->fileOrg == ORG_SEQ
- || fcd->fileOrg == ORG_INDEXED
- || fcd->fileOrg == ORG_RELATIVE) {
- switch (opCode) {
- case OP_OPEN_OUTPUT:
- case OP_OPEN_IO:
- case OP_OPEN_EXTEND:
- case OP_OPEN_OUTPUT_NOREWIND:
- return doOpenFile( opCodep, fcd, txtOpCode(opCode));
- break;
-
- case OP_OPEN_INPUT:
- case OP_OPEN_INPUT_NOREWIND:
- case OP_OPEN_INPUT_REVERSED:
- return doOpenFile( opCodep, fcd, txtOpCode(opCode));
- break;
-
- case OP_CLOSE:
- return doOpenFile( opCodep, fcd, txtOpCode(opCode));
- break;
-
- default:
- break;
- }
-
- }
-
- if (opCode == OP_CLOSE
- && (fcd->openMode & OPEN_NOT_OPEN) ) {
- return 0;
- }
-
- sts = EXTFH(opCodep, fcd);
- printf("EXFTH did %s; Status=%c%c\n", txtOpCode(opCode),
- fcd->fileStatus[0], fcd->fileStatus[1]);
- return sts;
-}
-
-static char * /* Return Text name of function */
-txtOpCode(int opCode)
-{
- static char tmp[32];
- switch (opCode) {
- case OP_OPEN_INPUT: return "OPEN_IN";
- case OP_OPEN_OUTPUT: return "OPEN_OUT";
- case OP_OPEN_IO: return "OPEN_IO";
- case OP_OPEN_EXTEND: return "OPEN_EXT";
- case OP_OPEN_INPUT_NOREWIND: return "OPEN_IN_NOREW";
- case OP_OPEN_OUTPUT_NOREWIND: return "OPEN_OUT_NOREW";
- case OP_OPEN_INPUT_REVERSED: return "OPEN_IN_REV";
- case OP_CLOSE: return "CLOSE";
- case OP_CLOSE_LOCK: return "CLOSE_LOCK";
- case OP_CLOSE_NOREWIND: return "CLOSE_NORED";
- case OP_CLOSE_REEL: return "CLOSE_REEL";
- case OP_CLOSE_REMOVE: return "CLOSE_REMOVE";
- case OP_CLOSE_NO_REWIND: return "CLOSE_NO_REW";
- case OP_START_EQ: return "START_EQ";
- case OP_START_EQ_ANY: return "START_EQ_ANY";
- case OP_START_GT: return "START_GT";
- case OP_START_GE: return "START_GE";
- case OP_START_LT: return "START_LT";
- case OP_START_LE: return "START_LE";
- case OP_READ_SEQ_NO_LOCK: return "READ_SEQ_NO_LK";
- case OP_READ_SEQ: return "READ_SEQ";
- case OP_READ_SEQ_LOCK: return "READ_SEQ_LK";
- case OP_READ_SEQ_KEPT_LOCK: return "READ_SEQ_KEPT_LK";
- case OP_READ_PREV_NO_LOCK: return "READ_PREV_NO_LK";
- case OP_READ_PREV: return "READ_PREV";
- case OP_READ_PREV_LOCK: return "READ_PREV_LK";
- case OP_READ_PREV_KEPT_LOCK: return "READ_PREV_KEPT_LK";
- case OP_READ_RAN: return "READ_RAN";
- case OP_READ_RAN_NO_LOCK: return "READ_RAN_NO_LK";
- case OP_READ_RAN_KEPT_LOCK: return "READ_RAN_KEPT_LK";
- case OP_READ_RAN_LOCK: return "READ_RAN_LK";
- case OP_READ_DIR: return "READ_DIR";
- case OP_READ_DIR_NO_LOCK: return "READ_DIR_NO_LK";
- case OP_READ_DIR_KEPT_LOCK: return "READ_DIR_KEPT_LK";
- case OP_READ_DIR_LOCK: return "READ_DIR_LK";
- case OP_READ_POSITION: return "READ_POSITION";
- case OP_WRITE: return "WRITE";
- case OP_REWRITE: return "REWRITE";
- case OP_DELETE: return "DELETE";
- case OP_DELETE_FILE: return "DELETE_FILE";
- case OP_UNLOCK: return "UNLOCK";
- case OP_ROLLBACK: return "ROLLBACK";
- case OP_COMMIT: return "COMMIT";
- case OP_WRITE_BEFORE: return "WRITE_BEFORE";
- case OP_WRITE_BEFORE_TAB: return "WRITE_BEFORE_TAB";
- case OP_WRITE_BEFORE_PAGE: return "WRITE_BEFORE_PAGE";
- case OP_WRITE_AFTER: return "WRITE_AFTER";
- case OP_WRITE_AFTER_TAB: return "WRITE_AFTER_TAB";
- case OP_WRITE_AFTER_PAGE: return "WRITE_AFTER_PAGE";
- }
- sprintf(tmp, "Func 0x%02X:", opCode);
- return tmp;
-}
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:9019: \$COMPILE -fcallfh=TSTFH prog.cob cmod.c"
-at_fn_check_prepare_dynamic "$COMPILE -fcallfh=TSTFH prog.cob cmod.c" "run_file.at:9019"
-( $at_check_trace; $COMPILE -fcallfh=TSTFH prog.cob cmod.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:9019"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:9021: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:9021"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "EXFTH did OPEN_IN; Status=35; File now Closed
-Open Input when no file Sts:35
-EXFTH did OPEN_EXT; Status=35; File now Closed
-Open Extend when no file Sts:35
-EXFTH did CLOSE; Status=42; File now Closed
-Close when no open file Sts:42
-EXFTH did OPEN_OUT; Status=00; File now Open
-EXFTH did CLOSE; Status=00; File now Closed
-EXFTH did OPEN_EXT; Status=00; File now Open
-Open Extend when empty file Sts:00
-EXFTH did CLOSE; Status=00; File now Closed
-Loading sample data file.
-EXFTH did OPEN_OUT; Status=00; File now Open
-EXFTH did WRITE; Status=00
-EXFTH did WRITE; Status=00
-EXFTH did WRITE; Status=00
-EXFTH did WRITE; Status=00
-EXFTH did WRITE; Status=00
-EXFTH did WRITE; Status=00
-Sample data file load complete.
-EXFTH did CLOSE; Status=00; File now Closed
-EXFTH did OPEN_IN; Status=00; File now Open
-Open Sts:00
-EXFTH did READ_SEQ; Status=00
-Read ALP00000 Sts:00
-EXFTH did READ_SEQ; Status=00
-Read BET00000 Sts:00
-EXFTH did CLOSE; Status=00; File now Closed
-EXFTH did OPEN_IO; Status=00; File now Open
-EXFTH did READ_SEQ; Status=00
-Read ALP00000 Sts:00
-EXFTH did REWRITE; Status=00
-REWRITE ALP00000 Sts 00 Trms:0011
-EXFTH did CLOSE; Status=00; File now Closed
-EXFTH did OPEN_IO; Status=00; File now Open
-EXFTH did READ_SEQ; Status=00
-Read ALP00000 Sts:00
-EXFTH did REWRITE; Status=00
-REWRITE ALP00000 Sts 00 Trms:0012
-EXFTH did READ_SEQ; Status=00
-Read BET00000
-EXFTH did CLOSE; Status=00; File now Closed
-EXFTH did OPEN_IN; Status=00; File now Open
-Re-list File Open Sts:00
-EXFTH did READ_SEQ; Status=00
-Read ALP00000 Trms:0012
-EXFTH did READ_SEQ; Status=00
-Read BET00000 Trms:0013
-EXFTH did READ_SEQ; Status=00
-Read GAM00000 Trms:0075
-EXFTH did READ_SEQ; Status=00
-Read DEL00000 Trms:0010
-EXFTH did READ_SEQ; Status=00
-Read EPS00000 Trms:0090
-EXFTH did READ_SEQ; Status=00
-Read FOR00000 Trms:0254
-EXFTH did READ_SEQ; Status=10
-Read Status: 10
-EXFTH did CLOSE; Status=00; File now Closed
-EXFTH did OPEN_EXT; Status=00; File now Open
-EXFTH did WRITE; Status=00
-EXFTH did CLOSE; Status=00; File now Closed
-EXFTH did OPEN_IN; Status=00; File now Open
-List File afer EXTEND Open Sts:00
-EXFTH did READ_SEQ; Status=00
-Read ALP00000 Trms:0012
-EXFTH did READ_SEQ; Status=00
-Read BET00000 Trms:0013
-EXFTH did READ_SEQ; Status=00
-Read GAM00000 Trms:0075
-EXFTH did READ_SEQ; Status=00
-Read DEL00000 Trms:0010
-EXFTH did READ_SEQ; Status=00
-Read EPS00000 Trms:0090
-EXFTH did READ_SEQ; Status=00
-Read FOR00000 Trms:0254
-EXFTH did READ_SEQ; Status=00
-Read BET00000 Trms:0013
-EXFTH did READ_SEQ; Status=10
-Read Status: 10
-EXFTH did CLOSE; Status=00; File now Closed
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:9021"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_927
-#AT_START_928
-at_fn_group_banner 928 'run_file.at:9108' \
- "EXTFH: LINE SEQUENTIAL files, direct EXTFH" " " 4
-at_xfail=no
-(
- printf "%s\n" "928. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- DATA DIVISION.
- FILE SECTION.
- WORKING-STORAGE SECTION.
-
- 01 I PIC XX COMP-X.
-
- 01 WS-FCD-DDNAME PIC X(8) VALUE SPACES.
- 01 WS-FCD-PTR POINTER VALUE NULL.
-
- 01 WS-FCD-SIZE PIC 9(04) VALUE 0 COMP-5.
- 01 WS-FCD-FLAGS PIC 9(04) VALUE 0 COMP-5.
-
- 01 DISPLAY-BYTE.
- 05 DISPLAY-XXX PIC X(03).
- 05 DISPLAY-ZZ9 REDEFINES DISPLAY-XXX
- PIC ZZ9.
- 01 ACTION-CODE pic x(2).
- 78 OP-OPEN-INPUT value x"fa00".
- 78 OP-OPEN-OUTPUT value x"fa01".
- 78 OP-OPEN-I-O value x"fa02".
- 78 OP-WRITE value x"faf3".
- 78 OP-RELEASE value x"faf3".
- 78 OP-REWRITE value x"faf4".
- 78 OP-READ-NEXT value x"faf5".
- 78 OP-START-EQUAL value x"fae9".
- 78 OP-CLOSE value x"fa80".
- 78 OP-QUERY-FILE value x"0006".
-
- 01 DISPLAY-A1-XXX PIC X(03).
- 01 DISPLAY-A1-ZZ9 REDEFINES DISPLAY-A1-XXX
- PIC ZZ9.
- 01 DISPLAY-A2-XXX PIC X(03).
- 01 DISPLAY-A2-ZZ9 REDEFINES DISPLAY-A2-XXX
- PIC ZZ9.
-
- 01 FCD-FILENAME PIC X(80) value "test.out".
- 01 FCD-RECORD PIC X(512) value spaces.
-
- LINKAGE SECTION.
-
- 01 FCD-MAP.
- copy 'xfhfcd3.cpy'.
-
- *================================================================*
- PROCEDURE DIVISION.
- *----------------------------------------------------------------*
- 000-MAIN.
-
- PERFORM 100-OPEN.
-
- PERFORM VARYING I FROM 1 BY 1 UNTIL I > 10
- MOVE I TO DISPLAY-A1-ZZ9
- MOVE DISPLAY-A1-ZZ9 TO FCD-RECORD
- PERFORM 300-WRITE
- END-PERFORM.
-
- PERFORM 400-CLOSE.
- STOP RUN.
-
- *----------------------------------------------------------------*
- * Process the open request
- *
- 100-OPEN.
-
- MOVE "TESTOUT" TO WS-FCD-DDNAME
-
- MOVE LENGTH OF FCD-MAP TO WS-FCD-SIZE
- DISPLAY "FCD SIZE " WS-FCD-SIZE.
-
- IF WS-FCD-PTR EQUAL NULL
- ALLOCATE ws-fcd-size characters
- returning WS-FCD-PTR
-
- SET ADDRESS OF FCD-MAP TO WS-FCD-PTR
- MOVE LOW-VALUES TO FCD-MAP
- MOVE WS-FCD-SIZE TO FCD-LENGTH
- move fcd--version-number TO FCD-VERSION
- MOVE "00" TO FCD-FILE-STATUS
- move fcd--status-defined to FCD-ACCESS-MODE
- move fcd--open-closed to FCD-OPEN-MODE
- move fcd--external-name to FCD-OTHER-FLAGS
- SET FCD-HANDLE TO NULL
- MOVE 8 TO FCD-NAME-LENGTH
- SET FCD-FILENAME-ADDRESS TO ADDRESS
- OF WS-FCD-DDNAME
- SET FCD-KEY-DEF-ADDRESS TO NULL
- move fcd--allow-readers to FCD-LOCKTYPES
- ELSE
- SET ADDRESS OF FCD-MAP TO WS-FCD-PTR
- IF FCD-OPEN-MODE NOT = fcd--open-closed
- DISPLAY "ERRROR - FILE ALREADY OPEN"
- STOP RUN
- END-IF
- END-IF
-
- move fcd--line-sequential-org to FCD-ORGANIZATION
- move fcd--recmode-fixed to FCD-RECORDING-MODE
- move 10 to FCD-MIN-REC-LENGTH, FCD-MAX-REC-LENGTH
- SET FCD-RECORD-ADDRESS TO ADDRESS OF FCD-RECORD
-
- * Move fcd--cr-delimiter for CR LF after each record
- * move fcd--cr-delimiter to FCD-STATUS-TYPE
-
- move op-open-output to action-code
-
- PERFORM 800-CALL-EXTFH
- .
-
- *----------------------------------------------------------------*
- * Process the write request
- *
- 300-WRITE.
-
- move 10 to FCD-CURRENT-REC-LEN
- move op-write to action-code
- PERFORM 800-CALL-EXTFH
- .
- *----------------------------------------------------------------*
- * Process the close request
- *
- 400-CLOSE.
- MOVE "00" TO FCD-FILE-STATUS
- move op-close to action-code
- PERFORM 800-CALL-EXTFH
- .
- *----------------------------------------------------------------*
- * External file handler interface -- all I/O goes through here
- *
- 800-CALL-EXTFH.
-
- CALL "EXTFH" USING ACTION-CODE, FCD-MAP
-
- IF FCD-STATUS-KEY-1 = "9" AND FCD-BINARY = 199
- MOVE "10" TO FCD-FILE-STATUS
- END-IF
- .
-_ATEOF
-
-
-# FIXME: by default comp-x should not be truncated (see trunk)
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:9257: \$COMPILE -fnotrunc prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fnotrunc prog.cob" "run_file.at:9257"
-( $at_check_trace; $COMPILE -fnotrunc prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:9257"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:9259: TESTOUT=TEST-OUT \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "TESTOUT=TEST-OUT $COBCRUN_DIRECT ./prog" "run_file.at:9259"
-( $at_check_trace; TESTOUT=TEST-OUT $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "FCD SIZE 00216
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:9259"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-# note: currently with the same behaviour as MF
-# (ignoring minimal record length for line-sequential)
-# this may change in the future...
-cat >reference <<'_ATEOF'
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:9282: diff reference TEST-OUT"
-at_fn_check_prepare_trace "run_file.at:9282"
-( $at_check_trace; diff reference TEST-OUT
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:9282"
-$at_failed && at_fn_log_failure \
-"TEST-OUT"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_928
-#AT_START_929
-at_fn_group_banner 929 'run_file.at:9287' \
- "EXTFH: LINE SEQUENTIAL files (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "929. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 78 PROGRAM-NAME VALUE 'SEQEXTFH'.
- 01 FCDOPCODE.
- 02 FILLER PIC X VALUE X'FA'.
- 02 EXTFH-OPCODE PIC X.
- * STANDARD OPERATION CODES
- 88 EXTFH-OPCODE-ISOPENINPUT VALUE X'00'.
- 88 EXTFH-OPCODE-ISOPENOUTPUT VALUE X'01'.
- 88 EXTFH-OPCODE-ISREADSEQUENTIAL VALUE X'8D'.
- 88 EXTFH-OPCODE-ISCLOSE VALUE X'80'.
- 88 EXTFH-OPCODE-ISWRITE VALUE X'F3'.
- 01 FCD-PARAMETER-BLOCK.
- copy xfhfcd3.
- 01 LSEQ-FILENAME PIC X(44)
- VALUE 'FCDLS'.
- 01 LSEQ-RECORDAREA PIC X(255).
- 01 LSEQ-RECORDS.
- 02 LSEQ-COUNT PIC X COMP-X VALUE 3.
- 02 LSEQ-RECORD1.
- 03 LSEQ-1LENGTH PIC X COMP-X VALUE 22.
- 03 LSEQ-1DATA PIC X(80)
- VALUE 'THERE IS LITTLE LAMB'.
- 02 LSEQ-RECORD2.
- 03 LSEQ-2LENGTH PIC X COMP-X VALUE 33.
- 03 LSEQ-2DATA PIC X(80)
- VALUE 'THE LAMB WAS GRAND AND A GRANDMA'.
- 02 LSEQ-RECORD3.
- 03 LSEQ-3LENGTH PIC X COMP-X VALUE 22.
- 03 LSEQ-3DATA PIC X(80)
- VALUE 'THE OLD EWE CHORTLED'.
- 01 LSEQ-RECORDTABLE
- REDEFINES LSEQ-RECORDS.
- 02 LSEQ-TCOUNT PIC X COMP-X.
- 02 LSEQ-TENTRY OCCURS 3 TIMES
- INDEXED BY LSEQ-TX.
- 03 LSEQ-TEST-LEN PIC X COMP-X.
- 03 LSEQ-TESTDATA PIC X(80).
- PROCEDURE DIVISION.
- DISPLAY PROGRAM-NAME ': STARTING.'
- DISPLAY PROGRAM-NAME ': CREATING LINE SEQUENTIAL FILE.'
- SET EXTFH-OPCODE-ISOPENOUTPUT TO TRUE
- MOVE LENGTH OF FCD-PARAMETER-BLOCK TO FCD-LENGTH
- MOVE fcd--version-number TO FCD-VERSION
- MOVE fcd--open-closed TO FCD-OPEN-MODE
- MOVE LENGTH OF LSEQ-FILENAME TO FCD-NAME-LENGTH
- MOVE fcd--exclusive-bit TO FCD-LOCK-MODE
- MOVE fcd--format-cobol2 TO FCD-FILE-FORMAT
- MOVE LENGTH OF LSEQ-RECORDAREA TO FCD-MAX-REC-LENGTH
- MOVE fcd--recmode-variable TO FCD-RECORDING-MODE
- MOVE 0 TO FCD-MIN-REC-LENGTH
- SET FCD-FILENAME-ADDRESS TO ADDRESS OF LSEQ-FILENAME
- PERFORM CALL-EXTFH
- PERFORM FCD-CHECK-STAT
- IF FCD-FILE-STATUS = '00'
- DISPLAY PROGRAM-NAME
- ': LINE SEQUENTIAL FILE IS OPEN OUTPUT.'
- PERFORM WITH TEST AFTER VARYING LSEQ-TX FROM 1 BY 1
- UNTIL LSEQ-TX = LSEQ-TCOUNT OR FCD-FILE-STATUS <> '00'
- SET EXTFH-OPCODE-ISWRITE TO TRUE
- MOVE LSEQ-TEST-LEN (LSEQ-TX) TO FCD-CURRENT-REC-LEN
- MOVE 1 TO FCD-LINE-COUNT
- SET FCD-RECORD-ADDRESS TO
- ADDRESS OF LSEQ-TESTDATA (LSEQ-TX)
- PERFORM CALL-EXTFH
- PERFORM FCD-CHECK-STAT
- END-PERFORM
- IF FCD-FILE-STATUS = '00'
- DISPLAY PROGRAM-NAME ': LINE SEQUENTIAL WRITES COMPLETE.'
- ELSE
- DISPLAY PROGRAM-NAME
- ': UNABLE TO CREATE LINE SEQUENTIAL FILE.'
- END-IF
- SET EXTFH-OPCODE-ISCLOSE TO TRUE
- PERFORM CALL-EXTFH
- PERFORM FCD-CHECK-STAT
- IF FCD-FILE-STATUS = '00'
- DISPLAY PROGRAM-NAME ': LINE SEQUENTIAL FILE IS CLOSED.'
- ELSE
- DISPLAY PROGRAM-NAME
- ': UNABLE TO CLOSE LINE SEQUENTIAL FILE.'
- END-IF
- ELSE
- DISPLAY PROGRAM-NAME
- ': UNABLE TO OPEN LINE SEQUENTIAL FILE AS OUTPUT.'
- STOP RUN
- END-IF
- DISPLAY PROGRAM-NAME ': READING LINE SEQUENTIAL FILE.'
- SET EXTFH-OPCODE-ISOPENINPUT TO TRUE
- MOVE fcd--open-closed TO FCD-OPEN-MODE
- MOVE LENGTH OF LSEQ-FILENAME TO FCD-NAME-LENGTH
- MOVE fcd--exclusive-bit TO FCD-LOCK-MODE
- MOVE LENGTH OF LSEQ-RECORDAREA TO FCD-MAX-REC-LENGTH
- MOVE 0 TO FCD-MIN-REC-LENGTH
- SET FCD-FILENAME-ADDRESS TO ADDRESS OF LSEQ-FILENAME
- PERFORM CALL-EXTFH
- PERFORM FCD-CHECK-STAT
- IF FCD-FILE-STATUS = '00'
- SET FCD-RECORD-ADDRESS
- TO ADDRESS OF LSEQ-RECORDAREA
- DISPLAY PROGRAM-NAME
- ': LINE SEQUENTIAL FILE IS OPEN INPUT.'
- PERFORM WITH TEST AFTER UNTIL FCD-FILE-STATUS <> '00'
- SET EXTFH-OPCODE-ISREADSEQUENTIAL TO TRUE
- PERFORM CALL-EXTFH
- PERFORM FCD-CHECK-STAT
- IF FCD-FILE-STATUS = '00'
- DISPLAY PROGRAM-NAME
- ': RECORD = ' LSEQ-RECORDAREA
- (1:FCD-CURRENT-REC-LEN)
- END-IF
- END-PERFORM
- IF FCD-FILE-STATUS = '00' OR '10'
- DISPLAY PROGRAM-NAME ': LINE SEQUENTIAL READS COMPLETE.'
- ELSE
- DISPLAY PROGRAM-NAME
- ': UNABLE TO READ LINE SEQUENTIAL FILE.'
- END-IF
- SET EXTFH-OPCODE-ISCLOSE TO TRUE
- PERFORM CALL-EXTFH
- PERFORM FCD-CHECK-STAT
- IF FCD-FILE-STATUS = '00'
- DISPLAY PROGRAM-NAME ': LSEQ FILE IS CLOSED.'
- ELSE
- DISPLAY PROGRAM-NAME
- ': UNABLE TO CLOSE LINE SEQUENTIAL FILE.'
- END-IF
- ELSE
- DISPLAY PROGRAM-NAME
- ': UNABLE TO OPEN LINE SEQUENTIAL FILE AS INPUT.'
- STOP RUN
- END-IF
- DISPLAY PROGRAM-NAME ': ENDING.'
- STOP RUN.
- CALL-EXTFH.
- CALL 'EXTFH' USING
- FCDOPCODE
- FCD-PARAMETER-BLOCK.
- FCD-CHECK-STAT.
- IF FCD-STATUS-KEY-1 = '9'
- DISPLAY PROGRAM-NAME ': RUN-TIME ERROR 9/' FCD-BINARY
- ELSE
- IF FCD-FILE-STATUS <> '00'
- DISPLAY PROGRAM-NAME ': FILE STATUS = ' FCD-FILE-STATUS
- ELSE
- CONTINUE
- END-IF
- END-IF.
- SEQEXTFH-TERM.
- EXIT.
-_ATEOF
-
-
-# FIXME: by default comp-x should not be truncated (see trunk)
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:9446: \$COMPILE -fnotrunc prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fnotrunc prog.cob" "run_file.at:9446"
-( $at_check_trace; $COMPILE -fnotrunc prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:9446"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:9448: DD_FCDLS=./report.txt \\
-\$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_notrace 'an embedded newline' "run_file.at:9448"
-( $at_check_trace; DD_FCDLS=./report.txt \
-$COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "SEQEXTFH: STARTING.
-SEQEXTFH: CREATING LINE SEQUENTIAL FILE.
-SEQEXTFH: LINE SEQUENTIAL FILE IS OPEN OUTPUT.
-SEQEXTFH: LINE SEQUENTIAL WRITES COMPLETE.
-SEQEXTFH: LINE SEQUENTIAL FILE IS CLOSED.
-SEQEXTFH: READING LINE SEQUENTIAL FILE.
-SEQEXTFH: LINE SEQUENTIAL FILE IS OPEN INPUT.
-SEQEXTFH: RECORD = THERE IS LITTLE LAMB
-SEQEXTFH: RECORD = THE LAMB WAS GRAND AND A GRANDMA
-SEQEXTFH: RECORD = THE OLD EWE CHORTLED
-SEQEXTFH: FILE STATUS = 10
-SEQEXTFH: LINE SEQUENTIAL READS COMPLETE.
-SEQEXTFH: LSEQ FILE IS CLOSED.
-SEQEXTFH: ENDING.
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:9448"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-cat >reference <<'_ATEOF'
-THERE IS LITTLE LAMB
-THE LAMB WAS GRAND AND A GRANDMA
-THE OLD EWE CHORTLED
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:9475: diff reference report.txt"
-at_fn_check_prepare_trace "run_file.at:9475"
-( $at_check_trace; diff reference report.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:9475"
-$at_failed && at_fn_log_failure \
-"report.txt"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_929
-#AT_START_930
-at_fn_group_banner 930 'run_file.at:9480' \
- "EXTFH: FIXED SEQUENTIAL" " " 4
-at_xfail=no
-(
- printf "%s\n" "930. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# CHECKME: Should it really be possible to change the length
-# with a line-sequentia file this way?
-# If yes: should there be an implied "WRITE FROM" - so
-# that an intermediate record field, space padded, is
-# internally used?
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ** TEST FIXED (BLOCK) LENGTH SEQUENTIAL RECORD EXTFH
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 78 PROGRAM-NAME VALUE 'FBSEXTFH'.
- 01 FCDOPCODE.
- 02 FILLER PIC X VALUE X'FA'.
- 02 EXTFH-OPCODE PIC X.
- * STANDARD OPERATION CODES
- 88 EXTFH-OPCODE-ISOPENINPUT VALUE X'00'.
- 88 EXTFH-OPCODE-ISOPENOUTPUT VALUE X'01'.
- 88 EXTFH-OPCODE-ISREADSEQUENTIAL VALUE X'8D'.
- 88 EXTFH-OPCODE-ISCLOSE VALUE X'80'.
- 88 EXTFH-OPCODE-ISWRITE VALUE X'F3'.
- *
- 01 FCD-PARAMETER-BLOCK.
- copy xfhfcd3.
- 01 FIX-FILENAME PIC X(44)
- VALUE 'FCDFB'.
- 01 FIX-RECORDAREA PIC X(255).
- 01 FIX-RECORDS.
- 02 FIX-COUNT PIC X COMP-X VALUE 3.
- 02 FIX-RECORD1.
- 03 FIX-1LENGTH PIC X COMP-X VALUE 22.
- 03 FIX-1DATA PIC X(80)
- VALUE 'THERE IS LITTLE LAMB'.
- 02 FIX-RECORD2.
- 03 FIX-2LENGTH PIC X COMP-X VALUE 33.
- 03 FIX-2DATA PIC X(80)
- VALUE 'THE LAMB WAS GRAND AND A GRANDMA'.
- 02 FIX-RECORD3.
- 03 FIX-3LENGTH PIC X COMP-X VALUE 22.
- 03 FIX-3DATA PIC X(80)
- VALUE 'THE OLD EWE CHORTLED'.
- 01 FIX-RECORDTABLE
- REDEFINES FIX-RECORDS.
- 02 FIX-TCOUNT PIC X COMP-X.
- 02 FIX-TENTRY OCCURS 3 TIMES
- INDEXED BY FIX-TX.
- 03 FIX-TEST-LEN PIC X COMP-X.
- 03 FIX-TESTDATA PIC X(80).
- PROCEDURE DIVISION.
- DISPLAY PROGRAM-NAME ': STARTING.'
- DISPLAY PROGRAM-NAME ': CREATING FIXED SEQ FILE.'
- SET EXTFH-OPCODE-ISOPENOUTPUT TO TRUE
- MOVE LENGTH OF FCD-PARAMETER-BLOCK TO FCD-LENGTH
- move fcd--version-number TO FCD-VERSION
- MOVE fcd--sequential-org TO FCD-ORGANIZATION
- MOVE fcd--open-closed TO FCD-OPEN-MODE
- MOVE LENGTH OF FIX-FILENAME TO FCD-NAME-LENGTH
- MOVE fcd--exclusive-bit TO FCD-LOCK-MODE
- move fcd--format-cobol2 to FCD-FILE-FORMAT
- MOVE LENGTH OF FIX-RECORDAREA TO FCD-MAX-REC-LENGTH
- MOVE 0 TO FCD-MIN-REC-LENGTH
- SET FCD-FILENAME-ADDRESS TO ADDRESS OF FIX-FILENAME
- MOVE 80 TO FCD-CURRENT-REC-LEN
- MOVE 80 TO FCD-MAX-REC-LENGTH
- MOVE 80 TO FCD-MIN-REC-LENGTH
- PERFORM CALL-EXTFH
- PERFORM FCD-CHECK-STAT
- IF FCD-FILE-STATUS = '00'
- DISPLAY PROGRAM-NAME
- ': FIXED SEQ FILE IS OPEN OUTPUT.'
- PERFORM WITH TEST AFTER VARYING FIX-TX FROM 1 BY 1
- UNTIL FIX-TX = FIX-TCOUNT OR FCD-FILE-STATUS <> '00'
- SET EXTFH-OPCODE-ISWRITE TO TRUE
- MOVE FIX-TEST-LEN (FIX-TX) TO FCD-CURRENT-REC-LEN
- MOVE 1 TO FCD-LINE-COUNT
- SET FCD-RECORD-ADDRESS TO
- ADDRESS OF FIX-TESTDATA (FIX-TX)
- PERFORM CALL-EXTFH
- PERFORM FCD-CHECK-STAT
- END-PERFORM
- IF FCD-FILE-STATUS = '00'
- DISPLAY PROGRAM-NAME ': FIXED SEQ WRITES COMPLETE.'
- ELSE
- DISPLAY PROGRAM-NAME
- ': UNABLE TO CREATE FIXED SEQ FILE.'
- END-IF
- SET EXTFH-OPCODE-ISCLOSE TO TRUE
- PERFORM CALL-EXTFH
- PERFORM FCD-CHECK-STAT
- IF FCD-FILE-STATUS = '00'
- DISPLAY PROGRAM-NAME ': FIXED SEQ FILE IS CLOSED.'
- ELSE
- DISPLAY PROGRAM-NAME
- ': UNABLE TO CLOSE FIXED SEQ FILE.'
- END-IF
- ELSE
- DISPLAY PROGRAM-NAME
- ': UNABLE TO OPEN FIXED SEQ FILE AS OUTPUT.'
- STOP RUN
- END-IF
- DISPLAY PROGRAM-NAME ': READING FIXED SEQ FILE.'
- SET EXTFH-OPCODE-ISOPENINPUT TO TRUE
- MOVE fcd--sequential-org TO FCD-ORGANIZATION
- MOVE fcd--open-closed TO FCD-OPEN-MODE
- MOVE LENGTH OF FIX-FILENAME TO FCD-NAME-LENGTH
- MOVE fcd--exclusive-bit TO FCD-LOCK-MODE
- move fcd--format-cobol2 to FCD-FILE-FORMAT
- MOVE LENGTH OF FIX-RECORDAREA TO FCD-MAX-REC-LENGTH
- MOVE 0 TO FCD-MIN-REC-LENGTH
- SET FCD-FILENAME-ADDRESS TO ADDRESS OF FIX-FILENAME
- MOVE 80 TO FCD-CURRENT-REC-LEN
- MOVE 80 TO FCD-MAX-REC-LENGTH
- MOVE 80 TO FCD-MIN-REC-LENGTH
- PERFORM CALL-EXTFH
- PERFORM FCD-CHECK-STAT
- IF FCD-FILE-STATUS = '00'
- DISPLAY PROGRAM-NAME
- ': FIXED SEQ FILE IS OPEN INPUT.'
- PERFORM WITH TEST AFTER UNTIL FCD-FILE-STATUS <> '00'
- SET EXTFH-OPCODE-ISREADSEQUENTIAL TO TRUE
- SET FCD-RECORD-ADDRESS
- TO ADDRESS OF FIX-RECORDAREA
- PERFORM CALL-EXTFH
- PERFORM FCD-CHECK-STAT
- IF FCD-FILE-STATUS = '00'
- DISPLAY PROGRAM-NAME
- ': RECORD = ' FIX-RECORDAREA (1:40) '. '
- 'Size:' FCD-CURRENT-REC-LEN
- END-IF
- END-PERFORM
- IF FCD-FILE-STATUS = '00' OR '10'
- DISPLAY PROGRAM-NAME ': FIXED SEQ READS COMPLETE.'
- ELSE
- DISPLAY PROGRAM-NAME
- ': UNABLE TO READ FIXED SEQ FILE.'
- END-IF
- SET EXTFH-OPCODE-ISCLOSE TO TRUE
- PERFORM CALL-EXTFH
- PERFORM FCD-CHECK-STAT
- IF FCD-FILE-STATUS = '00'
- DISPLAY PROGRAM-NAME ': LSEQ FILE IS CLOSED.'
- ELSE
- DISPLAY PROGRAM-NAME
- ': UNABLE TO CLOSE FIXED SEQ FILE.'
- END-IF
- ELSE
- DISPLAY PROGRAM-NAME
- ': UNABLE TO OPEN FIXED SEQ FILE AS INPUT.'
- STOP RUN
- END-IF
- DISPLAY PROGRAM-NAME ': ENDING.'
- STOP RUN.
- CALL-EXTFH.
- CALL 'EXTFH' USING
- FCDOPCODE
- FCD-PARAMETER-BLOCK.
- FCD-CHECK-STAT.
- IF FCD-STATUS-KEY-1 = '9'
- DISPLAY PROGRAM-NAME ': RUN-TIME ERROR 9/' FCD-BINARY
- ELSE
- IF FCD-FILE-STATUS <> '00'
- DISPLAY PROGRAM-NAME ': FILE STATUS = ' FCD-FILE-STATUS
- ELSE
- CONTINUE
- END-IF
- END-IF.
- SEQEXTFH-TERM.
- EXIT.
-_ATEOF
-
-
-# FIXME: by default comp-x should not be truncated (see trunk)
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:9655: \$COMPILE -fnotrunc prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fnotrunc prog.cob" "run_file.at:9655"
-( $at_check_trace; $COMPILE -fnotrunc prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:9655"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:9657: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:9657"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "FBSEXTFH: STARTING.
-FBSEXTFH: CREATING FIXED SEQ FILE.
-FBSEXTFH: FIXED SEQ FILE IS OPEN OUTPUT.
-FBSEXTFH: FIXED SEQ WRITES COMPLETE.
-FBSEXTFH: FIXED SEQ FILE IS CLOSED.
-FBSEXTFH: READING FIXED SEQ FILE.
-FBSEXTFH: FIXED SEQ FILE IS OPEN INPUT.
-FBSEXTFH: RECORD = THERE IS LITTLE LAMB . Size:0000000080
-FBSEXTFH: RECORD = THE LAMB WAS GRAND AND A GRANDMA . Size:0000000080
-FBSEXTFH: RECORD = THE OLD EWE CHORTLED . Size:0000000080
-FBSEXTFH: FILE STATUS = 10
-FBSEXTFH: FIXED SEQ READS COMPLETE.
-FBSEXTFH: LSEQ FILE IS CLOSED.
-FBSEXTFH: ENDING.
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:9657"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_930
-#AT_START_931
-at_fn_group_banner 931 'run_file.at:9677' \
- "EXTFH: operation OP_GETINFO / QUERY-FILE" " " 4
-at_xfail=no
-(
- printf "%s\n" "931. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# FIXME: BDB has no way to get definition until 4.x (filename.dd)
-printf "%s\n" "run_file.at:9681" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "db") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:9681"
-
-# TODO: duplicate with line sequential, likely needs update to fileio first
-printf "%s\n" "run_file.at:9684" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:9684"
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT OPTIONAL TSPFILE
- ASSIGN TO FCD-FILENAME
- ORGANIZATION INDEXED ACCESS DYNAMIC
- RECORD KEY IS CM-CUST-NUM
- ALTERNATE RECORD KEY IS CM-TELEPHONE WITH DUPLICATES
- ALTERNATE RECORD KEY IS SPLIT-KEY3
- SOURCE IS CM-DISK,CM-DP-MGR,CM-MACHINE WITH DUPLICATES
- SUPPRESS WHEN ALL "*"
- FILE STATUS IS CUST-STAT .
-
- DATA DIVISION.
- FILE SECTION.
- FD TSPFILE
- BLOCK CONTAINS 5 RECORDS.
-
- 01 TSPFL-RECORD.
- 05 TSPFL-REC.
- 10 CM-CUST-NUM.
- 15 CM-CUST-PRE PICTURE X(3).
- 15 CM-CUST-NNN PICTURE X(5).
- 10 CM-STATUS PICTURE X.
- 10 CM-COMPANY PICTURE X(25).
- 10 CM-ADDRESS-1 PICTURE X(25).
- 10 CM-ADDRESS-2 PICTURE X(25).
- 10 CM-ADDRESS-3 PICTURE X(25).
- 10 CM-TELEPHONE PICTURE 9(10).
- 10 CM-DP-MGR PICTURE X(25).
- 10 CM-MACHINE PICTURE X(8).
- 10 CM-MEMORY PICTURE X(4).
- 10 CM-DISK PICTURE X(8).
- 10 CM-TAPE PICTURE X(8).
- 10 CM-NO-TERMINALS PICTURE 9(5).
-
- WORKING-STORAGE SECTION.
-
- 01 I PIC 99.
- 01 K PIC 99.
-
- 01 CUST-STAT PIC X(2) VALUE SPACES.
- 01 WS-FCD-DDNAME PIC X(8) VALUE SPACES.
- 01 WS-FCD-PTR POINTER VALUE NULL.
-
- 01 ACTION-CODE PIC X(2).
- 78 OP-OPEN-INPUT VALUE x"fa00".
- 78 OP-OPEN-OUTPUT VALUE x"fa01".
- 78 OP-OPEN-I-O VALUE x"fa02".
- 78 OP-WRITE VALUE x"faf3".
- 78 OP-RELEASE VALUE x"faf3".
- 78 OP-REWRITE VALUE x"faf4".
- 78 OP-READ-NEXT VALUE x"faf5".
- 78 OP-START-EQUAL VALUE x"fae9".
- 78 OP-CLOSE VALUE x"fa80".
- 78 OP-QUERY-FILE VALUE x"0006".
-
- 01 FCD-FILENAME PIC X(80) value "testisam".
- 01 FCD-RECORD PIC X(512) VALUE SPACES.
-
- 01 FCD-MAP.
- COPY 'xfhfcd3.cpy'.
-
- 01 KEY-DEF.
- 03 KDB-LEN PIC 9(4) COMP-X.
- 03 FILLER PIC X(4).
- 03 KEY-NKEYS PIC 9(4) COMP-X.
- 03 FILLER PIC X(6).
- 03 KEY-DEFS OCCURS 16 TIMES.
- 05 KEY-COUNT PIC XX COMP-X.
- 05 KEY-OFFSET PIC XX COMP-X.
- 05 KEY-FLAGS PIC X COMP-X.
- 05 KEY-COMPRESSION PIC X COMP-X.
- 05 KEY-SPARSE PIC X COMP-X.
- 05 FILLER PIC X(9).
- 03 FILLER PIC X(128).
-
- LINKAGE SECTION.
- 01 KEY-INF.
- 03 KEY-DESC PIC X COMP-X.
- 03 KEY-TYPE PIC X COMP-X.
- 03 KEY-POS PIC X(4) COMP-X.
- 03 KEY-LEN PIC X(4) COMP-X.
- *================================================================*
- PROCEDURE DIVISION.
- *----------------------------------------------------------------*
- 000-MAIN.
-
- DELETE FILE TSPFILE.
- OPEN OUTPUT TSPFILE.
- WRITE TSPFL-RECORD.
- CLOSE TSPFILE.
-
- SET FCD-KEY-DEF-ADDRESS TO ADDRESS OF KEY-DEF.
- SET FCD-FILENAME-ADDRESS TO ADDRESS OF FCD-FILENAME.
- MOVE 64 TO FCD-NAME-LENGTH
- MOVE LENGTH OF KEY-DEF TO KDB-LEN.
- SET FCD-RECORD-ADDRESS TO ADDRESS OF FCD-RECORD.
- MOVE 512 TO FCD-CURRENT-REC-LEN
- MOVE 512 TO FCD-MIN-REC-LENGTH
- MOVE 512 TO FCD-MAX-REC-LENGTH
- MOVE 1 TO FCD-VERSION
- MOVE 2 TO FCD-ORGANIZATION
- MOVE OP-QUERY-FILE TO ACTION-CODE
- PERFORM 800-CALL-EXTFH.
- DISPLAY "Status: " FCD-FILE-STATUS
- " File: " FCD-FILENAME (1:20) "."
- DISPLAY " Nkeys: " key-nkeys
- " Recsz: " FCD-MAX-REC-LENGTH.
- DISPLAY "kdblen: " kdb-len.
- PERFORM VARYING I FROM 1 UNTIL I > KEY-NKEYS
- DISPLAY " Index: " i
- " Parts: " key-count (i)
- " Offset: " key-offset (i)
- SET WS-FCD-PTR TO ADDRESS OF key-def
- SET WS-FCD-PTR UP BY key-offset (i)
- SET ADDRESS OF key-inf TO WS-FCD-PTR
- PERFORM VARYING K FROM 1 UNTIL K > KEY-count (i)
- DISPLAY " Pos: " key-pos
- " Len: " key-len
- " Desc: " key-desc
- " Type: " key-type
- SET WS-FCD-PTR UP BY LENGTH OF key-inf
- SET ADDRESS OF key-inf TO WS-FCD-PTR
- END-PERFORM
- END-PERFORM.
-
- STOP RUN.
-
- *----------------------------------------------------------------*
- * External file handler interface -- all I/O goes through here
- *
- 800-CALL-EXTFH.
-
- CALL "EXTFH" USING ACTION-CODE, FCD-MAP
-
- IF FCD-STATUS-KEY-1 = "9" AND FCD-BINARY = 199
- MOVE "10" TO FCD-FILE-STATUS
- END-IF
- .
-_ATEOF
-
-
-# FIXME: by default comp-x should not be truncated (see trunk)
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:9833: \$COMPILE -fnotrunc prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fnotrunc prog.cob" "run_file.at:9833"
-( $at_check_trace; $COMPILE -fnotrunc prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:9833"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:9835: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:9835"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Status: 00 File: testisam .
- Nkeys: 00003 Recsz: 0000000177
-kdblen: 00398
- Index: 01 Parts: 00001 Offset: 00062
- Pos: 0000000000 Len: 0000000008 Desc: 000 Type: 000
- Index: 02 Parts: 00001 Offset: 00072
- Pos: 0000000109 Len: 0000000010 Desc: 032 Type: 032
- Index: 03 Parts: 00003 Offset: 00082
- Pos: 0000000156 Len: 0000000008 Desc: 000 Type: 000
- Pos: 0000000119 Len: 0000000025 Desc: 000 Type: 000
- Pos: 0000000144 Len: 0000000008 Desc: 000 Type: 000
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:9835"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_931
-#AT_START_932
-at_fn_group_banner 932 'run_file.at:9856' \
- "EXTFH: changing record address" " " 4
-at_xfail=no
-(
- printf "%s\n" "932. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:9859: \$SKIP_TEST_TEMPORARILY"
-at_fn_check_prepare_dynamic "$SKIP_TEST_TEMPORARILY" "run_file.at:9859"
-( $at_check_trace; $SKIP_TEST_TEMPORARILY
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:9859"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# TODO: replace INDEXED with line sequential (or duplicate)
-printf "%s\n" "run_file.at:9861" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:9861"
-
-cat >progl.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT OUTFILE
- ASSIGN "TEST1EXTFH"
- ORGANIZATION INDEXED
- RECORD KEY IS PRIME-KEY
- ACCESS IS SEQUENTIAL
- FILE STATUS IS OUT-STAT.
-
- DATA DIVISION.
- FILE SECTION.
- FD OUTFILE
- BLOCK CONTAINS 5 RECORDS.
-
- 01 OUT-REC.
- 05 PRIME-KEY PIC X(25).
- 05 IN-DATA PIC X(10).
-
- WORKING-STORAGE SECTION.
- 01 OUT-STAT PIC XX VALUE '00'.
- 01 OUT-RECNUM PIC 9 VALUE 0.
-
- PROCEDURE DIVISION.
- MAIN-100.
- OPEN OUTPUT OUTFILE.
- IF OUT-STAT NOT = '00'
- DISPLAY 'ERROR ' OUT-STAT ' OPENING OUTPUT FILE'
- STOP RUN
- END-IF.
- INITIALIZE OUT-REC.
-
- GET-NEXT-100.
- ADD 1 TO OUT-RECNUM.
- MOVE "RECORD-X" TO PRIME-KEY.
- MOVE OUT-RECNUM TO PRIME-KEY (8:1).
- WRITE OUT-REC.
- IF OUT-STAT NOT = '00'
- AND OUT-STAT NOT = '02'
- DISPLAY 'ERROR ' OUT-STAT ' WRITING OUTPUT'
- GO TO END-PROG-100
- END-IF.
- IF OUT-RECNUM < 5
- GO TO GET-NEXT-100.
-
- END-PROG-100.
- DISPLAY OUT-RECNUM ' records written'.
- CLOSE OUTFILE.
- STOP RUN.
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- *
- PROGRAM-ID. prog.
- DATA DIVISION.
-
- WORKING-STORAGE SECTION.
-
- 77 I PIC 9(04) COMP-5.
- 77 J PIC 9(04) COMP-5.
- 77 K PIC 9(04) COMP-5.
- 77 L PIC 9(04) COMP-5.
- 77 M PIC 9(04) COMP-5.
- 01 OP-N PIC X COMP-X.
- 01 OP-X REDEFINES OP-N PIC X.
-
- 01 ACTION-CODE.
- 05 ACTION-TYPE PIC X(01).
- 78 COBOL-TYPE VALUE X'FA'.
- 78 SPECIAL-TYPE VALUE X'00'.
- 05 COBOL-OP PIC X(01).
- 78 OPEN-INPUT VALUE X'00'.
- 78 OPEN-OUTPUT VALUE X'01'.
- 78 OPEN-I-O VALUE X'02'.
- 78 OPEN-EXTEND VALUE X'03'.
- 78 OPEN-INPUT-NO-REWIND VALUE X'04'.
- 78 OPEN-OUTPUT-NO-REWIND VALUE X'05'.
- 78 OPEN-INPUT-REVERSED VALUE X'08'.
- 78 CLOSE-FILE VALUE X'80'.
- 78 CLOSE-LOCK VALUE X'81'.
- 78 CLOSE-NO-REWIND VALUE X'82'.
- 78 CLOSE-REEL-UNIT VALUE X'84'.
- 78 CLOSE-REEL-UNIT-FOR-REMOVAL VALUE X'85'.
- 78 CLOSE-REEL-UNIT-NO-REWIND VALUE X'86'.
- 78 READ-SEQ-NO-LOCK VALUE X'8D'.
- 78 READ-SEQ-LOCK VALUE X'D8'.
- 78 READ-SEQ-KEPT-LOCK VALUE X'D9'.
- 78 READ-SEQ VALUE X'F5'.
- 78 READ-PREVIOUS-NO-LOCK VALUE X'8C'.
- 78 READ-PREVIOUS-LOCK VALUE X'DE'.
- 78 READ-PREVIOUS-KEPT-LOCK VALUE X'DF'.
- 78 READ-PREVIOUS VALUE X'F9'.
- 78 READ-RANDOM-NO-LOCK VALUE X'8E'.
- 78 READ-RANDOM-LOCK VALUE X'DA'.
- 78 READ-RANDOM-KEPT-LOCK VALUE X'DB'.
- 78 READ-RANDOM VALUE X'F6'.
- 78 READ-DIRECT-NO-LOCK VALUE X'8F'.
- 78 READ-DIRECT-LOCK VALUE X'D6'.
- 78 READ-DIRECT-KEPT-LOCK VALUE X'D7'.
- 78 READ-DIRECT VALUE X'C9'.
- 78 READ-POSITION VALUE X'F1'.
- 78 WRITE-BEFORE VALUE X'E1'.
- 78 WRITE-AFTER VALUE X'E2'.
- 78 WRITE-BEFORE-TAB VALUE X'E3'.
- 78 WRITE-AFTER-TAB VALUE X'E4'.
- 78 WRITE-BEFORE-PAGE VALUE X'E5'.
- 78 WRITE-AFTER-PAGE VALUE X'E6'.
- 78 WRITE-RECORD VALUE X'F3'.
- 78 REWRITE-RECORD VALUE X'F4'.
- 78 START-EQUAL-PRIME-KEY VALUE X'E8'.
- 78 START-EQUAL-KEY VALUE X'E9'.
- 78 START-GREATER VALUE X'EA'.
- 78 START-NOT-LESS VALUE X'EB'.
- 78 START-LESS VALUE X'FE'.
- 78 START-LESS-OR-EQUAL VALUE X'FF'.
- 78 STEP-NEXT-NO-LOCK VALUE X'90'.
- 78 STEP-NEXT-LOCK VALUE X'D4'.
- 78 STEP-NEXT-KEPT-LOCK VALUE X'D5'.
- 78 STEP-NEXT VALUE X'CA'.
- 78 STEP-FIRST-NO-LOCK VALUE X'92'.
- 78 STEP-FIRST-LOCK VALUE X'D0'.
- 78 STEP-FIRST-KEPT-LOCK VALUE X'D1'.
- 78 STEP-FIRST VALUE X'CC'.
- 78 DELETE-RECORD VALUE X'F7'.
- 78 DELETE-FILE VALUE X'F8'.
- 78 UNLOCK-CURRENT VALUE X'0E'.
- 78 COMMIT-ALL VALUE X'DC'.
- 78 ROLLBACK-ALL VALUE X'DD'.
- 78 GET-FILE-INFO VALUE X'06'.
- 78 OPEN-NEW-INDEX VALUE X'07'.
- 78 GET-NEXT-RECORD VALUE X'08'.
- 78 ADD-KEY-VALUE VALUE X'09'.
- 78 UNLOCK-RECORD VALUE X'0F'.
-
- 01 FCD-AREA.
- COPY xfhfcd.
-
- 01 FILE-NAME PIC X(64).
- 01 FILE-NAME-LEN PIC 9(04) COMP-X.
-
- 01 RECORD-AREA.
- 05 PRIME-KEY PIC X(25).
- 05 DATA-AREA PIC X(10).
-
- 01 RECORD-AREA2.
- 05 PRIME-KEY2 PIC X(25).
- 05 DATA-AREA2 PIC X(10).
-
- 01 KEY-DEF-AREA.
- 05 GLOBAL-INFORMATION-AREA.
- 10 LENGTH-OF-KEY-DEF-AREA PIC 9(04) COMP-X.
- 10 FILLER PIC X(04).
- 10 NUMBER-OF-KEYS PIC 9(04) COMP-X.
- 10 FILLER PIC X(06).
- 05 KEY-DEF-AREA-PARAM-BLOCK.
- 10 COMPONENT-COUNT PIC 9(04) COMP-X.
- 10 OFFSET-TO-COMPONENT PIC 9(04) COMP-X.
- 10 KEY-FLAGS PIC 9(02) COMP-X.
- 10 KEY-COMPRESSION PIC 9(02) COMP-X.
- 10 SPARSE-CHARACTER PIC X(01).
- 10 FILLER PIC X(09).
- 05 COMPONENT-DEF-AREA.
- 10 FILLER PIC X(02).
- 10 OFFSET-TO-COMPONENT-DEF PIC 9(09) COMP-X.
- 10 COMPONENT-LENGTH PIC 9(09) COMP-X.
-
-
- **************************************************************
- PROCEDURE DIVISION.
- **************************************************************
- 0000-MAIN.
- PERFORM 1000-OPEN-FILE.
- PERFORM 2000-READ-RECORD.
- DISPLAY 'AFTER READ ------> ' RECORD-AREA '.'.
- MOVE '1234567890' TO DATA-AREA.
- PERFORM 3000-REWRITE-RECORD.
- PERFORM 2000-READ-RECORD.
- DISPLAY 'AFTER WRITE -----> ' RECORD-AREA '.'.
- MOVE SPACES TO DATA-AREA.
- PERFORM 3000-REWRITE-RECORD.
- PERFORM 5000-CLOSE-FILE.
- PERFORM 1000-OPEN-FILE.
- PERFORM 6000-START.
- PERFORM 7000-READ-PREVIOUS.
- DISPLAY 'AFTER READ PREV -> ' RECORD-AREA2 '.'.
- PERFORM 5000-CLOSE-FILE.
-
- STOP RUN.
- *
- *--------------------------------*
- 1000-Open-File.
- *--------------------------------*
- *
- MOVE 'TEST1EXTFH' TO FILE-NAME
- MOVE 10 TO FILE-NAME-LEN
-
- * MOVE LOW-VALUES TO FCD-AREA
- MOVE FCD--VERSION-NUMBER TO FCD-VERSION
-
- MOVE FCD--INDEXED-ORG TO FCD-ORGANIZATION
- MOVE FILE-NAME-LEN TO FCD-NAME-LENGTH
- SET FCD-FILENAME-ADDRESS TO ADDRESS OF FILE-NAME
- SET FCD-KEY-DEF-ADDRESS TO ADDRESS OF KEY-DEF-AREA
- MOVE 16 TO FCD-FS-FLAGS
- MOVE LENGTH OF RECORD-AREA TO FCD-CURRENT-REC-LEN
- MOVE 1 TO NUMBER-OF-KEYS
- MOVE LENGTH OF PRIME-KEY TO COMPONENT-LENGTH
- MOVE 8 TO FCD-ACCESS-MODE
- MOVE 0 TO FCD-LOCK-MODE
- MOVE 128 TO FCD-OPEN-MODE
-
- MOVE COBOL-TYPE TO ACTION-TYPE
- MOVE OPEN-I-O TO COBOL-OP
- PERFORM 1100-CALL-EXTFH.
-
- *
- *--------------------------------*
- 1100-Call-Extfh.
- *--------------------------------*
- *
- CALL 'EXTFH' USING ACTION-CODE
- FCD-AREA
- IF FCD-FILE-STATUS NOT = '00'
- MOVE COBOL-OP TO OP-X
- IF FCD-STATUS-KEY-1 = '9'
- DISPLAY "FILE ERROR, STATUS: 9/" FCD-BINARY
- " OPCODE: " OP-N
- ELSE
- DISPLAY "FILE ERROR, STATUS: " FCD-FILE-STATUS
- " OPCODE: " OP-N
- END-IF
- IF FCD-FILE-STATUS = '23'
- DISPLAY "Record: " RECORD-AREA "."
- END-IF
- STOP RUN
- END-IF.
- *
- *--------------------------------*
- 2000-Read-Record.
- *--------------------------------*
- *
- INITIALIZE RECORD-AREA.
-
- MOVE 'RECORD-3' TO PRIME-KEY.
-
- MOVE READ-RANDOM-LOCK TO COBOL-OP.
- SET FCD-RECORD-ADDRESS TO ADDRESS OF RECORD-AREA.
- PERFORM 1100-CALL-EXTFH.
- *
- *--------------------------------*
- 3000-Rewrite-Record.
- *--------------------------------*
- *
- MOVE COBOL-TYPE TO ACTION-TYPE.
- MOVE REWRITE-RECORD TO COBOL-OP.
-
- PERFORM 1100-CALL-EXTFH.
- *
- *--------------------------------*
- 5000-Close-File.
- *--------------------------------*
- *
- MOVE COBOL-TYPE TO ACTION-TYPE.
- MOVE CLOSE-FILE TO COBOL-OP.
-
- PERFORM 1100-CALL-EXTFH.
- *
- *--------------------------------*
- 6000-Start.
- *--------------------------------*
- *
- SET FCD-RECORD-ADDRESS TO ADDRESS OF RECORD-AREA.
- MOVE 25 TO FCD-KEY-LENGTH.
- MOVE HIGH-VALUES TO PRIME-KEY.
-
- MOVE COBOL-TYPE TO ACTION-TYPE.
- MOVE START-LESS TO COBOL-OP.
-
- PERFORM 1100-CALL-EXTFH.
- *
- *--------------------------------*
- 7000-Read-Previous.
- *--------------------------------*
- *
- MOVE COBOL-TYPE TO ACTION-TYPE.
- MOVE READ-PREVIOUS TO COBOL-OP.
- INITIALIZE RECORD-AREA2.
- SET FCD-RECORD-ADDRESS TO ADDRESS OF RECORD-AREA2.
-
- PERFORM 1100-CALL-EXTFH.
-_ATEOF
-
-
-# FIXME: by default comp-x should not be truncated (see trunk)
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:10162: \$COMPILE -fnotrunc progl.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fnotrunc progl.cob" "run_file.at:10162"
-( $at_check_trace; $COMPILE -fnotrunc progl.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:10162"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:10163: \$COMPILE -fnotrunc prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fnotrunc prog.cob" "run_file.at:10163"
-( $at_check_trace; $COMPILE -fnotrunc prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:10163"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:10165: \$COBCRUN_DIRECT ./progl"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./progl" "run_file.at:10165"
-( $at_check_trace; $COBCRUN_DIRECT ./progl
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "5 records written
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:10165"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:10169: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:10169"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "AFTER READ ------> RECORD-3 .
-AFTER WRITE -----> RECORD-3 1234567890.
-AFTER READ PREV -> RECORD-5 .
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:10169"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_932
-#AT_START_933
-at_fn_group_banner 933 'run_file.at:10178' \
- "EXTFH: INDEXED with multiple keys" " " 4
-at_xfail=no
-(
- printf "%s\n" "933. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-printf "%s\n" "run_file.at:10181" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:10181"
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- DATA DIVISION.
- FILE SECTION.
- WORKING-STORAGE SECTION.
- 77 CKEYS PIC 9(04) COMP-5.
- 77 NKEYS PIC 9(04) COMP-5.
- 77 CURR-OFF PIC 9(04) COMP-5.
- 77 I PIC 9(04) COMP-5.
- 01 FH-ACTION PIC X(02).
- 01 FILLER REDEFINES FH-ACTION.
- 05 PIC X COMP-X.
- 05 FH-ACTION2 PIC X COMP-X.
- 77 FILE-NAME PIC X(64).
- 77 INDEX-NAME PIC X(64).
- 77 FILE-NAME-LEN PIC 9(04) COMP-X.
- 01 ACB-KEY-GROUP.
- 05 ACB-CNT PIC 9(02).
- 05 ACB-KEY-TABLE OCCURS 32 TIMES.
- 10 ACB-KEY-LEN PIC 9(04) COMP-4.
- 10 ACB-KEY-POS PIC 9(04) COMP-4.
- 10 ACB-KEY-DUPE PIC 9(02) COMP-X.
- *COPY EXTFHOPS.
- 01 ACTION-CODE.
- 05 ACTION-TYPE PIC X(01).
- 78 COBOL-TYPE VALUE X'FA'.
- 78 SPECIAL-TYPE VALUE X'00'.
- 05 COBOL-OP PIC X(01).
- 78 OPEN-INPUT VALUE X'00'.
- 78 OPEN-OUTPUT VALUE X'01'.
- 78 OPEN-I-O VALUE X'02'.
- 78 OPEN-EXTEND VALUE X'03'.
- 78 OPEN-INPUT-NO-REWIND VALUE X'04'.
- 78 OPEN-OUTPUT-NO-REWIND VALUE X'05'.
- 78 OPEN-INPUT-REVERSED VALUE X'08'.
- 78 CLOSE-FILE VALUE X'80'.
- 78 CLOSE-LOCK VALUE X'81'.
- 78 CLOSE-NO-REWIND VALUE X'82'.
- 78 CLOSE-REEL-UNIT VALUE X'84'.
- 78 CLOSE-REEL-UNIT-FOR-REMOVAL VALUE X'85'.
- 78 CLOSE-REEL-UNIT-NO-REWIND VALUE X'86'.
- 78 READ-SEQ-NO-LOCK VALUE X'8D'.
- 78 READ-SEQ-LOCK VALUE X'D8'.
- 78 READ-SEQ-KEPT-LOCK VALUE X'D9'.
- 78 READ-SEQ VALUE X'F5'.
- 78 READ-PREVIOUS-NO-LOCK VALUE X'8C'.
- 78 READ-PREVIOUS-LOCK VALUE X'DE'.
- 78 READ-PREVIOUS-KEPT-LOCK VALUE X'DF'.
- 78 READ-PREVIOUS VALUE X'F9'.
- 78 READ-RANDOM-NO-LOCK VALUE X'8E'.
- 78 READ-RANDOM-LOCK VALUE X'DA'.
- 78 READ-RANDOM-KEPT-LOCK VALUE X'DB'.
- 78 READ-RANDOM VALUE X'F6'.
- 78 READ-DIRECT-NO-LOCK VALUE X'8F'.
- 78 READ-DIRECT-LOCK VALUE X'D6'.
- 78 READ-DIRECT-KEPT-LOCK VALUE X'D7'.
- 78 READ-DIRECT VALUE X'C9'.
- 78 READ-POSITION VALUE X'F1'.
- 78 WRITE-BEFORE VALUE X'E1'.
- 78 WRITE-AFTER VALUE X'E2'.
- 78 WRITE-BEFORE-TAB VALUE X'E3'.
- 78 WRITE-AFTER-TAB VALUE X'E4'.
- 78 WRITE-BEFORE-PAGE VALUE X'E5'.
- 78 WRITE-AFTER-PAGE VALUE X'E6'.
- 78 WRITE-RECORD VALUE X'F3'.
- 78 REWRITE-RECORD VALUE X'F4'.
- 78 START-EQUAL-PRIME-KEY VALUE X'E8'.
- 78 START-EQUAL-KEY VALUE X'E9'.
- 78 START-GREATER VALUE X'EA'.
- 78 START-NOT-LESS VALUE X'EB'.
- 78 START-LESS VALUE X'FE'.
- 78 START-LESS-OR-EQUAL VALUE X'FF'.
- 78 STEP-NEXT-NO-LOCK VALUE X'90'.
- 78 STEP-NEXT-LOCK VALUE X'D4'.
- 78 STEP-NEXT-KEPT-LOCK VALUE X'D5'.
- 78 STEP-NEXT VALUE X'CA'.
- 78 STEP-FIRST-NO-LOCK VALUE X'92'.
- 78 STEP-FIRST-LOCK VALUE X'D0'.
- 78 STEP-FIRST-KEPT-LOCK VALUE X'D1'.
- 78 STEP-FIRST VALUE X'CC'.
- 78 DELETE-RECORD VALUE X'F7'.
- 78 DELETE-FILE VALUE X'F8'.
- 78 UNLOCK-CURRENT VALUE X'0E'.
- 78 COMMIT-ALL VALUE X'DC'.
- 78 ROLLBACK-ALL VALUE X'DD'.
- 78 GET-FILE-INFO VALUE X'06'.
- 78 OPEN-NEW-INDEX VALUE X'07'.
- 78 GET-NEXT-RECORD VALUE X'08'.
- 78 ADD-KEY-VALUE VALUE X'09'.
- 78 UNLOCK-RECORD VALUE X'0F'.
- 01 FCD-AREA.
- COPY xfhfcd.
-
- 01 RECORD-AREA.
- 05 PRIME-KEY PIC X(20).
- 05 DATA-AREA1 PIC 9(10).
- 05 DATA-AREA2 PIC 9(15).
- 05 DATA-AREA PIC X(355).
- 01 KEY-DEF-AREA PIC X(512).
- PROCEDURE DIVISION.
- A-000-MAIN.
- PERFORM A-100-OPEN-FILE.
- PERFORM A-300-READ-RECORD.
- DISPLAY 'READ ------> ' RECORD-AREA (1:55) '.'
- MOVE '1234567890' TO RECORD-AREA (46:10)
- PERFORM A-400-REWRITE-RECORD.
- PERFORM A-300-READ-RECORD.
- DISPLAY 'WRITE -----> ' RECORD-AREA (1:55) '.'
- MOVE SPACES TO DATA-AREA.
- PERFORM A-400-REWRITE-RECORD.
- PERFORM A-700-START.
- PERFORM A-800-READ-PREVIOUS.
- DISPLAY 'READ PREV -> ' RECORD-AREA (1:55) '.'
- PERFORM A-600-CLOSE-FILE.
- STOP RUN.
- A-100-Open-File.
- MOVE LOW-VALUES TO FCD-AREA
- MOVE LOW-VALUES TO ACB-KEY-GROUP
- MOVE fcd--version-number TO FCD-VERSION
- ** MAKE 3 KEYS
- MOVE 3 TO ACB-CNT
- MOVE 0 TO ACB-KEY-POS (1)
- MOVE 20 TO ACB-KEY-LEN (1)
- MOVE 0 TO ACB-KEY-DUPE (1)
- MOVE 20 TO ACB-KEY-POS (2)
- MOVE 10 TO ACB-KEY-LEN (2)
- MOVE 1 TO ACB-KEY-DUPE (2)
- MOVE 30 TO ACB-KEY-POS (3)
- MOVE 15 TO ACB-KEY-LEN (3)
- MOVE 1 TO ACB-KEY-DUPE (3)
- ** MAKE MF KEY-DEF
- CALL "EXFHKEYS" USING
- ACB-KEY-GROUP
- KEY-DEF-AREA
- MOVE X'FA01' TO FH-ACTION
- SET FCD-KEY-DEF-ADDRESS TO ADDRESS OF KEY-DEF-AREA
- MOVE 'TESTISAM2' TO FILE-NAME
- MOVE 9 TO FILE-NAME-LEN
- MOVE FILE-NAME-LEN TO FCD-NAME-LENGTH
- MOVE 0 TO FCD-ACCESS-MODE
- MOVE 2 TO FCD-ORGANIZATION
- MOVE 128 TO FCD-OPEN-MODE
- ** FIXED OR VARIABLE
- MOVE 1 TO FCD-RECORDING-MODE
- MOVE 0 TO FCD-RECORDING-MODE
- SET FCD-FILENAME-ADDRESS TO ADDRESS OF FILE-NAME
- MOVE 400 TO FCD-MIN-REC-LENGTH
- MOVE 400 TO FCD-MAX-REC-LENGTH
- PERFORM A-200-CALL-EXTFH.
- PERFORM A-600-CLOSE-FILE.
- * Write test data to file
- MOVE X'FA02' TO FH-ACTION
- MOVE 8 TO FCD-ACCESS-MODE
- PERFORM A-200-CALL-EXTFH.
- MOVE SPACES TO RECORD-AREA
- MOVE 0 TO DATA-AREA1
- MOVE 0 TO DATA-AREA2
- PERFORM 7 TIMES
- ADD 1 TO DATA-AREA1
- ADD 1 TO DATA-AREA2
- MOVE 'RECORD-1' TO PRIME-KEY
- MOVE DATA-AREA1 (10:1) TO PRIME-KEY (8:1)
- MOVE X'FAF3' TO FH-ACTION
- SET FCD-RECORD-ADDRESS TO ADDRESS OF RECORD-AREA
- PERFORM A-200-CALL-EXTFH
- END-PERFORM.
- A-110-EXIT.
- EXIT.
- A-200-Call-Extfh.
- CALL 'EXTFH' USING FH-ACTION
- FCD-AREA
- IF FCD-FILE-STATUS NOT = '00' AND NOT = '02'
- IF FCD-STATUS-KEY-1 = '9'
- DISPLAY "Operation: " FH-ACTION2
- " FILE ERROR, STATUS: 9/" FCD-BINARY
- ELSE
- DISPLAY "Operation: " FH-ACTION2
- " FILE ERROR, STATUS: " FCD-FILE-STATUS
- END-IF
- STOP RUN
- END-IF.
- A-300-READ-RECORD.
- INITIALIZE RECORD-AREA.
- MOVE 'RECORD-3' TO PRIME-KEY.
- MOVE X'FA8E' TO FH-ACTION
- SET FCD-RECORD-ADDRESS TO ADDRESS OF RECORD-AREA.
- PERFORM A-200-CALL-EXTFH.
- A-400-REWRITE-RECORD.
- MOVE X'FAF4' TO FH-ACTION
- MOVE REWRITE-RECORD TO COBOL-OP.
- PERFORM A-200-CALL-EXTFH.
- A-600-CLOSE-FILE.
- MOVE X'FA80' TO FH-ACTION.
- PERFORM A-200-CALL-EXTFH.
- A-700-START.
- SET FCD-RECORD-ADDRESS TO ADDRESS OF RECORD-AREA.
- MOVE 20 TO FCD-KEY-LENGTH.
- MOVE HIGH-VALUES TO PRIME-KEY.
- MOVE X'FAFE' TO FH-ACTION
- PERFORM A-200-CALL-EXTFH.
- A-800-READ-PREVIOUS.
- MOVE X'FAF9' TO FH-ACTION
- PERFORM A-200-CALL-EXTFH.
-
-_ATEOF
-
-
-cat >progs.cob <<'_ATEOF'
-
- $SET ODOSLIDE
- ** CREATE KEY-DEF-AREA FROM ACB ARRAY
- IDENTIFICATION DIVISION.
- PROGRAM-ID. EXFHKEYS.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 ZX1 PIC X(04).
- 77 ZX2 PIC X(04).
- 77 ZX4 PIC X(08).
- 77 Z91 PIC 9(04) COMP-5.
- 77 Z92 PIC 9(04) COMP-5.
- 77 Z93 PIC 9(08) COMP-5.
- 77 Z94 PIC 9(08) COMP-5.
- 77 E4 PIC X(08) VALUE 'E4'.
- 77 E6 PIC X(08) VALUE 'E6'.
- 77 OFF1 PIC X(4) COMP-X.
- 77 OFF2 PIC X(2) COMP-X.
- 01 PROGRAM-DATA.
- 05 I PIC 9(4) COMP.
- 05 J PIC 9(4) COMP.
- 05 K PIC 9(4) COMP.
- 05 L PIC 9(4) COMP.
- 05 X PIC 9(4) COMP.
- 05 Y PIC 9(4) COMP.
- 05 Z PIC 9(4) COMP.
- 01 KEY-DEF-AREA.
- 05 GLOBAL-INFORMATION-AREA.
- 10 KEY-DEF-LEN PIC 9(04) COMP-X.
- 10 FILLER PIC X(04).
- 10 NUMBER-OF-KEYS PIC 9(04) COMP-X.
- 10 FILLER PIC X(06).
- 05 KEY-DEFINITION-PARAMETER-BLOCK
- OCCURS 1 TO 15 TIMES DEPENDING ON NUMBER-OF-KEYS.
- 10 COMPONENT-COUNT PIC 9(4) COMP-X.
- 10 OFFSET-TO-COMPONENT PIC 9(4) COMP-X.
- 10 KEY-FLAGS PIC 9(2) COMP-X.
- 10 KEY-COMPRESSION PIC 9(2) COMP-X.
- 10 SPARSE-CHARACTER PIC X.
- 10 FILLER PIC X(9).
- 05 COMPONENT-DEFINITION-AREA
- OCCURS 1 TO 15 TIMES DEPENDING ON NUMBER-OF-KEYS.
- 10 FILLER PIC X(2).
- 10 OFFSET-TO-COMPONENT-DEF PIC 9(9) COMP-X.
- 10 COMPONENT-LENGTH PIC 9(9) COMP-X.
- LINKAGE SECTION.
- 01 ACB-KEY-GROUP.
- 05 ACB-CNT PIC 9(02).
- 05 ACB-KEY-TABLE OCCURS 32 TIMES.
- 10 ACB-KEY-LEN PIC 9(04) COMP-4.
- 10 ACB-KEY-LENX REDEFINES ACB-KEY-LEN PIC X(02).
- 10 ACB-KEY-POS PIC 9(04) COMP-4.
- 10 ACB-KEY-POSX REDEFINES ACB-KEY-POS PIC X(02).
- 10 ACB-KEY-DUP PIC 9(02) COMP-X.
- 10 ACB-KEY-DUPX REDEFINES ACB-KEY-DUP PIC X(01).
- 01 KEY-DEFS PIC X(512).
- PROCEDURE DIVISION USING
- ACB-KEY-GROUP
- KEY-DEFS.
- A-010-MAINLINE.
- MOVE LOW-VALUES TO KEY-DEFS
- MOVE LOW-VALUES TO KEY-DEF-AREA
- ** POPULATE THE GLOBAL AREA
- MOVE ACB-CNT TO NUMBER-OF-KEYS
- COMPUTE KEY-DEF-LEN = (ACB-CNT * 16) + (ACB-CNT * 10) + 14
- ** POPULATE KEY-DEFINITION-PARAMETER-BLOCK & COMPONENT DEFEINTION
- PERFORM A-020-MAKE-KEY-DEF THRU A-020-EXIT
- MOVE KEY-DEF-AREA (1:KEY-DEF-LEN) TO KEY-DEFS (1:KEY-DEF-LEN)
- GOBACK.
- A-010-EXIT.
- EXIT.
- A-020-MAKE-KEY-DEF.
- ** DO THE PRIMARY KEY
- MOVE 1 TO I
- MOVE 1 TO COMPONENT-COUNT (I)
- MOVE 16 TO KEY-FLAGS (I)
- COMPUTE OFF2 = (ACB-CNT * 16) + ((I - 1) * 10) + 14
- MOVE OFF2 TO OFFSET-TO-COMPONENT (I)
- MOVE ACB-KEY-POS (I) TO OFFSET-TO-COMPONENT-DEF (I)
- MOVE 10 TO COMPONENT-LENGTH (I)
- ** IF THERE ARE NO ALTERNATE KEYS EXIT - KEY DEF IS BUILT
- IF ACB-CNT < 2
- GO TO A-020-EXIT
- END-IF
- ** DO ALTERNATE INDEX(S)
- PERFORM VARYING I FROM 2 BY 1 UNTIL I > ACB-CNT
- MOVE 1 TO COMPONENT-COUNT (I)
- COMPUTE OFF2 = (ACB-CNT * 16) + ((I - 1) * 10) + 14
- MOVE OFF2 TO OFFSET-TO-COMPONENT (I)
- IF ACB-KEY-DUP (I) = 1
- MOVE 64 TO KEY-FLAGS (I)
- ELSE
- MOVE 16 TO KEY-FLAGS (I)
- MOVE 0 TO KEY-FLAGS (I)
- END-IF
- MOVE ACB-KEY-POS (I) TO OFFSET-TO-COMPONENT-DEF (I)
- MOVE ACB-KEY-LEN (I) TO COMPONENT-LENGTH (I)
- END-PERFORM.
- A-020-EXIT.
- EXIT.
-_ATEOF
-
-
-# FIXME: by default comp-x should not be truncated (see trunk)
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:10498: \$COMPILE -fnotrunc -fodoslide prog.cob progs.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fnotrunc -fodoslide prog.cob progs.cob" "run_file.at:10498"
-( $at_check_trace; $COMPILE -fnotrunc -fodoslide prog.cob progs.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:10498"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:10500: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:10500"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "READ ------> RECORD-3 0000000003000000000000003 .
-WRITE -----> RECORD-3 00000000030000000000000031234567890.
-READ PREV -> RECORD-7 0000000007000000000000007 .
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:10500"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_933
-#AT_START_934
-at_fn_group_banner 934 'run_file.at:10509' \
- "EXTFH: RELATIVE files" " " 4
-at_xfail=no
-(
- printf "%s\n" "934. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- INPUT-OUTPUT SECTION.
- DATA DIVISION.
- FILE SECTION.
- WORKING-STORAGE SECTION.
- 77 I PIC 9(04) COMP-5.
- 77 FILE-NAME PIC X(64).
- 77 FILE-NAME-LEN PIC 9(04) COMP-X.
- 01 FH-ACTION PIC X(02).
- 01 FILLER REDEFINES FH-ACTION.
- 05 PIC X COMP-X.
- 05 FH-ACTION2 PIC X COMP-X.
- 01 ACTION-CODE REDEFINES FH-ACTION.
- 05 ACTION-TYPE PIC X(01).
- 78 COBOL-TYPE VALUE X'FA'.
- 78 SPECIAL-TYPE VALUE X'00'.
- 05 COBOL-OP PIC X(01).
- 78 OPEN-INPUT VALUE X'00'.
- 78 OPEN-OUTPUT VALUE X'01'.
- 78 OPEN-I-O VALUE X'02'.
- 78 OPEN-EXTEND VALUE X'03'.
- 78 OPEN-INPUT-NO-REWIND VALUE X'04'.
- 78 OPEN-OUTPUT-NO-REWIND VALUE X'05'.
- 78 OPEN-INPUT-REVERSED VALUE X'08'.
- 78 CLOSE-FILE VALUE X'80'.
- 78 CLOSE-LOCK VALUE X'81'.
- 78 CLOSE-NO-REWIND VALUE X'82'.
- 78 CLOSE-REEL-UNIT VALUE X'84'.
- 78 CLOSE-REEL-UNIT-FOR-REMOVAL VALUE X'85'.
- 78 CLOSE-REEL-UNIT-NO-REWIND VALUE X'86'.
- 78 READ-SEQ-NO-LOCK VALUE X'8D'.
- 78 READ-SEQ-LOCK VALUE X'D8'.
- 78 READ-SEQ-KEPT-LOCK VALUE X'D9'.
- 78 READ-SEQ VALUE X'F5'.
- 78 READ-PREVIOUS-NO-LOCK VALUE X'8C'.
- 78 READ-PREVIOUS-LOCK VALUE X'DE'.
- 78 READ-PREVIOUS-KEPT-LOCK VALUE X'DF'.
- 78 READ-PREVIOUS VALUE X'F9'.
- 78 READ-RANDOM-NO-LOCK VALUE X'8E'.
- 78 READ-RANDOM-LOCK VALUE X'DA'.
- 78 READ-RANDOM-KEPT-LOCK VALUE X'DB'.
- 78 READ-RANDOM VALUE X'F6'.
- 78 READ-DIRECT-NO-LOCK VALUE X'8F'.
- 78 READ-DIRECT-LOCK VALUE X'D6'.
- 78 READ-DIRECT-KEPT-LOCK VALUE X'D7'.
- 78 READ-DIRECT VALUE X'C9'.
- 78 READ-POSITION VALUE X'F1'.
- 78 WRITE-BEFORE VALUE X'E1'.
- 78 WRITE-AFTER VALUE X'E2'.
- 78 WRITE-BEFORE-TAB VALUE X'E3'.
- 78 WRITE-AFTER-TAB VALUE X'E4'.
- 78 WRITE-BEFORE-PAGE VALUE X'E5'.
- 78 WRITE-AFTER-PAGE VALUE X'E6'.
- 78 WRITE-RECORD VALUE X'F3'.
- 78 REWRITE-RECORD VALUE X'F4'.
- 78 START-EQUAL-PRIME-KEY VALUE X'E8'.
- 78 START-EQUAL-KEY VALUE X'E9'.
- 78 START-GREATER VALUE X'EA'.
- 78 START-NOT-LESS VALUE X'EB'.
- 78 START-LESS VALUE X'FE'.
- 78 START-LESS-OR-EQUAL VALUE X'FF'.
- 78 STEP-NEXT-NO-LOCK VALUE X'90'.
- 78 STEP-NEXT-LOCK VALUE X'D4'.
- 78 STEP-NEXT-KEPT-LOCK VALUE X'D5'.
- 78 STEP-NEXT VALUE X'CA'.
- 78 STEP-FIRST-NO-LOCK VALUE X'92'.
- 78 STEP-FIRST-LOCK VALUE X'D0'.
- 78 STEP-FIRST-KEPT-LOCK VALUE X'D1'.
- 78 STEP-FIRST VALUE X'CC'.
- 78 DELETE-RECORD VALUE X'F7'.
- 78 DELETE-FILE VALUE X'F8'.
- 78 UNLOCK-CURRENT VALUE X'0E'.
- 78 COMMIT-ALL VALUE X'DC'.
- 78 ROLLBACK-ALL VALUE X'DD'.
- 78 GET-FILE-INFO VALUE X'06'.
- 78 OPEN-NEW-INDEX VALUE X'07'.
- 78 GET-NEXT-RECORD VALUE X'08'.
- 78 ADD-KEY-VALUE VALUE X'09'.
- 78 UNLOCK-RECORD VALUE X'0F'.
-
- 01 FCD-AREA.
- COPY xfhfcd.
-
- 01 RECORD-AREA.
- 05 PRIME-KEY PIC X(20).
- 05 DATA-AREA1 PIC 9(10).
- 05 RECORD-GROWTH PIC X(50).
-
- PROCEDURE DIVISION.
- A-000-MAIN.
- MOVE X'FA01' TO FH-ACTION
- PERFORM A-100-OPEN-FILE.
- MOVE SPACES TO RECORD-AREA
- MOVE 0 TO DATA-AREA1
- PERFORM 7 TIMES
- ADD 1 TO DATA-AREA1
- MOVE DATA-AREA1 TO FCD-RELATIVE-KEY
- MOVE 'RECORD-1' TO PRIME-KEY
- MOVE DATA-AREA1 (10:1) TO PRIME-KEY (8:1)
- MOVE X'FAF3' TO FH-ACTION
- SET FCD-RECORD-ADDRESS TO ADDRESS OF RECORD-AREA
- PERFORM A-200-CALL-EXTFH
- END-PERFORM.
- PERFORM A-600-CLOSE-FILE.
-
- MOVE X'FA02' TO FH-ACTION
- PERFORM A-100-OPEN-FILE.
- MOVE 3 TO FCD-RELATIVE-KEY
- PERFORM A-700-UPDATE.
- MOVE 6 TO FCD-RELATIVE-KEY
- PERFORM A-700-UPDATE.
- PERFORM A-600-CLOSE-FILE.
- STOP RUN.
-
- A-100-Open-File.
- MOVE LOW-VALUES TO FCD-AREA
- MOVE FCD--VERSION-NUMBER TO FCD-VERSION
- MOVE 'TESTREL.DAT' TO FILE-NAME
- MOVE 11 TO FILE-NAME-LEN
- MOVE FILE-NAME-LEN TO FCD-NAME-LENGTH
- ** ACCESS SEQ(0) RANDOM(4) DYNAMIC(8)
- MOVE 8 TO FCD-ACCESS-MODE
- ** ISAM(2) RELATIVE(3) LSEQ(0) SEQ(1)
- MOVE 3 TO FCD-ORGANIZATION
- ** CLOSED(128) INPUT(0) OUTPUT(1) I-O(2) EXTEND(3)
- MOVE 128 TO FCD-OPEN-MODE
- ** FIXED(0) OR VARIABLE(1)
- MOVE 0 TO FCD-RECORDING-MODE
- SET FCD-FILENAME-ADDRESS TO ADDRESS OF FILE-NAME
- MOVE LENGTH OF RECORD-AREA TO FCD-MIN-REC-LENGTH
- MOVE LENGTH OF RECORD-AREA TO FCD-MAX-REC-LENGTH
- MOVE LENGTH OF RECORD-AREA TO FCD-CURRENT-REC-LEN
- PERFORM A-200-CALL-EXTFH.
-
- A-200-Call-Extfh.
- CALL 'EXTFH' USING FH-ACTION
- FCD-AREA
- IF FCD-FILE-STATUS NOT = '00' AND NOT = '02'
- IF FCD-STATUS-KEY-1 = '9'
- DISPLAY "Operation: " FH-ACTION2
- " FILE ERROR, STATUS: 9/" FCD-BINARY
- ELSE
- DISPLAY "Operation: " FH-ACTION2
- " FILE ERROR, STATUS: " FCD-FILE-STATUS
- END-IF
- STOP RUN
- END-IF.
- A-300-READ-RECORD.
- INITIALIZE RECORD-AREA.
- MOVE READ-RANDOM-LOCK TO COBOL-OP.
- SET FCD-RECORD-ADDRESS TO ADDRESS OF RECORD-AREA.
- PERFORM A-200-CALL-EXTFH.
- MOVE FCD-RELATIVE-KEY TO I.
- A-400-REWRITE-RECORD.
- MOVE COBOL-TYPE TO ACTION-TYPE.
- MOVE REWRITE-RECORD TO COBOL-OP.
- PERFORM A-200-CALL-EXTFH.
- A-600-CLOSE-FILE.
- MOVE X'FA80' TO FH-ACTION.
- PERFORM A-200-CALL-EXTFH.
- A-700-UPDATE.
- PERFORM A-300-READ-RECORD.
- DISPLAY 'READ ' I ': ' RECORD-AREA (1:41) '.'.
- MOVE '1234567890' TO RECORD-GROWTH.
- PERFORM A-400-REWRITE-RECORD.
- PERFORM A-300-READ-RECORD.
- DISPLAY 'REWRITE ' I ': ' RECORD-AREA (1:41) '.'.
-_ATEOF
-
-
-# FIXME: by default comp-x should not be truncated (see trunk)
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:10686: \$COMPILE -fnotrunc prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fnotrunc prog.cob" "run_file.at:10686"
-( $at_check_trace; $COMPILE -fnotrunc prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:10686"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:10688: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:10688"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "READ 00003: RECORD-3 0000000003 .
-REWRITE 00003: RECORD-3 00000000031234567890 .
-READ 00006: RECORD-6 0000000006 .
-REWRITE 00006: RECORD-6 00000000061234567890 .
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:10688"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_934
-#AT_START_935
-at_fn_group_banner 935 'run_file.at:10698' \
- "EXTFH: reading two files with one FCD" " " 4
-at_xfail=no
-(
- printf "%s\n" "935. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- ****************************************************************
- PROGRAM-ID. prog.
- *AUTHOR. TOKYO-SYSTEM-HOUSE.
- *DATE-WRITTEN. 2023/02/28.
- ****************************************************************
- ENVIRONMENT DIVISION.
- ****************************************************************
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT F-SEQ-FILE ASSIGN TO "F-SEQ"
- ORGANIZATION IS SEQUENTIAL
- FILE STATUS IS F-SEQ-STATUS.
- SELECT F-TXT-FILE ASSIGN TO "F-TXT"
- ORGANIZATION IS LINE SEQUENTIAL
- FILE STATUS IS F-TXT-STATUS.
- ****************************************************************
- DATA DIVISION.
- ****************************************************************
- FILE SECTION.
- FD F-SEQ-FILE.
- 01 F-SEQ-RECORD.
- 03 F-SEQ-DATA PIC X(5).
- FD F-TXT-FILE.
- 01 F-TXT-RECORD.
- 03 F-TXT-DATA PIC X(10).
- WORKING-STORAGE SECTION.
- 01 F-SEQ-STATUS PIC X(2).
- 01 F-TXT-STATUS PIC X(2).
-
- 01 OPCODE PIC X(2).
- 78 OP-QUERY-FILE VALUE X"0006".
- 78 OP-OPEN-INPUT VALUE X"fa00".
- 78 OP-OPEN-OUTPUT VALUE X"fa01".
- 78 OP-OPEN-I-O VALUE X"fa02".
- 78 OP-WRITE VALUE X"faf3".
- 78 OP-RELEASE VALUE X"faf3".
- 78 OP-REWRITE VALUE X"faf4".
- 78 OP-READ-NEXT VALUE X"faf5".
- 78 OP-START-EQUAL VALUE X"fae9".
- 78 OP-CLOSE VALUE X"fa80".
-
- 01 FCD.
- COPY "xfhfcd3.cpy".
- 01 EX-FILENAME PIC X(260).
- 01 EX-RECORD-BUFFER PIC X(32767).
- ****************************************************************
- PROCEDURE DIVISION.
- ****************************************************************
- MAIN-RTN.
- * CREATE FILE
- OPEN OUTPUT F-SEQ-FILE.
- MOVE "SEQ01" TO F-SEQ-DATA.
- WRITE F-SEQ-RECORD.
- MOVE "SEQ02" TO F-SEQ-DATA.
- WRITE F-SEQ-RECORD.
- MOVE "SEQ03" TO F-SEQ-DATA.
- WRITE F-SEQ-RECORD.
- MOVE "SEQ04" TO F-SEQ-DATA.
- WRITE F-SEQ-RECORD.
- MOVE "SEQ05" TO F-SEQ-DATA.
- WRITE F-SEQ-RECORD.
- CLOSE F-SEQ-FILE.
- OPEN OUTPUT F-TXT-FILE.
- MOVE "TXTA123456" TO F-TXT-DATA.
- WRITE F-TXT-RECORD.
- MOVE "TXTB123456" TO F-TXT-DATA.
- WRITE F-TXT-RECORD.
- MOVE "TXTC123456" TO F-TXT-DATA.
- WRITE F-TXT-RECORD.
- MOVE "TXTD123456" TO F-TXT-DATA.
- WRITE F-TXT-RECORD.
- CLOSE F-TXT-FILE.
-
- * SET FCD
- MOVE LOW-VALUES TO FCD.
- MOVE FCD--VERSION-NUMBER TO FCD-VERSION.
- SET FCD-FILENAME-ADDRESS TO ADDRESS OF EX-FILENAME.
- MOVE 80 TO FCD-NAME-LENGTH.
- SET FCD-RECORD-ADDRESS TO ADDRESS OF EX-RECORD-BUFFER.
-
- * OPEN first file
- MOVE fcd--sequential-org TO FCD-ORGANIZATION.
- MOVE "F-SEQ" TO EX-FILENAME.
- MOVE OP-OPEN-INPUT TO OPCODE.
- MOVE FCD--DYNAMIC-ACCESS TO FCD-ACCESS-MODE.
- MOVE 5 TO FCD-CURRENT-REC-LEN.
- MOVE 5 TO FCD-MIN-REC-LENGTH.
- MOVE 5 TO FCD-MAX-REC-LENGTH.
- CALL "EXTFH" USING OPCODE, FCD.
- DISPLAY "OPEN STATUS:"
- FCD-STATUS-KEY-1 "/" FCD-BINARY.
-
- * READ RECORD
- MOVE OP-READ-NEXT TO OPCODE.
- MOVE "00" TO FCD-FILE-STATUS.
- PERFORM UNTIL FCD-STATUS-KEY-1 NOT = "0"
- MOVE SPACE TO EX-RECORD-BUFFER
- CALL "EXTFH" USING OPCODE, FCD
- DISPLAY "READ NEXT STATUS:"
- FCD-STATUS-KEY-1 "/" FCD-BINARY
- DISPLAY "DATA:" EX-RECORD-BUFFER(1:10) '-'
- END-PERFORM.
-
- * CLOSE FILE
- MOVE OP-CLOSE TO OPCODE.
- CALL "EXTFH" USING OPCODE, FCD.
- DISPLAY "CLOSE STATUS:"
- FCD-STATUS-KEY-1 "/" FCD-BINARY.
-
- * OPEN second file
- MOVE fcd--line-sequential-org TO FCD-ORGANIZATION.
- MOVE "F-TXT" TO EX-FILENAME.
- MOVE OP-OPEN-INPUT TO OPCODE.
- MOVE FCD--DYNAMIC-ACCESS TO FCD-ACCESS-MODE.
- MOVE 10 TO FCD-CURRENT-REC-LEN.
- MOVE 10 TO FCD-MIN-REC-LENGTH.
- MOVE 10 TO FCD-MAX-REC-LENGTH.
- CALL "EXTFH" USING OPCODE, FCD.
- DISPLAY "OPEN STATUS:"
- FCD-STATUS-KEY-1 "/" FCD-BINARY.
-
- * READ RECORD
- MOVE OP-READ-NEXT TO OPCODE.
- MOVE "00" TO FCD-FILE-STATUS.
- PERFORM UNTIL FCD-STATUS-KEY-1 NOT = "0"
- MOVE SPACE TO EX-RECORD-BUFFER
- CALL "EXTFH" USING OPCODE, FCD
- DISPLAY "READ NEXT STATUS:"
- FCD-STATUS-KEY-1 "/" FCD-BINARY
- DISPLAY "DATA:" EX-RECORD-BUFFER(1:10) '-'
- END-PERFORM.
-
- * CLOSE FILE
- MOVE OP-CLOSE TO OPCODE.
- CALL "EXTFH" USING OPCODE, FCD.
- DISPLAY "CLOSE STATUS:"
- FCD-STATUS-KEY-1 "/" FCD-BINARY.
-
- MAIN-EXT.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:10845: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:10845"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:10845"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:10847: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:10847"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OPEN STATUS:0/48
-READ NEXT STATUS:0/48
-DATA:SEQ01 -
-READ NEXT STATUS:0/48
-DATA:SEQ02 -
-READ NEXT STATUS:0/48
-DATA:SEQ03 -
-READ NEXT STATUS:0/48
-DATA:SEQ04 -
-READ NEXT STATUS:0/48
-DATA:SEQ05 -
-READ NEXT STATUS:1/48
-DATA: -
-CLOSE STATUS:0/48
-OPEN STATUS:0/48
-READ NEXT STATUS:0/48
-DATA:TXTA123456-
-READ NEXT STATUS:0/48
-DATA:TXTB123456-
-READ NEXT STATUS:0/48
-DATA:TXTC123456-
-READ NEXT STATUS:0/48
-DATA:TXTD123456-
-READ NEXT STATUS:1/48
-DATA: -
-CLOSE STATUS:0/48
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:10847"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_935
-#AT_START_936
-at_fn_group_banner 936 'run_file.at:10879' \
- "EXTFH: auto-conversion FCD2 <-> FCD3 on 32bit" " " 4
-at_xfail=no
-(
- printf "%s\n" "936. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-# FIXME: check for missing record / file pointer address should be
-# moved to general EXTFH test
-
-printf "%s\n" "run_file.at:10884" >"$at_check_line_file"
-(test "$COB_HAS_64_BIT_POINTER" = "yes") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:10884"
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- DATA DIVISION.
- FILE SECTION.
- WORKING-STORAGE SECTION.
-
- 01 I PIC XX COMP-X.
-
- 01 WS-FCD-DDNAME PIC X(10) VALUE SPACES.
- 01 WS-FCD-PTR POINTER VALUE NULL.
-
- 01 WS-FCD-SIZE PIC 9(04) VALUE 0 COMP-5.
- 01 WS-FCD-FLAGS PIC 9(04) VALUE 0 COMP-5.
-
- 01 DISPLAY-BYTE.
- 05 DISPLAY-XXX PIC X(03).
- 05 DISPLAY-ZZ9 REDEFINES DISPLAY-XXX
- PIC ZZ9.
- 01 ACTION-CODE pic x(2).
- 78 OP-OPEN-INPUT value x"fa00".
- 78 OP-OPEN-OUTPUT value x"fa01".
- 78 OP-OPEN-I-O value x"fa02".
- 78 OP-WRITE value x"faf3".
- 78 OP-RELEASE value x"faf3".
- 78 OP-REWRITE value x"faf4".
- 78 OP-READ-NEXT value x"faf5".
- 78 OP-START-EQUAL value x"fae9".
- 78 OP-CLOSE value x"fa80".
- 78 OP-QUERY-FILE value x"0006".
-
- 01 DISPLAY-A1-XXX PIC X(03).
- 01 DISPLAY-A1-ZZ9 REDEFINES DISPLAY-A1-XXX
- PIC ZZ9.
- 01 DISPLAY-A2-XXX PIC X(03).
- 01 DISPLAY-A2-ZZ9 REDEFINES DISPLAY-A2-XXX
- PIC ZZ9.
-
- 01 FCD-FILENAME PIC X(80) value "test.out".
- 01 FCD-RECORD PIC X(512) value spaces.
-
- LINKAGE SECTION.
-
- 01 FCD-MAP.
- *********************************************
- * FCD2 definition for Callable File Handler *
- *********************************************
- 05 FCD-FILE-STATUS.
- 10 FCD-STATUS-KEY-1 PIC X.
- 10 FCD-STATUS-KEY-2 PIC X.
- 10 FCD-BINARY REDEFINES FCD-STATUS-KEY-2
- PIC X COMP-X.
- 05 FCD-LENGTH PIC XX COMP-X.
- 05 FCD-VERSION PIC X COMP-X.
- 78 FCD-VERSION-NUMBER VALUE 0.
-
- 05 FCD-ORGANIZATION PIC 9(2) COMP-X.
- 78 fcd--line-sequential-org value 0.
- 78 fcd--sequential-org value 1.
- 78 fcd--indexed-org value 2.
- 78 fcd--relative-org value 3.
- 78 fcd--determine-org value 255. *> see opcode 0006
- 05 FCD-ACCESS-MODE PIC 9(2) COMP-X.
- 78 fcd--sequential-access value 0.
- 78 fcd--dup-prime-access value 1.
- 78 fcd--random-access value 4.
- 78 fcd--dynamic-access value 8.
- 78 fcd--status-defined value h"80".
- 05 FCD-OPEN-MODE PIC 9(2) COMP-X.
- 78 fcd--open-input value 0.
- 78 fcd--open-output value 1.
- 78 fcd--open-i-o value 2.
- 78 fcd--open-extend value 3.
- 78 fcd--open-max value 3.
- 78 fcd--open-closed value 128.
- 05 FILLER PIC X(2).
- 05 FCD-BLOCK-SIZE PIC 9(2) COMP-X.
- 05 FCD-NAME-LENGTH PIC 9(4) COMP-X.
- 05 FCD-RELADDR-BIG PIC X(8) COMP-X.
- 05 FILLER PIC X.
- 05 FCD-TRANS-LOG PIC 9(2) COMP-X.
- 05 FILLER PIC X(1).
- 05 FCD-LOCK-MODE PIC 9(2) COMP-X.
- 78 fcd--multilock-bit value h"80".
- 78 fcd--writelock-bit value h"40".
- 78 fcd--retry-open-bit value h"20".
- 78 fcd--skip-lock-bit value h"10".
- 78 fcd--retry-lock-bit value h"08".
- 78 fcd--manual-lock-bit value h"04".
- 78 fcd--auto-lock-bit value h"02".
- 78 fcd--exclusive-bit value h"01".
- 78 fcd--sharing-bits
- value fcd--manual-lock-bit + fcd--auto-lock-bit.
- 05 FCD-OTHER-FLAGS PIC 9(2) COMP-X.
- 78 fcd--optional-file value h"80".
- 78 fcd--nodetectlock-input value h"40".
- 78 fcd--not-optional value h"20".
- 78 fcd--external-name value h"10".
- 78 fcd--get-info value h"08".
- 78 fcd--nodetectlock value h"04".
- 78 fcd--multiple-reel value h"02".
- 78 fcd--line-advancing value h"01".
- 78 fcd--special-sequential
- value fcd--optional-file
- + fcd--multiple-reel + fcd--line-advancing.
- 05 FILLER PIC X(2).
- 05 FCD-HANDLE USAGE POINTER.
- 05 FCD-PERCENT PIC 9(2) COMP-X.
- 05 FCD-REC-COUNT-SET REDEFINES FCD-PERCENT
- PIC 9(2) COMP-X.
- 05 FCD-STATUS-TYPE PIC 9(2) COMP-X.
- 05 FCD-FILE-FORMAT PIC 9(2) COMP-X.
- 05 FILLER PIC X(3).
- 05 FCD-MAX-REC-LENGTH PIC XX COMP-X.
- 05 FILLER PIC X(2).
- 05 FCD-MVS-FLAGS PIC 9(2) COMP-X.
- 05 FCD-RELATIVE-KEY PIC 9(9) COMP-X.
- 05 FCD-RECORDING-MODE PIC 9(2) COMP-X.
- 78 fcd--recmode-fixed value 0.
- 78 fcd--recmode-variable value 1.
- 05 FCD-CURRENT-REC-LEN PIC XX COMP-X.
- 05 FCD-MIN-REC-LENGTH PIC XX COMP-X.
- 05 FCD-KEY-ID PIC 9(4) COMP-X.
- 05 FCD-LINE-COUNT REDEFINES FCD-KEY-ID
- PIC 9(4) COMP-X.
- 05 REDEFINES FCD-KEY-ID.
- 10 FCD-USE-FILES PIC X COMP-X.
- 10 FCD-GIVE-FILES PIC X COMP-X.
- 05 FCD-KEY-LENGTH PIC 9(4) COMP-X.
- 05 FCD-RECORD-ADDRESS USAGE POINTER.
- 05 FCD-FILENAME-ADDRESS USAGE POINTER.
- 05 FCD-KEY-DEF-ADDRESS USAGE POINTER.
- 05 FCD-COL-SEQ-ADDRESS USAGE POINTER.
- 05 FCD-RELADDR-OFFSET PIC 9(9) COMP-X.
- 05 FCD-RELADDR REDEFINES FCD-RELADDR-OFFSET
- PIC 9(9) COMP-X.
- 05 FCD-FILDEF-ADDRESS REDEFINES FCD-RELADDR-OFFSET
- USAGE POINTER.
- 05 FCD-NLS-ID PIC 9(4) COMP-X.
- 05 FCD-DATA-COMPRESS PIC 9(2) COMP-X.
- 05 FCD-SESSION-ID PIC 9(9) COMP-X.
- 05 FCD-FS-FILE-ID PIC 9(4) COMP-X.
- 05 FCD-MAX-REL-KEY PIC 9(9) COMP-X.
- 05 FCD-FLAGS-1 PIC 99 COMP-X.
- 05 FCD-BLOCKING PIC 99 COMP-X.
- 05 FCD-ADDITIONAL-STATUS REDEFINES FCD-BLOCKING
- PIC X COMP-X.
- 05 FCD-LOCKTYPES PIC 99 COMP-X.
- 78 fcd--interlang-locking value h"80".
- 78 fcd--allow-readers value h"40".
- 78 fcd--separate-lock-file value h"20".
- 78 fcd--single-open value h"10".
- 78 fcd--nfs-file-lock value h"08".
- 78 fcd--nfs-file-lock-hp value h"04".
- 78 fcd--nfs-file-locks
- value fcd--nfs-file-lock + fcd--nfs-file-lock-hp.
- 05 FCD-FS-FLAGS PIC 99 COMP-X.
- 05 FCD-CONFIG-FLAGS PIC 99 COMP-X.
- 05 FCD-MISC-FLAGS PIC 99 COMP-X.
- 05 FCD-CONFIG-FLAGS2 PIC 99 COMP-X.
- 05 FCD-IDXCACHE-SIZE PIC 99 COMP-X.
- 05 FCD-IDXCACHE-BUFFS PIC 99 COMP-X.
- 05 FCD-INTERNAL-FLAGS-1 PIC X COMP-X.
- 05 FCD-INTERNAL-FLAGS-2 PIC X COMP-X.
-
- *================================================================*
- PROCEDURE DIVISION.
- *----------------------------------------------------------------*
- 000-MAIN.
-
- PERFORM 100-OPEN.
-
- PERFORM VARYING I FROM 1 BY 1 UNTIL I > 10
- MOVE I TO DISPLAY-A1-ZZ9
- MOVE DISPLAY-A1-ZZ9 TO FCD-RECORD
- MOVE 10 TO FCD-CURRENT-REC-LEN
- IF I = 3 OR 5
- MOVE "Have a great day" TO FCD-RECORD (5:20)
- MOVE 25 TO FCD-CURRENT-REC-LEN
- END-IF
- IF I = 8
- MOVE "Enjoy the show" TO FCD-RECORD (5:20)
- MOVE 19 TO FCD-CURRENT-REC-LEN
- END-IF
- PERFORM 300-WRITE
- END-PERFORM.
-
- PERFORM 400-CLOSE.
-
- MOVE OP-OPEN-INPUT TO ACTION-CODE
- PERFORM 800-CALL-EXTFH
- DISPLAY "Listing " WS-FCD-DDNAME '.'.
- PERFORM VARYING I FROM 1 BY 1 UNTIL I > 10
- PERFORM 350-READ
- DISPLAY FCD-CURRENT-REC-LEN ": "
- FCD-RECORD (1:FCD-CURRENT-REC-LEN) " :"
- END-PERFORM.
- PERFORM 400-CLOSE.
- STOP RUN.
-
- *----------------------------------------------------------------*
- * Process the open request
- *
- 100-OPEN.
-
- MOVE "TESTOUT" TO WS-FCD-DDNAME
-
- MOVE LENGTH OF FCD-MAP TO WS-FCD-SIZE
- DISPLAY "FCD SIZE " WS-FCD-SIZE '.'.
- DISPLAY "Writing " WS-FCD-DDNAME '.'.
-
- IF WS-FCD-PTR EQUAL NULL
- ALLOCATE ws-fcd-size CHARACTERS
- returning WS-FCD-PTR
-
- SET ADDRESS OF FCD-MAP TO WS-FCD-PTR
- MOVE LOW-VALUES TO FCD-MAP
- MOVE WS-FCD-SIZE TO FCD-LENGTH
- MOVE FCD-VERSION-NUMBER TO FCD-VERSION
- MOVE "00" TO FCD-FILE-STATUS
- MOVE FCD--STATUS-DEFINED TO FCD-ACCESS-MODE
- MOVE FCD--OPEN-CLOSED TO FCD-OPEN-MODE
- MOVE FCD--EXTERNAL-NAME TO FCD-OTHER-FLAGS
- SET FCD-HANDLE TO NULL
- MOVE 8 TO FCD-NAME-LENGTH
- SET FCD-FILENAME-ADDRESS TO ADDRESS
- OF WS-FCD-DDNAME
- SET FCD-KEY-DEF-ADDRESS TO NULL
- MOVE FCD--ALLOW-READERS TO FCD-LOCKTYPES
- ELSE
- SET ADDRESS OF FCD-MAP TO WS-FCD-PTR
- IF FCD-OPEN-MODE NOT = fcd--open-closed
- DISPLAY "ERRROR - FILE ALREADY OPEN"
- STOP RUN
- END-IF
- END-IF
-
- MOVE FCD--LINE-SEQUENTIAL-ORG TO FCD-ORGANIZATION
- MOVE FCD--RECMODE-FIXED TO FCD-RECORDING-MODE
- MOVE 10 TO FCD-MIN-REC-LENGTH
- MOVE 50 TO FCD-MAX-REC-LENGTH
-
- * Check for missing record address
- * MOVE OP-OPEN-OUTPUT TO ACTION-CODE
- * PERFORM 800-CALL-EXTFH
-
- SET FCD-RECORD-ADDRESS TO ADDRESS OF FCD-RECORD
- SET FCD-FILENAME-ADDRESS TO NULL
- * Check for missing filename address
- MOVE OP-OPEN-OUTPUT TO ACTION-CODE
- PERFORM 800-CALL-EXTFH
-
- * Now set record address
- SET FCD-RECORD-ADDRESS TO ADDRESS OF FCD-RECORD
- SET FCD-FILENAME-ADDRESS TO ADDRESS OF WS-FCD-DDNAME
- MOVE OP-OPEN-OUTPUT TO ACTION-CODE
- PERFORM 800-CALL-EXTFH
- .
-
- *----------------------------------------------------------------*
- * Process the write request
- *----------------------------------------------------------------*
- 300-WRITE.
- MOVE OP-WRITE TO ACTION-CODE
- PERFORM 800-CALL-EXTFH
- .
-
- *----------------------------------------------------------------*
- * Process the read request
- *----------------------------------------------------------------*
- 350-READ.
- MOVE OP-READ-NEXT TO ACTION-CODE
- PERFORM 800-CALL-EXTFH
- .
-
- *----------------------------------------------------------------*
- * Process the close request
- *----------------------------------------------------------------*
- 400-CLOSE.
- MOVE OP-CLOSE TO ACTION-CODE
- PERFORM 800-CALL-EXTFH
- .
- *----------------------------------------------------------------*
- * External file handler interface -- all I/O goes through here
- *
- 800-CALL-EXTFH.
-
- MOVE "00" TO FCD-FILE-STATUS
- CALL "EXTFH" USING ACTION-CODE, FCD-MAP
-
- IF FCD-STATUS-KEY-1 NOT = "0"
- IF FCD-STATUS-KEY-1 = "9"
- IF FCD-BINARY = 161
- DISPLAY "EXTFH Status: 9/" FCD-BINARY
- DISPLAY "FCD2 is not accepted!"
- STOP RUN
- END-IF
- DISPLAY "EXTFH Status: 9/" FCD-BINARY
- IF FCD-BINARY = 141
- DISPLAY "FCD2 is missing value(s)!"
- END-IF
- ELSE
- DISPLAY "EXTFH Status: " FCD-FILE-STATUS
- END-IF
- END-IF
- IF FCD-STATUS-KEY-1 = "9" AND FCD-BINARY = 199
- MOVE "10" TO FCD-FILE-STATUS
- END-IF
- .
-_ATEOF
-
-
-# FIXME: by default comp-x should not be truncated (see trunk)
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:11203: \$COMPILE -fnotrunc prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fnotrunc prog.cob" "run_file.at:11203"
-( $at_check_trace; $COMPILE -fnotrunc prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:11203"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:11205: TESTOUT=TEST-OUT \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "TESTOUT=TEST-OUT $COBCRUN_DIRECT ./prog" "run_file.at:11205"
-( $at_check_trace; TESTOUT=TEST-OUT $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:293: warning: ERROR: EXTFH called with no filename pointer
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "FCD SIZE 00100.
-Writing TESTOUT .
-EXTFH Status: 9/141
-FCD2 is missing value(s)!
-Listing TESTOUT .
-00003: 1 :
-00003: 2 :
-00020: 3 Have a great day :
-00003: 4 :
-00020: 5 Have a great day :
-00003: 6 :
-00003: 7 :
-00018: 8 Enjoy the show :
-00003: 9 :
-00003: 10 :
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:11205"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-cat >reference <<'_ATEOF'
- 1
- 2
- 3 Have a great day
- 4
- 5 Have a great day
- 6
- 7
- 8 Enjoy the show
- 9
- 10
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:11240: diff reference TEST-OUT"
-at_fn_check_prepare_trace "run_file.at:11240"
-( $at_check_trace; diff reference TEST-OUT
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:11240"
-$at_failed && at_fn_log_failure \
-"TEST-OUT"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_936
-#AT_START_937
-at_fn_group_banner 937 'run_file.at:11245' \
- "RELATIVE Multi-Record" " " 4
-at_xfail=no
-(
- printf "%s\n" "937. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
-
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT FLATFILE ASSIGN EXTERNAL RELVAR
- ORGANIZATION RELATIVE
- ACCESS IS SEQUENTIAL
- RELATIVE KEY IS REC-NUM
- FILE STATUS IS CUST-STAT.
-
- DATA DIVISION.
- FILE SECTION.
- FD FLATFILE
- BLOCK CONTAINS 5 RECORDS.
-
- 01 TSPFL-RECORD.
- 10 CM-CUST-NUM PICTURE X(8).
- 10 CM-TYPE PICTURE X.
- 10 CM-COMPANY PICTURE X(25).
- 10 CM-DISK PICTURE X(8).
- 10 CM-NO-TERMINALS PICTURE 9(4) COMP-4.
- 10 CM-PK-DATE PICTURE S9(14) COMP-3.
- 10 CM-TRAILER PICTURE X(251).
-
- 01 TSP2-RECORD.
- 10 C2-CUST-NUM PICTURE X(8).
- 10 C2-TYPE PICTURE X.
- 10 C2-COMPANY PICTURE X(25).
- 10 C2-ADDRESS PICTURE X(25).
- 10 C2-DISK PICTURE X(8).
- 10 C2-NO-TERMINALS PICTURE 9(4) COMP-4.
- 10 C2-PK-DATE PICTURE S9(14) COMP-3.
-
-
- WORKING-STORAGE SECTION.
-
- 78 MAX-SUB VALUE 6.
- 77 CUST-STAT PICTURE X(2).
- 77 REC-NUM VALUE 1 BINARY-SHORT UNSIGNED.
-
- 01 TEST-DATA.
-
- 02 DATA-CUST-NUM-TBL.
-
- 05 FILLER PIC X(8) VALUE "ALP00000".
- 05 FILLER PIC X(8) VALUE "BET00000".
- 05 FILLER PIC X(8) VALUE "GAM00000".
- 05 FILLER PIC X(8) VALUE "DEL00000".
- 05 FILLER PIC X(8) VALUE "EPS00000".
- 05 FILLER PIC X(8) VALUE "FOR00000".
-
- 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL
- PIC X(8) OCCURS MAX-SUB.
- 02 DATA-COMPANY-TBL.
-
- 05 FILLER PIC X(25) VALUE "ALPHA ELECTRICAL CO. LTD.".
- 05 FILLER PIC X(25) VALUE "BETA SHOE MFG. INC. ".
- 05 FILLER PIC X(25) VALUE "GAMMA X-RAY TECHNOLOGY ".
- 05 FILLER PIC X(25) VALUE "DELTA LUGGAGE REPAIRS ".
- 05 FILLER PIC X(25) VALUE "EPSILON EQUIPMENT SUPPLY ".
- 05 FILLER PIC X(25) VALUE "FORTUNE COOKIE COMPANY ".
- 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL
- PIC X(25) OCCURS MAX-SUB.
- 02 DATA-ADDRESS-2-TBL.
-
- 05 FILLER PIC X(10) VALUE "NEW YORK ".
- 05 FILLER PIC X(10) VALUE "ATLANTA ".
- 05 FILLER PIC X(10) VALUE "WASHINGTON".
- 05 FILLER PIC X(10) VALUE "TORONTO ".
- 05 FILLER PIC X(10) VALUE "CALGARY ".
- 05 FILLER PIC X(10) VALUE "WHITEPLAIN".
-
- 02 DATA-ADDRESS REDEFINES DATA-ADDRESS-2-TBL
- PIC X(10) OCCURS MAX-SUB.
-
- 02 DATA-NO-TERMINALS-TBL.
-
- 05 FILLER PIC 9(3) COMP-3 VALUE 10.
- 05 FILLER PIC 9(3) COMP-3 VALUE 13.
- 05 FILLER PIC 9(3) COMP-3 VALUE 75.
- 05 FILLER PIC 9(3) COMP-3 VALUE 10.
- 05 FILLER PIC 9(3) COMP-3 VALUE 90.
- 05 FILLER PIC 9(3) COMP-3 VALUE 254.
-
- 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL
- PIC 9(3) COMP-3 OCCURS MAX-SUB.
- 01 WORK-AREA.
- 05 SUB BINARY-SHORT UNSIGNED.
- 88 ODD-RECORD VALUE 1 3 5.
-
-
- PROCEDURE DIVISION.
-
- PERFORM LOADFILE.
- OPEN INPUT FLATFILE.
- DISPLAY "Initial Re-Read Open Sts:" CUST-STAT
- PERFORM UNTIL CUST-STAT NOT = "00"
- PERFORM READ-RECORD
- END-PERFORM.
- IF CUST-STAT = "30"
- CLOSE FLATFILE
- STOP RUN
- END-IF
- CLOSE FLATFILE.
-
- OPEN I-O FLATFILE.
- DISPLAY "For Rewrite Open I-O Sts:" CUST-STAT
- PERFORM READ-RECORD
- ADD 1 TO C2-NO-TERMINALS
- REWRITE TSP2-RECORD
- DISPLAY "REWRITE " CM-CUST-NUM " Sts " CUST-STAT
- " Trms:" C2-NO-TERMINALS.
- CLOSE FLATFILE.
-
- OPEN I-O FLATFILE.
- DISPLAY "For Rewrite/Delete Open I-O Sts:" CUST-STAT
- PERFORM READ-RECORD
- ADD 1 TO C2-NO-TERMINALS
- REWRITE TSP2-RECORD
- DISPLAY "REWRITE " CM-CUST-NUM " Sts " CUST-STAT
- " Trms:" C2-NO-TERMINALS.
- PERFORM READ-RECORD
- DELETE FLATFILE
- DISPLAY "DELETE " CM-CUST-NUM " Sts " CUST-STAT.
- CLOSE FLATFILE.
-
- OPEN INPUT FLATFILE.
- DISPLAY "Re-list Open Sts:" CUST-STAT
- PERFORM UNTIL CUST-STAT NOT = "00"
- PERFORM READ-RECORD
- END-PERFORM.
- CLOSE FLATFILE.
-
- OPEN EXTEND FLATFILE.
- PERFORM LOAD-RECORD
- VARYING SUB FROM 1 BY 1
- UNTIL SUB > 2.
- CLOSE FLATFILE.
-
- OPEN INPUT FLATFILE.
- DISPLAY "Re-list afer Extend Open Sts:" CUST-STAT
- PERFORM UNTIL CUST-STAT NOT = "00"
- PERFORM READ-RECORD
- END-PERFORM.
- CLOSE FLATFILE.
- STOP RUN RETURNING 0.
-
- LOADFILE.
- DISPLAY "Loading sample program data file."
- UPON CONSOLE.
-
- OPEN OUTPUT FLATFILE.
-
- PERFORM LOAD-RECORD
- VARYING SUB FROM 1 BY 1
- UNTIL SUB > MAX-SUB.
-
- DISPLAY "Sample program data file load complete."
- UPON CONSOLE.
- CLOSE FLATFILE.
-
- READ-RECORD.
- MOVE SPACES TO TSPFL-RECORD.
- MOVE SPACES TO TSP2-RECORD.
- READ FLATFILE
- IF CUST-STAT NOT = "00"
- DISPLAY "Read Status: " CUST-STAT
- ELSE
- IF CM-TYPE = SPACES
- DISPLAY "Read " CM-CUST-NUM " #:" REC-NUM
- " Trms:" CM-NO-TERMINALS
- ELSE
- DISPLAY "Read2 " C2-CUST-NUM " #:" REC-NUM
- " Trms:" C2-NO-TERMINALS
- END-IF.
- *
- LOAD-RECORD.
- MOVE SPACES TO TSPFL-RECORD.
- MOVE SPACES TO TSP2-RECORD.
- MOVE DATA-CUST-NUM (SUB) TO CM-CUST-NUM.
- MOVE DATA-COMPANY (SUB) TO CM-COMPANY.
- MOVE DATA-NO-TERMINALS (SUB) TO CM-NO-TERMINALS.
- MOVE 20070319 TO CM-PK-DATE.
- IF SUB = 1 OR 4 OR 6
- MOVE -20070319 TO CM-PK-DATE.
- *
- IF ODD-RECORD
- MOVE "8417" TO C2-DISK
- * MOVE CM-CUST-NUM TO C2-CUST-NUM
- MOVE '2' TO C2-TYPE
- * MOVE CM-COMPANY TO C2-COMPANY
- MOVE CM-PK-DATE TO C2-PK-DATE
- MOVE CM-NO-TERMINALS TO C2-NO-TERMINALS
- MOVE DATA-ADDRESS (SUB) TO C2-ADDRESS
- WRITE TSP2-RECORD
- ELSE
- MOVE "8470" TO CM-DISK
- MOVE ' ' TO CM-TYPE
- WRITE TSPFL-RECORD.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:11453: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:11453"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:11453"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:11455: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:11455"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Loading sample program data file.
-Sample program data file load complete.
-Initial Re-Read Open Sts:00
-Read2 ALP00000 #:00001 Trms:0010
-Read BET00000 #:00002 Trms:0013
-Read2 GAM00000 #:00003 Trms:0075
-Read DEL00000 #:00004 Trms:0010
-Read2 EPS00000 #:00005 Trms:0090
-Read FOR00000 #:00006 Trms:0254
-Read Status: 10
-For Rewrite Open I-O Sts:00
-Read2 ALP00000 #:00001 Trms:0010
-REWRITE ALP00000 Sts 00 Trms:0011
-For Rewrite/Delete Open I-O Sts:00
-Read2 ALP00000 #:00001 Trms:0011
-REWRITE ALP00000 Sts 00 Trms:0012
-Read BET00000 #:00002 Trms:0013
-DELETE BET00000 Sts 00
-Re-list Open Sts:00
-Read2 ALP00000 #:00001 Trms:0012
-Read2 GAM00000 #:00003 Trms:0075
-Read DEL00000 #:00004 Trms:0010
-Read2 EPS00000 #:00005 Trms:0090
-Read FOR00000 #:00006 Trms:0254
-Read Status: 10
-Re-list afer Extend Open Sts:00
-Read2 ALP00000 #:00001 Trms:0012
-Read2 GAM00000 #:00003 Trms:0075
-Read DEL00000 #:00004 Trms:0010
-Read2 EPS00000 #:00005 Trms:0090
-Read FOR00000 #:00006 Trms:0254
-Read2 ALP00000 #:00007 Trms:0010
-Read BET00000 #:00008 Trms:0013
-Read Status: 10
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:11455"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_937
-#AT_START_938
-at_fn_group_banner 938 'run_file.at:11495' \
- "INDEXED File READ/DELETE/READ" " " 4
-at_xfail=no
-(
- printf "%s\n" "938. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:11498: \$SKIP_TEST_TEMPORARILY"
-at_fn_check_prepare_dynamic "$SKIP_TEST_TEMPORARILY" "run_file.at:11498"
-( $at_check_trace; $SKIP_TEST_TEMPORARILY
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:11498"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-printf "%s\n" "run_file.at:11499" >"$at_check_line_file"
-(test "$COB_HAS_ISAM" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_file.at:11499"
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
-
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
-
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TSPFILE
- ASSIGN TO EXTERNAL TSPFILE
- ORGANIZATION INDEXED ACCESS DYNAMIC
- RECORD KEY IS CM-CUST-NUM
-
- ALTERNATE RECORD KEY IS SPLIT-KEY2
- SOURCE IS CM-TELEPHONE WITH DUPLICATES
-
- ALTERNATE RECORD KEY IS SPLIT-KEY3
- SOURCE IS CM-DISK,CM-TAPE WITH DUPLICATES
- * SUPPRESS WHEN ALL "*"
- FILE STATUS IS CUST-STAT
- .
-
- DATA DIVISION.
- FILE SECTION.
- FD TSPFILE
- BLOCK CONTAINS 5 RECORDS.
-
- 01 TSPFL-RECORD.
- 05 TSPFL-REC.
- 10 CM-CUST-NUM.
- 15 CM-CUST-PRE PICTURE X(3).
- 15 CM-CUST-NNN PICTURE X(5).
- 10 CM-STATUS PICTURE X.
- 10 CM-COMPANY PICTURE X(25).
- 10 CM-ADDRESS-1 PICTURE X(25).
- 10 CM-ADDRESS-2 PICTURE X(25).
- 10 CM-ADDRESS-3 PICTURE X(25).
- 10 CM-TELEPHONE PICTURE 9(10).
- 10 CM-DP-MGR PICTURE X(25).
- 10 CM-MACHINE PICTURE X(8).
- 10 CM-MEMORY PICTURE X(4).
- 10 CM-DISK PICTURE X(8).
- 10 CM-TAPE PICTURE X(8).
- 10 CM-NO-TERMINALS PICTURE 9(5).
-
- WORKING-STORAGE SECTION.
-
- 01 CUST-STAT.
- 05 STAT-1 PICTURE 9(4) COMP SYNC.
- 05 FILLER REDEFINES STAT-1.
- 10 STAT-X1 PIC X COMP-X.
- 10 STAT-X2 PIC X COMP-X.
- 77 DATA-STAT PICTURE XX.
- 77 ISAM-STAT PICTURE XX.
- 77 BYTE-1 PICTURE 9(3).
- 77 BYTE-2 PICTURE 9(3).
- 78 MAX-SUB VALUE 16.
- 77 SAV-KEY PIC X(8).
-
- 01 TEST-DATA.
-
- 02 DATA-CUST-NUM-TBL.
-
- 05 FILLER PIC X(8) VALUE "ALP00000".
- 05 FILLER PIC X(8) VALUE "BET00000".
- 05 FILLER PIC X(8) VALUE "GAM00000".
- 05 FILLER PIC X(8) VALUE "DEL00000".
- 05 FILLER PIC X(8) VALUE "EPS00000".
- 05 FILLER PIC X(8) VALUE "FOR00000".
- 05 FILLER PIC X(8) VALUE "GIB00000".
- 05 FILLER PIC X(8) VALUE "H&J00000".
- 05 FILLER PIC X(8) VALUE "INC00000".
- 05 FILLER PIC X(8) VALUE "JOH00000".
- 05 FILLER PIC X(8) VALUE "KON00000".
- 05 FILLER PIC X(8) VALUE "LEW00000".
- 05 FILLER PIC X(8) VALUE "MOR00000".
- 05 FILLER PIC X(8) VALUE "NEW00000".
- 05 FILLER PIC X(8) VALUE "OLD00000".
- 05 FILLER PIC X(8) VALUE "PRE00000".
-
- 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL
- PIC X(8) OCCURS MAX-SUB.
- 02 DATA-COMPANY-TBL.
-
- 05 FILLER PIC X(25) VALUE "ALPHA ELECTRICAL CO. LTD.".
- 05 FILLER PIC X(25) VALUE "BETA SHOE MFG. INC. ".
- 05 FILLER PIC X(25) VALUE "GAMMA X-RAY TECHNOLOGY ".
- 05 FILLER PIC X(25) VALUE "DELTA LUGGAGE REPAIRS ".
- 05 FILLER PIC X(25) VALUE "EPSILON EQUIPMENT SUPPLY ".
- 05 FILLER PIC X(25) VALUE "FORTUNE COOKIE COMPANY ".
- 05 FILLER PIC X(25) VALUE "GIBRALTER LIFE INSURANCE ".
- 05 FILLER PIC X(25) VALUE "H & J PLUMBING SUPPLIES ".
- 05 FILLER PIC X(25) VALUE "INCREMENTAL BACKUP CORP. ".
- 05 FILLER PIC X(25) VALUE "JOHNSON BOATING SUPPLIES ".
- 05 FILLER PIC X(25) VALUE "KONFLAB PLASTIC PRODUCTS.".
- 05 FILLER PIC X(25) VALUE "LEWISTON GRAPHICS LTD. ".
- 05 FILLER PIC X(25) VALUE "MORNINGSIDE CARPENTRY. ".
- 05 FILLER PIC X(25) VALUE "NEW WAVE SURF SHOPS INC. ".
- 05 FILLER PIC X(25) VALUE "OLD TYME PIZZA MFG. CO. ".
- 05 FILLER PIC X(25) VALUE "PRESTIGE OFFICE FURNITURE".
-
- 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL
- PIC X(25) OCCURS MAX-SUB.
- 02 DATA-ADDRESS-1-TBL.
-
- 05 FILLER PIC X(25) VALUE "123 MAIN STREET ".
- 05 FILLER PIC X(25) VALUE "1090 2ND AVE. WEST ".
- 05 FILLER PIC X(25) VALUE "1401 JEFFERSON BLVD. ".
- 05 FILLER PIC X(25) VALUE "1620 ARIZONA WAY ".
- 05 FILLER PIC X(25) VALUE "1184 EAST FIRST STREET ".
- 05 FILLER PIC X(25) VALUE "114 JOHN F. KENNEDY AVE. ".
- 05 FILLER PIC X(25) VALUE "650 LIBERTY CRESCENT ".
- 05 FILLER PIC X(25) VALUE "77 SUNSET BLVD. ".
- 05 FILLER PIC X(25) VALUE "10908 SANTA MONICA BLVD. ".
- 05 FILLER PIC X(25) VALUE "1134 PARIS ROAD ".
- 05 FILLER PIC X(25) VALUE "808 NORTHWEST MAIN ST. ".
- 05 FILLER PIC X(25) VALUE "9904 QUEEN STREET ".
- 05 FILLER PIC X(25) VALUE "1709 DUNDAS CRESCENT W. ".
- 05 FILLER PIC X(25) VALUE "3240 MARIS AVENUE ".
- 05 FILLER PIC X(25) VALUE "1705 WISCONSIN ROAD ".
- 05 FILLER PIC X(25) VALUE "114A MAPLE GROVE ".
-
- 02 DATA-ADDRESS-1 REDEFINES DATA-ADDRESS-1-TBL
- PIC X(25) OCCURS MAX-SUB.
- 02 DATA-ADDRESS-2-TBL.
-
- 05 FILLER PIC X(10) VALUE "NEW YORK ".
- 05 FILLER PIC X(10) VALUE "ATLANTA ".
- 05 FILLER PIC X(10) VALUE "WASHINGTON".
- 05 FILLER PIC X(10) VALUE "TORONTO ".
- 05 FILLER PIC X(10) VALUE "CALGARY ".
- 05 FILLER PIC X(10) VALUE "SAN DIEGO ".
- 05 FILLER PIC X(10) VALUE "LOS RIOS ".
- 05 FILLER PIC X(10) VALUE "MADISON ".
- 05 FILLER PIC X(10) VALUE "WILBUR ".
- 05 FILLER PIC X(10) VALUE "TOPEKA ".
- 05 FILLER PIC X(10) VALUE "SEATTLE ".
- 05 FILLER PIC X(10) VALUE "NEW JERSEY".
- 05 FILLER PIC X(10) VALUE "FORT WAYNE".
- 05 FILLER PIC X(10) VALUE "COLUMBUS ".
- 05 FILLER PIC X(10) VALUE "RICHMOND ".
- 05 FILLER PIC X(10) VALUE "WHITEPLAIN".
-
- 02 DATA-ADDRESS-2 REDEFINES DATA-ADDRESS-2-TBL
- PIC X(10) OCCURS MAX-SUB.
- 02 DATA-ADDRESS-3-TBL.
-
- 05 FILLER PIC X(10) VALUE "N.Y. ".
- 05 FILLER PIC X(10) VALUE "GEORGIA ".
- 05 FILLER PIC X(10) VALUE "D.C. ".
- 05 FILLER PIC X(10) VALUE "CANADA ".
- 05 FILLER PIC X(10) VALUE "CANADA ".
- 05 FILLER PIC X(10) VALUE "CALIFORNIA".
- 05 FILLER PIC X(10) VALUE "NEW MEXICO".
- 05 FILLER PIC X(10) VALUE "WISCONSIN ".
- 05 FILLER PIC X(10) VALUE "DELAWARE ".
- 05 FILLER PIC X(10) VALUE "KANSAS ".
- 05 FILLER PIC X(10) VALUE "WASHINGTON".
- 05 FILLER PIC X(10) VALUE "N.J. ".
- 05 FILLER PIC X(10) VALUE "COLORADO ".
- 05 FILLER PIC X(10) VALUE "OHIO ".
- 05 FILLER PIC X(10) VALUE "VIRGINIA ".
- 05 FILLER PIC X(10) VALUE "N.Y. ".
-
- 02 DATA-ADDRESS-3 REDEFINES DATA-ADDRESS-3-TBL
- PIC X(10) OCCURS MAX-SUB.
- 02 DATA-TELEPHONE-TBL.
-
- 05 FILLER PIC 9(10) VALUE 3131234432.
- 05 FILLER PIC 9(10) VALUE 4169898509.
- 05 FILLER PIC 9(10) VALUE 8372487274.
- 05 FILLER PIC 9(10) VALUE 4169898509.
- 05 FILLER PIC 9(10) VALUE 5292398745.
- 05 FILLER PIC 9(10) VALUE 8009329492.
- 05 FILLER PIC 9(10) VALUE 6456445643.
- 05 FILLER PIC 9(10) VALUE 6546456333.
- 05 FILLER PIC 9(10) VALUE 3455445444.
- 05 FILLER PIC 9(10) VALUE 6456445643.
- 05 FILLER PIC 9(10) VALUE 7456434355.
- 05 FILLER PIC 9(10) VALUE 6554456433.
- 05 FILLER PIC 9(10) VALUE 4169898509.
- 05 FILLER PIC 9(10) VALUE 7534587453.
- 05 FILLER PIC 9(10) VALUE 8787458374.
- 05 FILLER PIC 9(10) VALUE 4169898509.
-
- 02 DATA-TELEPHONE REDEFINES DATA-TELEPHONE-TBL
- PIC 9(10) OCCURS MAX-SUB.
- 02 DATA-DP-MGR-TBL.
-
- 05 FILLER PIC X(20) VALUE "MR. DAVE HARRIS ".
- 05 FILLER PIC X(20) VALUE "MS. JANICE SILCOX ".
- 05 FILLER PIC X(20) VALUE "MR. ALLAN JONES ".
- 05 FILLER PIC X(20) VALUE "MR. PETER MACKAY ".
- 05 FILLER PIC X(20) VALUE "MRS. DONNA BREWER ".
- 05 FILLER PIC X(20) VALUE "MR. MICHAEL SMYTHE ".
- 05 FILLER PIC X(20) VALUE "MR. D.A. MORRISON ".
- 05 FILLER PIC X(20) VALUE "MR. BRIAN PATTERSON ".
- 05 FILLER PIC X(20) VALUE "MR. DARRYL TOWNSEND ".
- 05 FILLER PIC X(20) VALUE "MS. VALERIE HARPER ".
- 05 FILLER PIC X(20) VALUE "MR. FRED MILLER ".
- 05 FILLER PIC X(20) VALUE "MR. DONALD FISCHER ".
- 05 FILLER PIC X(20) VALUE "MR. STEVEN YOURDIN ".
- 05 FILLER PIC X(20) VALUE "MS. Goldie Hawn ".
- 05 FILLER PIC X(20) VALUE "MS. ALICE WINSTON ".
- 05 FILLER PIC X(20) VALUE "MR. THOMAS JEFFERSON".
-
- 02 DATA-DP-MGR REDEFINES DATA-DP-MGR-TBL
- PIC X(20) OCCURS MAX-SUB.
- 02 DATA-MACHINE-TBL.
-
- 05 FILLER PIC X(8) VALUE "UNI-9030".
- 05 FILLER PIC X(8) VALUE "UNI-9040".
- 05 FILLER PIC X(8) VALUE "UNI-80/3".
- 05 FILLER PIC X(8) VALUE "UNI-80/5".
- 05 FILLER PIC X(8) VALUE "UNI-80/6".
- 05 FILLER PIC X(8) VALUE "UNI-80/6".
- 05 FILLER PIC X(8) VALUE "UNI-80/6".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-80/8".
- 05 FILLER PIC X(8) VALUE "UNI-9040".
- 05 FILLER PIC X(8) VALUE "UNI-9040".
-
- 02 DATA-MACHINE REDEFINES DATA-MACHINE-TBL
- PIC X(8) OCCURS MAX-SUB.
- 02 DATA-NO-TERMINALS-TBL.
-
- 05 FILLER PIC 9(3) COMP-3 VALUE 85.
- 05 FILLER PIC 9(3) COMP-3 VALUE 34.
- 05 FILLER PIC 9(3) COMP-3 VALUE 75.
- 05 FILLER PIC 9(3) COMP-3 VALUE 45.
- 05 FILLER PIC 9(3) COMP-3 VALUE 90.
- 05 FILLER PIC 9(3) COMP-3 VALUE 107.
- 05 FILLER PIC 9(3) COMP-3 VALUE 67.
- 05 FILLER PIC 9(3) COMP-3 VALUE 32.
- 05 FILLER PIC 9(3) COMP-3 VALUE 16.
- 05 FILLER PIC 9(3) COMP-3 VALUE 34.
- 05 FILLER PIC 9(3) COMP-3 VALUE 128.
- 05 FILLER PIC 9(3) COMP-3 VALUE 64.
- 05 FILLER PIC 9(3) COMP-3 VALUE 110.
- 05 FILLER PIC 9(3) COMP-3 VALUE 324.
- 05 FILLER PIC 9(3) COMP-3 VALUE 124.
- 05 FILLER PIC 9(3) COMP-3 VALUE 86.
-
- 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL
- PIC 9(3) COMP-3 OCCURS MAX-SUB.
-
- 78 REC-MAX VALUE MAX-SUB.
- 01 WORK-AREA.
- 05 REC-NUM BINARY-SHORT UNSIGNED VALUE 0.
- 05 SUB BINARY-SHORT UNSIGNED.
- 88 ODD-RECORD VALUE 1 3 5 7 9 10 11.
- 88 NULL-KEY VALUE 4 5 8 12 14.
-
- 05 TSPFL-KEY PICTURE X(8).
-
- PROCEDURE DIVISION.
-
- MAINFILE.
- DISPLAY "Loading sample data file."
- UPON CONSOLE.
- PERFORM LOADFILE.
- DISPLAY "Sample data file load complete."
- UPON CONSOLE.
- PERFORM LIST-FILE.
- PERFORM LIST-PHONE.
- PERFORM DELSEQ-FILE.
- PERFORM LIST-PHONE.
- PERFORM LOADFILE.
- PERFORM LIST-PHONE.
- PERFORM DELPRV-FILE.
- PERFORM LIST-PHONE.
- * PERFORM DEL-FILE.
- STOP RUN.
-
- LOADFILE.
- OPEN OUTPUT TSPFILE
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "05"
- DIVIDE STAT-1 BY 256 GIVING BYTE-1 REMAINDER BYTE-2
- DISPLAY "Error " CUST-STAT " " BYTE-1 " " BYTE-2
- " opening 'testisam' file"
- UPON CONSOLE
- STOP RUN
- END-IF.
-
- PERFORM 1000-LOAD-RECORD
- VARYING SUB FROM 1 BY 1
- UNTIL SUB > MAX-SUB.
-
- CLOSE TSPFILE.
-
- DEL-FILE.
- DISPLAY "Rewrite sample data file: " CUST-STAT
- UPON CONSOLE.
-
- OPEN I-O TSPFILE
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "05"
- DIVIDE STAT-1 BY 256 GIVING BYTE-1 REMAINDER BYTE-2
- DISPLAY "Error " CUST-STAT " " BYTE-1 " " BYTE-2
- " opening 'testisam' file"
- UPON CONSOLE
- STOP RUN
- END-IF.
- MOVE "DEL00000" TO CM-CUST-NUM
- READ TSPFILE
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " read lock " CM-CUST-NUM
- END-IF
- DELETE TSPFILE
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " delete " CM-CUST-NUM
- END-IF
- MOVE "INC00000" TO CM-CUST-NUM
- READ TSPFILE
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " read lock " CM-CUST-NUM
- END-IF
- DELETE TSPFILE
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " delete " CM-CUST-NUM
- END-IF
-
- DISPLAY "Sample data file rewrite complete."
- UPON CONSOLE.
- CLOSE TSPFILE.
-
- DELSEQ-FILE.
- DISPLAY "Test Read/Delete" UPON CONSOLE.
- MOVE "00" TO CUST-STAT.
- OPEN I-O TSPFILE
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "05"
- DIVIDE STAT-1 BY 256 GIVING BYTE-1 REMAINDER BYTE-2
- DISPLAY "Error " CUST-STAT " " BYTE-1 " " BYTE-2
- " opening 'testisam' file"
- UPON CONSOLE
- STOP RUN
- END-IF.
- MOVE "INC00000" TO CM-CUST-NUM
- READ TSPFILE
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " read " CM-CUST-NUM
- END-IF
- DELETE TSPFILE
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "Error " CUST-STAT " delete " CM-CUST-NUM
- ELSE
- DISPLAY " Delete: " CM-CUST-NUM " random"
- END-IF
- MOVE "ALP00000" TO CM-CUST-NUM
- READ TSPFILE
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "Error " CUST-STAT " read " CM-CUST-NUM
- END-IF
- DELETE TSPFILE
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "Error " CUST-STAT " delete " CM-CUST-NUM
- ELSE
- DISPLAY " Delete: " CM-CUST-NUM " random"
- END-IF
- READ TSPFILE NEXT RECORD
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "Error " CUST-STAT " read " CM-CUST-NUM
- ELSE
- DISPLAY " Read: " CM-CUST-NUM " " CM-TELEPHONE
- END-IF
- MOVE "PRE00000" TO CM-CUST-NUM
- READ TSPFILE
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "Error " CUST-STAT " read " CM-CUST-NUM
- END-IF
- DELETE TSPFILE
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "Error " CUST-STAT " delete " CM-CUST-NUM
- ELSE
- DISPLAY " Delete: " CM-CUST-NUM " random"
- END-IF
- READ TSPFILE NEXT RECORD
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "Expected " CUST-STAT
- " after delete " CM-CUST-NUM
- ELSE
- DISPLAY " Read: " CM-CUST-NUM " " CM-TELEPHONE
- END-IF
-
- MOVE SPACES TO TSPFL-RECORD
- MOVE '4169898509' TO CM-TELEPHONE
- START TSPFILE KEY GREATER THAN OR EQUAL TO SPLIT-KEY2
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " read " CM-CUST-NUM
- END-IF
- PERFORM 4 TIMES
- READ TSPFILE NEXT RECORD
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "Error " CUST-STAT " start " CM-CUST-NUM
- ELSE
- DISPLAY "Initial: " CM-CUST-NUM " " CM-TELEPHONE
- IF CM-TELEPHONE = '4169898509'
- MOVE CM-CUST-NUM TO SAV-KEY
- END-IF
- END-IF
- END-PERFORM
- MOVE SPACES TO TSPFL-RECORD
- MOVE '4169898509' TO CM-TELEPHONE
- START TSPFILE KEY GREATER THAN OR EQUAL TO SPLIT-KEY2
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " read " CM-CUST-NUM
- END-IF
- READ TSPFILE NEXT RECORD
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "Error " CUST-STAT " start " CM-CUST-NUM
- ELSE
- DISPLAY " Start: " CM-CUST-NUM " " CM-TELEPHONE
- END-IF
- READ TSPFILE NEXT RECORD
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "Error " CUST-STAT " read " CM-CUST-NUM
- ELSE
- DISPLAY " Next: " CM-CUST-NUM " " CM-TELEPHONE
- END-IF
- DELETE TSPFILE
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "Error " CUST-STAT " delete " CM-CUST-NUM
- ELSE
- DISPLAY " Delete: " CM-CUST-NUM " sequential"
- END-IF
- READ TSPFILE NEXT RECORD
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "Error " CUST-STAT " read " CM-CUST-NUM
- ELSE
- DISPLAY " Next: " CM-CUST-NUM " " CM-TELEPHONE
- IF CM-CUST-NUM NOT = SAV-KEY
- DISPLAY "Problem! Expected:" SAV-KEY
- END-IF
- END-IF
- READ TSPFILE NEXT RECORD
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "Error " CUST-STAT " read " CM-CUST-NUM
- ELSE
- DISPLAY " Next: " CM-CUST-NUM " " CM-TELEPHONE
- END-IF
- DELETE TSPFILE
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "Error " CUST-STAT " delete " CM-CUST-NUM
- ELSE
- DISPLAY " Delete: " CM-CUST-NUM " sequential"
- END-IF
-
- CLOSE TSPFILE.
-
- DELPRV-FILE.
- DISPLAY "Read Prev/Delete" UPON CONSOLE.
- MOVE "00" TO CUST-STAT.
- OPEN I-O TSPFILE
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "05"
- DIVIDE STAT-1 BY 256 GIVING BYTE-1 REMAINDER BYTE-2
- DISPLAY "Error " CUST-STAT " " BYTE-1 " " BYTE-2
- " opening 'testisam' file"
- UPON CONSOLE
- STOP RUN
- END-IF.
-
- MOVE SPACES TO TSPFL-RECORD
- MOVE '5292398745' TO CM-TELEPHONE
- START TSPFILE KEY LESS THAN SPLIT-KEY2
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " read " CM-CUST-NUM
- END-IF
- PERFORM VARYING REC-NUM FROM 1 BY 1
- UNTIL REC-NUM > 4
- READ TSPFILE PREVIOUS RECORD
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "Error " CUST-STAT " start " CM-CUST-NUM
- ELSE
- DISPLAY REC-NUM " Initial: " CM-CUST-NUM
- " " CM-TELEPHONE
- IF REC-NUM = 3
- MOVE CM-CUST-NUM TO SAV-KEY
- END-IF
- END-IF
- END-PERFORM
- MOVE SPACES TO TSPFL-RECORD
- MOVE '5292398745' TO CM-TELEPHONE
- START TSPFILE KEY LESS THAN SPLIT-KEY2
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " read " CM-CUST-NUM
- END-IF
- READ TSPFILE PREVIOUS RECORD
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "Error " CUST-STAT " start " CM-CUST-NUM
- ELSE
- DISPLAY " Start: " CM-CUST-NUM " " CM-TELEPHONE
- END-IF
- READ TSPFILE PREVIOUS RECORD
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "Error " CUST-STAT " read " CM-CUST-NUM
- ELSE
- DISPLAY " Prev: " CM-CUST-NUM " " CM-TELEPHONE
- END-IF
- DELETE TSPFILE
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "Error " CUST-STAT " delete " CM-CUST-NUM
- ELSE
- DISPLAY " Delete: " CM-CUST-NUM " sequential"
- END-IF
- READ TSPFILE PREVIOUS RECORD
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "Error " CUST-STAT " read prev " CM-CUST-NUM
- CLOSE TSPFILE
- STOP RUN
- ELSE
- DISPLAY " Prev: " CM-CUST-NUM " " CM-TELEPHONE
- IF CM-CUST-NUM NOT = SAV-KEY
- DISPLAY "Problem! Expected:" SAV-KEY
- CLOSE TSPFILE
- STOP RUN
- END-IF
- END-IF
- READ TSPFILE PREVIOUS RECORD
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "Error " CUST-STAT " read prev " CM-CUST-NUM
- ELSE
- DISPLAY " Prev: " CM-CUST-NUM " " CM-TELEPHONE
- END-IF
- DELETE TSPFILE
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "Error " CUST-STAT " delete " CM-CUST-NUM
- ELSE
- DISPLAY " Delete: " CM-CUST-NUM " sequential"
- END-IF
-
- CLOSE TSPFILE.
-
- LIST-FILE.
- DISPLAY "List sample data file"
- UPON CONSOLE.
- MOVE "00" TO CUST-STAT.
- MOVE 0 TO REC-NUM.
- OPEN I-O TSPFILE
- MOVE " " TO CM-CUST-NUM
- START TSPFILE KEY GREATER THAN OR EQUAL TO CM-CUST-NUM
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " read " CM-CUST-NUM
- END-IF
- READ TSPFILE NEXT RECORD
- AT END
- MOVE "99" TO CUST-STAT
- END-READ.
- IF CUST-STAT NOT = "00"
- DISPLAY "Error " CUST-STAT " first read " CM-CUST-NUM
- END-IF
- PERFORM UNTIL CUST-STAT NOT = "00"
- OR REC-NUM > REC-MAX
- DISPLAY "Key: " CM-CUST-NUM " is " CM-COMPANY
- " Disk=" CM-DISK
- "." UPON CONSOLE
- READ TSPFILE NEXT RECORD
- AT END
- MOVE "99" TO CUST-STAT
- END-READ
- ADD 1 TO REC-NUM
- END-PERFORM.
- IF CUST-STAT = "99"
- DISPLAY "Hit End of File" UPON CONSOLE
- END-IF.
- CLOSE TSPFILE.
-
- LIST-PHONE.
- DISPLAY "List sample data file by Phone"
- UPON CONSOLE.
- MOVE "00" TO CUST-STAT.
- MOVE 0 TO REC-NUM.
- OPEN I-O TSPFILE
- MOVE SPACES TO TSPFL-RECORD
- START TSPFILE KEY GREATER THAN OR EQUAL TO SPLIT-KEY2
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "Error " CUST-STAT " read " CM-CUST-NUM
- END-IF
- READ TSPFILE NEXT RECORD
- AT END
- MOVE "99" TO CUST-STAT
- END-READ.
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "Error " CUST-STAT " first read " CM-CUST-NUM
- END-IF
- PERFORM UNTIL CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "Ph=" CM-TELEPHONE
- " Key: " CM-CUST-NUM " is " CM-COMPANY
- "." UPON CONSOLE
- READ TSPFILE NEXT RECORD
- AT END
- MOVE "99" TO CUST-STAT
- END-READ
- ADD 1 TO REC-NUM
- END-PERFORM.
- IF CUST-STAT = "99"
- DISPLAY "Hit End of File" UPON CONSOLE
- END-IF.
- CLOSE TSPFILE.
-
- *---------------------------------------------------------------*
- * LOAD A RECORD FROM DATA TABLES *
- *---------------------------------------------------------------*
-
- 1000-LOAD-RECORD.
-
- MOVE SPACES TO TSPFL-RECORD.
- MOVE DATA-CUST-NUM (SUB) TO CM-CUST-NUM.
- MOVE CM-CUST-NUM TO TSPFL-KEY.
- MOVE DATA-COMPANY (SUB) TO CM-COMPANY.
- MOVE DATA-ADDRESS-1 (SUB) TO CM-ADDRESS-1.
- MOVE DATA-ADDRESS-2 (SUB) TO CM-ADDRESS-2.
- MOVE DATA-ADDRESS-3 (SUB) TO CM-ADDRESS-3.
- MOVE DATA-TELEPHONE (SUB) TO CM-TELEPHONE.
- MOVE DATA-DP-MGR (SUB) TO CM-DP-MGR.
- MOVE DATA-MACHINE (SUB) TO CM-MACHINE.
- MOVE DATA-NO-TERMINALS (SUB) TO CM-NO-TERMINALS.
-
- IF ODD-RECORD
- MOVE "8417" TO CM-DISK
- MOVE "1600 BPI" TO CM-TAPE
- MOVE "1MEG" TO CM-MEMORY
- ELSE
- MOVE "8470" TO CM-DISK
- MOVE "6250 BPI" TO CM-TAPE
- MOVE "3MEG" TO CM-MEMORY.
- IF NULL-KEY
- MOVE ALL "*" TO CM-DISK
- MOVE ALL "*" TO CM-TAPE.
-
- WRITE TSPFL-RECORD
- IF CUST-STAT NOT = "00"
- AND CUST-STAT NOT = "02"
- DISPLAY "WRITE: " TSPFL-KEY ", Status: "
- CUST-STAT UPON CONSOLE
- END-IF.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:12172: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:12172"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:12172"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:12176: \$COBCRUN_DIRECT ./prog 1>prog.out"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog 1>prog.out" "run_file.at:12176"
-( $at_check_trace; $COBCRUN_DIRECT ./prog 1>prog.out
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:12176"
-$at_failed && at_fn_log_failure \
-"prog.out"
-$at_traceon; }
-
-
-cat >reference <<'_ATEOF'
-Loading sample data file.
-Sample data file load complete.
-List sample data file
-Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=8417 .
-Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 .
-Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********.
-Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********.
-Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=8470 .
-Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 .
-Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 .
-Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********.
-Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 .
-Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 .
-Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 .
-Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********.
-Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 .
-Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********.
-Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 .
-Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 .
-Hit End of File
-List sample data file by Phone
-Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD..
-Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. .
-Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. .
-Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS .
-Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. .
-Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE.
-Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY .
-Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE .
-Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES .
-Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES .
-Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. .
-Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS..
-Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. .
-Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY .
-Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY .
-Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. .
-Hit End of File
-Test Read/Delete
- Delete: INC00000 random
- Delete: ALP00000 random
- Read: BET00000 4169898509
- Delete: PRE00000 random
-Expected 10 after delete PRE00000
-Initial: BET00000 4169898509
-Initial: DEL00000 4169898509
-Initial: MOR00000 4169898509
-Initial: EPS00000 5292398745
- Start: BET00000 4169898509
- Next: DEL00000 4169898509
- Delete: DEL00000 sequential
- Next: MOR00000 4169898509
- Next: EPS00000 5292398745
- Delete: EPS00000 sequential
-List sample data file by Phone
-Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. .
-Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. .
-Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE .
-Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES .
-Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES .
-Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. .
-Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS..
-Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. .
-Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY .
-Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY .
-Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. .
-Hit End of File
-List sample data file by Phone
-Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD..
-Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. .
-Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. .
-Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS .
-Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. .
-Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE.
-Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY .
-Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE .
-Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES .
-Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES .
-Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. .
-Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS..
-Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. .
-Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY .
-Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY .
-Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. .
-Hit End of File
-Read Prev/Delete
-00001 Initial: PRE00000 4169898509
-00002 Initial: MOR00000 4169898509
-00003 Initial: DEL00000 4169898509
-00004 Initial: BET00000 4169898509
- Start: PRE00000 4169898509
- Prev: MOR00000 4169898509
- Delete: MOR00000 sequential
- Prev: DEL00000 4169898509
- Prev: BET00000 4169898509
- Delete: BET00000 sequential
-List sample data file by Phone
-Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD..
-Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. .
-Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS .
-Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE.
-Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY .
-Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE .
-Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES .
-Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES .
-Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. .
-Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS..
-Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. .
-Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY .
-Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY .
-Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. .
-Hit End of File
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:12292: diff reference prog.out"
-at_fn_check_prepare_trace "run_file.at:12292"
-( $at_check_trace; diff reference prog.out
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:12292"
-$at_failed && at_fn_log_failure \
-"prog.out"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:12294: \$COMPILE -fcallfh=EXTFH -o extfh prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fcallfh=EXTFH -o extfh prog.cob" "run_file.at:12294"
-( $at_check_trace; $COMPILE -fcallfh=EXTFH -o extfh prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:12294"
-$at_failed && at_fn_log_failure \
-"prog.out"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:12295: \$COBCRUN_DIRECT ./extfh 1>prog.out"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./extfh 1>prog.out" "run_file.at:12295"
-( $at_check_trace; $COBCRUN_DIRECT ./extfh 1>prog.out
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:12295"
-$at_failed && at_fn_log_failure \
-"prog.out"
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:12297: diff reference prog.out"
-at_fn_check_prepare_trace "run_file.at:12297"
-( $at_check_trace; diff reference prog.out
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:12297"
-$at_failed && at_fn_log_failure \
-"prog.out"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_938
-#AT_START_939
-at_fn_group_banner 939 'run_file.at:12302' \
- "TURN EC-I-O" " " 4
-at_xfail=yes
-(
- printf "%s\n" "939. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-
-# FIXME: FUNCTION EXCEPTION-STATUS should be empty when an EC occurs but has been
-# >>TURN'd off.
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT OPTIONAL f ASSIGN "out.txt"
- SEQUENTIAL
- FILE STATUS f-status.
-
- SELECT g ASSIGN "out.txt"
- SEQUENTIAL.
-
- DATA DIVISION.
- FILE SECTION.
- FD f.
- 01 f-rec PIC X.
-
- FD g.
- 01 g-rec PIC X.
-
- WORKING-STORAGE SECTION.
- 01 f-status PIC XX.
-
- PROCEDURE DIVISION.
- OPEN OUTPUT f
- WRITE f-rec FROM "a"
- CLOSE f
-
- SET LAST EXCEPTION TO OFF
- >>TURN EC-I-O CHECKING ON
- *> Read f too many times without libcob error
- OPEN INPUT f
- PERFORM 2 TIMES
- READ f
- DISPLAY f-rec
- END-PERFORM
-
- DISPLAY f-status
- DISPLAY FUNCTION TRIM(FUNCTION EXCEPTION-STATUS)
- SET LAST EXCEPTION TO OFF
-
- CLOSE f
-
- >>TURN EC-I-O g CHECKING ON
-
- *> Read f too many times without libcob error
- OPEN INPUT f
- PERFORM 2 TIMES
- READ f
- DISPLAY f-rec
- END-PERFORM
-
- DISPLAY f-status
- DISPLAY FUNCTION TRIM(FUNCTION EXCEPTION-STATUS)
- SET LAST EXCEPTION TO OFF
-
- CLOSE f
-
- *> Read g too many times with libcob error
- OPEN INPUT g
- PERFORM 2 TIMES
- READ g
- DISPLAY g-rec
- END-PERFORM
-
- CLOSE g
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:12380: \$COMPILE prog.cob "
-at_fn_check_prepare_dynamic "$COMPILE prog.cob " "run_file.at:12380"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:12380"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:12381: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:12381"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:61: error: end of file (status = 10) for file g ('out.txt') on READ
-libcob: prog.cob:61: warning: implicit CLOSE of g ('out.txt')
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "a
-a
-10
-
-a
-a
-10
-
-a
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_file.at:12381"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_939
-#AT_START_940
-at_fn_group_banner 940 'run_file.at:12399' \
- "LINE SEQUENTIAL REWRITE" " " 4
-at_xfail=no
-(
- printf "%s\n" "940. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
-
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT FLATFILE ASSIGN EXTERNAL SEQFIX
- ORGANIZATION LINE SEQUENTIAL
- FILE STATUS IS CUST-STAT .
-
- DATA DIVISION.
- FILE SECTION.
- FD FLATFILE
- BLOCK CONTAINS 5 RECORDS.
-
- 01 TSPFL-RECORD.
- 10 CM-CUST-NUM PICTURE X(8).
- 10 CM-COMPANY PICTURE X(25).
- 10 CM-DISK PICTURE X(8).
- 10 CM-NO-TERMINALS PICTURE 9(5).
- 10 CM-PK-DATE PICTURE S9(14).
- 10 CM-TRAILER PICTURE X(52).
-
- WORKING-STORAGE SECTION.
-
- 78 MAX-SUB VALUE 6.
- 77 CUST-STAT PICTURE X(2).
-
- 01 TEST-DATA.
-
- 02 DATA-CUST-NUM-TBL.
-
- 05 FILLER PIC X(8) VALUE "ALP00000".
- 05 FILLER PIC X(8) VALUE "BET00000".
- 05 FILLER PIC X(8) VALUE "GAM00000".
- 05 FILLER PIC X(8) VALUE "DEL00000".
- 05 FILLER PIC X(8) VALUE "EPS00000".
- 05 FILLER PIC X(8) VALUE "FOR00000".
-
- 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL
- PIC X(8) OCCURS MAX-SUB.
- 02 DATA-COMPANY-TBL.
-
- 05 FILLER PIC X(25) VALUE "ALPHA ELECTRICAL CO. LTD.".
- 05 FILLER PIC X(25) VALUE "BETA SHOE MFG. INC. ".
- 05 FILLER PIC X(25) VALUE "GAMMA X-RAY TECHNOLOGY ".
- 05 FILLER PIC X(25) VALUE "DELTA LUGGAGE REPAIRS ".
- 05 FILLER PIC X(25) VALUE "EPSILON EQUIPMENT SUPPLY ".
- 05 FILLER PIC X(25) VALUE "FORTUNE COOKIE COMPANY ".
- 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL
- PIC X(25) OCCURS MAX-SUB.
- 02 DATA-ADDRESS-2-TBL.
-
- 05 FILLER PIC X(10) VALUE "NEW YORK ".
- 05 FILLER PIC X(10) VALUE "ATLANTA ".
- 05 FILLER PIC X(10) VALUE "WASHINGTON".
- 05 FILLER PIC X(10) VALUE "TORONTO ".
- 05 FILLER PIC X(10) VALUE "CALGARY ".
- 05 FILLER PIC X(10) VALUE "WHITEPLAIN".
-
- 02 DATA-ADDRESS REDEFINES DATA-ADDRESS-2-TBL
- PIC X(10) OCCURS MAX-SUB.
-
- 02 DATA-NO-TERMINALS-TBL.
-
- 05 FILLER PIC 9(5) VALUE 8240.
- 05 FILLER PIC 9(5) VALUE 10.
- 05 FILLER PIC 9(5) VALUE 13.
- 05 FILLER PIC 9(5) VALUE 65535.
- 05 FILLER PIC 9(5) VALUE 10.
- 05 FILLER PIC 9(5) VALUE 254.
-
- 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL
- PIC 9(5) OCCURS MAX-SUB.
- 01 WORK-AREA.
- 05 SUB USAGE BINARY-SHORT UNSIGNED.
- 88 ODD-RECORD VALUE 1 3 5.
-
-
- PROCEDURE DIVISION.
-
- PERFORM LOADFILE.
- OPEN INPUT FLATFILE.
- DISPLAY "Open Sts:" CUST-STAT
- PERFORM READ-RECORD
- PERFORM READ-RECORD
- PERFORM READ-RECORD
- PERFORM READ-RECORD
- CLOSE FLATFILE.
-
- OPEN I-O FLATFILE.
- PERFORM READ-RECORD
- MOVE 10 TO CM-NO-TERMINALS
- MOVE "STUFF" TO CM-TRAILER
- REWRITE TSPFL-RECORD
- DISPLAY "REWRITE " CM-CUST-NUM " Sts " CUST-STAT
- " Trms:" CM-NO-TERMINALS.
- CLOSE FLATFILE.
-
- OPEN I-O FLATFILE.
- PERFORM READ-RECORD
- PERFORM READ-RECORD
- ADD 1 TO CM-NO-TERMINALS
- REWRITE TSPFL-RECORD
- DISPLAY "REWRITE " CM-CUST-NUM " Sts " CUST-STAT
- " Trms:" CM-NO-TERMINALS.
- PERFORM READ-RECORD
- CLOSE FLATFILE.
-
- OPEN I-O FLATFILE.
- READ FLATFILE
- READ FLATFILE
- READ FLATFILE
- READ FLATFILE
- READ FLATFILE
- DISPLAY "Read " CM-CUST-NUM " Sts:" CUST-STAT.
- MOVE 8240 TO CM-NO-TERMINALS
- REWRITE TSPFL-RECORD
- DISPLAY "REWRITE " CM-CUST-NUM " Sts " CUST-STAT
- " Trms:" CM-NO-TERMINALS.
- CLOSE FLATFILE.
-
- OPEN INPUT FLATFILE.
- DISPLAY "List back Open Sts:" CUST-STAT
- PERFORM UNTIL CUST-STAT NOT = "00"
- PERFORM READ-RECORD
- END-PERFORM.
- CLOSE FLATFILE.
-
- OPEN EXTEND FLATFILE.
- PERFORM LOAD-RECORD
- VARYING SUB FROM 1 BY 1
- UNTIL SUB > 2
- CLOSE FLATFILE.
-
- OPEN INPUT FLATFILE.
- DISPLAY "List after extend Open Sts:" CUST-STAT
- PERFORM UNTIL CUST-STAT NOT = "00"
- PERFORM READ-RECORD
- END-PERFORM.
- CLOSE FLATFILE.
- STOP RUN RETURNING 0.
-
- READ-RECORD.
- MOVE SPACES TO TSPFL-RECORD.
- READ FLATFILE
- IF CUST-STAT NOT = "00"
- DISPLAY "Read Status: " CUST-STAT
- ELSE
- DISPLAY "Read " CM-CUST-NUM
- " Trms:" CM-NO-TERMINALS
- END-IF.
-
- LOADFILE.
- DISPLAY "Loading sample program data file."
- UPON CONSOLE.
-
- OPEN OUTPUT FLATFILE.
-
- PERFORM LOAD-RECORD
- VARYING SUB FROM 1 BY 1
- UNTIL SUB > MAX-SUB.
-
- DISPLAY "Sample program data file load complete."
- UPON CONSOLE.
- CLOSE FLATFILE.
-
- LOAD-RECORD.
-
- MOVE SPACES TO TSPFL-RECORD.
- MOVE DATA-CUST-NUM (SUB) TO CM-CUST-NUM.
- MOVE DATA-COMPANY (SUB) TO CM-COMPANY.
- MOVE DATA-NO-TERMINALS (SUB) TO CM-NO-TERMINALS.
- MOVE 20070319 TO CM-PK-DATE.
- IF SUB = 5
- MOVE "Freddy Kruger" TO CM-TRAILER.
- IF SUB = 1 OR 4 OR 6
- MOVE -20070319 TO CM-PK-DATE.
-
- IF ODD-RECORD
- MOVE "8417" TO CM-DISK
- ELSE
- MOVE "8470" TO CM-DISK.
- WRITE TSPFL-RECORD.
- IF CUST-STAT NOT = "00"
- DISPLAY "Write Error " CUST-STAT.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:12593: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:12593"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:12593"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:12595: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:12595"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Loading sample program data file.
-Sample program data file load complete.
-Open Sts:00
-Read ALP00000 Trms:08240
-Read BET00000 Trms:00010
-Read GAM00000 Trms:00013
-Read DEL00000 Trms:65535
-Read ALP00000 Trms:08240
-REWRITE ALP00000 Sts 44 Trms:00010
-Read ALP00000 Trms:08240
-Read BET00000 Trms:00010
-REWRITE BET00000 Sts 00 Trms:00011
-Read GAM00000 Trms:00013
-Read EPS00000 Sts:00
-REWRITE EPS00000 Sts 00 Trms:08240
-List back Open Sts:00
-Read ALP00000 Trms:08240
-Read BET00000 Trms:00011
-Read GAM00000 Trms:00013
-Read DEL00000 Trms:65535
-Read EPS00000 Trms:08240
-Read FOR00000 Trms:00254
-Read Status: 10
-List after extend Open Sts:00
-Read ALP00000 Trms:08240
-Read BET00000 Trms:00011
-Read GAM00000 Trms:00013
-Read DEL00000 Trms:65535
-Read EPS00000 Trms:08240
-Read FOR00000 Trms:00254
-Read ALP00000 Trms:08240
-Read BET00000 Trms:00010
-Read Status: 10
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:12595"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# recheck with COB_SYNC to cover additional code paths
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:12632: COB_SYNC=Y \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_SYNC=Y $COBCRUN_DIRECT ./prog" "run_file.at:12632"
-( $at_check_trace; COB_SYNC=Y $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Loading sample program data file.
-Sample program data file load complete.
-Open Sts:00
-Read ALP00000 Trms:08240
-Read BET00000 Trms:00010
-Read GAM00000 Trms:00013
-Read DEL00000 Trms:65535
-Read ALP00000 Trms:08240
-REWRITE ALP00000 Sts 44 Trms:00010
-Read ALP00000 Trms:08240
-Read BET00000 Trms:00010
-REWRITE BET00000 Sts 00 Trms:00011
-Read GAM00000 Trms:00013
-Read EPS00000 Sts:00
-REWRITE EPS00000 Sts 00 Trms:08240
-List back Open Sts:00
-Read ALP00000 Trms:08240
-Read BET00000 Trms:00011
-Read GAM00000 Trms:00013
-Read DEL00000 Trms:65535
-Read EPS00000 Trms:08240
-Read FOR00000 Trms:00254
-Read Status: 10
-List after extend Open Sts:00
-Read ALP00000 Trms:08240
-Read BET00000 Trms:00011
-Read GAM00000 Trms:00013
-Read DEL00000 Trms:65535
-Read EPS00000 Trms:08240
-Read FOR00000 Trms:00254
-Read ALP00000 Trms:08240
-Read BET00000 Trms:00010
-Read Status: 10
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:12632"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_940
-#AT_START_941
-at_fn_group_banner 941 'run_file.at:12671' \
- "LINE SEQUENTIAL data" " " 4
-at_xfail=no
-(
- printf "%s\n" "941. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
-
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT FLATFILE ASSIGN "LS-TEST"
- ORGANIZATION LINE SEQUENTIAL
- FILE STATUS IS CUST-STAT .
-
- DATA DIVISION.
- FILE SECTION.
- FD FLATFILE
- BLOCK CONTAINS 5 RECORDS.
-
- 01 TSPFL-RECORD.
- 10 CM-CUST-NUM PICTURE X(8).
- 10 CM-TYPE PICTURE X.
- 10 CM-COMPANY PICTURE X(25).
- 10 CM-DISK PICTURE X(8).
- 10 CM-NO-TERMINALS PICTURE 9(4) COMP-4.
- 10 CM-PK-DATE PICTURE S9(14) COMP-3.
-
- WORKING-STORAGE SECTION.
-
- 78 MAX-SUB VALUE 4.
- 77 CUST-STAT PICTURE X(2).
-
- 01 TEST-DATA.
-
- 02 DATA-CUST-NUM-TBL.
- 05 FILLER PIC X(8) VALUE "ALP00000".
- 05 FILLER PIC X(8) VALUE "BET00000".
- 05 FILLER PIC X(8) VALUE "GAM00000".
- 05 FILLER PIC X(8) VALUE "DEL00000".
-
- 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL
- PIC X(8) OCCURS MAX-SUB.
- 02 DATA-COMPANY-TBL.
- 05 FILLER PIC X(25) VALUE "ALPHA ELECTRICAL CO. LTD.".
- 05 FILLER PIC X(25) VALUE "BETA SHOE MFG. INC. ".
- 05 FILLER PIC X(25) VALUE "GAMMA X-RAY TECHNOLOGY ".
- 05 FILLER PIC X(25) VALUE "DELTA LUGGAGE REPAIRS ".
- 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL
- PIC X(25) OCCURS MAX-SUB.
- 02 DATA-ADDRESS-2-TBL.
- 05 FILLER PIC X(10) VALUE "NEW YORK ".
- 05 FILLER PIC X(10) VALUE "ATLANTA ".
- 05 FILLER PIC X(10) VALUE "WASHINGTON".
- 05 FILLER PIC X(10) VALUE "TORONTO ".
- 02 DATA-ADDRESS REDEFINES DATA-ADDRESS-2-TBL
- PIC X(10) OCCURS MAX-SUB.
-
- 02 DATA-NO-TERMINALS-TBL.
- 05 FILLER PIC 9(3) VALUE 10.
- 05 FILLER PIC 9(3) VALUE 13.
- 05 FILLER PIC 9(3) VALUE 3.
- 05 FILLER PIC 9(3) VALUE 254.
- 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL
- PIC 9(3) OCCURS MAX-SUB.
- 01 WORK-AREA.
- 05 SUB BINARY-SHORT UNSIGNED.
- 88 ODD-RECORD VALUE 1 3 5.
-
- PROCEDURE DIVISION.
- * Load file using MF rules
- SET ENVIRONMENT "COB_LS_VALIDATE" TO "FALSE"
- SET ENVIRONMENT "COB_LS_NULLS" TO "TRUE"
- DISPLAY "MF Load data"
- PERFORM LOADFILE.
-
- * Read file using MF rules
- OPEN INPUT FLATFILE.
- DISPLAY "MF Open Sts: " CUST-STAT
- PERFORM UNTIL CUST-STAT NOT = "00"
- PERFORM READ-RECORD
- END-PERFORM.
- CLOSE FLATFILE.
-
- * Read file using Std rules
- SET ENVIRONMENT "COB_LS_VALIDATE" TO "true"
- SET ENVIRONMENT "COB_LS_NULLS" TO "false"
- OPEN INPUT FLATFILE.
- DISPLAY "Std Open Sts: " CUST-STAT
- PERFORM UNTIL CUST-STAT NOT = "00"
- PERFORM READ-RECORD
- END-PERFORM.
- CLOSE FLATFILE.
-
- * Load file using Std rules
- DISPLAY "Std Load data"
- PERFORM LOADFILE.
-
- STOP RUN RETURNING 0.
-
- READ-RECORD.
- * MOVE SPACES TO TSPFL-RECORD.
- READ FLATFILE
- IF CUST-STAT NOT = "00"
- DISPLAY "Read Status: " CUST-STAT
- ELSE
- DISPLAY "Read " CM-CUST-NUM
- " Trms:" CM-NO-TERMINALS
- END-IF.
-
- LOADFILE.
- OPEN OUTPUT FLATFILE.
- PERFORM LOAD-RECORD
- VARYING SUB FROM 1 BY 1
- UNTIL SUB > MAX-SUB
- OR CUST-STAT NOT = "00".
- CLOSE FLATFILE.
-
- LOAD-RECORD.
- MOVE SPACES TO TSPFL-RECORD.
- MOVE DATA-CUST-NUM (SUB) TO CM-CUST-NUM.
- MOVE DATA-COMPANY (SUB) TO CM-COMPANY.
- MOVE DATA-NO-TERMINALS (SUB) TO CM-NO-TERMINALS.
- MOVE 20070319 TO CM-PK-DATE.
- IF SUB = 1 OR 4 OR 6
- MOVE -20070319 TO CM-PK-DATE.
-
- IF ODD-RECORD
- MOVE "8417" TO CM-DISK
- ELSE
- MOVE "8470" TO CM-DISK.
- WRITE TSPFL-RECORD.
- IF CUST-STAT NOT = "00"
- DISPLAY "Error status " CUST-STAT " writing record "
- DATA-CUST-NUM (SUB).
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:12809: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:12809"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:12809"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:12811: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:12811"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "MF Load data
-MF Open Sts: 00
-Read ALP00000 Trms:0010
-Read BET00000 Trms:0013
-Read GAM00000 Trms:0003
-Read DEL00000 Trms:0254
-Read Status: 10
-Std Open Sts: 00
-Read Status: 09
-Std Load data
-Error status 71 writing record ALP00000
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:12811"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_941
-#AT_START_942
-at_fn_group_banner 942 'run_file.at:12828' \
- "Concatenated Files" " " 4
-at_xfail=no
-(
- printf "%s\n" "942. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT FLATFILE
- ASSIGN TO THE-FILE-NAME
- ORGANIZATION LINE SEQUENTIAL
- FILE STATUS IS FLAT-STAT.
-
- DATA DIVISION.
- FILE SECTION.
- FD FLATFILE.
- 01 FLAT-RECORD.
- 10 FILE-NAME PICTURE X(8).
- 10 FLAT-MARK PICTURE X(6).
- 10 FLAT-RECNUM PICTURE X(6).
- 10 FLAT-NUM PICTURE Z9.
- 10 FLAT-FILLER PICTURE X(2).
-
- WORKING-STORAGE SECTION.
- 77 REC-NUM VALUE 0 BINARY-SHORT UNSIGNED.
- 78 MAX-REC VALUE 3.
- 77 FLAT-STAT PICTURE X(2).
- 77 THE-FILE-NAME PICTURE X(48).
-
- PROCEDURE DIVISION.
- MOVE "file1" TO THE-FILE-NAME
- PERFORM LOADFILE.
-
- MOVE "file2" TO THE-FILE-NAME
- PERFORM LOADFILE.
-
- MOVE "file3" TO THE-FILE-NAME
- PERFORM LOADFILE.
-
- MOVE "file1+file2+file3" TO THE-FILE-NAME
- PERFORM UPDTFILE.
-
- SET ENVIRONMENT "COB_SEQ_CONCAT_SEP" TO "&"
- MOVE "file1&file2&file3" TO THE-FILE-NAME
- PERFORM LISTFILE.
- STOP RUN RETURNING 0.
-
- LISTFILE.
- OPEN INPUT FLATFILE.
- IF FLAT-STAT NOT = "00"
- DISPLAY "OPEN INPUT: " THE-FILE-NAME " Sts:" FLAT-STAT
- END-IF.
- PERFORM UNTIL FLAT-STAT NOT = "00"
- PERFORM READ-RECORD
- END-PERFORM.
- CLOSE FLATFILE.
-
- UPDTFILE.
- OPEN I-O FLATFILE.
- IF FLAT-STAT NOT = "00"
- DISPLAY "OPEN I-O: " THE-FILE-NAME " Sts:" FLAT-STAT
- END-IF.
- PERFORM VARYING REC-NUM FROM 1 BY 1
- UNTIL FLAT-STAT NOT = "00"
- MOVE SPACES TO FLAT-RECORD
- READ FLATFILE
- IF REC-NUM = 5
- MOVE "Hello" TO FLAT-MARK
- REWRITE FLAT-RECORD
- IF FLAT-STAT NOT = "00"
- DISPLAY "REWRITE5: " THE-FILE-NAME "Sts:" FLAT-STAT
- END-IF
- END-IF
- IF REC-NUM = 7
- MOVE "$$" TO FLAT-FILLER
- REWRITE FLAT-RECORD
- IF FLAT-STAT NOT = "44"
- * Cannot change size of LINE SEQ record
- DISPLAY "REWRITE7: " THE-FILE-NAME "Sts:" FLAT-STAT
- END-IF
- END-IF
- END-PERFORM.
- CLOSE FLATFILE.
-
- READ-RECORD.
- * MOVE SPACES TO FLAT-RECORD.
- READ FLATFILE
- IF FLAT-STAT NOT = "00"
- IF FLAT-STAT NOT = "10"
- DISPLAY "Read Status: " FLAT-STAT
- END-IF
- ELSE
- DISPLAY FLAT-RECORD "."
- END-IF.
-
- LOADFILE.
- OPEN OUTPUT FLATFILE.
- IF FLAT-STAT NOT = "00"
- DISPLAY "OPEN OUTPUT: " THE-FILE-NAME " Sts:" FLAT-STAT
- END-IF.
- PERFORM LOAD-RECORD VARYING REC-NUM FROM 1 BY 1
- UNTIL REC-NUM > MAX-REC.
- CLOSE FLATFILE.
-
- LOAD-RECORD.
- MOVE SPACES TO FLAT-RECORD.
- MOVE "Record" TO FLAT-RECNUM.
- MOVE THE-FILE-NAME TO FILE-NAME.
- MOVE REC-NUM TO FLAT-NUM.
- WRITE FLAT-RECORD.
- IF FLAT-STAT NOT = "00"
- DISPLAY "Write: " FILE-NAME " Rec#" REC-NUM
- " Sts:" FLAT-STAT
- END-IF.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:12946: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:12946"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:12946"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:12948: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:12948"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OPEN I-O: file1+file2+file3 Sts:35
-OPEN INPUT: file1&file2&file3 Sts:35
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:12948"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:12953: COB_SEQ_CONCAT_NAME=true \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "COB_SEQ_CONCAT_NAME=true $COBCRUN_DIRECT ./prog" "run_file.at:12953"
-( $at_check_trace; COB_SEQ_CONCAT_NAME=true $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "file1 Record 1 .
-file1 Record 2 .
-file1 Record 3 .
-file2 Record 1 .
-file2 Hello Record 2 .
-file2 Record 3 .
-file3 Record 1 .
-file3 Record 2 .
-file3 Record 3 .
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:12953"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_942
-#AT_START_943
-at_fn_group_banner 943 'run_file.at:12972' \
- "File SORT, SEQUENTIAL" " " 4
-at_xfail=no
-(
- printf "%s\n" "943. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# Note: We shouldn't use AT_DATA to create sequential record
-# data, because AT_DATA needs a \n at the end
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT SORT-IN ASSIGN "test.txt".
- SELECT SORT-OUT ASSIGN "result.txt".
- SELECT SORT-WRK ASSIGN "SORT-WRK".
- DATA DIVISION.
- FILE SECTION.
- FD SORT-IN.
- 01 IN-REC PIC X(6).
- FD SORT-OUT.
- 01 OUT-REC PIC X(6).
- SD SORT-WRK.
- 01 WRK-REC PIC X(6).
- PROCEDURE DIVISION.
-
- * Special case: write test data in COBOL, see note above
- OPEN OUTPUT SORT-IN.
- WRITE IN-REC FROM SPACES END-WRITE.
- WRITE IN-REC FROM SPACES END-WRITE.
- WRITE IN-REC FROM "world " END-WRITE.
- WRITE IN-REC FROM SPACES END-WRITE.
- WRITE IN-REC FROM "hello " END-WRITE.
- WRITE IN-REC FROM SPACES END-WRITE.
- WRITE IN-REC FROM SPACES END-WRITE.
- CLOSE SORT-IN.
-
- SORT SORT-WRK
- ASCENDING KEY WRK-REC
- USING SORT-IN
- GIVING SORT-OUT.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13015: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:13015"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13015"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13016: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:13016"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13016"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13017: cat result.txt"
-at_fn_check_prepare_trace "run_file.at:13017"
-( $at_check_trace; cat result.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " hello world " | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13017"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_943
-#AT_START_944
-at_fn_group_banner 944 'run_file.at:13022' \
- "File SORT, SEQUENTIAL variable records" " " 4
-at_xfail=no
-(
- printf "%s\n" "944. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT file1 ORGANIZATION SEQUENTIAL
- ASSIGN "./file1".
- SELECT file2 ORGANIZATION SEQUENTIAL
- ASSIGN "./file2".
- SELECT file3 ASSIGN DISK.
- DATA DIVISION.
- FILE SECTION.
- FD file1 RECORD VARYING FROM 3 TO 12 DEPENDING rsz.
- 1 file1-rec pic x(12).
- FD file2 RECORD VARYING FROM 3 TO 12 DEPENDING rsz.
- 1 file2-rec pic x(12).
- SD file3 RECORD VARYING FROM 3 TO 12 DEPENDING rsz.
- 1 file3-rec.
- 2 file3-key1 pic x.
- 2 file3-key2 pic 9.
- 2 filler pic x(10).
- WORKING-STORAGE SECTION.
- 77 rsz pic 99.
- 1 1-data.
- 2 filler pic x(14) VALUE "03A4X".
- 2 filler pic x(14) VALUE "04A3XX".
- 2 filler pic x(14) VALUE "05A2XXX".
- 2 filler pic x(14) VALUE "06A1XXXX".
- 2 filler pic x(14) VALUE "07A0XXXXX".
- 2 filler pic x(14) VALUE "08B2XXXXXX".
- 2 filler pic x(14) VALUE "09B1XXXXXXX".
- 2 filler pic x(14) VALUE "10C2XXXXXXXX".
- 2 filler pic x(14) VALUE "11C1XXXXXXXXX".
- 2 filler pic x(14) VALUE "12Z9XXXXXXXXXX".
- *
- 1 filler redefines 1-data.
- 2 filler occurs 10 times indexed by ix-1.
- 3 1-rsz pic 99.
- 3 1-rec pic x(12).
-
- PROCEDURE DIVISION.
- OPEN OUTPUT file1.
- PERFORM VARYING ix-1 FROM 1 BY 2 UNTIL ix-1 > 10
- MOVE 1-rsz(ix-1) TO rsz
- MOVE 1-rec(ix-1) TO file1-rec
- WRITE file1-rec
- END-PERFORM.
- PERFORM VARYING ix-1 FROM 2 BY 2 UNTIL ix-1 > 10
- MOVE 1-rsz(ix-1) TO rsz
- MOVE 1-rec(ix-1) TO file1-rec
- WRITE file1-rec
- END-PERFORM.
- CLOSE file1.
- SORT file3 ON ASCENDING file3-key1
- DESCENDING file3-key2
- USING file1
- GIVING file2.
- OPEN INPUT file2.
- PERFORM VARYING ix-1 FROM 1 BY 1 UNTIL ix-1 > 10
- READ file2
- *>> fileio-sort currently returns constant length records
- MOVE 1-rsz(ix-1) TO rsz
- *>> END-OF-DETOUR
- IF (1-rsz(ix-1) <> rsz)
- DISPLAY "FAILED Test " ix-1 ": "
- 1-rsz(ix-1) " <> " rsz
- END-IF
- IF (1-rec(ix-1) <> file2-rec)
- DISPLAY "FAILED Test " ix-1 ": "
- 1-rec(ix-1) " <> " file2-rec
- END-IF
- END-PERFORM.
- CLOSE file2.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13102: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:13102"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13102"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13103: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:13103"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13103"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_944
-#AT_START_945
-at_fn_group_banner 945 'run_file.at:13108' \
- "File SORT, LINE SEQUENTIAL" " " 4
-at_xfail=no
-(
- printf "%s\n" "945. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# Note: We shouldn't use AT_DATA to create sequential record
-# data, because AT_DATA needs a \n at the end
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT SORT-IN ASSIGN "test.txt"
- ORGANISATION LINE SEQUENTIAL.
- SELECT SORT-OUT ASSIGN "result.txt"
- ORGANISATION LINE SEQUENTIAL.
- SELECT SORT-WRK ASSIGN "SORT-WRK".
- DATA DIVISION.
- FILE SECTION.
- FD SORT-IN.
- 01 IN-REC PIC X(20).
- FD SORT-OUT.
- 01 OUT-REC PIC X(20).
- SD SORT-WRK.
- 01 WRK-REC PIC X(6).
- PROCEDURE DIVISION.
-
- * Special case: write test data in COBOL, see note above
- OPEN OUTPUT SORT-IN.
- WRITE IN-REC FROM SPACES END-WRITE.
- WRITE IN-REC FROM SPACES END-WRITE.
- WRITE IN-REC FROM "world " END-WRITE.
- WRITE IN-REC FROM SPACES END-WRITE.
- WRITE IN-REC FROM "hello " END-WRITE.
- WRITE IN-REC FROM SPACES END-WRITE.
- WRITE IN-REC FROM SPACES END-WRITE.
- CLOSE SORT-IN.
-
- SORT SORT-WRK
- ASCENDING KEY WRK-REC
- USING SORT-IN
- GIVING SORT-OUT.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13153: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:13153"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13153"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13154: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:13154"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13154"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13155: cat result.txt"
-at_fn_check_prepare_trace "run_file.at:13155"
-( $at_check_trace; cat result.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "
-
-
-
-
-hello
-world
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13155"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_945
-#AT_START_946
-at_fn_group_banner 946 'run_file.at:13167' \
- "File SORT, LINE SEQUENTIAL same file" " " 4
-at_xfail=no
-(
- printf "%s\n" "946. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >test.txt <<'_ATEOF'
-
-bla
-world
-hello
-
-blubb
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT SORT-IN ASSIGN "test.txt"
- ORGANISATION LINE SEQUENTIAL.
- SELECT SORT-WRK ASSIGN "dummy".
- DATA DIVISION.
- FILE SECTION.
- FD SORT-IN.
- 01 IN-REC PIC X(6).
- SD SORT-WRK.
- 01 sort-entry PIC X(6).
- PROCEDURE DIVISION.
- SORT SORT-WRK
- ASCENDING sort-entry
- USING SORT-IN
- GIVING SORT-IN.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13201: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:13201"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13201"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13202: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:13202"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13202"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13203: cat test.txt"
-at_fn_check_prepare_trace "run_file.at:13203"
-( $at_check_trace; cat test.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "
-
-bla
-blubb
-hello
-world
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13203"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_946
-#AT_START_947
-at_fn_group_banner 947 'run_file.at:13214' \
- "File SORT, LINE SEQUENTIAL variable records" " " 4
-at_xfail=no
-(
- printf "%s\n" "947. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >file1 <<'_ATEOF'
-A1XXXX
-A2XXX
-A3XX
-Z9XXXXXXXXXX
-A4X
-B1XXXXXXX
-B2XXXXXX
-A0XXXXX
-C1XXXXXXXXX
-C2XXXXXXXX
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT file1 ORGANIZATION LINE SEQUENTIAL
- ASSIGN "./file1".
- SELECT file2 ORGANIZATION LINE SEQUENTIAL
- ASSIGN "./file2".
- SELECT file3 ASSIGN DISK.
- DATA DIVISION.
- FILE SECTION.
- FD file1.
- 1 file1-rec pic x(12).
- FD file2.
- 1 file2-rec pic x(12).
- SD file3.
- 1 file3-rec.
- 2 file3-key1 pic x.
- 2 file3-key2 pic 9.
- 2 filler pic x(10).
- PROCEDURE DIVISION.
- SORT file3 ON ASCENDING file3-key1
- DESCENDING file3-key2
- USING file1
- GIVING file2.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13260: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:13260"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13260"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13261: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:13261"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13261"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13262: cat file2"
-at_fn_check_prepare_trace "run_file.at:13262"
-( $at_check_trace; cat file2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "A4X
-A3XX
-A2XXX
-A1XXXX
-A0XXXXX
-B2XXXXXX
-B1XXXXXXX
-C2XXXXXXXX
-C1XXXXXXXXX
-Z9XXXXXXXXXX
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13262"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_947
-#AT_START_948
-at_fn_group_banner 948 'run_file.at:13278' \
- "EXTFH: File SORT, LINE SEQUENTIAL variable records" "" 4
-at_xfail=no
-(
- printf "%s\n" "948. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# same test as above, but this time using an external file handler
-# which in this case is the internal EXTFH handler
-
-cat >file1 <<'_ATEOF'
-A1XXXX
-A2XXX
-A3XX
-Z9XXXXXXXXXX
-A4X
-B1XXXXXXX
-B2XXXXXX
-A0XXXXX
-C1XXXXXXXXX
-C2XXXXXXXX
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT file1 ORGANIZATION LINE SEQUENTIAL
- ASSIGN "./file1".
- SELECT file2 ORGANIZATION LINE SEQUENTIAL
- ASSIGN "./file2".
- SELECT file3 ASSIGN DISK.
- DATA DIVISION.
- FILE SECTION.
- FD file1.
- 1 file1-rec pic x(12).
- FD file2.
- 1 file2-rec pic x(12).
- SD file3.
- 1 file3-rec.
- 2 file3-key1 pic x.
- 2 file3-key2 pic 9.
- 2 filler pic x(10).
- PROCEDURE DIVISION.
- SORT file3 ON ASCENDING file3-key1
- DESCENDING file3-key2
- USING file1
- GIVING file2.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13327: \$COMPILE -fcallfh=EXTFH prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fcallfh=EXTFH prog.cob" "run_file.at:13327"
-( $at_check_trace; $COMPILE -fcallfh=EXTFH prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13327"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13328: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:13328"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13328"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13329: cat file2"
-at_fn_check_prepare_trace "run_file.at:13329"
-( $at_check_trace; cat file2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "A4X
-A3XX
-A2XXX
-A1XXXX
-A0XXXXX
-B2XXXXXX
-B1XXXXXXX
-C2XXXXXXXX
-C1XXXXXXXXX
-Z9XXXXXXXXXX
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13329"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_948
-#AT_START_949
-at_fn_group_banner 949 'run_file.at:13345' \
- "File MERGE, LINE SEQUENTIAL variable records" " " 4
-at_xfail=no
-(
- printf "%s\n" "949. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >file1 <<'_ATEOF'
-A1XXXX
-A2XXX
-A3XX
-Z9XXXXXXXXXX
-A4X
-B1XXXXXXX
-B2XXXXXX
-A0XXXXX
-C1XXXXXXXXX
-C2XXXXXXXX
-_ATEOF
-
-
-cat >file2 <<'_ATEOF'
-A1****
-A2***
-A3**
-Z9**********
-A4*
-B1*******
-B2******
-A0*****
-C1*********
-C2********
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT file1 ORGANIZATION LINE SEQUENTIAL
- ASSIGN "./file1".
- SELECT file2 ORGANIZATION LINE SEQUENTIAL
- ASSIGN "./file2".
- SELECT file3 ORGANIZATION LINE SEQUENTIAL
- ASSIGN "./file3".
- SELECT file4 ASSIGN DISK.
- DATA DIVISION.
- FILE SECTION.
- FD file1.
- 1 file1-rec pic x(12).
- FD file2.
- 1 file2-rec pic x(12).
- FD file3.
- 1 file3-rec pic x(12).
- SD file4.
- 1 file4-rec.
- 2 file4-key1 pic x.
- 2 file4-key2 pic 9.
- 2 filler pic x(10).
- PROCEDURE DIVISION.
- MERGE file4 ON ASCENDING file4-key1
- DESCENDING file4-key2
- USING file1 file2
- GIVING file3.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13408: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:13408"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13408"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13409: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:13409"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13409"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13410: cat file3"
-at_fn_check_prepare_trace "run_file.at:13410"
-( $at_check_trace; cat file3
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "A4X
-A4*
-A3XX
-A3**
-A2XXX
-A2***
-A1XXXX
-A1****
-A0XXXXX
-A0*****
-B2XXXXXX
-B2******
-B1XXXXXXX
-B1*******
-C2XXXXXXXX
-C2********
-C1XXXXXXXXX
-C1*********
-Z9XXXXXXXXXX
-Z9**********
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13410"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_949
-#AT_START_950
-at_fn_group_banner 950 'run_file.at:13436' \
- "SORT nonexistent file" " " 4
-at_xfail=no
-(
- printf "%s\n" "950. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT SORT-IN ASSIGN "SORT-IN".
- SELECT SORT-OUT ASSIGN "SORT-OUT".
- SELECT SORT-WRK ASSIGN "SORT-WRK".
- DATA DIVISION.
- FILE SECTION.
- FD SORT-IN.
- 01 IN-REC PIC X(100).
- FD SORT-OUT.
- 01 OUT-REC PIC X(100).
- SD SORT-WRK.
- 01 WRK-REC PIC X(100).
- PROCEDURE DIVISION.
- SORT SORT-WRK
- ASCENDING KEY WRK-REC
- USING SORT-IN
- GIVING SORT-OUT.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13464: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:13464"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13464"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13465: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:13465"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13465"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13466: cat SORT-OUT"
-at_fn_check_prepare_trace "run_file.at:13466"
-( $at_check_trace; cat SORT-OUT
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13466"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_950
-#AT_START_951
-at_fn_group_banner 951 'run_file.at:13471' \
- "SORT with INPUT/OUTPUT PROCEDUREs" " " 4
-at_xfail=no
-(
- printf "%s\n" "951. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT file1 ASSIGN DISK.
- DATA DIVISION.
- FILE SECTION.
- SD file1.
- 1 file1-rec.
- 2 file1-key pic 9(4).
- 2 file1-data pic x(10).
- WORKING-STORAGE SECTION.
- 77 w-eof pic 9 value 0.
- 1 1-values.
- 2 filler pic x(14) value "0001A--------A".
- 2 filler pic x(14) value "0002B--------B".
- 2 filler pic x(14) value "0003C--------C".
- 2 filler pic x(14) value "0004D--------D".
- 2 filler pic x(14) value "0005E--------E".
- 2 filler pic x(14) value "0006F--------F".
- 2 filler pic x(14) value "0007G--------G".
- 2 filler pic x(14) value "0008H--------H".
- 2 filler pic x(14) value "0009I--------I".
- 2 filler pic x(14) value "0010J--------J".
- 2 filler pic x(14) value "0011K--------K".
- 2 filler pic x(14) value "0012L--------L".
- 2 filler pic x(14) value "0013M--------M".
- 2 filler pic x(14) value "0014N--------N".
- 2 filler pic x(14) value "0015O--------O".
- 2 filler pic x(14) value "0016P--------P".
- 2 filler pic x(14) value "0017Q--------Q".
- 2 filler pic x(14) value "0018R--------R".
- 2 filler pic x(14) value "0019S--------S".
- 2 filler pic x(14) value "0020T--------T".
- 2 filler pic x(14) value "0021U--------U".
- 2 filler pic x(14) value "0022V--------V".
- 2 filler pic x(14) value "0023W--------W".
- 2 filler pic x(14) value "0024X--------X".
- 2 filler pic x(14) value "0025Y--------Y".
- 2 filler pic x(14) value "0026Z--------Z".
- 1 filler redefines 1-values.
- 2 1-record occurs 26 times indexed by ix-1.
- 3 1-key pic 9(4).
- 3 1-data pic x(10).
- PROCEDURE DIVISION.
- a01-main.
- SORT file1 ON ASCENDING file1-key
- INPUT PROCEDURE a02-release-to-sort
- OUTPUT PROCEDURE a03-return-from-sort.
- STOP RUN.
- *
- a02-release-to-sort.
- PERFORM VARYING ix-1 FROM 1 BY 2 UNTIL ix-1 > 26
- RELEASE file1-rec from 1-record(ix-1)
- END-PERFORM.
- PERFORM VARYING ix-1 FROM 2 BY 2 UNTIL ix-1 > 26
- RELEASE file1-rec from 1-record(ix-1)
- END-PERFORM.
- *
- a03-return-from-sort.
- PERFORM VARYING ix-1 FROM 1 BY 1
- UNTIL (ix-1 > 26) OR (w-eof = 1)
- RETURN file1 RECORD
- AT END MOVE 1 TO w-eof
- END-RETURN
- IF (file1-rec <> 1-record(ix-1))
- MOVE 1 TO w-eof
- END-IF
- END-PERFORM.
- IF (w-eof = 1)
- DISPLAY "FAILED: unexpected eof"
- ELSE
- RETURN file1 RECORD
- AT END CONTINUE
- NOT AT END DISPLAY "FAILED: expected eof"
- END-RETURN
- END-IF.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13555: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:13555"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13555"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13556: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:13556"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13556"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_951
-#AT_START_952
-at_fn_group_banner 952 'run_file.at:13561' \
- "SORT with key1 ASCENDING, key2 DESCENDING" " " 4
-at_xfail=no
-(
- printf "%s\n" "952. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >file1 <<'_ATEOF'
-A1
-A2
-A3
-Z9
-A4
-B1
-B2
-A0
-C1
-C2
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT file1 ORGANIZATION LINE SEQUENTIAL
- ASSIGN "./file1".
- SELECT file2 ORGANIZATION LINE SEQUENTIAL
- ASSIGN "./file2".
- SELECT file3 ASSIGN DISK.
- DATA DIVISION.
- FILE SECTION.
- FD file1.
- 1 file1-rec pic xxx.
- FD file2.
- 1 file2-rec pic xxx.
- SD file3.
- 1 file3-rec.
- 2 file3-key1 pic x.
- 2 file3-key2 pic 9.
- 2 file3-dot pic x.
- PROCEDURE DIVISION.
- SORT file3 ON ASCENDING file3-key1
- DESCENDING file3-key2
- USING file1
- GIVING file2.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13607: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:13607"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13607"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13608: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:13608"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13608"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13609: cat file2"
-at_fn_check_prepare_trace "run_file.at:13609"
-( $at_check_trace; cat file2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "A4
-A3
-A2
-A1
-A0
-B2
-B1
-C2
-C1
-Z9
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13609"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_952
-#AT_START_953
-at_fn_group_banner 953 'run_file.at:13628' \
- "Scope of FD GLOBAL in nested programs" " " 4
-at_xfail=no
-(
- printf "%s\n" "953. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. NESTED-FILES.
- PROCEDURE DIVISION.
- CALL "NESTED-PROGRAM-1".
- CALL "NESTED-PROGRAM-2".
- STOP RUN.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. NESTED-PROGRAM-1.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT FILE-EXT ASSIGN "./TEST-FILE" FILE STATUS IS WSFS.
- DATA DIVISION.
- FILE SECTION.
- FD FILE-EXT GLOBAL.
- 01 FILE-EXT-REC PIC X(5).
- WORKING-STORAGE SECTION.
- 01 WSFS PIC X(2).
- PROCEDURE DIVISION.
- DECLARATIVES.
- P01 SECTION.
- USE AFTER ERROR PROCEDURE ON FILE-EXT.
- P0101.
- DISPLAY "ERROR ON FILE-EXT".
- P02 SECTION.
- USE AFTER ERROR PROCEDURE ON OUTPUT.
- P0201.
- DISPLAY "ERROR ON OUTPUT".
- END DECLARATIVES.
- MAIN SECTION.
- OPEN OUTPUT FILE-EXT.
- CALL "NESTED-PROGRAM-1-1".
- * The next line triggers a SILENT error in NESTED-PROGRAM-1-2
- CLOSE FILE-EXT.
- CALL "NESTED-PROGRAM-1-2".
- GOBACK.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. NESTED-PROGRAM-1-1.
- PROCEDURE DIVISION.
- NESTED-PROGRAM .
- WRITE FILE-EXT-REC FROM "Hello".
- DISPLAY "1-1 TRIED TO WRITE".
- GOBACK.
- END PROGRAM NESTED-PROGRAM-1-1.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. NESTED-PROGRAM-1-2.
- PROCEDURE DIVISION.
- NESTED-PROGRAM .
- WRITE FILE-EXT-REC FROM "Hello".
- DISPLAY "1-2 TRIED TO WRITE".
- GOBACK.
- END PROGRAM NESTED-PROGRAM-1-2.
-
- END PROGRAM NESTED-PROGRAM-1.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. NESTED-PROGRAM-2.
- PROCEDURE DIVISION.
- GOBACK.
- END PROGRAM NESTED-PROGRAM-2.
-
- END PROGRAM NESTED-FILES.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13697: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_file.at:13697"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13697"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13698: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_file.at:13698"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "1-1 TRIED TO WRITE
-1-2 TRIED TO WRITE
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13698"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. NESTED-FILES.
- PROCEDURE DIVISION.
- CALL "NESTED-PROGRAM-1".
- CALL "NESTED-PROGRAM-2".
- STOP RUN.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. NESTED-PROGRAM-1.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT FILE-EXT ASSIGN "./TEST-FILE" FILE STATUS IS WSFS.
- DATA DIVISION.
- FILE SECTION.
- FD FILE-EXT GLOBAL.
- 01 FILE-EXT-REC PIC X(5).
- WORKING-STORAGE SECTION.
- 01 WSFS PIC X(2).
- PROCEDURE DIVISION.
- DECLARATIVES.
- P01 SECTION.
- * This one is GLOBAL and should be called from within nested programs
- USE GLOBAL AFTER ERROR PROCEDURE ON FILE-EXT.
- P0101.
- DISPLAY "ERROR ON FILE-EXT".
- P02 SECTION.
- USE AFTER ERROR PROCEDURE ON OUTPUT.
- P0201.
- DISPLAY "ERROR ON OUTPUT".
- END DECLARATIVES.
- MAIN SECTION.
- OPEN OUTPUT FILE-EXT.
- CALL "NESTED-PROGRAM-1-1".
- DISPLAY "CLOSING FILE DESCRIPTOR".
- CLOSE FILE-EXT.
- CALL "NESTED-PROGRAM-1-2".
- GOBACK.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. NESTED-PROGRAM-1-1.
- PROCEDURE DIVISION.
- NESTED-PROGRAM .
- DISPLAY "ENTERING NESTED-PROGRAM-1-1".
- DISPLAY "TRYING TO WRITE".
- WRITE FILE-EXT-REC FROM "Hello".
- DISPLAY "EXITING NESTED-PROGRAM-1-1".
- GOBACK.
- END PROGRAM NESTED-PROGRAM-1-1.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. NESTED-PROGRAM-1-2.
- PROCEDURE DIVISION.
- NESTED-PROGRAM .
- DISPLAY "ENTERING NESTED-PROGRAM-1-2".
- DISPLAY "TRYING TO WRITE".
- WRITE FILE-EXT-REC FROM "Hello".
- DISPLAY "EXITING NESTED-PROGRAM-1-2".
- GOBACK.
- END PROGRAM NESTED-PROGRAM-1-2.
-
- END PROGRAM NESTED-PROGRAM-1.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. NESTED-PROGRAM-2.
- PROCEDURE DIVISION.
- GOBACK.
- END PROGRAM NESTED-PROGRAM-2.
-
- END PROGRAM NESTED-FILES.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13773: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_file.at:13773"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13773"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13774: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "run_file.at:13774"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "ENTERING NESTED-PROGRAM-1-1
-TRYING TO WRITE
-EXITING NESTED-PROGRAM-1-1
-CLOSING FILE DESCRIPTOR
-ENTERING NESTED-PROGRAM-1-2
-TRYING TO WRITE
-ERROR ON FILE-EXT
-EXITING NESTED-PROGRAM-1-2
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13774"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_953
-#AT_START_954
-at_fn_group_banner 954 'run_file.at:13785' \
- "OPEN / CLOSE with multiple filenames" " " 4
-at_xfail=no
-(
- printf "%s\n" "954. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog1.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. DOUBLE-OPEN.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT FILE1 ASSIGN TO "./file1.txt"
- FILE STATUS STAT-FILE1.
- SELECT FILE2 ASSIGN TO "./file2.txt"
- FILE STATUS STAT-FILE2.
- DATA DIVISION.
- FILE SECTION.
- FD FILE1.
- 01 FS-FILE1 PIC X(10).
- FD FILE2.
- 01 FS-FILE2 PIC X(10).
- WORKING-STORAGE SECTION.
- 01 STAT-FILE1 PIC XX.
- 01 STAT-FILE2 PIC XX.
- PROCEDURE DIVISION.
- DECLARATIVES.
- F-FILE1 SECTION. USE AFTER ERROR PROCEDURE ON FILE1.
- DEB-FILE1.
- DISPLAY "ERROR ON FILE1".
- DISPLAY " STAT-FILE1: " STAT-FILE1.
- DISPLAY " STAT-FILE2: " STAT-FILE2.
- F-FILE2 SECTION. USE AFTER ERROR PROCEDURE ON FILE2.
- DEB-FILE2.
- DISPLAY "ERROR ON FILE2".
- DISPLAY " STAT-FILE1: " STAT-FILE1.
- DISPLAY " STAT-FILE2: " STAT-FILE2.
- END DECLARATIVES.
- PROGRAMME SECTION.
- MAIN.
- OPEN INPUT FILE1
- OPEN INPUT FILE2.
- DISPLAY "READ FILE1".
- READ FILE1.
- DISPLAY "READ FILE2".
- READ FILE2.
- DISPLAY "CLOSE FILES".
- CLOSE FILE1.
- CLOSE FILE2.
- DISPLAY "DELETE FILES".
- DELETE FILE FILE1.
- DELETE FILE FILE2.
- STOP RUN.
-_ATEOF
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. DOUBLE-OPEN.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT FILE1 ASSIGN TO "./file1.txt"
- FILE STATUS STAT-FILE1.
- SELECT FILE2 ASSIGN TO "./file2.txt"
- FILE STATUS STAT-FILE2.
- DATA DIVISION.
- FILE SECTION.
- FD FILE1.
- 01 FS-FILE1 PIC X(10).
- FD FILE2.
- 01 FS-FILE2 PIC X(10).
- WORKING-STORAGE SECTION.
- 01 STAT-FILE1 PIC XX.
- 01 STAT-FILE2 PIC XX.
- PROCEDURE DIVISION.
- DECLARATIVES.
- F-FILE1 SECTION. USE AFTER ERROR PROCEDURE ON FILE1.
- DEB-FILE1.
- DISPLAY "ERROR ON FILE1".
- DISPLAY " STAT-FILE1: " STAT-FILE1.
- DISPLAY " STAT-FILE2: " STAT-FILE2.
- F-FILE2 SECTION. USE AFTER ERROR PROCEDURE ON FILE2.
- DEB-FILE2.
- DISPLAY "ERROR ON FILE2".
- DISPLAY " STAT-FILE1: " STAT-FILE1.
- DISPLAY " STAT-FILE2: " STAT-FILE2.
- END DECLARATIVES.
- PROGRAMME SECTION.
- MAIN.
- OPEN INPUT FILE1
- FILE2.
- DISPLAY "READ FILE1".
- READ FILE1.
- DISPLAY "READ FILE2".
- READ FILE2.
- DISPLAY "CLOSE FILES".
- CLOSE FILE1
- FILE2.
- DISPLAY "DELETE FILES".
- DELETE FILE FILE1
- FILE2.
- STOP RUN.
-_ATEOF
-
-
-cat >expected.txt <<'_ATEOF'
-ERROR ON FILE2
- STAT-FILE1: 00
- STAT-FILE2: 35
-READ FILE1
-ERROR ON FILE1
- STAT-FILE1: 10
- STAT-FILE2: 35
-READ FILE2
-ERROR ON FILE2
- STAT-FILE1: 10
- STAT-FILE2: 47
-CLOSE FILES
-ERROR ON FILE2
- STAT-FILE1: 00
- STAT-FILE2: 42
-DELETE FILES
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13904: \$COMPILE prog1.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog1.cob" "run_file.at:13904"
-( $at_check_trace; $COMPILE prog1.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13904"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-: >file1.txt
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13906: \$COBCRUN_DIRECT ./prog1 > prog1.txt"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog1 > prog1.txt" "run_file.at:13906"
-( $at_check_trace; $COBCRUN_DIRECT ./prog1 > prog1.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13906"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13907: diff expected.txt prog1.txt"
-at_fn_check_prepare_trace "run_file.at:13907"
-( $at_check_trace; diff expected.txt prog1.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13907"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13909: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_file.at:13909"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13909"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-: >file1.txt
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13911: \$COBCRUN_DIRECT ./prog2 > prog2.txt"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2 > prog2.txt" "run_file.at:13911"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2 > prog2.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13911"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_file.at:13912: diff expected.txt prog2.txt"
-at_fn_check_prepare_trace "run_file.at:13912"
-( $at_check_trace; diff expected.txt prog2.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_file.at:13912"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_954
-#AT_START_955
-at_fn_group_banner 955 'run_reportwriter.at:23' \
- "Report Line Order" " " 4
-at_xfail=no
-(
- printf "%s\n" "955. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- *>****************************************************************
- *> 11NOV2013 BUG 001 - RWCS Presents RF before it presents the **
- *> last PF **
- *>****************************************************************
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT REPORT-FILE ASSIGN TO EXTERNAL PRINTOUT
- LINE SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD REPORT-FILE
- REPORT IS RWCS-Report.
- WORKING-STORAGE SECTION.
- REPORT SECTION.
- RD RWCS-Report
- PAGE LIMIT 12
- HEADING 1
- FIRST DETAIL 4
- LAST DETAIL 7.
-
- 01 TYPE REPORT HEADING LINE 1.
- 05 COL 1 VALUE 'RH'.
-
- 01 TYPE PAGE HEADING LINE PLUS 1.
- 05 COL 1 VALUE 'PH'.
-
- 01 Detail-Line TYPE DETAIL LINE PLUS 1.
- 05 COL 1 VALUE 'DE'.
-
- 01 TYPE PAGE FOOTING LINE NUMBER 10.
- 05 COL 1 VALUE 'PF'.
-
- 01 TYPE REPORT FOOTING LINE NUMBER PLUS 1.
- 05 COL 1 VALUE 'RF'.
-
- PROCEDURE DIVISION.
- 010-Main SECTION.
- 1. OPEN OUTPUT REPORT-FILE
- INITIATE RWCS-Report
- GENERATE Detail-Line
- GENERATE Detail-Line
- GENERATE Detail-Line
- GENERATE Detail-Line
- GENERATE Detail-Line
- GENERATE Detail-Line
- GENERATE Detail-Line
- GENERATE Detail-Line
- TERMINATE RWCS-Report
- CLOSE REPORT-FILE
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:82: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_reportwriter.at:82"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:82"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:84: DD_PRINTOUT=\"./report.txt\" \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "DD_PRINTOUT=\"./report.txt\" $COBCRUN_DIRECT ./prog" "run_reportwriter.at:84"
-( $at_check_trace; DD_PRINTOUT="./report.txt" $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:84"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-cat >reference <<'_ATEOF'
-RH
-PH
-
-DE
-DE
-DE
-DE
-
-
-PF
-
-PH
-
-
-DE
-DE
-DE
-DE
-
-
-
-PF
-
-RF
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:115: diff reference report.txt"
-at_fn_check_prepare_trace "run_reportwriter.at:115"
-( $at_check_trace; diff reference report.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:115"
-$at_failed && at_fn_log_failure \
-"report.txt"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_955
-#AT_START_956
-at_fn_group_banner 956 'run_reportwriter.at:120' \
- "REPORT COL PLUS" " " 4
-at_xfail=no
-(
- printf "%s\n" "956. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- *>****************************************************************
- *> 11NOV2013 BUG 002 - RWCS Treats "COL PLUS n" the same as **
- *> "COL n". **
- *>****************************************************************
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT REPORT-FILE ASSIGN TO EXTERNAL PRINTOUT
- LINE SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD REPORT-FILE
- REPORT IS RWCS-Report.
- WORKING-STORAGE SECTION.
- REPORT SECTION.
- RD RWCS-Report
- PAGE LIMIT 12
- HEADING 1
- FIRST DETAIL 4
- LAST DETAIL 7.
-
- 01 Detail-Line TYPE DETAIL.
- 05 LINE NUMBER PLUS 1.
- 10 COL 1 PIC X(20) VALUE '12345678901234567890'.
- 10 COL PLUS 3 PIC X(4) VALUE 'ABCD'.
- 10 COL 30 PIC X(1) VALUE '!'.
-
- PROCEDURE DIVISION.
- 010-Main SECTION.
- 1. OPEN OUTPUT REPORT-FILE
- INITIATE RWCS-Report
- GENERATE Detail-Line
- TERMINATE RWCS-Report
- CLOSE REPORT-FILE
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:163: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_reportwriter.at:163"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:163"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:165: DD_PRINTOUT=\"./report.txt\" \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "DD_PRINTOUT=\"./report.txt\" $COBCRUN_DIRECT ./prog" "run_reportwriter.at:165"
-( $at_check_trace; DD_PRINTOUT="./report.txt" $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:165"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-cat >reference <<'_ATEOF'
-
-
-
-12345678901234567890 ABCD !
-
-
-
-
-
-
-
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:184: diff reference report.txt"
-at_fn_check_prepare_trace "run_reportwriter.at:184"
-( $at_check_trace; diff reference report.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:184"
-$at_failed && at_fn_log_failure \
-"report.txt"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_956
-#AT_START_957
-at_fn_group_banner 957 'run_reportwriter.at:189' \
- "Report Overlapping Fields" " " 4
-at_xfail=no
-(
- printf "%s\n" "957. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- *>****************************************************************
- *> 11NOV2013 BUG 003 - RWCS causes "Abort trap 6" if an attempt **
- *> is made to overwrite previous field on **
- *> a line **
- *>****************************************************************
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT REPORT-FILE ASSIGN TO EXTERNAL PRINTOUT
- LINE SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD REPORT-FILE
- REPORT IS RWCS-Report.
- WORKING-STORAGE SECTION.
- REPORT SECTION.
- RD RWCS-Report
- PAGE LIMIT 12
- HEADING 1
- FIRST DETAIL 4
- LAST DETAIL 7.
-
- 01 Detail-Line TYPE DETAIL.
- 05 LINE NUMBER PLUS 1.
- 10 COL 1 PIC X(20) VALUE '12345678901234567890'.
- 10 COL 10 PIC X(4) VALUE 'ABCD'.
-
- PROCEDURE DIVISION.
- 010-Main SECTION.
- 1. OPEN OUTPUT REPORT-FILE
- INITIATE RWCS-Report
- GENERATE Detail-Line
- TERMINATE RWCS-Report
- CLOSE REPORT-FILE
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:232: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_reportwriter.at:232"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:232"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:234: DD_PRINTOUT=\"./report.txt\" \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "DD_PRINTOUT=\"./report.txt\" $COBCRUN_DIRECT ./prog" "run_reportwriter.at:234"
-( $at_check_trace; DD_PRINTOUT="./report.txt" $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:234"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-cat >reference <<'_ATEOF'
-
-
-
-123456789ABCD4567890
-
-
-
-
-
-
-
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:253: diff reference report.txt"
-at_fn_check_prepare_trace "run_reportwriter.at:253"
-( $at_check_trace; diff reference report.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:253"
-$at_failed && at_fn_log_failure \
-"report.txt"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_957
-#AT_START_958
-at_fn_group_banner 958 'run_reportwriter.at:258' \
- "EMPTY REPORT" " " 4
-at_xfail=no
-(
- printf "%s\n" "958. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- *>****************************************************************
- *> 11NOV2013 BUG 004 - RWCS INITIATE TERMINATE W/O GENERATE **
- *> IS NOT SUPPOSED TO PRODUCE ANY OUTPUT **
- *>****************************************************************
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT REPORT-FILE ASSIGN TO EXTERNAL PRINTOUT
- LINE SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD REPORT-FILE
- REPORT IS RWCS-Report.
- WORKING-STORAGE SECTION.
- REPORT SECTION.
- RD RWCS-Report
- PAGE LIMIT 12
- HEADING 1
- FIRST DETAIL 4
- LAST DETAIL 7
- CONTROL IS FINAL.
-
- 01 TYPE REPORT HEADING LINE 1.
- 05 COL 1 VALUE 'RH'.
-
- 01 TYPE PAGE HEADING LINE PLUS 1.
- 05 COL 1 VALUE 'PH'.
-
- 01 Detail-Line TYPE DETAIL LINE PLUS 1.
- 05 COL 1 VALUE 'DE'.
-
- 01 TYPE CONTROL FOOTING FINAL.
- 05 COL 1 VALUE 'CFF'.
-
- 01 TYPE PAGE FOOTING LINE NUMBER 10.
- 05 COL 1 VALUE 'PF'.
-
- 01 TYPE REPORT FOOTING LINE NUMBER 1.
- 05 COL 1 VALUE 'RF'.
-
- PROCEDURE DIVISION.
- 010-Main SECTION.
- 1. OPEN OUTPUT REPORT-FILE
- INITIATE RWCS-Report
- TERMINATE RWCS-Report
- CLOSE REPORT-FILE
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:313: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_reportwriter.at:313"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:313"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:315: DD_PRINTOUT=\"./report.txt\" \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "DD_PRINTOUT=\"./report.txt\" $COBCRUN_DIRECT ./prog" "run_reportwriter.at:315"
-( $at_check_trace; DD_PRINTOUT="./report.txt" $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:315"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-: >reference
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:322: diff reference report.txt"
-at_fn_check_prepare_trace "run_reportwriter.at:322"
-( $at_check_trace; diff reference report.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:322"
-$at_failed && at_fn_log_failure \
-"report.txt"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_958
-#AT_START_959
-at_fn_group_banner 959 'run_reportwriter.at:327' \
- "PAGE LIMIT REPORT" " " 4
-at_xfail=no
-(
- printf "%s\n" "959. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT report-file ASSIGN EXTERNAL PRINTOUT
- ORGANIZATION LINE SEQUENTIAL.
-
- DATA DIVISION.
- FILE SECTION.
- FD report-file REPORT rp.
-
- WORKING-STORAGE SECTION.
- 01 foo PIC X(20).
- 01 hedpos PIC 99 VALUE 10.
-
- REPORT SECTION.
- RD rp PAGE LIMIT 3.
-
- 01 rp-detail TYPE DE.
- 02 LINE + 1.
- 03 COL 1; SOURCE foo, PIC X(30).
- 03 COL + 2 PIC X(6) VALUE "<--->".
-
- PROCEDURE DIVISION.
- OPEN OUTPUT report-file.
- INITIATE rp.
-
- MOVE "hello" TO foo.
- GENERATE rp-detail.
-
- MOVE "goodbye" TO foo.
- GENERATE rp-detail.
-
- TERMINATE rp.
- CLOSE report-file.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:371: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_reportwriter.at:371"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:371"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:373: DD_PRINTOUT=./report.txt \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "DD_PRINTOUT=./report.txt $COBCRUN_DIRECT ./prog" "run_reportwriter.at:373"
-( $at_check_trace; DD_PRINTOUT=./report.txt $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:373"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-cat >reference <<'_ATEOF'
-hello <--->
-goodbye <--->
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:383: diff reference report.txt"
-at_fn_check_prepare_trace "run_reportwriter.at:383"
-( $at_check_trace; diff reference report.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:383"
-$at_failed && at_fn_log_failure \
-"report.txt"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_959
-#AT_START_960
-at_fn_group_banner 960 'run_reportwriter.at:388' \
- "PAGE LIMIT REPORT 2" " " 4
-at_xfail=no
-(
- printf "%s\n" "960. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT report-file ASSIGN EXTERNAL PRINTOUT
- ORGANIZATION LINE SEQUENTIAL.
-
- DATA DIVISION.
- FILE SECTION.
- FD report-file REPORT rp.
-
- WORKING-STORAGE SECTION.
- 01 foo PIC X(20).
-
- REPORT SECTION.
- RD rp PAGE LIMIT 3 LINES.
-
- 01 rp-detail TYPE DE.
- 02 LINE + 1.
- 03 SOURCE foo, PIC X(30).
- 03 COL + 2 PIC X(6) VALUE "<--->".
-
- PROCEDURE DIVISION.
- OPEN OUTPUT report-file.
- INITIATE rp.
-
- MOVE "hello" TO foo.
- GENERATE rp-detail.
-
- MOVE "world" TO foo.
- GENERATE rp-detail.
-
- MOVE "from" TO foo.
- GENERATE rp-detail.
-
- MOVE "REPORT WRITER" TO foo.
- GENERATE rp-detail.
-
- MOVE "goodbye" TO foo.
- GENERATE rp-detail.
-
- TERMINATE rp
- CLOSE report-file.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:440: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_reportwriter.at:440"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:440"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:442: DD_PRINTOUT=./report.txt \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "DD_PRINTOUT=./report.txt $COBCRUN_DIRECT ./prog" "run_reportwriter.at:442"
-( $at_check_trace; DD_PRINTOUT=./report.txt $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:442"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-cat >reference <<'_ATEOF'
-hello <--->
-world <--->
-from <--->
-REPORT WRITER <--->
-goodbye <--->
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:455: diff reference report.txt"
-at_fn_check_prepare_trace "run_reportwriter.at:455"
-( $at_check_trace; diff reference report.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:455"
-$at_failed && at_fn_log_failure \
-"report.txt"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_960
-#AT_START_961
-at_fn_group_banner 961 'run_reportwriter.at:460' \
- "Sample Customer Report" " " 4
-at_xfail=no
-(
- printf "%s\n" "961. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >inp_data <<'_ATEOF'
-0152 J. LANGDON 87653 02475
-0152 J. LANGDON 64025 00945
-0152 J. LANGDON 41915 01370
-0152 J. LANGDON 17410 00251
-2468 L. MORRISEY 18520 00375
-2468 L. MORRISEY 20012 00420
-2468 L. MORRISEY 31572 01015
-2468 L. MORRISEY 48792 03750
-2468 L. MORRISEY 50407 01515
-2468 L. MORRISEY 61575 02010
-2468 L. MORRISEY 79204 05170
-2468 L. MORRISEY 85075 03784
-2468 L. MORRISEY 98476 08794
-3451 M. JACKSON 37847 02790
-3451 M. JACKSON 58492 06850
-3451 M. JACKSON 60010 02040
-3451 M. JACKSON 85260 07852
-3451 M. JACKSON 90520 02752
-4512 S. LEVITT 24680 03050
-4512 S. LEVITT 56784 05253
-4512 S. LEVITT 60410 01215
-4512 S. LEVITT 78952 08925
-4512 S. LEVITT 85278 04975
-4512 S. LEVITT 87492 06425
-4512 S. LEVITT 97204 08475
-5417 K. CONKLIN 13579 03572
-5417 K. CONKLIN 24615 01875
-5417 K. CONKLIN 34928 03745
-5417 K. CONKLIN 48527 08750
-5417 K. CONKLIN 50150 01895
-5417 K. CONKLIN 54652 03892
-5417 K. CONKLIN 59765 09895
-5417 K. CONKLIN 71572 01895
-5417 K. CONKLIN 85175 08010
-5417 K. CONKLIN 90275 00460
-5417 K. CONKLIN 91572 01857
-5417 K. CONKLIN 97576 08495
-6213 Z. HAMPTON 15792 06425
-6213 Z. HAMPTON 19975 09875
-6213 Z. HAMPTON 34576 05115
-6213 Z. HAMPTON 49512 08520
-7545 M. LARSON 14676 03845
-7545 M. LARSON 18592 08251
-7545 M. LARSON 19994 09898
-7545 M. LARSON 21214 01515
-7545 M. LARSON 37515 08212
-7545 M. LARSON 38592 09615
-7545 M. LARSON 48485 08714
-7545 M. LARSON 52762 03792
-7545 M. LARSON 57684 08015
-7545 M. LARSON 79015 09625
-7545 M. LARSON 80123 00560
-7545 M. LARSON 82462 02015
-7545 M. LARSON 91520 01815
-7545 M. LARSON 93715 04015
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- * ************************************************************* *
- * REPORT WRITER EXAMPLE #1. *
- * ************************************************************* *
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
-
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
-
- SELECT TRANSACTION-DATA
- ASSIGN TO EXTERNAL DATAIN
- ORGANIZATION IS LINE SEQUENTIAL.
-
- SELECT REPORT-FILE
- ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT.
-
- DATA DIVISION.
- FILE SECTION.
-
- FD TRANSACTION-DATA.
-
- 01 TRANSACTION-RECORD.
- 03 TR-CUSTOMER-NUMBER PIC 9(04).
- 03 FILLER PIC X(01).
- 03 TR-CUSTOMER-NAME PIC X(16).
- 03 FILLER PIC X(01).
- 03 TR-ITEM-NUMBER PIC 9(05).
- 03 FILLER REDEFINES TR-ITEM-NUMBER.
- 05 TR-ITEM-DEPARTMENT PIC 9(01).
- 05 FILLER PIC 9(04).
- 03 FILLER PIC X(01).
- 03 TR-ITEM-COST PIC 9(03)V99.
- 03 FILLER PIC X(47).
-
- FD REPORT-FILE
- REPORT IS CUSTOMER-REPORT.
-
- WORKING-STORAGE SECTION.
- 77 END-OF-FILE-SWITCH PIC X(1) VALUE 'N'.
- 88 END-OF-FILE VALUE 'Y'.
-
- REPORT SECTION.
- RD CUSTOMER-REPORT
- PAGE LIMIT IS 66 LINES
- HEADING 1
- FIRST DETAIL 5
- LAST DETAIL 58.
-
- 01 PAGE-HEAD-GROUP TYPE PAGE HEADING.
- 02 LINE 1.
- 03 COLUMN 27 PIC X(41) VALUE
- 'C U S T O M E R C H A R G E R E P O R T'.
- 02 LINE PLUS 2.
- 03 COLUMN 01 PIC X(09) VALUE 'CUST. NO.'.
- 03 COLUMN 15 PIC X(10) VALUE 'CUST. NAME'.
- 03 COLUMN 30 PIC X(05) VALUE 'DEPT.'.
- 03 COLUMN 39 PIC X(08) VALUE 'ITEM NO.'.
- 03 COLUMN 51 PIC X(09) VALUE 'ITEM COST'.
-
- 01 CHARGE-DETAIL TYPE DETAIL.
- 02 LINE PLUS 1.
- 03 COLUMN 03 PIC Z(04) SOURCE TR-CUSTOMER-NUMBER.
- 03 COLUMN 10 PIC X(16) SOURCE TR-CUSTOMER-NAME.
- 03 COLUMN 32 PIC 9(01) SOURCE TR-ITEM-DEPARTMENT.
- 03 COLUMN 40 PIC 9(05) SOURCE TR-ITEM-NUMBER.
- 03 COLUMN 51 PIC $$$$.99 SOURCE TR-ITEM-COST.
-
- PROCEDURE DIVISION.
-
- 000-INITIATE.
-
- OPEN INPUT TRANSACTION-DATA,
- OUTPUT REPORT-FILE.
-
- INITIATE CUSTOMER-REPORT.
-
- READ TRANSACTION-DATA
- AT END
- MOVE 'Y' TO END-OF-FILE-SWITCH.
- * END-READ.
-
- PERFORM 100-PROCESS-TRANSACTION-DATA THRU 199-EXIT
- UNTIL END-OF-FILE.
-
- 000-TERMINATE.
- TERMINATE CUSTOMER-REPORT.
-
- CLOSE TRANSACTION-DATA,
- REPORT-FILE.
-
- STOP RUN.
-
- 100-PROCESS-TRANSACTION-DATA.
- GENERATE CHARGE-DETAIL.
- READ TRANSACTION-DATA
- AT END
- MOVE 'Y' TO END-OF-FILE-SWITCH.
- * END-READ.
-
- 199-EXIT.
- EXIT.
-
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:630: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_reportwriter.at:630"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:630"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:632: DD_DATAIN=\"./inp_data\" DD_SYSPRINT=\"./report.txt\" \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "DD_DATAIN=\"./inp_data\" DD_SYSPRINT=\"./report.txt\" $COBCRUN_DIRECT ./prog" "run_reportwriter.at:632"
-( $at_check_trace; DD_DATAIN="./inp_data" DD_SYSPRINT="./report.txt" $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:632"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-cat >reference <<'_ATEOF'
- C U S T O M E R C H A R G E R E P O R T
-
-CUST. NO. CUST. NAME DEPT. ITEM NO. ITEM COST
-
- 152 J. LANGDON 8 87653 $24.75
- 152 J. LANGDON 6 64025 $9.45
- 152 J. LANGDON 4 41915 $13.70
- 152 J. LANGDON 1 17410 $2.51
- 2468 L. MORRISEY 1 18520 $3.75
- 2468 L. MORRISEY 2 20012 $4.20
- 2468 L. MORRISEY 3 31572 $10.15
- 2468 L. MORRISEY 4 48792 $37.50
- 2468 L. MORRISEY 5 50407 $15.15
- 2468 L. MORRISEY 6 61575 $20.10
- 2468 L. MORRISEY 7 79204 $51.70
- 2468 L. MORRISEY 8 85075 $37.84
- 2468 L. MORRISEY 9 98476 $87.94
- 3451 M. JACKSON 3 37847 $27.90
- 3451 M. JACKSON 5 58492 $68.50
- 3451 M. JACKSON 6 60010 $20.40
- 3451 M. JACKSON 8 85260 $78.52
- 3451 M. JACKSON 9 90520 $27.52
- 4512 S. LEVITT 2 24680 $30.50
- 4512 S. LEVITT 5 56784 $52.53
- 4512 S. LEVITT 6 60410 $12.15
- 4512 S. LEVITT 7 78952 $89.25
- 4512 S. LEVITT 8 85278 $49.75
- 4512 S. LEVITT 8 87492 $64.25
- 4512 S. LEVITT 9 97204 $84.75
- 5417 K. CONKLIN 1 13579 $35.72
- 5417 K. CONKLIN 2 24615 $18.75
- 5417 K. CONKLIN 3 34928 $37.45
- 5417 K. CONKLIN 4 48527 $87.50
- 5417 K. CONKLIN 5 50150 $18.95
- 5417 K. CONKLIN 5 54652 $38.92
- 5417 K. CONKLIN 5 59765 $98.95
- 5417 K. CONKLIN 7 71572 $18.95
- 5417 K. CONKLIN 8 85175 $80.10
- 5417 K. CONKLIN 9 90275 $4.60
- 5417 K. CONKLIN 9 91572 $18.57
- 5417 K. CONKLIN 9 97576 $84.95
- 6213 Z. HAMPTON 1 15792 $64.25
- 6213 Z. HAMPTON 1 19975 $98.75
- 6213 Z. HAMPTON 3 34576 $51.15
- 6213 Z. HAMPTON 4 49512 $85.20
- 7545 M. LARSON 1 14676 $38.45
- 7545 M. LARSON 1 18592 $82.51
- 7545 M. LARSON 1 19994 $98.98
- 7545 M. LARSON 2 21214 $15.15
- 7545 M. LARSON 3 37515 $82.12
- 7545 M. LARSON 3 38592 $96.15
- 7545 M. LARSON 4 48485 $87.14
- 7545 M. LARSON 5 52762 $37.92
- 7545 M. LARSON 5 57684 $80.15
- 7545 M. LARSON 7 79015 $96.25
- 7545 M. LARSON 8 80123 $5.60
- 7545 M. LARSON 8 82462 $20.15
- 7545 M. LARSON 9 91520 $18.15
-
-
-
-
-
-
-
- C U S T O M E R C H A R G E R E P O R T
-
-CUST. NO. CUST. NAME DEPT. ITEM NO. ITEM COST
-
- 7545 M. LARSON 9 93715 $40.15
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:770: diff reference report.txt"
-at_fn_check_prepare_trace "run_reportwriter.at:770"
-( $at_check_trace; diff reference report.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:770"
-$at_failed && at_fn_log_failure \
-"report.txt"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_961
-#AT_START_962
-at_fn_group_banner 962 'run_reportwriter.at:775' \
- "Sample Charge Report" " " 4
-at_xfail=no
-(
- printf "%s\n" "962. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >inp_data <<'_ATEOF'
-0152 J. LANGDON 87653 02475
-0152 J. LANGDON 64025 00945
-0152 J. LANGDON 41915 01370
-0152 J. LANGDON 17410 00251
-2468 L. MORRISEY 18520 00375
-2468 L. MORRISEY 20012 00420
-2468 L. MORRISEY 31572 01015
-2468 L. MORRISEY 48792 03750
-2468 L. MORRISEY 50407 01515
-2468 L. MORRISEY 61575 02010
-2468 L. MORRISEY 79204 05170
-2468 L. MORRISEY 85075 03784
-2468 L. MORRISEY 98476 08794
-3451 M. JACKSON 37847 02790
-3451 M. JACKSON 58492 06850
-3451 M. JACKSON 60010 02040
-3451 M. JACKSON 85260 07852
-3451 M. JACKSON 90520 02752
-4512 S. LEVITT 24680 03050
-4512 S. LEVITT 56784 05253
-4512 S. LEVITT 60410 01215
-4512 S. LEVITT 78952 08925
-4512 S. LEVITT 85278 04975
-4512 S. LEVITT 87492 06425
-4512 S. LEVITT 97204 08475
-5417 K. CONKLIN 13579 03572
-5417 K. CONKLIN 24615 01875
-5417 K. CONKLIN 34928 03745
-5417 K. CONKLIN 48527 08750
-5417 K. CONKLIN 50150 01895
-5417 K. CONKLIN 54652 03892
-5417 K. CONKLIN 59765 09895
-5417 K. CONKLIN 71572 01895
-5417 K. CONKLIN 85175 08010
-5417 K. CONKLIN 90275 00460
-5417 K. CONKLIN 91572 01857
-5417 K. CONKLIN 97576 08495
-6213 Z. HAMPTON 15792 06425
-6213 Z. HAMPTON 19975 09875
-6213 Z. HAMPTON 34576 05115
-6213 Z. HAMPTON 49512 08520
-7545 M. LARSON 14676 03845
-7545 M. LARSON 18592 08251
-7545 M. LARSON 19994 09898
-7545 M. LARSON 21214 01515
-7545 M. LARSON 37515 08212
-7545 M. LARSON 38592 09615
-7545 M. LARSON 48485 08714
-7545 M. LARSON 52762 03792
-7545 M. LARSON 57684 08015
-7545 M. LARSON 79015 09625
-7545 M. LARSON 80123 00560
-7545 M. LARSON 82462 02015
-7545 M. LARSON 91520 01815
-7545 M. LARSON 93715 04015
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- * ************************************************************* *
- * REPORT WRITER EXAMPLE #2. *
- * ************************************************************* *
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
-
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
-
- SELECT TRANSACTION-DATA
- ASSIGN TO EXTERNAL DATAIN
- ORGANIZATION IS LINE SEQUENTIAL.
-
- SELECT REPORT-FILE
- ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT.
-
- DATA DIVISION.
- FILE SECTION.
-
- FD TRANSACTION-DATA.
-
- 01 TRANSACTION-RECORD.
- 03 TR-CUSTOMER-NUMBER PIC 9(04).
- 03 FILLER PIC X(01).
- 03 TR-CUSTOMER-NAME PIC X(16).
- 03 FILLER PIC X(01).
- 03 TR-ITEM-NUMBER PIC 9(05).
- 03 FILLER REDEFINES TR-ITEM-NUMBER.
- 05 TR-ITEM-DEPARTMENT PIC 9(01).
- 05 FILLER PIC 9(04).
- 03 FILLER PIC X(01).
- 03 TR-ITEM-COST PIC 9(03)V99.
- 03 FILLER PIC X(47).
-
- FD REPORT-FILE
- REPORT IS CUSTOMER-REPORT.
-
- WORKING-STORAGE SECTION.
- 77 END-OF-FILE-SWITCH PIC X(1) VALUE 'N'.
- 88 END-OF-FILE VALUE 'Y'.
-
- 01 DISCOUNT-TABLE.
- 02 FILLER PIC 99 VALUE 05.
- 02 FILLER PIC 99 VALUE 07.
- 02 FILLER PIC 99 VALUE 10.
- 02 FILLER PIC 99 VALUE 15.
- 02 FILLER PIC 99 VALUE 06.
- 02 FILLER PIC 99 VALUE 22.
- 02 FILLER PIC 99 VALUE 12.
- 02 FILLER PIC 99 VALUE 09.
- 02 FILLER PIC 99 VALUE 20.
- 01 FILLER REDEFINES DISCOUNT-TABLE.
- 02 DISCOUNT OCCURS 9 TIMES
- INDEXED BY DISCOUNT-IX
- PIC V99.
-
- 01 CALCULATED-FIELDS.
- 03 WS-DISCOUNT-AMT PIC 9(3)V99.
- 03 WS-CHARGE-AMT PIC 9(3)V99.
-
- REPORT SECTION.
- RD CUSTOMER-REPORT
- CONTROL IS TR-CUSTOMER-NUMBER
- PAGE LIMIT IS 66 LINES
- HEADING 1
- FIRST DETAIL 5
- LAST DETAIL 58.
-
- 01 PAGE-HEAD-GROUP TYPE PAGE HEADING.
- 02 LINE 1.
- 03 COLUMN 27 PIC X(41) VALUE
- 'C U S T O M E R C H A R G E R E P O R T'.
- 03 COLUMN 90 PIC X(04) VALUE 'PAGE'.
- 03 COLUMN 95 PIC ZZZZ9 SOURCE PAGE-COUNTER.
- 02 LINE PLUS 2.
- 03 COLUMN 01 PIC X(09) VALUE 'CUST. NO.'.
- 03 COLUMN 15 PIC X(10) VALUE 'CUST. NAME'.
- 03 COLUMN 30 PIC X(05) VALUE 'DEPT.'.
- 03 COLUMN 39 PIC X(08) VALUE 'ITEM NO.'.
- 03 COLUMN 51 PIC X(09) VALUE 'ITEM COST'.
- 03 COLUMN 64 PIC X(08) VALUE 'DISCT. %'.
- 03 COLUMN 76 PIC X(11) VALUE 'DISCT. AMT.'.
- 03 COLUMN 91 PIC X(06) VALUE 'CHARGE'.
-
- 01 CHARGE-DETAIL TYPE DETAIL.
- 02 LINE PLUS 1.
- 03 COLUMN 03 PIC Z(04) SOURCE TR-CUSTOMER-NUMBER.
- 03 COLUMN 10 PIC X(16) SOURCE TR-CUSTOMER-NAME.
- 03 COLUMN 32 PIC 9(01) SOURCE TR-ITEM-DEPARTMENT.
- 03 COLUMN 40 PIC 9(05) SOURCE TR-ITEM-NUMBER.
- 03 COLUMN 51 PIC $$$$.99 SOURCE TR-ITEM-COST.
- 03 COLUMN 67 PIC V99 SOURCE DISCOUNT (DISCOUNT-IX).
- 03 COLUMN 69 PIC X(01) VALUE '%'.
- 03 COLUMN 78 PIC $$$$.99 SOURCE WS-DISCOUNT-AMT.
- 03 COLUMN 93 PIC $$$$.99 SOURCE WS-CHARGE-AMT.
-
- 01 CUSTOMER-TOTAL TYPE CONTROL FOOTING TR-CUSTOMER-NUMBER
- NEXT GROUP IS PLUS 2.
- 02 LINE PLUS 1.
- 03 COLUMN 92 PIC $$$$$.99 SUM WS-CHARGE-AMT.
- 03 COLUMN 101 PIC X VALUE '*'.
-
- PROCEDURE DIVISION.
-
- 000-INITIATE.
-
- OPEN INPUT TRANSACTION-DATA,
- OUTPUT REPORT-FILE.
-
- INITIATE CUSTOMER-REPORT.
-
- READ TRANSACTION-DATA
- AT END
- MOVE 'Y' TO END-OF-FILE-SWITCH
- END-READ.
-
- PERFORM 100-PROCESS-TRANSACTION-DATA THRU 199-EXIT
- UNTIL END-OF-FILE.
-
- 000-TERMINATE.
- TERMINATE CUSTOMER-REPORT.
-
- CLOSE TRANSACTION-DATA,
- REPORT-FILE.
-
- STOP RUN.
-
- 100-PROCESS-TRANSACTION-DATA.
- SET DISCOUNT-IX TO TR-ITEM-DEPARTMENT.
- COMPUTE WS-DISCOUNT-AMT ROUNDED =
- TR-ITEM-COST * DISCOUNT (DISCOUNT-IX).
- COMPUTE WS-CHARGE-AMT =
- TR-ITEM-COST - WS-DISCOUNT-AMT.
- GENERATE CHARGE-DETAIL.
- READ TRANSACTION-DATA
- AT END
- MOVE 'Y' TO END-OF-FILE-SWITCH
- END-READ.
-
- 199-EXIT.
- EXIT.
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:983: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_reportwriter.at:983"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:983"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:985: DD_DATAIN=\"./inp_data\" DD_SYSPRINT=\"./report.txt\" \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "DD_DATAIN=\"./inp_data\" DD_SYSPRINT=\"./report.txt\" $COBCRUN_DIRECT ./prog" "run_reportwriter.at:985"
-( $at_check_trace; DD_DATAIN="./inp_data" DD_SYSPRINT="./report.txt" $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:985"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-cat >reference <<'_ATEOF'
- C U S T O M E R C H A R G E R E P O R T PAGE 1
-
-CUST. NO. CUST. NAME DEPT. ITEM NO. ITEM COST DISCT. % DISCT. AMT. CHARGE
-
- 152 J. LANGDON 8 87653 $24.75 09% $2.23 $22.52
- 152 J. LANGDON 6 64025 $9.45 22% $2.08 $7.37
- 152 J. LANGDON 4 41915 $13.70 15% $2.06 $11.64
- 152 J. LANGDON 1 17410 $2.51 05% $.13 $2.38
- $43.91 *
-
-
- 2468 L. MORRISEY 1 18520 $3.75 05% $.19 $3.56
- 2468 L. MORRISEY 2 20012 $4.20 07% $.29 $3.91
- 2468 L. MORRISEY 3 31572 $10.15 10% $1.02 $9.13
- 2468 L. MORRISEY 4 48792 $37.50 15% $5.63 $31.87
- 2468 L. MORRISEY 5 50407 $15.15 06% $.91 $14.24
- 2468 L. MORRISEY 6 61575 $20.10 22% $4.42 $15.68
- 2468 L. MORRISEY 7 79204 $51.70 12% $6.20 $45.50
- 2468 L. MORRISEY 8 85075 $37.84 09% $3.41 $34.43
- 2468 L. MORRISEY 9 98476 $87.94 20% $17.59 $70.35
- $228.67 *
-
-
- 3451 M. JACKSON 3 37847 $27.90 10% $2.79 $25.11
- 3451 M. JACKSON 5 58492 $68.50 06% $4.11 $64.39
- 3451 M. JACKSON 6 60010 $20.40 22% $4.49 $15.91
- 3451 M. JACKSON 8 85260 $78.52 09% $7.07 $71.45
- 3451 M. JACKSON 9 90520 $27.52 20% $5.50 $22.02
- $198.88 *
-
-
- 4512 S. LEVITT 2 24680 $30.50 07% $2.14 $28.36
- 4512 S. LEVITT 5 56784 $52.53 06% $3.15 $49.38
- 4512 S. LEVITT 6 60410 $12.15 22% $2.67 $9.48
- 4512 S. LEVITT 7 78952 $89.25 12% $10.71 $78.54
- 4512 S. LEVITT 8 85278 $49.75 09% $4.48 $45.27
- 4512 S. LEVITT 8 87492 $64.25 09% $5.78 $58.47
- 4512 S. LEVITT 9 97204 $84.75 20% $16.95 $67.80
- $337.30 *
-
-
- 5417 K. CONKLIN 1 13579 $35.72 05% $1.79 $33.93
- 5417 K. CONKLIN 2 24615 $18.75 07% $1.31 $17.44
- 5417 K. CONKLIN 3 34928 $37.45 10% $3.75 $33.70
- 5417 K. CONKLIN 4 48527 $87.50 15% $13.13 $74.37
- 5417 K. CONKLIN 5 50150 $18.95 06% $1.14 $17.81
- 5417 K. CONKLIN 5 54652 $38.92 06% $2.34 $36.58
- 5417 K. CONKLIN 5 59765 $98.95 06% $5.94 $93.01
- 5417 K. CONKLIN 7 71572 $18.95 12% $2.27 $16.68
- 5417 K. CONKLIN 8 85175 $80.10 09% $7.21 $72.89
- 5417 K. CONKLIN 9 90275 $4.60 20% $.92 $3.68
- 5417 K. CONKLIN 9 91572 $18.57 20% $3.71 $14.86
- 5417 K. CONKLIN 9 97576 $84.95 20% $16.99 $67.96
- $482.91 *
-
-
- 6213 Z. HAMPTON 1 15792 $64.25 05% $3.21 $61.04
- 6213 Z. HAMPTON 1 19975 $98.75 05% $4.94 $93.81
-
-
-
-
-
-
-
- C U S T O M E R C H A R G E R E P O R T PAGE 2
-
-CUST. NO. CUST. NAME DEPT. ITEM NO. ITEM COST DISCT. % DISCT. AMT. CHARGE
-
- 6213 Z. HAMPTON 3 34576 $51.15 10% $5.12 $46.03
- 6213 Z. HAMPTON 4 49512 $85.20 15% $12.78 $72.42
- $273.30 *
-
-
- 7545 M. LARSON 1 14676 $38.45 05% $1.92 $36.53
- 7545 M. LARSON 1 18592 $82.51 05% $4.13 $78.38
- 7545 M. LARSON 1 19994 $98.98 05% $4.95 $94.03
- 7545 M. LARSON 2 21214 $15.15 07% $1.06 $14.09
- 7545 M. LARSON 3 37515 $82.12 10% $8.21 $73.91
- 7545 M. LARSON 3 38592 $96.15 10% $9.62 $86.53
- 7545 M. LARSON 4 48485 $87.14 15% $13.07 $74.07
- 7545 M. LARSON 5 52762 $37.92 06% $2.28 $35.64
- 7545 M. LARSON 5 57684 $80.15 06% $4.81 $75.34
- 7545 M. LARSON 7 79015 $96.25 12% $11.55 $84.70
- 7545 M. LARSON 8 80123 $5.60 09% $.50 $5.10
- 7545 M. LARSON 8 82462 $20.15 09% $1.81 $18.34
- 7545 M. LARSON 9 91520 $18.15 20% $3.63 $14.52
- 7545 M. LARSON 9 93715 $40.15 20% $8.03 $32.12
- $723.30 *
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:1123: diff reference report.txt"
-at_fn_check_prepare_trace "run_reportwriter.at:1123"
-( $at_check_trace; diff reference report.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:1123"
-$at_failed && at_fn_log_failure \
-"report.txt"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_962
-#AT_START_963
-at_fn_group_banner 963 'run_reportwriter.at:1128' \
- "Sample Charge Report 2" " " 4
-at_xfail=no
-(
- printf "%s\n" "963. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >inp_data <<'_ATEOF'
-0152 J. LANGDON 87653 02475
-0152 J. LANGDON 64025 00945
-0152 J. LANGDON 41915 01370
-0152 J. LANGDON 17410 00251
-2468 L. MORRISEY 18520 00375
-2468 L. MORRISEY 20012 00420
-2468 L. MORRISEY 31572 01015
-2468 L. MORRISEY 48792 03750
-2468 L. MORRISEY 50407 01515
-2468 L. MORRISEY 61575 02010
-2468 L. MORRISEY 79204 05170
-2468 L. MORRISEY 85075 03784
-2468 L. MORRISEY 98476 08794
-3451 M. JACKSON 37847 02790
-3451 M. JACKSON 58492 06850
-3451 M. JACKSON 60010 02040
-3451 M. JACKSON 85260 07852
-3451 M. JACKSON 90520 02752
-4512 S. LEVITT 24680 03050
-4512 S. LEVITT 56784 05253
-4512 S. LEVITT 60410 01215
-4512 S. LEVITT 78952 08925
-4512 S. LEVITT 85278 04975
-4512 S. LEVITT 87492 06425
-4512 S. LEVITT 97204 08475
-5417 K. CONKLIN 13579 03572
-5417 K. CONKLIN 24615 01875
-5417 K. CONKLIN 34928 03745
-5417 K. CONKLIN 48527 08750
-5417 K. CONKLIN 50150 01895
-5417 K. CONKLIN 54652 03892
-5417 K. CONKLIN 59765 09895
-5417 K. CONKLIN 71572 01895
-5417 K. CONKLIN 85175 08010
-5417 K. CONKLIN 90275 00460
-5417 K. CONKLIN 91572 01857
-5417 K. CONKLIN 97576 08495
-6213 Z. HAMPTON 15792 06425
-6213 Z. HAMPTON 19975 09875
-6213 Z. HAMPTON 34576 05115
-6213 Z. HAMPTON 49512 08520
-7545 M. LARSON 14676 03845
-7545 M. LARSON 18592 08251
-7545 M. LARSON 19994 09898
-7545 M. LARSON 21214 01515
-7545 M. LARSON 37515 08212
-7545 M. LARSON 38592 09615
-7545 M. LARSON 48485 08714
-7545 M. LARSON 52762 03792
-7545 M. LARSON 57684 08015
-7545 M. LARSON 79015 09625
-7545 M. LARSON 80123 00560
-7545 M. LARSON 82462 02015
-7545 M. LARSON 91520 01815
-7545 M. LARSON 93715 04015
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- * ************************************************************* *
- * REPORT WRITER EXAMPLE #3. *
- * ************************************************************* *
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
-
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
-
- SELECT TRANSACTION-DATA
- ASSIGN TO EXTERNAL DATAIN
- ORGANIZATION IS LINE SEQUENTIAL.
-
- SELECT REPORT-FILE
- ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT.
-
- DATA DIVISION.
- FILE SECTION.
-
- FD TRANSACTION-DATA.
-
- 01 TRANSACTION-RECORD.
- 03 TR-CUSTOMER-NUMBER PIC 9(04).
- 03 FILLER PIC X(01).
- 03 TR-CUSTOMER-NAME PIC X(16).
- 03 FILLER PIC X(01).
- 03 TR-ITEM-NUMBER PIC 9(05).
- 03 FILLER REDEFINES TR-ITEM-NUMBER.
- 05 TR-ITEM-DEPARTMENT PIC 9(01).
- 05 FILLER PIC 9(04).
- 03 FILLER PIC X(01).
- 03 TR-ITEM-COST PIC 9(03)V99.
- 03 FILLER PIC X(47).
-
- FD REPORT-FILE
- REPORT IS CUSTOMER-REPORT.
-
- WORKING-STORAGE SECTION.
- 77 END-OF-FILE-SWITCH PIC X(1) VALUE 'N'.
- 88 END-OF-FILE VALUE 'Y'.
-
- 01 DISCOUNT-TABLE.
- 02 FILLER PIC 99 VALUE 05.
- 02 FILLER PIC 99 VALUE 07.
- 02 FILLER PIC 99 VALUE 10.
- 02 FILLER PIC 99 VALUE 15.
- 02 FILLER PIC 99 VALUE 06.
- 02 FILLER PIC 99 VALUE 22.
- 02 FILLER PIC 99 VALUE 12.
- 02 FILLER PIC 99 VALUE 09.
- 02 FILLER PIC 99 VALUE 20.
- 01 FILLER REDEFINES DISCOUNT-TABLE.
- 02 DISCOUNT OCCURS 9 TIMES
- INDEXED BY DISCOUNT-IX
- PIC V99.
-
- 01 CALCULATED-FIELDS.
- 03 WS-DISCOUNT-AMT PIC 9(3)V99.
- 03 WS-CHARGE-AMT PIC 9(3)V99.
-
- REPORT SECTION.
- RD CUSTOMER-REPORT
- CONTROLS ARE FINAL, TR-CUSTOMER-NUMBER
- PAGE LIMIT IS 66 LINES
- HEADING 1
- FIRST DETAIL 5
- LAST DETAIL 58.
-
- 01 PAGE-HEAD-GROUP TYPE PAGE HEADING.
- 02 LINE 1.
- 03 COLUMN 27 PIC X(41) VALUE
- 'C U S T O M E R C H A R G E R E P O R T'.
- 03 COLUMN 90 PIC X(04) VALUE 'PAGE'.
- 03 COLUMN 95 PIC ZZZZ9 SOURCE PAGE-COUNTER.
- 02 LINE PLUS 2.
- 03 COLUMN 01 PIC X(09) VALUE 'CUST. NO.'.
- 03 COLUMN 15 PIC X(10) VALUE 'CUST. NAME'.
- 03 COLUMN 30 PIC X(05) VALUE 'DEPT.'.
- 03 COLUMN 39 PIC X(08) VALUE 'ITEM NO.'.
- 03 COLUMN 51 PIC X(09) VALUE 'ITEM COST'.
- 03 COLUMN 64 PIC X(08) VALUE 'DISCT. %'.
- 03 COLUMN 76 PIC X(11) VALUE 'DISCT. AMT.'.
- 03 COLUMN 91 PIC X(06) VALUE 'CHARGE'.
-
- 01 CHARGE-DETAIL TYPE DETAIL.
- 02 LINE PLUS 1.
- 03 COLUMN 03 PIC Z(04) SOURCE TR-CUSTOMER-NUMBER
- GROUP INDICATE.
- 03 COLUMN 10 PIC X(16) SOURCE TR-CUSTOMER-NAME
- GROUP INDICATE.
- 03 COLUMN 32 PIC 9(01) SOURCE TR-ITEM-DEPARTMENT.
- 03 COLUMN 40 PIC 9(05) SOURCE TR-ITEM-NUMBER.
- 03 COLUMN 51 PIC $$$$.99 SOURCE TR-ITEM-COST.
- 03 COLUMN 67 PIC V99 SOURCE DISCOUNT (DISCOUNT-IX).
- 03 COLUMN 69 PIC X(01) VALUE '%'.
- 03 COLUMN 78 PIC $$$$.99 SOURCE WS-DISCOUNT-AMT.
- 03 COLUMN 93 PIC $$$$.99 SOURCE WS-CHARGE-AMT.
-
- 01 CUSTOMER-TOTAL TYPE CONTROL FOOTING TR-CUSTOMER-NUMBER
- NEXT GROUP IS PLUS 2.
- 02 LINE PLUS 1.
- 03 COLUMN 50 PIC $$$$$.99 SUM TR-ITEM-COST.
- 03 COLUMN 59 PIC X VALUE '*'.
- 03 COLUMN 77 PIC $$$$$.99 SUM WS-DISCOUNT-AMT.
- 03 COLUMN 86 PIC X VALUE '*'.
- 03 COLUMN 92 PIC $$$$$.99 SUM WS-CHARGE-AMT.
- 03 COLUMN 101 PIC X VALUE '*'.
-
- 01 FINAL-TOTAL TYPE CONTROL FOOTING FINAL.
- 02 LINE PLUS 1.
- 03 COLUMN 10 PIC X(12) VALUE 'GRAND TOTALS'.
- 03 COLUMN 48 PIC $$$,$$$.99 SUM TR-ITEM-COST.
- 03 COLUMN 59 PIC XX VALUE '**'.
- 03 COLUMN 75 PIC $$$,$$$.99 SUM WS-DISCOUNT-AMT.
- 03 COLUMN 86 PIC XX VALUE '**'.
- 03 COLUMN 90 PIC $$$,$$$.99 SUM WS-CHARGE-AMT.
- 03 COLUMN 101 PIC XX VALUE '**'.
-
- PROCEDURE DIVISION.
-
- 000-INITIATE.
-
- OPEN INPUT TRANSACTION-DATA,
- OUTPUT REPORT-FILE.
-
- INITIATE CUSTOMER-REPORT.
-
- READ TRANSACTION-DATA
- AT END
- MOVE 'Y' TO END-OF-FILE-SWITCH.
- * END-READ.
-
- PERFORM 100-PROCESS-TRANSACTION-DATA THRU 199-EXIT
- UNTIL END-OF-FILE.
-
- 000-TERMINATE.
- TERMINATE CUSTOMER-REPORT.
-
- CLOSE TRANSACTION-DATA,
- REPORT-FILE.
-
- STOP RUN.
-
- 100-PROCESS-TRANSACTION-DATA.
- SET DISCOUNT-IX TO TR-ITEM-DEPARTMENT.
- COMPUTE WS-DISCOUNT-AMT ROUNDED =
- TR-ITEM-COST * DISCOUNT (DISCOUNT-IX).
- COMPUTE WS-CHARGE-AMT =
- TR-ITEM-COST - WS-DISCOUNT-AMT.
- GENERATE CHARGE-DETAIL.
- READ TRANSACTION-DATA
- AT END
- MOVE 'Y' TO END-OF-FILE-SWITCH.
- * END-READ.
-
- 199-EXIT.
- EXIT.
-
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:1353: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_reportwriter.at:1353"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:1353"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:1355: DD_DATAIN=\"./inp_data\" DD_SYSPRINT=\"./report.txt\" \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "DD_DATAIN=\"./inp_data\" DD_SYSPRINT=\"./report.txt\" $COBCRUN_DIRECT ./prog" "run_reportwriter.at:1355"
-( $at_check_trace; DD_DATAIN="./inp_data" DD_SYSPRINT="./report.txt" $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:1355"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-cat >reference <<'_ATEOF'
- C U S T O M E R C H A R G E R E P O R T PAGE 1
-
-CUST. NO. CUST. NAME DEPT. ITEM NO. ITEM COST DISCT. % DISCT. AMT. CHARGE
-
- 152 J. LANGDON 8 87653 $24.75 09% $2.23 $22.52
- 6 64025 $9.45 22% $2.08 $7.37
- 4 41915 $13.70 15% $2.06 $11.64
- 1 17410 $2.51 05% $.13 $2.38
- $50.41 * $6.50 * $43.91 *
-
-
- 2468 L. MORRISEY 1 18520 $3.75 05% $.19 $3.56
- 2 20012 $4.20 07% $.29 $3.91
- 3 31572 $10.15 10% $1.02 $9.13
- 4 48792 $37.50 15% $5.63 $31.87
- 5 50407 $15.15 06% $.91 $14.24
- 6 61575 $20.10 22% $4.42 $15.68
- 7 79204 $51.70 12% $6.20 $45.50
- 8 85075 $37.84 09% $3.41 $34.43
- 9 98476 $87.94 20% $17.59 $70.35
- $268.33 * $39.66 * $228.67 *
-
-
- 3451 M. JACKSON 3 37847 $27.90 10% $2.79 $25.11
- 5 58492 $68.50 06% $4.11 $64.39
- 6 60010 $20.40 22% $4.49 $15.91
- 8 85260 $78.52 09% $7.07 $71.45
- 9 90520 $27.52 20% $5.50 $22.02
- $222.84 * $23.96 * $198.88 *
-
-
- 4512 S. LEVITT 2 24680 $30.50 07% $2.14 $28.36
- 5 56784 $52.53 06% $3.15 $49.38
- 6 60410 $12.15 22% $2.67 $9.48
- 7 78952 $89.25 12% $10.71 $78.54
- 8 85278 $49.75 09% $4.48 $45.27
- 8 87492 $64.25 09% $5.78 $58.47
- 9 97204 $84.75 20% $16.95 $67.80
- $383.18 * $45.88 * $337.30 *
-
-
- 5417 K. CONKLIN 1 13579 $35.72 05% $1.79 $33.93
- 2 24615 $18.75 07% $1.31 $17.44
- 3 34928 $37.45 10% $3.75 $33.70
- 4 48527 $87.50 15% $13.13 $74.37
- 5 50150 $18.95 06% $1.14 $17.81
- 5 54652 $38.92 06% $2.34 $36.58
- 5 59765 $98.95 06% $5.94 $93.01
- 7 71572 $18.95 12% $2.27 $16.68
- 8 85175 $80.10 09% $7.21 $72.89
- 9 90275 $4.60 20% $.92 $3.68
- 9 91572 $18.57 20% $3.71 $14.86
- 9 97576 $84.95 20% $16.99 $67.96
- $543.41 * $60.50 * $482.91 *
-
-
- 6213 Z. HAMPTON 1 15792 $64.25 05% $3.21 $61.04
- 1 19975 $98.75 05% $4.94 $93.81
-
-
-
-
-
-
-
- C U S T O M E R C H A R G E R E P O R T PAGE 2
-
-CUST. NO. CUST. NAME DEPT. ITEM NO. ITEM COST DISCT. % DISCT. AMT. CHARGE
-
- 6213 Z. HAMPTON 3 34576 $51.15 10% $5.12 $46.03
- 4 49512 $85.20 15% $12.78 $72.42
- $299.35 * $26.05 * $273.30 *
-
-
- 7545 M. LARSON 1 14676 $38.45 05% $1.92 $36.53
- 1 18592 $82.51 05% $4.13 $78.38
- 1 19994 $98.98 05% $4.95 $94.03
- 2 21214 $15.15 07% $1.06 $14.09
- 3 37515 $82.12 10% $8.21 $73.91
- 3 38592 $96.15 10% $9.62 $86.53
- 4 48485 $87.14 15% $13.07 $74.07
- 5 52762 $37.92 06% $2.28 $35.64
- 5 57684 $80.15 06% $4.81 $75.34
- 7 79015 $96.25 12% $11.55 $84.70
- 8 80123 $5.60 09% $.50 $5.10
- 8 82462 $20.15 09% $1.81 $18.34
- 9 91520 $18.15 20% $3.63 $14.52
- 9 93715 $40.15 20% $8.03 $32.12
- $798.87 * $75.57 * $723.30 *
- GRAND TOTALS $2,566.39 ** $278.12 ** $2,288.27 **
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:1493: diff reference report.txt"
-at_fn_check_prepare_trace "run_reportwriter.at:1493"
-( $at_check_trace; diff reference report.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:1493"
-$at_failed && at_fn_log_failure \
-"report.txt"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_963
-#AT_START_964
-at_fn_group_banner 964 'run_reportwriter.at:1498' \
- "Sample Charge Report 3" " " 4
-at_xfail=no
-(
- printf "%s\n" "964. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >inp_data <<'_ATEOF'
-0152 J. LANGDON 87653 02475
-0152 J. LANGDON 64025 00945
-0152 J. LANGDON 41915 01370
-0152 J. LANGDON 17410 00251
-2468 L. MORRISEY 18520 00375
-2468 L. MORRISEY 20012 00420
-2468 L. MORRISEY 31572 01015
-2468 L. MORRISEY 48792 03750
-2468 L. MORRISEY 50407 01515
-2468 L. MORRISEY 61575 02010
-2468 L. MORRISEY 79204 05170
-2468 L. MORRISEY 85075 03784
-2468 L. MORRISEY 98476 08794
-3451 M. JACKSON 37847 02790
-3451 M. JACKSON 58492 06850
-3451 M. JACKSON 60010 02040
-3451 M. JACKSON 85260 07852
-3451 M. JACKSON 90520 02752
-4512 S. LEVITT 24680 03050
-4512 S. LEVITT 56784 05253
-4512 S. LEVITT 60410 01215
-4512 S. LEVITT 78952 08925
-4512 S. LEVITT 85278 04975
-4512 S. LEVITT 87492 06425
-4512 S. LEVITT 97204 08475
-5417 K. CONKLIN 13579 03572
-5417 K. CONKLIN 24615 01875
-5417 K. CONKLIN 34928 03745
-5417 K. CONKLIN 48527 08750
-5417 K. CONKLIN 50150 01895
-5417 K. CONKLIN 54652 03892
-5417 K. CONKLIN 59765 09895
-5417 K. CONKLIN 71572 01895
-5417 K. CONKLIN 85175 08010
-5417 K. CONKLIN 90275 00460
-5417 K. CONKLIN 91572 01857
-5417 K. CONKLIN 97576 08495
-6213 Z. HAMPTON 15792 06425
-6213 Z. HAMPTON 19975 09875
-6213 Z. HAMPTON 34576 05115
-6213 Z. HAMPTON 49512 08520
-7545 M. LARSON 14676 03845
-7545 M. LARSON 18592 08251
-7545 M. LARSON 19994 09898
-7545 M. LARSON 21214 01515
-7545 M. LARSON 37515 08212
-7545 M. LARSON 38592 09615
-7545 M. LARSON 48485 08714
-7545 M. LARSON 52762 03792
-7545 M. LARSON 57684 08015
-7545 M. LARSON 79015 09625
-7545 M. LARSON 80123 00560
-7545 M. LARSON 82462 02015
-7545 M. LARSON 91520 01815
-7545 M. LARSON 93715 04015
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- * ************************************************************* *
- * * MODIFICATIONS: *
- * * ADDED GROUP ITEM TO INPUT RECORD DEFINITION AND CHANGED * 20110227
- * * REPORT SECTION REFERENCES TO ELEMENTS UNDER GROUP TO FIX * 20110227
- * * MISMATCHED CUSTOMER NAME/NUMBER ON REPORT. * 20110227
- * ************************************************************* *
-
- * ************************************************************* *
- * REPORT WRITER EXAMPLE #4. *
- * ************************************************************* *
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
-
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
-
- SELECT TRANSACTION-DATA
- ASSIGN TO EXTERNAL DATAIN
- ORGANIZATION IS LINE SEQUENTIAL.
-
- SELECT REPORT-FILE
- ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT.
-
- DATA DIVISION.
- FILE SECTION.
-
- FD TRANSACTION-DATA.
-
- 01 TRANSACTION-RECORD.
- 03 TR-CUSTOMER. 20110227
- 05 TR-CUSTOMER-NUMBER PIC 9(04). 20110227
- 05 FILLER PIC X(01). 20110227
- 05 TR-CUSTOMER-NAME PIC X(16). 20110227
- 03 FILLER PIC X(01).
- 03 TR-ITEM-NUMBER PIC 9(05).
- 03 FILLER REDEFINES TR-ITEM-NUMBER.
- 05 TR-ITEM-DEPARTMENT PIC 9(01).
- 05 FILLER PIC 9(04).
- 03 FILLER PIC X(01).
- 03 TR-ITEM-COST PIC 9(03)V99.
- 03 FILLER PIC X(47).
-
- FD REPORT-FILE
- REPORT IS CUSTOMER-REPORT.
-
- WORKING-STORAGE SECTION.
- 77 END-OF-FILE-SWITCH PIC X(1) VALUE 'N'.
- 88 END-OF-FILE VALUE 'Y'.
-
- 01 DISCOUNT-TABLE.
- 02 FILLER PIC 99 VALUE 05.
- 02 FILLER PIC 99 VALUE 07.
- 02 FILLER PIC 99 VALUE 10.
- 02 FILLER PIC 99 VALUE 15.
- 02 FILLER PIC 99 VALUE 06.
- 02 FILLER PIC 99 VALUE 22.
- 02 FILLER PIC 99 VALUE 12.
- 02 FILLER PIC 99 VALUE 09.
- 02 FILLER PIC 99 VALUE 20.
- 01 FILLER REDEFINES DISCOUNT-TABLE.
- 02 DISCOUNT OCCURS 9 TIMES
- INDEXED BY DISCOUNT-IX
- PIC V99.
-
- 01 CALCULATED-FIELDS.
- 03 WS-DISCOUNT-AMT PIC 9(3)V99.
- 03 WS-CHARGE-AMT PIC 9(3)V99.
-
- REPORT SECTION.
- RD CUSTOMER-REPORT
- CONTROLS ARE FINAL, TR-CUSTOMER
- PAGE LIMIT IS 66 LINES
- HEADING 1
- FIRST DETAIL 5
- LAST DETAIL 58.
-
- 01 PAGE-HEAD-GROUP TYPE PAGE HEADING.
- 02 LINE 1.
- 03 COLUMN 27 PIC X(41) VALUE
- 'C U S T O M E R C H A R G E R E P O R T'.
- 03 COLUMN 90 PIC X(04) VALUE 'PAGE'.
- 03 COLUMN + 2 PIC ZZZZ9 SOURCE PAGE-COUNTER.
- 02 LINE PLUS 2.
- 03 COLUMN 01 PIC X(09) VALUE 'CUST. NO.'.
- 03 COLUMN 15 PIC X(10) VALUE 'CUST. NAME'.
- 03 COLUMN 51 PIC X(09) VALUE 'ITEM COST'.
- 03 COLUMN 76 PIC X(11) VALUE 'DISCT. AMT.'.
- 03 COLUMN 91 PIC X(06) VALUE 'CHARGE'.
-
- 01 CHARGE-DETAIL TYPE DETAIL.
- 02 LINE PLUS 1.
- 03 COLUMN 51 PIC $$$$.99 SOURCE TR-ITEM-COST.
- 03 COLUMN 78 PIC $$$$.99 SOURCE WS-DISCOUNT-AMT.
- 03 COLUMN 93 PIC $$$$.99 SOURCE WS-CHARGE-AMT.
-
- 01 CUSTOMER-TOTAL TYPE CONTROL FOOTING TR-CUSTOMER 20110227
- NEXT GROUP IS PLUS 2.
- 02 LINE PLUS 1.
- 03 COLUMN 03 PIC Z(04) SOURCE TR-CUSTOMER-NUMBER.
- 03 COLUMN 10 PIC X(16) SOURCE TR-CUSTOMER-NAME.
- 03 COLUMN 50 PIC $$$$$.99 SUM TR-ITEM-COST.
- 03 COLUMN 77 PIC $$$$$.99 SUM WS-DISCOUNT-AMT.
- 03 COLUMN 92 PIC $$$$$.99 SUM WS-CHARGE-AMT.
-
- 01 FINAL-TOTAL TYPE CONTROL FOOTING FINAL.
- 02 LINE PLUS 1.
- 03 COLUMN 10 PIC X(12) VALUE 'GRAND TOTALS'.
- 03 COLUMN 48 PIC $$$,$$$.99 SUM TR-ITEM-COST.
- 03 COLUMN 59 PIC X VALUE '*'.
- 03 COLUMN 75 PIC $$$,$$$.99 SUM WS-DISCOUNT-AMT.
- 03 COLUMN 86 PIC X VALUE '*'.
- 03 COLUMN 90 PIC $$$,$$$.99 SUM WS-CHARGE-AMT.
- 03 COLUMN 101 PIC X VALUE '*'.
-
- PROCEDURE DIVISION.
-
- 000-INITIATE.
-
- OPEN INPUT TRANSACTION-DATA,
- OUTPUT REPORT-FILE.
-
- INITIATE CUSTOMER-REPORT.
-
- READ TRANSACTION-DATA
- AT END
- MOVE 'Y' TO END-OF-FILE-SWITCH
- END-READ.
-
- PERFORM 100-PROCESS-TRANSACTION-DATA THRU 199-EXIT
- UNTIL END-OF-FILE.
-
- 000-TERMINATE.
- TERMINATE CUSTOMER-REPORT.
-
- CLOSE TRANSACTION-DATA,
- REPORT-FILE.
-
- STOP RUN.
-
- 100-PROCESS-TRANSACTION-DATA.
- SET DISCOUNT-IX TO TR-ITEM-DEPARTMENT.
- COMPUTE WS-DISCOUNT-AMT ROUNDED =
- TR-ITEM-COST * DISCOUNT (DISCOUNT-IX).
- COMPUTE WS-CHARGE-AMT =
- TR-ITEM-COST - WS-DISCOUNT-AMT.
- GENERATE CUSTOMER-REPORT.
- READ TRANSACTION-DATA
- AT END
- MOVE 'Y' TO END-OF-FILE-SWITCH.
- * END-READ.
-
- 199-EXIT.
- EXIT.
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:1718: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_reportwriter.at:1718"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:1718"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:1720: DD_DATAIN=\"./inp_data\" DD_SYSPRINT=\"./report.txt\" \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "DD_DATAIN=\"./inp_data\" DD_SYSPRINT=\"./report.txt\" $COBCRUN_DIRECT ./prog" "run_reportwriter.at:1720"
-( $at_check_trace; DD_DATAIN="./inp_data" DD_SYSPRINT="./report.txt" $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:1720"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-cat >reference <<'_ATEOF'
- C U S T O M E R C H A R G E R E P O R T PAGE 1
-
-CUST. NO. CUST. NAME ITEM COST DISCT. AMT. CHARGE
-
- 152 J. LANGDON $50.41 $6.50 $43.91
-
-
- 2468 L. MORRISEY $268.33 $39.66 $228.67
-
-
- 3451 M. JACKSON $222.84 $23.96 $198.88
-
-
- 4512 S. LEVITT $383.18 $45.88 $337.30
-
-
- 5417 K. CONKLIN $543.41 $60.50 $482.91
-
-
- 6213 Z. HAMPTON $299.35 $26.05 $273.30
-
-
- 7545 M. LARSON $798.87 $75.57 $723.30
- GRAND TOTALS $2,566.39 * $278.12 * $2,288.27 *
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:1793: diff reference report.txt"
-at_fn_check_prepare_trace "run_reportwriter.at:1793"
-( $at_check_trace; diff reference report.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:1793"
-$at_failed && at_fn_log_failure \
-"report.txt"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_964
-#AT_START_965
-at_fn_group_banner 965 'run_reportwriter.at:1798' \
- "Sample Charge Report 4" " " 4
-at_xfail=no
-(
- printf "%s\n" "965. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >inp_data <<'_ATEOF'
-05 A 007328
-05 A 090620
-05 A 034602
-05 A 017837
-13 A 005035
-13 A 049851
-13 A 012139
-22 A 077572
-29 A 013491
-33 A 050628
-33 A 044987
-33 A 050162
-39 A 068745
-39 A 058384
-39 A 053005
-44 A 085669
-44 A 057891
-49 A 065134
-03 B 032035
-03 B 054694
-03 B 069591
-03 B 046023
-03 B 025725
-19 B 045550
-19 B 099371
-19 B 049703
-25 B 047000
-25 B 087106
-31 B 049157
-34 B 005994
-09 C 007980
-14 C 092224
-14 C 062942
-23 C 002974
-28 C 042394
-28 C 014745
-34 C 053467
-34 C 054332
-42 C 089295
-42 C 073826
-04 D 029685
-04 D 060676
-06 D 013230
-06 D 042290
-15 D 013076
-15 D 024104
-15 D 013078
-38 D 078771
-38 D 085871
-11 E 099350
-17 E 066301
-27 E 038144
-27 E 097807
-27 E 008055
-08 F 073201
-09 F 008278
-09 F 040898
-09 F 039688
-16 F 019308
-16 F 015173
-16 F 022865
-16 F 003568
-36 F 029276
-40 F 078631
-40 F 010249
-40 F 059583
-48 F 043877
-48 F 006755
-01 G 018347
-20 G 098123
-21 G 077346
-22 G 025953
-26 G 009587
-41 G 083126
-41 G 073046
-32 H 038823
-32 H 009989
-32 H 065838
-32 H 024994
-32 H 016065
-32 H 097042
-43 H 077895
-45 H 038692
-46 H 088151
-46 H 069538
-09 J 039764
-18 J 088890
-18 J 039421
-37 J 044560
-45 J 018770
-45 J 032993
-45 J 089631
-45 J 072659
-02 K 075925
-02 K 072909
-02 K 040544
-12 K 002138
-12 K 029239
-35 K 065936
-35 K 093046
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- * ************************************************************* *
- * REPORT WRITER EXAMPLE #5. *
- * ************************************************************* *
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
-
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
-
- SELECT SALES-DATA
- ASSIGN TO EXTERNAL DATAIN
- ORGANIZATION IS LINE SEQUENTIAL.
-
- SELECT REPORT-FILE
- ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT.
-
- DATA DIVISION.
- FILE SECTION.
-
- FD SALES-DATA.
-
- 01 SALES-RECORD.
- 03 SR-SALESMAN-NUMBER PIC 9(02).
- 03 FILLER PIC X(01).
- 03 SR-DISTRICT-CODE PIC X(01).
- 03 FILLER PIC X(01).
- 03 SR-SALE-AMOUNT PIC 9(04)V99.
- 03 FILLER PIC X(69).
-
- FD REPORT-FILE
- REPORT IS DISTRICT-SALES-REPORT.
-
- WORKING-STORAGE SECTION.
- 77 END-OF-FILE-SWITCH PIC X(1) VALUE 'N'.
- 88 END-OF-FILE VALUE 'Y'.
-
- 01 COMMISSION-TABLE.
- 02 FILLER PIC X(03) VALUE 'A20'.
- 02 FILLER PIC X(03) VALUE 'B18'.
- 02 FILLER PIC X(03) VALUE 'C15'.
- 02 FILLER PIC X(03) VALUE 'D12'.
- 02 FILLER PIC X(03) VALUE 'E10'.
- 02 FILLER PIC X(03) VALUE 'F12'.
- 02 FILLER PIC X(03) VALUE 'G10'.
- 02 FILLER PIC X(03) VALUE 'H08'.
- 02 FILLER PIC X(03) VALUE 'J05'.
- 02 FILLER PIC X(03) VALUE 'K07'.
- 01 FILLER REDEFINES COMMISSION-TABLE.
- 02 COMMISSION-ENTRY OCCURS 10 TIMES
- INDEXED BY COMMISSION-IX.
- 03 CE-DISTRICT PIC X(01).
- 03 CE-RATE PIC V99.
-
- 01 CALCULATED-FIELDS.
- 03 WS-COMMISSION PIC 9(5)V99.
-
- REPORT SECTION.
- RD DISTRICT-SALES-REPORT
- CONTROLS ARE FINAL, SR-DISTRICT-CODE, SR-SALESMAN-NUMBER
- PAGE LIMIT IS 66 LINES
- HEADING 1
- FIRST DETAIL 5
- LAST DETAIL 58.
-
- 01 PAGE-HEAD-GROUP TYPE PAGE HEADING.
- 02 LINE 1.
- 03 COLUMN 27 PIC X(41) VALUE
- 'D I S T R I C T S A L E S R E P O R T'.
- 03 COLUMN 90 PIC X(04) VALUE 'PAGE'.
- 03 COLUMN 95 PIC ZZZZ9 SOURCE PAGE-COUNTER.
- 02 LINE 3.
- 03 COLUMN 20 PIC X(26) VALUE
- '-------- SALESMAN --------'.
- 03 COLUMN 54 PIC X(15) VALUE
- '-- DISTRICT --'.
- 02 LINE 4.
- 03 COLUMN 20 PIC X(03) VALUE 'NO.'.
- 03 COLUMN 28 PIC X(05) VALUE 'SALES'.
- 03 COLUMN 37 PIC X(10) VALUE 'COMMISSION'.
- 03 COLUMN 54 PIC X(03) VALUE 'NO.'.
- 03 COLUMN 61 PIC X(05) VALUE 'SALES'.
-
- 01 SALE-DETAIL TYPE DETAIL.
- 02 LINE PLUS 1.
- 03 COLUMN 01 PIC 99 SOURCE SR-SALESMAN-NUMBER.
- 03 COLUMN 04 PIC X SOURCE SR-DISTRICT-CODE.
- 03 COLUMN 06 PIC 9999.99 SOURCE SR-SALE-AMOUNT.
-
- 01 SALESMAN-TOTAL TYPE CONTROL FOOTING SR-SALESMAN-NUMBER.
- 02 LINE PLUS 1.
- 03 COLUMN 20 PIC 99 SOURCE SR-SALESMAN-NUMBER.
- 03 ST-SALES-AMT COLUMN 24 PIC $$$,$$9.99 SUM
- SR-SALE-AMOUNT.
- 03 COLUMN 37 PIC $$$,$$9.99 SOURCE WS-COMMISSION.
-
- 01 DISTRICT-TOTAL TYPE CONTROL FOOTING SR-DISTRICT-CODE
- NEXT GROUP PLUS 2.
- 02 LINE PLUS 1.
- 03 COLUMN 54 PIC X SOURCE SR-DISTRICT-CODE.
- 03 COLUMN 58 PIC $$$,$$9.99 SUM ST-SALES-AMT.
-
- 01 FINAL-TOTAL TYPE CONTROL FOOTING FINAL.
- 02 LINE PLUS 2.
- 03 COLUMN 15 PIC X(19) VALUE
- 'MONTHLY TOTAL SALES'.
- 03 COLUMN 57 PIC $$$$,$$9.99 SUM ST-SALES-AMT.
- 03 COLUMN 69 PIC XX VALUE '**'.
-
- PROCEDURE DIVISION.
-
- DECLARATIVES.
- USE-SALESMAN-TOTAL SECTION. USE BEFORE REPORTING SALESMAN-TOTAL.
- USE-SALESMAN-TOTAL-PROC.
- SET COMMISSION-IX TO 1.
- SEARCH COMMISSION-ENTRY
- AT END
- MOVE 0.00 TO WS-COMMISSION
- WHEN CE-DISTRICT (COMMISSION-IX) = SR-DISTRICT-CODE
- COMPUTE WS-COMMISSION ROUNDED =
- CE-RATE (COMMISSION-IX) * ST-SALES-AMT.
-
- USE-SALESMAN-TOTAL-EXIT.
- EXIT.
-
- END DECLARATIVES.
-
- 000-INITIATE.
-
- OPEN INPUT SALES-DATA,
- OUTPUT REPORT-FILE.
-
- INITIATE DISTRICT-SALES-REPORT.
-
- READ SALES-DATA
- AT END
- MOVE 'Y' TO END-OF-FILE-SWITCH
- END-READ.
-
- PERFORM 100-PROCESS-SALES-DATA THRU 199-EXIT
- UNTIL END-OF-FILE.
-
- 000-TERMINATE.
- TERMINATE DISTRICT-SALES-REPORT.
-
- CLOSE SALES-DATA,
- REPORT-FILE.
-
- STOP RUN.
-
- 100-PROCESS-SALES-DATA.
- GENERATE DISTRICT-SALES-REPORT.
- READ SALES-DATA
- AT END
- MOVE 'Y' TO END-OF-FILE-SWITCH
- END-READ.
-
- 199-EXIT.
- EXIT.
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:2069: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_reportwriter.at:2069"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:2069"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:2071: DD_DATAIN=\"./inp_data\" DD_SYSPRINT=\"./report.txt\" \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "DD_DATAIN=\"./inp_data\" DD_SYSPRINT=\"./report.txt\" $COBCRUN_DIRECT ./prog" "run_reportwriter.at:2071"
-( $at_check_trace; DD_DATAIN="./inp_data" DD_SYSPRINT="./report.txt" $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:2071"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-cat >reference <<'_ATEOF'
- D I S T R I C T S A L E S R E P O R T PAGE 1
-
- -------- SALESMAN -------- -- DISTRICT --
- NO. SALES COMMISSION NO. SALES
- 05 $1,503.87 $300.77
- 13 $670.25 $134.05
- 22 $775.72 $155.14
- 29 $134.91 $26.98
- 33 $1,457.77 $291.55
- 39 $1,801.34 $360.27
- 44 $1,435.60 $287.12
- 49 $651.34 $130.27
- A $8,430.80
-
-
- 03 $2,280.68 $410.52
- 19 $1,946.24 $350.32
- 25 $1,341.06 $241.39
- 31 $491.57 $88.48
- 34 $59.94 $10.79
- B $6,119.49
-
-
- 09 $79.80 $11.97
- 14 $1,551.66 $232.75
- 23 $29.74 $4.46
- 28 $571.39 $85.71
- 34 $1,077.99 $161.70
- 42 $1,631.21 $244.68
- C $4,941.79
-
-
- 04 $903.61 $108.43
- 06 $555.20 $66.62
- 15 $502.58 $60.31
- 38 $1,646.42 $197.57
- D $3,607.81
-
-
- 11 $993.50 $99.35
- 17 $663.01 $66.30
- 27 $1,440.06 $144.01
- E $3,096.57
-
-
- 08 $732.01 $87.84
- 09 $888.64 $106.64
- 16 $609.14 $73.10
- 36 $292.76 $35.13
- 40 $1,484.63 $178.16
- 48 $506.32 $60.76
- F $4,513.50
-
-
- 01 $183.47 $18.35
- 20 $981.23 $98.12
- 21 $773.46 $77.35
- 22 $259.53 $25.95
-
-
-
-
-
-
-
- D I S T R I C T S A L E S R E P O R T PAGE 2
-
- -------- SALESMAN -------- -- DISTRICT --
- NO. SALES COMMISSION NO. SALES
- 26 $95.87 $9.59
- 41 $1,561.72 $156.17
- G $3,855.28
-
-
- 32 $2,527.51 $202.20
- 43 $778.95 $62.32
- 45 $386.92 $30.95
- 46 $1,576.89 $126.15
- H $5,270.27
-
-
- 09 $397.64 $19.88
- 18 $1,283.11 $64.16
- 37 $445.60 $22.28
- 45 $2,140.53 $107.03
- J $4,266.88
-
-
- 02 $1,893.78 $132.56
- 12 $313.77 $21.96
- 35 $1,589.82 $111.29
- K $3,797.37
-
- MONTHLY TOTAL SALES $47,899.76 **
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:2209: diff reference report.txt"
-at_fn_check_prepare_trace "run_reportwriter.at:2209"
-( $at_check_trace; diff reference report.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:2209"
-$at_failed && at_fn_log_failure \
-"report.txt"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_965
-#AT_START_966
-at_fn_group_banner 966 'run_reportwriter.at:2214' \
- "Sample Payroll Report" " " 4
-at_xfail=no
-(
- printf "%s\n" "966. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >inp_data <<'_ATEOF'
-01 6622 M GAVIN SHAFER 19740201 026000 01521 03362 00075 021042
-01 6622 M GAVIN SHAFER 19740215 026000 01521 03362 00175 020942
-01 6622 M GAVIN SHAFER 19740301 026000 01521 03362 00175 020942
-01 6622 M GAVIN SHAFER 19740315 026000 01521 03362 00050 021067
-01 7078 F VERA ALSTON 19740101 030000 01755 02304 00050 025891
-01 7078 F VERA ALSTON 19740115 030000 01755 02304 00100 025841
-01 7078 F VERA ALSTON 19740201 030000 01755 02304 00050 025891
-01 7078 F VERA ALSTON 19740215 030000 01755 02304 00000 025941
-01 7078 F VERA ALSTON 19740301 030000 01755 02304 00075 025866
-01 7078 F VERA ALSTON 19740315 030000 01755 02304 00100 025841
-01 8093 M GRADY KAISER 19740101 045000 02633 05819 00175 036374
-01 8093 M GRADY KAISER 19740115 045000 02633 05819 00100 036449
-01 8093 M GRADY KAISER 19740201 045000 02633 05819 00100 036449
-01 8093 M GRADY KAISER 19740215 047500 02779 03648 00100 040973
-01 8093 M GRADY KAISER 19740301 047500 02779 03648 00175 040898
-05 1720 F PAULINE WINSTON 19740101 013000 00761 20110 00050 010080
-05 1720 F PAULINE WINSTON 19740115 013000 00761 02110 00000 010130
-05 1720 F PAULINE WINSTON 19740201 014000 00819 02272 00075 010834
-05 1720 F PAULINE WINSTON 19740215 014000 00819 02272 00175 010734
-05 1720 F PAULINE WINSTON 19740301 014000 00819 02272 00050 010859
-05 2116 M HERMAN COX 19740101 010000 00585 01293 00175 007947
-05 2116 M HERMAN COX 19740115 010000 00585 01293 00175 007947
-05 2116 M HERMAN COX 19740201 010000 00585 01293 00100 008022
-05 2116 M HERMAN COX 19740215 010000 00585 01293 00100 008022
-05 2116 M HERMAN COX 19740301 010000 00585 01293 00075 008047
-05 2116 M HERMAN COX 19740315 011000 00644 01187 00100 009070
-05 6925 M ADOLF TRUJILLO 19740115 012500 00731 02379 00050 009340
-05 6925 M ADOLF TRUJILLO 19740201 012500 00731 02379 00100 009290
-05 6925 M ADOLF TRUJILLO 19740215 012500 00731 02379 00175 009215
-05 6925 M ADOLF TRUJILLO 19740301 012500 00731 02379 00075 009315
-05 6925 M ADOLF TRUJILLO 19740315 012500 00731 02379 00000 009390
-10 1504 F TIFFANY KEIR 19740101 029000 01697 03129 00050 024124
-10 1504 F TIFFANY KEIR 19740115 029000 01697 03129 00000 024174
-10 1504 F TIFFANY KEIR 19740201 029000 01697 03129 00075 024099
-10 1504 F TIFFANY KEIR 19740215 029000 01697 03129 00000 024174
-10 1504 F TIFFANY KEIR 19740301 029000 01697 03129 00000 024174
-10 1504 F TIFFANY KEIR 19740315 029000 01697 03129 00050 024124
-10 6640 M ALEXANDER CATHEY 19740101 032500 01901 06185 00000 024414
-10 6640 M ALEXANDER CATHEY 19740115 032500 01901 06185 00175 024239
-10 6640 M ALEXANDER CATHEY 19740201 032500 01901 06185 00175 024239
-10 6640 M ALEXANDER CATHEY 19740215 032500 01901 06185 00175 024239
-10 6640 M ALEXANDER CATHEY 19740301 032500 01901 06185 00100 024314
-10 6640 M ALEXANDER CATHEY 19740315 032500 01901 06185 00100 024314
-10 9465 M STEVE HUGHES 19740101 029500 01726 04788 00175 022811
-10 9465 M STEVE HUGHES 19740115 029500 01726 04788 00000 022986
-10 9465 M STEVE HUGHES 19740201 029500 01726 04788 00000 022986
-10 9465 M STEVE HUGHES 19740215 029500 01726 04788 00050 022936
-10 9465 M STEVE HUGHES 19740301 029500 01726 04788 00075 022911
-15 2903 F KAYLA VERBECK 19740101 014000 00819 02272 00050 010859
-15 2903 F KAYLA VERBECK 19740115 014000 00819 02272 00175 010734
-15 2903 F KAYLA VERBECK 19740201 014000 00819 02272 00050 010859
-15 2903 F KAYLA VERBECK 19740215 014000 00819 02272 00175 010734
-15 2903 F KAYLA VERBECK 19740301 014000 00819 02272 00000 010909
-15 2903 F KAYLA VERBECK 19740315 014000 00819 02272 00075 010834
-15 5196 F CLAIRE KELLAR 19740101 014500 00848 01114 00075 012463
-15 5196 F CLAIRE KELLAR 19740115 014500 00848 01114 00100 012438
-15 5196 F CLAIRE KELLAR 19740201 014500 00848 01114 00175 012363
-15 5196 F CLAIRE KELLAR 19740215 014500 00848 01114 00050 012488
-15 5196 F CLAIRE KELLAR 19740301 015300 00895 02912 00175 011318
-15 5196 F CLAIRE KELLAR 19740315 015300 00895 02912 00100 011393
-20 5190 F MARYANN GLAZENER 19740101 009000 00527 01164 00050 007260
-20 5190 F MARYANN GLAZENER 19740115 009000 00527 01164 00075 007235
-20 5190 F MARYANN GLAZENER 19740201 009000 00527 01164 00000 007310
-20 5190 F MARYANN GLAZENER 19740215 009000 00527 01164 00075 007235
-20 5190 F MARYANN GLAZENER 19740301 009000 00527 01164 00050 007260
-20 5190 F MARYANN GLAZENER 19740315 009000 00527 01164 00100 007210
-20 6580 F CAROLINE TROMBETTA 19740101 008000 00468 00863 00000 006669
-20 6580 F CAROLINE TROMBETTA 19740115 008000 00468 00863 00075 006594
-20 6580 F CAROLINE TROMBETTA 19740201 008000 00468 00863 00000 006569
-20 6580 F CAROLINE TROMBETTA 19740215 008000 00468 00863 00075 006594
-20 6580 F CAROLINE TROMBETTA 19740301 008000 00468 00863 00050 006619
-20 6580 F CAROLINE TROMBETTA 19740315 008000 00468 00863 00075 006594
-20 9507 F ADRIANA CHANGAZI 19740101 008300 00486 01347 00075 006392
-20 9507 F ADRIANA CHANGAZI 19740115 008300 00486 01347 00175 006292
-20 9507 F ADRIANA CHANGAZI 19740201 008300 00486 01347 00075 006392
-20 9507 F ADRIANA CHANGAZI 19740215 008300 00486 01347 00175 006292
-20 9507 F ADRIANA CHANGAZI 19740301 008300 00486 01347 00000 006467
-20 9507 F ADRIANA CHANGAZI 19740315 008300 00486 01347 00175 006292
-25 0428 M MELVIN BEHRENS 19740101 007800 00456 00842 00000 006502
-25 0428 M MELVIN BEHRENS 19740115 007800 00456 00842 00175 006327
-25 0428 M MELVIN BEHRENS 19740201 007800 00456 00842 00175 006327
-25 0428 M MELVIN BEHRENS 19740215 007800 00456 00842 00075 006427
-25 0428 M MELVIN BEHRENS 19740301 007800 00456 00842 00000 006502
-25 0428 M MELVIN BEHRENS 19740315 007800 00456 00842 00075 006427
-25 2003 M BALDWIN SIMONSEN 19740101 011000 00644 02093 00050 008213
-25 2003 M BALDWIN SIMONSEN 19740115 011000 00644 02093 00075 008188
-25 2003 M BALDWIN SIMONSEN 19740201 011000 00644 02093 00000 008263
-25 2003 M BALDWIN SIMONSEN 19740215 011000 00644 02093 00100 008163
-25 2003 M BALDWIN SIMONSEN 19740301 011500 00673 01487 00075 009265
-25 2003 M BALDWIN SIMONSEN 19740315 011500 00673 01487 00175 009165
-25 6491 M LEO TILLEY 19740101 010100 00591 00776 00050 008683
-25 6491 M LEO TILLEY 19740115 010100 00591 00776 00075 008658
-25 6491 M LEO TILLEY 19740201 010100 00591 00776 00050 008683
-25 6491 M LEO TILLEY 19740215 010100 00591 00776 00075 008658
-25 6491 M LEO TILLEY 19740301 010100 00591 00776 00100 008633
-25 6491 M LEO TILLEY 19740315 010100 00591 00776 00000 008733
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- * ************************************************************* *
- * * MODIFICATIONS: *
- * * CORRECT PARAGRAPH NAME AND GO TO CODING ERRORS. *
- * ************************************************************* *
-
- * ************************************************************* *
- * REPORT WRITER EXAMPLE #6. *
- * ************************************************************* *
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
-
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
-
- SELECT PAYROLL-REGISTER-DATA
- ASSIGN TO EXTERNAL DATAIN
- ORGANIZATION IS LINE SEQUENTIAL.
-
- SELECT REPORT-FILE
- ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT.
-
- DATA DIVISION.
- FILE SECTION.
-
- FD PAYROLL-REGISTER-DATA.
-
- 01 PAYROLL-REGISTER-RECORD.
- 03 PRR-DEPARTMENT-NUMBER PIC 9(02).
- 03 FILLER PIC X(01).
- 03 PRR-EMPLOYEE-KEY.
- 05 PRR-EMPLOYEE-NO PIC 9(04).
- 05 FILLER PIC X(01).
- 05 PRR-GENDER PIC X(01).
- 05 FILLER PIC X(01).
- 05 PRR-EMPLOYEE-NAME PIC X(20).
- 03 FILLER PIC X(01).
- 03 PRR-PAY-DATE PIC 9(08).
- 03 FILLER REDEFINES PRR-PAY-DATE.
- 05 PRR-PAY-DATE-YEAR PIC 9(04).
- 05 PRR-PAY-DATE-MONTH PIC 9(02).
- 05 PRR-PAY-DATE-DAY PIC 9(02).
- 03 FILLER PIC X(01).
- 03 PRR-GROSS-PAY PIC 9(04)V99.
- 03 FILLER PIC X(01).
- 03 PRR-FICA-WH PIC 9(03)V99.
- 03 FILLER PIC X(01).
- 03 PRR-FED-WH PIC 9(03)V99.
- 03 FILLER PIC X(01).
- 03 PRR-MISC-DED PIC 9(03)V99.
- 03 FILLER PIC X(01).
- 03 PRR-NET-PAY PIC 9(04)V99.
- 03 FILLER PIC X(09).
-
- FD REPORT-FILE
- REPORT IS QUARTERLY-PAY-REGISTER.
-
- WORKING-STORAGE SECTION.
- 77 END-OF-FILE-SWITCH PIC X(1) VALUE 'N'.
- 88 END-OF-FILE VALUE 'Y'.
- 77 PR-SW PIC X(1) VALUE 'N'.
- 77 SUM-FED-WH PIC 9(04)V99 VALUE 0.
- 77 HI-GROSS PIC 9(05) VALUE 2000.
-
- 01 WS-EMPLOYEE-KEY.
- 03 WS-EMPLOYEE-NUMBER PIC 9(04).
- 03 FILLER PIC X(03).
- 03 WS-EMPLOYEE-NAME PIC X(20).
-
- 01 WS-PERCENTS-COMPUTED.
- 03 WPC-DEPT OCCURS 6 TIMES
- INDEXED BY WPCD-IX.
- 05 WPC-PERCENT OCCURS 5 TIMES
- INDEXED BY WPCC-IX
- PIC 9(3)V99.
-
- 01 DEPARTMENT-TABLE.
- 03 FILLER PIC X(17) VALUE '01MANAGEMENT '.
- 03 FILLER PIC X(50) VALUE ZEROS.
- 03 FILLER PIC X(17) VALUE '05ADMINISTRATIVE '.
- 03 FILLER PIC X(50) VALUE ZEROS.
- 03 FILLER PIC X(17) VALUE '10SKILLED NURSING'.
- 03 FILLER PIC X(50) VALUE ZEROS.
- 03 FILLER PIC X(17) VALUE '15PATIENT SUPPORT'.
- 03 FILLER PIC X(50) VALUE ZEROS.
- 03 FILLER PIC X(17) VALUE '20HOUSEKEEPING '.
- 03 FILLER PIC X(50) VALUE ZEROS.
- 03 FILLER PIC X(17) VALUE '25MAINTENANCE '.
- 03 FILLER PIC X(50) VALUE ZEROS.
- 01 FILLER REDEFINES DEPARTMENT-TABLE.
- 03 DEPARTMENT-ENTRY OCCURS 6 TIMES
- INDEXED BY DE-IX.
- 05 DE-NUMBER PIC 9(02).
- 05 DE-NAME PIC X(15).
- 05 DE-GROSS PIC 9(08)V99.
- 05 DE-FICA PIC 9(08)V99.
- 05 DE-FWT PIC 9(08)V99.
- 05 DE-MISC PIC 9(08)V99.
- 05 DE-NET PIC 9(08)V99.
-
- REPORT SECTION.
- RD QUARTERLY-PAY-REGISTER
- CONTROLS ARE FINAL, PRR-DEPARTMENT-NUMBER,
- PRR-EMPLOYEE-KEY
- PAGE LIMIT IS 66 LINES
- HEADING 1
- FIRST DETAIL 7
- LAST DETAIL 60.
-
- 01 TYPE PAGE HEADING.
- 02 LINE 1.
- 03 COLUMN 39 PIC X(13) VALUE 'C E N T U R Y'.
- 03 COLUMN 55 PIC X(13) VALUE 'M E D I C A L'.
- 03 COLUMN 71 PIC X(11) VALUE 'C E N T E R'.
- 02 LINE 2.
- 03 COLUMN 35 PIC X(17) VALUE 'Q U A R T E R L Y'.
- 03 COLUMN 55 PIC X(13) VALUE 'P A Y R O L L'.
- 03 COLUMN 71 PIC X(15) VALUE 'R E G I S T E R'.
- 03 COLUMN 111 PIC X(04) VALUE 'PAGE'.
- 03 COLUMN 116 PIC ZZZZ9 SOURCE PAGE-COUNTER.
- 02 LINE 4.
- 03 COLUMN 06 PIC X(9) VALUE ALL '-'.
- 03 COLUMN 15 PIC X(28) VALUE
- ' EMPLOYEE ---------'.
- 03 COLUMN 40 PIC X(05) VALUE 'GROSS'.
- 03 COLUMN 54 PIC X(04) VALUE 'FICA'.
- 03 COLUMN 66 PIC X(07) VALUE 'FED W/H'.
- 03 COLUMN 80 PIC X(05) VALUE 'MISC.'.
- 03 COLUMN 95 PIC X(03) VALUE 'NET'.
- 02 LINE 5.
- 03 COLUMN 07 PIC X(02) VALUE 'NO'.
- 03 COLUMN 22 PIC X(04) VALUE 'NAME'.
- 03 COLUMN 41 PIC X(03) VALUE 'PAY'.
- 03 COLUMN 55 PIC X(03) VALUE 'TAX'.
- 03 COLUMN 68 PIC X(03) VALUE 'TAX'.
- 03 COLUMN 79 PIC X(07) VALUE 'DEDUCT.'.
- 03 COLUMN 95 PIC X(03) VALUE 'PAY'.
-
- 01 DEPT-HEAD TYPE CONTROL HEADING PRR-DEPARTMENT-NUMBER
- NEXT GROUP + 1.
- 02 LINE PLUS 1.
- 03 COLUMN 01 PIC X(18) VALUE
- 'DEPARTMENT NUMBER:'.
- 03 COLUMN 21 PIC 9(02) SOURCE PRR-DEPARTMENT-NUMBER.
- 03 COLUMN 24 PIC X(15) SOURCE DE-NAME (DE-IX).
-
- 01 EMPLOYEE-DETAIL TYPE DETAIL.
- 02 LINE + 1.
- 03 COLUMN 01 PIC X(27) SOURCE PRR-EMPLOYEE-KEY.
- 03 COLUMN 30 PIC X(5) VALUE "Hello"
- PRESENT AFTER NEW PRR-EMPLOYEE-KEY
- OR PAGE.
- 03 COLUMN 30 PIC X(5) VALUE " '' "
- ABSENT AFTER NEW PRR-EMPLOYEE-KEY
- OR PAGE.
- 03 COLUMN 50 PIC 9(04).99 SOURCE PRR-GROSS-PAY.
- 03 COLUMN 60 PIC 9(03).99 SOURCE PRR-FICA-WH.
- 03 COLUMN 70 PIC 9(03).99 SOURCE PRR-FED-WH.
- 03 COLUMN 80 PIC 9(03).99 SOURCE PRR-MISC-DED.
- 03 COLUMN 90 PIC 9(04).99 SOURCE PRR-NET-PAY.
-
- 01 EMPL-FOOT TYPE CONTROL FOOTING PRR-EMPLOYEE-KEY.
- 02 LINE PLUS 1
- PRESENT WHEN SUM-FED-WH > 80.00
- .
- 03 COLUMN 06 PIC ZZZ9 SOURCE WS-EMPLOYEE-NUMBER.
- 03 COLUMN 14 PIC X(20) SOURCE WS-EMPLOYEE-NAME.
- 03 COLUMN 38 PIC $$,$$9.99 SUM PRR-GROSS-PAY.
- 03 COLUMN 53 PIC $$$9.99 SUM PRR-FICA-WH.
- 03 COLUMN 66 PIC $$$9.99 SUM PRR-FED-WH.
- 03 COLUMN 79 PIC $$$9.99 SUM PRR-MISC-DED.
- 03 COLUMN 92 PIC $$,$$9.99 SUM PRR-NET-PAY.
-
- 01 DEPT-FOOT TYPE CONTROL FOOTING PRR-DEPARTMENT-NUMBER
- NEXT GROUP PLUS 2.
- 02 LINE PLUS 2.
- 03 COLUMN 14 PIC X(20) VALUE
- 'DEPARTMENT TOTALS'.
- 03 DEPT-FOOT-GROSS COLUMN 38 PIC $$,$$9.99
- SUM PRR-GROSS-PAY.
- 03 COLUMN 48 PIC X VALUE '*'.
- 03 DEPT-FOOT-FICA COLUMN 53 PIC $$$9.99
- SUM PRR-FICA-WH.
- 03 COLUMN 61 PIC X VALUE '*'.
- 03 DEPT-FOOT-FWT COLUMN 66 PIC $$$9.99
- SUM PRR-FED-WH.
- 03 COLUMN 74 PIC X VALUE '*'.
- 03 DEPT-FOOT-MISC COLUMN 79 PIC $$$9.99
- SUM PRR-MISC-DED.
- 03 COLUMN 87 PIC X VALUE '*'.
- 03 DEPT-FOOT-NET COLUMN 92 PIC $$,$$9.99
- SUM PRR-NET-PAY.
- 03 COLUMN 102 PIC X VALUE '*'.
-
- 01 COMP-FOOT TYPE CONTROL FOOTING FINAL.
- 02 LINE PLUS 2.
- 03 COLUMN 14 PIC X(20) VALUE
- 'COMPANY TOTALS'.
- 03 CO-GROSS COLUMN 37 PIC $$$,$$9.99
- SUM PRR-GROSS-PAY.
- 03 COLUMN 48 PIC XX VALUE '**'.
- 03 CO-FICA COLUMN 51 PIC $$,$$9.99
- SUM PRR-FICA-WH.
- 03 COLUMN 61 PIC XX VALUE '**'.
- 03 CO-FWT COLUMN 64 PIC $$,$$9.99
- SUM PRR-FED-WH.
- 03 COLUMN 74 PIC XX VALUE '**'.
- 03 CO-MISC COLUMN 77 PIC $$,$$9.99
- SUM PRR-MISC-DED.
- 03 COLUMN 87 PIC XX VALUE '**'.
- 03 CO-NET COLUMN 91 PIC $$$,$$9.99
- SUM PRR-NET-PAY.
- 03 COLUMN 102 PIC XX VALUE '**'.
-
- 01 REPORT-FOOT TYPE REPORT FOOTING.
- 02 LINE 1.
- 03 COLUMN 39 PIC X(13) VALUE 'C e n t u r y'.
- 03 COLUMN 55 PIC X(13) VALUE 'M e d i c a l'.
- 03 COLUMN 71 PIC X(11) VALUE 'C e n t e r'.
- 02 LINE 2.
- 03 COLUMN 35 PIC X(17) VALUE 'Q u a r t e r l y'.
- 03 COLUMN 55 PIC X(13) VALUE 'P a y r o l l'.
- 03 COLUMN 71 PIC X(15) VALUE 'R e g i s t e r'.
- 03 COLUMN 111 PIC X(04) VALUE 'PAGE'.
- 03 COLUMN 116 PIC ZZZZ9 SOURCE PAGE-COUNTER.
- 02 LINE 4.
- 03 COLUMN 40 PIC X(05) VALUE 'GROSS'.
- 03 COLUMN 58 PIC X(04) VALUE 'FICA'.
- 03 COLUMN 74 PIC X(07) VALUE 'FED W/H'.
- 03 COLUMN 92 PIC X(05) VALUE 'MISC.'.
- 03 COLUMN 111 PIC X(03) VALUE 'NET'.
- 02 LINE 5.
- 03 COLUMN 41 PIC X(03) VALUE 'PAY'.
- 03 COLUMN 59 PIC X(03) VALUE 'TAX'.
- 03 COLUMN 76 PIC X(03) VALUE 'TAX'.
- 03 COLUMN 91 PIC X(07) VALUE 'DEDUCT.'.
- 03 COLUMN 111 PIC X(03) VALUE 'PAY'.
-
- 02 LINE PLUS 2.
- 03 COLUMN 05 PIC X(29) VALUE
- '* * * DEPARTMENT TOTALS * * *'.
- 02 LINE PLUS 2.
- 03 COLUMN 05 PIC 9(02) SOURCE DE-NUMBER (1).
- 03 COLUMN 08 PIC X(15) SOURCE DE-NAME (1).
- 03 FILLER PRESENT WHEN DE-GROSS (1) > HI-GROSS.
- 05 COLUMN 30 PIC X(4) VALUE "High".
- 03 COLUMN 38 PIC $$,$$9.99 SOURCE DE-GROSS (1).
- 03 COLUMN 48 PIC ZZ9 SOURCE WPC-PERCENT (1 1).
- 03 COLUMN 51 PIC X VALUE '%'.
- 03 COLUMN 57 PIC $$$9.99 SOURCE DE-FICA (1).
- 03 COLUMN 65 PIC ZZ9 SOURCE WPC-PERCENT (1 2).
- 03 COLUMN 68 PIC X VALUE '%'.
- 03 COLUMN 74 PIC $$$9.99 SOURCE DE-FWT (1).
- 03 COLUMN 82 PIC ZZ9 SOURCE WPC-PERCENT (1 3).
- 03 COLUMN 85 PIC X VALUE '%'.
- 03 COLUMN 91 PIC $$$9.99 SOURCE DE-MISC (1).
- 03 COLUMN 99 PIC ZZ9 SOURCE WPC-PERCENT (1 4).
- 03 COLUMN 102 PIC X VALUE '%'.
- 03 COLUMN 108 PIC $$,$$9.99 SOURCE DE-NET (1).
- 03 COLUMN 118 PIC ZZ9 SOURCE WPC-PERCENT (1 5).
- 03 COLUMN 121 PIC X VALUE '%'.
- 03 FILLER PRESENT WHEN WPC-PERCENT (1 5) < 15 .
- 05 COLUMN PLUS 2 PIC X(2) VALUE "Lo".
- 02 LINE PLUS 2.
- 03 COLUMN 05 PIC 9(02) SOURCE DE-NUMBER (2).
- 03 COLUMN 08 PIC X(15) SOURCE DE-NAME (2).
- 03 FILLER PRESENT WHEN DE-GROSS (2) > HI-GROSS.
- 05 COLUMN 30 PIC X(4) VALUE "High".
- 03 COLUMN 38 PIC $$,$$9.99 SOURCE DE-GROSS (2).
- 03 COLUMN 48 PIC ZZ9 SOURCE WPC-PERCENT (2 1).
- 03 COLUMN 51 PIC X VALUE '%'.
- 03 COLUMN 57 PIC $$$9.99 SOURCE DE-FICA (2).
- 03 COLUMN 65 PIC ZZ9 SOURCE WPC-PERCENT (2 2).
- 03 COLUMN 68 PIC X VALUE '%'.
- 03 COLUMN 74 PIC $$$9.99 SOURCE DE-FWT (2).
- 03 COLUMN 82 PIC ZZ9 SOURCE WPC-PERCENT (2 3).
- 03 COLUMN 85 PIC X VALUE '%'.
- 03 COLUMN 91 PIC $$$9.99 SOURCE DE-MISC (2).
- 03 COLUMN 99 PIC ZZ9 SOURCE WPC-PERCENT (2 4).
- 03 COLUMN 102 PIC X VALUE '%'.
- 03 COLUMN 108 PIC $$,$$9.99 SOURCE DE-NET (2).
- 03 COLUMN 118 PIC ZZ9 SOURCE WPC-PERCENT (2 5).
- 03 COLUMN 121 PIC X VALUE '%'.
- 03 FILLER PRESENT WHEN WPC-PERCENT (2 5) < 15 .
- 05 COLUMN PLUS 2 PIC X(2) VALUE "Lo".
- 02 LINE PLUS 2.
- 03 COLUMN 05 PIC 9(02) SOURCE DE-NUMBER (3).
- 03 COLUMN 08 PIC X(15) SOURCE DE-NAME (3).
- 03 FILLER PRESENT WHEN DE-GROSS (3) > HI-GROSS.
- 05 COLUMN 30 PIC X(4) VALUE "High".
- 03 COLUMN 38 PIC $$,$$9.99 SOURCE DE-GROSS (3).
- 03 COLUMN 48 PIC ZZ9 SOURCE WPC-PERCENT (3 1).
- 03 COLUMN 51 PIC X VALUE '%'.
- 03 COLUMN 57 PIC $$$9.99 SOURCE DE-FICA (3).
- 03 COLUMN 65 PIC ZZ9 SOURCE WPC-PERCENT (3 2).
- 03 COLUMN 68 PIC X VALUE '%'.
- 03 COLUMN 74 PIC $$$9.99 SOURCE DE-FWT (3).
- 03 COLUMN 82 PIC ZZ9 SOURCE WPC-PERCENT (3 3).
- 03 COLUMN 85 PIC X VALUE '%'.
- 03 COLUMN 91 PIC $$$9.99 SOURCE DE-MISC (3).
- 03 COLUMN 99 PIC ZZ9 SOURCE WPC-PERCENT (3 4).
- 03 COLUMN 102 PIC X VALUE '%'.
- 03 COLUMN 108 PIC $$,$$9.99 SOURCE DE-NET (3).
- 03 COLUMN 118 PIC ZZ9 SOURCE WPC-PERCENT (3 5).
- 03 COLUMN 121 PIC X VALUE '%'.
- 03 FILLER PRESENT WHEN WPC-PERCENT (3 5) < 15 .
- 05 COLUMN PLUS 2 PIC X(2) VALUE "Lo".
- 02 LINE PLUS 2.
- 03 COLUMN 05 PIC 9(02) SOURCE DE-NUMBER (4).
- 03 COLUMN 08 PIC X(15) SOURCE DE-NAME (4).
- 03 COLUMN 38 PIC $$,$$9.99 SOURCE DE-GROSS (4).
- 03 COLUMN 48 PIC ZZ9 SOURCE WPC-PERCENT (4 1).
- 03 COLUMN 51 PIC X VALUE '%'.
- 03 COLUMN 57 PIC $$$9.99 SOURCE DE-FICA (4).
- 03 COLUMN 65 PIC ZZ9 SOURCE WPC-PERCENT (4 2).
- 03 COLUMN 68 PIC X VALUE '%'.
- 03 COLUMN 74 PIC $$$9.99 SOURCE DE-FWT (4).
- 03 COLUMN 82 PIC ZZ9 SOURCE WPC-PERCENT (4 3).
- 03 COLUMN 85 PIC X VALUE '%'.
- 03 COLUMN 91 PIC $$$9.99 SOURCE DE-MISC (4).
- 03 COLUMN 99 PIC ZZ9 SOURCE WPC-PERCENT (4 4).
- 03 COLUMN 102 PIC X VALUE '%'.
- 03 COLUMN 108 PIC $$,$$9.99 SOURCE DE-NET (4).
- 03 COLUMN 118 PIC ZZ9 SOURCE WPC-PERCENT (4 5).
- 03 COLUMN 121 PIC X VALUE '%'.
- 02 LINE PLUS 2.
- 03 COLUMN 05 PIC 9(02) SOURCE DE-NUMBER (5).
- 03 COLUMN 08 PIC X(15) SOURCE DE-NAME (5).
- 03 COLUMN 38 PIC $$,$$9.99 SOURCE DE-GROSS (5).
- 03 COLUMN 48 PIC ZZ9 SOURCE WPC-PERCENT (5 1).
- 03 COLUMN 51 PIC X VALUE '%'.
- 03 COLUMN 57 PIC $$$9.99 SOURCE DE-FICA (5).
- 03 COLUMN 65 PIC ZZ9 SOURCE WPC-PERCENT (5 2).
- 03 COLUMN 68 PIC X VALUE '%'.
- 03 COLUMN 74 PIC $$$9.99 SOURCE DE-FWT (5).
- 03 COLUMN 82 PIC ZZ9 SOURCE WPC-PERCENT (5 3).
- 03 COLUMN 85 PIC X VALUE '%'.
- 03 COLUMN 91 PIC $$$9.99 SOURCE DE-MISC (5).
- 03 COLUMN 99 PIC ZZ9 SOURCE WPC-PERCENT (5 4).
- 03 COLUMN 102 PIC X VALUE '%'.
- 03 COLUMN 108 PIC $$,$$9.99 SOURCE DE-NET (5).
- 03 COLUMN 118 PIC ZZ9 SOURCE WPC-PERCENT (5 5).
- 03 COLUMN 121 PIC X VALUE '%'.
- 02 LINE PLUS 2.
- 03 COLUMN 05 PIC 9(02) SOURCE DE-NUMBER (6).
- 03 COLUMN 08 PIC X(15) SOURCE DE-NAME (6).
- 03 COLUMN 38 PIC $$,$$9.99 SOURCE DE-GROSS (6).
- 03 COLUMN 48 PIC ZZ9 SOURCE WPC-PERCENT (6 1).
- 03 COLUMN 51 PIC X VALUE '%'.
- 03 COLUMN 57 PIC $$$9.99 SOURCE DE-FICA (6).
- 03 COLUMN 65 PIC ZZ9 SOURCE WPC-PERCENT (6 2).
- 03 COLUMN 68 PIC X VALUE '%'.
- 03 COLUMN 74 PIC $$$9.99 SOURCE DE-FWT (6).
- 03 COLUMN 82 PIC ZZ9 SOURCE WPC-PERCENT (6 3).
- 03 COLUMN 85 PIC X VALUE '%'.
- 03 COLUMN 91 PIC $$$9.99 SOURCE DE-MISC (6).
- 03 COLUMN 99 PIC ZZ9 SOURCE WPC-PERCENT (6 4).
- 03 COLUMN 102 PIC X VALUE '%'.
- 03 COLUMN 108 PIC $$,$$9.99 SOURCE DE-NET (6).
- 03 COLUMN 118 PIC ZZ9 SOURCE WPC-PERCENT (6 5).
- 03 COLUMN 121 PIC X VALUE '%'.
- 02 LINE PLUS 2.
- 03 COLUMN 37 PIC $$$,$$9.99 SOURCE CO-GROSS.
- 03 COLUMN 48 PIC X(5) VALUE '100%'.
- 03 COLUMN 55 PIC $$,$$9.99 SOURCE CO-FICA.
- 03 COLUMN 65 PIC X(5) VALUE '100%'.
- 03 COLUMN 72 PIC $$,$$9.99 SOURCE CO-FWT.
- 03 COLUMN 82 PIC X(5) VALUE '100%'.
- 03 COLUMN 89 PIC $$,$$9.99 SOURCE CO-MISC.
- 03 COLUMN 99 PIC X(5) VALUE '100%'.
- 03 COLUMN 107 PIC $$$,$$9.99 SOURCE CO-NET.
- 03 COLUMN 118 PIC X(5) VALUE '100%'.
-
- PROCEDURE DIVISION.
-
- DECLARATIVES.
-
- DEPT-HEAD-USE SECTION. USE BEFORE REPORTING DEPT-HEAD.
- DEPT-HEAD-PROC.
- SET DE-IX TO +1.
- SEARCH DEPARTMENT-ENTRY
- WHEN DE-NUMBER (DE-IX) = PRR-DEPARTMENT-NUMBER
- MOVE ZEROS TO DE-GROSS (DE-IX), DE-FICA (DE-IX),
- DE-FWT (DE-IX), DE-MISC (DE-IX),
- DE-NET (DE-IX).
-
- DEPT-HEAD-EXIT.
- EXIT.
-
- EMPL-FOOT-USE SECTION. USE BEFORE REPORTING EMPL-FOOT.
- EMPL-FOOT-PROC.
- MOVE PRR-EMPLOYEE-KEY TO WS-EMPLOYEE-KEY.
- MOVE 'Y' TO PR-SW.
-
- EMPL-FOOT-EXIT.
- EXIT.
-
- DEPT-FOOT-USE SECTION. USE BEFORE REPORTING DEPT-FOOT.
- DEPT-FOOT-PROC.
- MOVE DEPT-FOOT-GROSS TO DE-GROSS (DE-IX).
- MOVE DEPT-FOOT-FICA TO DE-FICA (DE-IX).
- MOVE DEPT-FOOT-FWT TO DE-FWT (DE-IX).
- MOVE DEPT-FOOT-MISC TO DE-MISC (DE-IX).
- MOVE DEPT-FOOT-NET TO DE-NET (DE-IX).
- * SUPPRESS PRINTING.
-
- DEPT-FOOT-EXIT.
- EXIT.
-
- COMP-FOOT-USE SECTION. USE BEFORE REPORTING COMP-FOOT.
- COMP-FOOT-PROC.
- PERFORM COMP-FOOT-CALC
- VARYING WPCD-IX FROM +1 BY +1
- UNTIL WPCD-IX > +6.
- GO TO COMP-FOOT-EXIT.
-
- COMP-FOOT-CALC.
- SET DE-IX TO WPCD-IX.
- SET WPCC-IX TO +1.
- COMPUTE WPC-PERCENT (WPCD-IX WPCC-IX) ROUNDED =
- ((DE-GROSS (DE-IX) / CO-GROSS) * 100) + .5.
- SET WPCC-IX TO +2.
- COMPUTE WPC-PERCENT (WPCD-IX WPCC-IX) ROUNDED =
- ((DE-FICA (DE-IX) / CO-FICA) * 100) + .5.
- SET WPCC-IX TO +3.
- COMPUTE WPC-PERCENT (WPCD-IX WPCC-IX) ROUNDED =
- ((DE-FWT (DE-IX) / CO-FWT) * 100) + .5.
- SET WPCC-IX TO +4.
- COMPUTE WPC-PERCENT (WPCD-IX WPCC-IX) ROUNDED =
- ((DE-MISC (DE-IX) / CO-MISC) * 100) + .5.
- SET WPCC-IX TO +5.
- COMPUTE WPC-PERCENT (WPCD-IX WPCC-IX) ROUNDED =
- ((DE-NET (DE-IX) / CO-NET) * 100) + .5.
-
- COMP-FOOT-EXIT.
- EXIT.
-
- END DECLARATIVES.
-
- 000-INITIATE.
-
- OPEN INPUT PAYROLL-REGISTER-DATA,
- OUTPUT REPORT-FILE.
-
- INITIATE QUARTERLY-PAY-REGISTER.
-
- READ PAYROLL-REGISTER-DATA
- AT END
- MOVE 'Y' TO END-OF-FILE-SWITCH.
-
- PERFORM 100-PROCESS-PAYROLL-DATA THRU 199-EXIT
- UNTIL END-OF-FILE.
-
- 000-TERMINATE.
- TERMINATE QUARTERLY-PAY-REGISTER.
-
- CLOSE PAYROLL-REGISTER-DATA,
- REPORT-FILE.
-
- STOP RUN.
-
- 100-PROCESS-PAYROLL-DATA.
- ADD PRR-FED-WH TO SUM-FED-WH.
- GENERATE QUARTERLY-PAY-REGISTER.
- IF PR-SW = 'Y'
- MOVE 'N' TO PR-SW
- MOVE ZERO TO SUM-FED-WH.
- READ PAYROLL-REGISTER-DATA
- AT END
- MOVE 'Y' TO END-OF-FILE-SWITCH.
-
- 199-EXIT.
- EXIT.
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:2794: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_reportwriter.at:2794"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:2794"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:2796: DD_DATAIN=\"./inp_data\" DD_SYSPRINT=\"./report.txt\" \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "DD_DATAIN=\"./inp_data\" DD_SYSPRINT=\"./report.txt\" $COBCRUN_DIRECT ./prog" "run_reportwriter.at:2796"
-( $at_check_trace; DD_DATAIN="./inp_data" DD_SYSPRINT="./report.txt" $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:2796"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-cat >reference <<'_ATEOF'
- C E N T U R Y M E D I C A L C E N T E R
- Q U A R T E R L Y P A Y R O L L R E G I S T E R PAGE 1
-
- --------- EMPLOYEE --------- GROSS FICA FED W/H MISC. NET
- NO NAME PAY TAX TAX DEDUCT. PAY
-
-DEPARTMENT NUMBER: 01 MANAGEMENT
-
- 6622 GAVIN SHAFER $1,040.00 $60.84 $134.48 $4.75 $839.93
- 7078 VERA ALSTON $1,800.00 $105.30 $138.24 $3.75 $1,552.71
- 8093 GRADY KAISER $2,300.00 $134.57 $247.53 $6.50 $1,911.43
-
- DEPARTMENT TOTALS $5,140.00 * $300.71 * $520.25 * $15.00 * $4,304.07 *
-
-
-DEPARTMENT NUMBER: 05 ADMINISTRATIVE
-
- 1720 PAULINE WINSTON $680.00 $39.79 $290.36 $3.50 $526.37
- 2116 HERMAN COX $610.00 $35.69 $76.52 $7.25 $490.55
- 6925 ADOLF TRUJILLO $625.00 $36.55 $118.95 $4.00 $465.50
-
- DEPARTMENT TOTALS $1,915.00 * $112.03 * $485.83 * $14.75 * $1,482.42 *
-
-
-DEPARTMENT NUMBER: 10 SKILLED NURSING
-
- 1504 TIFFANY KEIR $1,740.00 $101.82 $187.74 $1.75 $1,448.69
- 6640 ALEXANDER CATHEY $1,950.00 $114.06 $371.10 $7.25 $1,457.59
- 9465 STEVE HUGHES $1,475.00 $86.30 $239.40 $3.00 $1,146.30
-
- DEPARTMENT TOTALS $5,165.00 * $302.18 * $798.24 * $12.00 * $4,052.58 *
-
-
-DEPARTMENT NUMBER: 15 PATIENT SUPPORT
-
- 2903 KAYLA VERBECK $840.00 $49.14 $136.32 $5.25 $649.29
- 5196 CLAIRE KELLAR $886.00 $51.82 $102.80 $6.75 $724.63
-
- DEPARTMENT TOTALS $1,726.00 * $100.96 * $239.12 * $12.00 * $1,373.92 *
-
-
-DEPARTMENT NUMBER: 20 HOUSEKEEPING
-
-
- DEPARTMENT TOTALS $1,518.00 * $88.86 * $202.44 * $13.00 * $1,212.76 *
-
-
-DEPARTMENT NUMBER: 25 MAINTENANCE
-
- 2003 BALDWIN SIMONSEN $670.00 $39.22 $113.46 $4.75 $512.57
-
- DEPARTMENT TOTALS $1,744.00 * $102.04 * $210.54 * $13.25 * $1,418.17 *
-
- COMPANY TOTALS $17,208.00 ** $1,006.78 ** $2,456.42 ** $80.00 ** $13,843.92 **
-
-
-
-
-
-
-
-
-
-
-
-
- C e n t u r y M e d i c a l C e n t e r
- Q u a r t e r l y P a y r o l l R e g i s t e r PAGE 2
-
- GROSS FICA FED W/H MISC. NET
- PAY TAX TAX DEDUCT. PAY
-
- * * * DEPARTMENT TOTALS * * *
-
- 01 MANAGEMENT High $5,140.00 30% $300.71 30% $520.25 21% $15.00 19% $4,304.07 31%
-
- 05 ADMINISTRATIVE $1,915.00 11% $112.03 11% $485.83 20% $14.75 18% $1,482.42 11% Lo
-
- 10 SKILLED NURSING High $5,165.00 30% $302.18 30% $798.24 33% $12.00 15% $4,052.58 29%
-
- 15 PATIENT SUPPORT $1,726.00 10% $100.96 10% $239.12 10% $12.00 15% $1,373.92 10%
-
- 20 HOUSEKEEPING $1,518.00 9% $88.86 9% $202.44 8% $13.00 16% $1,212.76 9%
-
- 25 MAINTENANCE $1,744.00 10% $102.04 10% $210.54 9% $13.25 17% $1,418.17 10%
-
- $17,208.00 100% $1,006.78 100% $2,456.42 100% $80.00 100% $13,843.92 100%
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:2890: diff reference report.txt"
-at_fn_check_prepare_trace "run_reportwriter.at:2890"
-( $at_check_trace; diff reference report.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:2890"
-$at_failed && at_fn_log_failure \
-"report.txt"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_966
-#AT_START_967
-at_fn_group_banner 967 'run_reportwriter.at:2895' \
- "Sample REPORT with RIGHT/CENTER" " " 4
-at_xfail=no
-(
- printf "%s\n" "967. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >inp_data <<'_ATEOF'
-00099Dorken, Keith CS 000008
-00007Allinson, Sandy MA 000118
-00125Allinson, Nina MA 012308
-00126Allinson, Natalia MA 000008
-00127Allinson, Kristina MBA000008
-00131Norman, Nancy SC 000006
-00132Norman, Becky SC 000116
-00133Norman, Michelle SC 112306
-00134Norman, James AM 000006
-12345Norman, Ron CS 000008
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- INPUT-OUTPUT SECTION.
-
- FILE-CONTROL.
- SELECT INPUT-FILE ASSIGN TO EXTERNAL STUDENT
- ORGANIZATION IS LINE SEQUENTIAL.
- SELECT PRINT-FILE ASSIGN TO EXTERNAL
- LINE ADVANCING REPORT1.
-
- DATA DIVISION.
- FILE SECTION.
- FD INPUT-FILE.
- 01 INPUT-REC.
- 05 STUDENT-ID PIC 9(5).
- 05 STUDENT-NAME PIC X(20).
- 05 MAJOR PIC XXX.
- 05 NUM-COURSES PIC 9(6).
-
- FD PRINT-FILE
- BLOCK CONTAINS 0 RECORDS
- RECORDING MODE IS F
- RECORD CONTAINS 132 CHARACTERS
- REPORT IS STUDENT-REPORT.
- 01 RW-REC PIC X(90).
-
- WORKING-STORAGE SECTION.
- 01 ARE-THERE-MORE-RECORDS PIC XXX VALUE "YES".
-
- REPORT SECTION.
- RD STUDENT-REPORT
- PAGE LIMIT 30
- HEADING 1
- FIRST DETAIL 5
- LAST DETAIL 25
- FOOTING 28
- LINE LIMIT 90
- .
- 01 HEADING-LINE.
- 02 TYPE PAGE HEADING LINE PLUS 1.
- 05 COLUMN 1 PIC X(50) VALUE
- " 1 2 3 4 5".
- 05 COLUMN 51 PIC X(20) VALUE " 6 7".
- 02 TYPE PAGE HEADING LINE PLUS 1.
- 05 COLUMN 1 PIC X(50) VALUE
- "12345678901234567890123456789012345678901234567890".
- 05 COLUMN 51 PIC X(20) VALUE "12345678901234567890".
- 02 TYPE PAGE HEADING LINE PLUS 1.
- 05 COLUMN 1 PIC X(2) VALUE "Ln".
- 05 COLUMN 5 PIC X(6) VALUE "--ID--".
- 05 COLUMN 16 PIC X(20) VALUE "--------Name--------".
- 05 COLUMN 39 PIC X(5) VALUE "Major".
- 05 COLUMN 45 PIC XXX VALUE "*-*".
- 05 COLUMN 54 PIC X(5) VALUE "+Odd+".
- 05 COLUMN 61 PIC X(6) VALUE "+Even+".
-
- 01 REPORT-LINE
- TYPE DETAIL LINE PLUS 1.
- 05 COLUMN PLUS 1 PIC Z9
- SOURCE LINE-COUNTER OF STUDENT-REPORT.
- 05 COLUMN LEFT PLUS 3 PIC Z(5)9 SOURCE STUDENT-ID.
- 05 COLUMN CENTER 25 PIC X(20) SOURCE STUDENT-NAME.
- 05 COLUMN RIGHT 43 PIC X(5) SOURCE MAJOR.
- 05 COLUMN 45 PIC XXX VALUE ":-:".
- 05 COLUMN CENTER 56 PIC Z(4)9 SOURCE NUM-COURSES.
- 05 COLUMN CENTER 63 PIC Z(5)9 SOURCE NUM-COURSES.
- 05 COLUMN 68 PIC X VALUE ":".
-
- PROCEDURE DIVISION.
- A000-MAINLINE.
- OPEN INPUT INPUT-FILE
- OUTPUT PRINT-FILE
- PERFORM DO-INIT.
- READ INPUT-FILE
- AT END
- MOVE "NO" TO ARE-THERE-MORE-RECORDS.
- PERFORM A001-LOOP
- UNTIL ARE-THERE-MORE-RECORDS = "NO ".
- PERFORM DO-TERM.
- CLOSE INPUT-FILE
- PRINT-FILE.
- STOP RUN.
-
- A001-LOOP.
- GENERATE REPORT-LINE.
- READ INPUT-FILE
- AT END
- MOVE "NO " TO ARE-THERE-MORE-RECORDS.
- DO-INIT.
- INITIATE STUDENT-REPORT.
-
- DO-TERM.
- TERMINATE STUDENT-REPORT.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:3009: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_reportwriter.at:3009"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:62: warning: PLUS is ignored on first field of line
-prog.cob:64: error: PLUS is not allowed with LEFT, RIGHT or CENTER
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_reportwriter.at:3009"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:3014: \$COMPILE -std=mf prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=mf prog.cob" "run_reportwriter.at:3014"
-( $at_check_trace; $COMPILE -std=mf prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:62: warning: PLUS is ignored on first field of line
-prog.cob:64: warning: PLUS is not recommended with LEFT, RIGHT or CENTER
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:3014"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:3019: DD_STUDENT=./inp_data DD_REPORT1=./report.txt \\
-\$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_notrace 'an embedded newline' "run_reportwriter.at:3019"
-( $at_check_trace; DD_STUDENT=./inp_data DD_REPORT1=./report.txt \
-$COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:3019"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-cat >reference <<'_ATEOF'
- 1 2 3 4 5 6 7
-1234567890123456789012345678901234567890123456789012345678901234567890
-Ln --ID-- --------Name-------- Major *-* +Odd+ +Even+
-
- 5 99 Dorken, Keith CS :-: 8 8 :
- 6 7 Allinson, Sandy MA :-: 118 118 :
- 7 125 Allinson, Nina MA :-: 12308 12308 :
- 8 126 Allinson, Natalia MA :-: 8 8 :
- 9 127 Allinson, Kristina MBA :-: 8 8 :
-10 131 Norman, Nancy SC :-: 6 6 :
-11 132 Norman, Becky SC :-: 116 116 :
-12 133 Norman, Michelle SC :-: 12306 112306 :
-13 134 Norman, James AM :-: 6 6 :
-14 12345 Norman, Ron CS :-: 8 8 :
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:3058: diff reference report.txt"
-at_fn_check_prepare_trace "run_reportwriter.at:3058"
-( $at_check_trace; diff reference report.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:3058"
-$at_failed && at_fn_log_failure \
-"report.txt"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_967
-#AT_START_968
-at_fn_group_banner 968 'run_reportwriter.at:3063' \
- "STUDENT REPORT with INITIAL" " " 4
-at_xfail=no
-(
- printf "%s\n" "968. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >inp_data <<'_ATEOF'
-00123Dorken, Keith CS 08
-00124Allinson, Sandy MA 08
-00125Allinson, Nina MA 08
-00126Allinson, Natalia MA 08
-00127Allinson, Kristina MBA08
-00131Norman, Nancy SC 06
-00132Norman, Becky SC 06
-00133Norman, Michelle SC 06
-00134Norman, James AM 06
-12345Norman, Ron CS 08
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog INITIAL.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT INPUT-FILE ASSIGN TO EXTERNAL STUDENT
- ORGANIZATION IS LINE SEQUENTIAL.
- SELECT PRINT-FILE ASSIGN TO EXTERNAL
- LINE ADVANCING REPORT1.
-
- DATA DIVISION.
- FILE SECTION.
- FD INPUT-FILE.
- 01 INPUT-REC.
- 05 STUDENT-ID PIC 9(5).
- 05 STUDENT-NAME PIC X(20).
- 05 MAJOR PIC XXX.
- 05 NUM-COURSES PIC 99.
-
- FD PRINT-FILE
- REPORT IS STUDENT-REPORT STUDENT-REPORT2.
-
- WORKING-STORAGE SECTION.
- 01 ARE-THERE-MORE-RECORDS PIC XXX VALUE "YES".
-
- REPORT SECTION.
- RD STUDENT-REPORT
- PAGE LIMIT 30 LINES
- HEADING 2
- FIRST DETAIL 3
- LAST DETAIL 25
- FOOTING 28.
- 01 REPORT-LINE
- TYPE DETAIL
- LINE PLUS 1.
- 05 COLUMN 1 PIC 9(2)
- SOURCE LINE-COUNTER OF STUDENT-REPORT.
- 05 COLUMN 4 PIC 9(6) SOURCE STUDENT-ID.
- 05 COLUMN 15 PIC X(20) SOURCE STUDENT-NAME.
- 05 COLUMN 40 PIC XXX SOURCE MAJOR.
- 05 COLUMN 45 PIC XXX VALUE "-*-".
- 05 COLUMN 52 PIC 99 SOURCE NUM-COURSES.
-
- RD STUDENT-REPORT2
- PAGE LIMIT 60 LINES
- HEADING 2
- FIRST DETAIL 5
- LAST DETAIL 55
- FOOTING 58.
- 01 REPORT-LINE2
- TYPE DETAIL
- LINE PLUS 1.
- 05 COLUMN 4 PIC 9(6) SOURCE STUDENT-ID.
- 05 COLUMN 15 PIC X(20) SOURCE STUDENT-NAME.
- 05 COLUMN 40 PIC XXX SOURCE MAJOR.
- 05 COLUMN 45 PIC 99 SOURCE NUM-COURSES.
- 01 REPORT-LINE3
- TYPE DETAIL
- LINE PLUS 2.
- 05 COLUMN 4 PIC 9(6) SOURCE STUDENT-ID.
- 05 COLUMN 15 PIC X(20) SOURCE STUDENT-NAME.
- 05 COLUMN 40 PIC XXX SOURCE MAJOR.
-
- PROCEDURE DIVISION.
- A000-MAINLINE.
- OPEN INPUT INPUT-FILE
- OUTPUT PRINT-FILE
- PERFORM DO-INIT.
- READ INPUT-FILE
- AT END
- MOVE "NO" TO ARE-THERE-MORE-RECORDS.
- PERFORM A001-LOOP
- UNTIL ARE-THERE-MORE-RECORDS = "NO ".
- PERFORM DO-TERM.
- CLOSE INPUT-FILE
- PRINT-FILE.
- STOP RUN.
-
- A001-LOOP.
- GENERATE REPORT-LINE.
- READ INPUT-FILE
- AT END
- MOVE "NO " TO ARE-THERE-MORE-RECORDS.
- DO-INIT.
- INITIATE STUDENT-REPORT.
-
- DO-TERM.
- TERMINATE STUDENT-REPORT.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:3171: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_reportwriter.at:3171"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:3171"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:3173: DD_STUDENT=\"./inp_data\" DD_REPORT1=\"./report.txt\" \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "DD_STUDENT=\"./inp_data\" DD_REPORT1=\"./report.txt\" $COBCRUN_DIRECT ./prog" "run_reportwriter.at:3173"
-( $at_check_trace; DD_STUDENT="./inp_data" DD_REPORT1="./report.txt" $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:3173"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-cat >reference <<'_ATEOF'
-
-
-03 000123 Dorken, Keith CS -*- 08
-04 000124 Allinson, Sandy MA -*- 08
-05 000125 Allinson, Nina MA -*- 08
-06 000126 Allinson, Natalia MA -*- 08
-07 000127 Allinson, Kristina MBA -*- 08
-08 000131 Norman, Nancy SC -*- 06
-09 000132 Norman, Becky SC -*- 06
-10 000133 Norman, Michelle SC -*- 06
-11 000134 Norman, James AM -*- 06
-12 012345 Norman, Ron CS -*- 08
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:3210: diff reference report.txt"
-at_fn_check_prepare_trace "run_reportwriter.at:3210"
-( $at_check_trace; diff reference report.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:3210"
-$at_failed && at_fn_log_failure \
-"report.txt"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_968
-#AT_START_969
-at_fn_group_banner 969 'run_reportwriter.at:3215' \
- "ORDER REPORT; Test substring" " " 4
-at_xfail=no
-(
- printf "%s\n" "969. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >inp_data <<'_ATEOF'
-10001090001012010590416 $
-10001090002013016950416 $
-10002090002023016950416 $
-10002090001022010590416 $
-10003090007023016950417 $
-10003090008032010590417 $
-10003090009023016950417 $
-10003090010032010590417 $
-10004090007023016950417 $
-10004090008032010590417 $
-10004090009023016950417 $
-10004090010032010590417 $
-10004090011032010590417 $
-10004090012032010590417 $
-10004090013032010590417 $
-10004090014032010590417 $
-10004090015032010590417 $
-10005090007023016950417 $
-10005090008032010590417 $
-10005090009023016950417 $
-10005090010032010590417 $
-10005090011032010590417 $
-10005090012032010590417 $
-10005090013032010590417 $
-10005090014032010590417 $
-10005090015032010590417 $
-10005090016032010590417 $
-10005090017032010590417 $
-10005090018032010590417 $
-10006090007023016950417 $
-10006090008032010590417 $
-10006090009023016950417 $
-10006090010032010590417 $
-10006090011032010590417 $
-10006090012032010590417 $
-10006090013032010590417 $
-10006090014032010590417 $
-10006090015032010590417 $
-10006090016032010590417 $
-10006090017032010590417 $
-10006090018032010590417 $
-10006090019032010590417 $
-10006090020032010590417 $
-10007090007023016950417 $
-10007090008032010590417 $
-10007090009023016950417 $
-10007090010032010590417 $
-10007090011032010590417 $
-10007090012032010590417 $
-10007090013032010590417 $
-10007090014032010590417 $
-10007090015032010590417 $
-10007090016032010590417 $
-10007090017032010590417 $
-10007090018032010590417 $
-10007090019032010590417 $
-10007090020032010590417 $
-10007090021032010590417 $
-10007090022032010590417 $
-10008090007023016950417 $
-10008090008032010590417 $
-10008090009023016950417 $
-10008090010032010590417 $
-10008090011032010590417 $
-10008090012032010590417 $
-10008090013032010590417 $
-10008090014032010590417 $
-10008090015032010590417 $
-10008090016032010590417 $
-10008090017032010590417 $
-10008090018032010590417 $
-10008090019032010590417 $
-10008090020032010590417 $
-10008090021032010590417 $
-10008090022032010590417 $
-10009090007023016950417 $
-10009090008032010590417 $
-10009090009023016950417 $
-10009090010032010590417 $
-10009090011032010590417 $
-10009090012032010590417 $
-10009090013032010590417 $
-10009090014032010590417 $
-10009090015032010590417 $
-10009090016032010590417 $
-10009090017032010590417 $
-10009090018032010590417 $
-10009090019032010590417 $
-10009090020032010590417 $
-10009090021032010590417 $
-10009090022032010590417 $
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT CUST-ORDER-FILE ASSIGN TO EXTERNAL CUSTORD
- ORGANIZATION IS LINE SEQUENTIAL.
- SELECT CUST-PRINT-FILE ASSIGN TO EXTERNAL
- LINE ADVANCING REPORT2.
-
- DATA DIVISION.
- FILE SECTION.
- FD CUST-ORDER-FILE.
- 01 CUST-ORDER-REC.
- 05 CUST-NUM PIC 9(5).
- 05 ITEM-NUM PIC 9(6).
- 05 NUM-ORD PIC 999.
- 05 PRICE PIC 999V99.
- 05 SHIPPING PIC 99V99.
- 05 FILLER PIC X(7).
-
- FD CUST-PRINT-FILE
- REPORT IS ORDER-REPORT.
-
- WORKING-STORAGE SECTION.
- 01 INDICATORS.
- 05 ARE-THERE-MORE-RECORDS PIC XXX VALUE 'YES'.
- 88 THERE-ARE-NO-MORE-RECORDS VALUE 'NO '.
- 01 CONSTANTS.
- 05 SALES-TAX PIC 9V99 VALUE 0.05.
- 01 WORK-AREAS.
- 05 AMT-TAX PIC 9999V99 VALUE 0.
- 05 AMT-ORDER PIC 9(5)V99 VALUE 0.
- 05 TOT-ORDER PIC 9(6)V99 VALUE 0.
- 05 CURRENT-TIME PIC 9(8) VALUE 14301275.
-
- REPORT SECTION.
- RD ORDER-REPORT
- CONTROLS ARE FINAL
- PAGE 55 LINES
- FIRST DETAIL 6.
- 01 TYPE REPORT HEADING
- LINE 1.
- 10 COLUMN 44 PIC X(21)
- VALUE 'CUSTOMER ORDER REPORT'.
- 01 TYPE PAGE HEADING.
- 05 LINE 2.
- 10 COLUMN 10 PIC X(8) VALUE " Time:".
- 10 COLUMN 20 PIC 99 SOURCE CURRENT-TIME (1:2).
- 10 COLUMN 22 PIC X VALUE ':'.
- 10 COLUMN 23 PIC 99 SOURCE CURRENT-TIME (3:2).
- 10 COLUMN 25 PIC X VALUE ':'.
- 10 COLUMN 26 PIC 99 SOURCE CURRENT-TIME (5:2).
- 10 COLUMN 94 PIC X(5) VALUE 'Page'.
- 10 COLUMN 106 PIC ZZ9
- SOURCE PAGE-COUNTER.
- 05 LINE 4.
- 10 COLUMN 11 PIC X(8) VALUE 'CUST NUM'.
- 10 COLUMN 26 PIC XXXX VALUE 'PART'.
- 10 COLUMN 39 PIC X(7) VALUE '# ITEMS'.
- 10 COLUMN 50 PIC X(5) VALUE 'PRICE'.
- 10 COLUMN 66 PIC X(8) VALUE 'QUANTITY'.
- 10 COLUMN 82 PIC XXX VALUE 'TAX'.
- 10 COLUMN 91 PIC X(8) VALUE 'SHIPPING'.
- 10 COLUMN 108 PIC X(5) VALUE 'TOTAL'.
-
- 01 DETAIL-LINE TYPE IS DETAIL
- LINE PLUS 1.
- 05 COLUMN 12 PIC 9(5)
- SOURCE CUST-NUM.
- 05 COLUMN 25 PIC 9(6)
- SOURCE ITEM-NUM.
- 05 COLUMN 41 PIC 999
- SOURCE NUM-ORD.
- 05 COLUMN 49 PIC ZZZ.99
- SOURCE PRICE.
- 05 COLUMN 64 PIC ZZ,ZZZ.99
- SOURCE AMT-ORDER.
- 05 COLUMN 80 PIC Z,ZZZ.99
- SOURCE AMT-TAX.
- 05 COLUMN 93 PIC ZZ.99
- SOURCE SHIPPING.
- 05 COLUMN 104 PIC ZZZ,ZZZ.99
- SOURCE TOT-ORDER.
-
-
- 01 TYPE CONTROL FOOTING FINAL
- LINE PLUS 2.
- 05 COLUMN 42 PIC X(12)
- VALUE 'FINAL TOTALS'.
- 05 COLUMN 63 PIC ZZZ,ZZZ.99
- SOURCE AMT-ORDER.
- 05 COLUMN 79 PIC ZZ,ZZZ.99
- SUM AMT-TAX.
- 05 COLUMN 92 PIC ZZZ.99
- SUM SHIPPING.
- 05 COLUMN 102 PIC Z,ZZZ,ZZZ.99
- SUM TOT-ORDER.
-
- PROCEDURE DIVISION.
- A000-MAINLINE.
- * Use hard coded time value so test is repeatable
- * ACCEPT CURRENT-TIME FROM TIME.
- OPEN INPUT CUST-ORDER-FILE
- OUTPUT CUST-PRINT-FILE.
- INITIATE ORDER-REPORT.
- READ CUST-ORDER-FILE
- AT END
- MOVE 'NO' TO ARE-THERE-MORE-RECORDS.
- PERFORM A001-LOOP
- UNTIL THERE-ARE-NO-MORE-RECORDS.
- TERMINATE ORDER-REPORT.
- CLOSE CUST-ORDER-FILE
- CUST-PRINT-FILE.
- STOP RUN.
- A001-LOOP.
- MULTIPLY NUM-ORD BY PRICE GIVING AMT-ORDER.
- MULTIPLY AMT-ORDER BY SALES-TAX GIVING AMT-TAX.
- ADD AMT-ORDER SHIPPING AMT-TAX GIVING TOT-ORDER.
- GENERATE DETAIL-LINE.
- READ CUST-ORDER-FILE
- AT END
- MOVE 'NO' TO ARE-THERE-MORE-RECORDS.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:3439: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_reportwriter.at:3439"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:3439"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:3441: DD_CUSTORD=\"./inp_data\" DD_REPORT2=\"./report.txt\" \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "DD_CUSTORD=\"./inp_data\" DD_REPORT2=\"./report.txt\" $COBCRUN_DIRECT ./prog" "run_reportwriter.at:3441"
-( $at_check_trace; DD_CUSTORD="./inp_data" DD_REPORT2="./report.txt" $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:3441"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-cat >reference <<'_ATEOF'
- CUSTOMER ORDER REPORT
- Time: 14:30:12 Page 1
-
- CUST NUM PART # ITEMS PRICE QUANTITY TAX SHIPPING TOTAL
-
- 10001 090001 012 10.59 127.08 6.35 4.16 137.59
- 10001 090002 013 16.95 220.35 11.01 4.16 235.52
- 10002 090002 023 16.95 389.85 19.49 4.16 413.50
- 10002 090001 022 10.59 232.98 11.64 4.16 248.78
- 10003 090007 023 16.95 389.85 19.49 4.17 413.51
- 10003 090008 032 10.59 338.88 16.94 4.17 359.99
- 10003 090009 023 16.95 389.85 19.49 4.17 413.51
- 10003 090010 032 10.59 338.88 16.94 4.17 359.99
- 10004 090007 023 16.95 389.85 19.49 4.17 413.51
- 10004 090008 032 10.59 338.88 16.94 4.17 359.99
- 10004 090009 023 16.95 389.85 19.49 4.17 413.51
- 10004 090010 032 10.59 338.88 16.94 4.17 359.99
- 10004 090011 032 10.59 338.88 16.94 4.17 359.99
- 10004 090012 032 10.59 338.88 16.94 4.17 359.99
- 10004 090013 032 10.59 338.88 16.94 4.17 359.99
- 10004 090014 032 10.59 338.88 16.94 4.17 359.99
- 10004 090015 032 10.59 338.88 16.94 4.17 359.99
- 10005 090007 023 16.95 389.85 19.49 4.17 413.51
- 10005 090008 032 10.59 338.88 16.94 4.17 359.99
- 10005 090009 023 16.95 389.85 19.49 4.17 413.51
- 10005 090010 032 10.59 338.88 16.94 4.17 359.99
- 10005 090011 032 10.59 338.88 16.94 4.17 359.99
- 10005 090012 032 10.59 338.88 16.94 4.17 359.99
- 10005 090013 032 10.59 338.88 16.94 4.17 359.99
- 10005 090014 032 10.59 338.88 16.94 4.17 359.99
- 10005 090015 032 10.59 338.88 16.94 4.17 359.99
- 10005 090016 032 10.59 338.88 16.94 4.17 359.99
- 10005 090017 032 10.59 338.88 16.94 4.17 359.99
- 10005 090018 032 10.59 338.88 16.94 4.17 359.99
- 10006 090007 023 16.95 389.85 19.49 4.17 413.51
- 10006 090008 032 10.59 338.88 16.94 4.17 359.99
- 10006 090009 023 16.95 389.85 19.49 4.17 413.51
- 10006 090010 032 10.59 338.88 16.94 4.17 359.99
- 10006 090011 032 10.59 338.88 16.94 4.17 359.99
- 10006 090012 032 10.59 338.88 16.94 4.17 359.99
- 10006 090013 032 10.59 338.88 16.94 4.17 359.99
- 10006 090014 032 10.59 338.88 16.94 4.17 359.99
- 10006 090015 032 10.59 338.88 16.94 4.17 359.99
- 10006 090016 032 10.59 338.88 16.94 4.17 359.99
- 10006 090017 032 10.59 338.88 16.94 4.17 359.99
- 10006 090018 032 10.59 338.88 16.94 4.17 359.99
- 10006 090019 032 10.59 338.88 16.94 4.17 359.99
- 10006 090020 032 10.59 338.88 16.94 4.17 359.99
- 10007 090007 023 16.95 389.85 19.49 4.17 413.51
- 10007 090008 032 10.59 338.88 16.94 4.17 359.99
- 10007 090009 023 16.95 389.85 19.49 4.17 413.51
- 10007 090010 032 10.59 338.88 16.94 4.17 359.99
- 10007 090011 032 10.59 338.88 16.94 4.17 359.99
- 10007 090012 032 10.59 338.88 16.94 4.17 359.99
- 10007 090013 032 10.59 338.88 16.94 4.17 359.99
-
- Time: 14:30:12 Page 2
-
- CUST NUM PART # ITEMS PRICE QUANTITY TAX SHIPPING TOTAL
-
- 10007 090014 032 10.59 338.88 16.94 4.17 359.99
- 10007 090015 032 10.59 338.88 16.94 4.17 359.99
- 10007 090016 032 10.59 338.88 16.94 4.17 359.99
- 10007 090017 032 10.59 338.88 16.94 4.17 359.99
- 10007 090018 032 10.59 338.88 16.94 4.17 359.99
- 10007 090019 032 10.59 338.88 16.94 4.17 359.99
- 10007 090020 032 10.59 338.88 16.94 4.17 359.99
- 10007 090021 032 10.59 338.88 16.94 4.17 359.99
- 10007 090022 032 10.59 338.88 16.94 4.17 359.99
- 10008 090007 023 16.95 389.85 19.49 4.17 413.51
- 10008 090008 032 10.59 338.88 16.94 4.17 359.99
- 10008 090009 023 16.95 389.85 19.49 4.17 413.51
- 10008 090010 032 10.59 338.88 16.94 4.17 359.99
- 10008 090011 032 10.59 338.88 16.94 4.17 359.99
- 10008 090012 032 10.59 338.88 16.94 4.17 359.99
- 10008 090013 032 10.59 338.88 16.94 4.17 359.99
- 10008 090014 032 10.59 338.88 16.94 4.17 359.99
- 10008 090015 032 10.59 338.88 16.94 4.17 359.99
- 10008 090016 032 10.59 338.88 16.94 4.17 359.99
- 10008 090017 032 10.59 338.88 16.94 4.17 359.99
- 10008 090018 032 10.59 338.88 16.94 4.17 359.99
- 10008 090019 032 10.59 338.88 16.94 4.17 359.99
- 10008 090020 032 10.59 338.88 16.94 4.17 359.99
- 10008 090021 032 10.59 338.88 16.94 4.17 359.99
- 10008 090022 032 10.59 338.88 16.94 4.17 359.99
- 10009 090007 023 16.95 389.85 19.49 4.17 413.51
- 10009 090008 032 10.59 338.88 16.94 4.17 359.99
- 10009 090009 023 16.95 389.85 19.49 4.17 413.51
- 10009 090010 032 10.59 338.88 16.94 4.17 359.99
- 10009 090011 032 10.59 338.88 16.94 4.17 359.99
- 10009 090012 032 10.59 338.88 16.94 4.17 359.99
- 10009 090013 032 10.59 338.88 16.94 4.17 359.99
- 10009 090014 032 10.59 338.88 16.94 4.17 359.99
- 10009 090015 032 10.59 338.88 16.94 4.17 359.99
- 10009 090016 032 10.59 338.88 16.94 4.17 359.99
- 10009 090017 032 10.59 338.88 16.94 4.17 359.99
- 10009 090018 032 10.59 338.88 16.94 4.17 359.99
- 10009 090019 032 10.59 338.88 16.94 4.17 359.99
- 10009 090020 032 10.59 338.88 16.94 4.17 359.99
- 10009 090021 032 10.59 338.88 16.94 4.17 359.99
- 10009 090022 032 10.59 338.88 16.94 4.17 359.99
-
- FINAL TOTALS 338.88 1,557.97 379.43 33,103.80
-
-
-
-
-
-
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:3558: diff reference report.txt"
-at_fn_check_prepare_trace "run_reportwriter.at:3558"
-( $at_check_trace; diff reference report.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:3558"
-$at_failed && at_fn_log_failure \
-"report.txt"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_969
-#AT_START_970
-at_fn_group_banner 970 'run_reportwriter.at:3563' \
- "Sample Control Break" " " 4
-at_xfail=no
-(
- printf "%s\n" "970. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >inp_data <<'_ATEOF'
-Norman, Ronald J 25CS Malcolm, Mike Waterloo
-Dorken, Keith A 35CS Malcolm, Mike Waterloo
-Norman, James J 25CS Manning, Eric Waterloo
-Dorken, Kevin 35CS Manning, Eric Waterloo
-Allinson, A R 25EC Manning, Eric Whistler
-Norman, Michelle 27EC Manning, Donna Toronto
-Dorken, Melissa 37EC Manning, Donna Toronto
-Norseman, Ben01 27EC DiMetri, Gary Toronto
-Norseman, Ben02 27EC DiMetri, Gary Toronto
-Norseman, Ben03 27EC DiMetri, Gary Toronto
-Norseman, Ben04 27EC DiMetri, Gary Toronto
-Norseman, Ben05 27EC DiMetri, Gary Toronto
-Norseman, Ben06 27EC DiMetri, Gary Toronto
-Norseman, Ben07 27EC DiMetri, Gary Toronto
-Norseman, Ben08 27EC DiMetri, Gary Toronto
-Norseman, Ben09 27EC DiMetri, Gary Toronto
-Norseman, Ben10 27EC DiMetri, Gary Toronto
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT STUDENT-FILE ASSIGN TO EXTERNAL STUDREC
- ORGANIZATION IS LINE SEQUENTIAL.
- SELECT PRINT-FILE ASSIGN TO EXTERNAL
- LINE ADVANCING REPORT3.
-
- DATA DIVISION.
- FILE SECTION.
- FD STUDENT-FILE.
- 01 STUDENT-REC PIC X(60).
-
- FD PRINT-FILE
- REPORT IS CONTROL-BREAK.
-
- WORKING-STORAGE SECTION.
- 01 INDICATORS.
- 05 ARE-THERE-MORE-RECORDS PIC XXX VALUE 'YES'.
- 88 THERE-ARE-NO-MORE-RECORDS VALUE 'NO'.
-
- 01 CONSTANTS.
- 05 NUM PIC 99 VALUE 1.
-
- 01 STUDENT-AREA.
- 05 STUDENT-NAME PIC X(20).
- 05 COURSE-PTS PIC 99.
- 05 MAJOR PIC XXX.
- 05 ADVISOR PIC X(20).
- 05 CAMPUS PIC X(15).
-
- REPORT SECTION.
- RD CONTROL-BREAK
- CONTROLS ARE MAJOR ADVISOR
- PAGE LIMIT 25 LINES
- HEADING 1
- FIRST DETAIL 5
- FOOTING 23.
- 01 TYPE IS PAGE HEADING.
- 05 LINE 1.
- 10 COLUMN 61 PIC X(4) VALUE 'PAGE'.
- 10 COLUMN 66 PIC ZZZ9 SOURCE PAGE-COUNTER.
- 05 LINE PLUS 2.
- 10 COLUMN 26 PIC X(23)
- VALUE 'STUDENT ADVISEMENT LIST'.
-
- 01 TYPE IS CONTROL HEADING MAJOR.
- 05 LINE 5 ON NEXT PAGE .
- 10 COLUMN 37 PIC X(5) VALUE 'MAJOR'.
- 10 COLUMN 44 PIC X(20) SOURCE MAJOR.
-
- 05 LINE 7.
- 10 COLUMN 4 PIC X(12) VALUE 'STUDENT NAME'.
- 10 COLUMN 25 PIC XXX VALUE 'PTS'.
- 10 COLUMN 34 PIC X(6) VALUE 'CAMPUS'.
- 10 COLUMN 60 PIC X(8) VALUE 'ADVISOR'.
- 05 LINE PLUS 1.
- 10 COLUMN 4 PIC X(68) VALUE ALL '-'.
-
- 01 TRANS-LINE TYPE IS DETAIL.
- 05 LINE NUMBER PLUS 1.
- 10 COLUMN 3 PIC X(20) SOURCE STUDENT-NAME.
- 10 COLUMN 26 PIC 99 SOURCE COURSE-PTS.
- 10 COLUMN 34 PIC X(15) SOURCE CAMPUS.
- 10 COLUMN 51 PIC X(5) VALUE "Hello"
- PRESENT AFTER PAGE OR ADVISOR.
- 10 COLUMN 51 PIC X(5) VALUE ' " '
- ABSENT AFTER PAGE OR ADVISOR.
- 10 COLUMN 60 PIC X(20) SOURCE ADVISOR
- GROUP INDICATE.
-
- 01 TYPE IS CONTROL FOOTING ADVISOR.
- 05 LINE PLUS 2.
- 10 COLUMN 5 PIC X(8) VALUE 'ADVISOR'.
- 10 COLUMN 13 PIC X(20) SOURCE ADVISOR.
- 10 COLUMN 34 PIC X(6) VALUE 'TOTAL'.
- 10 ADV-TOTAL
- COLUMN 40 PIC ZZ9 SUM NUM.
- 05 LINE PLUS 1.
- 10 COLUMN 1 PIC X(8) VALUE ' '.
-
- 01 TYPE IS CONTROL FOOTING MAJOR.
- 05 LINE PLUS 2.
- 10 COLUMN 5 PIC X(11) VALUE 'MAJOR TOTAL'.
- 10 MAJ-TOTAL
- COLUMN 22 PIC ZZ9 SUM ADV-TOTAL.
-
- 01 TYPE IS CONTROL FOOTING FINAL.
- 05 LINE PLUS 3.
- 10 COLUMN 10 PIC X(11) VALUE 'FINAL TOTAL'.
- 10 STU-TOTAL
- COLUMN 21 PIC ZZZ9 SUM MAJ-TOTAL.
-
- PROCEDURE DIVISION.
- A000-CREATE-REPORTS.
- OPEN INPUT STUDENT-FILE
- OUTPUT PRINT-FILE.
- INITIATE CONTROL-BREAK.
- READ STUDENT-FILE INTO STUDENT-AREA
- AT END
- MOVE 'NO ' TO ARE-THERE-MORE-RECORDS.
- PERFORM A001-LOOP
- UNTIL THERE-ARE-NO-MORE-RECORDS.
- TERMINATE CONTROL-BREAK.
- CLOSE STUDENT-FILE
- PRINT-FILE.
- STOP RUN.
-
- A001-LOOP.
- GENERATE TRANS-LINE.
- READ STUDENT-FILE INTO STUDENT-AREA
- AT END
- MOVE 'NO ' TO ARE-THERE-MORE-RECORDS.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:3704: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_reportwriter.at:3704"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:3704"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:3706: DD_STUDREC=\"./inp_data\" DD_REPORT3=\"./report.txt\" \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "DD_STUDREC=\"./inp_data\" DD_REPORT3=\"./report.txt\" $COBCRUN_DIRECT ./prog" "run_reportwriter.at:3706"
-( $at_check_trace; DD_STUDREC="./inp_data" DD_REPORT3="./report.txt" $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:3706"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-cat >reference <<'_ATEOF'
- PAGE 1
-
- STUDENT ADVISEMENT LIST
-
- MAJOR CS
-
- STUDENT NAME PTS CAMPUS ADVISOR
- --------------------------------------------------------------------
- Norman, Ronald J 25 Waterloo Hello Malcolm, Mike
- Dorken, Keith A 35 Waterloo "
-
- ADVISOR Malcolm, Mike TOTAL 2
-
- Norman, James J 25 Waterloo Hello Manning, Eric
- Dorken, Kevin 35 Waterloo "
-
- ADVISOR Manning, Eric TOTAL 2
-
-
- MAJOR TOTAL 4
-
-
-
-
-
- PAGE 2
-
- STUDENT ADVISEMENT LIST
-
- MAJOR EC
-
- STUDENT NAME PTS CAMPUS ADVISOR
- --------------------------------------------------------------------
- Allinson, A R 25 Whistler Hello Manning, Eric
-
- ADVISOR Manning, Eric TOTAL 1
-
- Norman, Michelle 27 Toronto Hello Manning, Donna
- Dorken, Melissa 37 Toronto "
-
- ADVISOR Manning, Donna TOTAL 2
-
- Norseman, Ben01 27 Toronto Hello DiMetri, Gary
- Norseman, Ben02 27 Toronto "
- Norseman, Ben03 27 Toronto "
- Norseman, Ben04 27 Toronto "
- Norseman, Ben05 27 Toronto "
- Norseman, Ben06 27 Toronto "
-
- PAGE 3
-
- STUDENT ADVISEMENT LIST
-
- Norseman, Ben07 27 Toronto Hello DiMetri, Gary
- Norseman, Ben08 27 Toronto "
- Norseman, Ben09 27 Toronto "
- Norseman, Ben10 27 Toronto "
-
- ADVISOR DiMetri, Gary TOTAL 10
-
-
- MAJOR TOTAL 13
-
-
- FINAL TOTAL 17
-
-
-
-
-
-
-
-
-
-_ATEOF
-
-#" <- fix code highlighting
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:3787: diff reference report.txt"
-at_fn_check_prepare_trace "run_reportwriter.at:3787"
-( $at_check_trace; diff reference report.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:3787"
-$at_failed && at_fn_log_failure \
-"report.txt"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_970
-#AT_START_971
-at_fn_group_banner 971 'run_reportwriter.at:3792' \
- "Sample Inventory Report" " " 4
-at_xfail=no
-(
- printf "%s\n" "971. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >inp_data <<'_ATEOF'
-01Data Processing 02000500012388
-02Cow Milking 02000600054398
-03Grass Cutting 03000600054397
-03Lawn mowing 03000600054397
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT INV-FILE ASSIGN TO EXTERNAL INVFILE
- ORGANIZATION IS LINE SEQUENTIAL.
- SELECT REPORT-FILE ASSIGN TO EXTERNAL
- LINE ADVANCING REPORT4.
-
- DATA DIVISION.
- FILE SECTION.
- FD INV-FILE.
- 01 INV-REC.
- 05 DEPT-IN PIC 99.
- 05 DEPT-NAM-IN PIC X(18).
- 05 MONTH-IN PIC 99.
- 05 ITEM-NO-IN PIC 9(5).
- 05 INV-TOT-IN PIC 9(6)V99.
-
- FD REPORT-FILE
- REPORT IS INV-REPORT.
-
- WORKING-STORAGE SECTION.
- 01 INDICATORS.
- 05 ARE-THERE-MORE-RECORDS PIC XXX VALUE 'YES'.
-
- REPORT SECTION.
- RD INV-REPORT
- CONTROLS ARE FINAL DEPT-IN MONTH-IN
- PAGE LIMIT 25 LINES
- HEADING 2
- FIRST DETAIL 5
- LAST DETAIL 18
- FOOTING 20.
- 01 TYPE IS REPORT HEADING.
- 05 LINE 2 COLUMN 50 PIC X(16) VALUE 'INVENTORY REPORT'.
- 05 LINE 2 COLUMN 80 PIC X VALUE ' '.
-
- 01 TYPE IS CONTROL HEADING DEPT-IN
- LINE NUMBER IS PLUS 2
- NEXT GROUP IS PLUS 2.
- 05 COLUMN 2 PIC X(13) VALUE 'DEPARTMENT #:'.
- 05 COLUMN 27 PIC 99 SOURCE DEPT-IN.
- 05 COLUMN 31 PIC X(16) VALUE 'DEPARTMENT NAME:'.
- 05 COLUMN 50 PIC X(18) SOURCE DEPT-NAM-IN.
-
- 01 INV-DETAIL TYPE IS DETAIL
- LINE PLUS 2.
- 05 COLUMN 10 PIC 99 SOURCE MONTH-IN GROUP INDICATE.
- 05 COLUMN 25 PIC 9(5) SOURCE ITEM-NO-IN.
- 05 COLUMN 40 PIC ZZZ,ZZZ.99 SOURCE IS INV-TOT-IN.
-
- 01 TYPE IS CONTROL FOOTING MONTH-IN
- LINE PLUS 2.
- 05 MONTH-TOTAL COLUMN 55 PIC Z,ZZZ,ZZZ.99 SUM INV-TOT-IN.
-
- 01 TYPE IS CONTROL FOOTING DEPT-IN
- LINE PLUS 2.
- 05 DEPT-TOTAL COLUMN 75 PIC ZZ,ZZZ,ZZZ.99 SUM MONTH-TOTAL.
-
- 01 TYPE IS CONTROL FOOTING FINAL
- LINE PLUS 2.
- 05 FINAL-TOTAL COLUMN 95 PIC ZZZ,ZZZ,ZZZ.99 SUM DEPT-TOTAL.
-
- 01 TYPE IS PAGE FOOTING LINE 24.
- 05 COLUMN 30 PIC X(30) VALUE "-+* End of Page *+-".
- 05 COLUMN 55 PIC X(12) VALUE "************".
- 05 COLUMN 75 PIC X(13) VALUE "*************".
- 05 COLUMN 95 PIC X(14) VALUE "**************".
-
- PROCEDURE DIVISION.
- A000-MAINLINE.
- OPEN INPUT INV-FILE
- OUTPUT REPORT-FILE.
- INITIATE INV-REPORT.
- READ INV-FILE
- AT END
- MOVE 'NO ' TO ARE-THERE-MORE-RECORDS.
- PERFORM A001-LOOP
- UNTIL ARE-THERE-MORE-RECORDS = 'NO '.
- TERMINATE INV-REPORT.
- CLOSE INV-FILE
- REPORT-FILE.
- STOP RUN.
- A001-LOOP.
- GENERATE INV-DETAIL.
- READ INV-FILE
- AT END
- MOVE 'NO ' TO ARE-THERE-MORE-RECORDS.
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:3896: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_reportwriter.at:3896"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:40: warning: duplicate LINE 2 ignored
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:3896"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:3900: DD_INVFILE=\"./inp_data\" DD_REPORT4=\"./report.txt\" \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "DD_INVFILE=\"./inp_data\" DD_REPORT4=\"./report.txt\" $COBCRUN_DIRECT ./prog" "run_reportwriter.at:3900"
-( $at_check_trace; DD_INVFILE="./inp_data" DD_REPORT4="./report.txt" $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:3900"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-cat >reference <<'_ATEOF'
-
- INVENTORY REPORT
-
-
- DEPARTMENT #: 01 DEPARTMENT NAME: Data Processing
-
-
-
- 02 00050 1,238.80
-
- 1,238.80
-
- 1,238.80
-
- DEPARTMENT #: 02 DEPARTMENT NAME: Cow Milking
-
-
-
-
-
-
-
-
- -+* End of Page *+- ************ ************* **************
-
-
-
-
- 02 00060 5,439.80
-
- 5,439.80
-
- 5,439.80
-
- DEPARTMENT #: 03 DEPARTMENT NAME: Grass Cutting
-
-
-
- 03 00060 5,439.70
-
- 00060 5,439.70
-
- 10,879.40
-
-
-
-
-
- -+* End of Page *+- ************ ************* **************
-
-
-
-
- 10,879.40
-
- 17,558.00
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- -+* End of Page *+- ************ ************* **************
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:3980: diff reference report.txt"
-at_fn_check_prepare_trace "run_reportwriter.at:3980"
-( $at_check_trace; diff reference report.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:3980"
-$at_failed && at_fn_log_failure \
-"report.txt"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_971
-#AT_START_972
-at_fn_group_banner 972 'run_reportwriter.at:3985' \
- "Duplicate Detail Line" " " 4
-at_xfail=no
-(
- printf "%s\n" "972. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT REPORT-FILE
- LINE SEQUENTIAL
- ASSIGN TO EXTERNAL DUPDTL.
- DATA DIVISION.
- FILE SECTION.
- FD REPORT-FILE
- REPORT IS MYREPORT.
- WORKING-STORAGE SECTION.
- 01 SAVE-ITEM PIC X.
-
- REPORT SECTION.
- RD MYREPORT
- CONTROLS ARE SAVE-ITEM
- PAGE LIMIT IS 15 LINES
- FIRST DETAIL 1
- LAST DETAIL 12.
-
- 01 TYPE IS CONTROL HEADING SAVE-ITEM.
- 05 LINE NUMBER IS 1.
- 10 COLUMN 1 PIC X(20) VALUE "HEADING SAVE-ITEM".
-
- 01 DETAIL-LINE TYPE IS DETAIL.
- 05 LINE NUMBER PLUS 1.
- 10 COLUMN 1 PIC X SOURCE SAVE-ITEM.
- 10 COLUMN 10 PIC X(15) VALUE "1st Detail".
-
- 01 SND-DETAIL-LINE TYPE IS DETAIL.
- 05 LINE NUMBER PLUS 1.
- 10 COLUMN 1 PIC X SOURCE SAVE-ITEM.
- 10 COLUMN 10 PIC X(15) VALUE "2nd Detail".
-
- 01 TRD-DETAIL-LINE TYPE IS DETAIL.
- 05 LINE NUMBER PLUS 1.
- 10 COLUMN 1 PIC X SOURCE SAVE-ITEM.
- 10 COLUMN 10 PIC X(15) VALUE "3rd Detail 1".
- 05 LINE NUMBER PLUS 1.
- 10 COLUMN 1 PIC X SOURCE SAVE-ITEM.
- 10 COLUMN 10 PIC X(15) VALUE "3rd Detail 2".
-
- 01 TYPE IS CONTROL FOOTING SAVE-ITEM.
- 03 LINE NUMBER IS PLUS 1.
- 05 COLUMN 07 PIC X(27) VALUE "FOOTING SAVE-ITEM".
-
- PROCEDURE DIVISION.
- OPEN OUTPUT REPORT-FILE.
- INITIATE MYREPORT.
- MOVE "A" TO SAVE-ITEM.
- GENERATE DETAIL-LINE.
- MOVE "B" TO SAVE-ITEM.
- GENERATE DETAIL-LINE.
- GENERATE SND-DETAIL-LINE.
- GENERATE TRD-DETAIL-LINE.
- MOVE "C" TO SAVE-ITEM.
- GENERATE TRD-DETAIL-LINE.
- TERMINATE MYREPORT.
- CLOSE REPORT-FILE.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:4054: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_reportwriter.at:4054"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:4054"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:4056: DD_DUPDTL=./report.txt \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "DD_DUPDTL=./report.txt $COBCRUN_DIRECT ./prog" "run_reportwriter.at:4056"
-( $at_check_trace; DD_DUPDTL=./report.txt $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:4056"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-cat >reference <<'_ATEOF'
-HEADING SAVE-ITEM
-A 1st Detail
- FOOTING SAVE-ITEM
-
-
-
-
-
-
-
-
-
-
-
-
-HEADING SAVE-ITEM
-B 1st Detail
-B 2nd Detail
-B 3rd Detail 1
-B 3rd Detail 2
- FOOTING SAVE-ITEM
-
-
-
-
-
-
-
-
-
-HEADING SAVE-ITEM
-C 3rd Detail 1
-C 3rd Detail 2
- FOOTING SAVE-ITEM
-
-
-
-
-
-
-
-
-
-
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:4108: diff reference report.txt"
-at_fn_check_prepare_trace "run_reportwriter.at:4108"
-( $at_check_trace; diff reference report.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:4108"
-$at_failed && at_fn_log_failure \
-"report.txt"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_972
-#AT_START_973
-at_fn_group_banner 973 'run_reportwriter.at:4113' \
- "Report with OCCURS" " " 4
-at_xfail=no
-(
- printf "%s\n" "973. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT rp-file ASSIGN EXTERNAL PRINTOUT
- ORGANIZATION LINE SEQUENTIAL.
-
- DATA DIVISION.
- FILE SECTION.
- FD rp-file REPORT rp.
-
- REPORT SECTION.
- RD RP
- PAGE LIMIT 10 LINES
- HEADING 1
- FIRST DETAIL 4.
- 01 HEADING-LINE.
- 02 TYPE PAGE HEADING LINE PLUS 1.
- 05 COLUMN 1 PIC X(50) VALUE
- " 1 2 3 4 5".
- 02 TYPE PAGE HEADING LINE PLUS 1.
- 05 COLUMN 1 PIC X(50) VALUE
- "12345678901234567890123456789012345678901234567890".
-
- 01 RP-DTL1 TYPE DETAIL, LINE + 1.
- 03 NUMS COLUMN 1 PIC 999 OCCURS 3 TIMES STEP 10.
- 03 MARK COLUMN + 3 PIC X(4).
-
- 01 rp-dtl2 TYPE DETAIL, LINE + 1.
- 03 grps COLUMN 1 OCCURS 3 TIMES.
- 05 tag1 PIC X(5).
- 05 FILLER PIC X.
- 05 tag2 PIC X(5).
- 05 FILLER PIC XX.
-
- 01 RP-DTL3 TYPE DETAIL, LINE + 1.
- 03 NNNS COLUMN 1, 11, 21, 27 PIC 999.
- 03 TAGP COLUMN PLUS 4 PIC X(4).
-
- 01 RP-DTL4 TYPE DETAIL, LINE + 1.
- 03 NUM4A PIC 999.
- 03 NUM4B COLUMN PLUS 8 PIC 999 OCCURS 3 STEP 10.
- 03 MRK4 COLUMN + 3 PIC X(4).
-
- PROCEDURE DIVISION.
- OPEN OUTPUT rp-file
- INITIATE rp
-
- MOVE 100 TO NUMS (1), NUMS (2), NUMS (3)
- MOVE "<1>" TO MARK.
- GENERATE rp-dtl1
-
- MOVE ALL '*' TO grps(1), grps(2), grps(3)
- MOVE "Tag1" to tag1 (1), tag1 (2), tag1 (3)
- MOVE "Tag2" to tag2 (1), tag2 (2), tag2 (3)
- GENERATE rp-dtl2
-
- MOVE 200 TO NNNS (1), NNNS (2), NNNS (3) NNNS (4)
- MOVE "<3>" TO TAGP.
- GENERATE RP-DTL3.
-
- MOVE 400 TO NUM4A
- MOVE 401 TO NUM4B (1)
- MOVE 402 TO NUM4B (2)
- MOVE 403 TO NUM4B (3)
- MOVE "<4>" TO MRK4.
- GENERATE RP-DTL4
-
- TERMINATE rp
- CLOSE rp-file
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:4193: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_reportwriter.at:4193"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:4193"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:4195: DD_PRINTOUT=./report.txt \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "DD_PRINTOUT=./report.txt $COBCRUN_DIRECT ./prog" "run_reportwriter.at:4195"
-( $at_check_trace; DD_PRINTOUT=./report.txt $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:4195"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-cat >reference <<'_ATEOF'
- 1 2 3 4 5
-12345678901234567890123456789012345678901234567890
-
-100 100 100 <1>
-Tag1 *Tag2 **Tag1 *Tag2 **Tag1 *Tag2 **
-200 200 200 200 <3>
-400 401 402 403 <4>
-
-
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:4212: diff reference report.txt"
-at_fn_check_prepare_trace "run_reportwriter.at:4212"
-( $at_check_trace; diff reference report.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:4212"
-$at_failed && at_fn_log_failure \
-"report.txt"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_973
-#AT_START_974
-at_fn_group_banner 974 'run_reportwriter.at:4217' \
- "Report CODE and LIMIT COLUMNS" " " 4
-at_xfail=no
-(
- printf "%s\n" "974. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >progv.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. progv.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT RP-FILE ASSIGN EXTERNAL PRINTOUT
- ORGANIZATION LINE SEQUENTIAL.
-
- DATA DIVISION.
- FILE SECTION.
- FD RP-FILE REPORT RP.
-
- WORKING-STORAGE SECTION.
- 01 MAXCOL PIC 99 VALUE 50.
- 01 MYCODE PIC X(6) VALUE "Hi-Q:".
- 01 DIGX PIC X(50) VALUE
- "123456789b123456789c123456789d123456789e123456789f".
- 01 FILLER REDEFINES DIGX.
- 05 DIGS PIC X(10) OCCURS 5 TIMES.
-
- REPORT SECTION.
- RD RP
- CODE IS MYCODE *> variable
- PAGE LIMIT 10 LINES
- MAXCOL COLUMNS *> variable
- HEADING 1
- FIRST DETAIL 4.
- 01 HEADING-LINE.
- 02 TYPE PAGE HEADING LINE PLUS 1.
- 05 COLUMN 1 PIC X(50) VALUE
- " 1 2 3 4 5".
- 02 TYPE PAGE HEADING LINE PLUS 1.
- * 05 COLUMN 1 PIC X(50) VALUE
- * "12345678901234567890123456789012345678901234567890".
- 05 COLUMN 1 OCCURS 5 TIMES
- VARYING IDX1 FROM 1 BY 1.
- 10 FILLER PIC X(10) SOURCE DIGS (IDX1).
-
- 01 RP-DTL1 TYPE DETAIL, LINE + 1.
- 03 NUMS COLUMN 1 PIC 999 OCCURS 3 TIMES STEP 10.
- 03 MARK COLUMN + 3 PIC X(4).
-
- 01 RP-DTL2 TYPE DETAIL, LINE + 1.
- 03 GRPS COLUMN 1 OCCURS 3 TIMES.
- 05 TAG1 PIC X(5).
- 05 FILLER PIC X.
- 05 TAG2 PIC X(5).
- 05 FILLER PIC XX.
-
- 01 RP-DTL3 TYPE DETAIL, LINE + 1.
- 03 NNNS COLUMN 1, 11, 21, 27 PIC 999.
- 03 TAGP COLUMN PLUS 4 PIC X(4).
-
- 01 RP-DTL4 TYPE DETAIL, LINE + 1.
- 03 NUM4A PIC 999.
- 03 NUM4B COLUMN 11 PIC 999 OCCURS 3 STEP 10.
- 03 MRK4 COLUMN + 3 PIC X(4).
-
- PROCEDURE DIVISION.
- OPEN OUTPUT RP-FILE
- INITIATE RP
-
- MOVE 100 TO NUMS (1), NUMS (2), NUMS (3)
- MOVE "<1>" TO MARK.
- GENERATE rp-dtl1
-
- MOVE ALL '*' TO GRPS(1), GRPS(2), GRPS(3)
- MOVE "Tag1" TO TAG1 (1), TAG1 (2), TAG1 (3)
- MOVE "Tag2" TO TAG2 (1), TAG2 (2), TAG2 (3)
- GENERATE RP-DTL2
-
- MOVE 200 TO NNNS (1), NNNS (2), NNNS (3) NNNS (4)
- MOVE "<3>" TO TAGP.
- GENERATE RP-DTL3.
-
- MOVE 400 TO NUM4A
- MOVE 401 TO NUM4B (1)
- MOVE 402 TO NUM4B (2)
- MOVE 403 TO NUM4B (3)
- MOVE "<4>" TO MRK4.
- GENERATE RP-DTL4
-
- TERMINATE rp
- CLOSE RP-FILE
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:4310: \$COMPILE -std=cobol2002 -fassign-ext-dyn=ok progv.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=cobol2002 -fassign-ext-dyn=ok progv.cob" "run_reportwriter.at:4310"
-( $at_check_trace; $COMPILE -std=cobol2002 -fassign-ext-dyn=ok progv.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "progv.cob:38: warning: RW VARYING clause is not implemented
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:4310"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:4314: DD_PRINTOUT=./report_var.txt \\
-\$COBCRUN_DIRECT ./progv"
-at_fn_check_prepare_notrace 'an embedded newline' "run_reportwriter.at:4314"
-( $at_check_trace; DD_PRINTOUT=./report_var.txt \
-$COBCRUN_DIRECT ./progv
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:4314"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >progl.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. progl.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT RP-FILE ASSIGN EXTERNAL PRINTOUT
- ORGANIZATION LINE SEQUENTIAL.
-
- DATA DIVISION.
- FILE SECTION.
- FD RP-FILE REPORT RP.
-
- WORKING-STORAGE SECTION.
- 01 DIGX PIC X(50) VALUE
- "123456789b123456789c123456789d123456789e123456789f".
- 01 FILLER REDEFINES DIGX.
- 05 DIGS PIC X(10) OCCURS 5 TIMES.
-
- REPORT SECTION.
- RD RP
- CODE IS "Hi-Q: " *> literal
- PAGE LIMIT 10 LINES
- 50 COLUMNS *> literal
- HEADING 1
- FIRST DETAIL 4.
- 01 HEADING-LINE.
- 02 TYPE PAGE HEADING LINE PLUS 1.
- 05 COLUMN 1 PIC X(50) VALUE
- " 1 2 3 4 5".
- 02 TYPE PAGE HEADING LINE PLUS 1.
- * 05 COLUMN 1 PIC X(50) VALUE
- * "12345678901234567890123456789012345678901234567890".
- 05 COLUMN 1 OCCURS 5 TIMES
- VARYING IDX1 FROM 1 BY 1.
- 10 FILLER PIC X(10) SOURCE DIGS (IDX1).
-
- 01 RP-DTL1 TYPE DETAIL, LINE + 1.
- 03 NUMS COLUMN 1 PIC 999 OCCURS 3 TIMES STEP 10.
- 03 MARK COLUMN + 3 PIC X(4).
-
- 01 RP-DTL2 TYPE DETAIL, LINE + 1.
- 03 GRPS COLUMN 1 OCCURS 3 TIMES.
- 05 TAG1 PIC X(5).
- 05 FILLER PIC X.
- 05 TAG2 PIC X(5).
- 05 FILLER PIC XX.
-
- 01 RP-DTL3 TYPE DETAIL, LINE + 1.
- 03 NNNS COLUMN 1, 11, 21, 27 PIC 999.
- 03 TAGP COLUMN PLUS 4 PIC X(4).
-
- 01 RP-DTL4 TYPE DETAIL, LINE + 1.
- 03 NUM4A PIC 999.
- 03 NUM4B COLUMN 11 PIC 999 OCCURS 3 STEP 10.
- 03 MRK4 COLUMN + 3 PIC X(4).
-
- PROCEDURE DIVISION.
- OPEN OUTPUT RP-FILE
- INITIATE RP
-
- MOVE 100 TO NUMS (1), NUMS (2), NUMS (3)
- MOVE "<1>" TO MARK.
- GENERATE rp-dtl1
-
- MOVE ALL '*' TO GRPS(1), GRPS(2), GRPS(3)
- MOVE "Tag1" TO TAG1 (1), TAG1 (2), TAG1 (3)
- MOVE "Tag2" TO TAG2 (1), TAG2 (2), TAG2 (3)
- GENERATE RP-DTL2
-
- MOVE 200 TO NNNS (1), NNNS (2), NNNS (3) NNNS (4)
- MOVE "<3>" TO TAGP.
- GENERATE RP-DTL3.
-
- MOVE 400 TO NUM4A
- MOVE 401 TO NUM4B (1)
- MOVE 402 TO NUM4B (2)
- MOVE 403 TO NUM4B (3)
- MOVE "<4>" TO MRK4.
- GENERATE RP-DTL4
-
- TERMINATE rp
- CLOSE RP-FILE
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:4405: \$COMPILE -std=cobol2002 -fdump=all -fassign-ext-dyn=ok progl.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=cobol2002 -fdump=all -fassign-ext-dyn=ok progl.cob" "run_reportwriter.at:4405"
-( $at_check_trace; $COMPILE -std=cobol2002 -fdump=all -fassign-ext-dyn=ok progl.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "progl.cob:36: warning: RW VARYING clause is not implemented
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:4405"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:4409: DD_PRINTOUT=./report_lit.txt \\
-\$COBCRUN_DIRECT ./progl"
-at_fn_check_prepare_notrace 'an embedded newline' "run_reportwriter.at:4409"
-( $at_check_trace; DD_PRINTOUT=./report_lit.txt \
-$COBCRUN_DIRECT ./progl
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:4409"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-
-cat >reference <<'_ATEOF'
-Hi-Q: 1 2 3 4 5
-Hi-Q: 1 2 3 4 5
-Hi-Q:
-Hi-Q: 100 100 100 <1>
-Hi-Q: Tag1 *Tag2 **Tag1 *Tag2 **Tag1 *Tag2 **
-Hi-Q: 200 200 200 200 <3>
-Hi-Q: 400 401 402 403 <4>
-Hi-Q:
-Hi-Q:
-Hi-Q:
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:4429: diff reference report_var.txt"
-at_fn_check_prepare_trace "run_reportwriter.at:4429"
-( $at_check_trace; diff reference report_var.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:4429"
-$at_failed && at_fn_log_failure \
-"report_var.txt" \
-"report_lit.txt"
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:4430: diff reference report_lit.txt"
-at_fn_check_prepare_trace "run_reportwriter.at:4430"
-( $at_check_trace; diff reference report_lit.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:4430"
-$at_failed && at_fn_log_failure \
-"report_var.txt" \
-"report_lit.txt"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_974
-#AT_START_975
-at_fn_group_banner 975 'run_reportwriter.at:4435' \
- "Test Report dump DECLARATIVES" " " 4
-at_xfail=no
-(
- printf "%s\n" "975. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT RP-FILE ASSIGN EXTERNAL PRINTOUT
- ORGANIZATION LINE SEQUENTIAL.
-
- DATA DIVISION.
- FILE SECTION.
- FD RP-FILE REPORT RP.
-
- WORKING-STORAGE SECTION.
- 01 DIGX PIC X(50) VALUE
- "123456789b123456789c123456789d123456789e123456789f".
- 01 FILLER REDEFINES DIGX.
- 05 DIGS PIC X(10) OCCURS 5 TIMES.
-
- 01 error-messages.
- 05 bad-ending pic x(50) value
- "Should have exactly 3 digits !".
- 05 bad-param pic x(50) value
- "Bad param!".
- *
- 78 test-date value 123.
- *
- 01 floating-data.
- 05 dbl usage float-long value -3.40282e+038.
- 05 flt usage float-short value 3.40282e+038.
-
- REPORT SECTION.
- RD RP
- CODE IS "Hi-Q: "
- PAGE LIMIT 10 LINES
- 50 COLUMNS
- HEADING 1
- FIRST DETAIL 4.
- 01 HEADING-LINE.
- 02 TYPE PAGE HEADING LINE PLUS 1.
- 05 COLUMN 1 PIC X(50) VALUE
- " 1 2 3 4 5".
- 02 TYPE PAGE HEADING LINE PLUS 1.
- 05 COLUMN 1 PIC X(50) VALUE
- "12345678901234567890123456789012345678901234567890".
- * 05 COLUMN 1 OCCURS 5 TIMES
- * VARYING IDX1 FROM 1 BY 1.
- * 10 FILLER PIC X(10) SOURCE DIGS (IDX1).
-
- 01 RP-DTL1 TYPE DETAIL, LINE + 1.
- 03 NUMS COLUMN 1 PIC 999 OCCURS 3 TIMES STEP 10.
- 03 MARK COLUMN + 2 PIC X(4).
-
- 01 RP-DTL2 TYPE DETAIL, LINE + 1.
- 03 GRPS COLUMN 1 OCCURS 3 TIMES.
- 05 TAG1 PIC X(5).
- 05 DTL2 PIC X.
- 05 TAG2 PIC X(5).
- 05 FILLER PIC XX.
- * 03 MRK2 COLUMN + 2 PIC X(4).
- 03 MRK2 COLUMN 42 PIC X(4).
-
- 01 RP-DTL3 TYPE DETAIL, LINE + 1.
- 03 NNNS COLUMN 1, 11, 21, 27 PIC 999.
- 03 TAGP COLUMN PLUS 3 PIC X(4).
-
- 01 RP-DTL4 TYPE DETAIL, LINE + 1.
- 03 NUM4A PIC 999.
- 03 NUM4B COLUMN PLUS 7 PIC 999 OCCURS 3.
- 03 MRK4 COLUMN + 2 PIC X(4).
-
- PROCEDURE DIVISION.
- DECLARATIVES.
- BEFORE-DETAIL SECTION.
- USE BEFORE REPORTING RP-DTL2.
- DOIT-1.
- DISPLAY "Hello World"
- MOVE '_' TO DTL2 (2).
- END DECLARATIVES.
-
- OPEN OUTPUT RP-FILE
- INITIATE RP
-
- MOVE 169 TO NNNS (1), NNNS (2), NNNS (3) NNNS (4)
- MOVE "NOT" TO TAGP.
- MOVE "NOW" TO MRK4.
-
- MOVE 100 TO NUMS (1), NUMS (2), NUMS (3)
- MOVE "<1>" TO MARK.
- GENERATE rp-dtl1
-
- MOVE ALL '*' TO GRPS(1), GRPS(2), GRPS(3)
- MOVE "Tag1" TO TAG1 (1), TAG1 (2), TAG1 (3)
- MOVE "Tag2" TO TAG2 (1), TAG2 (2), TAG2 (3)
- MOVE "<2>" TO MRK2.
- GENERATE RP-DTL2
-
- MOVE 200 TO NNNS (1), NNNS (2), NNNS (3) NNNS (4)
- MOVE "<3>" TO TAGP.
- GENERATE RP-DTL3.
-
- MOVE 400 TO NUM4A
- MOVE 401 TO NUM4B (1)
- MOVE 402 TO NUM4B (2)
- MOVE 403 TO NUM4B (3)
- MOVE "<4>" TO MRK4.
- GENERATE RP-DTL4
-
- TERMINATE rp
- CLOSE RP-FILE
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:4553: \$COMPILE -debug -fdump=ALL prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -debug -fdump=ALL prog.cob" "run_reportwriter.at:4553"
-( $at_check_trace; $COMPILE -debug -fdump=ALL prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:4553"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:4555: export PRINTOUT=tstdmrp.txt
-\$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_notrace 'an embedded newline' "run_reportwriter.at:4555"
-( $at_check_trace; export PRINTOUT=tstdmrp.txt
-$COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Hello World
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:4555"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-cat >reference <<'_ATEOF'
-Hi-Q: 1 2 3 4 5
-Hi-Q: 12345678901234567890123456789012345678901234567890
-Hi-Q:
-Hi-Q: 100 100 100 <1>
-Hi-Q: Tag1 *Tag2 **Tag1 _Tag2 **Tag1 *Tag2 ** <2>
-Hi-Q: 200 200 200 200 <3>
-Hi-Q: 400 401402403 <4>
-Hi-Q:
-Hi-Q:
-Hi-Q:
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:4575: diff reference tstdmrp.txt"
-at_fn_check_prepare_trace "run_reportwriter.at:4575"
-( $at_check_trace; diff reference tstdmrp.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:4575"
-$at_failed && at_fn_log_failure \
-"tstdmrp.txt"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_975
-#AT_START_976
-at_fn_group_banner 976 'run_reportwriter.at:4580' \
- "Duplicate INITIATE" " " 4
-at_xfail=no
-(
- printf "%s\n" "976. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT report-file ASSIGN EXTERNAL PRINTOUT
- ORGANIZATION LINE SEQUENTIAL.
-
- DATA DIVISION.
- FILE SECTION.
- FD report-file REPORT rp.
-
- WORKING-STORAGE SECTION.
- 01 foo PIC X(20).
- 01 hedpos PIC 99 VALUE 10.
-
- REPORT SECTION.
- RD rp PAGE LIMIT 3.
-
- 01 rp-detail TYPE DE.
- 02 LINE + 1.
- 03 COL 1; SOURCE foo, PIC X(30).
- 03 COL + 1 PIC X(6) VALUE "<--->".
-
- PROCEDURE DIVISION.
- OPEN OUTPUT report-file.
- INITIATE rp.
-
- MOVE "hello" TO foo.
- GENERATE rp-detail.
-
- INITIATE rp.
-
- MOVE "goodbye" TO foo.
- GENERATE rp-detail.
-
- TERMINATE rp.
- CLOSE report-file.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:4626: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_reportwriter.at:4626"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:4626"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:4628: DD_PRINTOUT=./report.txt \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "DD_PRINTOUT=./report.txt $COBCRUN_DIRECT ./prog" "run_reportwriter.at:4628"
-( $at_check_trace; DD_PRINTOUT=./report.txt $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:34: error: INITIATE rp was already done
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:4628"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-cat >reference <<'_ATEOF'
-hello <--->
-goodbye <--->
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:4641: diff reference report.txt"
-at_fn_check_prepare_trace "run_reportwriter.at:4641"
-( $at_check_trace; diff reference report.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:4641"
-$at_failed && at_fn_log_failure \
-"report.txt"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_976
-#AT_START_977
-at_fn_group_banner 977 'run_reportwriter.at:4646' \
- "Missing INITIATE and GENERATE" " " 4
-at_xfail=no
-(
- printf "%s\n" "977. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT report-file ASSIGN EXTERNAL PRINTOUT
- ORGANIZATION LINE SEQUENTIAL.
-
- DATA DIVISION.
- FILE SECTION.
- FD report-file REPORT rp.
-
- WORKING-STORAGE SECTION.
- 01 foo PIC X(20).
- 01 hedpos PIC 99 VALUE 10.
-
- REPORT SECTION.
- RD rp PAGE LIMIT 3.
-
- 01 rp-detail TYPE DE.
- 02 LINE + 1.
- 03 COL 1; SOURCE foo, PIC X(30).
- 03 COL + 1 PIC X(6) VALUE "<--->".
-
- PROCEDURE DIVISION.
- OPEN OUTPUT report-file.
-
- MOVE "hello" TO foo.
- GENERATE rp-detail.
-
- MOVE "goodbye" TO foo.
- GENERATE rp-detail.
-
- TERMINATE rp.
- CLOSE report-file.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:4689: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_reportwriter.at:4689"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:4689"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:4691: DD_PRINTOUT=./report.txt \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "DD_PRINTOUT=./report.txt $COBCRUN_DIRECT ./prog" "run_reportwriter.at:4691"
-( $at_check_trace; DD_PRINTOUT=./report.txt $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:31: error: GENERATE rp but no INITIATE was done
-libcob: prog.cob:31: warning: implicit CLOSE of report-file ('PRINTOUT')
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_reportwriter.at:4691"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-: >reference
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:4701: diff reference report.txt"
-at_fn_check_prepare_trace "run_reportwriter.at:4701"
-( $at_check_trace; diff reference report.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:4701"
-$at_failed && at_fn_log_failure \
-"report.txt"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_977
-#AT_START_978
-at_fn_group_banner 978 'run_reportwriter.at:4706' \
- "Missing INITIATE and TERMINATE" " " 4
-at_xfail=no
-(
- printf "%s\n" "978. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT report-file ASSIGN EXTERNAL PRINTOUT
- ORGANIZATION LINE SEQUENTIAL.
-
- DATA DIVISION.
- FILE SECTION.
- FD report-file REPORT rp.
-
- WORKING-STORAGE SECTION.
- 01 foo PIC X(20).
- 01 hedpos PIC 99 VALUE 10.
-
- REPORT SECTION.
- RD rp PAGE LIMIT 3.
-
- 01 rp-detail TYPE DE.
- 02 LINE + 1.
- 03 COL 1; SOURCE foo, PIC X(30).
- 03 COL + 2 PIC X(6) VALUE "<--->".
-
- PROCEDURE DIVISION.
- OPEN OUTPUT report-file.
-
- TERMINATE rp.
- CLOSE report-file.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:4743: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_reportwriter.at:4743"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:4743"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:4745: DD_PRINTOUT=./report.txt \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "DD_PRINTOUT=./report.txt $COBCRUN_DIRECT ./prog" "run_reportwriter.at:4745"
-( $at_check_trace; DD_PRINTOUT=./report.txt $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:30: error: TERMINATE rp but no INITIATE was done
-libcob: prog.cob:30: warning: implicit CLOSE of report-file ('PRINTOUT')
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_reportwriter.at:4745"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-: >reference
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:4755: diff reference report.txt"
-at_fn_check_prepare_trace "run_reportwriter.at:4755"
-( $at_check_trace; diff reference report.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:4755"
-$at_failed && at_fn_log_failure \
-"report.txt"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_978
-#AT_START_979
-at_fn_group_banner 979 'run_reportwriter.at:4760' \
- "Next Group Next Page" " " 4
-at_xfail=no
-(
- printf "%s\n" "979. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >inp_data <<'_ATEOF'
-MW1000051IN15021220150212OR150212043ITEM_NUMBER_22 0000002800002999
-MW1000051IN15022220150222OR150226020ITEM_NUMBER_06 0000004300000999
-MW1000071IN15021420150214OR150212057ITEM_NUMBER_51 0000007000005999
-MW1000071IN15022820150228OR150225098ITEM_NUMBER_92 0000001400009999
-MW1000201IN15020920150209OR150216083ITEM_NUMBER_77 0000007700007999
-MW1000201IN15022720150227OR150223079ITEM_NUMBER_20 0000009600002999
-MW1000291IN15021720150217OR150218088ITEM_NUMBER_86 0000001900008999
-MW1000411IN15022320150223OR150210063ITEM_NUMBER_66 0000008800006999
-MW1000451IN15021720150217OR150202053ITEM_NUMBER_60 0000005100006999
-MW1000471IN15022420150224OR150201036ITEM_NUMBER_45 0000003800004999
-MW1000831IN15021020150210OR150227042ITEM_NUMBER_70 0000007200007999
-MW1000831IN15021420150214OR150228090ITEM_NUMBER_07 0000002300000999
-MW1000831IN15022020150220OR150226048ITEM_NUMBER_61 0000005900006999
-MW1000891IN15022120150221OR150219018ITEM_NUMBER_72 0000007300007999
-MW1000891IN15022320150223OR150227069ITEM_NUMBER_73 0000007400007999
-NE1000001IN15021020150210OR150217060ITEM_NUMBER_38 0000009800003999
-NE1000201IN15021920150219OR150209035ITEM_NUMBER_94 0000009600009999
-NE1000431IN15021520150215OR150227047ITEM_NUMBER_64 0000008700006999
-NE1000431IN15022220150222OR150213062ITEM_NUMBER_97 0000007300009999
-NE1000451IN15020320150203OR150213087ITEM_NUMBER_85 0000005300008999
-NE1000471IN15022120150221OR150222034ITEM_NUMBER_74 0000008400007999
-NE1000471IN15022120150221OR150225077ITEM_NUMBER_78 0000002400007999
-NE1000491IN15021720150217OR150210037ITEM_NUMBER_17 0000000700001999
-NE1000601IN15021520150215OR150211070ITEM_NUMBER_06 0000004400000999
-NE1000631IN15022720150227OR150209051ITEM_NUMBER_09 0000005400000999
-NE1000671IN15020620150206OR150220045ITEM_NUMBER_56 0000006600005999
-NE1000811IN15022020150220OR150212086ITEM_NUMBER_27 0000001700002999
-NE1000811IN15022820150228OR150222075ITEM_NUMBER_66 0000008600006999
-NE1000831IN15021620150216OR150224004ITEM_NUMBER_52 0000004200005999
-NW1000001IN15022420150224OR150215029ITEM_NUMBER_79 0000003500007999
-NW1000011IN15022820150228OR150209023ITEM_NUMBER_62 0000009800006999
-NW1000051IN15021020150210OR150225076ITEM_NUMBER_50 0000003900005999
-NW1000051IN15021820150218OR150229093ITEM_NUMBER_94 0000003700009999
-NW1000051IN15022020150220OR150221050ITEM_NUMBER_89 0000003800008999
-NW1000071IN15020220150202OR150223014ITEM_NUMBER_54 0000004800005999
-NW1000091IN15020820150208OR150229094ITEM_NUMBER_17 0000007200001999
-NW1000091IN15021220150212OR150222096ITEM_NUMBER_89 0000004900008999
-NW1000091IN15022420150224OR150211074ITEM_NUMBER_90 0000004300009999
-NW1000091IN15022720150227OR150219030ITEM_NUMBER_12 0000001900001999
-NW1000201IN15020820150208OR150210061ITEM_NUMBER_34 0000001200003999
-NW1000231IN15021420150214OR150210044ITEM_NUMBER_89 0000005400008999
-NW1000251IN15021220150212OR150204059ITEM_NUMBER_39 0000006000003999
-NW1000401IN15021520150215OR150222049ITEM_NUMBER_40 0000008100004999
-NW1000401IN15021720150217OR150203085ITEM_NUMBER_77 0000003700007999
-NW1000411IN15020720150207OR150224056ITEM_NUMBER_99 0000005400009999
-NW1000411IN15022820150228OR150221008ITEM_NUMBER_68 0000009000006999
-NW1000491IN15022820150228OR150201002ITEM_NUMBER_47 0000008600004999
-NW1000611IN15022720150227OR150224097ITEM_NUMBER_11 0000008000001999
-NW1000631IN15020720150207OR150206031ITEM_NUMBER_49 0000001500004999
-NW1000631IN15021420150214OR150210054ITEM_NUMBER_40 0000004200004999
-NW1000631IN15022420150224OR150218024ITEM_NUMBER_84 0000003300008999
-NW1000651IN15020620150206OR150225099ITEM_NUMBER_57 0000004300005999
-NW1000671IN15021320150213OR150224041ITEM_NUMBER_22 0000000200002999
-NW1000691IN15020420150204OR150211092ITEM_NUMBER_13 0000009400001999
-NW1000811IN15022720150227OR150217081ITEM_NUMBER_45 0000001600004999
-NW1000851IN15020820150208OR150203091ITEM_NUMBER_63 0000006600006999
-NW1000871IN15021820150218OR150209082ITEM_NUMBER_30 0000005500003999
-NW1000871IN15022820150228OR150222015ITEM_NUMBER_73 0000005100007999
-NW1000891IN15022520150225OR150201026ITEM_NUMBER_80 0000004700008999
-SE1000001IN15022320150223OR150203064ITEM_NUMBER_03 0000007100000999
-SE1000011IN15020120150201OR150213017ITEM_NUMBER_09 0000000600000999
-SE1000011IN15021220150212OR150209066ITEM_NUMBER_06 0000004000000999
-SE1000091IN15020420150204OR150201001ITEM_NUMBER_68 0000001900006999
-SE1000091IN15021020150210OR150223084ITEM_NUMBER_11 0000009300001999
-SE1000091IN15022620150226OR150219038ITEM_NUMBER_97 0000003700009999
-SE1000211IN15020620150206OR150221089ITEM_NUMBER_05 0000004500000999
-SE1000411IN15021220150212OR150208012ITEM_NUMBER_46 0000002300004999
-SE1000431IN15020720150207OR150214072ITEM_NUMBER_25 0000004600002999
-SE1000431IN15022520150225OR150220040ITEM_NUMBER_01 0000006100000999
-SE1000451IN15021420150214OR150204022ITEM_NUMBER_34 0000004700003999
-SE1000471IN15020320150203OR150217010ITEM_NUMBER_25 0000003400002999
-SE1000471IN15021120150211OR150213025ITEM_NUMBER_54 0000009200005999
-SE1000491IN15020220150202OR150202013ITEM_NUMBER_19 0000007800001999
-SE1000601IN15022420150224OR150210039ITEM_NUMBER_19 0000005600001999
-SE1000631IN15020120150201OR150216003ITEM_NUMBER_65 0000001100006999
-SE1000671IN15020320150203OR150205071ITEM_NUMBER_64 0000009400006999
-SE1000671IN15022020150220OR150214032ITEM_NUMBER_53 0000005900005999
-SE1000891IN15022620150226OR150229068ITEM_NUMBER_75 0000008400007999
-SW1000011IN15020220150202OR150206000ITEM_NUMBER_30 0000005900003999
-SW1000031IN15020320150203OR150214033ITEM_NUMBER_09 0000006000000999
-SW1000031IN15020620150206OR150206021ITEM_NUMBER_91 0000005400009999
-SW1000091IN15022320150223OR150221028ITEM_NUMBER_67 0000003900006999
-SW1000201IN15020920150209OR150205065ITEM_NUMBER_21 0000007000002999
-SW1000201IN15022520150225OR150203052ITEM_NUMBER_55 0000007500005999
-SW1000201IN15022520150225OR150210067ITEM_NUMBER_83 0000001500008999
-SW1000211IN15020220150202OR150221055ITEM_NUMBER_16 0000001300001999
-SW1000211IN15020820150208OR150215007ITEM_NUMBER_97 0000008900009999
-SW1000271IN15021120150211OR150228080ITEM_NUMBER_45 0000005200004999
-SW1000271IN15021320150213OR150207095ITEM_NUMBER_09 0000005400000999
-SW1000401IN15022820150228OR150202027ITEM_NUMBER_83 0000000100008999
-SW1000411IN15021020150210OR150220073ITEM_NUMBER_63 0000001400006999
-SW1000431IN15020820150208OR150227078ITEM_NUMBER_23 0000005200002999
-SW1000431IN15022020150220OR150227006ITEM_NUMBER_50 0000008500005999
-SW1000601IN15020620150206OR150201011ITEM_NUMBER_73 0000008400007999
-SW1000611IN15020620150206OR150218019ITEM_NUMBER_67 0000006100006999
-SW1000651IN15020920150209OR150224009ITEM_NUMBER_23 0000001800002999
-SW1000831IN15020120150201OR150221046ITEM_NUMBER_44 0000006900004999
-SW1000831IN15022020150220OR150213005ITEM_NUMBER_44 0000003700004999
-SW1000831IN15022220150222OR150213058ITEM_NUMBER_86 0000008300008999
-SW1000871IN15020220150202OR150216016ITEM_NUMBER_62 0000008300006999
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- *AUTHOR. Gerard Robinson.
- *DATE-WRITTEN. February 25, 2015.
-
- ENVIRONMENT DIVISION.
-
- INPUT-OUTPUT SECTION.
-
- FILE-CONTROL.
-
- SELECT REPORT-FILE
- ASSIGN TO EXTERNAL REPORTFILE
- ORGANIZATION IS LINE SEQUENTIAL.
-
- SELECT TEMP-FILE
- ASSIGN TO EXTERNAL TEMPFILE
- ORGANIZATION IS LINE SEQUENTIAL.
-
- DATA DIVISION.
-
- FILE SECTION.
-
- FD REPORT-FILE
- REPORT IS RPTA.
-
- FD TEMP-FILE.
-
- 01 TEMP-REC.
- 03 TEMP-REGION PIC X(2).
- 03 TEMP-BRANCH PIC X(7).
- 03 TEMP-INVOICE PIC X(8).
- 03 TEMP-DATE PIC X(8).
- 03 TEMP-ORDER PIC X(8).
- 03 TEMP-LINE-NO PIC X(3).
- 03 TEMP-ITEM PIC X(20).
- 03 TEMP-TX-QTY PIC S9(8).
- 03 TEMP-COST PIC 999999V99.
-
- WORKING-STORAGE SECTION.
-
- 01 WS-CURRENT-DATE PIC X(23).
-
- 01 WS-SYSTEM-DATE-R REDEFINES WS-CURRENT-DATE.
- 05 WS-DATE-YYYY PIC X(4).
- 05 WS-DATE-MM PIC X(2).
- 05 WS-DATE-DD PIC X(2).
- 05 WS-TIME PIC X(6).
- 05 WS-REST PIC X(9).
-
- 01 TEMP-FILE-EOF PIC 9 VALUE 0.
-
- REPORT SECTION.
-
- RD RPTA
- CONTROLS ARE
- FINAL,
- TEMP-REGION,
- TEMP-BRANCH,
- TEMP-INVOICE
-
- PAGE LIMIT IS 60 LINES
- HEADING 1
- FIRST DETAIL 8
- LAST DETAIL 48.
-
- 01 RPTA-PAGE-HEADING TYPE PAGE HEADING.
- 03 LINE NUMBER IS 1.
- 05 COLUMN 1 PIC X(4) VALUE "Run:".
- 05 COLUMN 5 PIC X(2) SOURCE WS-DATE-MM.
- 05 COLUMN 7 PIC X VALUE "/".
- 05 COLUMN 8 PIC X(2) SOURCE WS-DATE-DD.
- 05 COLUMN 10 PIC X VALUE "/".
- 05 COLUMN 11 PIC X(4) SOURCE WS-DATE-YYYY.
- 05 COLUMN 16 PIC X(6) SOURCE WS-TIME.
- 05 COLUMN 40 PIC X(16) VALUE "NEXT PAGE ISSUE".
- 05 COLUMN 61 PIC X(4) VALUE 'Page'.
- 05 COLUMN 66 PIC ZZZ9 SOURCE PAGE-COUNTER.
-
- 03 LINE NUMBER IS 2.
- 05 COLUMN 1 PIC X(08) VALUE "Region: ".
- 05 COLUMN 12 PIC XX SOURCE TEMP-REGION.
-
- 03 LINE NUMBER IS 3.
- 05 COLUMN 1 PIC X(21) VALUE "Location: ".
- 05 COLUMN 22 PIC X(7) SOURCE TEMP-BRANCH.
-
- 03 LINE NUMBER IS 4.
- 05 COLUMN 1 PIC X(8) VALUE "Invoice#".
- 05 COLUMN 12 PIC X(4) VALUE "Date".
- 05 COLUMN 46 PIC X(6) VALUE "Order#".
- 05 COLUMN 62 PIC X(5) VALUE "Line#".
- 05 COLUMN 69 PIC X(5) VALUE "Item#".
- 05 COLUMN 102 PIC X(6) VALUE "TX Qty".
- 05 COLUMN 114 PIC X(4) VALUE "Cost".
-
- 03 LINE NUMBER IS 5.
- 05 COLUMN 1 PIC X(128) VALUE ALL "-".
-
- 01 RPTA-DETAIL-LINE TYPE DETAIL.
- 05 LINE PLUS 1.
- 07 COLUMN 1 PIC X(8) GROUP INDICATE
- SOURCE TEMP-INVOICE.
- 07 COLUMN 12 PIC X(8) GROUP INDICATE
- SOURCE TEMP-DATE.
- 07 COLUMN 46 PIC X(8) GROUP INDICATE
- SOURCE TEMP-ORDER.
- 07 COLUMN 64 PIC X(3) SOURCE TEMP-LINE-NO.
- 07 COLUMN 69 PIC X(20) SOURCE TEMP-ITEM.
- 07 COLUMN 102 PIC S9(8) SOURCE TEMP-TX-QTY.
- 07 COLUMN 114 PIC ZZZZZZ9.99 SOURCE TEMP-COST.
-
- 01 RPTA-INVOICE-FOOTING TYPE CONTROL FOOTING TEMP-INVOICE
- NEXT GROUP PLUS 1.
- 03 LINE NUMBER IS PLUS 1.
- 05 COLUMN 69 PIC X(15) VALUE "Invoice Total: ".
- 05 COLUMN 101 PIC S9(9) SUM TEMP-TX-QTY.
- 05 COLUMN 113 PIC ZZZZZZZ9.99 SUM TEMP-COST.
-
- 01 RPTA-BRANCH-FOOTING TYPE CONTROL FOOTING TEMP-BRANCH
- NEXT GROUP NEXT PAGE.
- 03 LINE NUMBER IS PLUS 2.
- 05 COLUMN 69 PIC X(15) VALUE "Branch Total: ".
- 05 COLUMN 101 PIC S9(9) SUM TEMP-TX-QTY.
- 05 COLUMN 113 PIC ZZZZZZZ9.99 SUM TEMP-COST.
-
- 01 RPTA-REGION-FOOTING TYPE CONTROL FOOTING TEMP-REGION
- NEXT GROUP NEXT PAGE.
- 03 LINE NUMBER IS PLUS 2.
- 05 COLUMN 69 PIC X(15) VALUE "Region Total: ".
- 05 COLUMN 101 PIC S9(9) SUM TEMP-TX-QTY.
- 05 COLUMN 113 PIC ZZZZZZZ9.99 SUM TEMP-COST.
-
- 01 RPTA-FINAL-FOOTING TYPE CONTROL FOOTING FINAL.
- 03 LINE NUMBER IS PLUS 2.
- 05 COLUMN 69 PIC X(15) VALUE "Grand Total: ".
- 05 COLUMN 101 PIC S9(9) SUM TEMP-TX-QTY.
- 05 COLUMN 113 PIC ZZZZZZZ9.99 SUM TEMP-COST.
-
- PROCEDURE DIVISION.
-
- OPEN INPUT TEMP-FILE.
- OPEN OUTPUT REPORT-FILE.
-
- MOVE "20150225153000000000000" TO WS-CURRENT-DATE.
-
- INITIATE RPTA.
-
- PERFORM PROCESS-DETAIL-LEVEL-REPORT THRU PDLR-EXIT.
-
- TERMINATE RPTA.
-
- CLOSE TEMP-FILE.
- CLOSE REPORT-FILE.
-
- STOP RUN.
-
-
- PROCESS-DETAIL-LEVEL-REPORT.
- PERFORM READ-NEXT-TEMP-REC THRU RNTR-EXIT.
-
- IF TEMP-FILE-EOF EQUALS 1
- GO TO PDLR-EXIT
- END-IF.
-
- GENERATE RPTA-DETAIL-LINE.
-
- GO TO PROCESS-DETAIL-LEVEL-REPORT.
-
- PDLR-EXIT.
- EXIT.
-
-
- READ-NEXT-TEMP-REC.
- READ TEMP-FILE NEXT RECORD
- AT END
- MOVE 1 TO TEMP-FILE-EOF
- END-READ.
-
- RNTR-EXIT.
- EXIT.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:5049: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_reportwriter.at:5049"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:5049"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:5051: DD_TEMPFILE=./inp_data DD_REPORTFILE=./report.txt \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "DD_TEMPFILE=./inp_data DD_REPORTFILE=./report.txt $COBCRUN_DIRECT ./prog" "run_reportwriter.at:5051"
-( $at_check_trace; DD_TEMPFILE=./inp_data DD_REPORTFILE=./report.txt $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:5051"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-cat >reference <<'_ATEOF'
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 1
-Region: MW
-Location: 1000051
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150212 20150212 OR150212 043 ITEM_NUMBER_22 00000028 29.99
- Invoice Total: 000000028 29.99
-
-IN150222 20150222 OR150226 020 ITEM_NUMBER_06 00000043 9.99
- Invoice Total: 000000043 9.99
-
-
- Branch Total: 000000071 39.98
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 2
-Region: MW
-Location: 1000071
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150214 20150214 OR150212 057 ITEM_NUMBER_51 00000070 59.99
- Invoice Total: 000000070 59.99
-
-IN150228 20150228 OR150225 098 ITEM_NUMBER_92 00000014 99.99
- Invoice Total: 000000014 99.99
-
-
- Branch Total: 000000084 159.98
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 3
-Region: MW
-Location: 1000201
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150209 20150209 OR150216 083 ITEM_NUMBER_77 00000077 79.99
- Invoice Total: 000000077 79.99
-
-IN150227 20150227 OR150223 079 ITEM_NUMBER_20 00000096 29.99
- Invoice Total: 000000096 29.99
-
-
- Branch Total: 000000173 109.98
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 4
-Region: MW
-Location: 1000291
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150217 20150217 OR150218 088 ITEM_NUMBER_86 00000019 89.99
- Invoice Total: 000000019 89.99
-
-
- Branch Total: 000000019 89.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 5
-Region: MW
-Location: 1000411
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150223 20150223 OR150210 063 ITEM_NUMBER_66 00000088 69.99
- Invoice Total: 000000088 69.99
-
-
- Branch Total: 000000088 69.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 6
-Region: MW
-Location: 1000451
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150217 20150217 OR150202 053 ITEM_NUMBER_60 00000051 69.99
- Invoice Total: 000000051 69.99
-
-
- Branch Total: 000000051 69.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 7
-Region: MW
-Location: 1000471
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150224 20150224 OR150201 036 ITEM_NUMBER_45 00000038 49.99
- Invoice Total: 000000038 49.99
-
-
- Branch Total: 000000038 49.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 8
-Region: MW
-Location: 1000831
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150210 20150210 OR150227 042 ITEM_NUMBER_70 00000072 79.99
- Invoice Total: 000000072 79.99
-
-IN150214 20150214 OR150228 090 ITEM_NUMBER_07 00000023 9.99
- Invoice Total: 000000023 9.99
-
-IN150220 20150220 OR150226 048 ITEM_NUMBER_61 00000059 69.99
- Invoice Total: 000000059 69.99
-
-
- Branch Total: 000000154 159.97
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 9
-Region: MW
-Location: 1000891
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150221 20150221 OR150219 018 ITEM_NUMBER_72 00000073 79.99
- Invoice Total: 000000073 79.99
-
-IN150223 20150223 OR150227 069 ITEM_NUMBER_73 00000074 79.99
- Invoice Total: 000000074 79.99
-
-
- Branch Total: 000000147 159.98
-
- Region Total: 000000825 909.85
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 10
-Region: NE
-Location: 1000001
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150210 20150210 OR150217 060 ITEM_NUMBER_38 00000098 39.99
- Invoice Total: 000000098 39.99
-
-
- Branch Total: 000000098 39.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 11
-Region: NE
-Location: 1000201
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150219 20150219 OR150209 035 ITEM_NUMBER_94 00000096 99.99
- Invoice Total: 000000096 99.99
-
-
- Branch Total: 000000096 99.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 12
-Region: NE
-Location: 1000431
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150215 20150215 OR150227 047 ITEM_NUMBER_64 00000087 69.99
- Invoice Total: 000000087 69.99
-
-IN150222 20150222 OR150213 062 ITEM_NUMBER_97 00000073 99.99
- Invoice Total: 000000073 99.99
-
-
- Branch Total: 000000160 169.98
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 13
-Region: NE
-Location: 1000451
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150203 20150203 OR150213 087 ITEM_NUMBER_85 00000053 89.99
- Invoice Total: 000000053 89.99
-
-
- Branch Total: 000000053 89.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 14
-Region: NE
-Location: 1000471
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150221 20150221 OR150222 034 ITEM_NUMBER_74 00000084 79.99
- 077 ITEM_NUMBER_78 00000024 79.99
- Invoice Total: 000000108 159.98
-
-
- Branch Total: 000000108 159.98
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 15
-Region: NE
-Location: 1000491
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150217 20150217 OR150210 037 ITEM_NUMBER_17 00000007 19.99
- Invoice Total: 000000007 19.99
-
-
- Branch Total: 000000007 19.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 16
-Region: NE
-Location: 1000601
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150215 20150215 OR150211 070 ITEM_NUMBER_06 00000044 9.99
- Invoice Total: 000000044 9.99
-
-
- Branch Total: 000000044 9.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 17
-Region: NE
-Location: 1000631
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150227 20150227 OR150209 051 ITEM_NUMBER_09 00000054 9.99
- Invoice Total: 000000054 9.99
-
-
- Branch Total: 000000054 9.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 18
-Region: NE
-Location: 1000671
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150206 20150206 OR150220 045 ITEM_NUMBER_56 00000066 59.99
- Invoice Total: 000000066 59.99
-
-
- Branch Total: 000000066 59.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 19
-Region: NE
-Location: 1000811
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150220 20150220 OR150212 086 ITEM_NUMBER_27 00000017 29.99
- Invoice Total: 000000017 29.99
-
-IN150228 20150228 OR150222 075 ITEM_NUMBER_66 00000086 69.99
- Invoice Total: 000000086 69.99
-
-
- Branch Total: 000000103 99.98
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 20
-Region: NE
-Location: 1000831
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150216 20150216 OR150224 004 ITEM_NUMBER_52 00000042 59.99
- Invoice Total: 000000042 59.99
-
-
- Branch Total: 000000042 59.99
-
- Region Total: 000000831 819.86
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 21
-Region: NW
-Location: 1000001
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150224 20150224 OR150215 029 ITEM_NUMBER_79 00000035 79.99
- Invoice Total: 000000035 79.99
-
-
- Branch Total: 000000035 79.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 22
-Region: NW
-Location: 1000011
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150228 20150228 OR150209 023 ITEM_NUMBER_62 00000098 69.99
- Invoice Total: 000000098 69.99
-
-
- Branch Total: 000000098 69.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 23
-Region: NW
-Location: 1000051
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150210 20150210 OR150225 076 ITEM_NUMBER_50 00000039 59.99
- Invoice Total: 000000039 59.99
-
-IN150218 20150218 OR150229 093 ITEM_NUMBER_94 00000037 99.99
- Invoice Total: 000000037 99.99
-
-IN150220 20150220 OR150221 050 ITEM_NUMBER_89 00000038 89.99
- Invoice Total: 000000038 89.99
-
-
- Branch Total: 000000114 249.97
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 24
-Region: NW
-Location: 1000071
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150202 20150202 OR150223 014 ITEM_NUMBER_54 00000048 59.99
- Invoice Total: 000000048 59.99
-
-
- Branch Total: 000000048 59.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 25
-Region: NW
-Location: 1000091
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150208 20150208 OR150229 094 ITEM_NUMBER_17 00000072 19.99
- Invoice Total: 000000072 19.99
-
-IN150212 20150212 OR150222 096 ITEM_NUMBER_89 00000049 89.99
- Invoice Total: 000000049 89.99
-
-IN150224 20150224 OR150211 074 ITEM_NUMBER_90 00000043 99.99
- Invoice Total: 000000043 99.99
-
-IN150227 20150227 OR150219 030 ITEM_NUMBER_12 00000019 19.99
- Invoice Total: 000000019 19.99
-
-
- Branch Total: 000000183 229.96
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 26
-Region: NW
-Location: 1000201
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150208 20150208 OR150210 061 ITEM_NUMBER_34 00000012 39.99
- Invoice Total: 000000012 39.99
-
-
- Branch Total: 000000012 39.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 27
-Region: NW
-Location: 1000231
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150214 20150214 OR150210 044 ITEM_NUMBER_89 00000054 89.99
- Invoice Total: 000000054 89.99
-
-
- Branch Total: 000000054 89.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 28
-Region: NW
-Location: 1000251
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150212 20150212 OR150204 059 ITEM_NUMBER_39 00000060 39.99
- Invoice Total: 000000060 39.99
-
-
- Branch Total: 000000060 39.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 29
-Region: NW
-Location: 1000401
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150215 20150215 OR150222 049 ITEM_NUMBER_40 00000081 49.99
- Invoice Total: 000000081 49.99
-
-IN150217 20150217 OR150203 085 ITEM_NUMBER_77 00000037 79.99
- Invoice Total: 000000037 79.99
-
-
- Branch Total: 000000118 129.98
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 30
-Region: NW
-Location: 1000411
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150207 20150207 OR150224 056 ITEM_NUMBER_99 00000054 99.99
- Invoice Total: 000000054 99.99
-
-IN150228 20150228 OR150221 008 ITEM_NUMBER_68 00000090 69.99
- Invoice Total: 000000090 69.99
-
-
- Branch Total: 000000144 169.98
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 31
-Region: NW
-Location: 1000491
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150228 20150228 OR150201 002 ITEM_NUMBER_47 00000086 49.99
- Invoice Total: 000000086 49.99
-
-
- Branch Total: 000000086 49.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 32
-Region: NW
-Location: 1000611
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150227 20150227 OR150224 097 ITEM_NUMBER_11 00000080 19.99
- Invoice Total: 000000080 19.99
-
-
- Branch Total: 000000080 19.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 33
-Region: NW
-Location: 1000631
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150207 20150207 OR150206 031 ITEM_NUMBER_49 00000015 49.99
- Invoice Total: 000000015 49.99
-
-IN150214 20150214 OR150210 054 ITEM_NUMBER_40 00000042 49.99
- Invoice Total: 000000042 49.99
-
-IN150224 20150224 OR150218 024 ITEM_NUMBER_84 00000033 89.99
- Invoice Total: 000000033 89.99
-
-
- Branch Total: 000000090 189.97
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 34
-Region: NW
-Location: 1000651
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150206 20150206 OR150225 099 ITEM_NUMBER_57 00000043 59.99
- Invoice Total: 000000043 59.99
-
-
- Branch Total: 000000043 59.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 35
-Region: NW
-Location: 1000671
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150213 20150213 OR150224 041 ITEM_NUMBER_22 00000002 29.99
- Invoice Total: 000000002 29.99
-
-
- Branch Total: 000000002 29.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 36
-Region: NW
-Location: 1000691
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150204 20150204 OR150211 092 ITEM_NUMBER_13 00000094 19.99
- Invoice Total: 000000094 19.99
-
-
- Branch Total: 000000094 19.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 37
-Region: NW
-Location: 1000811
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150227 20150227 OR150217 081 ITEM_NUMBER_45 00000016 49.99
- Invoice Total: 000000016 49.99
-
-
- Branch Total: 000000016 49.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 38
-Region: NW
-Location: 1000851
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150208 20150208 OR150203 091 ITEM_NUMBER_63 00000066 69.99
- Invoice Total: 000000066 69.99
-
-
- Branch Total: 000000066 69.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 39
-Region: NW
-Location: 1000871
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150218 20150218 OR150209 082 ITEM_NUMBER_30 00000055 39.99
- Invoice Total: 000000055 39.99
-
-IN150228 20150228 OR150222 015 ITEM_NUMBER_73 00000051 79.99
- Invoice Total: 000000051 79.99
-
-
- Branch Total: 000000106 119.98
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 40
-Region: NW
-Location: 1000891
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150225 20150225 OR150201 026 ITEM_NUMBER_80 00000047 89.99
- Invoice Total: 000000047 89.99
-
-
- Branch Total: 000000047 89.99
-
- Region Total: 000001496 1859.70
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 41
-Region: SE
-Location: 1000001
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150223 20150223 OR150203 064 ITEM_NUMBER_03 00000071 9.99
- Invoice Total: 000000071 9.99
-
-
- Branch Total: 000000071 9.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 42
-Region: SE
-Location: 1000011
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150201 20150201 OR150213 017 ITEM_NUMBER_09 00000006 9.99
- Invoice Total: 000000006 9.99
-
-IN150212 20150212 OR150209 066 ITEM_NUMBER_06 00000040 9.99
- Invoice Total: 000000040 9.99
-
-
- Branch Total: 000000046 19.98
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 43
-Region: SE
-Location: 1000091
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150204 20150204 OR150201 001 ITEM_NUMBER_68 00000019 69.99
- Invoice Total: 000000019 69.99
-
-IN150210 20150210 OR150223 084 ITEM_NUMBER_11 00000093 19.99
- Invoice Total: 000000093 19.99
-
-IN150226 20150226 OR150219 038 ITEM_NUMBER_97 00000037 99.99
- Invoice Total: 000000037 99.99
-
-
- Branch Total: 000000149 189.97
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 44
-Region: SE
-Location: 1000211
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150206 20150206 OR150221 089 ITEM_NUMBER_05 00000045 9.99
- Invoice Total: 000000045 9.99
-
-
- Branch Total: 000000045 9.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 45
-Region: SE
-Location: 1000411
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150212 20150212 OR150208 012 ITEM_NUMBER_46 00000023 49.99
- Invoice Total: 000000023 49.99
-
-
- Branch Total: 000000023 49.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 46
-Region: SE
-Location: 1000431
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150207 20150207 OR150214 072 ITEM_NUMBER_25 00000046 29.99
- Invoice Total: 000000046 29.99
-
-IN150225 20150225 OR150220 040 ITEM_NUMBER_01 00000061 9.99
- Invoice Total: 000000061 9.99
-
-
- Branch Total: 000000107 39.98
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 47
-Region: SE
-Location: 1000451
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150214 20150214 OR150204 022 ITEM_NUMBER_34 00000047 39.99
- Invoice Total: 000000047 39.99
-
-
- Branch Total: 000000047 39.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 48
-Region: SE
-Location: 1000471
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150203 20150203 OR150217 010 ITEM_NUMBER_25 00000034 29.99
- Invoice Total: 000000034 29.99
-
-IN150211 20150211 OR150213 025 ITEM_NUMBER_54 00000092 59.99
- Invoice Total: 000000092 59.99
-
-
- Branch Total: 000000126 89.98
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 49
-Region: SE
-Location: 1000491
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150202 20150202 OR150202 013 ITEM_NUMBER_19 00000078 19.99
- Invoice Total: 000000078 19.99
-
-
- Branch Total: 000000078 19.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 50
-Region: SE
-Location: 1000601
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150224 20150224 OR150210 039 ITEM_NUMBER_19 00000056 19.99
- Invoice Total: 000000056 19.99
-
-
- Branch Total: 000000056 19.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 51
-Region: SE
-Location: 1000631
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150201 20150201 OR150216 003 ITEM_NUMBER_65 00000011 69.99
- Invoice Total: 000000011 69.99
-
-
- Branch Total: 000000011 69.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 52
-Region: SE
-Location: 1000671
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150203 20150203 OR150205 071 ITEM_NUMBER_64 00000094 69.99
- Invoice Total: 000000094 69.99
-
-IN150220 20150220 OR150214 032 ITEM_NUMBER_53 00000059 59.99
- Invoice Total: 000000059 59.99
-
-
- Branch Total: 000000153 129.98
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 53
-Region: SE
-Location: 1000891
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150226 20150226 OR150229 068 ITEM_NUMBER_75 00000084 79.99
- Invoice Total: 000000084 79.99
-
-
- Branch Total: 000000084 79.99
-
- Region Total: 000000996 769.81
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 54
-Region: SW
-Location: 1000011
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150202 20150202 OR150206 000 ITEM_NUMBER_30 00000059 39.99
- Invoice Total: 000000059 39.99
-
-
- Branch Total: 000000059 39.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 55
-Region: SW
-Location: 1000031
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150203 20150203 OR150214 033 ITEM_NUMBER_09 00000060 9.99
- Invoice Total: 000000060 9.99
-
-IN150206 20150206 OR150206 021 ITEM_NUMBER_91 00000054 99.99
- Invoice Total: 000000054 99.99
-
-
- Branch Total: 000000114 109.98
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 56
-Region: SW
-Location: 1000091
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150223 20150223 OR150221 028 ITEM_NUMBER_67 00000039 69.99
- Invoice Total: 000000039 69.99
-
-
- Branch Total: 000000039 69.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 57
-Region: SW
-Location: 1000201
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150209 20150209 OR150205 065 ITEM_NUMBER_21 00000070 29.99
- Invoice Total: 000000070 29.99
-
-IN150225 20150225 OR150203 052 ITEM_NUMBER_55 00000075 59.99
- 067 ITEM_NUMBER_83 00000015 89.99
- Invoice Total: 000000090 149.98
-
-
- Branch Total: 000000160 179.97
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 58
-Region: SW
-Location: 1000211
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150202 20150202 OR150221 055 ITEM_NUMBER_16 00000013 19.99
- Invoice Total: 000000013 19.99
-
-IN150208 20150208 OR150215 007 ITEM_NUMBER_97 00000089 99.99
- Invoice Total: 000000089 99.99
-
-
- Branch Total: 000000102 119.98
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 59
-Region: SW
-Location: 1000271
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150211 20150211 OR150228 080 ITEM_NUMBER_45 00000052 49.99
- Invoice Total: 000000052 49.99
-
-IN150213 20150213 OR150207 095 ITEM_NUMBER_09 00000054 9.99
- Invoice Total: 000000054 9.99
-
-
- Branch Total: 000000106 59.98
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 60
-Region: SW
-Location: 1000401
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150228 20150228 OR150202 027 ITEM_NUMBER_83 00000001 89.99
- Invoice Total: 000000001 89.99
-
-
- Branch Total: 000000001 89.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 61
-Region: SW
-Location: 1000411
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150210 20150210 OR150220 073 ITEM_NUMBER_63 00000014 69.99
- Invoice Total: 000000014 69.99
-
-
- Branch Total: 000000014 69.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 62
-Region: SW
-Location: 1000431
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150208 20150208 OR150227 078 ITEM_NUMBER_23 00000052 29.99
- Invoice Total: 000000052 29.99
-
-IN150220 20150220 OR150227 006 ITEM_NUMBER_50 00000085 59.99
- Invoice Total: 000000085 59.99
-
-
- Branch Total: 000000137 89.98
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 63
-Region: SW
-Location: 1000601
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150206 20150206 OR150201 011 ITEM_NUMBER_73 00000084 79.99
- Invoice Total: 000000084 79.99
-
-
- Branch Total: 000000084 79.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 64
-Region: SW
-Location: 1000611
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150206 20150206 OR150218 019 ITEM_NUMBER_67 00000061 69.99
- Invoice Total: 000000061 69.99
-
-
- Branch Total: 000000061 69.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 65
-Region: SW
-Location: 1000651
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150209 20150209 OR150224 009 ITEM_NUMBER_23 00000018 29.99
- Invoice Total: 000000018 29.99
-
-
- Branch Total: 000000018 29.99
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 66
-Region: SW
-Location: 1000831
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150201 20150201 OR150221 046 ITEM_NUMBER_44 00000069 49.99
- Invoice Total: 000000069 49.99
-
-IN150220 20150220 OR150213 005 ITEM_NUMBER_44 00000037 49.99
- Invoice Total: 000000037 49.99
-
-IN150222 20150222 OR150213 058 ITEM_NUMBER_86 00000083 89.99
- Invoice Total: 000000083 89.99
-
-
- Branch Total: 000000189 189.97
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Run:02/25/2015 153000 NEXT PAGE ISSUE Page 67
-Region: SW
-Location: 1000871
-Invoice# Date Order# Line# Item# TX Qty Cost
---------------------------------------------------------------------------------------------------------------------------------
-
-
-IN150202 20150202 OR150216 016 ITEM_NUMBER_62 00000083 69.99
- Invoice Total: 000000083 69.99
-
- Branch Total: 000000083 69.99
-
- Region Total: 000001167 1269.78
-
- Grand Total: 000005315 5629.00
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:9078: diff reference report.txt"
-at_fn_check_prepare_trace "run_reportwriter.at:9078"
-( $at_check_trace; diff reference report.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:9078"
-$at_failed && at_fn_log_failure \
-"report.txt"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_979
-#AT_START_980
-at_fn_group_banner 980 'run_reportwriter.at:9083' \
- "Report PRESENT AFTER" " " 4
-at_xfail=no
-(
- printf "%s\n" "980. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >inp_data <<'_ATEOF'
-SAINATH KOTGIRE 30/03/201611029473 20 00100000 00000100
-UDAY PRATIVADI 30/03/201604547552 20 00100000 00000200
-MILIND PARDESHI 30/03/201611256856 20 00100000 00000300
-AJIT PATIL 30/03/201610503086 20 00000500 00000400
-VINOD KAMBLE 30/03/201615487558 20 00100000 00000500
-SACHIN TENDUNLKAR 30/03/201614645425 20 00500000 00000600
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
-
- SELECT IN-FILE ASSIGN TO EXTERNAL INFILE
- LINE SEQUENTIAL
- FILE STATUS IS WS-INPUT-STATUS.
-
- SELECT OUT-FILE ASSIGN TO EXTERNAL OREPORT
- LINE SEQUENTIAL
- FILE STATUS IS WS-OUTPUT-STATUS.
-
- DATA DIVISION.
-
- FILE SECTION.
-
- FD IN-FILE
- RECORDING MODE IS F
- BLOCK 0.
-
- 01 IN-REC.
- 05 IN-EMP-NAME PIC X(25).
- 05 IN-REPORT-PERIOD PIC X(10).
- 05 IN-EMP-USERID PIC X(10).
- 05 IN-BILL-DAYS PIC X(3).
- 05 IN-SALARY PIC 9(8).
- 05 FILLER PIC X(34).
-
- FD OUT-FILE
- RECORDING MODE IS F
- REPORT IS REPORT1.
-
- 01 REP-REC PIC X(100).
-
- WORKING-STORAGE SECTION.
- 01 WS-FILE-FLAGS.
- 05 WS-INPUT-STATUS PIC XX.
- 88 WS-INPUT-OK VALUE '00'.
- 88 WS-INPUT-EOF VALUE '10'.
- 05 WS-OUTPUT-STATUS PIC XX.
- 88 WS-OUTPUT-OK VALUE '00'.
- *-----------------------------------------------------------*
- * MISCELLANOUS FIELDS *
- *-----------------------------------------------------------*
- 01 WS-MISC.
- 05 WS-EMP-NAME PIC X(25).
- 05 WS-REPORT-PERIOD PIC X(10).
- 05 WS-EMP-USERID PIC X(10).
- 05 WS-BILL-DAYS PIC X(3).
- 05 WS-SALARY PIC 9(8).
-
- 01 WS-MISC-DATE.
- 05 WS-DATE PIC 9(8) VALUE 20160422.
- 05 WS-TIME PIC 9(8) VALUE 10550000.
- 05 FILLER REDEFINES WS-TIME.
- 10 WS-HH PIC 99.
- 10 WS-MI PIC 99.
- 10 WS-SS PIC 99.
- 10 WS-HU PIC 99.
-
- REPORT SECTION.
-
- RD REPORT1
- PAGE LIMIT IS 65 LINES
- LINE LIMIT 132
- HEADING 1
- CONTROL ARE WS-SALARY.
-
- 01 MAIN-HEADER TYPE IS PAGE HEADING.
- 05 LINE 1.
- 10 COLUMN CENTER 45 PIC X(35) VALUE
- 'STARK TECHNOLOGIES MONTHLY REPORT'.
-
- 05 LINE 2.
- 10 COLUMN CENTER 45 PIC X(50) VALUE ALL '-'.
-
- 05 LINE 3.
- 10 COLUMN 02 PIC X(14) VALUE 'REPORT PERIOD:'.
- 10 COLUMN 20 PIC 9999/99/99 SOURCE WS-DATE.
- 10 COLUMN 32 PIC 99 SOURCE WS-HH.
- 10 COLUMN 34 PIC X VALUE ':'.
- 10 COLUMN 35 PIC 99 SOURCE WS-MI.
-
- 01 TYPE IS CONTROL HEADING
- FOR WS-SALARY OR PAGE.
- 05 LINE PLUS 2 PRESENT AFTER NEW WS-SALARY.
- 10 COLUMN 6 PIC X(9) VALUE 'EMP NAME:'.
- 10 COLUMN 30 PIC X(13) VALUE 'EMP USERID:'.
- 10 COLUMN 60 PIC X(13) VALUE 'BILLING DAYS'.
- 10 COLUMN 80 PIC X(15) VALUE 'SALARY CREDITED'.
- 05 LINE PLUS 1 PRESENT AFTER NEW WS-SALARY.
- 10 COLUMN 2 PIC X(100) VALUE ALL '+'.
-
- 01 DETAIL-1 TYPE DETAIL.
- 05 LINE PLUS 1.
- 10 COLUMN 6 PIC X(25) SOURCE WS-EMP-NAME.
- 10 COLUMN 30 PIC X(08) SOURCE WS-EMP-USERID.
- 10 COLUMN 60 PIC X(3) SOURCE WS-BILL-DAYS.
- 10 COLUMN 80 PIC Z(7)9 SOURCE WS-SALARY.
-
- 01 REP-FOOTER TYPE DETAIL.
- 05 LINE PLUS 2.
- 10 COLUMN 2 PIC X(100) VALUE ALL '*'.
- 05 LINE PLUS 1.
- 10 COLUMN 30 PIC X(23) VALUE 'END OF SALARY REPORT'.
- 05 LINE PLUS 1.
- 10 COLUMN 2 PIC X(100) VALUE ALL '*'.
-
- PROCEDURE DIVISION.
-
- * ACCEPT WS-DATE FROM DATE YYYYMMDD.
- * ACCEPT WS-TIME FROM TIME.
-
- INITIATE REPORT1
-
- * GENERATE MAIN-HEADER
-
- PERFORM 100-OPEN-FILES
- PERFORM 200-MAIN-PROCESS
-
- TERMINATE REPORT1
-
- CLOSE IN-FILE
- CLOSE OUT-FILE
- STOP RUN.
-
- 100-OPEN-FILES.
-
- OPEN INPUT IN-FILE
-
- IF WS-INPUT-OK
- CONTINUE
- ELSE
- DISPLAY 'ERROR OPENING INFILE FILE.STATUS = '
- WS-INPUT-STATUS
- STOP RUN
- END-IF
-
- OPEN OUTPUT OUT-FILE
-
- IF WS-OUTPUT-OK
- INITIALIZE REP-REC
- ELSE
- DISPLAY 'ERROR OPENING OREPORT FILE.STATUS = '
- WS-OUTPUT-STATUS
- STOP RUN
- END-IF.
-
- 200-MAIN-PROCESS.
- * GENERATE HEADER-1
-
- PERFORM UNTIL WS-INPUT-EOF
- READ IN-FILE
- MOVE IN-REC TO WS-MISC
- EVALUATE WS-INPUT-STATUS
- WHEN '00'
- GENERATE DETAIL-1
- WHEN '10'
- GENERATE REP-FOOTER
- WHEN OTHER
- DISPLAY ':ERROR READING INFILE FILE.STATUS = '
- WS-INPUT-STATUS
- STOP RUN
- END-EVALUATE
- END-PERFORM.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:9265: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_reportwriter.at:9265"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:9265"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:9267: DD_INFILE=./inp_data DD_OREPORT=./report.txt \\
-\$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_notrace 'an embedded newline' "run_reportwriter.at:9267"
-( $at_check_trace; DD_INFILE=./inp_data DD_OREPORT=./report.txt \
-$COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:9267"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-cat >reference <<'_ATEOF'
- STARK TECHNOLOGIES MONTHLY REPORT
- --------------------------------------------------
- REPORT PERIOD: 2016/04/22 10:55
-
- EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED
- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
- SAINATH KOTGIRE 11029473 20 100000
- UDAY PRATIVADI 04547552 20 100000
- MILIND PARDESHI 11256856 20 100000
-
- EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED
- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
- AJIT PATIL 10503086 20 500
-
- EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED
- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
- VINOD KAMBLE 15487558 20 100000
-
- EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED
- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
- SACHIN TENDUNLKAR 14645425 20 500000
-
- ****************************************************************************************************
- END OF SALARY REPORT
- ****************************************************************************************************
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:9340: diff reference report.txt"
-at_fn_check_prepare_trace "run_reportwriter.at:9340"
-( $at_check_trace; diff reference report.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:9340"
-$at_failed && at_fn_log_failure \
-"report.txt"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_980
-#AT_START_981
-at_fn_group_banner 981 'run_reportwriter.at:9345' \
- "Varying and Nested OCCURS" " " 4
-at_xfail=yes
-(
- printf "%s\n" "981. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# FIXME - needs bigger changes -> 4.x
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT RP-FILE
- ASSIGN TO "PRINTOUT"
- ORGANIZATION LINE SEQUENTIAL.
-
- DATA DIVISION.
- FILE SECTION.
- FD RP-FILE REPORT RP.
-
- WORKING-STORAGE SECTION.
- 77 RPT PIC 99 VALUE 1.
- 77 NUM PIC 9 VALUE 0.
- 77 TAG1V PIC X(5) VALUE "Tag1".
- 77 TAG2V PIC X(5) VALUE "Tag2".
- 01 MARKX PIC X(16) VALUE
- "<1> <2> <3> <4> ".
- 01 FILLER REDEFINES MARKX.
- 05 MARKIT PIC X(4) OCCURS 4 TIMES.
- 01 DIGX PIC X(50) VALUE
- "123456789b123456789c123456789d123456789e123456789f".
- 01 FILLER REDEFINES DIGX.
- 05 DIGS PIC X(10) OCCURS 5 TIMES.
-
- REPORT SECTION.
- RD RP
- CODE IS "VarQ: "
- PAGE LIMIT 10 LINES
- 60 COLUMNS
- HEADING 1
- FIRST DETAIL 4.
- 01 HEADING-LINE.
- 02 TYPE PAGE HEADING LINE PLUS 1.
- 05 COLUMN 1 PIC X(50) VALUE
- "H 1 2 3 4 5".
- 05 PIC X(7) VALUE " Page".
- 05 PIC ZZ9 SOURCE PAGE-COUNTER.
- 02 TYPE PAGE HEADING LINE PLUS 1.
- * 05 COLUMN 1 PIC X(50) VALUE
- * "12345678901234567890123456789012345678901234567890".
- 05 COLUMN 1 OCCURS 5 TIMES
- VARYING IX1 FROM 1 BY 1.
- 10 H2-DIGS PIC X(10) SOURCE DIGS (IX1).
-
- 01 RP-DTL1 TYPE DETAIL, LINE + 2.
- 03 NUMS COLUMN 1 PIC 999 OCCURS 3 TIMES STEP 10.
- 03 MARK COLUMN + 2 PIC X(4) SOURCE MARKIT(1).
-
- 01 RP-DTL2 TYPE DETAIL, LINE + 1.
- 03 GRPS COLUMN 1 OCCURS 3 TIMES VARYING IX1 FROM 1.
- 05 TAG1 PIC X(5) SOURCE TAG1V.
- 05 FILLER PIC X.
- 05 DTL2 OCCURS 3 TIMES VARYING IX2.
- 10 DTL2X PIC X SOURCE DIGX (IX1:1).
- 05 FILLER PIC X.
- 05 TAG2 PIC X(5) SOURCE TAG2V.
- 05 FILLER PIC X.
- 03 MRK2 COLUMN + 3 PIC X(4) SOURCE MARKIT(2).
-
- 01 RP-DTL3 TYPE DETAIL, LINE + 1.
- 03 NNNS COLUMN 1, 11, 21, 27 PIC 999.
- 03 MRK3 COLUMN PLUS 3 PIC X(4) SOURCE MARKIT(3).
-
- 01 RP-DTL4 TYPE DETAIL, LINE + 1.
- 03 NUM4A PIC 999.
- 03 FILLER PIC X.
- 03 NUM4B COLUMN PLUS 7 PIC 999 OCCURS 3 STEP 6.
- 03 MRK4 COLUMN + 4 PIC X(4) SOURCE MARKIT(4).
-
- PROCEDURE DIVISION.
- DECLARATIVES.
- BEFORE-DETAIL SECTION.
- USE BEFORE REPORTING RP-DTL2.
- DOIT-1.
- ADD 1 TO NUM
- DISPLAY "Hello World " NUM
- MOVE '$' TO DTL2 (2, 2).
- END DECLARATIVES.
-
- OPEN OUTPUT RP-FILE
- INITIATE RP
-
- MOVE 149 TO NNNS (1), NNNS (2), NNNS (3) NNNS (4)
- MOVE 100 TO NUMS (1), NUMS (2), NUMS (3)
-
- PERFORM VARYING RPT FROM 1 BY 1
- UNTIL RPT > 4
- GENERATE RP-DTL1
-
- PERFORM DOIT-NOW
- GENERATE RP-DTL2
-
- MOVE 200 TO NNNS (1), NNNS (2), NNNS (3) NNNS (4)
- GENERATE RP-DTL3
-
- MOVE 400 TO NUM4A
- MOVE 401 TO NUM4B (1)
- MOVE 402 TO NUM4B (2)
- MOVE 403 TO NUM4B (3)
- GENERATE RP-DTL4
- END-PERFORM.
-
- TERMINATE rp.
- CLOSE RP-FILE.
-
- STOP RUN.
-
- DOIT-NOW.
- MOVE ALL '*' TO GRPS(1), GRPS(2), GRPS(3)
- MOVE "WAG1" TO TAG1 (1), TAG1 (2), TAG1 (3)
- MOVE "WAG2" TO TAG2 (1), TAG2 (2), TAG2 (3).
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:9469: \$COMPILE -std=cobol2002 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=cobol2002 prog.cob" "run_reportwriter.at:9469"
-( $at_check_trace; $COMPILE -std=cobol2002 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:9469"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:9471: PRINTOUT=tstdmrp.txt \\
-\$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_notrace 'an embedded newline' "run_reportwriter.at:9471"
-( $at_check_trace; PRINTOUT=tstdmrp.txt \
-$COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Hello World 1
-Hello World 2
-Hello World 3
-Hello World 4
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:9471"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-cat >reference <<'_ATEOF'
-VarQ: H 1 2 3 4 5 Page 1
-VarQ: 123456789b123456789c123456789d123456789e123456789f
-VarQ:
-VarQ: 100 100 100 <1>
-VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2>
-VarQ: 200 200 200 200 <3>
-VarQ: 400 401 402 403 <4>
-VarQ:
-VarQ: <1>
-VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2>
-VarQ: H 1 2 3 4 5 Page 2
-VarQ: 123456789b123456789c123456789d123456789e123456789f
-VarQ:
-VarQ: 200 200 200 200 <3>
-VarQ: 400 401 402 403 <4>
-VarQ:
-VarQ: <1>
-VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2>
-VarQ: 200 200 200 200 <3>
-VarQ: 400 401 402 403 <4>
-VarQ: H 1 2 3 4 5 Page 3
-VarQ: 123456789b123456789c123456789d123456789e123456789f
-VarQ:
-VarQ: <1>
-VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2>
-VarQ: 200 200 200 200 <3>
-VarQ: 400 401 402 403 <4>
-VarQ:
-VarQ:
-VarQ:
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:9514: diff reference tstdmrp.txt"
-at_fn_check_prepare_trace "run_reportwriter.at:9514"
-( $at_check_trace; diff reference tstdmrp.txt
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:9514"
-$at_failed && at_fn_log_failure \
-"tstdmrp.txt"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_981
-#AT_START_982
-at_fn_group_banner 982 'run_reportwriter.at:9519' \
- "BEFORE REPORTING" " " 4
-at_xfail=no
-(
- printf "%s\n" "982. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
-
- SELECT PRINT-FILE ASSIGN TO "SUM.TXT"
- ORGANIZATION IS LINE SEQUENTIAL.
-
- DATA DIVISION.
- FILE SECTION.
- FD PRINT-FILE
- REPORT IS REPORT-1.
- *> --------------------------------------------------------------
- WORKING-STORAGE SECTION.
- *>---------------------------------------------------------------
-
- 01 WS-IN-REC.
-
- 05 WS-STUDENT-NAME PIC X(8).
- 05 WS-BOOK-PAY PIC 999V99.
- 05 WS-TUTION-PAY PIC 999V99.
- 05 WS-TRANSPORT-PAY PIC 999V99.
-
- *>===============================================================
- REPORT SECTION.
-
- RD REPORT-1
- CONTROLS ARE FINAL
- PAGE LIMIT IS 21
- LINE LIMIT IS 71
- FIRST DETAIL IS 08
- LAST DETAIL IS 18
- FOOTING IS 20
- .
- *>---------------------------------------------------------------
- 01 PAGE-HEADING
- TYPE PAGE HEADING.
- 02 LINE 01.
- 03 COLUMN 1 VALUE "PAGE HEADING".
-
- 01 REPORT-LINE
- TYPE DETAIL.
- 02 LINE PLUS 1.
- 03 COLUMN 1 PIC X(13) VALUE "Detail:".
- 03 COLUMN 36 PIC $999.99 SOURCE WS-TUTION-PAY.
- 03 COLUMN 47 PIC $999.99 SOURCE WS-BOOK-PAY.
- 03 COLUMN 58 PIC $999.99 SOURCE WS-TRANSPORT-PAY.
-
- 01 FINAL-FOOTING TYPE CONTROL FOOTING FINAL.
-
- 02 LINE PLUS 1.
- 03 COLUMN 1 PIC X(13) VALUE "TOTALS :".
- 03 FSM-1 COLUMN 34 PIC $9(5).99 SUM WS-TUTION-PAY.
- 03 FSM-2 COLUMN 45 PIC $9(5).99 SUM WS-BOOK-PAY.
- 03 FSM-3 COLUMN 56 PIC $9(5).99 SUM WS-TRANSPORT-PAY.
-
-
- PROCEDURE DIVISION.
- DECLARATIVES.
-
- BEFORE-DETAIL1 SECTION.
- USE BEFORE REPORTING REPORT-LINE.
-
- DISPLAY "BEFORE DETAIL - SHOULD DISPLAY"
- DISPLAY "==============================".
-
- BEFORE-FINAL1 SECTION.
- USE BEFORE REPORTING FINAL-FOOTING.
-
- CALC-GRAND-SUM-AND-AVERAGE.
-
- DISPLAY "BEFORE FINAL - SHOULD DISPLAY".
- END DECLARATIVES.
-
-
- OPEN OUTPUT PRINT-FILE
-
- INITIATE REPORT-1
-
- MOVE 105 TO WS-TRANSPORT-PAY, WS-BOOK-PAY, WS-TUTION-PAY.
- GENERATE REPORT-LINE
-
- MOVE 106 TO WS-TRANSPORT-PAY, WS-BOOK-PAY, WS-TUTION-PAY.
- GENERATE REPORT-LINE
-
- TERMINATE REPORT-1
-
- CLOSE PRINT-FILE.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:9617: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_reportwriter.at:9617"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:9617"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_reportwriter.at:9619: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_reportwriter.at:9619"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "BEFORE DETAIL - SHOULD DISPLAY
-==============================
-BEFORE DETAIL - SHOULD DISPLAY
-==============================
-BEFORE FINAL - SHOULD DISPLAY
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_reportwriter.at:9619"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_982
-#AT_START_983
-at_fn_group_banner 983 'run_returncode.at:23' \
- "RETURN-CODE moving" " " 4
-at_xfail=no
-(
- printf "%s\n" "983. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 I PIC 99 COMP.
- PROCEDURE DIVISION.
- INITIALIZE RETURN-CODE.
- MOVE ZERO TO RETURN-CODE.
- MOVE 1 TO RETURN-CODE.
- MOVE RETURN-CODE TO I.
- IF I NOT = 1
- DISPLAY I NO ADVANCING
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_returncode.at:44: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_returncode.at:44"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_returncode.at:44"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_returncode.at:45: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_returncode.at:45"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_returncode.at:45"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_983
-#AT_START_984
-at_fn_group_banner 984 'run_returncode.at:49' \
- "RETURN-CODE passing" " " 4
-at_xfail=no
-(
- printf "%s\n" "984. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >mod1.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. mod1.
- PROCEDURE DIVISION.
- IF RETURN-CODE NOT = 0
- DISPLAY RETURN-CODE NO ADVANCING
- END-DISPLAY
- END-IF.
- MOVE 1 TO RETURN-CODE.
- IF RETURN-CODE NOT = 1
- DISPLAY RETURN-CODE NO ADVANCING
- END-DISPLAY
- END-IF.
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >mod2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. mod2.
- PROCEDURE DIVISION.
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- CALL "mod1"
- END-CALL.
- IF RETURN-CODE NOT = 1
- DISPLAY RETURN-CODE NO ADVANCING
- END-DISPLAY
- END-IF.
- CALL "mod2"
- END-CALL.
- IF RETURN-CODE NOT = 0
- DISPLAY RETURN-CODE NO ADVANCING
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_returncode.at:94: \$COMPILE_MODULE mod1.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE mod1.cob" "run_returncode.at:94"
-( $at_check_trace; $COMPILE_MODULE mod1.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_returncode.at:94"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_returncode.at:95: \$COMPILE_MODULE mod2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE mod2.cob" "run_returncode.at:95"
-( $at_check_trace; $COMPILE_MODULE mod2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_returncode.at:95"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_returncode.at:96: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_returncode.at:96"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_returncode.at:96"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_returncode.at:97: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_returncode.at:97"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_returncode.at:97"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_984
-#AT_START_985
-at_fn_group_banner 985 'run_returncode.at:101' \
- "RETURN-CODE nested" " " 4
-at_xfail=no
-(
- printf "%s\n" "985. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- MOVE 1 TO RETURN-CODE.
- IF RETURN-CODE NOT = 1
- DISPLAY RETURN-CODE NO ADVANCING
- END-DISPLAY
- END-IF.
- CALL "mod1"
- END-CALL.
- IF RETURN-CODE NOT = 2
- DISPLAY RETURN-CODE NO ADVANCING
- END-DISPLAY
- END-IF.
- MOVE ZERO TO RETURN-CODE.
- STOP RUN.
- PROGRAM-ID. mod1.
- PROCEDURE DIVISION.
- IF RETURN-CODE NOT = 1
- DISPLAY RETURN-CODE NO ADVANCING
- END-DISPLAY
- END-IF.
- MOVE 2 TO RETURN-CODE.
- EXIT PROGRAM.
- END PROGRAM mod1.
- END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_returncode.at:133: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_returncode.at:133"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_returncode.at:133"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_returncode.at:134: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_returncode.at:134"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_returncode.at:134"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_985
-#AT_START_986
-at_fn_group_banner 986 'run_functions.at:24' \
- "FUNCTION ABS" " " 4
-at_xfail=no
-(
- printf "%s\n" "986. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC S9(4)V9(4) VALUE -1.2345.
- PROCEDURE DIVISION.
- DISPLAY FUNCTION ABS ( X ) NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:39: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:39"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:39"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:40: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:40"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "+0001.2345" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:40"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_986
-#AT_START_987
-at_fn_group_banner 987 'run_functions.at:46' \
- "FUNCTION ACOS" " " 4
-at_xfail=no
-(
- printf "%s\n" "987. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Z PIC S9V9(35).
- 01 P PIC S9V9(35) PACKED-DECIMAL.
- 01 S PIC 9V9(35) COMP-6.
- *01 N PIC S9V9(35) COMP-5. big binary support pending
- PROCEDURE DIVISION.
- MOVE FUNCTION ACOS ( -0.2345 ) TO Z.
- IF Z NOT = 1.80750052110824343510150043852321026
- DISPLAY "DISPLAY: " Z.
- MOVE FUNCTION ACOS ( -0.2345 ) TO P.
- IF P NOT = 1.80750052110824343510150043852321026
- DISPLAY "PACKED: " P.
- MOVE FUNCTION ACOS ( -0.2345 ) TO S.
- IF S NOT = 1.80750052110824343510150043852321026
- DISPLAY "COMP-6: " S.
- * MOVE FUNCTION ACOS ( -0.2345 ) TO N.
- * IF N NOT = 1.80750052110824343510150043852321026
- * DISPLAY "PACKED: " N.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:74: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:74"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:74"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:75: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:75"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:75"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_987
-#AT_START_988
-at_fn_group_banner 988 'run_functions.at:80' \
- "FUNCTION ANNUITY" " " 4
-at_xfail=no
-(
- printf "%s\n" "988. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Z PIC S9V9(35).
- PROCEDURE DIVISION.
- MOVE FUNCTION ANNUITY ( 3, 5 ) TO Z.
- IF Z NOT = 3.00293255131964809384164222873900293
- DISPLAY Z.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:96: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:96"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:96"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:97: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:97"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:97"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_988
-#AT_START_989
-at_fn_group_banner 989 'run_functions.at:102' \
- "FUNCTION ASIN" " " 4
-at_xfail=no
-(
- printf "%s\n" "989. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Y PIC S9V9(35).
- 01 P PIC S9V9(35) PACKED-DECIMAL.
- 01 S PIC 9V9(35) COMP-6.
- *>01 N PIC S9V9(35) COMP-5. big binary support pending
- PROCEDURE DIVISION.
- MOVE FUNCTION ASIN ( -0.2345 ) TO Y.
- IF Y NOT = -0.23670419431334681587017874688345882
- DISPLAY "DISPLAY: " Y.
- MOVE FUNCTION ASIN ( -0.2345 ) TO P.
- IF P NOT = -0.23670419431334681587017874688345882
- DISPLAY "PACKED: " P.
- MOVE FUNCTION ASIN ( -0.2345 ) TO S.
- IF S NOT = 0.23670419431334681587017874688345882
- DISPLAY "COMP-6: " S.
- *> MOVE FUNCTION ASIN ( -0.2345 ) TO N.
- *> IF N NOT = -0.23670419431334681587017874688345882
- *> DISPLAY "DISPLAY: " N.
- *> cheating: we compare a huge internal field
- *> (96 digits) here for the testsuite
- IF FUNCTION ASIN ( -00000.2345 ) NOT =
- FUNCTION ASIN ( -.234500000 )
- DISPLAY "ASIN IS NOT ITSELF".
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:135: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:135"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:135"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:136: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:136"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:136"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_989
-#AT_START_990
-at_fn_group_banner 990 'run_functions.at:141' \
- "FUNCTION ATAN" " " 4
-at_xfail=no
-(
- printf "%s\n" "990. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Y PIC S9V9(35).
- PROCEDURE DIVISION.
- MOVE FUNCTION ATAN ( 1 ) TO Y.
- IF Y NOT = 0.78539816339744830961566084581987572
- DISPLAY Y
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:159: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:159"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:159"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:160: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:160"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:160"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_990
-#AT_START_991
-at_fn_group_banner 991 'run_functions.at:165' \
- "FUNCTION BYTE-LENGTH" " " 4
-at_xfail=no
-(
- printf "%s\n" "991. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4).
- 01 Z PIC N(4).
- 01 TEST-FLD PIC S9(04)V9(08).
- PROCEDURE DIVISION.
- MOVE FUNCTION BYTE-LENGTH ( X )
- TO TEST-FLD.
- IF TEST-FLD NOT = 4
- DISPLAY 'BYTE-LENGTH X(4) wrong: ' TEST-FLD.
- MOVE FUNCTION BYTE-LENGTH ( Z )
- TO TEST-FLD
- IF TEST-FLD NOT = 8
- DISPLAY 'BYTE-LENGTH N(4) wrong: ' TEST-FLD.
-
- MOVE FUNCTION BYTE-LENGTH ( '00128' )
- TO TEST-FLD
- IF TEST-FLD NOT = 5
- DISPLAY 'BYTE-LENGTH "00128" wrong: ' TEST-FLD.
- * note: we currently do not support items of category boolean...
- *> MOVE FUNCTION BYTE-LENGTH ( b'100' )
- *> TO TEST-FLD
- *> IF TEST-FLD NOT = 3
- *> DISPLAY 'BYTE-LENGTH b"100" wrong: ' TEST-FLD.
- MOVE FUNCTION BYTE-LENGTH ( x'a0' )
- TO TEST-FLD
- IF TEST-FLD NOT = 1
- DISPLAY 'BYTE-LENGTH x"a0" wrong: ' TEST-FLD.
- MOVE FUNCTION BYTE-LENGTH ( z'a0' )
- TO TEST-FLD
- IF TEST-FLD NOT = 3
- DISPLAY 'BYTE-LENGTH z"a0" wrong: ' TEST-FLD.
- * we currently generate national constants as
- * alphanumeric constants...
- * MOVE FUNCTION BYTE-LENGTH ( n'a0' )
- * TO TEST-FLD
- * IF TEST-FLD NOT = 4
- * DISPLAY 'BYTE-LENGTH n"a0" wrong: ' TEST-FLD.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:213: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:213"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:213"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:214: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:214"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:214"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_991
-#AT_START_992
-at_fn_group_banner 992 'run_functions.at:219' \
- "FUNCTION CHAR" " " 4
-at_xfail=no
-(
- printf "%s\n" "992. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC S9(4)V9(4) VALUE 108.
- 01 TEST-FLD.
- 05 TEST-DATA PIC X(01).
- 88 VALID-DATA VALUE 'k'.
- 05 TEST-UNSET PIC X VALUE '_'.
- 88 VALID-UNSET VALUE '_'.
- PROCEDURE DIVISION.
- STRING FUNCTION CHAR ( X )
- DELIMITED BY SIZE
- INTO TEST-FLD
- END-STRING.
- EVALUATE TRUE
- WHEN NOT VALID-UNSET
- DISPLAY "FUNCTION result too long"
- END-DISPLAY
- WHEN VALID-DATA
- CONTINUE
- WHEN OTHER
- DISPLAY TEST-DATA
- END-DISPLAY
- END-EVALUATE.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:251: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:251"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:251"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:252: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:252"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:252"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_992
-#AT_START_993
-at_fn_group_banner 993 'run_functions.at:257' \
- "FUNCTION COMBINED-DATETIME" " " 4
-at_xfail=no
-(
- printf "%s\n" "993. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TEST-FLD PIC S9(04)V9(08).
- PROCEDURE DIVISION.
- MOVE FUNCTION COMBINED-DATETIME ( 987, 345.6 )
- TO TEST-FLD.
- IF TEST-FLD NOT = 987.003456
- DISPLAY TEST-FLD
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:276: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:276"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:276"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:277: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:277"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:277"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_993
-#AT_START_994
-at_fn_group_banner 994 'run_functions.at:282' \
- "FUNCTION CONCAT / CONCATENATE" " " 4
-at_xfail=no
-(
- printf "%s\n" "994. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# note: CONCAT was added in COBOL 202x with GnuCOBOL's CONCATENATE
-# as blueprint
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Y PIC X(4).
- 01 TEST-FLD.
- 05 TEST-DATA PIC X(14).
- 88 VALID-DATA VALUE 'defxabczz55666'.
- 05 TEST-UNSET PIC X VALUE '_'.
- 88 VALID-UNSET VALUE '_'.
- PROCEDURE DIVISION.
- MOVE "defx" TO Y.
- STRING FUNCTION CONCATENATE ( Y "abc" "zz" "55" "666" )
- DELIMITED BY SIZE
- INTO TEST-FLD
- END-STRING.
- EVALUATE TRUE
- WHEN NOT VALID-UNSET
- DISPLAY "FUNCTION result too long"
- END-DISPLAY
- WHEN TEST-DATA
- <> FUNCTION CONCAT ( Y "abc" "zz" "55" "666" )
- DISPLAY "CONCAT issue, '" TEST-DATA
- "' vs. '"
- FUNCTION CONCAT ( Y "abc" "zz" "55" "666" ) "'"
- END-DISPLAY
- WHEN VALID-DATA
- CONTINUE
- WHEN OTHER
- DISPLAY TEST-DATA
- END-DISPLAY
- END-EVALUATE.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:323: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:323"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:323"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:324: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:324"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:324"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_994
-#AT_START_995
-at_fn_group_banner 995 'run_functions.at:329' \
- "FUNCTION CONCATENATE with reference modding" " " 4
-at_xfail=no
-(
- printf "%s\n" "995. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Y PIC X(4).
- 01 TEST-FLD PIC X(9) VALUE SPACES.
- PROCEDURE DIVISION.
- MOVE 'defx' TO Y.
- MOVE FUNCTION CONCATENATE
- ( Y "abc" "zz" "55" "666" ) (2 : 9)
- TO TEST-FLD.
- IF TEST-FLD NOT = 'efxabczz5'
- DISPLAY TEST-FLD
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:351: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:351"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:351"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:352: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:352"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:352"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_995
-#AT_START_996
-at_fn_group_banner 996 'run_functions.at:357' \
- "FUNCTION BIT-OF and BIT-TO-CHAR" " " 4
-at_xfail=no
-(
- printf "%s\n" "996. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 PAC PIC 9(4) VALUE 12 COMP-3.
- 01 TXT PIC X(4) VALUE "HI.".
- 01 BITX PIC X(34).
- 88 BITX-FILLER VALUE ALL "-".
- PROCEDURE DIVISION.
- SET BITX-FILLER TO TRUE
- STRING FUNCTION BIT-OF (PAC) DELIMITED BY SIZE INTO BITX.
- IF BITX NOT = "000000000000000100101111----------"
- DISPLAY "UNEXPECTED BIT-VALUE OF PAC 0012: " BITX.
-
- SET BITX-FILLER TO TRUE
- STRING FUNCTION BIT-OF (TXT) DELIMITED BY SIZE INTO BITX.
- *> Discover if running ASCII or EBCDIC
- >>IF CHARSET = 'ASCII'
- IF BITX NOT = "01001000010010010010111000100000--"
- >>ELIF CHARSET = 'EBCDIC'
- IF BITX NOT = "11001000110010010100101101000000--"
- >>ELSE
- IF 1 = 1 DISPLAY 'CHARSET UNKNOWN! PLEASE REPORT!'
- >>END-IF
- DISPLAY "UNEXPECTED BIT-VALUE OF 'HI. ': " BITX.
-
- SET BITX-FILLER TO TRUE
- STRING FUNCTION BIT-OF (z"01") DELIMITED BY SIZE INTO BITX.
- >>IF CHARSET = 'ASCII'
- IF BITX NOT = "001100000011000100000000----------"
- >>ELSE
- IF BITX NOT = "111100001111000100000000----------"
- >>END-IF
-
- IF FUNCTION BIT-TO-CHAR (BITX(1:24)) NOT = z"01"
- DISPLAY "UNEXPECTED CHAR VALUE, does not match z'01': "
- BITX (1:24).
- SET BITX-FILLER TO TRUE
- STRING FUNCTION BIT-TO-CHAR ("0011000100110010")
- DELIMITED BY SIZE INTO BITX.
- IF NOT (BITX (1:2) = x"3132" AND
- BITX (3: ) = "--------------------------------")
- DISPLAY "UNEXPECTED CHAR VALUE, expected 12-* got: " BITX.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:408: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:408"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:408"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:409: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:409"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:409"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_996
-#AT_START_997
-at_fn_group_banner 997 'run_functions.at:414' \
- "FUNCTION HEX-OF and HEX-TO-CHAR" " " 4
-at_xfail=no
-(
- printf "%s\n" "997. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X.
- 03 PIC X VALUE SPACE.
- 03 PIC 9(3) VALUE 12.
- 01 Y PIC X(4) VALUE "HI.".
- 01 BIN PIC 9(9) BINARY VALUE 12.
- 01 PAC PIC 9(5) COMP-3 VALUE 1234.
- 01 N9 PIC 9(2) USAGE NATIONAL VALUE 12.
- 01 NX PIC N(2) VALUE "I".
- 01 HEXX PIC X(10).
- 88 HEXX-FILLER VALUE ALL "-".
- 01 FILLER USAGE BINARY-INT VALUE 0.
- 88 DO-DISP VALUE 0.
- 88 NO-DISP VALUE 1.
- REPLACE ==DISPLAY== BY ==IF DO-DISP DISPLAY==,
- ==END-DISPLAY== BY ==END-DISPLAY END-IF==.
- PROCEDURE DIVISION.
- MAIN.
- * Test with DISPLAY on error
- PERFORM DO-CHECK.
- >> IF CHECK-PERF IS DEFINED
- SET NO-DISP TO TRUE
- * some performance checks on the way...
- PERFORM DO-CHECK 300000 TIMES.
- >> END-IF
- GOBACK.
-
- DO-CHECK.
- SET HEXX-FILLER TO TRUE
- STRING FUNCTION HEX-OF (X) DELIMITED BY SIZE INTO HEXX.
- *> Discover if running ASCII or EBCDIC
- >>IF CHARSET = 'ASCII'
- IF HEXX NOT = "20303132--"
- >>ELIF CHARSET = 'EBCDIC'
- IF HEXX NOT = "40F0F1F2--"
- >>ELSE
- IF 1 = 1 DISPLAY 'CHARSET UNKNOWN! PLEASE REPORT!'
- >>END-IF
- DISPLAY "UNEXPECTED HEX-VALUE OF '0012': " HEXX.
-
- SET HEXX-FILLER TO TRUE
- STRING FUNCTION HEX-OF (Y) DELIMITED BY SIZE INTO HEXX.
- >>IF CHARSET = 'ASCII'
- IF HEXX NOT = "48492E20--"
- >> ELSE
- IF HEXX NOT = "C8C94B40--"
- >> END-IF
- DISPLAY "UNEXPECTED HEX-VALUE OF 'HI! ': " HEXX.
-
- SET HEXX-FILLER TO TRUE
- STRING FUNCTION HEX-OF (BIN) DELIMITED BY SIZE INTO HEXX.
- IF HEXX NOT = "0000000C--"
- DISPLAY "UNEXPECTED HEX-VALUE OF BIN 12: " HEXX.
-
- SET HEXX-FILLER TO TRUE
- STRING FUNCTION HEX-OF (PAC) DELIMITED BY SIZE INTO HEXX.
- IF HEXX NOT = "01234F----"
- DISPLAY "UNEXPECTED HEX-VALUE OF PACKED 1234: " HEXX.
-
- SET HEXX-FILLER TO TRUE
- STRING FUNCTION HEX-OF (z"01") DELIMITED BY SIZE INTO HEXX.
- >>IF CHARSET = 'ASCII'
- IF HEXX NOT = "303100----"
- >> ELSE
- IF HEXX NOT = "F0F100----"
- >> END-IF
- DISPLAY "UNEXPECTED HEX-VALUE OF z'01': " HEXX.
-
- SET HEXX-FILLER TO TRUE
- STRING FUNCTION HEX-OF (' ') DELIMITED BY SIZE INTO HEXX.
- >>IF CHARSET = 'ASCII'
- IF HEXX NOT = "20--------"
- >> ELSE
- IF HEXX NOT = "40--------"
- >> END-IF
- DISPLAY "UNEXPECTED HEX-VALUE OF ' ': " HEXX.
-
- SET HEXX-FILLER TO TRUE
- STRING FUNCTION HEX-OF (n'@') DELIMITED BY SIZE INTO HEXX.
- IF HEXX NOT = "8140------"
- DISPLAY "UNEXPECTED HEX-VALUE OF n' ': " HEXX.
-
- *> FIXME: Failing with "3132------" -> missing padding
- *> -> codegen issue for initialization / move
- *> and libcob issue at least for MOVE
- *> SET HEXX-FILLER TO TRUE
- *> STRING FUNCTION HEX-OF (N9) DELIMITED BY SIZE INTO HEXX.
- *> IF HEXX NOT = "00310032--"
- *> DISPLAY "UNEXPECTED HEX-VALUE OF N9: " HEXX.
-
- *> FIXME: Failing with "00212020--" -> bad padding
- *> -> codegen issue for initialization / move
- *> and libcob issue at least for MOVE
- *> SET HEXX-FILLER TO TRUE
- *> STRING FUNCTION HEX-OF (NX) DELIMITED BY SIZE INTO HEXX.
- *> IF HEXX NOT = "00210020--"
- *> DISPLAY "UNEXPECTED HEX-VALUE OF NX: " HEXX.
-
- *> setting up test data:
- SET HEXX-FILLER TO TRUE
- STRING FUNCTION HEX-OF (z"01") DELIMITED BY SIZE INTO HEXX.
-
- IF FUNCTION HEX-TO-CHAR (HEXX(1:6)) NOT = z"01"
- DISPLAY "UNEXPECTED CHAR VALUE, does not match z'01': "
- HEXX (1:6).
- SET HEXX-FILLER TO TRUE
- STRING FUNCTION HEX-TO-CHAR ("3132")
- DELIMITED BY SIZE INTO HEXX.
- IF NOT (HEXX (1:2) = x"3132" AND HEXX (3:) = "--------")
- DISPLAY "UNEXPECTED CHAR VALUE, expected 12-* got: " HEXX.
-
- SET HEXX-FILLER TO TRUE
- STRING FUNCTION HEX-TO-CHAR ("3132")
- DELIMITED BY SIZE INTO HEXX.
- IF NOT (HEXX (1:2) = x"3132" AND HEXX (3:) = "--------")
- DISPLAY "UNEXPECTED CHAR VALUE, expected 12-* got: " HEXX.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:539: \$COMPILE -Wno-unfinished prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -Wno-unfinished prog.cob" "run_functions.at:539"
-( $at_check_trace; $COMPILE -Wno-unfinished prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:539"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:540: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:540"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:540"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_997
-#AT_START_998
-at_fn_group_banner 998 'run_functions.at:545' \
- "FUNCTION CONTENT-LENGTH" " " 4
-at_xfail=no
-(
- printf "%s\n" "998. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 P USAGE POINTER.
- 01 X PIC X(4) VALUE Z"ABC".
- 01 TEST-FLD USAGE BINARY-LONG.
- PROCEDURE DIVISION.
- MOVE FUNCTION CONTENT-LENGTH ( P )
- TO TEST-FLD.
- IF TEST-FLD NOT = 0
- DISPLAY 'CONTENT-LENGTH NULL wrong: ' TEST-FLD
- END-DISPLAY
- END-IF
- SET P TO ADDRESS OF X
- MOVE FUNCTION CONTENT-LENGTH ( P )
- TO TEST-FLD
- IF TEST-FLD NOT = 3
- DISPLAY 'CONTENT-LENGTH z"abc" wrong: ' TEST-FLD
- END-DISPLAY
- END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:573: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:573"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:573"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:574: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:574"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:574"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_998
-#AT_START_999
-at_fn_group_banner 999 'run_functions.at:579' \
- "FUNCTION CONTENT-OF" " " 4
-at_xfail=no
-(
- printf "%s\n" "999. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 P USAGE POINTER.
- 01 X PIC X(4) VALUE Z"ABC".
- 01 B PIC X(10) BASED.
- PROCEDURE DIVISION.
- SET P TO ADDRESS OF X
- IF FUNCTION CONTENT-OF ( P ) NOT EQUAL 'ABC' THEN
- DISPLAY 'CONTENT-OF(ptr) wrong' END-DISPLAY
- END-IF
- IF FUNCTION CONTENT-OF ( P, 2 ) NOT EQUAL 'AB' THEN
- DISPLAY 'CONTENT-OF(ptr, len) wrong' END-DISPLAY
- END-IF
- IF FUNCTION EXCEPTION-STATUS NOT = SPACES THEN
- DISPLAY 'unexpected exception (1): '
- FUNCTION EXCEPTION-STATUS
- END-DISPLAY
- END-IF
- SET P TO NULL
- MOVE 'PPPP' TO X
- STRING FUNCTION CONTENT-OF ( P )
- DELIMITED BY SIZE
- INTO X
- END-STRING
- *> Note: result *should* depend on dialect option zero-length literals
- IF X NOT EQUAL 'PPPP' THEN
- DISPLAY 'CONTENT-OF empty POINTER wrong: "' X "'"
- END-DISPLAY
- END-IF
- IF FUNCTION EXCEPTION-STATUS NOT = "EC-DATA-PTR-NULL" THEN
- DISPLAY 'missing exception (1)'
- END-DISPLAY
- END-IF
- ALLOCATE B INITIALIZED
- SET P TO ADDRESS OF B
- IF FUNCTION CONTENT-OF ( P, 1 ) NOT EQUAL SPACES THEN
- DISPLAY 'CONTENT-OF allocated BASED item wrong'
- END-DISPLAY
- END-IF
- IF FUNCTION EXCEPTION-STATUS NOT = SPACES THEN
- DISPLAY 'unexpected exception (2): '
- FUNCTION EXCEPTION-STATUS
- END-DISPLAY
- END-IF
- FREE B
- SET P TO ADDRESS OF B
- MOVE 'BBBB' TO X
- STRING FUNCTION CONTENT-OF ( P )
- DELIMITED BY SIZE
- INTO X
- END-STRING
- *> Note: result *should* depend on dialect option zero-length literals
- IF X NOT EQUAL 'BBBB' THEN
- DISPLAY 'CONTENT-OF unallocated BASED item wrong: "' X '"'
- END-DISPLAY
- END-IF
- IF FUNCTION EXCEPTION-STATUS NOT = "EC-DATA-PTR-NULL" THEN
- DISPLAY 'missing exception (2)'
- END-DISPLAY
- END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:648: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:648"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:648"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:649: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:649"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:649"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_999
-#AT_START_1000
-at_fn_group_banner 1000 'run_functions.at:654' \
- "FUNCTION as CALL parameter BY CONTENT" " " 4
-at_xfail=no
-(
- printf "%s\n" "1000. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- PROCEDURE DIVISION.
- PROG-MAIN.
- CALL "subprog" USING BY CONTENT
- FUNCTION CONCATENATE("Abc" "D")
- STOP RUN.
- END PROGRAM prog.
-
- *> *****************************
- IDENTIFICATION DIVISION.
- PROGRAM-ID. subprog.
-
- DATA DIVISION.
- LINKAGE SECTION.
- 01 TESTING PIC X ANY LENGTH.
-
- PROCEDURE DIVISION USING TESTING.
- SUBPROG-MAIN.
- DISPLAY TESTING
- GOBACK.
- END PROGRAM subprog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:683: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:683"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:683"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:684: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:684"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "AbcD
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:684"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1000
-#AT_START_1001
-at_fn_group_banner 1001 'run_functions.at:690' \
- "FUNCTION COS" " " 4
-at_xfail=no
-(
- printf "%s\n" "1001. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Y PIC S9V9(35).
- PROCEDURE DIVISION.
- MOVE FUNCTION COS ( -0.2345 ) TO Y.
- IF Y NOT = 0.97263064125625818471341696241456141
- DISPLAY Y
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:708: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:708"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:708"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:709: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:709"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:709"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1001
-#AT_START_1002
-at_fn_group_banner 1002 'run_functions.at:714' \
- "FUNCTION CURRENCY-SYMBOL" " " 4
-at_xfail=no
-(
- printf "%s\n" "1002. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TEST-FLD PIC X(8) VALUE SPACES.
- PROCEDURE DIVISION.
- MOVE FUNCTION CURRENCY-SYMBOL TO TEST-FLD.
- DISPLAY "OK" NO ADVANCING
- END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:731: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:731"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:731"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:732: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:732"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:732"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1002
-#AT_START_1003
-at_fn_group_banner 1003 'run_functions.at:737' \
- "FUNCTION CURRENT-DATE" " " 4
-at_xfail=no
-(
- printf "%s\n" "1003. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TEST-FLD.
- 02 WS-YEAR PIC 9(04).
- 88 VALID-YEAR VALUE 1980 THRU 9999.
- 02 WS-MONTH PIC 9(02).
- 88 VALID-MONTH VALUE 01 THRU 12.
- 02 WS-DAY PIC 9(02).
- 88 VALID-DAY VALUE 01 THRU 31.
- 02 WS-HOUR PIC 9(02).
- 88 VALID-HOUR VALUE 00 THRU 23.
- 02 WS-MIN PIC 9(02).
- 88 VALID-MIN VALUE 00 THRU 59.
- 02 WS-SEVALIDD PIC 9(02).
- 88 VALID-SEC VALUE 00 THRU 59.
- 02 WS-HUNDSEC PIC 9(02).
- 88 VALID-HUNDSEC VALUE 00 THRU 99.
- 02 WS-GREENW PIC X.
- 88 VALID-GREENW VALUE "-", "+", "0".
- 88 ZERO-GREENW VALUE "0".
- 02 WS-OFFSET PIC 9(02).
- 88 VALID-OFFSET VALUE 00 THRU 13.
- 88 ZERO-OFFSET VALUE 00.
- 02 WS-OFFSET2 PIC 9(02).
- 88 VALID-OFFSET2 VALUE 00 THRU 59.
- 88 ZERO-OFFSET2 VALUE 00.
- 02 WS-UNSET PIC X VALUE '_'.
- 88 VALID-UNSET VALUE '_'.
- PROCEDURE DIVISION.
- STRING FUNCTION CURRENT-DATE
- DELIMITED BY SIZE
- INTO TEST-FLD
- END-STRING.
- EVALUATE TRUE
- WHEN NOT VALID-UNSET
- DISPLAY "FUNCTION result too long"
- END-DISPLAY
- WHEN VALID-YEAR AND
- VALID-MONTH AND
- VALID-DAY AND
- VALID-HOUR AND
- VALID-MIN AND
- VALID-SEC AND
- VALID-HUNDSEC AND
- VALID-GREENW AND
- VALID-OFFSET AND
- VALID-OFFSET2 AND
- VALID-UNSET AND
- ((NOT ZERO-GREENW) OR (ZERO-OFFSET AND ZERO-OFFSET2))
- CONTINUE
- WHEN OTHER
- DISPLAY "CURRENT-DATE with wrong format: "
- TEST-FLD (01:21)
- END-DISPLAY
- END-EVALUATE.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:802: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:802"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:802"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:803: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:803"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:803"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1003
-#AT_START_1004
-at_fn_group_banner 1004 'run_functions.at:808' \
- "FUNCTION DATE-OF-INTEGER" " " 4
-at_xfail=no
-(
- printf "%s\n" "1004. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TEST-FLD PIC S9(09)V9(02).
- PROCEDURE DIVISION.
- MOVE FUNCTION DATE-OF-INTEGER ( 146000 )
- TO TEST-FLD.
- IF TEST-FLD NOT = 20000925
- DISPLAY TEST-FLD
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:827: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:827"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:827"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:828: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:828"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:828"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1004
-#AT_START_1005
-at_fn_group_banner 1005 'run_functions.at:833' \
- "FUNCTION DATE-TO-YYYYMMDD" " " 4
-at_xfail=no
-(
- printf "%s\n" "1005. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TEST-FLD PIC S9(09)V9(02).
- PROCEDURE DIVISION.
- MOVE FUNCTION DATE-TO-YYYYMMDD ( 981002, -10, 1994 )
- TO TEST-FLD.
- IF TEST-FLD NOT = 018981002
- DISPLAY TEST-FLD
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:852: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:852"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:852"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:853: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:853"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:853"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1005
-#AT_START_1006
-at_fn_group_banner 1006 'run_functions.at:858' \
- "FUNCTION DAY-OF-INTEGER" " " 4
-at_xfail=no
-(
- printf "%s\n" "1006. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TEST-FLD PIC S9(09)V9(02).
- PROCEDURE DIVISION.
- MOVE FUNCTION DAY-OF-INTEGER ( 146000 )
- TO TEST-FLD.
- IF TEST-FLD NOT = 2000269
- DISPLAY TEST-FLD
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:877: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:877"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:877"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:878: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:878"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:878"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1006
-#AT_START_1007
-at_fn_group_banner 1007 'run_functions.at:883' \
- "FUNCTION DAY-TO-YYYYDDD" " " 4
-at_xfail=no
-(
- printf "%s\n" "1007. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TEST-FLD PIC S9(09)V9(02).
- PROCEDURE DIVISION.
- MOVE FUNCTION DAY-TO-YYYYDDD ( 95005, -10, 2013 )
- TO TEST-FLD.
- IF TEST-FLD NOT = 001995005
- DISPLAY TEST-FLD
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:902: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:902"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:902"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:903: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:903"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:903"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1007
-#AT_START_1008
-at_fn_group_banner 1008 'run_functions.at:908' \
- "FUNCTION E" " " 4
-at_xfail=no
-(
- printf "%s\n" "1008. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Y PIC 9V9(35).
- PROCEDURE DIVISION.
- MOVE FUNCTION E TO Y.
- IF Y NOT = 2.71828182845904523536028747135266249
- DISPLAY Y
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:926: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:926"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:926"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:927: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:927"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:927"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1008
-#AT_START_1009
-at_fn_group_banner 1009 'run_functions.at:932' \
- "FUNCTION EXCEPTION-FILE" " " 4
-at_xfail=no
-(
- printf "%s\n" "1009. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN "NOTEXIST"
- FILE STATUS IS TEST-STATUS.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(4).
- WORKING-STORAGE SECTION.
- 01 TEST-STATUS PIC XX.
- PROCEDURE DIVISION.
- DISPLAY FUNCTION EXCEPTION-FILE '|'
- NO ADVANCING
- END-DISPLAY.
- OPEN INPUT TEST-FILE.
- DISPLAY FUNCTION EXCEPTION-FILE
- NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:960: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:960"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:960"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:961: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:961"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "00|35TEST-FILE" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:961"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1009
-#AT_START_1010
-at_fn_group_banner 1010 'run_functions.at:967' \
- "FUNCTION EXCEPTION-LOCATION" " " 4
-at_xfail=no
-(
- printf "%s\n" "1010. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN "NOTEXIST"
- FILE STATUS IS TEST-STATUS.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(4).
- WORKING-STORAGE SECTION.
- 01 TEST-STATUS PIC XX.
- PROCEDURE DIVISION.
- A00-MAIN SECTION.
- A00.
- DISPLAY FUNCTION EXCEPTION-LOCATION '|'
- NO ADVANCING
- END-DISPLAY.
- OPEN INPUT TEST-FILE.
- PERFORM B00-MAIN.
-
- B00-MAIN SECTION.
- B00.
- DISPLAY FUNCTION EXCEPTION-LOCATION
- NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1001: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:1001"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1001"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1002: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:1002"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " |prog; A00 OF A00-MAIN; 21" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1002"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- PROCEDURE DIVISION.
- A00-MAIN SECTION.
- A00.
- DISPLAY FUNCTION EXCEPTION-LOCATION '|'
- NO ADVANCING
- END-DISPLAY.
- CALL "sub".
- CANCEL "sub".
- PERFORM B00-MAIN.
-
- B00-MAIN SECTION.
- B00.
- DISPLAY FUNCTION EXCEPTION-LOCATION
- NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-cat >sub.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. sub.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN "NOTEXIST"
- FILE STATUS IS TEST-STATUS.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(4).
- WORKING-STORAGE SECTION.
- 01 TEST-STATUS PIC XX.
- PROCEDURE DIVISION.
- A00-MAIN SECTION.
- A00.
- OPEN INPUT TEST-FILE.
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1047: \$COMPILE_MODULE sub.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE sub.cob" "run_functions.at:1047"
-( $at_check_trace; $COMPILE_MODULE sub.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1047"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1048: \$COMPILE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE caller.cob" "run_functions.at:1048"
-( $at_check_trace; $COMPILE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1048"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1049: COB_PHYSICAL_CANCEL=1 \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "COB_PHYSICAL_CANCEL=1 $COBCRUN_DIRECT ./caller" "run_functions.at:1049"
-( $at_check_trace; COB_PHYSICAL_CANCEL=1 $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " |sub; A00 OF A00-MAIN; 18" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1049"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1010
-#AT_START_1011
-at_fn_group_banner 1011 'run_functions.at:1055' \
- "FUNCTION EXCEPTION-STATEMENT" " " 4
-at_xfail=no
-(
- printf "%s\n" "1011. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN "NOTEXIST"
- FILE STATUS IS TEST-STATUS.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(4).
- WORKING-STORAGE SECTION.
- 01 TEST-STATUS PIC XX.
- PROCEDURE DIVISION.
- DISPLAY FUNCTION EXCEPTION-STATEMENT '|'
- NO ADVANCING
- END-DISPLAY.
- OPEN INPUT TEST-FILE.
- DISPLAY FUNCTION EXCEPTION-STATEMENT
- NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1083: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:1083"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1083"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1084: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:1084"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " |OPEN " | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1084"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1011
-#AT_START_1012
-at_fn_group_banner 1012 'run_functions.at:1090' \
- "FUNCTION EXCEPTION-STATUS" " " 4
-at_xfail=no
-(
- printf "%s\n" "1012. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN "NOTEXIST"
- FILE STATUS IS TEST-STATUS.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(4).
- WORKING-STORAGE SECTION.
- 01 TEST-STATUS PIC XX.
- PROCEDURE DIVISION.
- DISPLAY FUNCTION EXCEPTION-STATUS '|'
- NO ADVANCING
- END-DISPLAY.
- OPEN INPUT TEST-FILE.
- DISPLAY FUNCTION EXCEPTION-STATUS
- NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1118: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:1118"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1118"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1119: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:1119"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " |EC-I-O-PERMANENT-ERROR " | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1119"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1012
-#AT_START_1013
-at_fn_group_banner 1013 'run_functions.at:1125' \
- "FUNCTION EXP" " " 4
-at_xfail=no
-(
- printf "%s\n" "1013. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Y PIC S99V9(34).
- PROCEDURE DIVISION.
- MOVE FUNCTION EXP ( 3 ) TO Y.
- IF Y NOT = 20.0855369231876677409285296545817178
- DISPLAY Y
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1143: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:1143"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1143"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1144: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:1144"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1144"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1013
-#AT_START_1014
-at_fn_group_banner 1014 'run_functions.at:1149' \
- "FUNCTION EXP10" " " 4
-at_xfail=no
-(
- printf "%s\n" "1014. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TEST-FLD PIC S9(09)V9(02).
- PROCEDURE DIVISION.
- MOVE FUNCTION EXP10 ( 4 )
- TO TEST-FLD.
- IF TEST-FLD NOT = 000010000
- DISPLAY TEST-FLD
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1168: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:1168"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1168"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1169: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:1169"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1169"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1014
-#AT_START_1015
-at_fn_group_banner 1015 'run_functions.at:1174' \
- "FUNCTION FACTORIAL" " " 4
-at_xfail=no
-(
- printf "%s\n" "1015. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TEST-FLD PIC S9(09)V9(02).
- PROCEDURE DIVISION.
- MOVE FUNCTION FACTORIAL ( 6 )
- TO TEST-FLD.
- IF TEST-FLD NOT = 000000720
- DISPLAY TEST-FLD
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1193: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:1193"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1193"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1194: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:1194"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1194"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1015
-#AT_START_1016
-at_fn_group_banner 1016 'run_functions.at:1199' \
- "FUNCTION FORMATTED-CURRENT-DATE" " " 4
-at_xfail=no
-(
- printf "%s\n" "1016. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Datetime-Format CONSTANT "YYYYMMDDThhmmss.ss+hhmm".
- 01 str PIC X(25).
- PROCEDURE DIVISION.
- *> Test normal inputs.
- MOVE FUNCTION FORMATTED-CURRENT-DATE ( Datetime-Format )
- TO str
- IF FUNCTION TEST-FORMATTED-DATETIME ( Datetime-Format, str)
- <> 0
- DISPLAY "Test 1 failed: " str END-DISPLAY
- END-IF.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1221: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:1221"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1221"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1222: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:1222"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1222"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1016
-#AT_START_1017
-at_fn_group_banner 1017 'run_functions.at:1227' \
- "FUNCTION FORMATTED-DATE" " " 4
-at_xfail=no
-(
- printf "%s\n" "1017. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 str PIC X(10).
- PROCEDURE DIVISION.
- *> Test normal inputs.
- MOVE FUNCTION FORMATTED-DATE ( "YYYYMMDD", 1 ) TO str
- IF str <> "16010101"
- DISPLAY "Test 1 failed: " str END-DISPLAY
- END-IF
-
- MOVE FUNCTION FORMATTED-DATE ( "YYYY-MM-DD", 1 ) TO str
- IF str <> "1601-01-01"
- DISPLAY "Test 2 failed: " str END-DISPLAY
- END-IF
-
- MOVE FUNCTION FORMATTED-DATE ( "YYYYDDD", 1 ) TO str
- IF str <> "1601001"
- DISPLAY "Test 3 failed: " str END-DISPLAY
- END-IF
-
- MOVE FUNCTION FORMATTED-DATE ( "YYYY-DDD", 1 ) TO str
- IF str <> "1601-001"
- DISPLAY "Test 4 failed: " str END-DISPLAY
- END-IF
-
- MOVE FUNCTION FORMATTED-DATE ( "YYYYWwwD", 1 ) TO str
- IF str <> "1601W011"
- DISPLAY "Test 5 failed: " str END-DISPLAY
- END-IF
-
- MOVE FUNCTION FORMATTED-DATE ( "YYYY-Www-D", 1 ) TO str
- IF str <> "1601-W01-1"
- DISPLAY "Test 6 failed: " str END-DISPLAY
- END-IF
-
- *> Test week number edge cases.
- *> For 2012-01-01.
- MOVE FUNCTION FORMATTED-DATE ( "YYYYWwwD", 150115 ) TO str
- IF str <> "2011W527"
- DISPLAY "Test 7 failed: " str END-DISPLAY
- END-IF
-
- *> and for 2013-12-30.
- MOVE FUNCTION FORMATTED-DATE ( "YYYYWwwD", 150844 ) TO str
- IF str <> "2014W011"
- DISPLAY "Test 8 failed: " str END-DISPLAY
- END-IF
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1284: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:1284"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1284"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1285: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:1285"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1285"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1017
-#AT_START_1018
-at_fn_group_banner 1018 'run_functions.at:1290' \
- "FUNCTION FORMATTED-DATE with ref modding" " " 4
-at_xfail=no
-(
- printf "%s\n" "1018. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 str PIC X(04).
- PROCEDURE DIVISION.
- MOVE FUNCTION FORMATTED-DATE ("YYYYMMDD", 1) (3:4)
- TO STR
- IF STR NOT = '0101'
- DISPLAY STR
- END-DISPLAY
- END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1309: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:1309"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1309"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1310: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:1310"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1310"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1018
-#AT_START_1019
-at_fn_group_banner 1019 'run_functions.at:1315' \
- "FUNCTION FORMATTED-DATETIME" " " 4
-at_xfail=no
-(
- printf "%s\n" "1019. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 str PIC X(40).
- PROCEDURE DIVISION.
- *> Test normal inputs.
- MOVE FUNCTION FORMATTED-DATETIME
- ("YYYYMMDDThhmmss", 1, 45296)
- TO str
- IF str <> "16010101T123456"
- DISPLAY "Test 1 failed: " str END-DISPLAY
- END-IF
-
- MOVE FUNCTION FORMATTED-DATETIME
- ("YYYY-MM-DDThh:mm:ss", 1, 45296)
- TO str
- IF str <> "1601-01-01T12:34:56"
- DISPLAY "Test 2 failed: " str END-DISPLAY
- END-IF
-
- MOVE FUNCTION FORMATTED-DATETIME
- ("YYYYDDDThhmmss+hhmm", 1, 45296, -754)
- TO str
- IF str <> "1601001T123456-1234"
- DISPLAY "Test 3 failed: " str END-DISPLAY
- END-IF
-
- MOVE FUNCTION FORMATTED-DATETIME
- ("YYYYDDDThhmmss+hhmm", 1, 45296)
- TO str
- IF str <> "1601001T123456+0000"
- DISPLAY "Test 4 failed: " str END-DISPLAY
- END-IF
-
- *> Test underflow to next day due to offset
- MOVE FUNCTION FORMATTED-DATETIME
- ("YYYYDDDThhmmss.sssssssssZ", 150846, 0,
- 1)
- TO str
- IF str <> "2013365T235900.000000000Z"
- DISPLAY "Test 5 failed: " str END-DISPLAY
- END-IF
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1366: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:1366"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1366"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1367: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:1367"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1367"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1019
-#AT_START_1020
-at_fn_group_banner 1020 'run_functions.at:1372' \
- "FUNCTION FORMATTED-DATETIME with ref modding" " " 4
-at_xfail=no
-(
- printf "%s\n" "1020. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 str PIC X(04).
- PROCEDURE DIVISION.
- MOVE FUNCTION FORMATTED-DATETIME
- ("YYYYMMDDThhmmss", 1, 1) (3:4)
- TO STR
- IF STR NOT = '0101'
- DISPLAY STR
- END-DISPLAY
- END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1392: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:1392"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1392"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1393: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:1393"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1393"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1020
-#AT_START_1021
-at_fn_group_banner 1021 'run_functions.at:1398' \
- "FUNCTION FORMATTED-TIME" " " 4
-at_xfail=no
-(
- printf "%s\n" "1021. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 str PIC X(20).
- PROCEDURE DIVISION.
- *> Test normal inputs.
- MOVE FUNCTION FORMATTED-TIME ( "hhmmss", 45296 ) TO str
- IF str <> "123456"
- DISPLAY "Test 1 failed: " str END-DISPLAY
- END-IF
-
- MOVE FUNCTION FORMATTED-TIME ( "hh:mm:ss", 45296 ) TO str
- IF str <> "12:34:56"
- DISPLAY "Test 2 failed: " str END-DISPLAY
- END-IF
-
- MOVE FUNCTION FORMATTED-TIME ( "hhmmssZ", 86399, -1 ) TO str
- IF str <> "000059Z"
- DISPLAY "Test 3 failed: " str END-DISPLAY
- END-IF
-
- MOVE FUNCTION FORMATTED-TIME ( "hh:mm:ssZ", 45296)
- TO str
- IF str <> "12:34:56Z"
- DISPLAY "Test 4 failed: " str END-DISPLAY
- END-IF
-
- MOVE FUNCTION FORMATTED-TIME ( "hhmmss.ss", 45296.78 ) TO str
- IF str <> "123456.78"
- DISPLAY "Test 5 failed: " str END-DISPLAY
- END-IF
-
- MOVE FUNCTION FORMATTED-TIME ( "hh:mm:ss.ssZ", 0, 120)
- TO str
- IF str <> "22:00:00.00Z"
- DISPLAY "Test 6 failed: " str END-DISPLAY
- END-IF
-
- MOVE FUNCTION FORMATTED-TIME ( "hhmmss+hhmm", 45296)
- TO str
- IF str <> "123456+0000"
- DISPLAY "Test 7 failed: " str END-DISPLAY
- END-IF
-
- MOVE FUNCTION FORMATTED-TIME ( "hh:mm:ss+hh:mm", 45296, 0 )
- TO str
- IF str <> "12:34:56+00:00"
- DISPLAY "Test 8 failed: " str END-DISPLAY
- END-IF
-
- MOVE FUNCTION FORMATTED-TIME ( "hhmmss+hhmm", 45296, -754)
- TO str
- IF str <> "123456-1234"
- DISPLAY "Test 9 failed: " str END-DISPLAY
- END-IF
-
- *> Test with invalid/missing offset times.
- MOVE FUNCTION FORMATTED-TIME ( "hhmmss+hhmm", 1, 3000 )
- TO str
- IF str <> SPACES
- OR FUNCTION EXCEPTION-STATUS <> "EC-ARGUMENT-FUNCTION"
- OR FUNCTION EXCEPTION-LOCATION <> "prog; ; 60"
- DISPLAY "Test 10 failed: " str END-DISPLAY
- END-IF
-
- MOVE FUNCTION FORMATTED-TIME ( "hhmmss+hhmm", 1, -3000 )
- TO str
- IF str <> SPACES
- OR FUNCTION EXCEPTION-STATUS <> "EC-ARGUMENT-FUNCTION"
- OR FUNCTION EXCEPTION-LOCATION <> "prog; ; 68"
- DISPLAY "Test 11 failed: " str END-DISPLAY
- END-IF
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1479: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:1479"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1479"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1480: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:1480"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1480"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1021
-#AT_START_1022
-at_fn_group_banner 1022 'run_functions.at:1485' \
- "FUNCTION FORMATTED-TIME DP.COMMA" " " 4
-at_xfail=no
-(
- printf "%s\n" "1022. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- DECIMAL-POINT IS COMMA.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 str PIC X(11).
-
- PROCEDURE DIVISION.
- MOVE FUNCTION FORMATTED-TIME ("hh:mm:ss,ss", 45296) TO str
- IF str <> "12:34:56,00"
- DISPLAY "Test 1 failed: " str END-DISPLAY
- END-IF
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1510: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:1510"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1510"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1511: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:1511"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1511"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1022
-#AT_START_1023
-at_fn_group_banner 1023 'run_functions.at:1516' \
- "FUNCTION FORMATTED-TIME with ref modding" " " 4
-at_xfail=no
-(
- printf "%s\n" "1023. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 str PIC X(04).
- PROCEDURE DIVISION.
- MOVE FUNCTION FORMATTED-TIME ("hhmmss", 45296) (3:4)
- TO STR
- IF STR NOT = '3456'
- DISPLAY STR
- END-DISPLAY
- END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1535: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:1535"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1535"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1536: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:1536"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1536"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1023
-#AT_START_1024
-at_fn_group_banner 1024 'run_functions.at:1541' \
- "FUNCTION FRACTION-PART" " " 4
-at_xfail=no
-(
- printf "%s\n" "1024. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TEST-FLD PIC S9(04)V9(08).
- PROCEDURE DIVISION.
- MOVE FUNCTION FRACTION-PART ( 3.12345 )
- TO TEST-FLD.
- IF TEST-FLD NOT = +0000.12345
- DISPLAY 'FRACTION-PART ( +3.12345 ) wrong: ' TEST-FLD
- END-DISPLAY
- END-IF.
- MOVE FUNCTION FRACTION-PART ( -3.12345 )
- TO TEST-FLD.
- IF TEST-FLD NOT = -0000.12345
- DISPLAY 'FRACTION-PART ( -3.12345 ) wrong: ' TEST-FLD
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1566: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:1566"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1566"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1567: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:1567"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1567"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1024
-#AT_START_1025
-at_fn_group_banner 1025 'run_functions.at:1572' \
- "FUNCTION HIGHEST-ALGEBRAIC" " " 4
-at_xfail=no
-(
- printf "%s\n" "1025. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 F1 PIC S999.
- 01 F2 PIC S9(4) BINARY.
- 01 F3 PIC 99V9(3).
- 01 F4 PIC $**,**9.99BCR.
- 01 F5 PIC $**,**9.99.
- 01 F6 USAGE BINARY-CHAR SIGNED.
- 01 F7 USAGE BINARY-CHAR UNSIGNED.
- 01 TEST-FLD PIC S9(08)V9(04).
- PROCEDURE DIVISION.
- MOVE FUNCTION HIGHEST-ALGEBRAIC (F1)
- TO TEST-FLD.
- IF TEST-FLD NOT = 999
- DISPLAY "Test 1 fail: " TEST-FLD
- END-DISPLAY
- END-IF.
- MOVE FUNCTION HIGHEST-ALGEBRAIC (F2)
- TO TEST-FLD.
- IF TEST-FLD NOT = 9999
- DISPLAY "Test 2 fail: " TEST-FLD
- END-DISPLAY
- END-IF.
- MOVE FUNCTION HIGHEST-ALGEBRAIC (F3)
- TO TEST-FLD.
- IF TEST-FLD NOT = 99.999
- DISPLAY "Test 3 fail: " TEST-FLD
- END-DISPLAY
- END-IF.
- MOVE FUNCTION HIGHEST-ALGEBRAIC (F4)
- TO TEST-FLD.
- IF TEST-FLD NOT = 99999.99
- DISPLAY "Test 4 fail: " TEST-FLD
- END-DISPLAY
- END-IF.
- MOVE FUNCTION HIGHEST-ALGEBRAIC (F5)
- TO TEST-FLD.
- IF TEST-FLD NOT = 99999.99
- DISPLAY "Test 5 fail: " TEST-FLD
- END-DISPLAY
- END-IF.
- MOVE FUNCTION HIGHEST-ALGEBRAIC (F6)
- TO TEST-FLD.
- IF TEST-FLD NOT = 127
- DISPLAY "Test 6 fail: " TEST-FLD
- END-DISPLAY
- END-IF.
- MOVE FUNCTION HIGHEST-ALGEBRAIC (F7)
- TO TEST-FLD.
- IF TEST-FLD NOT = 255
- DISPLAY "Test 7 fail: " TEST-FLD
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1634: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:1634"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1634"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1635: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:1635"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1635"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1025
-#AT_START_1026
-at_fn_group_banner 1026 'run_functions.at:1640' \
- "FUNCTION INTEGER" " " 4
-at_xfail=no
-(
- printf "%s\n" "1026. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC S9(4)V9(4) VALUE -1.5.
- 01 Y PIC 9(12) VALUE 600851475143.
- 01 TEST-FLD PIC S9(14)V9(08).
- PROCEDURE DIVISION.
- MOVE FUNCTION INTEGER ( X )
- TO TEST-FLD.
- IF TEST-FLD NOT = -2
- DISPLAY 'INTEGER ( X ) wrong: ' TEST-FLD
- END-DISPLAY
- END-IF.
- MOVE FUNCTION INTEGER ( Y / 71 )
- TO TEST-FLD.
- IF TEST-FLD NOT = 8462696833
- DISPLAY 'INTEGER ( Y / 71 ) wrong: ' TEST-FLD
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1667: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:1667"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1667"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1668: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:1668"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1668"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1026
-#AT_START_1027
-at_fn_group_banner 1027 'run_functions.at:1673' \
- "FUNCTION INTEGER-OF-DATE" " " 4
-at_xfail=no
-(
- printf "%s\n" "1027. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TEST-FLD PIC S9(09)V9(02).
- PROCEDURE DIVISION.
- MOVE FUNCTION INTEGER-OF-DATE ( 20000925 )
- TO TEST-FLD.
- IF TEST-FLD NOT = 000146000
- DISPLAY TEST-FLD
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1692: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:1692"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1692"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1693: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:1693"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1693"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1027
-#AT_START_1028
-at_fn_group_banner 1028 'run_functions.at:1698' \
- "FUNCTION INTEGER-OF-DAY" " " 4
-at_xfail=no
-(
- printf "%s\n" "1028. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TEST-FLD PIC S9(09)V9(02).
- PROCEDURE DIVISION.
- MOVE FUNCTION INTEGER-OF-DAY ( 2000269 )
- TO TEST-FLD.
- IF TEST-FLD NOT = 000146000
- DISPLAY TEST-FLD
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1717: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:1717"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1717"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1718: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:1718"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1718"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1028
-#AT_START_1029
-at_fn_group_banner 1029 'run_functions.at:1723' \
- "FUNCTION INTEGER-OF-FORMATTED-DATE" " " 4
-at_xfail=no
-(
- printf "%s\n" "1029. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 day-int PIC 9(9).
-
- PROCEDURE DIVISION.
- *> The date 2013-12-30 is used as it can also be used to
- *> check the conversion of dates in week form.
- MOVE FUNCTION INTEGER-OF-FORMATTED-DATE
- ("YYYY-MM-DD", "2013-12-30")
- TO day-int
- IF day-int <> 150844
- DISPLAY "Test 1 failed: " day-int END-DISPLAY
- END-IF
-
- MOVE FUNCTION INTEGER-OF-FORMATTED-DATE
- ("YYYY-DDD", "2013-364")
- TO day-int
- IF day-int <> 150844
- DISPLAY "Test 2 failed: " day-int END-DISPLAY
- END-IF
-
- MOVE FUNCTION INTEGER-OF-FORMATTED-DATE
- ("YYYY-Www-D", "2014-W01-1")
- TO day-int
- IF day-int <> 150844
- DISPLAY "Test 3 failed: " day-int END-DISPLAY
- END-IF
-
- MOVE FUNCTION INTEGER-OF-FORMATTED-DATE
- ("YYYY-MM-DDThh:mm:ss", "2013-12-30T12:34:56")
- TO day-int
- IF day-int <> 150844
- DISPLAY "Test 4 failed: " day-int END-DISPLAY
- END-IF
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1767: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:1767"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1767"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1768: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:1768"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1768"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1029
-#AT_START_1030
-at_fn_group_banner 1030 'run_functions.at:1773' \
- "FUNCTION INTEGER-PART" " " 4
-at_xfail=no
-(
- printf "%s\n" "1030. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC S9(4)V9(4) VALUE -1.5.
- 01 TEST-FLD PIC S9(04)V9(02).
- PROCEDURE DIVISION.
- MOVE FUNCTION INTEGER-PART ( X )
- TO TEST-FLD.
- IF TEST-FLD NOT = -1
- DISPLAY TEST-FLD
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1793: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:1793"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1793"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1794: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:1794"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1794"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1030
-#AT_START_1031
-at_fn_group_banner 1031 'run_functions.at:1799' \
- "FUNCTION LENGTH" " " 4
-at_xfail=no
-(
- printf "%s\n" "1031. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC S9(4)V9(4) VALUE -1.5.
- 01 N PIC N(9).
- 01 TEST-FLD PIC S9(04)V9(02).
- 01 TEST-TAB.
- 05 T-ENTRIES PIC 99 VALUE 10.
- 05 TEST-ENTRY PIC X OCCURS 1 TO 10 DEPENDING ON T-ENTRIES.
- PROCEDURE DIVISION.
- MOVE FUNCTION LENGTH ( X )
- TO TEST-FLD
- IF TEST-FLD NOT = 8
- DISPLAY 'LENGTH "00128" wrong: ' TEST-FLD
- END-DISPLAY
- END-IF
- MOVE FUNCTION LENGTH ( N )
- TO TEST-FLD
- IF TEST-FLD NOT = 9
- DISPLAY 'LENGTH N(9) wrong: ' TEST-FLD
- END-DISPLAY
- END-IF
-
- MOVE FUNCTION LENGTH ( '00128' )
- TO TEST-FLD
- IF TEST-FLD NOT = 5
- DISPLAY 'LENGTH "00128" wrong: ' TEST-FLD
- END-DISPLAY
- END-IF
- * note: we currently do not support items of category boolean...
- *> MOVE FUNCTION LENGTH ( b'100' )
- *> TO TEST-FLD
- *> IF TEST-FLD NOT = 3
- *> DISPLAY 'LENGTH b"100" wrong: ' TEST-FLD
- *> END-DISPLAY
- *> END-IF
- MOVE FUNCTION LENGTH ( x'a0' )
- TO TEST-FLD
- IF TEST-FLD NOT = 1
- DISPLAY 'LENGTH x"a0" wrong: ' TEST-FLD
- END-DISPLAY
- END-IF
- MOVE FUNCTION LENGTH ( z'a0' )
- TO TEST-FLD
- IF TEST-FLD NOT = 3
- DISPLAY 'LENGTH z"a0" wrong: ' TEST-FLD
- END-DISPLAY
- END-IF
- MOVE FUNCTION LENGTH ( n'a0' )
- TO TEST-FLD
- IF TEST-FLD NOT = 1
- DISPLAY 'LENGTH n"a0" wrong: ' TEST-FLD
- END-DISPLAY
- END-IF
- MOVE 10 TO T-ENTRIES
- MOVE FUNCTION LENGTH ( TEST-TAB)
- TO TEST-FLD
- IF TEST-FLD NOT = 12
- DISPLAY 'LENGTH TEST-TAB (10 entries): ' TEST-FLD
- END-DISPLAY
- END-IF
- MOVE 1 TO T-ENTRIES
- MOVE FUNCTION LENGTH ( TEST-TAB)
- TO TEST-FLD
- IF TEST-FLD NOT = 3
- DISPLAY 'LENGTH TEST-TAB (1 entry): ' TEST-FLD
- END-DISPLAY
- END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1875: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:1875"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1875"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1876: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:1876"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1876"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1031
-#AT_START_1032
-at_fn_group_banner 1032 'run_functions.at:1881' \
- "FUNCTION LOCALE-COMPARE" " " 4
-at_xfail=no
-(
- printf "%s\n" "1032. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- IF FUNCTION LOCALE-COMPARE ("A", "B") NOT = "<"
- DISPLAY "Test 1 fail"
- END-DISPLAY
- END-IF.
- IF FUNCTION LOCALE-COMPARE ("B", "A") NOT = ">"
- DISPLAY "Test 2 fail"
- END-DISPLAY
- END-IF.
- IF FUNCTION LOCALE-COMPARE ("A", "A") NOT = "="
- DISPLAY "Test 3 fail"
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1905: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:1905"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1905"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1906: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:1906"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1906"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1032
-#AT_START_1033
-at_fn_group_banner 1033 'run_functions.at:1911' \
- "FUNCTION LOCALE-DATE" " " 4
-at_xfail=no
-(
- printf "%s\n" "1033. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(32) VALUE SPACES.
- PROCEDURE DIVISION.
- MOVE FUNCTION LOCALE-DATE ( "19630302" ) TO X.
- IF X NOT = SPACES
- DISPLAY "OK"
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1929: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:1929"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1929"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1930: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:1930"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1930"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1033
-#AT_START_1034
-at_fn_group_banner 1034 'run_functions.at:1937' \
- "FUNCTION LOCALE-TIME" " " 4
-at_xfail=no
-(
- printf "%s\n" "1034. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(32) VALUE SPACES.
- PROCEDURE DIVISION.
- MOVE FUNCTION LOCALE-TIME ( "233012" ) TO X.
- IF X NOT = SPACES
- DISPLAY "OK"
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1955: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:1955"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1955"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1956: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:1956"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1956"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1034
-#AT_START_1035
-at_fn_group_banner 1035 'run_functions.at:1963' \
- "FUNCTION LOCALE-TIME-FROM-SECONDS" " " 4
-at_xfail=no
-(
- printf "%s\n" "1035. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(32) VALUE SPACES.
- PROCEDURE DIVISION.
- MOVE FUNCTION LOCALE-TIME-FROM-SECONDS ( 33012 ) TO X.
- IF X NOT = SPACES
- DISPLAY "OK"
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1981: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:1981"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1981"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:1982: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:1982"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:1982"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1035
-#AT_START_1036
-at_fn_group_banner 1036 'run_functions.at:1989' \
- "FUNCTION LOG" " " 4
-at_xfail=no
-(
- printf "%s\n" "1036. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Y PIC S9V9(35).
- PROCEDURE DIVISION.
- MOVE FUNCTION LOG ( 1.5 ) TO Y.
- IF Y NOT = 0.40546510810816438197801311546434913
- DISPLAY Y
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2007: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2007"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2007"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2008: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2008"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2008"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1036
-#AT_START_1037
-at_fn_group_banner 1037 'run_functions.at:2013' \
- "FUNCTION LOG10" " " 4
-at_xfail=no
-(
- printf "%s\n" "1037. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Y PIC S9V9(35).
- PROCEDURE DIVISION.
- MOVE FUNCTION LOG10 ( 1.5 ) TO Y.
- IF Y NOT = 0.17609125905568124208128900853062228
- DISPLAY Y
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2031: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2031"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2031"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2032: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2032"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2032"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1037
-#AT_START_1038
-at_fn_group_banner 1038 'run_functions.at:2037' \
- "FUNCTION LOWER-CASE" " " 4
-at_xfail=no
-(
- printf "%s\n" "1038. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(10) VALUE "A#B.C%D+E$".
- 01 TEST-FLD PIC X(12) VALUE ALL '_'.
- PROCEDURE DIVISION.
- STRING FUNCTION LOWER-CASE ( X )
- DELIMITED BY SIZE
- INTO TEST-FLD
- END-STRING
- IF TEST-FLD NOT = 'a#b.c%d+e$__'
- DISPLAY TEST-FLD
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2059: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2059"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2059"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2060: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2060"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2060"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1038
-#AT_START_1039
-at_fn_group_banner 1039 'run_functions.at:2065' \
- "FUNCTION LOWER-CASE with reference modding" " " 4
-at_xfail=no
-(
- printf "%s\n" "1039. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(10) VALUE "A#B.C%D+E$".
- 01 TEST-FLD PIC X(03).
- PROCEDURE DIVISION.
- MOVE FUNCTION LOWER-CASE ( X ) (1 : 3)
- TO TEST-FLD
- IF TEST-FLD NOT = 'a#b'
- DISPLAY TEST-FLD
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2085: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2085"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2085"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2086: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2086"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2086"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1039
-#AT_START_1040
-at_fn_group_banner 1040 'run_functions.at:2091' \
- "FUNCTION LOWEST-ALGEBRAIC" " " 4
-at_xfail=no
-(
- printf "%s\n" "1040. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 F1 PIC S999.
- 01 F2 PIC S9(4) BINARY.
- 01 F3 PIC 99V9(3).
- 01 F4 PIC $**,**9.99BCR.
- 01 F5 PIC $**,**9.99.
- 01 F6 USAGE BINARY-CHAR SIGNED.
- 01 F7 USAGE BINARY-CHAR UNSIGNED.
- PROCEDURE DIVISION.
- IF FUNCTION LOWEST-ALGEBRAIC (F1) NOT = -999
- DISPLAY "Test 1 fail"
- END-DISPLAY
- END-IF.
- IF FUNCTION LOWEST-ALGEBRAIC (F2) NOT = -9999
- DISPLAY "Test 2 fail"
- END-DISPLAY
- END-IF.
- IF FUNCTION LOWEST-ALGEBRAIC (F3) NOT = 0
- DISPLAY "Test 3 fail"
- END-DISPLAY
- END-IF.
- IF FUNCTION LOWEST-ALGEBRAIC (F4) NOT = -99999.99
- DISPLAY "Test 4 fail"
- END-DISPLAY
- END-IF.
- IF FUNCTION LOWEST-ALGEBRAIC (F5) NOT = 0
- DISPLAY "Test 5 fail"
- END-DISPLAY
- END-IF.
- IF FUNCTION LOWEST-ALGEBRAIC (F6) NOT = -128
- DISPLAY "Test 6 fail"
- END-DISPLAY
- END-IF.
- IF FUNCTION LOWEST-ALGEBRAIC (F7) NOT = 0
- DISPLAY "Test 7 fail"
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2138: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2138"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2138"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2139: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2139"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2139"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1040
-#AT_START_1041
-at_fn_group_banner 1041 'run_functions.at:2144' \
- "FUNCTION MAX" " " 4
-at_xfail=no
-(
- printf "%s\n" "1041. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY FUNCTION MAX ( 3 -14 0 8 -3 )
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2158: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2158"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2158"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2159: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2159"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "8
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2159"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1041
-#AT_START_1042
-at_fn_group_banner 1042 'run_functions.at:2166' \
- "FUNCTION MEAN" " " 4
-at_xfail=no
-(
- printf "%s\n" "1042. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY FUNCTION MEAN ( 3 -14 0 8 -3 )
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2180: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2180"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2180"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2181: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2181"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "-00000001.2
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2181"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1042
-#AT_START_1043
-at_fn_group_banner 1043 'run_functions.at:2188' \
- "FUNCTION MEDIAN" " " 4
-at_xfail=no
-(
- printf "%s\n" "1043. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY FUNCTION MEDIAN ( 3 -14 0 8 -3 )
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2202: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2202"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2202"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2203: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2203"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "0
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2203"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1043
-#AT_START_1044
-at_fn_group_banner 1044 'run_functions.at:2210' \
- "FUNCTION MIDRANGE" " " 4
-at_xfail=no
-(
- printf "%s\n" "1044. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY FUNCTION MIDRANGE ( 3 -14 0 8 -3 )
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2224: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2224"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2224"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2225: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2225"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "-000000003
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2225"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1044
-#AT_START_1045
-at_fn_group_banner 1045 'run_functions.at:2232' \
- "FUNCTION MIN" " " 4
-at_xfail=no
-(
- printf "%s\n" "1045. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY FUNCTION MIN ( 3 -14 0 8 -3 )
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2246: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2246"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2246"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2247: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2247"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "-14
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2247"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1045
-#AT_START_1046
-at_fn_group_banner 1046 'run_functions.at:2254' \
- "FUNCTION MOD (valid)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1046. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Y PIC 9(12) VALUE 600851475143.
- 01 R PIC S9(4)V9(4) VALUE 0.
- PROCEDURE DIVISION.
- MOVE FUNCTION MOD ( -11 5 ) TO R
- IF R NOT = 4
- DISPLAY 'first one wrong: ' R
- END-DISPLAY
- END-IF
- MOVE FUNCTION MOD ( Y, 71 ) TO R
- IF R NOT = 0
- DISPLAY 'second one wrong: ' R
- END-DISPLAY
- END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2278: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2278"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2278"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2279: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2279"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2279"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1046
-#AT_START_1047
-at_fn_group_banner 1047 'run_functions.at:2284' \
- "FUNCTION MOD (invalid)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1047. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Z PIC 9 VALUE 0.
- 01 R PIC S9(4)V9(4) VALUE 1.
- PROCEDURE DIVISION.
- MOVE FUNCTION MOD ( -11 Z ) TO R
- IF FUNCTION TRIM(FUNCTION EXCEPTION-STATUS)
- NOT = 'EC-ARGUMENT-FUNCTION'
- DISPLAY 'Wrong/missing exception: '
- FUNCTION EXCEPTION-STATUS
- END-DISPLAY
- END-IF
- IF R NOT = 0
- DISPLAY 'result is not zero: ' R
- END-DISPLAY
- END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2309: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2309"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2309"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2310: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2310"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2310"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1047
-#AT_START_1048
-at_fn_group_banner 1048 'run_functions.at:2315' \
- "FUNCTION MODULE-CALLER-ID" " " 4
-at_xfail=no
-(
- printf "%s\n" "1048. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- CALL "prog2"
- END-CALL.
- STOP RUN.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY FUNCTION MODULE-CALLER-ID NO ADVANCING
- END-DISPLAY.
- EXIT PROGRAM.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2342: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2342"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2342"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2343: \$COMPILE_MODULE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE prog2.cob" "run_functions.at:2343"
-( $at_check_trace; $COMPILE_MODULE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2343"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2344: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2344"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "prog" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2344"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1048
-#AT_START_1049
-at_fn_group_banner 1049 'run_functions.at:2349' \
- "FUNCTION MODULE-DATE" " " 4
-at_xfail=no
-(
- printf "%s\n" "1049. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TEST-DATE PIC 9(8) VALUE 0.
- PROCEDURE DIVISION.
- MOVE FUNCTION MODULE-DATE TO TEST-DATE.
- IF TEST-DATE NOT = 0
- DISPLAY "OK" NO ADVANCING
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2368: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2368"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2368"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2369: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2369"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2369"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1049
-#AT_START_1050
-at_fn_group_banner 1050 'run_functions.at:2374' \
- "FUNCTION MODULE-FORMATTED-DATE" " " 4
-at_xfail=no
-(
- printf "%s\n" "1050. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TEST-DATE PIC X(16) VALUE SPACES.
- PROCEDURE DIVISION.
- MOVE FUNCTION MODULE-FORMATTED-DATE TO TEST-DATE.
- IF TEST-DATE NOT = SPACES
- DISPLAY "OK" NO ADVANCING
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2393: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2393"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2393"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2394: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2394"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2394"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1050
-#AT_START_1051
-at_fn_group_banner 1051 'run_functions.at:2399' \
- "FUNCTION MODULE-ID" " " 4
-at_xfail=no
-(
- printf "%s\n" "1051. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY FUNCTION MODULE-ID NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2414: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2414"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2414"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2415: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2415"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "prog" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2415"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1051
-#AT_START_1052
-at_fn_group_banner 1052 'run_functions.at:2420' \
- "FUNCTION MODULE-PATH" " " 4
-at_xfail=no
-(
- printf "%s\n" "1052. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TEST-PATH PIC X(16) VALUE SPACES.
- PROCEDURE DIVISION.
- MOVE FUNCTION MODULE-PATH TO TEST-PATH.
- IF TEST-PATH NOT = SPACES
- DISPLAY "OK" NO ADVANCING
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2439: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2439"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2439"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2440: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2440"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2440"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1052
-#AT_START_1053
-at_fn_group_banner 1053 'run_functions.at:2445' \
- "FUNCTION MODULE-SOURCE" " " 4
-at_xfail=no
-(
- printf "%s\n" "1053. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY FUNCTION MODULE-SOURCE NO ADVANCING
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2460: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2460"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2460"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2461: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2461"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "prog.cob" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2461"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1053
-#AT_START_1054
-at_fn_group_banner 1054 'run_functions.at:2466' \
- "FUNCTION MODULE-TIME" " " 4
-at_xfail=no
-(
- printf "%s\n" "1054. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TEST-TIME PIC 9(6) VALUE 0.
- PROCEDURE DIVISION.
- MOVE FUNCTION MODULE-TIME TO TEST-TIME.
- IF TEST-TIME NOT = 0
- DISPLAY "OK" NO ADVANCING
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2485: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2485"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2485"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2486: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2486"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2486"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1054
-#AT_START_1055
-at_fn_group_banner 1055 'run_functions.at:2491' \
- "FUNCTION MONETARY-DECIMAL-POINT" " " 4
-at_xfail=no
-(
- printf "%s\n" "1055. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TEST-FLD PIC X(8) VALUE SPACES.
- PROCEDURE DIVISION.
- MOVE FUNCTION MONETARY-DECIMAL-POINT TO TEST-FLD.
- DISPLAY "OK" NO ADVANCING
- END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2508: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2508"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2508"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2509: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2509"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2509"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1055
-#AT_START_1056
-at_fn_group_banner 1056 'run_functions.at:2514' \
- "FUNCTION MONETARY-THOUSANDS-SEPARATOR" " " 4
-at_xfail=no
-(
- printf "%s\n" "1056. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TEST-FLD PIC X(8) VALUE SPACES.
- PROCEDURE DIVISION.
- MOVE FUNCTION MONETARY-THOUSANDS-SEPARATOR TO TEST-FLD.
- DISPLAY "OK" NO ADVANCING
- END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2531: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2531"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2531"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2532: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2532"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2532"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1056
-#AT_START_1057
-at_fn_group_banner 1057 'run_functions.at:2537' \
- "FUNCTION NUMERIC-DECIMAL-POINT" " " 4
-at_xfail=no
-(
- printf "%s\n" "1057. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TEST-FLD PIC X(8) VALUE SPACES.
- PROCEDURE DIVISION.
- MOVE FUNCTION NUMERIC-DECIMAL-POINT TO TEST-FLD.
- DISPLAY "OK" NO ADVANCING
- END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2554: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2554"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2554"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2555: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2555"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2555"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1057
-#AT_START_1058
-at_fn_group_banner 1058 'run_functions.at:2560' \
- "FUNCTION NUMERIC-THOUSANDS-SEPARATOR" " " 4
-at_xfail=no
-(
- printf "%s\n" "1058. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TEST-FLD PIC X(8) VALUE SPACES.
- PROCEDURE DIVISION.
- MOVE FUNCTION NUMERIC-THOUSANDS-SEPARATOR TO TEST-FLD.
- DISPLAY "OK" NO ADVANCING
- END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2577: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2577"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2577"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2578: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2578"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2578"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1058
-#AT_START_1059
-at_fn_group_banner 1059 'run_functions.at:2583' \
- "FUNCTION NUMVAL" " " 4
-at_xfail=no
-(
- printf "%s\n" "1059. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X1 PIC X(12) VALUE " -9876.1234 ".
- 01 X2 PIC X(18) VALUE " 19876.1234 CR".
- 01 X2b PIC X(18) VALUE " 19876.1234 cR".
- 01 X2c PIC X(18) VALUE " 19876.1234 cr".
- 01 X2d PIC X(18) VALUE " 19876.1234 Cr".
- 01 X3 PIC X(09) VALUE "-042.3240".
- 01 X4 PIC X(09) VALUE "+04232400".
- 01 X5 PIC X(09) VALUE " 00.00430".
- 01 BAD1 PIC X(18) VALUE " 1. A-0B4.5".
- 01 BAD2 PIC X(20) VALUE "+0@0%0=0*0!0&0^0)10-".
- 01 EMPT PIC X(20) VALUE SPACE.
- 77 CSZE PIC 9 VALUE 0.
- 01 VSIZED.
- 03 FILLER PIC X OCCURS 0 TO 10 DEPENDING ON CSZE.
- 01 N PIC s9(8)v9(5).
- PROCEDURE DIVISION.
- MOVE FUNCTION NUMVAL ( X1 ) TO N
- IF N <> -9876.1234
- DISPLAY "X1 '" X1 "' : " N.
- MOVE FUNCTION NUMVAL ( X2 ) TO N
- IF N <> -19876.1234
- DISPLAY "X2 '" X2 "' : " N
- ELSE IF N
- <> FUNCTION NUMVAL ( X2b )
- OR N
- <> FUNCTION NUMVAL ( X2c )
- OR N
- <> FUNCTION NUMVAL ( X2d )
- DISPLAY "NUMVAL not case-insensitive!".
- MOVE FUNCTION NUMVAL ( X3 ) TO N
- IF N <> -42.324
- DISPLAY "X3 '" X3 "' : " N.
- MOVE FUNCTION NUMVAL ( X4 ) TO N
- IF N <> 4232400
- DISPLAY "X4 '" X4 "' : " N.
- MOVE FUNCTION NUMVAL ( X5 ) TO N
- IF N <> .0043
- DISPLAY "X5 '" X5 "' : " N.
-
- * Note: the following are "empty" tests
- MOVE FUNCTION NUMVAL ( EMPT ) TO N
- IF N <> 0
- DISPLAY "EMPT '" EMPT "' : " N.
- MOVE FUNCTION NUMVAL ( VSIZED ) TO N
- IF N <> 0
- DISPLAY "VSIZED '" VSIZED "' : " N.
-
- * Note: the following tests with invalid data, pre 3.2
- * return zero, 3.2+ get "whatever is valid there
- * (which seem to be what MF is doing)
- MOVE FUNCTION NUMVAL ( BAD1 ) TO N
- IF N <> 0 AND N <> -1.045
- DISPLAY "BAD1 '" BAD1 "' : " N.
- MOVE FUNCTION NUMVAL ( BAD2 ) TO N
- IF N <> 0 AND N <> 10
- DISPLAY "BAD2 '" BAD2 "' : " N.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2650: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2650"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2650"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2651: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2651"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2651"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1059
-#AT_START_1060
-at_fn_group_banner 1060 'run_functions.at:2656' \
- "FUNCTION NUMVAL-C" " " 4
-at_xfail=no
-(
- printf "%s\n" "1060. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X1 PIC X(14) VALUE " % -9876.1234 ".
- 01 X2 PIC X(18) VALUE " % 19,876.1234 DB".
- 01 X2b PIC X(18) VALUE " % 19,876.1234 db".
- 01 X2c PIC X(18) VALUE " % 19,876.1234 Db".
- 01 X2d PIC X(18) VALUE " % 19,876.1234 dB".
- 01 X3 PIC X(12) VALUE "% -9876.1234".
- 01 X4 PIC X(12) VALUE "019,876.1234".
- 01 BAD1 PIC X(18) VALUE " -19,876.1234 %".
- 01 BAD2 PIC X(18) VALUE "19,87,56.12.34 ".
- 01 BAD3 PIC X(18) VALUE "+19,8756CR1234".
- 01 N PIC s9(8)v9(5).
- PROCEDURE DIVISION.
- MOVE FUNCTION NUMVAL-C ( X1 , "%" ) TO N
- IF N NOT = -9876.1234
- DISPLAY "X1 '" X1 "' : " N.
- MOVE FUNCTION NUMVAL-C ( X2 , "%" ) TO N
- IF N NOT = -19876.1234
- DISPLAY "X2 '" X2 "' : " N
- ELSE IF N
- <> FUNCTION NUMVAL ( X2b )
- OR N
- <> FUNCTION NUMVAL ( X2c )
- OR N
- <> FUNCTION NUMVAL ( X2d )
- DISPLAY "NUMVAL not case-insensitive!".
- MOVE FUNCTION NUMVAL-C ( X3 , "%" ) TO N
- IF N NOT = -9876.1234
- DISPLAY "X3 '" X3 "' : " N.
- MOVE FUNCTION NUMVAL-C ( X4 , "%" ) TO N
- IF N NOT = 19876.1234
- DISPLAY "X4 '" X4 "' : " N.
-
- * Note: the following tests with invalid data, pre 3.2
- * return zero, 3.2+ get "whatever is valid there
- * (which seem to be what MF is doing)
- MOVE FUNCTION NUMVAL ( BAD1 ) TO N
- IF N <> 0 AND N <> -19876.1234
- DISPLAY "BAD1 '" BAD1 "' : " N.
- MOVE FUNCTION NUMVAL ( BAD2 ) TO N
- IF N <> 0 AND N <> 198756.1234
- DISPLAY "BAD2 '" BAD2 "' : " N.
- MOVE FUNCTION NUMVAL ( BAD3 ) TO N
- IF N <> 0 AND N <> -198756
- DISPLAY "BAD3 '" BAD3 "' : " N.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2711: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2711"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2711"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2712: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2712"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2712"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1060
-#AT_START_1061
-at_fn_group_banner 1061 'run_functions.at:2717' \
- "FUNCTION NUMVAL-C DP.COMMA" " " 4
-at_xfail=no
-(
- printf "%s\n" "1061. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- DECIMAL-POINT IS COMMA
- .
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X1 PIC X(20) VALUE " % 19.876,1234 DB".
- 01 N PIC s9(5)v9(5).
- PROCEDURE DIVISION.
- MOVE FUNCTION NUMVAL-C ( X1 , "%" ) TO N
- IF N NOT = -19876,1234
- DISPLAY "X1 '" X1 "' : " N.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2739: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2739"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2739"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2740: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2740"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2740"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1061
-#AT_START_1062
-at_fn_group_banner 1062 'run_functions.at:2745' \
- "FUNCTION NUMVAL-F" " " 4
-at_xfail=no
-(
- printf "%s\n" "1062. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X1 PIC X(12) VALUE " -0.1234E+4 ".
- 01 X2 PIC X(12) VALUE " .1234e-2 ".
- 01 BAD1 PIC X(18) VALUE " -000E-12".
- 01 N PIC s9(8)v9(10).
- PROCEDURE DIVISION.
- MOVE FUNCTION NUMVAL-F ( X1 ) TO N
- IF N NOT = -1234
- DISPLAY "X1 '" X1 "' : " N.
- MOVE FUNCTION NUMVAL-F ( X2 ) TO N
- IF N NOT = .001234
- DISPLAY "X2 '" X2 "' : " N.
-
- * Note: the following tests with invalid data, pre 3.2
- * return zero, 3.2+ get "whatever is valid there
- * (which seem to be what MF is doing)
- MOVE FUNCTION NUMVAL-F ( BAD1 ) TO N
- IF N <> 0
- DISPLAY "BAD1 '" BAD1 "' : " N.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2774: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2774"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2774"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2775: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2775"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2775"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1062
-#AT_START_1063
-at_fn_group_banner 1063 'run_functions.at:2780' \
- "FUNCTION ORD" " " 4
-at_xfail=no
-(
- printf "%s\n" "1063. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY FUNCTION ORD ( "k" )
- WITH NO ADVANCING.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2794: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2794"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2794"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2795: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2795"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "000000108" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2795"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1063
-#AT_START_1064
-at_fn_group_banner 1064 'run_functions.at:2801' \
- "FUNCTION ORD-MAX" " " 4
-at_xfail=no
-(
- printf "%s\n" "1064. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY FUNCTION ORD-MAX ( 3 -14 0 8 -3 )
- WITH NO ADVANCING.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2815: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2815"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2815"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2816: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2816"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "000000004" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2816"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1064
-#AT_START_1065
-at_fn_group_banner 1065 'run_functions.at:2822' \
- "FUNCTION ORD-MIN" " " 4
-at_xfail=no
-(
- printf "%s\n" "1065. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY FUNCTION ORD-MIN ( 3 -14 0 8 -3 )
- WITH NO ADVANCING.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2836: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2836"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2836"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2837: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2837"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "000000002" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2837"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1065
-#AT_START_1066
-at_fn_group_banner 1066 'run_functions.at:2843' \
- "FUNCTION PI" " " 4
-at_xfail=no
-(
- printf "%s\n" "1066. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Y PIC 9V9(35).
- PROCEDURE DIVISION.
- MOVE FUNCTION PI TO Y.
- IF Y NOT = 3.14159265358979323846264338327950288
- DISPLAY Y.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2859: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2859"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2859"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2860: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2860"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2860"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1066
-#AT_START_1067
-at_fn_group_banner 1067 'run_functions.at:2865' \
- "FUNCTION PRESENT-VALUE" " " 4
-at_xfail=no
-(
- printf "%s\n" "1067. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- DISPLAY FUNCTION PRESENT-VALUE ( 3 2 1 )
- WITH NO ADVANCING.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2879: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2879"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2879"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2880: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2880"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "00000.5625" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2880"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1067
-#AT_START_1068
-at_fn_group_banner 1068 'run_functions.at:2886' \
- "FUNCTION RANDOM" " " 4
-at_xfail=no
-(
- printf "%s\n" "1068. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Y PIC S99V99 COMP VALUE -1.0.
- PROCEDURE DIVISION.
- MOVE FUNCTION RANDOM ( ) TO Y.
- IF Y < 0
- DISPLAY Y.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2902: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2902"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2902"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2903: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2903"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2903"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1068
-#AT_START_1069
-at_fn_group_banner 1069 'run_functions.at:2908' \
- "FUNCTION RANGE" " " 4
-at_xfail=no
-(
- printf "%s\n" "1069. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Z PIC S9(4)V9(4) COMP-5.
- PROCEDURE DIVISION.
- MOVE FUNCTION RANGE ( 3 -14 0 8 -3 ) TO Z.
- IF Z NOT = 22
- DISPLAY Z.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2924: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2924"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2924"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2925: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2925"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2925"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1069
-#AT_START_1070
-at_fn_group_banner 1070 'run_functions.at:2930' \
- "FUNCTION REM (valid)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1070. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 R PIC S9(4)V9(4) COMP-5 VALUE 0.
- PROCEDURE DIVISION.
- MOVE FUNCTION REM ( -11 5 ) TO R
- IF R NOT = -1
- DISPLAY R.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2946: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2946"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2946"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2947: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2947"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2947"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1070
-#AT_START_1071
-at_fn_group_banner 1071 'run_functions.at:2952' \
- "FUNCTION REM (invalid)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1071. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 R PIC S9(4)V9(4) COMP-5 VALUE 4.1.
- 01 Z PIC 9 COMP-5 VALUE 0.
- PROCEDURE DIVISION.
- MOVE FUNCTION REM ( -11 Z ) TO R
- IF FUNCTION TRIM(FUNCTION EXCEPTION-STATUS)
- NOT = 'EC-ARGUMENT-FUNCTION'
- DISPLAY 'Wrong/missing exception: '
- FUNCTION EXCEPTION-STATUS.
- IF R NOT = 0
- DISPLAY 'result is not zero: ' R.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2973: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2973"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2973"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2974: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2974"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2974"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1071
-#AT_START_1072
-at_fn_group_banner 1072 'run_functions.at:2979' \
- "FUNCTION REVERSE" " " 4
-at_xfail=no
-(
- printf "%s\n" "1072. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(10) VALUE "A#B.C%D+E$".
- 01 Z PIC X(10).
- PROCEDURE DIVISION.
- MOVE FUNCTION REVERSE ( X ) TO Z.
- IF Z NOT = "$E+D%C.B#A"
- DISPLAY Z.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2996: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:2996"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2996"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:2997: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:2997"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:2997"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1072
-#AT_START_1073
-at_fn_group_banner 1073 'run_functions.at:3002' \
- "FUNCTION REVERSE with reference modding" " " 4
-at_xfail=no
-(
- printf "%s\n" "1073. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(10) VALUE "A#B.C%D+E$".
- 01 Z PIC X(10).
- PROCEDURE DIVISION.
- MOVE FUNCTION REVERSE ( X ) (1 : 4) TO Z.
- IF Z NOT = "$E+D "
- DISPLAY Z.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3019: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:3019"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3019"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3020: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:3020"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3020"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1073
-#AT_START_1074
-at_fn_group_banner 1074 'run_functions.at:3025' \
- "FUNCTION SECONDS-FROM-FORMATTED-TIME" " " 4
-at_xfail=no
-(
- printf "%s\n" "1074. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 result PIC 9(8)V9(9) COMP-5.
- PROCEDURE DIVISION.
- MOVE FUNCTION SECONDS-FROM-FORMATTED-TIME
- ("hhmmss", "010203")
- TO result.
- IF result NOT = 3723
- DISPLAY "Test 1 failed: " result.
-
- MOVE FUNCTION SECONDS-FROM-FORMATTED-TIME
- ("hh:mm:ss", "01:02:03")
- TO result.
- IF result NOT = 3723
- DISPLAY "Test 2 failed: " result.
-
- MOVE FUNCTION SECONDS-FROM-FORMATTED-TIME
- ("hhmmss.ssssssss", "010203.04050607")
- TO result.
- IF result NOT = 3723.04050607
- DISPLAY "Test 3 failed: " result.
-
- MOVE FUNCTION SECONDS-FROM-FORMATTED-TIME
- ("hhmmssZ", "010203Z")
- TO result.
- IF result NOT = 3723
- DISPLAY "Test 4 failed: " result.
-
- MOVE FUNCTION SECONDS-FROM-FORMATTED-TIME
- ("hhmmss+hhmm", "010203+0405")
- TO result.
- IF result NOT = 3723
- DISPLAY "Test 5 failed: " result.
-
- MOVE FUNCTION SECONDS-FROM-FORMATTED-TIME
- ("YYYYMMDDThhmmss", "16010101T010203")
- TO result.
- IF result NOT = 3723
- DISPLAY "Test 6 failed: " result.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3074: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:3074"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3074"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3075: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:3075"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3075"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1074
-#AT_START_1075
-at_fn_group_banner 1075 'run_functions.at:3080' \
- "FUNCTION SECONDS-PAST-MIDNIGHT" " " 4
-at_xfail=no
-(
- printf "%s\n" "1075. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Y PIC 9(8) COMP-5.
- PROCEDURE DIVISION.
- MOVE FUNCTION SECONDS-PAST-MIDNIGHT TO Y.
- IF Y NOT < 86402
- DISPLAY Y.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3096: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:3096"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3096"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3097: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:3097"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3097"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1075
-#AT_START_1076
-at_fn_group_banner 1076 'run_functions.at:3102' \
- "FUNCTION SIGN" " " 4
-at_xfail=no
-(
- printf "%s\n" "1076. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Z USAGE BINARY-LONG SIGNED.
- 01 F USAGE FLOAT-LONG.
- PROCEDURE DIVISION.
- MOVE FUNCTION SIGN ( 3.12345 ) TO Z.
- IF Z NOT = 1
- DISPLAY "Sign 1 " Z.
- MOVE FUNCTION SIGN ( -0.0 ) TO Z.
- IF Z NOT = 0
- DISPLAY "Sign 2 " Z.
- MOVE FUNCTION SIGN ( 0.0 ) TO Z.
- IF Z NOT = 0
- DISPLAY "Sign 3 " Z.
- MOVE FUNCTION SIGN ( -3.12345 ) TO Z.
- IF Z NOT = -1
- DISPLAY "Sign 4 " Z.
- MOVE 3.12345 TO F
- MOVE FUNCTION SIGN ( F ) TO Z.
- IF Z NOT = 1
- DISPLAY "Sign 5 " Z.
- MOVE -0.0 TO F
- MOVE FUNCTION SIGN ( F ) TO Z.
- IF Z NOT = 0
- DISPLAY "Sign 6 " Z.
- MOVE -3.12345 TO F
- MOVE FUNCTION SIGN ( F ) TO Z.
- IF Z NOT = -1
- DISPLAY "Sign 7 " Z.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3140: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:3140"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3140"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3141: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:3141"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3141"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1076
-#AT_START_1077
-at_fn_group_banner 1077 'run_functions.at:3146' \
- "FUNCTION SIN" " " 4
-at_xfail=no
-(
- printf "%s\n" "1077. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Y PIC S9V9(35).
- PROCEDURE DIVISION.
- MOVE FUNCTION SIN ( 1.5 ) TO Y.
- IF Y NOT = 0.99749498660405443094172337114148732
- DISPLAY Y.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3162: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:3162"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3162"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3163: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:3163"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3163"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1077
-#AT_START_1078
-at_fn_group_banner 1078 'run_functions.at:3168' \
- "FUNCTION SQRT" " " 4
-at_xfail=no
-(
- printf "%s\n" "1078. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Y PIC S9V9(35).
- PROCEDURE DIVISION.
- MOVE FUNCTION SQRT ( 1.5 ) TO Y.
- IF Y NOT = 1.22474487139158904909864203735294569
- DISPLAY Y.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3184: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:3184"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3184"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3185: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:3185"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3185"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1078
-#AT_START_1079
-at_fn_group_banner 1079 'run_functions.at:3190' \
- "FUNCTION STANDARD-DEVIATION" " " 4
-at_xfail=no
-(
- printf "%s\n" "1079. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Y PIC S9V9(35).
- PROCEDURE DIVISION.
- MOVE FUNCTION STANDARD-DEVIATION ( 3 -14 0 8 -3 ) TO Y.
- IF Y NOT = 7.35934779718963954877237043574538183
- DISPLAY Y.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3206: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:3206"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3206"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3207: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:3207"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3207"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1079
-#AT_START_1080
-at_fn_group_banner 1080 'run_functions.at:3212' \
- "FUNCTION STORED-CHAR-LENGTH" " " 4
-at_xfail=no
-(
- printf "%s\n" "1080. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Y PIC X(24).
- 01 Z USAGE BINARY-LONG.
- PROCEDURE DIVISION.
- MOVE "123456789012" TO Y.
- MOVE FUNCTION STORED-CHAR-LENGTH ( Y ) TO Z.
- IF Z NOT = 12
- DISPLAY Z.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3230: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:3230"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3230"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3231: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:3231"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3231"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1080
-#AT_START_1081
-at_fn_group_banner 1081 'run_functions.at:3236' \
- "FUNCTION SUBSTITUTE" " " 4
-at_xfail=no
-(
- printf "%s\n" "1081. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Y PIC X(20).
- 01 Z PIC X(20) VALUE ALL '_'.
- PROCEDURE DIVISION.
- MOVE "abc111444555defxxabc" TO Y.
- STRING FUNCTION SUBSTITUTE ( Y "abc" "zz" "55" "666" )
- DELIMITED BY SIZE
- INTO Z
- END-STRING
- IF Z NOT = "zz1114446665defxxzz_"
- DISPLAY Z.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3257: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:3257"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3257"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3258: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:3258"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3258"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1081
-#AT_START_1082
-at_fn_group_banner 1082 'run_functions.at:3263' \
- "FUNCTION SUBSTITUTE with reference modding" " " 4
-at_xfail=no
-(
- printf "%s\n" "1082. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Y PIC X(20).
- 01 Z PIC X(20).
- PROCEDURE DIVISION.
- MOVE "abc111444555defxxabc" TO Y.
- MOVE FUNCTION SUBSTITUTE
- ( Y "abc" "zz" "55" "666" ) (2 : 9)
- TO Z.
- IF Z NOT = "z11144466"
- DISPLAY Z.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3283: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:3283"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3283"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3284: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:3284"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3284"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1082
-#AT_START_1083
-at_fn_group_banner 1083 'run_functions.at:3289' \
- "FUNCTION SUBSTITUTE-CASE" " " 4
-at_xfail=no
-(
- printf "%s\n" "1083. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Y PIC X(20).
- 01 Z PIC X(20).
- PROCEDURE DIVISION.
- MOVE "ABC111444555defxxabc" TO Y.
- MOVE FUNCTION SUBSTITUTE-CASE (Y "abc" "zz" "55" "666")
- TO Z.
- IF Z NOT = "zz1114446665defxxzz"
- DISPLAY Z.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3308: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:3308"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3308"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3309: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:3309"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3309"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1083
-#AT_START_1084
-at_fn_group_banner 1084 'run_functions.at:3314' \
- "FUNCTION SUBSTITUTE-CASE with reference mod" " " 4
-at_xfail=no
-(
- printf "%s\n" "1084. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Y PIC X(20).
- 01 Z PIC X(20).
- PROCEDURE DIVISION.
- MOVE "abc111444555defxxabc" TO Y.
- MOVE FUNCTION SUBSTITUTE-CASE
- ( Y "ABC" "zz" "55" "666" ) (2 : 9)
- TO Z.
- IF Z NOT = "z11144466"
- DISPLAY Z.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3334: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:3334"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3334"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3335: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:3335"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3335"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1084
-#AT_START_1085
-at_fn_group_banner 1085 'run_functions.at:3340' \
- "FUNCTION SUM" " " 4
-at_xfail=no
-(
- printf "%s\n" "1085. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Z USAGE BINARY-LONG.
- PROCEDURE DIVISION.
- MOVE FUNCTION SUM ( 3 -14 0 8 -3 ) TO Z.
- IF Z NOT = -6
- DISPLAY Z.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3356: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:3356"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3356"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3357: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:3357"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3357"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1085
-#AT_START_1086
-at_fn_group_banner 1086 'run_functions.at:3362' \
- "FUNCTION TAN" " " 4
-at_xfail=no
-(
- printf "%s\n" "1086. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Y PIC S99V9(34).
- PROCEDURE DIVISION.
- MOVE FUNCTION TAN ( 1.5 ) TO Y.
- IF Y NOT = 14.1014199471717193876460836519877564
- DISPLAY Y.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3378: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:3378"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3378"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3379: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:3379"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3379"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1086
-#AT_START_1087
-at_fn_group_banner 1087 'run_functions.at:3384' \
- "FUNCTION TEST-DATE-YYYYMMDD" " " 4
-at_xfail=no
-(
- printf "%s\n" "1087. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- *> explicit DISPLAY to verify size
- DISPLAY FUNCTION TEST-DATE-YYYYMMDD (20020231)
- WITH NO ADVANCING.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3399: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:3399"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3399"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3400: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:3400"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "000000003" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3400"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1087
-#AT_START_1088
-at_fn_group_banner 1088 'run_functions.at:3406' \
- "FUNCTION TEST-DAY-YYYYDDD" " " 4
-at_xfail=no
-(
- printf "%s\n" "1088. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- *> explicit DISPLAY to verify size
- DISPLAY FUNCTION TEST-DAY-YYYYDDD (2002400)
- WITH NO ADVANCING.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3421: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:3421"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3421"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3422: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:3422"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "000000002" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3422"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1088
-#AT_START_1089
-at_fn_group_banner 1089 'run_functions.at:3428' \
- "FUNCTION TEST-FORMATTED-DATETIME with dates" " " 4
-at_xfail=no
-(
- printf "%s\n" "1089. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("YYYYMMDD", "16010101") <> 0
- DISPLAY "Test 1 failed".
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("YYYY-MM-DD", "1601-01-01") <> 0
- DISPLAY "Test 2 failed".
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("YYYYDDD", "1601001") <> 0
- DISPLAY "Test 3 failed"
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("YYYY-DDD", "1601-001") <> 0
- DISPLAY "Test 4 failed".
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("YYYYWwwD", "1601W011") <> 0
- DISPLAY "Test 5 failed".
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("YYYY-Www-D", "1601-W01-1") <> 0
- DISPLAY "Test 6 failed".
-
-
- *> How will this work with zero-length items?
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("YYYYMMDD", "1") <> 2
- DISPLAY "Test 7 failed".
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("YYYYMMDD", "160A0101") <> 4
- DISPLAY "Test 8 failed".
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("YYYYMMDD", "00000101") <> 1
- DISPLAY "Test 9 failed".
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("YYYYMMDD", "16000101") <> 4
- DISPLAY "Test 10 failed".
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("YYYYMMDD", "16010001") <> 6
- DISPLAY "Test 11 failed".
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("YYYYMMDD", "16011301") <> 6
- DISPLAY "Test 12 failed".
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("YYYYMMDD", "16010190") <> 7
- DISPLAY "Test 13 failed".
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("YYYYMMDD", "18000229") <> 8
- DISPLAY "Test 14 failed".
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("YYYY-MM-DD", "1601 01 01") <> 5
- DISPLAY "Test 15 failed".
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("YYYYMMDD", "160101010") <> 9
- DISPLAY "Test 16 failed".
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("YYYYWwwD", "1601A011") <> 5
- DISPLAY "Test 17 failed".
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("YYYYWwwD", "1601W531") <> 7
- DISPLAY "Test 18 failed".
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("YYYYWwwD", "1601W601") <> 6
- DISPLAY "Test 19 failed".
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("YYYYWwwD", "2009W531") <> 0
- DISPLAY "Test 20 failed".
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("YYYYWwwD", "1601W018") <> 8
- DISPLAY "Test 21 failed".
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("YYYYDDD", "1601366") <> 7
- DISPLAY "Test 22 failed".
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("YYYYDDD", "1601370") <> 6
- DISPLAY "Test 23 failed".
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("YYYYDDD", "1601400") <> 5
- DISPLAY "Test 24 failed".
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("YYYYMMDD", "01") <> 1
- DISPLAY "Test 25 failed".
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("YYYYMMDD", "1601010") <> 8
- DISPLAY "Test 26 failed".
-
- STOP RUN
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3523: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:3523"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3523"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3524: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:3524"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3524"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1089
-#AT_START_1090
-at_fn_group_banner 1090 'run_functions.at:3529' \
- "FUNCTION TEST-FORMATTED-DATETIME with times" " " 4
-at_xfail=no
-(
- printf "%s\n" "1090. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("hhmmss.sssssssssZ", "000000.000000000Z") <> 0
- DISPLAY "Test 1 failed" END-DISPLAY
- END-IF
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("hh:mm:ss.sssssssssZ", "00:00:00.000000000Z") <> 0
- DISPLAY "Test 2 failed" END-DISPLAY
- END-IF
- *> 0 instead of +/- valid in sending fields with offset of zero.
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("hhmmss.sssssssss+hhmm", "000000.00000000000000")
- <> 0
- DISPLAY "Test 3 failed" END-DISPLAY
- END-IF
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("hh:mm:ss.sssssssss+hh:mm",
- "00:00:00.000000000+00:00")
- <> 0
- DISPLAY "Test 4 failed" END-DISPLAY
- END-IF
-
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("hhmmss", "300000") <> 1
- DISPLAY "Test 5 failed" END-DISPLAY
- END-IF
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("hhmmss", "250000") <> 2
- DISPLAY "Test 6 failed" END-DISPLAY
- END-IF
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("hhmmss", "006000") <> 3
- DISPLAY "Test 7 failed" END-DISPLAY
- END-IF
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("hhmmss", "000060") <> 5
- DISPLAY "Test 8 failed" END-DISPLAY
- END-IF
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("hh:mm:ss", "00-00-00") <> 3
- DISPLAY "Test 9 failed" END-DISPLAY
- END-IF
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("hhmmss.ss", "000000,00") <> 7
- DISPLAY "Test 10 failed" END-DISPLAY
- END-IF
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("hhmmss+hhmm", "000000 0000") <> 7
- DISPLAY "Test 11 failed" END-DISPLAY
- END-IF
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("hhmmss+hhmm", "00000000001") <> 11
- DISPLAY "Test 12 failed" END-DISPLAY
- END-IF
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("hhmmssZ", "000000A") <> 7
- DISPLAY "Test 13 failed" END-DISPLAY
- END-IF
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("hhmmss", SPACE) <> 1
- DISPLAY "Test 14 failed" END-DISPLAY
- END-IF
-
- STOP RUN
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3604: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:3604"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3604"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3605: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:3605"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3605"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1090
-#AT_START_1091
-at_fn_group_banner 1091 'run_functions.at:3610' \
- "FUNCTION TEST-FORMATTED-DATETIME with datetimes" "" 4
-at_xfail=no
-(
- printf "%s\n" "1091. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 RESULT PIC 9(02).
- PROCEDURE DIVISION.
- MOVE FUNCTION TEST-FORMATTED-DATETIME
- ("YYYYMMDDThhmmss", "16010101T000000")
- TO RESULT
- IF RESULT <> 0
- DISPLAY "Test 1 failed: " RESULT END-DISPLAY
- END-IF
- MOVE FUNCTION TEST-FORMATTED-DATETIME
- ("YYYY-MM-DDThh:mm:ss.sssssssss+hh:mm",
- "1601-01-01T00:00:00.000000000+00:00")
- TO RESULT
- IF RESULT <> 0
- DISPLAY "Test 2 failed: " RESULT END-DISPLAY
- END-IF
-
- MOVE FUNCTION TEST-FORMATTED-DATETIME
- ("YYYYMMDDThhmmss", "16010101 000000")
- TO RESULT
- IF RESULT <> 9
- DISPLAY "Test 3 failed: " RESULT END-DISPLAY
- END-IF
- MOVE FUNCTION TEST-FORMATTED-DATETIME
- ("YYYYMMDDThhmmss", SPACE)
- TO RESULT
- IF RESULT <> 1
- DISPLAY "Test 4 failed: " RESULT END-DISPLAY
- END-IF
- MOVE FUNCTION TEST-FORMATTED-DATETIME
- ("YYYYMMDDThhmmss", "16010101T ")
- TO RESULT
- IF RESULT <> 10
- DISPLAY "Test 5 failed: " RESULT END-DISPLAY
- END-IF
-
- STOP RUN
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3657: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:3657"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3657"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3658: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:3658"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3658"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1091
-#AT_START_1092
-at_fn_group_banner 1092 'run_functions.at:3663' \
- "FUNCTION TEST-FORMATTED-DATETIME DP.COMMA" " " 4
-at_xfail=no
-(
- printf "%s\n" "1092. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- DECIMAL-POINT IS COMMA.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("hhmmss,ss", "000000,00") <> 0
- DISPLAY "Test 1 failed" END-DISPLAY
- END-IF
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("YYYYMMDDThhmmss,ss", "16010101T000000,00") <> 0
- DISPLAY "Test 2 failed" END-DISPLAY
- END-IF
-
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("hhmmss,ss", "000000.00") <> 7
- DISPLAY "Test 3 failed" END-DISPLAY
- END-IF
- IF FUNCTION TEST-FORMATTED-DATETIME
- ("YYYYMMDDThhmmss,ss", "16010101T000000.00") <> 16
- DISPLAY "Test 4 failed" END-DISPLAY
- END-IF
-
- STOP RUN
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3698: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:3698"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3698"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3699: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:3699"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3699"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1092
-#AT_START_1093
-at_fn_group_banner 1093 'run_functions.at:3704' \
- "FUNCTION TEST-NUMVAL" " " 4
-at_xfail=no
-(
- printf "%s\n" "1093. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 RESULT USAGE BINARY-LONG.
- 01 EMPTY.
- 03 PIC X OCCURS 0 TO 5 DEPENDING ON RESULT.
- PROCEDURE DIVISION.
- MOVE FUNCTION TEST-NUMVAL ("+ 1") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 1 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL (" + 1") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 2 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL ("- 1") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 3 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL (" - 1") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 4 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL ("+- 1") TO RESULT
- IF RESULT NOT = 2
- DISPLAY "Test 5 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL ("1 +") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 6 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL ("1 -") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 7 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL ("1 +-") TO RESULT
- IF RESULT NOT = 4
- DISPLAY "Test 8 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL ("1 -+") TO RESULT
- IF RESULT NOT = 4
- DISPLAY "Test 9 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL ("+ 1.1") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 10 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL ("- 1.1") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 11 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL ("1.1 +") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 12 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL ("1.1 -") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 13 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL ("1.1 CR") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 14 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL ("1.1 DB") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 15 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL ("1.1 -CR") TO RESULT
- IF RESULT NOT = 6
- DISPLAY "Test 16 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL ("1.1 +DB") TO RESULT
- IF RESULT NOT = 6
- DISPLAY "Test 17 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL ("1.1 CDB") TO RESULT
- IF RESULT NOT = 6
- DISPLAY "Test 18 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL ("+1.1 CR") TO RESULT
- IF RESULT NOT = 6
- DISPLAY "Test 19 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL ("+ ") TO RESULT
- IF RESULT NOT = 8
- DISPLAY "Test 20 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL (" 0. ") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 21 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL (" .0 ") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 22 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL (" . 0") TO RESULT
- IF RESULT NOT = 4
- DISPLAY "Test 23 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL (" 0 .") TO RESULT
- IF RESULT NOT = 5
- DISPLAY "Test 24 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL (" 0+0") TO RESULT
- IF RESULT NOT = 6
- DISPLAY "Test 25 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL (" 0+ 0") TO RESULT
- IF RESULT NOT = 8
- DISPLAY "Test 26 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL ("1.1 D") TO RESULT
- IF RESULT NOT = 6
- DISPLAY "Test 27 fail: " RESULT.
-
- * MOVE FUNCTION TEST-NUMVAL ("") TO RESULT
- MOVE 0 TO RESULT
- MOVE FUNCTION TEST-NUMVAL (EMPTY) TO RESULT
- IF RESULT NOT = 1
- DISPLAY "Test 28 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL (" ") TO RESULT
- IF RESULT NOT = 4
- DISPLAY "Test 29 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL (" .") TO RESULT
- IF RESULT NOT = 4
- DISPLAY "Test 30 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL (" ") TO RESULT
- IF RESULT NOT = 5
- DISPLAY "Test 31 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL (" 1 T") TO RESULT
- IF RESULT NOT = 5
- DISPLAY "Test 32 fail: " RESULT.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3849: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:3849"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3849"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3850: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:3850"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3850"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1093
-#AT_START_1094
-at_fn_group_banner 1094 'run_functions.at:3855' \
- "FUNCTION TEST-NUMVAL-C" " " 4
-at_xfail=no
-(
- printf "%s\n" "1094. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 RESULT USAGE BINARY-LONG.
- PROCEDURE DIVISION.
-
- MOVE FUNCTION TEST-NUMVAL-C ("+ 1") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 1 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-C (" + 1") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 2 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-C ("- 1") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 3 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-C (" - 1") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 4 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-C ("+- 1") TO RESULT
- IF RESULT NOT = 2
- DISPLAY "Test 5 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-C ("1 +") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 6 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-C ("1 -") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 7 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-C ("1 +-") TO RESULT
- IF RESULT NOT = 4
- DISPLAY "Test 8 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-C ("1 -+") TO RESULT
- IF RESULT NOT = 4
- DISPLAY "Test 9 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-C ("+ 1.1") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 10 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-C ("- 1.1") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 11 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-C ("1.1 +") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 12 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-C ("1.1 -") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 13 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-C ("1.1 CR") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 14 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-C ("1.1 DB") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 15 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-C ("1.1 -CR") TO RESULT
- IF RESULT NOT = 6
- DISPLAY "Test 16 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-C ("+ $1.1 ") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 17 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-C ("- $1.1 ") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 18 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-C ("+ X1.1 ", "X") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 19 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-C ("- X1.1 ", "X") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 20 fail: " RESULT.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3949: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:3949"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3949"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:3950: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:3950"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:3950"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1094
-#AT_START_1095
-at_fn_group_banner 1095 'run_functions.at:3955' \
- "FUNCTION TEST-NUMVAL-F" " " 4
-at_xfail=no
-(
- printf "%s\n" "1095. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 RESULT USAGE BINARY-LONG.
- PROCEDURE DIVISION.
-
- MOVE FUNCTION TEST-NUMVAL-F ("+ 1") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 1 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-F (" + 1") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 2 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-F ("- 1") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 3 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-F (" - 1") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 4 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-F ("+- 1") TO RESULT
- IF RESULT NOT = 2
- DISPLAY "Test 5 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-F ("1 +") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 6 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-F ("1 -") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 7 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-F ("1 +-") TO RESULT
- IF RESULT NOT = 4
- DISPLAY "Test 8 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-F ("1 -+") TO RESULT
- IF RESULT NOT = 4
- DISPLAY "Test 9 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-F ("+ 1.1") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 10 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-F ("- 1.1") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 11 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-F ("1.1 +") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 12 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-F ("1.1 -") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 13 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-F ("1.1 ") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 14 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-F ("1.1 ") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 15 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-F ("1.1 -CR") TO RESULT
- IF RESULT NOT = 6
- DISPLAY "Test 16 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-F ("1.1 E+1") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 17 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-F ("1.1 E -1") TO RESULT
- IF RESULT NOT = 0
- DISPLAY "Test 18 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-F ("1.1 EE") TO RESULT
- IF RESULT NOT = 6
- DISPLAY "Test 19 fail: " RESULT.
-
- MOVE FUNCTION TEST-NUMVAL-F ("+1.1 E001") TO RESULT
- IF RESULT NOT = 7
- DISPLAY "Test 20 fail: " RESULT.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4049: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:4049"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4049"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4050: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:4050"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4050"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1095
-#AT_START_1096
-at_fn_group_banner 1096 'run_functions.at:4055' \
- "FUNCTION TRIM" " " 4
-at_xfail=no
-(
- printf "%s\n" "1096. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(12) VALUE " a#b.c%d+e$ ".
- PROCEDURE DIVISION.
- DISPLAY FUNCTION TRIM ( X )
- END-DISPLAY.
- DISPLAY FUNCTION TRIM ( X TRAILING )
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4072: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:4072"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4072"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4073: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:4073"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "a#b.c%d+e\$
- a#b.c%d+e\$
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4073"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1096
-#AT_START_1097
-at_fn_group_banner 1097 'run_functions.at:4081' \
- "FUNCTION TRIM with reference modding" " " 4
-at_xfail=no
-(
- printf "%s\n" "1097. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(12) VALUE " a#b.c%d+e$ ".
- PROCEDURE DIVISION.
- DISPLAY FUNCTION TRIM ( X ) (2 : 3)
- END-DISPLAY.
- DISPLAY FUNCTION TRIM ( X TRAILING ) (2 : 3)
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4098: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:4098"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4098"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4099: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:4099"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "#b.
-a#b
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4099"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1097
-#AT_START_1098
-at_fn_group_banner 1098 'run_functions.at:4107' \
- "FUNCTION TRIM zero length" " " 4
-at_xfail=no
-(
- printf "%s\n" "1098. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4) VALUE "NOOK".
- PROCEDURE DIVISION.
- MOVE FUNCTION TRIM ( " " ) TO X.
- DISPLAY ">" X "<"
- END-DISPLAY.
- DISPLAY ">" FUNCTION TRIM ( " " ) "<"
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4125: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:4125"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4125"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4126: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:4126"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "> <
-><
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4126"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1098
-#AT_START_1099
-at_fn_group_banner 1099 'run_functions.at:4134' \
- "FUNCTION UPPER-CASE" " " 4
-at_xfail=no
-(
- printf "%s\n" "1099. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(10) VALUE "a#b.c%d+e$".
- 01 Z PIC X(10).
- PROCEDURE DIVISION.
- MOVE FUNCTION UPPER-CASE ( X ) TO Z.
- IF Z NOT = "A#B.C%D+E$"
- DISPLAY Z
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4153: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:4153"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4153"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4154: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:4154"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4154"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1099
-#AT_START_1100
-at_fn_group_banner 1100 'run_functions.at:4159' \
- "FUNCTION UPPER-CASE with reference modding" " " 4
-at_xfail=no
-(
- printf "%s\n" "1100. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(10) VALUE "a#b.c%d+e$".
- 01 Z PIC X(4).
- PROCEDURE DIVISION.
- MOVE FUNCTION UPPER-CASE ( X ) (1 : 3) TO Z.
- IF Z NOT = "A#B "
- DISPLAY Z
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4178: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:4178"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4178"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4179: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:4179"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4179"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1100
-#AT_START_1101
-at_fn_group_banner 1101 'run_functions.at:4184' \
- "FUNCTION VARIANCE" " " 4
-at_xfail=no
-(
- printf "%s\n" "1101. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Z PIC S9(4)V9(8).
- PROCEDURE DIVISION.
- MOVE FUNCTION VARIANCE ( 3 -14 0 8 -3 ) TO Z.
- IF Z NOT = 54.16
- DISPLAY 'EXP 54.16 GOT ' Z.
- *> COMPUTE has maximum possible intermediate
- *> results via GMP - and thefore a different
- *> set of function calls to set Z - this one
- *> here is used for "huge decimal number from
- *> display"
- COMPUTE Z = FUNCTION VARIANCE(4, 0, 5).
- IF Z NOT = 4.66666666
- DISPLAY 'EXP 4.66666666 GOT ' Z.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4208: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:4208"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4208"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4209: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:4209"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4209"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1101
-#AT_START_1102
-at_fn_group_banner 1102 'run_functions.at:4214' \
- "FUNCTION WHEN-COMPILED" " " 4
-at_xfail=no
-(
- printf "%s\n" "1102. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 compiled-datetime.
- 03 compiled-date.
- 05 millennium PIC X.
- 05 FILLER PIC X(15).
- 03 timezone PIC X(5).
- PROCEDURE DIVISION.
- *> Check millennium.
- MOVE FUNCTION WHEN-COMPILED TO compiled-datetime.
- IF millennium NOT = "2"
- DISPLAY "Millennium NOT OK: " millennium
- END-DISPLAY
- END-IF.
-
- *> Check timezone.
- IF timezone NOT = FUNCTION CURRENT-DATE (17:5)
- DISPLAY "Timezone NOT OK: " timezone
- END-DISPLAY
- END-IF.
-
- *> Check date format.
- INSPECT compiled-date CONVERTING "0123456789"
- TO "9999999999".
- IF compiled-date NOT = ALL "9"
- DISPLAY "Date format NOT OK: " compiled-date
- END-DISPLAY
- END-IF.
-
- *> Check timezone format.
- IF timezone NOT = "00000"
- INSPECT timezone CONVERTING "0123456789"
- TO "9999999999"
- IF timezone NOT = "+9999" AND "-9999"
- DISPLAY "Timezone format NOT OK: " timezone
- END-DISPLAY
- END-IF
- END-IF.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4262: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:4262"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4262"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4263: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:4263"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4263"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1102
-#AT_START_1103
-at_fn_group_banner 1103 'run_functions.at:4268' \
- "FUNCTION YEAR-TO-YYYY" " " 4
-at_xfail=no
-(
- printf "%s\n" "1103. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Z USAGE BINARY-LONG.
- PROCEDURE DIVISION.
- MOVE FUNCTION YEAR-TO-YYYY ( 50 ) TO Z.
- IF Z NOT = 2050
- DISPLAY Z
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4286: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:4286"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4286"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4287: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:4287"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4287"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1103
-#AT_START_1104
-at_fn_group_banner 1104 'run_functions.at:4292' \
- "Formatted funcs w/ invalid variable format" " " 4
-at_xfail=no
-(
- printf "%s\n" "1104. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 invalid-date-format PIC X(10) VALUE "yyyymmdd".
- 01 invalid-datetime-format PIC X(17)
- VALUE "yyyymmddtHHMMSS".
- 01 invalid-time-format PIC X(6) VALUE "HHMMSS".
- PROCEDURE DIVISION.
- IF FUNCTION FORMATTED-CURRENT-DATE
- (invalid-date-format) <> SPACES
- OR FUNCTION EXCEPTION-STATUS <> "EC-ARGUMENT-FUNCTION"
- OR FUNCTION EXCEPTION-LOCATION <> "prog; ; 11"
- DISPLAY "Test 1 failed" END-DISPLAY
- END-IF
-
- IF FUNCTION FORMATTED-DATE (invalid-date-format, 1) <> SPACES
- OR FUNCTION EXCEPTION-STATUS <> "EC-ARGUMENT-FUNCTION"
- OR FUNCTION EXCEPTION-LOCATION <> "prog; ; 18"
- DISPLAY "Test 2 failed" END-DISPLAY
- END-IF
-
- IF FUNCTION FORMATTED-DATETIME
- (invalid-datetime-format, 1, 1) <> SPACES
- OR FUNCTION EXCEPTION-STATUS <> "EC-ARGUMENT-FUNCTION"
- OR FUNCTION EXCEPTION-LOCATION <> "prog; ; 24"
- DISPLAY "Test 3 failed" END-DISPLAY
- END-IF
-
- IF FUNCTION FORMATTED-TIME (invalid-time-format, 1) <> SPACES
- OR FUNCTION EXCEPTION-STATUS <> "EC-ARGUMENT-FUNCTION"
- OR FUNCTION EXCEPTION-LOCATION <> "prog; ; 31"
- DISPLAY "Test 4 failed" END-DISPLAY
- END-IF
-
- IF FUNCTION INTEGER-OF-FORMATTED-DATE
- (invalid-date-format, 1) <> ZERO
- OR FUNCTION EXCEPTION-STATUS <> "EC-ARGUMENT-FUNCTION"
- OR FUNCTION EXCEPTION-LOCATION <> "prog; ; 37"
- DISPLAY "Test 5 failed" END-DISPLAY
- END-IF
-
- IF FUNCTION SECONDS-FROM-FORMATTED-TIME
- (invalid-time-format, 1) <> ZERO
- OR FUNCTION EXCEPTION-STATUS <> "EC-ARGUMENT-FUNCTION"
- OR FUNCTION EXCEPTION-LOCATION <> "prog; ; 44"
- DISPLAY "Test 6 failed" END-DISPLAY
- END-IF
-
- IF FUNCTION TEST-FORMATTED-DATETIME
- (invalid-datetime-format, 1) <> ZERO
- OR FUNCTION EXCEPTION-STATUS <> "EC-ARGUMENT-FUNCTION"
- OR FUNCTION EXCEPTION-LOCATION <> "prog; ; 51"
- DISPLAY "Test 7 failed" END-DISPLAY
- END-IF
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4356: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:4356"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:11: warning: FUNCTION 'FORMATTED-CURRENT-DATE' has format in variable
-prog.cob:18: warning: FUNCTION 'FORMATTED-DATE' has format in variable
-prog.cob:24: warning: FUNCTION 'FORMATTED-DATETIME' has format in variable
-prog.cob:31: warning: FUNCTION 'FORMATTED-TIME' has format in variable
-prog.cob:37: warning: FUNCTION 'INTEGER-OF-FORMATTED-DATE' has format in variable
-prog.cob:44: warning: FUNCTION 'SECONDS-FROM-FORMATTED-TIME' has format in variable
-prog.cob:51: warning: FUNCTION 'TEST-FORMATTED-DATETIME' has format in variable
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4356"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# running the program
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4367: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:4367"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4367"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1104
-#AT_START_1105
-at_fn_group_banner 1105 'run_functions.at:4373' \
- "FORMATTED-(DATE)TIME with SYSTEM-OFFSET" " " 4
-at_xfail=no
-(
- printf "%s\n" "1105. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 str PIC X(30).
- 77 val pic 9(02).
-
- PROCEDURE DIVISION.
- MOVE FUNCTION FORMATTED-DATETIME
- ("YYYYDDDThhmmss+hhmm", 1, 45296, SYSTEM-OFFSET)
- TO str
- MOVE FUNCTION TEST-FORMATTED-DATETIME
- ("YYYYDDDThhmmss+hhmm", str) TO val
- IF val not = 0
- DISPLAY "Test 1 failed: " str ' - ' val END-DISPLAY
- END-IF
-
- MOVE FUNCTION FORMATTED-TIME
- ("hhmmss.ssZ", 45296, SYSTEM-OFFSET)
- TO str
- MOVE FUNCTION TEST-FORMATTED-DATETIME
- ("hhmmss.ssZ", str) TO val
- IF val not = 0
- DISPLAY "Test 2 failed: " str ' - ' val END-DISPLAY
- END-IF
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4405: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:4405"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4405"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4406: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:4406"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4406"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1105
-#AT_START_1106
-at_fn_group_banner 1106 'run_functions.at:4411' \
- "Intrinsics without FUNCTION keyword (1)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1106. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Z PIC 99V99.
- PROCEDURE DIVISION.
- MOVE PI TO Z.
- MOVE E TO Z.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4426: \$COMPILE -fintrinsics=all prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fintrinsics=all prog.cob" "run_functions.at:4426"
-( $at_check_trace; $COMPILE -fintrinsics=all prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4426"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4427: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:4427"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4427"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1106
-#AT_START_1107
-at_fn_group_banner 1107 'run_functions.at:4432' \
- "Intrinsics without FUNCTION keyword (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1107. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Z PIC 99V99.
- PROCEDURE DIVISION.
- MOVE PI TO Z.
- MOVE E TO Z.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4447: \$COMPILE -fintrinsics=pi,e prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fintrinsics=pi,e prog.cob" "run_functions.at:4447"
-( $at_check_trace; $COMPILE -fintrinsics=pi,e prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4447"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4448: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:4448"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4448"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1107
-#AT_START_1108
-at_fn_group_banner 1108 'run_functions.at:4455' \
- "User-Defined FUNCTION with/without parameter" " " 4
-at_xfail=no
-(
- printf "%s\n" "1108. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- FUNCTION-ID. WITHPAR.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 PAR-IN PIC 9.
- 01 PAR-OUT PIC 9.
- PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT.
- ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD.
- GOBACK.
- END FUNCTION WITHPAR.
-
- IDENTIFICATION DIVISION.
- FUNCTION-ID. WITHOUTPAR.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 PAR PIC 9.
- PROCEDURE DIVISION RETURNING PAR.
- MOVE 1 TO PAR.
- GOBACK.
- END FUNCTION WITHOUTPAR.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- REPOSITORY.
- FUNCTION WITHPAR
- FUNCTION WITHOUTPAR.
- PROCEDURE DIVISION.
- IF WITHPAR(1) NOT = 2
- DISPLAY WITHPAR(1)
- END-DISPLAY
- END-IF.
- IF WITHOUTPAR NOT = 1
- DISPLAY WITHOUTPAR
- END-DISPLAY
- END-IF.
- STOP RUN.
- END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4500: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:4500"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4500"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4501: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:4501"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4501"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1108
-#AT_START_1109
-at_fn_group_banner 1109 'run_functions.at:4506' \
- "UDF in COMPUTE" " " 4
-at_xfail=no
-(
- printf "%s\n" "1109. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- FUNCTION-ID. func.
-
- DATA DIVISION.
- LINKAGE SECTION.
- 01 num PIC 999.
-
- PROCEDURE DIVISION RETURNING num.
- MOVE 100 TO num
- .
- END FUNCTION func.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- REPOSITORY.
- FUNCTION func.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 x PIC 999.
-
- PROCEDURE DIVISION.
- COMPUTE x = 101 + FUNCTION func
- DISPLAY x
- .
- END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4541: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:4541"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4541"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4542: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:4542"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "201
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4542"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1109
-#AT_START_1110
-at_fn_group_banner 1110 'run_functions.at:4549' \
- "UDF replacing intrinsic function" " " 4
-at_xfail=no
-(
- printf "%s\n" "1110. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- FUNCTION-ID. SUBSTITUTE.
-
- DATA DIVISION.
- LINKAGE SECTION.
- 01 func-in PIC X(15).
- 01 func-sub PIC X.
- 01 func-out PIC X(15).
-
- PROCEDURE DIVISION USING func-in, func-sub RETURNING func-out.
- MOVE func-in TO func-out
- INSPECT func-out REPLACING ALL '%' BY func-sub
- .
- END FUNCTION SUBSTITUTE.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- REPOSITORY.
- FUNCTION SUBSTITUTE
- .
- PROCEDURE DIVISION.
- DISPLAY '"' FUNCTION SUBSTITUTE(" % C%O%B%O%L % ", "_") '"'
- DISPLAY '"' FUNCTION SUBSTITUTE(" % C%O%B%O%L % ", "-") '"'
- .
- END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4583: \$COMPILE -fnot-intrinsic=substitute prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fnot-intrinsic=substitute prog.cob" "run_functions.at:4583"
-( $at_check_trace; $COMPILE -fnot-intrinsic=substitute prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4583"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4584: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:4584"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "\" _ C_O_B_O_L _ \"
-\" - C-O-B-O-L - \"
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4584"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1110
-#AT_START_1111
-at_fn_group_banner 1111 'run_functions.at:4592' \
- "UDF with recursion" " " 4
-at_xfail=no
-(
- printf "%s\n" "1111. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-printf "%s\n" "run_functions.at:4595" >"$at_check_line_file"
-at_fn_check_skip 77 "$at_srcdir/run_functions.at:4595" # see bug #222 and r2291 - postponed
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- FUNCTION-ID. foo.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 ttl PIC 9 VALUE 1.
-
- LOCAL-STORAGE SECTION.
- 01 num PIC 9.
-
- LINKAGE SECTION.
- 01 arg PIC 9.
- 01 ret PIC 9.
-
- PROCEDURE DIVISION USING arg RETURNING ret.
- IF arg < 5
- ADD 1 TO arg GIVING num END-ADD
- MOVE FUNCTION foo (num) TO ret
- ELSE
- MOVE arg TO ret
- END-IF
- DISPLAY "Step: " ttl ", Arg: " arg ", Return: " ret
- END-DISPLAY
- ADD 1 to ttl END-ADD
- GOBACK.
- END FUNCTION foo.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- REPOSITORY.
- FUNCTION foo.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 num PIC 9 VALUE 1.
-
- PROCEDURE DIVISION.
- DISPLAY "Return value '" FUNCTION foo (num) "'"
- WITH NO ADVANCING
- END-DISPLAY
- GOBACK.
- END PROGRAM prog.
-
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4646: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_functions.at:4646"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4646"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_functions.at:4648: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_functions.at:4648"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Step: 1, Arg: 5, Return: 5
-Step: 2, Arg: 4, Return: 5
-Step: 3, Arg: 3, Return: 5
-Step: 4, Arg: 2, Return: 5
-Step: 5, Arg: 1, Return: 5
-Return value '5'" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_functions.at:4648"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1111
-#AT_START_1112
-at_fn_group_banner 1112 'run_extensions.at:25' \
- "CALL BY CONTENT binary and literal" " " 4
-at_xfail=no
-(
- printf "%s\n" "1112. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >dump.c <<'_ATEOF'
-
-#include <stdio.h>
-#include <libcob.h>
-
-COB_EXT_EXPORT int
-dump (unsigned char *data, int *p)
-{
- int i;
- if ( *p == 1 ) {
- for (i = 0; i < 4; i++)
- printf ("%02x", data[i]);
- } else {
- printf ("%8.8d", *((int *)data));
- }
- puts ("");
- return 0;
-}
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X-1 PIC 9(9) VALUE 4660 COMP.
- 01 X-2 PIC 9(9) VALUE 4660 COMP-5.
- PROCEDURE DIVISION.
- CALL "dump" USING X-1 BY CONTENT 1
- END-CALL.
- CALL "dump" USING X-2 BY CONTENT 2
- END-CALL.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:62: \$COMPILE_MODULE dump.c"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE dump.c" "run_extensions.at:62"
-( $at_check_trace; $COMPILE_MODULE dump.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:62"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:63: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:63"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:63"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:64: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:64"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "00001234
-00004660
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:64"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1112
-#AT_START_1113
-at_fn_group_banner 1113 'run_extensions.at:72' \
- "Numeric Boolean literals" " " 4
-at_xfail=no
-(
- printf "%s\n" "1113. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X-1 PIC 9(2) VALUE B"010101".
- 01 X-2 PIC 9(20) VALUE B"111111111111111111111111111111
- - "111111111111111111111111111111
- - "1111".
- PROCEDURE DIVISION.
- DISPLAY X-1
- END-DISPLAY.
- DISPLAY X-2
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:92: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:92"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:92"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:93: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:93"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "21
-18446744073709551615
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:93"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1113
-#AT_START_1114
-at_fn_group_banner 1114 'run_extensions.at:101' \
- "ACUCOBOL literals" " " 4
-at_xfail=no
-(
- printf "%s\n" "1114. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- DISPLAY B#101 UPON STDOUT
- DISPLAY O#17777777777 UPON STDOUT
- DISPLAY X#ffFFFFff UPON STDOUT
- DISPLAY H#ffFFFFff UPON STDOUT
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:116: \$COMPILE -facu-literals=ok prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -facu-literals=ok prog.cob" "run_extensions.at:116"
-( $at_check_trace; $COMPILE -facu-literals=ok prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:116"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:117: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:117"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "5
-2147483647
-4294967295
-4294967295
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:117"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1114
-#AT_START_1115
-at_fn_group_banner 1115 'run_extensions.at:127' \
- "HP COBOL octal literals" " " 4
-at_xfail=yes
-(
- printf "%s\n" "1115. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# FIXME: the type of octal literals must be context-sensitive, see below
-# currently hard-wired as numeric (may be switched in scanner.l to alphanumeric)
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- *> Octal literal is "AB" in ASCII.
- 01 ITEM-ALPHA PIC XX VALUE %40502.
- *> Octal literal is 39.
- 01 ITEM-NUMERIC PIC 99 BINARY VALUE %47.
- *> Octal literal is ASCII 12.
- 01 ITEM-NUM PIC 99 VALUE %30462.
- PROCEDURE DIVISION.
- *> Octal literal is "XY".
- DISPLAY %54131.
- IF ITEM-ALPHA NOT = "AB"
- DISPLAY "VALUE %40502 is not ""AB"" (ASCII) but "
- ITEM-ALPHA
- END-IF
- IF ITEM-NUMERIC NOT = 39
- DISPLAY "VALUE %47 BINARY is not 39 but " ITEM-NUMERIC
- END-IF
- IF ITEM-NUM NOT = 12
- DISPLAY "VALUE %30462 is not 12 (ASCII) but " ITEM-NUM
- END-IF
- *> Adds octal 23 (decimal 19, as it is an arithmetic expression).
- ADD %23 TO ITEM-NUM.
- IF ITEM-NUM NOT = 31
- DISPLAY "12 + %23 (19) is not 31 but " ITEM-NUM
- END-IF
- *> Sets the data to octal 30462 (ASCII 12).
- MOVE %30462 TO ITEM-NUM
- IF ITEM-NUM NOT = 12
- DISPLAY "%30462 is not 12 (ASCII) but " ITEM-NUM
- END-IF
- *> Sets the data to x'4100' (octal 101 -> ASCII A + right-pad NULL)
- MOVE %101 TO ITEM-ALPHA
- IF ITEM-ALPHA NOT = x"4100"
- DISPLAY "%101 is not x""4100"" = Anull (ASCII) but "
- ITEM-ALPHA
- END-IF
-
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:180: \$COMPILE -fhp-octal-literals=ok prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fhp-octal-literals=ok prog.cob" "run_extensions.at:180"
-( $at_check_trace; $COMPILE -fhp-octal-literals=ok prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:180"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:181: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:181"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "XY
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:181"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1115
-#AT_START_1116
-at_fn_group_banner 1116 'run_extensions.at:188' \
- "Hexadecimal numeric literals" " " 4
-at_xfail=no
-(
- printf "%s\n" "1116. $at_setup_line: testing $at_desc ..."
- $at_traceon
- # FIXME: needs a dialect configuration
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X-1 PIC 9(8) VALUE H"012345".
- 01 X-2 PIC 9(8) VALUE H"FFFFFF".
- PROCEDURE DIVISION.
- DISPLAY X-1
- END-DISPLAY.
- DISPLAY X-2
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:206: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:206"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:206"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:207: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:207"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "00074565
-16777215
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:207"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1116
-#AT_START_1117
-at_fn_group_banner 1117 'run_extensions.at:217' \
- "Semi-parenthesized condition" " " 4
-at_xfail=no
-(
- printf "%s\n" "1117. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
- # Shouldn't this be in run_fundamentals?
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- IF 1 = (1 OR 2)
- DISPLAY "OK" NO ADVANCING
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:231: \$COMPILE -Wno-constant-expression prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -Wno-constant-expression prog.cob" "run_extensions.at:231"
-( $at_check_trace; $COMPILE -Wno-constant-expression prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:231"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:232: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:232"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:232"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1117
-#AT_START_1118
-at_fn_group_banner 1118 'run_extensions.at:237' \
- "ADDRESS OF" " " 4
-at_xfail=no
-(
- printf "%s\n" "1118. $at_setup_line: testing $at_desc ..."
- $at_traceon
- # Shouldn't this be in run_fundamentals?
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X-1 PIC X(3) VALUE "X-1".
- 01 X-2 PIC X(3) VALUE "X-2".
- 01 G.
- 02 PTR-1 USAGE POINTER VALUE NULL.
- 02 PTR-2 USAGE POINTER VALUE NULL.
- LINKAGE SECTION.
- 01 Y PIC X(3).
- PROCEDURE DIVISION.
- SET ADDRESS OF Y TO ADDRESS OF X-1.
- IF Y NOT = "X-1"
- DISPLAY "Test 1 " Y
- END-DISPLAY
- END-IF.
- SET PTR-1 TO ADDRESS OF X-2.
- SET PTR-2 TO PTR-1
- SET ADDRESS OF Y TO PTR-2.
- IF Y NOT = "X-2"
- DISPLAY "Test 2 " Y
- END-DISPLAY
- END-IF
- INITIALIZE PTR-1.
- IF PTR-1 NOT = NULL
- DISPLAY "NG 1"
- END-DISPLAY
- END-IF.
- SET ADDRESS OF Y TO NULL.
- IF PTR-1 NOT = ADDRESS OF Y
- DISPLAY "NG 2"
- END-DISPLAY
- END-IF.
- IF ADDRESS OF Y NOT = PTR-1
- DISPLAY "NG 3"
- END-DISPLAY
- END-IF.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:281: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:281"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:281"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:282: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:282"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:282"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1118
-#AT_START_1119
-at_fn_group_banner 1119 'run_extensions.at:287' \
- "LENGTH OF" " " 4
-at_xfail=no
-(
- printf "%s\n" "1119. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(2).
- 01 G.
- 02 Y PIC X(2) OCCURS 10.
- 02 G-GROUP.
- 03 G-SGROUP.
- 04 G1 PIC X(05).
- 04 G2 PIC X(06).
- 04 G3 PIC X(22).
- 03 FILLER PIC XX OCCURS 5.
- 66 RENAME-STD-G RENAMES G-GROUP.
- 66 RENAME-STD-SG RENAMES G-SGROUP.
- 66 RENAME-STD RENAMES G1 THROUGH G3.
- 66 RENAME-G RENAMES G.
- 01 L PIC s9(4)v99.
- 01 I PIC 9(2) VALUE 10.
- 78 I-LEN VALUE LENGTH OF I.
- * TODO: check size of FILLER here
- 01 TSTDISP.
- 02 FILLER OCCURS 5000.
- 10 T1 PIC X(11).
- 10 T2 PIC X(22).
- 78 var-length-l value length of '00128'.
- 78 var-length-x value length of x'a0'.
- 78 var-length-z value length of z'a0'.
- *78 var-length-n value length of n'001'.
- PROCEDURE DIVISION.
- move var-length-l TO L
- IF L NOT = 5
- DISPLAY "Length '00128'" L
- END-DISPLAY
- END-IF
- move var-length-x TO L
- IF L NOT = 1
- DISPLAY "Length x'a0'" L
- END-DISPLAY
- END-IF
- move var-length-z TO L
- IF L NOT = 3
- DISPLAY "Length z'a0'" L
- END-DISPLAY
- END-IF
- * What does MF reports here?
- *> move var-length-n TO L
- *> IF L NOT = 3
- *> DISPLAY "Length n'001'" L
- *> END-DISPLAY
- *> END-IF
- MOVE LENGTH OF X TO L
- IF L NOT = 2
- DISPLAY "Length 1 " L
- END-DISPLAY
- END-IF
- MOVE LENGTH OF X TO L
- IF L NOT = 2
- DISPLAY "Length 1a " L LENGTH X
- END-DISPLAY
- END-IF
- MOVE LENGTH OF Y TO L
- IF L NOT = 2
- DISPLAY "Length 2 " L
- END-DISPLAY
- END-IF
- IF L NOT = 2
- DISPLAY "Length 2a " L LENGTH OF Y
- END-DISPLAY
- END-IF
- MOVE LENGTH OF Y(1) TO L
- IF L NOT = 2
- DISPLAY "Length 3 " L
- END-DISPLAY
- END-IF
- MOVE LENGTH Y(1) TO L
- IF L NOT = 2
- DISPLAY "Length 3a " L LENGTH OF Y(1)
- END-DISPLAY
- END-IF
- IF I-LEN NOT = 2
- DISPLAY "Length 4 " I-LEN
- END-DISPLAY
- END-IF
- IF LENGTH OF L + 2 NOT = 8
- ADD 2 TO LENGTH OF L GIVING L
- DISPLAY "Length 5 + 2" L
- END-DISPLAY
- END-IF
- IF LENGTH L + 2 NOT = 8
- ADD 2 TO LENGTH L GIVING L
- DISPLAY "Length 5a + 2 " L
- END-DISPLAY
- END-IF
- MOVE 0 TO L
- PERFORM LENGTH OF L TIMES
- ADD 1 TO L
- END-PERFORM
- PERFORM LENGTH L TIMES
- ADD 1 TO L
- END-PERFORM
- IF L NOT = 12
- DISPLAY "Length 6 " L
- END-DISPLAY
- END-IF
- MOVE 0 TO L
- PERFORM VARME
- VARYING I FROM LENGTH OF I
- BY LENGTH OF X
- UNTIL I > LENGTH OF L
- IF ((L NOT = 3) OR
- (I NOT = 8) )
- DISPLAY "Length 7 " L " - " I
- END-DISPLAY
- END-IF
- MOVE 0 TO L
- PERFORM VARME
- VARYING I FROM LENGTH I
- BY LENGTH X
- UNTIL I > LENGTH L
- IF ((L NOT = 3) OR
- (I NOT = 8) )
- DISPLAY "Length 7a " L " - " I
- END-DISPLAY
- END-IF
- MOVE LENGTH OF RENAME-STD-SG TO L
- IF L NOT = 33
- DISPLAY "Length 8a " L
- END-DISPLAY
- END-IF
- MOVE LENGTH OF RENAME-STD-G TO L
- IF L NOT = 43
- DISPLAY "Length 8b " L
- END-DISPLAY
- END-IF
- MOVE LENGTH OF RENAME-STD TO L
- IF L NOT = 33
- DISPLAY "Length 8c " L
- END-DISPLAY
- END-IF
- MOVE LENGTH OF RENAME-G TO L
- IF L NOT = 63
- DISPLAY "Length 8d " L
- END-DISPLAY
- END-IF
- *> one display test
- DISPLAY LENGTH OF TSTDISP WITH NO ADVANCING
- END-DISPLAY
- STOP RUN.
- VARME.
- ADD 1 TO L
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:445: \$COMPILE -Wno-constant-expression prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -Wno-constant-expression prog.cob" "run_extensions.at:445"
-( $at_check_trace; $COMPILE -Wno-constant-expression prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:445"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:446: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:446"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "165000" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:446"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1119
-#AT_START_1120
-at_fn_group_banner 1120 'run_extensions.at:451' \
- "SET TO SIZE OF" " " 4
-at_xfail=no
-(
- printf "%s\n" "1120. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TST PIC X(10) VALUE "abcdefghij".
- 01 TST2.
- 05 FILLER OCCURS 5000.
- 10 T2-1 PIC X(11).
- 10 T2-2 PIC X(22).
- 01 LN PIC 9(06).
-
- PROCEDURE DIVISION.
- SET LN TO SIZE OF TST
- IF LN NOT = 10
- DISPLAY "SIZE OF TST is " LN UPON SYSERR
- END-DISPLAY
- END-IF
- SET LN TO SIZE OF TST2
- IF LN NOT = 165000
- DISPLAY "SIZE OF TST2 is " LN UPON SYSERR
- END-DISPLAY
- END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:482: \$COMPILE prog.cob "
-at_fn_check_prepare_dynamic "$COMPILE prog.cob " "run_extensions.at:482"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:482"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:483: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:483"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:483"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1120
-#AT_START_1121
-at_fn_group_banner 1121 'run_extensions.at:488' \
- "WHEN-COMPILED" " " 4
-at_xfail=no
-(
- printf "%s\n" "1121. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(20).
- PROCEDURE DIVISION.
- MOVE WHEN-COMPILED TO X.
- INSPECT X CONVERTING "0123456789" TO "9999999999".
- IF X NOT = "99/99/9999.99.99 "
- CALL 'CBL_OC_DUMP' USING X
- ON EXCEPTION
- DISPLAY X NO ADVANCING
- END-DISPLAY
- END-CALL
- END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:510: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:510"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:510"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:511: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:511"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:511"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1121
-#AT_START_1122
-at_fn_group_banner 1122 'run_extensions.at:517' \
- "Complex OCCURS DEPENDING ON (1)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1122. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 I PIC 9.
- 01 G-1 VALUE "123456789".
- 02 G-2.
- 03 X PIC X OCCURS 1 TO 3 DEPENDING ON I.
- 02 G-3.
- 03 G-4.
- 04 X PIC X OCCURS 1 TO 3 DEPENDING ON I.
- 03 G-5.
- 04 X PIC X OCCURS 1 TO 3 DEPENDING ON I.
- PROCEDURE DIVISION.
- MOVE 2 TO I.
- DISPLAY G-1 ":" G-4 ":" G-5 NO ADVANCING
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:540: \$COMPILE -std=mvs prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=mvs prog.cob" "run_extensions.at:540"
-( $at_check_trace; $COMPILE -std=mvs prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:540"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:541: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:541"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "123456:34:56" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:541"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1122
-#AT_START_1123
-at_fn_group_banner 1123 'run_extensions.at:546' \
- "Complex OCCURS DEPENDING ON (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1123. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 I PIC 99.
- 01 J PIC 99.
- 01 K PIC 99.
- 01 VLEN PIC 99.
- 01 VTOP.
- 03 VGROUP.
- 05 VX OCCURS 1 TO 5 DEPENDING ON I.
- 10 VXX PIC X(1).
- 05 VY OCCURS 1 TO 5 DEPENDING ON J.
- 10 VYY PIC X(2).
- 05 ZZ OCCURS 1 TO 5 DEPENDING ON K.
- 10 VZZ PIC X(3).
- PROCEDURE DIVISION.
- MOVE 1 TO I.
- MOVE 1 TO J.
- MOVE 1 TO K.
- MOVE '1' TO VXX (1).
- MOVE '22' TO VYY (1).
- MOVE '333' TO VZZ (1).
- MOVE LENGTH OF VGROUP TO VLEN.
- DISPLAY VLEN NO ADVANCING
- END-DISPLAY.
- MOVE FUNCTION LENGTH (VGROUP) TO VLEN.
- DISPLAY VLEN NO ADVANCING
- END-DISPLAY.
- DISPLAY VGROUP
- END-DISPLAY.
- INITIALIZE VTOP.
- MOVE 3 TO I.
- MOVE 2 TO J.
- MOVE 1 TO K.
- MOVE '3' TO VXX (3).
- MOVE '22' TO VYY (2).
- MOVE '111' TO VZZ (1).
- MOVE LENGTH OF VGROUP TO VLEN.
- DISPLAY VLEN NO ADVANCING
- END-DISPLAY.
- MOVE FUNCTION LENGTH (VGROUP) TO VLEN.
- DISPLAY VLEN NO ADVANCING
- END-DISPLAY.
- DISPLAY VGROUP
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:600: \$COMPILE -std=mf prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=mf prog.cob" "run_extensions.at:600"
-( $at_check_trace; $COMPILE -std=mf prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:600"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:601: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:601"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "18181 22 333
-1818 3 22 111
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:601"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1123
-#AT_START_1124
-at_fn_group_banner 1124 'run_extensions.at:609' \
- "Complex OCCURS DEPENDING ON (3)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1124. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 I PIC 99.
- 01 J PIC 99.
- 01 K PIC 99.
- 01 VLEN PIC 99.
- 01 VTOP.
- 03 VGROUP.
- 05 VX OCCURS 1 TO 5 DEPENDING ON I.
- 10 VXX PIC X(1).
- 05 VY OCCURS 1 TO 5 DEPENDING ON J.
- 10 VYY PIC X(2).
- 05 ZZ OCCURS 1 TO 5 DEPENDING ON K.
- 10 VZZ PIC X(3).
- PROCEDURE DIVISION.
- MOVE 1 TO I.
- MOVE 1 TO J.
- MOVE 1 TO K.
- MOVE '1' TO VXX (1).
- MOVE '22' TO VYY (1).
- MOVE '333' TO VZZ (1).
- MOVE LENGTH OF VGROUP TO VLEN.
- DISPLAY VLEN NO ADVANCING
- END-DISPLAY.
- MOVE FUNCTION LENGTH (VGROUP) TO VLEN.
- DISPLAY VLEN NO ADVANCING
- END-DISPLAY.
- DISPLAY VGROUP
- END-DISPLAY.
- INITIALIZE VTOP.
- MOVE 3 TO I.
- MOVE 2 TO J.
- MOVE 1 TO K.
- MOVE '3' TO VXX (3).
- MOVE '22' TO VYY (2).
- MOVE '111' TO VZZ (1).
- MOVE LENGTH OF VGROUP TO VLEN.
- DISPLAY VLEN NO ADVANCING
- END-DISPLAY.
- MOVE FUNCTION LENGTH (VGROUP) TO VLEN.
- DISPLAY VLEN NO ADVANCING
- END-DISPLAY.
- DISPLAY VGROUP
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-# note: -fodoslide implies -fcomplex-ode
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:664: \$COMPILE -fodoslide prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fodoslide prog.cob" "run_extensions.at:664"
-( $at_check_trace; $COMPILE -fodoslide prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:664"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:665: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:665"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "0606122333
-1010 3 22111
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:665"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1124
-#AT_START_1125
-at_fn_group_banner 1125 'run_extensions.at:673' \
- "Complex OCCURS DEPENDING ON (4)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1125. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 I PIC 99.
- 01 J PIC 99.
- 01 K PIC 99.
- 01 VLEN PIC 99.
- 01 VTOP.
- 03 VGROUP.
- 05 VX OCCURS 1 TO 5 DEPENDING ON I.
- 10 VXX PIC X(1).
- 05 VY OCCURS 1 TO 5 DEPENDING ON J.
- 10 VYY PIC X(2).
- 05 ZZ OCCURS 1 TO 5 DEPENDING ON K.
- 10 VZZ PIC X(3).
- 05 VFIX PIC X(3).
- PROCEDURE DIVISION.
- MOVE 1 TO I.
- MOVE 1 TO J.
- MOVE 1 TO K.
- MOVE '1' TO VXX (1).
- MOVE '22' TO VYY (1).
- MOVE '333' TO VZZ (1).
- MOVE '444' TO VFIX.
- MOVE LENGTH OF VGROUP TO VLEN.
- DISPLAY VLEN NO ADVANCING
- END-DISPLAY.
- MOVE FUNCTION LENGTH (VGROUP) TO VLEN.
- DISPLAY VLEN NO ADVANCING
- END-DISPLAY.
- DISPLAY VGROUP
- END-DISPLAY.
- INITIALIZE VTOP.
- MOVE 3 TO I.
- MOVE 2 TO J.
- MOVE 1 TO K.
- MOVE '3' TO VXX (3).
- MOVE '22' TO VYY (2).
- MOVE '111' TO VZZ (1).
- MOVE '000' TO VFIX.
- MOVE LENGTH OF VGROUP TO VLEN.
- DISPLAY VLEN NO ADVANCING
- END-DISPLAY.
- MOVE FUNCTION LENGTH (VGROUP) TO VLEN.
- DISPLAY VLEN NO ADVANCING
- END-DISPLAY.
- DISPLAY VGROUP
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:730: \$COMPILE -fcomplex-odo prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fcomplex-odo prog.cob" "run_extensions.at:730"
-( $at_check_trace; $COMPILE -fcomplex-odo prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:730"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:731: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:731"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "33331 22 333 444
-3333 3 22 111 000
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:731"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1125
-#AT_START_1126
-at_fn_group_banner 1126 'run_extensions.at:739' \
- "Complex OCCURS DEPENDING ON (5)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1126. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 I PIC 99.
- 01 J PIC 99.
- 01 K PIC 99.
- 01 VLEN PIC 99.
- 01 VTOP.
- 03 VGROUP.
- 05 VX OCCURS 1 TO 5 DEPENDING ON I.
- 10 VXX PIC X(1).
- 05 VY OCCURS 1 TO 5 DEPENDING ON J.
- 10 VYY PIC X(2).
- 05 ZZ OCCURS 1 TO 5 DEPENDING ON K.
- 10 VZZ PIC X(3).
- 05 VFIX PIC X(3).
- PROCEDURE DIVISION.
- MOVE 1 TO I.
- MOVE 1 TO J.
- MOVE 1 TO K.
- MOVE '1' TO VXX (1).
- MOVE '22' TO VYY (1).
- MOVE '333' TO VZZ (1).
- MOVE '444' TO VFIX.
- MOVE LENGTH OF VGROUP TO VLEN.
- DISPLAY VLEN NO ADVANCING
- END-DISPLAY.
- MOVE FUNCTION LENGTH (VGROUP) TO VLEN.
- DISPLAY VLEN NO ADVANCING
- END-DISPLAY.
- DISPLAY VGROUP
- END-DISPLAY.
- INITIALIZE VTOP.
- MOVE 3 TO I.
- MOVE 2 TO J.
- MOVE 1 TO K.
- MOVE '3' TO VXX (3).
- MOVE '22' TO VYY (2).
- MOVE '111' TO VZZ (1).
- MOVE '000' TO VFIX.
- MOVE LENGTH OF VGROUP TO VLEN.
- DISPLAY VLEN NO ADVANCING
- END-DISPLAY.
- MOVE FUNCTION LENGTH (VGROUP) TO VLEN.
- DISPLAY VLEN NO ADVANCING
- END-DISPLAY.
- DISPLAY VGROUP
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:796: \$COMPILE -fodoslide prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fodoslide prog.cob" "run_extensions.at:796"
-( $at_check_trace; $COMPILE -fodoslide prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:796"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:797: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:797"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "0909122333444
-1313 3 22111000
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:797"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1126
-#AT_START_1127
-at_fn_group_banner 1127 'run_extensions.at:805' \
- "Complex OCCURS DEPENDING ON (6)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1127. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 n PIC 9 VALUE 2.
- 01 m PIC 9 VALUE 3.
-
- 01 a-table VALUE "ABCDEFGHIJ".
- 03 rows OCCURS 0 TO 2 TIMES
- DEPENDING ON n.
- 05 chars OCCURS 0 TO 5 TIMES
- DEPENDING ON m
- PIC X.
-
- 01 vals PIC X(3).
-
- PROCEDURE DIVISION.
- MOVE chars (1, 2) TO vals (1:1)
- MOVE chars (2, 1) TO vals (2:1)
- MOVE chars (2, 3) TO vals (3:1)
- IF vals NOT = "BDF"
- DISPLAY "Vals (slided) wrong: " vals
- END-DISPLAY
- END-IF
- IF a-table NOT = "ABCDEF"
- DISPLAY "Table (slided) wrong: " a-table
- END-DISPLAY
- END-IF
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:840: \$COMPILE -fodoslide prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fodoslide prog.cob" "run_extensions.at:840"
-( $at_check_trace; $COMPILE -fodoslide prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:840"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:841: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:841"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:841"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1127
-#AT_START_1128
-at_fn_group_banner 1128 'run_extensions.at:846' \
- "OCCURS UNBOUNDED (1)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1128. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 N PIC 9(03) VALUE 123 COMP-5.
- 01 P USAGE POINTER.
- 01 SAV PIC X(8192).
- 01 W-TABLE.
- 03 WROWS OCCURS 0 TO 500 TIMES
- DEPENDING ON N.
- 05 WCOL1 PIC 9.
- 05 WCOL2 PIC X(02).
-
- LINKAGE SECTION.
- 01 A-TABLE.
- 03 ROWS OCCURS 0 TO UNBOUNDED TIMES
- DEPENDING ON N.
- 05 COL1 PIC X.
- 05 COL2 PIC X(02).
-
- PROCEDURE DIVISION.
- IF FUNCTION LENGTH (W-TABLE) NOT = 369
- DISPLAY 'WRONG WS LENGTH: ' FUNCTION LENGTH (A-TABLE)
- END-DISPLAY
- END-IF
- IF FUNCTION LENGTH (A-TABLE) NOT = 369
- DISPLAY 'WRONG LS LENGTH: ' FUNCTION LENGTH (A-TABLE)
- END-DISPLAY
- END-IF
- ALLOCATE FUNCTION LENGTH (A-TABLE) CHARACTERS
- INITIALIZED TO ALL "ABCDE"
- RETURNING P
- SET ADDRESS OF A-TABLE TO P
- IF COL2(1) NOT = "BC"
- DISPLAY "col2(1) wrong: " col2(1)
- END-IF
- IF ROWS(2) NOT = "DEA"
- DISPLAY "rows(2) wrong: " rows(2)
- END-IF
- *
- INITIALIZE W-TABLE
- *
- MOVE A-TABLE TO SAV
- INITIALIZE A-TABLE
- *
- FREE p
- .
-_ATEOF
-
-
-# note: IBM implies -fodoslide
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:900: \$COBC -x -std=ibm prog.cob"
-at_fn_check_prepare_dynamic "$COBC -x -std=ibm prog.cob" "run_extensions.at:900"
-( $at_check_trace; $COBC -x -std=ibm prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:900"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:901: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:901"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:901"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:903: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:903"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:903"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1128
-#AT_START_1129
-at_fn_group_banner 1129 'run_extensions.at:908' \
- "OCCURS UNBOUNDED (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1129. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# note: the following example is from IBM's Language Reference
-# for Enterprise COBOL for z/OS 6.4,
-# (+ removing some binary zeros for output)
-
-cat >ALLOC.cob <<'_ATEOF'
-
- ID DIVISION.
- PROGRAM-ID. ALLOC.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 X PIC 9(2) PACKED-DECIMAL.
- 77 NUM-ELEMENTS PIC 9(4) BINARY.
- 77 SIZE-NEEDED PIC 9(4) BINARY.
- 77 old-size pic 9(4) binary.
- 77 VPTR POINTER.
-
- LINKAGE SECTION.
-
- 01 VARGRP.
- 02 OBJ PIC 9(4) COMP.
- 02 TABGRP.
- 03 VARTAB OCCURS 1 TO UNBOUNDED DEPENDING ON OBJ.
- 04 T1 PIC 9(4).
- 04 T2 PIC X(8).
- 04 T3 PIC 9(4). *> changed from COMP because of output
- 01 BUFFER PIC X(1000).
-
- PROCEDURE DIVISION.
-
- *> DISPLAY 'Starting testcase ALLOC'
-
- SET VPTR To NULL
-
- *************************************************************
- * Allocate a table with 20 elements
- *************************************************************
- COMPUTE NUM-ELEMENTS = 20
- PERFORM ALLOC-VARGRP
-
- *************************************************************
- * Set some 'test' values to validate re-allocated table
- *************************************************************
- initialize vartab(12), vartab(17)
- COMPUTE T1(12) = 9999
- MOVE 'HI MOM' TO T2 (17)
- *> DISPLAY ' '
- DISPLAY 'VARTAB(12) = "' VARTAB(12) '"'
- DISPLAY 'VARTAB(17) = "' VARTAB(17) '"'
- *> DISPLAY ' '
-
- *************************************************************
- * Need a bigger table! Allocate a larger one and copy data
- *************************************************************
- COMPUTE NUM-ELEMENTS = 30
- PERFORM ALLOC-VARGRP
-
- *************************************************************
- * Ensure that new table has correct data from original
- *************************************************************
- DISPLAY 'VARTAB(12) = "' VARTAB(12) '"'
- DISPLAY 'VARTAB(17) = "' VARTAB(17) '"'
-
- GOBACK.
-
- *************************************************************
- * The first time allocate the original table. If the table
- * has already been allocated, assume that we are allocating
- * a larger one and want to copy the data over to it
- *************************************************************
- ALLOC-VARGRP.
-
- If VPTR = NULL Then *> If first time, allocate the table
- COMPUTE SIZE-NEEDED = LENGTH OF OBJ +
- LENGTH OF VARTAB * NUM-ELEMENTS
- display 'First allocation, using ' size-needed ' bytes.'
- ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED RETURNING VPTR
-
- SET ADDRESS OF VARGRP TO VPTR
- MOVE NUM-ELEMENTS TO OBJ
- move SIZE-NEEDED to old-size
-
- Else *> If already have a table, doing re-size
- *********************************************************************
- * Re-size it!
- * First, map BUFFER on current table
- *********************************************************************
-
- SET ADDRESS OF BUFFER TO VPTR
-
- *********************************************************************
- * Calculate new size from NUM-ElEMENTS
- *********************************************************************
- COMPUTE SIZE-NEEDED = LENGTH OF OBJ +
- LENGTH OF VARTAB * NUM-ELEMENTS
-
- display 'Re-allocation, using ' size-needed ' bytes.'
- *> ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED RETURNING VPTR
- if size-needed < 2097152
- ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED
- loc 24
- RETURNING VPTR
- else
- ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED
- loc 31
- RETURNING VPTR
- end-if
-
- *************************************************************
- * Move data from data save area to new larger table
- *************************************************************
- SET ADDRESS OF VARGRP TO VPTR
- MOVE NUM-ELEMENTS TO OBJ
- MOVE BUFFER(1:old-size) TO VARGRP
- move SIZE-NEEDED to old-size
- *************************************************************
- * Free the original table
- ************************************************************
- SET VPTR TO ADDRESS OF BUFFER
- FREE VPTR
- .
-_ATEOF
-
-
-# FIXME: move the "LOC" from above to a syntax test, then drop the -w
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:1034: \$COMPILE -std=ibm-strict -w ALLOC.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=ibm-strict -w ALLOC.cob" "run_extensions.at:1034"
-( $at_check_trace; $COMPILE -std=ibm-strict -w ALLOC.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:1034"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:1036: \$COBCRUN_DIRECT ./ALLOC"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./ALLOC" "run_extensions.at:1036"
-( $at_check_trace; $COBCRUN_DIRECT ./ALLOC
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "First allocation, using 00322 bytes.
-VARTAB(12) = \"9999 0000\"
-VARTAB(17) = \"0000HI MOM 0000\"
-Re-allocation, using 00482 bytes.
-VARTAB(12) = \"9999 0000\"
-VARTAB(17) = \"0000HI MOM 0000\"
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:1036"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1129
-#AT_START_1130
-at_fn_group_banner 1130 'run_extensions.at:1048' \
- "INITIALIZE OCCURS UNBOUNDED" " " 4
-at_xfail=no
-(
- printf "%s\n" "1130. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 p USAGE POINTER.
- 01 p2 USAGE POINTER.
- 01 dlen PIC 9(7).
-
- LINKAGE SECTION.
- 01 a-table.
- 03 prefix.
- 05 n PIC 9(03) VALUE 123.
- 03 table-data value all "ABCDE".
- 04 rows OCCURS 0 TO UNBOUNDED TIMES
- DEPENDING ON n.
- 05 col1 PIC X.
- 05 col2 PIC X(02).
-
- PROCEDURE DIVISION.
- ALLOCATE LENGTH OF prefix CHARACTERS
- RETURNING p
- SET ADDRESS OF a-table TO p
- INITIALIZE prefix ALL TO VALUE
- IF FUNCTION LENGTH (a-table) NOT = 372
- DISPLAY 'WRONG LENGTH table: ' FUNCTION LENGTH (a-table).
- ALLOCATE FUNCTION LENGTH (a-table) CHARACTERS
- RETURNING p2
- SET ADDRESS OF a-table TO p2
- FREE p
-
- INITIALIZE prefix ALL TO VALUE
-
- IF LENGTH OF a-table NOT = 372
- MOVE LENGTH OF a-table TO dlen
- DISPLAY "BAD SIZE: " dlen.
-
- INITIALIZE table-data (1:FUNCTION LENGTH(rows(1)) * n)
- ALL TO VALUE
- IF col2(1) NOT = "BC"
- DISPLAY "col2(1) wrong: " col2(1).
- IF rows(2) NOT = "DEA"
- DISPLAY "rows(2) wrong: " rows(2).
-
- *> check if ref-mod also works as expected
- MOVE 2 TO n
- MOVE ALL ZEROES TO a-table (1: (LENGTH OF a-table))
- MOVE 7 TO n
- IF rows(2) NOT = "000"
- DISPLAY "rows(2) after ref-mod MOVE wrong: " rows(2).
- IF rows(3) NOT = "BCD"
- DISPLAY "rows(3) after ref-mod MOVE wrong: " rows(3).
- MOVE ALL '9' TO rows (5) rows (7)
-
- *> Test - should only initialize up to current size, not max:
- MOVE 4 TO n
- INITIALIZE table-data TO DEFAULT
- MOVE 7 TO n
- IF rows(2) NOT = SPACES OR
- rows(4) NOT = SPACES
- DISPLAY "rows(2/4) after init default wrong: "
- rows(2) rows(4).
- IF rows(5) NOT = "999"
- DISPLAY "rows(5) after init default wrong: " rows(5).
-
- MOVE 6 TO n
- INITIALIZE table-data ALL TO VALUE
- MOVE 9 TO n
- IF rows(5) NOT = "CDE"
- DISPLAY "rows(5) after init value wrong: " rows(5).
- IF rows(7) NOT = "999"
- DISPLAY "rows(7) after init value wrong: " rows(7).
-
- IF a-table (20:10) NOT = "BC999BCDEA"
- DISPLAY "a-table / ref-mod wrong: " a-table (20:10).
- move 10 to n
- IF a-table (20:n) NOT = "BC999BCDEA"
- DISPLAY "a-table / ref-mod length wrong: " a-table (20:n).
- move 20 to n
- IF a-table (n:10) NOT = "BC999BCDEA"
- DISPLAY "a-table / ref-mod offset wrong: " a-table (n:10).
-
- *> Test - FUNCTION LENGTH(table-data) must be resolved at run-time
- MOVE 8 TO n
- INITIALIZE table-data (1:FUNCTION LENGTH(table-data))
- ALL TO VALUE
- .
-
- DISPLAY a-table (20:10). *> expect runtime error
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:1142: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:1142"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:1142"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:1144: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:1144"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:89: error: length of 'a-table' out of bounds: 10, starting at: 20, maximum: 27
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_extensions.at:1144"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1130
-#AT_START_1131
-at_fn_group_banner 1131 'run_extensions.at:1151' \
- "INITIALIZE OCCURS ODOSLIDE" " " 4
-at_xfail=no
-(
- printf "%s\n" "1131. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 p USAGE POINTER.
- 01 p2 USAGE POINTER.
- 01 dlen PIC 9(7).
- 01 grp-0.
- 05 FILLER PIC X(3).
- 05 FLD-0.
- 10 FLD-0-1 OCCURS 8193 TIMES.
- 15 FLD-0-2 PIC XXX VALUE "XYZ".
- 15 FLD-0-3 PIC 99 VALUE 12.
- 15 FLD-0-4 PIC XX VALUE "QQ".
- 05 FILLER PIC X(3).
- 01 grp-1.
- 05 FILLER PIC X(3).
- 05 FLD-1 PIC X(5) VALUE ALL "ABCDE".
- 05 FILLER PIC X(3).
- 01 grp-2.
- 05 FILLER PIC X(3).
- 05 FLD-2 PIC X(42) VALUE ALL "ABCD ".
- 05 FILLER PIC X(3).
- 01 grp-2a.
- 05 FILLER PIC X(3).
- 05 FLD-2A PIC X(8) VALUE ALL "ABC".
- 05 FILLER PIC X(3).
- 01 grp-3.
- 05 FILLER PIC X(3).
- 05 FLD-3 OCCURS 3 TIMES
- VALUE ALL "ABC00XX".
- 15 FLD-3-2 PIC XXX.
- 15 FLD-3-3 PIC 99.
- 15 FLD-3-4 PIC XX.
- 05 FILLER PIC X(3).
- 01 grp-4.
- 05 FILLER PIC X(3).
- 05 FLD-4.
- 10 FLD-4-1 OCCURS 11 TIMES.
- 15 FLD-4-2 PIC XX VALUE "AB".
- 15 FLD-4-3 PIC 99 VALUE 12.
- 15 FLD-4-4 PIC XX VALUE "YZ".
- 05 FILLER PIC X(3).
-
- 77 C5 PIC 9(03) VALUE 6.
- 01 grp-5.
- 05 FILLER PIC X(3).
- 05 FLD-5.
- 10 FLD-5-1 OCCURS 0 TO 9 TIMES
- DEPENDING ON C5.
- 15 FLD-5-2 PIC XXX VALUE "Mon".
- 15 FLD-5-3 PIC 99 VALUE 49.
- 15 FLD-5-4 PIC XX VALUE "ey".
- 05 FILLER PIC X(3).
-
- PROCEDURE DIVISION.
- MOVE ALL "*" TO grp-1.
- INITIALIZE FLD-1 ALL TO VALUE.
- DISPLAY "GRP-1:" grp-1.
-
- MOVE ALL "*" TO grp-2.
- INITIALIZE FLD-2 ALL TO VALUE.
- DISPLAY "GRP-2:" grp-2.
-
- MOVE ALL "*" TO grp-3.
- INITIALIZE FLD-3 (1) ALL TO VALUE.
- INITIALIZE FLD-3 (2) ALL TO VALUE.
- INITIALIZE FLD-3 (3) ALL TO VALUE.
- DISPLAY "GRP-3:" grp-3.
-
- MOVE ALL "*" TO grp-4.
- INITIALIZE FLD-4 ALL TO VALUE.
- DISPLAY "GRP-4:" grp-4.
-
- MOVE 7 TO c5.
- MOVE ALL "*" TO grp-5.
- INITIALIZE FLD-5 ALL TO VALUE.
- DISPLAY "GRP-5:" grp-5.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:1235: \$COMPILE -fodoslide prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fodoslide prog.cob" "run_extensions.at:1235"
-( $at_check_trace; $COMPILE -fodoslide prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:1235"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:1237: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:1237"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "GRP-1:***ABCDE***
-GRP-2:***ABCD ABCD ABCD ABCD ABCD ABCD ABCD ABCD AB***
-GRP-3:***ABC00XXABC00XXABC00XX***
-GRP-4:***AB12YZAB12YZAB12YZAB12YZAB12YZAB12YZAB12YZAB12YZAB12YZAB12YZAB12YZ***
-GRP-5:***Mon49eyMon49eyMon49eyMon49eyMon49eyMon49eyMon49ey***
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:1237"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1131
-#AT_START_1132
-at_fn_group_banner 1132 'run_extensions.at:1248' \
- "DEPENDING ON with ODOSLIDE" " " 4
-at_xfail=no
-(
- printf "%s\n" "1132. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT FLATFILE
- ASSIGN "SEQODO"
- ORGANIZATION LINE SEQUENTIAL
- FILE STATUS IS CUST-STAT .
-
- DATA DIVISION.
- FILE SECTION.
- FD FLATFILE
- BLOCK CONTAINS 5 RECORDS.
-
- 01 TSTREC.
- 05 SEQ PIC 99.
- 05 DEP-X PIC 99.
- 05 DEP-Y PIC 99.
- 05 HELLO PIC X(5) VALUE 'World'.
- 05 TSTGRP.
- 10 TSTGRP1.
- 15 TSTX OCCURS 1 TO 3 TIMES
- DEPENDING ON DEP-X.
- 20 TSTG-1 PIC Z9.
- 15 TSTTAIL1 PIC XXXX.
- 10 TSTY-ALL.
- 15 TSTY OCCURS 1 TO 3 TIMES
- DEPENDING ON DEP-X.
- 20 TSTY-1 PIC 99.
- 20 TSTY-2 PIC XXX.
- 20 TSTY-3 PIC X
- OCCURS 1 TO 12 TIMES
- DEPENDING ON DEP-Y.
- 20 TSTY-4 PIC XX.
- 20 TSTY-5 OCCURS 1 TO 3 TIMES
- DEPENDING ON DEP-X.
- 25 TSTY-6 OCCURS 1 TO 3 TIMES
- DEPENDING ON DEP-X.
- 30 TSTY-7 PIC X.
- 10 TSTTAIL2 PIC XX.
-
- WORKING-STORAGE SECTION.
- 77 CUST-STAT PIC X(2).
- 01 LN PIC 9(3).
- 01 IX PIC 9(9) BINARY.
- 01 IY PIC 9(9) BINARY.
- 01 IZ PIC 9(9) BINARY.
- 01 TSTXXX PIC X(26) VALUE "Abcdefghijklmnopqrstuvwxyz".
- 01 TSTALPHA REDEFINES TSTXXX.
- 05 ALPH-CHR PIC X OCCURS 26 TIMES.
- 01 TSTHEX PIC X(15) VALUE "123456789ABCDEF".
- 01 FILLER REDEFINES TSTHEX.
- 05 HEX-CHR PIC X OCCURS 15 TIMES.
-
- 01 TSTREC2.
- 05 DEP-X2 PIC 99.
- 05 TSTGRP2.
- 10 TSTX2 OCCURS 1 TO 3 TIMES DEPENDING ON DEP-X2.
- 15 TSTG2-1 PIC Z9.
- 10 TST2TAIL1 PIC XXX.
-
- 01 TSTREC3.
- 05 DEP-X3 PIC 99.
- 05 TSTGRP3.
- 10 TSTX3 OCCURS 1 TO 6 TIMES DEPENDING ON DEP-X3.
- 15 TSTG3-1 PIC 9.
- 01 TSTWRK PIC X(24).
-
- PROCEDURE DIVISION.
- MAIN-10.
- MOVE 6 TO DEP-X3.
- MOVE 1 TO TSTG3-1 (1).
- MOVE 2 TO TSTG3-1 (2).
- MOVE 3 TO TSTG3-1 (3).
- MOVE 4 TO TSTG3-1 (4).
- MOVE 5 TO TSTG3-1 (5).
- MOVE 6 TO TSTG3-1 (6).
- MOVE 3 TO DEP-X3.
- STRING TSTGRP3 "-TRAILER" DELIMITED BY SIZE
- INTO TSTWRK.
- DISPLAY "'" TSTWRK "'".
- OPEN OUTPUT FLATFILE.
- MOVE "Howdy" TO HELLO.
- MOVE 0 TO SEQ.
- MOVE 2 TO DEP-X.
- MOVE 5 TO DEP-Y.
- PERFORM WRITE-REC.
- MOVE 1 TO DEP-X.
- MOVE 2 TO DEP-Y.
- PERFORM WRITE-REC.
- MOVE 3 TO DEP-X.
- MOVE 3 TO DEP-Y.
- PERFORM WRITE-REC.
- MOVE 3 TO DEP-X.
- MOVE 10 TO DEP-Y.
- PERFORM WRITE-REC.
- CLOSE FLATFILE.
- OPEN INPUT FLATFILE.
- PERFORM READ-REC.
- CLOSE FLATFILE.
- STOP RUN.
-
- WRITE-REC SECTION.
- ADD 1 TO SEQ.
- MOVE LENGTH OF TSTREC TO LN.
- DISPLAY "Write SEQ " SEQ ", DEP-X = " DEP-X
- " & DEP-Y = " DEP-Y
- ", TSTREC len:" LN.
- MOVE ALL "*" TO TSTGRP.
- MOVE "<>" TO TSTTAIL1, TSTTAIL2.
- PERFORM VARYING IX FROM 1 BY 1
- UNTIL IX > DEP-X
- MOVE IX TO TSTG-1 (IX)
- END-PERFORM.
- MOVE LENGTH OF TSTGRP1 TO LN.
- DISPLAY "Group1: '" TSTGRP1 "' len:" LN.
- PERFORM VARYING IX FROM 1 BY 1
- UNTIL IX > DEP-X
- MOVE IX TO TSTY-1 (IX)
- MOVE "." TO TSTY-4 (IX)
- PERFORM VARYING IY FROM 1 BY 1
- UNTIL IY > DEP-Y
- MOVE ALPH-CHR (IY) TO TSTY-3 (IX, IY)
- END-PERFORM
- END-PERFORM.
- PERFORM VARYING IX FROM 1 BY 1
- UNTIL IX > DEP-X
- PERFORM VARYING IY FROM 1 BY 1
- UNTIL IY > DEP-X
- PERFORM VARYING IZ FROM 1 BY 1
- UNTIL IZ > DEP-X
- MOVE HEX-CHR (IX+IY+IZ) TO TSTY-7 (IX, IY, IZ)
- END-PERFORM
- END-PERFORM
- END-PERFORM.
- DISPLAY " Data: '" TSTGRP "'".
-
- MOVE ALL "*" TO TSTGRP2.
- MOVE DEP-X TO DEP-X2.
- PERFORM VARYING IX FROM 1 BY 1
- UNTIL IX > DEP-X2
- MOVE IX TO TSTG2-1 (IX)
- END-PERFORM.
- MOVE "<>" TO TST2TAIL1.
- MOVE LENGTH OF TSTGRP2 TO LN.
- DISPLAY "Group2: '" TSTGRP2 "' len:" LN.
- WRITE TSTREC.
-
- READ-REC SECTION.
- READ-10.
- READ FLATFILE AT END GO TO READ-99.
- MOVE LENGTH OF TSTREC TO LN.
- DISPLAY "Read SEQ " SEQ ", DEP-X = " DEP-X
- " & DEP-Y = " DEP-Y
- ", TSTREC len:" LN.
- DISPLAY " Data: '" TSTGRP "'".
- GO TO READ-10.
- READ-99.
- EXIT .
-_ATEOF
-
-
-# FIXME: odo-checks (-debug) must be adjusted, either with -fodoslide or with a possibly new
-# compiler configuration flag as IBM seems to only check against the field-founder's
-# bounds, not the subscript (which is the reason to use "$COBC -x" instead of "$COMPILE")
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:1418: \$COBC -x -fodoslide prog.cob"
-at_fn_check_prepare_dynamic "$COBC -x -fodoslide prog.cob" "run_extensions.at:1418"
-( $at_check_trace; $COBC -x -fodoslide prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:1418"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:1420: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:1420"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "'123-TRAILER '
-Write SEQ 01, DEP-X = 02 & DEP-Y = 05, TSTREC len:053
-Group1: ' 1 2<> ' len:008
- Data: ' 1 2<> 01***Abcde. 344502***Abcde. 4556<>'
-Group2: ' 1 2<> ' len:007
-Write SEQ 02, DEP-X = 01 & DEP-Y = 02, TSTREC len:029
-Group1: ' 1<> ' len:006
- Data: ' 1<> 01***Ab. 3<>'
-Group2: ' 1<> ' len:005
-Write SEQ 03, DEP-X = 03 & DEP-Y = 03, TSTREC len:080
-Group1: ' 1 2 3<> ' len:010
- Data: ' 1 2 3<> 01***Abc. 34545656702***Abc. 45656767803***Abc. 567678789<>'
-Group2: ' 1 2 3<> ' len:009
-Write SEQ 04, DEP-X = 03 & DEP-Y = 10, TSTREC len:101
-Group1: ' 1 2 3<> ' len:010
- Data: ' 1 2 3<> 01***Abcdefghij. 34545656702***Abcdefghij. 45656767803***Abcdefghij. 567678789<>'
-Group2: ' 1 2 3<> ' len:009
-Read SEQ 01, DEP-X = 02 & DEP-Y = 05, TSTREC len:053
- Data: ' 1 2<> 01***Abcde. 344502***Abcde. 4556<>'
-Read SEQ 02, DEP-X = 01 & DEP-Y = 02, TSTREC len:029
- Data: ' 1<> 01***Ab. 3<>'
-Read SEQ 03, DEP-X = 03 & DEP-Y = 03, TSTREC len:080
- Data: ' 1 2 3<> 01***Abc. 34545656702***Abc. 45656767803***Abc. 567678789<>'
-Read SEQ 04, DEP-X = 03 & DEP-Y = 10, TSTREC len:101
- Data: ' 1 2 3<> 01***Abcdefghij. 34545656702***Abcdefghij. 45656767803***Abcdefghij. 567678789<>'
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:1420"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
-
-
-cat >reference <<'_ATEOF'
-010205Howdy 1 2<> 01***Abcde. 344502***Abcde. 4556<>
-020102Howdy 1<> 01***Ab. 3<>
-030303Howdy 1 2 3<> 01***Abc. 34545656702***Abc. 45656767803***Abc. 567678789<>
-040310Howdy 1 2 3<> 01***Abcdefghij. 34545656702***Abcdefghij. 45656767803***Abcdefghij. 567678789<>
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:1458: diff reference SEQODO"
-at_fn_check_prepare_trace "run_extensions.at:1458"
-( $at_check_trace; diff reference SEQODO
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:1458"
-$at_failed && at_fn_log_failure \
-"SEQODO"
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1132
-#AT_START_1133
-at_fn_group_banner 1133 'run_extensions.at:1463' \
- "DEPENDING ON with ODOSLIDE for IBM" " " 4
-at_xfail=no
-(
- printf "%s\n" "1133. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 L1-1-2-S PIC 99.
- 01 L1-1-2-1-S PIC 99.
- 01 L1-2-S PIC 99.
- 01 L1-3-S PIC 99.
- 01 L1-3-2-S PIC 99.
- 01 BUFFER PIC X(370).
-
- PROCEDURE DIVISION.
- MOVE ALL '0123456789' TO BUFFER.
- MOVE 3 TO L1-1-2-S.
- MOVE 4 TO L1-1-2-1-S.
- MOVE 0 TO L1-2-S.
- MOVE 6 TO L1-3-S.
- MOVE 1 TO L1-3-2-S.
- CALL 'IBM-ODO-TEST' USING BUFFER
- L1-1-2-S
- L1-1-2-1-S
- L1-2-S
- L1-3-S
- L1-3-2-S.
-
- MOVE ALL '0123456789' TO BUFFER.
- MOVE 2 TO L1-1-2-S.
- MOVE 3 TO L1-1-2-1-S.
- MOVE 1 TO L1-2-S.
- MOVE 4 TO L1-3-S.
- MOVE 0 TO L1-3-2-S.
- CALL 'IBM-ODO-TEST' USING BUFFER
- L1-1-2-S
- L1-1-2-1-S
- L1-2-S
- L1-3-S
- L1-3-2-S.
- STOP RUN.
- END PROGRAM prog.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. IBM-ODO-TEST.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
-
- LINKAGE SECTION.
- 01 L1-1-2-S PIC 99.
- 01 L1-1-2-1-S PIC 99.
- 01 L1-2-S PIC 99.
- 01 L1-3-S PIC 99.
- 01 L1-3-2-S PIC 99.
- 01 BASE.
- 10 ARRAY OCCURS 2 TIMES.
- 20 L1-1.
- 25 L1-1-1 PIC X(3).
- 25 L1-1-2 OCCURS 4 TIMES DEPENDING ON L1-1-2-S.
- 30 L1-1-2-1 OCCURS 5 TIMES DEPENDING ON L1-1-2-1-S
- PIC XXX.
- 20 L1-2 OCCURS 0 TO 1 TIMES DEPENDING ON L1-2-S PIC XX.
- 20 L1-3 OCCURS 1 TO 10 TIMES DEPENDING ON L1-3-S.
- 25 L1-3-1.
- 30 L1-3-1-1 PIC X(5).
- 30 L1-3-1-2 PIC X.
- 30 L1-3-1-3 PIC X(5).
- 25 L1-3-2 OCCURS 0 TO 1 TIMES DEPENDING ON L1-3-2-S PIC X.
-
- PROCEDURE DIVISION USING BASE
- L1-1-2-S
- L1-1-2-1-S
- L1-2-S
- L1-3-S
- L1-3-2-S.
- DISPLAY "Length is " LENGTH OF BASE
- " with " L1-1-2-S
- ", " L1-1-2-1-S
- ", " L1-2-S
- ", " L1-3-S
- ", " L1-3-2-S.
- MOVE '.' TO L1-3-2(1, 5, 1).
- MOVE '--' TO L1-2(2, 1).
- MOVE '+++' TO L1-1-2-1(2, 1, 5).
- DISPLAY '"' BASE '"'.
- END PROGRAM IBM-ODO-TEST.
-_ATEOF
-
-# FIXME: odo-checks (-debug) must be adjusted, either with -fodoslide or with a possibly new
-# compiler configuration flag as IBM seems to only check against the field-founder's
-# bounds, not the subscript (which is the reason to use "$COBC -x" instead of "$COMPILE")
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:1556: \$COBC -x -std=ibm prog.cob"
-at_fn_check_prepare_dynamic "$COBC -x -std=ibm prog.cob" "run_extensions.at:1556"
-( $at_check_trace; $COBC -x -std=ibm prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:1556"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:1558: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:1558"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Length is +0000000222 with 03, 04, 00, 06, 01
-\"01234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567.901234567890123456789012345+++901234567890123456789--2345678901234567890123456789012345678901234567890123456789012345678901\"
-Length is +0000000134 with 02, 03, 01, 04, 00
-\"012345678901234567890123456789012345678901234567890123456789012345678901234567.901+++567--01234567890123456789012345678901234567890123\"
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:1558"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1133
-#AT_START_1134
-at_fn_group_banner 1134 'run_extensions.at:1568' \
- "INITIALIZE level 01 OCCURS" " " 4
-at_xfail=no
-(
- printf "%s\n" "1134. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# note: partially also tested in run_initialize.at
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 L1 OCCURS 1000 TIMES.
- 05 L2 PIC S9(9) COMP-5 VALUE 5.
- 05 L3 PIC S9(9) VALUE 5.
- 01 INIT OCCURS 3 PIC X(256) VALUE SPACES.
- PROCEDURE DIVISION.
- IF L2(3) not = 5
- DISPLAY '0 VALUE(3) = ' L2(3).
-
- INITIALIZE L1(1).
- IF L2(1) not = 0
- DISPLAY '1 VALUE(1) = ' L2(1).
- IF L2(3) not = 5
- DISPLAY '1 VALUE(3) = ' L2(3).
-
- INITIALIZE L1(1) DEFAULT.
- IF L2(1) not = 0
- DISPLAY '2 VALUE(1) = ' L2(1).
- IF L2(3) not = 5
- DISPLAY '2 VALUE(3) = ' L2(3).
-
- INITIALIZE L1(1) ALL VALUE.
- IF L2(1) not = 5
- DISPLAY '3 VALUE(1) = ' L2(1).
- IF L2(3) not = 5
- DISPLAY '3 VALUE(3) = ' L2(3).
-
- IF INIT(1) NOT = SPACES
- DISPLAY "INIT1 NOT = SPACES".
- IF INIT(3) NOT = SPACES
- DISPLAY "INIT3 NOT = SPACES".
-
- MOVE ALL '*' TO INIT(1) INIT(2) INIT(3)
- IF INIT(2) (50:5) NOT = "*****"
- DISPLAY "INIT2 BADVAL".
- INITIALIZE INIT(2) ALL TO VALUE.
- IF INIT(2) NOT = SPACES
- DISPLAY "INIT2 NOT = SPACES".
-
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:1619: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:1619"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:1619"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:1620: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:1620"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:1620"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1134
-#AT_START_1135
-at_fn_group_banner 1135 'run_extensions.at:1625' \
- "MOVE of non-integer to alphanumeric" " " 4
-at_xfail=no
-(
- printf "%s\n" "1135. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 INTEGER PIC 9(4) VALUE 1289 .
- 01 SIGNED-INTEGER PIC S9(4) VALUE -1289 .
-
- 01 ALPHA-FIELD PIC X(4).
-
- 01 NON-INTEGER PIC 9(2)V99 VALUE 12.89 .
- 01 NON-INTEGER-2 PIC 9(2)V99
- USAGE BINARY VALUE 12.89 .
- 01 NON-INTEGER-3 PIC 9(2)V99
- USAGE PACKED-DECIMAL VALUE 12.89 .
- 01 SIGNED-NON-INTEGER PIC S9(2)V99 VALUE -12.89 .
- 01 SIGNED-NON-INTEGER-2 PIC S9(2)V99
- USAGE BINARY VALUE -12.89 .
- 01 SIGNED-NON-INTEGER-3 PIC S9(2)V99
- USAGE PACKED-DECIMAL VALUE -12.89 .
-
- PROCEDURE DIVISION.
-* * MOVE NON-INTEGER TO ALPHA-NUMERIC --> ignore Decimal Point!
- S-01.
- MOVE SPACES TO ALPHA-FIELD.
- MOVE INTEGER TO ALPHA-FIELD.
- DISPLAY ALPHA-FIELD NO ADVANCING
- END-DISPLAY.
- S-02.
- MOVE SPACES TO ALPHA-FIELD.
- MOVE SIGNED-INTEGER TO ALPHA-FIELD.
- DISPLAY ALPHA-FIELD NO ADVANCING
- END-DISPLAY.
- S-03.
- MOVE SPACES TO ALPHA-FIELD.
- MOVE NON-INTEGER TO ALPHA-FIELD.
- DISPLAY ALPHA-FIELD NO ADVANCING
- END-DISPLAY.
- S-10.
- MOVE SPACES TO ALPHA-FIELD.
- MOVE NON-INTEGER-2 TO ALPHA-FIELD.
- DISPLAY ALPHA-FIELD NO ADVANCING
- END-DISPLAY.
- S-20.
- MOVE SPACES TO ALPHA-FIELD.
- MOVE NON-INTEGER-3 TO ALPHA-FIELD.
- DISPLAY ALPHA-FIELD NO ADVANCING
- END-DISPLAY.
- S-30.
- MOVE SPACES TO ALPHA-FIELD.
- MOVE SIGNED-NON-INTEGER TO ALPHA-FIELD.
- DISPLAY ALPHA-FIELD NO ADVANCING
- END-DISPLAY.
- S-40.
- MOVE SPACES TO ALPHA-FIELD.
- MOVE SIGNED-NON-INTEGER-2 TO ALPHA-FIELD.
- DISPLAY ALPHA-FIELD NO ADVANCING
- END-DISPLAY.
- S-50.
- MOVE SPACES TO ALPHA-FIELD.
- MOVE SIGNED-NON-INTEGER-3 TO ALPHA-FIELD.
- DISPLAY ALPHA-FIELD NO ADVANCING
- END-DISPLAY.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:1695: \$COMPILE -std=mf prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=mf prog.cob" "run_extensions.at:1695"
-( $at_check_trace; $COMPILE -std=mf prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in paragraph 'S-03':
-prog.cob:36: warning: MOVE of non-integer to alphanumeric
-prog.cob: in paragraph 'S-10':
-prog.cob:41: warning: MOVE of non-integer to alphanumeric
-prog.cob: in paragraph 'S-20':
-prog.cob:46: warning: MOVE of non-integer to alphanumeric
-prog.cob: in paragraph 'S-30':
-prog.cob:51: warning: MOVE of non-integer to alphanumeric
-prog.cob: in paragraph 'S-40':
-prog.cob:56: warning: MOVE of non-integer to alphanumeric
-prog.cob: in paragraph 'S-50':
-prog.cob:61: warning: MOVE of non-integer to alphanumeric
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:1695"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:1709: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:1709"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "12891289128912891289128912891289" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:1709"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1135
-#AT_START_1136
-at_fn_group_banner 1136 'run_extensions.at:1715' \
- "CALL USING file-name" " " 4
-at_xfail=no
-(
- printf "%s\n" "1136. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >setfilename.c <<'_ATEOF'
-
-#include <stdio.h>
-#include <string.h>
-#include <libcob.h>
-
-COB_EXT_EXPORT int
-setfilename (cob_file *f, unsigned char *name)
-{
- memcpy (f->assign->data, name, strlen ((char *)name));
- return 0;
-}
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN FILENAME.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(4).
- WORKING-STORAGE SECTION.
- 01 FILENAME PIC X(8).
- PROCEDURE DIVISION.
- INITIALIZE FILENAME.
- CALL "setfilename" USING TEST-FILE "TESTFILE"
- END-CALL.
- OPEN OUTPUT TEST-FILE.
- CLOSE TEST-FILE.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:1753: \$COMPILE_MODULE setfilename.c"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE setfilename.c" "run_extensions.at:1753"
-( $at_check_trace; $COMPILE_MODULE setfilename.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:1753"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:1754: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:1754"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:1754"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:1755: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:1755"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:1755"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:1756: test -e TESTFILE"
-at_fn_check_prepare_trace "run_extensions.at:1756"
-( $at_check_trace; test -e TESTFILE
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:1756"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1136
-#AT_START_1137
-at_fn_group_banner 1137 'run_extensions.at:1761' \
- "CALL unusual PROGRAM-ID." " " 4
-at_xfail=no
-(
- printf "%s\n" "1137. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >A@B.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. "A@B".
- PROCEDURE DIVISION.
- DISPLAY "P1" NO ADVANCING
- END-DISPLAY.
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >A#B.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. "A#B".
- PROCEDURE DIVISION.
- DISPLAY "P2" NO ADVANCING
- END-DISPLAY.
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >A-B.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. "A-B".
- PROCEDURE DIVISION.
- DISPLAY "P3" NO ADVANCING
- END-DISPLAY.
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >A_B.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. "A_B".
- PROCEDURE DIVISION.
- DISPLAY "P4" NO ADVANCING
- END-DISPLAY.
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- PROCEDURE DIVISION.
- CALL "A@B"
- END-CALL.
- CALL "A#B"
- END-CALL.
- CALL "A-B"
- END-CALL.
- CALL "A_B"
- END-CALL.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:1815: \$COMPILE_MODULE A@B.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE A@B.cob" "run_extensions.at:1815"
-( $at_check_trace; $COMPILE_MODULE A@B.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:1815"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:1816: \$COMPILE_MODULE A#B.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE A#B.cob" "run_extensions.at:1816"
-( $at_check_trace; $COMPILE_MODULE A#B.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:1816"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:1817: \$COMPILE_MODULE A-B.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE A-B.cob" "run_extensions.at:1817"
-( $at_check_trace; $COMPILE_MODULE A-B.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:1817"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:1818: \$COMPILE_MODULE A_B.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE A_B.cob" "run_extensions.at:1818"
-( $at_check_trace; $COMPILE_MODULE A_B.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:1818"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:1819: \$COMPILE -o caller caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE -o caller caller.cob" "run_extensions.at:1819"
-( $at_check_trace; $COMPILE -o caller caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:1819"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:1821: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_extensions.at:1821"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "P1P2P3P4" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:1821"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1137
-#AT_START_1138
-at_fn_group_banner 1138 'run_extensions.at:1826' \
- "CALL / GOBACK with LOCAL-STORAGE" " " 4
-at_xfail=no
-(
- printf "%s\n" "1138. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# Testcase introduced when Bug #91 occurred.
-# Will fail if memory is freed which was
-# allocated by mpir/gmp.
-cat >prog_a.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog_a.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 WS-STRINGA PIC X(10).
- PROCEDURE DIVISION.
- MOVE "hi there" TO WS-STRINGA
- CALL "prog_b" USING WS-STRINGA
- DISPLAY "back in prog_a"
- GOBACK.
-_ATEOF
-
-
-cat >prog_b.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog_b.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 WS-STRINGB PIC X(10).
- 77 WS-CALLSB PIC 9(03).
- LOCAL-STORAGE SECTION.
- 77 LS-STRING PIC X(10).
- LINKAGE SECTION.
- 77 LK-STRING PIC X(10).
-
- PROCEDURE DIVISION USING LK-STRING.
- DISPLAY "entered prog_b"
- ADD 1 TO WS-CALLSB
- MOVE LK-STRING TO WS-STRINGB
- MOVE LK-STRING TO LS-STRING
- DISPLAY "exiting prog_b"
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:1866: \$COMPILE prog_a.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog_a.cob" "run_extensions.at:1866"
-( $at_check_trace; $COMPILE prog_a.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:1866"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:1867: \$COMPILE_MODULE prog_b.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE prog_b.cob" "run_extensions.at:1867"
-( $at_check_trace; $COMPILE_MODULE prog_b.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:1867"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:1868: \$COBCRUN_DIRECT ./prog_a"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog_a" "run_extensions.at:1868"
-( $at_check_trace; $COBCRUN_DIRECT ./prog_a
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "entered prog_b
-exiting prog_b
-back in prog_a
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:1868"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1138
-#AT_START_1139
-at_fn_group_banner 1139 'run_extensions.at:1877' \
- "CALL BY VALUE alphanumeric item" " " 4
-at_xfail=no
-(
- printf "%s\n" "1139. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC XX VALUE "OK".
- PROCEDURE DIVISION.
- CALL "prog2" USING BY VALUE X
- END-CALL.
- IF X NOT = "OK"
- DISPLAY X NO ADVANCING
- END-DISPLAY
- END-IF.
- STOP RUN.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 Y PIC XX.
- PROCEDURE DIVISION USING BY VALUE Y.
- MOVE "KO" TO Y.
- EXIT PROGRAM.
- END PROGRAM prog2.
- END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:1905: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:1905"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:8: warning: BY CONTENT assumed for alphanumeric item 'X'
-prog.cob:19: warning: handling of parameters passed BY VALUE is unfinished; implementation is likely to be changed
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:1905"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:1909: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:1909"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:1909"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1139
-#AT_START_1140
-at_fn_group_banner 1140 'run_extensions.at:1914' \
- "CALL BY VALUE numeric literal with SIZE IS" " " 4
-at_xfail=no
-(
- printf "%s\n" "1140. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# note: Eiter MicroFocus SIZE IS extension will be added via dialect option
-# or OpenCOBOL SIZE IS extension be removed later
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- *> Test of auto size, identical to SIZE AUTO
- CALL "prog2" USING BY VALUE 4 0 0 1 0
- END-CALL
-
- *> Test of explicit SIZE syntax
- CALL "prog2" USING BY VALUE 1 SIZE 1 2 0 0 0
- END-CALL
- CALL "prog2" USING BY VALUE 2 0 SIZE 2 3 0 0
- END-CALL
- CALL "prog2" USING BY VALUE 4 0 0 SIZE 4 4 0
- END-CALL
- CALL "prog2" USING BY VALUE 8 0 0 0 SIZE 8 5
- END-CALL
- CALL "prog2" USING BY VALUE 4 0 0 SIZE DEFAULT 6 0
- END-CALL
- CALL "prog2" USING BY VALUE 4 0 0 SIZE AUTO 7 0
- END-CALL
- *> test for SIZE AUTO with VALUE > INT_MAX is non-portable
-
- *> Test of explicit UNSIGNED SIZE syntax
- CALL "prog2" USING BY VALUE 1 UNSIGNED SIZE 1 2 0 0 0
- END-CALL
- CALL "prog2" USING BY VALUE 2 0 UNSIGNED SIZE 2 3 0 0
- END-CALL
- CALL "prog2" USING BY VALUE 4 0 0 UNSIGNED SIZE 4 4 0
- END-CALL
- CALL "prog2" USING BY VALUE 8 0 0 0 UNSIGNED SIZE 8 5 0
- END-CALL
- CALL "prog2" USING BY VALUE 4 0 0 UNSIGNED SIZE AUTO 6 0
- END-CALL
- *> test for SIZE AUTO with VALUE > INT_MAX is non-portable
-
- *> Test of MF size syntax
- *>CALL "prog2" USING BY VALUE 2 SIZE 1
- *>END-CALL
- *>CALL "prog2" USING BY VALUE 3 SIZE 2
- *>END-CALL
- *>CALL "prog2" USING BY VALUE 4 SIZE 4
- *>END-CALL
- *>CALL "prog2" USING BY VALUE 5 SIZE 8
- *>END-CALL
-
- STOP RUN.
- END PROGRAM prog. *> FIXME: C compile warnings when moved to end (nested programs)
-
- PROGRAM-ID. prog2.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 LEN USAGE BINARY-LONG.
- 01 VAR-1 USAGE BINARY-CHAR.
- 01 VAR-2 USAGE BINARY-SHORT.
- 01 VAR-4 USAGE BINARY-LONG.
- 01 VAR-8 USAGE BINARY-DOUBLE.
- PROCEDURE DIVISION USING BY VALUE LEN
- SIZE 1 VAR-1
- SIZE 2 VAR-2
- SIZE 4 VAR-4
- SIZE 8 VAR-8.
- EVALUATE len
- WHEN 1
- DISPLAY '1: ' VAR-1 END-DISPLAY
- WHEN 2
- DISPLAY '2: ' VAR-2 END-DISPLAY
- WHEN 4
- DISPLAY '4: ' VAR-4 END-DISPLAY
- WHEN 8
- DISPLAY '8: ' VAR-8 END-DISPLAY
- END-EVALUATE
- EXIT PROGRAM.
- END PROGRAM prog2.
-_ATEOF
-
-
-# hack for now: explicit suppress warning
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:1999: \$COMPILE -Wno-unfinished prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -Wno-unfinished prog.cob" "run_extensions.at:1999"
-( $at_check_trace; $COMPILE -Wno-unfinished prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:1999"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2001: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:2001"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "4: +0000000001
-1: +002
-2: +00003
-4: +0000000004
-8: +00000000000000000005
-4: +0000000006
-4: +0000000007
-1: +002
-2: +00003
-4: +0000000004
-8: +00000000000000000005
-4: +0000000006
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2001"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1140
-#AT_START_1141
-at_fn_group_banner 1141 'run_extensions.at:2019' \
- "CALL BY VALUE to C" " " 4
-at_xfail=no
-(
- printf "%s\n" "1141. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 CALL-NAME PIC X(10).
- 01.
- 03 SOME-FILL PIC X(33).
- 03 ADR-PTR USAGE POINTER.
- 03 ADR-BUFFER REDEFINES ADR-PTR USAGE COMP-5 PIC S9(8).
- 77 BIG-BUFF USAGE COMP-5 PIC S9(18) VALUE 99999999999999.
- PROCEDURE DIVISION CHAINING CALL-NAME.
-
- >> IF P64 DEFINED
- MOVE "callee64" TO CALL-NAME
- >> ELSE
- MOVE "callee32" TO CALL-NAME
- >> END-IF
-
- MOVE 12345678 TO ADR-BUFFER
- CALL CALL-NAME USING BY VALUE ADR-PTR
-
- CALL CALL-NAME USING BY VALUE ADR-BUFFER
-
- CALL CALL-NAME USING BY VALUE LENGTH OF SOME-FILL
-
- MOVE -42 TO ADR-BUFFER
- >> IF P64 DEFINED
- CALL "callee32" USING BY VALUE SIZE 4 ADR-BUFFER
- CALL "callee64" USING BY VALUE BIG-BUFF
- >> ELSE
- CALL "callee32" USING BY VALUE ADR-BUFFER
- CALL "callee64" USING BY VALUE SIZE 8 BIG-BUFF
- >> END-IF
-
- GOBACK.
-_ATEOF
-
-# hack for now: explicit suppress warning
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2060: \$COMPILE -Wno-unfinished caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE -Wno-unfinished caller.cob" "run_extensions.at:2060"
-( $at_check_trace; $COMPILE -Wno-unfinished caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2060"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >callee64.c <<'_ATEOF'
-
-#include <stdio.h>
-#include <libcob.h>
-
-COB_EXT_EXPORT int
-callee64(cob_s64_t val)
-{
- printf("VAL received: " CB_FMT_LLD "\n", val);
- return 0;
-}
-_ATEOF
-
-
-cat >callee32.c <<'_ATEOF'
-
-#include <stdio.h>
-#include <libcob.h>
-
-COB_EXT_EXPORT int
-callee32(cob_s32_t val)
-{
- printf("VAL received: %d\n", val);
- return 0;
-}
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2086: \$COMPILE_MODULE callee32.c callee64.c"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee32.c callee64.c" "run_extensions.at:2086"
-( $at_check_trace; $COMPILE_MODULE callee32.c callee64.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2086"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2088: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_extensions.at:2088"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "VAL received: 12345678
-VAL received: 12345678
-VAL received: 33
-VAL received: -42
-VAL received: 99999999999999
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2088"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1141
-#AT_START_1142
-at_fn_group_banner 1142 'run_extensions.at:2101' \
- "Case-sensitive PROGRAM-ID" " " 4
-at_xfail=no
-(
- printf "%s\n" "1142. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. PROG.
- PROCEDURE DIVISION.
- CALL "prog"
- END-CALL.
- STOP RUN.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- EXIT PROGRAM.
- END PROGRAM prog.
- END PROGRAM PROG.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2118: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:2118"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2118"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2119: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:2119"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2119"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1142
-#AT_START_1143
-at_fn_group_banner 1143 'run_extensions.at:2126' \
- "Quoted PROGRAM-ID" " " 4
-at_xfail=no
-(
- printf "%s\n" "1143. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. "caller".
- PROCEDURE DIVISION.
- CALL "callee"
- END-CALL.
- STOP RUN.
- PROGRAM-ID. "callee".
- PROCEDURE DIVISION.
- EXIT PROGRAM.
- END PROGRAM callee.
- END PROGRAM caller.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2143: \$COMPILE -w prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -w prog.cob" "run_extensions.at:2143"
-( $at_check_trace; $COMPILE -w prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2143"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2144: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:2144"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2144"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1143
-#AT_START_1144
-at_fn_group_banner 1144 'run_extensions.at:2149' \
- "PROGRAM-ID AS clause" " " 4
-at_xfail=no
-(
- printf "%s\n" "1144. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller AS "PROG".
- PROCEDURE DIVISION.
- CALL "prog"
- END-CALL.
- STOP RUN.
- PROGRAM-ID. callee AS "prog".
- PROCEDURE DIVISION.
- EXIT PROGRAM.
- END PROGRAM callee.
- END PROGRAM caller.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2166: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:2166"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2166"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2167: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:2167"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2167"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1144
-#AT_START_1145
-at_fn_group_banner 1145 'run_extensions.at:2172' \
- "NUMBER-OF-CALL-PARAMETERS" " " 4
-at_xfail=no
-(
- printf "%s\n" "1145. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 W PIC X.
- 01 X PIC X.
- 01 Y PIC X.
- 01 Z PIC X.
- PROCEDURE DIVISION
- USING OPTIONAL W
- X Y Z.
- DISPLAY NUMBER-OF-CALL-PARAMETERS.
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 W PIC X.
- 01 X PIC X.
- 01 Y PIC X.
- 01 Z PIC X.
- PROCEDURE DIVISION.
- CALL "callee".
- CALL "callee" USING W.
- CALL "callee" USING W X.
- CALL "callee" USING W X Y.
- CALL "callee" USING W X Y OMITTED.
- CALL "callee" USING W X Y Z.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2210: \$COMPILE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE caller.cob" "run_extensions.at:2210"
-( $at_check_trace; $COMPILE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2210"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# having USING OPTIONAL not supported leads to only check on use
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2213: \$COMPILE_MODULE -fusing-optional=skip callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE -fusing-optional=skip callee.cob" "run_extensions.at:2213"
-( $at_check_trace; $COMPILE_MODULE -fusing-optional=skip callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2213"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2214: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_extensions.at:2214"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "+000000000
-+000000001
-+000000002
-+000000003
-+000000004
-+000000004
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2214"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# no argument check leads to only check on use
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2224: \$COMPILE_MODULE -fno-ec=program-arg-mismatch callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE -fno-ec=program-arg-mismatch callee.cob" "run_extensions.at:2224"
-( $at_check_trace; $COMPILE_MODULE -fno-ec=program-arg-mismatch callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2224"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2225: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_extensions.at:2225"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "+000000000
-+000000001
-+000000002
-+000000003
-+000000004
-+000000004
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2225"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# sticky linkage leads to only check on use
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2235: \$COMPILE_MODULE -fsticky-linkage callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE -fsticky-linkage callee.cob" "run_extensions.at:2235"
-( $at_check_trace; $COMPILE_MODULE -fsticky-linkage callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2235"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2236: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_extensions.at:2236"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "+000000000
-+000000001
-+000000002
-+000000003
-+000000004
-+000000004
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2236"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2245: \$COMPILE_MODULE callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee.cob" "run_extensions.at:2245"
-( $at_check_trace; $COMPILE_MODULE callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2245"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2246: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_extensions.at:2246"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: callee.cob:12: error: LINKAGE item X not passed by caller
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_extensions.at:2246"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1145
-#AT_START_1146
-at_fn_group_banner 1146 'run_extensions.at:2253' \
- "TALLY register" " " 4
-at_xfail=no
-(
- printf "%s\n" "1146. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- PROCEDURE DIVISION.
- ADD 1 TO TALLY.
- CALL "nested".
- STOP RUN.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. nested.
- PROCEDURE DIVISION.
- DISPLAY tally WITH NO ADVANCING.
- GOBACK.
- END PROGRAM nested.
-_ATEOF
-
-
-#FIXME: Should get a dialect check in syntax checks,
-# along with all other special registers
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2274: \$COMPILE_ONLY -fnot-register=TALLY prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE_ONLY -fnot-register=TALLY prog.cob" "run_extensions.at:2274"
-( $at_check_trace; $COMPILE_ONLY -fnot-register=TALLY prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:5: error: 'TALLY' is not defined
-prog.cob:12: error: 'tally' is not defined
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_extensions.at:2274"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2279: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:2279"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2279"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2280: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:2280"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "00001" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2280"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1146
-#AT_START_1147
-at_fn_group_banner 1147 'run_extensions.at:2285' \
- "Redefining TALLY" " " 4
-at_xfail=no
-(
- printf "%s\n" "1147. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 tally PIC 999 VALUE 1.
-
- PROCEDURE DIVISION.
- ADD 1 TO tally
- DISPLAY tally UPON SYSOUT
- .
-_ATEOF
-
-
-
-#FIXME: Should get a dialect check in syntax checks,
-# along with all other special registers
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2305: \$COMPILE -std=ibm-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=ibm-strict prog.cob" "run_extensions.at:2305"
-( $at_check_trace; $COMPILE -std=ibm-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo stderr:; cat "$at_stderr"
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_extensions.at:2305"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2306: \$COMPILE -std=acu-strict prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=acu-strict prog.cob" "run_extensions.at:2306"
-( $at_check_trace; $COMPILE -std=acu-strict prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2306"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-#AT_CHECK([$COMPILE -std=ibm prog.cob], [0], [], [])
-#AT_CHECK([$COMPILE -std=ibm-strict prog.cob], [1], [],
-#[prog.cob:7: error: redefinition of register 'TALLY'
-#])
-#AT_CHECK([$COMPILE prog.cob], [0], [], [])
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2312: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:2312"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "002
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2312"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1147
-#AT_START_1148
-at_fn_group_banner 1148 'run_extensions.at:2321' \
- "PROCEDURE DIVISION USING BY ..." " " 4
-at_xfail=no
-(
- printf "%s\n" "1148. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- DATA DIVISION.
- LINKAGE SECTION.
- 01 X PIC X.
- 01 Y PIC 99.
- 01 Z PIC 99 USAGE COMP.
- PROCEDURE DIVISION
- USING BY VALUE X BY REFERENCE Y Z.
- MOVE "Z" TO X.
- MOVE 56 TO Y.
- MOVE 78 TO Z.
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X.
- 01 Y PIC 99.
- 01 Z PIC 99 USAGE COMP.
- PROCEDURE DIVISION.
- MOVE "X" TO X.
- MOVE 12 TO Y.
- MOVE 34 TO Z.
- CALL "callee" USING BY CONTENT X
- BY REFERENCE Y
- BY CONTENT Z
- END-CALL.
- IF X NOT = "X" OR
- Y NOT = 56 OR
- Z NOT = 34
- DISPLAY "X = " X " Y = " Y " Z = " Z
- END-DISPLAY
- END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2365: \$COMPILE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE caller.cob" "run_extensions.at:2365"
-( $at_check_trace; $COMPILE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2365"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2366: \$COMPILE_MODULE callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee.cob" "run_extensions.at:2366"
-( $at_check_trace; $COMPILE_MODULE callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "callee.cob:10: warning: handling of parameters passed BY VALUE is unfinished; implementation is likely to be changed
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2366"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2369: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_extensions.at:2369"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2369"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1148
-#AT_START_1149
-at_fn_group_banner 1149 'run_extensions.at:2374' \
- "PROCEDURE DIVISION CHAINING" " " 4
-at_xfail=no
-(
- printf "%s\n" "1149. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X.
- 01 ABCD PIC X(4).
- 01 NUM PIC 9 VALUE 7.
- PROCEDURE DIVISION
- CHAINING X ABCD NUM.
- IF X NOT = "X" OR
- ABCD NOT = "ABCD"
- DISPLAY "X = " X " ABCD = " ABCD
- END-DISPLAY
- END-IF
- IF NUM NOT = 7
- DISPLAY "NUM not INITIALIZED: " NUM
- END-DISPLAY
- END-IF
- STOP RUN.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 VAR.
- 03 X PIC X VALUE 'a'.
- 03 ABCD PIC X(4).
- 03 NUM PIC 9 VALUE 7.
- PROCEDURE DIVISION
- CHAINING VAR.
- DISPLAY '-' VAR '-' WITH NO ADVANCING
- END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-cat >prog3.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X.
- 01 ABCD PIC X(4).
- 01 NUM PIC 9 VALUE 7.
- PROCEDURE DIVISION
- CHAINING X ABCD NUM.
- IF X NOT = "X" OR
- ABCD NOT = "ABCD"
- DISPLAY "X = " X " ABCD = " ABCD
- END-DISPLAY
- END-IF
- IF NUM NOT = 7
- DISPLAY "NUM not INITIALIZED: " NUM
- END-DISPLAY
- END-IF
- STOP RUN.
-_ATEOF
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- DATA DIVISION.
- PROCEDURE DIVISION.
- CALL "prog3" USING "X ABCD" END-CALL
- STOP RUN.
-_ATEOF
-
-
-cat >init.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. init.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 VAR.
- 03 X PIC X VALUE 'a'.
- 03 ABCD PIC X(4).
- 03 NUM PIC 9 VALUE 7.
- 77 NUM2 PIC 99 VALUE 2.
- PROCEDURE DIVISION
- CHAINING VAR.
- DISPLAY '-' VAR NUM2 '-' WITH NO ADVANCING
- END-DISPLAY
- INITIALIZE VAR NUM2
- DISPLAY '-' VAR NUM2 '-' WITH NO ADVANCING
- MOVE 'XXXX' TO ABCD
- INITIALIZE VAR NUM2 ALL TO VALUE
- DISPLAY '-' VAR NUM2 '-' WITH NO ADVANCING
- MOVE ALL 'b' TO ABCD
- INITIALIZE VAR NUM2 ALL TO VALUE THEN TO DEFAULT
- DISPLAY '-' VAR NUM2 '-' WITH NO ADVANCING
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2471: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:2471"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2471"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2472: \$COBCRUN_DIRECT ./prog X ABCD"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog X ABCD" "run_extensions.at:2472"
-( $at_check_trace; $COBCRUN_DIRECT ./prog X ABCD
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2472"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# note: sticky linkage and CHAINING produced compiler errors
-# --> additional test
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2476: \$COMPILE prog.cob -fsticky-linkage -o prog_sticky"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob -fsticky-linkage -o prog_sticky" "run_extensions.at:2476"
-( $at_check_trace; $COMPILE prog.cob -fsticky-linkage -o prog_sticky
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2476"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2477: \$COBCRUN_DIRECT ./prog_sticky X ABCD"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog_sticky X ABCD" "run_extensions.at:2477"
-( $at_check_trace; $COBCRUN_DIRECT ./prog_sticky X ABCD
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2477"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2479: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_extensions.at:2479"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2479"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2480: \$COBCRUN_DIRECT ./prog2 X"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2 X" "run_extensions.at:2480"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2 X
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "-X -" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2480"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2481: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "run_extensions.at:2481"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "-a 7-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2481"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2483: \$COMPILE_MODULE prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE prog3.cob" "run_extensions.at:2483"
-( $at_check_trace; $COMPILE_MODULE prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2483"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2484: \$COBCRUN prog3 X ABCD"
-at_fn_check_prepare_dynamic "$COBCRUN prog3 X ABCD" "run_extensions.at:2484"
-( $at_check_trace; $COBCRUN prog3 X ABCD
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2484"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2486: \$COMPILE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE caller.cob" "run_extensions.at:2486"
-( $at_check_trace; $COMPILE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2486"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2487: \$COBCRUN_DIRECT ./caller X ABCD"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller X ABCD" "run_extensions.at:2487"
-( $at_check_trace; $COBCRUN_DIRECT ./caller X ABCD
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: caller.cob:6: error: CALL of program with CHAINING clause
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_extensions.at:2487"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2491: \$COMPILE init.cob"
-at_fn_check_prepare_dynamic "$COMPILE init.cob" "run_extensions.at:2491"
-( $at_check_trace; $COMPILE init.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2491"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2492: \$COBCRUN_DIRECT ./init X"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./init X" "run_extensions.at:2492"
-( $at_check_trace; $COBCRUN_DIRECT ./init X
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "-X 02-- 000--aXXXX702--a 702-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2492"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1149
-#AT_START_1150
-at_fn_group_banner 1150 'run_extensions.at:2497' \
- "STOP RUN RETURNING/GIVING" " " 4
-at_xfail=no
-(
- printf "%s\n" "1150. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog1.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog1.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 RET PIC 99 USAGE DISPLAY.
- PROCEDURE DIVISION.
- MOVE 11 TO RET
- STOP RUN RETURNING RET.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 RET PIC 99 USAGE PACKED-DECIMAL.
- PROCEDURE DIVISION.
- MOVE 22 TO RET
- STOP RUN GIVING RET.
-_ATEOF
-
-
-cat >prog3.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- STOP RUN 33.
-_ATEOF
-
-
-cat >prog4.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog4.
- PROCEDURE DIVISION.
- STOP RUN RETURNING 44.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2538: \$COMPILE prog1.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog1.cob" "run_extensions.at:2538"
-( $at_check_trace; $COMPILE prog1.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2538"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2539: \$COBCRUN_DIRECT ./prog1"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog1" "run_extensions.at:2539"
-( $at_check_trace; $COBCRUN_DIRECT ./prog1
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 11 $at_status "$at_srcdir/run_extensions.at:2539"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2541: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_extensions.at:2541"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2541"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2542: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "run_extensions.at:2542"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 22 $at_status "$at_srcdir/run_extensions.at:2542"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2544: \$COMPILE prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog3.cob" "run_extensions.at:2544"
-( $at_check_trace; $COMPILE prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2544"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2545: \$COBCRUN_DIRECT ./prog3"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog3" "run_extensions.at:2545"
-( $at_check_trace; $COBCRUN_DIRECT ./prog3
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 33 $at_status "$at_srcdir/run_extensions.at:2545"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2547: \$COMPILE prog4.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog4.cob" "run_extensions.at:2547"
-( $at_check_trace; $COMPILE prog4.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2547"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2548: \$COBCRUN_DIRECT ./prog4"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog4" "run_extensions.at:2548"
-( $at_check_trace; $COBCRUN_DIRECT ./prog4
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 44 $at_status "$at_srcdir/run_extensions.at:2548"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1150
-#AT_START_1151
-at_fn_group_banner 1151 'run_extensions.at:2553' \
- "GOBACK/EXIT PROGRAM RETURNING/GIVING" " " 4
-at_xfail=no
-(
- printf "%s\n" "1151. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 RETURN-DISP PIC S9(08).
- PROCEDURE DIVISION.
- CALL 'prog1' END-CALL
- IF RETURN-CODE NOT = -1
- MOVE RETURN-CODE TO RETURN-DISP
- DISPLAY 'RETURN-CODE ' RETURN-DISP
- ' INSTEAD OF -1'
- END-DISPLAY
- END-IF
- CALL 'prog2' END-CALL
- IF RETURN-CODE NOT = 2
- MOVE RETURN-CODE TO RETURN-DISP
- DISPLAY 'RETURN-CODE ' RETURN-DISP
- ' INSTEAD OF 2'
- END-DISPLAY
- END-IF
- STOP RUN.
-_ATEOF
-
-
-cat >prog1.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog1.
- PROCEDURE DIVISION.
- EXIT PROGRAM RETURNING -1.
-_ATEOF
-
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- PROCEDURE DIVISION.
- GOBACK GIVING 2.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2595: \$COMPILE prog.cob prog1.cob prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob prog1.cob prog2.cob" "run_extensions.at:2595"
-( $at_check_trace; $COMPILE prog.cob prog1.cob prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2595"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2596: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:2596"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 2 $at_status "$at_srcdir/run_extensions.at:2596"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1151
-#AT_START_1152
-at_fn_group_banner 1152 'run_extensions.at:2603' \
- "ENTRY" " " 4
-at_xfail=no
-(
- printf "%s\n" "1152. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- PROCEDURE DIVISION.
- CALL "hello" USING "COBOL"
- END-CALL.
- CALL "bye" USING "COBOL-ENTRY"
- END-CALL.
- STOP RUN.
-_ATEOF
-
-
-cat >hello.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. hello.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 MSG-HELLO PIC X(7) VALUE "Hello, ".
- 01 MSG-BYE PIC X(5) VALUE "Bye, ".
- LINKAGE SECTION.
- 01 X PIC X(5).
- 01 Y PIC X(11).
- PROCEDURE DIVISION USING X.
- DISPLAY MSG-HELLO X "!".
- * verifies that this does not generate an exception
- ENTRY "unused" USING Y.
- EXIT PROGRAM.
-
- ENTRY "bye" USING Y.
- DISPLAY MSG-BYE Y "!".
- EXIT PROGRAM.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2638: \$COMPILE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE caller.cob" "run_extensions.at:2638"
-( $at_check_trace; $COMPILE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2638"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2639: \$COMPILE_MODULE -fentry-statement=ok hello.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE -fentry-statement=ok hello.cob" "run_extensions.at:2639"
-( $at_check_trace; $COMPILE_MODULE -fentry-statement=ok hello.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2639"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2640: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_extensions.at:2640"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Hello, COBOL!
-Bye, COBOL-ENTRY!
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2640"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# no difference expected with sticky linkage (but other codegen)
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2645: \$COMPILE_MODULE -fentry-statement=ok -fsticky-linkage hello.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE -fentry-statement=ok -fsticky-linkage hello.cob" "run_extensions.at:2645"
-( $at_check_trace; $COMPILE_MODULE -fentry-statement=ok -fsticky-linkage hello.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2645"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2646: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_extensions.at:2646"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Hello, COBOL!
-Bye, COBOL-ENTRY!
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2646"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1152
-#AT_START_1153
-at_fn_group_banner 1153 'run_extensions.at:2654' \
- "ASSIGN to KEYBOARD/DISPLAY" " " 4
-at_xfail=no
-(
- printf "%s\n" "1153. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >TEST-FILE <<'_ATEOF'
-a
-ab
-abc
-abcd
-abcde
-abcdef
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN KEYBOARD
- ORGANIZATION IS LINE SEQUENTIAL.
- SELECT TEST-OUT ASSIGN DISPLAY
- ORGANIZATION IS LINE SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(80).
- FD TEST-OUT.
- 01 TEST-REC-OUT PIC X(80).
- PROCEDURE DIVISION.
- A00.
- OPEN INPUT TEST-FILE.
- OPEN OUTPUT TEST-OUT.
- A01.
- READ TEST-FILE AT END
- GO TO Z99
- END-READ.
- WRITE TEST-REC-OUT FROM TEST-REC
- END-WRITE.
- GO TO A01.
- Z99.
- CLOSE TEST-FILE.
- CLOSE TEST-OUT.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2699: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:2699"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2699"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2700: cat TEST-FILE | \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_notrace 'a shell pipeline' "run_extensions.at:2700"
-( $at_check_trace; cat TEST-FILE | $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "a
-ab
-abc
-abcd
-abcde
-abcdef
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2700"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1153
-#AT_START_1154
-at_fn_group_banner 1154 'run_extensions.at:2712' \
- "SORT ASSIGN KEYBOARD to ASSIGN DISPLAY" " " 4
-at_xfail=yes
-(
- printf "%s\n" "1154. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# GC has an extension "SORT FILES always in memory" and therefore didn't
-# used the ASSIGN clause (which should be mandatory) for SORT files at all.
-# We should add an according test and change the test here after cleanup,
-# officially documenting the "ASSIGN clause not necessary for SORT FILES"
-# extension and enable it only with a conf entry (set only in default.conf).
-
-
-cat >TEST-FILE <<'_ATEOF'
-9
-22
-11
-0
-00
-8
-77
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN KEYBOARD
- ORGANIZATION IS LINE SEQUENTIAL.
- SELECT TEST-OUT ASSIGN DISPLAY
- ORGANIZATION IS LINE SEQUENTIAL.
- SELECT SORT-FILE.
- DATA DIVISION.
- FILE SECTION.
- FD TEST-FILE.
- 01 TEST-REC PIC X(80).
- FD TEST-OUT.
- 01 TEST-REC-OUT PIC X(80).
- SD SORT-FILE.
- 01 SORT-REC PIC X(80).
- PROCEDURE DIVISION.
- A00.
- SORT SORT-FILE
- ON ASCENDING SORT-REC
- USING TEST-FILE
- GIVING TEST-OUT.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2760: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:2760"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2760"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2761: cat TEST-FILE | \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_notrace 'a shell pipeline' "run_extensions.at:2761"
-( $at_check_trace; cat TEST-FILE | $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "0
-00
-11
-22
-77
-8
-9
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2761"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1154
-#AT_START_1155
-at_fn_group_banner 1155 'run_extensions.at:2774' \
- "Environment/Argument variable" " " 4
-at_xfail=no
-(
- printf "%s\n" "1155. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4).
- 01 Y PIC X(8).
- 01 Z PIC 9(4).
- PROCEDURE DIVISION.
- DISPLAY "TEST_ENV" UPON ENVIRONMENT-NAME
- END-DISPLAY.
- ACCEPT X FROM ENVIRONMENT-VALUE
- END-ACCEPT.
- DISPLAY "(" X ")"
- END-DISPLAY.
- DISPLAY "RXW" UPON ENVIRONMENT-VALUE
- END-DISPLAY.
- ACCEPT X FROM ENVIRONMENT-VALUE
- END-ACCEPT.
- DISPLAY "(" X ")"
- END-DISPLAY.
- ACCEPT Y FROM ARGUMENT-VALUE
- END-ACCEPT.
- DISPLAY "(" Y ")"
- END-DISPLAY.
- ACCEPT Z FROM ARGUMENT-NUMBER
- END-ACCEPT.
- DISPLAY "(" Z ")"
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2809: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:2809"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2809"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2810: TEST_ENV=OK \$COBCRUN_DIRECT ./prog CHECKPAR"
-at_fn_check_prepare_dynamic "TEST_ENV=OK $COBCRUN_DIRECT ./prog CHECKPAR" "run_extensions.at:2810"
-( $at_check_trace; TEST_ENV=OK $COBCRUN_DIRECT ./prog CHECKPAR
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "(OK )
-(RXW )
-(CHECKPAR)
-(0001)
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2810"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1155
-#AT_START_1156
-at_fn_group_banner 1156 'run_extensions.at:2820' \
- "78 Level (1)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1156. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 78 X VALUE "OK".
- PROCEDURE DIVISION.
- DISPLAY X
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2835: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:2835"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2835"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2836: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:2836"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2836"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1156
-#AT_START_1157
-at_fn_group_banner 1157 'run_extensions.at:2843' \
- "78 Level (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1157. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Z.
- 78 X VALUE "OK".
- 78 Y VALUE "OK".
- 03 FILLER PIC XX VALUE "OK".
- PROCEDURE DIVISION.
- DISPLAY X Z Y
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2861: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:2861"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2861"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2862: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:2862"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OKOKOK
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2862"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1157
-#AT_START_1158
-at_fn_group_banner 1158 'run_extensions.at:2869' \
- "78 Level (3)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1158. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 78 X VALUE "OK".
- 01 Z PIC XX VALUE "OK".
- PROCEDURE DIVISION.
- DISPLAY Z X
- END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2885: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:2885"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2885"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2886: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:2886"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OKOK
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2886"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1158
-#AT_START_1159
-at_fn_group_banner 1159 'run_extensions.at:2893' \
- "SWITCHES with non-standard names" " " 4
-at_xfail=no
-(
- printf "%s\n" "1159. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- SW1
- ON IS SWIT1-ON
- OFF IS SWIT1-OFF
- .
- SWITCH B IS SWITCH-B
- ON IS SWIT2-ON
- OFF IS SWIT2-OFF
- .
- SWITCH 25
- ON IS SWIT25-ON
- OFF IS SWIT25-OFF
- .
- SWITCH Z
- ON IS SWIT26-ON
- OFF IS SWIT26-OFF
- .
- USW-31
- ON IS SWIT31-ON
- OFF IS SWIT31-OFF
- .
- SWITCH-32
- ON IS SWIT32-ON
- OFF IS SWIT32-OFF
- .
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 SWITCH PIC 99 VALUE 12.
- 78 Z VALUE 11.
- PROCEDURE DIVISION.
- ADD SWITCH 1 GIVING SWITCH
- END-ADD.
- IF SWITCH NOT = 13
- DISPLAY "SWITCH (variable) + 1 WRONG: "
- SWITCH
- END-DISPLAY
- END-IF.
- ADD SWITCH Z GIVING SWITCH
- END-ADD.
- IF SWITCH NOT = 24
- DISPLAY "SWITCH (variable) + Z WRONG: "
- SWITCH
- END-DISPLAY
- END-IF.
- IF SWIT1-ON
- DISPLAY "ON" NO ADVANCING
- END-DISPLAY
- ELSE
- DISPLAY "OFF" NO ADVANCING
- END-DISPLAY
- END-IF.
- IF SWIT2-ON
- DISPLAY " ON" NO ADVANCING
- END-DISPLAY
- ELSE
- DISPLAY " OFF" NO ADVANCING
- END-DISPLAY
- END-IF.
- SET SWITCH-B TO OFF
- IF SWIT2-ON
- DISPLAY " ON" NO ADVANCING
- END-DISPLAY
- ELSE
- DISPLAY " OFF" NO ADVANCING
- END-DISPLAY
- END-IF.
- IF SWIT25-ON
- DISPLAY " ON" NO ADVANCING
- END-DISPLAY
- ELSE
- DISPLAY " OFF" NO ADVANCING
- END-DISPLAY
- END-IF.
- IF SWIT26-ON
- DISPLAY " ON" NO ADVANCING
- END-DISPLAY
- ELSE
- DISPLAY " OFF" NO ADVANCING
- END-DISPLAY
- END-IF.
- IF SWIT31-ON
- DISPLAY " ON" NO ADVANCING
- END-DISPLAY
- ELSE
- DISPLAY " OFF" NO ADVANCING
- END-DISPLAY
- END-IF.
- IF SWIT32-ON
- DISPLAY " ON" NO ADVANCING
- END-DISPLAY
- ELSE
- DISPLAY " OFF" NO ADVANCING
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:2998: \$COMPILE -fsystem-name=\"sw1, SwItCh\\ b, SWITCH\\ 25\" \\
--fsystem-name=SWITCH-32 -fsystem-name=\"SWITCH\\ Z\" -fsystem-name=USW-31 prog.cob"
-at_fn_check_prepare_notrace 'an embedded newline' "run_extensions.at:2998"
-( $at_check_trace; $COMPILE -fsystem-name="sw1, SwItCh\ b, SWITCH\ 25" \
--fsystem-name=SWITCH-32 -fsystem-name="SWITCH\ Z" -fsystem-name=USW-31 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:2998"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3000: COB_SWITCH_12=1 COB_SWITCH_36=1 COB_SWITCH_31=1 COB_SWITCH_32=1 ./prog"
-at_fn_check_prepare_trace "run_extensions.at:3000"
-( $at_check_trace; COB_SWITCH_12=1 COB_SWITCH_36=1 COB_SWITCH_31=1 COB_SWITCH_32=1 ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OFF ON OFF OFF ON ON ON" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3000"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1159
-#AT_START_1160
-at_fn_group_banner 1160 'run_extensions.at:3006' \
- "Larger REDEFINES lengths" " " 4
-at_xfail=no
-(
- printf "%s\n" "1160. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Z PIC 99.
- 01 XMAIN PIC X(8).
- 01 XMAINRED REDEFINES XMAIN.
- 03 FILLER PIC X(4).
- 03 XMAIN03.
- 05 XMAIN0501 PIC X(4).
- 05 XMAIN0502 REDEFINES XMAIN0501 PIC X(5).
- 01 USE-VARS.
- 05 USE-VALUE PIC 9
- VALUE ZERO.
- 88 USE-ACTIVE-FIRST VALUE 1.
- 88 USE-ACTIVE-SECOND VALUE 2.
- 05 USE-FIRST.
- 10 FIRST-DATA.
- 20 FIRST-DATA-VAR PIC X(033).
- 10 FIRST-VARIANT-A REDEFINES FIRST-DATA.
- 20 PART-A-FIRST PIC X(33211).
- 10 FIRST-VARIANT-B REDEFINES FIRST-DATA.
- 20 PART-B-FIRST PIC X(24561).
- 10 FIRST-VARIANT-C REDEFINES FIRST-DATA.
- 20 PART-C-FIRST PIC X(3421).
- 05 USE-SECOND REDEFINES USE-FIRST.
- 10 SECOND-HEADER.
- 20 SECOND-DATA PIC 9(015).
- 20 SECOND-CONTROL-SUM PIC 9(015)V9(003).
- 10 SECOND-VARIANT-A REDEFINES SECOND-HEADER.
- 20 PART-A-SECOND PIC X(27241).
- 10 SECOND-VARIANT-B REDEFINES SECOND-HEADER.
- 20 PART-B-SECOND PIC X(3879).
- PROCEDURE DIVISION.
- MOVE LENGTH OF XMAIN TO Z.
- IF Z NOT = 8
- DISPLAY "Test 1 " Z.
- MOVE LENGTH OF XMAINRED TO Z.
- IF Z NOT = 9
- DISPLAY "Test 2 " Z.
- MOVE LENGTH OF XMAIN03 TO Z.
- IF Z NOT = 5
- DISPLAY "Test 3 " Z.
- MOVE LENGTH OF XMAIN0501 TO Z.
- IF Z NOT = 4
- DISPLAY "Test 4 " Z.
- MOVE LENGTH OF XMAIN0502 TO Z.
- IF Z NOT = 5
- DISPLAY "Test 5 " Z.
- IF LENGTH OF USE-FIRST NOT = 33211
- DISPLAY LENGTH OF USE-FIRST END-DISPLAY.
- IF LENGTH OF USE-SECOND NOT = 27241
- DISPLAY LENGTH OF USE-SECOND END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3066: \$COMPILE -flarger-redefines=ok -w prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -flarger-redefines=ok -w prog.cob" "run_extensions.at:3066"
-( $at_check_trace; $COMPILE -flarger-redefines=ok -w prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3066"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3067: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:3067"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3067"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1160
-#AT_START_1161
-at_fn_group_banner 1161 'run_extensions.at:3071' \
- "REDEFINES: non-referenced ambiguous item" " " 4
-at_xfail=no
-(
- printf "%s\n" "1161. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# bad extension, supported for compatibility to at least MicroFocus
-# the redefines always applies to the item defined before
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X value '1'.
- 01 X PIC X value '2'.
- 01 G REDEFINES X PIC 9.
- PROCEDURE DIVISION.
- IF G NOT = 2
- DISPLAY 'G IS ' G.
- STOP RUN.
-_ATEOF
-
-
-# syntax checked in syn_definition.at
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3092: \$COMPILE -w prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -w prog.cob" "run_extensions.at:3092"
-( $at_check_trace; $COMPILE -w prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3092"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3093: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:3093"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3093"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1161
-#AT_START_1162
-at_fn_group_banner 1162 'run_extensions.at:3097' \
- "Obsolete 2002 keywords with COBOL2014" " " 4
-at_xfail=no
-(
- printf "%s\n" "1162. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TERMINAL PIC XX VALUE "OK".
- 01 SEND PIC XX VALUE "OK".
- PROCEDURE DIVISION.
- DISPLAY TERMINAL SEND.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3112: \$COMPILE -std=cobol2002 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=cobol2002 prog.cob" "run_extensions.at:3112"
-( $at_check_trace; $COMPILE -std=cobol2002 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:6: error: syntax error, unexpected TERMINAL
-prog.cob:7: error: syntax error, unexpected SEND
-prog.cob:9: error: syntax error, unexpected TERMINAL, expecting (
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_extensions.at:3112"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3117: \$COMPILE -std=cobol2014 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=cobol2014 prog.cob" "run_extensions.at:3117"
-( $at_check_trace; $COMPILE -std=cobol2014 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3117"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3118: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:3118"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OKOK
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3118"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1162
-#AT_START_1163
-at_fn_group_banner 1163 'run_extensions.at:3127' \
- "System routine with wrong number of parameters" " " 4
-at_xfail=no
-(
- printf "%s\n" "1163. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 N PIC 9 USAGE BINARY.
- 77 X PIC X.
- PROCEDURE DIVISION.
- CALL "C$NARG" USING N X
- END-CALL
- IF N NOT = 2
- DISPLAY "NOTOK " N
- END-DISPLAY
- END-IF
- STOP RUN.
-_ATEOF
-
-
-cat >wrong.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. wrong.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 X PIC X.
- PROCEDURE DIVISION.
- CALL "CBL_OR" USING X
- END-CALL
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3159: \$COMPILE wrong.cob"
-at_fn_check_prepare_dynamic "$COMPILE wrong.cob" "run_extensions.at:3159"
-( $at_check_trace; $COMPILE wrong.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "wrong.cob:8: error: wrong number of CALL parameters for 'CBL_OR', 1 given, 3 expected
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_extensions.at:3159"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3162: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:3162"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob:9: warning: wrong number of CALL parameters for 'C\$NARG', 2 given, 1 expected
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3162"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3165: \$COBCRUN_DIRECT ./prog 1 2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog 1 2" "run_extensions.at:3165"
-( $at_check_trace; $COBCRUN_DIRECT ./prog 1 2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3165"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1163
-#AT_START_1164
-at_fn_group_banner 1164 'run_extensions.at:3170' \
- "System routine C\$NARG" " " 4
-at_xfail=no
-(
- printf "%s\n" "1164. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X USAGE BINARY-LONG.
- LINKAGE SECTION.
- 01 Y PIC X.
- PROCEDURE DIVISION USING Y.
- CALL "C$NARG" USING X
- END-CALL
- IF X NOT = 1
- DISPLAY "NOTOK callee " X
- END-DISPLAY
- END-IF
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X VALUE "X".
- 01 N PIC 9 USAGE BINARY.
- LINKAGE SECTION.
- 77 Y PIC X.
- 77 Z PIC X.
- PROCEDURE DIVISION.
- CALL "C$NARG" USING N
- END-CALL
- IF N NOT = 2
- DISPLAY "NOTOK caller (1) " N
- END-DISPLAY
- END-IF
- CALL "callee" USING X
- END-CALL
- CALL "C$NARG" USING N
- END-CALL
- IF N NOT = 2
- DISPLAY "NOTOK caller (2) " N
- END-DISPLAY
- END-IF
- STOP RUN.
-_ATEOF
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 N PIC 9 USAGE BINARY.
- LINKAGE SECTION.
- 77 X PIC X.
- 77 Y PIC X.
- 77 Z PIC X.
- PROCEDURE DIVISION.
- CALL "C$NARG" USING N
- END-CALL
- DISPLAY N WITH NO ADVANCING
- END-DISPLAY
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3237: \$COMPILE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE caller.cob" "run_extensions.at:3237"
-( $at_check_trace; $COMPILE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3237"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3238: \$COMPILE_MODULE callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee.cob" "run_extensions.at:3238"
-( $at_check_trace; $COMPILE_MODULE callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3238"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3239: \$COBCRUN_DIRECT ./caller 1 2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller 1 2" "run_extensions.at:3239"
-( $at_check_trace; $COBCRUN_DIRECT ./caller 1 2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3239"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3240: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:3240"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3240"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3241: \$COBCRUN_DIRECT ./prog \"1 2\""
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog \"1 2\"" "run_extensions.at:3241"
-( $at_check_trace; $COBCRUN_DIRECT ./prog "1 2"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "1" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3241"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3242: \$COBCRUN_DIRECT ./prog 1 2 3"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog 1 2 3" "run_extensions.at:3242"
-( $at_check_trace; $COBCRUN_DIRECT ./prog 1 2 3
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "3" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3242"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1164
-#AT_START_1165
-at_fn_group_banner 1165 'run_extensions.at:3247' \
- "System routine C\$PARAMSIZE" " " 4
-at_xfail=no
-(
- printf "%s\n" "1165. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X USAGE BINARY-LONG.
- LINKAGE SECTION.
- 01 Y PIC X ANY LENGTH.
- PROCEDURE DIVISION USING Y.
- MOVE 1 TO X.
- CALL "C$PARAMSIZE" USING X
- END-CALL.
- IF RETURN-CODE NOT = 2
- DISPLAY "NOTOK " RETURN-CODE
- END-DISPLAY
- END-IF.
- MOVE 0 TO RETURN-CODE.
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC XX VALUE "XY".
- PROCEDURE DIVISION.
- CALL "callee" USING X
- END-CALL.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3282: \$COMPILE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE caller.cob" "run_extensions.at:3282"
-( $at_check_trace; $COMPILE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3282"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3283: \$COMPILE_MODULE callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee.cob" "run_extensions.at:3283"
-( $at_check_trace; $COMPILE_MODULE callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3283"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3284: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_extensions.at:3284"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3284"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1165
-#AT_START_1166
-at_fn_group_banner 1166 'run_extensions.at:3289' \
- "System routine C\$CALLEDBY" " " 4
-at_xfail=no
-(
- printf "%s\n" "1166. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >callee.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. callee.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(6) VALUE "X".
- PROCEDURE DIVISION.
- CALL "C$CALLEDBY" USING X
- END-CALL.
- IF RETURN-CODE = 1 AND
- X = "caller"
- DISPLAY "OK" NO ADVANCING
- END-DISPLAY
- END-IF.
- EXIT PROGRAM.
-_ATEOF
-
-
-cat >caller.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. caller.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(6) VALUE "X".
- PROCEDURE DIVISION.
- CALL "C$CALLEDBY" USING X
- END-CALL.
- IF RETURN-CODE = 0 AND
- X = SPACES
- DISPLAY "OK" NO ADVANCING
- END-DISPLAY
- END-IF.
- CALL "callee"
- END-CALL.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3328: \$COMPILE caller.cob"
-at_fn_check_prepare_dynamic "$COMPILE caller.cob" "run_extensions.at:3328"
-( $at_check_trace; $COMPILE caller.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3328"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3329: \$COMPILE_MODULE callee.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE callee.cob" "run_extensions.at:3329"
-( $at_check_trace; $COMPILE_MODULE callee.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3329"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3330: \$COBCRUN_DIRECT ./caller"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./caller" "run_extensions.at:3330"
-( $at_check_trace; $COBCRUN_DIRECT ./caller
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OKOK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_extensions.at:3330"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1166
-#AT_START_1167
-at_fn_group_banner 1167 'run_extensions.at:3335' \
- "System routine C\$JUSTIFY" " " 4
-at_xfail=no
-(
- printf "%s\n" "1167. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4) VALUE " OK ".
- PROCEDURE DIVISION.
- CALL "C$JUSTIFY" USING X "L"
- END-CALL.
- IF X NOT = "OK "
- DISPLAY X NO ADVANCING
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3354: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:3354"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3354"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3355: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:3355"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3355"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1167
-#AT_START_1168
-at_fn_group_banner 1168 'run_extensions.at:3360' \
- "System routine C\$PRINTABLE" " " 4
-at_xfail=no
-(
- printf "%s\n" "1168. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X.
- 03 X1 PIC X.
- 03 X234 PIC XXX.
- PROCEDURE DIVISION.
- MOVE LOW-VALUE TO X1.
- MOVE "BCD" TO X234.
- CALL "C$PRINTABLE" USING X
- END-CALL.
- IF X NOT = ".BCD"
- DISPLAY X NO ADVANCING
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3383: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:3383"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3383"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3384: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:3384"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3384"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1168
-#AT_START_1169
-at_fn_group_banner 1169 'run_extensions.at:3389' \
- "System routine C\$MAKEDIR" " " 4
-at_xfail=no
-(
- printf "%s\n" "1169. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- CALL "C$MAKEDIR" USING "TMP"
- END-CALL.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3403: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:3403"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3403"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3404: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:3404"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3404"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3405: test -d \"TMP\" && rmdir \"TMP\""
-at_fn_check_prepare_trace "run_extensions.at:3405"
-( $at_check_trace; test -d "TMP" && rmdir "TMP"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3405"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1169
-#AT_START_1170
-at_fn_group_banner 1170 'run_extensions.at:3410' \
- "System routine C\$GETPID" " " 4
-at_xfail=no
-(
- printf "%s\n" "1170. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- CALL "C$GETPID"
- END-CALL.
- IF RETURN-CODE = 0
- DISPLAY "C$GETPID returned zero!"
- END-DISPLAY
- END-IF.
- MOVE 0 TO RETURN-CODE.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3429: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:3429"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3429"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3430: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:3430"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3430"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1170
-#AT_START_1171
-at_fn_group_banner 1171 'run_extensions.at:3435' \
- "System routine C\$TOUPPER" " " 4
-at_xfail=no
-(
- printf "%s\n" "1171. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(2) VALUE "ok".
- PROCEDURE DIVISION.
- CALL "C$TOUPPER" USING X BY VALUE 2
- END-CALL.
- IF X NOT = "OK"
- DISPLAY X NO ADVANCING
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3454: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:3454"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3454"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3455: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:3455"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3455"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1171
-#AT_START_1172
-at_fn_group_banner 1172 'run_extensions.at:3460' \
- "System routine C\$TOLOWER" " " 4
-at_xfail=no
-(
- printf "%s\n" "1172. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(2) VALUE "OK".
- PROCEDURE DIVISION.
- CALL "C$TOLOWER" USING X BY VALUE 2
- END-CALL.
- IF X NOT = "ok"
- DISPLAY X NO ADVANCING
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3479: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:3479"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3479"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3480: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:3480"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3480"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1172
-#AT_START_1173
-at_fn_group_banner 1173 'run_extensions.at:3485' \
- "System routine CBL_OR" " " 4
-at_xfail=no
-(
- printf "%s\n" "1173. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4) VALUE "0000".
- 01 Z PIC X(4) VALUE X"01010101".
- PROCEDURE DIVISION.
- CALL "CBL_OR" USING X Z
- BY VALUE LENGTH OF Z
- END-CALL.
- IF Z NOT = "1111"
- DISPLAY Z NO ADVANCING
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3506: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:3506"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3506"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3507: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:3507"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3507"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1173
-#AT_START_1174
-at_fn_group_banner 1174 'run_extensions.at:3512' \
- "System routine CBL_NOR" " " 4
-at_xfail=no
-(
- printf "%s\n" "1174. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4) VALUE X"03030303".
- 01 Z PIC X(4) VALUE X"05050505".
- PROCEDURE DIVISION.
- CALL "CBL_NOR" USING X Z
- BY VALUE LENGTH OF Z
- END-CALL.
- IF Z NOT = X"F8F8F8F8"
- DISPLAY "NG" NO ADVANCING
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3533: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:3533"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3533"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3534: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:3534"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3534"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1174
-#AT_START_1175
-at_fn_group_banner 1175 'run_extensions.at:3539' \
- "System routine CBL_AND" " " 4
-at_xfail=no
-(
- printf "%s\n" "1175. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4) VALUE "3333".
- 01 Z PIC X(4) VALUE "5555".
- PROCEDURE DIVISION.
- CALL "CBL_AND" USING X Z
- BY VALUE LENGTH OF Z
- END-CALL.
- IF Z NOT = "1111"
- DISPLAY Z NO ADVANCING
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3560: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:3560"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3560"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3561: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:3561"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3561"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1175
-#AT_START_1176
-at_fn_group_banner 1176 'run_extensions.at:3566' \
- "System routine CBL_XOR" " " 4
-at_xfail=no
-(
- printf "%s\n" "1176. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4) VALUE "3333".
- 01 Z PIC X(4) VALUE X"02020202".
- PROCEDURE DIVISION.
- CALL "CBL_XOR" USING X Z
- BY VALUE LENGTH OF Z
- END-CALL.
- IF Z NOT = "1111"
- DISPLAY Z NO ADVANCING
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3587: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:3587"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3587"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3588: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:3588"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3588"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1176
-#AT_START_1177
-at_fn_group_banner 1177 'run_extensions.at:3593' \
- "System routine CBL_IMP" " " 4
-at_xfail=no
-(
- printf "%s\n" "1177. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4) VALUE HIGH-VALUE.
- 01 Z PIC X(4) VALUE "1111".
- PROCEDURE DIVISION.
- CALL "CBL_IMP" USING X Z
- BY VALUE LENGTH OF Z
- END-CALL.
- IF Z NOT = "1111"
- DISPLAY Z NO ADVANCING
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3614: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:3614"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3614"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3615: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:3615"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3615"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1177
-#AT_START_1178
-at_fn_group_banner 1178 'run_extensions.at:3620' \
- "System routine CBL_NIMP" " " 4
-at_xfail=no
-(
- printf "%s\n" "1178. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4) VALUE "1111".
- 01 Z PIC X(4) VALUE LOW-VALUE.
- PROCEDURE DIVISION.
- CALL "CBL_NIMP" USING X Z
- BY VALUE LENGTH OF Z
- END-CALL.
- IF Z NOT = "1111"
- DISPLAY Z NO ADVANCING
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3641: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:3641"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3641"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3642: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:3642"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3642"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1178
-#AT_START_1179
-at_fn_group_banner 1179 'run_extensions.at:3647' \
- "System routine CBL_NOT" " " 4
-at_xfail=no
-(
- printf "%s\n" "1179. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4) VALUE HIGH-VALUE.
- PROCEDURE DIVISION.
- CALL "CBL_NOT" USING X
- BY VALUE LENGTH OF X
- END-CALL.
- IF X NOT = LOW-VALUE
- DISPLAY "NG" NO ADVANCING
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3667: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:3667"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3667"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3668: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:3668"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3668"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1179
-#AT_START_1180
-at_fn_group_banner 1180 'run_extensions.at:3673' \
- "System routine CBL_EQ" " " 4
-at_xfail=no
-(
- printf "%s\n" "1180. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4) VALUE HIGH-VALUE.
- 01 Z PIC X(4) VALUE "1111".
- PROCEDURE DIVISION.
- CALL "CBL_EQ" USING X Z
- BY VALUE LENGTH OF Z
- END-CALL.
- IF Z NOT = "1111"
- DISPLAY Z NO ADVANCING
- END-DISPLAY
- END-IF.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3694: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:3694"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3694"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:3695: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:3695"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:3695"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1180
-#AT_START_1181
-at_fn_group_banner 1181 'run_extensions.at:3700' \
- "System routine CBL_GC_GETOPT" " " 4
-at_xfail=no
-(
- printf "%s\n" "1181. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- *> check combination of long and short options
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 LO.
- 05 OPTIONRECORD OCCURS 2 TIMES.
- 10 ONAME PIC X(25).
- 10 HAS-VALUE PIC 9.
- 10 VALPOINT POINTER VALUE NULL.
- 10 VAL PIC X(4).
-
- 01 SO PIC X(256).
- 01 LONGIND PIC 99.
- 01 LONG-ONLY PIC 9 VALUE 1.
- 01 RETURN-CHAR PIC X(4).
- 01 OPT-VAL PIC X(10).
- 01 RET-DISP PIC S9 VALUE 0.
-
- 01 COUNTER PIC 9 VALUE 0.
- PROCEDURE DIVISION.
- MOVE "jkl" TO SO.
-
- MOVE "version" TO ONAME (1).
- MOVE 0 TO HAS-VALUE (1).
- MOVE "v" TO VAL (1).
-
- MOVE "verbose" TO ONAME (2).
- MOVE 0 TO HAS-VALUE (2).
- MOVE "V" TO VAL (2).
-
- PERFORM WITH TEST AFTER
- VARYING COUNTER FROM 0 BY 1
- UNTIL RETURN-CODE = -1
- CALL 'CBL_GC_GETOPT' USING
- BY REFERENCE SO LO LONGIND
- BY VALUE LONG-ONLY
- BY REFERENCE RETURN-CHAR OPT-VAL
- END-CALL
-
- EVALUATE COUNTER
- WHEN 0
- IF RETURN-CHAR NOT = 'v' THEN
- DISPLAY '0-ERROR: ' RETURN-CHAR END-DISPLAY
- END-IF
- WHEN 1
- IF RETURN-CHAR NOT = 'V' THEN
- DISPLAY '1-ERROR: ' RETURN-CHAR END-DISPLAY
- END-IF
- WHEN 2
- IF RETURN-CHAR NOT = 'j' THEN
- DISPLAY '2-ERROR: ' RETURN-CHAR END-DISPLAY
- END-IF
- WHEN 3
- IF RETURN-CHAR NOT = 'k' THEN
- DISPLAY '3-ERROR: ' RETURN-CHAR END-DISPLAY
- END-IF
- WHEN 4
- IF RETURN-CHAR NOT = 'l' THEN
- DISPLAY '4-ERROR: ' RETURN-CHAR END-DISPLAY
- END-IF
- WHEN 5
- IF RETURN-CODE NOT = -1 THEN
- MOVE RETURN-CODE TO RET-DISP
- DISPLAY 'last RETURN-CODE wrong: ' RET-DISP
- END-DISPLAY
- END-IF
- EXIT PERFORM
- END-EVALUATE
- END-PERFORM.
-
- MOVE 0 TO RETURN-CODE.
-
- IF COUNTER NOT = 5 THEN
- MOVE RETURN-CODE TO RET-DISP
- DISPLAY 'CBL_GC_GETOPT returned -1 too early: ' COUNTER
- END-DISPLAY
- END-IF.
-
- STOP RUN.
-_ATEOF
-
-
-cat >prog2.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog2.
- *> check if partial options work correct
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- *> Check with wrong record count
-
-
- 01 LO.
- 05 OPTIONRECORD OCCURS 3 TIMES.
- 10 ONAME PIC X(25).
- 10 HAS-VALUE PIC 9.
- 10 VALPOINT POINTER VALUE NULL.
- 10 VAL PIC X(4).
-
- 78 SO VALUE "jkl".
- 01 LONGIND PIC 99.
- 01 LONG-ONLY PIC 9 VALUE 1.
- 01 RETURN-CHAR PIC X(4).
- 01 OPT-VAL PIC X(10).
- 01 RET-DISP PIC S9 VALUE 0.
-
- 01 COUNTER PIC 9 VALUE 0.
- PROCEDURE DIVISION.
- MOVE "version" TO ONAME (1).
- MOVE 0 TO HAS-VALUE (1).
- MOVE "v" TO VAL (1).
-
- MOVE "verbose" TO ONAME (2).
- MOVE 0 TO HAS-VALUE (2).
- MOVE "V" TO VAL (2).
-
- PERFORM WITH TEST AFTER
- VARYING COUNTER FROM 0 BY 1
- UNTIL RETURN-CODE = -1
- CALL 'CBL_GC_GETOPT' USING
- BY REFERENCE SO LO LONGIND
- BY VALUE LONG-ONLY
- BY REFERENCE RETURN-CHAR OPT-VAL
- END-CALL
-
- EVALUATE COUNTER
- WHEN 0
- IF RETURN-CHAR NOT = '?' THEN
- DISPLAY '0-ERROR: ' RETURN-CHAR END-DISPLAY
- END-IF
- WHEN 1
- IF RETURN-CHAR NOT = 'v' THEN
- DISPLAY '1-ERROR: ' RETURN-CHAR END-DISPLAY
- END-IF
- WHEN 2
- IF RETURN-CODE NOT = -1 THEN
- MOVE RETURN-CODE TO RET-DISP
- DISPLAY 'last RETURN-CODE wrong: ' RET-DISP
- END-DISPLAY
- END-IF
- EXIT PERFORM
- END-EVALUATE
- END-PERFORM.
-
- MOVE 0 TO RETURN-CODE.
-
- IF COUNTER NOT = 2 THEN
- MOVE RETURN-CODE TO RET-DISP
- DISPLAY 'CBL_GC_GETOPT returned -1 too early: ' COUNTER
- END-DISPLAY
- END-IF.
-
- STOP RUN.
-_ATEOF
-
-
-cat >prog3.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog3.
- *> check for optional and mandatory parameters
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 SO PIC X(128).
- 01 LO.
- 05 OPTIONRECORD OCCURS 3 TIMES.
- 10 ONAME PIC X(25).
- 10 HAS-VALUE PIC 9.
- 10 VALPOINT POINTER VALUE NULL.
- 10 VAL PIC X(4).
- 01 LONGIND PIC 99.
- 01 LONG-ONLY PIC 9 VALUE 0.
- 01 RETURN-CHAR PIC X(4).
- 01 OPT-VAL PIC X(10).
- 01 RET-DISP PIC S9 VALUE 0.
-
- 01 COUNTER PIC 9 VALUE 0.
- PROCEDURE DIVISION.
- MOVE "j:k::l" TO SO.
-
- MOVE "version" TO ONAME (1).
- MOVE 1 TO HAS-VALUE (1).
- MOVE "v" TO VAL (1).
-
- MOVE "verbose" TO ONAME (2).
- MOVE 2 TO HAS-VALUE (2).
- MOVE "V" TO VAL (2).
-
- MOVE "usage" TO ONAME (3).
- MOVE 0 TO HAS-VALUE (3).
- MOVE "u" TO VAL (3).
-
- PERFORM WITH TEST AFTER
- VARYING COUNTER FROM 0 BY 1
- UNTIL RETURN-CODE = -1
- CALL 'CBL_GC_GETOPT' USING
- BY REFERENCE SO LO LONGIND
- BY VALUE LONG-ONLY
- BY REFERENCE RETURN-CHAR OPT-VAL
- END-CALL
-
- EVALUATE COUNTER
- WHEN 0
- IF OPT-VAL(1:4) NOT = 'lang' THEN
- DISPLAY '0-ERROR: ' OPT-VAL END-DISPLAY
- END-IF
- WHEN 1
- IF (OPT-VAL(1:1) NOT = 'k' OR
- RETURN-CHAR NOT = 'V' OR
- OPT-VAL(1:4) = 'kang') THEN
- DISPLAY '1-ERROR: ' OPT-VAL ' ' RETURN-CHAR
- END-DISPLAY
- END-IF
- WHEN 2
- IF RETURN-CHAR NOT = 'u' THEN
- DISPLAY '2-ERROR: ' RETURN-CHAR END-DISPLAY
- END-IF
- WHEN 3
- IF OPT-VAL(1:1) NOT = '5' OR
- RETURN-CHAR NOT = 'j' THEN
- DISPLAY '3-ERROR: ' OPT-VAL ' ' RETURN-CHAR
- END-DISPLAY
- END-IF
- WHEN 4
- IF OPT-VAL(1:1) NOT = '6' OR
- RETURN-CHAR NOT = 'k' THEN
- DISPLAY '4-ERROR: ' OPT-VAL ' ' RETURN-CHAR
- END-DISPLAY
- END-IF
- WHEN 5
- IF RETURN-CHAR NOT = 'l' THEN
- DISPLAY '5-ERROR: ' RETURN-CHAR END-DISPLAY
- END-IF
- WHEN 6
- IF RETURN-CODE NOT = -1 THEN
- MOVE RETURN-CODE TO RET-DISP
- DISPLAY 'last RETURN-CODE wrong: ' RET-DISP
- END-DISPLAY
- END-IF
- EXIT PERFORM
- END-EVALUATE
- END-PERFORM.
-
- MOVE 0 TO RETURN-CODE.
-
- IF COUNTER NOT = 6 THEN
- MOVE RETURN-CODE TO RET-DISP
- DISPLAY 'CBL_GC_GETOPT returned -1 too early: ' COUNTER
- END-DISPLAY
- END-IF.
-
- STOP RUN.
-_ATEOF
-
-
-cat >prog4.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog4.
- *> check use of value pointer and trimming of opt-val
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 SO PIC X(12).
- 01 LO.
- 05 OPTIONRECORD OCCURS 3 TIMES.
- 10 ONAME PIC X(25).
- 10 HAS-VALUE PIC 9.
- 10 VALPOINT POINTER VALUE NULL.
- 10 VAL PIC X(4).
- 01 LONGIND PIC 99.
- 01 LONG-ONLY PIC 9 VALUE 1.
- 01 RETURN-CHAR PIC X(4).
- 01 OPT-VAL PIC X(10).
- 01 RET-DISP PIC S999 VALUE 0.
-
- 01 COUNTER PIC 9 VALUE 0.
-
- 01 FLAG-VAL PIC X(4).
- procedure division.
- MOVE "jkl" TO SO.
-
- MOVE "static" TO ONAME (1).
- MOVE 0 TO HAS-VALUE (1).
- SET VALPOINT(1) TO ADDRESS OF FLAG-VAL.
- MOVE '1' TO VAL (1).
-
- MOVE "dynamic" TO ONAME (2).
- MOVE 0 TO HAS-VALUE (2).
- SET VALPOINT(2) TO ADDRESS OF FLAG-VAL.
- MOVE '0' TO VAL (2).
-
- MOVE "usage" TO ONAME (3).
- MOVE 1 TO HAS-VALUE (3).
- MOVE 'u' TO VAL (3).
-
- PERFORM WITH TEST AFTER
- VARYING COUNTER FROM 0 BY 1
- UNTIL RETURN-CODE = -1
- CALL 'CBL_GC_GETOPT' USING
- BY REFERENCE SO LO LONGIND
- BY VALUE LONG-ONLY
- BY REFERENCE RETURN-CHAR OPT-VAL
- END-CALL
-
- EVALUATE COUNTER
- WHEN 0
- IF RETURN-CODE NOT = 0 OR
- FLAG-VAL NOT = '1' THEN
- DISPLAY '0-ERROR: ' RET-DISP ' ' FLAG-VAL
- END-DISPLAY
- END-IF
- WHEN 1
- IF RETURN-CODE NOT = 0 OR
- FLAG-VAL NOT = '0' THEN
- DISPLAY '1-ERROR: ' RET-DISP ' ' FLAG-VAL
- END-DISPLAY
- END-IF
- WHEN 2
- IF RETURN-CHAR NOT = 'u' OR
- RETURN-CODE NOT = 2 THEN
- DISPLAY '2-ERROR: ' RET-DISP ' ' FLAG-VAL
- END-DISPLAY
- END-IF
- WHEN 3
- IF RETURN-CODE NOT = -1 THEN
- MOVE RETURN-CODE TO RET-DISP
- DISPLAY 'last RETURN-CODE wrong: ' RET-DISP
- END-DISPLAY
- END-IF
- EXIT PERFORM
- END-EVALUATE
- END-PERFORM.
-
- MOVE 0 TO RETURN-CODE.
-
- IF COUNTER NOT = 3 THEN
- MOVE RETURN-CODE TO RET-DISP
- DISPLAY 'CBL_GC_GETOPT returned -1 too early: ' COUNTER
- END-DISPLAY
- END-IF.
-
- STOP RUN.
-_ATEOF
-
-
-cat >prog5.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog5.
- *> check for wrong longoption structure
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 SO PIC X.
- 01 LO.
- 05 OPTIONRECORD OCCURS 2 TIMES.
- 10 ONAME PIC X(45).
- 10 HAS-VALUE PIC 9.
- 10 VALPOINT POINTER VALUE NULL.
- 10 VAL PIC X(4).
- 01 LONGIND PIC 99.
- 01 LONG-ONLY PIC 9 VALUE 1.
- 01 RETURN-CHAR PIC X(4).
- 01 OPT-VAL PIC X(10).
- 01 RET-DISP PIC S999 VALUE 0.
-
- 01 COUNTER PIC 9 VALUE 0.
-
- 01 FLAG-VAL PIC 9.
- PROCEDURE DIVISION.
- MOVE "super-long-option-with-more-than-25-bytes"
- TO ONAME(1).
- MOVE 0 TO HAS-VALUE(1).
- MOVE '1' TO VAL(1).
-
- MOVE "stupid-long-option-with-more-than-25-bytes"
- TO ONAME(2).
- MOVE 0 TO HAS-VALUE(2).
- MOVE '0' TO VAL(2).
-
- PERFORM WITH TEST AFTER
- VARYING COUNTER FROM 0 BY 1
- UNTIL RETURN-CODE = -1
- CALL 'CBL_GC_GETOPT' USING
- BY REFERENCE SO LO LONGIND
- BY VALUE LONG-ONLY
- BY REFERENCE RETURN-CHAR OPT-VAL
- END-CALL
-
- EVALUATE COUNTER
- WHEN 0
- WHEN 1
- WHEN 2
- CONTINUE
-
- *> MOVE RETURN-CODE TO RET-DISP
-
- *> IF COUNTER = 0 AND RETURN-CODE NOT = 1 THEN
- *> DISPLAY 'RETURN VALUE: ' RET-DISP ' ' FLAG-VAL
- *> END-IF
- WHEN 3
- IF RETURN-CODE NOT = -1 THEN
- MOVE RETURN-CODE TO RET-DISP
- DISPLAY 'last RETURN-CODE wrong: ' RET-DISP
- END-DISPLAY
- END-IF
- EXIT PERFORM
- END-EVALUATE
- END-PERFORM.
-
- MOVE 0 TO RETURN-CODE.
-
- IF COUNTER NOT = 3 THEN
- MOVE RETURN-CODE TO RET-DISP
- DISPLAY 'CBL_GC_GETOPT returned -1 too early: ' COUNTER
- END-DISPLAY
- END-IF.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4117: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:4117"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4117"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4118: \$COBCRUN_DIRECT ./prog --version --verbose -jkl"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog --version --verbose -jkl" "run_extensions.at:4118"
-( $at_check_trace; $COBCRUN_DIRECT ./prog --version --verbose -jkl
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4118"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4119: \$COMPILE_MODULE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE prog2.cob" "run_extensions.at:4119"
-( $at_check_trace; $COMPILE_MODULE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4119"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4120: \$COBCRUN prog2 --ver --vers"
-at_fn_check_prepare_dynamic "$COBCRUN prog2 --ver --vers" "run_extensions.at:4120"
-( $at_check_trace; $COBCRUN prog2 --ver --vers
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog2: option '--ver' is ambiguous; possibilities: '--version' '--verbose'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4120"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4123: \$COMPILE prog3.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog3.cob" "run_extensions.at:4123"
-( $at_check_trace; $COMPILE prog3.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4123"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4124: \$COBCRUN_DIRECT ./prog3 --version=lang --verbose=k --usage -j 5 -k6 -l"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog3 --version=lang --verbose=k --usage -j 5 -k6 -l" "run_extensions.at:4124"
-( $at_check_trace; $COBCRUN_DIRECT ./prog3 --version=lang --verbose=k --usage -j 5 -k6 -l
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4124"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4125: \$COMPILE prog4.cob --free"
-at_fn_check_prepare_dynamic "$COMPILE prog4.cob --free" "run_extensions.at:4125"
-( $at_check_trace; $COMPILE prog4.cob --free
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4125"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4126: \$COBCRUN_DIRECT ./prog4 --static --dynamic --usage=boringandtoolongtext"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog4 --static --dynamic --usage=boringandtoolongtext" "run_extensions.at:4126"
-( $at_check_trace; $COBCRUN_DIRECT ./prog4 --static --dynamic --usage=boringandtoolongtext
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4126"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-# Again a long and system specific error message which we ignore.
-# Return code 1 is sufficient as proof of hard return (as wanted).
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4129: \$COMPILE prog5.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog5.cob" "run_extensions.at:4129"
-( $at_check_trace; $COMPILE prog5.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4129"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4130: \$COBCRUN_DIRECT ./prog5 --static"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog5 --static" "run_extensions.at:4130"
-( $at_check_trace; $COBCRUN_DIRECT ./prog5 --static
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog5.cob:37: error: call to CBL_GC_GETOPT with wrong longoption size
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_extensions.at:4130"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1181
-#AT_START_1182
-at_fn_group_banner 1182 'run_extensions.at:4137' \
- "System routine CBL_GC_FORK" " " 4
-at_xfail=no
-(
- printf "%s\n" "1182. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 CHILD-PID USAGE BINARY-LONG.
- 77 PARENT-PID USAGE BINARY-LONG.
- PROCEDURE DIVISION.
-
- CALL "C$GETPID" RETURNING PARENT-PID
- CALL "CBL_GC_FORK" END-CALL
- EVALUATE RETURN-CODE
- WHEN ZERO
- PERFORM CHILD-CODE
- WHEN -1
- STOP RUN RETURNING 77 *> skip test
- WHEN OTHER
- PERFORM PARENT-CODE
- END-EVALUATE
-
- STOP RUN.
-
- CHILD-CODE.
- CALL "C$SLEEP" USING 1.
- DISPLAY "Hello, I am the child".
- CALL "C$GETPID" RETURNING CHILD-PID.
- IF CHILD-PID = PARENT-PID
- DISPLAY "CHILD: parent and child have same PID: "
- "'" CHILD-PID "'" UPON SYSERR
- END-DISPLAY
- END-IF.
- MOVE 0 TO RETURN-CODE.
-
- PARENT-CODE.
- DISPLAY "Hello, I am the parent".
- CALL "C$SLEEP" USING 4.
- DISPLAY "Parent again".
- IF RETURN-CODE = PARENT-PID
- DISPLAY "PARENT: parent and child have same PID: "
- "'" PARENT-PID "'" UPON SYSERR
- END-DISPLAY
- END-IF.
- CALL "C$GETPID".
- IF RETURN-CODE NOT = PARENT-PID
- DISPLAY "PARENT: parent PID has changed: "
- "'" PARENT-PID "' -> '" RETURN-CODE "'"
- UPON SYSERR
- END-DISPLAY
- END-IF.
- MOVE 0 TO RETURN-CODE.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4192: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:4192"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4192"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4194: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:4194"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Hello, I am the parent
-Hello, I am the child
-Parent again
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4194"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1182
-#AT_START_1183
-at_fn_group_banner 1183 'run_extensions.at:4205' \
- "System routine CBL_GC_WAITPID" " " 4
-at_xfail=no
-(
- printf "%s\n" "1183. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 CHILD-PID PIC S9(9) BINARY.
- 01 WAIT-STS PIC S9(9) BINARY VALUE -3.
- PROCEDURE DIVISION.
-
- CALL "CBL_GC_FORK" RETURNING CHILD-PID.
- EVALUATE CHILD-PID
- WHEN ZERO
- PERFORM CHILD-CODE
- WHEN -1
- STOP RUN RETURNING 77 *> skip test
- WHEN OTHER
- PERFORM PARENT-CODE
- END-EVALUATE.
-
- STOP RUN.
-
- CHILD-CODE.
- CALL "C$SLEEP" USING 1.
- DISPLAY "Hello, I am the child".
- MOVE 2 TO RETURN-CODE.
-
- PARENT-CODE.
- DISPLAY "Hello, I am the parent".
- CALL "CBL_GC_WAITPID" USING CHILD-PID
- RETURNING WAIT-STS
- END-CALL
- MOVE 0 TO RETURN-CODE
- IF WAIT-STS = -1
- STOP RUN RETURNING 77 *> skip test
- END-IF
- DISPLAY "Child ended status " WAIT-STS
- END-DISPLAY.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4247: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:4247"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4247"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4249: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:4249"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Hello, I am the parent
-Hello, I am the child
-Child ended status +000000002
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4249"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1183
-#AT_START_1184
-at_fn_group_banner 1184 'run_extensions.at:4257' \
- "System routine CBL_GC_HOSTED" " " 4
-at_xfail=no
-(
- printf "%s\n" "1184. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >test_errno.c <<'_ATEOF'
-
-#include <errno.h>
-#include <stdio.h>
-
-#include <libcob.h>
-
-COB_EXT_EXPORT int
-test_errno(void)
-{
- FILE *fail;
- fail = fopen("file-not-to-be-found", "r");
- if (errno != 2) {
- printf("BAD ERRNO %d", errno);
- } else {
- if (fail) fclose(fail);
- }
- return 0;
-}
-_ATEOF
-
-
-cat >test_stdio.c <<'_ATEOF'
-
-#include <stdio.h>
-
-#include <libcob.h>
-COB_EXT_EXPORT int
-test_stdio(FILE *si, FILE *so, FILE *se)
-{
- if (feof(si)) {
- fprintf(se, "BAD STDIN EOF\n");
- }
- fprintf(so, "OUT");
- return fprintf(se, "ERR");
-}
-_ATEOF
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 STDIN USAGE POINTER.
- 01 STDOUT USAGE POINTER.
- 01 STDERR USAGE POINTER.
- 01 CELL USAGE BINARY-LONG.
- 01 ARGC USAGE BINARY-LONG.
- 01 ARGV USAGE POINTER.
- 01 ERRPTR USAGE POINTER.
- 01 ERRNO USAGE BINARY-LONG BASED.
- 01 CERRNO USAGE BINARY-LONG EXTERNAL AS "errno".
- 01 TZNAME USAGE POINTER.
- 01 TZNAMES USAGE POINTER BASED.
- 05 TZS USAGE POINTER OCCURS 2 TIMES.
- 01 TIMEZONE USAGE BINARY-C-LONG.
- 01 DAYLIGHT USAGE BINARY-LONG.
- 01 EXTPTR USAGE POINTER. *> only for the check, otherwise unused
-
- PROCEDURE DIVISION.
- CALL "CBL_GC_HOSTED" USING STDIN "stdin"
- CALL "CBL_GC_HOSTED" USING STDOUT "stdout"
- CALL "CBL_GC_HOSTED" USING STDERR "stderr"
- *> verify working alias with old name "CBL_OC_HOSTED"
- CALL "CBL_OC_HOSTED" USING ARGC "argc"
- CALL "CBL_OC_HOSTED" USING ARGV "argv"
- CALL "CBL_GC_HOSTED" USING CELL "cell"
- CALL "CBL_GC_HOSTED" USING ERRPTR "errno"
- CALL "CBL_GC_HOSTED" USING ARGC "arg"
- CALL "CBL_GC_HOSTED" USING NULL "argc"
- SET ADDRESS OF ERRNO TO ERRPTR
- CALL "CBL_GC_HOSTED" USING TZNAME "tzname"
- CALL "CBL_GC_HOSTED" USING TIMEZONE "timezone"
- CALL "CBL_GC_HOSTED" USING DAYLIGHT "daylight"
-
- *> prog.cob must be compiled with same C runtime as libcob to match...
- IF ERRPTR NOT EQUAL ADDRESS OF CERRNO
- DISPLAY "ADDRESS OF ERRNO VARIABLES DON'T MATCH"
- SET EXTPTR TO ADDRESS OF CERRNO
- DISPLAY "HOSTED: " ERRPTR ", "
- "EXTERNAL: " EXTPTR
- END-DISPLAY
- END-IF
-
- *> test_errno.c must be compiled with same C runtime as libcob to match...
- CALL "test_errno"
- IF ERRNO NOT EQUAL 2 THEN
- DISPLAY "BAD HOSTED ERRNO " ERRNO
- IF CERRNO NOT EQUAL 2 THEN
- DISPLAY "BAD EXTERNAL ERRNO " CERRNO
- END-IF
- END-IF
-
- IF ARGC NOT EQUAL 2 THEN
- DISPLAY "BAD ARGC " ARGC
- END-IF
- IF ARGV EQUAL NULL THEN
- DISPLAY "BAD ARGV"
- END-IF
-
- IF CELL LESS THAN 0 OR GREATER THAN 8 THEN
- DISPLAY "UNK CELL " CELL
- END-IF
-
- SET ENVIRONMENT "TZ" TO "PST8PDT"
- CALL "tzset" RETURNING OMITTED
- ON EXCEPTION CONTINUE
- END-CALL
- IF TZNAME NOT EQUAL NULL THEN
- SET ADDRESS OF TZNAMES TO TZNAME
- IF TZS(1) EQUAL NULL THEN
- DISPLAY "BAD TZNAME" END-DISPLAY
- END-IF
- END-IF
-
- *> Test assumes return-code will be 3, chars output by last fprintf
- *> test_stdio.c must be compiled with same C runtime as libcob to match...
- CALL "test_stdio" USING BY VALUE STDIN STDOUT STDERR
- END-CALL
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4379: \$COMPILE_MODULE test_errno.c"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE test_errno.c" "run_extensions.at:4379"
-( $at_check_trace; $COMPILE_MODULE test_errno.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4379"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4380: \$COMPILE_MODULE test_stdio.c"
-at_fn_check_prepare_dynamic "$COMPILE_MODULE test_stdio.c" "run_extensions.at:4380"
-( $at_check_trace; $COMPILE_MODULE test_stdio.c
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4380"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4381: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:4381"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4381"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4382: \$COBCRUN_DIRECT ./prog 1ARG"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog 1ARG" "run_extensions.at:4382"
-( $at_check_trace; $COBCRUN_DIRECT ./prog 1ARG
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "ERR" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OUT" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 3 $at_status "$at_srcdir/run_extensions.at:4382"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1184
-#AT_START_1185
-at_fn_group_banner 1185 'run_extensions.at:4387' \
- "System routine SYSTEM, parameter handling" " " 4
-at_xfail=no
-(
- printf "%s\n" "1185. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- *
- 77 test-no PIC 9 VALUE 0.
- 77 chaining-param PIC X(20).
- 77 chaining-param-2 PIC X(20).
- *
- PROCEDURE DIVISION CHAINING chaining-param, chaining-param-2.
- *
- main.
- EVALUATE chaining-param ALSO chaining-param-2
- WHEN SPACES ALSO SPACES
- DISPLAY "started without options - closing"
- WHEN "1" ALSO SPACES
- WHEN '"1"' ALSO SPACES
- WHEN "a v" ALSO SPACES
- WHEN '"a v"' ALSO SPACES
- DISPLAY " called with -"
- function trim (chaining-param) "-"
- WHEN "a" ALSO "v"
- DISPLAY " called with -"
- FUNCTION TRIM (chaining-param) "-"
- " and with -"
- FUNCTION TRIM (chaining-param-2) "-"
- WHEN "start" ALSO SPACES
- MOVE 'prog 1' TO chaining-param
- PERFORM callme
- MOVE 'prog "1"' TO chaining-param
- PERFORM callme
- MOVE '"prog" 1' TO chaining-param
- PERFORM callme
- MOVE '"prog" "1"' TO chaining-param
- PERFORM callme
- MOVE 'prog a v' TO chaining-param
- PERFORM callme
- MOVE 'prog "a v"' TO chaining-param
- PERFORM callme
- MOVE '"prog" a v' TO chaining-param
- PERFORM callme
- MOVE '"prog" "a v"' TO chaining-param
- PERFORM callme
- MOVE '"prog" "a" "v"' TO chaining-param
- PERFORM callme
- DISPLAY "tests finished"
- WHEN OTHER
- DISPLAY "called with unexpected -"
- FUNCTION TRIM (chaining-param) "-"
- END-EVALUATE
- STOP RUN.
- *
- callme.
- ADD 1 TO test-no.
- DISPLAY "Test #" test-no ":"
- DISPLAY " CALL 'SYSTEM' with "
- FUNCTION TRIM (chaining-param) ":"
- CALL "SYSTEM" USING FUNCTION TRIM (chaining-param)
- DISPLAY " --> return of the given CALL 'SYSTEM': "
- return-code.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4454: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:4454"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4454"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4455: PATH=.:\$PATH \$COBCRUN_DIRECT prog \"start\""
-at_fn_check_prepare_dynamic "PATH=.:$PATH $COBCRUN_DIRECT prog \"start\"" "run_extensions.at:4455"
-( $at_check_trace; PATH=.:$PATH $COBCRUN_DIRECT prog "start"
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Test #1:
- CALL 'SYSTEM' with prog 1:
- called with -1-
- --> return of the given CALL 'SYSTEM': +000000000
-Test #2:
- CALL 'SYSTEM' with prog \"1\":
- called with -1-
- --> return of the given CALL 'SYSTEM': +000000000
-Test #3:
- CALL 'SYSTEM' with \"prog\" 1:
- called with -1-
- --> return of the given CALL 'SYSTEM': +000000000
-Test #4:
- CALL 'SYSTEM' with \"prog\" \"1\":
- called with -1-
- --> return of the given CALL 'SYSTEM': +000000000
-Test #5:
- CALL 'SYSTEM' with prog a v:
- called with -a- and with -v-
- --> return of the given CALL 'SYSTEM': +000000000
-Test #6:
- CALL 'SYSTEM' with prog \"a v\":
- called with -a v-
- --> return of the given CALL 'SYSTEM': +000000000
-Test #7:
- CALL 'SYSTEM' with \"prog\" a v:
- called with -a- and with -v-
- --> return of the given CALL 'SYSTEM': +000000000
-Test #8:
- CALL 'SYSTEM' with \"prog\" \"a v\":
- called with -a v-
- --> return of the given CALL 'SYSTEM': +000000000
-Test #9:
- CALL 'SYSTEM' with \"prog\" \"a\" \"v\":
- called with -a- and with -v-
- --> return of the given CALL 'SYSTEM': +000000000
-tests finished
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4455"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1185
-#AT_START_1186
-at_fn_group_banner 1186 'run_extensions.at:4498' \
- "System routine CBL_EXIT_PROC" " " 4
-at_xfail=no
-(
- printf "%s\n" "1186. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# tests that exit handlers work including multiple error handlers
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. DemoExtProc IS RECURSIVE.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 Ext-Proc-Address USAGE PROCEDURE-POINTER.
- 77 install-flag USAGE BINARY-CHAR.
- 88 install-default VALUE 0.
- 88 uninstall VALUE 1.
- 88 query-priority VALUE 2.
- 88 install-priority VALUE 3.
- 01 exit-params.
- 02 proc-addrs USAGE PROCEDURE-POINTER.
- 02 ppriority USAGE BINARY-CHAR.
- PROCEDURE DIVISION.
- S1.
- DISPLAY 'Program is starting'
- *> Do this for the ACU test later
- *> CALL 'CBL_EXIT_PROC' USING 0, "ExtProc-internal"
- SET Ext-Proc-Address TO ENTRY 'ExtProc'
- *> GC "simple variant"
- CALL 'CBL_EXIT_PROC' USING 0, Ext-Proc-Address
- *> Support for MF variant,
- *> storing but otherwise ignoring the priority for now
- SET install-default TO TRUE
- SET proc-addrs TO ENTRY 'ExtProc-internal'
- CALL 'CBL_EXIT_PROC' USING install-flag, exit-params
- *> Ensure subsequent CALLs with the same one are seen as error (MF!)
- SET proc-addrs TO ENTRY 'ExtProc'
- CALL 'CBL_EXIT_PROC' USING install-flag, exit-params
- IF RETURN-CODE = 0
- DISPLAY 'Unexpected RETURN-CODE with subsequent call '
- RETURN-CODE.
- SET install-priority TO TRUE
- MOVE 127 TO ppriority
- CALL 'CBL_EXIT_PROC' USING install-flag, exit-params
- IF RETURN-CODE NOT = 0
- DISPLAY 'Unexpected RETURN-CODE with subsequent call, '
- 'different priority ' RETURN-CODE.
- SET proc-addrs TO ENTRY 'ExtProc-internal2'
- CALL 'CBL_EXIT_PROC' USING install-flag, exit-params
- IF RETURN-CODE NOT = 0
- DISPLAY 'Unexpected RETURN-CODE with new call '
- RETURN-CODE.
- *>
- DISPLAY 'Program is stopping'
- STOP RUN
- .
- ENTRY 'ExtProc-internal2'.
- DISPLAY 'Exit procedure from ' FUNCTION MODULE-ID ()
- SET Ext-Proc-Address TO ENTRY 'ExtProc'
- SET query-priority TO TRUE
- MOVE 0 TO ppriority
- CALL 'CBL_EXIT_PROC' USING install-flag, exit-params
- IF RETURN-CODE NOT = ZERO
- DISPLAY 'Unexpected RETURN-CODE for query '
- RETURN-CODE
- ELSE IF ppriority NOT = 127
- DISPLAY 'Unexpected priority external ' ppriority.
- SET proc-addrs TO ENTRY 'ExtProc-internal'
- CALL 'CBL_EXIT_PROC' USING install-flag, exit-params
- IF RETURN-CODE NOT = ZERO
- DISPLAY 'Unexpected RETURN-CODE for query '
- RETURN-CODE
- ELSE IF ppriority NOT = 64
- DISPLAY 'Unexpected priority internal ' ppriority.
- SET uninstall TO TRUE
- CALL 'CBL_EXIT_PROC' USING install-flag, exit-params
- IF RETURN-CODE NOT = 0
- DISPLAY 'Unexpected RETURN-CODE after uninstall '
- RETURN-CODE.
- CALL 'CBL_EXIT_PROC' USING install-flag, exit-params
- IF RETURN-CODE = 0
- DISPLAY 'Unexpected RETURN-CODE after double uninstall '
- RETURN-CODE.
- MOVE 0 TO RETURN-CODE
- GOBACK
- .
- ENTRY 'ExtProc-internal'.
- DISPLAY 'should have been removed'
- GOBACK
- .
- END PROGRAM DemoExtProc.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. ExtProc.
- PROCEDURE DIVISION.
- 000-Main.
- DISPLAY 'Exit procedure from ' FUNCTION MODULE-ID ()
- EXIT PROGRAM
- .
- END PROGRAM ExtProc.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4597: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:4597"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4597"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4598: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:4598"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Program is starting
-Program is stopping
-Exit procedure from DemoExtProc
-Exit procedure from ExtProc
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4598"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1186
-#AT_START_1187
-at_fn_group_banner 1187 'run_extensions.at:4608' \
- "System routine CBL_ERROR_PROC (1)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1187. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# tests that error handlers work (later for ACU: test for re-ordered)
-# including multiple error handlers
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. DemoErrProc IS RECURSIVE.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 Err-Proc-Address USAGE PROGRAM-POINTER.
- 77 Err-Message-Len PIC 9(04) USAGE COMP-5.
- LINKAGE SECTION.
- 77 Err-Message-From-Runtime PIC X(1023).
- PROCEDURE DIVISION.
- S1.
- DISPLAY 'Program is starting'
- *> Do this for the ACU test, where second call moves top front
- *> SET Err-Proc-Address TO ENTRY 'ErrProc-internal'
- *> CALL 'CBL_ERROR_PROC' USING 0, Err-Proc-Address
- SET Err-Proc-Address TO ENTRY 'ErrProc'
- CALL 'CBL_ERROR_PROC' USING 0, Err-Proc-Address
- SET Err-Proc-Address TO ENTRY 'ErrProc-internal'
- CALL 'CBL_ERROR_PROC' USING 0, Err-Proc-Address
- *> Ensure subsequent CALLs with the same one are ignored (MF!)
- SET Err-Proc-Address TO ENTRY 'ErrProc'
- CALL 'CBL_ERROR_PROC' USING 0, Err-Proc-Address
- SET Err-Proc-Address TO NULL
- CALL 'Tilt' *> THIS DOESN'T EXIST!!!!
- DISPLAY 'Program is stopping'
- STOP RUN
- .
- ENTRY 'ErrProc-internal' USING Err-Message-From-Runtime.
- DISPLAY 'Error (internal): ' FUNCTION EXCEPTION-LOCATION '-'
- DISPLAY ' ' FUNCTION EXCEPTION-STATEMENT '-'
- DISPLAY ' ' FUNCTION EXCEPTION-STATUS '-'
- *> NOTE: the error message is *EXPLICIT* specified to end with x'00'
- MOVE 0 TO Err-Message-Len
- INSPECT Err-Message-From-Runtime
- TALLYING Err-Message-Len FOR CHARACTERS BEFORE x'00'
- DISPLAY 'Error-Message: ' Err-Message-From-Runtime
- (1:Err-Message-Len)
- DISPLAY '-*- Returning to Next Error Routine -*-'
- MOVE 1 TO RETURN-CODE
- EXIT PROGRAM
- .
- END PROGRAM DemoErrProc.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. ErrProc.
- PROCEDURE DIVISION.
- 000-Main.
- DISPLAY 'Error: ' FUNCTION EXCEPTION-LOCATION '-'
- DISPLAY ' ' FUNCTION EXCEPTION-STATEMENT '-'
- DISPLAY ' ' FUNCTION EXCEPTION-STATUS '-'
- DISPLAY '-*- Returning to Standard Error Routine -*-'
- MOVE 1 TO RETURN-CODE
- EXIT PROGRAM
- .
- END PROGRAM ErrProc.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4672: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:4672"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4672"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4673: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:4673"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:25: error: module 'Tilt' not found
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Program is starting
-Error (internal): DemoErrProc; S1; 25-
- CALL -
- EC-PROGRAM-NOT-FOUND -
-Error-Message: prog.cob:25: module 'Tilt' not found
--*- Returning to Next Error Routine -*-
-Error: DemoErrProc; S1; 25-
- CALL -
- EC-PROGRAM-NOT-FOUND -
--*- Returning to Standard Error Routine -*-
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_extensions.at:4673"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4688: \$COBC -x -o prog_noloc prog.cob"
-at_fn_check_prepare_dynamic "$COBC -x -o prog_noloc prog.cob" "run_extensions.at:4688"
-( $at_check_trace; $COBC -x -o prog_noloc prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4688"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4689: \$COBCRUN_DIRECT ./prog_noloc"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog_noloc" "run_extensions.at:4689"
-( $at_check_trace; $COBCRUN_DIRECT ./prog_noloc
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: error: module 'Tilt' not found
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Program is starting
-Error (internal): DemoErrProc; ; 0-
- -
- EC-PROGRAM-NOT-FOUND -
-Error-Message: module 'Tilt' not found
--*- Returning to Next Error Routine -*-
-Error: DemoErrProc; ; 0-
- -
- EC-PROGRAM-NOT-FOUND -
--*- Returning to Standard Error Routine -*-
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_extensions.at:4689"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1187
-#AT_START_1188
-at_fn_group_banner 1188 'run_extensions.at:4707' \
- "System routine CBL_ERROR_PROC (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1188. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# tests that error handlers can stop the processing,
-# including the internal error handler
-# and that the MF "LOCAL-STORAGE implies RECURSIVE" works
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. DemoErrProc.
- ENVIRONMENT DIVISION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 Err-Proc-Address USAGE PROGRAM-POINTER.
- 77 Err-Message-Len PIC 9(04) USAGE COMP-5.
- LOCAL-STORAGE SECTION. *> can even be empty...
- LINKAGE SECTION.
- 77 Err-Message-From-Runtime PIC X(1023).
- PROCEDURE DIVISION.
- S1.
- DISPLAY 'Program is starting'
- SET Err-Proc-Address TO ENTRY 'ErrProc'
- CALL 'CBL_ERROR_PROC' USING 0, Err-Proc-Address
- SET Err-Proc-Address TO ENTRY 'ErrProc-internal'
- CALL 'CBL_ERROR_PROC' USING 0, Err-Proc-Address
- SET Err-Proc-Address TO NULL
- CALL 'Tilt' *> THIS DOESN'T EXIST!!!!
- DISPLAY 'Program is stopping'
- STOP RUN
- .
- ENTRY 'ErrProc-internal' USING Err-Message-From-Runtime.
- DISPLAY 'Error (interal): ' FUNCTION EXCEPTION-LOCATION '-'
- DISPLAY ' ' FUNCTION EXCEPTION-STATEMENT '-'
- DISPLAY ' ' FUNCTION EXCEPTION-STATUS '-'
- *> NOTE: the error message is *EXPLICIT* specified to end with x'00'
- MOVE 0 TO Err-Message-Len
- INSPECT Err-Message-From-Runtime
- TALLYING Err-Message-Len FOR CHARACTERS BEFORE x'00'
- DISPLAY 'Error-Message: ' Err-Message-From-Runtime
- (1:Err-Message-Len)
- DISPLAY '-*- Stop error routines here -*-'
- MOVE 0 TO RETURN-CODE
- EXIT PROGRAM
- .
- END PROGRAM DemoErrProc.
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. ErrProc.
- PROCEDURE DIVISION.
- 000-Main.
- DISPLAY 'Error: ' FUNCTION EXCEPTION-LOCATION '-'
- DISPLAY ' ' FUNCTION EXCEPTION-STATEMENT '-'
- DISPLAY ' ' FUNCTION EXCEPTION-STATUS '-'
- DISPLAY '-*- Returning to Standard Error Routine -*-'
- MOVE 1 TO RETURN-CODE
- EXIT PROGRAM
- .
- END PROGRAM ErrProc.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4767: \$COMPILE -std=mf prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=mf prog.cob" "run_extensions.at:4767"
-( $at_check_trace; $COMPILE -std=mf prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4767"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4768: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:4768"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Program is starting
-Error (interal): DemoErrProc; S1; 20-
- CALL -
- EC-PROGRAM-NOT-FOUND -
-Error-Message: prog.cob:20: module 'Tilt' not found
--*- Stop error routines here -*-
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_extensions.at:4768"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# to be done
-#AT_CHECK([$COMPILE -o prog_noloc prog.cob], [0], [], [])
-#AT_CHECK([$COBCRUN_DIRECT ./prog_noloc], [1],
-#[Program is starting
-#],
-#[libcob: error: recursive CALL from 'DemoErrProc' to 'DemoErrProc' which is NOT RECURSIVE
-#])
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1188
-#AT_START_1189
-at_fn_group_banner 1189 'run_extensions.at:4788' \
- "System routine x'91' function NN" " " 4
-at_xfail=no
-(
- printf "%s\n" "1189. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# to be done after 3.2rc1
-printf "%s\n" "run_extensions.at:4792" >"$at_check_line_file"
-at_fn_check_skip 77 "$at_srcdir/run_extensions.at:4792"
-
-cat >prog.cob <<'_ATEOF'
-
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4796: \$COMPILE -std=mf prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=mf prog.cob" "run_extensions.at:4796"
-( $at_check_trace; $COMPILE -std=mf prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4796"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4797: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:4797"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_extensions.at:4797"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1189
-#AT_START_1190
-at_fn_group_banner 1190 'run_extensions.at:4804' \
- "CALL own PROGRAM-ID and RECURSIVE attribute" " " 4
-at_xfail=no
-(
- printf "%s\n" "1190. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# mixed syntax and runtime test, may be split later
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 78 own-prog VALUE 'prog'.
- 77 first-call PIC X VALUE ' '.
- PROCEDURE DIVISION.
- T1.
- IF first-call = SPACE
- MOVE 'X' TO first-call
- CALL own-prog.
- GOBACK.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4823: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:4823"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in paragraph 'T1':
-prog.cob:12: warning: CALL to own PROGRAM-ID used
-prog.cob:12: note: assuming RECURSIVE attribute
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4823"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4829: \$COMPILE -fself-call-recursive=error prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fself-call-recursive=error prog.cob" "run_extensions.at:4829"
-( $at_check_trace; $COMPILE -fself-call-recursive=error prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "prog.cob: in paragraph 'T1':
-prog.cob:12: error: CALL to own PROGRAM-ID used
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_extensions.at:4829"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4834: \$COMPILE -o prog_std -std=mf prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -o prog_std -std=mf prog.cob" "run_extensions.at:4834"
-( $at_check_trace; $COMPILE -o prog_std -std=mf prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4834"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >progc.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 first-call PIC X VALUE ' '.
- PROCEDURE DIVISION.
- T2.
- IF first-call NOT = SPACE
- GOBACK.
- MOVE 'X' TO first-call
- COPY "cllprg.cpy".
- GOBACK.
-_ATEOF
-
-cat >cllprg.cpy <<'_ATEOF'
-
- CALL 'prog'.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4853: \$COMPILE progc.cob"
-at_fn_check_prepare_dynamic "$COMPILE progc.cob" "run_extensions.at:4853"
-( $at_check_trace; $COMPILE progc.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "cllprg.cpy: in paragraph 'T2':
-cllprg.cpy:2: warning: CALL to own PROGRAM-ID used
-cllprg.cpy:2: note: assuming RECURSIVE attribute
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4853"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4859: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:4859"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4859"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4860: \$COBCRUN_DIRECT ./progc"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./progc" "run_extensions.at:4860"
-( $at_check_trace; $COBCRUN_DIRECT ./progc
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4860"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4862: \$COBCRUN_DIRECT ./prog_std"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog_std" "run_extensions.at:4862"
-( $at_check_trace; $COBCRUN_DIRECT ./prog_std
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: prog.cob:12: error: recursive CALL from 'prog' to 'prog' which is NOT RECURSIVE
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_extensions.at:4862"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1190
-#AT_START_1191
-at_fn_group_banner 1191 'run_extensions.at:4869' \
- "DISPLAY DIRECTIVE and \$DISPLAY" " " 4
-at_xfail=no
-(
- printf "%s\n" "1191. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# note: as we do support inline comments here we do not
-# allow the * to be part of a non-literal output
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 var1 pic x.
- $DISPLAY MF compile time text # A.0-B;C *> without comment
- 01 var2 pic x.
- >> DISPLAY some.text-here
- 01 var3 pic x.
- PROCEDURE DIVISION.
- >> DISPLAY other text #2 *> comment
- >> DISPLAY "literal text... *> no comment"
- $DISPLAY "MF compile time text"
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4892: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:4892"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "MF compile time text # A.0-B;C
-some.text-here
-other text #2
-literal text... *> no comment
-MF compile time text
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4892"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1191
-#AT_START_1192
-at_fn_group_banner 1192 'run_extensions.at:4902' \
- "Conditional / define directives (1)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1192. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- >>IF ACTIVATE NOT DEFINED
- DISPLAY "OK" NO ADVANCING
- END-DISPLAY
- >>ELSE
- DISPLAY "NOTOK" NO ADVANCING
- END-DISPLAY
- >>END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4921: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:4921"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4921"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4922: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:4922"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4922"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1192
-#AT_START_1193
-at_fn_group_banner 1193 'run_extensions.at:4927' \
- "Conditional / define directives (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1193. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- >>IF ACTIVATE DEFINED
- DISPLAY "OK" NO ADVANCING
- END-DISPLAY
- >>ELSE
- DISPLAY "NOTOK" NO ADVANCING
- END-DISPLAY
- >>END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4946: \$COMPILE -DACTIVATE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -DACTIVATE prog.cob" "run_extensions.at:4946"
-( $at_check_trace; $COMPILE -DACTIVATE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4946"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4947: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:4947"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4947"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1193
-#AT_START_1194
-at_fn_group_banner 1194 'run_extensions.at:4952' \
- "Conditional / define directives (3)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1194. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- >>IF ACTIVATE DEFINED
- DISPLAY "NOTOK" NO ADVANCING
- END-DISPLAY
- >>ELIF ACTIVATE2 DEFINED
- DISPLAY "OK" NO ADVANCING
- END-DISPLAY
- >>ELSE
- DISPLAY "NOTOK" NO ADVANCING
- END-DISPLAY
- >>END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4974: \$COMPILE -DACTIVATE2 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -DACTIVATE2 prog.cob" "run_extensions.at:4974"
-( $at_check_trace; $COMPILE -DACTIVATE2 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4974"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:4975: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:4975"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:4975"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1194
-#AT_START_1195
-at_fn_group_banner 1195 'run_extensions.at:4980' \
- "Conditional / define directives (4)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1195. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- >>IF ACTIVATE DEFINED
- DISPLAY "NOTOK" NO ADVANCING
- END-DISPLAY
- >>ELIF ACTIVATE2 DEFINED
- >>ELSE
- DISPLAY "NOTOK" NO ADVANCING
- END-DISPLAY
- >>END-IF
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5000: \$COMPILE -DACTIVATE2 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -DACTIVATE2 prog.cob" "run_extensions.at:5000"
-( $at_check_trace; $COMPILE -DACTIVATE2 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5000"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5001: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:5001"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5001"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1195
-#AT_START_1196
-at_fn_group_banner 1196 'run_extensions.at:5006' \
- "Invalid source format" " " 4
-at_xfail=no
-(
- printf "%s\n" "1196. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >unknown.cob <<'_ATEOF'
-
- >>SOURCE FORMAT UNKNOWN
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-cat >lit.cob <<'_ATEOF'
-
- >>SOURCE FORMAT "literal"
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- PROCEDURE DIVISION.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5024: \$COMPILE unknown.cob"
-at_fn_check_prepare_dynamic "$COMPILE unknown.cob" "run_extensions.at:5024"
-( $at_check_trace; $COMPILE unknown.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "unknown.cob:2: error: invalid SOURCE directive option 'UNKNOWN'
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_extensions.at:5024"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5027: \$COMPILE lit.cob"
-at_fn_check_prepare_dynamic "$COMPILE lit.cob" "run_extensions.at:5027"
-( $at_check_trace; $COMPILE lit.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "lit.cob:2: error: invalid SOURCE directive option
-lit.cob:2: error: PROGRAM-ID header missing
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_extensions.at:5027"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1196
-#AT_START_1197
-at_fn_group_banner 1197 'run_extensions.at:5035' \
- "Variable format" " " 4
-at_xfail=no
-(
- printf "%s\n" "1197. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- >>SOURCE FORMAT VARIABLE
-000010 IDENTIFICATION DIVISION.
-000020 PROGRAM-ID. prog.
-000030* blah blah blah
-000040 PROCEDURE DIVISION.
-000050 DISPLAY "Hello!"
-000060 .
-000070 END PROGRAM prog.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5049: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:5049"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5049"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5050: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:5050"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Hello!
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5050"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-# Check that manually setting -ftext-column in combination with
-# variable source format is still allowed: -ftext-column now impacts
-# fixed and cobol85 format only; 250 is the default right margin for
-# variable format.
-cat >fit.cob <<'_ATEOF'
-
-000010 IDENTIFICATION DIVISION.
-000020 PROGRAM-ID. fit.
-000040 PROCEDURE DIVISION.
-000050 DISPLAY "Hello!"
-000060 STOP RUN.
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5065: \$COMPILE -fformat=variable -ftext-column=250 fit.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fformat=variable -ftext-column=250 fit.cob" "run_extensions.at:5065"
-( $at_check_trace; $COMPILE -fformat=variable -ftext-column=250 fit.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5065"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5066: \$COMPILE -fformat=variable -ftext-column=72 -o fit fit.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fformat=variable -ftext-column=72 -o fit fit.cob" "run_extensions.at:5066"
-( $at_check_trace; $COMPILE -fformat=variable -ftext-column=72 -o fit fit.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5066"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5067: \$COBCRUN_DIRECT ./fit"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./fit" "run_extensions.at:5067"
-( $at_check_trace; $COBCRUN_DIRECT ./fit
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Hello!
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5067"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1197
-#AT_START_1198
-at_fn_group_banner 1198 'run_extensions.at:5074' \
- "COBOLX format" " " 4
-at_xfail=no
-(
- printf "%s\n" "1198. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- >>SOURCE FORMAT COBOLX
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-* area B can extend up to character position 255
- PROCEDURE DIVISION.
-/
- DISPLAY "Hello!"
- DISPLAY "Hi!"
-DDISPLAY "Hey!"
-D DISPLAY "Bye!"
-* trucated alphanumeric literals are not padded with spaces
- DISPLAY " 20 30 40 50 60 70 80 90 100 110 120 130
-- " 140 150 160 170 180 190 200 210 220 230 240 250"
- .
-_ATEOF
-
-# " (closing quote)
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5095: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:5095"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5095"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5096: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:5096"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Hello!
-Hi!
- 20 30 40 50 60 70 80 90 100 110 120 130 140 150 160 170 180 190 200 210 220 230 240 250
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5096"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5101: \$COMPILE -fdebugging-line -o prog prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fdebugging-line -o prog prog.cob" "run_extensions.at:5101"
-( $at_check_trace; $COMPILE -fdebugging-line -o prog prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5101"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5102: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:5102"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Hello!
-Hi!
-Hey!
-Bye!
- 20 30 40 50 60 70 80 90 100 110 120 130 140 150 160 170 180 190 200 210 220 230 240 250
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5102"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1198
-#AT_START_1199
-at_fn_group_banner 1199 'run_extensions.at:5113' \
- "X/Open free-form format" " " 4
-at_xfail=no
-(
- printf "%s\n" "1199. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
-* Sample program in X/Open free-form format.
-
-IDENTIFICATION DIVISION.
-PROGRAM-ID. prog.
-DATA DIVISION.
-WORKING-STORAGE SECTION.
-PROCEDURE DIVISION.
-/ Beginning of the code
-DISPLAY "OK" NO ADVANCING
-* If debug:
-D DISPLAY "KO" NO ADVANCING
-STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5131: \$COMPILE -fformat=xopen -fno-areacheck prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fformat=xopen -fno-areacheck prog.cob" "run_extensions.at:5131"
-( $at_check_trace; $COMPILE -fformat=xopen -fno-areacheck prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5131"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5132: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:5132"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5132"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5133: \$COMPILE -fformat=xopen -fno-areacheck -fdebugging-line -o prog prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fformat=xopen -fno-areacheck -fdebugging-line -o prog prog.cob" "run_extensions.at:5133"
-( $at_check_trace; $COMPILE -fformat=xopen -fno-areacheck -fdebugging-line -o prog prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5133"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5134: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:5134"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OKKO" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5134"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >fit.cob <<'_ATEOF'
-
-* Sample program in X/Open format, and with longer lines and truncated literals.
-
-IDENTIFICATION DIVISION.
-PROGRAM-ID. fit.
-DATA DIVISION.
-WORKING-STORAGE SECTION.
-PROCEDURE DIVISION.
-DISPLAY ' 20 30 40 50 60 70 79'
-D DISPLAY ' 20 30 40 50 60 70 79'
-STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5149: \$COMPILE -fformat=xopen -fno-areacheck fit.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fformat=xopen -fno-areacheck fit.cob" "run_extensions.at:5149"
-( $at_check_trace; $COMPILE -fformat=xopen -fno-areacheck fit.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5149"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5150: \$COBCRUN_DIRECT ./fit"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./fit" "run_extensions.at:5150"
-( $at_check_trace; $COBCRUN_DIRECT ./fit
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " 20 30 40 50 60 70 79
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5150"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5153: \$COMPILE -fformat=xopen -fno-areacheck -fdebugging-line -o fit fit.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fformat=xopen -fno-areacheck -fdebugging-line -o fit fit.cob" "run_extensions.at:5153"
-( $at_check_trace; $COMPILE -fformat=xopen -fno-areacheck -fdebugging-line -o fit fit.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5153"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5154: \$COBCRUN_DIRECT ./fit"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./fit" "run_extensions.at:5154"
-( $at_check_trace; $COBCRUN_DIRECT ./fit
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " 20 30 40 50 60 70 79
- 20 30 40 50 60 70 79
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5154"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1199
-#AT_START_1200
-at_fn_group_banner 1200 'run_extensions.at:5162' \
- "TERMINAL format" " " 4
-at_xfail=no
-(
- printf "%s\n" "1200. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-# FIXME: For now, only comment paragraphs can be used to check proper
-# handling of margin B w.r.t indicators; better tests shall be
-# implemented once area A/B checking will be available
-
-cat >prog.cob <<'_ATEOF'
-
-* Sample program in ACU terminal format.
-
-IDENTIFICATION DIVISION.
-PROGRAM-ID. prog.
-AUTHOR.
- Somebody.
-\D Somebody else.
- One last author.
-DATA DIVISION.
-WORKING-STORAGE SECTION.
-PROCEDURE DIVISION.
- DISPLAY "OK" NO ADVANCING
- END-DISPLAY.
-\D DISPLAY "KO" NO ADVANCING
-\D END-DISPLAY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5188: \$COMPILE -fformat=terminal -fcomment-paragraphs=ok prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fformat=terminal -fcomment-paragraphs=ok prog.cob" "run_extensions.at:5188"
-( $at_check_trace; $COMPILE -fformat=terminal -fcomment-paragraphs=ok prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5188"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5189: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:5189"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OK" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5189"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5190: \$COMPILE -fformat=terminal -fcomment-paragraphs=ok -fdebugging-line -o prog prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fformat=terminal -fcomment-paragraphs=ok -fdebugging-line -o prog prog.cob" "run_extensions.at:5190"
-( $at_check_trace; $COMPILE -fformat=terminal -fcomment-paragraphs=ok -fdebugging-line -o prog prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5190"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5191: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:5191"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "OKKO" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5191"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >marginberr.cob <<'_ATEOF'
-
-IDENTIFICATION DIVISION.
-PROGRAM-ID. marginberr.
-AUTHOR.
-* Comment paragraph where margin B depends on indicator width:
- Somebody
-\D Somebody else.
-DATA DIVISION.
-WORKING-STORAGE SECTION.
-PROCEDURE DIVISION.
- DISPLAY "OK" NO ADVANCING
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5207: \$COMPILE -fformat=terminal -fcomment-paragraphs=ok -fdebugging-line marginberr.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fformat=terminal -fcomment-paragraphs=ok -fdebugging-line marginberr.cob" "run_extensions.at:5207"
-( $at_check_trace; $COMPILE -fformat=terminal -fcomment-paragraphs=ok -fdebugging-line marginberr.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "marginberr.cob:7: error: PROCEDURE DIVISION header missing
-marginberr.cob:7: error: syntax error, unexpected Identifier (Area A)
-marginberr.cob:8: error: syntax error, unexpected DATA
-marginberr.cob:9: error: syntax error, unexpected WORKING-STORAGE
-marginberr.cob:10: error: syntax error, unexpected PROCEDURE
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_extensions.at:5207"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >fit.cob <<'_ATEOF'
-
-* Sample program in ACU terminal format, and with longer lines and truncated literals.
-
-IDENTIFICATION DIVISION.
-PROGRAM-ID. fit.
-DATA DIVISION.
-WORKING-STORAGE SECTION.
-PROCEDURE DIVISION.
- DISPLAY ' 20 30 40 50 60 70 80 90 100 110 120 130 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319'
-\D DISPLAY ' 20 30 40 50 60 70 80 90 100 110 120 130 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319'
-\D END-DISPLAY.
- DISPLAY ' 20 30 40 50 60 70 80 90 100 110 120 130
-- ' 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319'
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5231: \$COMPILE -fformat=terminal fit.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fformat=terminal fit.cob" "run_extensions.at:5231"
-( $at_check_trace; $COMPILE -fformat=terminal fit.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5231"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5232: \$COBCRUN_DIRECT ./fit"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./fit" "run_extensions.at:5232"
-( $at_check_trace; $COBCRUN_DIRECT ./fit
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " 20 30 40 50 60 70 80 90 100 110 120 130 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319
- 20 30 40 50 60 70 80 90 100 110 120 130 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5232"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5236: \$COMPILE -fformat=terminal -fdebugging-line -o fit fit.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fformat=terminal -fdebugging-line -o fit fit.cob" "run_extensions.at:5236"
-( $at_check_trace; $COMPILE -fformat=terminal -fdebugging-line -o fit fit.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5236"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5237: \$COBCRUN_DIRECT ./fit"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./fit" "run_extensions.at:5237"
-( $at_check_trace; $COBCRUN_DIRECT ./fit
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " 20 30 40 50 60 70 80 90 100 110 120 130 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319
- 20 30 40 50 60 70 80 90 100 110 120 130 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319
- 20 30 40 50 60 70 80 90 100 110 120 130 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5237"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1200
-#AT_START_1201
-at_fn_group_banner 1201 'run_extensions.at:5246' \
- "MF FREE format (X/Open)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1201. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
-IDENTIFICATION DIVISION.
-PROGRAM-ID. prog.
-DATA DIVISION.
-WORKING-STORAGE SECTION.
-1 X PIC 99.
-PROCEDURE DIVISION.
-MAIN.
-COMPUTE X = 6
-* 7
-DISPLAY X NO ADVANCING
-STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5263: \$COMPILE -free -o prog-free prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -free -o prog-free prog.cob" "run_extensions.at:5263"
-( $at_check_trace; $COMPILE -free -o prog-free prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5263"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5264: \$COBCRUN_DIRECT ./prog-free"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog-free" "run_extensions.at:5264"
-( $at_check_trace; $COBCRUN_DIRECT ./prog-free
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "42" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5264"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5266: \$COMPILE -std=mf -fformat=free -o prog-mf-fformat-free prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=mf -fformat=free -o prog-mf-fformat-free prog.cob" "run_extensions.at:5266"
-( $at_check_trace; $COMPILE -std=mf -fformat=free -o prog-mf-fformat-free prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5266"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5267: \$COBCRUN_DIRECT ./prog-mf-fformat-free"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog-mf-fformat-free" "run_extensions.at:5267"
-( $at_check_trace; $COBCRUN_DIRECT ./prog-mf-fformat-free
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "06" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5267"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5269: \$COMPILE -std=mf -free -o prog-mf-free prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=mf -free -o prog-mf-free prog.cob" "run_extensions.at:5269"
-( $at_check_trace; $COMPILE -std=mf -free -o prog-mf-free prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5269"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5270: \$COBCRUN_DIRECT ./prog-mf-free"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog-mf-free" "run_extensions.at:5270"
-( $at_check_trace; $COBCRUN_DIRECT ./prog-mf-free
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "06" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5270"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >prog2.cob <<'_ATEOF'
-
- $SET SOURCEFORMAT"FREE"
-IDENTIFICATION DIVISION.
-PROGRAM-ID. prog.
-DATA DIVISION.
-WORKING-STORAGE SECTION.
-1 X PIC 99.
-PROCEDURE DIVISION.
-MAIN.
-COMPUTE X = 6
-* 7
-DISPLAY X NO ADVANCING
-STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5287: \$COMPILE prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog2.cob" "run_extensions.at:5287"
-( $at_check_trace; $COMPILE prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5287"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5288: \$COBCRUN_DIRECT ./prog2"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2" "run_extensions.at:5288"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "42" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5288"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5290: \$COMPILE -std=mf -o prog2-mf prog2.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=mf -o prog2-mf prog2.cob" "run_extensions.at:5290"
-( $at_check_trace; $COMPILE -std=mf -o prog2-mf prog2.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5290"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5291: \$COBCRUN_DIRECT ./prog2-mf"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog2-mf" "run_extensions.at:5291"
-( $at_check_trace; $COBCRUN_DIRECT ./prog2-mf
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "06" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5291"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1201
-#AT_START_1202
-at_fn_group_banner 1202 'run_extensions.at:5296' \
- "Binary COMP-1 (1)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1202. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 comp1 COMP-1.
- 01 num PIC 9.9.
-
- PROCEDURE DIVISION.
- COMPUTE comp1 = 7 / 2
- MOVE comp1 TO num
- DISPLAY num
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5315: \$COMPILE -fbinary-comp-1 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fbinary-comp-1 prog.cob" "run_extensions.at:5315"
-( $at_check_trace; $COMPILE -fbinary-comp-1 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5315"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5316: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:5316"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "3.0
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5316"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5319: \$COMPILE -fno-binary-comp-1 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fno-binary-comp-1 prog.cob" "run_extensions.at:5319"
-( $at_check_trace; $COMPILE -fno-binary-comp-1 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5319"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5320: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:5320"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "3.5
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5320"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1202
-#AT_START_1203
-at_fn_group_banner 1203 'run_extensions.at:5327' \
- "Binary COMP-1 (2)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1203. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- >>IF BINARY-COMP-1 IS DEFINED
- $SET COMP-1(BINARY)
- >>ELSE
- $SET COMP1 "float"
- >>END-IF
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 comp1 COMP-1.
- 01 num PIC 9.9.
-
- PROCEDURE DIVISION.
- COMPUTE comp1 = 7 / 2
- MOVE comp1 TO num
- DISPLAY num
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5351: \$COMPILE -DBINARY-COMP-1 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -DBINARY-COMP-1 prog.cob" "run_extensions.at:5351"
-( $at_check_trace; $COMPILE -DBINARY-COMP-1 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5351"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5352: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:5352"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "3.0
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5352"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5355: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:5355"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5355"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5356: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:5356"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "3.5
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5356"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1203
-#AT_START_1204
-at_fn_group_banner 1204 'run_extensions.at:5363' \
- "EXHIBIT statement" " " 4
-at_xfail=no
-(
- printf "%s\n" "1204. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 77 VAR-1 PIC X(8) VALUE SPACES.
- 77 VAR-2 PIC 999.
- PROCEDURE DIVISION.
- EXHIBIT CHANGED VAR-1 'X'
- MOVE ALL 'X' TO VAR-1
- STRING "123" DELIMITED BY SIZE INTO VAR-1
- EXHIBIT NAMED VAR-1 VAR-2 'Y'
- EXHIBIT VAR-2
- EXHIBIT SORT-RETURN TALLY
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5383: \$COMPILE -std=mvs -Wno-strict-typing -Wno-pending prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=mvs -Wno-strict-typing -Wno-pending prog.cob" "run_extensions.at:5383"
-( $at_check_trace; $COMPILE -std=mvs -Wno-strict-typing -Wno-pending prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5383"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5384: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:5384"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" " X
-VAR-1 = 123XXXXX VAR-2 = 000 Y
-VAR-2 = 000
-SORT-RETURN = +000000000 TALLY = 00000
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5384"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1204
-#AT_START_1205
-at_fn_group_banner 1205 'run_extensions.at:5393' \
- "Bit Operations" " " 4
-at_xfail=no
-(
- printf "%s\n" "1205. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X1 PIC X COMP-X VALUE 0.
- 01 X2 PIC X COMP-X VALUE 0.
- 01 X3 PIC X COMP-X VALUE 0.
- 01 XX1 PIC XX COMP-X VALUE 0.
- 01 XX2 PIC XX COMP-X VALUE 0.
- 01 XX3 PIC XX COMP-X VALUE 0.
- PROCEDURE DIVISION.
- MOVE 2 TO XX2 X2
- MOVE 4 TO XX3 X3.
-
- DISPLAY "Test using PIC XX COMP-X"
- COMPUTE XX1 = (XX2 B-OR XX3).
- DISPLAY XX2 " B-OR " XX3 " is " XX1.
- MOVE 3 TO XX3.
- COMPUTE XX1 = (XX2 B-XOR XX3).
- DISPLAY XX2 " B-XOR " XX3 " is " XX1.
- MOVE 3 TO XX2
- MOVE 1 TO XX1.
- IF (XX2 B-AND XX1) = XX1
- DISPLAY XX2 " B-AND " XX1 " = " XX1 " TRUE"
- ELSE
- DISPLAY XX2 " B-AND " XX1 " = " XX1 " FALSE"
- END-IF.
- COMPUTE XX1 = (XX2 B-XOR XX3) + 1 .
- DISPLAY "(" XX2 " B-XOR " XX3 ") + 1 is " XX1.
- COMPUTE XX1 = XX2 B-XOR (XX3 + 1).
- DISPLAY XX2 " B-XOR (" XX3 " + 1) is " XX1.
- MOVE x#09 TO XX3.
- MOVE x#0E TO XX2.
- COMPUTE XX1 = XX2 B-AND XX3 .
- DISPLAY XX2 " B-AND " XX3 " is " XX1.
- COMPUTE XX1 = (x#05 B-OR x#22).
- DISPLAY "x#05 B-OR x#22 is " XX1.
- COMPUTE XX1 = B-NOT XX2 .
- DISPLAY "B-NOT " XX2 " is " XX1.
- COMPUTE XX1 = B-NOT x#22 .
- DISPLAY "B-NOT x#22 is " XX1.
-
- DISPLAY " -----"
- DISPLAY "Test using PIC X COMP-X"
- COMPUTE X1 = (X2 B-OR X3).
- DISPLAY X2 " B-OR " X3 " is " X1.
- MOVE 3 TO X3.
- COMPUTE X1 = (X2 B-XOR X3).
- DISPLAY X2 " B-XOR " X3 " is " X1.
- MOVE 3 TO X2
- MOVE 1 TO X1.
- IF (X2 B-AND X1) = X1
- DISPLAY X2 " B-AND " X1 " = " X1 " TRUE"
- ELSE
- DISPLAY X2 " B-AND " X1 " = " X1 " FALSE"
- END-IF.
- COMPUTE X1 = (X2 B-XOR X3) + 1 .
- DISPLAY "(" X2 " B-XOR " X3 ") + 1 is " X1.
- COMPUTE X1 = X2 B-XOR (X3 + 1).
- DISPLAY X2 " B-XOR (" X3 " + 1) is " X1.
- MOVE x#09 TO X3.
- MOVE x#0E TO X2.
- COMPUTE X1 = X2 B-AND X3 .
- DISPLAY X2 " B-AND " X3 " is " X1.
- COMPUTE X1 = B-NOT X2 .
- DISPLAY "B-NOT " X2 " is " X1.
- COMPUTE X1 = B-NOT x#22 .
- DISPLAY "B-NOT x#22 is " X1.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5468: \$COMPILE -facu-literal=ok -fno-trunc prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -facu-literal=ok -fno-trunc prog.cob" "run_extensions.at:5468"
-( $at_check_trace; $COMPILE -facu-literal=ok -fno-trunc prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5468"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5470: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:5470"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Test using PIC XX COMP-X
-00002 B-OR 00004 is 00006
-00002 B-XOR 00003 is 00001
-00003 B-AND 00001 = 00001 TRUE
-(00003 B-XOR 00003) + 1 is 00001
-00003 B-XOR (00003 + 1) is 00007
-00014 B-AND 00009 is 00008
-x#05 B-OR x#22 is 00039
-B-NOT 00014 is 65521
-B-NOT x#22 is 65501
- -----
-Test using PIC X COMP-X
-002 B-OR 004 is 006
-002 B-XOR 003 is 001
-003 B-AND 001 = 001 TRUE
-(003 B-XOR 003) + 1 is 001
-003 B-XOR (003 + 1) is 007
-014 B-AND 009 is 008
-B-NOT 014 is 241
-B-NOT x#22 is 221
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5470"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1205
-#AT_START_1206
-at_fn_group_banner 1206 'run_extensions.at:5496' \
- "Bit Shift Operations" " " 4
-at_xfail=no
-(
- printf "%s\n" "1206. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X1 PIC XX COMP-X VALUE 0.
- 01 X2 PIC XX COMP-X VALUE 0.
- 01 N1 PIC 9(4) COMP-5 VALUE 0.
- 01 N2 PIC 9(4) COMP-5 VALUE 0.
- PROCEDURE DIVISION.
- MOVE x#0A TO X2.
- DISPLAY "Using PIC XX COMP-X"
- COMPUTE X1 = (x#22 B-LEFT x#05).
- DISPLAY " x#22 B-LEFT x#05 is " X1.
- COMPUTE X1 = (x#22 B-RIGHT x#02).
- DISPLAY " x#22 B-RIGHT x#02 is " X1.
- COMPUTE X1 = (x#22 B-SHIFT-L x#05).
- DISPLAY " x#22 B-SHIFT-L x#05 is " X1.
- COMPUTE X1 = (x#22 B-SHIFT-R x#02).
- DISPLAY " x#22 B-SHIFT-R x#02 is " X1.
- COMPUTE X1 = (X2 B-LEFT x#05).
- DISPLAY X2 " B-LEFT x#05 is " X1.
- COMPUTE X1 = (X2 B-RIGHT x#02).
- DISPLAY X2 " B-RIGHT x#02 is " X1.
- MOVE x#7573 TO X2.
- COMPUTE X1 = (X2 B-SHIFT-LC 4).
- DISPLAY X2 " B-SHIFT-LC 4 is " X1.
- COMPUTE X1 = (X2 B-SHIFT-RC 4).
- DISPLAY X2 " B-SHIFT-RC 4 is " X1.
-
- MOVE 10 TO N2.
- DISPLAY "Using PIC 9(4) COMP-5"
- COMPUTE N1 = (x#22 B-LEFT x#05).
- DISPLAY " x#22 B-LEFT x#05 is " N1.
- COMPUTE N1 = (x#22 B-RIGHT x#02).
- DISPLAY " x#22 B-RIGHT x#02 is " N1.
- COMPUTE N1 = (x#22 B-SHIFT-L x#05).
- DISPLAY " x#22 B-SHIFT-L x#05 is " N1.
- COMPUTE N1 = (x#22 B-SHIFT-R x#02).
- DISPLAY " x#22 B-SHIFT-R x#02 is " N1.
- COMPUTE N1 = (N2 B-LEFT x#05).
- DISPLAY N2 " B-LEFT x#05 is " N1.
- COMPUTE N1 = (N2 B-RIGHT x#02).
- DISPLAY N2 " B-RIGHT x#02 is " N1.
- STOP RUN.
-_ATEOF
-
-
-# also syntax-checking MF aliases...
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5547: \$COMPILE -std=mf -fno-trunc prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -std=mf -fno-trunc prog.cob" "run_extensions.at:5547"
-( $at_check_trace; $COMPILE -std=mf -fno-trunc prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5547"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5549: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:5549"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "Using PIC XX COMP-X
- x#22 B-LEFT x#05 is 01088
- x#22 B-RIGHT x#02 is 00008
- x#22 B-SHIFT-L x#05 is 01088
- x#22 B-SHIFT-R x#02 is 00008
-00010 B-LEFT x#05 is 00320
-00010 B-RIGHT x#02 is 00002
-30067 B-SHIFT-LC 4 is 22327
-30067 B-SHIFT-RC 4 is 14167
-Using PIC 9(4) COMP-5
- x#22 B-LEFT x#05 is 01088
- x#22 B-RIGHT x#02 is 00008
- x#22 B-SHIFT-L x#05 is 01088
- x#22 B-SHIFT-R x#02 is 00008
-00010 B-LEFT x#05 is 00320
-00010 B-RIGHT x#02 is 00002
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5549"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1206
-#AT_START_1207
-at_fn_group_banner 1207 'run_extensions.at:5571' \
- "GCOS floating-point usages" " " 4
-at_xfail=no
-(
- printf "%s\n" "1207. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 FLOATS.
- 03 FLOAT-BINARY-32 USAGE COMPUTATIONAL-9 VALUE -4.2E+1.
- 03 FLOAT-BINARY-64 USAGE COMPUTATIONAL-10 VALUE 0.0.
- 03 FLOAT-BINARY-128 USAGE COMPUTATIONAL-15 VALUE 1.0.
-
- PROCEDURE DIVISION.
- DISPLAY FLOAT-BINARY-32
-
- DISPLAY FLOAT-BINARY-64
- MOVE 9.899999999999E+304 TO FLOAT-BINARY-64
- DISPLAY FLOAT-BINARY-64
- ADD -1.111111111011E302 TO FLOAT-BINARY-64
- DISPLAY FLOAT-BINARY-64
-
- *> NOTE: FLOAT-BINARY-128 is only syntax-checked as support for
- *> 128bit floating-point is still partial / "processor dependent"
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5599: \$COMPILE -std=gcos-strict prog.cob -Wno-unfinished"
-at_fn_check_prepare_dynamic "$COMPILE -std=gcos-strict prog.cob -Wno-unfinished" "run_extensions.at:5599"
-( $at_check_trace; $COMPILE -std=gcos-strict prog.cob -Wno-unfinished
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5599"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5600: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:5600"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; printf "%s\n" "-42
-0
-9.899999999998999E+304
-9.888888888888887E+304
-" | \
- $at_diff - "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5600"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1207
-#AT_START_1208
-at_fn_group_banner 1208 'run_extensions.at:5610' \
- "PICTURE L (basic)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1208. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 1 W-DATA.
- 2 X-DAT PICTURE LX(10) DEPENDING ON LGX.
- 2 X-ALPHA PICTURE LA(10) DEPENDING ON LGX.
- 2 Y-DAT PICTURE LX(9) DEPENDING ON LGY.
- 2 Y-ALPHA PICTURE LA(9) DEPENDING ON LGY.
- 1 W-NESTED.
- 2 X-GRP.
- 3 X-0 PICTURE X VALUE "0".
- 3 X-V PICTURE LX(10) DEPENDING ON LGX.
- 3 X-1 PICTURE X VALUE "1".
- 1 W-LGS.
- 2 LGX USAGE COMP-1 VALUE 10.
- 2 LGY PICTURE 9 VALUE 9.
- 1 W-LATE-LVAR.
- 2 Z-GRP.
- 3 Z-V PICTURE LX(2) DEPENDING ON LGZ.
- 3 UNUSED-0 PICTURE X VALUE "1".
- 2 LGZ PICTURE 9 VALUE 2.
- 1 W-LEN USAGE COMP-1.
- PROCEDURE DIVISION.
- MAIN.
- MOVE SPACES TO W-DATA
- MOVE SPACES TO X-V
- IF X-DAT NOT EQUAL " " OR
- X-ALPHA NOT EQUAL " " OR
- Y-DAT NOT EQUAL " " OR
- Y-ALPHA NOT EQUAL " "
- DISPLAY "GROUP INITIALIZATION WITH SPACES FAILED"
- PERFORM SHOW-VARS
- END-IF
- MOVE 5 TO LGX
- MOVE 1 TO LGY
- IF W-DATA NOT EQUAL " "
- DISPLAY "GROUP COMPARISON FAILED (W-DATA)"
- PERFORM SHOW-VARS
- END-IF
- IF W-NESTED NOT EQUAL "0 1" OR
- X-GRP NOT EQUAL W-NESTED OR
- X-V NOT EQUAL " "
- DISPLAY "GROUP COMPARISON FAILED (W-NESTED)"
- PERFORM SHOW-VARS
- END-IF
- MOVE ".........." TO X-DAT
- MOVE "XXXXXXXXXX" TO X-ALPHA
- MOVE "999999999" TO Y-DAT
- MOVE "AAAAAAAAA" TO Y-ALPHA
- IF X-DAT NOT EQUAL "....." OR
- X-ALPHA NOT EQUAL "XXXXX" OR
- Y-DAT NOT EQUAL "9" OR
- Y-ALPHA NOT EQUAL "A"
- DISPLAY "MOVES FROM LITERALS FAILED"
- PERFORM SHOW-VARS
- END-IF
- MOVE X-DAT TO Y-DAT
- MOVE Y-ALPHA TO X-ALPHA
- IF X-DAT NOT EQUAL "....." OR
- X-ALPHA NOT EQUAL "A " OR
- Y-DAT NOT EQUAL "." OR
- Y-ALPHA NOT EQUAL "A"
- DISPLAY "MOVES FROM/TO VARS FAILED"
- PERFORM SHOW-VARS
- END-IF
- MOVE "AAAAA" TO X-ALPHA
- MOVE 1 TO LGX
- INITIALIZE X-ALPHA
- MOVE 10 TO LGX
- IF X-ALPHA NOT EQUAL " AAAA "
- DISPLAY "DIRECT VAR INITIALIZATION FAILED"
- PERFORM SHOW-VARS
- END-IF
- MOVE 1 TO LGX
- COMPUTE W-LEN = LENGTH OF X-DAT
- IF W-LEN NOT EQUAL 10
- DISPLAY "UNEXPECTED RESULT FOR 'LENGTH OF X-DAT': "
- W-LEN
- PERFORM SHOW-VARS
- END-IF
- COMPUTE W-LEN = FUNCTION LENGTH (X-ALPHA)
- IF W-LEN NOT EQUAL 1
- DISPLAY "UNEXPECTED RESULT FOR 'FUNCTION LENGTH "
- "(X-ALPHA)': " W-LEN
- PERFORM SHOW-VARS
- END-IF
- MOVE 9 TO LGY
- MOVE ALL "A" TO Y-ALPHA
- MOVE 5 TO LGY
- INITIALIZE Y-ALPHA
- MOVE 9 TO LGY
- IF Y-ALPHA NOT EQUAL " AAAA"
- DISPLAY "UNEXPECTED RESULT AFTER 'MOVE ALL/INITIALIZE': "
- Y-ALPHA
- PERFORM SHOW-VARS
- END-IF
- PERFORM CHECK-LATE-LVAR
- STOP RUN
- .
- SHOW-VARS.
- DISPLAY W-DATA "*"
- DISPLAY X-DAT "*" X-ALPHA "*" Y-DAT "*" Y-ALPHA "*"
- DISPLAY W-NESTED "*"
- DISPLAY X-GRP "*"
- DISPLAY X-V "*"
- .
- CHECK-LATE-LVAR.
- MOVE "aa" TO Z-GRP (1:2)
- MOVE 1 TO LGZ
- MOVE SPACES TO Z-V
- IF Z-GRP NOT EQUAL " a1"
- DISPLAY "UNEXPECTED Z-GRP WITH NESTED LATE L-VAR: "
- "*" Z-GRP "*"
- END-IF
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5732: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:5732"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5732"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5733: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:5733"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5733"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5734: \$COMPILE -fodoslide -o prog-x prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fodoslide -o prog-x prog.cob" "run_extensions.at:5734"
-( $at_check_trace; $COMPILE -fodoslide -o prog-x prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5734"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5735: \$COBCRUN_DIRECT ./prog-x"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog-x" "run_extensions.at:5735"
-( $at_check_trace; $COBCRUN_DIRECT ./prog-x
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5735"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1208
-#AT_START_1209
-at_fn_group_banner 1209 'run_extensions.at:5740' \
- "PICTURE L (under/over shoot)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1209. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >under.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. under.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 1 X PICTURE LX(9) DEPENDING ON LGX.
- 1 LGX PIC 9 VALUE 9.
- PROCEDURE DIVISION.
- MAIN.
- MOVE 0 TO LGX
- DISPLAY X
- STOP RUN
- .
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5757: \$COMPILE under.cob"
-at_fn_check_prepare_dynamic "$COMPILE under.cob" "run_extensions.at:5757"
-( $at_check_trace; $COMPILE under.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5757"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5758: \$COBCRUN_DIRECT ./under"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./under" "run_extensions.at:5758"
-( $at_check_trace; $COBCRUN_DIRECT ./under
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: under.cob:11: error: OCCURS DEPENDING ON 'LGX' out of bounds: 0
-note: minimum subscript for 'FILLER 1': 1
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_extensions.at:5758"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5762: \$COMPILE -fodoslide -o under-x under.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fodoslide -o under-x under.cob" "run_extensions.at:5762"
-( $at_check_trace; $COMPILE -fodoslide -o under-x under.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5762"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5763: \$COBCRUN_DIRECT ./under-x"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./under-x" "run_extensions.at:5763"
-( $at_check_trace; $COBCRUN_DIRECT ./under-x
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: under.cob:11: error: OCCURS DEPENDING ON 'LGX' out of bounds: 0
-note: minimum subscript for 'FILLER 1': 1
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_extensions.at:5763"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
-cat >over.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. over.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 1 X PICTURE LX(5) DEPENDING ON LGX.
- 1 LGX PIC 9 VALUE 9.
- PROCEDURE DIVISION.
- MAIN.
- DISPLAY X
- STOP RUN
- .
-_ATEOF
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5781: \$COMPILE over.cob"
-at_fn_check_prepare_dynamic "$COMPILE over.cob" "run_extensions.at:5781"
-( $at_check_trace; $COMPILE over.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5781"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5782: \$COBCRUN_DIRECT ./over"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./over" "run_extensions.at:5782"
-( $at_check_trace; $COBCRUN_DIRECT ./over
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: over.cob:10: error: OCCURS DEPENDING ON 'LGX' out of bounds: 9
-note: maximum subscript for 'FILLER 1': 5
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_extensions.at:5782"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5786: \$COMPILE -fodoslide -o over-x over.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fodoslide -o over-x over.cob" "run_extensions.at:5786"
-( $at_check_trace; $COMPILE -fodoslide -o over-x over.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5786"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5787: \$COBCRUN_DIRECT ./over-x"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./over-x" "run_extensions.at:5787"
-( $at_check_trace; $COBCRUN_DIRECT ./over-x
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-echo >>"$at_stderr"; printf "%s\n" "libcob: over.cob:10: error: OCCURS DEPENDING ON 'LGX' out of bounds: 9
-note: maximum subscript for 'FILLER 1': 5
-" | \
- $at_diff - "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 1 $at_status "$at_srcdir/run_extensions.at:5787"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1209
-#AT_START_1210
-at_fn_group_banner 1210 'run_extensions.at:5795' \
- "PICTURE L (MOVE CORRESPONDING)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1210. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >corr.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. corr.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 1 W-DATA.
- 2 GA.
- 3 X PICTURE X VALUE "X".
- 3 YZ PICTURE XX VALUE "YZ".
- 3 X1 PICTURE LX(5) DEPENDING ON LGX.
- 2 GB.
- 3 X1 PICTURE LX(5) DEPENDING ON LGX.
- 3 X PICTURE X VALUE SPACE.
- 2 GC.
- 3 X1 PICTURE X(5) VALUE "+++++".
- 1 LGX USAGE COMP-1 VALUE 5.
- 1 CNT USAGE COMP-1.
- PROCEDURE DIVISION.
- MAIN.
- MOVE "AAAAA" TO X1 OF GA
- MOVE "BBBBB" TO X1 OF GB
- IF X1 OF GA NOT EQUAL "AAAAA" OR
- X1 OF GB NOT EQUAL "BBBBB"
- DISPLAY "GLOBAL INITIALIZATION FAILED"
- PERFORM SHOW-VARS
- END-IF
- MOVE 2 TO LGX
- IF W-DATA NOT EQUAL "XYZAAAAABBBBB +++++"
- DISPLAY "GROUP COMPARISON FAILED"
- DISPLAY GA
- PERFORM SHOW-VARS
- END-IF
- * From basic to pic-l field: curr size should be ignored
- MOVE CORRESPONDING GC TO GA
- IF X1 OF GA NOT EQUAL "++" OR
- GA NOT EQUAL "XYZ+++++"
- DISPLAY "MOVE CORRESPONDING GC TO GA: FAILED"
- PERFORM SHOW-VARS
- END-IF
- * From pic-l to basic field: curr. size is ignored
- MOVE CORRESPONDING GB TO GC
- INSPECT X1 OF GC TALLYING CNT FOR ALL "B"
- IF X1 OF GC NOT EQUAL "BBBBB" OR
- CNT NOT EQUAL 5
- DISPLAY "MOVE CORRESPONDING GB TO GC: FAILED"
- PERFORM SHOW-VARS
- END-IF
- * From pic-l to pic-l: sizes are ignored
- MOVE CORRESPONDING GA TO GB
- MOVE 0 TO CNT
- INSPECT X1 OF GB TALLYING CNT FOR ALL "+"
- MOVE 5 TO LGX
- IF X1 OF GB NOT EQUAL "+++++" OR
- X OF GB NOT EQUAL "X" OR
- CNT NOT EQUAL 2
- DISPLAY "MOVE CORRESPONDING GA TO GB: FAILED"
- PERFORM SHOW-VARS
- END-IF
- STOP RUN
- .
- SHOW-VARS.
- DISPLAY "LGX: " LGX
- DISPLAY "W-DATA: *" W-DATA "*"
- DISPLAY "CNT: " CNT
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5865: \$COMPILE corr.cob"
-at_fn_check_prepare_dynamic "$COMPILE corr.cob" "run_extensions.at:5865"
-( $at_check_trace; $COMPILE corr.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5865"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5866: \$COBCRUN_DIRECT ./corr"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./corr" "run_extensions.at:5866"
-( $at_check_trace; $COBCRUN_DIRECT ./corr
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5866"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5867: \$COMPILE -fodoslide -o corr-x corr.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fodoslide -o corr-x corr.cob" "run_extensions.at:5867"
-( $at_check_trace; $COMPILE -fodoslide -o corr-x corr.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5867"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5868: \$COBCRUN_DIRECT ./corr-x"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./corr-x" "run_extensions.at:5868"
-( $at_check_trace; $COBCRUN_DIRECT ./corr-x
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5868"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1210
-#AT_START_1211
-at_fn_group_banner 1211 'run_extensions.at:5873' \
- "PICTURE L (OCCURS ... PIC L)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1211. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >nested.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. nested.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 1 W-DATA.
- 2 A OCCURS 4
- PICTURE LX(3) DEPENDING ON LGX.
- 2 B OCCURS 1 TO 10 DEPENDING ON LGY
- PICTURE LX(3) DEPENDING ON LGX.
- 1 LGX USAGE COMP-1 VALUE 3.
- 1 LGY USAGE COMP-1 VALUE 4.
- PROCEDURE DIVISION.
- MAIN.
- MOVE "AAAAAAAAAAAABBBBBBBBBBBB" TO W-DATA
- IF W-DATA NOT EQUAL "AAAAAAAAAAAABBBBBBBBBBBB" OR
- A (1) NOT EQUAL "AAA"
- DISPLAY "GLOBAL INITIALIZATION FAILED"
- DISPLAY A (1)
- PERFORM SHOW-VARS
- END-IF
- MOVE "CCC" TO A (4)
- IF W-DATA NOT EQUAL "AAAAAAAAACCCBBBBBBBBBBBB" OR
- A (4) NOT EQUAL "CCC"
- DISPLAY "MOVE TO A (4) FAILED"
- DISPLAY A (4)
- PERFORM SHOW-VARS
- END-IF
- MOVE A (3) TO B (2)
- IF W-DATA NOT EQUAL "AAAAAAAAACCCBBBAAABBBBBB" OR
- B (2) NOT EQUAL "AAA"
- DISPLAY "MOVE A (3) TO B (2) FAILED"
- DISPLAY B (2)
- PERFORM SHOW-VARS
- END-IF
- MOVE 6 TO LGY
- MOVE 2 TO LGX
- * Operand of 'INITIALIZE' may not have 'OCCURS DEPENDING ON':
- * INITIALIZE B (5)
- MOVE SPACES TO B (5)
- * *> NO ODOSLIDE: W-DATA EQUAL "AAAAAAAAACCCBBBAAABBBBBB "
- * *> ODOSLIDE: W-DATA EQUAL "AAAAAAAAACCCBBBAAABB"
- IF A (3) NOT EQUAL "AA" OR
- A (4) NOT EQUAL "CC" OR
- B (4) NOT EQUAL "BB" OR
- B (5) NOT EQUAL " "
- DISPLAY "MOVE 2,6 TO LGX,Y; INITIALIZE B (5); FAILED"
- PERFORM SHOW-VARS
- END-IF
- STOP RUN
- .
- SHOW-VARS.
- DISPLAY "W-DATA: *" W-DATA "*"
- DISPLAY "LGX: " LGX
- DISPLAY "LGY: " LGY
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5934: \$COMPILE nested.cob"
-at_fn_check_prepare_dynamic "$COMPILE nested.cob" "run_extensions.at:5934"
-( $at_check_trace; $COMPILE nested.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5934"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5935: \$COBCRUN_DIRECT ./nested"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./nested" "run_extensions.at:5935"
-( $at_check_trace; $COBCRUN_DIRECT ./nested
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5935"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5936: \$COMPILE -fodoslide -o nested-x nested.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fodoslide -o nested-x nested.cob" "run_extensions.at:5936"
-( $at_check_trace; $COMPILE -fodoslide -o nested-x nested.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5936"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:5937: \$COBCRUN_DIRECT ./nested-x"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./nested-x" "run_extensions.at:5937"
-( $at_check_trace; $COBCRUN_DIRECT ./nested-x
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:5937"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1211
-#AT_START_1212
-at_fn_group_banner 1212 'run_extensions.at:5942' \
- "PICTURE L (REDEFINES)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1212. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >redefines.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. redefines.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 1 W-DATA.
- 2 UNUSED-1 PIC X VALUE "?".
- 2 X-DAT PICTURE X(10).
- 2 Y1-DAT REDEFINES X-DAT PICTURE LX(5) DEPENDING ON LGY.
- 2 Y2-DAT REDEFINES X-DAT PICTURE LX(5) DEPENDING ON LGY.
- 2 UNUSED-2 PIC X VALUE "!".
- 2 Z-DAT PICTURE LX(7) DEPENDING ON LGZ.
- 2 T-DAT REDEFINES Z-DAT PICTURE LX(7) DEPENDING ON LGT.
- 2 UNUSED-3 PIC X VALUE ".".
- 1 W-LGS.
- 2 LGX PIC 99 VALUE 10.
- 2 LGY PIC 9 VALUE 5.
- 2 LGZ PIC 9 VALUE 7.
- 2 LGT PIC 9 VALUE 5.
- 1 W-DATA2.
- 2 W-X.
- 3 W-TAB0.
- 4 W-PREFIX PIC X(5).
- 4 PIC X(5).
- 3 W-TAB1 REDEFINES W-TAB0 PIC LX(10) DEPENDING LG-TAB1.
- 2 LG-TAB1 COMP-1.
- PROCEDURE DIVISION.
- MAIN.
- MOVE "......." TO Z-DAT
- MOVE 3 TO LGZ
- MOVE "0123456789" TO X-DAT
- IF Y1-DAT NOT EQUAL "01234" OR
- Y2-DAT NOT EQUAL "01234"
- DISPLAY "INITIAL MOVE FAILED"
- PERFORM SHOW-VARS
- END-IF
- MOVE "0123456" TO Z-DAT.
- IF T-DAT NOT EQUAL "012.." OR
- Z-DAT NOT EQUAL "012"
- DISPLAY "SECOND MOVE FAILED"
- PERFORM SHOW-VARS
- END-IF
- * Initialize group containing PICTURE L field: curr. size should be ignored
- MOVE 1 TO LGZ
- INITIALIZE W-DATA
- MOVE 7 TO LGT
- IF T-DAT NOT EQUAL " "
- DISPLAY "UNEXPECTED T-DAT AFTER 'INITIALIZE W-DATA': "
- T-DAT
- PERFORM SHOW-VARS
- END-IF
- * Initialize PICTURE L field: curr. size is ignored
- MOVE "???????" TO T-DAT
- INITIALIZE Z-DAT
- MOVE 2 TO LGZ
- IF T-DAT NOT EQUAL " ??????" OR
- Z-DAT NOT EQUAL " ?"
- DISPLAY "UNEXPECTED T-DAT/Z-DAT AFTER "
- "'INITIALIZE Z-DAT': " T-DAT "/" Z-DAT "*"
- PERFORM SHOW-VARS
- END-IF
- * Basic manipulation for late DEPENDING var
- MOVE "aaaaaaaaaa" TO W-TAB0
- MOVE 5 TO LG-TAB1
- IF W-TAB1 NOT EQUAL "aaaaa"
- DISPLAY "UNEXPECTED W-TAB1 WITH LATE L-VAR: *" W-TAB1 "*"
- END-IF
- IF W-X NOT EQUAL "aaaaaaaaaa"
- DISPLAY "UNEXPECTED W-X WITH NESTED LATE L-VAR: *" W-X "*"
- END-IF
- STOP RUN
- .
- SHOW-VARS.
- DISPLAY X-DAT "*" Y1-DAT "*" Y2-DAT "*" T-DAT "*" Z-DAT "*"
- .
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:6022: \$COMPILE redefines.cob"
-at_fn_check_prepare_dynamic "$COMPILE redefines.cob" "run_extensions.at:6022"
-( $at_check_trace; $COMPILE redefines.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:6022"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:6023: \$COBCRUN_DIRECT ./redefines"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./redefines" "run_extensions.at:6023"
-( $at_check_trace; $COBCRUN_DIRECT ./redefines
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:6023"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:6024: \$COMPILE -fodoslide -o redefines-x redefines.cob"
-at_fn_check_prepare_dynamic "$COMPILE -fodoslide -o redefines-x redefines.cob" "run_extensions.at:6024"
-( $at_check_trace; $COMPILE -fodoslide -o redefines-x redefines.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:6024"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:6025: \$COBCRUN_DIRECT ./redefines-x"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./redefines-x" "run_extensions.at:6025"
-( $at_check_trace; $COBCRUN_DIRECT ./redefines-x
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:6025"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1212
-#AT_START_1213
-at_fn_group_banner 1213 'run_extensions.at:6030' \
- "INSPECT TRAILING" " " 4
-at_xfail=no
-(
- printf "%s\n" "1213. $at_setup_line: testing $at_desc ..."
- $at_traceon
- # Note: TRAILING is an extension
-
-
-cat >prog.cob <<'_ATEOF'
-
- identification division.
- program-id. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
-
- 01 W01-STRING PIC X(20) VALUE '0123456789'.
- 01 W01-INDEX PIC 9(04) BINARY.
-
- PROCEDURE DIVISION.
- *>
- MOVE 0 TO W01-INDEX.
- INSPECT W01-STRING
- TALLYING W01-INDEX FOR TRAILING SPACE.
- IF W01-INDEX NOT = 10
- THEN
- DISPLAY 'Bad Result for Inspect Trailing Case 1'
- END-IF.
- *>
- INSPECT W01-STRING REPLACING TRAILING SPACE BY 'A'.
- IF W01-STRING NOT = '0123456789AAAAAAAAAA'
- THEN
- DISPLAY 'Bad Result for Inspect Trailing Case 2'
- END-IF.
- *>
- MOVE 0 TO W01-INDEX.
- INSPECT W01-STRING
- TALLYING W01-INDEX FOR TRAILING SPACE
- REPLACING TRAILING 'A' BY 'B'.
- *>
- IF W01-STRING NOT = '0123456789BBBBBBBBBB'
- THEN
- DISPLAY 'Bad Result for Inspect Trailing Case 3'
- END-IF.
- *>
- MOVE 0 TO W01-INDEX.
- MOVE SPACES TO W01-STRING.
- INSPECT W01-STRING
- TALLYING W01-INDEX FOR TRAILING 'A'.
- *>
- IF W01-INDEX NOT = 0
- THEN
- DISPLAY 'Bad Result for Inspect Trailing Case 4'
- W01-INDEX
- END-IF.
- *>
- MOVE 0 TO W01-INDEX.
- MOVE SPACES TO W01-STRING.
- INSPECT W01-STRING
- TALLYING W01-INDEX FOR TRAILING SPACES.
- *>
- IF W01-INDEX NOT = 20
- THEN
- DISPLAY 'Bad Result for Inspect Trailing Case 5'
- W01-INDEX
- END-IF.
- *>
- GOBACK.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:6094: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:6094"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:6094"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:6095: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:6095"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:6095"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1213
-#AT_START_1214
-at_fn_group_banner 1214 'run_extensions.at:6100' \
- "INSPECT REPLACING TRAILING ZEROS BY SPACES" " " 4
-at_xfail=no
-(
- printf "%s\n" "1214. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(4) VALUE "1000".
- PROCEDURE DIVISION.
- INSPECT X REPLACING TRAILING ZEROS BY SPACES.
- IF X NOT = "1 "
- DISPLAY X.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:6116: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:6116"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:6116"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:6117: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:6117"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:6117"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1214
-#AT_START_1215
-at_fn_group_banner 1215 'run_extensions.at:6122' \
- "INSPECT REPLACING complex" " " 4
-at_xfail=no
-(
- printf "%s\n" "1215. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(12) VALUE "AZABBCDCCECC".
- PROCEDURE DIVISION.
- INSPECT X REPLACING
- ALL "A" BY "Z"
- "B" BY "Y"
- "Z" BY "0"
- TRAILING "C" BY "X"
- IF X NOT = "Z0ZYYCDCCEXX"
- DISPLAY "1 - " X.
-
- INSPECT X REPLACING
- CHARACTERS BY SPACES
- BEFORE "C" AFTER "0"
- CHARACTERS BY ZEROES
- BEFORE "E" AFTER "C"
- IF X NOT = "Z0 C000EXX"
- DISPLAY "2 - " X.
-
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:6151: \$COMPILE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_extensions.at:6151"
-( $at_check_trace; $COMPILE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:6151"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:6152: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:6152"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:6152"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1215
-#AT_START_1216
-at_fn_group_banner 1216 'run_extensions.at:6159' \
- "EXAMINE TALLYING" " " 4
-at_xfail=no
-(
- printf "%s\n" "1216. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(8) VALUE "AABABCAB".
- 01 N PIC S9(5)V9(2) VALUE -11122.55.
- 01 T PIC X(10) VALUE " 8 ".
- PROCEDURE DIVISION.
- EXAMINE X TALLYING ALL "A"
- IF TALLY NOT = 4
- DISPLAY "Should be 4 but is " TALLY.
- EXAMINE X TALLYING LEADING "A"
- IF TALLY NOT = 2
- DISPLAY "Should be 2 but is " TALLY.
- EXAMINE X TALLYING UNTIL FIRST "C"
- IF TALLY NOT = 5
- DISPLAY "Should be 5 but is " TALLY.
- EXAMINE X TALLYING ALL "A" REPLACING BY "Z"
- IF TALLY NOT = 4
- DISPLAY "Should be 4 but is " TALLY.
- IF X NOT = "ZZBZBCZB"
- DISPLAY "Should be ZZBZBCZB but is " X.
- EXAMINE X TALLYING LEADING "Z" REPLACING BY "A"
- IF TALLY NOT = 2
- DISPLAY "Should be 2 but is " TALLY.
- IF X NOT = "AABZBCZB"
- DISPLAY "Should be AABZBCZB but is " X.
- EXAMINE X TALLYING UNTIL FIRST "C" REPLACING BY "X"
- IF TALLY NOT = 5
- DISPLAY "Should be 5 but is " TALLY.
- IF X NOT = "XXXXXCZB"
- DISPLAY "Should be XXXXXCZB but is " X.
- EXAMINE X TALLYING UNTIL FIRST "Y" REPLACING BY "Y"
- IF TALLY NOT = 8
- DISPLAY "Should be 8 but is " TALLY.
- IF X NOT = "YYYYYYYY"
- DISPLAY "Should be YYYYYYYY but is " X.
- EXAMINE N TALLYING UNTIL FIRST 5 REPLACING BY 8
- IF N NOT = -88888.55
- DISPLAY "Should be -88888.55 but is " N.
- * Re-mod is forbidden here (at least on GCOS):
- * EXAMINE N TALLYING LEADING T (5:1)
- * IF TALLY NOT = 5
- * DISPLAY "Should be 5 but is " TALLY.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:6210: \$COMPILE -freserved=EXAMINE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -freserved=EXAMINE prog.cob" "run_extensions.at:6210"
-( $at_check_trace; $COMPILE -freserved=EXAMINE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:6210"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:6211: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:6211"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:6211"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1216
-#AT_START_1217
-at_fn_group_banner 1217 'run_extensions.at:6216' \
- "EXAMINE REPLACING" " " 4
-at_xfail=no
-(
- printf "%s\n" "1217. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(8) VALUE "AABABCAB".
- 01 Y PIC X VALUE "Y".
- 01 N PIC S9(5) VALUE -11122.
- PROCEDURE DIVISION.
- EXAMINE X REPLACING ALL "A" BY "X"
- IF X NOT = "XXBXBCXB"
- DISPLAY "Should be XXBXBCXB but is " X.
- EXAMINE X REPLACING LEADING "X" BY "Y"
- IF X NOT = "YYBXBCXB"
- DISPLAY "Should be YYBXBCXB but is " X.
- EXAMINE X REPLACING FIRST "B" BY "C"
- IF X NOT = "YYCXBCXB"
- DISPLAY "Should be YYCXBCXB but is " X.
- EXAMINE X REPLACING UNTIL FIRST "B" BY "Z"
- IF X NOT = "ZZZZBCXB"
- DISPLAY "Should be ZZZZBCXB but is " X.
- EXAMINE N REPLACING ALL 1 BY 3
- IF N NOT = -33322
- DISPLAY "Should be -33322 but is " N.
- STOP RUN.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:6246: \$COMPILE -freserved=EXAMINE prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -freserved=EXAMINE prog.cob" "run_extensions.at:6246"
-( $at_check_trace; $COMPILE -freserved=EXAMINE prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:6246"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:6247: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:6247"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:6247"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1217
-#AT_START_1218
-at_fn_group_banner 1218 'run_extensions.at:6252' \
- "GCOS literals with EBCDIC symbols (run)" " " 4
-at_xfail=no
-(
- printf "%s\n" "1218. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 X PIC X(11).
- 01 T PIC 9.
- 01 S USAGE COMP-1 VALUE ZERO.
- PROCEDURE DIVISION.
- MOVE 1 TO T
- MOVE ""135,151,151"bar"195,194,234"" TO X
- IF X NOT EQUAL "foobarBAZ" PERFORM SHOW.
-
- MOVE 2 TO T
- MOVE " "135,151,151"bar"195 194"Z" TO X
- IF X NOT EQUAL " foobarBAZ" PERFORM SHOW.
-
- MOVE 3 TO T
- MOVE ' '135 151,151'bar'195,194'Z' TO X
- IF X NOT EQUAL " foobarBAZ" PERFORM SHOW.
-
- MOVE 4 TO T
- MOVE ""75,80,91"" TO X
- IF X NOT EQUAL "[!]" PERFORM SHOW.
-
- STOP RUN S.
- SHOW.
- DISPLAY "EBCDIC LIT " T " FAILED: X = """ X """"
- MOVE 1 TO S.
-_ATEOF
-
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:6286: \$COMPILE -febcdic-symbolic-characters -febcdic-table=ebcdic500_latin1 prog.cob"
-at_fn_check_prepare_dynamic "$COMPILE -febcdic-symbolic-characters -febcdic-table=ebcdic500_latin1 prog.cob" "run_extensions.at:6286"
-( $at_check_trace; $COMPILE -febcdic-symbolic-characters -febcdic-table=ebcdic500_latin1 prog.cob
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:6286"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-{ set +x
-printf "%s\n" "$at_srcdir/run_extensions.at:6287: \$COBCRUN_DIRECT ./prog"
-at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_extensions.at:6287"
-( $at_check_trace; $COBCRUN_DIRECT ./prog
-) >>"$at_stdout" 2>>"$at_stderr" 5>&-
-at_status=$? at_failed=false
-$at_check_filter
-at_fn_diff_devnull "$at_stderr" || at_failed=:
-at_fn_diff_devnull "$at_stdout" || at_failed=:
-at_fn_check_status 0 $at_status "$at_srcdir/run_extensions.at:6287"
-$at_failed && at_fn_log_failure
-$at_traceon; }
-
-
- set +x
- $at_times_p && times >"$at_times_file"
-) 5>&1 2>&1 7>&- | eval $at_tee_pipe
-read at_status <"$at_status_file"
-#AT_STOP_1218
-#AT_START_1219
-at_fn_group_banner 1219 'run_ml.at:19' \
- "XML GENERATE general" " " 4
-at_xfail=no
-(
- printf "%s\n" "1219. $at_setup_line: testing $at_desc ..."
- $at_traceon
-
-
-
-printf "%s\n" "run_ml.at:22" >"$at_check_line_file"
-(test "$COB_HAS_XML2" = "no") \
- && at_fn_check_skip 77 "$at_srcdir/run_ml.at:22"
-
-cat >prog.cob <<'_ATEOF'
-
- IDENTIFICATION DIVISION.
- PROGRAM-ID. prog.
-
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 namespace-str PIC X(100)
- VALUE 'http://www.w3.org/1999/xhtml'.
- 01 prefix-str PIC X(100) VALUE 'pre'.
-
- 01 out PIC X(200).
- 01 rec.
- 03 a PIC X(3) VALUE 'A'.
- 03 b PIC X(3) VALUE ALL 'B'.
- 03 c.
- 05 d PIC X(3) VALUE SPACES.
-
- 01 0SpecialTAGName PIC X(3) VALUE "abc".
-
- 01 employee.
- 05 id PIC 9(1) value 1.
- 05 name PIC X(10) value "Someone".
- 05 dept PIC X(10) value "Marketing".
-
- PROCEDURE DIVISION.
- XML GENERATE out
- FROM rec
- WITH XML-DECLARATION
- NAME OF a IS 'alpha', d IS 'ABCDEF';
- TYPE OF a IS ATTRIBUTE
- SUPPRESS WHEN SPACES
- IF out <> '<?xml version="1.0"?>' & X'0A'
- & '<rec alpha="A"><b>BBB</b></rec>'
- DISPLAY 'Test 1 failed: ' FUNCTION TRIM (out)
- END-IF
-
- XML GENERATE out FROM d
- IF out <> '<d> </d>'
- DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out)
- END-IF
-
- XML GENERATE out FROM c, WITH ATTRIBUTES.
- IF out <> '<c d=" "/>'
- DISPLAY 'Test 3 failed: ' FUNCTION TRIM (out)
- END-IF
-
- MOVE ALL 'A' TO a
- MOVE ALL 'C' TO c
- XML GENERATE out FROM rec, TYPE OF a IS CONTENT,
- b IS CONTENT, d IS CONTENT
- IF out <> '<rec>AAABBB<c>CCC</c></rec>'
- DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out)
- END-IF
-
- XML GENERATE out FROM rec, TYPE OF a IS CONTENT, d IS CONTENT
- IF out <> '<rec>AAA<b>BBB</b><c>CCC</c></rec>'
- DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out)
- END-IF
-
- XML GENERATE out FROM c, NAMESPACE namespace-str,
- NAMESPACE-PREFIX prefix-str
- IF out <> '<pre:c xmlns:pre="http://www.w3.org/1999/xhtml">'-
- '<pre:d>CCC</pre:d></pre:c>'
- DISPLAY 'Test 6 failed: ' FUNCTION TRIM (out)
- " " XML-CODE
- END-IF
-
- MOVE SPACES TO namespace-str, prefix-str
- XML GENERATE out FROM c, NAMESPACE namespace-str,
- NAMESPACE-PREFIX prefix-str
- IF out <> '<c><d>CCC</d></c>'
- DISPLAY 'Test 7 failed: ' FUNCTION TRIM (out)
- END-IF
-
- MOVE ALL "&" TO d
- XML GENERATE out FROM d
- IF out <> '<d>&&&