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
|
# GnuCOBOL compiler configuration
#
# Copyright (C) 2001-2012, 2014-2020 Free Software Foundation, Inc.
# Written by Keisuke Nishida, Roger While, Simon Sobisch, Edward Hart,
# Ron Norman
#
# 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/>.
# NOTES on the usage:
# This is an include-only compiler configuration file.
# The following steps are applied when using this:
# 1: include "strict" syntax, setting behaviour-specific atrributes
# 2: include this file to allow features that the original
# compilers don't support (larger lengths, syntax variations,...)
# 3: include the reserved-words list to *additional* set the
# compiler-specific words to the default list
# Value: int
# Maximum word-length for COBOL words / Programmer defined words
# current max (COB_MAX_WORDLEN): 63
#word-length: 127
word-length: 63
literal-length: 8192
numeric-literal-length: 38
pic-length: 255
# Allow complex OCCURS DEPENDING ON
complex-odo: yes
# Allow REDEFINES to other than last equal level number
indirect-redefines: yes
# Allow larger REDEFINES items
larger-redefines-ok: yes
# Allow certain syntax variations (eg. REDEFINES position)
relax-syntax-checks: yes
# If yes, allow non-matching level numbers
relax-level-hierarchy: yes
# What rules to apply to SCREEN SECTION items clauses
screen-section-rules: gc
# Dialect features
# Value: 'ok', 'warning', 'archaic', 'obsolete', 'skip', 'ignore', 'error',
# 'unconformable'
# Special option used here: "adjust" --> if the previous set option
# is more strict: override, otherwise leave it as it is
alter-statement: +obsolete
comment-paragraphs: ok
call-overflow: ok
data-records-clause: +obsolete
debugging-mode: ok
use-for-debugging: +obsolete
listing-statements: ok # may be a user-defined word
title-statement: ok # may be a user-defined word
entry-statement: ok
depending-on-not-fixed: ok
length-in-data-division: yes
goto-statement-without-name: +obsolete
label-records-clause: +obsolete
memory-size-clause: +obsolete
move-noninteger-to-alphanumeric: +warning
move-figurative-constant-to-numeric: +archaic
move-figurative-quote-to-numeric: +archaic
multiple-file-tape-clause: +obsolete
next-sentence-phrase: +archaic
odo-without-to: +warning
reference-bounds-check: +warning
padding-character-clause: +obsolete
section-segments: +ignore
stop-literal-statement: +obsolete
stop-identifier-statement: ok
same-as-clause: ok
synchronized-clause: ok
sync-left-right: +ignore # better use "skip" here?
special-names-clause: +warning
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: ok
hp-octal-literals: ok
word-continuation: ok
not-exception-before-exception: +warning
accept-display-extensions: ok
renames-uncommon-levels: ok
symbolic-constant: +warning
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
numeric-value-for-edited-item: +warning
incorrect-conf-sec-order: +warning
define-constant-directive: +obsolete
free-redefines-position: ok
records-mismatch-record-clause: +warning
record-delimiter: ok
sequential-delimiters: ok
record-delim-with-fixed-recs: ok
missing-statement: +warning
zero-length-literals: ok
xml-generate-extra-phrases: ok
continue-after: warning
goto-entry: warning
binary-sync-clause: ignore
nonnumeric-with-numeric-group-usage: ok
assign-variable: ok
assign-using-variable: ok
assign-ext-dyn: ok
assign-disk-from: ok
# use complete word list
# (vendor specific, currently not supported words are
# loaded by *including* the appropriate word list)
reserved-words: default
# enable all intrinsic functions
intrinsic-function: DIALECT-ALL
# enable all registers
register: DIALECT-ALL
|
