PeMertens
New Member
Hi folks,
currently I am investigating how to connect public web services in order to be prepared for a customer project.
Therfore, I adopted several code samples found in this forum and in oehive.org and (quick-and-dirty) tried a code like this:
<<<<<<<<<<<<<<<
RUN AccessWebService
(INPUT "",
INPUT "-WSDL 'http://www.thomas-bayer.com/axis2/services/CSV2XMLService?wsdl'",
INPUT "",
INPUT "",
OUTPUT oXML).
PROCEDURE AccessWebService.
DEFINE VARIABLE hWebService AS HANDLE NO-UNDO.
DEFINE VARIABLE hServiceType AS HANDLE NO-UNDO.
DEFINE INPUT PARAMETER ipXml AS longchar NO-UNDO.
DEFINE INPUT PARAMETER ipWsdl AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER ipServiceName AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER ipServiceCall AS CHARACTER NO-UNDO.
DEFINE OUTPUT PARAMETER opXml AS longchar NO-UNDO.
CREATE SERVER hWebService.
hWebService:CONNECT(ipWsdl) NO-ERROR.
IF NOT hWebService:CONNECTED() THEN DO:
DEFINE VARIABLE errmsg AS CHARACTER NO-UNDO INIT "SERVER NOT CONNECTED~n".
DEFINE VARIABLE i AS INTEGER NO-UNDO.
DO i = 1 TO ERROR-STATUS:NUM-MESSAGES:
errmsg = errmsg + ERROR-STATUS:GET-MESSAGE(i) + '~n'.
END.
MESSAGE errmsg VIEW-AS ALERT-BOX ERROR.
STOP.
END.
ELSE DO:
MESSAGE 'connected' VIEW-AS ALERT-BOX.
hWebService
ISCONNECT().
END.
DELETE OBJECT hWebService.
END PROCEDURE.
>>>>>>>>>>>>>>
When running this the first time, the following error message appears:
SERVER NOT CONNECTED
Error initializing SOAP Processor: File open error: C:/programme/progress/dlc01/properties/prosoapclient.xml) (11733)
Where can I find this component?
Subsequent trials end up in error message 11442 (which is logical but should be mentioned to complete the picture.
My environment is:
Win2000 Server
OE 10.1B
The web service mentioned above is a public one.
The server I am working on runs several versions of Progress simultaneously such as 8, 9 and 10 in different DLC-environments (it´s a development server).
Thank you very much.
Peter
My research in the knowledgebase and other places
currently I am investigating how to connect public web services in order to be prepared for a customer project.
Therfore, I adopted several code samples found in this forum and in oehive.org and (quick-and-dirty) tried a code like this:
<<<<<<<<<<<<<<<
RUN AccessWebService
(INPUT "",
INPUT "-WSDL 'http://www.thomas-bayer.com/axis2/services/CSV2XMLService?wsdl'",
INPUT "",
INPUT "",
OUTPUT oXML).
PROCEDURE AccessWebService.
DEFINE VARIABLE hWebService AS HANDLE NO-UNDO.
DEFINE VARIABLE hServiceType AS HANDLE NO-UNDO.
DEFINE INPUT PARAMETER ipXml AS longchar NO-UNDO.
DEFINE INPUT PARAMETER ipWsdl AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER ipServiceName AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER ipServiceCall AS CHARACTER NO-UNDO.
DEFINE OUTPUT PARAMETER opXml AS longchar NO-UNDO.
CREATE SERVER hWebService.
hWebService:CONNECT(ipWsdl) NO-ERROR.
IF NOT hWebService:CONNECTED() THEN DO:
DEFINE VARIABLE errmsg AS CHARACTER NO-UNDO INIT "SERVER NOT CONNECTED~n".
DEFINE VARIABLE i AS INTEGER NO-UNDO.
DO i = 1 TO ERROR-STATUS:NUM-MESSAGES:
errmsg = errmsg + ERROR-STATUS:GET-MESSAGE(i) + '~n'.
END.
MESSAGE errmsg VIEW-AS ALERT-BOX ERROR.
STOP.
END.
ELSE DO:
MESSAGE 'connected' VIEW-AS ALERT-BOX.
hWebService

END.
DELETE OBJECT hWebService.
END PROCEDURE.
>>>>>>>>>>>>>>
When running this the first time, the following error message appears:
SERVER NOT CONNECTED
Error initializing SOAP Processor: File open error: C:/programme/progress/dlc01/properties/prosoapclient.xml) (11733)

Subsequent trials end up in error message 11442 (which is logical but should be mentioned to complete the picture.
My environment is:
Win2000 Server
OE 10.1B
The web service mentioned above is a public one.
The server I am working on runs several versions of Progress simultaneously such as 8, 9 and 10 in different DLC-environments (it´s a development server).
Thank you very much.
Peter
My research in the knowledgebase and other places