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 を調べることで、呼び出しが成功したかどうかをチェックできます。