RUN portTypeName SET hPortType ON SERVER hWebService .
|
DEFINE VARIABLE hServer AS HANDLE.
DEFINE VARIABLE hPortType AS HANDLE. CREATE SERVER hServer. lReturn = hServer:CONNECT("-WSDL http://wstraining.progress.com/wsa/wsa1/ wsdl?targetURI=urn:OpenEdgeServices:NewCoService -Service NewCoServiceService -Port NewCoServiceObj"). RUN NewCoServiceObj SET hPortType IN hServer. |