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-hundredths   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 を調べることにより呼び出しが正常終了したかを確認できます。