# GNU Cobol compiler configuration					-*- sh -*-
#
# Copyright (C) 2001,2002,2003,2004,2005,2006,2007 Keisuke Nishida
# Copyright (C) 2007-2012 Roger While
#
# This file is part of GNU Cobol.
#
# The GNU Cobol 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 2 of the
# License, or (at your option) any later version.
#
# GNU Cobol 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 GNU Cobol; see the file COPYING. If not, write to
# the Free Software Foundation, 51 Franklin Street, Fifth Floor,
# Boston, MA 02110-1301 USA


# Value: any string
name: "BS2000 COBOL"

# Value: int
tab-width: 8
text-column: 72

# Value: 'record-sequential', 'line-sequential'
# This sets the default organization for sequential files,
# where the organization is not explicitly defined.
default-organization: record-sequential

# Value: 'cobol2002', 'mf', 'ibm'
#
assign-clause: mf

# 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: no

# Value: 'yes', 'no'
auto-initialize: yes

# Allow complex OCCURS DEPENDING ON
complex-odo: yes

# Allow REDEFINES to other than last equal level number
indirect-redefines: yes

# 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: 2-4-8

# Numeric truncation according to ANSI
binary-truncate: no

# Binary byte order
# Value: 'native', 'big-endian'
binary-byteorder: big-endian

# Allow larger REDEFINES items
larger-redefines-ok: no

# Allow certain syntax variations
relaxed-syntax-check: no

# Perform type OSVS - If yes, the exit point of any currently
# executing perform is recognized if reached.
perform-osvs: no

# If yes, linkage-section items remain allocated
# between invocations.
sticky-linkage: no

# If yes, allow non-matching level numbers
relax-level-hierarchy: yes

# not-reserved:
# Value: Word to be taken out of the reserved words list
# (case independent)
# Words that are in the (proposed) standard but may conflict

# Dialect features
# Value: 'ok', 'archaic', 'obsolete', 'skip', 'ignore', 'unconformable'

author-paragraph:		obsolete
data-records-clause:		obsolete
debugging-line:			obsolete
eject-statement:		ok
entry-statement:		ok
goto-statement-without-name:	obsolete
label-records-clause:		obsolete
memory-size-clause:		obsolete
move-noninteger-to-alphanumeric: error
multiple-file-tape-clause:	obsolete
next-sentence-phrase:		archaic
odo-without-to:			ok
padding-character-clause:	obsolete
stop-literal-statement:		obsolete
synchronized-clause:		ok
top-level-occurs-clause:	ok
value-of-clause:		obsolete