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.
