Cobol, un lenguaje antiguo pero presente

Cobol, un lenguaje antiguo pero presente el cual actualmente es usado por bastantes entidades financieras, las cuales lo utilizan por que el lenguaje maneja una máxima seguridad en sus bases de datos.

El lenguaje maneja sentencias SQL, mediante las cuales se puede acceder a las diferentes tablas donde tengamos almacenados nuestros datos.

Sentencias SQL:

• Select
• insert
• Update
• Delete

La sentencia Select nos sirve para seleccionar los diferentes datos de una base de datos.
Ejemplo: Select * from Tabla1

La sentencia Insert nos sirve para poblar los datos de una tabla.
Ejemplo: Insert Into Tabla1
values (1,2,3,4)

La sentencia Update nos sirve para actualizar cualquier dato dentro de alguna de nuestras tablas.
Ejemplo: Update Tabla1
set campo1 = ‘hola Mundo’

A continuación podemos visualizar un pequeño tutorial para empezar en el mundo del cobol, desde como instalar la herramienta, hasta la utilización de la misma y los inicios para principiantes del lenguaje:

Por ejemplo, los bancos continúan usando sistemas centrados en COBOL, con el que realizan sus operaciones, muchas de ellas muy importantes ya que manejan grandes sumas de dinero y el peligro que entraña, es que cada vez existen menos personas que comprenden y manejan este idioma.

Lo cierto es que muy pocos son los que podrían entenderlo, pero aun así son muchos más de los que pueden defenderse con COBOL y eso se debe a que las universidades se ve hoy en día Python, Java pero no Cobol.

El lenguaje COBOL (COmmon Business-Oriented Language, Lenguaje Común Orientado a Negocios) fue creado en el año 1959 con el objetivo de crear un lenguaje universal que pudiera ser usado en cualquier ordenador (ya que en los años 60 existían modelos de ordenadores incompatibles entre sí), y que estuviera orientado principalmente a los negocios, es decir, a la llamada informática de gestión.

Si se quiere aprender programación, seguro que los anuncios que llegan hoy en día hablan de JavaScript, Java, C o Python, pero no se debe dejar de lado COBOL u otros lenguajes olvidados como DELPHI ya que la gente que controla estos códigos hoy en día están muy cotizados debido a que son muy pocas personas las que conocen este lenguaje. Antes de decidirnos por aprender un lenguaje u otro de código informémonos bien.

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(Enterprise Java Beans).

• REAL COBOL
• COBOL-I
• COBOL-II
• MICROFOCUS COBOL
• VICOBOL

Estructuras de Cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. Nombre del programa.
AUTHOR. Nombre del autor.
INSTALLATION. Lugar donde está instalado.
DATE-WRITTEN. Fecha de creación.
DATE-COMPILED. (Fecha de compilación.)
REMARKS. Comentarios.

SOURCE-COMPUTER. Ordenador donde se escribió el fuente.
OBJECT-COMPUTER. Ordenador donde se ejecuta el objeto.
SPECIAL-NAMES. Cambiar valores para constantes del lenguaje,
pueden variar en cada compilador.

INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT [OPTIONAL] Nombre-de-archivo
ASSIGN TO Tipo-de-dispositivo
ORGANIZATION IS Tipo de organizacion
ACCESS MODE IS Mode de acceso al fichero
RECORD KEY IS Clave del registro
ALTERNATE RECORD KEY IS Claves alternativas registro
WITH DUPLICATES
FILE STATUS IS Variable de estado del fichero.

Formato para aceptar datos del sistema o variables de entorno.

ACCEPT variable FROM (DATE, DAY, DAY-OF-WEEK, TIME, CENTURYDATE, CENTURY-DAY, ESCAPE-KEY,
Según la opción escogida, así será el valor que contendrá la variable usada, una vez completada la sentencia. Veamos cada una de las opciones:

• DATE, devuelve la fecha en formato AAMMDD, por lo que la variable debe de estar definida con PIC 9(6).
• CENTURY-DATE, igual que DATE, pero acepta la fecha con 8 dígitos en formato SSAAMMDD. Definir con PIC 9(8).
• DAY, devuelve el año y el día del año en que estamos con el formato AADDD, siendo el valor 1, para el 1 de Enero y así sucesivamente.
• CENTURY-DAY, igual que DAY, pero acepta 4 dígitos para el año, quedando el formato AAAADDD. Definir con PIC 9(7).
• DAY-OF-WEEK, devuelve un dígito que indica el día de la semana, siendo 1 el Lunes, 2 el Martes, … Aquí, la variable debe de estar definida como PIC 9.
• TIME, devuelve la hora con formato HHMMSSMM, la variable debe de estar como PIC 9(8).
• ESCAPE-KEY, devuelve el código de la tecla de excepción pulsada, debe de estar definida con PIC 99 y según el compilador los valores pueden ser distintos, pero los básicos suelen ser los mismos, por ejemplo: ENTER=13, FLECHA ARRIBA=52, FLECHA-ABAJO=53 y las teclas de función desde F01 hasta F8 tomarían los valores del 1a l 8, TAB=9

Autor: Gilberto Sánchez Rodríguez

Editor: Carlos Pinzón

Código: UCPW-72

Universidad: Universidad Central

Fuentes:

Cobol. (s. f.). [Imagen]. Cobol lenguaje. https://www.unocero.com/software/ibm-te-ensena-cobol/

COBOL CURSO 1 - Introducción al cobol e instalación de herramienta para programar cobol. (2017, 23 junio). [Vídeo]. YouTube. https://www.youtube.com/watch?v=1Dp4mrDE_bs

TSO-3270. (s. f.). [Imagen]. TSO. https://www.antonioserranoacitores.com/wp-content/uploads/2018/11/ncs-blog-cobol-610x294.jpg

WordpLenguajes de programación. (s. f.). [Imagen]. Lenguajes. https://www.antonioserranoacitores.com/wp-content/uploads/2018/11/timeline_Mesa-de-trabajo-1-768x339.png

Consultorio Cobol. (s. f.). [Imagen]. Cobol. http://2.bp.blogspot.com/-b8HcqD1FSpQ/UteYbcrWLpI/AAAAAAAABKM/rg2NZItb1Qo/s1600/Cobol+v1.jpg