8.46 DELETE_PROCESS

プロセスとそのすべてのファンクションを削除するジョブを投入します。

引数の値は、プロセス定義の削除画面の入力情報と全く同じものです。詳細は『LANSA/AD ユーザーガイド』「プロセス定義の削除ジョブを投入する」を参照してください。

この BIF は、8.2 開発環境のみで使用される組み込み関数です。

 

Visual LANSAの引数

番号

タイプ

必須/任意

記述

最小長

最大長

最小小数桁数

最大小数桁数

1

A

必須

プロセス名

1

10

 

 

2

A

任意

ジョブの名前

無視

1

10

 

 

3

A

任意

ジョブ記述の名前

無視

1

21

 

 

4

A

任意

ジョブ待ち行列の名前

無視

1

21

 

 

5

A

任意

出力待ち行列の名前

無視

1

21

 

 

 

 

LANSA/ADの引数

番号

タイプ

必須/任意

記述

最小長

最大長

最小小数桁数

最大小数桁数

1

A

必須

プロセス名

1

10

 

 

2

A

任意

バッチ・ジョブの名前

デフォルト:プロセス名

1

10

 

 

3

A

任意

ジョブ記述の名前

デフォルト:要求するジョブの属性からのジョブ記述

1

21

 

 

4

A

任意

ジョ 待ち行列の名前

デフォルト:要求するジョブの属性からのジョブ待ち行列

1

21

 

 

5

A

任意

出力待ち行列の名前

デフォルト:要求するジョブの属性からの出力待ち行列

1

21

 

 

 

 

戻り値

番号

タイプ

必須/任意

説明

最小長

最大長

最小小数桁数

最大小数桁数

1

A

必須

戻りコード

OK = 送信が成功した

ER = 引数の詳細が無効であるか、権限上の問題が発生した。"ER"の場合は、戻りコード・エラー・メッセージが自動的に発行される

2

2

 

 

 

 

ユーザーが独自バージョンの「プロセスの削除」機能を使用してプロセスの削除をコントロールする場合は次のように行います。

*********  Define arguments
DEFINE     FIELD(#PROCES) TYPE(*CHAR) LENGTH(10)
DEFINE     FIELD(#RETCOD) TYPE(*CHAR) LENGTH(2)
*********  Request Process
BEGIN_LOOP     
REQUEST    FIELDS(#PROCES)
*********  Execute built-in-function - DELETE_PROCESS
USE        BUILTIN(DELETE_PROCESS) WITH_ARGS(#PROCES) TO_GET(#RETCOD)
 

********* 送信が成功したかどうかを確認する

IF         COND('#RETCOD *EQ ''OK''')
MESSAGE    MSGTXT('Delete Process submitted successfully')
CHANGE     FIELD(#PROCES) TO(*BLANK)
ELSE     
MESSAGE    MSGTXT('Delete Process submit failed with errors, 
           refer to additional messages')
ENDIF     
END_LOOP