次の方法で共有

REOverride を使用してリモート環境を指定する方法

  • [アーティクル]

プログラムによって RE を指定するために、アプリケーションはマネージド コンテキスト エントリを使用します。 デザイナー内からメソッドで context プロパティを true に設定する必要があります。

次の Visual Basic コードは、アプリケーション内で RE を仮想的に作成する例を示しています。

' You must set the following references in your project:   
'    Microsoft.HostIntegration.TI.ClientContext.dll  
'    Microsoft.HostIntegration.TI.Globals.dll  
  
Imports Microsoft.HostIntegration.TI  
  
 Dim TIContext As New ClientContext  
 Dim DynamicRE As ELMLinkRemoteEnvironment  
  
  DynamicRE = RemoteEnvironmentClassFactory.MakeRemoteEnvironment(DynamicRemoteEnvironmentTypes.ELMLink, "MyRE")  
   DynamicRE.IPAddress = SystemAddress  
   DynamicRE.TCPPorts = PortNumber  
   TIContext.DynamicRE = DynamicRE  
  
Obj.Method1 parm1, parm2, parm3, TIContext

次の Visual Basic コードは、MSHMIRS を使用した HTTP の例を示しています。

Dim DynamicRE As HTTPLinkRemoteEnvironment  
  
DynamicRE = RemoteEnvironmentClassFactory.MakeRemoteEnvironment(DynamicRemoteEnvironmentTypes.HttpLink, "MyRE")  
DynamicRE.IPAddress = SystemAddress  
DynamicRE.HttpPort = PortNumber  
DynamicRE.MirrorProgramName = "MSHMIRS"  
DynamicRE.AliasTransactionId = "CWBA"  
TIContext.DynamicRE = DynamicRE

次の Visual Basic コードは、HTTP ユーザー データの例を示しています。

Dim TIContext As New ClientContext  
Dim DynamicRE As HTTPUserDataRemoteEnvironment  
  
DynamicRE = RemoteEnvironmentClassFactory.MakeRemoteEnvironment(DynamicRemoteEnvironmentTypes.HttpUserData, "MyRE")  
DynamicRE.IPAddress = SystemAddress  
DynamicRE.HttpPort = PortNumber  
DynamicRE.AliasTransactionId = "CWBA"  
TIContext.DynamicRE = DynamicRE

次の Visual Basic コードは、CICS Link の例を示しています。

Dim TIContext As New ClientContext  
Dim DynamicRE As SNALinkRemoteEnvironment  
  
DynamicRE = RemoteEnvironmentClassFactory.MakeRemoteEnvironment(DynamicRemoteEnvironmentTypes.SNALink, "MyRE")  
DynamicRE.LocalLUName = LocalLUName  
DynamicRE.RemoteLUName = RemoteLUName  
DynamicRE.ModeName = Mode  
TIContext.DynamicRE = DynamicRE

次の Visual Basic コードは、CICS LU6.2 ユーザー・データの例を示しています。

Dim TIContext As New ClientContext  
Dim DynamicRE As SNAUserDataRemoteEnvironment  
  
DynamicRE = RemoteEnvironmentClassFactory.MakeRemoteEnvironment(DynamicRemoteEnvironmentTypes.SNAUserData, "MyRE")  
DynamicRE.LocalLUName = LocalLUName  
DynamicRE.RemoteLUName = RemoteLUName  
DynamicRE.ModeName = Mode  
  
TIContext.DynamicRE = DynamicRE

次の Visual Basic コードは、IMS LU 6.2 の例を示しています。

Dim TIContext As New ClientContext  
Dim DynamicRE As SNAUserDataRemoteEnvironment  
  
DynamicRE = RemoteEnvironmentClassFactory.MakeRemoteEnvironment(DynamicRemoteEnvironmentTypes.IMSLU62, "MyRE")  
DynamicRE.LocalLUName = LocalLUName  
DynamicRE.RemoteLUName = RemoteLUName  
DynamicRE.ModeName = Mode  
TIContext.DynamicRE = DynamicRE

次の Visual Basic コードは、ELM Link の例を示しています。

