IBM webMethods Hybrid Integration

IBM webMethods Hybrid Integration

Join this online group to communicate across IBM product users and experts by sharing advice and best practices with peers and staying up to date regarding product enhancements.



#Automation


#Applicationintegration
#webMethods
#Integration
 View Only
Back to discussions
Expand all | Collapse all

Retrieving COM Objects when that object is passed as a parameter

  • 1.  Retrieving COM Objects when that object is passed as a parameter

    Posted 07/14/04 07:47 PM

    I am trying to simulate the extracted VB code(copied below) in webMethods. If you look at the submit method below, it is passing Acknowledgement object as a parameter and this same object is returned with details from the destination system. The result from the submit method is Boolean value. when I call submit method using WM, I am passing the acknowledgement object as a parameter in submit method. and I am copying the results to the pipeline, which gives me Boolean vale. but I am not able to capture acknowledgement object back from the destination system. How do I capture that ?
    Any help is appriciated
    Thanks
    Raj

    VBCODE:

            If Not QueryIncident.Submit(Acknowledgement) Then 

MsgBox "QueryIncident could not be submitted : " & vbCrLf & AdapterR.LastErrString 

Else 

'Analyse the acknowledgement returned 

Select Case Acknowledgement.ErrCode 

Case ECP_SUCCESS 

' Acknowledgement.ServiceIncident object contains full values stored in ECP engine 

strText = "AgreementType = " & Acknowledgement.ServiceIncident.Agreement.AgreementType 

strText = strText & vbCrLf & "Requester LastName = " & Acknowledgement.ServiceIncident.ServiceRequester.Person.LastName 

strText = strText & vbCrLf & "Provider LastName = " & Acknowledgement.ServiceIncident.ServiceProvider.Person.LastName 

strText = strText & vbCrLf & "ProviderID = " & Acknowledgement.ServiceIncident.ProviderID 

strText = strText & vbCrLf & "ResponseTime = " & Acknowledgement.ServiceIncident.ResponseTime.LocalDate 

strText = strText & vbCrLf & "Comment = " & Acknowledgement.ServiceIncident.Comment 

If Not Acknowledgement.ServiceIncident.Problem.GetProblemDescription(tmpText) Then 

strText = strText & vbCrLf & "No ProblemDescription available" 

Else 

strText = strText & vbCrLf & "ProblemDescription = " & tmpText 

End If 

strText = strText & vbCrLf & "Solution abstract = " & Acknowledgement.ServiceIncident.Solution.Abstract 

MsgBox "QueryIncident submitted : " & vbCrLf & strText 



Case ECP_ERR_SIS_ALREADY_PROCESSED 

MsgBox "The QueryIncident has already been processed in the ECP engine" 



Case Else 

If Acknowledgement.ErrString <> "" Then 

MsgBox "QueryIncident " & Acknowledgement.ErrString & ", code : " & Acknowledgement.ErrCode 

Else 

MsgBox "QueryIncident untrapped error" 

End If

    #Universal-Messaging-Broker
    #Integration-Server-and-ESB
    #broker
    #webMethods