COBOL para principiantes (#4)

Párrafos.
Son similares a las etiquetas de batch cmd. Debajo se escriben los bloques de código.

Ejemplos.

PERFORM
  DISPLAY 'PARRAFO'.
END-PERFORM

VER-DATOS.
  DISPLAY DATO.

FINALIZAR.
  STOP RUN.

Invocar un párrafo.

PERFORM VER-DATOS.

PERFORM FINALIZAR.

Uso de IF y operadores OR, AND y NOT.

*> IF X = Y THEN
IF X EQUAL Y THEN

*> IF X < Y THEN
IF LESS THEN Y THEN

*> IF <= Y THEN
IF LESS OR EQUAL Y THEN

*> IF X > Y THEN
IF GREATER THAN OR EQUAL Y THEN

*> IF X NOT = Y THEN
IF X NOT EQUAL Y THEN

*> IF X NOT < Y THEN
IF X NOT LESS THAN Y THEN

*> IF X NOT > Y THEN
IF X NOT GREATER THAN Y THEN

*> IF X = Y THEN
IF X EQUAL Y THEN

*> IF X < Y THEN
IF LESS THEN Y THEN

*> IF <= Y THEN
IF LESS OR EQUAL Y THEN

*> IF X > Y THEN
IF GREATER THAN OR EQUAL Y THEN

*> IF X NOT = Y THEN
IF X NOT EQUAL Y THEN

*> IF X NOT < Y THEN
IF X NOT LESS THAN Y THEN

*> IF X NOT > Y THEN
IF X NOT GREATER THAN Y THEN

Ejemplo. Preguntar al usuario si le gusta la música de banda.

       IDENTIFICATION DIVISION.
       PROGRAM-ID. SI-ENTONCES-EQUAL.
       
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.
       77 RESPUESTA PICTURE X.
       
       
       PROCEDURE DIVISION.
       PROGRAM-BEGIN.
            PERFORM PREGUNTA.
            PERFORM MUESTRA-RESPUESTA.
            
       PROGRAM-DONE.
            STOP RUN.
            
       
       PREGUNTA.
           DISPLAY "TE GUSTA LA MUSICA DE BANDA? SI o NO:".
           ACCEPT RESPUESTA.
           
            
       MUESTRA-RESPUESTA.
           
           *> Tambien funciona asi IF RESPUESTA EQUAL "S" OR "s" THEN
           *> Tambien asi RESPUESTA = "S" OR RESPUESTA = "s" THEN
           IF RESPUESTA IS EQUAL "S" OR "s" THEN
               DISPLAY "DEBERIAS REDEFINIR TUS GUSTOS".
               
           IF RESPUESTA IS EQUAL "N" OR "n" THEN
               DISPLAY "QUE BUEN GUSTO TIENES".

Ejemplo. Cálculo del valor futuro dado un valor presenta, una tasa de interés y un periodo de pago.

Programa final.

******************************************************************
      * Author: ALQUIMISTA DE CODIGO
      * Date: 15/12/19
      * Purpose: USO DE PARRAFOS
      * Tectonics: cobc
      ******************************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. PARRAFOS.
       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.
       
       
       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 MSG-FINAL 0 TIMES.
           
       MSG-FINAL.
           DISPLAY "HECHO".
            
       PROGRAM-DONE.
            STOP RUN.

Esta serie de post sobre COBOL son prácticos. La teoría se deja para quien quiera, realmente, aprender a usar este lenguaje.

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...

TIOBE index 2024

El índice TIOBE (o índice de la comunidad de programación TIOBE) mide la popularidad de los lenguajes de programación. Su índice no se basa en qué lenguaje de programación es mejor, si tiene mejor perfomance, si posee escalabilidad, si es más sencillo de aprender, de usar, de implementar, etc. Sólo se basa en la popularidad. En el número de referencias ya sea en blogs, foros de consulta, etc. No necesariamente si las empresas lo están usando en alguno de sus desarrollos. Este índice es útil para darse una idea qué lenguaje está cobrando más popularidad y prestigio. Enseguida una tabla con los primeros 5 lenguajes más populares. Índice de Noviembre 2024 Nov 2024 Nov 2023 Change Programming Language Ratings Change 1 1 Python 22.85% +8.69% 2 3 + C++ 10.64% +0.29% 3 4 + Java 9.60% +1.26% 4 ...

z/OS, ¿Qué es? y ¿Cuáles son sus herramientas?

En este post veremos las herramientas de z/OS de IBM. z/OS es un sistema operativo de mainframe desarrollado por IBM. Es parte de la serie IBM z Systems (anteriormente conocida como System z), que se utiliza en los sistemas mainframe de IBM. z/OS es uno de los sistemas operativos más utilizados en el mundo empresarial para ejecutar aplicaciones críticas y procesar grandes volúmenes de datos. Características clave de z/OS: Escalabilidad : z/OS es conocido por su capacidad para manejar grandes cargas de trabajo y escalabilidad vertical, lo que permite agregar recursos de hardware para satisfacer las demandas de procesamiento. Confiabilidad y disponibilidad : z/OS está diseñado para ofrecer alta disponibilidad y confiabilidad. Incorpora características como redundancia y recuperación ante fallas para garantizar la continuidad de las operaciones. Seguridad : Proporciona una amplia gama de funciones de seguridad, como autenticación, autorización y auditoría, para proteger los...

Alquimista de código

Buscar este blog