COBOL

El lenguaje COBOL (acrónimo de COmmon Business-Oriented Language, 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 autodocumentació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.
•          Pese a esto, a comienzos de los ochenta se fue quedando anticuado respecto a los nuevos paradigmas de programación y a los lenguajes que los implementaban. En la revisión de 1985 se solucionó, incorporando a COBOL variables locales, recursividad, reserva de memoria dinámica y programación estructurada.
•           En la revisión de 2002 se le añadió orientación a objetos, aunque desde la revisión de 1974 se podía crear un entorno de trabajo similar a la orientación a objetos, y un método de generación de pantallas gráficas estandarizado.
•          Antes de la inclusión de las nuevas características en el estándar oficial, muchos fabricantes de compiladores las añadían de forma no estándar. En la actualidad este proceso se está viendo con la integración de COBOL con Internet. Existen varios compiladores que permiten emplear COBOL como lenguaje de scripting y de servicio web. También existen compiladores que permiten generar código COBOL para la plataforma .NET y EJB.

Programa Hola mundo

IDENTIFICATION DIVISION.

       PROGRAM-ID. HOLAMUNDO.

             

       PROCEDURE DIVISION.

       

           DISPLAY 'Hola mundo'.

           STOP RUN.

ESTRUCTURA DEL LENGUAJE 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.

 Juego de caracteres. COBOL permite utilizar casi todos los caracteres que permite el teclado, además de distinguir entre mayúsculas y minúsculas. Un carácter a mencionar por su utilidad y porque en otros lenguajes no es usado sería el espacio.

ESQUEMA DE UN PROGRAMA COBOL

Los programas cobol se dividen en partes llamadas "DIVISION" que a su vez se separan en secciones llamadas "SECTION". Vamos a ver el esquema básico que todo programa cobol debe tener:

IDENTIFICATION DIVISION.
PROGRAM-ID. PRUEBA1.
   Nombre del programa. Debe coincidir con el nombre externo del programa.

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
    DECIMAL-POINT IS COMMA.

   Nosotros usamos los puntos como separadores de miles y la coma como el separador de decimales.

INPUT-OUTPUT SECTION.
FILE-CONTROL.
   En esta parte se definen los ficheros en caso de que los haya.

    SELECT FICHERO1
   Nombre de fichero.

    ACCES MODE IS SEQUENTIAL
   Tipo de acceso: SEQUENTIAL para los planos, INDEXED para los indexados.

    FILE STATUS IS FS-FICHERO1
   Variable donde guardará el file-status (código de control de errores de acceso a ficheros).

DATA DIVISION.
FILE SECTION.
FD FICHERO1 RECORDING MODE IS F
   Fichero con longitud fija. Si fuese de longitud variable pondríamos V.

    BLOCK CONTAINS 0 RECORDS
    RECORD CONTAINS 129 CHARACTERS.
   Longitud del fichero.

01 REG-FICHERO1 PIC X(129).
   Donde guardaremos la información.

WORKING-STORAGE SECTION.                                                
   En ella definimos las variables que usaremos en el programa.

01 WX-VARIABLE PIC X.
   Definición de variables lo veremos más adelante.

LINKAGE SECTION                                                                                   .
   Área de comunicación con otros programas

01 AREA-LINKAGE PIC X.
PROCEDURE DIVISION. / PROCEDURE DIVISION USING AREA-LINKAGE.
   Si hay un área definida en la linkage debemos incluir el USING en la procedure.

Aquí es donde va el programa en sí. La estructura general será:

0000-PRINCIPAL.
    PERFORM 1000-INICIO

    PERFORM 2000-PROCESO
      UNTIL CUMPLE-CONDICION

    PERFORM 3000-FINAL
    .

La numeración de párrafos suele ser esa, pero cada empresa puede tener su propia nomenclatura estándar.

El proceso en un programa se suele repetir n veces, hasta que se cumple la condición indicada en el UNTIL.

En el párrafo de final se incluye la instrucción de finalización de ejecución:
STOP RUN para programas principales.
GOBACK para rutinas.

EJEMPLO DE PROGRAMACIÓN COBOL