✒️ABAP Las tablas internas

Lección 1

Tablas Internas

1 | ¿Qué son las Tablas Internas?

Si queremos guardar una colección de registros de datos de la misma estructura en memoria, sin necesidad de acceder continuamente a las bases de datos y poder realizar diversas operaciones con este conjunto de información, entonces utilizaremos tablas internas.

NUEVO CONCEPTO: 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.

El uso típico que se le da a una tabla interna es:

• 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.

2 | ¿Cómo se declara una Tabla Interna?

La sintaxis para su declaración es la siguiente:

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

<Def.Campo>,

...

END OF <tabla>.

De esta manera definiremos 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.

SABIAS QUE... Por lo general, en el parámetro OCCURS se especifíca la cantidad 0 lo que permite trabajar con tablas de gran cantidad de registros.

En el próximo 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 forma de declarar la misma tabla sería:

* 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.

AUDIO TIPS 1: Existe otra forma que podemos utilizar para declarar tablas internar sin tener que especificar aparte un área de trabajo o cabecera y que se realiza mediante la palabra reservada WITH HEADER LINE. Por ejemplo, supongamos que queremos crear una tabla interna ti_vuelos del mismo tipo que la tabla estándar del sistema de vuelos que es la tabla SFLIGTH. Entonces declarariamos:

DATA: ti_vuelos LIKE STANDARD TABLE OF SFLIGTH WITH HEADER LINE. De esta forma estamos declarando una tabla interna en donde la cabecera o área de trabajo de la tabla es la misma tabla interna.

3 | Llenado de una tabla interna

Para llenar con datos una tabla interna utilizamos:

- 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. Veamos un 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 = '24987564'.

APPEND wa_proveedores TO ti_proveedores.

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

CLEAR wa_proveedores.

wa_proveedores-nombre = 'Ariel'.

wa_proveedores-apellido = 'Gallardo'.

wa_proveedores-dni = '25986584'.

APPEND wa_proveedores TO ti_proveedores.

Llenamos la tabla interna con el contenido de una base de datos. Esto lo haremos con la sentencia SELECT.

4 | Ordenamiento de una tabla

Para ordenar una tabla interna utilizamos la sentencia SORT.

* Ordeno los proveedores de mayor a menor por dni

SORT ti_proveedores BY dni DESCENDING.

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

5 | Proceasamiento de una tabla interna

Para recorrer una tabla interna y procesar registro a registro utilizaremos la sentencia LOOP-ENDLOOP.

* 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 cumple la condición especificada en la cláusula WHERE, el SY-SUBRC será distinto de cero.

AUDIO TIPS 2: Existe otra forma de declarar una estructura o un área de trabajo de una tabla interna y se realiza utilizando la adición LIKE LINE OF. Tomemos por ejemplo la tabla interna ti_proveedores que declaramos al comienzo de la lección 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 la tabla interna ti_proveedores.

6 | Lectura de una tabla interna

Para leer un registro concreto de una tabla interna sin necesidad de recorrerla utilizamos la sentencia READ TABLE.

* 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 se desea leer los datos que se encuentran en una posición particular de la tabla se utilizará la cláusula INDEX tal como vemos en el siguiente ejemplo.

* Leo el primer registro de la tabla

READ TABLE ti_proveedores INTO wa_proveedores INDEX 1.

IMPORTANTE: El agregado de la cláusula BINARY SEARCH en la sentencia READ TABLE hace que la búsqueda sea ampliamente más eficiente. Para mayor información sobre la sentencia presionar F1.

7 | Modificando una tabla interna

Para modificar el contenido de un registro de una tabla interna utilizamos la sentencia MODIFI. En el siguiente ejemplo modificamos el campo DNI correspondiente al primer registro de una tabla interna.

* Modifico el primer registro de la tabla

wa_proveedores-dni = '24987500'

MODIFY ti_proveedores FROM wa_proveedores INDEX 1.

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

Para insertar un registro en una posición determinada de una tabla interna utilizamos la sentencia INSERT. En el siguiente ejemplo insertamos un registro en la posición 2.

* Inserto un registro en la segunda posición de la tabla

wa_proveedores-nombre = 'Marcelo'.

wa_proveedores-apellido = 'Rivarola'.

wa_proveedores-dni = '20857492'.

INSERT wa_proveedores INTO ti_proveedores INDEX 2.

Para borrar el contenido de un registro de una tabla interna utilizamos la sentencia DELETE. En el siguiente 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 utilizaremos la sentencia REFRESH. En el siguiente ejemplo inicializamos la tabla interna TI_PROVEEDORES.

* Inicializamos la tabla Interna

REFRESH ti_proveedores.

Para saber cuantos registros tiene una tabla interna utilizamos la sentencia DESCRIBE TABLE. En el siguiente 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.

AUDIO TIPS 3: Veamos otras instrucciones de manejo de tablas internas que podemos utilizar:

• Para inicializar el área de trabajo o cabecera de la tabla interna utilizaremos la sentencia CLEAR seguida del área de trabajo o cabecera.
• Para liberar el espacio ocupado por una tabla interna en memoria utilizarermos la sentencia FREE seguida del nombre de la tabla interna.
• Y vale la pena destacar que la sentencia REFRESH borrará el contenido de la tabla interna y no la tabla en si.