管理メニューのサーバーオプションを使用してフレームワークで定義されたサーバーを取得する方法

Visual LANSA

管理メニューのサーバーオプションを使用してフレームワークで定義されたサーバーを取得する方法


次の断片的なコードは、ネットワークに定義されているすべてのサーバーを表示するメッセージを出力する方法を示しています。

* Use VL's F2 feature help to see all properties exposed by this server object

 

Define_Com Class(#VF_FP007) Name(#Server) Reference(*dynamic)

 

* Get the first server

 

Invoke Method(#uSystem.uServerContainer.uFirstServer) Userverref(#Server) Ucursor(#vf_elnum) Ureturncode(#vf_elretc)

Dowhile Cond('#vf_elretc = ok')

 

* The VF_FP007 server object has a set of properties that define the server.

* These properties are READ ONLY in this context and must not ever be updated.

* For example ..

 

Use message_box_add ('Caption' #Server.uCaption)

Use message_box_add ('Type'    #Server.uServerType)

Use message_box_add ('LU Name' #Server.uServerLUName)

Use Message_box_show (ok ok info)

 

* Get the next server

 

Invoke Method(#uSystem.uServerContainer.uNextServer) Userverref(#Server) Ucursor(#vf_elnum) Ureturncode(#vf_elretc)

Endwhile