REPORT z03_022.

TABLES : sflight,spfli.

SELECT-OPTIONS : s_carrid FOR sflight-carrid,
                                s_connid FOR sflight-connid,
                                s_fldate FOR sflight-fldate.

PARAMETERS : p_flg AS CHECKBOX.

TYPES : BEGIN OF ty_data,
          carrid     TYPE sflight-carrid,
          connid     TYPE sflight-connid,
          fldate     TYPE sflight-fldate,
          price      TYPE sflight-price,
          currency   TYPE sflight-currency,
          planetype  TYPE sflight-planetype,
          seatsmax   TYPE sflight-seatsmax,
          seatsocc   TYPE sflight-seatsocc,
          paymentsum TYPE sflight-paymentsum,
          countryfr  TYPE spfli-countryfr,
          cityfrom   TYPE spfli-cityfrom,
          airpfrom   TYPE spfli-airpfrom,
          seatleft   TYPE int8,
        END OF ty_data.

DATA : gt_flight TYPE TABLE OF ty_data,
       gs_flight TYPE ty_data.

DATA: alv TYPE REF TO cl_salv_table.

IF p_flg = 'X'.
  SELECT sf~carrid, sf~connid, sf~fldate, sf~price, sf~currency, sf~planetype, sf~seatsmax, sf~seatsocc, sf~paymentsum,
               sp~countryfr, sp~cityfrom, sp~airpfrom, ( sf~seatsmax - sf~seatsocc ) AS seatleft
  FROM sflight AS sf INNER JOIN spfli AS sp
  ON sf~carrid = sp~carrid AND sf~connid = sp~connid
  WHERE sf~carrid IN @s_carrid AND
              sf~connid IN @s_connid AND
              sf~fldate IN @s_fldate AND
    ( sf~seatsmax - sf~seatsocc ) < 50
  INTO CORRESPONDING FIELDS OF TABLE @gt_flight.
ELSE.
  SELECT sf~carrid, sf~connid, sf~fldate, sf~price, sf~currency, sf~planetype, sf~seatsmax, sf~seatsocc, sf~paymentsum,
             sp~countryfr, sp~cityfrom, sp~airpfrom, ( sf~seatsmax - sf~seatsocc ) AS seatleft
FROM sflight AS sf INNER JOIN spfli AS sp
ON sf~carrid = sp~carrid AND sf~connid = sp~connid
WHERE sf~carrid IN @s_carrid AND
            sf~connid IN @s_connid AND
            sf~fldate IN @s_fldate
INTO CORRESPONDING FIELDS OF TABLE @gt_flight.

ENDIF.

TRY.
    cl_salv_table=>factory(
      IMPORTING r_salv_table = alv
      CHANGING t_table = gt_flight ).
    alv->display( ).
  CATCH cx_salv_msg INTO DATA(alv_exc).
    MESSAGE alv_exc TYPE 'I' DISPLAY LIKE 'E'.
ENDTRY.