+----------------------------------IBM 拡張----------------------------------+
SORT-RETURN 特殊レジスターは、2 進データ項目の名前であり、 ソートとマージの両方のプログラムで使用可能です。
SORT-RETURN 特殊レジスターには、次の暗黙定義があります。
01 SORT-RETURN GLOBAL PICTURE S9(4) USAGE BINARY VALUE ZERO.
ネストされたプログラムの中で使用されるときには、SORT-RETURN 特殊レジスターは、最外部の COBOL プログラム内で GLOBAL として暗黙に定義されます。 SORT-RETURN 特殊レジスターには、ソート・マージ操作の完了時に 0 (成功) または 16 (失敗) の戻りコードが入ります。
エラー宣言または入出力プロシージャーの中で SORT-RETURN 特殊レジスターを 16 に設定して、 すべてのレコードが処理される前にソート・マージ操作を終了させることができます。 操作は、レコードが RETURN または RELEASE される前に終了されます。 整数の引数が認められているところではどこでも、SORT-RETURN 特殊レジスターを関数内で指定できます。
+------------------------------End of IBM 拡張-------------------------------+