2

我在 cygwin 终端中使用 OpenCOBOL 来编译这个程序，该程序应该从输入文本文件中读取并将其打印到格式化的输出文件中。当我尝试编译时，出现此错误：

programonerjm.cbl:13: Error: syntax error, unexpected "SOURCE-COMPUTER", expecting "end of file"

我也不完全确定我procedure division的是否正确。

有人可以告诉我我做错了什么吗？我知道这可能是一个小错误，它让我发疯。

       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
4

2 回答 2

4

鉴于示例中的源代码，我在 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

或者在参考文献中 重命名 var （我假设你NUMBER-OF-PAGES的意思是 ） 。应该使用文件名（在这种情况下）而不是记录名（）。WORKING-STORAGECLOSEOUTPUT-INV-REPORTINVENTORY-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
于 2016-09-13T19:20:37.590 回答
0

正如错误所说的第 13 行。它似乎与程序部门没有任何关系。我对 Open COBOL 了解不多，因为我在 COBOL-400 上工作过，所以我猜 Source-Computer 和 Object-Computer 被视为注释，因此您应该尝试使它们成为注释（通过放置 *）并尝试，因为您不一定要定义它们。请告知是否有帮助。

于 2016-09-13T19:10:42.173 回答