Dim TIContext As New ClientContext  
Dim DynamicRE As ELMLinkRemoteEnvironment  
  
DynamicRE = RemoteEnvironmentClassFactory.MakeRemoteEnvironment(DynamicRemoteEnvironmentTypes.ELMLink, "MyRE")  
DynamicRE.IPAddress = SystemAddress  
DynamicRE.TCPPorts = PortNumber  
TIContext.DynamicRE = DynamicRE

次の Visual Basic コードは、TRM Link with Security の例を示しています。

Dim TIContext As New ClientContext  
Dim DynamicRE As TRMLinkRemoteEnvironment  
  
DynamicRE = RemoteEnvironmentClassFactory.MakeRemoteEnvironment(DynamicRemoteEnvironmentTypes.TRMLink, "MyRE")  
DynamicRE.IPAddress = SystemAddress  
DynamicRE.TCPPorts = PortNumber  
DynamicRE.Security = RemoteEnvironmentSecurity.User  
TIContext.DynamicRE = DynamicRE  
TIContext.User = "UserId"  
TIContext.Password = "Password"

次の Visual Basic コードは、セキュリティを使用した TRM ユーザー データの例を示しています。

Dim TIContext As New ClientContext  
Dim DynamicRE As TRMUserDataRemoteEnvironment  
  
DynamicRE = RemoteEnvironmentClassFactory.MakeRemoteEnvironment(DynamicRemoteEnvironmentTypes.TRMUserData, "MyRE")  
DynamicRE.IPAddress = SystemAddress  
DynamicRE.TCPPorts = PortNumber  
DynamicRE.Security = RemoteEnvironmentSecurity.User  
TIContext.User = "UserId"  
TIContext.Password = "Password"  
TIContext.TransactionId = "CICS Transaction name"  
TIContext.DynamicRE = DynamicRE

次の Visual Basic コードは、セキュリティのない IMS Connect の例を示しています。終了HWSIMSO0。

Dim TIContext As New ClientContext  
 Dim DynamicRE As IMSConnectRemoteEnvironment  
  
 DynamicRE = RemoteEnvironmentClassFactory.MakeRemoteEnvironment(DynamicRemoteEnvironmentTypes.IMSConnect, "MyRE")  
 DynamicRE.IPAddress = SystemAddress  
 DynamicRE.TCPPorts = PortNumber  
 DynamicRE.ItocExitName = "*IRMREQ*"  
 DynamicRE.OtmaSystemId = "IMS system ID"  
 TIContext.DynamicRE = DynamicRE

次の Visual Basic コードは、IMS Connect with security, exit HWSIMSO1の例を示しています。

Dim TIContext As New ClientContext  
Dim DynamicRE As IMSConnectRemoteEnvironment  
  
 DynamicRE = RemoteEnvironmentClassFactory.MakeRemoteEnvironment(DynamicRemoteEnvironmentTypes.IMSConnect, "MyRE")  
 DynamicRE.IPAddress = SystemAddress  
 DynamicRE.TCPPorts = PortNumber  
 DynamicRE.ItocExitName = "*IRMRE1*"  
 DynamicRE.OtmaSystemId = "IMS system ID"  
 DynamicRE.Security = RemoteEnvironmentSecurity.Off Or RemoteEnvironmentSecurity.ImsHWS01SecurityExit  
 TIContext.DynamicRE = DynamicRE

次の Visual Basic コードは、セキュリティとライブラリ名を持つ OS 400 の例を示しています。

Dim TIContext As New ClientContext  
Dim DynamicRE As DPCRemoteEnvironment  
DynamicRE = RemoteEnvironmentClassFactory.MakeRemoteEnvironment(DynamicRemoteEnvironmentTypes.DistributedProgramCall, "MyRE")  
DynamicRE.IPAddress = SystemAddress  
DynamicRE.TCPPorts = PortNumber  
DynamicRE.Security = RemoteEnvironmentSecurity.User  
TIContext.User = "UserID"  
TIContext.Password = "Password"  
TIContext.LibraryName = "Library Name"  
TIContext.DynamicRE = DynamicRE

参照

プログラムによるリモート環境の指定