我在 cygwin 终端中使用 OpenCOBOL 来编译这个程序,该程序应该从输入文本文件中读取并将其打印到格式化的输出文件中。当我尝试编译时出现此错误:
programonerjm.cbl:13: Error: syntax error, unexpected "SOURCE-COMPUTER", expecting "end of file"
我也不完全确定我的程序划分
是否正确。
有人可以告诉我我做错了什么吗?我知道这可能是一个小错误,它让我发疯。
IDENTIFICATION DIVISION.
PROGRAM-ID. PROGRAM1.
AUTHOR. ME.
**********************************************************
* Purpose: Program that outputs an Inventory Report for
* Drakea Bike Parts Warehouse.
**********************************************************
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-PC.
OBJECT-COMPUTER. IBM-PC.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INV-FILE ASSIGN TO 'PR1FA16.txt'
ORGANIZATION IS LINE SEQUENTIAL.
SELECT OUTPUT-INV-REPORT
ASSIGN TO PRINTER 'OUTPUT-INV-REPORT.DAT'.
**********************************************************
DATA DIVISION.
FILE SECTION.
FD INV-FILE.
01 INV-RECORD.
05 CAT-NUM PIC X(5).
05 ITEM-DESC PIC X(20).
05 UNIT-PURCHASE-PRICE PIC 999V99.
05 PIC X(7).
05 QUANTITY-IN-STOCK PIC 9(3).
05 QUANTITY-ON-ORDER PIC 9(3).
05 REORDER-POINT PIC 9(3).
FD OUTPUT-INV-REPORT.
01 INVENTORY-REPORT.
05 PIC X(80).
WORKING-STORAGE SECTION.
* EOF FLAG
* REPORT SECTION - CREATE HEADERS
01 FLAGS-N-SWITCHES.
05 EOF-FLAG PIC X(3) VALUE 'YES'.
01 NUMBER-OF-PAGES PIC 9(2) VALUE 1.
01 HEADER-LINE-ONE.
05 MYDATE PIC X(10) VALUE '09/16/2016'.
05 PIC X(5) VALUE SPACES.
05 INITIALS PIC X(3) VALUE 'RJM'.
05 PIC X(10) VALUE SPACES.
05 PIC X(27) VALUE 'DRAKEA BIKE PARTS WAREHOUSE'.
05 PIC X(16) VALUE SPACES.
05 NUM-OF-PAGES PIC X(7) VALUE('PAGE 0X').
05 PIC X(2) VALUE SPACES.
01 HEADER-LINE-TWO.
05 PIC X(36) VALUE SPACES.
05 NAME-OF-REPORT PIC X(12) VALUE 'STOCK REPORT'.
05 PIC X(32) VALUE SPACES.
01 CATEGORY-HEADER-ONE.
05 PIC X(1) VALUE SPACES.
05 PIC X(5) VALUE 'CAT'.
05 PIC X(11) VALUE SPACES.
05 PIC X(4) VALUE 'ITEM'.
05 PIC X(11) VALUE SPACES.
05 PIC X(8) VALUE 'PURCHASE'.
05 PIC X(3) VALUE SPACES.
05 PIC X(8) VALUE 'QUANTITY'.
05 PIC X(4) VALUE SPACES.
05 PIC X(8) VALUE 'QUANTITY'.
05 PIC X(4) VALUE SPACES.
05 PIC X(7) VALUE 'REORDER'.
05 PIC X(8) VALUE SPACES.
01 CATEGORY-HEADER-TWO.
05 PIC X(1) VALUE SPACES.
05 PIC X(3) VALUE 'NUM'.
05 PIC X(8) VALUE SPACES.
05 PIC X(11) VALUE 'DESCRIPTION'.
05 PIC X(8) VALUE SPACES.
05 PIC X(5) VALUE 'PRICE'.
05 PIC X(6) VALUE SPACES.
05 PIC X(6) VALUE 'IN STK'.
05 PIC X(5) VALUE SPACES.
05 PIC X(8) VALUE 'ON ORDER'.
05 PIC X(5) VALUE SPACES.
05 PIC X(5) VALUE 'POINT'.
05 PIC X(8) VALUE SPACES.
01 DETAIL-LINE.
05 CATALOG-NUM PIC X(5).
05 PIC X(3) VALUE SPACES.
05 ITEM-DESCRIPTION PIC X(20).
05 PIC X(3) VALUE SPACES.
05 PURCHASE-PRICE PIC $$$$V99.
05 PIC X(4) VALUE SPACES.
05 QUANTITY-IN-STK PIC 99V999.
05 PIC X(6) VALUE SPACES.
05 QUANT-ON-ORDER PIC 99V999.
05 PIC X(5) VALUE SPACES.
05 REORDER-PNT PIC 99V999.
05 PIC X(8) VALUE SPACES.
**********************************************************
PROCEDURE DIVISION.
100-MAIN-MODULE.
PERFORM 110-HOUSEKEEPING.
PERFORM 120-READ-FILES.
PERFORM 130-PRINT-HEADERS.
PERFORM 140-PROCESS-RECORDS.
PERFORM 150-PRINT.
PERFORM 160-CLOSE-ROUTINE.
.
110-HOUSEKEEPING.
OPEN INPUT INV-FILE
OUTPUT OUTPUT-INV-REPORT
.
120-READ-FILES.
PERFORM UNTIL EOF-FLAG = 'NO'
READ INV-FILE
AT END
MOVE 'NO' TO EOF-FLAG
NOT AT END
PERFORM 140-PROCESS-RECORDS
END-READ
END-PERFORM
.
130-PRINT-HEADERS
MOVE NUM-OF-PAGES TO NUM-PAGES
MOVE HEADER-LINE-ONE TO INVENTORY-REPORT
WRITE INVENTORY-REPORT
AFTER ADVANCING 1 LINE
MOVE HEADER-LINE-TWO TO INVENTORY-REPORT
WRITE INVENTORY-REPORT
AFTER ADVANCING 2 LINES
MOVE CATEGORY-HEADER-ONE TO INVENTORY-REPORT
WRITE INVENTORY-REPORT
AFTER ADVANCING 2 LINES
MOVE CATEGORY-HEADER-TWO TO INVENTORY-REPORT
WRITE INVENTORY-REPORT
AFTER ADVANCING 1 LINE.
140-PROCESS-RECORDS
MOVE CAT-NUM TO CATALOG-NUM
MOVE ITEM-DESC TO ITEM-DESCRIPTION
MOVE UNIT-PURCHASE-PRICE TO PURCHASE-PRICE
MOVE QUANTITY-IN-STOCK TO QUANTITY-IN-STK
MOVE QUANTITY-ON-ORDER TO QUANT-ON-ORDER
MOVE REORDER-POINT TO REORDER-PNT.
150-PRINT
MOVE DETAIL-LINE TO INVENTORY-REPORT
WRITE INVENTORY-REPORT.
160-CLOSE-ROUTINE
CLOSE INV-FILE
INVENTORY-REPORT
STOP RUN.
这是我尝试读取的文本文件:
X7Y10Gas Tank 12595 010001000100005000750010
X8Y20Gas Cap 07599 020001000000002500000000
X6N30Seat 50000 001000000005000200020003
Y9T40Spark Plugs 02595 002001800200018000800045
T8N50Helmet 00385 010000000050000000800000
S9M60Slick 50 05999 000000500020001000000005
J9M70Gear Box 99999 070500000700000000000100
K3L80Muffler 35095 100000051000000205000256
L3D90Water Hose 02995 257000002000000005700300
M3100Tool Box 25995 078002501500025010000750
D4110Carborator 05900 000501000050007500250001
S8120Generator 17700 001000800025001500200015
最佳答案
鉴于示例中的源代码,我在 GnuCOBOL 1.1 中收到以下错误(至少更新到此版本):
PROGRAM1.cob:58: Error: syntax error, unexpected '('
指的是VALUE('PAGE 0X').
,我相信您会自己解决这个问题。
使用 GnuCOBOL 2.0 rc-1 编译器错误消息为:
PROGRAM1.cob: 58: error: syntax error, unexpected (
PROGRAM1.cob: in paragraph '100-MAIN-MODULE':
PROGRAM1.cob: 119: warning: ignoring redundant .
PROGRAM1.cob: in paragraph '120-READ-FILES':
PROGRAM1.cob: 137: error: unknown statement '130-PRINT-HEADERS'
您可以忽略“忽略冗余”消息或修复它(这只是一个警告,因为这可能指出问题 - 但您没有任何问题)。为了遵循程序其余部分的风格(并编写看起来不太像 COBOL-74 的代码),我建议删除 PERFORM
之后的句点。 100-MAIN-MODULE
中的语句.
第 137 行在段落名称后面缺少一个句点(这同样适用于以下段落名称,但解析器当前无法从“未知语句”中恢复,因此您只能一一看到)。
下一个错误将是:139 接下来将发出:
in paragraph '130-PRINT-HEADERS':
139: error: 'NUM-PAGES' is not defined
in paragraph '160-CLOSE-ROUTINE':
167: error: 'INVENTORY-REPORT' is not a file name
要么重命名NUMBER-OF-PAGES
中的var(我假设你的意思是WORKING-STORAGE
)或在引用文献中。
CLOSE
应使用文件名(在本例中 OUTPUT-INV-REPORT
)而不是记录名称( INVENTORY-REPORT
)。
这解决了语法问题。
附加提示:而不是
MOVE HEADER-LINE-ONE TO INVENTORY-REPORT
WRITE INVENTORY-REPORT
AFTER ADVANCING 1 LINE
您可以省略额外的 MOVE
(无论如何,它都是在内部完成的,但它看起来更好;-)并明确表示这仅针对 WRITE
完成。 :
WRITE INVENTORY-REPORT
FROM HEADER-LINE-ONE
AFTER ADVANCING 1 LINE
关于syntax - COBOL 期望文件结尾,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/39476719/