Sub SendJobSummaryRequest()
        'Test of Job Summary Request and result
        'Note: This code is common for all commands:
        Dim XOA As EMsgAPIJobSummary200810.XOA = New EMsgAPIJobSummary200810.XOA
        Dim request As EMsgAPIJobSummary200810.Request = New EMsgAPIJobSummary200810.Request
        Dim authentication As EMsgAPIJobSummary200810.Authentication = New EMsgAPIJobSummary200810.Authentication
        Dim xddsauth As EMsgAPIJobSummary200810.XDDSAuthType = New EMsgAPIJobSummary200810.XDDSAuthType
        'Dim jobrequest As EMsgAPIJobSummary200810.JobSummaryRequest = New EMsgAPIJobSummary200810.JobSummaryRequest

        ' Set the URL
        XOA.Url = GetRequestUrl()

        ' Build the SOAP Header
        xddsauth.RequesterID = API_Demo.txtUserID.Text 'UID
        xddsauth.Password = API_Demo.txtPassword.Text 'Password
        authentication.XDDSAuth = xddsauth
        request.Authentication = authentication
        request.ReceiverKey = GetRequestUrl()
        request.ResultRequired = EMsgAPIJobSummary200810.RequiredType.yes
        request.RequestID = "Test User"
        XOA.RequestValue = request

        If API_Demo.chkUseProxyTrace.Checked Then
            XOA.Proxy = New System.Net.WebProxy("http://localhost:8080")
        End If

        'Specific code for this command:
        Dim SummaryRequest As New EMsgAPIJobSummary200810.JobSummaryRequest
        Dim SummaryResult As New EMsgAPIJobSummary200810.JobSummaryResult
        Dim JobId(0) As EMsgAPIJobSummary200810.JobIdType

        Dim i As Integer
        Dim nLocColon As Integer

        Dim sTemp As String = API_Demo.txtRelativePath.Text.Trim
        If sTemp.Length <> 0 Then
            nLocColon = sTemp.IndexOf(":")
            JobId(0) = New EMsgAPIJobSummary200810.JobIdType
            JobId(0).XDN = sTemp.Substring(0, nLocColon)
            JobId(0).MRN = sTemp.Substring(nLocColon + 1)

            SummaryRequest.JobId = JobId
            JobId = Nothing

            XOA.AllowAutoRedirect = True
            XOA.RequestValue = request

            Dim response As EMsgAPIJobSummary200810.Response = New EMsgAPIJobSummary200810.Response
            XOA.ResponseValue = response

            Try
                SummaryResult = XOA.JobSummary(SummaryRequest)
            Catch exp As System.Exception
                ' Error creating stream or reading from it.
                API_Demo.txtResult.Text = (exp.Message & " Error running JobSummaryRequest")
                Return
            End Try

            If SummaryResult.JobSummaryData Is Nothing Then
                API_Demo.txtResult.Text = "Error"
                Exit Sub
            End If

            If (SummaryResult.Status.StatusCode = 0) Then
                Debug.Write(XOA.ResponseValue)
                API_Demo.txtResult.Text = ("Job Summary Request was successful")
            Else
                API_Demo.txtResult.Text = ("Error: Job Result=" & SummaryResult.Status.StatusCode & vbCrLf & SummaryResult.Status.StatusMessage & vbCrLf & "Message Result=")
            End If

            'Print results to the debug window:
            Dim nJobs As Integer = SummaryResult.JobSummaryData.Length
            If (nJobs = 0) Then
                Return
            End If
            Dim j As Integer
            Dim nAttachments As Integer

            For i = 0 To nJobs - 1
                Debug.WriteLine(vbCrLf & "Job Number: " & SummaryResult.JobSummaryData(i).JobId.XDN & ":" & SummaryResult.JobSummaryData(i).JobId.MRN)
                Debug.WriteLine("Status:  " & SummaryResult.JobSummaryData(i).Status.StatusCode & "(" & SummaryResult.JobSummaryData(i).Status.StatusMessage & ")")
                If Not (SummaryResult.JobSummaryData(i).JobState(0) Is Nothing) Then
                    Debug.WriteLine("Job State: " & SummaryResult.JobSummaryData(i).JobState(0).state)
                End If
                If Not (SummaryResult.JobSummaryData(i).AttachmentInfo Is Nothing) Then
                    nAttachments = SummaryResult.JobSummaryData(i).AttachmentInfo.Length
                    Debug.WriteLine("Attachment information:")
                    For j = 0 To nAttachments - 1
                        Debug.WriteLine("  File Name: " & SummaryResult.JobSummaryData(i).AttachmentInfo(j).FileName)
                        Debug.WriteLine("  Total Pulls: " & SummaryResult.JobSummaryData(i).AttachmentInfo(j).TotalPulls)
                        Debug.WriteLine("  Distinct Pulls: " & SummaryResult.JobSummaryData(i).AttachmentInfo(j).DistinctPulls)
                    Next
                End If
            Next i
        End If
    End Sub