9.54 DLT_FILE
注意： 9.1 組み込み関数の規則 利用オプション
ファイルおよびその関連する論理ファイルとI/Oモジュールを削除するジョブを投入します。
この BIF は、9.2 開発環境のみで使用される組み込み関数 です。
Visual LANSAの引数
番号 | タイプ | 必須/任意 | 記述 | 最小長 | 最大長 | 最小小数桁数 | 最大小数桁数 |
|---|---|---|---|---|---|---|---|
1 | A | 必須 | ファイル名 | 1 | 10 | ||
2 | A | 必須 | ライブラリ名 Visual LANSAでは、下位互換性のために*LIBLが有効です。 | 1 | 10 | ||
3 | A | 任意 | ジョブの名前 | 1 | 10 | ||
4 | A | 任意 | ジョブ記述の名前 | 1 | 21 | ||
5 | A | 任意 | ジョブ待ち行列の名前 | 1 | 21 | ||
6 | A | 任意 | 出力待ち行列の名前 | 1 | 21 |
LANSA/ADの引数
詳細については、『LANSA/AD ユーザーガイド』の「ファイル定義を削除するジョブを投入する」の「ファイル定義の削除」を参照してください。
番号 | タイプ | 必須/任意 | 記述 | 最小長 | 最大長 | 最小小数桁数 | 最大小数桁数 |
|---|---|---|---|---|---|---|---|
1 | A | 必須 | ファイル名 | 1 | 10 | ||
2 | A | 必須 | ライブラリ名 | 1 | 10 | ||
3 | A | 任意 | ジョブの名前 | 1 | 10 | ||
4 | A | 任意 | ジョブ記述の名前 | 1 | 21 | ||
5 | A | 任意 | ジョブ待ち行列の名前 | 1 | 21 | ||
6 | A | 任意 | 出力待ち行列の名前 | 1 | 21 |
戻り値
番号 | タイプ | 必須/任意 | 説明 | 最小長 | 最大長 | 最小小数桁数 | 最大小数桁数 |
|---|---|---|---|---|---|---|---|
1 | A | 必須 | 戻りコード OK = 送信が成功した "ER" の場合は、戻りコード・エラー・メッセージが自動的に発行されます。 | 2 | 2 |
例
ユーザーが独自バージョンのファイル定義の削除機能を使用してファイルおよび関連する論理ビューとI/Oモジュールを削除する場合は、次のように行います。
********* Define arguments and lists
DEFINE FIELD(#FILNAM) TYPE(*CHAR) LENGTH(10)
DEFINE FIELD(#LIBNAM) TYPE(*CHAR) LENGTH(10)
DEFINE FIELD(#RETCOD) TYPE(*CHAR) LENGTH(2)
BEGIN_LOOP
********* Request File and library name
REQUEST FIELDS(#FILNAM #LIBNAM)
********* Execute built-in-function - DLT_FILE
USE BUILTIN(DLT_FILE) WITH_ARGS(#FILNAM #LIBNAM)
TO_GET(#RETCOD)
********* Check if submission was successful
IF COND('#RETCOD *EQ ''OK''')
MESSAGE MSGTXT('Delete of file submitted successfully')
CHANGE FIELD(#FILNAM) TO(*BLANK)
ELSE
MESSAGE MSGTXT('Delete submit failed with errors,
refer to additional messages')
ENDIF
END_LOOP