COBOL
El lenguaje COBOL (acrónimo de COmmon Business-Oriented Lenguaje,
Lenguaje Común Orientado a Negocios) fue creado en el año 1959 con el objetivo
de crear un lenguaje de programación universal que pudiera ser usado en
cualquier ordenador (ya que en los años 1960 existían numerosos modelos de
ordenadores incompatibles entre sí), y que estuviera orientado principalmente a
los negocios, es decir, a la llamada informática de gestión
El lenguaje COBOL (acrónimo de
COmmon Business-Oriented Lenguaje, Lenguaje Común Orientado a Negocios) fue
creado en el año 1959 con el objetivo de crear un lenguaje de programación
universal que pudiera ser usado en cualquier ordenador (ya que en los años 1960
existían numerosos modelos de ordenadores incompatibles entre sí), y que
estuviera orientado principalmente a los negocios, es decir, a la llamada
informática de gestión.
Características:
Ø
COBOL fue dotado de
unas excelentes capacidades de auto documentación.
Ø
Una buena gestión de
archivos y una excelente gestión de los tipos de datos para la época, a través
de la conocida sentencia PICTURE para la definición de campos estructurados.
Para evitar errores de redondeo en los cálculos que se producen al convertir
los números a binario y que son inaceptables en temas comerciales, COBOL puede
emplear y emplea por defecto números en base diez. Para facilitar la creación
de programas en COBOL, la sintaxis del mismo fue creada de forma que fuese
parecida al idioma inglés, evitando el uso de símbolos que se impusieron en
lenguajes de programación posteriores.
Tipo
de lenguaje y estructura de cobol
COBOL es un lenguaje de alto
nivel y de fácil entendimiento basado en la resolución de problemas de los
campos de gestión y documentación. COBOL son las iniciales de COmmon Bussiness
Oriented Language.
Aunque hay lenguajes que nos
permiten realizar programas mucho más complejos en cuanto a posibilidades que
aquellos que podemos realizar con COBOL, tenemos que decir que este lenguaje de
programación por el momento no solo que no va a desaparecer sino que va a
perdurar mucho más tiempo que mucho de los posteriores, ya que hay muchas
empresas que siguen usando COBOL desde el principio de estas, y como sus
programas funcionan constantemente, no se pueden apagar para hacer el cambio a
otro lenguaje además del gran coste que supondría el tomar esta opción.
Por otra parte hay que destacar
que el COBOL no nos permite programar juegos complicados para el ordenador, sin
embargo si queremos hacer una programación de bases de datos, tendremos que tener
en cuenta que es mucho más fácil para nosotros el realizarla con COBOL, que el
tener que programarla desde cero con programas como JAVA o C++.
La estructura de COBOL es
totalmente diferente a la estructura de cualquier otro lenguaje. Esta especialización
impide aunque de forma muy simple que expertos programadores vean COBOL como diferente
e inaccesible para ellos debido a las grandes diferencias que se encuentran con
la programación tradicional estructurada. Sin embargo aprender COBOL es mucho
más fácil que aprender los otros lenguajes que existen en el mercado, con el
inconveniente de no poder hacer de todo con él. Un inconveniente que tiene
COBOL a la hora de programar es lo estricto que es cuando se definen las
variables, sin embargo, gracias a esta precisión hace que el programa resulte
más rápido que si estuviera realizado por otros lenguajes.
Ejemplo
de COBOL
Si no la tenemos ya, crearemos
una librería particionada y con un formato de registro fijo de 80 caracteres.
En nuestro ejemplo, la llamaremos TSOAD05.AD40.COBOL. Dentro de dicha librería,
crearemos un miembro llamado HOLAMUN que contendrá el siguiente programa (Es el
clásico HOLA MUNDO):
IDENTIFICATION DIVISION.
PROGRAM-ID. HOLAMUN.
AUTHOR.
JAVIER CASTILLA PARA EUSKAL ENCONTER Y MAINFRAMECORNER
INSTALLATION. IBM-ZOS.
DATE-WRITTEN. 13 FEBRERO DE 2013.
DATE-COMPILED.
SECURITY. NONE.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. MIORDENADOR.
OBJECT-COMPUTER. MIORDENADOR.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
DATA DIVISION.
WORKING-STORAGE SECTION.
PROCEDURE
DIVISION.
001-MAIN.
DISPLAY
"HOLA MUNDO PARA MAINFRAMECORNER.COM Y EUSKAL ENC."
GOBACK.
·
Creación del programa objeto
Este paso comprende 2 puntos:
Por un lado, si no la tenemos creada ya, crear una librería de programas
objetos con formato U (no me cansaré de repetirlo) y por otro, lanzar el JCL
que nos leerá el miembro fuente, lo compilará y dejará el objeto en la librería
de programas objetos.
·
Creación
de la librería de Objetos
Es muy sencillo: Simplemente
asignamos las pistas que consideremos oportunas a una librería particionada y
definimos su formato de registro como U. En este documento, la hemos llamado
TSOAD05.AD40.LOADLIB.
Submisión del JCL compilador de
COBOL
·
Para compilar el
programa, crearemos el siguiente JCL:
Para compilar el programa, crearemos el siguiente JCL:
//TSOAD05J JOB 1AD40G12,'JAVIER
CASTILLA',NOTIFY=&SYSUID,
// MSGCLASS=Q,CLASS=A,MSGLEVEL=(1,1),REGION=0M,TIME=(0,7)
//**************************************************************
//* COMPILAR Y LINKEDITAR HOLAMUN (HOLAMUNDO EUSKAL ENC Y MFCORNER)
//* SYSLIB ES LA LIB. DE COPYS
//* SYSIN ES LA LIB. DE PROGRAMAS FUENTES
//* SYSLMOD ES LA LIB. DE PROGRAMAS OBJETOS O EJECUTABLES
//**************************************************************
//STEP0 EXEC
IGYWCLG,PARM.COBOL='LIB,APOST,XREF,MAP,OFFSET'
//COBOL.SYSIN DD DSN=TSOAD05.AD40.COBOL(HOLAMUN),DISP=SHR
//STEPLIB DD DSN=TSOAD05.AD40.LOADLIB,DISP=SHR
//LKED.SYSLMOD DD DSN=TSOAD05.AD40.LOADLIB(HOLAMUN),DISP=SHR
//
Los parámetros en negrita son los que hay que editar para que no
funcione en nuestro ejemplo:
– COBOL.SYSIN es la
ficha DD donde apuntaremos a nuestro fichero COBOL fuente.
– STEPLIB es la
ficha DD donde apuntaremos a la librería de objetos.
– LKED.SYSLMOD es
la ficha DD donde definiremos el miembro objeto que se generará resultado de la
compilación.
Una vez lanzado el JCL, debería
acabar con Cond.Code 0. Si acaba con otro, habrá que mirar la salida del JOB
para asegurarse si ha habido un error en la transcripción del programa, y
corregir el programa fuente. Si consultamos la librería TSOAD05.AD40.LOADLIB,
debería existir un miembro creado llamado HOLAMUN.
·
Ejecución del
programa COBOL
Para ejecutar el programa,
simplemente se realizará un TSO CALL al miembro objeto del programa. En nuestro
ejemplo, el comando será:
TSO CALL
‘TSOAD05.AD40.LOADLIB(HOLAMUN)’
