COBOL - Sort Validation

Determinando se a classificação ou mesclagem foi bem-sucedida:

O programa DFSORT retorna um código de conclusão de 0 (conclusão bem-sucedida) ou 16 (conclusão sem êxito) após a conclusão de cada classificação ou mesclagem. O código de conclusão é armazenado no registro especial SORT-RETURN.

Você deve testar a conclusão bem-sucedida após cada instrução SORT ou MERGE. Por exemplo:

  SORT SORT-WORK-2
    ON ASCENDING KEY SORT-KEY
    INPUT PROCEDURE IS 600-SORT3-INPUT-PROC
    OUTPUT PROCEDURE IS 700-SORT3-OUTPUT-PROC.

IF SORT-RETURN NOT=0
    DISPLAY "SORT ENDED ABNORMALLY. SORT-RETURN = " SORT-RETURN.

Se você não referenciar SORT-RETURN em nenhum lugar em seu programa, o tempo de execução COBOL testará o código de conclusão. Se for 16, o COBOL emite uma mensagem de diagnóstico de tempo de execução.
Por padrão, as mensagens de diagnóstico DFSORT são enviadas para o conjunto de dados SYSOUT.