✒️ABAP / Las tablas internas Por Alexander Garcia

Las tablas internas

1. ¿Qué son las tablas internas?

Las tablas internas son un objeto de dato que permite guardar en memoria grandes cantidades de registros de datos con la misma estructura, puede almacenar entre 0 a n registros de datos. En otros lenguajes de programación se conoce como array, vector, lista, colección, etc.

Una tabla interna puede almacenar entre 0 a N registros de datos.

Una tabla interna existe unicamente en memoria en tiempo de ejecucion es decir mientras se esta ejecutando un programa ABAP.

Usos típicos de una tabla interna:

Para almacenar temporalmente los datos de las tablas 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?

Existen varias maneras para declara una tabla interna en un programa ABAP. Para poder trabajar con una tabla interna vamos a necesitar contar con una estructura, también llamada área de trabajo o cabecera de la tabla interna, esto nos permite:

Leer el contenido de un registro de la tabla interna.

Recorrer cada registro de la tabla interna.

Agregar registros a una tabla interna.

Modificar el contenido de un registro de la tabla interna.

Básicamente, para todo lo que queramos hacer con una tabla interna vamos a necesitar contar con una estructura del mismo tipo.

Nota: Una estructura o área de trabajo o cabecera de una tabla interna solo puede almacenar 1 registro de datos.

Nota: Siempre que declaramos una tabla interna el nombre de la misma empieza con ti_ donde ti significa tabla interna. Siempre que declaramos una estructura o área de trabajo el nombre de la misma comienza con wa_ donde wa significa area de trabajo.

Para mostrar como declarar una tabla interna utilizaremos la idea de declarar una tabla interna de proveedores cuyo nombre sera TI_PROVEEDORES con tres campos que son los siguientes:

DNI de tipo carácter de 8 posiciones.

NOMBRE de tipo carácter de 30 posiciones.

APELLIDO de tipo carácter de 30 posiciones.

Formas de declarar una tabla interna:

1. La forma más fácil es utilizando TYPES, en donde primero declaramos un tipo de datos que será TY_PROVEEDORES, luego declaramos la tabla interna, TI_PROVEEDORES de ese mismo tipo de datos utilizando la sentencia TYPE STANDARD TABLE OF. Por último, declaramos la estructura o área de trabajo WA_PROVEEDORES que nos va a permitir trabajar con la tabla interna y para ello utilizamos la sentencia LIKE LINE OF.

Ejemplo del código ABAP:

*Declaramos el TYPES

TYPES: BEGIN OF ty_proveedores,

dni(8) TYPE c,

nombre (30) TYPE c,

apellido (30) TYPE c,

END OF ty_proveedores.

*Declaramos la tabla interna y la estructura

DATA: ti_proveedores TYPE STANDARD TABLE OF ty_proveedores,

wa_proveedores LIKE LINE OF ti_proveedores.

2. Otra forma para declarar la tabla interna TI_PROVEEDORES es utilizando la sentencia OCCURS 0 y para declarar la estructura o área de trabajo WA_PROVEEDORES utilizamos la sentencia LIKE LINE OF tal como hicimos anteriormente.

Ejemplo del código:

*Declaramos la tabla interna

DATA: BEGIN OF ti_proveedores OCCURS O,

dni(8) TYPE c,

nombre(30) TYPE c,

apellido(30) TYPE c,

END OF ti_proveedores.

*Declaramos estructura

DATA: wa_proveedores LIKE LINE OF ti_proveedores.

De esta manera definimos 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 interna, sino la cantidad de registros que se guardarán en memoria simultáneamente. Por lo general, en el parámetro OCCURS se especifica la cantidad 0 que permite trabajar con tablas internas de gran cantidad de registros.

3. Otra forma de declarar una tabla interna es en declarar primero la estructura WA_PROVEEDORES y luego declarar la tabla interna TI_PROVEEDORES.

Ejemplo del código:

*Declaramos la estructura

DATA: BEGIN OF wa_proveedores,

dni(8) TYPE c,

nombre(30) TYPE c,

apellido(30) TYPE c,

END OF wa_proveedores.

*Declaramos la tabla interna

DATA: ti_proveedores LIKE STANDARD TABLE OF wa_proveedores.

4. Otra forma de declarar la tabla interna TI_PROVEEDORES consiste en declarar el mismo tipo que una tabla base de datos existente en el diccionario de datos ABAP.

