select into local structure / corresponding

 

REPORT ZFLIGHT_REPORT.


DATA ls_flight_report TYPE zst_flight_report.

DATA lv_total_booking TYPE zst_flight_report-paymentsum.
DATA lv_total_occupied TYPE zst_flight_report-seatsocc_b.
DATA lv_total_free TYPE zst_flight_report-seatsocc_b.
DATA lv_max_seats TYPE zst_flight_report-seatsmax_b.

PARAMETERS p_carrid TYPE zst_flight_report-carrid.

PARAMETERS p_connid TYPE zst_flight_report-connid.

*titles
new-line.
write :
'Airline code',
'Flight No',
'Flight date',
'Booking amount',
'Occupied seats',
'Maximum seats'.

SELECT * FROM sflight into CORRESPONDING FIELDS OF ls_flight_report.
    if ls_flight_report-carrid eq p_carrid and ls_flight_report-connid eq p_connid.
      new-line.
      write:
        ls_flight_report-carrid,
        ls_flight_report-connid,
        ls_flight_report-fldate,
        ls_flight_report-paymentsum,
        ls_flight_report-seatsocc_b,
        ls_flight_report-seatsmax_b.
       add ls_flight_report-paymentsum to lv_total_booking.
       add ls_flight_report-seatsocc_b to lv_total_occupied.
       move ls_flight_report-seatsmax to lv_max_seats.
       endif.
  endselect.

  lv_total_free = lv_max_seats - lv_total_occupied.

  new-line.
  write: /, 'Total bookin amount', lv_total_booking,
  /, 'Total max seats', lv_max_seats,
    /, 'Total occ buss', lv_total_occupied,
        /, 'Total free b', lv_total_free.