Expected End Of Statement Error

I created an SQL statement which runs fine in MS-SQL2000. I
paste the code in a DW 8 recordset that I create and run a test to
make sure it works. No problem. Returns resutls as expected. I can
also access the fields in the recordset. When I test the Web page I
get:
Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/cssmetrics/dallas/scorecard.asp, line 10, column 2647
See Attachment. I am baffled to what it is looking forward.
Your help is greatly appreciated.

'VERSION 5.00
'Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "Mscomm32.ocx"
Begin VB.Form FrmMain
Your code is not VB .Net.  You may be able to find some assistance with your problem from the resources listed here: 
VB6 and older

Similar Messages

  • End of Statement error

    I have the a query that keeps coming up with an error when I try to place in in a form as VBA. The following is the code:
    txtOperationID = "SELECT TOP 1 [idsOpSymbolID] & " " & Format([txtOperationSub#]+1,"0000") AS NewOpID " & _
    "FROM tblOperations LEFT JOIN tblOperationsSUB ON tblOperations.idsOpSymbolID = tblOperationsSUB.idrOpSymbolID " & _
    "WHERE (((tblOperations.idsOpSymbolID) = [Forms]![frmNewProjectOperationTrackingNumber]![Combo91])) " & _
    "ORDER BY tblOperationsSUB.[txtOperationSub#] DESC"
    I am given the following error:  Compile Error, Expected end of statement.  Any suggestions?

    Yes,
    You have to neutralize " in string:
    txtOperationID = "SELECT TOP 1 [idsOpSymbolID] & "" "" & Format([txtOperationSub#]+1,""0000"") AS NewOpID " & _
    "FROM tblOperations LEFT JOIN tblOperationsSUB ON tblOperations.idsOpSymbolID = tblOperationsSUB.idrOpSymbolID " & _
    "WHERE (((tblOperations.idsOpSymbolID) = [Forms]![frmNewProjectOperationTrackingNumber]![Combo91])) " & _
    "ORDER BY tblOperationsSUB.[txtOperationSub#] DESC"
    Michał

  • Expected End Of Statement

    RETURN=Text"Compatibility Troubleshooter" ;
    RETURN=Text"Please Don't Close"
    Line:1
    char:12
    Error:Expected End Of Statement
    Code:800A0401
    Source:Microsoft VBScript compailation error

    Error:Expected End Of Statement
    Code:800A0401
    Source:Microsoft VBScript compailation error
    Questions relating to versions of Basic other than .Net should asked here:
    VBScript
    Visual Basic for Applications 
    (VBA)

  • Getting end of statement error in SAP CRM bp script

    Hi
    When I run the code below without the for loop everything runs perfectly ok. However when I add the for loop I get the error statement end of statement I think it has something to do with handling of the code inside the for loop but I have  no clue how to solve it
    Somebody any idea?
    I know the code is not working correctly I need to add variable to fill in the values however I need to first tackle the end of statement issue
    If Not IsObject(application) Then
       Set SapGuiAuto  = GetObject("SAPGUI")
       Set application = SapGuiAuto.GetScriptingEngine
    End If
    If Not IsObject(connection) Then
       Set connection = application.Children(0)
    End If
    If Not IsObject(session) Then
       Set session    = connection.Children(0)
    End If
    If IsObject(WScript) Then
       WScript.ConnectObject session,     "on"
       WScript.ConnectObject application, "on"
    End If
    Dim objExcel
    Dim objSheet, intRow, i, d
    Set objExcel = GetObject(, "Excel.Application")
    Set objSheet = objExcel.ActiveWorkbook.ActiveSheet
    session.findById("wnd[0]").resizeWorkingPane 132,30,false
    Dim total_row
    total_row = objSheet.UsedRange.Rows.Count
    For i = 1 To CInt(total_row)
         session.findById("wnd[0]/tbar[0]/okcd").text = "/nbp"
         session.findById("wnd[0]").sendVKey 0
         session.findById("wnd[0]/tbar[1]/btn[17]").press
         session.findById("wnd[1]/usr/ctxtBUS_JOEL_MAIN-OPEN_NUMBER").text = "19496"
         session.findById("wnd[1]/usr/ctxtBUS_JOEL_MAIN-OPEN_NUMBER").caretPosition = 5
         session.findById("wnd[1]/tbar[0]/btn[0]").press
         session.findById("wnd[1]/tbar[0]/btn[0]").press
         Dim strScreen
         strScreen = "wnd[0]/usr/subSCREEN_3000_RESIZING_AREA:SAPLBUS_LOCATOR:2000/subSCREEN_1010_RIGHT_AREA:SAPLBUPA_DIALOG_JOEL:1000/ssubSCREEN_1000_WORKAREA_AREA:SAPLBUPA_DIALOG_JOEL:1100/ssubSCREEN_1100_MAIN_AREA:SAPLBUPA_DIALOG_JOEL:1101/tabsGS_SCREEN_1100_TABSTRIP/tabpSCREEN_1100_TAB_04"
         session.findById("wnd[0]/usr/subSCREEN_3000_RESIZING_AREA:SAPLBUS_LOCATOR:2000/subSCREEN_1010_RIGHT_AREA:SAPLBUPA_DIALOG_JOEL:1000/ssubSCREEN_1000_WORKAREA_AREA:SAPLBUPA_DIALOG_JOEL:1100/ssubSCREEN_1100_MAIN_AREA:SAPLBUPA_DIALOG_JOEL:1101/tabsGS_SCREEN_1100_TABSTRIP/tabpSCREEN_1100_TAB_04").select
         session.findById("wnd[0]").sendVKey 6
         session.findById("wnd[0]/usr/subSCREEN_3000_RESIZING_AREA:SAPLBUS_LOCATOR:2000/subSCREEN_1010_RIGHT_AREA:SAPLBUPA_DIALOG_JOEL:1000/ssubSCREEN_1000_WORKAREA_AREA:SAPLBUPA_DIALOG_JOEL:1100/ssubSCREEN_1100_MAIN_AREA:SAPLBUPA_DIALOG_JOEL:1101/tabsGS_SCREEN_1100_TABSTRIP/tabpSCREEN_1100_TAB_04/ssubSCREEN_1100_TABSTRIP_AREA:SAPLBUSS:0028/ssubGENSUB:SAPLBUSS:7002/subA02P01:SAPLBUD0:1500/tblSAPLBUD0TCTRL_BUT0BK/ctxtGT_BUT0BK-BANKL[2,0]").text = "B000000003"
         session.findById("wnd[0]/usr/subSCREEN_3000_RESIZING_AREA:SAPLBUS_LOCATOR:2000/subSCREEN_1010_RIGHT_AREA:SAPLBUPA_DIALOG_JOEL:1000/ssubSCREEN_1000_WORKAREA_AREA:SAPLBUPA_DIALOG_JOEL:1100/ssubSCREEN_1100_MAIN_AREA:SAPLBUPA_DIALOG_JOEL:1101/tabsGS_SCREEN_1100_TABSTRIP/tabpSCREEN_1100_TAB_04/ssubSCREEN_1100_TABSTRIP_AREA:SAPLBUSS:0028/ssubGENSUB:SAPLBUSS:7002/subA02P01:SAPLBUD0:1500/tblSAPLBUD0TCTRL_BUT0BK/ctxtGT_BUT0BK-BANKL[2,0]").setFocus
         session.findById("wnd[0]/usr/subSCREEN_3000_RESIZING_AREA:SAPLBUS_LOCATOR:2000/subSCREEN_1010_RIGHT_AREA:SAPLBUPA_DIALOG_JOEL:1000/ssubSCREEN_1000_WORKAREA_AREA:SAPLBUPA_DIALOG_JOEL:1100/ssubSCREEN_1100_MAIN_AREA:SAPLBUPA_DIALOG_JOEL:1101/tabsGS_SCREEN_1100_TABSTRIP/tabpSCREEN_1100_TAB_04/ssubSCREEN_1100_TABSTRIP_AREA:SAPLBUSS:0028/ssubGENSUB:SAPLBUSS:7002/subA02P01:SAPLBUD0:1500/tblSAPLBUD0TCTRL_BUT0BK/ctxtGT_BUT0BK-BANKL[2,0]").caretPosition = 10
         session.findById("wnd[0]").sendVKey 0
         session.findById("wnd[0]/usr/subSCREEN_3000_RESIZING_AREA:SAPLBUS_LOCATOR:2000/subSCREEN_1010_RIGHT_AREA:SAPLBUPA_DIALOG_JOEL:1000/ssubSCREEN_1000_WORKAREA_AREA:SAPLBUPA_DIALOG_JOEL:1100/ssubSCREEN_1100_MAIN_AREA:SAPLBUPA_DIALOG_JOEL:1101/tabsGS_SCREEN_1100_TABSTRIP/tabpSCREEN_1100_TAB_04/ssubSCREEN_1100_TABSTRIP_AREA:SAPLBUSS:0028/ssubGENSUB:SAPLBUSS:7002/subA02P01:SAPLBUD0:1500/tblSAPLBUD0TCTRL_BUT0BK/btnPUSH_BUP_IBAN[5,0]").setFocus
         session.findById("wnd[0]/usr/subSCREEN_3000_RESIZING_AREA:SAPLBUS_LOCATOR:2000/subSCREEN_1010_RIGHT_AREA:SAPLBUPA_DIALOG_JOEL:1000/ssubSCREEN_1000_WORKAREA_AREA:SAPLBUPA_DIALOG_JOEL:1100/ssubSCREEN_1100_MAIN_AREA:SAPLBUPA_DIALOG_JOEL:1101/tabsGS_SCREEN_1100_TABSTRIP/tabpSCREEN_1100_TAB_04/ssubSCREEN_1100_TABSTRIP_AREA:SAPLBUSS:0028/ssubGENSUB:SAPLBUSS:7002/subA02P01:SAPLBUD0:1500/tblSAPLBUD0TCTRL_BUT0BK/btnPUSH_BUP_IBAN[5,0]").press     session.findById("wnd[1]/tbar[0]/btn[0]").press
         session.findById("wnd[0]/tbar[0]/btn[11]").press
    Next i
    Edited by: R. Brouwer on Dec 23, 2010 3:31 PM

    Hi,
    i think nothing can be followed by the command "Next" in VBS. Your example would be the right way in VB or VBA.
    Regards,
    ScriptMan

  • Vb code----Expected-end of statement----this is error coming when debugging.

    'VERSION 5.00
    'Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "Mscomm32.ocx"
    Begin VB.Form FrmMain
       BackColor = &H80000002
       StartUpPosition = 3    'Windows Default
       WindowState = 2        'Maximized
       Begin VB.Timer Timer3
          Interval = 1000
          Left = 3720
          Top = 10560
       End
       Begin VB.Timer Timer2
          Interval = 1000
          Left = 4200
          Top = 10560
       End
       Begin MSCommLib.MSComm MSComm1
          Left = 5160
          Top = 10440
          _ExtentX        =   1005
          _ExtentY        =   1005
          _Version        =   393216
          DTREnable = 0           'False
       End
       Begin VB.Timer Timer1
          Interval = 1000
          Left = 4680
          Top = 10560
       End
       Begin VB.CommandButton Command2
          Caption = "Range 28-44 mm."
          BeginProperty Font
             Name = "Trebuchet MS"
             Size = 21.75
             Charset = 0
             Weight = 700
             Underline = 0           'False
             Italic = -1             'True
             Strikethrough = 0       'False
          EndProperty
          Height = 1335
          Width = 3735
       End
       Begin VB.Frame FrameDia
          Caption = "Value of Measuring"
          BeginProperty Font
             Name = "Trebuchet MS"
             Strikethrough = 0       'False
          EndProperty
          Height = 3495
          Width = 14295
          Begin VB.Label lblDataOuter
             Alignment = 2          'Center
             BackColor = &H80000009
             Caption = "1.002"
             BeginProperty Font
                Name = "Trebuchet MS"
                Strikethrough = 0       'False
             EndProperty
             Height = 1785
             Left = 4920
             TabIndex = 8
             Top = 840
             Width = 6075
          End
          Begin VB.Label Label2
             Caption = "mm."
             BeginProperty Font
                Name = "Trebuchet MS"
                Size = 72
                Charset = 0
                Weight = 700
                Underline = 0           'False
                Italic = -1             'True
                Strikethrough = 0       'False
             EndProperty
             Height = 1785
             Left = 10920
             TabIndex = 7
             Top = 840
             Width = 3075
          End
          Begin VB.Label lblDia
             BackColor = &H80000002
             Caption = "Outer Diameter"
             BeginProperty Font
                Name = "Trebuchet MS"
                Size = 36
                Charset = 0
                Weight = 700
                Underline = 0           'False
                Italic = 0              'False
                Strikethrough = 0       'False
             EndProperty
             Height = 1815
             Left = 600
             TabIndex = 6
             Top = 840
             Width = 4095
          End
       End
       Begin VB.Frame FrameHigh
          BackColor = &H80000002
          Caption = "Value of Measuring"
          BeginProperty Font
             Name = "Trebuchet MS"
             Size = 24
             Charset = 0
             Weight = 400
             Underline = 0           'False
             Italic = 0              'False
             Strikethrough = 0       'False
          EndProperty
          Height = 3495
          Left = 480
          TabIndex = 1
          Top = 5040
          Width = 14295
          Begin VB.Label lblHigh
             BackColor = &H80000002
             Caption = "Length"
             BeginProperty Font
                Name = "Trebuchet MS"
                Size = 36
                Charset = 0
                Weight = 700
                Underline = 0           'False
                Italic = 0              'False
                Strikethrough = 0       'False
             EndProperty
             Height = 975
             Left = 720
             TabIndex = 4
             Top = 1200
             Width = 2655
          End
          Begin VB.Label lblUnit
             Alignment = 2          'Center
             AutoSize = -1           'True
             BackColor = &H80000009
             Caption = "mm."
             BeginProperty Font
                Name = "Trebuchet MS"
                Size = 72
                Charset = 0
                Weight = 700
                Underline = 0           'False
                Italic = -1             'True
                Strikethrough = 0       'False
             EndProperty
             Height = 1785
             Left = 10920
             TabIndex = 3
             Top = 840
             Width = 3075
          End
          Begin VB.Label lblDataLength
             Alignment = 2          'Center
             BackColor = &H80000009
             Caption = "30.001"
             BeginProperty Font
                Name = "Trebuchet MS"
                Size = 72
                Charset = 0
                Weight = 700
                Underline = 0           'False
                Italic = -1             'True
                Strikethrough = 0       'False
             EndProperty
             Height = 1785
             Left = 4800
             TabIndex = 2
             Top = 840
             Width = 6195
          End
       End
       Begin VB.CommandButton Command1
          Caption = "Range 16-28 mm."
          BeginProperty Font
             Name = "Trebuchet MS"
             Size = 21.75
             Charset = 0
             Weight = 700
             Underline = 0           'False
             Italic = -1             'True
             Strikethrough = 0       'False
          EndProperty
          Height = 1335
          Left = 6240
          TabIndex = 9
          Top = 9600
          Width = 3735
       End
       Begin VB.Image Img2844
          Height = 900
          Left = 11760
          Picture         =   "HighCheck_01.frx":1CCA
          Stretch = -1            'True
          Top = 8640
          Width = 900
       End
       Begin VB.Image img1628
          Height = 900
          Left = 7800
          Picture         =   "HighCheck_01.frx":210C
          Stretch = -1            'True
          Top = 8640
          Width = 900
       End
       Begin VB.Label lblDate
          Alignment = 2          'Center
          BackColor = &H80000002
          Caption = "Date"
          BeginProperty Font
             Name = "Trebuchet MS"
             Size = 26.25
             Charset = 0
             Weight = 700
             Underline = 0           'False
             Italic = -1             'True
             Strikethrough = 0       'False
          EndProperty
          Height = 615
          Left = 480
          TabIndex = 12
          Top = 9240
          Width = 3375
       End
       Begin VB.Label lblTime
          Alignment = 2          'Center
          BackColor = &H80000002
          Caption = "Time"
          BeginProperty Font
             Name = "Trebuchet MS"
             Size = 26.25
             Charset = 0
             Weight = 700
             Underline = 0           'False
             Italic = -1             'True
             Strikethrough = 0       'False
          EndProperty
          Height = 615
          Left = 120
          TabIndex = 11
          Top = 9960
          Width = 3975
       End
       Begin VB.Label lblMain
          BackColor = &H80000002
          Caption = "Dimension Measurement Machine"
          BeginProperty Font
             Name = "Comic Sans MS"
             Size = 27.75
             Charset = 0
             Weight = 400
             Underline = -1          'True
             Italic = 0              'False
             Strikethrough = 0       'False
          EndProperty
          ForeColor = &H80000007
          Height = 975
          Left = 3360
          TabIndex = 0
          Top = 0
          Width = 9135
       End
    End
    Option Explicit
    Public DataOuter As String, DataLength As String, RecData As String, Model As String
    Private Sub Form_Load()
        img1628.Visible = False
        Img2844.Visible = False
    End Sub
    Private Sub Command1_Click()
        MSComm1.Output = "@00WR0200000146*" & vbCr
        Delay
    End Sub
    Private Sub Command2_Click()
        Delay
    End Sub
    Private Sub Delay()
    Dim a As Single
    End Sub
    Private Sub Image1_Click()
    End Sub
    Private Sub Timer1_Timer()
        lblTime.Caption = Format(Now, "HH:MM:SS AmPm")
        lblDate.Caption = Format(Now, "DD/MM/YY")
    End Sub
    Private Sub Timer2_Timer()
        MSComm1.Output = "@00RD0040000654*" & vbCr
        Delay
            End If
    End Sub
    Private Sub Timer3_Timer()
     If Model = "1" Then
           img1628.Visible = True
        Else
           img1628.Visible = False
        End If
        If Model = "2" Then
           Img2844.Visible = True
        Else
           Img2844.Visible = False
        End If
    End Sub

    'VERSION 5.00
    'Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "Mscomm32.ocx"
    Begin VB.Form FrmMain
    Your code is not VB .Net.  You may be able to find some assistance with your problem from the resources listed here: 
    VB6 and older

  • Vb code----Expected-end of statement

    'VERSION 5.00
    'Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "Mscomm32.ocx"
    Begin VB.Form FrmMain
       BackColor = &H80000002
       StartUpPosition = 3    'Windows Default
       WindowState = 2        'Maximized
       Begin VB.Timer Timer3
          Interval = 1000
          Left = 3720
          Top = 10560
       End
       Begin VB.Timer Timer2
          Interval = 1000
          Left = 4200
          Top = 10560
       End
       Begin MSCommLib.MSComm MSComm1
          Left = 5160
          Top = 10440
          _ExtentX        =   1005
          _ExtentY        =   1005
          _Version        =   393216
          DTREnable = 0           'False
       End
       Begin VB.Timer Timer1
          Interval = 1000
          Left = 4680
          Top = 10560
       End
       Begin VB.CommandButton Command2
          Caption = "Range 28-44 mm."
          BeginProperty Font
             Name = "Trebuchet MS"
             Size = 21.75
             Charset = 0
             Weight = 700
             Underline = 0           'False
             Italic = -1             'True
             Strikethrough = 0       'False
          EndProperty
          Height = 1335
          Width = 3735
       End
       Begin VB.Frame FrameDia
          Caption = "Value of Measuring"
          BeginProperty Font
             Name = "Trebuchet MS"
             Strikethrough = 0       'False
          EndProperty
          Height = 3495
          Width = 14295
          Begin VB.Label lblDataOuter
             Alignment = 2          'Center
             BackColor = &H80000009
             Caption = "1.002"
             BeginProperty Font
                Name = "Trebuchet MS"
                Strikethrough = 0       'False
             EndProperty
             Height = 1785
             Left = 4920
             TabIndex = 8
             Top = 840
             Width = 6075
          End
          Begin VB.Label Label2
             Caption = "mm."
             BeginProperty Font
                Name = "Trebuchet MS"
                Size = 72
                Charset = 0
                Weight = 700
                Underline = 0           'False
                Italic = -1             'True
                Strikethrough = 0       'False
             EndProperty
             Height = 1785
             Left = 10920
             TabIndex = 7
             Top = 840
             Width = 3075
          End
          Begin VB.Label lblDia
             BackColor = &H80000002
             Caption = "Outer Diameter"
             BeginProperty Font
                Name = "Trebuchet MS"
                Size = 36
                Charset = 0
                Weight = 700
                Underline = 0           'False
                Italic = 0              'False
                Strikethrough = 0       'False
             EndProperty
             Height = 1815
             Left = 600
             TabIndex = 6
             Top = 840
             Width = 4095
          End
       End
       Begin VB.Frame FrameHigh
          BackColor = &H80000002
          Caption = "Value of Measuring"
          BeginProperty Font
             Name = "Trebuchet MS"
             Size = 24
             Charset = 0
             Weight = 400
             Underline = 0           'False
             Italic = 0              'False
             Strikethrough = 0       'False
          EndProperty
          Height = 3495
          Left = 480
          TabIndex = 1
          Top = 5040
          Width = 14295
          Begin VB.Label lblHigh
             BackColor = &H80000002
             Caption = "Length"
             BeginProperty Font
                Name = "Trebuchet MS"
                Size = 36
                Charset = 0
                Weight = 700
                Underline = 0           'False
                Italic = 0              'False
                Strikethrough = 0       'False
             EndProperty
             Height = 975
             Left = 720
             TabIndex = 4
             Top = 1200
             Width = 2655
          End
          Begin VB.Label lblUnit
             Alignment = 2          'Center
             AutoSize = -1           'True
             BackColor = &H80000009
             Caption = "mm."
             BeginProperty Font
                Name = "Trebuchet MS"
                Size = 72
                Charset = 0
                Weight = 700
                Underline = 0           'False
                Italic = -1             'True
                Strikethrough = 0       'False
             EndProperty
             Height = 1785
             Left = 10920
             TabIndex = 3
             Top = 840
             Width = 3075
          End
          Begin VB.Label lblDataLength
             Alignment = 2          'Center
             BackColor = &H80000009
             Caption = "30.001"
             BeginProperty Font
                Name = "Trebuchet MS"
                Size = 72
                Charset = 0
                Weight = 700
                Underline = 0           'False
                Italic = -1             'True
                Strikethrough = 0       'False
             EndProperty
             Height = 1785
             Left = 4800
             TabIndex = 2
             Top = 840
             Width = 6195
          End
       End
       Begin VB.CommandButton Command1
          Caption = "Range 16-28 mm."
          BeginProperty Font
             Name = "Trebuchet MS"
             Size = 21.75
             Charset = 0
             Weight = 700
             Underline = 0           'False
             Italic = -1             'True
             Strikethrough = 0       'False
          EndProperty
          Height = 1335
          Left = 6240
          TabIndex = 9
          Top = 9600
          Width = 3735
       End
       Begin VB.Image Img2844
          Height = 900
          Left = 11760
          Picture         =   "HighCheck_01.frx":1CCA
          Stretch = -1            'True
          Top = 8640
          Width = 900
       End
       Begin VB.Image img1628
          Height = 900
          Left = 7800
          Picture         =   "HighCheck_01.frx":210C
          Stretch = -1            'True
          Top = 8640
          Width = 900
       End
       Begin VB.Label lblDate
          Alignment = 2          'Center
          BackColor = &H80000002
          Caption = "Date"
          BeginProperty Font
             Name = "Trebuchet MS"
             Size = 26.25
             Charset = 0
             Weight = 700
             Underline = 0           'False
             Italic = -1             'True
             Strikethrough = 0       'False
          EndProperty
          Height = 615
          Left = 480
          TabIndex = 12
          Top = 9240
          Width = 3375
       End
       Begin VB.Label lblTime
          Alignment = 2          'Center
          BackColor = &H80000002
          Caption = "Time"
          BeginProperty Font
             Name = "Trebuchet MS"
             Size = 26.25
             Charset = 0
             Weight = 700
             Underline = 0           'False
             Italic = -1             'True
             Strikethrough = 0       'False
          EndProperty
          Height = 615
          Left = 120
          TabIndex = 11
          Top = 9960
          Width = 3975
       End
       Begin VB.Label lblMain
          BackColor = &H80000002
          Caption = "Dimension Measurement Machine"
          BeginProperty Font
             Name = "Comic Sans MS"
             Size = 27.75
             Charset = 0
             Weight = 400
             Underline = -1          'True
             Italic = 0              'False
             Strikethrough = 0       'False
          EndProperty
          ForeColor = &H80000007
          Height = 975
          Left = 3360
          TabIndex = 0
          Top = 0
          Width = 9135
       End
    End
    Option Explicit
    Public DataOuter As String, DataLength As String, RecData As String, Model As String
    Private Sub Form_Load()
        img1628.Visible = False
        Img2844.Visible = False
    End Sub
    Private Sub Command1_Click()
        MSComm1.Output = "@00WR0200000146*" & vbCr
        Delay
    End Sub
    Private Sub Command2_Click()
        Delay
    End Sub
    Private Sub Delay()
    Dim a As Single
    End Sub
    Private Sub Image1_Click()
    End Sub
    Private Sub Timer1_Timer()
        lblTime.Caption = Format(Now, "HH:MM:SS AmPm")
        lblDate.Caption = Format(Now, "DD/MM/YY")
    End Sub
    Private Sub Timer2_Timer()
        MSComm1.Output = "@00RD0040000654*" & vbCr
        Delay
            End If
    End Sub
    Private Sub Timer3_Timer()
     If Model = "1" Then
           img1628.Visible = True
        Else
           img1628.Visible = False
        End If
        If Model = "2" Then
           Img2844.Visible = True
        Else
           Img2844.Visible = False
        End If
    End Sub

    Hello,
    VB 6 is no longer supported by Microsoft. I’d suggest asking in one of the following third-party forums which support Visual Basic 6.
    VB forums
    VB City
    For further information, see:
    Where to post your VB 6 questions
    Karl
    When you see answers and helpful posts, please click Vote As Helpful, Propose As Answer, and/or Mark As Answer.
    My Blog: Unlock PowerShell
    My Book: Windows PowerShell 2.0 Bible
    My E-mail: -join ('6F6C646B61726C40686F746D61696C2E636F6D'-split'(?<=\G.{2})'|%{if($_){[char][int]"0x$_"}})

  • Error: unexpected XML reader state. expected: END but found: START:

    I am getting following error while invoking method 'GetVersionInfo' (.net web service over dll) which takes one input parameter(string) and gives two output parameters(both short):
    ERROR at line 1:
    ORA-29532: Java call terminated by uncaught Java exception: deserialization
    error: unexpected XML reader state. expected: END but found: START:
    {UPPLink}pnVersionMajor
    ORA-06512: at "SYS.UTL_DBWS", line 388
    ORA-06512: at "SYS.UTL_DBWS", line 385
    ORA-06512: at line 40
    Expected Request is as follows:
    POST /UPPLink/UPPLink.asmx HTTP/1.1
    Host: 172.16.1.38
    Content-Type: text/xml; charset=utf-8
    Content-Length: length
    SOAPAction: "UPPLink/GetVersionInfo"
    <?xml version="1.0" encoding="utf-8"?>
    <soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
    <soap:Body>
    <GetVersionInfo xmlns="UPPLink">
    <ignore>string</ignore>
    </GetVersionInfo>
    </soap:Body>
    </soap:Envelope>
    EXpected Response is as follows:
    HTTP/1.1 200 OK
    Content-Type: text/xml; charset=utf-8
    Content-Length: length
    <?xml version="1.0" encoding="utf-8"?>
    <soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
    <soap:Body>
    <GetVersionInfoResponse xmlns="UPPLink">
    <GetVersionInfoResult>
    <pnVersionMajor>short</pnVersionMajor>
    <pnVersionMinor>short</pnVersionMinor>
    </GetVersionInfoResult>
    </GetVersionInfoResponse>
    </soap:Body>
    </soap:Envelope>
    The PL/SQL code I am using is as follows:
    DECLARE
    service_ sys.utl_dbws.SERVICE;
    call_ sys.UTL_DBWS.call;
    service_qname sys.utl_dbws.QNAME;
    port_qname sys.utl_dbws.QNAME;
    operation_qname sys.utl_dbws.QNAME;
    string_type_qname sys.utl_dbws.QNAME;
    number_type_qname sys.utl_dbws.QNAME;
    retx ANYDATA;
    strEntry VARCHAR2(100);
    retx_string VARCHAR2(100);
    majorVersion NUMBER;
    minorVersion NUMBER;
    params sys.utl_dbws.ANYDATA_LIST;
    v_outputs sys.utl_dbws.anydata_list;
    BEGIN
    dbms_output.put_line('Starting Function');
    service_qname := sys.utl_dbws.to_qname(null, 'UPPLink');
    strEntry := 'vab';
    dbms_output.put_line('Creating Service');
    service_ := sys.utl_dbws.create_service(HTTPURITYPE('http://172.16.1.38/UPPLink/UPPLink.asmx?WSDL'), service_qname);
    dbms_output.put_line('Creating Operation');
    operation_qname := sys.utl_dbws.to_qname(null, 'GetVersionInfo');
    dbms_output.put_line('Calling Service');
    call_ := sys.utl_dbws.create_call(service_, null, operation_qname);
    sys.utl_dbws.set_property(call_, 'SOAPACTION_USE', 'true');
    sys.utl_dbws.set_property(call_, 'SOAPACTION_URI', 'UPPLink/GetVersionInfo');
    sys.utl_dbws.set_property(call_, 'OPERATION_STYLE', 'rpc');
    string_type_qname := sys.utl_dbws.to_qname('http://www.w3.org/2001/XMLSchema', 'string');
    number_type_qname := sys.utl_dbws.to_qname('http://www.w3.org/2001/XMLSchema', 'short');
    sys.utl_dbws.add_parameter(call_, 'ignore', string_type_qname, 'ParameterMode.IN');
    sys.utl_dbws.add_parameter(call_, 'pnVersionMinor', number_type_qname, 'ParameterMode.OUT');
    sys.utl_dbws.set_return_type(call_, number_type_qname);
    params(0) := ANYDATA.convertvarchar2(strEntry);
    dbms_output.put('Invoking with Input Parameter: ');
    dbms_output.put_line(ANYDATA.ACCESSVARCHAR2(params(0)));
    retx := sys.utl_dbws.invoke(call_, params);
    dbms_output.put_line('Invoke complete');
    majorVersion := retx.accessnumber;
    dbms_output.put_line('Major Version ' || majorVersion);
    v_outputs := SYS.utl_dbws.get_output_values(call_);
    minorVersion := ANYDATA.AccessNumber(v_outputs(1));
    dbms_output.put_line('Minor Version ' || minorVersion);
    sys.utl_dbws.release_service(service_);
    END;
    /

    Actually, the name needs to match what is specified in the WSDL file.

  • Deserialization error: unexpected XML reader state. expected: END but found

    I have a JWSDP (on weblogic 8.1 SP2) web service that is supposed to return a string that contains a small XML file. The client can call and invoke the service just fine and the service runs. When the client reads the response it blows up with the error below, what is causing this? The response looks okay to me.
    ====================================
    ERROR FROM THE CLIENT
    ====================================
    [java] java.rmi.RemoteException: Runtime exception; nested exception is:
    [java] deserialization error: unexpected XML reader state. expected: END but found: START: exchangeDataResult
    [java] at com.sun.xml.rpc.client.StreamingSender._handleRuntimeExceptionInSend(Ljava.lang.RuntimeExceptionV(StreamingSender.java:248)
    [java] at com.sun.xml.rpc.client.StreamingSender._send(Ljava.lang.String;Lcom.sun.xml.rpc.client.StreamingSenderStateV(StreamingSender.java:230)
    [java] at com.mcdata.websvc.riverbed.server.DataExchangerSoap_Stub.exchangeData(Ljava.lang.String;Ljava.lang.String;Ljava.lang.String;Ljava.lang.StringLjava.lang.String;(DataExchangerSoap_Stub.java:70)
    [java] at jsp_compiled.__index._jspService(Ljavax.servlet.http.HttpServletRequest;Ljavax.servlet.http.HttpServletResponseV(__index.java:141)
    [java] at weblogic.servlet.jsp.JspBase.service(Ljavax.servlet.ServletRequest;Ljavax.servlet.ServletResponseV(JspBase.java:33)
    [java] at weblogic.servlet.internal.ServletStubImpl$ServletInvocationAction.run()Ljava.lang.Object;(ServletStubImpl.java:971)
    [java] at weblogic.servlet.internal.ServletStubImpl.invokeServlet(Ljavax.servlet.ServletRequest;Ljavax.servlet.ServletResponse;Lweblogic.servlet.internal.FilterChainImplV(ServletStubImpl.java:402)
    [java] at weblogic.servlet.internal.ServletStubImpl.invokeServlet(Ljavax.servlet.ServletRequest;Ljavax.servlet.ServletResponseV(ServletStubImpl.java:305)
    [java] at weblogic.servlet.internal.WebAppServletContext$ServletInvocationAction.run()Ljava.lang.Object;(WebAppServletContext.java:6350)
    [java] at weblogic.security.acl.internal.AuthenticatedSubject.doAs(Lweblogic.security.subject.AbstractSubject;Ljava.security.PrivilegedActionLjava.lang.Object;(AuthenticatedSubject.java:317)
    [java] at weblogic.security.service.SecurityManager.runAs(Lweblogic.security.acl.internal.AuthenticatedSubject;Lweblogic.security.acl.internal.AuthenticatedSubject;Ljava.security.PrivilegedActionLjava.lang.Object;(SecurityManager.java:118)
    [java] at weblogic.servlet.internal.WebAppServletContext.invokeServlet(Lweblogic.servlet.internal.ServletRequestImpl;Lweblogic.servlet.internal.ServletResponseImplV(WebAppServletContext.java:3635)
    [java] at weblogic.servlet.internal.ServletRequestImpl.execute(Lweblogic.kernel.ExecuteThreadV(ServletRequestImpl.java:2585)
    [java] at weblogic.kernel.ExecuteThread.execute(Lweblogic.kernel.ExecuteRequestV(ExecuteThread.java:197)
    [java] at weblogic.kernel.ExecuteThread.run()V(ExecuteThread.java:170)
    [java] at java.lang.Thread.startThreadFromVM(Ljava.lang.ThreadV(Unknown Source)
    [java] Caused by: deserialization error: unexpected XML reader state. expected: END but found: START: exchangeDataResult
    [java] at com.sun.xml.rpc.encoding.literal.LiteralSimpleTypeSerializer.deserialize(Ljavax.xml.namespace.QName;Lcom.sun.xml.rpc.streaming.XMLReader;Lcom.sun.xml.rpc.encoding.SOAPDeserializationContextLjava.lang.Object;(LiteralSimpleTypeSeri
    alizer.java:133)
    [java] at com.mcdata.websvc.riverbed.server.DataExchangerSoap_Stub._deserialize_exchangeData(Lcom.sun.xml.rpc.streaming.XMLReader;Lcom.sun.xml.rpc.encoding.SOAPDeserializationContext;Lcom.sun.xml.rpc.client.StreamingSenderStateV(DataExchan
    gerSoap_Stub.java:117)
    [java] at com.mcdata.websvc.riverbed.server.DataExchangerSoap_Stub._readFirstBodyElement(Lcom.sun.xml.rpc.streaming.XMLReader;Lcom.sun.xml.rpc.encoding.SOAPDeserializationContext;Lcom.sun.xml.rpc.client.StreamingSenderStateV(DataExchangerS
    oap_Stub.java:104)
    [java] at com.sun.xml.rpc.client.StreamingSender._send(Ljava.lang.String;Lcom.sun.xml.rpc.client.StreamingSenderStateV(StreamingSender.java:158)
    [java] ... 14 more
    ====================================
    SOAP RESPONSE
    ====================================
    <env:Envelope xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"
    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
    xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"
    xmlns:xsd="http://www.w3.org/2001/XMLSchema">
    <env:Header>
    </env:Header>
    <env:Body env:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
    <m:exchangeDataResponse xmlns:m="https://partners.mcdata.com">
    <exchangeDataResult xsi:type="xsd:string"><status>OK</status>
    <message>Transaction accepted.</message></exchangeDataResult>
    </m:exchangeDataResponse>
    </env:Body>
    </env:Envelope>
    ====================================
    WSDL
    ====================================
    <?xml version="1.0" encoding="utf-8"?>
    <wsdl:definitions
    xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
    xmlns:tm="http://microsoft.com/wsdl/mime/textMatching/"
    xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"
    xmlns:mime="http://schemas.xmlsoap.org/wsdl/mime/"
    xmlns:tns="https://partners.mcdata.com"
    xmlns:s="http://www.w3.org/2001/XMLSchema"
    xmlns:soap12="http://schemas.xmlsoap.org/wsdl/soap12/"
    xmlns:http="http://schemas.xmlsoap.org/wsdl/http/"
    targetNamespace="https://partners.mcdata.com"
    xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
    name="">
    <wsdl:types>
    <s:schema elementFormDefault="qualified" targetNamespace="https://partners.mcdata.com">
    <s:element name="exchangeData">
    <s:complexType>
    <s:sequence>
    <s:element minOccurs="0" maxOccurs="1" name="sender" type="s:string" />
    <s:element minOccurs="0" maxOccurs="1" name="password" type="s:string" />
    <s:element minOccurs="0" maxOccurs="1" name="transactionType" type="s:string" />
    <s:element minOccurs="0" maxOccurs="1" name="data" type="s:string" />
    </s:sequence>
    </s:complexType>
    </s:element>
    <s:element name="exchangeDataResponse" type="s:string" />
    </s:schema>
    </wsdl:types>
    <wsdl:message name="exchangeDataSoapIn">
    <wsdl:part name="parameters" element="tns:exchangeData" />
    </wsdl:message>
    <wsdl:message name="exchangeDataSoapOut">
    <wsdl:part name="parameters" element="tns:exchangeDataResponse" />
    </wsdl:message>
    <wsdl:portType name="DataExchangerSoap">
    <wsdl:operation name="exchangeData">
    <wsdl:input message="tns:exchangeDataSoapIn" />
    <wsdl:output message="tns:exchangeDataSoapOut" />
    </wsdl:operation>
    </wsdl:portType>
    <wsdl:binding name="DataExchangerSoap" type="tns:DataExchangerSoap">
    <soap:binding transport="http://schemas.xmlsoap.org/soap/http" />
    <wsdl:operation name="exchangeData">
    <soap:operation soapAction="https://208.47.133.243/riverbedshipserver/exchangeData" style="document" />
    <wsdl:input>
    <soap:body use="literal" />
    </wsdl:input>
    <wsdl:output>
    <soap:body use="literal" />
    </wsdl:output>
    </wsdl:operation>
    </wsdl:binding>
    <wsdl:service name="DataExchanger">
    <wsdl:port name="DataExchangerSoap" binding="tns:DataExchangerSoap">
    <soap:address location="https://208.47.133.243/riverbedshipserver/exchangeData" />
    </wsdl:port>
    </wsdl:service>
    </wsdl:definitions>
    ====================================
    web-services.xml
    ====================================
    <web-services>
    <web-service
    name="riverbedshipserver"
    targetNamespace="https://partners.mcdata.com"
    uri="exchangeData"
    >
    <components>
    <java-class name="DataExchanger" class-name="com.mcdata.websvc.riverbed.server.DataExchangerImpl"/>
    </components>
    <operations xmlns:xsd="http://www.w3.org/2001/XMLSchema">
    <operation name="exchangeData" component="DataExchanger" method="exchangeData">
    <params>
    <param name="sender" style="in" type="xsd:string" location="header"/>
    <param name="password" style="in" type="xsd:string" location="header"/>
    <param name="transactionType" style="in" type="xsd:string" location="header"/>
    <param name="data" style="in" type="xsd:string" location="header"/>
    <return-param name="exchangeDataResult" type="xsd:string"/>
    </params>
    </operation>
    </operations>
    </web-service>
    </web-services>

    This is caused by the response xml parameter is greater than the response parameter you have specified in your wsdl. Try to use packet monitoring to monitor all the process, you will notice that problems.

  • Deserialization error: unexpected XML reader state. expected: END but foun

    Can anyone help why there is an ERROR when invoking web service (Using 1.4.2 and jwsdp 1.6 )
    The ERROR
    java.rmi.RemoteException: Runtime exception; nested exception is:
    deserialization error: unexpected XML reader state. expected: END but found: START: accoId
    at com.sun.xml.rpc.client.StreamingSender._handleRuntimeExceptionInSend(StreamingSender.java:331)
    at com.sun.xml.rpc.client.StreamingSender._send(StreamingSender.java:313)
    at webservices.dispatcherExim.DispatcherEximPort_Stub.getArrayVO(DispatcherEximPort_Stub.java:69)
    at client.StatsClient2.main(Unknown Source)
    Caused by: deserialization error: unexpected XML reader state. expected: END but found: START: accoId
    at com.sun.xml.rpc.encoding.ObjectSerializerBase.deserialize(ObjectSerializerBase.java:233)
    at com.sun.xml.rpc.encoding.ReferenceableSerializerImpl.deserialize(ReferenceableSerializerImpl.java:155)
    at webservices.dispatcherExim.DispatcherEximPort_getArrayVO_ResponseStruct_SOAPSerializer.doDeserialize(DispatcherExi
    mPort_getArrayVO_ResponseStruct_SOAPSerializer.java:43)
    at com.sun.xml.rpc.encoding.ObjectSerializerBase.deserialize(ObjectSerializerBase.java:192)
    at com.sun.xml.rpc.encoding.ReferenceableSerializerImpl.deserialize(ReferenceableSerializerImpl.java:155)
    at webservices.dispatcherExim.DispatcherEximPort_Stub._deserialize_getArrayVO(DispatcherEximPort_Stub.java:117)
    at webservices.dispatcherExim.DispatcherEximPort_Stub._readFirstBodyElement(DispatcherEximPort_Stub.java:104)
    at com.sun.xml.rpc.client.StreamingSender._send(StreamingSender.java:228)
    ... 2 more
    Command to create stubs
    wscompile.bat -verbose -gen:both -f:searchschema -f:rpcliteral -f:wsi -keep -s src -d build src/config.xml
    This is config.xml
    <?xml version="1.0" encoding="UTF-8"?>
    <configuration
    xmlns="http://java.sun.com/xml/ns/jax-rpc/ri/config">
    <wsdl
    location="./src/DispatcherExim.wsdl"
    packageName="webservices.dispatcherExim" />
    </configuration>
    Calling
    java -Djava.endorsed.dirs=%JWSDP_HOME%jaxp\lib%JWSDP_HOME%jaxp\lib\endorsed -classpath .;%JWSDP_HOME%saaj\lib\saaj-api.jar;%JWSDP_HOME%saaj\lib\saaj-impl.jar;%JWSDP_HOME%jaxrpc\lib\jaxrpc-spi.jar;%JWSDP_HOME%jaxrpc\lib\jaxrpc-api.jar;%JWSDP_HOME%jaxrpc\lib\jaxrpc-impl.jar;%JWSDP_HOME%jwsdp-shared\lib\mail.jar;%JWSDP_HOME%jwsdp-shared\lib\activation.jar;C:\jpro\xml\jwsdl\dist\client.jar;C:\jpro\xml\jwsdl\dist\wsstub-xt.jar;C:\jwsdp1.5\jwsdp-shared\lib\commons-logging.jar client.StatsClient2
    This is a Response
    <?xml version="1.0" encoding="utf-8" standalone="yes"?>
    <env:Envelope xmlns:env="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
    <env:Header/>
    <env:Body env:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
    <m:getArrayVOResponse xmlns:m="http://www.eximb.com/nimius/Dispatch">
    <result xmlns:n1="java:com.eximb.nimius.base.common.data" xsi:type="n1:ArrayVO">
    <accoId xsi:type="xsd:decimal">1</accoId>
    <name xsi:type="xsd:string">TEST </name>
    <prodValueDate xsi:type="xsd:dateTime">2005-06-24T14:59:01.093+03:00</prodValueDate>
    </result>
    </m:getArrayVOResponse>
    </env:Body>
    </env:Envelope>
    Here is WSDL
    <?xml version="1.0" encoding="utf-8" ?>
    - <definitions xmlns:tns="http://www.eximb.com/nimius/Dispatch" xmlns:wsr="http://www.openuri.org/2002/10/soap/reliability/" xmlns:mime="http://schemas.xmlsoap.org/wsdl/mime/" xmlns:soap12="http://schemas.xmlsoap.org/wsdl/soap12/" xmlns:http="http://schemas.xmlsoap.org/wsdl/http/" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:soap12enc="http://www.w3.org/2002/12/soap-encoding" xmlns:conv="http://www.openuri.org/2002/04/wsdl/conversation/" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:s="http://www.w3.org/2001/XMLSchema" xmlns="http://schemas.xmlsoap.org/wsdl/" targetNamespace="http://www.eximb.com/nimius/Dispatch">
    - <types xmlns:tns="http://www.eximb.com/nimius/Dispatch" xmlns:wsr="http://www.openuri.org/2002/10/soap/reliability/" xmlns:http="http://schemas.xmlsoap.org/wsdl/http/" xmlns:soap12="http://schemas.xmlsoap.org/wsdl/soap12/" xmlns:mime="http://schemas.xmlsoap.org/wsdl/mime/" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:soap12enc="http://www.w3.org/2002/12/soap-encoding" xmlns:conv="http://www.openuri.org/2002/04/wsdl/conversation/" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:s="http://www.w3.org/2001/XMLSchema" xmlns="http://schemas.xmlsoap.org/wsdl/">
    - <xsd:schema xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:stns="java:com.eximb.nimius.base.common.data" elementFormDefault="qualified" attributeFormDefault="qualified" targetNamespace="java:com.eximb.nimius.base.common.data">
    - <xsd:complexType name="ArrayVO">
    - <xsd:sequence>
    <xsd:element type="xsd:decimal" name="accoId" minOccurs="1" nillable="true" maxOccurs="1" />
    <xsd:element type="xsd:string" name="name" minOccurs="1" nillable="true" maxOccurs="1" />
    <xsd:element type="xsd:dateTime" name="prodValueDate" minOccurs="1" nillable="true" maxOccurs="1" />
    </xsd:sequence>
    </xsd:complexType>
    </xsd:schema>
    </types>
    <message name="getArrayVO" />
    - <message name="getArrayVOResponse">
    <part xmlns:partns="java:com.eximb.nimius.base.common.data" type="partns:ArrayVO" name="result" />
    </message>
    - <portType name="DispatcherEximPort">
    - <operation name="getArrayVO">
    <input message="tns:getArrayVO" />
    <output message="tns:getArrayVOResponse" />
    </operation>
    </portType>
    - <binding type="tns:DispatcherEximPort" name="DispatcherEximPort">
    <soap:binding style="rpc" transport="http://schemas.xmlsoap.org/soap/http" />
    - <operation name="getArrayVO">
    <soap:operation style="rpc" soapAction="" />
    - <input>
    <soap:body namespace="http://www.eximb.com/nimius/Dispatch" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" use="encoded" />
    </input>
    - <output>
    <soap:body namespace="http://www.eximb.com/nimius/Dispatch" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" use="encoded" />
    </output>
    </operation>
    </binding>
    - <service name="DispatcherExim">
    - <port name="DispatcherEximPort" binding="tns:DispatcherEximPort">
    <soap:address location="http://localhost:7001//DispatcherExim" />
    </port>
    </service>
    </definitions>
    Thank you.

    I have had this problem and I found that I was sending elements in a different order than the order specified in the WSDL. The elements don't all have to be present, but any that are present need to be in the same sequence.

  • How to fix Syntax Error: Expected end of line, etc. but found end of script. in applescript?

    I am making an applescript for my modding tool for Minecraft. It used to use multiple apps and I am now trying to make one app for all the tasks.
    Here is the code:
    say "You are running iCraft version one point one for minecraft version 1.2.5"
    display dialog "Which tool do you want to use?" buttons {"Mod Installer", "Backup", "Restore"} default button 3
    set the button_pressed to the button returned of the result
    if the button_pressed is "Mod Installer" then
    do shell script "~/desktop/iCraft/iCraft.app/contents/re…
    display dialog "Insert all mod files into the Mods folder."
    display dialog "Have you inserted all Mod files into the Mods folder?" buttons {"Yes", "No"} default button 2
    if the button_pressed is "Yes" then
    do shell script "~/desktop/iCraft/iCraft.app/contents/re…
    display dialog "Finished"
    else
    display dialog "Insert mod files into the Mods folder and restart iCraft.app."
    end if
    if the button_pressed is "Backup" then
    display dialog "Are you sure you want to backup your Minecraft.jar in it's current state?" buttons {"Yes", "No"} default button 2
    if the button_pressed is "Yes" then
    do shell script "~/desktop/iCraft/iCraft.app/contents/re…
    display dialog "Finished, find it in your Backups directory in the iCraft folder"
    else
    display dialog "Backup aborted"
    end if
    if the button_pressed is "Restore" then
    display dialog "Are you sure you want to restore your Minecraft.jar with your backup?" buttons {"Yes", "No"} default button 2
    if the button_pressed is "Yes" then
    do shell script "~/desktop/iCraft/iCraft.app/resources/s…
    else
    display dialog "Restore aborted"
    end if
    end
    When I try to compile/run it gives me Syntax Error: Expected end of line, etc. but found end of script.

    Your script got mangled when pasting it into your message, but the main problem looks like you are missing a bunch of end if statements.  Unless your if statements are contained on one line, you need to terminate them with a matching end if statement - for example, the following are equivalent:
    if someString is "whatever" then display dialog "foo"
    if someString is "whatever" then
      display dialog "foo"
    end if

  • Error "expected end of line but found identifier"?

    I downloaded the project files for Apple's iDVD Companion http://www.apple.com/applescript/idvd/companion.html because I wanted to make some changes to it and rebuild it using Xcode.
    However, even it its original state the build fails under 10.4.10 and the current version of Applescript. Error is "expected end of line but found identifier" in one of the scripts. See screenshot:
    I don't understand why this Applescript is not compiling - has there been syntax changes in Applescript which stop this compiling? What is the correct syntax?
    Appreciate any pointers... thanks...
    G5 Desktop PPC 1.6 GHz   Mac OS X (10.4.8)  

    Perform a 'Find, Find in Project...' menu item ('Command <shift> F') search for 'Abstract object', and replace such with 'item'.
    However, once this resolves the compiling problem, you will experience a slew of AppleScript errors, when utilizing the compiled application.
    Note: Even the downloadable (pre-complied) 'iDVD Companion' application file has its share of incompatibilities.
    A lot has changed (with MacOS X and AppleScript) since 27.11.2001 - the creation date of the 'iDVD Companion' project.
      Mac OS X (10.4.6)  

  • 1014 - Expected 'End' Error in FDM Import Script

    I've been successful in creating a script. I get the following error :
    1014 - Expected 'End'
    At Line: 43 *(bolded)*
    Can someone please point me in the right direction.
    Thanks
    Function JDE_Entity(strField, strRecord)
    'Oracle Hyperion FDM DataPump Import Script:
    'Created By:     jzm6518
    'Date Created:     10/29/2012 11:42:36 AM
    'Purpose: Concatenate Entity 00089 with Sub_Account for mapping purposes
    'This is the section where variables are assigned
    'strField represents the Original Entity
    'strSubAcct represents the SubAccount field
    'strSubAcct=DW.Utilities.fParseString(strRecord,6,5,vbTab)
    strSubAcct=DW.Utilities.fParseString(strRecord,6,5,",")
    'strLedger represents the Ledger Field
    'strLedger=DW.Utilities.fParseString(strRecord,6,1,vbTab)
    strLedger=DW.Utilities.fParseString(strRecord,6,1,",")
    'strDept represents the dept Field
    'strDept=DW.Utilities.fParseString(strRecord,6,3,vbTab)
    strDept=DW.Utilities.fParseString(strRecord,6,3,",")
    If strField = "00001" or StrField = "1" then
    If strDept = "2" or strDept = "3" or strDept = "4" or strDept = "6" or strDept = "7" or strDept = "8" or strDept = "8" or strDept = "35" then
    JDE_Entity = strField & "." & strDept
    Else
    End If
    Else
    If strField = "00050" or strField = "00055" or strField = "00070" or strField = "00075" then
    If strLedger = "AA" or strLedger = "BA" then
    JDE_Entity = strLedger & "." & strField
    Else
    End If
    End If
    Else
    If strField = "00089" then
    JDE_Entity = strField & "." & strSubAcct
    Else
    End If
    **Else** JDE_Entity = strField
    End IF
    End Function

    This code is really messy and not well structured, so it's no surprise you have an issue. Try the following:
    1) Never have an Else clause in your If statements where you don't actually have an Else condition i.e. line 33, 40 etc
    2) Use a Case statement to replace your outermost If. It will make your code easier to read and probably get rid of your error which will be caused by poorly sequenced/structured If statements.

  • VBS Expected Statement error

    IHi there:
    Hi there:
    I am trying to build an XML file from a string and I am getting a Expected Statement Error.  I am not sure what
    is wrong that would cause this error with a simple loop for a bar graph.  Any ideas?
    Thanks in advance! Brett
    <%@ Language=VBScript %>
    <%
    Dim oConn, rs
    Dim strConnQuery
    Set oConn = Server.CreateObject("ADODB.Connection")
    oConn.Mode = 1
    'Create the path to database
    oConn.open session("DSN")
    %>
    <%
    'This page generates the XML data for the Chart contained in
    'Default.asp. 
    'Database Objects - Initialization
    Dim oRs, oRs2, strQuery
    'strXML will be used to store the entire XML document generated
    Dim strXML
    'Create the recordset to retrieve data
    Set oRs = Server.CreateObject("ADODB.Recordset")
    Function getTotals()
       'Initialize database objects
    Dim oRs, strSQL
    'Variable to store XML Data
    Dim strXML
    'To store categories
    Dim strCat
    'To store amount Dataset & quantity dataset
        Dim strAmtDS, strQtyDS
    strCat = "select * from fusion_category"
    strSQL = "select * from claim_table where reference_num =" & session("globalrefno")
    Set oRs = Server.CreateObject("ADODB.Recordset")
    oRs.Open strSQL, oConn
    'Initialize <categories> element
    strCat = "<categories>"
    'Response.Write(strCat)
    'Initialize datasets
    strIncDS = "<dataset seriesname='Incurred'>"
    strPdDS = "<dataset seriesName='Paid' parentYAxis='P'>"
    'Variable to store link
    Dim strLink
    'Iterate through each data row
    Do While not oRs.EOF
    strCat = strCat & "<category label='" & oRs("Category") & "'/>"
    strIncDS = strIncDS & "<set value='" & oRs("Incurred") & "'/>"
    strPdDS = strPdDS & "<set value='" & oRs("Paid") & "'/>"
    'oRs.EOF
    'Closing elements
    strCat = strCat & "</categories>"
    strIncDS = strIncDS & "</dataset>"
    strPdDS = strPdDS & "</dataset>"
    'Entire XML - concatenation
    strXML =  strCat & strIncDS & strPdDS
    oRs.Close()
    Set oRs = nothing
    getTotals = strXML
        End Function
    strXML = "<chart caption='Incurred vs Paid" & getTotals() & "' xAxisName='Year' palette='" & "' numberPrefix='$' formatNumberScale='0'>"
    'Get the data
    strXML = strXML & "<set label='Incurred' value='" & getTotals() & "' />"
    strXML = strXML & "<set label='Paid' value='" & getTotals() & "' />"
    strXML = strXML & "</chart>"
    'Output it
    Response.ContentType = "text/xml"
    Response.Write(strXML)
    %>

    Hi there:
    I am trying to build an XML file from a string and I am getting a Expected Statement Error.  I am not sure what
    is wrong that would cause this error with a simple loop for a bar graph.  Any ideas?
    Thanks in advance! Brett
    <%@ Language=VBScript %>
    <%
    Dim oConn, rs
    Dim strConnQuery
    Set oConn = Server.CreateObject("ADODB.Connection")
    oConn.Mode = 1
    'Create the path to database
    oConn.open session("DSN")
    %>
    <%
    'This page generates the XML data for the Chart contained in
    'Default.asp. 
    'Database Objects - Initialization
    Dim oRs, oRs2, strQuery
    'strXML will be used to store the entire XML document generated
    Dim strXML
    'Create the recordset to retrieve data
    Set oRs = Server.CreateObject("ADODB.Recordset")
    Function getTotals()
       'Initialize database objects
    Dim oRs, strSQL
    'Variable to store XML Data
    Dim strXML
    'To store categories
    Dim strCat
    'To store amount Dataset & quantity dataset
        Dim strAmtDS, strQtyDS
    strCat = "select * from fusion_category"
    strSQL = "select * from claim_table where reference_num =" & session("globalrefno")
    Set oRs = Server.CreateObject("ADODB.Recordset")
    oRs.Open strSQL, oConn
    'Initialize <categories> element
    strCat = "<categories>"
    'Response.Write(strCat)
    'Initialize datasets
    strIncDS = "<dataset seriesname='Incurred'>"
    strPdDS = "<dataset seriesName='Paid' parentYAxis='P'>"
    'Variable to store link
    Dim strLink
    'Iterate through each data row
    Do While not oRs.EOF
    strCat = strCat & "<category label='" & oRs("Category") & "'/>"
    strIncDS = strIncDS & "<set value='" & oRs("Incurred") & "'/>"
    strPdDS = strPdDS & "<set value='" & oRs("Paid") & "'/>"
    'oRs.EOF
    'Closing elements
    strCat = strCat & "</categories>"
    strIncDS = strIncDS & "</dataset>"
    strPdDS = strPdDS & "</dataset>"
    'Entire XML - concatenation
    strXML =  strCat & strIncDS & strPdDS
    oRs.Close()
    Set oRs = nothing
    getTotals = strXML
        End Function
    strXML = "<chart caption='Incurred vs Paid" & getTotals() & "' xAxisName='Year' palette='" & "' numberPrefix='$' formatNumberScale='0'>"
    'Get the data
    strXML = strXML & "<set label='Incurred' value='" & getTotals() & "' />"
    strXML = strXML & "<set label='Paid' value='" & getTotals() & "' />"
    strXML = strXML & "</chart>"
    'Output it
    Response.ContentType = "text/xml"
    Response.Write(strXML)
    %>

  • Unexpected XML reader state. expected: END but found: START:

    Hi,
    I am wrote a web client using JWSDP-2.0 and JWSDP-1.4.
    When I run my client I get following error.
    java.rmi.RemoteException: Runtime exception; nested exception is:
    deserialization error: unexpected XML reader state. expected: END but found: START: m_dValue; nested e
    xception is:
    java.rmi.RemoteException: Runtime exception; nested exception is:
    deserialization error: unexpected XML reader state. expected: END but found: START: m_dValue
    at com.engagenet.protoObj.wizcon.TagServiceSoap_Stub.readTagValues(TagServiceSoap_Stub.java:92)
    at com.engagenet.protoObj.wizcon.TagService_Impl.main(TagService_Impl.java:78)
    Caused by: java.rmi.RemoteException: Runtime exception; nested exception is:
    deserialization error: unexpected XML reader state. expected: END but found: START: m_dValue
    at com.sun.xml.rpc.client.StreamingSender._handleRuntimeExceptionInSend(StreamingSender.java:331)
    at com.sun.xml.rpc.client.StreamingSender._send(StreamingSender.java:313)
    at com.engagenet.protoObj.wizcon.TagServiceSoap_Stub.readTagValues(TagServiceSoap_Stub.java:70)
    ... 1 more
    Caused by: deserialization error: unexpected XML reader state. expected: END but found: START: m_dValue
    at com.sun.xml.rpc.encoding.ObjectSerializerBase.deserialize(ObjectSerializerBase.java:233)
    at com.sun.xml.rpc.encoding.ReferenceableSerializerImpl.deserialize(ReferenceableSerializerImpl.java:1
    55)
    at com.sun.xml.rpc.encoding.ObjectArraySerializer.deserializeArrayInstance(ObjectArraySerializer.java:
    207)
    at com.sun.xml.rpc.encoding.ArraySerializerBase.deserialize(ArraySerializerBase.java:260)
    at com.sun.xml.rpc.encoding.ReferenceableSerializerImpl.deserialize(ReferenceableSerializerImpl.java:1
    55)
    at com.engagenet.protoObj.wizcon.TagServiceSoap_ReadTagValues_ResponseStruct_SOAPSerializer.doDeserial
    ize(TagServiceSoap_ReadTagValues_ResponseStruct_SOAPSerializer.java:43)
    at com.sun.xml.rpc.encoding.ObjectSerializerBase.deserialize(ObjectSerializerBase.java:192)
    at com.sun.xml.rpc.encoding.ReferenceableSerializerImpl.deserialize(ReferenceableSerializerImpl.java:1
    55)
    at com.engagenet.protoObj.wizcon.TagServiceSoap_Stub._deserialize_ReadTagValues(TagServiceSoap_Stub.ja
    va:336)
    at com.engagenet.protoObj.wizcon.TagServiceSoap_Stub._readFirstBodyElement(TagServiceSoap_Stub.java:31
    1)
    at com.sun.xml.rpc.client.StreamingSender._send(StreamingSender.java:228)
    ... 2 more
    Here is my wsdl file
    <?xml version="1.0" encoding="utf-8"?>
    <wsdl:definitions xmlns:http="http://schemas.xmlsoap.org/wsdl/http/" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:s="http://www.w3.org/2001/XMLSchema" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:tns="urn:WizWebService" xmlns:tm="http://microsoft.com/wsdl/mime/textMatching/" xmlns:mime="http://schemas.xmlsoap.org/wsdl/mime/" targetNamespace="urn:WizWebService" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">
    <wsdl:types>
    <s:schema attributeFormDefault="qualified" elementFormDefault="qualified" targetNamespace="urn:WizWebService">
    <s:import namespace="http://schemas.xmlsoap.org/soap/encoding/" />
    <s:complexType name="ReadTagValues_return_Array">
    <s:complexContent mixed="false">
    <s:restriction base="soapenc:Array">
    <s:attribute wsdl:arrayType="tns:TagValue[]" ref="soapenc:arrayType" />
    </s:restriction>
    </s:complexContent>
    </s:complexType>
    <s:complexType name="ReadTagValues_tagNames_Array">
    <s:complexContent mixed="false">
    <s:restriction base="soapenc:Array">
    <s:attribute wsdl:arrayType="s:string[]" ref="soapenc:arrayType" />
    </s:restriction>
    </s:complexContent>
    </s:complexType>
    <s:complexType name="ReadTagStringValues_return_Array">
    <s:complexContent mixed="false">
    <s:restriction base="soapenc:Array">
    <s:attribute wsdl:arrayType="tns:TagStringValue[]" ref="soapenc:arrayType" />
    </s:restriction>
    </s:complexContent>
    </s:complexType>
    <s:complexType name="ReadTagStringValues_tagNames_Array">
    <s:complexContent mixed="false">
    <s:restriction base="soapenc:Array">
    <s:attribute wsdl:arrayType="s:string[]" ref="soapenc:arrayType" />
    </s:restriction>
    </s:complexContent>
    </s:complexType>
    <s:complexType name="WriteTagValues_return_Array">
    <s:complexContent mixed="false">
    <s:restriction base="soapenc:Array">
    <s:attribute wsdl:arrayType="tns:QUALITY[]" ref="soapenc:arrayType" />
    </s:restriction>
    </s:complexContent>
    </s:complexType>
    <s:complexType name="WriteTagValues_tagNames_Array">
    <s:complexContent mixed="false">
    <s:restriction base="soapenc:Array">
    <s:attribute wsdl:arrayType="s:string[]" ref="soapenc:arrayType" />
    </s:restriction>
    </s:complexContent>
    </s:complexType>
    <s:complexType name="WriteTagValues_tagValues_Array">
    <s:complexContent mixed="false">
    <s:restriction base="soapenc:Array">
    <s:attribute wsdl:arrayType="s:double[]" ref="soapenc:arrayType" />
    </s:restriction>
    </s:complexContent>
    </s:complexType>
    <s:complexType name="WriteTagStringValues_return_Array">
    <s:complexContent mixed="false">
    <s:restriction base="soapenc:Array">
    <s:attribute wsdl:arrayType="tns:QUALITY[]" ref="soapenc:arrayType" />
    </s:restriction>
    </s:complexContent>
    </s:complexType>
    <s:complexType name="WriteTagStringValues_tagNames_Array">
    <s:complexContent mixed="false">
    <s:restriction base="soapenc:Array">
    <s:attribute wsdl:arrayType="s:string[]" ref="soapenc:arrayType" />
    </s:restriction>
    </s:complexContent>
    </s:complexType>
    <s:complexType name="WriteTagStringValues_tagValues_Array">
    <s:complexContent mixed="false">
    <s:restriction base="soapenc:Array">
    <s:attribute wsdl:arrayType="s:string[]" ref="soapenc:arrayType" />
    </s:restriction>
    </s:complexContent>
    </s:complexType>
    <s:complexType name="GetTagNames_return_Array">
    <s:complexContent mixed="false">
    <s:restriction base="soapenc:Array">
    <s:attribute wsdl:arrayType="tns:TagName[]" ref="soapenc:arrayType" />
    </s:restriction>
    </s:complexContent>
    </s:complexType>
    <s:simpleType name="TAG_FORMAT">
    <s:restriction base="s:string">
    <s:enumeration value="F_STRING" />
    <s:enumeration value="F_NUMERIC" />
    </s:restriction>
    </s:simpleType>
    <s:simpleType name="QUALITY">
    <s:restriction base="s:string">
    <s:enumeration value="Q_ERR" />
    <s:enumeration value="Q_OK" />
    </s:restriction>
    </s:simpleType>
    <s:complexType name="TagStringValue">
    <s:sequence>
    <s:element name="m_bstrValue" type="s:string" />
    <s:element name="m_Quality" type="tns:QUALITY" />
    </s:sequence>
    </s:complexType>
    <s:complexType name="TagName">
    <s:sequence>
    <s:element name="m_bstrName" type="s:string" />
    <s:element name="m_Format" type="tns:TAG_FORMAT" />
    </s:sequence>
    </s:complexType>
    <s:complexType name="TagValue">
    <s:sequence>
    <s:element name="m_dValue" type="s:double" />
    <s:element name="m_Quality" type="tns:QUALITY" />
    </s:sequence>
    </s:complexType>
    </s:schema>
    </wsdl:types>
    <wsdl:message name="ReadTagValuesIn">
    <wsdl:part name="tagNames" type="tns:ReadTagValues_tagNames_Array" />
    </wsdl:message>
    <wsdl:message name="ReadTagValuesOut">
    <wsdl:part name="return" type="tns:ReadTagValues_return_Array" />
    </wsdl:message>
    <wsdl:message name="ReadTagStringValuesIn">
    <wsdl:part name="tagNames" type="tns:ReadTagStringValues_tagNames_Array" />
    </wsdl:message>
    <wsdl:message name="ReadTagStringValuesOut">
    <wsdl:part name="return" type="tns:ReadTagStringValues_return_Array" />
    </wsdl:message>
    <wsdl:message name="WriteTagValuesIn">
    <wsdl:part name="tagNames" type="tns:WriteTagValues_tagNames_Array" />
    <wsdl:part name="tagValues" type="tns:WriteTagValues_tagValues_Array" />
    </wsdl:message>
    <wsdl:message name="WriteTagValuesOut">
    <wsdl:part name="return" type="tns:WriteTagValues_return_Array" />
    </wsdl:message>
    <wsdl:message name="WriteTagStringValuesIn">
    <wsdl:part name="tagNames" type="tns:WriteTagStringValues_tagNames_Array" />
    <wsdl:part name="tagValues" type="tns:WriteTagStringValues_tagValues_Array" />
    </wsdl:message>
    <wsdl:message name="WriteTagStringValuesOut">
    <wsdl:part name="return" type="tns:WriteTagStringValues_return_Array" />
    </wsdl:message>
    <wsdl:message name="GetTagNamesIn">
    <wsdl:part name="bstrStnName" type="s:string" />
    </wsdl:message>
    <wsdl:message name="GetTagNamesOut">
    <wsdl:part name="return" type="tns:GetTagNames_return_Array" />
    </wsdl:message>
    <wsdl:portType name="TagServiceSoap">
    <wsdl:operation name="ReadTagValues">
    <wsdl:input message="tns:ReadTagValuesIn" />
    <wsdl:output message="tns:ReadTagValuesOut" />
    </wsdl:operation>
    <wsdl:operation name="ReadTagStringValues">
    <wsdl:input message="tns:ReadTagStringValuesIn" />
    <wsdl:output message="tns:ReadTagStringValuesOut" />
    </wsdl:operation>
    <wsdl:operation name="WriteTagValues">
    <wsdl:input message="tns:WriteTagValuesIn" />
    <wsdl:output message="tns:WriteTagValuesOut" />
    </wsdl:operation>
    <wsdl:operation name="WriteTagStringValues">
    <wsdl:input message="tns:WriteTagStringValuesIn" />
    <wsdl:output message="tns:WriteTagStringValuesOut" />
    </wsdl:operation>
    <wsdl:operation name="GetTagNames">
    <wsdl:input message="tns:GetTagNamesIn" />
    <wsdl:output message="tns:GetTagNamesOut" />
    </wsdl:operation>
    </wsdl:portType>
    <wsdl:binding name="TagServiceSoap" type="tns:TagServiceSoap">
    <soap:binding transport="http://schemas.xmlsoap.org/soap/http" style="rpc" />
    <wsdl:operation name="ReadTagValues">
    <soap:operation soapAction="#ReadTagValues" style="rpc" />
    <wsdl:input>
    <soap:body use="encoded" namespace="urn:WizWebService" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" />
    </wsdl:input>
    <wsdl:output>
    <soap:body use="encoded" namespace="urn:WizWebService" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" />
    </wsdl:output>
    </wsdl:operation>
    <wsdl:operation name="ReadTagStringValues">
    <soap:operation soapAction="#ReadTagStringValues" style="rpc" />
    <wsdl:input>
    <soap:body use="encoded" namespace="urn:WizWebService" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" />
    </wsdl:input>
    <wsdl:output>
    <soap:body use="encoded" namespace="urn:WizWebService" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" />
    </wsdl:output>
    </wsdl:operation>
    <wsdl:operation name="WriteTagValues">
    <soap:operation soapAction="#WriteTagValues" style="rpc" />
    <wsdl:input>
    <soap:body use="encoded" namespace="urn:WizWebService" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" />
    </wsdl:input>
    <wsdl:output>
    <soap:body use="encoded" namespace="urn:WizWebService" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" />
    </wsdl:output>
    </wsdl:operation>
    <wsdl:operation name="WriteTagStringValues">
    <soap:operation soapAction="#WriteTagStringValues" style="rpc" />
    <wsdl:input>
    <soap:body use="encoded" namespace="urn:WizWebService" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" />
    </wsdl:input>
    <wsdl:output>
    <soap:body use="encoded" namespace="urn:WizWebService" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" />
    </wsdl:output>
    </wsdl:operation>
    <wsdl:operation name="GetTagNames">
    <soap:operation soapAction="#GetTagNames" style="rpc" />
    <wsdl:input>
    <soap:body use="encoded" namespace="urn:WizWebService" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" />
    </wsdl:input>
    <wsdl:output>
    <soap:body use="encoded" namespace="urn:WizWebService" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" />
    </wsdl:output>
    </wsdl:operation>
    </wsdl:binding>
    <wsdl:service name="TagService">
    <wsdl:port name="TagServiceSoap" binding="tns:TagServiceSoap">
    <soap:address location="http://212.157.43.123:80/wiz_ws/wizws.dll?Handler=TagService" />
    </wsdl:port>
    </wsdl:service>
    </wsdl:definitions>
    Here is my web client
    // This class was generated by the JAXRPC SI, do not edit.
    // Contents subject to change without notice.
    // JAX-RPC Standard Implementation (1.1.3, build R1)
    // Generated source version: 1.1.3
    package com.engagenet.protoObj.wizcon;
    import com.sun.xml.rpc.encoding.*;
    import com.sun.xml.rpc.client.ServiceExceptionImpl;
    import com.sun.xml.rpc.util.exception.*;
    import com.sun.xml.rpc.soap.SOAPVersion;
    import com.sun.xml.rpc.client.HandlerChainImpl;
    import javax.xml.rpc.*;
    import javax.xml.rpc.encoding.*;
    import javax.xml.rpc.handler.HandlerChain;
    import javax.xml.rpc.handler.HandlerInfo;
    import javax.xml.namespace.QName;
    public class TagService_Impl extends com.sun.xml.rpc.client.BasicService implements TagService {
    private static final QName serviceName = new QName("urn:WizWebService", "TagService");
    private static final QName ns1_TagServiceSoap_QNAME = new QName("urn:WizWebService", "TagServiceSoap");
    private static final Class tagServiceSoap_PortClass = com.engagenet.protoObj.wizcon.TagServiceSoap.class;
    public TagService_Impl() {
    super(serviceName, new QName[] {
    ns1_TagServiceSoap_QNAME
    new com.engagenet.protoObj.wizcon.TagService_SerializerRegistry().getRegistry());
    public java.rmi.Remote getPort(javax.xml.namespace.QName portName, java.lang.Class serviceDefInterface) throws javax.xml.rpc.ServiceException {
    try {
    if (portName.equals(ns1_TagServiceSoap_QNAME) &&
    serviceDefInterface.equals(tagServiceSoap_PortClass)) {
    return getTagServiceSoap();
    } catch (Exception e) {
    throw new ServiceExceptionImpl(new LocalizableExceptionAdapter(e));
    return super.getPort(portName, serviceDefInterface);
    public java.rmi.Remote getPort(java.lang.Class serviceDefInterface) throws javax.xml.rpc.ServiceException {
    try {
    if (serviceDefInterface.equals(tagServiceSoap_PortClass)) {
    return getTagServiceSoap();
    } catch (Exception e) {
    throw new ServiceExceptionImpl(new LocalizableExceptionAdapter(e));
    return super.getPort(serviceDefInterface);
    public com.engagenet.protoObj.wizcon.TagServiceSoap getTagServiceSoap() {
    java.lang.String[] roles = new java.lang.String[] {};
    HandlerChainImpl handlerChain = new HandlerChainImpl(getHandlerRegistry().getHandlerChain(ns1_TagServiceSoap_QNAME));
    handlerChain.setRoles(roles);
    com.engagenet.protoObj.wizcon.TagServiceSoap_Stub stub = new com.engagenet.protoObj.wizcon.TagServiceSoap_Stub(handlerChain);
    try {
    stub._initialize(super.internalTypeRegistry);
    } catch (JAXRPCException e) {
    throw e;
    } catch (Exception e) {
    throw new JAXRPCException(e.getMessage(), e);
    return stub;
         public static void main(String []args)
    try
    TagService_Impl proto = new TagService_Impl();
    TagServiceSoap tSoap = proto.getTagServiceSoap();
    QUALITY Q_ERR = QUALITY.fromString("Q_ERR");
    String tagName[] = {"aem_opc", "aem_ws_test", "wizsys_minute"};
    TagValue[] tValue = tSoap.readTagValues(tagName);
    for(int i = 0; i < 3; ++i)
    if(tValue.getM_Quality().equals(Q_ERR))
    System.out.println("" + tagName[i] + " read failed " + tValue[i].getM_Quality());
    else
    System.out.println("" + tagName[i] + " read failed " + tValue[i].getM_dValue());
    catch(Exception e)
    e.printStackTrace();
    Am I doing any thing wrong. All java files I am using is generated as a result of this command.
    wscompile.bat -verbose -gen -d classes -s src -keep etc/config.xml
    I only add main method in TagService_Impl.java class which I highlighted above.
    Any help is apprecited.
    Thanks
    Shreey

    I stumbled upon this exception when I tried to send a complex type as a return parameter. The sequence in which the server sent the components of the complex type was different from the one the client artifacts expected. And because the deserializer generated by xrpcc can't survive this, it throws the exception that's bothering you.
    It may or may not be the same case with you, this is merely what I had to find out.

  • Image in PDF error - Expected end of color space

    Hi friends,
    I am displaying a PDF file in an webdynpro application. The contents are coming from the output of a RFC. The pdf file contains an image. While I am running the Webdynpro application the image is not coming. An error popup <b>"Expected end of color space"</b> is generated. But the texts of pdf file is coming properly.
    Please help.
    With regards,
    Sekhar

    Hi Sekar
    We are facing the same issue.  Have you managed to resolve this issue ?
    Please advise
    Regards
    Vivek

Maybe you are looking for

  • Right management: How many devices can share a certain piece of music when using Home Sharing?

    Considering a family of 4, each of us having between 2 and 3 devices. Can all of them use music through Home Sharing or is the limit of 5 applying? Thanks

  • How to schedule dependent job in oracle

    I would like to schedule a job which should be dependent on the completion of previous job. How is it achieved in oracle 10g

  • Image representation in pdf format

    I am wondering how does an image is represented in PDF format? I mean upon converting an image(whatever format) into pdf format, what is the conversion algorithm hidden beyond this simple procedure? and how does the image features and content are aff

  • Hierarchical tree - Data Entry Form

    I am trying to make a data entry form for hierarchical tree. Any one help me to send a sample .fmb file. I created a table like create table master_ACTIVITY (INITIAL_LEVEL NUMBER (4) , NODE_DEPTH NUMBER (4) , NODE_LABEL VARCHAR2(160) , NODE_ICON VARC

  • Dreamweaver and CSS

    Just wondering how they got the image to line up with the word go in the text boxes of this site http://www.o2online.ie/wps/wcm/connect/O2/Home/Personal/Services if someome could help me it would be greatly appreciated