Ejemplo de código:

*Declaramos la tabla interna y la estructura

DATA: ti_proveedores LIKE TABLE OF lfa1,

wa_proveedores LIKE LINE OF ti_proveedores.

En este caso, la tabla interna TI_PROVEEDORES tendrá la misma estructura que la tabla base de datos LFA1 del sistema SAP que es el Maestro de proveedores.

Por último, existe una forma de declarar la estructura o área de trabajo o cabecera de una tabla interna usando la misma tabla interna como cabecera. Para ello utilizamos la sentencia WITH HEADER LINE tal como vemos a continuación:

* Declaramos la tabla interna junto con su cabecera o área de trabajo

DATA: ti_proveedores LIKE TABLE OF lfal1 WITH HEADER LINE.

3. ¿Cómo llenar el contenido de una tabla interna?

Podemos agregar registros a una tabla realizando un SELECT a una tabla base de datos de SAP y almacenar en la tabla interna el resultado de la selección. Otra forma de insertar datos es mediante la sentencia INSERT. También hay la manera de añadir registro a registro en la tabla interna y para ello vamos a utilizar la sentencia APPEND TO.

Ejemplo de código:

START-OF-SELECTION.

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

CLEAR wa_proveedores.

wa_proveedores-dni = '24987564'.

wa_proveedores-nombre = 'Ernesto'.

wa_proveedores-apellido = 'Villanueva'.

APPEND wa_proveedores TO ti_proveedores.

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

CLEAR wa_proveedores.

wa_proveedores-dni = '25986584'.

wa_proveedores-nombre = 'Ariel'.

wa_proveedores-apellido = 'Gallardo'.

APPEND wa_proveedores TO ti_proveedores.

En este ejemplo hemos generado en la tabla interna TI_PROVEEDORES dos registros de datos.

En el modo debugging podemos ver el contenido de la tabla interna. Dentro de la columna Val. de valores visualizamos Standard Table que hace referencia al tipo de tabla interna y por ejemplo 2x3(68) significa que la tabla interna almacena 2 registros y cada uno tiene 3 campos, un total de 68 caracteres.

4. El ordenamiento de una tabla interna

Para ordenador una tabla interna utilizamos la sentencia SORT, tenemos dos opciones disponibles para ordenar, ascendente o descendente.

Para ordenar la tabla interna TI_PROVEEDORES por el campo DNI de forma ascendente vamos a ejecutar lo siguiente:

*Ordenamos los proveedores de menor a mayor por DNI

SORT ti_proveedores BY dni ASCENDING.

Para ordenador la tabla interna TI_PROVEEDORES por el campo DNI de forma descendiente vamos a ejecutar lo siguiente:

*Ordenamos los proveedores de mayor a menor por DNI

SORT ti_proveedores BY dni DESCENDING.

5. ¿Cómo recorrer una tabla interna?

Para recorrer una tabla interna y procesar registro a registro su contenido utilizamos la sentencia LOOP-ENDLOOP. Para recorrer la tabla interna TI_PROVEEDORES vamos a necesitar contar con la estructura o área de trabajo WA_PROVEEDORES.

Ejemplo de código:

*Recorremos la tabla interna

LOOP AT ti_proveedores INTO wa_proveedores.

WRITE:/ wa_proveedores-dni,

wa_proveedores-nombre,

wa_proveedores-apellido.

ENDLOOP.

Se puede restringir los datos que vamos a recorrer si cumplen una condición utilizando la sentencia WHERE.

Ejemplo de código:

LOOP AT ti_proveedores INTO wa_proveedores WHERE NOT nombre IS INITIAL.

WRITE:/ wa_proveedores-dni,

wa_proveedores-nombre,

wa_proveedores-apellido.

ENDLOOP.

Si no cumple la condición especificada en la adición WHERE el SY-SUBRC será distinto de cero. Por último, a la derecha del WHERE podemos especificar más de una condición y para ello vamos a concatenar las condiciones con AND o con OR según necesitemos.

Ejemplo de código:

LOOP AT ti_proveedores INTO wa_proveedores WHERE NOT nombre IS INITIAL

AND dni NE '25986584'.

WRITE:/ wa_proveedores-dni,

wa_proveedores-nombre,

wa_proveedores-apellido.

ENDLOOP.

6. La lectura de una tabla interna

