DATA:
      summe_plaetze Type i,
      anzahl_fluege Type i,
      durchschnitt(6) TYPE p DECIMALS 1,
      sc TYPE scarr,
      sp TYPE spfli,
      sf TYPE sflight.

START-OF-SELECTION.


select * from sflight into sf.
  anzahl_fluege = anzahl_fluege + 1.
  summe_plaetze = summe_plaetze + sf-SEATSOCC.
  ENDSELECT.
   durchschnitt = summe_plaetze / anzahl_fluege.
  write : / 'Anzahl der Flüge:',anzahl_fluege.
  write : / 'Summe der Plätze:',summe_plaetze.
  write : / 'Durchschnitt der belegten Plätze:',durchschnitt.