Ir al contenido principal

COBOL para principiantes (#5)

Imagen
De Beta

 

Hace tiempo que leí un artículo sobre lenguajes de programación más usados en el mundo y veo sin sorpresa que COBOL a pesar de ser un lenguaje bastante vetusto sigue siendo uno de los más utilizados, sobre todo en la industria bancaria. Ya sea por su alta capacidad para procesar grandes cantidades de archivos y  realizar complejas operaciones lógicas y aritméticas.

En ésta ocasión veremos como crear varios programas usando este lenguaje. Usaremos OpenCOBOLIDE como editor de código.

Ejemplo 1. Crear un programa que muestre la dirección de una persona. Deberá contar con estos campos:

  • Calle.
  • Número de casa.
  • Ciudad.
  • País.

direccion.cbl

      ******************************************************************
      * Author: Alquimista
      * Date: 23/03/2024
      * Purpose: Mostrar una direccion
      * Tectonics: cbl, cob
      ******************************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. VARIABLES.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.
       01 WS-DIRECCION.
          05 WS-CALLE    PIC X(18).
          05 WS-NUM-CASA PIC 9(2).
          05 WS-CIUDAD   PIC X(19).
          05 WS-PAIS     PIC X(6) VALUE "KYONGN".
       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
            MOVE 65 TO WS-NUM-CASA.
            MOVE 'PATAGON PTE SUR' TO WS-CALLE.
            MOVE ' TINUAJA, LINDONG.' TO WS-CIUDAD.
            DISPLAY "CALLE: "WS-CALLE.
            DISPLAY "NUMERO: "WS-NUM-CASA.
            DISPLAY "CIUDAD: "WS-CIUDAD.
            DISPLAY "PAIS: "WS-PAIS.
            DISPLAY "DIRECCION COMPLETA: "WS-DIRECCION.
            STOP RUN.
       END PROGRAM VARIABLES.

Salida:

CALLE: PATAGON PTE SUR  
NUMERO: 65
CIUDAD:  TINUAJA, LINDONG. 
PAIS: KYONGN
DIRECCION COMPLETA: PATAGON PTE SUR  65 TINUAJA, LINDONG. KYONGN

¿Qué podemos observar en este ejemplo?

  • Uso del comando ``MOVE``  para asignar valores (podemos usar ``VALUE`` en la declaración de la variable). `
  • El uso de una variable "padre" denominada WS-DIRECCION. Si imprimimos esta variable, mostrará cada uno de los valores de las demás variables.
  • No es necesario hacer una concatenación compleja para mostrar los datos con ``DISPLAY``. 

Modificando el programa para poder introducir datos tenemos:

 ******************************************************************
      * Author: ALQUIMISTA
      * Date: 23/03/2024
      * Purpose: MOSTRAR DIRECCION
      * Tectonics: cobc,cob, cbl
      ******************************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. DIRECCION.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.
       01 WS-DIRECCION.
          05 WS-CALLE    PIC X(18).
          05 WS-NUM-CASA PIC 9(2).
          05 WS-CIUDAD   PIC X(19).
          05 WS-PAIS     PIC X(6) VALUE "SHUNHG".
       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
            MOVE 35 TO WS-NUM-CASA.
            MOVE 'MANRRIQUEZ SUROESTE' TO WS-CALLE.
            MOVE ' TOCHIACA, CHIANG.' TO WS-CIUDAD.
            DISPLAY "CALLE: "WS-CALLE.
            DISPLAY "NUMERO: "WS-NUM-CASA.
            DISPLAY "CIUDAD: "WS-CIUDAD.
            DISPLAY "PAIS: "WS-PAIS.
            DISPLAY "DIRECCION COMPLETA: "WS-DIRECCION.
            PERFORM ENTRADA-DATOS 0 TIMES.
       
       ENTRADA-DATOS.
           DISPLAY "INTRODUCE CALLE:".
           ACCEPT WS-CALLE.
           DISPLAY "INTRODUCE NUMERO DE CASA:".
           ACCEPT WS-NUM-CASA.
           DISPLAY "INTRODUCE CIUDAD:".
           ACCEPT WS-CIUDAD.
           DISPLAY "INTRODUCE PAIS:".
           ACCEPT WS-PAIS.
           PERFORM MOSTRAR-DATOS 0 TIMES.
           
       MOSTRAR-DATOS.
           DISPLAY "============= DATOS DE LA CALLE =============".
           DISPLAY "CALLE: "WS-CALLE.
           DISPLAY "NUMERO: "WS-NUM-CASA.
           DISPLAY "CIUDAD: "WS-CIUDAD.
           DISPLAY "PAIS: "WS-PAIS.
           DISPLAY "DIRECCION COMPLETA: "WS-DIRECCION.
           DISPLAY "=============================================".
           PERFORM MSG-FINAL 0 TIMES.

       MSG-FINAL.
           DISPLAY "HECHO".
            
            STOP RUN.
       END PROGRAM DIRECCION.

¿Qué podemos notar en el programa modificado?

  • Uso de párrafos (las etiquetas).
  • Uso del verbo ``PERFORM`` y ``TIMES`` para ejecutar un determinado número de veces un conjunto de instrucciones COBOL.
  • Uso del verbo ``ACCEPT`` para introducir datos en COBOL. 

La sintaxis de una párrafo es como la que sigue:

NOMBRE-PARRAFO
  BLOQUE-CODIGO

La sintaxis para "invocar" párrafos es como la que sigue:

PERFORM NOMBRE-PARRAFO numeroVecesAEjecutar TIMES.

Donde ``numeroVecesAEjecutar`` debe ser el número de veces que se quiere invocar. A este código podríamos agregarle otra variable: código postal. Pero será en otra ocasión. Hemos aprendido algunas cosas de este lenguaje y se continuará en próximas entregas.

Nota: Estos porgramas se realizaron usando OpenCobolIDE. Si quieres probarlo(s), deberás tener instalada esta herramienta.

Enlaces:

https://pypi.org/project/OpenCobolIDE/
Etiquetas:

Comentarios

Publicar un comentario

Entradas populares de este blog

Programación Windows Batch (CMD) parte 3

De Dr. Lang
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
3 comentarios
Leer más

Programación Windows Batch (CMD) parte 4

De Dr. Lang
Siguiendo con la serie de post sobre programación ( 1 , 2 , y 3 ) batch ahora veremos algunas cosas como operaciones aritméticas, operadores lógicos  y uso de ficheros. Cuando somos administradores de servidores o desarrolladores muchas veces tenemos que realizar tareas que nos quitan, relativamente, tiempo valioso que podríamos ocupar para otras cosas (como ver nuestro Facebook, jeje, broma).  Aprender a escribir scripts que nos faciliten algunas tareas siempre es útil. Por ejemplo, conocer todas las características técnicas de nuestro equipo de cómputo nos servirá cuando se realiza peritajes informáticos y soporte al equipo. Realizar respaldos automáticos a nuestras carpetas , archivos y directorios será más sencillo gracias a un script. Pero antes debemos aprender lo básico de la programación en batch. Ejemplo 1. Operaciones aritméticas básicas. aritmetica.bat @ echo off ::Nombre del archivo, imprimirá: aritmetica.bat echo %0 :: Set nos servirá para asignar va
Publicar un comentario
Leer más

COBOL para principiantes #1

De Dr. Lang
COBOL es un lenguaje de programación que sigue dando de que hablar. Los programadores Java, C#, Python, etc. saben que aún existen aplicaciones hechas en COBOL y es difícil que éstas migren a un lenguaje más actual. Es por esa y otras razones que muchos han pensado en aprender este lenguaje 'obsoleto'. ¡COBOL is the king, no ha muerto! ¡A desempolvar los libros de nuestros abuelos, tíos o maestros! ¿Qué debemos hacer para aprender COBOL y no morir en el intento? Para empezar necesitas: Tener bases de programación (obvio). Conseguir un compilador dependiendo del sistema operativo que uses (si usas Windows puedes usar Visual Studio e instalar un compilador; si usas Linux puedes usar Gnu OpenCOBOL, nosotros usaremos éste último en el blog ). Saber qué extensión se usa para crear un programa COBOL (.cb, cbl, .cb). Nosotros usaremos .cbl  Comprender la estructura de un programa COBOL.  Conocer las estructuras de control y estructuras de datos en COBOL. Practicar.
2 comentarios
Leer más