ENVIRONMENT DIVISION - Divisiones COBOL

En el capítulo anterior vimos la IDENTIFICATION DIVISION de COBOL, hoy veremos la segunda, la ENVIRONMENT DIVISION, que describe las características del entorno de desarrollo, así como el ordenador donde se escribe el programa y en el que se va a ejecutar el programa. Esta división especifica un método estándar para expresar aquellos aspectos de un problema de procesamiento de datos que dependen de las características físicas de un ordenador específico.

Hoy en día ya no es obligatoria esta división, así que si la omites en tu programa, no pasa nada.

Normas de la ENVIRONMENT DIVISION de COBOL

Veamos las normas de esta división. Esta se divide en dos partes, CONFIGURATION SECTION e INPUT-OUTPUT SECTION (esta última sección es obligatoria solo si se quieren especificar archivos para el programa).

Aquí tienes uno ejemplo de la CONFIGURATION SECTION:

ENVIRONMENT DIVISION.

CONFIGURATION SECTION.
* Ordenador donde se escribió el código.
SOURCE-COMPUTER.
* Ordenador donde se ejecutará el código.
OBJECT-COMPUTER.
* Permite cambiar valores de constantes del lenguaje.
SPECIAL-NAMES.

Y aquí otro ejemplo con la INPUT-OUTPUT SECTION:

Esta sección tiene dos párrafos (secciones de secciones dentro de la división ), FILE-CONTROL e I-O-CONTROL.

ENVIRONMENT DIVISION.

INPUT-OUTPUT SECTION.
FILE-CONTROL.
* Nombre del archivo.
SELECT [OPTIONAL].
* Tipo de dispositivo.
ASSIGN TO.
* Tipo de organización.
ORGANIZATION IS.
* Modo de acceso al archivo.
ACCESS MODE IS.
* Clave del registro.
RECORD KEY IS.
* Claves alternativas del registro.
ALTERNATE RECORD KEY IS.
* Tipo de dispositivo.
WITH DUPLICATES.
* Variable de estado del archivo.
FILE STATUS IS.