0

我在 cobol 中的语法有问题。我在 Ubuntu 4.2.0-16-generic 上使用 open-cobol 包，但出现错误：

~/cobol$ cobc -free -x -o cal cal.cbl
cal.cbl:6: Error: syntax error, unexpected $undefined, expecting "end of file"

我的 cal.cbl 文件：

IDENTIFICATION DIVISION.
PROGRAM-ID. cal.
ENVIRONMENT DIVISION.

DATA DIVISION.   
?? OPTION PIC 9 VALUE ZERO.
?? NUM1   PIC 9(5)V9(2) VALUE ZERO.
?? NUM2   PIC 9(5)V9(2) VALUE ZERO.
?? RESULT PIC 9(10)V9(2) VALUE ZERO.

PROCEDURE DIVISION.
ACCEPT OPTION.

DISPLAY "INSERT FIRST OPTION".
ACCEPT NUM1.
DISPLAY "INSERT SECOND OPTION".
ACCEPT NUM2.

STOP RUN.

我是 cobolt 的新手，我对列有所了解，这就是我使用 -free 标志进行编译的原因，但这个错误对我来说毫无意义。

为什么会出现这个错误，请帮忙:)

4

1 回答 1

5

??不是有效的 COBOL 字，也没有级别编号（第 6 行需要）。这些消息来自 OpenCOBOL/GnuCOBOL 1.1。

较新的 GnuCOBOL 版本在很多方面都好得多，包括用户消息（这里是 GC 2.2）：

cal.cob: 6: Error: Invalid symbol: ? - Skipping word
cal.cob: 6: Error: PROCEDURE DIVISION header missing
cal.cob: 6: Error: syntax error, unexpected Identifier
cal.cob: 7: Error: Invalid symbol: ? - Skipping word
cal.cob: 7: Error: syntax error, unexpected Identifier
cal.cob: 8: Error: Invalid symbol: ? - Skipping word
cal.cob: 8: Error: syntax error, unexpected Identifier
cal.cob: 9: Error: Invalid symbol: ? - Skipping word
cal.cob: 9: Error: syntax error, unexpected Identifier
cal.cob: 11: Error: syntax error, unexpected PROCEDURE
cal.cob: 12: Error: 'OPTION' is not defined
cal.cob: 15: Error: 'NUM1' is not defined
cal.cob: 17: Error: 'NUM2' is not defined

更改??为01or77并且您不再有错误。插入WORKING-STORAGE SECTION或LOCAL-STORAGE SECTION之后DATA DIVISION，你的程序编译得很好。

获取程序员指南以了解有关 COBOL 的更多信息。

于 2016-07-16T08:26:33.030 回答