cobol - 如何使用 cobol 删除单个记录？

Question

样本输出：

产品编号：XXXXXX

产品描述：

产品数量

产品价格

您要删除此记录吗？

只需输入 ID，我就可以访问有关它的信息并询问我是否要删除记录。

谁能帮我？我对 Cobol 有点陌生。我正在使用 1985 cobol 并在 Windows Vista 操作系统中运行它。

Answer 1

如果你想从 中删除当前记录，你需要这样的东西：

DELETE file
     ON INVALID KEY 
          what to do 
     NOT ON INVALID KEY
          what to do
END-DELETE 

要删除文件本身，您希望在 JCL 或本地等价物（例如操作系统）中。

Answer 2

如果文件是按顺序打开的，则在将该记录读入程序后执行 DELETE 语句。

如果文件是随机或动态打开的，则使用 DELETE 语句将 RELATIVE KEY 或 RECORD KEY 设置为要删除的记录（删除前无需读取记录）。

在这两种情况下，语句的最小编码都是：

删除文件名。