✒️ABAP / Las tablas internas Por Diamela Serignese

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.

Usamos tablas internas cuando queremos guardar una colección de registros de datos de la misma estructura en memoria, sin necesidad de acceder continuamente a la base de datos y así podemos realizar diversas operaciones con este conjunto de información.

Se usan para:

-Almacenar temporalmente los datos de las bases de datos para un procesamiento futuro.

-Estructurar y formara datos que se mostrarán como salida del programa.

-Formatear datos para que se usen por otros servicios.

Declaración de una tabla interna

Se declara con la siguiente sintaxis:

DATA: BEGIN OF <tabla> OCCURS <n>,

<Def.Campo>,

END OF <tabla>.

Así se define una tabla interna con n líneas en memoria más una línea de cabecera o área de trabajo. La cantidad de líneas que se especifican en OCCURS no limitan el tamaño de la tabla sino la cantidad de registros que se guardarán en memoria simultáneamente.

En el parámetro OCCURS suele especificarse la cantidad 0 lo que permite trabajar con tablas de gran cantidad de registros.

Ejemplo: declaramos la tabla interna TI_PROVEEDORES.

*Tabla interna de proveedores

DATA: BEGIN OF ti_proveedores OCCURS 0,

nombre (30) TYPE c,

apellido (30) TYPE c,

dni (8) TYPE c,

END OF ti_proveedores.

Otra manera de declarar la misma tabla:

*Tabla interna de proveedores

DATA: BEGIN OF wa_proveedores,

nombre (30) TYPE c,

apellido (30) TYPE c,

dni (8) TYPE c,

END OF wa_proveedores.

DATA: ti_proveedores LIKE STANDARD TABLE OF wa_proveedores.

Existe otra forma para declarar tablas internas sin tener que especificar aparte un área de trabajo o cabecera y que se realiza mediante la palabra reservada WITH HEADER LINE. Por ejemplo, para crear una tabla interna ti_vuelos del mismo tipo que la tabla estándar del sistema de vuelos que es la tabla sflight entonces declararíamos:

DATA: ti_vuelos LIKE STANDARD TABLE OF sflight WITH HEADER LINE

De esta forma estamos declarando una tabla tabla interna en donde en la cabecera o área de trabajo de la tabla es la misma tabla interna.

Llenado de una tabla interna

Para llenar una tabla interna usamos las siguientes opciones:

-APPEND TO: añadimos un registro a una tabla interna en la ultima posicion con los valores que tengamos en el area de trabajo.

Ejemplo:

*Añado un registro a la tabla interna de proveedores

CLEAR wa_proveedores.

wa_proveedores-nombre = 'Ernesto'.

wa_proveedores-apellido = 'Villanueva'.

wa_proveedores-dni = '24678546'.

APPEND wa_proveedores TO ti_proveedores.

*Añado otro registro a la tabla interna de proveedores

CLEAR wa_proveedores.

wa_proveedores-nombre = 'Ariel'.

wa_proveedores-apellido = 'Gallardo'.

wa_proveedores-dni = '25987508'.

APPEND wa_proveedores TO ti_proveedores.

-Llenamos la tabla interna con el contenido de una base de datos, Esto se hace con la sentencia SELECT.

Ordenamiento de una tabla interna

Para ordenar una tabla interna usamos la sentencia SORT. Ejemplo:

*Ordeno proveedores de mayor a menor por dni

SORT ti_proveedores BY dni DESCENDING.

En este ejemplo ordenamos la tabla TI_PROVEEDORES de forma descendente por DNI y esto invertirá el orden en el que fueron cargados originalmente los registros. Para ordenar de menor a mayor hay que usar la cláusula ASCENDING.

Procesamiento de una tabla interna

Para recorrer una tabla interna y procesar registro a registro usamos la sentencia LOOP-ENDLOOP. Ejemplo:

*Recorro los registros donde el nombre no es blanco

LOOP AT ti_proveedores INTO wa_proveedores

WHERE NOT nombre IS INITIAL.

ENDLOOP.

Si no existe ningún registro que cumpla la condición especificada en la cláusula WHERE, el SY-SUBRC será distinto de cero.

Existe otra forma de declarar una estructura o área de trabajo de una tabla interna y se realiza usando la adición LIKE LINE OF.

Si tomamos como ejemplo la tabla interna ti_proveedores con la adición OCCURS 0, si deseamos crear una estructura con el mismo formato de esta tabla interna podemos declarar:

DATA: wa_proveedores LIKE LINE OF ti_proveedores

De esta forma estamos creando una estructura cuyo formato es identico a un registro cualquiera de tabla interna ti_proveedores.

Lectura de una tabla interna

Para leer un registro de una tabla interna sin necesidad de recorrerla usamos la sentencia READ TABLE. Ejemplo:

*Leo los datos de un registro particular

READ TABLE ti_proveedores INTO wa_proveedores

WITH KEY nombre = 'Ariel'.

Si se encuentra el registro buscado, el SY-SUBRC será cero, caso contrario, será distinto de cero. Si deseamos leer los datos que se encuentran en una posicion particular de una tabla se usará la cláusula INDEX. Ejemplo:

*Leo el primer registro de la tabla

READ TABLE ti_proveedores INTO wa_proveedores INDEX 1.

El agregado de la clausula BINARY SEARCH en la sentencia READ TABLE hace que la búsqueda sea ampliamente mas eficiente.

Modificando una tabla interna

Para modificar el contenido de un registro de una tabla interna usamos la sentencia MODIFY. Ejemplo: modificamos el campo DNI del primer registro de la tabla interna:

*Modifico el primer registro de la tabla

wa_proveedores-dni = '24876099'.

MODIFY ti_proveedores FROM wa_proveedores INDEX 1.

Si intentamos modificar un registro de una tabla interna y el mismo no existe, el SY-SUBRC será distinto de cero.

Para insertar un registro en una posición determinada de una tabla interna usamos la sentencia INSERT. Ejemplo: insertamos un registro en la posición 2:

*Inserto un registro en la segunda posicion de una tabla

wa_proveedores-nombre = 'Marcelo'.

wa_proveedores-apellido ='Rivarola'.

wa_proveedores-dni ='20857492'.

INSERT wa_proveedores INTO ti_proveedores INDEX2.

Para borrar el contenido de una tabla interna usamos la sentencia DELETE. Ejemplo: Borramos el registro de la tabla interna de proveedores con DNI igual a 20857492:

*Borro un registro de la tabla

DELETE ti_proveedores

WHERE dni = '20857492'.

Para borrar todo el contenido de una tabla interna usamos la sentencia REFRESH. Ejemplo:

*Inicializo la tabla interna

REFRESH ti_proveedores.

Para saber cuantos registros tiene una tabla interna usamos la sentencia DESCRIBE TABLE. Ejemplo: Declaramos V_LINEAS que es la variable que va a contener la cantidad de filas de la tabla interna TI_PROVEEDORES luego de ejecutar la sentencia DESCRIBE TABLE.

*Averiguo la cantidad de entradas de una tabla

DATA: v_lineas TYPE i.

DESCRIBE TABLE ti_proveedores LINES v_lineas.

Para inicializar el área de trabajo o cabecera de la tabla interna usamos la sentencia CLEAR seguida del área de trabajo o cabecera.

Para liberar el espacio ocupado por una tabla interna en memoria usamos la sentencia FREE seguida del nombre de la tabla interna.

La sentencia REFRESH borrará el contenido de la tabla interna y no la tabla en sí.