I'm getting the error "Unable to load the subroutine on the server" The
subroutine is compiled and cataloged.
Also, I had to comment out the 'UniObjects.UOPooling = True,
'UniObjects.MaxPoolSize = 2, and'UniObjects.MinPoolSize = 1 in order to get a
connection. Could having this commented out be causing the load subroutine
error?
Thank you,
Tom
<WebMethod()> _
Public Function last_chance(ByVal strRSA As String) As String
Dim u2Session As UniSession = Nothing
Dim rtnMessage As String = String.Empty
Dim u2Sub As UniSubroutine
'UniObjects.UOPooling = True
'UniObjects.MaxPoolSize = 2
'UniObjects.MinPoolSize = 1
Try
u2Session = UniObjects.OpenSession("HOST", "USERNAME", "PASSWORD",
"ACCOUNT", "udcs")
Try
u2Sub = u2Session.CreateUniSubroutine("AUTO.RSA.SCAN.CHK", 2)
u2Sub.SetArg(0, strRSA)
u2Sub.Call()
rtnMessage = u2Sub.GetArg(1)
Catch ex As Exception
rtnMessage = "ERROR - In call to sub - " & ex.ToString
Finally
u2Sub = Nothing
UniObjects.CloseSession(u2Session)
End Try
Catch ex As Exception
rtnMessage = "ERROR - " & ex.ToString
Finally
u2Session = Nothing
End Try
Return rtnMessage
End Function
Tom
________________________________
Confidentiality Notice: This message, together with any attachments, is
intended only for the use of the individual or entity to which it is addressed
and may contain confidential or privileged information. If you think you have
received this message in error, please advise the sender and then delete this
message and any attachments immediately.
_______________________________________________
U2-Users mailing list
[email protected]
http://listserver.u2ug.org/mailman/listinfo/u2-users
