✒️ABAP / Las tablas internas Por Linda Zambrano León
ABAP Las tablas internas
1 ¿Qué son?
Objeto de datos que permite guardar en memoria grandes cantidades de registros de datos con la misma estructura. La cantidad de registros máximos esta relacionada con los límites especificados en la instalación del sistema SAP. Se utiliza para:
*Almacenar temporalmente los datos de las tablas de bases de datos para un procesamiento futuro.
*Estructurar y formatear datos que se mostrarán como salida del programa.
*Formatear datos para ser utilizados por otros servicios.
2 ¿Cómo se declaran?
Para poder trabajar una tabla interna necesitaremos contar con una estructura también llamada área de trabado o cabecera, la cual nos permitirá leer el contenido, recorrer cada registro, agregar registros y modificar el contenido de un registro. Esta solo puede almacenar un registro de datos.
Tenemos 5 formas para declarar la tabla interna, veamos:
*TYPES:
TYPES: BEGIN OF ty_proveedores,
dni(8) TYPE c,
nombre(30) TYPE c,
END OF ty proveedores.
DATA: ti_proveedores TYPE STANDARD TABLE OF ty_proveedores,
wa_proveedores LIKE LINE OF ti_proveedores.
*OCCURS 0:
DATA: BEGIN OF ti_proveedores OCCURS 0,
dni(8) TYPE c,
nombre(30) TYPE c,
END OF ti_proveedores.
DATA: wa_proveedores LIKE LINE OF ti_proveedores.
*Primero estructura de trabajo y luego tabla interna:
DATA: BEGIN OF wa_proveedores,
dni(8) TYPE c,
nombre(30) TYPE c,
END OFwa_proveedores.
DATA: ti_proveedores LIKE STANDAR TABLE OF wa_proveedores.
*Declarándola del mismo tipo que una base de datos existente en el diccionario de datos ABAP.
DATA: ti_proveedores LIKE TABLE OF LFA1. (LFA1 es una tabla maestro de proveedores)
wa_proveedores LIKE LINE OF ti_proveedores.
*Declarando el área de trabajo usando la misma tabla interna como cabecera:
DATA: ti_proveedores LIKE TABLE OF LFA1 WITH HEADER LINE.
3 ¿Cómo se llena el contenido?
Existen 3 formas:
* SELECT: a una base de datos de SAP y almacenar en la tabla interna el resultado de la selección.
* INSERT: Insertando registros con esta sentencia.
wa_proveedores-dni = '156431'.
wa_proveedores-nombre = 'Ernesto'.
INSERT wa_proveedores INTO ti_proveedores INDEX 2.
* APPEND TO: Se agregan al final de la tabla interna.
START-OF-SELECTION.
CLEAR wa_proveedores.
wa_proveedores-dni = '156431'.
wa_proveedores-nombre = 'Ernesto'.
APPEND wa_proveedores TO ti_proveedores.
Nota: Existen 5 diferentes tipos de tablas internas:
*Any table *Index table. * Standar table. *Sorted table. *Hashed table.
Las que usamos son las standar table.
4 Ordenamiento.
Utilizamos la sentencia SORT, es posible de forma ascendente o descendente. Por defecto es ascendente*
SORT ti_proveedores BY dni ASCENDING.
SORT ti_proveedores BY dni DESCENDING.
5 ¿Cómo recorrerla?
Con la sentencia LOOP-ENDLOOP.
LOOP AT ti_proveedores INTO wa_proveedores.
WRITE:/wa_proveedores-dni,
wa_proveedores-nombre.
ENDLOOP.
Podemos restringir los registros que vamos a recorrer con la sentencia WHERE, así:
LOOP AT ti_proveedores INTO wa_proveedores WHERE NOT nombre IS INITIAL.
WRITE:/wa_proveedores-dni,
wa_proveedores-nombre.
ENDLOOP.
Podemos agregar más condiciones, concatenando operadores lógicos, así:
LOOP AT ti_proveedores INTO wa_proveedores WHERE NOT nombre IS INITIAL AND dni NE '156431'.
WRITE:/wa_proveedores-dni,
wa_proveedores-nombre.
ENDLOOP.
6 Lectura de una tabla interna.
Para leer un registro en particular de una tabla interna sin necesidad de recorrela, utilizaremos la sentencia READ TABLE. Así:
READ TABLE ti_proveedores INTO wa_proveedores WITH KEY nombre = 'Ernesto'.
IF sy-subrc EQ 0.
ELSE.
ENDIF.
Aunque tenga un condicional, leera todos los registros que exista, para optimizar se genera una
BUSQUEDA BINARIA: Es un algoritmo de búsqueda que encuentra la posición de una valor en una tabla interna ordenada. Dividiendo en 2 el espacio de búsqueda. Para implementarla primero debemos ordenar la tabla por el valor que deseamos buscar mediante SORT y posteriormente la lectura mediante BINARY SERCH así:
SORT ti_proveedores ASCENDING BY nombre.
READ TABLE ti_proveedores INTO wa_proveedores WITH KEY nombre = 'Ernesto'.
BINARY SERCH.
IF sy-subrc EQ 0.
ELSE.
ENDIF.
Para leer los datos de una posición en particular usamos la cláusula INDEX, así:
READ TABLE ti_proveedores INTO wa_proveedores INDEX 5.
IF sy-subrc EQ 0.
ELSE.
ENDIF.
7 Modificación.
Utilizamos la sentencia MODIFY
wa_proveedores-dni = '156431'.
wa_proveedores-nombre = 'Ernesto'.
INSERT wa_proveedores INTO ti_proveedores INDEX 2.
IF sy-subrc EQ 0.
ELSE.
ENDIF.
Para borar el contenido de un registro usamos la sentencia DELETE.
DELETE ti_proveedores WHERE dni = '156431'.
IF sy-subrc EQ 0.
ELSE.
ENDIF.
Para borrar todo el contenido de una tabla interna utilizamos REFRESH
REFRESH ti_proveedores.
Si deseamos saber cuantos registros tiene una tabla, utilizamos DESCRIBE TABLE.
DATA: v_lineas TYPE i.
DESCRIBE TABLE ti_proveedores LINES v_lineas.
IF v_lineas > 0.
ENDIF.
Otras sentencias que utilizaremos en las tablas internas:
*CLEAR: Para inicializar el área de trabajo o cabeceras.
CLEAR wa_proveedores
*FREE: Libera el espacio de trabajo ocupado por una tabla interna en memoria.
FREE ti_proveedores.
Escanear / Compartir
Sobre el autor
Publicación académica de Linda Carolina Zambrano León, en su ámbito de estudios para la Carrera Consultor ABAP Nivel Inicial.
SAP Senior
Linda Carolina Zambrano León
Profesión: Agente - Peru - Legajo: XR55P
✒️Autor de: 63 Publicaciones Académicas
🎓Egresado del módulo:
Certificación Académica de Linda Zambrano
Disponibilidad Laboral: FullTime
