Per Button klick ein symbol in den Button einfügen

Code: Alles auswählen.

*&---------------------------------------------------------------------*
*& Report  Z_ZZSTATUSICON_PUSHBUTTON
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  Z_ZZSTATUSICON_PUSHBUTTON.

*Das hier vorgestellte Programm zeigt Möglichkeiten auf, Druckknöpfe zur
*einfachen Zustandsanzeige zu verwenden.

INCLUDE <ICON>.

*** Selektionsbild mit drei Status-Drucktasten
SELECTION-SCREEN PUSHBUTTON /1(8) PUSH01 USER-COMMAND P01.
SELECTION-SCREEN PUSHBUTTON /1(8) PUSH02 USER-COMMAND P02.
SELECTION-SCREEN PUSHBUTTON /1(8) PUSH03 USER-COMMAND P03.

INITIALIZATION.
*** Drucktasten Vorbelegen
  PERFORM SWITCH USING PUSH01.
  PERFORM SWITCH USING PUSH02.
  PERFORM SWITCH USING PUSH03.

AT SELECTION-SCREEN.
*** Drucktasten auswerten
  CHECK SY-UCOMM(1) = 'P'.
  CASE SY-UCOMM.
    WHEN 'P01'.
*** Drucktaste 1
      PERFORM SWITCH USING PUSH01.
    WHEN 'P02'.
*** Drucktaste 2
      PERFORM SWITCH USING PUSH02.
    WHEN 'P03'.
*** Drucktaste 3
      PERFORM SWITCH USING PUSH03.
  ENDCASE.

*---------------------------------------------------------------------*
*       FORM SWITCH                                                   *
*---------------------------------------------------------------------*
* Umschalten des Status: Ja - Nein - Egal
*---------------------------------------------------------------------*
FORM SWITCH USING PUSH TYPE ANY.

  DATA LPUSH(4).
  LPUSH = PUSH.
  CASE LPUSH.
    WHEN ICON_LED_GREEN.
*** Status GRÜN -> ROT
      PUSH = ICON_LED_RED.
      CONCATENATE PUSH 'Nein' INTO PUSH.
    WHEN ICON_LED_RED OR SPACE.
*** Status ROT -> GELB
      PUSH = ICON_LED_YELLOW.
      CONCATENATE PUSH 'Egal' INTO PUSH.
    WHEN ICON_LED_YELLOW.
*** Status GELB -> GRÜN
      PUSH = ICON_LED_GREEN.
      CONCATENATE PUSH 'Ja' INTO PUSH.
  ENDCASE.

ENDFORM.