Upgrade Guide for DB2 UDB for z/OS > Migrating Siebel 6.2.1 Customizations >

Migrating Inbound COM Interfaces

Upgrades: Release 6.2.1 only.

Environments: Development environment only.

This topic is part of an upgrade process. See How to Perform the Upgrade.

Release 7.x external applications can interact with the Siebel client through the Siebel Web Client Automation Server. The Siebel Web Client Automation Server is similar in functionality to the COM Automation Server available in Siebel 6.2.1, but it does not expose applet or control objects.

The Release 7.x Siebel Web Client Automation Server enables external applications to interact with the Siebel Web Client. The Web Client Automation Server enables external COM-based applications to invoke Siebel business services and manipulate property sets. The Siebel Web Client Automation Server is implemented as a COM object resident within the browser.

To enable the Siebel Web Client Automation Server, in the [SWE] section of your application's configuration file, make sure that the EnableWebClientAutomation parameter is set to TRUE. When this parameter is set to TRUE, when the application is run and a control is required, an ActiveX control is downloaded to the desktop. This process terminates when the Siebel Web Client is terminated normally.

The following example illustrates how a small Microsoft Visual Basic application that uses the Siebel Web Client Automation Server and the EAI Siebel Adapter Business Service queries for a list of Accounts that start with the letter A, and displays the result in a message box.

Private Sub Command1_Click()

Dim siebelApp As SiebelHTMLApplication

Dim inPs As SiebelPropertySet, siebelMsg As SiebelPropertySet

Dim listOfAcct As SiebelPropertySet, acctPs As SiebelPropertySet

Dim outputPs As SiebelPropertySet

Dim svc As SiebelService

Dim i As Long, j As Long, iPos As Long

Dim acctList As String

Dim status As Boolean

Set siebelApp = GetObject("", "SiebelHTML.SiebelHTMLApplication.1")

Set inPs = siebelApp.NewPropertySet

Set siebelMsg = siebelApp.NewPropertySet

Set listOfAcct = siebelApp.NewPropertySet

Set acctPs = siebelApp.NewPropertySet

Set outputPs = siebelApp.NewPropertySet

Set svc = siebelApp.GetService("EAI Siebel Adapter")

' The following lines will construct a property set to query on the Sample Account

' Integration Object

siebelMsg.SetType ("SiebelMessage")

status = siebelMsg.SetProperty("IntObjectName", "Sample Account")

status = siebelMsg.SetProperty("MessageId", "")

status = siebelMsg.SetProperty("Message Type", "")

listOfAcct.SetType ("ListOfSample Account")

acctPs.SetType ("Account")

status = acctPs.SetProperty("Name", "A*")

iPos = listOfAcct.AddChild(acctPs)

iPos = siebelMsg.AddChild(listOfAcct)

iPos = inPs.AddChild(siebelMsg)

' Now that the Integration Object has been constructed, query for Accounts starting with A

status = svc.InvokeMethod("Query", inPs, outputPs)

If status then

j = 0

i = outputPs.GetChild(0).GetChild(0).GetChild(0).GetChild(0).GetPropertyCount

Do While j < i

acctList = acctList & outputPs.GetChild(0).GetChild(0).GetChild(0). _

GetChild(j).GetProperty("Name") & Chr(10) & Chr(13)

j = j + 1

Loop

MsgBox (acctList)

    End If

End Sub

For additional information on the Siebel Mobile Web Client Automation Server or the Siebel Web Client Automation Server, see Siebel Tools Online Help.

You might need to modify browser security settings to allow use of the Siebel Web Client Automation Server. For security settings and information about deploying ActiveX controls in the browser, see Siebel System Administration Guide.

For more information on migrating client-side interfaces, see About Migrating 6.2.1 Client-Side Interfaces.

Related Topic

Migrating Outbound COM Interfaces