Ir al contenido principal

COBOL para principiantes #6

Imagen
De Beta

 


En esta serie de entregas sobre el este lenguaje hemos visto algunos ejemplos. COBOL es un lenguaje de programación que, al igual que PHP, se niega a morir. Aprenderlo es relativamente sencillo y el mercado laboral cada día solicita más programadores que lo usen y dominen.

Continuamos con esta serie de ejemplos.

Nota: Se usará OpenCOBOLIDE en esta serie de ejercicios. Además usaremos la extensión *.cbl para los programas COBOL.

Ejemplo 1. El clásico Hola, mundo.

holamundo.cbl 

      ******************************************************************
      * Author: Alquimista de código.
      * Date:   01/06/2024.
      * Purpose:  A simple Hello World program.
      * Tectonics: cbl
      ******************************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. HOLAMUNDO.
       AUTHOR. ALQUIMISTA DE CODIGO.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.
       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
            DISPLAY "Hola, mundo en COBOL!!"
            STOP RUN.
       END PROGRAM HOLAMUNDO.

En este programa podemos identificar las siguientes secciones:

 Nombre de la sección   Utilidad        
 ENVIRONMENT DIVISION  Sección en la que se describen la computadora y todos los dispositivos periféricos requeridos por el programa, ofrece una introducción sobre el programa.
 IDENTIFICATION DIVISION  Sección de identificación del programa,  debe ser la primera división en cada programa fuente COBOL.
 PROGRAM-ID  Sección del nombre del programa.
 AUTHOR  Sección del nombre del autor del programa.
 DATA DIVISION  Sección de los datos del programa. Describe, de manera estructurada, todos los datos a ser procesados ​​por el programa objeto; también la relación entre registros físicos y lógicos.
 FILE SECTION  Sección de archivos del programa.
 WORKING-STORAGE SECTION  Sección donde declaramos las variables del programa.
 PROCEDURE DIVISION  Sección de procedimientos del programa. consta de una serie de procedimientos denominados párrafos, cada uno de ellos diseñado para realizar una función específica.
 MAIN-PROCEDURE  Sección principal del programa.

Ejemplo 2. Un programa que muestre como declarar variables (nombre, apellidos, código de empleado y departamento) y asignar valores. El programa solicitará el nombre del departamento. Tanto el nombre como el ID o número de identificación se asignarán con ``MOVE``. Para introducir valores usaremos ``ACCEPT`` y para mostrar los datos en pantalla ``DISPLAY``.

variables.cbl

      ******************************************************************
      * Author: ALQUIMISTA DE CODIGO
      * Date:   01/06/2024
      * Purpose: How to declare variables
      * Tectonics: cbl
      ******************************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. VARIABLES.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.
       01 NOMBRE PIC X(10).
       01 NUMERO PICTURE 9(3).
       01 APELLIDOS PICTURE X(20) VALUE "MULLER ALCANTARA".
       01 DEPTO PIC A(10).
       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
            MOVE "THOMAS" TO NOMBRE.
            MOVE 230 TO NUMERO.
            DISPLAY "DEPTO: "
            ACCEPT DEPTO.
            DISPLAY "NOMBRE: "NOMBRE APELLIDOS.
            DISPLAY "ID: "NUMERO.
            DISPLAY "DEPTO: "DEPTO.
            STOP RUN.
       END PROGRAM VARIABLES.

Es importante notar que a la hora de terminar una instrucción se debe colocar el punto. Si no se hace, causará un error en la compilación y, por ende, de la ejecución del programa.

Ejemplo 3.Operaciones básicas: suma, resta, multiplicación y división.

