Calling a web service in ABAP that validates an email id

In this tutorial, we would use a free web service in an ABAP program  which validates an email-id. For more details regarding this web service, click here

Create a program and use the following code:

REPORT zvalidate_email.

PARAMETERS: p_mail(100) LOWER CASE.                 " E-Mail id to be verified

DATA: http_client TYPE REF TO if_http_client .

DATA: w_string TYPE string ,

      w_result TYPE string ,

      r_str    TYPE string .

DATA: result_tab TYPE TABLE OF string.

START-OF-SELECTION .

  CLEAR w_string .

  CONCATENATE

  'http://www.webservicex.net/ValidateEmail.asmx/IsValidEmail?Email=' p_mail

 INTO

  w_string .

  CALL METHOD cl_http_client=>create_by_url

    EXPORTING

      url                = w_string

    IMPORTING

      client             = http_client

    EXCEPTIONS

      argument_not_found = 1

      plugin_not_active  = 2

      internal_error     = 3

      OTHERS             = 4.

 

CALL METHOD http_client->send

    EXCEPTIONS

      http_communication_failure = 1

      http_invalid_state         = 2.

  CALL METHOD http_client->receive

    EXCEPTIONS

      http_communication_failure = 1

      http_invalid_state         = 2

      http_processing_failed     = 3.

  CLEAR w_result .

  w_result = http_client->response->get_cdata( ).

  REFRESH result_tab .

  SPLIT w_result AT cl_abap_char_utilities=>cr_lf INTO TABLE result_tab .

  READ TABLE result_tab INTO r_str INDEX 2.

  IF r_str+44(1) = 't'.

    WRITE:/ 'Valid email address'.

  ELSE.

    WRITE:/ 'Invalid email address'.

  ENDIF.

Output: