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)’

 

cobol1