operaciones.cbl

      ******************************************************************
      * Author: ALQUIMISTA DE CODIGO
      * Date:     01/06/2024
      * Purpose:  Basic operations
      * Tectonics: cbl
      ******************************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. OPERACIONES.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.
       01 WS-X PIC 9(4).
       01 WS-Y PICTURE 9(4).
       01 WS-SUM PIC 9(4).
       01 WS-RES PICTURE 9(3).
       01 WS-PROD PIC 9(7).
       01 WS-DIV PICTURE 9(1).
       01 WS-RESIDUO PIC 9(1).
       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
            DISPLAY "[ OPERACIONES BASICAS EN COBOL ]"
            *> ASIGNAR VALORES CON MOVE 
            MOVE 3213 TO WS-X.
            MOVE 2309 TO WS-Y.
            *> SUMAR CON ADD, ASIGNAR CON GIVING
            ADD WS-X , WS-Y GIVING WS-SUM.
            *> RESTAR CON SUBTRACT, ASIGNAR CON GIVING
            SUBTRACT WS-X FROM WS-Y GIVING WS-RES.
            *> MULTIPLICAR CON MULTIPLY, ASIGNAR CON GIVING
            MULTIPLY WS-X BY WS-Y GIVING WS-PROD.
            *> DIVIDIR CON DIVIDE, ASIGNAR CON GIVING
            DIVIDE WS-X BY WS-Y GIVING WS-DIV REMAINDER WS-RESIDUO.
            DISPLAY WS-X"+"WS-Y"="WS-SUM.
            DISPLAY WS-X"-"WS-Y"="WS-RES.
            DISPLAY WS-X"*"WS-Y"="WS-PROD.
            DISPLAY WS-X"/"WS-Y"="WS-DIV "."WS-RESIDUO.
            STOP RUN.
       END PROGRAM OPERACIONES.

Hay que notar que empleamos algunos verbos, los cuales son:

  • ACCEPT 
  • DISPLAY 
  • GIVING 
  • MOVE 
  • ADD 
  • SUBTRACT 
  • MULTIPLY
  • DIVIDE
  • Etc.

Estos con cada función específica en el programa.

Modificando el programa anterior para usar el verbo ``COMPUTE`` para realizar las operaciones aritméticas tenemos:

operaciones.cbl

      ******************************************************************
      * Author: ALQUIMISTA DE CODIGO
      * Date:     01/06/2024
      * Purpose:  Basic operations
      * Tectonics: cbl
      ******************************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. OPERACIONES.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.
       01 WS-X PIC 9(4).
       01 WS-Y PICTURE 9(4).
       01 WS-SUM PIC 9(4).
       01 WS-RES PICTURE 9(3).
       01 WS-PROD PIC 9(7).
       01 WS-DIV PICTURE 9(1).
       01 WS-RESIDUO PIC 9(1).
       01 WS-A PIC 9(2).
       01 WS-B PIC 9(2).
       01 WS-CADENA PICTURE A(8) VALUE "ALPHAGAM".
       01 WS-RESULTADO PIC 9(3).
       01 WS-LONGITUD PIC 9(2).
       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
            DISPLAY "[ OPERACIONES BASICAS EN COBOL ]"
            *> ASIGNAR VALORES CON MOVE
            MOVE 3213 TO WS-X.
            MOVE 2309 TO WS-Y.
            *> SUMAR CON ADD, ASIGNAR CON GIVING
            ADD WS-X , WS-Y GIVING WS-SUM.
            *> RESTAR CON SUBTRACT, ASIGNAR CON GIVING
            SUBTRACT WS-X FROM WS-Y GIVING WS-RES.
            *> MULTIPLICAR CON MULTIPLY, ASIGNAR CON GIVING
            MULTIPLY WS-X BY WS-Y GIVING WS-PROD.
            *> DIVIDIR CON DIVIDE, ASIGNAR CON GIVING
            DIVIDE WS-X BY WS-Y GIVING WS-DIV REMAINDER WS-RESIDUO.
            DISPLAY WS-X"+"WS-Y"="WS-SUM.
            DISPLAY WS-X"-"WS-Y"="WS-RES.
            DISPLAY WS-X"*"WS-Y"="WS-PROD.
            DISPLAY WS-X"/"WS-Y"="WS-DIV "."WS-RESIDUO.
            *> USO DE COMPUTE 
            *> SUMA
            COMPUTE WS-RESULTADO = WS-A + WS-B.
            DISPLAY "SUMA: "WS-RESULTADO.
            *> RESTA
            COMPUTE WS-RESULTADO = WS-A - WS-B.
            DISPLAY "RESTA: "WS-RESULTADO.
            *> PRODUCTO
            COMPUTE WS-RESULTADO = WS-A * WS-B.
            DISPLAY "PRODUCTO: "WS-RESULTADO.
            *> POTENCIACION
            COMPUTE WS-RESULTADO = WS-A ** WS-B.
            DISPLAY "POTENCIA: "WS-RESULTADO.
            *> LONGITUD DE UNA CADENA
            COMPUTE WS-LONGITUD = FUNCTION LENGTH(WS-CADENA).
            DISPLAY "LONGITUD DE CADENA: "WS-CADENA.
            DISPLAY "ES: "WS-LONGITUD.
            STOP RUN.
       END PROGRAM OPERACIONES.

