Ir al contenido principal

COBOL para principiantes #8

En esta serie de posts sobre el lenguaje COBOL hemos visto algunas sentencias importantes como ``PERFORM`` y ``GO TO``. En está ocasión continuaremos con lo visto anteriormente.

EXIT [PROGRAM]

La sentencia ``EXIT`` proporciona un punto final común para una serie de procedimientos. También proporciona una forma de salir de una sección, un párrafo o una sentencia ``PERFORM`` en línea.

       IDENTIFICATION DIVISION.

       PROGRAM-ID.                EJERCICIODOS.
       AUTHOR.                    ALQUIMISTA.
       INSTALLATION.              BLOGGER.
       DATE-WRITTEN.              15/06/24.
       DATE-COMPILED.
       SECURITY.                  NO ES CONFIDENCIAL.
      *> ------------------------------------------------------
      *> PROGRAMA QUE USA PERFORM
      *> ------------------------------------------------------

       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER.           LINUX-UBUNTU.
       OBJECT-COMPUTER.           LINUX-UBUNTU.

       INPUT-OUTPUT SECTION.
       FILE-CONTROL.

       DATA DIVISION.
       FILE SECTION.

       WORKING-STORAGE SECTION.
       01 WS-VAR.
          05 WS-I      PIC 9(01). 
          05 WS-J      PIC 9(01).

       PROCEDURE DIVISION.
           DISPLAY "Antes de PERFORM...VARYING...AFTER". 
           PERFORM 1000-CALCULATION 
		      THRU 1000-EXIT 
                   VARYING WS-I FROM 1 BY 1 UNTIL WS-I > 2 
                     AFTER WS-J FROM 1 BY 1 UNTIL WS-J > 6.
           DISPLAY "Despues de PERFORM...VARYING...AFTER"

           STOP RUN.
       1000-CALCULATION.
           DISPLAY "WS-I: " WS-I " , WS-J: " WS-J.
       1000-EXIT.
            EXIT.

GOBACK

Esta sentencia funciona como la sentencia ``EXIT PROGRAM``.

       IDENTIFICATION DIVISION.

       PROGRAM-ID.                PROGRAMA.
       AUTHOR.                    ALQUIMISTA.
       INSTALLATION.              BLOGGER.
       DATE-WRITTEN.              15/06/24.
       DATE-COMPILED.
       SECURITY.                  NO ES CONFIDENCIAL.
      *> ------------------------------------------------------
      *> UN SIMPLE ṔROGRAMA
      *> ------------------------------------------------------

       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER.           LINUX UBUNTU.
       OBJECT-COMPUTER.           LINUX UBUNTU.

       INPUT-OUTPUT SECTION.
       FILE-CONTROL.

       DATA DIVISION.
       FILE SECTION.

       WORKING-STORAGE SECTION.
       01  WS-CAMPO-COMPUESTO.
           05 WS-CAMPO-01         PIC X(07) VALUE "HERNAND".
           05 WS-CAMPO-02         PIC 9(05) VALUE 89098.

       PROCEDURE DIVISION.
       010-RAIZ.
           DISPLAY "[  HOLA COBOLEROS  ]"
           DISPLAY WS-CAMPO-01
           DISPLAY "CONTENIDO DE CAMPO 01: " WS-CAMPO-01
           DISPLAY "CONTENIDO DE CAMPO 02: " WS-CAMPO-02.
           GOBACK.

STOP [RUN]

La sentencia ``STOP`` detiene la ejecución del programa objeto de forma permanente o temporal.

       IDENTIFICATION DIVISION.
       PROGRAM-ID. EJERCICIOUNO.
       AUTHOR. ALQUIMISTA.

       INSTALLATION. ALQUIMISTA.
       DATE-WRITTEN. 15-06-2024.
       DATE-COMPILED. 15-06-2024,
       SECURITY. NO ES CONFIDENCIAL.

       ENVIRONMENT DIVISION. 
       CONFIGURATION SECTION. 
       SOURCE-COMPUTER. LINUX UBUNTU.
       OBJECT-COMPUTER. LINUX UBUNTU.

       INPUT-OUTPUT SECTION.
       FILE-CONTROL. 

       DATA DIVISION.
       FILE SECTION. 

       WORKING-STORAGE SECTION.
       01 WS-COUNT PICTURE 9(01).
       
       *> EJEMPLO DEL USO DE PERFORM VARYING
       PROCEDURE DIVISION.
           DISPLAY "Antes del conteo...".
           PERFORM VARYING WS-COUNT FROM 1 BY 1 UNTIL WS-COUNT > 3
              DISPLAY "Hola, no.: " WS-COUNT
           END-PERFORM.
           DISPLAY "Despues del conteo.".
           STOP RUN.

CAMPOS EMPACADOS

Nos sirven para ahorrar espacio.

Algunos ejemplos:

 WORKING-STORAGE SECTION.
       01 WS-DATE.
          05 WS-YEAR     PIC 9(02). 
          05 WS-MONTH    PIC 9(02).
          05 WS-DAY      PIC 9(02).

El nombre del campo empacado en este caso es: WS-DATE. Este agrupará los subcampos:

  1. WS-YEAR.
  2. WS-MONTH.
  3. WS-DAY.

Podemos asignar un valor DATE en el campo empacado (DATE es una función propia del lenguaje, la cual provee la fecha actual del sistema):

ACCEPT WS-DATE FROM DATE.

Podemos imprimir cada uno de los valores de los subcampos:

DISPLAY "AÑO: ",WS-YEAR.
DISPLAY "MES: ",WS-MONTH.
DISPLAY "DÍA: ",WS-DAY.

Continuaremos con esta serie de entregas sobre le lenguaje COBOL.

Enlaces:

https://alquimistadecodigo.blogspot.com/2024/06/cobol-para-principiantes-7.html

Comentarios

Entradas populares de este blog

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

Programación Windows Batch (CMD) parte 4

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

COBOL para principiantes #1

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.