I have created and consumed web services created in Vusial Studio prior - but
I have been given a WSDL file from a client who is running an IBM VSE 390
that I have to consume. I used wsdl.exe /language:vb /out:tapservice.vb
otis.wsdl
I added the tapservice.vb to my windows forms application.
When I instantiate the object and call the method the only error I get is
"Server Error". I have SoapUI on the same machine and the I can succesfully
run the web method without errors. below is my tapservice.vb for the method
I want to use:
'''<remarks/>
<System.Web.Services.Protocols.SoapRpcMethodAttrib ute("",
RequestNamespace:="urn:IESSOAPD:OTIST267",
ResponseNamespace:="urn:IESSOAPD:OTIST267") _
Public Function TAPENTRY( _
ByVal COMM_SVC_NBR As String, _
ByVal COMM_NAME_TYPE As String, _
ByVal COMM_NAME As String, _
ByVal COMM_ATTN As String, _
ByVal COMM_ADDR As String, _
ByVal COMM_CITY As String, _
ByVal COMM_STATE As String, _
ByVal COMM_ZIP As String, _
ByVal COMM_AREA_CODE As String, _
ByVal COMM_PHONE_NBR As String, _
ByVal COMM_FED_TAXID As String, _
ByVal COMM_MAP_ID As String, _
ByVal COMM_SECT As String, _
ByVal COMM_QUAD As String, _
ByVal COMM_SEC As String, _
ByVal COMM_TOWNSHIP As String, _
ByVal COMM_RANGE As String, _
ByVal COMM_LOT As String, _
ByVal COMM_BLOCK As String, _
ByVal COMM_SURVEY As String, _
ByVal COMM_DEED As String, _
ByVal COMM_PAGE As String, _
ByVal COMM_TRACT As String, _
ByVal COMM_COUNTY As String, _
ByVal COMM_MUNIC As String, _
ByVal COMM_ZONE As String, _
ByVal COMM_MAIN_SIZE As String, _
ByVal COMM_TAP_SIZE As String, _
ByVal COMM_DEMAND As String, _
ByVal COMM_FRONTAGE As String, _
ByVal COMM_TYPE_BLDG As String, _
ByVal COMM_EXTN_AGREE As String, _
ByVal COMM_TYPE_MAIN As String, _
ByVal COMM_TYPE_TAP As String, _
ByVal COMM_SERV_AREA As String, _
ByVal COMM_GRADIENT As String, _
ByVal COMM_PRESSURE As String, _
ByVal COMM_TAP_LOC As String, _
ByVal COMM_TYPE_SVC1 As String, _
ByVal COMM_LOOP_SIZE1 As String, _
ByVal COMM_METER_SIZE1 As String, _
ByVal COMM_SERV_SIZE1 As String, _
ByVal COMM_TYPE_SVC2 As String, _
ByVal COMM_LOOP_SIZE2 As String, _
ByVal COMM_METER_SIZE2 As String, _
ByVal COMM_SERV_SIZE2 As String, _
ByVal COMM_TYPE_SVC3 As String, _
ByVal COMM_LOOP_SIZE3 As String, _
ByVal COMM_METER_SIZE3 As String, _
ByVal COMM_SERV_SIZE3 As String, _
ByVal COMM_TYPE_SVC4 As String, _
ByVal COMM_LOOP_SIZE4 As String, _
ByVal COMM_METER_SIZE4 As String, _
ByVal COMM_SERV_SIZE4 As String, _
ByVal COMM_SPEC_REQ1 As String, _
ByVal COMM_SPEC_REQ2 As String, _
ByVal COMM_SPEC_REQ3 As String, _
ByVal COMM_SPEC_REQ4 As String, _
ByVal COMM_SPEC_INST1 As String, _
ByVal COMM_SPEC_INST2 As String, _
ByVal COMM_PLUMB_NAME As String, _
ByVal COMM_PLUMB_PHONE As String, _
ByVal COMM_SVC_AD_NBR As String, _
ByVal COMM_SVC_AD_NAM As String, _
ByVal COMM_SVC_AD_TYP As String, _
ByVal COMM_SVC_AD_LOC As String, _
ByVal COMM_SVC_AD_APT As String, _
ByVal COMM_SVC_AD_TOW As String, _
ByVal COMM_PROP_ZIP As String, _
ByVal COMM_CONN_FEE As String, _
ByVal COMM_MAIN_FEE As String, _
ByVal COMM_SYS_DEV_FEE As String, _
ByVal COMM_SHARED_MAIN As String, _
ByVal COMM_BHAM_SEW_YN As String, _
ByVal COMM_AGREEMENT As String, _
ByVal COMM_T_AMT As String, _
ByVal COMM_RES_COMM As String, _
ByVal COMM_APPROVED_BY As String, _
ByVal COMM_APT_UNITS As String, _
ByVal FILLER_1 As String, _
ByRef COMM_MESSAGE As String, _
ByRef COMM_TAP_NBR As String) As
<System.Xml.Serialization.SoapElementAttribute("CO MM_RETURN_CODE")String
Dim results() As Object = Me.Invoke("TAPENTRY", New Object()
{COMM_SVC_NBR, COMM_NAME_TYPE, COMM_NAME, COMM_ATTN, COMM_ADDR, COMM_CITY,
COMM_STATE, COMM_ZIP, COMM_AREA_CODE, COMM_PHONE_NBR, COMM_FED_TAXID,
COMM_MAP_ID, COMM_SECT, COMM_QUAD, COMM_SEC, COMM_TOWNSHIP, COMM_RANGE,
COMM_LOT, COMM_BLOCK, COMM_SURVEY, COMM_DEED, COMM_PAGE, COMM_TRACT,
COMM_COUNTY, COMM_MUNIC, COMM_ZONE, COMM_MAIN_SIZE, COMM_TAP_SIZE,
COMM_DEMAND, COMM_FRONTAGE, COMM_TYPE_BLDG, COMM_EXTN_AGREE, COMM_TYPE_MAIN,
COMM_TYPE_TAP, COMM_SERV_AREA, COMM_GRADIENT, COMM_PRESSURE, COMM_TAP_LOC,
COMM_TYPE_SVC1, COMM_LOOP_SIZE1, COMM_METER_SIZE1, COMM_SERV_SIZE1,
COMM_TYPE_SVC2, COMM_LOOP_SIZE2, COMM_METER_SIZE2, COMM_SERV_SIZE2,
COMM_TYPE_SVC3, COMM_LOOP_SIZE3, COMM_METER_SIZE3, COMM_SERV_SIZE3,
COMM_TYPE_SVC4, COMM_LOOP_SIZE4, COMM_METER_SIZE4, COMM_SERV_SIZE4,
COMM_SPEC_REQ1, COMM_SPEC_REQ2, COMM_SPEC_REQ3, COMM_SPEC_REQ4,
COMM_SPEC_INST1, COMM_SPEC_INST2, COMM_PLUMB_NAME, COMM_PLUMB_PHONE,
COMM_SVC_AD_NBR, COMM_SVC_AD_NAM, COMM_SVC_AD_TYP, COMM_SVC_AD_LOC,
COMM_SVC_AD_APT, COMM_SVC_AD_TOW, COMM_PROP_ZIP, COMM_CONN_FEE,
COMM_MAIN_FEE, COMM_SYS_DEV_FEE, COMM_SHARED_MAIN, COMM_BHAM_SEW_YN,
COMM_AGREEMENT, COMM_T_AMT, COMM_RES_COMM, COMM_APPROVED_BY, COMM_APT_UNITS,
FILLER_1})
COMM_MESSAGE = CType(results(1),String)
COMM_TAP_NBR = CType(results(2),String)
Return CType(results(0),String)
End Function
There is also a TAPENTRYAsync, and BeginTAPENTRY functions, should I be
using these?
any suggestions greatly appreciated.
Scott