Para leer un registro en particular de una tabla interna se utiliza la sentencia READ TABLE.

Ejemplo de código:

*Lectura de la tabla interna

READ TABLE ti_proveedores INTO wa_proveedores WITH KEY nombre = ''Ariel.

IF sy-subrc EQ 0.

ELSE.

ENDIF.

Si se encuentra el registro buscado entonces el SY-SUBRC será cero, caso contrario, será distinto de cero.

READ TEABLE lee de forma secuencial uno a uno los registros de la tabla interna hasta encontrar el registro que cumpla con la condición. Para optimizar esto existe lo que se conoce como Búsqueda Binaria.

La Búsqueda Binaria es un algoritmo de búsqueda que encuentra la posición de un valor en una tabla interna ordenada, dividiendo el espacio de búsqueda en dos y comparando el valor buscado con el elemento en el medio de la tabla interna, si no son iguales, la mitad en la cual el valor no está es eliminada y la búsqueda continua en la mitad restante, utilizando el mismo procedimiento hasta que se encuentre el valor buscado. Esta forma de búsqueda es ampliamente más eficiente que la forma secuencial.

Para utilizar dicha busqueda en ABAP primero debemos ordenador la tabla interna por el campo que deseamos buscar utilizando la sentencia SORT y luego vamos a realizar la lectura utilizando la cláusula BINARY SEARCH tal como muestra el código a continuación:

SORT ti_proveedores ASCENDING BY nombre.

READ TABLE ti_proveedores INTO wa_proveedores WITH KEY nombre = 'Ariel'

BINARY SEARCH.

IF sy-subrc EQ 0.

ELSE.

ENDIF.

Por último, si deseamos leer los datos que se encuentran en una posición particular de la tabla interna utilizaremos la cláusula INDEX tal como vemos en el siguiente ejemplo:

*Leemos el quinto registro de la tabla interna

READ TABLE ti_proveedores INTO wa_proveedores INDEX 5.

IF sy-subrc EQ 0.

ELSE.

ENDIF.

7. Modificando una tabla interna

Para modificar un registro de una tabla interna utilizamos la sentencia MODIFY.

Ejemplo de código:

MODIFY ti_proveedores FROM wa_proveedores INDEX 1.

IF sy-subrc EQ 0.

ELSE.

ENDIF.

Si intentamois modificar un re gistro de una tabla interna y el mismo no existe entonces el SY-SUBRC será distinto de cero.

Se puede insertar un registro en una posición determinada de una tabla interna utilizando la sentencia INSERT. En el siguiente ejemplo se insertará datos en la posición 2 de la tabla interna TI_PROVEEDORES.

Ejemplo de código:

*Insertamos un registro en la segunda posición de la tabla interna

wa_proveedores-nombre = 'Marcelo'.

wa_proveedores-apellido = 'Rivarola'.

wa_proveedores-dni = '20857492'.

INSERT wa_proveedores INTO ti_proveedores INDEX 2.

IF sy-subrc EQ 0.

ELSE.

ENDIF.

Para borrar el contenido de un registro de una tabla se utiliza la sentencia DELETE. En el siguiente ejemplo borramos todos los registros de una tabla interna que cumplen con la condición DNI igual a 20857492.

Ejemplo de código:

*Borramos un registro de la tabla interna

DELETE ti_proveedores WHERE dni = '20857492'.

IF sy-subrc EQ 0.

ELSE.

ENDIF.

Para borrar todo el contenido de una tabla interna se utiliza la sentencia REFRESH. En el siguiente ejemplo se borra el contenido de toda la tabla interna.

Ejemplo de código:

*Inicializamos o borramos el contenido de una tabla interna

REFRESH ti_proveedores.

Por último, si se desea saber cuantos registros tiene una tabla interna utilizaremos la sentencia DESCRIBE TABLE. Para ello vamos a necesitar declarar la variable V_LINEAS de tipo I, que contendrá la cantidad de registros de la tabla interna TI_PROVEEDORES luego de ejecutar la s entencia DESCRIBE TABLE, tal como vemos en el siguiente ejemplo:

Ejemplo de código:

*Averiguamos la cantidad de registros de la tabla interna

DATA: v_lineas TYPE i.

DESCRIBE TABLE ti_proveedores LINES v_lineas.

IF v_lineas > 0.

ENDIF.

Agradecimiento:

Ha agradecido este aporte: Alvaro Ardila Sandoval