E-Mail-Adresse auf syntaktische Korrektheit prüfen

Prüfung einer Email auf syntaktische Korrektheit aus SAP in ABAP:


function check_email_syntax.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"  IMPORTING
*"     REFERENCE(IV_EMAIL_ADR) TYPE  AD_SMTPADR
*"  EXPORTING
*"     REFERENCE(EV_VALID) TYPE  XFELD
*"----------------------------------------------------------------------

  data lv_offset type i.
  data lv_length type i.

  ev_valid = 'X'.

* Checks if the eMail address is syntactically correct
  find first occurrence of regex '\w+([-+.]\w+)*@(\w+[-+.])*\w+\w+[-+.]\w+\w+'
    in iv_email_adr match offset lv_offset match length lv_length.

  if not ( sy-subrc = 0 and
    lv_offset = 0 and lv_length = strlen( iv_email_adr ) ).
    clear ev_valid.
  endif.

endfunction.



Anmerkung: Die regex ist in ABAP nicht ganz korrekt, da das "w" nicht nur Buchstaben, sondern auch gewisse Sonderzeichen "durchlässt". Hier muss eine Anpassung vorgenommen werden, z.B. :xdigit statt w.

Eigene F4-Hilfen auf Selektions-Screens

...
PARAMETER p_matnr type matnr.

...
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_matnr.
  PERFORM matnr_f4.
...
 
FORM matnr_f4.

* Aktuelle Dynpro-Inhalte auslesen
  lv_dyname = sy-cprog.
  lv_dynumb = sy-dynnr.
  CALL FUNCTION 'DYNP_VALUES_READ'
       EXPORTING
            dyname             = lv_dyname
            dynumb             = lv_dynumb
            translate_to_upper = 'X'
       TABLES
            dynpfields         = lt_user_sel_fields
       EXCEPTIONS
            OTHERS.
...
* F4-Hilfe im Popup darstellen
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'NAME'
      window_title    = 'Eigene F4-Hilfe'
      value_org       = 'S'
    TABLES
      value_tab       = lt_value_tab
      field_tab       = lt_field_tab
      return_tab      = lt_return_tab
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.

  IF sy-subrc <> 0.
    EXIT.
  ENDIF.

* Ausgewählten Wert ermitteln und Feld befüllen
  READ TABLE lt_return_tab INDEX 1.
  IF sy-subrc = 0.
    p_matnr = lt_return_tab-fieldval.
  ENDIF.


ENDFORM.