问题: COBOL-DB2程序从具有1000条记录的输入文件中获取数据,并将数据插入DB2表中。程序在第432条记录后失败。您将如何实现重启逻辑?
重新启动逻辑可以通过固定提交频率在COBOL-DB2程序中实现。如果我们选择100的提交频率,则需要执行以下步骤:
为计数器声明一个变量,例如WS-COUNT。
放置一个循环,在该循环中,我们将从文件中读取记录并将其插入数据库中。每次成功插入记录时,将计数器WS-COUNT加1。
一旦WS-COUNT达到提交频率100,我们将在一个单独的输出文件中写入最后插入的记录键(键字段),初始化WS-COUNT并触发COMMIT语句。确保以I / O模式打开此单独的输出文件,以便我们每次都可以重写记录。
对每个插入的第100条记录(即第100、200、300等)重复上述过程。
成功插入最后一条记录(即第1000条记录)后,我们将清空输出文件。但是,如果由于任何原因追加了程序,则输出文件将具有最后一个成功插入并提交的记录。
在程序的开头,包含用于检查输出文件是否为空或非空的逻辑。如果文件为空,则开始将被视为全新的开始,如果文件为非空,则将其视为追加后程序重新启动。
在重新启动的情况下,输出文件已经具有最后插入/提交的记录。我们只需要简单地循环读取输入文件,并将其键与输出文件进行比较即可。键匹配后,我们需要开始处理记录并将其插入数据库中。