Report ZZ_##_INTERACTIVE2

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.