Ir al contenido principal

COBOL para principiantes(#3)

¿Conviene estudiar/aprender COBOL?
Los programadores experimentados no mienten (o no deberían hacerlo). COBOL es el lenguaje de los bancos y empresas que procesan enormes cantidades de datos. Ya sean archivos o bases de datos. Spring Batch le pisa los talones, pero difícilmente lo suplirá. Muchos programadores de la vieja escuela aún no se jubilan, sólo la muerte los desaparecerá. Mientras tanto los programadores imberbes e inexpertos en COBOL tiene un mundo por recorrer.


¿Cual es el paradigma que usa COBOL? 
Entendamos una cosa, existen muchos compiladores en la red y algunos prometen la orientación a objetos y otras cosas más. Pero su esencia fundamental es la programación estructurada.

Las bases de este paradigma son tres:

  1. Sentencias secuenciales.
  2. Sentencias selectivas.
  3. Sentencias iterativas.

Siempre hay que tener presente estos conceptos.

COBOL es un lenguaje fácil de entender. Existe mucha, demasiada, documentación hoy en día. No hay excusa para quien quiere aprender a programar en el. Su sintaxis es simple y al ser un lenguaje de propósito específico no requiere más que tener buenas bases de lógica y sentido común.

En el siguiente ejemplo se puede ver cómo definimos una variable alfanumérica y su asignación de valor (45000). Si es un valor numérico, entonces mostrar al usuario que ese valor es numérico. En otro caso, decirle que ese valor no lo es.

*> ...
*> DEFINIMOS UNA VARIABLE ALFANUMÉRICA
01 NUMERO PIC X(5) VALUE "45000".

*> ...
IF NUMERO IS NOT NUMERIC THEN
   DISPLAY "EL VALOR NO ES NUMERICO"
ELSE
   DISPLAY "ES UN VALOR NUMERICO"
END-IF

Hacer operaciones selectivas donde existan muchos casos  es fácil. Para ello usamos la estructura de control EVALUATE ... END-EVALUATE.

Ejemplo. A un número (DATO) numérico con valor flotante se le asigna un valor de 100. Como DATO vale 100, a la variable decimal X se le asignará, mediante MOVE, el valor de esa variable.

*> DEFINIMOS UNA VARIABLE Y LE ASIGNAMOS UN VALOR
01 DATO PIC 9(3)V99 VALUE 100.
01 X PIC 9(3).

*> EVALUAMOS SI CABE EN UN CASO EN ESPECIFICO

EVALUATE DATO
   WHEN 10
      MOVE 10 TO X 
   WHEN 11 THRU 20
      MOVE 12 TO X
   WHEN 56 THRU 100
      MOVE DATO TO X
   WHEN OTHER
      DISPLAY "NO HACER NADA"
      GO TO MAIN-PROGRAM
END-EVALUATE
Existen un sinnúmero de ejemplos en la red.

OpenCobolIDE
En anteriores post vimos como instalar Gnu-OpenCobol, ahora instalaremos un IDE.
Lo instalaremos mediante la herramienta pip.

pip install OpenCobolIDE

En caso de no poder instalarlo se puede descargar desde la página(s) oficial(es):
https://pypi.org/project/OpenCobolIDE/
https://launchpad.net/cobcide/+download


Al instalarlo nos parecerá está ventana:



Necesitaremos crear una carpeta. Sobre la misma podemos crear un nuevo programa con la extensión *.cbl.


Se abrirá el editor:





Existen versiones para Windows, Linux y Mac OS X.

Nota: En esta serie de post hablamos de los aspectos básicos de COBOL, para programar de manera profesional es necesario contar con entornos más robustos. Si quieres trabajar profesionalmente, deberás usar los entornos de IBM (DB2, Z/OS, OS/390, etc.).

Existen emuladores para los principiantes pero siempre es importante tomar en cuenta que IBM es quien dicta que usar.

Comentarios

Entradas populares de este blog

Rocket: un framework web para Rust

Rocket Framework es: Un framework web escrito en Rust.   Inspirado en Rails, Flask, Bottle y Yesod.  Admite el manejo de solicitudes HTTP, Web Sockets, JSON, plantillas y más. Creando un proyecto con Rocket Framework En primer lugar, verificamos la instalación de Rust en nuestras máquinas: rustc - - version Continuamos con la configuración de Rust nightly como nuestra cadena de herramientas predeterminada ejecutando el comando: rustup default nightly Si lo prefieres, una vez que configuremos un directorio de proyecto en la siguiente sección, puedes usar anulaciones por directorio para usar la versión nocturna solo para tu proyecto Rocket ejecutando el siguiente comando en el directorio: rustup override set nightly Creamos nuevo proyecto `` hola-rocket `` y nos ubicamos en el directorio creado: cargo new hola - rocket - - bin cd hola - rocket Con Cargo, agregamos la dependencia de rocket: cargo add rocket Abrimos el archivo `` Cargo.toml `` Ca...

Odin language: el lenguaje de programación orientado a datos para un desarrollo de software sensato

En esta serie sobre lenguajes de programación hablamos de Odin , un lenguaje orientado a datos. Un nuevo lenguaje de programación que nos podrá recordar a lenguajes como C++, Python, Golang o hasta Rust. Instalación (Windows): 1 2 3 4 $ git clone https://github.com/odin-lang/Odin $ cd Odin $ git pull $ build.bat release Debemos asegurarnos de crear la variable de entorno: Nombre: ODIN_HOME Valor: C:\Users\HP\Documents\pruebasOdin\Odin Ejemplo 1. Como primer programa tendremos al clásico "Hola, mundo". holamundo.odin package holamundo import " core:fmt " main : : proc ( ) { fmt . println ( " ¡Hola, mundo desde Odin! " ) } Construimos: $ odin build holamundo . odin - file Ejecutamos: $ holamundo .exe Recordar que si usamos Visual Studio Code podemos instalar el plugin de Odin Language: https://marketplace.visualstudio.com/items?itemName=DanielGavin.ols Ejemplo 2. Programa que muestre las variables que pod...

Programación Windows Batch (CMD) parte 3

Crear ciclos para efectuar operaciones tediosas nos ahorrará tiempo para realizar otras tareas. En está ocasión veremos ciclos con FOR . ¿Cuál es la síntaxis de bucle FOR en Windows Batch? Si está dentro de un archivo *.bat : FOR %%variable IN (seq) DO operaciones Si lo ejecutamos en una terminal: FOR %variable IN (seq) DO operaciones Ejemplo 1 . Recorrer una secuencia de números del 0 al 5: recorrer.bat @ echo off FOR %%i in ( 0 1 2 3 4 5 ) DO echo Hola no. %%i pause Nos imprimirá en pantalla: Hola no. 0 Hola no. 1 Hola no. 2 Hola no. 3 Hola no. 4 Hola no. 5 ¿Puedo usar contadores? Si, se pueden usar. Ejemplo 2 . Uso de contadores: contador.bat @ echo off set numeros = 1 2 3 4 5 6 7 8 9 10 set cont = 0 for %%a in ( %numeros% ) do ( echo Hola no. %%a :: Contador set /a cont+ = 1 ) echo Total: %cont% Este código nos imprimirá, además de los mensajes Hola no. 0 ..., el total de valores conta...