Meldungen anzeigen

Meldungen lassen sich komfortabel und einfach mit drei Funktionsbausteinen anzeigen. Das Beispielprogramm zeigt die Verwendung.

REPORT zzenno26.

DATA:
  l_corr_wanted,
  l_exit_command TYPE bal_s_excm,
  l_posnr TYPE posnr.

START-OF-SELECTION.

  CALL FUNCTION ‚MESSAGES_INITIALIZE‘.

  l_posnr = 1.
  PERFORM add_message USING ‚S‘ ‚030‘ space space space space.
  PERFORM add_message USING ‚W‘ ‚041‘ ‚TZTS1‘ space space space.

  l_posnr = 2.
  PERFORM add_message USING ‚I‘ ‚102‘ ‚TXT‘ ‚X1‘ ‚TAB3‘ space.
  PERFORM add_message USING ‚W‘ ‚042‘ space space space space.
  PERFORM add_message USING ‚S‘ ‚035‘ space space space space.
  PERFORM add_message USING ‚E‘ ‚033‘ space space space space.

  CALL FUNCTION ‚MESSAGES_SHOW‘
       EXPORTING
            corrections_option    = ‚X‘
            corrections_func_text = ‚Bearbeiten‘
            show_linno            = ‚X‘
            show_linno_text_len   = ‚3‘
            i_use_grid            = ‚X‘
            i_amodal_window       = ‚ ‚
       IMPORTING
            corrections_wanted    = l_corr_wanted
            e_exit_command        = l_exit_command
       EXCEPTIONS
            no_messages           = 2
            OTHERS                = 3.

*———————————————————————*
*       FORM add_message                                              *
*———————————————————————*

FORM add_message USING value(msgty)
                       value(msgno)
                       value(msgv1)
                       value(msgv2)
                       value(msgv3)
                       value(msgv4).

  CALL FUNCTION ‚MESSAGE_STORE‘
       EXPORTING
            arbgb  = ‚V0‘
            msgty  = msgty
            msgv1  = msgv1
            msgv2  = msgv2
            msgv3  = msgv3
            msgv4  = msgv4
            txtnr  = msgno
            zeile  = l_posnr
       EXCEPTIONS
            OTHERS = 3.

ENDFORM.

 

Enno Wulff
follow me