Manipulación De Tablas Cobol

Manipulación de tablas.

Introducción.

Una tabla es un conjunto de elementos del mismo tipo, que comparten en común un nombre común pero que son distinguibles por la posición que ocupa cada uno de ellos en la tabla. Cada elemento de la tabla puede contener un dato numérico o una cadena de caracteres o una combinación de ambos. La representación de una tabla se hace mediante variables suscritas o de subíndices y puede tener una o varias dimensiones.

Descripción de una tabla.

La descripción de una tabla se hace en la sección FILE y en la sección WORKING-STORAGE utilizando la cláusula OCCURS.

Cláusula OCCURS.

Declara una estructura de datos denominada tabla. Su formato es el siguiente:

La cláusula OCCURS no puede especificarse en una descripción de nivel 01, 77, 88 o 66.

Entero indica el numero de veces que se repite un campo con la misma descripción.

Cuando el numero de veces que se repite el campo con la misma descripción es variable, se emplea la especificación entero-1 TO entero-2 donde el valor de entero-1 es menor que el valor de entero-2.

Cuando se especifica la cláusula DEPENDING, es para indicar el numero de veces que se repite el campo con la misma descripción es variable y depende del campo nombrado por nombre dato-1.

Las cláusulas ASCENDING o DESCENDING, indican si los elementos de la tabla estan ordenados ascendentemente o descendentemente por uno o mas campos denominados por nombre dato-2 y nombre dato-3 ..., que formen parte de dichos elementos.

La cláusula INDEXED se utiliza para especificar el nombre de índice o índices, cuando en una tabla ordenada se realiza una búsqueda binaria.

Sentencia SET.

Permite transferir el valor de un literal, nombre de datos o de un índice a uno mas identificadores.

Formato 1:

Cuando se ejecuta esta sentencia el valor del operando que sigue a TO es transferido a los operandos que siguen a SET.

Formato 2

:

Este formato permite ir incrementando (UP BY) o decrementando (DOWN BY) el índice o índices en el valor especificado por nombre dato o entero.

Cláusula USAGE INDEX.

Esta cláusula declara un campo un campo para ser utilizado como un índice.

[USAGE IS] INDEX

Un campo de índice solo puede ser referenciado por la sentencias SET y SEARCH.

BÚSQUEDA SECUENCIAL. Sentencia SEARCH.

Esta sentencia permite realizar una búsqueda secuencial entre los elementos de una tabla hasta que el contenido de uno de ellos satisfaga una determinada condición.

Nombre dato-1 se refiere al elemento de la tabla, por lo tanto, su descripción debe contener una cláusula OCCURS mas la cláusula INDEXED BY. Puede ser también un campo subordinado a otro que contenga una cláusula OCCURS.

Cuando se especifica nombre dato-2 debe ser descrito por medio de la cláusula USAGE IS INDEX o como un campo elemental entero. El valor de este campo evoluciona paralelamente al índice de la tabla y se emplea cuando:

a) Aparte de realizar la búsqueda de un determinado elemento de la tabla se desea conocer su posición.

b) Se desea incrementar simultáneamente el índice de otra tabla diferente a la tabla en la que se esta realizando la búsqueda.

Las condiciones de las cláusulas WHEN se evalúan en el orden en que estan descritas.

Las sentencias 1, 2 o 3, son sentencias imperativas, esto es cualquier sentencia no condicional.

Una sentencia SEARCH se ejecuta de la forma siguiente:

1.

...