Messagehandling (ABAP)

Zweck und Voraussetzungen

Zweck: Nach der Verwendung von Nachrichten einer Nachrichtenklasse per SAP Verwendungsnachweis suchen können.

Voraussetzung: In den Eigenschaften der jeweiligen Klasse muss die Nachrichtenklasse gepflegt sein.

Implementierungsbeispiele

Add-Message-Methode

Dann kann man eine Add-Message-Methode bauen, die etwa so aussieht:

  METHOD add_message_from_sy.

    APPEND VALUE fpmgb_s_t100_message(
      msgid = sy-msgid
      msgno = sy-msgno
      severity = sy-msgty
      parameter_1 = sy-msgv1
      parameter_2 = sy-msgv2
      parameter_3 = sy-msgv3
      parameter_4 = sy-msgv4
      ) TO ct_messages.

  ENDMETHOD.

Aufruf Add-Message-Methode

Der Aufruf findet dabei wie folgt statt. Dabei setzt die MESSAGE-Funktion die sy-msg*-Werte.

        MESSAGE w380 with <f_variables>-var_id-vnam INTO DATA(lv_dummy).
        add_message_from_sy( CHANGING ct_messages = rt_messages ).

Rückgabewerte:

  methods SET_CHAR_TEXTS_EDIT
    returning
      value(RT_MESSAGES) type FPMGB_T_MESSAGES .

Da es sich bei diesem Rückgabewert um einen Returning- und nicht um einen Changing-Parameter handelt, muss an der aufrufenden Stelle das Ergebnis an die Messages-Tabelle mit APPEND angefügt werden:

    APPEND LINES OF me->set_char_texts_edit( ) to rt_messages.

Grundform der Message-Implementierung mit Workarea

          MESSAGE ID 'ZMSGCLASS' TYPE 'E' NUMBER 56 with lv_var1 into data(lv_dummy).
          ls_msg-msgid = 'ZMSGCLASS'.
          ls_msg-msgno = 56.
          ls_msg-severity = 'E'.
          ls_msg-parameter_1 = lv_morxverp.
          APPEND ls_msg TO lt_msg.

Implementierung mit VALUE und BASE

         MESSAGE ID 'ZMSGCLASS' TYPE 'E' NUMBER 56 WITH lv_var1 INTO lv_string.
          me->add_msg( CHANGING ct_msg = et_messages ).
 
          lt_msg = value #( base lt_msg (
                                   msgid = sy-msgid
                                   msgno = sy-msgno
                                   severity = sy-msgty
                                   parameter_1 = sy-msgv1
                                   parameter_2 = sy-msgv2
                                   parameter_3 = sy-msgv3
                                   parameter_4 = sy-msgv4 ) ).

          APPEND value #( msgid = sy-msgid msgno = sy-msgno severity = sy-msgty parameter_1 = sy-msgv1 parameter_2 = sy-msgv2 parameter_3 = sy-msgv3 parameter_4 = sy-msgv4 ) TO lt_msg.