Selektionsfelder per Listbox Thema ist als GELÖST markiert

Code: Alles auswählen.

SELECT-OPTIONS: so_matnr FOR <vbap_fields>-matnr.
PARAMETERS: p_faelle TYPE c LENGTH 10 AS LISTBOX VISIBLE LENGTH 20.
INITIALIZATION.
p_faelle = 'ersterfall'.





**********Bedingung für Auswählbare Fälle*********
IF p_faelle = 'ersterfall'.
  WRITE: / 'Alle Fälle werden angezeigt'.
  PERFORM startzeit.
  PERFORM fall1.
  PERFORM endzeit.
  PERFORM ausgabe.
  PERFORM startzeit.
  PERFORM fall2.
  PERFORM endzeit.
  PERFORM ausgabe.
  PERFORM startzeit.
  PERFORM fall3.
  PERFORM endzeit.
  PERFORM ausgabe.
  PERFORM startzeit.
  PERFORM fall4.
  PERFORM endzeit.
  PERFORM ausgabe.
ENDIF.

Code: Alles auswählen.

REPORT  ztest01.

DATA: gt_kna1 TYPE TABLE OF kna1.

PARAMETERS: p_ktokd TYPE kna1-ktokd AS LISTBOX VISIBLE LENGTH 20.

INITIALIZATION.
  PERFORM set_values_p_ktokd.

START-OF-SELECTION.
* ...
  SELECT * FROM kna1 INTO TABLE gt_kna1
           WHERE ktokd = p_ktokd.
* ...
END-OF-SELECTION.

*&---------------------------------------------------------------------*
*&      Form  set_values_p_ktokd
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM set_values_p_ktokd.
  DATA: lt_values TYPE vrm_values,
        ls_values LIKE LINE OF lt_values.

  ls_values-key  = 'XX01'.
  ls_values-text = 'Meine Kontengruppe 1'.
  APPEND ls_values TO lt_values.

  ls_values-key  = 'XX02'.
  ls_values-text = 'Meine Kontengruppe 2'.
  APPEND ls_values TO lt_values.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = 'P_KTOKD'
      values = lt_values.

ENDFORM.                    "set_values_p_ktokd