COBOL 输出空白文件而不是预期输出

如何解决COBOL 输出空白文件而不是预期输出

嘿，伙计们，我一整天都在为此挠头，但无济于事。我正在运行一个 COBOl 程序，如果它满足某些条件，应该从一个文件中获取输入并将其输出到另一个文件。 这是PROCEDURE DIVISION.

 PROCEDURE DIVISION.
      *
       A000-START.
           OPEN INPUT CUST-RECS.
           OPEN OUTPUT ACCT-RPT.
           PERFORM A000-WRITE-FirsT.
           PERFORM READ-NEXT-RECORD.
      *    PERFORM WRITE-RECORD.
           CLOSE ACCT-RPT.
           CLOSE CUST-RECS.
           STOP RUN.
      *
       A000-WRITE-FirsT.
           disPLAY "WRITE-FirsT".
           MOVE 2 TO REC-COUNT.
           WRITE PRT-REP-DONE FROM HEADER-1.
           WRITE PRT-REP-DONE FROM HEADER-2.
           WRITE PRT-REP-DONE FROM HEADER-3.
           WRITE PRT-REP-DONE FROM HEADER-4.
      *
       READ-NEXT-RECORD.
           PERFORM READ-RECORD
              PERFORM UNTIL LASTREC = 'Y'
              PERFORM WRITE-RECORD
              PERFORM READ-RECORD
              END-PERFORM.
      *
       WRITE-RECORD.
           disPLAY "WRITE-RECORD called" FirsT-NAME.
           MOVE SPACES TO PRT-REP-DONE.
           MOVE REC-COUNT TO PRT-RECS.
           MOVE FirsT-NAME TO PRT-NAME-FST.
           MOVE LAST-NAME TO PRT-NAME-LST.
           MOVE BALANCE TO PRT-BALANCE.
           WRITE PRT-REP-DONE.
           CLOSE ACCT-RPT.
       
       READ-RECORD.
           READ CUST-RECS
           AT END MOVE 'Y' TO LASTREC

           IF (FUNCTION NUMVAL-C(BALANCE) IS > 8500000)
              THEN
                 disPLAY "BALANCE: " BALANCE
                 ADD 1 TO REC-COUNT
                 PERFORM WRITE-RECORD
           END-IF
           END-READ.

在我的输出文件中，我只有 1 个空行。以及 SB14 的 ABEND 代码。我之前能够得到一些输出，但现在什么都没有。

解决方法

SB14 是 close 的问题。可以找到 SB14 here 这个异常结束表示有伴随的消息 IEC217I

关于代码，您似乎正在关闭输出文件 . { ... } ACCT-RPT，这可能是您的输出文件。

WRITE-RECORD

我的猜测是它两次抱怨 WRITE-RECORD. DISPLAY "WRITE-RECORD called" FIRST-NAME. MOVE SPACES TO PRT-REP-DONE. MOVE REC-COUNT TO PRT-RECS. MOVE FIRST-NAME TO PRT-NAME-FST. MOVE LAST-NAME TO PRT-NAME-LST. MOVE BALANCE TO PRT-BALANCE. WRITE PRT-REP-DONE. CLOSE ACCT-RPT. 文件。

,

我不是 COBOL 人，但你的代码在我看来很不正确。 WRITE-RECORD 是从 READ-NEXT-RECORD 和 READ-RECORD 调用的。但这不是主要问题。

输出中只有一条记录的原因是 CLOSE ACCT-RPT 中的 WRITE-RECORD。每次重新打开数据集时，关闭和重新打开数据集都会覆盖以前的内容（除非您在 DD 语句中设置了 DISP=MOD）。

您似乎在写信给 PDS 成员，所有关闭和重新打开最终都使用了导致 B14 ABEND 的所有空间。

重新思考你的逻辑。