8.40 DEFINE_OTHER_SERVER

現在のRDMLファンクションに対するサーバーとして使用される非IBM i (他の)システムの詳細を定義します。

定義の詳細は、永続的なものではなく、LANSA環境がアクティブな間だけ存続します。サーバーを定義するのにかかる時間は、ほんのわずかです。

このBIFを使用するには、x_runパラメータCDLLをLCOMGR32.DLLに、x_runパラメータCMTHをCかTにそれぞれ設定する必要があります。

 

引数

番号

タイプ

必須/任意

記述

最小長

最大長

最小小数桁数

最大小数桁数

1

A

必須

SSN (サーバーの別名)。これは、今後のこのサーバーへのすべての参照でこのファンクションおよび他のRDMLファンクションが使用する名前です。

1

10

 

 

2

A

必須

サーバー・ネットワーク名

1

20

 

 

3

A

任意

LOCK_OBJECT 要求をこのサーバーに転送します。このオプションを使用する場合は、後続するすべてのLOCK_OBJECT要求がこのサーバーに転送されます。複数の サーバーが共にこのオプションを使用可能に設定している場合、各サーバーとも同じLOCK_OBJECT要求を受け取ります。

このような場合は、LOCK_OBJECTを実行するすべてのサーバーが正常に処理を完了するためには、サーバーにロックが許可されている必要があります。1つのサーバーでロックの許可に失敗すると、すでにオブジェクトのロックが許可されているすべてのサーバーに対してUNLOCK_OBJECT要求が発行されます。

Yまたは1:LOCK_OBJECT要求を転送する

Z:ロック要求を経路指定し、その上で権限要求を経路指定する

R:ロック要求、権限要求、リポジトリ・データ要求(ローカルで検出されない場合)を経路指定します。X_RUNパラメータについては、「X_RUNコマンドの使用」を参照してください。

その他:要求を転送しない

デフォルトはNです。

1

1

 

 

4

A

任意

接続待ちの間に「しばらくお待ちください」というメッセージを表示します。

Yまたは1:上記メッセージを表示する

その他:メッセージを表示しない

デフォルトはYです。

1

1

 

 

5

A

任意

X_RUN 例外引数

1

256

 

 

6

A

任意

サーバー依存例外引数。現在は実装されていません。

この引数を使用しないでください。

1

256

 

 

7

A

任意

将来の拡張のために予約されています。現在は実装されていません。

この引数を使用しないでください。

1

256

 

 

8

A

任意

将来の拡張のために予約されています。現在は実装されていません。

この引数を使用しないでください。

1

256

 

 

 

 

戻り値

番号

タイプ

必須/任意

記述

最小長

最大長

最小小数桁数

最大小数桁数

1

A

必須

戻りコード

OK:サーバーが定義された

ER:サーバーが未定義でエラー・メッセージが発行される

2

2

 

 

 

 

技術上の注記

   大規模な設計あるいは開発プロジェクトに着手する前に、これを実行してください。

エラー処理に関する注意事項

複雑なエラー処理スキームをご使用のアプリケーションに組み込むことは避けるよう、強くお勧めします。アプリケーションのすべてのレベルで、以下のようなごく単純なトラップを使用するようにしてください。

if (#retcode *ne OK)

    abort msgtxt('Failed to .............................') 

endif

 

標準的なエラー処理を行うように、生成されるすべてのアプリケーションに組み入れて、問題に対処するようにしてください。ユーザー定義のエラー処理ロジックが非常に複雑になったために全RDMLコードの40から50%を占有するようなケースもあります(アプリケーションには何のメリットもありません)。このような事態に陥らないようにしてください。