11、COBOL 文件处理、表格与报表全解析

COBOL 文件处理、表格与报表全解析

1. COBOL 文件操作基础

在 COBOL 编程中，文件操作是一项核心功能。程序可以通过特定字段接收输入，例如将 TRANS - NO 字段的输入转移到 PART - NO 字段，然后读取 MASTER - FILE 以定位索引。若索引无效，会显示错误信息；若有效，则打印零件描述和可用数量。

在索引更新操作中，修改现有记录需使用 REWRITE 语句，而非 WRITE 语句。示例代码如下：

MOVE TRANS - FIRST - NAME TO MASTER - FIRST - NAME
REWRITE MASTER - RECORD
   INVALID KEY DISPLAY
    "There was an error in writing the record to the file"
END - REWRITE.

删除记录则使用 DELETE 语句，示例如下：

MOVE TRANS - NO TO PART - NO
   READ MASTER - FILE
      INVALID KEY DISPLAY
         "The record does not exist"
      NOT INVALID KEY
         DELETE MASTER