RE: [U2] Web Services

[Symeon Breen]

It is very easy to write an asp.net web service that connects to unidata
using uniobjects.net - hey i have even included some code below for you to
look at 


Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports IBMU2.UODOTNET

' Example web service by Symeon Breen, a2c limited, Lancashire, UK
' Please change the namespace if it is to be used or copied.

<WebService(Description:="example web service using uniobjects.net",
name:="WebService", Namespace:="http://tempuri.org/";)> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
Public Class WebService
    Inherits System.Web.Services.WebService



    <WebMethod(Description:="Example method")> _
    Public Function example1(ByVal host As String, ByVal account As String,
ByVal connection As String, ByVal login As String, ByVal password As String,
ByVal param As String) As String

        ' example 1 takes in parameters of :-
        ' host - u2 host ip or name
        ' account - account path or name
        ' connection - connection type e.g udcs for unidata
        ' login - username to login as
        ' password - password for username
        ' These parameters are passed in as an example, for security you may
wish to hard code or parameterise these at the webserver in the web.config
as connection strings. Then the data passed into the webservice would be for
its function not connection.

        ' This webservice will connect to u2 on host and account and run the
databasic program WSexample passing in param. WSexample will pass back some
text that this web service then passes back to the client as a string.
Ideally a class should be defined with public properties exposed as XML and
this method would return the class hence a full xml doc can be produced.

        ' NB bin directory should contain the uniobjects.net dll
(UODOTNET.dll)


        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, login, password,
account, connection)

            Try
                u2Sub = u2Session.CreateUniSubroutine("WSexample", 2)
                u2Sub.SetArg(0, param)

                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

End Class





Easy ??   I thinks so ....




-----Original Message-----
From: owner-u2-us...@listserver.u2ug.org
[mailto:owner-u2-us...@listserver.u2ug.org] On Behalf Of
iggch...@comcast.net
Sent: 12 March 2009 19:32
To: u2-Users
Subject: [U2] Web Services

Hi all,



UV10.2.7

HPUX 11.23



Does anyone know if it is possible to use IBM WebSphere Development Studio
Client Tool to develop web services for Universe?B  I've been trying to use
the Web Services Developer but cannot seem to create all of the necessary
nesting levels required by the client application .B  I am now searching for
alternatives.



Thanks much for any info you can provide,



Scott Thompson
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/