REPORT  ZZ_##_INTERACTIVE2.

DATA auswahl TYPE c.

START-OF-SELECTION.

  WRITE / 'Dies ist die Grundliste:'.
  WRITE / 'Kekse'.
  WRITE / 'Kuchen'.
  WRITE / 'Schokoladentorte'.

AT LINE-SELECTION.

*==============================================================
* Liste der Listenstufe 1
*==============================================================

  IF ( sy-lsind = 1 ).
    WRITE: / 'Ausgewählte Zeile:', sy-lilli.
    WRITE: / 'Inhalt der ausgewählten Zeile:', sy-lisel.
    WRITE  / 'Dies ist die erste Verzweigungsliste'.
    WRITE  / 'Was essen Sie gern?'.
  ENDIF.

*==============================================================
* Liste der Listenstufe 2
*==============================================================

  IF ( sy-lsind = 2 ).
    WRITE AT /1 auswahl AS CHECKBOX.
    WRITE AT 3 'Kekse'.
    WRITE AT /1 auswahl AS CHECKBOX.
    WRITE AT 3 'Kuchen'.
    WRITE AT /1 auswahl AS CHECKBOX.
    WRITE AT 3 'Schokoladentorte'.
  ENDIF.

*==============================================================
* Liste der Listenstufe 3
*==============================================================

  IF ( sy-lsind = 3 ).
    READ LINE 1 FIELD VALUE auswahl.
    IF ( auswahl = 'X' ).
      WRITE: / 'Ich esse gern Kekse.'.
    ENDIF.
    READ LINE 2 FIELD VALUE auswahl.
    IF ( auswahl = 'X' ).
      WRITE: / 'Ich esse gern Kuchen.'.
    ENDIF.
    READ LINE 3 FIELD VALUE auswahl.
    IF ( auswahl = 'X' ).
      WRITE: / 'Ich esse gern Schokoladentorte.'.
    ENDIF.
  ENDIF.