'________________________________________________________________________________
'
' Copyright Gemalto, unpublished work, created 2007. This computer program
' includes Confidential, Proprietary Information and is a Trade Secret of
' Gemalto. All use, disclosure, and/or reproduction is prohibited unless
' authorised in writing by an officer of Gemalto. All Rights Reserved.
'________________________________________________________________________________
'
' MODULE TITLE    : STUB_SAMPLESERVICE
'
' DOMAIN          : MyCompany.Server
'
'________________________________________________________________________________
'
' DESCRIPTION     : Stub automatically generated by converter
'               
'
' DEPENDENCIES    : None
'                   
'________________________________________________________________________________
'

Class STUB_COMMON_SAMPLESERVICE

	Dim oMarshaller As BAS_COMMON_MARSHALLER

	Public Sub New(ByVal p_sServicePort As String)
		oMarshaller = New BAS_COMMON_MARSHALLER(p_sServicePort, "SampleService", "00E38E8F", "CF6A")
	End Sub
	Public Sub ChangeServicePort(ByVal p_sServicePort As String)
		oMarshaller.ChangeServicePort(p_sServicePort)
	End Sub
	Public Function GetNamespaceHivecode()As Integer
		Return &H00E38E8F
	End Function
	Public Function GetHivecodeType()As Short
		Return &HCF6A
	End Function

	Public Function SampleMethod(ByVal input As String) As String
		return CType(oMarshaller.invoke("SampleMethod", 1, "6279", MARSHALLER_TYPE_IN_STRING, input, MARSHALLER_TYPE_RET_STRING),String)
	End Function


End Class


' This STUB has been automatically generated by the converter !
' it can be used in EVA workspace directly
