COBOL内部SORT错误

Question

在使用内部排序（使用和给定）对顺序文件进行排序时，我遇到了一个问题。输入文件的记录损坏，因此排序后生成的输出文件不完整。

遇到损坏的记录后停止。但是，排序不会失败。当我在此之后检查SORT-STATUS时，它将变为零。这会导致不完整的文件得到进一步处理，这是我不希望的。

是否有一种方法可以识别出该进程中存在损坏的记录，并且该处理不完整，所以我只能在那里结束程序执行，并在再次执行之前更正文件？

下面是代码段：

SORT WRK-FILE
         ON ASCENDING KEY KEY1
                          KEY2
         USING INPUT-FILE
         GIVING OUTPUT-FILE.
IF SORT-STATUS = ZEROS 
   SET PROCESS-OK to TRUE
ELSE
   SET PROCESS-NOT-OK to TRUE
END-IF.