*&---------------------------------------------------------------------*
*& Report  ZGL160C6
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT  ZGL160C6.

TABLES scarr.
*creare de tip
TYPES: BEGIN OF ty_t1,
  carrid type scarr-carrid,
  carrname type scarr-carrname,
  url type scarr-url,
  connid TYPE spfli-connid,
  cityfrom type spfli-cityfrom,
  cityto type spfli-cityto,
  price type sflight-price,
  planetype type sflight-planetype,
  end of ty_t1.



data: gs_scarr TYPE ty_t1,
      gs_spfli type spfli,
      gs_sflight type sflight.




*data: gt_scarr TYPE TABLE OF scarr.
*tabela interna are alea 3 campuri de mai sus(begin of)
data: gt_scarr TYPE TABLE OF ty_t1,
      gt_scarr1 type TABLE OF scarr.
PARAMETERS p_carrid type scarr-carrid.
*gt_scarr1 tabela interna penteru ins particulara

SELECT-OPTIONS s_carrid for scarr-carrid.
select *
  into CORRESPONDING FIELDS OF TABLE gt_scarr1
  from scarr
  where carrid in s_carrid.





*SELECT carrid carrname url
*  into  TABLE gt_scarr
*  from scarr
*  where carrid in s_carrid.

*cel mai performant select ca si timp de executie
*  corect asa!
*SELECT *
*  into CORRESPONDING FIELDS OF TABLE gt_scarr
*  from scarr
*  where carrid in s_carrid.

*operatie de join
*SELECT scarr~carrid scarr~carrname scarr~url
*  spfli~connid spfli~cityfrom spfli~cityto
*  sflight~price sflight~planetype
*  into CORRESPONDING FIELDS OF TABLE gt_scarr
*  from scarr join spfli
*  on scarr~carrid = spfli~carrid
*  join sflight
*  on sflight~carrid = spfli~carrid
*  and sflight~connid = spfli~connid
*  where scarr~carrid in s_carrid.

*atribuire de alias
*SELECT a~carrid a~carrname a~url
*  b~connid b~cityfrom b~cityto
*  c~price c~planetype
*  into CORRESPONDING FIELDS OF TABLE gt_scarr
*  from scarr as a join spfli as b
*  on a~carrid = b~carrid
*  join sflight as c
*  on c~carrid = b~carrid
*  and c~connid = b~connid
*  where a~carrid in s_carrid.


*instructiune particulara care face altfel join
IF gt_scarr1[] is not initial .

SELECT
  b~carrid
  b~connid b~cityfrom b~cityto
  c~price c~planetype
  into CORRESPONDING FIELDS OF TABLE gt_scarr
  from spfli as b
  join sflight as c
  on c~carrid = b~carrid
  and c~connid = b~connid
  FOR ALL ENTRIES in gt_scarr1
  where b~carrid = gt_scarr1-carrid.
 ENDIF.



* functioneaza si asa
*SELECT *
*  into  TABLE gt_scarr
*  from scarr
*  where carrid in s_carrid.

* merge si asa doar ca afisarea nu este eficienta
*  SELECT *
*  into  TABLE gt_scarr
*  from scarr
*  where carrid in s_carrid.

*afisare continut tabela, parcurgere tabela
LOOP  AT gt_scarr into gs_scarr.
  WRITE: / gs_scarr-carrid, gs_scarr-carrname, gs_scarr-url(30),
  gs_scarr-connid,
  gs_scarr-cityfrom,
  gs_scarr-cityto,
  gs_scarr-price,
  gs_scarr-planetype.
  ENDLOOP.



*SELECT   carrid carrname url
*  INTO CORRESPONDING FIELDS OF  gs_scarr
*  FROM scarr
*  UP TO 5 ROWS
*  WHERE carrid in s_carrid.
*  WRITE: / gs_scarr-carrid, gs_scarr-carrname, gs_scarr-url(60).
*endselect.




*SELECT carrid carrname url
*  INTO CORRESPONDING FIELDS OF  gs_scarr
*  FROM scarr
*  WHERE carrid in s_carrid.
*
*
*
*WRITE: / gs_scarr-carrid, gs_scarr-carrname, gs_scarr-url(60).
*
*  SELECT connid cityfrom cityto
*    INTO CORRESPONDING FIELDS OF gs_spfli
*    FROM spfli
*    WHERE carrid = gs_scarr-carrid.
*
*    WRITE: / gs_spfli-connid, gs_spfli-cityfrom, gs_spfli-cityto.
*
*
*    SELECT price planetype
*      INTO CORRESPONDING FIELDS OF gs_sflight
*      from sflight
*      where carrid = gs_scarr-carrid
*      and connid = gs_spfli-connid.
*
*
*      WRITE: / gs_sflight-price, gs_sflight-planetype.
*      ENDSELECT.
*  ENDSELECT.
*
*ENDSELECT.