/* client_ValidateEmail.p */

DEFINE VARIABLE hWebService AS HANDLE NO-UNDO.
DEFINE VARIABLE hXWebEmailValidationInterface AS HANDLE NO-UNDO.

CREATE SERVER hWebService.
hWebService:CONNECT("-WSDL 'http://ws.xwebservices.com/XWebEmailValidation/V2/XWebEmailValidation.wsdl'").

RUN XWebEmailValidationInterface SET hXWebEmailValidationInterface ON hWebService.

DEFINE VARIABLE Email AS CHARACTER NO-UNDO.
DEFINE VARIABLE Status1 AS CHARACTER NO-UNDO.

Email = "rstanciu@operamail.com".

RUN ValidateEmail IN hXWebEmailValidationInterface
  (INPUT Email, OUTPUT Status1).

MESSAGE Status1 VIEW-AS ALERT-BOX.

DELETE PROCEDURE hXWebEmailValidationInterface.
hWebService:DISCONNECT().
DELETE OBJECT hWebService.