*&---------------------------------------------------------------------*
*& Report  ZRAP05_EXERCICIO11
*&
*&---------------------------------------------------------------------*
*&
*& CREATED BY: Dalcy Fabrício
*&---------------------------------------------------------------------*

REPORT  ZRAP05_EXERCICIO11 NO STANDARD PAGE HEADING.

TABLES: spfli.

DATA ti_spfli TYPE STANDARD TABLE OF spfli.

SELECT-OPTIONS s_carrid FOR spfli-carrid.


START-OF-SELECTION.
  PERFORM f_select_spfli.
  PERFORM f_print.





*&---------------------------------------------------------------------*
*&      Form  f_select_spfli
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form f_select_spfli .
  SELECT * FROM spfli INTO TABLE ti_spfli WHERE carrid IN s_carrid.
endform.                    " f_select_spfli


*&---------------------------------------------------------------------*
*&      Form  f_print
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*


form f_print .
  DATA lwa_spfli TYPE spfli.                                            " work area local da tabela spfli

  PERFORM f_header.

  LOOP AT ti_spfli INTO lwa_spfli.
    WRITE: / lwa_spfli-carrid,
             lwa_spfli-connid,
             lwa_spfli-countryfr,
             lwa_spfli-airpfrom,
             lwa_spfli-countryto.
  ENDLOOP.
endform.                    " f_print


*&---------------------------------------------------------------------*
*&      Form  f_header
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form f_header .
  WRITE: / 'carrid',
           'connid',
           'countryfr',
           'airpfrom',
           'countryto'.
endform.                    " f_header