Consulta con programacion

[Jonathan.sochan]

Este es el programa:

REPORT Y_PRUEBA_2011_03_02.

*-----------------------------------------------------------------------
* DECLARACIÓN DE TABLAS
*-----------------------------------------------------------------------


tables: KNA1, T005T.

*-----------------------------------------------------------------------
* DECLARACIÓN DE ESTRUCTURAS
*-----------------------------------------------------------------------
* Estructura para mostrar los datos de salida por ALV
data: begin of gt_data OCCURS 0,
KUNNR like KNA1-KUNNR, "Cliente
LAND1 like KNA1-LAND1, "Pais
NAME1 like KNA1-NAME1, "Nombre
KUKLA like KNA1-KUKLA, "Clase de Cliente
LANDX like T005T-LANDX, " Descripcion Pais
end of gt_data.


DATA: P_LAND1 LIKE KNA1-LAND1.
*-----------------------------------------------------------------------
* DECLARACIÓN DE TYPE-POOLS
*-----------------------------------------------------------------------
type-pools: icon, slis, kkblo.


*-----------------------------------------------------------------------
* PARAMETROS DE SELECCIÓN
*-----------------------------------------------------------------------
selection-screen begin of block 1 with frame title text-001.

select-options:
p_KUNNR for KNA1-KUNNR.

parameters:
p_SPRAS like T005T-SPRAS obligatory default 'ES'.

selection-screen end of block 1.


*-----------------------------------------------------------------------
* START OF SELECTION
*-----------------------------------------------------------------------
start-of-selection.

select KUNNR LAND1 NAME1 KUKLA INTO TABLE gt_data
from KNA1
where KUNNR in p_KUNNR.

P_LAND1 = gt_data-LAND1.

SELECT LANDX INTO TABLE gt_data
from T005T
where LAND1 EQ p_LAND1
and SPRAS eq p_SPRAS.

* Muestro el ALV
perform ejecutar_alv tables gt_data.

Lo del perform esta bien xq ya lo use y aprendi bastante sobre eso en otros, ademas q debaguando veo como se me borra la tabla gt_data.