Lineselection

DATA:
  count TYPE i VALUE 0,
  sc    TYPE scustom,
  sb    TYPE sbook,
  sr    TYPE scarr,
  sp    TYPE spfli.

TOP-OF-PAGE.
  ULINE (140).
  WRITE: / '|', (10)'Kunden ID', '|', (15)'Kunde', '|', (14)'Strasse', '|', (12)'Postleitzahl', '|', (14)'Ort',
           '|', (12)'Buchungs-Nr.', '|', (16)'Fluggeselschaft', '|', (10)'FLugnummer', '|', (9)'Flugdatum', '|'.
  ULINE /(140).

START-OF-SELECTION.
  SELECT * FROM  scustom INTO sc.
    SELECT * FROM sbook INTO sb
             WHERE customid = sc-id.
      WRITE: / '|', (10)sc-id, '|', (15)sc-name, '|', (14)sc-street, '|', (12)sc-postcode, '|', (14)sc-city,
               '|', (12)sb-bookid, '|', (16)sb-carrid, '|', (10)sb-connid, '|', (9)sb-fldate, '|'.
      HIDE: sb-carrid, sb-connid.
    ENDSELECT.
    IF sy-dbcnt > 0.
      count = count + 1.
    ENDIF.

  ENDSELECT.

  ULINE /(140).
  WRITE: / '|', 'Anzahl der Kunden: ', count, (104)' ', '|'.
  ULINE /(140).

END-OF-SELECTION.

TOP-OF-PAGE DURING LINE-SELECTION.
  WRITE:  'Flugdetails:'.
  ULINE /.

AT LINE-SELECTION.
  IF sy-lsind = 1.
    SELECT * FROM spfli INTO sp
             WHERE carrid = sb-carrid AND
                   connid = sb-connid.
      SELECT * FROM scarr INTO sr
               WHERE carrid = sb-carrid.
        WRITE: /'Fluggesellschaft:', sr-carrname,
               /'Abflugort:', sp-cityfrom,
               /'Zielort:', sp-cityto.
      ENDSELECT.
    ENDSELECT.
  ENDIF.