CBL_CHECK_FILE_EXIST

ファイルが存在するかどうかをチェックし、存在する場合は、ファイルが最後に変更されたときの詳細を返します。

構文：

call "CBL_CHECK_FILE_EXIST"  using    filename
                                      file-details
                            returning status-code

パラメーター

filename

PIC：pic x(n)

file-details

cblt-fileexist-buf として定義されているグループ。次のものを含みます。

01 cblt-fileexist-buf typedef.03 cblte-fe-filesize cblt-x8-compx.*> pic x(8) comp-x.03 cblte-fe-date.05 cblte-fe-day cblt-x1-compx.*> pic x comp-x.05 cblte-fe-month cblt-x1-compx.*> pic x comp-x.05 cblte-fe-year cblt-x2-compx.*> pic x(2) comp-x.03 cblte-fe-time.05 cblte-fe-hours cblt-x1-compx.*> pic x comp-x.05 cblte-fe-minutes cblt-x1-compx.*> pic x comp-x.05 cblte-fe-seconds cblt-x1-compx.*> pic x comp-x.05 cblte-fe-hundreths cblt-x1-compx.*> pic x comp-x.

status-code

「説明の読み方」を参照してください。

入力パラメーター：

filename: 検索対象のファイル。名前にはパスを含めることもでき、空白文字で終了します。パスを指定しない場合は、現在のディレクトリと見なされます。
このルーチンは、ワイルドカード文字を含むファイル名に対しては機能しません。

出力パラメーター：

cblte-fe-filesize: ファイルのサイズ (バイト単位)。
cblte-fe-filedate: ファイルが作成された日付。
cblte-fe-filetime: ファイルが作成された時刻。

説明：

CBL_CHECK_FILE_EXIST はストライプを認識しません。ストライプ化されたファイルでこのルーチンを使用すると、最初のストライプのみに関する詳細が返されます。そのため、このルーチンは個々のストライプでのみ使用し、ストライプ名でストライプを参照します。

注: ストライプ化は非推奨です。下位互換性のみを目的として提供されています。代わりに IDXFORMAT"8" を使用することをお勧めします。

RETURN-CODE を調べることで、呼び出しが成功したかどうかをチェックできます。