*----------------------------------------------------------------------*
***INCLUDE ZJUBE_R_ALV_CLASE_SELECCIONF01 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Form  seleccion
*&---------------------------------------------------------------------*
FORM seleccion USING indice.

  DATA: wa_tabla LIKE LINE OF it_tabla.

  READ TABLE it_tabla INDEX indice INTO wa_tabla.

  SELECT * FROM sflight INTO TABLE gt_sflight
      WHERE carrid = wa_tabla-carrid.

ENDFORM.                    " seleccion

*&---------------------------------------------------------------------*
*&      Form  seleccion_arbol
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_NODE_KEY  text
*----------------------------------------------------------------------*
FORM seleccion_arbol USING p_node_key.

  DATA: aux(2) TYPE c.

  aux = p_node_key.

  SELECT * FROM sflight INTO TABLE gt_sflight
        WHERE carrid = aux.

ENDFORM.                    " seleccion_arbol