Validación Email

Por : admin 
FORM verificar_email USING p_email.

  DATA: regex   TYPE REF TO cl_abap_regex,
        matcher TYPE REF TO cl_abap_matcher,
        match   TYPE c LENGTH 1.

  CREATE OBJECT regex
    EXPORTING
      pattern     = '\w+(\.\w+)*@(\w+\.)+(\w{2,4})'
      ignore_case = abap_true.

  matcher = regex->create_matcher( text = p_email ).

  IF matcher->match( ) IS INITIAL.
    sy-subrc = -1.
    CLEAR ls_alv-email_ok.
  ELSE.
    sy-subrc = 0.
    ls_alv-email_ok = 'X'.
  ENDIF.

ENDFORM.                    " VERIFICAR_EMAIL