Ejemplo 4. Aplicando esta fórmula: VF=VP×(1+i×n). Crear un programa que calcule el valor futuro. El programa contendrá tres variables: valor presente, tasa y plazo. El usuario introducirá los tres valores correspondientes y al final se mostrará el resultado.

valorfuturo.cbl

******************************************************************
      * Author: ALQUIMISTA DE CODIGO
      * Date: 02/06/2024
      * Purpose: How to calculate VF
      * Tectonics: cbl
      ******************************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. PARRAFOS.
       AUTHOR. FER CARRARO.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.
       01 ECONOMICA.
        02 PRESENTE PIC 9(5)V99.
        02 INTERES PIC 9(2)V99.
        02 PERIODO PIC 9(2).
        02 FUTURO PIC 9(5)V99.
       01  TEMP PIC 9(5)V99. 

       PROCEDURE DIVISION.
       *> Main del programa
       PROGRAM-BEGIN.
            DISPLAY "**** USO DE PARRAFOS ****".
            PERFORM ENTRADA-DATOS 0 TIMES.

       ENTRADA-DATOS.
           DISPLAY "INTRODUCE VALOR PRESENTE:".
           ACCEPT PRESENTE.
           DISPLAY "INTRODUCE TASA DE INTERES:".
           ACCEPT INTERES.
           COMPUTE INTERES = INTERES / 100
           DISPLAY "INTRODUCE PERIODO:".
           ACCEPT PERIODO.
           PERFORM MOSTRAR-DATOS 0 TIMES.


       MOSTRAR-DATOS.
           DISPLAY "VALOR PRESENTE: $"PRESENTE.
           DISPLAY "TASA DE INTERES: "INTERES"%".
           DISPLAY "PERIODO DE INVERSION: "PERIODO" MESES".
           PERFORM CALCULAR-FUTURO 0 TIMES.
           
       CALCULAR-FUTURO.
           *> Calcular VF = VP * (1 + i * n)
           COMPUTE TEMP = 1 + (INTERES * PERIODO).
           COMPUTE FUTURO = PRESENTE * TEMP.
           DISPLAY "VALOR FUTURO: $"FUTURO.
           PERFORM MSG-FINAL 0 TIMES.

       MSG-FINAL.
           DISPLAY "HECHO".

       PROGRAM-DONE.
            STOP RUN.

Observamos que verbo ``PERFORM`` se utiliza para ejecutar un conjunto de declaraciones COBOL. Permite desviar el flujo de ejecución de un programa COBOL.

Se usa de dos formas

  • En línea.
  • Fuera de línea.

En línea:

PERFORM
  DISPLAY "HACER ALGO"
END-PERFORM.

Fuera de línea:

MSG-FINAL.
  DISPLAY "HECHO".

Seguiremos en esta serie de ejemplos con el lenguaje COBOL.

Enlaces:

https://pypi.org/project/OpenCobolIDE/
https://www.ibmmainframer.com/cobol-tutorial/cobol-divide-statement/
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