gnubol: the token IS, some facts

[x@wins.uva.nl]

ARE is used in the following productions:
symbolic-characters-clause
label-records-clause
data-records-clause
value-clause

IS is used in the following ones:
program-id-cobol-source-program
program-id-nested-cobol-source-program
object-computer-paragraph-sequence-phrase
special-names-paragraph
alphabet-clause
symbolic-characters-clause
class-clause
currency-sign-clause
decimal-point-clause
special-names-paragraph-status-phrase
file-control-entry
padding-character-clause
record-delimiter-clause
record-key-clause
alternate-record-key-clause
relative-key-clause
password-clause
file-status-clause
external-clause
global-clause
record-varying-phrase
label-records-clause
value-of-clause
data-records-clause
linage-clause 
recording-mode-clause 
code-set-clause 
occurs-clause 
picture-clause 
sign-clause 
usage-clause 
value-clause 
merge-statement 
read-statement 
search-statement 
sort-statement 
start-statement
class-condition
relational-operator
sign-condition

The OS/VS COBOL compiler lexxes out IS.

code like this:

PROCEDURE DIVISION.
    IS IS IS IS IS IS IS. IS. . .
    IF IS HELP NOT IS NUMERIC
        IS MOVE ZERO TO IS HELP.
    STOP RUN.

is compilable without warnings.

the MF Cobol compiler cannot compile such code.

Moreover, in one case you cannot throw away IS, or ARE:

symbolic-characters-clause
      = "SYMBOLIC" [ "CHARACTERS" ] { { symbolic-character }+
      ( "ARE" | "IS" ) { integer }+ }+ [ "IN" alphabet-name ]

you can find the answers to such qeustions by browsing our
VS COBOL II grammar:
<http://adam.wins.uva.nl/~x/grammars/vs-cobol-ii>

cheers

  --XX

--
This message was sent through the gnu-cobol mailing list.  To remove yourself
from this mailing list, send a message to majordomo@lusars.net with the
words "unsubscribe gnu-cobol" in the message body.  For more information on
the GNU COBOL project, send mail to gnu-cobol-owner@lusars.net.