次のように指定すると、COBOL プログラムでリビルドを呼び出すことができます。
call "callrb" using commands status
詳細は次のとおりです。
| パラメーター： | 意味： |
|---|---|
| commands | リビルド コマンド ラインを格納する PIC X(600) 項目。リビルドはオフセット 599 から 0 へ向かってコマンド ラインを調べるため、この項目の長さは 600 バイトになります。 |
| status | 返されたファイル状態を格納する PIC XX の COMP X 項目。この項目は、リビルドの呼び出し結果を示します。 |
リビルドをプログラムで呼び出すと、通常のメッセージは表示されません。
エラーが発生した場合、またはリビルドが成功しなかった場合、RETURN-CODE にはゼロ以外の値が格納され、status には返されたファイル状態が格納されます。リビルドを呼び出した後は、常に RETURN-CODE と status を確認する必要があります。
RETURN-CODE に格納される値を次に示します。
| 値 | 説明 |
|---|---|
| 0 | リビルドが正常に実行されたことを示します。 |
| 1 | ファイルが見つからない、ファイル形式が無効である、などのエラーが入力ファイルに発生したことを示します。状態パラメーターを確認してください。 |
| 2 | 出力ファイルにエラーが発生したことを示します。状態パラメーターを確認してください。 |
| 3 | 並べ替えでのエラーです。 |
| 4 | ファイルが破損しています。 |
| 5 | /k:a:exists を実行しようとしました。 |
| 6 | /k:r:onprime を実行しようとしました。 |
| 7 | /k:r:dontexist を実行しようとしました。 |
| 8 | 出力上の重複が多すぎます。 |
| 9 | オプションが無効である、オプションの組み合わせが無効である、などのエラーがパラメーター リストに含まれていることを示します。 |
| 10 | メモリ不足です。 |
エラーが発生した場合は、同一のオプションを使用して同じファイルのコマンド ラインからリビルドを実行します。画面出力では、エラー原因についてより詳細な情報が表示されます。
次の例は、COBOL プログラムによるリビルドの呼び出しを示しています。
01 parameters pic x(600).
01 status pic xx comp-x.
...
move "infile.dat,outfile.dat -s:lii -c:d1" to parameters
call "callrb" using parameters,status
end-call