*&---------------------------------------------------------------------*
*& Report  Z_AUFGABE16 (Mehrfachselektion)                             *
*&---------------------------------------------------------------------*

REPORT  z_aufgabe16                   .

DATA: wa_scarr TYPE scarr,
      wa_spfli TYPE spfli .


SELECT-OPTIONS s_carrid FOR wa_spfli-carrid.

START-OF-SELECTION.

* Lesen der Fluggesellschaften entsprechend der Selektion
  SELECT * FROM   scarr  INTO   wa_scarr
             WHERE  carrid IN s_carrid.

    IF sy-subrc = 0 .
      WRITE: / 'Fluggesellschaft:',
               wa_scarr-carrid, wa_scarr-carrname .
      WRITE: /2 'von', 23 'nach' .
      ULINE /(40) .
    ELSE .
      WRITE / 'Fehler beim Lesen der DB!' .
    ENDIF .

*   Lesen der Flugverbindungen
    SELECT * FROM spfli INTO wa_spfli
               WHERE  carrid = wa_scarr-carrid
               ORDER BY cityfrom .

      IF sy-subrc = 0 .
        WRITE: / wa_spfli-cityfrom, wa_spfli-cityto .
      ELSE .
        WRITE / 'Fehler beim Lesen der DB!' .
      ENDIF .
    ENDSELECT .

    IF sy-subrc <> 0 .
      WRITE / 'Keine Daten gefunden!' .
    ENDIF .

    ULINE /(40) .
    SKIP .

  ENDSELECT.