✒️ABAP Las tablas internas
ABAP Las tablas internas
Tema 3.1
TABLAS INTERNAS
Una Tabla Interna, es un objeto de datos que permite guardar en memoria grandes cantidades de registros de datos con la misma estructura. La cantidad de registros máxima está relacionada con los límites especificados en la instalación del sistema
Uso de tablas internas:
è Para almacenar temporalmente los datos de las bases de datos para un procesamiento futuro.
è Para estructurar y formatear datos que se mostrarán como salida del programa.
è Para formatear datos para ser utilizados por otros servicios
OCCURS: Cláusula ABAP que se utiliza para especificar la cantidad de registros en memoria de una tabla interna. Generalmente se especifica la cantidad 0 lo que permite trabajar con tablas de gran cantidad de registros.
WITH HEADER LINE: Existe otra forma para declarar tablas internas sin tener que especificar aparte un área de trabajo o cabecera y que se realiza con esta palabra reservada.
Queremos crear una tabla interna ti_vuelos del mismo tipo que la tabla standar Sflight
Ejemplo:
DATA: ti_vuelos LIKE STANDAR TABLE OF sflight WITH HEADER LINE
Para el llenado de una tabla interna se utiliza:
APPEND TO : se añade un registro a la tabla interna en la última posición con los valores que tengamos en el área de trabajo.
AREA DE TRABAJO (Working Area) se refiere a la cabecera de una tabla interna que tiene el contenido del registro de la tabla interna que se está procesando.
NOTA: Es recomendable declarar un tipo de datos utilizando TYPES, luego declarar un área de trabajo donde se utilice ese TYPE y por último la tabla interna utilizará esa área de trabajo para su declaración. No se recomienda más utilizar la palabra reservada WITH HEADER LINE para la declaración de una tabla interna que incluya su cabecera.
SELECT: Sentencia que utilizamos para llenar la tabla interna con el contenido de una base de datos.
Ordenamiento de una tabla interna
SORT: Sentencia utilizada para ordenar una tabla interna
ASCENDING: Para ordenar de menor a mayor.
DESCENDING: Para ordenar de mayor a menor.
Procesamiento de una tabla interna
LOOP-ENDLOOP: Sentencia utilizada para recorrer una tabla interna y procesarla registro a registro.
Si no existe ningún registro que cumpla la condición especificada en la cláusula WHERE, el SY-SUBRC será distinto de cero. <> 0
LIKE LINE OF: es otra forma de declarar una estructura o área de trabajo de una tabla interna.
Ejemplo: DATA: wa_proveedores LIKE LINE OF ti_proveedores
Estamos creando una estructura cuyo formato es idéntico a un registro cualquiera de la tabla interna ti_proveedores
Lectura de una tabla interna
READ TABLE: Sentencia que se utiliza para leer un registro concreto de una tabla interna sin necesidad de recorrerla. Si se encuentra el registro buscado, el SY-SUBRC será cero, caso contrario, será distinto de cero.
INDEX: Cláusula utilizada para leer los datos que se encuentran en una posición particular de la tabla
BINARY SEARCH Cláusula que agregándola en la sentencia READ TABLE hace que la búsqueda sea ampliamente más eficiente.
La adición BINARY SEARCH lo que hace es realizar una búsqueda binaria, no realiza una búsqueda secuencial, que consiste en leer secuencialmente cada uno de los registros de la tabla, empezando por el primero, luego por el segundo, luego por el tercero y así hasta completar la lectura de toda la tabla, lo cual es sumamente lento y costoso.
En la búsqueda binaria se parte el espacio a buscar en dos y se pregunta si está en la mitad de arriba o en la mitad de abajo, si está en la mitad de arriba entonces se desecha la mitad de abajo y se vuelve a partir en dos la mitad de arriba y así hasta llegar a leer el registro deseado.
NOTA: Es indispensable que la tabla interna se encuentre ordenada por el campo o campos por los que se desea buscar sino la búsqueda binaria no funcionara y arrojará cualquier resultado. Puede realizarse por cualquier campo de la tabla
Modificando una tabla interna
MODIFY: Sentencia que sirve para modificar el contenido de un registro de una tabla interna
INSERT: Sentencia utilizada para insertar un registro en una posición determinada de una tabla interna.
DELETE: Sentencia utilizada para borrar el contenido de un registro de una tabla interna.
REFRESH: Sentencia para borrar todo el contenido de una tabla interna.
DESCRIBE TABLE: Sentencia que se utiliza para saber cuántos registros tiene una tabla interna.
CLEAR seguida del área de trabajo o cabecera: Para inicializar el área de trabajo o cabecera de la tabla interna.
FREE nombre de la tabla interna: Para liberar el espacio utilizado de la tabla interna en memoria.
REFRESH borra el contenido de la tabla interna, y no la tabla en sí
--------------------------------------------------------------------------------------------------------------------------------
SPAN {
font-family: "Courier New";
color: #000000;
background: #FFFFFF;
}
.L0S31 {
font-style: italic;
color: #808080;
}
.L0S32 {
color: #3399FF;
}
.L0S33 {
color: #4DA619;
}
.L0S52 {
color: #0000FF;
}
.L0S55 {
color: #800080;
}
.L0S70 {
color: #808080;
}
REPORT ZABAP_TABLA_INTERNA_CM72B.
DATA: BEGIN OF ti_pasajeros OCCURS 0,
pasaporte(10) TYPE c,
nombre_ape(30) TYPE c,
fecha_nac(10) TYPE c,
END OF ti_pasajeros.
* Estructura de pasajeros
DATA: wa_pasajeros LIKE LINE OF ti_pasajeros.
*---------------------------------------------------------------------*
START-OF-SELECTION.
*---------------------------------------------------------------------*
* Añado tres registro a la tabla interna de pasajeros
CLEAR wa_pasajeros.
wa_pasajeros-pasaporte = '12345678Z'.
wa_pasajeros-nombre_ape = 'ALICIA LOPEZ'.
wa_pasajeros-fecha_nac = '18.08.1982'.
APPEND wa_pasajeros TO ti_pasajeros.
CLEAR wa_pasajeros.
wa_pasajeros-pasaporte = '87654321Z'.
wa_pasajeros-nombre_ape = 'MARIA GARCIA'.
wa_pasajeros-fecha_nac = '11.12.1979'.
APPEND wa_pasajeros TO ti_pasajeros.
CLEAR wa_pasajeros.
wa_pasajeros-pasaporte = '99999999Z'.
wa_pasajeros-nombre_ape = 'MANUAL TORRES'.
wa_pasajeros-fecha_nac = '18.10.1970'.
APPEND wa_pasajeros TO ti_pasajeros.
* Escribo la cabecera
write:/ 'Pasaporte', 20 'Nombre y Apellido',60 'Fecha de Nacimiento'.
* Recorro los registros donde el nombre no es blanco
LOOP AT ti_pasajeros INTO wa_pasajeros
WHERE NOT pasaporte IS INITIAL.
write:/ wa_pasajeros-pasaporte, 20 wa_pasajeros-nombre_ape, 60 wa_pasajeros-fecha_nac.
ENDLOOP.
 
 
 
Agradecimiento:
Ha agradecido este aporte: Patricia Lopez Cuevas
Sobre el autor
Publicación académica de Elisa Munoz Robles, en su ámbito de estudios para la Carrera Consultor ABAP.
Elisa Munoz Robles
Profesión: Analista Orgánico - España - Legajo: CM72B
✒️Autor de: 68 Publicaciones Académicas
🎓Egresado del módulo:
Presentación:
Perfil: analista orgánico
Certificación Académica de Elisa Munoz