'________________________________________________________________________________
'
' 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_SERVICE
'
' DOMAIN          : MyCompany.Server
'
'________________________________________________________________________________
'
' DESCRIPTION     : Stub automatically generated by converter
'               
'
' DEPENDENCIES    : None
'                   
'________________________________________________________________________________
'

Class STUB_COMMON_SERVICE

	Dim oMarshaller As BAS_COMMON_MARSHALLER

	Public Sub New(ByVal p_sServicePort As String)
		oMarshaller = New BAS_COMMON_MARSHALLER(p_sServicePort, "Service", "00E38E8F", "BAC2")
	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 &HBAC2
	End Function

	Public Function getC() As String
		return CType(oMarshaller.invoke("getC", 0, "A45D", MARSHALLER_TYPE_RET_STRING),String)
	End Function


	Public Function getW() As Integer()
		return CType(oMarshaller.invoke("getW", 0, "85C2", MARSHALLER_TYPE_RET_S4ARRAY),Integer())
	End Function


	Public Function getQ() As Integer()
		return CType(oMarshaller.invoke("getQ", 0, "3B97", MARSHALLER_TYPE_RET_S4ARRAY),Integer())
	End Function


	Public Function getMAP() As Integer
		return CType(oMarshaller.invoke("getMAP", 0, "349D", MARSHALLER_TYPE_RET_S4),Integer)
	End Function


	Public Function getT_r() As String
		return CType(oMarshaller.invoke("getT_r", 0, "ED4A", MARSHALLER_TYPE_RET_STRING),String)
	End Function


	Public Sub setEraseTokenList(ByVal eraseTokenList As Boolean)
		oMarshaller.invoke("setEraseTokenList", 1, "8454", MARSHALLER_TYPE_IN_BOOL, eraseTokenList, MARSHALLER_TYPE_RET_VOID)
	End Sub


	Public Function getCount() As Integer
		return CType(oMarshaller.invoke("getCount", 0, "974D", MARSHALLER_TYPE_RET_S4),Integer)
	End Function


	Public Sub PutOnCard_token(ByVal token_a As String, ByVal sig_PA As String, ByVal r As String)
		oMarshaller.invoke("PutOnCard_token", 3, "3C92", MARSHALLER_TYPE_IN_STRING, token_a, MARSHALLER_TYPE_IN_STRING, sig_PA, MARSHALLER_TYPE_IN_STRING, r, MARSHALLER_TYPE_RET_VOID)
	End Sub


	Public Sub PutOnCard_param(ByVal c As String, ByVal w As Integer(), ByVal q As Integer(), ByVal mAP As Integer)
		oMarshaller.invoke("PutOnCard_param", 4, "B7AE", MARSHALLER_TYPE_IN_STRING, c, MARSHALLER_TYPE_IN_S4ARRAY, w, MARSHALLER_TYPE_IN_S4ARRAY, q, MARSHALLER_TYPE_IN_S4, mAP, MARSHALLER_TYPE_RET_VOID)
	End Sub


	Public Function GetFromCard_token() As String
		return CType(oMarshaller.invoke("GetFromCard_token", 0, "39A9", MARSHALLER_TYPE_RET_STRING),String)
	End Function


	Public Function GetFromCard_eResponse(ByVal randE As Integer()) As Integer()
		return CType(oMarshaller.invoke("GetFromCard_eResponse", 1, "AE4E", MARSHALLER_TYPE_IN_S4ARRAY, randE, MARSHALLER_TYPE_RET_S4ARRAY),Integer())
	End Function


End Class


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