✒️ABAP Las tablas internas
ABAP Las tablas internas
DICCIONARIO DE DATOS
TABLAS INTERNAS
Si queremos 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.
Es un conjunto 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 específicos 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 mostraran como salida del programa.
¿COMO SE DECLARA UNA TABLA INTERNA?
La sintaxis para su declaración es la siguiente:
DATA: BEGIN OF<tabla>OCCURS<n>,
<def.campo>,
ENDOF<tabla>.
De esta manera definimos una tabla interna con n líneas en memoria más de 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 guardaran en memoria simultáneamente.
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_PROVEDORES.
* 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 seria:
* 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 ESTÁNDAR TABLE OF wa_proveedores.
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. 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 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.
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.
PROCESAMIENTO 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 cumpla la condición especificada en la clausula WHERE, el SY-SUBRC será distinto de cero.
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 utiliza 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.
El agregado de la cláusula BINARY SEARCH en la sentencia READ TABLE hace que la búsqueda sea ampliamente más eficiente.
MODIFICANDO UNA TABLA INTERNA
Para modifica el contenido de un registro de una tabla interna utilizamos la sentencia MODIFY. 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.
Si intentamos modificar un registro de la 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 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. 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. 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. 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 ESCRIBE TABLE.
* Averiguo la cantidad de entradas de una tabla
DATA: v_lineas TYPE I.
DESCRIBE TABLE ti_proveedores LINES v_lineas.
 
 
 
Sobre el autor
Publicación académica de Jean Carlos Lopez Uzcategui, en su ámbito de estudios para la Carrera Consultor ABAP.
Jean Carlos Lopez Uzcategui
Profesión: Sistemas - Venezuela - Legajo: HS82J
✒️Autor de: 53 Publicaciones Académicas
🎓Egresado del módulo:
Disponibilidad Laboral: FullTime
Certificación Académica de Jean Lopez