读取文件的最后一条记录

debugcn 发表于 Dev

T_T

我有一个COBOL程序，该程序每次运行都需要一个交易号。我打算从文件中获取最后一个交易号，并将其添加1。问题是我不知道如何获取最后记录的值。

IDENTIFICATION DIVISION.
PROGRAM-ID. INVENTORY-SYS.
AUTHOR. LINSEY.
DATE-WRITTEN. 2/22/2015.
DATE-COMPILED. 2/22/2015.

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
    FILE-CONTROL.
    SELECT MASTER-FILE ASSIGN TO "inventory-file.txt"
    ORGANIZATION IS LINE SEQUENTIAL.

DATA DIVISION.
FILE SECTION.
FD MASTER-FILE.
01 IN-RECORDS.
    02 IN-CODE PIC 9(7).
    02 IN-NAME PIC X(30).
    02 IN-PRICE PIC 9(3).
    02 IN-STOCK PIC 9(4).

WORKING-STORAGE SECTION.
01 WS-EOF PIC A(1).

PROCEDURE DIVISION.
100-READ-FILE.
OPEN I-O MASTER-FILE.
PERFORM UNTIL WS-EOF = "Y"
READ MASTER-FILE
 AT END
      MOVE 'Y' TO WS-EOF
 NOT AT END
    DISPLAY IN-RECORDS
END-READ
END-PERFORM
CLOSE MASTER-FILE.
STOP RUN.

这是示例程序。问题是它从文件中检索所有记录，而只有“ inventory-file.txt”中的最后一条记录

比尔·伍德格

好吧，您坚持不懈，所以：

IDENTIFICATION DIVISION.
PROGRAM-ID. INVENTORY-SYS.

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
    FILE-CONTROL.
    SELECT MASTER-FILE ASSIGN TO "inventory-file.txt"
    ORGANIZATION IS LINE SEQUENTIAL
    FILE STATUS IS w-if-in-file-status.

DATA DIVISION.
FILE SECTION.
FD MASTER-FILE.
01 IN-RECORDS.
    02 IN-CODE PIC 9(7).
    02 IN-NAME PIC X(30).
    02 IN-PRICE PIC 9(3).
    02 IN-STOCK PIC 9(4).

WORKING-STORAGE SECTION.
01  w-if-in-file-status PIC XX.
    88  master-file-status-good VALUE ZERO "10".
    88  end-of-master-file VALUE "10".
01  w-save-code PIC 9(7).

PROCEDURE DIVISION.
    OPEN INPUT MASTER-FILE
    [code to check FILE STATUS field]
    PERFORM UNTIL end-of-master-file
        READ MASTER-FILE
        [code to check FILE STATUS field]
        MOVE IN-CODE to w-save-code
    END-PERFORM
    DISPLAY ">" w-save-code "<"
    CLOSE MASTER-FILE
    [code to check FILE STATUS field]
    GOBACK
    .

我不知道为什么您的IN-CODE字段是数字。您要用它进行计算吗？

您保留一个控制文件。它具有一个日期（与业务日期文件匹配），一个逻辑文件名，一个环境和最后一个事务编号。

您维护该文件，同时检查所有内容。

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。