✒️ABAP Las tablas internas
ABAP Las tablas internas
1 - TABLAS INTERNAS:
Objeto de Datos que permite guardar en memoria grandes cantidades de registros de datos con la misma estructura. Dicha cantidad de registros máxima está relacionada con los límites especificados en la instalación del sistema.
Usos de tablas internas:
1) Almacenamiento temporal de los datos de la BBDD, para ser tratados posteriormente.
2) Estructuración y formateo de esos datos como salida del programa.
3) Preparar los datos para ser utilizados por otros servicios.
2 - DECLARACIÓN DE TABLAS INTERNAS:
DATA: BEGIN OF <tabla> OCCURS <n>
<Def. Campo>,
...........
END OF <tabla>.
Así, se define una tabla interna con n líneas en memoria, más una línea de cabecera (area de trabajo). El valor de n indica la cantidad de registros que se guardarán simultáneamente, NO, la cantidad máxima de registros que caben en la tabla.
Nota: se suele definir n = 0, lo que permite trabajar con tablas de gran cantidad de registros.
Ejemplo: (tabla interna de PROVEEDORES):
Primera forma de declarar:
* tabla interna de PROVEEDORES
DATA: BEGIN of ti_proveedores OCCURS 0,
nombre(30) TYPE c,
apellido(10) TYPE c,
dni(8) TYPE c,
END OF ti_proveedores.
Segunda forma de declarar:
* tabla interna de PROVEEDORES
DATA: BEGIN of wa_proveedores,
nombre(30) TYPE c,
apellido(10) TYPE c,
dni(8) TYPE c,
END OF wa_proveedores.
DATA: ti_proveedores LIKE STANDARD TABLE of wa_proveedores.
Existe una tercera forma de declarar una tabla interna "COMO" una tabla del sistema, sería:
DATA: ti_vuelos LIKE STANDAR TABLE OF sflight WITH HEADER LINE.
En esta definición la línea de cabecera (o area de trabajo), será la misma tabla interna.
3 - CARGA DE TABLAS INTERNAS:
APPEND TO: Se añaden registros en la última posición de la tabla con los datos cargados en el area de trabajo.
Ejemplo:
* Adición de registros.
CLEAR wa_proveedores.
wa_proveedores-nombre = 'Javier'.
wa_proveedores-apellido = 'Gomez'.
wa_proveedores-dni = '28710580'.
APPEND wa_proceedores to ti_proveedores.
4 - ORDENACION DE TABLAS INTERNAS:
Sentencia SORT. Ejemplo:
*Ordena la tabla descendentemente por DNI:
SORT ti_proveedores BY dni DESCENDING [ASCENDNG].
"Se ordena la tabla interna por DNI de mayor a menor".
5 - PROCESAMIENTO DE TABLAS INTERNAS:
Para recorrer los registros, cargados y ordenados en una tabla interna, se utiliza la sentencia:
LOOP-ENDLOOP.
Ejemplo:
* Recorrer los registros, de aquellos cuyo nombre no esté ablancos:
LOOP AT ti_proveedores INTO wa_proveedores
WHERE NOT nombre IS INITIAL.
ENDLOOP.
Si no existiera ningún registro que cumpla la condición, el valor de la variable del sistema
SY-SUBRC será distinto de CERO.
NOTA: Existe otra forma de definir una estructura (area de trabajo) igual a la estructura de una tabla interna, que sería con la claúsula LIKE LINE OF.
Ejemplo:
DATA: wa_proveedores LIKE LINE OF ti_provedoores.
6 - LECTURA DE TABLAS INTERNAS:
READ TABLE: lectura de un registro concreto de una tabla interna, sin necesidad de recorrerla.
Ejemplo:
* Lectura de un registro en particular.
READ TABLE ti_proveedores INTO wa_proveedores
WITH KEY nombre = 'Javier'.
Si se encuentra algun registro: SY-SUBRC = 0.
Si NO se encuentra algun registro: SY-SUBRC <> 0.
Con la claúsula INDEX, se consigue leer los datos que se encuentran en una posición particular de una tabla interna.
* Leer el quinto registro de la tabla.
READ TABLE ti_proveedores INTO wa_proveedores INDEX 5 [BINARY SEARCH]
Con la cláusula BINARY SEARCH la búsqueda sea más eficiente.
7 - MODIFICACION REGISTRO DE UNA TABLA INTERNA:
Sentencia MODIFY.
Ejemplo (Modificacion del DNI del primer registro)
* Modificacion del DNI del quinto registro.
wa_proveedores-dni = '28710560'.
MODIFY ti_proveedores FROM wa_proveedores INDEX 5.
Si la modificación fue bien: SY-SUBRC = 0.
Si la modificación NO fue bien (el registro, no existe p. ejemplo): SY-SUBRC <> 0.
7.1 - INSERCIÓN REGISTRO EN UNA TABLA INTERNA:
Sentencia: INSERT
Ejemplo: Inserción de un registro en la 6 posición.
wa_proveedores-nombre = 'Francisco'.
wa_proveedores-apellido = 'Jimenez'.
wa_proveedores-dni = '28123589'.
INSERT wa_proveedores INTO ti_proveedores INDEX 6.
Si la inserción fue bien: SY-SUBRC = 0.
Si n fué bien SY-SUBRC <> 0.
7.2 - BORRADO REGISTRO EN UNA TABLA INTERNA:
Sentencia: DELETE.
Ejemplo: Borra registro de tabla para un DNI determinado
* Borra registro de tabla para un DNI determinado
DELETE ti_proveedores
WHERE dni = '28710580'
Si la ejecución fue bien: SY-SUBRC = 0.
Si NO fué bien (p. ejemplo, el DNI No existía): SY-SUBRC <> 0.
Para borrar todos los registros de la taba interna:
Sentencia REFRESH (se suele usar para inicializar una tabla interna al principio del Report).
Ejemplo:
* Inicializar tabla interna de proveedores.
REFRESH ti_proveedores.
Nota: esta sentencia "borra" todos los registros de la tabla interna, pero no la tabla interna en sí misma (Sentencia FREE).
7.3 - CONTAR LOS REGISTROS EN UNA TABLA INTERNA:
Sentencia: DESCRIBE TABLE.
Ejemplo: Saber cuantos registros hay cargados en la tabla interna de proveedores.
* Definir variable que almacenrá el nro. de registros de la tabla.
DATA: v_lineas TYPE I value 0.
* Obtener nro. de registros de la tabla.
DESCRIBE TABLE ti_proveedores LINES v_lineas.
8 - OTRAS INSTRUCCIONES PARA EL MANEJO DE TABLAS INTERNAS:
Inicializar cabecera o area de trabajo: CLEAR (ejemplo: CLEAR wa_proveedores).
Liberar memoria intermedia que ocupa una tabla interna: FREE (ejemplo: FREE ti_proveedores)
Sobre el autor
Publicación académica de Francisco Javier Gomez Jimenez, en su ámbito de estudios para la Carrera Consultor ABAP.
Francisco Javier Gomez Jimenez
Profesión: Consultor Junior - España - Legajo: KW17D
✒️Autor de: 200 Publicaciones Académicas
🎓Cursando Actualmente: Consultor ABAP Nivel Avanzado
🎓Egresado de los módulos:
- Carrera Consultor ABAP Nivel Inicial
- Carrera Consultor en SAP MM Nivel Avanzado
- Carrera Consultor en SAP MM Nivel Inicial