Tablas Internas: son una estructura de datos que nos sirve para guardar información. Son utilizadas cuando queremos almacenar temporalmente los datos de las bases de datos sin tener que acceder continuamente a la misma. Las tablas internas tienen unos límites en la cantidad de registros almacenados, que depende de lo especificado en el momento de la instalación. También podemos usar las tablas internas para formatear datos que serán usados en otros servicios y para estrcutrar y formatear los datos que serán mostrados como salida del programa.
La forma que se declara una tabla interna es:
DATA: BEGIN OF <taba> OCCURS <n>,
<Def.Campo>,
....
END OF <tabla>.
el parámetro seguido en OCCURS limita es la cantidad de registros que se almacenarán en memoria simultáneamente.
Podemos también declarar la misma tabla usando la sentencia LIKE STANDARD TABLE OF wa_table_definition.
Existen tres formas de estructuras de tablas internas:
1. STANDARD TABLE: Es la más utiliza y se utiliza una llave para hacer su búsqueda que se basa en búsqueda lineal.
2. SORTED TABLE: Las líneas o registros tienen asginado un índica interno, pero aparecen ordenados en orden ascendente de acuerdo con la clave. Para insertar registros usamos la sentencia INSERT. La clave puede ser UNIQUE o múltiples columnas (NON-UNIQUE)
3. HASHED TABLE: Los registros son organizados a través de una clave generada autimaticamente, lo cualgarantiza la posición única de los registros. El tiempo que tarda para acceder a cualquier registro es constante, por lo cual, es buena alternativa si deseamos acceder a una línea de registro por clave.
LLENADO DE UNA TABLA INTERNA
Podemos utilizar dos formas para llenar una tabla interna:
1. APPEND TO: Tiene la siguiente sintaxis. APPEND wa_proveedores TO ti_proveedores.
2. SELECT: Es usada para almacenar los datos de la tabla base de datos a la tabal interna.
ORDENAMIENTO DE UNA TABLA INTERNA
Podemos usar la siguiente sintaxis para ordenar una tabla interna.
SORT ti_proveedores BY dni DESCENDING.
PROCESAMIENTO DE UNA TABLA INTERNA
Para procesar una tabla interna tenemos que usar ciclos los cuales nos permiten recorrer cada una de las filas de dicha tabla.
LOOP AT ti_proveedores INTO wa_proveedores
WHERE NOT nombre IS INITIAL.
END LOOP.
Nota: Si deseamos crear una estructura similar a una estructura de una tabla ya creada hacemos lo siguiente:
DATA: wa_proveedores LIKE LINE OF ti_proveedores.
LECTURA DE UNA TABLA INTERNA
Podemos utilizar la sentencia READ TABLE para leer un registro específico de la tabla interna.
READ TABLE ti_proveedores INTO wa_proveedores
WITH KEY nombre = 'Ariel'.
Podemos además verificar con la variable del sistema sy-subrc cuyo valor es cero si encontró un registro con las características específicas y diferente de cero si no encontró ningún registro.
Si deseamos obtener el registro en una línea específica de la tabla interna hacemos lo siguiente:
READ TABLE ti_proveedores INTO wa_proveedores INDEX 1. (Podemos agregar la cláusula BINARY SEARCH para hacer la búsqueda más eficiente)
MODIFICANDO UNA TABLA INTERNA
Podemos usar MODIFY para modificar el contenido de un registro en la tabla interna.
- MODIFY ti_proveedores FROM wa_proveedores INDEX 1.
Para especificar de mejor forma cual valor queremos modificar usamos la sentencia TRANSPORTING.
MODIFY TI_USUARIOS INDEX idx FROM WA_USUARIOS
TRANSPORTING DNI.
En este caso el registro con la clave dada tiene que existir sino entonces SY-SUBRC tendrá un valor distinto de cero (0).
Si en lugar de modificar un registro lo que deseamos es insertar uno nuevo entonces hacemos lo siguiente:
- INSERT wa_proveedores INTO ti_proveedores INDEX 2.
Para borrar un registro de la tabla interna usamos el comando DELETE.
DELETE ti_proveedores
WHERE dni = '20857492'.
NOTA:
- Si deseamos borrar todos los registros de una tabla interna entonces usamos la sentencia REFRESH.
- Si deseamos obtener la cantidad de líneas que tiene una tabla interna entonces usamos lo siguient:
DATA: v_lineas TYPE i.
DESCRIBE TABLE ti_proveedores LINES v_lineas.
- Para limpiar la cabecera de trabajo utilizamos la sentencia CLEAR ti_proveedores
- Par liberar espacio ocupado por la tabla interna utilizamos la sentencia FREE nombre_tabla.
Ejercicio completo:
SPAN {
font-family: "Consolas";
color: #000000;
background: #FFFFFF;
}
.L0S31 {
font-style: italic;
color: #808080;
}
.L0S32 {
color: #3399FF;
}
.L0S33 {
color: #4DA619;
}
.L0S52 {
color: #0000FF;
}
.L0S55 {
color: #800080;
}
.L0S70 {
color: #808080;
}
*&---------------------------------------------------------------------*
*& Report ZABAP_TABLA_INTERNA_FG66E
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zabap_tabla_interna_fg66e.
DATA: BEGIN OF wa_pasajeros,
pasaporte TYPE c LENGTH 10,
nombre_ape TYPE c LENGTH 30,
fecha_nac TYPE dats,
END OF wa_pasajeros.
*1. Crear una tabla
DATA: ti_pasajeros LIKE STANDARD TABLE OF wa_pasajeros.
*2. llenar la tabla
CLEAR wa_pasajeros.
wa_pasajeros-pasaporte = '123'.
wa_pasajeros-nombre_ape = 'Juan Pablo'.
wa_pasajeros-fecha_nac = '20041991'.
APPEND wa_pasajeros TO ti_pasajeros.
CLEAR wa_pasajeros.
wa_pasajeros-pasaporte = '456'.
wa_pasajeros-nombre_ape = 'Maria Esther'.
wa_pasajeros-fecha_nac = '10061965'.
APPEND wa_pasajeros TO ti_pasajeros.
CLEAR wa_pasajeros.
wa_pasajeros-pasaporte = '789'.
wa_pasajeros-nombre_ape = 'Ana Maria'.
wa_pasajeros-fecha_nac = '12081986'.
APPEND wa_pasajeros TO ti_pasajeros.
*3. Mostrar por pantalla cuantos registros hay en la tabla interna pasajeros
DATA: num_registers TYPE i.
START-OF-SELECTION.
DESCRIBE TABLE ti_pasajeros LINES num_registers.
END-OF-SELECTION.
WRITE: /(100) 'La cantidad de registros son' LEFT-JUSTIFIED.
NEW-LINE.
WRITE num_registers.
*4. Mostrar todos los registros que contiene la tabla ti_pasajeros
LOOP AT ti_pasajeros INTO wa_pasajeros.
WRITE:/ wa_pasajeros.
ENDLOOP.
*5. Modificar el registro de Ana Maria y colocar una fecha diferente.
READ TABLE ti_pasajeros INTO wa_pasajeros
WITH KEY nombre_ape = 'Ana Maria'.
wa_pasajeros-fecha_nac = '12091986'.
ULINE.
WRITE:/ wa_pasajeros.
"MODIFY ti_pasajeros INDEX 1 FROM wa_pasajeros
* TRANSPORTING fecha_nac.
MODIFY ti_pasajeros FROM wa_pasajeros TRANSPORTING fecha_nac WHERE nombre_ape = 'Ana Maria'.
*6. Mostrar nuevamente todos los registros que contiene la tabla.
LOOP AT ti_pasajeros INTO wa_pasajeros.
WRITE:/ wa_pasajeros.
ENDLOOP.
FREE ti_pasajeros.