Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

[ Image Removed |../../index.htm#lansa/delete_process.htm]
現在地:

...

9.46 DELETE_PROCESS

Note

...

注意: 9.1

...

組み込み関数の規則     利用オプション

プロセスとそのすべてのファンクションを削除するジョブを投入します。 プロセスとそのすべてのファンクションを削除するジョブを投入します。  引数の値は、プロセス定義の削除画面の入力情報と全く同じものです。詳細は『LANSA

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

この BIF は、9.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)
********* 

...

 Check if submission was successful
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