*&---------------------------------------------------------------------*
*& Report  YXM_127_FM_FLIGHTS
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT YXM_127_FM_FLIGHTS.

PARAMETERS: p_id TYPE s_carr_id.

DATA: itab_date_range TYPE STANDARD TABLE OF BAPISFLDRA,
      wa_date_range TYPE BAPISFLDRA,
      itab_flight_list TYPE STANDARD TABLE OF BAPISFLDAT,
      wa_flight_list TYPE BAPISFLDAT.

wa_date_range-sign = 'I'.
wa_date_range-option = 'BT'.
wa_date_range-low = '20160101'.
wa_date_range-high = '20171014'.

INSERT wa_date_range INTO TABLE itab_date_range.

CALL FUNCTION 'BAPI_FLIGHT_GETLIST'
 EXPORTING
   AIRLINE                = p_id
*   DESTINATION_FROM       =
*   DESTINATION_TO         =
*   MAX_ROWS               =
 TABLES
   DATE_RANGE             = itab_date_range
*   EXTENSION_IN           =
   FLIGHT_LIST            = itab_flight_list
*   EXTENSION_OUT          =
*   RETURN                 =
          .

LOOP AT itab_flight_list INTO wa_flight_list.
  WRITE: wa_flight_list-airline,
         wa_flight_list-connectid,
         wa_flight_list-flightdate.

  DATA wa_avail TYPE BAPISFLAVA.

CALL FUNCTION 'BAPI_FLIGHT_GETDETAIL'
  EXPORTING
    AIRLINEID             = wa_flight_list-airlineid
    CONNECTIONID          = wa_flight_list-connectid
    FLIGHTDATE            = wa_flight_list-flightdate
 IMPORTING
*   FLIGHT_DATA           =
*   ADDITIONAL_INFO       =
   AVAILIBILITY          = wa_avail
* TABLES
*   EXTENSION_IN          =
*   EXTENSION_OUT         =
*   RETURN                =
          .

WRITE: '    De vrije plaatsen in business zijn: ', wa_avail-businfree.
NEW-LINE.

ENDLOOP.