✒️ABAP Las tablas internas

Tablas internas

1. Que son las tablas internas?

Son un objeto de datos que permite guardar en meorina grandes cantidades de registos de datos con la misma estructura. Se puede almacentar entre 0 a n registros de datos.

La cantidad de resgistros maximos esta internamente relacionada con los limites especificados en la instala cion de SAP

Una tabla interna existe unicamente en memoria el tiempo de ejecicion, es decir mientras se este ejecutando un programa

Uso tipico que se le da a una tabla interna:

• Para alamacenar temporalmetne los datos de las tablas bases de datos para un procesamiento futuro.
• Para estructurar y formatear datos que se mostraran como salida del programa.
• Para formatear datos para ser utilizados por otros servicios.

2. Como se declara una tabla interna?

Existen muchas formas de declarar una tabla interna en un programa ABAP.

Para poder trabajar con una tabla interna vamos a necesitar contar con una estructura, llamada area de trabajo o cabecera de la tabla interna y nos va a permitir:

• leer el contenido de un registro de la tabla interna
• Recorrer cada registro de la tabla interna
• Agregar registros a un tabla interna
• Modificar el contenido de un registro de la tabla interna

Una estructura o area de trabajo o cabecera de tabla interna solo puede almacera 1 registro de datos

Diferentes formas para declarar una tabla inerna.

Ejemplo: declarar una tabla interna de proveedores TI_PROVEEDORES con 3 campos:

• DNI: tipo de caracter 8 posiciones
• Nombre: tipo de caracter 30 posiciones
• Apellido: tipo de caracter 30 posiciones.

1. La forma mas eficiente de declarar una tabla interna es utilizando TYPES, en donde declaramos un tipo de datos que sera TY_PROVEEDORES, luego declaramos la table interna TI_PROVEEDORES de ese mismo tipo de datos utilizando la sentencia TYPE STANDAR TABLE OF.

Y por ultimo declaramos la estructura o area de trabajo WA_PROVEEDORES que nos va a permitir trabajar con la table interna y por ello utilizamos LIKE LINE OF.

2. Una segunda forma para declarar la pabla interna TI_PROVEEDORES es utilizando la sentencia OCCURS 0 y para la estructura o area de trabajo WA_PROVEEDORES utilizamos la sentencia LIKE LINE OF

de esta manera definimoas la tabla interna con n lineas. la cantidad de lineas que se especifican en occurs no limitan el tamaño, en el parametros occurs se especifica la cantidad 0.

3. La tercer forma de declara una tabla interna consiste en declarar la estructura WA_PROVEEDORES y luego declarar la tabla interna TI_PROVEEDORES

4. Decclaramos la table interna TI_PROVEEDORES que consiste en declararla del mismo tipo que una tabla base de datos existente en el diccionario de datos

3. Como llenar el contenido de na tabla interna?

Existen varias formas de agregar registros a una table.

La primera consiste en realizar un SELECT a una base de datos de SAP y almacenar en la table interna el resultado.

Otra forma es mediante insertar registros en la table interna con la secuencia INSERT.

La ultima consiste en añadir un registros a una tabla interna y para ellos vamos a utilizar la sentencia APPEND to.

Los registros que añadimos con APPEND TO se agregan al final de la table interna. Significa que si la tabla interna se encuentra vacia y realizamos un APPEND TO entonces se generara el primer registro de la tabla interna y asi sucesivamente

4. El ordenamiento de una tabla interna

Para ordenar una tabla interna utilizamos la sentencia SORT

Tenemos 2 opciones para ordenar una tabla interna, una forma ascendente y otra descendente.

EJ: SORT ti_proveedores by dni ascending.

SORT ti_proveedores by dni descending.

3. Como recorrer una tabla interna?

Para recorrer una table interna y procesar registro a registros su contenido utilizamos la sentencia LOOP-ENDLOOP.

Ahora bien podemos restringir los registros de la tabla interna en base a que cumplan con una condicion especifica utilizando la sentencia WHERE- Ej:

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 existe ningun registro que cumpla la condicion especificada en la adicion WHERE, el SY-SUBRC sera distinto a cero.

5. Como recorrer una tabla interna?

Para recorrer una tabla interna y procesar registro a registr su contenido utilizaremos la sentencia LOOp-ENDLOOP.

Table interna TI_PROVEEDORES vamos a necesitar contar con la esctructura o el area de trabajo WA_PROVEEDORES

Ej:

LOOP AT ti_proveedores INTO wa_proveedores.

WRITE:/ wa_proveedores - dni,

wa_proveedores - nombre,

wa_proveedores - apellido.

ENDLOOP.

Restringir los regristos de una table interna , usamos la condicione WHERE.

Ej:

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 existiera ningun registro que cumpla con la condicion especificada de WHERE el SY-SUBRC sera distinto a cero.

6. La lectura de una tabla

Para leer un registro en particular de una tabla interna sin necesidad de recorrerda utilizamos la sentencia READ TABLE.

Ej:

*Lectura de la tabla interna

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

IF sy-subrc EQ 0.

ELSE.

ENDIF.

La sentencia READ TABLE va a leer en forma secuencial cada uno de los registros de la tabla interna ti_proveedores hasta encontrar los requistros que cumplan la condicion que escribamos en WITH KEY.

Imaginemos un tabla interna de 500.000 registros de datos. y el registro que buscamos esta en la posicion 499.999. para optimizar esta casuistica utilizamos lo que se conoce como Busqueda binaria

Es un algoritmo de busqueda que encuentra la posicion de un valor en una tabla interna ordenada, dividiendo el espacio de busqueda en 2 y comparando el valor buscado con el elementoe en el medio de la tabla interna.

Para implementar la busqueda binaria en ABAP se utilizas la sentecia SORT y luego la lectura utilizando BINARY SEARCH.

Ej:

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.

y por ultimo deseamos leer los datos en una posicion en particular utilizamos la clausila INDEX

SORT ti_proveedores ASCENDING BY nombre.

READ TABLE ti_proveedores INTO wa_proveedores INDEX 5.

IF sy-subrc EQ 0.

ELSE.

ENDIF.

7. Modificando una tabla interna

Para modificar el contenido de un registro existenet utilizamos la sentencia MODIFY.

Ej:

*Modificamos el primer registro de la tabla interna

wa_proveedores-dni = '24968752?.

MODIFY ti_proveedores FROM wa_proveedores INDEX 1.

IF sy-subrc EQ 0.

ELSE.

ENDIF.

SI intentamos modificar un registro de la tabla y no existe entonces el sy-subrc es distinto de creo.

Para insertar un registro se utiliza la sentencia INSERT.

Ej:

*Insertamos un registro en la segunda posicion de la tabla interna

wa_proveedores-nombre = 'Marcelo'.

wa_proveedores-apellido = Rivarola '.

wa_proveedores-dni = '24968752'.

INSERT wa_proveedores INTO ti_proveedores INDEX 2.

IF sy-subrc EQ 0.

ELSE.

ENDIF.

Para borrar utilizamos la sentencioa DELETE

ej:

*Borramos la tabla interna

DELETE ti_proveedores WHERE dni = '24968752'.

IF sy-subrc EQ 0.

ELSE.

ENDIF.

Para borrar todo el contendio utilizamos REFRESH

ej: REFRESH ti_proveedores