automatische Aktualisierung Dynprobild bei Dropdown-Auswahl

Code: Alles auswählen.

CASE ok_code.
  WHEN 'BACK'.
    ...
  WHEN 'ABBR'.
    ...
ENDCASE.

Code: Alles auswählen.

WHEN 'LIST1'.

Code: Alles auswählen.

REPORT zzenno01 .

DATA:
  h    TYPE d020s,
  f    LIKE d021s OCCURS 0 WITH HEADER LINE,
  e    LIKE d022s OCCURS 0 WITH HEADER LINE,
  m    LIKE d023s OCCURS 0 WITH HEADER LINE,
  res1 LIKE d021s_res1.

TYPE-POOLS vrm.
DATA:
  t_values TYPE vrm_values,
  l_value  TYPE vrm_value.

PARAMETERS:
  p_test AS LISTBOX VISIBLE LENGTH 20,
  p_moto AS CHECKBOX,
  p_bike AS CHECKBOX,
  p_auto AS CHECKBOX.

LOAD-OF-PROGRAM.
*** Dynpro einlesen
  IMPORT DYNPRO h f e m
    ID 'ZZENNO01                                1000'.

*** Funktionscode setzen
  LOOP AT f WHERE fnam = 'P_TEST'.
    res1          = f-res1.
    res1-funccode = 'TEST'.
    f-res1        = res1.
    MODIFY f.
  ENDLOOP.

*** Dynpro generieren
  GENERATE DYNPRO h f e m
    ID 'ZZENNO01                                1000'
    MESSAGE sy-msgv1 LINE sy-msgv2 WORD sy-msgv3.

INITIALIZATION.

*** Werte für Listbox vorbereiten
  l_value-key  = 'M'.
  l_value-text = 'Motorrad'.
  APPEND l_value TO t_values.
  l_value-key  = 'F'.
  l_value-text = 'Fahrrad'.
  APPEND l_value TO t_values.
  l_value-key  =  'A'.
  l_value-text = 'Auto'.
  APPEND l_value TO t_values.

*** Werte für Listbox setzen
  CALL FUNCTION 'VRM_SET_VALUES'
       EXPORTING
            id     = 'P_TEST'
            values = t_values.


AT SELECTION-SCREEN.

  CASE sy-ucomm.
    WHEN 'TEST'.
      CASE p_test.
        WHEN 'M'.
          p_moto = 'X'.
          p_bike = ' '.
          p_auto = ' '.
        WHEN 'F'.
          p_moto = ' '.
          p_bike = 'X'.
          p_auto = ' '.
        WHEN 'A'.
          p_moto = ' '.
          p_bike = ' '.
          p_auto = 'X'.
        WHEN space.
          p_moto = ' '.
          p_bike = ' '.
          p_auto = ' '.
      ENDCASE.
  ENDCASE.