出口

出口プログラムは、COBOL で記述し、Micro Focus 構文チェッカーでコンパイルする必要があります。これらの出口プログラムは、他の COBOL プログラムと同様に、普通に実行したり、デバッグすることができます。出口プログラムの記述とテストの手順については、メインフレームのマニュアルを参照してください。

リンケージ領域

MFJSORT は、標準リンケージ領域を E15 および E35 出口プログラムに提供します。標準リンケージ領域は、メインフレームユーティリティと互換性があり、次のように定義する必要があります。

COBOL 文	値
RECORD-FLAGS PIC 9(8) COMP.	0 は、渡された最初のレコードを示します。4 は、渡された後続のレコードを示します。8 は、渡された最後のレコードを示します。
ENTRY-BUFFER PIC X(`n`).	入力レコードの内容。この領域は変更しないでください。
EXIT-BUFFER PIC X(`n`).	出口によって提供された新規または変更済みのレコードの内容。
UNUSED-ENTRY PIC 9(8) COMP.	未使用
UNUSED-ENTRY PIC 9(8) COMP.	未使用
ENTRY-RECORD-LENGTH PIC 9(8) COMP.	入力レコードの長さ。
EXIT-RECORD-LENGTH PIC 9(8) COMP.	出口によって提供された新規または変更済みのレコードの長さ。
UNUSED-ENTRY PIC 9(8) COMP.	未使用
EXIT-AREA-LENGTH PIC 9(4) COMP.	出口領域スクラッチパッドの長さ。このフィールドは変更しないでください。
EXIT-AREA PIC X(`n`).	出口プログラムの呼び出し間で変数を維持するために出口によって使用される出口領域スクラッチパッド。

戻りコード

次の表に示すように、MFJSORT は出口プログラムから、メインフレームユーティリティと同じ戻りコードを認識します。

戻りコード	意味
0	必要なアクションはありません。
4	現在のレコードを削除します。E15 の場合、レコードはソートされません。E35 の場合、レコードは出力データセットに書き込まれません。
8	この出口を再度呼び出さないでください。出口処理は不要になっています。
12	現在のレコードを挿入します。E15 の場合、レコードはソート用に挿入されます。E35 の場合、レコードは出力データセットに書き込まれます。
16	MFJSORT を終了させます。ジョブステップは、16 に設定された条件コードで終了します。
20	現在のレコードを変更します。E15 の場合、変更されたレコードはソートに渡されます。E35 の場合、変更されたレコードは出力データセットに書き込まれます。