如何使用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设置为要删除的记录（删除前无需读取记录）。

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

删除文件名。