*&---------------------------------------------------------------------*
*& Report  ZTABLE_CONTROLS
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ztable_controls.


INCLUDE ztable_controls_status_0100o01. " include PBO
INCLUDE ztable_controls_user_commani01. " include PAI

CONTROLS: tc_vuelos TYPE TABLEVIEW USING SCREEN 100.

DATA: gt_vuelos TYPE STANDARD TABLE OF spfli.

TABLES spfli.

PARAMETERS p_carrid TYPE s_carr_id.

START-OF-SELECTION.

  SELECT * FROM spfli
     INTO TABLE gt_vuelos
     WHERE carrid EQ p_carrid.

  IF sy-subrc EQ 0.
    CALL SCREEN 100.
  ENDIF.