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.
