domingo, 30 de septiembre de 2012

Mensajes de error varios en una pantalla


data:
e_log        TYPE bapiret2,
t_log        TYPE bapiret2tab,

  CLEAR e_log.
  e_log-type    = 'S'.
  e_log-id      = 'ZZZZZ'.
  e_log-number  = 437.
  APPEND e_log TO t_log.

  CALL FUNCTION 'SUSR_DISPLAY_LOG'
    EXPORTING
      display_in_popup = abap_true
      log_title        = text-002
    TABLES
      it_log_bapiret2  = t_log[]
    EXCEPTIONS
      parameter_error  = 1
      OTHERS           = 2.

  IF NOT sy-subrc IS INITIAL.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.