✒️ABAP Las tablas internas

Unidad n°3: El diccionario de datos
Lección n°1: Las tablas internas

Las tablas internas son un objeto de datos que permite guardar en memoria grandes cantidades de registros de datos con la misma estructura, sin necesidad de acceder constantemente a las tablas base de datos. Puede almacenar entre 0 a n registros de datos.
Estas existen solo en la memoria en tiempo de ejecución, es decir, mientras se está ejecutando un programa ABAP.

Usos típicos:

• Para almacenar temporalmente los datos de las tablas base de datos para un procesamiento futuro: se seleccionan los datos de la tablas, se procesas los registros en el programa y se vuelven a impactar los cambios en las tablas.
• Para estructurar y formatear datos que se mostrarán como salida del programa: para realizar salida de datos, que puede ser un listado de salida por pantalla o un archivo generado en el servidor o localmente.
• Para formatear datos para ser usados por otros servicios.

¿Cómo declarar una tabla interna?

Depende de como usemos la tabla interna, la declararemos de una u otra forma.
Para trabajar con una tabla interna, necesitaremos contar con una estructura (área de trabajo o cabecera de la tabla interna), la cual tendrá el mismo formato que la tabla interna y nos permitirá:

• 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

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

Formas de declarar una tabla interna (en el ejemplo declararemos la tabla "TI_PROVEEDORES"):

• DNI de tipo caracter de 8 posiciones.
• NOMBRE de tipo caracter de 30 posiciones.
• APELLIDO de tipo caracter de 30 posiciones.

Las formas eficientes de declarar una tabla interna son:

1. Usando TYPES:
   1) Usando TYPES, en donde primero declaramos un tipo de datos "TY_PROVEEDORES".
   2) Declaramos la tabla interna "TI_PROVEEDORES" de ese mismo tipo usando la sentencia "TYPE STANDARD TABLE OF".
   3) Declaramos la estructura "WA_PROVEEDORES" que nos dejará trabajar con la tabla interna, usando la sentencia "LIKE LINE OF".
   " 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 STARDARD TABLE OF ty_proveedores,
   wa_proveedores LIKE LINE OF ti_proveedores.
   
2. Para declarar la tabla interna TI_PROVEEDORES podemos usar la sec. OCCURS 0 y para declarar la estructura "WA_PROVEEDORES" usaremos la sentencia "LIKE LINE OF":
   " Declaramos la tabla interna:
   DATA: BEGIN OF ti_proveedores OCCURS 0,
   dni(8) TYPE c,
   nombre(30) TYPE c,
   apellido(30) TYPE c,
   END OF ti_proveedores.
   
   " Declaramos la estructura:
   DATA: wa_proveedores LIKE LINE OF ti_proveedores.
   
   De esta forma definimos una tabla interna con n líneas en memoria + 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, si no la cantidad de registros que se guardarán en memoria.
   En este parámetro se especifica la cantidad 0 lo que permite trabajar con tablas internas de muchos registros.
   
   Cuando declaramos una tabla interna, comenzará con "ti_" (ti es tabla interna).
   Cuando declaramos una estructura o área de trabajo, comenzará con "wa_" (wa= work area).
   
3. La 3er forma es primero declarando la estructura "wa_proveedires" y luego declaramos la tabla interna "ti_proveedores" del mismo tipo de datos que la estructura que declaramos anteriormente:
   " 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. La 4ta forma es declarando la tabla interna "ti_proveedores", consiste en declarar del mismo tipo que una tabla base de datos existenten en el DICC ABAP:
   " Declaramos la tabla interna y la estructura:
   DATA: ti_proveedores LIKE TABLE OF lfal,
   wa_proveedores LIKE LINE OF ti_proveedores.
   
   Es este caso la ti "ti_proveedores" tendrá la misma estructura que la tabla base de datos estándar LFA1 (es el maestro de proveedores), cuya estructura no está formada por los campos "DNI, NOMBRE y APELLIDO", si no que está compuesta por otros campos.
   
   Hacer esta declaración solo tiene sentido si encontramos en el DICC una tabla base de datos que tenga los campos que necesitamos para nuestra tabla interna.
   
5. Sentencia WITH HEADER LINE: para declarar una estructura o área de trabajo/cabecera de una ti , es usando la misma ti como cabecera:
   "Declaramos la tabla interna junto con su cabecera o área de trabajo:
   DATA: ti_proveedores LIKE TABLE OF lfal WITH HEADER LINE.

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

Hay varias formas:

• Hacer un SELECT a una tabla base de datos y almacenar en la ti el resultado de la selección.
• Insertar registros en la tabla interna por medio de la sentencia INSERT.
• Añadir registro a registro con la sentencia APPEND TO.
  Los registros que añadamos con esta sentencia, se agregan al final de la ti.

El ordenamiento de una ti:

Para ordenar una ti usaremos la sentencia "SORT". Se puede ordenar por cualquiera de los campos que forman parte de la ti; y se pueden ordenar de forma ascendente o descendente.

1. Para ordenar una ti por el campo DNI de forma ascendiente:
   "Ordenamos los proveedores de menor a mayor por DNI:
   SORT ti_proveedores BY dni ASCENDING.
   
