✒️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.

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 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 0,

<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 (cabecera de una tabla interna que tiene el contenido del registro de la tabla interna que se está procesando). La cantidad de líneas que se especifican en OCCURS (cláusula ABAP que se utiliza para especificar la cantidad de registro en memoria de una tabla interna) no limitan el tamaño de la tabla sino la cantidad de registros que se guardarán en memoria simultáneamente.

NOTA: Por lo general, en el parámetro OCCURS se especifica 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: Existe otra forma para declarar tablas internas sin necesidad de especificar aparte un área de trabajo o cabecera y que se realiza mediante la palabra reservada with header line, por ejemplo se quiere crear una tabla interna ti_vuelos del mismo tipo que la tabla estándar del sistema de vuelos sflight, entonces declararíamos:

DATA: ti_vuelos like standard tabla of sflight with header line.

De esta forma estamos declarando una tabla interna en donde la cabera o área de trabado 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.

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

4) Ordenamiento de una tabla interna

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) Procesamiento de una tabla interna

Para recorrer una tabla interna y procesar registro a registro utilizaremos la sentencia LOOP-ENDLOOP (palabra reservada del sistema que se utiliza para la representación de bucles).

* 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 (variable del sistema que devuelve un código de retorno luego de la ejecución de una sentencia ABAP. Si la sentencia de ejecuto correctamente el código de retorno será 0) será distinto de cero.

AUDIO: Existe otra forma de declarar una estructura o á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 con la adición OCCURS 0, si deseamos crear una estructura con el mismo formato de está tabla interna, podemos declarar:

DATA: wa_proveedores LIKE LINE OF ti_provedores.

De esta forma estamos creando una estructura cuyo formato es idéntico 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 (sentencia ABAP que se utiliza para leer un registro de una tabla interna).

* 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 (clausula ABAP que es utilizada en muchas sentencias para especificar un registro en particular dentro de una tabla interna). Tal como lo vemos en el siguiente ejemplo.

* Leo el primer registro de la tabla

READ TABLE ti_proveedores INTO wa_proveedores INDEX 1.

NOTA: El agregado de la Cláusula BINARY SEARCH en la sentencia READ TABLE hace que la búsqueda sea ampliamente más eficiente.

Para más información sobre la sentencia presionar F1

7) Modificación de una tabla interna

Para modificar el contenido de un registro de una tabla interna utilizamos la sentencia MODIFY (sentencia ABAP que se utiliza para modificar datos, tablas internas o tablas de bases de datos en SAP). En el siguiente ejemplo modificamos el campo DNI correspondiente al primer registro de la tabla interna.

* Modifico el primer registro de la tabla

wa_proveedores-dni = '24987500'.

MODIFY ti_proveedores FROM wa_proveedores INDEX 1.

NOTA: 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 (sentencia en ABAP que se utiliza para insertar registros en una tabla interna o en una tabla de base de datos SAP). En el siguiente ejemplo insertamos un registro en la posición 2.

* Inserto un registro en la segunda posicion 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 (sentencia en ABAP que se utiliza para borrar registros en tablas internas o tablas de bases de datos SAP). 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 utilizamos la sentencia REFRESH (sentencia ABAP que se utiliza para inicializar el contenido de una tabla interna). En el siguiente ejemplo inicializamos la tabla interna TI_PROVEEDORES.

* Inicializo la tabla interna

REFRESH ti_proveedores.

Para saber cuántos registros tiene una tabla interna utilizamos la sentencia DESCRIBE TABLE (sentencia ABAP que se utiliza para obtener la cantidad de registros que tiene una tabla interna en un programa). 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.· CLEAR <área de trabajo o cabera>: Inicializar el área de trabajo o cabecera.

· FREE <tabla interna>· REFRESH <tabla interna>: Borrara el contenido de la tabla interna y no el contenido en si.