ソートまたはマージが正常に実行されたかどうかの判別

ソート操作またはマージ操作が完了すると、 戻りコードまたは完了コードが SORT-RETURN 特殊レジスターに保管されます。 SORT-RETURN 特殊レジスターには、ソート操作またはマージ操作が正常に実行された場合には戻りコード 0 が入り、ソート操作またはマージ操作が失敗した場合には 16 が入ります。

個々の SORT ステートメントまたは MERGE ステートメントが実行されるごとに、SORT-RETURN 特殊レジスターの内容が変更されます。 個々の SORT ステートメントまたは MERGE ステートメントごとに、正常終了に関するテストを行う必要があります。 たとえば、

 PROCEDURE DIVISION.
        
·
·
·
SORT SORT-WORK-2 ON ASCENDING KEY SORT-KEY INPUT PROCEDURE 600-SORT3-INPUT-PROC OUTPUT PROCEDURE 700-SORT3-OUTPUT-PROC. IF SORT-RETURN NOT EQUAL TO 0 DISPLAY "SORT ENDED ABNORMALLY. SORT-RETURN = " SORT-RETURN
·
·
·
600-SORT3-INPUT-PROC SECTION.
·
·
·
700-SORT3-OUTPUT-PROC SECTION.
·
·
·