Cobol

Curso Basico de Cobol

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 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.

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.

Ø  Ejemplos

Multiplicación de dos números

PROGRAM-ID. Secuenciacion.

AUTHOR. Carlos S Melon Fdez.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 Num1 PIC 9 VALUE ZEROS.

01 Num2 PIC 9 VALUE ZEROS.

01 Resultado PIC 99 VALUE ZEROS.

PROCEDURE DIVISION.

CalculaResultado.

ACCEPT Num1.

ACCEPT Num2.

MULTIPLY Num1 BY Num2 GIVING Resultado.

DISPLAY “El resultado es = ”, Resultado.

STOP RUN.

10.2 Programa que maneja condiciones

IDENTIFICATION DIVISION.

PROGRAM-ID. Iteration-If.

AUTHOR. Michael Coughlan.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 Num1 PIC 9 VALUE ZEROS.

01 Num2 PIC 9 VALUE ZEROS.

01 Result PIC 99 VALUE ZEROS.

01 Operator PIC X VALUE SPACE.

PROCEDURE DIVISION.

Calculator.

 PERFORM 3 TIMES

 DISPLAY "Enter First Number : " WITH NO ADVANCING

 ACCEPT Num1

 DISPLAY "Enter Second Number : " WITH NO ADVANCING

 ACCEPT Num2

 DISPLAY "Enter operator (+ or *) : " WITH NO ADVANCING

 ACCEPT Operator

 IF Operator = "+" THEN

 ADD Num1, Num2 GIVING Result

 END-IF

 IF Operator = "*" THEN

 MULTIPLY Num1 BY Num2 GIVING Result

 END-IF

 DISPLAY "Result is = ", Result

 END-PERFORM.

 STOP RUN.