REPORT  ZZ_##INTERACTIVE3.

*==============================================================
* Globale Deklarationen
*==============================================================

DATA tabspfli LIKE STANDARD TABLE OF spfli.
DATA tabzeilespfli LIKE spfli.

DATA tabsbook LIKE STANDARD TABLE OF sbook.
DATA tabzeilesbook LIKE sbook.

*==============================================================
* Hauptprogramm
*==============================================================

START-OF-SELECTION.

  SELECT * FROM spfli INTO TABLE tabspfli.

  LOOP AT tabspfli INTO tabzeilespfli.

    WRITE: / tabzeilespfli-carrid, tabzeilespfli-connid,
      tabzeilespfli-cityfrom, tabzeilespfli-cityto.

  ENDLOOP.

*==============================================================
* Ereignis: Doppelclick auf Zeile
*==============================================================

AT LINE-SELECTION.

  DATA zeilennummer TYPE i.
  DATA anzahlbuchungen TYPE i.

  IF ( sy-lsind = 1 ).  " Listenstufe

    zeilennummer = sy-lilli - 2.

    READ TABLE tabspfli INDEX zeilennummer INTO tabzeilespfli.

    SELECT * FROM sbook
      INTO TABLE tabsbook
      WHERE carrid = tabzeilespfli-carrid AND
            connid = tabzeilespfli-connid.

    LOOP AT tabsbook INTO tabzeilesbook.

      WRITE: / tabzeilesbook-carrid, tabzeilesbook-connid,
               tabzeilesbook-fldate, tabzeilesbook-passname.

    ENDLOOP.

    DESCRIBE TABLE tabsbook LINES anzahlbuchungen.
    SKIP.
    WRITE: 'Anzahl der Buchungen der ausgewählten Verbindung: ',
           anzahlbuchungen.

  ENDIF.