Hotspot auf eine Ausgabefeld

Code: Alles auswählen.

DATA it_t000 TYPE TABLE OF t000.
DATA wa_t000 TYPE t000.
FIELD-SYMBOLS <fs_t000> TYPE t000.

start-of-selection.
  perform check_hotspot.
end-of-selection.

AT LINE-SELECTION.
  IF wa_t000-mandt IS NOT INITIAL.
    read table it_t000 assigning <fs_t000>
                       with key mandt = wa_t000-mandt.
    if sy-subrc eq 0.
       WRITE : / 'HOT_SPOT gedrückt',
                <fs_t000>-mandt, <fs_t000>-mtext.
    endif.
    clear wa_t000.
  ENDIF.
*&---------------------------------------------------------------------*
*&      Form  check_hotspot
*&---------------------------------------------------------------------*
FORM check_hotspot .

  SELECT * FROM t000
           INTO TABLE it_t000.
  LOOP AT it_t000 INTO wa_t000.
    WRITE : / wa_t000-mandt HOTSPOT, wa_t000-mtext.
    HIDE wa_t000-mandt.
    CLEAR wa_t000.
  ENDLOOP.
ENDFORM.                    " check_hotspot