/* 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.