“DIVISIONES EN COBOL”

IDENTIFICATION DIVISION. Esta es la primera línea de todo programa Cobol e identifica a la primera división donde se especifica el nombre del programa, el del autor y demás datos.

ENVIRONMENT DIVISION. Es la segunda division por orden de aparición, y en ella se especifican, el ordenador donde se escribió y se ejecutará el programa, asi como la relacion entre los ficheros a utilizar con sus correspondencias externas, es decir con los dispositivos a los que hará referencia al programa objeto cuando vaya a establecer comunicación con dicho fichero.

DATA DIVISION. Es la tercera division por orden de aparición, y es donde se declaran absolutamente todos los nombres de campos, registros, variables, es decir donde nombramos cada dato que vayamos a utilizar en nuestro programa. Para almacenar todos estos nombres de datos, ésta DIVISION se divide en varias secciones, cada una de ellas orientada a un tipo de datos diferente.

Cada campo declarado debe de llevar un número de nivel que le informe al compilador del tipo de campo que es:

El nivel 01, identifica la primera entrada de un registro o la primera entrada de un campo que se va a subdividir.
El nivel 77, identifica a una variable que no se va a subdividir y que no forma parte de ningún registro.
El nivel 88, identifica los posibles valores condicionales de una variable previamente definida.
Los niveles 02 al 49 indicarán las distintas subdivisiones de un campo cuya primera entrada ha sido definida a nivel 01. Los niveles 01 y 77 deberán de ir siempre en el Area A (Col 8) el resto es independiente.

A continuación pondremos el nombre del campo, que no podrá ser ninguna palabra cobol ni llevar ningún carácter extraño, principalmente se utilizarán letras y números o guiones. Es posible que algún campo que definamos nunca vaya a ser usado por el programa pero si en cambio es necesario que exista para que nos reserve el espacio, le llamaremos FILLER.

Y finalmente podrán venir una serie de cláusulas como:

PICTURE / PIC esta palabra es la que utilizamos para identificar el tipo de datos que va a contener la variable. Los posible valores son:

DE CAMPOS.
9 - Para campos numéricos.
A - Para campos alfabéticos.
X - Para campos alfanuméricos.
S - Indica variable con signo.
V - Indica punto decimal.

DE EDICIÓN.
$ - Representa la aparición del signo $ delante del campo numérico.
. - Indica separación de miles.
, - indica punto decimal. (estas dos pueden variar según hayamos especificado en SPECIAL-NAMES DECIMAL-POINT IS COMMA).
Z - Representa un espacio para el 0 a la izquierda en campos numéricos.
* - Igual pero se cambia el 0 por *.
B - Indica un espacio en blanco.
- ó + Indican la aparición del signo correspondiente.

Puede haber mas pero los mas utilizados son los que se han comentado.

Para indicar la longitud del campo se puede repetir el símbolo tantas veces como longitud tenga o expresarla entre paréntesis, es decir para definir una variable alfanumérica de 10 caracteres se pondría:
PIC X(10) o PIC XXXXXXXXXX. Los valores S y V solo pueden aparecer una vez por cada variable.

La DATA DIVISION nos sirve para tener todas nuestras variables bien definidas, ya sean independientes o que formen parte de algún fichero para poder operar con ellas en la PROCEDURE DIVISION. Me acuerdo de cuando empezamos a estudiar que para otros lenguajes no era necesaria la declaración de variables previamente y en cambio ahora en la mayoría de los lenguajes se exige que se declaren, eso significa que el Cobol no iba mal encaminado.

PROCEDURE DIVISION. En ella encontramos todos los procesos necesarios para que el programa funcione, que haga para la que fue concebido.
Todo ésto se realiza con instrucciones (ordenes, verbos, comandos, etc..), como explicaremos a continuación. Cada uno de ellos con un formato y una solución que resolver.

Como son muchos los verbos de que se compone el lenguaje, vamos a ver éstos divididos por grupos: De cálculo, De archivos, De pantalla, Resto.

Ya sabemos que Cobol es un lenguaje estructurado, pues bien no pensemos que la Procedure va a ser un caos de instrucciones escritas secuencialmente, no, en ella podremos definir tantas Secciones (SECTION) y Párrafos como queramos para organizar mejor las instrucciones y para delimitar acciones concretas, eso si siempre se ejecutarán secuencialmente, excepto cuando encuentre algún verbo de bifurcación como GO, PERFORM que haciendo referencia a esos nombres de párrafo harán que se rompa la secuencia lógica de ejecución.

En las comparaciones que hagamos podremos utilizar los siguientes formatos:

Si se especifica (NOT) se da a entender lo contrario de la comparación, con lo que no mayor que puede ser igual que menor o igual que.

Tambien podemos utilizar para las condiciones complejas los operandos lógicos, AND, OR y NOT según se requieran, todas las condicionea que incluyan AND han de ser correctas para que pase la condición, si se utiliza OR solo alguna de ellas ha de ser correcta, cuando se utilice NOT no podrá ser correcta para que la condición sea válida.