COBOL Внутренняя ошибка сортировки - PullRequest
Новая
       5

COBOL Внутренняя ошибка сортировки

0 голосов
/ 29 августа 2018

Возникла проблема при сортировке последовательного файла с использованием внутренней сортировки (с использованием и передачей). Входной файл имеет поврежденную запись, поэтому выходной файл, созданный после сортировки, не завершен.

Останавливается после обнаружения поврежденной записи. Однако сортировка не терпит неудачу в процессе. Когда я проверяю 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.
...