2. Para ordenar de forma descendente:
   SORT ti_proveedores BY dni DESCENDING.
   
   Si no especificamos si es ascendente o descendente, por defecto se ordenara de forma ascendiente.

¿Cómo recorrer una ti?

Para recorrerla registro a registro, usaremos el LOOP-ENDLOOP. Pero para ellos, nuestra ti debe contar con una wa:
"Recorremos la tabla interna:
LOOP AT ti_proveedores INTO wa_proveedores.

WRITE:/ wa proveedores-dni,
wa proveedores-nombre,
wa proveedores-apellido.

ENDLOOP.

También se pueden restringir los registros de la ti usando WHERE:
"Recorremos la tabla interna:
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 hay ningún registro que cumpla con la condición especificada en WHERE, el SY-SUBRC será distinto de cero.
A la derecha del WHERE se puede especificar más de una condición y para ellos a concatenar las condiciones AND o OR.
"Recorremos la tabla interna:
LOOP AT ti_proveedores INTO wa_proveedores WHERE NOT nombre IS INITIAL.
AND NE '25986584'

WRITE:/ wa proveedores-dni,
wa proveedores-nombre,
wa proveedores-apellido.

ENDLOOP.

La estructura de una ti:

Para leer un determinado registro de la ti sin recorrer registro a registro, usaremos la sentencia "READ TABLE".
Para usarla tendremos que tener la ti y el wa:
"Lectura de la tabla interna:
READ TABLE ti_proveedores INTO wa_proveedores WITH KEY nombre = 'Ariel'.

IF sy-subrc EQ 0.

ELSE.

ENDIF.

Si encontramos el registro deseado, entonces el SY-SUBRC será cero, de caso contrario, será distinto de cero.

Lo malo del READ TABLE, es que lee cada registro de la tabla hasta que encontremos el registro que cumpla con la condición que escribamos el WITH KEY. Si el ti que tienen muchos registros sería eterno y un gran problema, por ello usaremos la "Búsqueda Binaria"

*Búsqueda Binaria: algoritmo de búsqueda que encuentra la posición de un valor en una ti ordenada, dividiendo el espacio de búsqueda en dos y comparando el valor buscado con el elemento en el medio de la ti, si no son iguales, la mitad en la cual el valor no está es eliminada y la búsqueda continúa en la mitad restante.

Para usar la búsqueda binaria, antes de hacer la lectura debemos ordenar la ti por el campo que deseamos buscar, usando la sentencia SORT y luego haremos la lectura usando la clausula BINARY SEARCH:
SORT ti_proveedores ASCENDING BY nombre.

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

IF sy-subrc EQ 0.

ELSE.

ENDIF.

Cláusula INDEX: para leer los datos que se encuentran en una determinada posición de la ti.
READ TABLE ti_proveedores INTO wa_proveedores INDEX 5.

IF sy-subrc EQ 0.

ELSE.

ENDIF.

Modificando una ti:

• Sentencia MODIFY: para modificar el contenido de un registro existente en una ti.
  Ej: modificamos el campo DNI correspondiente al 1er registro de la ti "ti_proveedores":
  "Modificamos el 1er registro de la tabla ti:
  wa_proveedores-dni = '329072348'
  
  MODIFY ty_proveedores FROM wa_proveedores INDEX 1.
  
  IF sy-subrc EQ 0.
  
  ELSE.
  
  ENDIF.
• Sentencia INSERT: para insertar un registro en una posición determinada de una ti. Necesitamos que esté el wa.
  EJ: insertamos un registro en la ti en la posición 2:
  wa_proveedores-nombre = 'Marta'.
  wa_proveedores-apellido = 'Alvez'.
  wa_proveedores-dni = '329085021'.
  
  INSERT wa_proveedores INTO ti_proveedores INDEX 2.
  
  IF sy-subrc EQ 0.
  
  ELSE.
  
  ENDIF.
• Sentencia DELETE: para borrar el contenido de un registro de una ti.
  EJ: borraremos todos los registros de la ti que cumplen con la condición DNI = 20857492:
  DELETE ti_proveedores WHERE dni = '20857492'.
  
  IF sy-subrc EQ 0.
  
  ELSE.
  
  ENDIF.
• Sentencia REFRESH: para borrar todo el contenido de una ti.
  EJ: inicializamos o borramos el contenido de la ti:
  REFRESH ti_proveedores.
• Sentencia DESCRIBE TABLE: para saber cuantos registros tiene una ti.
  EJ: declararemos una variable "v_lineas" de tipo I, que va a contener la cantidad de registros de la ti "ti_proveedores", luego de ejecutar la sentencia DESCRIBE TABLE:
  "Averiguamos la cantidad de regristros de la ti:
  DATA: v_lineas TYPE i.
  
  DESCRIBE TABLE ti_proveedores LINES v_lineas.
  
  IF v_lineas > 0.
  
  ENDIF.
  
• Sentencia CLEAR (seguida del wa): para inicializar el área de trabajo (wa) o cabecera
• Sentencia FREE (seguida del nombre de la ti): para liberar el espacio ocupado por una ti.