9.54 DLT_FILE
注意: 9.1 組み込み関数の規則 &<a href="ladtgub1_0016.htm"&>利用オプション&</a&>
ファイルおよびその関連する論理ファイルと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 ユーザーガイド』の&<a href="../../../lansa010/content/lansa/ugub_30015.htm"&>「ファイル定義を削除するジョブを投入する」&</a&>の「ファイル定義の削除」を参照してください。
番号 |
タイプ |
必須/任意 |
記述 |
最小長 |
最大長 |
最小小数桁数 |
最大小数桁数 |
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 |
必須 |
戻りコード |
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