Cobol

COBOL

Índice.
* Códigos fuente.
* Estructura general del lenguaje.
* Archivos en RM/COBOL 85.
* Reflexiones.
* Enlaces.
* Comentarios.
* Códigos de excepción en RM/COBOL 85.
Programas código fuente incluido en RM/COBOL-85 (Ver. 5.36).
| |
Descripción | Descarga |
Dos programas para manejar fechas, 'fromdate' devuelve la fecha actual del sistema perocon el año a cuatro cifras, especial para versiones de RM/Cobol anterior al Y2K, 'validar' verifica que una fecha sea válida y de serlo devuelve la cantidad de dias que hay entre la fecha actual y la validada. | fechas.zip (5,3 Kb) |
Estructura general de un fuente COBOL.
Un fuente de COBOL está separado en cuatro divisiones, cada una de ellas tiene un propósito específico. Las divisionesestán ordenadas en secciones y las secciones en párrafo. Cada división y sección contiene un ámbito, es decir, no se pueden mezclar secciones que pertenecen a una división en otra y las divisiones no pueden estar desordenadas.
IDENTIFICATION DIVISION.
En esta división se declaran todos los datos identificatorios del programa en sí, como ser el autor, el nombre interno del programa, los comentarios,etc... En esta división que es obligatoria la única sección obligatoria es PROGRAM-ID seguido del nombre interno del programa, por ejemplo
Código:
-------------------------------------------------
IDENTIFICATION DIVISION.

-------------------------------------------------
PROGRAM-ID. HOLAMUND.
ENVIRONMENT DIVISION.
En esta sección se declaran entre otrascosas los encabezados de los archivos de datos usando una sección llamada INPUT-OUTPUT SECTION, párrafo FILE CONTROL. Un ejemplo:
-------------------------------------------------
ENVIRONMENT DIVISION.
-------------------------------------------------
INPUT-OUTPUT SECTION.
-------------------------------------------------FILE-CONTROL.
-------------------------------------------------
SELECT OPTIONAL CLIENTES ASSIGN RANDOM,
-------------------------------------------------
"CLIENTES.DAT"
-------------------------------------------------
ORGANIZATION IS INDEXED
-------------------------------------------------ACCESS MODE DYNAMIC
-------------------------------------------------
RECORD KEY CODIGO-CLIENTE
-------------------------------------------------
ALTERNATE RECORD KEY CUIT WITH DUPLICATES
-------------------------------------------------
ALTERNATE RECORD KEY NOMBRE-APELLIDO WITH DUPLICATES.En este ejemplo he declarado un archivo con nombre lógico CLIENTES y nombre físico "clientes.dat" con acceso random (si el sistema operativo lo permite), la organización interna sera indexada (hay que mantener índices) el modo de acceso será dinámico (en COBOL significa que se puede leer secuencialmente o aleatoriamente usando cualquiera de los índices declarados a continuación). La claveprincipal del archivo es CODIGO-CLIENTE y tiene dos claves secundarias.
Esta división se puede omitir.
La tercera división es DATA DIVISION.
En esta división se declaran las variables del programa, los encabezados de los archivos de datos, la estructura de registros del mismo, las tablas en memoria y las constantes.
Hay dos secciones importantes en esta división, la primera es la FILE SECTION, enella se declaran todos los registros que pertenecen a los archivos declarados en el párrafo FILE-CONTROL de la sección INPUT-OUTPUT de la división ENVIRONMENT.
La otra sección es WORKING-STORAGE SECTION, en esta se declaran las variables, constantes y tablas. Todas las variables en COBOL-85 son globales. Siguiendo con el ejemplo anterior:
-------------------------------------------------...